added a contruction; fixed negation

This commit is contained in:
EkaterinaVoloshina
2024-11-26 21:26:54 +01:00
parent 3dae1cf820
commit 6b5df036e3
15 changed files with 107 additions and 35 deletions
+8 -5
View File
@@ -1,7 +1,7 @@
--# -path=.:../abstract:../common
--# -path=.:../abstract:../../prelude:../common
--1 Russian Lexical Paradigms
resource ParadigmsRus = open CatRus, ResRus, (R=ResRus), ParamRus, (Z=InflectionRus), Prelude, Maybe, MorphoRus in {
resource ParadigmsRus = open CatRus, ResRus, (R=ResRus), ParamRus, (Z=InflectionRus), TenseRus, Maybe, MorphoRus, Prelude in {
--2 Parameters
--
@@ -742,15 +742,18 @@ oper
= \s -> lin Adv (makeAdverb s) ;
} ;
mkAdV : Str -> AdV
= \s -> lin AdV (makeAdverb s) ;
mkAdA : Str -> AdA
= \s -> lin AdA (makeAdverb s) ;
mkAdN : Str -> AdN
= \s -> lin AdN (makeAdverb s) ;
mkAdV : Str -> AdV
= \s -> lin AdV {s = s; p = Pos} ;
mkAdVNeg : Str -> AdV
= \s -> lin AdV {s = s; p = Neg} ;
mkIAdv : Str -> IAdv
= \s -> lin IAdv (makeAdverb s) ;