Complete compiler can compile itself (but crashes when run).

Author: dvanhorn

langs/outlaw/compile-stdin.rkt

@@ -1,5 +1,5 @@
 #lang racket
-(require "parse.rkt" "compile.rkt" "read-all.rkt" "a86/printer.rkt")
+(require "stdlib.rkt" "parse.rkt" "compile.rkt" "read-all.rkt" "a86/printer.rkt")
 (provide main)
 
 ;; -> Void

langs/outlaw/compile.rkt

@@ -58,17 +58,18 @@
   '(list list* make-list list? foldr map filter length append append*
          memq member append-map vector->list
          reverse
-         number->string gensym read read-char
+         number->string gensym read read-char peek-char
          > <= >=
          void?
          list->string string->list
-         char<=?
+         char<=? char=?
          remove-duplicates remq* remove* remove
          andmap vector list->vector boolean?
          substring odd?
          system-type ;; hard-coded
          not findf
          read-line
+         exact->inexact / expt string->keyword ; unimplemented
          ;; Op0
          read-byte peek-byte void
          ;; Op1

langs/outlaw/read.rkt

@@ -1,6 +1,6 @@
 #lang racket
 (provide read)
-(require "stdlib.rkt")
+(require "stdlib.rkt" "utils.rkt")
 ;(require (only-in "stdlib.rkt" read-char))
 
 ;; read.rkt
@@ -673,23 +673,3 @@
 
 (define (unimplemented x)
   (err (string-append "unimplemented: " x)))
-
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Multipliers
-
-(define (*2 a)
-   (arithmetic-shift a 1))
-
-(define (*8 a)
-   (arithmetic-shift a 3))
-
-(define (*16 a)
-   (arithmetic-shift a 4))
-
-(define (*10 a) ; 10a=2^3a+2a
-  (+ (arithmetic-shift a 1)
-     (arithmetic-shift a 3)))
-
-(define (*64 a)
-  (arithmetic-shift a 6))

langs/outlaw/stdlib.rkt

@@ -1,7 +1,7 @@
 #lang racket
 (provide list list* make-list list? map foldr filter length append append*
          memq member append-map vector->list
-         number->string gensym read read-char
+         number->string gensym read read-char peek-char
          > <= >= void?
          char<=? char=?
          list->string string->list

langs/outlaw/utils.rkt

@@ -1,5 +1,5 @@
 #lang racket
-(provide symbol->label symbol->data-label lookup pad-stack unpad-stack *8)
+(provide symbol->label symbol->data-label lookup pad-stack unpad-stack *2 *8 *10 *16 *64)
 (require "a86/ast.rkt" "registers.rkt")
 
 ;; Symbol -> Label
@@ -49,5 +49,22 @@
 (define (unpad-stack)
   (seq (Add rsp r15)))
 
-(define (*8 n)
-  (arithmetic-shift n 3))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Multipliers
+
+(define (*2 a)
+   (arithmetic-shift a 1))
+
+(define (*8 a)
+   (arithmetic-shift a 3))
+
+(define (*16 a)
+   (arithmetic-shift a 4))
+
+(define (*10 a) ; 10a=2^3a+2a
+  (+ (arithmetic-shift a 1)
+     (arithmetic-shift a 3)))
+
+(define (*64 a)
+  (arithmetic-shift a 6))