More to constructors, using maybe now; fixes to RCl

2020-07-31 18:44:25 +03:00
parent f22f5d4abf
commit f9437f01a9
13 changed files with 74 additions and 28 deletions
@@ -967,7 +967,20 @@ oper
        Ag GPl _ => doReflexivePron "сами" a
        };

-  sam = pronFormsPronoun (reflexivePron (Ag (GSg Masc) P3)) ;
+  sebya = pronFormsPronoun (reflexivePron (Ag (GSg Masc) P3)) ;
+  sam = (guessAdjectiveForms "самый") ** {
+    fsnom="сама" ;
+    msnom="сам" ;
+    nsnom="само" ;
+    fsacc="саму" ;
+    fsins=variants {"самой"; "самою"} ;
+    msins="самим";
+    nsins="самим";
+    pgen="самих" ;
+    pnom="сами" ;
+    pins="самими" ;
+    sp="сами"
+    } ;

  all_Pron = pronoun2AstB "весь" ;
  only_Pron = guessAdjectiveForms "единственный" ;