haskal
/
racket-kaitai
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add missing :or

This commit is contained in:
xenia 2020-09-09 03:59:03 -04:00
parent 347c22d8b2
commit e035dcd1fd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
kaitai/expr.rkt
View File

@ -33,8 +33,8 @@
(:? (:: "." (:* (:or numeric "_"))))
(:? (:: (char-set "eE") (:? (char-set "+-")) (:+ (:or numeric "_"))))))
(token-number (kaitai-numstr->number lexeme))]
[(:or (:: "'" (:* (:- any-char "'") "\\'") "'")
(:: "\"" (:* (:- any-char "\"") "\\\"") "\""))
[(:or (:: "'" (:* (:or (:- any-char "'") "\\'")) "'")
(:: "\"" (:* (:or (:- any-char "\"") "\\\"")) "\""))
(token-string (kaitai-subst-string lexeme))]
[whitespace (kaitai-lexer input-port)]
["+" (token-+)]
@ -69,7 +69,7 @@
(token-identifier lexeme)]
[(eof) (token-eof)]))
(let ([input (open-input-string "_root._io.size.to_i & 0x08000000 != 0 + code == block_type::int32 ? 4 : 8")])
(let ([input (open-input-string "_root._io.size.to_i & 0x08000000 != 'abc\\'c' 0 + code == block_type::int32 ? 4 : 8")])
(let loop ()
(match (kaitai-lexer input)
[(? (curry equal? (token-eof))) (void)]