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

refactored Documentation to Terminology and Documentation proper. This makes it possible to functorize the display of tables, for instance show Swedish inflection tables with headings in English terminology. Carried out the functorization in Eng and Swe, other languages coming soon.

Browse Source
This commit is contained in:
aarne
2013-12-14 09:21:15 +00:00
parent b394d16ed0
commit ced38d5f9f
16 changed files with 685 additions and 564 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
lib/src/german/DocumentationGer.gf
View File

@@ -1,6 +1,7 @@
--# -path=.:../abstract:../common
concrete DocumentationGer of Documentation = CatGer ** open
TerminologyGer,
ResGer,
ParadigmsGer,
(G = GrammarGer),
@@ -12,60 +13,14 @@ in {
lincat
Category = G.N ;
ParameterType = G.N ;
Parameter = G.N ;
Heading = {s : Str} ;
Inflection = {s : Str} ;
lin
noun_Category = mkN "Substantiv" ;
adjective_Category = mkN "Adjektiv" ;
verb_Category = mkN "Verb" ;
preposition_Category = mkN "Präposition" ;
gender_ParameterType = mkN "Geschlecht" ;
singular_Parameter = mkN "Singular" ;
plural_Parameter = mkN "Plural" ;
masculine_Parameter = mkN "Maskulinum" ;
feminine_Parameter = mkN "Femininum" ;
neuter_Parameter = mkN "Neutrum" ;
nominative_Parameter = mkN "Nominativ" ;
genitive_Parameter = mkN "Genitiv" ;
dative_Parameter = mkN "Dativ" ;
accusative_Parameter = mkN "Akkusativ" ;
imperative_Parameter = mkN "Imperativ" ;
indicative_Parameter = mkN "Indikativ" ;
conjunctive_Parameter = mkN "Konjunktiv" ;
infinitive_Parameter = mkN "Infinitiv" ;
present_Parameter = mkN "Präsens" ;
past_Parameter = mkN "Präteritum" ;
future_Parameter = mkN "Futur" ;
conditional_Parameter = mkN "Konditional" ;
perfect_Parameter = mkN "Perfekt" ;
participle_Parameter = mkN "Partizip" ;
aux_verb_Parameter = mkN "Hilfsverb" ;
positive_Parameter = mkN "Positiv" ;
comparative_Parameter = mkN "Komparativ" ;
superlative_Parameter = mkN "Superlativ" ;
predicative_Parameter = mkN "Prädikativ" ;
nounHeading n = ss (n.s ! Sg ! Nom) ;
oper
tdf : Str -> Str = \s -> td (intag "i" s) ;
heading : N -> Str = \n -> (nounHeading n).s ;
nounGender : N -> Parameter = \n -> case n.g of {
nounGender : CatGer.N -> Parameter = \n -> case n.g of {
Masc => masculine_Parameter ;
Fem => feminine_Parameter ;
Neutr => neuter_Parameter
@@ -119,12 +74,12 @@ lin
ExplainInflection e i = ss (i.s ++ paragraph e.s) ; -- explanation appended in a new paragraph
oper
verbExample : Cl -> Str = \cl ->
verbExample : CatGer.Cl -> Str = \cl ->
(S.mkUtt cl).s
++ ";" ++ (S.mkUtt (S.mkS S.anteriorAnt cl)).s --# notpresent
;
inflectionVerb : Str -> V -> {s : Str} = \ex,verb ->
inflectionVerb : Str -> CatGer.V -> {s : Str} = \ex,verb ->
let
vfin : VForm -> Str = \f ->
verb.s ! f ++ verb.prefix ;
@@ -160,7 +115,4 @@ oper
))
} ;
lin
exampleGr_N = mkN "Beispiel" "Beispiele" neuter ;
}