summaryrefslogtreecommitdiff
path: root/src/cgil/rlhc-main.lm
diff options
context:
space:
mode:
Diffstat (limited to 'src/cgil/rlhc-main.lm')
-rw-r--r--src/cgil/rlhc-main.lm19
1 files changed, 19 insertions, 0 deletions
diff --git a/src/cgil/rlhc-main.lm b/src/cgil/rlhc-main.lm
new file mode 100644
index 00000000..f9abea7e
--- /dev/null
+++ b/src/cgil/rlhc-main.lm
@@ -0,0 +1,19 @@
+InputFile: str = argv->pop()
+OutputFile: str = argv->pop()
+
+#
+# Open input and parse
+#
+Input: stream = open( InputFile, "r" )
+parse Start: start[ Input ]
+if ( !Start ) {
+ print( error, '\n' )
+ exit(1)
+}
+
+#
+# Translate
+#
+Output: stream = open( OutputFile, "w" )
+trans( Output, Start )
+