ND
Size: a a a
ND
ND
A
A
ВБ
Aß
ВБ
[(lex-ci "not") (token-NOT lexeme )]в лексере. запихать макрос в лексер можно через define-lex-trans.
[(lex-ci "and") (token-AND1 lexeme )]
(define-lex-trans test
(lambda (stx)
(syntax-case stx ()
((_ (value id ...))
(with-syntax ([(added ...)
(map (lambda (token-value)
(let [(token (first token-value))
(id (second token-value))]
(datum->syntax
(list (list 'lex-ci token)
(list (string->symbol (string-append "token" "-" (symbol->string id))))))))
(syntax->datum #'(value ...)))]
#'added))))))
ВБ
Aß
Aß
AZ
b⛅
Aß
Aß
Aß
Aß
Aß
Aß
Aß