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

Fix reading of entire buffer, not just the first element.

Browse Source 
svn: r7790
This commit is contained in:
Sam Tobin-Hochstadt 2007-11-20 20:17:59 +00:00
parent 8ca7abe46c
commit 53926bee23
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/planet/lang/reader.ss
View File

@ -19,10 +19,10 @@
(raise-syntax-error 'read "bad version number pair"))
(values
`(planet "lang/main.ss"
(,owner
,pkgname
,@(if maj `(,maj) '())
,@(if min `(,min) '())))
(,owner
,pkgname
,@(if maj `(,maj) '())
,@(if min `(,min) '())))
(spec->read-data
`(planet "lang/reader.ss"
(,owner
@ -30,19 +30,26 @@
,@(if maj `(,maj) '())
,@(if min `(,min) '())))))))))
(define (wrap port spec body)
(let* ([p-name (object-name port)]
(define (wrap port spec read)
(let* ([body
(let loop ([a null])
(let ([v (read port)])
(if (eof-object? v)
(reverse a)
(loop (cons v a)))))]
[p-name (object-name port)]
[name (if (path? p-name)
(let-values ([(base name dir?) (split-path p-name)])
(string->symbol (path->string (path-replace-suffix name #""))))
'page)])
`(module ,name ,spec
,body)))
. ,body)))
(define (planet-read [inp (current-input-port)])
(define-values (spec r) (planet-read-fn inp (λ (spec) (dynamic-require spec 'read))))
(wrap inp spec (r inp)))
(wrap inp spec r))
(define (planet-read-syntax [src #f] [inp (current-input-port)])
(define-values (spec r) (planet-read-fn inp (λ (spec) (dynamic-require spec 'read-syntax))))
(wrap inp spec (r src inp)))
(wrap inp spec (lambda (p) (r src p))))