mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
44 lines
1.3 KiB
Plaintext
44 lines
1.3 KiB
Plaintext
-- (c) 2009 Aarne Ranta under LGPL
|
|
|
|
concrete FoodsEng of Foods = {
|
|
flags language = en_US;
|
|
lincat
|
|
Comment, Quality = {s : Str} ;
|
|
Kind = {s : Number => Str} ;
|
|
Item = {s : Str ; n : Number} ;
|
|
lin
|
|
Pred item quality =
|
|
{s = item.s ++ copula ! item.n ++ quality.s} ;
|
|
This = det Sg "this" ;
|
|
That = det Sg "that" ;
|
|
These = det Pl "these" ;
|
|
Those = det Pl "those" ;
|
|
Mod quality kind =
|
|
{s = \\n => quality.s ++ kind.s ! n} ;
|
|
Wine = regNoun "wine" ;
|
|
Cheese = regNoun "cheese" ;
|
|
Fish = noun "fish" "fish" ;
|
|
Pizza = regNoun "pizza" ;
|
|
Very a = {s = "very" ++ a.s} ;
|
|
Fresh = adj "fresh" ;
|
|
Warm = adj "warm" ;
|
|
Italian = adj "Italian" ;
|
|
Expensive = adj "expensive" ;
|
|
Delicious = adj "delicious" ;
|
|
Boring = adj "boring" ;
|
|
param
|
|
Number = Sg | Pl ;
|
|
oper
|
|
det : Number -> Str ->
|
|
{s : Number => Str} -> {s : Str ; n : Number} =
|
|
\n,det,noun -> {s = det ++ noun.s ! n ; n = n} ;
|
|
noun : Str -> Str -> {s : Number => Str} =
|
|
\man,men -> {s = table {Sg => man ; Pl => men}} ;
|
|
regNoun : Str -> {s : Number => Str} =
|
|
\car -> noun car (car + "s") ;
|
|
adj : Str -> {s : Str} =
|
|
\cold -> {s = cold} ;
|
|
copula : Number => Str =
|
|
table {Sg => "is" ; Pl => "are"} ;
|
|
}
|