module sdp.output.xmls; template outputXHTMLs() { import sdp.output; import std.digest.sha, std.file, std.outbuffer, std.zip, std.conv : to; import sdp.output.create_zip_file, sdp.output.xmls, sdp.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)( auto return ref 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.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(Dm)( Dm 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="sdp [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(Dm)( Dm doc_matters, ) { string _location_1_url ="http://www.sisudoc.org"; string _location_1_lnk ="SiSU"; string _location_2_url ="http://www.sisudoc.org"; string _location_2_lnk ="www.sisudoc.org"; string _location_3_url ="http://www.sisudoc.org"; string _location_3_lnk ="sisu"; string o; o = format(q"¶¶", _location_1_url, _location_1_lnk, _location_2_url, _location_2_lnk, _location_3_url, _location_3_lnk, ); return o; } auto inline_search_form(Dm)( Dm 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(Dm)( Dm doc_matters, string type, ) { string o; o = format(q"¶ %s%s %s
%s %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.language, site_info_button(doc_matters), inline_search_form(doc_matters), ((type == "seg") ? "" : "\n
"), ); return o; } auto epub3_seg_head(Dm)( Dm doc_matters, ) { string html_base = format(q"¶ ¶", ); string html_simple = format(q"¶ ¶", doc_matters.language, doc_matters.language, ); string html_strict = format(q"¶ ¶", doc_matters.language, doc_matters.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.language, ); return o; } auto tail() { string o; o = format(q"¶
¶"); return o; } auto inline_links(O)( auto return ref const O obj, string _txt, string _suffix = ".html", string seg_scroll = "seg", ) { if (obj.inline_links) { if ((_txt.match(rgx.mark_internal_site_lnk)) && (seg_scroll == "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)); _txt = (_txt).replaceAll( rgx.inline_link, ("$1")); _txt = (_txt).replaceAll( rgx.mark_internal_site_lnk, "" ); } debug(markup_links) { if (_txt.match(rgx.inline_link)) { writeln(__LINE__, " (missed) markup link identified (", obj.inline_links, "): ", obj.is_a, ": ", obj.text ); } } debug(markup) { if (_txt.match(rgx.inline_link)) { writeln(__LINE__, " (missed) markup link identified (", obj.inline_links, "): ", obj.is_a, ": ", obj.text ); } } return _txt; } auto inline_notes_scroll(O)( auto return ref const O obj, string _txt, ) { if (obj.inline_notes_reg) { _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.is_a, ": ", obj.text); } } debug(markup) { if (_txt.match(rgx.inline_notes_delimiter_al_regular_number_note)) { writeln(__LINE__, " (missed) markup endnote: ", obj.is_a, ": ", obj.text); } } return _txt; } auto inline_notes_seg(O)( auto return ref const O obj, string _txt, ) { string[] _endnotes; if (obj.inline_notes_reg) { /+ 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.is_a, ": ", obj.text); } } auto t = tuple( _txt, _endnotes, ); return t; } auto inline_markup_scroll(O)( auto return ref const O obj, string _txt, string _suffix = ".html", ) { _txt = inline_links(obj, _txt, _suffix, "scroll"); _txt = inline_notes_scroll(obj, _txt); return _txt; } auto inline_markup_seg(O)( auto return ref const O obj, string _txt, string _suffix = ".html", ) { _txt = inline_links(obj, _txt, _suffix, "seg"); auto t = inline_notes_seg(obj, _txt); return t; } string lev4_heading_subtoc(O)( auto return ref const O obj, ) { char[] lev4_subtoc; lev4_subtoc ~= "
\n"; foreach (subtoc; obj.lev4_subtoc) { if (auto m = subtoc.match(rgx.inline_link_subtoc)) { auto indent = to!string(m.captures[1]); auto text = to!string(m.captures[2]); text = font_face(text); auto link = to!string(m.captures[3]); 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)( auto return ref const O obj, ) { string prev, next, toc; if (obj.segment_anchor_tag == "toc") { toc = ""; prev = ""; } else { toc = format(q"¶ ¶", ); } if (obj.segname_prev == "") { prev = ""; } else { prev = format(q"¶ ¶", obj.segname_prev, ); } if (obj.segname_next == "") { next = ""; } else { next = format(q"¶ ¶", obj.segname_next, ); } string _toc_pre_next = format(q"¶
¶", toc, prev, next, ); string _pre_next = format(q"¶
¶", prev, next, ); struct bar { string toc_pre_next() { return _toc_pre_next; } string pre_next() { return _pre_next; } } return bar(); } auto heading(O)( auto return ref const O obj, string _txt, string _type="html", ) { auto tags = _xhtml_anchor_tags(obj.anchor_tags); string _horizontal_rule = "
"; if ((_type != "html") || (obj.heading_lev_markup == 0 || obj.heading_lev_markup > 4)) { _horizontal_rule = ""; } _txt = font_face(_txt); string o; if (obj.obj_cite_number.empty) { o = format(q"¶%s
%s %s
¶", _horizontal_rule, obj.heading_lev_markup, obj.is_a, tags, _txt, obj.heading_lev_markup, ); } else { o = format(q"¶%s
%s %s
¶", _horizontal_rule, obj.obj_cite_number, obj.obj_cite_number, obj.heading_lev_markup, obj.is_a, obj.obj_cite_number, obj.obj_cite_number, tags, _txt, obj.heading_lev_markup, ); } return o; } auto heading_scroll(O)( auto return ref const O obj, string _txt, string _suffix = ".html", ) { auto tags = _xhtml_anchor_tags(obj.anchor_tags); _txt = inline_markup_scroll(obj, _txt, _suffix); string o = heading(obj, _txt); return o; } auto heading_seg(O)( auto return ref const O obj, string _txt, string _suffix = ".html", string _type = "html", ) { auto t = inline_markup_seg(obj, _txt, _suffix); _txt = t[0]; string[] _endnotes = t[1]; string o = heading(obj, _txt, _type); auto u = tuple( o, _endnotes, ); return u; } auto para(O)( auto return ref const O obj, string _txt, ) { auto tags = _xhtml_anchor_tags(obj.anchor_tags); _txt = font_face(_txt); string o; _txt = (obj.bullet) ? ("●  " ~ _txt) : _txt; if (obj.obj_cite_number.empty) { o = format(q"¶

%s %s

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

%s %s

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

%s

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

%s

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

%s

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

%s

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

%s

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

%s

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

%s

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

%s

¶", obj.obj_cite_number, obj.obj_cite_number, obj.is_a, obj.obj_cite_number, _txt ); } return o; } auto verse_scroll(O)( auto return ref const O obj, string _txt, string _suffix = ".html", ) { auto tags = _xhtml_anchor_tags(obj.anchor_tags); _txt = inline_markup_scroll(obj, _txt, _suffix); string o = verse(obj, _txt); return o; } auto verse_seg(O)( auto return ref const O obj, string _txt, string _suffix = ".html", ) { auto t = inline_markup_seg(obj, _txt, _suffix); _txt = to!string(t[0]); string[] _endnotes = t[1]; string o = verse(obj, _txt); auto u = tuple( o, _endnotes, ); return u; } auto tablarize(O)( auto return ref 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)( auto return ref const O obj, string _txt, ) { auto tags = _xhtml_anchor_tags(obj.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.obj_cite_number, obj.obj_cite_number, obj.is_a, obj.obj_cite_number, tags, _txt, _note ); return o; } auto endnote(O)( auto return ref const O obj, string _txt, ) { string o; o = format(q"¶

%s

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

%s

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

%s

¶", obj.obj_cite_number, obj.obj_cite_number, obj.is_a, obj.obj_cite_number, _txt ); } return o; } } }