diff options
Diffstat (limited to 'doc/tutorial/FoodsEng.gf')
| -rw-r--r-- | doc/tutorial/FoodsEng.gf | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/doc/tutorial/FoodsEng.gf b/doc/tutorial/FoodsEng.gf new file mode 100644 index 000000000..1899c0e96 --- /dev/null +++ b/doc/tutorial/FoodsEng.gf @@ -0,0 +1,35 @@ +--# -path=.:prelude + +concrete FoodsEng of Foods = open Prelude, MorphoEng in { + + lincat + S, Quality = SS ; + Kind = {s : Number => Str} ; + Item = {s : Str ; n : Number} ; + + lin + Is item quality = ss (item.s ++ (mkVerb "are" "is").s ! item.n ++ quality.s) ; + This = det Sg "this" ; + That = det Sg "that" ; + All = det Pl "all" ; + Most = det Pl "most" ; + QKind quality kind = {s = \\n => quality.s ++ kind.s ! n} ; + Wine = regNoun "wine" ; + Cheese = regNoun "cheese" ; + Fish = mkNoun "fish" "fish" ; + Very = prefixSS "very" ; + Fresh = ss "fresh" ; + Warm = ss "warm" ; + Italian = ss "Italian" ; + Expensive = ss "expensive" ; + Delicious = ss "delicious" ; + Boring = ss "boring" ; + + oper + det : Number -> Str -> Noun -> {s : Str ; n : Number} = \n,d,cn -> { + s = d ++ cn.s ! n ; + n = n + } ; + +} +
\ No newline at end of file |