add correct negation for AP

This commit is contained in:
Meowyam
2024-01-24 13:56:28 +08:00
parent 2ec3bdc80e
commit 12bc4ccdf5
2 changed files with 6 additions and 3 deletions

View File

@@ -292,8 +292,11 @@ oper
useV : Verb -> VerbPhrase = \v -> v ** {
s = \\vf,pol => verbneg pol ++ v.s ! vf
} ;
useComp : Str -> VerbPhrase = \s -> {
s = \\vf,pol => verbneg pol ++ s ;
} ;
useCompN : Str -> VerbPhrase = \s -> {
s = \\vf,pol => nounneg pol ++ s ;
} ;

View File

@@ -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