zybino/old-code/lexer.rkt

#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)