diff options
| author | aarne <aarne@chalmers.se> | 2010-12-01 08:10:23 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-12-01 08:10:23 +0000 |
| commit | 9b6f775b760883b49fd9c56580f22dc5933a7d2a (patch) | |
| tree | ed7f628348e20076daca1db519ceccaecea96115 /examples/multi/Food.gfm | |
| parent | acfa9722e262cc94a486373288c94b27dbbf7ba0 (diff) | |
documentation in gfm-format examples (dir renamed from multi)
Diffstat (limited to 'examples/multi/Food.gfm')
| -rw-r--r-- | examples/multi/Food.gfm | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/examples/multi/Food.gfm b/examples/multi/Food.gfm deleted file mode 100644 index 12a47949a..000000000 --- a/examples/multi/Food.gfm +++ /dev/null @@ -1,69 +0,0 @@ --- baseline - -> langs Eng Ita - -abstract Food = { - - cat - Phrase ; Item ; Kind ; Quality ; - - flags startcat = Phrase ; - - fun - Is : Item -> Quality -> Phrase ; - This, That : Kind -> Item ; - QKind : Quality -> Kind -> Kind ; - Wine, Cheese, Fish : Kind ; - Very : Quality -> Quality ; - Fresh, Warm, Italian, Expensive, Delicious, Boring : Quality ; - -} - -concrete FoodEng of Food = { - - - lincat - Phrase, Item, Kind, Quality = {s : Str} ; - - lin - Is item quality = {s = item.s ++ "is" ++ quality.s} ; - This kind = {s = "this" ++ kind.s} ; - That kind = {s = "that" ++ kind.s} ; - QKind quality kind = {s = quality.s ++ kind.s} ; - Wine = {s = "wine"} ; - Cheese = {s = "cheese"} ; - Fish = {s = "fish"} ; - Very quality = {s = "very" ++ quality.s} ; - Fresh = {s = "fresh"} ; - Warm = {s = "warm"} ; - Italian = {s = "Italian"} ; - Expensive = {s = "expensive"} ; - Delicious = {s = "delicious"} ; - Boring = {s = "boring"} ; - -} - -concrete FoodIta of Food = { - - flags coding = utf8 ; - - lincat - Phrase, Item, Kind, Quality = {s : Str} ; - - lin - Is item quality = {s = item.s ++ "รจ" ++ quality.s} ; - This kind = {s = "questo" ++ kind.s} ; - That kind = {s = "quel" ++ kind.s} ; - QKind quality kind = {s = kind.s ++ quality.s} ; - Wine = {s = "vino"} ; - Cheese = {s = "formaggio"} ; - Fish = {s = "pesce"} ; - Very quality = {s = "molto" ++ quality.s} ; - Fresh = {s = "fresco"} ; - Warm = {s = "caldo"} ; - Italian = {s = "italiano"} ; - Expensive = {s = "caro"} ; - Delicious = {s = "delizioso"} ; - Boring = {s = "noioso"} ; - -} |
