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

added Inessive as possible subject case in Fin

Browse Source
This commit is contained in:
Aarne Ranta
2018-02-04 19:01:05 +01:00
parent b9d7335125
commit 9de70d7f4d
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
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 | SCElat | SCAdess | SCAblat ; SubjCase = SCNom | SCGen | SCPart | SCIness | SCElat | SCAdess | SCAblat ;
oper oper
appSubjCase : SubjCase -> ResFin.NP -> Str = \sc,np -> np.s ! subjcase2npform sc ; appSubjCase : SubjCase -> ResFin.NP -> Str = \sc,np -> np.s ! subjcase2npform sc ;
@@ -39,6 +39,7 @@ oper
SCNom => NPCase Nom ; SCNom => NPCase Nom ;
SCGen => NPCase Gen ; SCGen => NPCase Gen ;
SCPart => NPCase Part ; SCPart => NPCase Part ;
SCIness => NPCase Iness ;
SCElat => NPCase Elat ; SCElat => NPCase Elat ;
SCAdess => NPCase Adess ; SCAdess => NPCase Adess ;
SCAblat => NPCase Ablat SCAblat => NPCase Ablat
@@ -47,6 +48,7 @@ oper
npform2subjcase : NPForm -> SubjCase = \sc -> case sc of { npform2subjcase : NPForm -> SubjCase = \sc -> case sc of {
NPCase Gen => SCGen ; NPCase Gen => SCGen ;
NPCase Part => SCPart ; NPCase Part => SCPart ;
NPCase Iness => SCIness ;
NPCase Elat => SCElat ; NPCase Elat => SCElat ;
NPCase Adess => SCAdess ; NPCase Adess => SCAdess ;
NPCase Ablat => SCAblat ; NPCase Ablat => SCAblat ;