mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-09-17 07:46:01 -06:00
allow for negated CAdv
This commit is contained in:
@@ -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 [] ;
|
||||
|
||||
Reference in New Issue
Block a user