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

MakeStructuralFin: Det and IDet with partitive argument

Browse Source
This commit is contained in:
Aarne Ranta
2018-12-27 19:10:13 +01:00
parent d9d3699b20
commit 2e34f89c45
2 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/finnish/MakeStructuralFin.gf
View File

@@ -10,7 +10,12 @@ oper
mkIQuant : Str -> IQuant = \s -> mkIQuant : Str -> IQuant = \s ->
{s = \\n,c => s ; lock_IQuant = <>} ; ---- {s = \\n,c => s ; lock_IQuant = <>} ; ----
mkIDet : Bool -> Str -> N -> Number -> IDet = \isNum,pref,s,n ->
lin IDet {s = \\c => pref ++ s.s ! NCase n c ; n = n ; isNum = isNum} ;
mkDet : N -> Number -> Det = \s,n -> mkDet : N -> Number -> Det = \s,n ->
MorphoFin.mkDet n s ; lin Det (MorphoFin.mkDet n s) ;
partDet : N -> Number -> Det = \s,n ->
lin Det (MorphoFin.partDet False n s) ;
} }

4
src/finnish/MorphoFin.gf
View File

@@ -933,6 +933,10 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
isNeg = pol isNeg = pol
} ; } ;
partDet : Bool -> Number -> CommonNoun -> (PDet ** {sp : Case => Str}) = \isNeg,num,cn ->
mkDetPol isNeg num cn ** {isNum = True} ;
-- Here we define personal and relative pronouns. -- Here we define personal and relative pronouns.
-- Personal pronouns have possessive suffix (hänen talonsa) but "se" doesn't (sen talo) -- Personal pronouns have possessive suffix (hänen talonsa) but "se" doesn't (sen talo)