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

Overloaded German mkA.

Browse Source
This commit is contained in:
bringert
2007-05-11 15:04:59 +00:00
parent f99c518621
commit 056689fa9c
1 changed files with 20 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
lib/resource-1.0/german/ParadigmsGer.gf
View File

@@ -105,14 +105,13 @@ mkN : overload {
--2 Adjectives
-- Adjectives need three forms, one for each degree.
mkA : (x1,_,x3 : Str) -> A ; -- gut,besser,beste
mkA : overload {
-- The regular adjective formation works for most cases, and includes
-- variations such as "teuer - teurer", "böse - böser".
regA : Str -> A ;
mkA : Str -> A ;
-- Adjectives need three forms, one for each degree.
mkA : (gut,besser,beste : Str) -> A -- gut,besser,beste
};
-- Invariable adjective are a special case.
@@ -294,7 +293,7 @@ mkV : overload {
regPN = \horst ->
mkPN horst (ifTok Tok (Predef.dp 1 horst) "s" horst (horst + "s")) ;
mkA : (x1,_,x3 : Str) -> A = \a,b,c ->
mk3A : (gut,besser,beste : Str) -> A = \a,b,c ->
let aa : Str = case a of {
teu + "er" => teu + "r" ;
mud + "e" => mud ;
@@ -303,9 +302,9 @@ mkV : overload {
MorphoGer.mkA a aa b (init c) ** {lock_A = <>} ;
regA : Str -> A = \a -> case a of {
teu + "er" => mkA a (teu + "rer") (teu + "reste") ;
_ + "e" => mkA a (a + "r") (a + "ste") ;
_ => mkA a (a + "er") (a + "este")
teu + "er" => mk3A a (teu + "rer") (teu + "reste") ;
_ + "e" => mk3A a (a + "r") (a + "ste") ;
_ => mk3A a (a + "er") (a + "este")
} ;
invarA = \s -> {s = \\_,_ => s ; lock_A = <>} ; ---- comparison
@@ -413,6 +412,17 @@ mkV : overload {
};
regA : Str -> A ;
mk3A : (gut,besser,beste : Str) -> A ;
mkA = overload {
mkA : Str -> A = regA ;
mkA : (gut,besser,beste : Str) -> A = mk3A
};
regV : Str -> V ;
irregV : (x1,_,_,_,x5 : Str) -> V ;
mk6V : (x1,_,_,_,_,x6 : Str) -> V ;