msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

added SCAcc in Finnish and fixed the subject form in passives

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

6
src/finnish/ResFin.gf
View File

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

3
src/finnish/StemFin.gf
View File

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