From a7aa8fb9812a204f0a1a984cb1d4c727761490ff Mon Sep 17 00:00:00 2001 From: bjorn Date: Thu, 14 Aug 2008 09:06:26 +0000 Subject: Added first version of the GF FastCGI server. --- src/server/grammar.pgf | 1 + 1 file changed, 1 insertion(+) create mode 100644 src/server/grammar.pgf (limited to 'src/server/grammar.pgf') diff --git a/src/server/grammar.pgf b/src/server/grammar.pgf new file mode 100644 index 000000000..5231c3366 --- /dev/null +++ b/src/server/grammar.pgf @@ -0,0 +1 @@ +(pgf 1 0 Food FoodEng FoodIta) (flags (coding "latin1") (startcat "Phrase")) (abstract (fun (Boring (Quality H X) Eq) (Cheese (Kind H X) Eq) (Delicious (Quality H X) Eq) (Expensive (Quality H X) Eq) (Fish (Kind H X) Eq) (Fresh (Quality H X) Eq) (Is (Phrase (H (_ (Item H X)) (_ (Quality H X))) X) Eq) (Italian (Quality H X) Eq) (QKind (Kind (H (_ (Quality H X)) (_ (Kind H X))) X) Eq) (That (Item (H (_ (Kind H X))) X) Eq) (This (Item (H (_ (Kind H X))) X) Eq) (Very (Quality (H (_ (Quality H X))) X) Eq) (Warm (Quality H X) Eq) (Wine (Kind H X) Eq)) (cat Float Int Item Kind Phrase Quality String)) (concrete (FoodEng (flags (coding "latin1")) (lin (Boring (R "boring")) (Cheese (R "cheese")) (Delicious (R "delicious")) (Expensive (R "expensive")) (Fish (R "fish")) (Fresh (R "fresh")) (Is (R (S _6 "is" _7))) (Italian (R "Italian")) (QKind (R (S _6 _7))) (That (R (S "that" _6))) (This (R (S "this" _6))) (Very (R (S "very" _6))) (Warm (R "warm")) (Wine (R "wine"))) (oper (_21 (R (A 0))) (_6 (P (A 0) 0)) (_7 (P (A 1) 0))) (lincat (Float (R S)) (Int (R S)) (Item (R S)) (Kind (R S)) (Phrase (R S)) (Quality (R S)) (String (R S))) (lindef (Item _21) (Kind _21) (Phrase _21) (Quality _21)) (printname (Boring "boring") (Cheese "cheese") (Delicious "delicious") (Expensive "expensive") (Fish "fish") (Fresh "fresh") (Is "Item_0++isQuality_1") (Italian "Italian") (Item "Item") (Kind "Kind") (Phrase "Phrase") (QKind "Quality_0Kind_1") (Quality "Quality") (That "thatKind_0") (This "thisKind_0") (Very "veryQuality_0") (Warm "warm") (Wine "wine")) (param (Float (R (P "s" S))) (Int (R (P "s" S))) (Item (R (P "s" S))) (Kind (R (P "s" S))) (Phrase (R (P "s" S))) (Quality (R (P "s" S))) (String (R (P "s" S)))) (parser (rules (rule Wine (cats 2) (R (S "wine"))) (rule Warm (cats 1) (R (S "warm"))) (rule (Very (_A 0)) (cats 1 1) (R (S "very" (P 0 0)))) (rule (This (_A 0)) (cats 4 2) (R (S "this" (P 0 0)))) (rule (That (_A 0)) (cats 4 2) (R (S "that" (P 0 0)))) (rule (QKind (_A 0) (_A 1)) (cats 2 1 2) (R (S (P 0 0) (P 1 0)))) (rule Italian (cats 1) (R (S "Italian"))) (rule (Is (_A 0) (_A 1)) (cats 3 4 1) (R (S (P 0 0) "is" (P 1 0)))) (rule Fresh (cats 1) (R (S "fresh"))) (rule Fish (cats 2) (R (S "fish"))) (rule Expensive (cats 1) (R (S "expensive"))) (rule Delicious (cats 1) (R (S "delicious"))) (rule Cheese (cats 2) (R (S "cheese"))) (rule Boring (cats 1) (R (S "boring")))) (startupcats (Float (neg 3)) (Int (neg 2)) (Item 4) (Kind 2) (Phrase 3) (Quality 1) (String (neg 1)) (_Var (neg 4))))) (FoodIta (flags (coding "latin1")) (lin (Boring (R "noioso")) (Cheese (R "formaggio")) (Delicious (R "delizioso")) (Expensive (R "caro")) (Fish (R "pesce")) (Fresh (R "fresco")) (Is (R (S _6 "è" _7))) (Italian (R "italiano")) (QKind (R (S _7 _6))) (That (R (S "quello" _6))) (This (R (S "questo" _6))) (Very (R (S "molto" _6))) (Warm (R "caldo")) (Wine (R "vino"))) (oper (_21 (R (A 0))) (_6 (P (A 0) 0)) (_7 (P (A 1) 0))) (lincat (Float (R S)) (Int (R S)) (Item (R S)) (Kind (R S)) (Phrase (R S)) (Quality (R S)) (String (R S))) (lindef (Item _21) (Kind _21) (Phrase _21) (Quality _21)) (printname (Boring "noioso") (Cheese "formaggio") (Delicious "delizioso") (Expensive "caro") (Fish "pesce") (Fresh "fresco") (Is "Item_0++èQuality_1") (Italian "italiano") (Item "Item") (Kind "Kind") (Phrase "Phrase") (QKind "Kind_1Quality_0") (Quality "Quality") (That "quelloKind_0") (This "questoKind_0") (Very "moltoQuality_0") (Warm "caldo") (Wine "vino")) (param (Float (R (P "s" S))) (Int (R (P "s" S))) (Item (R (P "s" S))) (Kind (R (P "s" S))) (Phrase (R (P "s" S))) (Quality (R (P "s" S))) (String (R (P "s" S)))) (parser (rules (rule Wine (cats 2) (R (S "vino"))) (rule Warm (cats 1) (R (S "caldo"))) (rule (Very (_A 0)) (cats 1 1) (R (S "molto" (P 0 0)))) (rule (This (_A 0)) (cats 4 2) (R (S "questo" (P 0 0)))) (rule (That (_A 0)) (cats 4 2) (R (S "quello" (P 0 0)))) (rule (QKind (_A 0) (_A 1)) (cats 2 1 2) (R (S (P 1 0) (P 0 0)))) (rule Italian (cats 1) (R (S "italiano"))) (rule (Is (_A 0) (_A 1)) (cats 3 4 1) (R (S (P 0 0) "è" (P 1 0)))) (rule Fresh (cats 1) (R (S "fresco"))) (rule Fish (cats 2) (R (S "pesce"))) (rule Expensive (cats 1) (R (S "caro"))) (rule Delicious (cats 1) (R (S "delizioso"))) (rule Cheese (cats 2) (R (S "formaggio"))) (rule Boring (cats 1) (R (S "noioso")))) (startupcats (Float (neg 3)) (Int (neg 2)) (Item 4) (Kind 2) (Phrase 3) (Quality 1) (String (neg 1)) (_Var (neg 4)))))) \ No newline at end of file -- cgit v1.2.3