forked from GitHub/gf-rgl
use CPrep instead of Acc in several places
This commit is contained in:
@@ -10,8 +10,8 @@ concrete AdjectiveBul of Adjective = CatBul ** open ResBul, Prelude in {
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
ComparA a np = {
|
ComparA a np = {
|
||||||
s = \\aform,_ => "ïî" ++ hyphen ++ a.s ! aform ++ "îò" ++ np.s ! RObj Acc ;
|
s = \\aform,_ => "ïî" ++ hyphen ++ a.s ! aform ++ "îò" ++ np.s ! RObj CPrep ;
|
||||||
adv = "ïî" ++ hyphen ++ a.adv ++ "îò" ++ np.s ! RObj Acc ;
|
adv = "ïî" ++ hyphen ++ a.adv ++ "îò" ++ np.s ! RObj CPrep ;
|
||||||
isPre = True
|
isPre = True
|
||||||
} ;
|
} ;
|
||||||
UseComparA a = {
|
UseComparA a = {
|
||||||
@@ -28,16 +28,15 @@ concrete AdjectiveBul of Adjective = CatBul ** open ResBul, Prelude in {
|
|||||||
|
|
||||||
-- $SuperlA$ belongs to determiner syntax in $Noun$.
|
-- $SuperlA$ belongs to determiner syntax in $Noun$.
|
||||||
|
|
||||||
---- just to make the API compile. AR 7/4/2010
|
|
||||||
CAdvAP ad ap np = {
|
CAdvAP ad ap np = {
|
||||||
s = \\a,p => ad.s ++ ap.s ! a ! p ++ ad.sn ++ np.s ! RObj Acc ;
|
s = \\a,p => ad.s ++ ap.s ! a ! p ++ ad.sn ++ np.s ! RObj CPrep ;
|
||||||
adv = ad.s ++ ap.adv ++ ad.sn ++ np.s ! RObj Acc ;
|
adv = ad.s ++ ap.adv ++ ad.sn ++ np.s ! RObj CPrep ;
|
||||||
isPre = False
|
isPre = False
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
ComplA2 a np = {
|
ComplA2 a np = {
|
||||||
s = \\aform,p => a.s ! aform ++ a.c2 ++ np.s ! RObj Acc ;
|
s = \\aform,p => a.s ! aform ++ a.c2 ++ np.s ! RObj CPrep ;
|
||||||
adv = a.adv ++ a.c2 ++ np.s ! RObj Acc ;
|
adv = a.adv ++ a.c2 ++ np.s ! RObj CPrep ;
|
||||||
isPre = False
|
isPre = False
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ concrete AdverbBul of Adverb = CatBul ** open ResBul, Prelude in {
|
|||||||
lin
|
lin
|
||||||
PositAdvAdj a = {s = a.adv} ;
|
PositAdvAdj a = {s = a.adv} ;
|
||||||
ComparAdvAdj cadv a np = {
|
ComparAdvAdj cadv a np = {
|
||||||
s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ np.s ! RObj Acc
|
s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ np.s ! RObj CPrep
|
||||||
} ;
|
} ;
|
||||||
ComparAdvAdjS cadv a s = {
|
ComparAdvAdjS cadv a s = {
|
||||||
s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ "êîëêîòî" ++ s.s
|
s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ "êîëêîòî" ++ s.s
|
||||||
|
|||||||
@@ -7,8 +7,7 @@ lin
|
|||||||
AdAdV a adv = {s = a.s ++ adv.s; p = adv.p} ;
|
AdAdV a adv = {s = a.s ++ adv.s; p = adv.p} ;
|
||||||
|
|
||||||
EmptyRelSlash slash = {
|
EmptyRelSlash slash = {
|
||||||
s = \\t,a,p,agr => slash.c2.s ++ whichRP ! agr.gn ++ slash.s ! agr ! t ! a ! p ! Main ;
|
s = \\t,a,p,agr => slash.c2.s ++ whichRP ! agr.gn ++ slash.s ! agr ! t ! a ! p ! Main
|
||||||
role = RObj Acc
|
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
CompoundN n1 n2 =
|
CompoundN n1 n2 =
|
||||||
@@ -55,7 +54,7 @@ lin
|
|||||||
vp.s ! Perf ! VPassive aform ++
|
vp.s ! Perf ! VPassive aform ++
|
||||||
vp.compl1 ! {gn=aform2gennum aform; p=p} ++
|
vp.compl1 ! {gn=aform2gennum aform; p=p} ++
|
||||||
vp.compl2 ! {gn=aform2gennum aform; p=p} ++
|
vp.compl2 ! {gn=aform2gennum aform; p=p} ++
|
||||||
"от" ++ np.s ! RObj Acc
|
"от" ++ np.s ! RObj CPrep
|
||||||
in {s = ap; adv = ap ! ASg Neut Indef ! P3; isPre = False} ;
|
in {s = ap; adv = ap ! ASg Neut Indef ! P3; isPre = False} ;
|
||||||
|
|
||||||
GerundCN vp = {
|
GerundCN vp = {
|
||||||
@@ -93,7 +92,7 @@ lin
|
|||||||
vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe) ;
|
vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe) ;
|
||||||
|
|
||||||
PassAgentVPSlash vp np =
|
PassAgentVPSlash vp np =
|
||||||
insertObj (\\_ => "от" ++ np.s ! RObj Acc) Pos
|
insertObj (\\_ => "от" ++ np.s ! RObj CPrep) Pos
|
||||||
(insertObj (\\a => vp.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc)) ++
|
(insertObj (\\a => vp.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc)) ++
|
||||||
vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe)) ;
|
vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe)) ;
|
||||||
|
|
||||||
|
|||||||
@@ -27,8 +27,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
EmptyRelSlash slash = {
|
EmptyRelSlash slash = {
|
||||||
s = \\t,a,p,agr => slash.c2.s ++ whichRP ! agr.gn ++ slash.s ! agr ! t ! a ! p ! Main ;
|
s = \\t,a,p,agr => slash.c2.s ++ whichRP ! agr.gn ++ slash.s ! agr ! t ! a ! p ! Main
|
||||||
role = RObj Acc
|
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
i8fem_Pron = mkPron "àç" "ìîé" "ìîÿ" "ìîÿò" "ìîÿ" "ìîÿòà" "ìîå" "ìîåòî" "ìîè" "ìîèòå" (GSg Fem) PronP1 ;
|
i8fem_Pron = mkPron "àç" "ìîé" "ìîÿ" "ìîÿò" "ìîÿ" "ìîÿòà" "ìîå" "ìîåòî" "ìîè" "ìîèòå" (GSg Fem) PronP1 ;
|
||||||
@@ -96,7 +95,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
|
|||||||
vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe) ;
|
vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe) ;
|
||||||
|
|
||||||
PassAgentVPSlash vp np = ---- AR 9/4/2014: to be verified
|
PassAgentVPSlash vp np = ---- AR 9/4/2014: to be verified
|
||||||
insertObj (\\_ => "÷ðåç" ++ np.s ! RObj Acc) Pos
|
insertObj (\\_ => "÷ðåç" ++ np.s ! RObj CPrep) Pos
|
||||||
(insertObj (\\a => vp.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc)) ++
|
(insertObj (\\a => vp.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc)) ++
|
||||||
vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe)) ;
|
vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe)) ;
|
||||||
|
|
||||||
|
|||||||
@@ -197,9 +197,9 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
|
|||||||
|
|
||||||
ApposCN cn np = {s = \\nf => cn.s ! nf ++ np.s ! RSubj; g=cn.g} ;
|
ApposCN cn np = {s = \\nf => cn.s ! nf ++ np.s ! RSubj; g=cn.g} ;
|
||||||
|
|
||||||
PossNP cn np = {s = \\nf => cn.s ! nf ++ "íà" ++ np.s ! (RObj Acc); g = cn.g} ;
|
PossNP cn np = {s = \\nf => cn.s ! nf ++ "íà" ++ np.s ! (RObj CPrep); g = cn.g} ;
|
||||||
|
|
||||||
PartNP cn np = {s = \\nf => cn.s ! nf ++ "îò" ++ np.s ! (RObj Acc); g = cn.g} ;
|
PartNP cn np = {s = \\nf => cn.s ! nf ++ "îò" ++ np.s ! (RObj CPrep); g = cn.g} ;
|
||||||
|
|
||||||
CountNP det np = {
|
CountNP det np = {
|
||||||
s = \\role => let g = case np.gn of { -- this is lossy
|
s = \\role => let g = case np.gn of { -- this is lossy
|
||||||
|
|||||||
@@ -28,7 +28,7 @@ concrete RelativeBul of Relative = CatBul ** open ResBul in {
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
FunRP p np rp = {
|
FunRP p np rp = {
|
||||||
s = \\gn => np.s ! RObj Acc ++ linPrep p ++ rp.s ! gn ;
|
s = \\gn => np.s ! RObj CPrep ++ linPrep p ++ rp.s ! gn ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
IdRP = {
|
IdRP = {
|
||||||
|
|||||||
@@ -150,7 +150,7 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
|
|||||||
PassV2 v = insertObj (\\a => v.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc))) Pos (predV verbBe) ;
|
PassV2 v = insertObj (\\a => v.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc))) Pos (predV verbBe) ;
|
||||||
|
|
||||||
CompAP ap = {s = \\agr => ap.s ! aform agr.gn Indef (RObj Acc) ! agr.p; p = Pos} ;
|
CompAP ap = {s = \\agr => ap.s ! aform agr.gn Indef (RObj Acc) ! agr.p; p = Pos} ;
|
||||||
CompNP np = {s = \\_ => np.s ! RObj Acc; p = personPol np.p} ;
|
CompNP np = {s = \\_ => np.s ! RObj CPrep; p = personPol np.p} ;
|
||||||
CompAdv a = {s = \\_ => a.s; p = Pos} ;
|
CompAdv a = {s = \\_ => a.s; p = Pos} ;
|
||||||
CompCN cn = {s = \\agr => cn.s ! (NF (numGenNum agr.gn) Indef); p = Pos} ;
|
CompCN cn = {s = \\agr => cn.s ! (NF (numGenNum agr.gn) Indef); p = Pos} ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user