renames
parent
961d3f94de
commit
9014efcb53
@ -1,4 +1,4 @@
|
|||||||
#lang reader "bf-reader.rkt"
|
#lang reader "reader.rkt"
|
||||||
>++++++++++>>>+>+[>>>+[-[<<<<<[+<<<<<]>>[[-]>[<<+>+>-]
|
>++++++++++>>>+>+[>>>+[-[<<<<<[+<<<<<]>>[[-]>[<<+>+>-]
|
||||||
<[>+<-]<[>+<-[>+<-[>+<-[>+<-[>+<-[>+<-[>+<-[>+<-[>+<-
|
<[>+<-]<[>+<-[>+<-[>+<-[>+<-[>+<-[>+<-[>+<-[>+<-[>+<-
|
||||||
[>[-]>>>>+>+<<<<<<-[>+<-]]]]]]]]]]]>[<+>-]+>>>>>]<<<<<
|
[>[-]>>>>+>+<<<<<<-[>+<-]]]]]]]]]]]>[<+>-]+>>>>>]<<<<<
|
@ -1,4 +1,4 @@
|
|||||||
#lang reader "bf-reader.rkt"
|
#lang reader "reader.rkt"
|
||||||
++++++[>++++++++++++<-]>.
|
++++++[>++++++++++++<-]>.
|
||||||
>++++++++++[>++++++++++<-]>+.
|
>++++++++++[>++++++++++<-]>+.
|
||||||
+++++++..+++.>++++[>+++++++++++<-]>.
|
+++++++..+++.>++++[>+++++++++++<-]>.
|
@ -1,14 +1,14 @@
|
|||||||
#lang br/quicklang
|
#lang br/quicklang
|
||||||
(require "bf-parser.rkt")
|
(require "parser.rkt")
|
||||||
|
|
||||||
(define (read-syntax path port)
|
(define (read-syntax path port)
|
||||||
(define parse-tree (parse path (tokenize port)))
|
(define parse-tree (parse path (tokenize port)))
|
||||||
(define module-datum `(module bf-mod br/demo/bf/bf-expander
|
(define module-datum `(module bf-mod br/demo/bf/expander
|
||||||
,parse-tree))
|
,parse-tree))
|
||||||
(datum->syntax #f module-datum))
|
(datum->syntax #f module-datum))
|
||||||
(provide read-syntax)
|
(provide read-syntax)
|
||||||
|
|
||||||
(require parser-tools/lex brag/support)
|
(require parser-tools/lex)
|
||||||
(define (tokenize port)
|
(define (tokenize port)
|
||||||
(define (next-token)
|
(define (next-token)
|
||||||
(define our-lexer
|
(define our-lexer
|
Loading…
Reference in New Issue