crook

cmsc430 · Dec 2, 2024 · 576e4bc · 576e4bc
1 parent 7d0c696
commit 576e4bc
Show file tree

Hide file tree

Showing 40 changed files with 45 additions and 82 deletions.
diff --git a/blackmail/test/parse.rkt b/blackmail/test/parse.rkt
@@ -9,5 +9,6 @@
 (begin ; Abscond
   (check-equal? (parse 42) (p (Lit 42)))
   (check-equal? (parse -1) (p (Lit -1))))
-(check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42))))
+(begin ; Blackmail
+  (check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42)))))
 
diff --git a/con/parse.rkt b/con/parse.rkt
@@ -13,7 +13,6 @@
           [(list s1)
            (Prim1 o (parse s1))]
           [_ (error "op1: bad syntax" s)])]
-
        ['if
         (match sr
           [(list (list 'zero? s1) s2 s3)

diff --git a/con/test/parse.rkt b/con/test/parse.rkt
@@ -9,7 +9,9 @@
 (begin ; Abscond
   (check-equal? (parse 42) (p (Lit 42)))
   (check-equal? (parse -1) (p (Lit -1))))
-(check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42))))
-(check-equal? (parse '(if (zero? 1) 2 3))
-              (p (IfZero (Lit 1) (Lit 2) (Lit 3))))
+(begin ; Blackmail
+  (check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42)))))
+(begin ; Con
+  (check-equal? (parse '(if (zero? 1) 2 3))
+                (p (IfZero (Lit 1) (Lit 2) (Lit 3)))))
 
diff --git a/dodger/parse.rkt b/dodger/parse.rkt
@@ -13,7 +13,6 @@
           [(list s1)
            (Prim1 o (parse s1))]
           [_ (error "op1: bad syntax" s)])]
-
        ['if
         (match sr
           [(list s1 s2 s3)

diff --git a/dodger/test/parse.rkt b/dodger/test/parse.rkt
@@ -9,7 +9,8 @@
 (begin ; Abscond
   (check-equal? (parse 42) (p (Lit 42)))
   (check-equal? (parse -1) (p (Lit -1))))
-(check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42))))
+(begin ; Blackmail
+  (check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42)))))
 (begin ; Dupe
  (check-equal? (parse '(if (zero? 1) 2 3))
                (p (If (Prim1 'zero? (Lit 1)) (Lit 2) (Lit 3))))

diff --git a/dupe/parse.rkt b/dupe/parse.rkt
@@ -13,7 +13,6 @@
           [(list s1)
            (Prim1 o (parse s1))]
           [_ (error "op1: bad syntax" s)])]
-
        ['if
         (match sr
           [(list s1 s2 s3)

diff --git a/dupe/test/parse.rkt b/dupe/test/parse.rkt
@@ -9,7 +9,8 @@
 (begin ; Abscond
   (check-equal? (parse 42) (p (Lit 42)))
   (check-equal? (parse -1) (p (Lit -1))))
-(check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42))))
+(begin ; Blackmail
+  (check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42)))))
 (begin ; Dupe
  (check-equal? (parse '(if (zero? 1) 2 3))
                (p (If (Prim1 'zero? (Lit 1)) (Lit 2) (Lit 3))))

diff --git a/evildoer/parse.rkt b/evildoer/parse.rkt
@@ -23,7 +23,6 @@
           [(list s1 s2)
            (Begin (parse s1) (parse s2))]
           [_ (error "begin: bad syntax" s)])]
-
        ['if
         (match sr
           [(list s1 s2 s3)

diff --git a/evildoer/test/parse.rkt b/evildoer/test/parse.rkt
@@ -9,7 +9,8 @@
 (begin ; Abscond
   (check-equal? (parse 42) (p (Lit 42)))
   (check-equal? (parse -1) (p (Lit -1))))
-(check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42))))
+(begin ; Blackmail
+  (check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42)))))
 (begin ; Dupe
  (check-equal? (parse '(if (zero? 1) 2 3))
                (p (If (Prim1 'zero? (Lit 1)) (Lit 2) (Lit 3))))

diff --git a/extort/parse.rkt b/extort/parse.rkt
@@ -23,7 +23,6 @@
           [(list s1 s2)
            (Begin (parse s1) (parse s2))]
           [_ (error "begin: bad syntax" s)])]
-
        ['if
         (match sr
           [(list s1 s2 s3)

diff --git a/extort/test/parse.rkt b/extort/test/parse.rkt
@@ -9,7 +9,8 @@
 (begin ; Abscond
   (check-equal? (parse 42) (p (Lit 42)))
   (check-equal? (parse -1) (p (Lit -1))))
-(check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42))))
+(begin ; Blackmail
+  (check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42)))))
 (begin ; Dupe
  (check-equal? (parse '(if (zero? 1) 2 3))
                (p (If (Prim1 'zero? (Lit 1)) (Lit 2) (Lit 3))))

diff --git a/fraud/compile-stdin.rkt b/fraud/compile-stdin.rkt
@@ -9,6 +9,5 @@
 ;; emit asm code on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (asm-display (compile
-                        (parse-closed (read)))))
+  (asm-display (compile (parse-closed (read)))))
 
diff --git a/fraud/interp-stdin.rkt b/fraud/interp-stdin.rkt
@@ -8,6 +8,5 @@
 ;; print result on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (println (interp
-                   (parse-closed (read)))))
+  (println (interp (parse-closed (read)))))
 
diff --git a/fraud/test/parse.rkt b/fraud/test/parse.rkt
@@ -9,7 +9,8 @@
 (begin ; Abscond
   (check-equal? (parse 42) (p (Lit 42)))
   (check-equal? (parse -1) (p (Lit -1))))
-(check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42))))
+(begin ; Blackmail
+  (check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42)))))
 (begin ; Dupe
  (check-equal? (parse '(if (zero? 1) 2 3))
                (p (If (Prim1 'zero? (Lit 1)) (Lit 2) (Lit 3))))

diff --git a/hoax/assert.rkt b/hoax/assert.rkt
@@ -22,13 +22,8 @@
 
 ;; Register -> Asm
 
-
 (define assert-char
   (assert-type mask-char type-char))
-
-
-
-
 (define assert-box
   (assert-type ptr-mask type-box))
 (define assert-cons

diff --git a/hoax/compile-stdin.rkt b/hoax/compile-stdin.rkt
@@ -9,6 +9,5 @@
 ;; emit asm code on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (asm-display (compile
-                        (parse-closed (read)))))
+  (asm-display (compile (parse-closed (read)))))
 
diff --git a/hoax/interp-stdin.rkt b/hoax/interp-stdin.rkt
@@ -8,6 +8,5 @@
 ;; print result on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (println (interp
-                   (parse-closed (read)))))
+  (println (interp (parse-closed (read)))))
 
diff --git a/hoax/test/parse.rkt b/hoax/test/parse.rkt
@@ -9,7 +9,8 @@
 (begin ; Abscond
   (check-equal? (parse 42) (p (Lit 42)))
   (check-equal? (parse -1) (p (Lit -1))))
-(check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42))))
+(begin ; Blackmail
+  (check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42)))))
 (begin ; Dupe
  (check-equal? (parse '(if (zero? 1) 2 3))
                (p (If (Prim1 'zero? (Lit 1)) (Lit 2) (Lit 3))))

diff --git a/hustle/assert.rkt b/hustle/assert.rkt
@@ -21,13 +21,8 @@
 
 ;; Register -> Asm
 
-
 (define assert-char
   (assert-type mask-char type-char))
-
-
-
-
 (define assert-box
   (assert-type ptr-mask type-box))
 (define assert-cons

diff --git a/hustle/compile-stdin.rkt b/hustle/compile-stdin.rkt
@@ -9,6 +9,5 @@
 ;; emit asm code on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (asm-display (compile
-                        (parse-closed (read)))))
+  (asm-display (compile (parse-closed (read)))))
 
diff --git a/hustle/interp-stdin.rkt b/hustle/interp-stdin.rkt
@@ -8,6 +8,5 @@
 ;; print result on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (println (interp
-                   (parse-closed (read)))))
+  (println (interp (parse-closed (read)))))
 
diff --git a/hustle/test/parse.rkt b/hustle/test/parse.rkt
@@ -9,7 +9,8 @@
 (begin ; Abscond
   (check-equal? (parse 42) (p (Lit 42)))
   (check-equal? (parse -1) (p (Lit -1))))
-(check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42))))
+(begin ; Blackmail
+  (check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42)))))
 (begin ; Dupe
  (check-equal? (parse '(if (zero? 1) 2 3))
                (p (If (Prim1 'zero? (Lit 1)) (Lit 2) (Lit 3))))

diff --git a/iniquity/assert.rkt b/iniquity/assert.rkt
@@ -22,13 +22,8 @@
 
 ;; Register -> Asm
 
-
 (define assert-char
   (assert-type mask-char type-char))
-
-
-
-
 (define assert-box
   (assert-type ptr-mask type-box))
 (define assert-cons

diff --git a/iniquity/compile-stdin.rkt b/iniquity/compile-stdin.rkt
@@ -10,6 +10,5 @@
 ;; emit asm code on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (asm-display (compile
-                        (apply parse-closed (read-all)))))
+  (asm-display (compile (apply parse-closed (read-all)))))
 
diff --git a/iniquity/interp-stdin.rkt b/iniquity/interp-stdin.rkt
@@ -9,6 +9,5 @@
 ;; print result on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (println (interp
-                   (apply parse-closed (read-all)))))
+  (println (interp (apply parse-closed (read-all)))))
 
diff --git a/iniquity/test/parse.rkt b/iniquity/test/parse.rkt
@@ -9,7 +9,8 @@
 (begin ; Abscond
   (check-equal? (parse 42) (p (Lit 42)))
   (check-equal? (parse -1) (p (Lit -1))))
-(check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42))))
+(begin ; Blackmail
+  (check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42)))))
 (begin ; Dupe
  (check-equal? (parse '(if (zero? 1) 2 3))
                (p (If (Prim1 'zero? (Lit 1)) (Lit 2) (Lit 3))))

diff --git a/jig/assert.rkt b/jig/assert.rkt
@@ -22,13 +22,8 @@
 
 ;; Register -> Asm
 
-
 (define assert-char
   (assert-type mask-char type-char))
-
-
-
-
 (define assert-box
   (assert-type ptr-mask type-box))
 (define assert-cons

diff --git a/jig/compile-stdin.rkt b/jig/compile-stdin.rkt
@@ -10,6 +10,5 @@
 ;; emit asm code on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (asm-display (compile
-                        (apply parse-closed (read-all)))))
+  (asm-display (compile (apply parse-closed (read-all)))))
 
diff --git a/jig/interp-stdin.rkt b/jig/interp-stdin.rkt
@@ -9,6 +9,5 @@
 ;; print result on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (println (interp
-                   (apply parse-closed (read-all)))))
+  (println (interp (apply parse-closed (read-all)))))
 
diff --git a/jig/test/parse.rkt b/jig/test/parse.rkt
@@ -9,7 +9,8 @@
 (begin ; Abscond
   (check-equal? (parse 42) (p (Lit 42)))
   (check-equal? (parse -1) (p (Lit -1))))
-(check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42))))
+(begin ; Blackmail
+  (check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42)))))
 (begin ; Dupe
  (check-equal? (parse '(if (zero? 1) 2 3))
                (p (If (Prim1 'zero? (Lit 1)) (Lit 2) (Lit 3))))

diff --git a/knock/assert.rkt b/knock/assert.rkt
@@ -22,13 +22,8 @@
 
 ;; Register -> Asm
 
-
 (define assert-char
   (assert-type mask-char type-char))
-
-
-
-
 (define assert-box
   (assert-type ptr-mask type-box))
 (define assert-cons

diff --git a/knock/compile-stdin.rkt b/knock/compile-stdin.rkt
@@ -10,6 +10,5 @@
 ;; emit asm code on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (asm-display (compile
-                        (apply parse-closed (read-all)))))
+  (asm-display (compile (apply parse-closed (read-all)))))
 
diff --git a/knock/interp-stdin.rkt b/knock/interp-stdin.rkt
@@ -9,6 +9,5 @@
 ;; print result on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (println (interp
-                   (apply parse-closed (read-all)))))
+  (println (interp (apply parse-closed (read-all)))))
 
diff --git a/knock/parse.rkt b/knock/parse.rkt
@@ -1,6 +1,5 @@
 #lang racket
-(provide parse parse-closed parse-e parse-define
-         parse-pattern)
+(provide parse parse-closed parse-e parse-define parse-pattern)
 (require "ast.rkt")
 
 ;; [Listof S-Expr] -> Prog

diff --git a/knock/test/parse.rkt b/knock/test/parse.rkt
@@ -9,7 +9,8 @@
 (begin ; Abscond
   (check-equal? (parse 42) (p (Lit 42)))
   (check-equal? (parse -1) (p (Lit -1))))
-(check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42))))
+(begin ; Blackmail
+  (check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42)))))
 (begin ; Dupe
  (check-equal? (parse '(if (zero? 1) 2 3))
                (p (If (Prim1 'zero? (Lit 1)) (Lit 2) (Lit 3))))

diff --git a/loot/assert.rkt b/loot/assert.rkt
@@ -23,13 +23,8 @@
 
 ;; Register -> Asm
 
-
 (define assert-char
   (assert-type mask-char type-char))
-
-
-
-
 (define assert-box
   (assert-type ptr-mask type-box))
 (define assert-cons

diff --git a/loot/compile-stdin.rkt b/loot/compile-stdin.rkt
@@ -10,6 +10,5 @@
 ;; emit asm code on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (asm-display (compile
-                        (apply parse-closed (read-all)))))
+  (asm-display (compile (apply parse-closed (read-all)))))
 
diff --git a/loot/interp-stdin.rkt b/loot/interp-stdin.rkt
@@ -9,6 +9,5 @@
 ;; print result on stdout
 (define (main)
   (read-line) ; ignore #lang racket line
-  (println (interp
-                   (apply parse-closed (read-all)))))
+  (println (interp (apply parse-closed (read-all)))))
 
diff --git a/loot/parse.rkt b/loot/parse.rkt
@@ -1,6 +1,5 @@
 #lang racket
-(provide parse parse-closed parse-e parse-define
-         parse-pattern)
+(provide parse parse-closed parse-e parse-define parse-pattern)
 (require "ast.rkt")
 
 ;; [Listof S-Expr] -> Prog

diff --git a/loot/test/parse.rkt b/loot/test/parse.rkt
@@ -9,7 +9,8 @@
 (begin ; Abscond
   (check-equal? (parse 42) (p (Lit 42)))
   (check-equal? (parse -1) (p (Lit -1))))
-(check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42))))
+(begin ; Blackmail
+  (check-equal? (parse '(add1 42)) (p (Prim1 'add1 (Lit 42)))))
 (begin ; Dupe
  (check-equal? (parse '(if (zero? 1) 2 3))
                (p (If (Prim1 'zero? (Lit 1)) (Lit 2) (Lit 3))))