allow for negated CAdv

This commit is contained in:
Krasimir Angelov
2018-07-15 10:55:03 +02:00
parent 4c203cfd81
commit 19e8bab1a4
6 changed files with 16 additions and 15 deletions
+4 -1
View File
@@ -190,7 +190,8 @@ oper
-- Adverbs modifying adjectives and sentences can also be formed.
mkAdA : Str -> AdA ; -- e.g. quite
mkAdA : Str -> AdA ; -- e.g. quite
mkCAdv : Str -> Str -> Str -> CAdv ; -- more than/no more than
-- Adverbs modifying numerals
@@ -497,6 +498,8 @@ mkInterj : Str -> Interj
mkAdA x = lin AdA (ss x) ;
mkAdN x = lin AdN (ss x) ;
mkCAdv sp sn p = lin CAdv {s = table Polarity [sp;sn]; p = p} ;
mkPrep p = lin Prep {s=p; isPre=True} ;
mkPost p = lin Prep {s=p; isPre=False} ;
noPrep = mkPrep [] ;