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

Honu: merging fix to Honu interactions window into trunk.

Browse Source 
svn: r1969
This commit is contained in:
Carl Eastlund 2006-01-25 20:58:25 +00:00
parent 211b053f74
commit 98e601e72b
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/honu/tool.ss
View File

@ -7,6 +7,7 @@
(lib "class.ss")
(lib "list.ss" "srfi" "1")
(lib "match.ss")
(lib "port.ss")
"parsers/lex.ss"
"parsers/parse.ss"
"private/typechecker/type-utils.ss"
@ -100,7 +101,8 @@
;; InputPort HonuSetting TeachpackCache -> (-> (Union Syntax EOF))
;; Produces a thunk which compiles and returns a Honu definition when one
;; is available on the input port, or EOF when none are left.
(define/public (front-end/complete-program port settings teachpack-cache)
(define/public (front-end/complete-program original-port settings teachpack-cache)
(define port (single-stream-port original-port))
(reset-evaluation!)
(lambda ()
(if (eof-object? (peek-char-or-special port))
@ -124,7 +126,8 @@
;; InputPort HonuSetting TeachpackCache -> (-> (Union Syntax EOF))
;; Produces a thunk which compiles and returns a Honu expression or definition
;; when one is available on the input port, or EOF when none are left.
(define/public (front-end/interaction port settings teachpack-cache)
(define/public (front-end/interaction original-port settings teachpack-cache)
(define port (single-stream-port original-port))
(lambda ()
(if (eof-object? (peek-char-or-special port))
eof
@ -343,4 +346,16 @@
(not (= open-braces 0))
(not (= open-curlies 0))
is-empty?))))
;; single-stream-port : InputPort -> InputPort
;; Consumes an arbitrary input port.
;; Produces a port which produces the same data as its input
;; up to EOF, then produces EOF constantly.
(define (single-stream-port port)
(let*-values ([(in-port out-port)
(make-pipe #f (object-name port) (object-name port))])
(copy-port port out-port)
(close-output-port out-port)
in-port))
)))))