mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
fix passive for token ungluing
This commit is contained in:
@@ -237,16 +237,16 @@ oper
|
|||||||
|
|
||||||
mkVerb2 : Verb -> Preposition -> Verb2 = \v,pr -> v ** {
|
mkVerb2 : Verb -> Preposition -> Verb2 = \v,pr -> v ** {
|
||||||
c2 = pr ;
|
c2 = pr ;
|
||||||
passive = "di" + v.s ! Root
|
passive = "di" ++ v.s ! Root
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
mkVerb3 : Verb -> (p,q : Preposition) -> Verb3 = \v,p,q ->
|
mkVerb3 : Verb -> (p,q : Preposition) -> Verb3 = \v,p,q ->
|
||||||
mkVerb2 v p ** {c3 = q} ;
|
mkVerb2 v p ** {c3 = q} ;
|
||||||
|
|
||||||
mkVerb4 : Verb -> Preposition -> Str -> Verb4 = \v,pr,str -> v ** {
|
mkVerb4 : Verb -> Preposition -> Str -> Verb4 = \v,pr,str -> v ** {
|
||||||
s = \\_ => v.s ! Active + str;
|
s = \\_ => v.s ! Active ++ str;
|
||||||
c2 = pr ;
|
c2 = pr ;
|
||||||
passive = "di" + v.s ! Root + str
|
passive = "di" ++ v.s ! Root + str
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
copula : Verb = {s = \\_ => "ada"} ; -- TODO
|
copula : Verb = {s = \\_ => "ada"} ; -- TODO
|
||||||
|
|||||||
Reference in New Issue
Block a user