more functions in ExtendBul & ExtendSwe

2018-06-02 20:48:00 +02:00
parent 9cbdaeeb4b
commit ed08ae83d0
4 changed files with 80 additions and 18 deletions
@@ -56,20 +56,6 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
    
    IAdvAdv adv = {s = \\qf => (mkIAdv "êîëêî").s ! qf ++ adv.s} ;

-  oper
-    reflPron : AForm => Str =
-      table {
-        ASg Masc Indef => "ñâîé" ;
-        ASg Masc Def   => "ñâîÿ" ;
-        ASgMascDefNom  => "ñâîÿò" ;
-        ASg Fem  Indef => "ñâîÿ" ;
-        ASg Fem  Def   => "ñâîÿòà" ;
-        ASg Neut Indef => "ñâîå" ;
-        ASg Neut Def   => "ñâîåòî" ;
-        APl Indef      => "ñâîè" ;
-        APl Def        => "ñâîèòå"
-      } ;
-
  lincat
    VPI   = {s : Agr => Str} ;
    [VPI] = {s : Bool => Ints 2 => Agr => Str} ;