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

german paradigms

Browse Source
This commit is contained in:
aarne
2004-10-11 14:21:57 +00:00
parent f88be638cc
commit 589091fd63
5 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
grammars/health/healthExceptEng.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:../resource/abstract:../prelude:../resource/english --# -path=.:../newresource/abstract:../prelude:../newresource/english
concrete healthExceptEng of healthExcept = StructuralEng ** open ParadigmsEng, TypesEng in { concrete healthExceptEng of healthExcept = StructuralEng ** open ParadigmsEng, TypesEng in {

2
lib/resource-0.6/german/MorphoGer.gf
View File

@@ -428,6 +428,8 @@ oper
in in
mkVerbum legen ((adde leg) + "t") leg legte legte ("ge" + (leg + "t")) ; mkVerbum legen ((adde leg) + "t") leg legte legte ("ge" + (leg + "t")) ;
regVerb = verbumWeak ;
-- Weak verbs that don't have ge- in the participle -- Weak verbs that don't have ge- in the participle
verbumGratulieren : Str -> Verbum = \gratulieren -> verbumGratulieren : Str -> Verbum = \gratulieren ->

2
lib/resource-0.6/german/ParadigmsGer.gf
View File

@@ -77,7 +77,7 @@ oper
nBuch : (_,_ : Str) -> N ; -- Buch, (Buches, Bücher) (neut) nBuch : (_,_ : Str) -> N ; -- Buch, (Buches, Bücher) (neut)
nMesser : Str -> N ; -- Messer, (Messers, Messer) (neut) nMesser : Str -> N ; -- Messer, (Messers, Messer) (neut)
nBein : Str -> N ; -- Bein, (Beins, Beine) (neut) nBein : Str -> N ; -- Bein, (Beins, Beine) (neut)
nAuto : Str -> N ; -- Auto, (Autos, Autos) (neut) nAuto : Str -> N ; -- Auto, (Autos, Autos) (neut)
-- Feminine patterns. Duplicated "e" is avoided in $nFrau$. -- Feminine patterns. Duplicated "e" is avoided in $nFrau$.

2
lib/resource-0.6/swedish/ParadigmsSwe.gf
View File

@@ -25,6 +25,7 @@ resource ParadigmsSwe = open (Predef=Predef), Prelude, SyntaxSwe, ResourceSwe in
-- To abstract over gender names, we define the following identifiers. -- To abstract over gender names, we define the following identifiers.
oper oper
Gender : Type ;
utrum : Gender ; utrum : Gender ;
neutrum : Gender ; neutrum : Gender ;
@@ -200,6 +201,7 @@ oper
-- hidden from the document. -- hidden from the document.
--. --.
Gender = SyntaxSwe.Gender ;
utrum = Utr ; utrum = Utr ;
neutrum = Neutr ; neutrum = Neutr ;
masculine = Masc ; masculine = Masc ;

5
src/GF/Canon/CMacros.hs
View File

@@ -37,11 +37,12 @@ markFocus n p b = if b then ("[*","*]") else ("","")
markXML :: Marker markXML :: Marker
markXML n i b = markXML n i b =
if b if b
then ("<focus" +++ p +++ c ++ ">", "</focus>") then ("<focus" +++ p +++ c ++ s ++ ">", "</focus>")
else ("<subtree" +++ p +++ c ++ ">", "</subtree>") else ("<subtree" +++ p +++ c ++ s ++ ">", "</subtree>")
where where
c = "type=" ++ prt (M.valNode n) c = "type=" ++ prt (M.valNode n)
p = "position=" ++ (show $ reverse i) p = "position=" ++ (show $ reverse i)
s = "" ---- if (null (M.constrsNode n)) then "" else " status=incorrect"
-- for XML in JGF 1, use -- for XML in JGF 1, use
markXMLjgf :: Marker markXMLjgf :: Marker