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

bug fixes in swe paradigms

Browse Source
This commit is contained in:
aarne
2005-03-09 15:27:54 +00:00
parent 35285efe24
commit ee24714756
4 changed files with 19 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/resource/abstract/Resource.gf
View File

@@ -1,3 +1,4 @@
--# -path=.:../../prelude
---- abstract Resource = Rules, Verbphrase ** {} ;
abstract Resource = Rules, Clause, Structural ** {} ;

3
lib/resource/english/ResourceEng.gf
View File

@@ -1,3 +1,4 @@
--# -path=.:../abstract:../../prelude
concrete ResourceEng of Resource = RulesEng, ClauseEng, StructuralEng ** {} ;
concrete ResourceEng of Resource = RulesEng, ClauseEng, StructuralEng ** {} ;
---- concrete ResourceEng of Resource = RulesEng, VerbphraseEng ** {} ;

21
lib/resource/swedish/MorphoSwe.gf
View File

@@ -31,7 +31,8 @@ oper
let
l = last bil ;
b = Predef.tk 2 bil ;
ar = Predef.dp 2 bilar
ar = Predef.dp 2 bilar ;
bile = Predef.tk 2 bilar
in
case ar of {
"or" => case l of {
@@ -40,14 +41,21 @@ oper
"o" => mkNoun bil (bil + "n") bilar (bilar + "na") ;
_ => mkNoun bil (bil + "en") bilar (bilar + "na")
} ;
"ar" => ifTok Subst (Predef.tk 2 bilar) bil
"ar" => ifTok Subst bil bilar
(decl5Noun bil)
(ifTok Subst bile bil
(decl2Noun bil)
(case l of {
"e" => decl2Noun bil ;
_ => mkNoun bil (bil + "n") bilar (bilar + "na")
"e" => decl2Noun bil ; -- pojke-pojkar
_ => mkNoun bil (bile + "en") bilar (bilar + "na") -- mun-munnar
}
) ;
"er" => decl3Noun bil ;
)
) ;
"er" => case l of {
"e" => sVarelse (init bil) ;
"å" => sNivå bil ;
_ => mkNoun bil (bil + "en") (bilar) (bilar + "na")
} ;
"en" => ifTok Subst bil bilar (sLik bil) (sRike bil) ; -- ben-ben
_ => ifTok Subst bil bilar (
case Predef.dp 3 bil of {
@@ -77,6 +85,7 @@ oper
decl2Noun : Str -> Subst = \bil ->
case last bil of {
"e" => sPojke (init bil) ;
"o" | "u" | "y" => mkNoun bil (bil + "n") (bil + "ar") (bil + "arna") ;
_ => mkNoun bil (bil + "en") (bil + "ar") (bil + "arna")
} ;

1
lib/resource/swedish/ResourceSwe.gf
View File

@@ -1,4 +1,5 @@
--# -path=.:../scandinavian:../abstract:../../prelude
---- concrete ResourceSwe of Resource = RulesSwe, VerbphraseSwe ** {} ;
concrete ResourceSwe of Resource = RulesSwe, StructuralSwe, ClauseSwe ** {} ;