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 -> {
|
||||
s = \\vf,pol => verbneg pol ++ s ;
|
||||
} ;
|
||||
useCompN : Str -> VerbPhrase = \s -> {
|
||||
s = \\vf,pol => nounneg pol ++ s ;
|
||||
} ;
|
||||
|
||||
|
||||
@@ -159,10 +159,10 @@ lin
|
||||
CompAP ap = useComp ap.s ;
|
||||
|
||||
-- : CN -> Comp ;
|
||||
CompCN cn = useComp (cn.s ! NF Sg Bare) ;
|
||||
CompCN cn = useCompN (cn.s ! NF Sg Bare) ;
|
||||
|
||||
-- NP -> Comp ;
|
||||
CompNP np = useComp (np.s ! Bare) ;
|
||||
CompNP np = useCompN (np.s ! Bare) ;
|
||||
|
||||
-- : Adv -> Comp ;
|
||||
--"Both bukan and tidak may negate prepositional phrases. The choice of either
|
||||
|
||||
Reference in New Issue
Block a user