GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixed Foods grammar for Macedonian

Browse Source
This commit is contained in:
krasimir
2016-04-07 10:49:35 +00:00
parent c8b7ebc163
commit c130d28ae3
1 changed files with 98 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

179
examples/foods/FoodsMkd.gf
View File

@@ -11,89 +11,106 @@ lincat
Kind = {s : Number => Str; g : Gender};
lin
Pred item qual = item.s
++ case item.a of {
ASg _ => "е";
APl => "се"
} ++ qual.s ! item.a;
This kind = {s = case kind.g of {
Masc => "ова"; -- not sure
Fem => "оваа"; -- not sure
Neutr => "ово" -- not sure
} ++ kind.s ! Sg;
a = ASg kind.g};
That kind = {s = case kind.g of {
Masc => "она"; -- not sure
Fem => "онаа"; -- not sure
Neutr => "оно" -- not sure
} ++ kind.s ! Sg;
a = ASg kind.g};
Pred item qual =
item.s ++
case item.a of {
ASg _ => "е";
APl => "се"
} ++
qual.s ! item.a;
This kind = {
s = case kind.g of {
Masc => "овоj";
Fem => "оваа";
Neutr => "ова"
} ++
kind.s ! Sg;
a = ASg kind.g};
That kind = {
s = case kind.g of {
Masc => "овоj"; -- not sure
Fem => "оваа"; -- not sure
Neutr => "ова" -- not sure
} ++
kind.s ! Sg;
a = ASg kind.g};
These kind = {s = "овие" ++ kind.s ! Pl; a = APl};
Those kind = {s = "овие" ++ kind.s ! Pl; a = APl};
Mod qual kind = {s = \\n => qual.s
! case n of {
Sg => ASg kind.g;
Pl => APl
}
++ kind.s ! n;
g = kind.g};
Wine = {s = table {
Sg => "вино";
Pl => "вина"
};
g = Neutr};
Cheese = {s = table {
Sg => "сирење";
Pl => "сирење" -- not sure
};
g = Neutr};
Fish = {s = table {
Sg => "риба";
Pl => "риби"
};
g = Fem};
Pizza = {s = table {
Sg => "пица";
Pl => "пици"
};
g = Fem};
Those kind = {s = "оние" ++ kind.s ! Pl; a = APl};
Mod qual kind = {
s = \\n => qual.s ! case n of {
Sg => ASg kind.g;
Pl => APl
} ++
kind.s ! n;
g = kind.g};
Wine = {
s = table {
Sg => "вино";
Pl => "вина"
};
g = Neutr};
Cheese = {
s = table {
Sg => "сирење";
Pl => "сирењa"
};
g = Neutr};
Fish = {
s = table {
Sg => "риба";
Pl => "риби"
};
g = Fem};
Pizza = {
s = table {
Sg => "пица";
Pl => "пици"
};
g = Fem
};
Very qual = {s = \\g => "многу" ++ qual.s ! g};
Fresh = {s = table {
ASg Masc => "свеж";
ASg Fem => "свежа";
ASg Neutr => "свежо";
APl => "свежи"
}};
Warm = {s = table {
ASg Masc => "топол";
ASg Fem => "топла";
ASg Neutr => "топло";
APl => "топли"
}};
Italian = {s = table {
ASg Masc => "италијански";
ASg Fem => "италијанска";
ASg Neutr => "италијанско";
APl => "италијански"
}};
Expensive = {s = table {
ASg Masc => "скап";
ASg Fem => "скапа";
ASg Neutr => "скапо";
APl => "скапи"
}};
Delicious = {s = table {
ASg Masc => "вкусен";
ASg Fem => "вкусна";
ASg Neutr => "вкусно";
APl => "вкусни"
}};
Boring = {s = table {
ASg Masc => "здодевен"; -- not sure
ASg Fem => "здодевна"; -- not sure
ASg Neutr => "здодевно"; -- not sure
APl => "здодевни" -- not sure
}};
Fresh = {
s = table {
ASg Masc => "свеж";
ASg Fem => "свежа";
ASg Neutr => "свежо";
APl => "свежи"}
};
Warm = {
s = table {
ASg Masc => "топол";
ASg Fem => "топла";
ASg Neutr => "топло";
APl => "топли"}
};
Italian = {
s = table {
ASg Masc => "италијански";
ASg Fem => "италијанска";
ASg Neutr => "италијанско";
APl => "италијански"}
};
Expensive = {
s = table {
ASg Masc => "скап";
ASg Fem => "скапа";
ASg Neutr => "скапо";
APl => "скапи"}
};
Delicious = {
s = table {
ASg Masc => "вкусен";
ASg Fem => "вкусна";
ASg Neutr => "вкусно";
APl => "вкусни"}
};
Boring = {
s = table {
ASg Masc => "досаден";
ASg Fem => "досадна";
ASg Neutr => "досадно";
APl => "досадни"}
};
param
Gender = Masc | Fem | Neutr;