mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
add correct negation for AP
This commit is contained in:
@@ -294,6 +294,9 @@ oper
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
useComp : Str -> VerbPhrase = \s -> {
|
useComp : Str -> VerbPhrase = \s -> {
|
||||||
|
s = \\vf,pol => verbneg pol ++ s ;
|
||||||
|
} ;
|
||||||
|
useCompN : Str -> VerbPhrase = \s -> {
|
||||||
s = \\vf,pol => nounneg pol ++ s ;
|
s = \\vf,pol => nounneg pol ++ s ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
@@ -159,10 +159,10 @@ lin
|
|||||||
CompAP ap = useComp ap.s ;
|
CompAP ap = useComp ap.s ;
|
||||||
|
|
||||||
-- : CN -> Comp ;
|
-- : CN -> Comp ;
|
||||||
CompCN cn = useComp (cn.s ! NF Sg Bare) ;
|
CompCN cn = useCompN (cn.s ! NF Sg Bare) ;
|
||||||
|
|
||||||
-- NP -> Comp ;
|
-- NP -> Comp ;
|
||||||
CompNP np = useComp (np.s ! Bare) ;
|
CompNP np = useCompN (np.s ! Bare) ;
|
||||||
|
|
||||||
-- : Adv -> Comp ;
|
-- : Adv -> Comp ;
|
||||||
--"Both bukan and tidak may negate prepositional phrases. The choice of either
|
--"Both bukan and tidak may negate prepositional phrases. The choice of either
|
||||||
|
|||||||
Reference in New Issue
Block a user