|
|
@ -14,28 +14,28 @@
|
|
|
|
(λ (path-string p)
|
|
|
|
(λ (path-string p)
|
|
|
|
(define read-inner (make-at-reader
|
|
|
|
(define read-inner (make-at-reader
|
|
|
|
#:command-char (if (or (equal? reader-mode world:mode-template)
|
|
|
|
#:command-char (if (or (equal? reader-mode world:mode-template)
|
|
|
|
(and (string? path-string) (regexp-match (pregexp (format "\\.~a$" world:template-source-ext)) path-string)))
|
|
|
|
(and (string? path-string) (regexp-match (pregexp (format "\\.~a$" world:template-source-ext)) path-string)))
|
|
|
|
world:template-command-marker
|
|
|
|
world:template-command-marker
|
|
|
|
world:command-marker)
|
|
|
|
world:command-marker)
|
|
|
|
#:syntax? #t
|
|
|
|
#:syntax? #t
|
|
|
|
#: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 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
|
|
|
|
;; change the name of reader-here-path & reader-mode 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)
|
|
|
|
(prefix-out inner: reader-here-path)
|
|
|
|
(prefix-out inner: reader-here-path)
|
|
|
|
(prefix-out inner: reader-mode))
|
|
|
|
(prefix-out inner: reader-mode))
|
|
|
|
|
|
|
|
|
|
|
|
,(require+provide-project-require-files path-string)
|
|
|
|
,(require+provide-project-require-files path-string)
|
|
|
|
,@file-contents)
|
|
|
|
,@file-contents)
|
|
|
|
file-contents)))
|
|
|
|
file-contents)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define-syntax-rule (define+provide-reader-in-mode mode)
|
|
|
|
(define-syntax-rule (define+provide-reader-in-mode mode)
|
|
|
@ -43,4 +43,8 @@
|
|
|
|
(define reader-mode mode)
|
|
|
|
(define reader-mode mode)
|
|
|
|
(define custom-read-syntax (make-custom-read-syntax reader-mode))
|
|
|
|
(define custom-read-syntax (make-custom-read-syntax reader-mode))
|
|
|
|
(define custom-read (make-custom-read custom-read-syntax))
|
|
|
|
(define custom-read (make-custom-read custom-read-syntax))
|
|
|
|
(provide (rename-out [custom-read read] [custom-read-syntax read-syntax]))))
|
|
|
|
(define (get-info in mod line col pos)
|
|
|
|
|
|
|
|
(λ (key default)
|
|
|
|
|
|
|
|
(case key
|
|
|
|
|
|
|
|
[else default])))
|
|
|
|
|
|
|
|
(provide (rename-out [custom-read read] [custom-read-syntax read-syntax]) get-info)))
|