mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-28 04:16:30 -06:00
(Hun) A2 can go before or after its complement
This commit is contained in:
@@ -18,8 +18,12 @@ concrete AdjectiveHun of Adjective = CatHun ** open ResHun, Prelude in {
|
||||
} ;
|
||||
|
||||
-- : A2 -> NP -> AP ; -- married to her
|
||||
ComplA2 a2 np = PositA a2 ** {
|
||||
compl = \\n => applyAdp a2.c2 np ;
|
||||
ComplA2 a2 np = let ap : AP = PositA a2 in ap ** {
|
||||
s = case a2.isPost of {False => ap.s ; _ => \\_,_ => []} ;
|
||||
compl = \\n => applyAdp a2.c2 np
|
||||
++ case a2.isPost of {
|
||||
True => ap.s ! n ! Nom ;
|
||||
False => [] } ;
|
||||
} ;
|
||||
|
||||
-- : A2 -> AP ; -- married to itself
|
||||
|
||||
Reference in New Issue
Block a user