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

add get-info function to Pollen reader for better compatibility with DrRacket

Browse Source
pull/27/head
Matthew Butterick 10 years ago
parent 8f922f197b
commit 74ae614b55
1 changed files with 23 additions and 19 deletions
Show Stats Download Patch File Download Diff File

42
reader-base.rkt
Unescape Escape View File

@ -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)))
Write Preview
Loading…
Cancel
Save