File: TestTokens.ATG

package info (click to toggle)
coco-doc 20060919-2
  • links: PTS
  • area: main
  • in suites: buster, etch, etch-m68k, jessie, jessie-kfreebsd, lenny, squeeze, stretch, wheezy
  • size: 852 kB
  • sloc: makefile: 27
file content (26 lines) | stat: -rw-r--r-- 679 bytes parent folder | download | duplicates (3) 
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.