From e0ab0660f6cdb503ed3e432ba198dd72fa6b4536 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 8 Apr 2016 18:31:31 -0700
Subject: [PATCH] touchups

---
 br-bf/{bf-test-sexp.rkt => bf-hash-sexp.rkt} |  0
 br-bf/{bf-test.rkt => bf-hash.rkt}           |  0
 br-bf/expander.rkt                           | 26 --------------------
 br-bf/fib.rkt                                | 12 ---------
 br-bf/parser-test.rkt                        |  4 ---
 br-bf/reader.rkt                             | 10 --------
 6 files changed, 52 deletions(-)
 rename br-bf/{bf-test-sexp.rkt => bf-hash-sexp.rkt} (100%)
 rename br-bf/{bf-test.rkt => bf-hash.rkt} (100%)
 delete mode 100644 br-bf/expander.rkt
 delete mode 100644 br-bf/fib.rkt
 delete mode 100644 br-bf/parser-test.rkt
 delete mode 100644 br-bf/reader.rkt

diff --git a/br-bf/bf-test-sexp.rkt b/br-bf/bf-hash-sexp.rkt
similarity index 100%
rename from br-bf/bf-test-sexp.rkt
rename to br-bf/bf-hash-sexp.rkt
diff --git a/br-bf/bf-test.rkt b/br-bf/bf-hash.rkt
similarity index 100%
rename from br-bf/bf-test.rkt
rename to br-bf/bf-hash.rkt
diff --git a/br-bf/expander.rkt b/br-bf/expander.rkt
deleted file mode 100644
index 2871c7a..0000000
--- a/br-bf/expander.rkt
+++ /dev/null
@@ -1,26 +0,0 @@
-#lang br
-(provide (rename-out [bf-module-begin #%module-begin])
-         #%top-interaction bf-program op loop)
-
-(define #'bf-module-begin #'#%module-begin)
-
-(define #'(bf-program <op-or-loop> ...)
-  #'(begin <op-or-loop> ...))
-
-(define-cases #'op
-  [#'(_ ">") #'(move-pointer 1)]
-  [#'(_ "<") #'(move-pointer -1)]
-  [#'(_ "+") #'(set-pointer-byte! (add1 (get-pointer-byte)))]
-  [#'(_ "-") #'(set-pointer-byte! (sub1 (get-pointer-byte)))]
-  [#'(_ ".") #'(write-byte (get-pointer-byte))]
-  [#'(_ ",") #'(set-pointer-byte! (read-byte))])
-
-(define #'(loop "[" <op-or-loop> ... "]")
-  #'(until (zero? (get-pointer-byte))
-           <op-or-loop> ...))
-
-(define bf-vector (make-vector 1000 0))
-(define bf-pointer 0)
-(define (get-pointer-byte) (vector-ref bf-vector bf-pointer))
-(define (set-pointer-byte! val) (vector-set! bf-vector bf-pointer val))
-(define (move-pointer how-far) (set! bf-pointer (+ bf-pointer how-far)))
\ No newline at end of file
diff --git a/br-bf/fib.rkt b/br-bf/fib.rkt
deleted file mode 100644
index b1e61dc..0000000
--- a/br-bf/fib.rkt
+++ /dev/null
@@ -1,12 +0,0 @@
-#lang br-bf
-+++++++++++
->+>>>>++++++++++++++++++++++++++++++++++++++++++++
->++++++++++++++++++++++++++++++++<<<<<<[>[>>>>>>+>
-+<<<<<<<-]>>>>>>>[<<<<<<<+>>>>>>>-]<[>++++++++++[-
-<-[>>+>+<<<-]>>>[<<<+>>>-]+<[>[-]<[-]]>[<<[>>>+<<<
--]>>[-]]<<]>>>[>>+>+<<<-]>>>[<<<+>>>-]+<[>[-]<[-]]
->[<<+>>[-]]<<<<<<<]>>>>>[+++++++++++++++++++++++++
-+++++++++++++++++++++++.[-]]++++++++++<[->-<]>++++
-++++++++++++++++++++++++++++++++++++++++++++.[-]<<
-<<<<<<<<<<[>>>+>+<<<<-]>>>>[<<<<+>>>>-]<-[>>.>.<<<
-[-]]<<[>>+>+<<<-]>>>[<<<+>>>-]<<[<+>-]>[<+>-]<<<-]
\ No newline at end of file
diff --git a/br-bf/parser-test.rkt b/br-bf/parser-test.rkt
deleted file mode 100644
index 4325329..0000000
--- a/br-bf/parser-test.rkt
+++ /dev/null
@@ -1,4 +0,0 @@
-#lang racket
-(require "tokenizer.rkt" "parser.rkt" ragg/support)
-
-(syntax->datum (parse (tokenize (open-input-string "[+-]>"))))
\ No newline at end of file
diff --git a/br-bf/reader.rkt b/br-bf/reader.rkt
deleted file mode 100644
index b80844d..0000000
--- a/br-bf/reader.rkt
+++ /dev/null
@@ -1,10 +0,0 @@
-#lang ragg
-
-<expr> : ">"
-       | "<" 
-       | "+" 
-       | "-" 
-       | "." 
-       | "," 
-       | <loop>
-<loop> : "["<expr>*"]"
\ No newline at end of file