suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

The get-info protocol is used -- both in reading mode and as part of

Browse Source 
the compiled modules.  (Vacuously returning `#f' for now.)

svn: r15153
This commit is contained in:
Eli Barzilay 2009-06-12 14:42:05 +00:00
parent 81d8c97800
commit 50e9a86dbc
1 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
collects/syntax/module-reader.ss
View File

@ -45,7 +45,8 @@
(quasisyntax/loc stx
(#%module-begin
#,@body
(#%provide (rename lang:read read) (rename lang:read-syntax read-syntax))
(#%provide (rename lang:read read) (rename lang:read-syntax read-syntax)
read-properties get-info-getter get-info)
(define lang #,~lang)
(define rd #,~read)
(define rds #,~read-syntax)
@ -56,15 +57,32 @@
[else (lambda (in r _) (w2 in r))]))
(define whole? #,~whole-body-readers?)
(define (lang:read in modpath line col pos)
;; just read and discard them in this case
(read-properties in modpath line col pos)
(w2* in (lambda (in)
(wrap-internal lang in rd whole?
w1 #f modpath #f line col pos))
#f))
(define (lang:read-syntax src in modpath line col pos)
(w2* in (lambda (in)
(wrap-internal lang in (lambda (in) (rds src in)) whole?
w1 #t modpath src line col pos))
#t)))))
(define props (read-properties in modpath line col pos))
(syntax-property
(w2* in (lambda (in)
(wrap-internal lang in (lambda (in) (rds src in)) whole?
w1 #t modpath src line col pos))
#t)
'module-language
(vector (syntax->datum modpath) 'get-info-getter props)))
(define (read-properties in modpath line col pos)
;; !!! TODO
#f)
(define (get-info in modpath line col pos)
(get-info-getter (read-properties in modpath line col pos)))
(define (get-info-getter props)
(define (language-info what)
(case what
;; !!! TODO
[else #f]))
language-info))))
(syntax-case stx ()
[(_ lang body ...)
(not (keyword? (syntax-e #'lang)))