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

fixes in FIn syntax and lexicon

Browse Source
This commit is contained in:
aarne
2013-04-07 21:34:11 +00:00
parent d6014786ab
commit 830e7bfa53
9 changed files with 68 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/src/finnish/MorphoFin.gf
View File

@@ -892,10 +892,14 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
} ;
-- Here we define personal and relative pronouns.
-- Personal pronouns have possessive suffix (hänen talonsa) but "se" doesn't (sen talo)
mkPronoun : (_,_,_,_,_ : Str) -> Number -> Person ->
{s : NPForm => Str ; a : Agr} =
\mina, minun, minua, minuna, minuun, n, p ->
{s : NPForm => Str ; a : Agr ; hasPoss : Bool} = mkPronounGen True ;
mkPronounGen : Bool -> (_,_,_,_,_ : Str) -> Number -> Person ->
{s : NPForm => Str ; a : Agr ; hasPoss : Bool} =
\hasPoss, mina, minun, minua, minuna, minuun, n, p ->
let {
minu = Predef.tk 2 minuna ;
a = Predef.dp 1 minuna
@@ -915,7 +919,8 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
NPCase Abess => minu + ("tt" + a) ;
NPAcc => Predef.tk 1 minun + "t"
} ;
a = Ag n p
a = Ag n p ;
hasPoss = hasPoss
} ;
mkDemPronoun : (_,_,_,_,_ : Str) -> Number ->