diff --git a/src/basque/DocumentationEus.gf b/src/basque/DocumentationEus.gf new file mode 100644 index 00000000..6beef056 --- /dev/null +++ b/src/basque/DocumentationEus.gf @@ -0,0 +1,39 @@ +--# -path=.:../abstract:../common +concrete DocumentationEus of Documentation = CatEus ** open + ResEus, + Prelude, + HTML in { + +lincat + Inflection = {t : Str; s1,s2 : Str} ; + Definition = {s : Str} ; + Document = {s : Str} ; + Tag = {s : Str} ; + +lin + InflectionN, InflectionN2, InflectionN3 = \n -> { + t = "n" ; + s1 = heading1 "Noun" ; + s2 = frameTable ( + tr (th "" ++ th "Sg" ++ th "Pl") ++ + tr (th "absolutive" ++ td (n.s++artDef ! Sg ! Abs ! n.ph) ++ td (n.s++artDef ! Pl ! Abs ! n.ph)) ++ + tr (th "ergative" ++ td (n.s++artDef ! Sg ! Erg ! n.ph) ++ td (n.s++artDef ! Pl ! Erg ! n.ph)) ++ + tr (th "dative" ++ td (n.s++artDef ! Sg ! Dat ! n.ph) ++ td (n.s++artDef ! Pl ! Dat ! n.ph)) ++ + tr (th "genitive" ++ td (n.s++artDef ! Sg ! Gen ! n.ph) ++ td (n.s++artDef ! Pl ! Gen ! n.ph)) ++ + tr (th "commitative" ++ td (n.s++artDef ! Sg ! Soc ! n.ph) ++ td (n.s++artDef ! Pl ! Soc ! n.ph)) ++ + tr (th "instrumental"++ td (n.s++artDef ! Sg ! Ins ! n.ph) ++ td (n.s++artDef ! Pl ! Ins ! n.ph)) ++ + tr (th "inessive" ++ td (n.s++artDef ! Sg ! Ine ! n.ph) ++ td (n.s++artDef ! Pl ! Ine ! n.ph)) ++ + tr (th "partitive" ++ td (n.s++artDef ! Sg ! Par ! n.ph) ++ td (n.s++artDef ! Pl ! Par ! n.ph)) + ) ; + } ; + +lin + NoDefinition t = {s=t.s}; + MkDefinition t d = {s="
Definition:"++t.s++d.s++"
"}; + MkDefinitionEx t d e = {s="Definition:"++t.s++d.s++"
Example:"++e.s++"
"}; + +lin + MkDocument d i e = {s = i.s1 ++ d.s ++ i.s2 ++ paragraph e.s} ; + MkTag i = {s = i.t} ; + +} diff --git a/src/basque/LangEus.gf b/src/basque/LangEus.gf index e0c69f69..0bee5530 100644 --- a/src/basque/LangEus.gf +++ b/src/basque/LangEus.gf @@ -2,7 +2,8 @@ concrete LangEus of Lang = GrammarEus, LexiconEus, ConstructionEus + ,DocumentationEus --# notpresent ** { -} ; \ No newline at end of file +} ;