mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-01 03:08:54 -06:00
added ivarN and invarV
This commit is contained in:
@@ -502,6 +502,11 @@ oper
|
|||||||
mkN3 : N -> Prep -> Prep -> N3 = \n,p1,p2 -> lin N3 (n ** {c2 = p1; c3 = p2}) ;
|
mkN3 : N -> Prep -> Prep -> N3 = \n,p1,p2 -> lin N3 (n ** {c2 = p1; c3 = p2}) ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
invarN : Str -> N = \s -> lin N {
|
||||||
|
s = \\_,_,_ => s ;
|
||||||
|
g = Masc
|
||||||
|
} ;
|
||||||
|
|
||||||
mkA = overload {
|
mkA = overload {
|
||||||
mkA : Str -> A = regA; -- s;Masc;Sg;Nom
|
mkA : Str -> A = regA; -- s;Masc;Sg;Nom
|
||||||
mkA : Str -> Str -> A = reg2A -- s;Masc;Sg;Nom s;Masc;Sg;Dat
|
mkA : Str -> Str -> A = reg2A -- s;Masc;Sg;Nom s;Masc;Sg;Dat
|
||||||
@@ -523,6 +528,15 @@ oper
|
|||||||
= \v,p -> v ** {particle = p}
|
= \v,p -> v ** {particle = p}
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
invarV : Str -> V = \s -> lin V {
|
||||||
|
Converb = s ;
|
||||||
|
imperative = \\_ => s ;
|
||||||
|
Indicative = \\_,_ => s ;
|
||||||
|
Nonfinite = s ;
|
||||||
|
Participle = \\_ => s ;
|
||||||
|
particle = []
|
||||||
|
} ;
|
||||||
|
|
||||||
mkVV : V -> VV = \v -> lin VV v ;
|
mkVV : V -> VV = \v -> lin VV v ;
|
||||||
mkVS : V -> VS = \v -> lin VS v ;
|
mkVS : V -> VS = \v -> lin VS v ;
|
||||||
mkVQ : V -> VQ = \v -> lin VQ v ;
|
mkVQ : V -> VQ = \v -> lin VQ v ;
|
||||||
|
|||||||
Reference in New Issue
Block a user