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

restore highlighting

Browse Source 
svn: r8856
This commit is contained in:
Kathy Gray 2008-03-03 16:24:51 +00:00
parent 9283d92264
commit 547092db4c
2 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/profj/parser.ss
View File

@ -14,7 +14,7 @@
(require (all-except parser-tools/lex input-port)
syntax/readerr
(lib "force.ss" "lazy"))
)
(provide parse parse-interactions parse-expression parse-type parse-name lex-stream)
;function to lex in the entire port
@ -40,8 +40,7 @@
(if (new-parser?)
(lambda ()
(printf "Syntax error detected~n")
(let ([result (!!! (parser lexed loc))])
#;(printf "~a~n" result)
(let ([result (parser lexed loc)])
(if (list? result)
(raise-read-error (cadr result)
(car (car result))

18
collects/profj/tool.ss
View File

@ -597,7 +597,7 @@
(let ((end? (eof-object? (peek-char-or-special port))))
(if end?
eof
(datum->syntax #f `(parse-java-full-program ,(parse port (quote name) level)
(datum->syntax #f `(parse-java-full-program ,(parse port (get-defn-editor name) #;(quote name) level)
,name) #f)))))))
(define/public (front-end/interaction port settings)
(mred? #t)
@ -615,7 +615,21 @@
,(parse-interactions port name level))
`(parse-java-interactions ,(parse-interactions port name level) ,name)
#f)))))))
(define (get-defn-editor port-name)
(let* ([dr-frame (send (drscheme:rep:current-rep) get-top-level-window)]
[tabs (and dr-frame (send dr-frame get-tabs))]
[defs (if dr-frame
(map (lambda (t) (send t get-defs)) tabs)
null)]
[def (filter (lambda (d)
(and (is-a? d drscheme:unit:definitions-text<%>)
(send d port-name-matches? port-name)))
defs)])
(and dr-frame
(= 1 (length def))
(car def))))
;process-extras: (list struct) type-record -> (list syntax)
(define/private (process-extras extras type-recs)
(cond