support for medial verbs

src/macedonian/CatMkd.gf

@@ -17,9 +17,10 @@ lincat Digits = {s : Str; n : Number; tail : DTail} ;
 linref N,N2,N3 = \n -> n.s ! Indef ! Sg ;
 linref V, VA, VV, VS, VQ, V2, V2S, V2Q, V3, V2A, V2V = 
   \v -> v.present ! Imperfective ! Sg ! P3 ++
-        case v.isRefl of {
-          True  => "се" ;
-          False => []
+        case v.vtype of {
+          VNormal => [] ;
+          VMedial Acc => "се" ;
+          VMedial Dat => "си"
         } ;
 linref A, A2 = \a -> a.s ! Indef ! GSg Masc ;
 
@@ -41,7 +42,7 @@ lincat VPSlash = {present : Aspect => Number => Person => Str;
                   participle : {aorist : Aspect => GenNum => Str;
                                 imperfect : GenNum => Str; perfect : Aspect => Str;
                                 adjectival : Aspect => Str; adverbial : Str};
-                  noun_from_verb : Str; isRefl : Bool; c2 : Compl} ;
+                  noun_from_verb : Str; vtype : VType; c2 : Compl} ;
 lincat Cl = {present : Aspect => Str;
              aorist : Str;
              participle : {aorist : Aspect => Str; perfect : Aspect => Str}} ;