1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
$01246
/*-------------------------------------------------------------------------
Test of TOKENS definition
----------------------------------------------------------------------------*/
COMPILER Test
CHARACTERS
letter = 'A'..'Z' + 'a'..'z'.
digit = '0'..'9'.
plus = '+'.
TOKENS
ident = letter {letter | digit}.
ident1 = letter {'_'} '*'.
ident2 = letter CONTEXT ({'_'} '+').
number = digit {digit}
| digit {digit} '.' {digit} ['E' ['+'|'-'] digit {digit}]
| digit {digit} CONTEXT ("..").
nul = '\0'.
hasNul = "ab\0c".
PRODUCTIONS
Test = ident "abc" "abc+" "a" "a_" "a__**" nul hasNul "\0".
END Test.
|
