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

syntax coloring for prefabs

Browse Source 
svn: r9229
This commit is contained in:
Matthew Flatt 2008-04-10 00:22:38 +00:00
parent 589850b998
commit 4c14045c5d
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/syntax-color/scheme-lexer.ss
View File

@ -134,8 +134,9 @@
[reader-command (:or (:: "#" c s) (:: "#" c i))] [reader-command (:or (:: "#" c s) (:: "#" c i))]
[sharing (:or (:: "#" (make-uinteger digit10) "=") [sharing (:or (:: "#" (make-uinteger digit10) "=")
(:: "#" (make-uinteger digit10) "#"))]) (:: "#" (make-uinteger digit10) "#"))]
[list-prefix (:or "" "#hash" "#hasheq" "#s" (:: "#" (:* digit10)))])
(define-lex-trans make-num (define-lex-trans make-num
(syntax-rules () (syntax-rules ()
@ -278,11 +279,11 @@
["#|" (read-nested-comment 1 start-pos input-port)] ["#|" (read-nested-comment 1 start-pos input-port)]
[script [script
(ret lexeme 'comment #f start-pos end-pos)] (ret lexeme 'comment #f start-pos end-pos)]
[(:: (:or "" "#hash" "#hasheq" (:: "#" (:* digit10))) "(") [(:: list-prefix "(")
(ret lexeme 'parenthesis '|(| start-pos end-pos)] (ret lexeme 'parenthesis '|(| start-pos end-pos)]
[(:: (:or "" "#hash" "#hasheq" (:: "#" (:* digit10))) "[") [(:: list-prefix "[")
(ret lexeme 'parenthesis '|[| start-pos end-pos)] (ret lexeme 'parenthesis '|[| start-pos end-pos)]
[(:: (:or "" "#hash" "#hasheq" (:: "#" (:* digit10))) "{") [(:: list-prefix "{")
(ret lexeme 'parenthesis '|{| start-pos end-pos)] (ret lexeme 'parenthesis '|{| start-pos end-pos)]
[(:or ")" "]" "}") [(:or ")" "]" "}")
(ret lexeme 'parenthesis (string->symbol lexeme) start-pos end-pos)] (ret lexeme 'parenthesis (string->symbol lexeme) start-pos end-pos)]