From eb0eb487bec928630ebc5670ba65f3261a1061ff Mon Sep 17 00:00:00 2001
From: Eric Fredricksen <e@fredricksen.net>
Date: Wed, 23 Jun 2010 15:59:34 -0700
Subject: [PATCH] Conversion tool for Pascal to JS.

Some broad syntax fixes, with various bad side effects. Too bad I
don't know sed better.
---
 pas2js.sed | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 pas2js.sed

diff --git a/pas2js.sed b/pas2js.sed
new file mode 100755
index 0000000..f4d793a
--- /dev/null
+++ b/pas2js.sed
@@ -0,0 +1,31 @@
+#!/usr/bin/sed -f
+
+# Convert Pascal syntax to Javascript
+
+s,{,/*,g
+s,},*/,g
+s/ = / == /g
+s/:=/=/g
+s/procedure/function/g
+s/begin/{/g
+s/end;/}/g
+s/end/}/g
+
+s/not/!/g
+s/ and / && /g
+s/ or / || /g
+s/<>/!=/g
+s/ mod / % /g
+
+s/if /if (/g
+s/ then/)/g
+
+s/while /while (/g
+s/for /for (/g
+s/with /with (/g
+s/ do/)/
+
+s/case /switch (/g
+s/ of/) {/g
+
+s/Result =/return/g