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

started DocumentationDut; not yet finished

Browse Source
This commit is contained in:
aarne
2014-06-05 08:03:33 +00:00
parent 1b0ef3db32
commit b3d06f419c
5 changed files with 261 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/dutch/DocumentationDut.gf Normal file
View File

@@ -0,0 +1,6 @@
--# -path=.:../abstract:../common
-- documentation of Dutch in Dutch: the default introduced in LangDut
concrete DocumentationDut of Documentation = CatDut **
DocumentationDutFunctor with (Terminology = TerminologyDut) ;

6
lib/src/dutch/DocumentationDutEng.gf Normal file
View File

@@ -0,0 +1,6 @@
--# -path=.:../abstract:../common
-- documentation of Dutch in English
concrete DocumentationDutEng of Documentation = CatDut **
DocumentationDutFunctor with (Terminology = TerminologyEng) ;

181
lib/src/dutch/DocumentationDutFunctor.gf Normal file
View File

@@ -0,0 +1,181 @@
--# -path=.:../abstract:../common
incomplete concrete DocumentationDutFunctor of Documentation = CatDut ** open
Terminology, -- the interface that generates different documentation languages
ResDut,
ParadigmsDut,
(G = GrammarDut),
(S = SyntaxDut),
(L = LexiconDut),
Prelude,
HTML
in {
lincat
Inflection = {t : Str; s1,s2 : Str} ;
Document = {s : Str} ;
Tag = {s : Str} ;
oper
heading : N -> Str = \n -> (nounHeading n).s ;
lin
InflectionN, InflectionN2, InflectionN3 = \noun -> {
t = "s" ;
s1 = heading1 (heading noun_Category ++
case noun.g of {
Utr => "("+heading uter_Parameter+")" ;
Neutr => "("+heading neuter_Parameter+")"
}) ;
s2 = frameTable (
tr (th "" ++ th (heading singular_Parameter) ++ th (heading plural_Parameter) ) ++
tr (th (heading nominative_Parameter) ++ td (noun.s ! Sg ! Nom) ++ td (noun.s ! NF Pl Nom)) ++
tr (th (heading genitive_Parameter) ++ td (noun.s ! Sg ! Gen) ++ td (noun.s ! NF Pl Gen))
)
} ;
InflectionA, InflectionA2 = \adj ->
let
gforms : Degree -> ResDut.Case -> Str = \d,c ->
td (adj.s ! d ! (AMod (GSg Utr) c)) ++
td (adj.s ! d ! (AMod (GSg Neutr) c)) ++
td (adj.s ! d ! (AMod GPl c)) ;
dtable : Parameter -> Degree -> Str = \s,d ->
paragraph (heading2 (heading s) ++ frameTable (
tr (th [] ++ th (heading uter_Parameter) ++ th (heading neuter_Parameter) ++
th (heading plural_Parameter)) ++
tr (th (heading nominative_Parameter) ++ gforms d Nom) ++
tr (th (heading genitive_Parameter) ++ gforms d Gen) ++
tr (th (heading dative_Parameter) ++ gforms d Dat) ++
tr (th (heading accusative_Parameter) ++ gforms d Acc) ++
tr (th (heading predicative_Parameter) ++ intagAttr "td" "colspan=4" (adj.s ! d ! APred))
))
in { t = "a" ;
s1 = heading1 (nounHeading adjective_Category).s ;
s2 = dtable positive_Parameter Posit ++ dtable comparative_Parameter Compar ++ dtable superlative_Parameter Superl
} ;
InflectionAdv adv = {
t = "adverb" ;
s1 = heading1 (heading preposition_Category) ;
s2 = paragraph adv.s
} ;
InflectionPrep p = {
t = "präp" ;
s1 = heading1 (heading preposition_Category) ;
s2 = paragraph (S.mkAdv (lin Prep p) (S.mkNP S.a_Det L.computer_N)).s
} ;
InflectionV v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ++
paragraph (verbExample (S.mkCl S.she_NP v)) ;
s2 = inflVerb v
} ;
InflectionV2 v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ++
paragraph (verbExample (S.mkCl S.she_NP v S.something_NP)) ;
s2 = inflVerb v
} ;
InflectionV3 v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ++
paragraph (verbExample (S.mkCl S.she_NP v S.something_NP S.something_NP)) ;
s2 = inflVerb v
} ;
InflectionV2V v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ++
paragraph (verbExample (S.mkCl S.she_NP (lin V2V v) S.we_NP (S.mkVP (L.sleep_V)))) ;
s2 = inflVerb v
} ;
InflectionV2S v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ;
s2 = inflVerb v
} ;
InflectionV2Q v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ;
s2 = inflVerb v
} ;
InflectionV2A v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ;
s2 = inflVerb v
} ;
InflectionVV v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ++
paragraph (verbExample (S.mkCl S.she_NP (lin VV v) (S.mkVP (L.sleep_V)))) ;
s2 = inflVerb v
} ;
InflectionVS v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ;
s2 = inflVerb v
} ;
InflectionVQ v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ;
s2 = inflVerb v
} ;
InflectionVA v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ;
s2 = inflVerb v
} ;
MkDocument b i e = ss (i.s1 ++ paragraph b.s ++ i.s2 ++ paragraph e.s) ; -- explanation appended in a new paragraph
MkTag i = ss i.t ;
oper
verbExample : CatDut.Cl -> Str = \cl ->
(S.mkUtt cl).s
++ ";" ++ (S.mkUtt (S.mkS S.anteriorAnt cl)).s --# notpresent
;
inflVerb : Verb -> Str = \verb ->
let
vfin : VForm -> Str = \f ->
verb.s ! f ++ verb.prefix ;
gforms : Number -> Person -> Str = \n,p ->
td (vfin (VFin False (VPresInd n p))) ++
td (vfin (VFin False (VPresSubj n p)))
++ td (vfin (VFin False (VImpfInd n p))) --# notpresent
++ td (vfin (VFin False (VImpfSubj n p))) --# notpresent
;
in frameTable (
tr (th "" ++ intagAttr "th" "colspan=2" (heading present_Parameter) ++ intagAttr "th" "colspan=2" (heading past_Parameter)) ++
tr (th "" ++ th (heading indicative_Parameter) ++ th (heading conjunctive_Parameter ++ "I") ++
th (heading indicative_Parameter) ++ th (heading conjunctive_Parameter ++ "II")) ++
tr (th "Sg.1" ++ gforms Sg P1) ++
tr (th "Sg.2" ++ gforms Sg P2) ++
tr (th "Sg.3" ++ gforms Sg P3) ++
tr (th "Pl.1" ++ gforms Pl P1) ++
tr (th "Pl.2" ++ gforms Pl P2) ++
tr (th "Pl.3" ++ gforms Pl P3)
) ++
frameTable (
tr (th (heading imperative_Parameter ++ "Sg.2") ++ td (vfin (VImper Sg))) ++
tr (th (heading imperative_Parameter ++ "Pl.2") ++ td (vfin (VImper Pl))) ++
tr (th (heading infinitive_Parameter) ++ td (verb.s ! (VInf False))) ++
tr (th (heading present_Parameter ++ heading participle_Parameter) ++ td (verb.s ! (VPresPart APred))) ++
tr (th (heading perfect_Parameter ++ heading participle_Parameter) ++ td (verb.s ! (VPastPart APred))) ++
tr (th (heading aux_verb_Parameter) ++ td (case verb.aux of {VHaben => "haben" ; VSein => "sein"}))
) ;
}

4
lib/src/dutch/LangDut.gf
View File

@@ -2,4 +2,6 @@
concrete LangDut of Lang =
GrammarDut,
LexiconDut ;
LexiconDut
---- ,DocumentationDut
;

65
lib/src/dutch/TerminologyDut.gf Normal file
View File

@@ -0,0 +1,65 @@
--# -path=.:../abstract:../common
concrete TerminologyDut of Terminology = CatDut ** open
ResDut,
ParadigmsDut,
(G = GrammarDut),
(S = SyntaxDut),
(L = LexiconDut),
Prelude
in {
lincat
Category = G.N ;
ParameterType = G.N ;
Parameter = G.N ;
Heading = {s : Str} ;
lin
noun_Category = mkN "zelfstandig naamwoord" ;
adjective_Category = mkN "bijvoeglijk naamwoord" ;
verb_Category = mkN "werkwoord" ;
preposition_Category = mkN "voorzetsel" ;
gender_ParameterType = mkN "geschlacht" ;
singular_Parameter = mkN "enkelvoud" ;
plural_Parameter = mkN "meervoud" ;
masculine_Parameter = mkN "mannelijk" ;
feminine_Parameter = mkN "vrouwelijk" ;
neuter_Parameter = mkN "onzijdig" ;
uter_Parameter = mkN "m/v" ; ----
nominative_Parameter = mkN "nominatief" ;
genitive_Parameter = mkN "genitief" ;
dative_Parameter = mkN "datief" ;
accusative_Parameter = mkN "accusatief" ;
imperative_Parameter = mkN "imperatief" ;
indicative_Parameter = mkN "indicatief" ;
conjunctive_Parameter = mkN "conjunctief" ;
infinitive_Parameter = mkN "infinitief" ;
present_Parameter = mkN "tegenwoordige tijd" ;
past_Parameter = mkN "verleden tijd" ;
future_Parameter = mkN "toekomende tijd" ;
conditional_Parameter = mkN "voorwaardelijke wijs" ;
perfect_Parameter = mkN "voltooide tijd" ;
participle_Parameter = mkN "deelwoord" ;
aux_verb_Parameter = mkN "hulpwerkwoord" ;
positive_Parameter = mkN "stellend" ;
comparative_Parameter = mkN "vergrotend" ;
superlative_Parameter = mkN "overtreffend" ;
predicative_Parameter = mkN "predicatief" ;
nounHeading n = ss (n.s ! NF Sg Nom) ;
exampleGr_N = mkN "voorbeeld" ;
}