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.
pollen/lang/reader.rkt

34 lines
1.0 KiB
Racket

#lang racket/base
(require (only-in scribble/reader make-at-reader)
(only-in "../world.rkt" EXPRESSION_DELIMITER)
(only-in "../file-tools.rkt" preproc-source? unsaved-source?))
(provide (rename-out [mb-read read]
[mb-read-syntax read-syntax])
read-inner
)
(define read-inner
(make-at-reader #:command-char 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 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 (or (preproc-source? path-string) (unsaved-source? path-string))
'pollen/main-preproc
'pollen/main)
,@i)
i))