forked from GitHub/gf-core
documentation files for Spa (terminology to be checked; verb forms not shared in Romance missing)
This commit is contained in:
aarne
@@ -1,4 +1,4 @@
|
|||||||
--# -path=.:../romance:../abstract:../common:prelude
|
--# -path=.:../romance:../abstract:../common:../api
|
||||||
|
|
||||||
concrete AllSpa of AllSpaAbs =
|
concrete AllSpa of AllSpaAbs =
|
||||||
LangSpa,
|
LangSpa,
|
||||||
|
|||||||
6
lib/src/spanish/DocumentationSpa.gf
Normal file
6
lib/src/spanish/DocumentationSpa.gf
Normal file
@@ -0,0 +1,6 @@
|
|||||||
|
--# -path=.:../abstract:../common
|
||||||
|
|
||||||
|
-- documentation of Spanish in Spanish: the default introduced in LangSpa
|
||||||
|
|
||||||
|
concrete DocumentationSpa of Documentation = CatSpa **
|
||||||
|
DocumentationSpaFunctor with (Terminology = TerminologySpa) ;
|
||||||
218
lib/src/spanish/DocumentationSpaFunctor.gf
Normal file
218
lib/src/spanish/DocumentationSpaFunctor.gf
Normal file
@@ -0,0 +1,218 @@
|
|||||||
|
--# -path=.:../abstract:../common
|
||||||
|
|
||||||
|
incomplete concrete DocumentationSpaFunctor of Documentation = CatSpa ** open
|
||||||
|
Terminology, -- the interface to be instantiated
|
||||||
|
ResSpa,
|
||||||
|
CommonRomance,
|
||||||
|
ParadigmsSpa,
|
||||||
|
(G = GrammarSpa),
|
||||||
|
(S = SyntaxSpa),
|
||||||
|
(L = LexiconSpa),
|
||||||
|
Prelude,
|
||||||
|
HTML
|
||||||
|
in {
|
||||||
|
|
||||||
|
|
||||||
|
lincat
|
||||||
|
Inflection = {t : Str; s1,s2 : Str} ;
|
||||||
|
Document = {s : Str} ;
|
||||||
|
Tag = {s : Str} ;
|
||||||
|
|
||||||
|
{-
|
||||||
|
-} --# notpresent
|
||||||
|
|
||||||
|
oper
|
||||||
|
heading : N -> Str = \n -> (nounHeading n).s ;
|
||||||
|
|
||||||
|
lin
|
||||||
|
InflectionN, InflectionN3, InflectionN3 = \noun -> {
|
||||||
|
t = "n" ;
|
||||||
|
s1 = heading1 (heading noun_Category ++
|
||||||
|
case noun.g of {
|
||||||
|
Masc => "("+heading masculine_Parameter+")" ;
|
||||||
|
Fem => "("+heading feminine_Parameter+")"
|
||||||
|
}) ;
|
||||||
|
s2 = frameTable (
|
||||||
|
tr (th (heading singular_Parameter) ++ th (heading plural_Parameter)) ++
|
||||||
|
tr (td (noun.s ! Sg) ++ td (noun.s ! Pl))
|
||||||
|
)
|
||||||
|
} ;
|
||||||
|
|
||||||
|
InflectionA, InflectionA2 = \adj -> {
|
||||||
|
t = "a" ;
|
||||||
|
s1 = heading1 (nounHeading adjective_Category).s ;
|
||||||
|
s2 = frameTable (
|
||||||
|
tr (th "" ++ th (heading singular_Parameter) ++ th (heading plural_Parameter)) ++
|
||||||
|
tr (th (heading masculine_Parameter) ++ td (adj.s ! Posit ! (AF Masc Sg)) ++ td (adj.s ! Posit ! (AF Masc Pl))) ++
|
||||||
|
tr (th (heading feminine_Parameter) ++ td (adj.s ! Posit ! (AF Fem Sg)) ++ td (adj.s ! Posit ! (AF Fem Pl)))
|
||||||
|
)
|
||||||
|
} ;
|
||||||
|
|
||||||
|
InflectionAdv adv = {
|
||||||
|
t = "adv" ;
|
||||||
|
s1 = heading1 "Adverbe" ;
|
||||||
|
s2 = paragraph adv.s
|
||||||
|
} ;
|
||||||
|
|
||||||
|
InflectionPrep p = {
|
||||||
|
t = "prep" ;
|
||||||
|
s1 = heading1 "Préposition" ;
|
||||||
|
s2 = paragraph p.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 "Verb" ;
|
||||||
|
s2 = inflVerb v
|
||||||
|
} ;
|
||||||
|
|
||||||
|
InflectionVV v = {
|
||||||
|
t = "v" ;
|
||||||
|
s1 = heading1 (heading verb_Category) ++
|
||||||
|
paragraph (verbExample (S.mkCl S.she_NP v (S.mkVP (L.sleep_V)))) ;
|
||||||
|
s2 = inflVerb v
|
||||||
|
} ;
|
||||||
|
|
||||||
|
InflectionVS v = {
|
||||||
|
t = "v" ;
|
||||||
|
s1 = heading1 "Verb" ;
|
||||||
|
s2 = inflVerb v
|
||||||
|
} ;
|
||||||
|
|
||||||
|
InflectionVQ v = {
|
||||||
|
t = "v" ;
|
||||||
|
s1 = heading1 "Verb" ;
|
||||||
|
s2 = inflVerb v
|
||||||
|
} ;
|
||||||
|
|
||||||
|
InflectionVA v = {
|
||||||
|
t = "v" ;
|
||||||
|
s1 = heading1 "Verb" ;
|
||||||
|
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 : CatSpa.Cl -> Str = \cl ->
|
||||||
|
(S.mkUtt cl).s
|
||||||
|
++ ";" ++ (S.mkUtt (S.mkS S.anteriorAnt cl)).s --# notpresent
|
||||||
|
;
|
||||||
|
|
||||||
|
inflVerb : Verb -> Str = \verb ->
|
||||||
|
let
|
||||||
|
vfin : CommonRomance.VF -> Str = \f ->
|
||||||
|
verb.s ! f ;
|
||||||
|
|
||||||
|
ttable : TMood -> Str = \tense ->
|
||||||
|
frameTable (
|
||||||
|
tr (th "" ++
|
||||||
|
th (heading singular_Parameter) ++
|
||||||
|
th (heading plural_Parameter)) ++
|
||||||
|
tr (th "1.p" ++
|
||||||
|
td (vfin (VFin tense Sg P1)) ++
|
||||||
|
td (vfin (VFin tense Pl P1))) ++
|
||||||
|
tr (th "2.p" ++
|
||||||
|
td (vfin (VFin tense Sg P2)) ++
|
||||||
|
td (vfin (VFin tense Pl P2))) ++
|
||||||
|
tr (th "3.p" ++
|
||||||
|
td (vfin (VFin tense Sg P3)) ++
|
||||||
|
td (vfin (VFin tense Pl P3)))
|
||||||
|
) ;
|
||||||
|
|
||||||
|
ttable2 : (Mood -> TMood) -> Str = \f ->
|
||||||
|
frameTable (
|
||||||
|
tr (intagAttr "th" "colspan=2" "" ++
|
||||||
|
th (heading indicative_Parameter) ++
|
||||||
|
th (heading conjunctive_Parameter)) ++
|
||||||
|
tr (intagAttr "th" "rowspan=3" (heading singular_Parameter) ++
|
||||||
|
th "1.p" ++
|
||||||
|
td (vfin (VFin (f Indic) Sg P1)) ++
|
||||||
|
td (vfin (VFin (f Conjunct) Sg P1))) ++
|
||||||
|
tr (th "2.p" ++
|
||||||
|
td (vfin (VFin (f Indic) Sg P2)) ++
|
||||||
|
td (vfin (VFin (f Conjunct) Sg P2))) ++
|
||||||
|
tr (th "3.p" ++
|
||||||
|
td (vfin (VFin (f Indic) Sg P3)) ++
|
||||||
|
td (vfin (VFin (f Conjunct) Sg P3))) ++
|
||||||
|
tr (intagAttr "th" "rowspan=3" (heading plural_Parameter) ++
|
||||||
|
th "1.p" ++
|
||||||
|
td (vfin (VFin (f Indic) Pl P1)) ++
|
||||||
|
td (vfin (VFin (f Conjunct) Pl P1))) ++
|
||||||
|
tr (th "2.p" ++
|
||||||
|
td (vfin (VFin (f Indic) Pl P2)) ++
|
||||||
|
td (vfin (VFin (f Conjunct) Pl P2))) ++
|
||||||
|
tr (th "3.p" ++
|
||||||
|
td (vfin (VFin (f Indic) Pl P3)) ++
|
||||||
|
td (vfin (VFin (f Conjunct) Pl P3)))
|
||||||
|
) ;
|
||||||
|
|
||||||
|
in heading2 (heading present_Parameter) ++
|
||||||
|
ttable2 VPres ++
|
||||||
|
heading2 (heading imperfect_Parameter) ++
|
||||||
|
ttable2 VImperf
|
||||||
|
++ heading2 (heading simple_past_Parameter) ++ --# notpresent
|
||||||
|
ttable VPasse --# notpresent
|
||||||
|
++ heading2 (heading future_Parameter) ++ --# notpresent
|
||||||
|
ttable VFut --# notpresent
|
||||||
|
++ heading2 (heading conditional_Parameter) ++ --# notpresent
|
||||||
|
ttable VCondit --# notpresent
|
||||||
|
++ heading2 (heading infinitive_Parameter) ++
|
||||||
|
paragraph (vfin (VInfin False)) ++
|
||||||
|
heading2 (heading imperative_Parameter) ++
|
||||||
|
frameTable (
|
||||||
|
tr (th "sg.2.p" ++ td (vfin (VImper SgP2))) ++
|
||||||
|
tr (th "pl.1.p" ++ td (vfin (VImper PlP1))) ++
|
||||||
|
tr (th "pl.2.p" ++ td (vfin (VImper PlP2)))
|
||||||
|
) ++
|
||||||
|
heading2 (heading participle_Parameter) ++
|
||||||
|
frameTable (
|
||||||
|
tr (th (heading past_Parameter) ++ td (vfin (VPart Masc Sg))) ++
|
||||||
|
tr (th (heading present_Parameter) ++ td (vfin VGer))
|
||||||
|
) ;
|
||||||
|
|
||||||
|
{- --# notpresent
|
||||||
|
-}
|
||||||
|
|
||||||
|
}
|
||||||
67
lib/src/spanish/TerminologySpa.gf
Normal file
67
lib/src/spanish/TerminologySpa.gf
Normal file
@@ -0,0 +1,67 @@
|
|||||||
|
--# -path=.:../abstract:../common
|
||||||
|
|
||||||
|
concrete TerminologySpa of Terminology = CatSpa ** open
|
||||||
|
ResSpa,
|
||||||
|
CommonRomance,
|
||||||
|
ParadigmsSpa,
|
||||||
|
(G = GrammarSpa),
|
||||||
|
(S = SyntaxSpa),
|
||||||
|
(L = LexiconSpa),
|
||||||
|
Prelude
|
||||||
|
|
||||||
|
in {
|
||||||
|
|
||||||
|
|
||||||
|
lincat
|
||||||
|
Category = G.N ;
|
||||||
|
ParameterType = G.N ;
|
||||||
|
Parameter = G.N ;
|
||||||
|
|
||||||
|
Heading = {s : Str} ;
|
||||||
|
|
||||||
|
|
||||||
|
lin
|
||||||
|
noun_Category = mkN "sustantivo" ;
|
||||||
|
adjective_Category = mkN "adjetivo" ;
|
||||||
|
verb_Category = mkN "verbo" masculine ;
|
||||||
|
|
||||||
|
gender_ParameterType = mkN "género" masculine ;
|
||||||
|
|
||||||
|
singular_Parameter = mkN "singular" ;
|
||||||
|
plural_Parameter = mkN "plural" ;
|
||||||
|
|
||||||
|
masculine_Parameter = mkN "masculino" ;
|
||||||
|
feminine_Parameter = mkN "femenino" ;
|
||||||
|
neuter_Parameter = mkN "neutro" ;
|
||||||
|
|
||||||
|
nominative_Parameter = mkN "nominativo" ;
|
||||||
|
genitive_Parameter = mkN "genitivo" ;
|
||||||
|
dative_Parameter = mkN "dativo" ;
|
||||||
|
accusative_Parameter = mkN "accusativo" ;
|
||||||
|
|
||||||
|
imperative_Parameter = mkN "imperativo" ;
|
||||||
|
indicative_Parameter = mkN "indicativo" ;
|
||||||
|
conjunctive_Parameter = mkN "subjuntivo" ;
|
||||||
|
infinitive_Parameter = mkN "infinitivo" ;
|
||||||
|
|
||||||
|
present_Parameter = mkN "presente" ;
|
||||||
|
past_Parameter = mkN "pretérito" ;
|
||||||
|
future_Parameter = mkN "futuro" ;
|
||||||
|
conditional_Parameter = mkN "condicional" ;
|
||||||
|
perfect_Parameter = mkN "perfecto compuesto" ; ----
|
||||||
|
imperfect_Parameter = mkN "imperfecto" ;
|
||||||
|
simple_past_Parameter = mkN "perfecto simple" ; ----
|
||||||
|
|
||||||
|
participle_Parameter = mkN "participio" ;
|
||||||
|
aux_verb_Parameter = mkN "auxiliar" ; ----
|
||||||
|
|
||||||
|
positive_Parameter = mkN "positivo" ;
|
||||||
|
comparative_Parameter = mkN "comparativo" ;
|
||||||
|
superlative_Parameter = mkN "superlativo" ;
|
||||||
|
predicative_Parameter = mkN "predicativo" ;
|
||||||
|
|
||||||
|
nounHeading n = ss (n.s ! Sg) ;
|
||||||
|
|
||||||
|
exampleGr_N = mkN "ejemplo" masculine ;
|
||||||
|
|
||||||
|
}
|
||||||
Reference in New Issue
Block a user