added SCAcc in Finnish and fixed the subject form in passives

This commit is contained in:
Aarne Ranta
2023-08-15 22:16:20 +03:00
parent 7d483b1539
commit a9408305df
2 changed files with 6 additions and 3 deletions

View File

@@ -30,7 +30,7 @@ resource ResFin = ParamX ** open Prelude in {
--- These cases are possible for subjects.
SubjCase = SCNom | SCGen | SCPart | SCIness | SCElat | SCAdess | SCAblat ;
SubjCase = SCNom | SCGen | SCPart | SCIness | SCElat | SCAdess | SCAblat | SCAcc ;
oper
appSubjCase : SubjCase -> ResFin.NP -> Str = \sc,np -> np.s ! subjcase2npform sc ;
@@ -42,7 +42,8 @@ oper
SCIness => NPCase Iness ;
SCElat => NPCase Elat ;
SCAdess => NPCase Adess ;
SCAblat => NPCase Ablat
SCAblat => NPCase Ablat ;
SCAcc => NPAcc
} ;
npform2subjcase : NPForm -> SubjCase = \sc -> case sc of {
@@ -52,6 +53,7 @@ oper
NPCase Elat => SCElat ;
NPCase Adess => SCAdess ;
NPCase Ablat => SCAblat ;
NPAcc => SCAcc ;
_ => SCNom
} ;

View File

@@ -378,7 +378,8 @@ oper
s = \\t,a,b =>
let
agrfin = case vp.sc of {
SCNom => <agr,True> ;
SCNom => <agr, True> ;
SCAcc => <agrP3 Sg, True> ;
_ => <agrP3 Sg,False> -- minun täytyy, minulla on
} ;
verb = vp.s ! VIFin t ! a ! b ! agrfin.p1 ;