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

finnish vowel harmony unlexer ; optimizations and mcfg

Browse Source
This commit is contained in:
aarne
2005-06-23 13:32:43 +00:00
parent a847a5793c
commit 231f86268d
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
resource/finnish/SyntaxFin.gf
View File

@@ -10,6 +10,11 @@
resource SyntaxFin = MorphoFin ** open Prelude, (CO = Coordination) in { resource SyntaxFin = MorphoFin ** open Prelude, (CO = Coordination) in {
-- To glue a particle to the preceding word. The lexer and unlexer
-- are expected to deal with actual gluing and vowel harmony.
glueParticle : Str -> Str -> Str = \word,part -> word ++ "&*" ++ part ;
--2 Common Nouns --2 Common Nouns
-- --
-- Simple common nouns are defined as the type $CommNoun$ in $MorphoFin$. -- Simple common nouns are defined as the type $CommNoun$ in $MorphoFin$.
@@ -502,7 +507,7 @@ oper
} }
} ; } ;
questPart : Str -> Str = \s -> glue s "ko" ; --- "kö" questPart : Str -> Str = \s -> glueParticle s "ko" ; --- "kö"
mkSats : NounPhrase -> Verb -> Sats = \subj,verb -> mkSats : NounPhrase -> Verb -> Sats = \subj,verb ->
{subj = subj.s ! NPCase Nom ; --- "minusta tulee poliisi" {subj = subj.s ! NPCase Nom ; --- "minusta tulee poliisi"