mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-06 17:52:51 -06:00
new Foods grammars: Fre by Hissu Hyvärinen and Spa by Maarit Koponen
This commit is contained in:
32
contrib/summerschool/foods/FoodsFre.gf
Normal file
32
contrib/summerschool/foods/FoodsFre.gf
Normal file
@@ -0,0 +1,32 @@
|
|||||||
|
--# -path=.:../foods:present
|
||||||
|
|
||||||
|
concrete FoodsFre of Foods = open SyntaxFre, ParadigmsFre 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_QuantSg kind ;
|
||||||
|
That kind = mkNP that_QuantSg kind ;
|
||||||
|
These kind = mkNP these_QuantPl kind ;
|
||||||
|
Those kind = mkNP those_QuantPl kind ;
|
||||||
|
Mod quality kind = mkCN quality kind ;
|
||||||
|
Very quality = mkAP very_AdA quality ;
|
||||||
|
|
||||||
|
Wine = mkCN (mkN "vin" masculine) ;
|
||||||
|
Pizza = mkCN (mkN "pizza" feminine) ;
|
||||||
|
Cheese = mkCN (mkN "fromage" masculine) ;
|
||||||
|
Fish = mkCN (mkN "poisson" masculine) ;
|
||||||
|
Fresh = mkAP (mkA "frais" "fraîche" "frais" "fraîchement") ;
|
||||||
|
Warm = mkAP (mkA "chaud") ;
|
||||||
|
Italian = mkAP (mkA "italien") ;
|
||||||
|
Expensive = mkAP (mkA "cher") ;
|
||||||
|
Delicious = mkAP (mkA "délicieux") ;
|
||||||
|
Boring = mkAP (mkA "ennuyeux") ;
|
||||||
|
}
|
||||||
31
contrib/summerschool/foods/FoodsSpa.gf
Normal file
31
contrib/summerschool/foods/FoodsSpa.gf
Normal file
@@ -0,0 +1,31 @@
|
|||||||
|
--# -path=.:present
|
||||||
|
|
||||||
|
concrete FoodsSpa of Foods = open SyntaxSpa, StructuralSpa, ParadigmsSpa in {
|
||||||
|
|
||||||
|
lincat
|
||||||
|
Comment = Utt ;
|
||||||
|
Item = NP ;
|
||||||
|
Kind = CN ;
|
||||||
|
Quality = AP ;
|
||||||
|
|
||||||
|
lin
|
||||||
|
Pred item quality = mkUtt (mkCl item quality) ;
|
||||||
|
This kind = mkNP this_QuantSg kind ;
|
||||||
|
That kind = mkNP that_QuantSg kind ;
|
||||||
|
These kind = mkNP these_QuantPl kind ;
|
||||||
|
Those kind = mkNP those_QuantPl kind ;
|
||||||
|
Mod quality kind = mkCN quality kind ;
|
||||||
|
Very quality = mkAP very_AdA quality ;
|
||||||
|
Wine = mkCN (mkN "vino") ;
|
||||||
|
Pizza = mkCN (mkN "pizza") ;
|
||||||
|
Cheese = mkCN (mkN "queso") ;
|
||||||
|
Fish = mkCN (mkN "pescado") ;
|
||||||
|
Fresh = mkAP (mkA "fresco") ;
|
||||||
|
Warm = mkAP (mkA "caliente") ;
|
||||||
|
Italian = mkAP (mkA "italiano") ;
|
||||||
|
Expensive = mkAP (mkA "caro") ;
|
||||||
|
Delicious = mkAP (mkA "delicioso") ;
|
||||||
|
Boring = mkAP (mkA "aburrido") ;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
Reference in New Issue
Block a user