summaryrefslogtreecommitdiff
path: root/toks.m
blob: 1906c1cbef53628c16c2e986becb2b606593af3c (plain)
1
2
3
4
5
6
7
8
9
tok ::= ID [char] posn | CHAR char posn
posn == (num,num)

analyse =
%lex
letter = `a-z\xfff\&A-Z-`
letter+ -> ID $$ $#
. -> CHAR (hd $$) $#
%%