You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
- #lang br
- (require brag/support)
-
- (define-lex-abbrev digits (:+ (char-set "0123456789")))
-
- (define-lex-abbrev reserved-terms (:or "LD" ","))
-
- (define-lex-abbrev register-terms (:or "A" "B" "C" "D" "E" "F" "H" "L"))
-
- (define basic-lexer
- (lexer-srcloc
- ["\n" (token 'NEWLINE lexeme)]
- [whitespace (token lexeme #:skip? #t)]
- [reserved-terms (token lexeme lexeme)]
- [register-terms (token 'REGISTER-ID (string->symbol lexeme))]
- [digits (token 'U8-NUMBER (string->number lexeme))]))
-
- (provide basic-lexer)
|