forked from GitHub/gf-rgl
added missing paradigm functions
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user