File: TestTokens1.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 (28 lines) | stat: -rw-r--r-- 905 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
27
28
$01246
/*-------------------------------------------------------------------------
Test of TOKENS definition (error case)
----------------------------------------------------------------------------*/
COMPILER Test

CHARACTERS
  letter  = 'A'..'Z' + 'a'..'z'.
  digit   = '0'..'9'.

TOKENS
  ident  = letter {letter | digit}.
  ident1 = letter {digit} letter.  /* tokens ident and ident1 cannot be distinguished */
  number = digit {digit} | digit {digit} CONTEXT("..").
	B1 = '\a'.
	B2 = '\u0007'.  /* tokens B1 and B2 cannot be distinguished */
	C1 = "\u0008".
	C2 = "\b".      /* tokens C1 and C2 cannot be distinguished */
	S1 = "+" "+".
	S2 = "++".      /* tokens S1 and S2 cannot be distinguished */
	S3 = '+' '+'.   /* tokens S1 and S3 cannot be distinguished */
	X1 = "123..".   /* tokens number and X1 cannot be distinguished */

PRODUCTIONS

Test = ident.

END Test.