restored a suppressed ClSlash field in Scandinavian preposition stranding

This commit is contained in:
aarne
2016-06-05 16:54:02 +00:00
parent 264806fbbd
commit 99a2902da9
3 changed files with 10 additions and 8 deletions

View File

@@ -39,7 +39,7 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
StrandRelSlash rp slash = {
s = \\t,a,p,ag,_ =>
rp.s ! ag.g ! ag.n ! RNom ++ slash.s ! t ! a ! p ! Sub ++ slash.c2.s ;
rp.s ! ag.g ! ag.n ! RNom ++ slash.s ! t ! a ! p ! Sub ++ slash.n3 ! ag ++ slash.c2.s ;
c = NPAcc
} ;
EmptyRelSlash slash = {
@@ -52,10 +52,11 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
s = \\t,a,p =>
let
cls = slash.s ! t ! a ! p ;
who = ip.s ! accusative
who = ip.s ! accusative ;
agr = agrP3 ip.g ip.n ;
in table {
QDir => who ++ cls ! Inv ++ slash.c2.s ;
QIndir => who ++ cls ! Sub ++ slash.c2.s
QDir => who ++ cls ! Inv ++ slash.n3 ! agr ++ slash.c2.s ;
QIndir => who ++ cls ! Sub ++ slash.n3 ! agr ++ slash.c2.s
}
} ;

View File

@@ -31,10 +31,11 @@ incomplete concrete QuestionScand of Question =
s = \\t,a,p =>
let
cls = slash.s ! t ! a ! p ;
who = ip.s ! accusative
who = ip.s ! accusative ;
agr = agrP3 ip.g ip.n ;
in table {
QDir => who ++ cls ! Inv ++ slash.c2.s ;
QIndir => who ++ cls ! Sub ++ slash.c2.s
QDir => who ++ cls ! Inv ++ slash.n3 ! agr ++ slash.c2.s ;
QIndir => who ++ cls ! Sub ++ slash.n3 ! agr ++ slash.c2.s
}
} ;

View File

@@ -31,7 +31,7 @@ incomplete concrete RelativeScand of Relative =
RelSlash rp slash = {
s = \\t,a,p,ag,_ =>
rp.s ! ag.g ! ag.n ! RAcc ++ slash.s ! t ! a ! p ! Sub ++ slash.c2.s ;
rp.s ! ag.g ! ag.n ! RAcc ++ slash.s ! t ! a ! p ! Sub ++ slash.n3 ! ag ++ slash.c2.s ;
c = NPAcc
} ;