uahgi2/parser-test.rkt

15 lines
311 B
Racket
Raw Normal View History

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