mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-28 22:12:51 -06:00
21 lines
557 B
Plaintext
21 lines
557 B
Plaintext
concrete FoodsMon of Foods = open ResFoodsMon in {
|
|
flags coding=utf8;
|
|
|
|
lincat
|
|
Phrase = {s : Str} ;
|
|
Quality = Adjective ;
|
|
Kind = Noun ;
|
|
Item = NounPhrase ;
|
|
|
|
lin
|
|
Pred item quality = {s = item.s ++ "бол"++ quality.s} ;
|
|
This = det Sg "энэ" ;
|
|
These = det Pl "эдгээр" ;
|
|
Mod quality kind = {s = \\n => quality.s ++ kind.s ! n} ;
|
|
Wine = regNoun "дарс" ;
|
|
Cheese = regNoun "бяслаг" ;
|
|
Very adj = {s = "маш" ++ adj.s} ;
|
|
Fresh = mkAdj "шинэ" ;
|
|
Expensive = mkAdj "үнэтэй" ;
|
|
}
|