GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

moved stuff from MorphoSwe to ParadigmsSwe (to be continued)

Browse Source
This commit is contained in:
aarne
2006-01-17 13:56:38 +00:00
parent 0430f8eb05
commit 25e5edcde6
2 changed files with 52 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
lib/resource-1.0/swedish/MorphoSwe.gf
View File

@@ -10,7 +10,6 @@
resource MorphoSwe = ResScand, DiffSwe ** open Prelude, (Predef=Predef) in { resource MorphoSwe = ResScand, DiffSwe ** open Prelude, (Predef=Predef) in {
-- Nouns -- Nouns
oper oper
@@ -24,59 +23,6 @@ oper
} }
} ; } ;
reg2Noun : Str -> Str -> Noun = \bil,bilar ->
let
l = last bil ;
b = Predef.tk 2 bil ;
ar = Predef.dp 2 bilar ;
bile = Predef.tk 2 bilar
in
case ar of {
"or" => case l of {
"a" => decl1Noun bil ;
"r" => decl5Noun bil ;
"o" => mkNoun bil (bil + "n") bilar (bilar + "na") ;
_ => mkNoun bil (bil + "en") bilar (bilar + "na")
} ;
"ar" => ifTok Noun bil bilar
(decl5Noun bil)
(ifTok Noun bile bil
(decl2Noun bil)
(case l of {
"e" => decl2Noun bil ; -- pojke-pojkar
_ => mkNoun bil (bile + "en") bilar (bilar + "na") -- mun-munnar
}
)
) ;
"er" => case l of {
"e" => mkNoun bil (bil + "n") (bil +"r") (bil + "rna") ;
"y" | "å" | "é" => decl3Noun bil ;
_ => mkNoun bil (bil + "en") bilar (bilar + "na")
} ;
"en" => ifTok Noun bil bilar (decl5Noun bil) (decl4Noun bil) ; -- ben-ben
_ => ifTok Noun bil bilar (
case Predef.dp 3 bil of {
"are" => let kikar = init bil in
mkNoun bil (kikar + "en") bil (kikar + "na") ;
_ => decl5Noun bil
}
)
(decl5Noun bil) --- rest case with lots of garbage
} ;
--- this is a very rough heuristic and misses "er".
regNoun : Str -> Gender -> Noun = \bil,g -> case g of {
Utr => case last bil of {
"a" => decl1Noun bil ;
_ => decl2Noun bil
} ;
Neutr => case last bil of {
"e" => decl4Noun bil ;
_ => decl5Noun bil
}
} ;
-- School declensions. -- School declensions.

54
lib/resource-1.0/swedish/ParadigmsSwe.gf
View File

@@ -168,6 +168,7 @@ oper
mk2ADeg : (bred,brett : Str) -> ADeg ; mk2ADeg : (bred,brett : Str) -> ADeg ;
--2 Adverbs --2 Adverbs
-- Adverbs are not inflected. Most lexical ones have position -- Adverbs are not inflected. Most lexical ones have position
@@ -290,8 +291,57 @@ oper
genitive = Gen ; genitive = Gen ;
mkN x y z u = mkNoun x y z u ** {lock_N = <>} ; mkN x y z u = mkNoun x y z u ** {lock_N = <>} ;
regN x g = regNoun x g ** {lock_N = <>} ; regN bil g = case g of {
mk2N x g = reg2Noun x g ** {lock_N = <>} ; Utr => case last bil of {
"a" => decl1Noun bil ;
_ => decl2Noun bil
} ;
Neutr => case last bil of {
"e" => decl4Noun bil ;
_ => decl5Noun bil
}
} ** {lock_N = <>} ;
mk2N bil bilar =
let
l = last bil ;
b = Predef.tk 2 bil ;
ar = Predef.dp 2 bilar ;
bile = Predef.tk 2 bilar
in
case ar of {
"or" => case l of {
"a" => decl1Noun bil ;
"r" => decl5Noun bil ;
"o" => mkNoun bil (bil + "n") bilar (bilar + "na") ;
_ => mkNoun bil (bil + "en") bilar (bilar + "na")
} ;
"ar" => ifTok Noun bil bilar
(decl5Noun bil)
(ifTok Noun bile bil
(decl2Noun bil)
(case l of {
"e" => decl2Noun bil ; -- pojke-pojkar
_ => mkNoun bil (bile + "en") bilar (bilar + "na") -- mun-munnar
}
)
) ;
"er" => case l of {
"e" => mkNoun bil (bil + "n") (bil +"r") (bil + "rna") ;
"y" | "å" | "é" => decl3Noun bil ;
_ => mkNoun bil (bil + "en") bilar (bilar + "na")
} ;
"en" => ifTok Noun bil bilar (decl5Noun bil) (decl4Noun bil) ; -- ben-ben
_ => ifTok Noun bil bilar (
case Predef.dp 3 bil of {
"are" => let kikar = init bil in
mkNoun bil (kikar + "en") bil (kikar + "na") ;
_ => decl5Noun bil
}
)
(decl5Noun bil) --- rest case with lots of garbage
} ** {lock_N = <>} ;
mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ; mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ;
regN2 n g = mkN2 (regN n g) (mkPreposition "av") ; regN2 n g = mkN2 (regN n g) (mkPreposition "av") ;