*** empty log message ***

original commit: 74b3651be73b004231f6d3cb2f24965e3d5f9de4
tokens
Scott Owens 22 years ago
parent 3cdae7d2b4
commit e3434d165f

@ -22,9 +22,9 @@
(define-lex-abbrevs
(letter (: (- "a" "z") (- "A" "Z")))
(digit (- "0" "9"))
(initial (: (letter) ! $ % & * / < = > ? ^ _ ~ @))
(subsequent (: (initial) (digit) + - #\. @))
(comment (@ /* (* (: (^ *) (@ * (^ /)))) */)))
(initial (: letter "!" "$" "%" "&" "*" "/" "<" "=" ">" "?" "^" "_" "~" "@"))
(subsequent (: initial digit "+" "-" "." "@"))
(comment (@ "/*" (* (: (^ "*") (@ "*" (^ "/")))) "*/")))
(define-empty-tokens x
(EOF PIPE |:| SEMI |%%| %prec))
@ -35,13 +35,13 @@
(lexer-src-pos
("%%" '|%%|)
((: ":") (string->symbol lexeme))
(%prec (string->symbol lexeme))
("%prec" (string->symbol lexeme))
(#\| 'PIPE)
((+ (: #\newline #\tab " " (comment) (@ "{" (* (^ "}")) "}"))) (return-without-pos (get-token-grammar input-port)))
((+ (: #\newline #\tab " " comment (@ "{" (* (^ "}")) "}"))) (return-without-pos (get-token-grammar input-port)))
(#\; 'SEMI)
(#\' (token-STRING (string->symbol (list->string (match-single-string input-port)))))
(#\" (token-STRING (string->symbol (list->string (match-double-string input-port)))))
((@ (initial) (* (subsequent))) (token-SYM (string->symbol lexeme)))))
((@ initial (* subsequent)) (token-SYM (string->symbol lexeme)))))
(define (parse-grammar enter-term enter-empty-term enter-non-term)
(parser

Loading…
Cancel
Save