summaryrefslogtreecommitdiff
path: root/examples/multi
diff options
context:
space:
mode:
Diffstat (limited to 'examples/multi')
-rw-r--r--examples/multi/Food.gfm69
-rw-r--r--examples/multi/Koe.gfm12
2 files changed, 0 insertions, 81 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"} ;
-
-}
diff --git a/examples/multi/Koe.gfm b/examples/multi/Koe.gfm
deleted file mode 100644
index d8fed0e53..000000000
--- a/examples/multi/Koe.gfm
+++ /dev/null
@@ -1,12 +0,0 @@
--- baseline
-
-> langs Eng Swe Fin
-house ; hus ; talo
-car, automobile ; bil ; auto
-man ; man ; mies
-girl ; flicka, tjej ; tyttö
-technical university ; teknisk högskola ; teknillinen korkeakoulu
-
-
-
-