Merge branch 'ziggy' of github.com:cmsc430/www into ziggy

Author: dvanhorn

langs/abscond/ast.rkt

@@ -0,0 +1,6 @@
+#lang racket
+(provide Lit)
+
+;; type Expr = (Lit Integer)
+
+(struct Lit (i) #:prefab)

langs/abscond/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/abscond/compile.rkt

@@ -0,0 +1,19 @@
+#lang racket
+(provide (all-defined-out))
+(require "ast.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))]))
+

langs/abscond/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/abscond/interp.rkt

@@ -0,0 +1,10 @@
+#lang racket
+(provide interp)
+(require "ast.rkt")
+
+;; Expr -> Integer
+(define (interp e)
+  (match e
+    [(Lit i) i]))
+
+

langs/abscond/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/abscond/parse.rkt

@@ -0,0 +1,9 @@
+#lang racket
+(provide parse)
+(require "ast.rkt")
+
+;; S-Expr -> Expr
+(define (parse s)
+  (match s
+    [(? exact-integer?) (Lit s)]
+    [_ (error "Parse error")]))

langs/abscond/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)))))
+

langs/abscond/run.rkt

@@ -0,0 +1,8 @@
+#lang racket
+(require a86/interp)
+(provide run)
+
+;; Asm -> Integer
+(define (run is)
+  (asm-interp is))
+

langs/abscond/test/compile.rkt

@@ -0,0 +1,8 @@
+#lang racket
+(require "../compile.rkt")
+(require "../parse.rkt")
+(require "../run.rkt")
+(require "test-runner.rkt")
+
+(test (λ (e) (run (compile (parse e)))))
+