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

syntax coloring for #lang

Browse Source 
svn: r7352
This commit is contained in:
Matthew Flatt 2007-09-16 01:01:33 +00:00
parent 73bb2227a8
commit ba2e1da9ab
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -41,6 +41,8 @@
[digit10 digit] [digit10 digit]
[digit16 (:/ "af" "AF" "09")] [digit16 (:/ "af" "AF" "09")]
[langchar (:or (:/ "az" "AZ" "09") "+" "-" "_")]
[scheme-whitespace (:or #\newline #\return #\tab #\space #\vtab #\page)] [scheme-whitespace (:or #\newline #\return #\tab #\space #\vtab #\page)]
[line-comment (:: ";" (:* (:~ #\newline)))] [line-comment (:: ";" (:* (:~ #\newline)))]
@ -287,6 +289,14 @@
(ret lexeme 'constant #f start-pos end-pos)] (ret lexeme 'constant #f start-pos end-pos)]
[(:or sharing reader-command "." "," ",@" "#," "#,@") [(:or sharing reader-command "." "," ",@" "#," "#,@")
(ret lexeme 'other #f start-pos end-pos)] (ret lexeme 'other #f start-pos end-pos)]
[(:: "#lang "
(:or langchar
(:: langchar (:* (:or langchar "/")) langchar)))
(ret lexeme 'other #f start-pos end-pos)]
[(:: "#lang " (:* (:& any-char (complement whitespace))))
(ret lexeme 'error #f start-pos end-pos)]
[identifier [identifier
(ret lexeme 'symbol #f start-pos end-pos)] (ret lexeme 'symbol #f start-pos end-pos)]
["#<<" ["#<<"