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.
34 lines
1.0 KiB
Racket
34 lines
1.0 KiB
Racket
#lang racket/base
|
|
(require (only-in scribble/reader make-at-reader)
|
|
(only-in "../world.rkt" POLLEN_EXPRESSION_DELIMITER)
|
|
(only-in "../pollen-file-tools.rkt" preproc-source?))
|
|
|
|
(provide (rename-out [mb-read read]
|
|
[mb-read-syntax read-syntax])
|
|
read-inner
|
|
)
|
|
|
|
(define read-inner
|
|
(make-at-reader #:command-char POLLEN_EXPRESSION_DELIMITER
|
|
#:syntax? #t
|
|
#:inside? #t))
|
|
|
|
(define (mb-read p)
|
|
(syntax->datum
|
|
(mb-read-syntax (object-name p) p)))
|
|
|
|
(define (make-output-datum i)
|
|
`(module pollen-lang-module (planet mb/pollen)
|
|
,@i))
|
|
|
|
|
|
(define (mb-read-syntax path-string p)
|
|
(define i (read-inner path-string p))
|
|
(datum->syntax i
|
|
;; select pollen dialect based on file type
|
|
`(module pollen-lang-module ,(if (preproc-source? path-string)
|
|
'(planet mb/pollen/main-preproc)
|
|
'(planet mb/pollen/main))
|
|
,@i)
|
|
i))
|