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

robustness to gfcc interpreter ; make gfcc to bin

Browse Source
This commit is contained in:
aarne
2006-11-12 20:48:01 +00:00
parent 7c327a3598
commit 18677f87d2
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
resource-1.0/finnish/ParadigmsFin.gf
View File

@@ -108,9 +108,10 @@ oper
nKukko : (kukko,kukon,kukkoja : Str) -> N ; nKukko : (kukko,kukon,kukkoja : Str) -> N ;
-- A special case are nouns with no alternations: -- A special case:
-- the vowel harmony is inferred from the last letter, -- the vowel harmony is inferred from the last letter,
-- which must be one of "o", "u", "ö", "y". -- which must be one of "o", "u", "ö", "y". Regular weak-grade alternation
-- is performed.
nTalo : (talo : Str) -> N ; nTalo : (talo : Str) -> N ;
@@ -357,7 +358,8 @@ oper
\c,p -> {c = NPCase c ; s = p ; isPre = True ; lock_Prep = <>} ; \c,p -> {c = NPCase c ; s = p ; isPre = True ; lock_Prep = <>} ;
postPrep : Case -> Str -> Prep = postPrep : Case -> Str -> Prep =
\c,p -> {c = NPCase c ; s = p ; isPre = False ; lock_Prep = <>} ; \c,p -> {c = NPCase c ; s = p ; isPre = False ; lock_Prep = <>} ;
postGenPrep p = {c = NPCase genitive ; s = p ; isPre = False ; lock_Prep = <>} ; postGenPrep p = {
c = NPCase genitive ; s = p ; isPre = False ; lock_Prep = <>} ;
casePrep : Case -> Prep = casePrep : Case -> Prep =
\c -> {c = NPCase c ; s = [] ; isPre = True ; lock_Prep = <>} ; \c -> {c = NPCase c ; s = [] ; isPre = True ; lock_Prep = <>} ;
accPrep = {c = NPAcc ; s = [] ; isPre = True ; lock_Prep = <>} ; accPrep = {c = NPAcc ; s = [] ; isPre = True ; lock_Prep = <>} ;