uahgi2/parser-test.rkt

13 lines
No EOL
274 B
Racket

#lang br
(require uahgi2/parser uahgi2/tokenizer brag/support)
(define str #<<Here
{@set|@paperwidth|`2100}
{@set|@paperheight|`2970}
{@set|@textsize|`12.3}
{@maintext@@
{@hd2|我是貓 I'm a cat}天地人123
}
Here
)
(parse-to-datum (apply-tokenizer make-tokenizer str))