renamed Slash to ClSlash, generalized Refl to VPSlash in exper

This commit is contained in:
aarne
2008-04-22 18:16:41 +00:00
parent e332bd6214
commit 8d9bfd9b50
9 changed files with 22 additions and 12 deletions

View File

@@ -24,6 +24,8 @@ concrete BackwardEng of Backward = CatEng ** open ResEng in {
ComplV2A v np ap =
insertObj (\\_ => v.c2 ++ np.s ! Acc ++ ap.s ! np.a) (predV v) ;
ReflV2 v = insertObj (\\a => v.c2 ++ reflPron ! a) (predV v) ;
-- from Sentence 19/4/2008
SlashV2 np v2 =

View File

@@ -14,7 +14,7 @@ concrete CatEng of Cat = CommonX ** open ResEng, Prelude in {
-- Sentence
Cl = {s : ResEng.Tense => Anteriority => CPolarity => Order => Str} ;
Slash = {
ClSlash = {
s : ResEng.Tense => Anteriority => CPolarity => Order => Str ;
c2 : Str
} ;

View File

@@ -37,7 +37,7 @@ concrete VerbEng of Verb = CatEng ** open ResEng in {
AdVVP adv vp = insertAdV adv.s vp ;
ReflV2 v = insertObj (\\a => v.c2 ++ reflPron ! a) (predV v) ;
ReflVP v = insertObjPre (\\a => v.c2 ++ reflPron ! a) v ;
PassV2 v = insertObj (\\_ => v.s ! VPPart) (predAux auxBe) ;