make it possible to control the preposition in LN

This commit is contained in:
Krasimir Angelov
2023-11-04 17:00:25 +01:00
parent c22feb7878
commit a5e6106d51
3 changed files with 5 additions and 2 deletions

View File

@@ -12,6 +12,7 @@ lincat
} ;
LN = {
s : Case => Str ;
c : ResRus.ComplementCase ;
g : Gender ;
n : Number ;
anim : Animacy

View File

@@ -110,7 +110,9 @@ lin
tr (th (heading partitive_Parameter) ++ td (ln.s ! Ptv)) ++
tr (th ("местный") ++ td (ln.s ! Loc)) ++
tr (th ("звательный") ++ td (ln.s ! VocRus))
)
) ++
heading2 (heading adverb_Category) ++
paragraph (ln.c.s ++ ln.s ! ln.c.c)
} ;
InflectionA, InflectionA2 = \adj -> {

View File

@@ -41,7 +41,7 @@ lin FullName gn sn =
a=Ag (gennum ln.g ln.n) P3
} ; -- Does NP need animacy?
InLN ln = ss (applyPrep {s=v_prep_mod; c=Loc; hasPrep=True} {
InLN ln = ss (applyPrep ln.c {
s=ln.s ;
pron=False;
a=Ag (gennum ln.g ln.n) P3