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