mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
34 lines
1.1 KiB
Plaintext
34 lines
1.1 KiB
Plaintext
--# -path=.:alltenses
|
|
|
|
concrete FoodsTha of Foods = open SyntaxTha, LexiconTha,
|
|
ParadigmsTha, (R=ResTha) in {
|
|
|
|
flags coding = utf8 ;
|
|
|
|
lincat
|
|
Comment = Utt ;
|
|
Item = NP ;
|
|
Kind = CN ;
|
|
Quality = AP ;
|
|
|
|
lin
|
|
Pred item quality = mkUtt (mkCl item quality) ;
|
|
This kind = mkNP this_Det kind ;
|
|
That kind = mkNP that_Det kind ;
|
|
These kind = mkNP these_Det kind ;
|
|
Those kind = mkNP those_Det kind ;
|
|
Mod quality kind = mkCN quality kind ;
|
|
Very quality = mkAP very_AdA quality ;
|
|
Wine = mkCN (mkN (R.thword "เหล้าอ" "งุ่น") "ขวด") ;
|
|
Pizza = mkCN (mkN (R.thword "พิซ" "ซา") "ถาด") ;
|
|
Cheese = mkCN (mkN (R.thword "เนย" "แข็ง") "ก้อน") ;
|
|
Fish = mkCN fish_N ;
|
|
Fresh = mkAP (mkA "สด") ;
|
|
Warm = mkAP warm_A ;
|
|
Italian = mkAP (mkA " อิตาลี") ;
|
|
Expensive = mkAP (mkA "แพง") ;
|
|
Delicious = mkAP (mkA "อร่อย") ;
|
|
Boring = mkAP (mkA (R.thword "น่า" "เบิ่อ")) ;
|
|
|
|
}
|