comparison tests/agcl/parsifal/pex1.syn @ 0:13d2b8934445

Import AnaGram (near-)release tree into Mercurial.
author David A. Holland
date Sat, 22 Dec 2007 17:52:45 -0500
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:13d2b8934445
1 [
2 case sensitive = off
3 disregard white space
4 ]
5
6 space = ' ' + '\t'
7
8 white space
9 -> space
10 -> comment
11
12 while head
13 -> "!while" =whileConditionPointer= PCB.pointer;
14
15 while terminator
16 -> "!endw" | "!endwhile"
17
18 while body text
19 -> [~eof - space, ~eof?...], while body terminator =whileCompletePointer = PCB.pointer, PCB.pointer = whileConditionPointer;
20
21 true while condition, false while condition
22 -> expression:x ={
23 if (x) return;
24 CHANGE_REDUCTION(true_while_condition);
25 PCB.pointer = whileCompletePointer;
26 }
27
28 while loop $
29 -> while head, while body text, while iteration?..., false while condition
30
31 while iteration
32 -> true while condition, while body, while body terminator =PCB.pointer = whileConditionPointer;