mbutterick
/
pollen
3
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

make exports visible as top-level identifiers in REPL

Browse Source
pull/27/head
Matthew Butterick 11 years ago
parent 74ae614b55
commit e311d4e362
2 changed files with 44 additions and 43 deletions
Show Stats Download Patch File Download Diff File

33
main-base.rkt
Unescape Escape View File

@ -34,25 +34,14 @@
(require 'inner)
;; if reader-here-path is undefined, it will become a proc courtesy of #%top
;; therefore that's how we can detect if it's undefined
(define here-path (if (procedure? inner:reader-here-path) "anonymous-module" inner:reader-here-path))
;; set the parser mode based on reader mode
;; todo: this won't work with inline submodules
;; in an inline module, reader-here-path and parser-mode are undefined
;; (because there's no reader)
;; but they'll become tag functions courtesy of #%top
;; so that's how we can detect if they are undefined
(define here-path
(if (procedure? inner:reader-here-path) "anonymous-module" inner:reader-here-path))
(define parser-mode
(if (not (procedure? inner:reader-mode))
(if (equal? inner:reader-mode world:mode-auto)
(let* ([file-ext-pattern (pregexp "\\w+$")]
[here-ext (string->symbol (car (regexp-match file-ext-pattern 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]))
inner:reader-mode)
mode-arg))
(if (procedure? inner:parser-mode) mode-arg inner:parser-mode))
;; Split out the metas.
@ -106,10 +95,4 @@
(provide metas doc
;; hide the exports that were only for internal use.
(except-out (all-from-out 'inner) doc-raw #%top))
;; for output in DrRacket
(module+ main
(if (or (equal? parser-mode world:mode-preproc) (equal? parser-mode world:mode-template))
(display doc)
(print doc)))))]))))]))
(except-out (all-from-out 'inner) doc-raw #%top))))]))))]))

26
reader-base.rkt
Unescape Escape View File

@ -21,20 +21,38 @@
#:inside? #t))
(define file-contents (read-inner path-string p))
(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-here-path ,(cond
[(symbol? path-string) (symbol->string path-string)]
[(equal? path-string "unsaved editor") 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
(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-mode))
(prefix-out inner: reader-mode)
(prefix-out inner: parser-mode))
,(require+provide-project-require-files path-string)
,@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)))

Write Preview
Loading…
Cancel
Save