resource howto started

This commit is contained in:
aarne
2005-11-30 15:23:27 +00:00
parent 0c99efe54a
commit 9a711c2a08
9 changed files with 282 additions and 31 deletions

View File

@@ -1,5 +1,5 @@
concrete ConjunctionEng of Conjunction =
SequenceEng ** open ResEng, Coordination in {
CatEng ** open ResEng, Coordination, Prelude in {
lin
@@ -23,4 +23,13 @@ concrete ConjunctionEng of Conjunction =
isPre = ss.isPre
} ;
TwoS = twoSS ;
AddS = consSS comma ;
TwoAdv = twoSS ;
AddAdv = consSS comma ;
TwoNP x y = twoTable Case x y ** {a = conjAgr x.a y.a} ;
AddNP xs x = consTable Case comma xs x ** {a = conjAgr xs.a x.a} ;
TwoAP x y = twoTable Agr x y ** {isPre = andB x.isPre y.isPre} ;
AddAP xs x = consTable Agr comma xs x ** {isPre = andB xs.isPre x.isPre} ;
}