aboutsummaryrefslogtreecommitdiffhomepage
path: root/org
diff options
context:
space:
mode:
authorRalph Amissah <ralph.amissah@gmail.com>2020-05-04 15:16:25 -0400
committerRalph Amissah <ralph.amissah@gmail.com>2020-05-20 11:27:26 -0400
commit673aea9d0099343289aa7091f6622133a57e1843 (patch)
tree514bf9480d5219e55a1d9b201971eac85918722d /org
parentrenaming (diff)
doc abstraction, object numbering and dummy headings
Diffstat (limited to 'org')
-rw-r--r--org/metaverse.org222
1 files changed, 116 insertions, 106 deletions
diff --git a/org/metaverse.org b/org/metaverse.org
index 0192f1a..53e4014 100644
--- a/org/metaverse.org
+++ b/org/metaverse.org
@@ -174,6 +174,13 @@ mixin spineRgxIn;
on,
closing,
}
+ enum ocn {
+ off,
+ on,
+ closing,
+ bkidx,
+ reset,
+ }
enum sect {
unset,
head,
@@ -220,8 +227,7 @@ enum DocStructMarkupHeading {
h_text_5, // extra level, drop
content_non_header
} // header section A-D; header text 1-4
-enum OCNstatus { on, off, bkidx, closing, reset, }
-enum OCN_off_block_status { off, on }
+enum Status { off, on, }
enum OCNtype { ocn, non, bkidx, }
/+ biblio variables +/
string biblio_tag_name, biblio_tag_entry, st;
@@ -580,11 +586,14 @@ uint[string] dochas = [
"images" : 0,
];
auto obj_type_status = flags_type_init;
-int[string] track_state = [
- "section" : 0,
- "block" : 0,
- "obj" : 0,
- "ocn" : 0,
+int[string] pith = [
+ "ocn" : 1,
+ "section" : 0,
+ "block" : 0,
+ "obj" : 0,
+ "dummy_heading_status" : 0,
+ "no_ocn_multiple_objects" : 0,
+ "heading_multiple_objects" : 0,
];
string[string] object_number_poem = [
"start" : "",
@@ -738,7 +747,7 @@ debug(srclines) {
#+NAME: abs_in_loop_body_00
#+BEGIN_SRC d
if (!line.empty) {
- obj_type_status = line._check_ocn_status_(obj_type_status);
+ pith = line._check_ocn_status_(pith);
}
#+END_SRC
@@ -766,15 +775,15 @@ line = line.inline_markup_faces; // by text line (rather than by text object), l
#+NAME: abs_in_loop_body_non_code_obj
#+BEGIN_SRC d
if (line.matchFirst(rgx.heading_biblio)
-|| (track_state["section"] == eN.sect.bibliography
+|| (pith["section"] == eN.sect.bibliography
&& ((!(line.matchFirst(rgx.heading_glossary)))
&& (!(line.matchFirst(rgx.heading_blurb)))
&& (!(line.matchFirst(rgx.heading)))
&& (!(line.matchFirst(rgx.comment)))))
) {
- track_state["section"] = eN.sect.bibliography;
+ pith["section"] = eN.sect.bibliography;
if (opt_action.backmatter && opt_action.section_biblio) {
- line.flow_txt_block_biblio(obj_type_status, bib_entry, biblio_entry_str_json, biblio_arr_json, track_state);
+ line.flow_txt_block_biblio(obj_type_status, bib_entry, biblio_entry_str_json, biblio_arr_json, pith);
debug(bibliobuild) {
writeln("- ", biblio_entry_str_json);
writeln("-> ", biblio_arr_json.length);
@@ -795,7 +804,7 @@ if there is a glossary section you need to:
#+NAME: abs_in_loop_body_non_code_obj
#+BEGIN_SRC d
} else if (line.matchFirst(rgx.heading_glossary)
-|| (track_state["section"] == eN.sect.glossary
+|| (pith["section"] == eN.sect.glossary
&& ((!(line.matchFirst(rgx.heading_biblio)))
&& (!(line.matchFirst(rgx.heading_blurb)))
&& (!(line.matchFirst(rgx.heading)))
@@ -806,7 +815,7 @@ if there is a glossary section you need to:
writeln(__LINE__);
writeln(line);
}
- track_state["section"] = eN.sect.glossary;
+ pith["section"] = eN.sect.glossary;
if (opt_action.backmatter && opt_action.section_glossary) {
indent=[
"hang_position" : 0,
@@ -886,7 +895,7 @@ if there is a glossary section you need to:
comp_obj_para.attrib.bullet = bullet;
the_glossary_section ~= comp_obj_para;
}
- obj_type_status["ocn_status"] = OCNstatus.on;
+ pith["ocn"] = eN.ocn.on;
}
continue;
#+END_SRC
@@ -903,13 +912,13 @@ if there is a blurb section you need to:
#+NAME: abs_in_loop_body_non_code_obj
#+BEGIN_SRC d
} else if (line.matchFirst(rgx.heading_blurb)
-|| (track_state["section"] == eN.sect.blurb
+|| (pith["section"] == eN.sect.blurb
&& ((!(line.matchFirst(rgx.heading_glossary)))
&& (!(line.matchFirst(rgx.heading_biblio)))
&& (!(line.matchFirst(rgx.heading)))
&& (!(line.matchFirst(rgx.comment)))))
) {
- track_state["section"] = eN.sect.blurb;
+ pith["section"] = eN.sect.blurb;
debug(blurb) {
writeln(__LINE__);
writeln(line);
@@ -1046,7 +1055,7 @@ if there is a blurb section you need to:
comp_obj_para.attrib.bullet = bullet;
the_blurb_section ~= comp_obj_para;
}
- obj_type_status["ocn_status"] = OCNstatus.on;
+ pith["ocn"] = eN.ocn.on;
}
continue;
#+END_SRC
@@ -1099,7 +1108,7 @@ if there is a blurb section you need to:
#+NAME: abs_in_loop_body_non_code_obj
#+BEGIN_SRC d
} else if (obj_type_status["poem"] == eN.tri.on) { /+ within block object: poem +/
- an_object = line.flow_txt_block_poem(an_object, obj_type_status, cntr, object_number_poem, conf_make_meta, tag_in_seg);
+ an_object = line.flow_txt_block_poem(an_object, obj_type_status, pith, cntr, object_number_poem, conf_make_meta, tag_in_seg);
continue;
#+END_SRC
@@ -1108,7 +1117,7 @@ if there is a blurb section you need to:
#+NAME: abs_in_loop_body_non_code_obj
#+BEGIN_SRC d
} else if (obj_type_status["table"] == eN.tri.on) { /+ within block object: table +/
- an_object = line.flow_txt_block_table(an_object, obj_type_status, conf_make_meta);
+ an_object = line.flow_txt_block_table(an_object, obj_type_status, pith, conf_make_meta);
continue;
#+END_SRC
@@ -1160,7 +1169,7 @@ if (obj_type_status["blocks"] == eN.tri.closing) {
assert(
line.matchFirst(rgx.book_index_item)
|| line.matchFirst(rgx.book_index_item_open)
- || track_state["section"] == eN.sect.book_index,
+ || pith["section"] == eN.sect.book_index,
"\nblocks closed, unless followed by book index, non-matching line:\n \""
~ line ~ "\""
);
@@ -1173,8 +1182,8 @@ if (obj_type_status["blocks"] == eN.tri.closing) {
#+BEGIN_SRC d
if (line.matchFirst(rgx.book_index_item)
|| line.matchFirst(rgx.book_index_item_open)
-|| track_state["section"] == eN.sect.book_index) { /+ book_index +/
- an_object = line.flow_book_index_(an_object, book_idx_tmp, obj_type_status, track_state, opt_action);
+|| pith["section"] == eN.sect.book_index) { /+ book_index +/
+ an_object = line.flow_book_index_(an_object, book_idx_tmp, obj_type_status, pith, opt_action);
#+END_SRC
******* not book index [+1]
@@ -1241,7 +1250,7 @@ if (line.matchFirst(rgx.book_index_item)
collapsed_lev,
obj_type_status,
conf_make_meta,
- track_state,
+ pith,
);
} else if (line_occur["para"] == eN.bi.off) { /+ para match +/
an_object_key="body_nugget";
@@ -1294,6 +1303,7 @@ an_object = line.flow_block_flag_line_empty_(
comp_obj_heading,
cntr,
obj_type_status,
+ pith,
object_number_poem,
conf_make_meta,
tag_in_seg,
@@ -1328,8 +1338,8 @@ if (_new_doc) {
if ((obj_type_status["heading"] == eN.bi.on)
&& (line_occur["heading"] > eN.bi.off)) { /+ heading object (current line empty) +/
obj_cite_digits = (an_object["lev_markup_number"].to!int == 0)
- ? ocn_emit(OCNstatus.reset)
- : ocn_emit(obj_type_status["ocn_status"]);
+ ? ocn_emit(eN.ocn.reset)
+ : ocn_emit(pith["ocn"]);
an_object["is"] = "heading";
an_object_key="body_nugget";
TxtAndAnchorTagPlusHasFootnotesUrlsImages substantive_object_and_anchor_tags_tuple
@@ -1458,9 +1468,9 @@ if ((obj_type_status["heading"] == eN.bi.on)
/+ paragraph object (current line empty) +/
/+ repeated character paragraph separator +/
if ((an_object[an_object_key].to!string).matchFirst(rgx.repeated_character_line_separator)) {
- obj_type_status["ocn_status"] = OCNstatus.off;
+ pith["ocn"] = eN.ocn.off;
}
- obj_cite_digits = ocn_emit(obj_type_status["ocn_status"]);
+ obj_cite_digits = ocn_emit(pith["ocn"]);
an_object["bookindex_nugget"]
= ("bookindex_nugget" in an_object) ? an_object["bookindex_nugget"] : "";
bookindex_unordered_hashes
@@ -1532,7 +1542,7 @@ if (the_document_body_section.length > 0) {
&& (the_document_body_section.length > previous_length)) {
if ((the_document_body_section[$-1].metainfo.is_a == "heading")
&& (the_document_body_section[$-1].metainfo.heading_lev_markup < 5)) {
- track_state["section"] = eN.sect.unset;
+ pith["section"] = eN.sect.unset;
}
if (the_document_body_section[$-1].metainfo.is_a == "verse") { /+ scan for endnotes for whole poem (each verse in poem) +/
foreach (i; previous_length .. the_document_body_section.length) {
@@ -2599,7 +2609,7 @@ if (the_endnotes_section.length > 1) {
writeln(obj.text);
}
if (obj.metainfo.heading_lev_markup == 1) {
- obj_cite_digits = ocn_emit(OCNstatus.on);
+ obj_cite_digits = ocn_emit(eN.ocn.on);
obj.metainfo.ocn = obj_cite_digits.object_number;
obj.metainfo.identifier = obj_cite_digits.identifier;
}
@@ -2640,7 +2650,7 @@ if (the_glossary_section.length > 1) {
writeln(obj.text);
}
if (obj.metainfo.heading_lev_markup == 1) {
- obj_cite_digits = ocn_emit(OCNstatus.on);
+ obj_cite_digits = ocn_emit(eN.ocn.on);
obj.metainfo.ocn = obj_cite_digits.object_number;
obj.metainfo.identifier = obj_cite_digits.identifier;
}
@@ -2662,7 +2672,7 @@ if (the_glossary_section.length > 1) {
}
obj = obj.obj_heading_ancestors(lv_ancestors_txt);
} else if (obj.metainfo.is_a == "glossary" && !(obj.text.empty)) {
- obj_cite_digits = ocn_emit(OCNstatus.on);
+ obj_cite_digits = ocn_emit(eN.ocn.on);
obj.metainfo.ocn = obj_cite_digits.object_number;
obj.metainfo.identifier = obj_cite_digits.identifier;
}
@@ -2685,7 +2695,7 @@ if (the_bibliography_section.length > 1) {
writeln(obj.text);
}
if (obj.metainfo.heading_lev_markup == 1) {
- obj_cite_digits = ocn_emit(OCNstatus.on);
+ obj_cite_digits = ocn_emit(eN.ocn.on);
obj.metainfo.ocn = obj_cite_digits.object_number;
obj.metainfo.identifier = obj_cite_digits.identifier;
}
@@ -2707,7 +2717,7 @@ if (the_bibliography_section.length > 1) {
}
obj = obj.obj_heading_ancestors(lv_ancestors_txt);
} else if (obj.metainfo.is_a == "bibliography") {
- obj_cite_digits = ocn_emit(OCNstatus.on);
+ obj_cite_digits = ocn_emit(eN.ocn.on);
obj.metainfo.ocn = obj_cite_digits.object_number;
obj.metainfo.identifier = obj_cite_digits.identifier;
}
@@ -2737,7 +2747,7 @@ if (the_bookindex_section.length > 1) { /
segnames_0_to_4 ~= obj.tags.segment_anchor_tag_epub;
}
if (obj.metainfo.heading_lev_markup == 1) {
- obj_cite_digits = ocn_emit(OCNstatus.on);
+ obj_cite_digits = ocn_emit(eN.ocn.on);
obj.metainfo.ocn = obj_cite_digits.object_number;
obj.metainfo.identifier = obj_cite_digits.identifier;
}
@@ -2758,7 +2768,7 @@ if (the_bookindex_section.length > 1) { /
}
obj = obj.obj_heading_ancestors(lv_ancestors_txt);
} else if (obj.metainfo.is_a == "bookindex") {
- obj_cite_digits = ocn_emit(OCNstatus.bkidx);
+ obj_cite_digits = ocn_emit(eN.ocn.bkidx);
obj.metainfo.ocn = obj_cite_digits.object_number;
obj.metainfo.identifier = obj_cite_digits.identifier;
obj.metainfo.o_n_book_index = obj_cite_digits.bkidx;
@@ -2785,7 +2795,7 @@ if (the_blurb_section.length > 1) {
writeln(obj.text);
}
if (obj.metainfo.heading_lev_markup == 1) {
- obj_cite_digits = ocn_emit(OCNstatus.on);
+ obj_cite_digits = ocn_emit(eN.ocn.on);
obj.metainfo.ocn = obj_cite_digits.object_number;
obj.metainfo.identifier = obj_cite_digits.identifier;
}
@@ -2807,7 +2817,7 @@ if (the_blurb_section.length > 1) {
}
obj = obj.obj_heading_ancestors(lv_ancestors_txt);
} else if (obj.metainfo.is_a == "blurb") {
- obj_cite_digits = ocn_emit(OCNstatus.off);
+ obj_cite_digits = ocn_emit(eN.ocn.off);
obj.metainfo.object_number_off = obj_cite_digits.off;
obj.metainfo.object_number_type = OCNtype.non;
}
@@ -3047,7 +3057,7 @@ destroy(the_blurb_section);
destroy(segnames);
destroy(bookindex_unordered_hashes);
destroy(an_object);
-obj_cite_digits = ocn_emit(OCNstatus.reset);
+obj_cite_digits = ocn_emit(eN.ocn.reset);
biblio_arr_json = [];
obj_cite_digit_ = 0;
html_segnames_ptr = 0;
@@ -3167,63 +3177,58 @@ functions used in document abstraction
#+NAME: abs_functions_ocn_status
#+BEGIN_SRC d
@safe static int[string] _check_ocn_status_()(
- char[] line,
- int[string] obj_type_status,
+ char[] line,
+ int[string] pith,
) {
static auto rgx = RgxI();
- if (!(line.empty)
- && (obj_type_status["ocn_status_off_for_multiple_objects"] == OCN_off_block_status.off)
- ) {
- /+ not multi-line object, check whether object_number is on or turned off +/
- if (line.matchFirst(rgx.object_number_block_marks)) { /+ switch off object_number +/
- if (line.matchFirst(rgx.object_number_off_block)) {
- obj_type_status["ocn_status_off_for_multiple_objects"] = OCN_off_block_status.on;
- obj_type_status["ocn_status"] = OCNstatus.off;
- debug(ocnoff) {
- writeln(line);
- }
- }
- if (line.matchFirst(rgx.object_number_off_block_dummy_heading)) {
- obj_type_status["ocn_status_off_for_multiple_objects"] = OCN_off_block_status.on;
- obj_type_status["heading_off_for_multiple_objects"] = eN.bi.on;
- obj_type_status["ocn_status"] = OCNstatus.off;
- debug(ocnoff) {
- writeln(line);
+ if (!(line.empty)) {
+ if (pith["no_ocn_multiple_objects"] == eN.ocn.off) {
+ /+ not multi-line object, check whether object_number is on or turned off +/
+ if (line.matchFirst(rgx.object_number_block_marks)) { /+ switch off object_number +/
+ if (line.matchFirst(rgx.object_number_off_block)) {
+ pith["no_ocn_multiple_objects"] = eN.ocn.on;
+ pith["ocn"] = eN.ocn.off;
+ debug(ocnoff) {
+ writeln(line);
+ }
}
- }
- } else {
- if (obj_type_status["ocn_status_off_for_multiple_objects"] == OCN_off_block_status.off) {
- obj_type_status["dummy_heading_status"] = eN.bi.off;
- if (obj_type_status["heading_off_for_multiple_objects"]) {
- obj_type_status["dummy_heading_status"] = eN.bi.on;
+ if (line.matchFirst(rgx.object_number_off_block_dummy_heading)) {
+ pith["no_ocn_multiple_objects"] = eN.ocn.on;
+ pith["heading_multiple_objects"] = eN.bi.on;
+ pith["ocn"] = eN.ocn.off;
+ debug(ocnoff) {
+ writeln(line);
+ }
}
- if (line.matchFirst(rgx.object_number_off)) {
- obj_type_status["ocn_status"] = OCNstatus.off;
- } else if (line.matchFirst(rgx.object_number_off_dummy_heading)) {
- obj_type_status["ocn_status"] = OCNstatus.off;
- obj_type_status["dummy_heading_status"] = eN.bi.on;
+ } else if (pith["no_ocn_multiple_objects"] == eN.ocn.off) {
+ pith["dummy_heading_status"] = eN.bi.off;
+ if (pith["heading_multiple_objects"]) {
+ pith["dummy_heading_status"] = eN.bi.on;
+ }
+ if (line.matchFirst(rgx.object_number_off)) {
+ pith["ocn"] = eN.ocn.off;
+ } else if (line.matchFirst(rgx.object_number_off_dummy_heading)) {
+ pith["ocn"] = eN.ocn.off;
+ pith["dummy_heading_status"] = eN.bi.on;
+ } else {
+ pith["ocn"] = eN.ocn.on;
+ pith["dummy_heading_status"] = eN.bi.off;
+ }
} else {
- obj_type_status["ocn_status"] = OCNstatus.on;
- obj_type_status["dummy_heading_status"] = eN.bi.off;
+ pith["ocn"] = pith["no_ocn_multiple_objects"];
+ }
+ } else if (pith["no_ocn_multiple_objects"] == eN.ocn.on) {
+ if (line.matchFirst(rgx.object_number_off_block_close)) {
+ pith["no_ocn_multiple_objects"] = eN.ocn.off;
+ pith["ocn"] = eN.ocn.on;
+ pith["dummy_heading_status"] = eN.bi.off;
+ debug(ocnoff) {
+ writeln(line);
}
- } else {
- obj_type_status["ocn_status"] = obj_type_status["ocn_status_off_for_multiple_objects"];
- }
- }
- } else if (
- !(line.empty)
- && (obj_type_status["ocn_status_off_for_multiple_objects"] > OCN_off_block_status.off)
- ) {
- if (line.matchFirst(rgx.object_number_off_block_close)) {
- obj_type_status["ocn_status_off_for_multiple_objects"] = OCN_off_block_status.off;
- obj_type_status["ocn_status"] = OCNstatus.on;
- obj_type_status["dummy_heading_status"] = eN.bi.off;
- debug(ocnoff) {
- writeln(line);
}
}
}
- return obj_type_status;
+ return pith;
}
#+END_SRC
@@ -3677,13 +3682,13 @@ final string biblio_tag_map_()(string abr) {
return ref int bib_entry,
return ref string biblio_entry_str_json,
return ref string[] biblio_arr_json,
- return ref int[string] track_state,
+ return ref int[string] pith,
) {
mixin spineBiblio;
auto jsn = BibJsnStr();
static auto rgx = RgxI();
if (line.matchFirst(rgx.heading_biblio)) {
- track_state["section"] = eN.sect.bibliography;
+ pith["section"] = eN.sect.bibliography;
}
if (line.empty) {
debug {
@@ -3946,6 +3951,7 @@ why extra object stuff only in poem/verse?
char[] line,
string[string] an_object,
return ref int[string] obj_type_status,
+ return ref int[string] pith,
return ref int cntr,
string[string] object_number_poem,
CMM conf_make_meta,
@@ -4016,7 +4022,7 @@ why extra object stuff only in poem/verse?
} else {
processing["verse"] ~= line ~= "\n";
if (obj_type_status["verse_new"] == eN.bi.on) {
- obj_cite_digits = ocn_emit(obj_type_status["ocn_status"]);
+ obj_cite_digits = ocn_emit(pith["ocn"]);
obj_type_status["verse_new"] = eN.bi.off;
} else if (line.matchFirst(rgx.newline_eol_delimiter_only)) {
processing["verse"] = processing["verse"].stripRight;
@@ -4124,7 +4130,7 @@ why extra object stuff only in poem/verse?
} else {
processing["verse"] ~= line ~= "\n";
if (obj_type_status["verse_new"] == eN.bi.on) {
- obj_cite_digits = ocn_emit(obj_type_status["ocn_status"]);
+ obj_cite_digits = ocn_emit(pith["ocn"]);
obj_type_status["verse_new"] = eN.bi.off;
} else if (line.matchFirst(rgx.newline_eol_delimiter_only)) {
processing["verse"] = processing["verse"].stripRight;
@@ -4210,6 +4216,7 @@ you need:
char[] line,
string[string] an_object,
return ref int[string] obj_type_status,
+ return ref int[string] pith,
return ref CMM conf_make_meta,
) {
static auto rgx = RgxI();
@@ -4239,6 +4246,7 @@ you need:
comp_obj_heading,
cntr,
obj_type_status,
+ pith,
conf_make_meta,
);
} else {
@@ -4284,10 +4292,11 @@ process and use an_object["table_head"] (then empty it)
return ref ObjGenericComposite _comp_obj_heading,
return ref int cntr,
return ref int[string] obj_type_status,
+ return ref int[string] pith,
CMM conf_make_meta
) {
comp_obj_block = comp_obj_block.init;
- obj_cite_digits = ocn_emit(obj_type_status["ocn_status"]);
+ obj_cite_digits = ocn_emit(pith["ocn"]);
auto comp_obj_location
= node_construct.node_location_emitter(
content_non_header,
@@ -4335,6 +4344,7 @@ process and use an_object["table_head"] (then empty it)
return ref ObjGenericComposite _comp_obj_heading,
return ref int cntr,
return ref int[string] obj_type_status,
+ return ref int[string] pith,
string[string] object_number_poem,
CMM conf_make_meta,
Ts tag_in_seg,
@@ -4357,7 +4367,7 @@ process and use an_object["table_head"] (then empty it)
#+NAME: abs_functions_block_line_status_empty
#+BEGIN_SRC d
if (obj_type_status["quote"] == eN.tri.closing) {
- obj_cite_digits = ocn_emit(obj_type_status["ocn_status"]);
+ obj_cite_digits = ocn_emit(pith["ocn"]);
an_object["bookindex_nugget"]
= ("bookindex_nugget" in an_object) ? an_object["bookindex_nugget"] : "";
bookindex_unordered_hashes
@@ -4414,7 +4424,7 @@ process and use an_object["table_head"] (then empty it)
#+NAME: abs_functions_block_line_status_empty
#+BEGIN_SRC d
} else if (obj_type_status["group"] == eN.tri.closing) {
- obj_cite_digits = ocn_emit(obj_type_status["ocn_status"]);
+ obj_cite_digits = ocn_emit(pith["ocn"]);
an_object["bookindex_nugget"]
= ("bookindex_nugget" in an_object) ? an_object["bookindex_nugget"] : "";
bookindex_unordered_hashes
@@ -4471,7 +4481,7 @@ process and use an_object["table_head"] (then empty it)
#+NAME: abs_functions_block_line_status_empty
#+BEGIN_SRC d
} else if (obj_type_status["block"] == eN.tri.closing) {
- obj_cite_digits = ocn_emit(obj_type_status["ocn_status"]);
+ obj_cite_digits = ocn_emit(pith["ocn"]);
an_object["bookindex_nugget"]
= ("bookindex_nugget" in an_object) ? an_object["bookindex_nugget"] : "";
bookindex_unordered_hashes
@@ -4570,7 +4580,7 @@ process and use an_object["table_head"] (then empty it)
#+NAME: abs_functions_block_line_status_empty
#+BEGIN_SRC d
} else if (obj_type_status["code"] == eN.tri.closing) {
- obj_cite_digits = ocn_emit(obj_type_status["ocn_status"]);
+ obj_cite_digits = ocn_emit(pith["ocn"]);
an_object["bookindex_nugget"]
= ("bookindex_nugget" in an_object) ? an_object["bookindex_nugget"] : "";
bookindex_unordered_hashes
@@ -4628,7 +4638,7 @@ process and use an_object["table_head"] (then empty it)
#+BEGIN_SRC d
} else if (obj_type_status["table"] == eN.tri.closing) {
comp_obj_block = comp_obj_block.init;
- obj_cite_digits = ocn_emit(obj_type_status["ocn_status"]);
+ obj_cite_digits = ocn_emit(pith["ocn"]);
an_object["bookindex_nugget"]
= ("bookindex_nugget" in an_object) ? an_object["bookindex_nugget"] : "";
bookindex_unordered_hashes
@@ -4688,7 +4698,7 @@ process and use an_object["table_head"] (then empty it)
string[string] an_object,
return ref string book_idx_tmp,
return ref int[string] obj_type_status,
- return ref int[string] track_state,
+ return ref int[string] pith,
B opt_action,
) {
static auto rgx = RgxI();
@@ -4701,7 +4711,7 @@ process and use an_object["table_head"] (then empty it)
}
an_object["bookindex_nugget"] = m.captures[1].to!string;
} else if (auto m = line.match(rgx.book_index_item_open)) { /+ match open book_index +/
- track_state["section"] = eN.sect.book_index;
+ pith["section"] = eN.sect.book_index;
if (opt_action.backmatter && opt_action.section_bookindex) {
book_idx_tmp = m.captures[1].to!string;
debug(bookindexmatch) {
@@ -4711,9 +4721,9 @@ process and use an_object["table_head"] (then empty it)
);
}
}
- } else if (track_state["section"] == eN.sect.book_index) { /+ book_index flag set +/
+ } else if (pith["section"] == eN.sect.book_index) { /+ book_index flag set +/
if (auto m = line.match(rgx.book_index_item_close)) {
- track_state["section"] = eN.sect.unset;
+ pith["section"] = eN.sect.unset;
if (opt_action.backmatter
&& opt_action.section_bookindex) {
an_object["bookindex_nugget"] = book_idx_tmp ~ m.captures[1].to!string;
@@ -4899,7 +4909,7 @@ process and use an_object["table_head"] (then empty it)
return ref int[string] collapsed_lev,
return ref int[string] obj_type_status,
return ref CMM conf_make_meta,
- return ref int[string] track_state,
+ return ref int[string] pith,
) {
static auto rgx = RgxI();
if (auto m = line.match(rgx.headings)) { /+ heading match +/
@@ -4907,7 +4917,7 @@ process and use an_object["table_head"] (then empty it)
obj_type_status["heading"] = eN.bi.on;
obj_type_status["para"] = eN.bi.off;
if (line.match(rgx.heading_seg_and_above)) {
- track_state["section"] = eN.sect.unset;
+ pith["section"] = eN.sect.unset;
}
an_object[an_object_key] ~= line ~= "\n";
an_object["lev"] ~= m.captures[1];
@@ -5035,7 +5045,7 @@ process and use an_object["table_head"] (then empty it)
default:
an_object["lev_markup_number"] = lv["lv"].to!string;
}
- an_object["dummy_heading_status"] = (obj_type_status["dummy_heading_status"] == eN.bi.off) ? "f" : "t";
+ an_object["dummy_heading_status"] = (pith["dummy_heading_status"] == eN.bi.off) ? "f" : "t";
debug(heading) {
writeln(line.strip);
}
@@ -5357,11 +5367,11 @@ process and use an_object["table_head"] (then empty it)
bool ocn_is_off;
@safe auto ocn_emitter(int ocn_status_flag) {
OCNset ocn;
- assert(ocn_status_flag <= OCNstatus.reset);
+ assert(ocn_status_flag <= eN.ocn.reset);
ocn_object_number = ocn_bkidx = 0;
object_identifier = "";
ocn_is_off = false;
- switch(ocn_status_flag) with (OCNstatus) {
+ switch(ocn_status_flag) with (eN.ocn) {
case reset:
ocn_digit = ocn_on_ = 1;
object_identifier = "1";
@@ -5382,7 +5392,7 @@ process and use an_object["table_head"] (then empty it)
case bkidx:
ocn_bkidx = ++ocn_bkidx_;
break;
- case closing:
+ case closing: // unused?
break;
default:
ocn_digit = 0;