GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-01 15:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

MorphoGer details

Browse Source
This commit is contained in:
aarne
2006-01-09 19:15:31 +00:00
parent a51c85b573
commit cd4e08bf7e
1 changed files with 28 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
lib/resource-1.0/german/MorphoGer.gf
View File

@@ -1,39 +1,37 @@
----# -path=.:../../prelude --# -path=.:../common:../../prelude
-- --
----1 A Simple German Resource Morphology ----1 A Simple German Resource Morphology
---- ----
---- Aarne Ranta 2002 -- 2005 ---- Aarne Ranta & Harald Hammarström 2002 -- 2006
---- ----
---- This resource morphology contains definitions needed in the resource ---- This resource morphology contains definitions needed in the resource
---- syntax. To build a lexicon, it is better to use $ParadigmsGer$, which ---- syntax. To build a lexicon, it is better to use $ParadigmsGer$, which
---- gives a higher-level access to this module. ---- gives a higher-level access to this module.
-- --
--resource MorphoGer = ResGer ** open Prelude, (Predef=Predef) in { resource MorphoGer = ResGer ** open Prelude, (Predef=Predef) in {
--
-- flags optimize=all ;
--
----2 Phonology
----
---- To regulate the use of endings for both nouns, adjectives, and verbs:
--
--oper
mkV : (x1,_,_,_,_,x6 : Str) -> VAux -> Verb = flags optimize=all ;
--2 Phonology
--
-- To regulate the use of endings for both nouns, adjectives, and verbs:
oper
mk6V : (x1,_,_,_,_,x6 : Str) -> VAux -> Verb =
\geben,gibt,gib,gab,gaebe,gegeben,aux -> \geben,gibt,gib,gab,gaebe,gegeben,aux ->
let let
ifSibilant : Str -> Str -> Str -> Str = \u,b1,b2 ->
case u of {
"s" | "x" | "z" | "ß" => b1 ;
_ => b2
} ;
en = Predef.dp 2 geben ; en = Predef.dp 2 geben ;
geb = case Predef.tk 1 en of { geb = case Predef.tk 1 en of {
"e" => Predef.tk 2 geben ; "e" => Predef.tk 2 geben ;
_ => Predef.tk 1 geben _ => Predef.tk 1 geben
} ; } ;
gibst = case last geb of {
"s" | "x" | "z" | "ß" => gibt ;
_ => gib + "st"
} ;
gebt = addE geb + "t" ; gebt = addE geb + "t" ;
gebte = ifTok Tok (Predef.dp 1 gab) "e" gab (gab + "e") ; gebte = ifTok Tok (Predef.dp 1 gab) "e" gab (gab + "e") ;
gibst = ifSibilant (Predef.dp 1 gib) (gib + "t") (gib + "st") ;
gegebener = (regA gegeben).s ! Posit ; gegebener = (regA gegeben).s ! Posit ;
gabe = addE gab ; gabe = addE gab ;
gibe = ifTok Str (Predef.dp 2 gib) "ig" "e" [] ++ addE gib gibe = ifTok Str (Predef.dp 2 gib) "ig" "e" [] ++ addE gib
@@ -73,22 +71,21 @@
} ; } ;
-- This function decides whether to add an "e" to the stem before "t". -- This function decides whether to add an "e" to the stem before "t".
-- Examples: "töten - tötet", "kehren - kehrt", "lernen - lernt", "atmen - atmet". -- Examples: "töten - tötet", "kehren - kehrt", "lernen - lernt", "atmen - atmet".
addE : Str -> Str = \stem -> addE : Str -> Str = \stem ->
let let
r = init (Predef.dp 2 stem) ; r = init (Predef.dp 2 stem) ;
n = last stem ; n = last stem ;
e = case n of {
"t" | "d" => "e" ;
"e" | "h" => [] ;
_ => case r of {
"l" | "r" | "a" | "o" | "u" | "e" | "i" | "ü" | "ä" | "ö"|"h" => [] ;
_ => "e"
}
}
in in
stem + e ; case n of {
"t" | "d" => stem + "e" ;
"e" | "h" => stem ;
_ => case r of {
"l" | "r" | "a" | "e" | "i" | "o" | "u" | "ü" | "ä" | "ö" | "h" => stem ;
_ => stem + "e"
}
} ;
weakV : Str -> Verb = \legen -> weakV : Str -> Verb = \legen ->
let let
@@ -99,7 +96,7 @@
lege = addE leg ; lege = addE leg ;
legte = lege + "te" legte = lege + "te"
in in
mkV legen (lege+"t") leg legte legte ("ge"+lege+"t") VHaben ; mk6V legen (lege + "t") leg legte legte ("ge" + lege + "t") VHaben ;
-- To eliminate the past participle prefix "ge". -- To eliminate the past participle prefix "ge".
@@ -296,5 +293,5 @@
-- verbNoPart : Verb -> Verb = \v -> verbPart v [] ; -- verbNoPart : Verb -> Verb = \v -> verbPart v [] ;
-- --
-- --
--} ; } ;
--