added missing paradigm functions

This commit is contained in:
Krasimir Angelov
2025-02-07 18:24:27 +01:00
parent 186a12df0c
commit 777e572681

View File

@@ -60,6 +60,11 @@ oper
<Pl,Masc> => pmp ;
<Pl,Fem> => pfp } ; lock_Pron = <>};
demoPN : Str -> Str -> Str -> Quant = \s1,s2,s3 -> let n = makeDemonPronForm s1 s2 s3 in {s = n.s ; a = defaultAgr ; lock_Quant = <>};
mkLN : Str -> LN = \s -> lin LN {s=s} ;
mkSN : Str -> SN = \s -> lin SN {s=s} ;
mkGN : Str -> GN = \s -> lin GN {s=s} ;
mkDet : Str -> Str -> Str -> Str -> Number -> Det = \s1,s2,s3,s4,nb -> let dt = makeDet s1 s2 s3 s4 nb in {s = dt.s ; n = nb ; lock_Det = <>};
mkIP : (x1,x2,x3:Str) -> Number -> Gender -> IP = \s1,s2,s3,n,g -> let p = mkIntPronForm s1 s2 s3 in { s = p.s ; n = n ; g = g ; lock_IP = <>};
@@ -110,6 +115,8 @@ oper
= \s,v -> {s = \\vf => v.s ! vf ; cvp = s ; lock_V = <>} ;
};
oper mkVA : V -> VA = \v -> lin VA v ;
oper mkV2S : V -> V2S = \v -> lin V2S v ** {c2={s = [] ; c = VTrans}} ;
----2 Adverbs
mkAdv = overload {
@@ -119,6 +126,8 @@ mkAdv = overload {
= \m,f -> {s = table {Masc => m ; Fem => f} ; lock_Adv = <>};
};
mkAdV : Str -> AdV = \s -> lin AdV {s=s} ;
----2 Prepositions
mkPrep : Str -> Str -> Prep ; -- e.g ka - ky