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

completed DocumentationDut

Browse Source
This commit is contained in:
aarne
2014-06-06 14:30:25 +00:00
parent b3d06f419c
commit 600b660476
4 changed files with 52 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/src/abstract/Terminology.gf
View File

@@ -82,6 +82,7 @@ fun
comparative_Parameter : Parameter ; comparative_Parameter : Parameter ;
superlative_Parameter : Parameter ; superlative_Parameter : Parameter ;
predicative_Parameter : Parameter ; predicative_Parameter : Parameter ;
attributive_Parameter : Parameter ;
negative_Parameter : Parameter ; negative_Parameter : Parameter ;
positivePol_Parameter : Parameter ; -- as opposed to negative, e.g. for verbs positivePol_Parameter : Parameter ; -- as opposed to negative, e.g. for verbs

79
lib/src/dutch/DocumentationDutFunctor.gf
View File

@@ -30,40 +30,39 @@ lin
}) ; }) ;
s2 = frameTable ( s2 = frameTable (
tr (th "" ++ th (heading singular_Parameter) ++ th (heading plural_Parameter) ) ++ 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 nominative_Parameter) ++ td (noun.s ! NF Sg Nom) ++ td (noun.s ! NF Pl Nom)) ++
tr (th (heading genitive_Parameter) ++ td (noun.s ! Sg ! Gen) ++ td (noun.s ! NF Pl Gen)) tr (th (heading genitive_Parameter) ++ td (noun.s ! NF Sg Gen) ++ td (noun.s ! NF Pl Gen))
) )
} ; } ;
InflectionA, InflectionA2 = \adj -> InflectionA, InflectionA2 = \adj ->
let let
gforms : Degree -> ResDut.Case -> Str = \d,c -> gforms : AForm -> Str = \a ->
td (adj.s ! d ! (AMod (GSg Utr) c)) ++ td (adj.s ! Posit ! a) ++
td (adj.s ! d ! (AMod (GSg Neutr) c)) ++ td (adj.s ! Compar ! a) ++
td (adj.s ! d ! (AMod GPl c)) ; td (adj.s ! Superl ! a) ;
dtable : Parameter -> Degree -> Str = \s,d ->
paragraph (heading2 (heading s) ++ frameTable ( dtable : Str =
tr (th [] ++ th (heading uter_Parameter) ++ th (heading neuter_Parameter) ++ frameTable (
th (heading plural_Parameter)) ++ tr (th [] ++ th (heading positive_Parameter) ++ th (heading comparative_Parameter) ++
tr (th (heading nominative_Parameter) ++ gforms d Nom) ++ th (heading superlative_Parameter)) ++
tr (th (heading genitive_Parameter) ++ gforms d Gen) ++ tr (th (heading predicative_Parameter) ++ gforms APred) ++
tr (th (heading dative_Parameter) ++ gforms d Dat) ++ tr (th (heading attributive_Parameter) ++ gforms APred) ++
tr (th (heading accusative_Parameter) ++ gforms d Acc) ++ tr (th (heading partitive_Parameter) ++ gforms AGen)
tr (th (heading predicative_Parameter) ++ intagAttr "td" "colspan=4" (adj.s ! d ! APred)) )
))
in { t = "a" ; in { t = "a" ;
s1 = heading1 (nounHeading adjective_Category).s ; s1 = heading1 (nounHeading adjective_Category).s ;
s2 = dtable positive_Parameter Posit ++ dtable comparative_Parameter Compar ++ dtable superlative_Parameter Superl s2 = dtable
} ; } ;
InflectionAdv adv = { InflectionAdv adv = {
t = "adverb" ; t = "adv" ;
s1 = heading1 (heading preposition_Category) ; s1 = heading1 (heading preposition_Category) ;
s2 = paragraph adv.s s2 = paragraph adv.s
} ; } ;
InflectionPrep p = { InflectionPrep p = {
t = "präp" ; t = "prep" ;
s1 = heading1 (heading preposition_Category) ; s1 = heading1 (heading preposition_Category) ;
s2 = paragraph (S.mkAdv (lin Prep p) (S.mkNP S.a_Det L.computer_N)).s s2 = paragraph (S.mkAdv (lin Prep p) (S.mkNP S.a_Det L.computer_N)).s
} ; } ;
@@ -148,34 +147,30 @@ oper
++ ";" ++ (S.mkUtt (S.mkS S.anteriorAnt cl)).s --# notpresent ++ ";" ++ (S.mkUtt (S.mkS S.anteriorAnt cl)).s --# notpresent
; ;
inflVerb : Verb -> Str = \verb -> inflVerb : VVerb -> Str = \verb ->
let let
vfin : VForm -> Str = \f -> vfin : VForm -> Str = \f ->
verb.s ! f ++ verb.prefix ; verb.s ! f ++ verb.prefix ;
gforms : Number -> Person -> Str = \n,p -> gforms : VForm -> Str = \f ->
td (vfin (VFin False (VPresInd n p))) ++ td (vfin f) ;
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 ( in frameTable (
tr (th "" ++ intagAttr "th" "colspan=2" (heading present_Parameter) ++ intagAttr "th" "colspan=2" (heading past_Parameter)) ++ tr (th "" ++ th (heading present_Parameter) ++ th (heading past_Parameter)) ++
tr (th "" ++ th (heading indicative_Parameter) ++ th (heading conjunctive_Parameter ++ "I") ++ tr (th "Sg.1" ++ gforms VPresSg1
th (heading indicative_Parameter) ++ th (heading conjunctive_Parameter ++ "II")) ++ ++ intagAttr "td" "rowspan=3" (vfin VPastSg) --# notpresent
tr (th "Sg.1" ++ gforms Sg P1) ++ ) ++
tr (th "Sg.2" ++ gforms Sg P2) ++ tr (th "Sg.2" ++ gforms VPresSg2) ++
tr (th "Sg.3" ++ gforms Sg P3) ++ tr (th "Sg.3" ++ gforms VPresSg3) ++
tr (th "Pl.1" ++ gforms Pl P1) ++ tr (th "Pl" ++ gforms VPresPl
tr (th "Pl.2" ++ gforms Pl P2) ++ ++ td (vfin VPastPl) --# notpresent
tr (th "Pl.3" ++ gforms Pl P3) )) ++
) ++
frameTable ( frameTable (
tr (th (heading imperative_Parameter ++ "Sg.2") ++ td (vfin (VImper Sg))) ++ tr (th (heading imperative_Parameter ++ "Sg.2") ++ td (vfin VImp2)) ++
tr (th (heading imperative_Parameter ++ "Pl.2") ++ td (vfin (VImper Pl))) ++ tr (th (heading imperative_Parameter ++ "Sg.3") ++ td (vfin VImp3)) ++
tr (th (heading infinitive_Parameter) ++ td (verb.s ! (VInf False))) ++ tr (th (heading imperative_Parameter ++ "Pl.2") ++ td (vfin (VImpPl))) ++
tr (th (heading present_Parameter ++ heading participle_Parameter) ++ td (verb.s ! (VPresPart APred))) ++ tr (th (heading infinitive_Parameter) ++ td (verb.s ! VInf)) ++
tr (th (heading perfect_Parameter ++ heading participle_Parameter) ++ td (verb.s ! (VPastPart APred))) ++ tr (th (heading perfect_Parameter ++ heading participle_Parameter) ++ td (verb.s ! VPerf)) ++
tr (th (heading aux_verb_Parameter) ++ td (case verb.aux of {VHaben => "haben" ; VSein => "sein"})) tr (th (heading aux_verb_Parameter) ++ td (case verb.aux of {VHebben => "hebben" ; VZijn => "zijn"}))
) ; ) ;
} }

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

@@ -3,5 +3,5 @@
concrete LangDut of Lang = concrete LangDut of Lang =
GrammarDut, GrammarDut,
LexiconDut LexiconDut
---- ,DocumentationDut ,DocumentationDut
; ;

22
lib/src/dutch/TerminologyDut.gf
View File

@@ -38,17 +38,18 @@ lin
genitive_Parameter = mkN "genitief" ; genitive_Parameter = mkN "genitief" ;
dative_Parameter = mkN "datief" ; dative_Parameter = mkN "datief" ;
accusative_Parameter = mkN "accusatief" ; accusative_Parameter = mkN "accusatief" ;
partitive_Parameter = mkN "partitief" ;
imperative_Parameter = mkN "imperatief" ; imperative_Parameter = mkN "gebiedend" ;
indicative_Parameter = mkN "indicatief" ; indicative_Parameter = mkN "aantonend" ;
conjunctive_Parameter = mkN "conjunctief" ; conjunctive_Parameter = mkN "aanvoegend" ;
infinitive_Parameter = mkN "infinitief" ; infinitive_Parameter = mkN "onbepaald" ;
present_Parameter = mkN "tegenwoordige tijd" ; present_Parameter = mkN "tegenwoordig" ;
past_Parameter = mkN "verleden tijd" ; past_Parameter = mkN "verleden" ;
future_Parameter = mkN "toekomende tijd" ; future_Parameter = mkN "toekomend" ;
conditional_Parameter = mkN "voorwaardelijke wijs" ; conditional_Parameter = mkN "voorwaardelijk" ;
perfect_Parameter = mkN "voltooide tijd" ; perfect_Parameter = mkN "voltooid" ;
participle_Parameter = mkN "deelwoord" ; participle_Parameter = mkN "deelwoord" ;
aux_verb_Parameter = mkN "hulpwerkwoord" ; aux_verb_Parameter = mkN "hulpwerkwoord" ;
@@ -56,7 +57,8 @@ lin
positive_Parameter = mkN "stellend" ; positive_Parameter = mkN "stellend" ;
comparative_Parameter = mkN "vergrotend" ; comparative_Parameter = mkN "vergrotend" ;
superlative_Parameter = mkN "overtreffend" ; superlative_Parameter = mkN "overtreffend" ;
predicative_Parameter = mkN "predicatief" ; predicative_Parameter = mkN "onverbogen" ;
attributive_Parameter = mkN "verbogen" ;
nounHeading n = ss (n.s ! NF Sg Nom) ; nounHeading n = ss (n.s ! NF Sg Nom) ;