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

German and Dutch adjectives with -er corrected

Browse Source
This commit is contained in:
aarne
2010-08-23 07:43:58 +00:00
parent f2308d174f
commit 62e687869e
5 changed files with 53 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/src/api/Combinators.gf
View File

@@ -29,13 +29,13 @@ incomplete resource Combinators = open Cat, Structural, Constructors in {
--2 Function application
app : overload {
app : N -> NP ;
app : N2 -> NP -> NP ;
app : N3 -> NP -> NP -> NP ;
app : N2 -> NP -> NP -> NP ;
app : N2 -> N -> CN ;
app : overload {
app : N -> NP ; -- the bottom
app : N2 -> NP -> NP ; -- the successor of x
app : N3 -> NP -> NP -> NP ; -- the distance from x to y
app : N2 -> NP -> NP -> NP ; -- the sum of x and y
app : N2 -> N -> CN ; -- set of integers
app : N2 -> NP -> CN ; -- divisor of x
app : N3 -> NP -> NP -> CN ; -- path from x to y
app : N2 -> NP -> NP -> CN ; -- path between x and y

22
lib/src/demo/DemoEng.gf
View File

@@ -1,6 +1,26 @@
--# -path=.:alltenses
concrete DemoEng of Demo = LangEng **
concrete DemoEng of Demo = LangEng - [
PredetNP, PPartNP, AdvNP, RelNP, DetNP, DetQuantOrd,
NumDigits, AdNum, OrdDigits, OrdNumeral, OrdSuperl, MassNP,
ComplN2, ComplN3, UseN2, Use2N3, Use3N3, AdjCN, RelCN,
AdvCN, SentCN, ApposCN,
PassV2, CompAdv,
-- CompNP,
SlashV2V, SlashV2VNP, ---
ComparA, ComplA2, ReflA2, UseA2, UseComparA, CAdvAP, AdjOrd, SentAP, AdAP,
PredSCVP, AdvSlash, SlashPrep, SlashVS,
EmbedS, EmbedQS, EmbedVP, UseSlash, AdvS, RelS,
CompIP,
PConjConj, VocNP, UttVP,
FunRP,
nothing_NP, nobody_NP, please_Voc, otherwise_PConj, therefore_PConj, but_PConj,
language_title_Utt, whatPl_IP, whoPl_IP, if_then_Conj, either7or_DConj,
both7and_DConj, much_Det, that_Subj, no_Quant,
ImpersCl, GenericCl, CleftNP, CleftAdv, ProgrVP, ImpPl1, ImpP3,
-- ExistNP, ---
ConsNP, ConsAdv, ConsS, ConsRS, ConsAP
] **
open LangEng in {
lin

22
lib/src/demo/DemoSwe.gf
View File

@@ -1,6 +1,26 @@
--# -path=.:alltenses
concrete DemoSwe of Demo = LangSwe **
concrete DemoSwe of Demo = LangSwe - [
PredetNP, PPartNP, AdvNP, RelNP, DetNP, DetQuantOrd,
NumDigits, AdNum, OrdDigits, OrdNumeral, OrdSuperl, MassNP,
ComplN2, ComplN3, UseN2, Use2N3, Use3N3, AdjCN, RelCN,
AdvCN, SentCN, ApposCN,
PassV2, CompAdv,
-- CompNP,
SlashV2V, SlashV2VNP, ---
ComparA, ComplA2, ReflA2, UseA2, UseComparA, CAdvAP, AdjOrd, SentAP, AdAP,
PredSCVP, AdvSlash, SlashPrep, SlashVS,
EmbedS, EmbedQS, EmbedVP, UseSlash, AdvS, RelS,
CompIP,
PConjConj, VocNP, UttVP,
FunRP,
nothing_NP, nobody_NP, please_Voc, otherwise_PConj, therefore_PConj, but_PConj,
language_title_Utt, whatPl_IP, whoPl_IP, if_then_Conj, either7or_DConj,
both7and_DConj, much_Det, that_Subj, no_Quant,
ImpersCl, GenericCl, CleftNP, CleftAdv, ProgrVP, ImpPl1, ImpP3,
-- ExistNP, ---
ConsNP, ConsAdv, ConsS, ConsRS, ConsAP
] **
open LangSwe in {
lin

1
lib/src/dutch/ResDut.gf
View File

@@ -82,6 +82,7 @@ resource ResDut = ParamX ** open Prelude in {
regAdjective : Str -> Adjective = \s -> ----
let
se : Str = case s of {
_ + "er" => s + "e" ; ----
_ + ("i"|"u") => endCons s + "e" ;
b + v@("aa"|"ee"|"oo"|"uu") + c@? => b + shortVoc v c + "e" ;
b + ("ei"|"eu"|"oe"|"ou"|"ie"|"ij"|"ui") + ? => endCons s + "e" ;

6
lib/src/german/ParadigmsGer.gf
View File

@@ -374,7 +374,8 @@ mkV2 : overload {
mk3A : (gut,besser,beste : Str) -> A = \a,b,c ->
let aa : Str = case a of {
teu + "er" => teu + "r" ;
dunk + "el" => dunk + "l" ;
te + "uer" => te + "ur" ;
mud + "e" => mud ;
_ => a
} in
@@ -383,7 +384,8 @@ mkV2 : overload {
MorphoGer.mkA a aa b (init c) ** {lock_A = <>} ;
regA : Str -> A = \a -> case a of {
teu + "er" => mk3A a (teu + "rer") (teu + "reste") ;
dunk + "el" => mk3A a (dunk + "ler") (dunk + "leste") ;
te + "uer" => mk3A a (te + "urer") (te + "ureste") ;
_ + "e" => mk3A a (a + "r") (a + "ste") ;
_ + ("t" | "d" | "s" | "sch" | "z") => mk3A a (a + "er") (a + "este") ;
_ => mk3A a (a + "er") (a + "ste")