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
700 B
Racket
23 lines
700 B
Racket
11 years ago
|
#lang racket/base
|
||
|
|
(require (only-in scribble/reader make-at-reader)
|
||
|
|
pollen/world)
|
||
|
|
|
||
|
|
(provide (all-defined-out))
|
||
|
|
|
||
|
|
(define read-inner
|
||
|
|
(make-at-reader #:command-char EXPRESSION_DELIMITER #:syntax? #t #:inside? #t))
|
||
|
|
|
||
|
|
(define (make-pollen-read pollen-read-syntax-proc)
|
||
|
|
(λ(p)
|
||
|
|
(syntax->datum
|
||
|
|
(pollen-read-syntax-proc (object-name p) p))))
|
||
|
|
|
||
|
|
(define (make-pollen-read-syntax reader-mode)
|
||
|
|
(λ (path-string p)
|
||
|
|
(define file-contents (read-inner path-string p))
|
||
|
|
(datum->syntax file-contents
|
||
|
|
`(module pollen-lang-module pollen
|
||
|
|
(define reader-mode ',reader-mode)
|
||
|
|
,@file-contents)
|
||
|
|
file-contents)))
|