diff options
| author | aarne <aarne@chalmers.se> | 2011-01-31 08:25:28 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-01-31 08:25:28 +0000 |
| commit | 3f0b55b00b31192502b21ca667720ebf5e4d8972 (patch) | |
| tree | af7d58a155ee2d54c8c5acc1ebad37ea0f4a3b15 | |
| parent | f875fe563ab9cb58e73959bf6a48bd14dc31bd98 (diff) | |
new Foods grammars: Fre by Hissu Hyvärinen and Spa by Maarit Koponen
| -rw-r--r-- | contrib/summerschool/foods/FoodsFre.gf | 32 | ||||
| -rw-r--r-- | contrib/summerschool/foods/FoodsSpa.gf | 31 |
2 files changed, 63 insertions, 0 deletions
diff --git a/contrib/summerschool/foods/FoodsFre.gf b/contrib/summerschool/foods/FoodsFre.gf new file mode 100644 index 000000000..ac6c8c63c --- /dev/null +++ b/contrib/summerschool/foods/FoodsFre.gf @@ -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") ; + }
\ No newline at end of file diff --git a/contrib/summerschool/foods/FoodsSpa.gf b/contrib/summerschool/foods/FoodsSpa.gf new file mode 100644 index 000000000..972282ae5 --- /dev/null +++ b/contrib/summerschool/foods/FoodsSpa.gf @@ -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") ;
+
+}
+
|