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

Finnish suffixes

Browse Source
This commit is contained in:
aarne
2005-06-23 16:00:55 +00:00
parent 231f86268d
commit e6b1556f6b
4 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
resource/finnish/BasicFin.gf
View File

@@ -170,8 +170,8 @@ lin
shop_N = regN "shop" ; shop_N = regN "shop" ;
short_ADeg = regADeg "short" ; short_ADeg = regADeg "short" ;
silver_N = regN "silver" ; silver_N = regN "silver" ;
sister_N = regN "sister" ;
-} -}
sister_N = regN "sisko" ;
sleep_V = regV "uinua" ; sleep_V = regV "uinua" ;
{- {-
small_ADeg = regADeg "small" ; small_ADeg = regADeg "small" ;

3
resource/finnish/LangFin.gf
View File

@@ -9,6 +9,9 @@ concrete LangFin of Lang =
---- CountryEng ---- CountryEng
** open Prelude, ParadigmsFin in { ** open Prelude, ParadigmsFin in {
flags unlexer=finnish ;
{- {-
lin lin
AdvDate d = prefixSS "on" d ; AdvDate d = prefixSS "on" d ;

2
resource/finnish/MorphoFin.gf
View File

@@ -628,7 +628,7 @@ getHarmony : Str -> Str = \u -> case u of {
-- as a separate word ("auto &+ ni"), which needs unlexing. Unlexing also -- as a separate word ("auto &+ ni"), which needs unlexing. Unlexing also
-- has to fix the vowel harmony in cases like "äiti &+ nsä". -- has to fix the vowel harmony in cases like "äiti &+ nsä".
suff : Str -> Str = \ni -> BIND ++ ni ; suff : Str -> Str = \ni -> ni ;
possSuffix : Number => Person => Str = \\n,p => possSuffix : Number => Person => Str = \\n,p =>
suff (case <n,p> of { suff (case <n,p> of {

3
resource/finnish/SyntaxFin.gf
View File

@@ -13,6 +13,7 @@ resource SyntaxFin = MorphoFin ** open Prelude, (CO = Coordination) in {
-- To glue a particle to the preceding word. The lexer and unlexer -- To glue a particle to the preceding word. The lexer and unlexer
-- are expected to deal with actual gluing and vowel harmony. -- are expected to deal with actual gluing and vowel harmony.
oper
glueParticle : Str -> Str -> Str = \word,part -> word ++ "&*" ++ part ; glueParticle : Str -> Str -> Str = \word,part -> word ++ "&*" ++ part ;
--2 Common Nouns --2 Common Nouns
@@ -262,7 +263,7 @@ oper
ifPossSuffix : CommNounPhrase -> NPPerson -> Number -> Case -> Str = ifPossSuffix : CommNounPhrase -> NPPerson -> Number -> Case -> Str =
\talo,np,n,c -> case np of { \talo,np,n,c -> case np of {
NP3 => talo.s ! False ! n ! c ; NP3 => talo.s ! False ! n ! c ;
NPP p => talo.s ! True ! n ! c ++ possSuffix ! n ! p NPP p => glueParticle (talo.s ! True ! n ! c) (possSuffix ! n ! p)
} ; } ;
-- *Bare plural noun phrases*, like "koivut" in "koivut ovat valkoisia", -- *Bare plural noun phrases*, like "koivut" in "koivut ovat valkoisia",