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

mkSeparateN in Fin for multiword "compounds"

Browse Source
This commit is contained in:
aarne
2014-06-12 06:45:28 +00:00
parent f7acad2817
commit 85e37dbec4
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/src/finnish/ParadigmsFin.gf
View File

@@ -434,6 +434,11 @@ mkVS = overload {
: Str) -> N = \a,b,c,d,e,f,g,h,i,j -> : Str) -> N = \a,b,c,d,e,f,g,h,i,j ->
lin N (nforms2snoun (nForms10 a b c d e f g h i j)) ; lin N (nforms2snoun (nForms10 a b c d e f g h i j)) ;
mkSeparateN : Str -> N -> N = \unissa,kulkija -> {
s = \\c => unissa ++ kulkija.s ! c ;
h = kulkija.h ;
lock_N = <>
} ;
mkStrN : Str -> N -> N = \sora,tie -> { mkStrN : Str -> N -> N = \sora,tie -> {
s = \\c => sora + tie.s ! c ; s = \\c => sora + tie.s ! c ;
h = tie.h ; h = tie.h ;

3
lib/src/finnish/stemmed/WNKotus.gf
View File

@@ -11,7 +11,8 @@ oper
-- lexicon constructors -- lexicon constructors
separateN : Str -> N -> N = \s,n -> mkN (s + "_") n ; separateN : Str -> N -> N = mkSeparateN ; -- pennin raha
--- separateN : Str -> N -> N = \s,n -> mkN (s + "_") n ; -- pennin_raha
compoundN : Str -> NForms -> N = \s,nf -> lin N (mkStrN s (nforms2snoun nf)) ; compoundN : Str -> NForms -> N = \s,nf -> lin N (mkStrN s (nforms2snoun nf)) ;