Mercurial > ~dholland > hg > ag > index.cgi
diff examples/fc/fc1.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 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/examples/fc/fc1.syn Sat Dec 22 17:52:45 2007 -0500 @@ -0,0 +1,33 @@ +/* + AnaGram Programming Examples + FC1: Simple Fahrenheit to Celsius conversion + + + Copyright 1993 Parsifal Software. All Rights Reserved. + + This software is provided 'as-is', without any express or implied + warranty. In no event will the authors be held liable for any damages + arising from the use of this software. + + Permission is granted to anyone to use this software for any purpose, + including commercial applications, and to alter it and redistribute it + freely, subject to the following restrictions: + + 1. The origin of this software must not be misrepresented; you must not + claim that you wrote the original software. If you use this software + in a product, an acknowledgment in the product documentation would be + appreciated but is not required. + 2. Altered source versions must be plainly marked as such, and must not be + misrepresented as being the original software. + 3. This notice may not be removed or altered from any source distribution. +*/ + +grammar + -> integer:f, '\n' ={ + printf("%d\370F = %d\370C\n",f,5*(f-32)/9); + } + +(int) integer + -> '0-9':d =d-'0'; + -> integer:n, '0-9':d =10*n+d-'0'; +