mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
49 lines
1.3 KiB
Plaintext
49 lines
1.3 KiB
Plaintext
-- (c) 2009 Julia Hammar under LGPL
|
|
|
|
concrete FoodsEpo of Foods = open Prelude in {
|
|
|
|
flags coding =utf8 ;
|
|
|
|
lincat
|
|
Comment = SS ;
|
|
Kind, Quality = {s : Number => Str} ;
|
|
Item = {s : Str ; n : Number} ;
|
|
|
|
lin
|
|
Pred item quality = ss (item.s ++ copula ! item.n ++ quality.s ! item.n) ;
|
|
This = det Sg "ĉi tiu" ;
|
|
That = det Sg "tiu" ;
|
|
These = det Pl "ĉi tiuj" ;
|
|
Those = det Pl "tiuj" ;
|
|
Mod quality kind = {s = \\n => quality.s ! n ++ kind.s ! n} ;
|
|
Wine = regNoun "vino" ;
|
|
Cheese = regNoun "fromaĝo" ;
|
|
Fish = regNoun "fiŝo" ;
|
|
Pizza = regNoun "pico" ;
|
|
Very quality = {s = \\n => "tre" ++ quality.s ! n} ;
|
|
Fresh = regAdj "freŝa" ;
|
|
Warm = regAdj "varma" ;
|
|
Italian = regAdj "itala" ;
|
|
Expensive = regAdj "altekosta" ;
|
|
Delicious = regAdj "bongusta" ;
|
|
Boring = regAdj "enuiga" ;
|
|
|
|
param
|
|
Number = Sg | Pl ;
|
|
|
|
oper
|
|
det : Number -> Str -> {s : Number => Str} -> {s : Str ; n : Number} =
|
|
\n,d,cn -> {
|
|
s = d ++ cn.s ! n ;
|
|
n = n
|
|
} ;
|
|
regNoun : Str -> {s : Number => Str} =
|
|
\vino -> {s = table {Sg => vino ; Pl => vino + "j"}
|
|
} ;
|
|
regAdj : Str -> {s : Number => Str} =
|
|
\nova -> {s = table {Sg => nova ; Pl => nova + "j"}
|
|
} ;
|
|
copula : Number => Str = \\_ => "estas" ;
|
|
}
|
|
|