Mercurial > ~dholland > hg > ag > index.cgi
comparison examples/fc/fc2.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 AnaGram Programming Examples | |
3 FC2: Multiple Fahrenheit-Celsius conversions with signed numbers | |
4 and error resynchronization. | |
5 | |
6 | |
7 Copyright 1993 Parsifal Software. All Rights Reserved. | |
8 | |
9 This software is provided 'as-is', without any express or implied | |
10 warranty. In no event will the authors be held liable for any damages | |
11 arising from the use of this software. | |
12 | |
13 Permission is granted to anyone to use this software for any purpose, | |
14 including commercial applications, and to alter it and redistribute it | |
15 freely, subject to the following restrictions: | |
16 | |
17 1. The origin of this software must not be misrepresented; you must not | |
18 claim that you wrote the original software. If you use this software | |
19 in a product, an acknowledgment in the product documentation would be | |
20 appreciated but is not required. | |
21 2. Altered source versions must be plainly marked as such, and must not be | |
22 misrepresented as being the original software. | |
23 3. This notice may not be removed or altered from any source distribution. | |
24 */ | |
25 | |
26 [ | |
27 test file mask = "*.fc2" // C1 | |
28 traditional engine /* turn this off for production use */ // C2 | |
29 ] | |
30 | |
31 eof = -1 | |
32 | |
33 grammar | |
34 -> [temperature, '\n']..., eof // P1 | |
35 | |
36 temperature | |
37 -> number:n, 'c' + 'C' ={ /* P2 */ | |
38 printf("%d\370F = %d\370C\n",9*n/5 + 32,n); | |
39 } | |
40 -> number:n, 'f' + 'F' ={ /* P3 */ | |
41 printf("%d\370F = %d\370C\n",n,5*(n-32)/9); | |
42 } | |
43 -> error // P4 | |
44 | |
45 (int) number | |
46 -> '-', integer:n =-n; // P5 | |
47 -> '+'?, integer:n =n; // P6 | |
48 | |
49 (int) integer | |
50 -> '0-9':d =d-'0'; // P7 | |
51 -> integer:n, '0-9':d =10*n+d-'0'; // P8 | |
52 |