|
|
@ -21,20 +21,38 @@
|
|
|
|
#:inside? #t))
|
|
|
|
#:inside? #t))
|
|
|
|
(define file-contents (read-inner path-string p))
|
|
|
|
(define file-contents (read-inner path-string p))
|
|
|
|
(datum->syntax file-contents
|
|
|
|
(datum->syntax file-contents
|
|
|
|
`(module pollen-lang-module pollen
|
|
|
|
`(module repl-wrapper racket/base
|
|
|
|
|
|
|
|
(module pollen-lang-module pollen
|
|
|
|
(define reader-mode ',reader-mode)
|
|
|
|
(define reader-mode ',reader-mode)
|
|
|
|
(define reader-here-path ,(cond
|
|
|
|
(define reader-here-path ,(cond
|
|
|
|
[(symbol? path-string) (symbol->string path-string)]
|
|
|
|
[(symbol? path-string) (symbol->string path-string)]
|
|
|
|
[(equal? path-string "unsaved editor") path-string]
|
|
|
|
[(equal? path-string "unsaved editor") path-string]
|
|
|
|
[else (path->string path-string)]))
|
|
|
|
[else (path->string path-string)]))
|
|
|
|
;; change the name of reader-here-path & reader-mode for local use
|
|
|
|
(define parser-mode
|
|
|
|
|
|
|
|
(if (equal? reader-mode world:mode-auto)
|
|
|
|
|
|
|
|
(let* ([file-ext-pattern (pregexp "\\w+$")]
|
|
|
|
|
|
|
|
[here-ext (string->symbol (car (regexp-match file-ext-pattern reader-here-path)))])
|
|
|
|
|
|
|
|
(cond
|
|
|
|
|
|
|
|
[(equal? here-ext world:pagetree-source-ext) world:mode-pagetree]
|
|
|
|
|
|
|
|
[(equal? here-ext world:markup-source-ext) world:mode-markup]
|
|
|
|
|
|
|
|
[(equal? here-ext world:markdown-source-ext) world:mode-markdown]
|
|
|
|
|
|
|
|
[else world:mode-preproc]))
|
|
|
|
|
|
|
|
reader-mode))
|
|
|
|
|
|
|
|
;; change names of exports for local use
|
|
|
|
;; so they don't conflict if this source is imported into another
|
|
|
|
;; so they don't conflict if this source is imported into another
|
|
|
|
(provide (except-out (all-defined-out) reader-here-path reader-mode)
|
|
|
|
(provide (except-out (all-defined-out) reader-here-path reader-mode parser-mode)
|
|
|
|
(prefix-out inner: reader-here-path)
|
|
|
|
(prefix-out inner: reader-here-path)
|
|
|
|
(prefix-out inner: reader-mode))
|
|
|
|
(prefix-out inner: reader-mode)
|
|
|
|
|
|
|
|
(prefix-out inner: parser-mode))
|
|
|
|
|
|
|
|
|
|
|
|
,(require+provide-project-require-files path-string)
|
|
|
|
,(require+provide-project-require-files path-string)
|
|
|
|
,@file-contents)
|
|
|
|
,@file-contents)
|
|
|
|
|
|
|
|
(require 'pollen-lang-module)
|
|
|
|
|
|
|
|
(provide (all-from-out 'pollen-lang-module))
|
|
|
|
|
|
|
|
(module+ main
|
|
|
|
|
|
|
|
(if (or (equal? inner:parser-mode world:mode-preproc) (equal? inner:parser-mode world:mode-template))
|
|
|
|
|
|
|
|
(display doc)
|
|
|
|
|
|
|
|
(print doc))))
|
|
|
|
file-contents)))
|
|
|
|
file-contents)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|