/usr/share/doc/coco-doc/examples/TestTokens.ATG is in coco-doc 20060919-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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.
|