Con and Dupe files.

Author: dvanhorn

langs/con/ast.rkt

@@ -0,0 +1,13 @@
+#lang racket
+(provide Lit Prim1 IfZero)
+
+;; type Expr = (Lit Integer)
+;;           | (Prim1 Op1 Expr)
+;;           | (IfZero Expr Expr Expr)
+
+;; type Op1 = 'add1 | 'sub1
+
+(struct Lit (i) #:prefab)
+(struct Prim1 (p e) #:prefab)
+(struct IfZero (e1 e2 e3) #:prefab)
+

langs/con/compile-ops.rkt

@@ -0,0 +1,13 @@
+#lang racket
+(provide compile-op1)
+(require "ast.rkt")
+(require a86/ast)
+
+(define rax 'rax)
+
+;; Op1 -> Asm
+(define (compile-op1 p)
+  (match p
+    ['add1 (Add rax 1)]
+    ['sub1 (Sub rax 1)]))
+

langs/con/compile-stdin.rkt

@@ -0,0 +1,13 @@
+#lang racket
+(provide main)
+(require "parse.rkt")
+(require "compile.rkt")
+(require a86/printer)
+
+;; -> Void
+;; Compile contents of stdin,
+;; emit asm code on stdout
+(define (main)
+  (read-line) ; ignore #lang racket line
+  (asm-display (compile (parse (read)))))
+

langs/con/compile.rkt

@@ -0,0 +1,39 @@
+#lang racket
+(provide (all-defined-out))
+(require "ast.rkt")
+(require "compile-ops.rkt")
+(require a86/ast)
+
+(define rax 'rax)
+;; Expr -> Asm
+(define (compile e)  
+  (prog (Global 'entry)
+        (Label 'entry)
+        (compile-e e)
+	(Ret)))
+
+;; Expr -> Asm
+(define (compile-e e)
+  (match e
+    [(Lit i)     (seq (Mov rax i))]
+    [(Prim1 p e) (compile-prim1 p e)]
+    [(IfZero e1 e2 e3)
+     (compile-ifzero e1 e2 e3)]))
+
+;; Op1 Expr -> Asm
+(define (compile-prim1 p e)
+  (seq (compile-e e)
+       (compile-op1 p)))
+
+;; Expr Expr Expr -> Asm
+(define (compile-ifzero e1 e2 e3)
+  (let ((l1 (gensym 'ifz))
+        (l2 (gensym 'ifz)))
+    (seq (compile-e e1)
+         (Cmp rax 0)
+         (Jne l1)
+         (compile-e e2)
+         (Jmp l2)
+         (Label l1)
+         (compile-e e3)
+         (Label l2))))

langs/con/interp-prim.rkt

@@ -0,0 +1,9 @@
+#lang racket
+(provide interp-prim1)
+
+;; Op1 Integer -> Integer
+(define (interp-prim1 op i)
+  (match op
+    ['add1 (add1 i)]
+    ['sub1 (sub1 i)]))
+

langs/con/interp-stdin.rkt

@@ -0,0 +1,12 @@
+#lang racket
+(provide main)
+(require "parse.rkt")
+(require "interp.rkt")
+
+;; -> Void
+;; Parse and interpret contents of stdin,
+;; print result on stdout
+(define (main)
+  (read-line) ; ignore #lang racket line
+  (println (interp (parse (read)))))
+

langs/con/interp.rkt

@@ -0,0 +1,16 @@
+#lang racket
+(provide interp)
+(require "ast.rkt")
+(require "interp-prim.rkt")
+
+;; Expr -> Integer
+(define (interp e)
+  (match e
+    [(Lit i) i]
+    [(Prim1 p e) (interp-prim1 p (interp e))]
+    [(IfZero e1 e2 e3)
+     (if (zero? (interp e1))
+         (interp e2)
+         (interp e3))]))
+
+

langs/con/main.rkt

@@ -0,0 +1,13 @@
+#lang racket
+(require "ast.rkt")
+(require "parse.rkt")
+(require "interp.rkt")
+(require "compile.rkt")
+(require "run.rkt")
+(provide (all-from-out "ast.rkt"))
+(provide (all-from-out "parse.rkt"))
+(provide (all-from-out "interp.rkt"))
+(provide (all-from-out "compile.rkt"))
+(provide (all-from-out "run.rkt"))
+
+

langs/con/parse.rkt

@@ -0,0 +1,17 @@
+#lang racket
+(provide parse)
+(require "ast.rkt")
+
+;; S-Expr -> Expr
+(define (parse s)
+  (match s
+    [(? exact-integer?) (Lit s)]
+    [(list (? op1? o) e) (Prim1 o (parse e))]
+    ;; NEW:
+    [(list 'if (list 'zero? e1) e2 e3)
+     (IfZero (parse e1) (parse e2) (parse e3))]
+    [_ (error "Parse error")]))
+
+(define (op1? x)
+  (memq x '(add1 sub1)))
+

langs/con/run-stdin.rkt

@@ -0,0 +1,12 @@
+#lang racket
+(provide main)
+(require "parse.rkt")
+(require "compile.rkt")
+(require "run.rkt")
+
+;; -> Void
+;; Compile contents of stdin and use asm-interp to run
+(define (main)
+  (read-line) ; ignore #lang racket line
+  (run (compile (parse (read)))))
+