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.
23 lines
505 B
Racket
23 lines
505 B
Racket
6 years ago
|
#lang br/quicklang
|
||
|
|
(require brag/support racket/sequence)
|
||
|
|
|
||
|
|
(module+ reader
|
||
|
|
(provide read-syntax))
|
||
|
|
|
||
|
|
(define taco-lexer
|
||
|
|
(lexer
|
||
|
|
["(" "#"]
|
||
|
|
[")" "$"]
|
||
|
|
["taco" "%"]
|
||
|
|
[any-char (taco-lexer input-port)]))
|
||
|
|
|
||
|
|
(define (read-syntax src port)
|
||
|
|
(define toks (for/list ([tok (in-port taco-lexer port)])
|
||
|
|
tok))
|
||
|
|
(define parse-tree (string-join toks ""))
|
||
|
|
|
||
|
|
;; print result
|
||
|
|
(strip-context
|
||
|
|
(with-syntax ([PT parse-tree])
|
||
|
|
#'(module untaco racket
|
||
|
|
(display PT)))))
|