9 lines
No EOL
247 B
Racket
9 lines
No EOL
247 B
Racket
#lang br
|
|
(require "lexer.rkt" brag/support rackunit)
|
|
|
|
(define (lex str)
|
|
(apply-port-proc uahgi2-lexer str))
|
|
|
|
(lex "@a123")
|
|
(lex "{@_a12|foo|123.12}123abc\\@\\{mn̂g他@@愛@@貓，也愛這塊土地%註解%。這也是%%。")
|
|
(lex "|測試}abc") |