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

Added #px alongside #rx.

Browse Source 
svn: r4712
This commit is contained in:
Scott Owens 2006-10-30 11:28:18 +00:00
parent 20761b8589
commit cc711703af
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -71,9 +71,9 @@
(:: "#\\" (:/ "0" "3") digit8))] (:: "#\\" (:/ "0" "3") digit8))]
;; What about byte string regexp strings ;; What about byte string regexp strings
[str (:or (:: (:? "#rx") "\"" (:* string-element (:: "\\" unicode)) "\"") [str (:or (:: (:? (:or "#px" "#rx")) "\"" (:* string-element (:: "\\" unicode)) "\"")
byte-str)] byte-str)]
[byte-str (:: (:? "#rx") "#\"" (:* string-element) "\"")] [byte-str (:: (:? (:or "#px" "#rx")) "#\"" (:* string-element) "\"")]
[string-element (:or (:~ "\"" "\\") [string-element (:or (:~ "\"" "\\")
"\\\"" "\\\""
"\\\\" "\\\\"
@ -90,7 +90,7 @@
(:: "\\x" (:** 1 2 digit16)) (:: "\\x" (:** 1 2 digit16))
(:: "\\" #\newline))] (:: "\\" #\newline))]
[bad-str (:: (:? "#rx") (:? "#") "\"" [bad-str (:: (:? (:or "#px" "#rx")) (:? "#") "\""
(:* (:~ "\"" "\\") (:* (:~ "\"" "\\")
(:: "\\" any-char)) (:: "\\" any-char))
(:? "\\" "\""))] (:? "\\" "\""))]