From e95c49b76f4ac7bf72c383ee43a0567dfcbf1603 Mon Sep 17 00:00:00 2001 From: Ralph Amissah Date: Mon, 10 Sep 2018 18:15:02 -0400 Subject: 0.1.0 renamed doc-reform, doc_reform (& rad) - from sdp --- src/doc_reform/output/xmls.d | 1036 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 1036 insertions(+) create mode 100644 src/doc_reform/output/xmls.d (limited to 'src/doc_reform/output/xmls.d') diff --git a/src/doc_reform/output/xmls.d b/src/doc_reform/output/xmls.d new file mode 100644 index 0000000..8428204 --- /dev/null +++ b/src/doc_reform/output/xmls.d @@ -0,0 +1,1036 @@ +module doc_reform.output.xmls; +template outputXHTMLs() { + import doc_reform.output; + import + std.digest.sha, + std.file, + std.outbuffer, + std.zip, + std.conv : to; + import + doc_reform.output.create_zip_file, + doc_reform.output.xmls, + doc_reform.output.xmls_css; + mixin SiSUoutputRgxInit; + struct outputXHTMLs { + static auto rgx = Rgx(); + string div_delimit( + string part, + return ref string previous_part + ){ + string delimit = ""; + string delimit_ = ""; + if (part != previous_part) { + switch (part) { + case "head": + delimit_ ~= "\n
\n" ; + break; + case "toc_seg": + delimit_ ~= "\n
\n" ; + break; + case "toc_scroll": + delimit_ ~= "\n
\n" ; + break; + case "bookindex_seg": + delimit_ ~= "\n
\n" ; + break; + case "bookindex_scroll": + delimit_ ~= "\n
\n" ; + break; + default: + delimit_ ~= "\n
\n" ; + break; + } + if (previous_part.length > 0) { + delimit ~= "\n
"; + } + previous_part = part; + delimit ~= delimit_; + } + // you also need to close the last div, introduce a footer? + return delimit; + } + string special_characters(O)( + const O obj, + string _txt + ){ + _txt = (_txt) + .replaceAll(rgx.xhtml_ampersand, "&") + .replaceAll(rgx.xhtml_quotation, """) + .replaceAll(rgx.xhtml_less_than, "<") + .replaceAll(rgx.xhtml_greater_than, ">") + .replaceAll(rgx.nbsp_char, " "); + if (!(obj.metainfo.is_a == "code")) { + _txt = (_txt) + .replaceAll(rgx.xhtml_line_break, "
"); + } + return _txt; + } + string special_characters_text(string _txt){ + _txt = (_txt) + .replaceAll(rgx.xhtml_ampersand, "&") + .replaceAll(rgx.xhtml_quotation, """) + .replaceAll(rgx.xhtml_less_than, "<") + .replaceAll(rgx.xhtml_greater_than, ">") + .replaceAll(rgx.nbsp_char, " "); + return _txt; + } + string font_face(string _txt){ + _txt = (_txt) + .replaceAll(rgx.inline_emphasis, ("$1")) + .replaceAll(rgx.inline_bold, ("$1")) + .replaceAll(rgx.inline_underscore, ("$1")) + .replaceAll(rgx.inline_italics, ("$1")) + .replaceAll(rgx.inline_superscript, ("$1")) + .replaceAll(rgx.inline_subscript, ("$1")) + .replaceAll(rgx.inline_strike, ("$1")) + .replaceAll(rgx.inline_insert, ("$1")) + .replaceAll(rgx.inline_mono, ("$1")) + .replaceAll(rgx.inline_cite, ("$1")); + return _txt; + } + string _xhtml_anchor_tags(const(string[]) anchor_tags) { + string tags=""; + if (anchor_tags.length > 0) { + foreach (tag; anchor_tags) { + if (!(tag.empty)) { + tags ~= ""; + } + } + } + return tags; + } + auto header_metadata(M)( + M doc_matters, + ) { + string _title="Title"; + string _author="Author"; + string _publisher="Publisher"; + string _date="Date"; + string _date_created="Date"; + string _date_issued="Date"; + string _date_available="Date"; + string _date_valid="Date"; + string _date_modified="Date"; + string _language="en"; + string _rights="Copyright: Copyright (C) year holder"; + string _generator="doc_reform [SiSU 7.1.8 of 2016w08/5 (2016-02-26)] (n*x and D)"; + string _generator_home="http://www.sisudoc.org"; + string o; + o = format(q"¶ + + + + + + + + + + + + + + + ¶", + _title, + _author, + _publisher, + _date, + _date_created, + _date_issued, + _date_available, + _date_valid, + _date_modified, + _language, + _rights, + _generator, + _generator_home, + ); + return o; + } + auto site_info_button(M)( + M doc_matters, + ) { + string _locations; + if (doc_matters.conf_make_meta.make.home_button_text.length > 0) { + _locations = (doc_matters.conf_make_meta.make.home_button_text) + .replaceAll( + rgx.inline_link, + ("

$1

")) + .replaceAll( + rgx.br_line, "") + .replaceAll( + rgx.br_nl, ""); + } else { + _locations = "

SiSU

\n

www.sisudoc.org

\n

sources / git

"; + } + string o; + o = format(q"¶
+ %s +
¶", + _locations, + ); + return o; + } + auto inline_search_form(M)( + M doc_matters, + ) { + string _action="http://www.sisudoc.org/cgi-bin/search.cgi"; + string _db="SiSU.7a.manual"; + string o; + o = format(q"¶
+ +
+ + + + + +
+ + +
+
¶", + _action, + _db, + ); + return o; + } + auto html_head(M)( + M doc_matters, + string type, + ) { + string o; + o = format(q"¶ + + + + + %s%s + + + %s + + + + + + + +
+
+ %s +
+ + + [ document manifest ] + + +
+ %s%s¶", + doc_matters.conf_make_meta.meta.title_full, + (doc_matters.conf_make_meta.meta.creator_author.empty) ? "" + : ", " ~ doc_matters.conf_make_meta.meta.creator_author, + header_metadata(doc_matters), + ((type == "seg") ? "../../../" : "../../") ~ "image/rb7.ico", + ((type == "seg") + ? "../../../css/html_seg.css" + : "../../css/html_scroll.css"), + doc_matters.src.language, + site_info_button(doc_matters), + inline_search_form(doc_matters), + ((type == "seg") ? "" : "\n
"), + ); + return o; + } + auto epub3_seg_head(M)( + M doc_matters, + ) { + string html_base = format(q"¶ + ¶", + ); + string html_simple = format(q"¶ + ¶", + doc_matters.src.language, + doc_matters.src.language, + ); + string html_strict = format(q"¶ + ¶", + doc_matters.src.language, + doc_matters.src.language, + ); + string o; + o = format(q"¶%s + + + %s%s + + + + + + + + + + + + + + + + + + + + ¶", + html_simple, + doc_matters.conf_make_meta.meta.title_full, + (doc_matters.conf_make_meta.meta.creator_author.empty) ? "" + : ", " ~ doc_matters.conf_make_meta.meta.creator_author, + doc_matters.conf_make_meta.meta.title_full, + (doc_matters.conf_make_meta.meta.creator_author.empty) ? "" + : ", " ~ doc_matters.conf_make_meta.meta.creator_author, + doc_matters.src.language, + ); + return o; + } + auto tail() { + string o; + o = format(q"¶
+ + + + ¶"); + return o; + } + auto inline_images(O)( + const O obj, + string _txt, + string _suffix = ".html", + string _xml_type = "seg", + ) { + string _img_pth; + if (_xml_type == "epub") { + _img_pth = "image/"; + } else if (_xml_type == "scroll") { + _img_pth = "../../image/"; + } else if (_xml_type == "seg") { + _img_pth = "../../../image/"; + } + if (_txt.match(rgx.inline_image)) { + _txt = _txt.replaceAll( + rgx.inline_image, + ("$1 $6")); + } + return _txt; + } + auto inline_links(O)( + const O obj, + string _txt, + string _suffix = ".html", + string _xml_type = "seg", + ) { + if (obj.has.inline_links) { + if ((_txt.match(rgx.mark_internal_site_lnk)) + && (_xml_type == "scroll")) { // conditions reversed to avoid: gdc compiled program run segfault + _txt = (_txt).replaceAll( + rgx.inline_seg_link, + "$1"); + } + _txt = (_txt) + .replaceAll( + rgx.inline_link_fn_suffix, + ("$1" ~ _suffix)) + .replaceAll( + rgx.inline_link, + ("$1")) + .replaceAll( + rgx.mark_internal_site_lnk, + ""); + } + debug(markup_links) { + if (_txt.match(rgx.inline_link)) { + writeln(__LINE__, + " (missed) markup link identified (", + obj.has.inline_links, + "): ", obj.metainfo.is_a, ": ", + obj.text + ); + } + } + debug(markup) { + if (_txt.match(rgx.inline_link)) { + writeln(__LINE__, + " (missed) markup link identified (", + obj.has.inline_links, + "): ", obj.metainfo.is_a, ": ", + obj.text + ); + } + } + return _txt; + } + auto inline_notes_scroll(O)( + const O obj, + string _txt, + ) { + if (obj.has.inline_notes_reg) { + _txt = font_face(_txt); + _txt = (_txt).replaceAll( + rgx.inline_notes_delimiter_al_regular_number_note, + (" $1 ") + ); + } + debug(markup_endnotes) { + if (_txt.match(rgx.inline_notes_delimiter_al_regular_number_note)) { + writeln(__LINE__, " (missed) markup endnote: ", obj.metainfo.is_a, ": ", obj.text); + } + } + debug(markup) { + if (_txt.match(rgx.inline_notes_delimiter_al_regular_number_note)) { + writeln(__LINE__, " (missed) markup endnote: ", obj.metainfo.is_a, ": ", obj.text); + } + } + return _txt; + } + auto inline_notes_seg(O)( + const O obj, + string _txt, + ) { + string[] _endnotes; + if (obj.has.inline_notes_reg) { + _txt = font_face(_txt); + /+ need markup for text, and separated footnote +/ + foreach(m; _txt.matchAll(rgx.inline_notes_delimiter_al_regular_number_note)) { + _endnotes ~= format( + "%s%s%s%s\n %s%s%s%s%s\n %s\n%s", + "

", + "", + " ", + m.captures[1], + ".", + m.captures[2], + "

" + ); + } + _txt = (_txt).replaceAll( + rgx.inline_notes_delimiter_al_regular_number_note, + (" $1 ") + ); + } else if (_txt.match(rgx.inline_notes_delimiter_al_regular_number_note)) { + debug(markup) { + writeln(__LINE__, " endnote: ", obj.metainfo.is_a, ": ", obj.text); + } + } + auto t = tuple( + _txt, + _endnotes, + ); + return t; + } + auto inline_markup_scroll(O)( + const O obj, + string _txt, + string _suffix = ".html", + ) { + _txt = inline_images(obj, _txt, _suffix, "scroll"); + _txt = inline_links(obj, _txt, _suffix, "scroll"); + _txt = inline_notes_scroll(obj, _txt); + return _txt; + } + auto inline_markup_seg(O)( + const O obj, + string _txt, + string _suffix = ".html", + string _xml_type = "seg", + ) { + _txt = inline_images(obj, _txt, _suffix, _xml_type); + _txt = inline_links(obj, _txt, _suffix, _xml_type); + auto t = inline_notes_seg(obj, _txt); + return t; + } + string lev4_heading_subtoc(O)( + const O obj, + ) { + char[] lev4_subtoc; + lev4_subtoc ~= "
\n"; + foreach (subtoc; obj.tags.lev4_subtoc) { + if (auto m = subtoc.match(rgx.inline_link_subtoc)) { + auto indent = m.captures[1].to!string; + auto text = m.captures[2].to!string; + text = font_face(text); + auto link = m.captures[3].to!string; + lev4_subtoc ~= subtoc.replaceFirst(rgx.inline_link_subtoc, + format(q"¶

+ %s +

+ ¶", + indent, + indent, + link, + text, + )); + } + } + lev4_subtoc ~= "
\n"; + return lev4_subtoc.to!string; + } + auto nav_pre_next_svg(O)( + const O obj, + ) { + string prev, next, toc; + if (obj.tags.segment_anchor_tag == "toc") { + toc = ""; + prev = ""; + } else { + toc = format(q"¶ +
+ + + +
+ ¶", + ); + } + if (obj.tags.segname_prev == "") { + prev = ""; + } else { + prev = format(q"¶ + + ¶", + obj.tags.segname_prev, + ); + } + if (obj.tags.segname_next == "") { + next = ""; + } else { + next = format(q"¶ + + ¶", + obj.tags.segname_next, + ); + } + string _toc_pre_next = format(q"¶
+
+ %s + %s + %s +
+
+
+
¶", + toc, + prev, + next, + ); + string _pre_next = format(q"¶
+
+ %s + %s +
+
+
+
¶", + prev, + next, + ); + struct bar { + string toc_pre_next() { + return _toc_pre_next; + } + string pre_next() { + return _pre_next; + } + } + return bar(); + } + auto heading(O)( + const O obj, + string _txt, + string _xml_type = "html", + ) { + auto tags = _xhtml_anchor_tags(obj.tags.anchor_tags); + string _horizontal_rule = "
"; + if ((_xml_type != "html") + || (obj.metainfo.heading_lev_markup == 0 || obj.metainfo.heading_lev_markup > 4)) { + _horizontal_rule = ""; + } + _txt = font_face(_txt); + string o; + if (obj.metainfo.object_number.empty) { + o = format(q"¶%s +
+ %s + %s + +
¶", + _horizontal_rule, + obj.metainfo.heading_lev_markup, + obj.metainfo.is_a, + tags, + _txt, + obj.metainfo.heading_lev_markup, + ); + } else { + o = format(q"¶%s +
+ + %s + %s + +
¶", + _horizontal_rule, + obj.metainfo.object_number, + obj.metainfo.object_number, + obj.metainfo.heading_lev_markup, + obj.metainfo.is_a, + obj.metainfo.object_number, + obj.metainfo.object_number, + tags, + _txt, + obj.metainfo.heading_lev_markup, + ); + } + return o; + } + auto heading_scroll(O)( + const O obj, + string _txt, + string _suffix = ".html", + ) { + auto tags = _xhtml_anchor_tags(obj.tags.anchor_tags); + _txt = inline_markup_scroll(obj, _txt, _suffix); + string o = heading(obj, _txt); + return o; + } + auto heading_seg(O)( + const O obj, + string _txt, + string _suffix = ".html", + string _xml_type = "html", + ) { + auto t = inline_markup_seg(obj, _txt, _suffix, _xml_type); + _txt = t[0]; + string[] _endnotes = t[1]; + string o = heading(obj, _txt, _xml_type); + auto u = tuple( + o, + _endnotes, + ); + return u; + } + auto para(O)( + const O obj, + string _txt, + ) { + auto tags = _xhtml_anchor_tags(obj.tags.anchor_tags); + _txt = font_face(_txt); + string o; + _txt = (obj.attrib.bullet) ? ("●  " ~ _txt) : _txt; + if (obj.metainfo.object_number.empty) { + o = format(q"¶
+

%s + %s +

+
¶", + obj.metainfo.is_a, + obj.attrib.indent_hang, + obj.attrib.indent_base, + tags, + _txt + ); + } else { + o = format(q"¶
+ +

%s + %s +

+
¶", + obj.metainfo.object_number, + obj.metainfo.object_number, + obj.metainfo.is_a, + obj.attrib.indent_hang, + obj.attrib.indent_base, + obj.metainfo.object_number, + tags, + _txt + ); + } + return o; + } + auto para_scroll(O)( + const O obj, + string _txt, + string _suffix = ".html", + ) { + auto tags = _xhtml_anchor_tags(obj.tags.anchor_tags); + _txt = inline_markup_scroll(obj, _txt, _suffix); + string o = para(obj, _txt); + return o; + } + auto para_seg(O)( + const O obj, + string _txt, + string _suffix = ".html", + string _xml_type = "html", + ) { + auto t = inline_markup_seg(obj, _txt, _suffix, _xml_type); + _txt = t[0].to!string; + string[] _endnotes = t[1]; + string o = para(obj, _txt); + auto u = tuple( + o, + _endnotes, + ); + return u; + } + auto quote(O)( + const O obj, + string _txt, + ) { + _txt = font_face(_txt); + string o; + if (obj.metainfo.object_number.empty) { + o = format(q"¶
+

+ %s +

+
¶", + obj.metainfo.is_a, + _txt + ); + } else { + o = format(q"¶
+ +

+ %s +

+
¶", + obj.metainfo.object_number, + obj.metainfo.object_number, + obj.metainfo.is_a, + obj.metainfo.object_number, + _txt + ); + } + return o; + } + auto quote_scroll(O)( + const O obj, + string _txt, + string _suffix = ".html", + ) { + auto tags = _xhtml_anchor_tags(obj.tags.anchor_tags); + _txt = inline_markup_scroll(obj, _txt, _suffix); + string o = quote(obj, _txt); + return o; + } + auto quote_seg(O)( + const O obj, + string _txt, + string _suffix = ".html", + string _xml_type = "html", + ) { + auto t = inline_markup_seg(obj, _txt, _suffix, _xml_type); + _txt = t[0].to!string; + string[] _endnotes = t[1]; + string o = quote(obj, _txt); + auto u = tuple( + o, + _endnotes, + ); + return u; + } + auto group(O)( + const O obj, + string _txt, + ) { + _txt = font_face(_txt); + string o; + if (obj.metainfo.object_number.empty) { + o = format(q"¶
+

+ %s +

+
¶", + obj.metainfo.is_a, + _txt + ); + } else { + o = format(q"¶
+ +

+ %s +

+
¶", + obj.metainfo.object_number, + obj.metainfo.object_number, + obj.metainfo.is_a, + obj.metainfo.object_number, + _txt + ); + } + return o; + } + auto group_scroll(O)( + const O obj, + string _txt, + string _suffix = ".html", + string _xml_type = "html", + ) { + auto tags = _xhtml_anchor_tags(obj.tags.anchor_tags); + _txt = inline_markup_scroll(obj, _txt, _suffix); + string o = group(obj, _txt); + return o; + } + auto group_seg(O)( + const O obj, + string _txt, + string _suffix = ".html", + string _xml_type = "html", + ) { + auto t = inline_markup_seg(obj, _txt, _suffix, _xml_type); + _txt = t[0].to!string; + string[] _endnotes = t[1]; + string o = group(obj, _txt); + auto u = tuple( + o, + _endnotes, + ); + return u; + } + auto block(O)( + const O obj, + string _txt, + ) { + _txt = font_face(_txt); + string o; + if (obj.metainfo.object_number.empty) { + o = format(q"¶
+

%s

+
¶", + obj.metainfo.is_a, + _txt.stripRight + ); + } else { + o = format(q"¶
+ +

%s

+
¶", + obj.metainfo.object_number, + obj.metainfo.object_number, + obj.metainfo.is_a, + obj.metainfo.object_number, + _txt.stripRight + ); + } + return o; + } + auto block_scroll(O)( + const O obj, + string _txt, + string _suffix = ".html", + string _xml_type = "html", + ) { + auto tags = _xhtml_anchor_tags(obj.tags.anchor_tags); + _txt = inline_markup_scroll(obj, _txt, _suffix); + string o = block(obj, _txt); + return o; + } + auto block_seg(O)( + const O obj, + string _txt, + string _suffix = ".html", + string _xml_type = "html", + ) { + auto t = inline_markup_seg(obj, _txt, _suffix, _xml_type); + _txt = t[0].to!string; + string[] _endnotes = t[1]; + string o = block(obj, _txt); + auto u = tuple( + o, + _endnotes, + ); + return u; + } + auto verse(O)( + const O obj, + string _txt, + ) { + _txt = font_face(_txt); + string o; + if (obj.metainfo.object_number.empty) { + o = format(q"¶
+

%s

+
¶", + obj.metainfo.is_a, + _txt + ); + } else { + o = format(q"¶
+ +

%s

+
¶", + obj.metainfo.object_number, + obj.metainfo.object_number, + obj.metainfo.is_a, + obj.metainfo.object_number, + _txt + ); + } + return o; + } + auto verse_scroll(O)( + const O obj, + string _txt, + string _suffix = ".html", + string _xml_type = "html", + ) { + auto tags = _xhtml_anchor_tags(obj.tags.anchor_tags); + _txt = inline_markup_scroll(obj, _txt, _suffix); + string o = verse(obj, _txt); + return o; + } + auto verse_seg(O)( + const O obj, + string _txt, + string _suffix = ".html", + string _xml_type = "html", + ) { + auto t = inline_markup_seg(obj, _txt, _suffix, _xml_type); + _txt = t[0].to!string; + string[] _endnotes = t[1]; + string o = verse(obj, _txt); + auto u = tuple( + o, + _endnotes, + ); + return u; + } + auto tablarize(O)( + const O obj, + string _txt, + ) { + string[] _table_rows = (_txt).split(rgx.table_delimiter_row); + string[] _table_cols; + string _table; + string _tablenote; + foreach(row_idx, row; _table_rows) { + _table_cols = row.split(rgx.table_delimiter_col); + _table ~= ""; + foreach(col_idx, cell; _table_cols) { + if ((_table_cols.length == 1) + && (_table_rows.length <= row_idx+2)) { + _tablenote ~= cell; + } else { + string _col_is = (row_idx == 0 && obj.table.heading) ? "th" : "td"; + string _align = ("style=\"text-align:" + ~ ((obj.table.column_aligns[col_idx] == "l") + ? "left\"" : "right\"")); + _table ~= "<" ~ _col_is ~ " width=\"" ~ obj.table.column_widths[col_idx].to!string ~ "%\" " ~ _align ~ ">"; + _table ~= cell; + _table ~= ""; + } + } + _table ~= ""; + } + auto t = tuple( + _table, + _tablenote, + ); + return t; + } + auto table(O)( + const O obj, + string _txt, + ) { + auto tags = _xhtml_anchor_tags(obj.tags.anchor_tags); + _txt = font_face(_txt); + auto t = tablarize(obj, _txt); + _txt = t[0]; + string _note = t[1]; + string o; + o = format(q"¶
+ +

%s + + %s +
+ %s +

+
¶", + obj.metainfo.object_number, + obj.metainfo.object_number, + obj.metainfo.is_a, + obj.metainfo.object_number, + tags, + _txt, + _note + ); + return o; + } + auto endnote(O)( + const O obj, + string _txt, + ) { + string o; + o = format(q"¶

+ %s +

¶", + obj.metainfo.is_a, + obj.attrib.indent_hang, + obj.attrib.indent_base, + _txt + ); + return o; + } + auto code(O)( + const O obj, + string _txt, + ) { + string o; + if (obj.metainfo.object_number.empty) { + o = format(q"¶
+

%s

+
¶", + obj.metainfo.is_a, + _txt + ); + } else { + o = format(q"¶
+ +

%s

+
¶", + obj.metainfo.object_number, + obj.metainfo.object_number, + obj.metainfo.is_a, + obj.metainfo.object_number, + _txt + ); + } + return o; + } + } +} -- cgit v1.2.3