summaryrefslogtreecommitdiff
path: root/examples/foods/FoodsFre.gf
blob: f95db827b71b571419d2339e8d8a2e226475cbc2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

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") ;
	}