msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

adverbs

Browse Source
This commit is contained in:
aarne
2005-11-29 15:21:45 +00:00
parent 3cd1317bda
commit dd70f6dce3
24 changed files with 323 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/resource-1.0/gf/SentenceEng.gf
View File

@@ -9,7 +9,7 @@ concrete SentenceEng of Sentence = CatEng ** open ResEng in {
agr = np.a ;
verb = vp.s ! t ! a ! b ! o ! agr ;
subj = np.s ! Nom ;
compl = vp.s2 ! agr
compl = vp.s2 ! agr
in
case o of {
ODir => subj ++ verb.fin ++ verb.inf ++ compl ;
@@ -17,6 +17,19 @@ concrete SentenceEng of Sentence = CatEng ** open ResEng in {
}
} ;
ImpVP vp = {
s = \\pol,n =>
let
agr = {n = n ; p = P2} ;
verb = infVP vp agr ;
dont = case pol of {
Neg => "don't" ;
_ => []
}
in
dont ++ verb
} ;
SlashV2 np v2 = {
s = \\t,a,b,o =>
let