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

Adjusted the module-reader to handler editor objects as object-names of ports.

Browse Source 
svn: r10470
This commit is contained in:
Danny Yoo 2008-06-27 03:26:44 +00:00
parent ca7188be1e
commit e16ba1b779
1 changed files with 37 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,7 @@
(module module-reader scheme/base (module module-reader scheme/base
(require scheme/class)
(provide (rename-out [provide-module-reader #%module-begin] (provide (rename-out [provide-module-reader #%module-begin]
[wrap wrap-read-all])) [wrap wrap-read-all]))
@ -25,11 +27,21 @@
(reverse a) (reverse a)
(loop (cons v a)))))]) (loop (cons v a)))))])
(let* ([p-name (object-name port)] (let* ([p-name (object-name port)]
[name (if (path? p-name) [p-name
(cond [(and (object? p-name)
(method-in-interface? 'get-port-name (object-interface p-name)))
(send p-name get-port-name)]
[(and (object? p-name)
(method-in-interface? 'get-filename (object-interface p-name)))
(send p-name get-filename)]
[else p-name])]
[name (cond
[(path? p-name)
(let-values ([(base name dir?) (split-path p-name)]) (let-values ([(base name dir?) (split-path p-name)])
(string->symbol (string->symbol
(path->string (path-replace-suffix name #"")))) (path->string (path-replace-suffix name #""))))]
'page)] [else
'page])]
[tag-src (lambda (v) [tag-src (lambda (v)
(if (syntax? modpath) (if (syntax? modpath)
(datum->syntax #f (datum->syntax #f