You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
beautiful-racket/beautiful-racket-demo/taco-compiler-demo/main.rkt

30 lines
670 B
Racket

#lang br/quicklang
(module+ reader
(provide read-syntax))
(define (tokenize ip)
(for/list ([tok (in-port read-char ip)])
tok))
(define (parse src toks)
(for/list ([tok (in-list toks)])
(define int (char->integer tok))
(for/list ([bit (in-range 7)])
(if (bitwise-bit-set? int bit)
'taco
null))))
(define (read-syntax src ip)
(define toks (tokenize ip))
(define parse-tree (parse src toks))
(strip-bindings
(with-syntax ([PT parse-tree])
#'(module tacofied taco-compiler-demo
PT))))
(define-macro (mb PT)
#'(#%module-begin
(for-each displayln 'PT)))
(provide (rename-out [mb #%module-begin]))