Helper scripts and an example for Jig

Author: jmct

www/notes/jig/.gitignore

@@ -0,0 +1 @@
+*.run

www/notes/jig/compile-file.rkt

@@ -0,0 +1,14 @@
+#lang racket
+(provide (all-defined-out))
+(require "compile.rkt" "syntax.rkt" "asm/printer.rkt")
+
+;; String -> Void
+;; Compile contents of given file name,
+;; emit asm code on stdout
+(define (main fn)
+  (with-input-from-file fn
+    (λ ()
+      (let ((c (read-line))
+            (p (read)))
+        (unless (expr? p) (error "syntax error" p))
+        (asm-display (compile (sexpr->prog p)))))))

www/notes/jig/example.rkt

@@ -0,0 +1,4 @@
+#lang racket
+(begin
+  (define (f x y) (+ x y))
+  (let ((x (cons (f 1 2) '()))) x))

www/notes/jig/interp-file.rkt

@@ -0,0 +1,14 @@
+#lang racket
+(provide (all-defined-out))
+(require "interp.rkt" "syntax.rkt")
+
+;; String -> Void
+;; Parse and interpret contents of given filename,
+;; print result on stdout
+(define (main fn)
+  (with-input-from-file fn
+    (λ ()
+      (let ((c (read-line)))
+        (let ((p (read)))
+          (unless (expr? p) (error "syntax error" p))
+          (writeln (interp (sexpr->prog p))))))))