fixed Foods grammar for Macedonian

examples/foods/FoodsMkd.gf

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