0.9.3 start work on node pointers, a way to go

1 files changed, 19 insertions, 83 deletions

diff --git a/org/ao_output_debugs.org b/org/ao_output_debugs.org
index 5349200..c576264 100644
--- a/org/ao_output_debugs.org
+++ b/org/ao_output_debugs.org
@@ -24,36 +24,6 @@ auto markup = InlineMarkup();
 string key;
 #+END_SRC
 
-** book index (sort &) report                                        :report:
-
-#+name: book_index_sorted_report
-#+BEGIN_SRC d
-struct BookIndexReport {
-  int mkn, skn;
-  auto bookindex_report_sorted(
-    string[][string][string] bookindex_unordered_hashes
-  ) {
-    auto mainkeys=bookindex_unordered_hashes.byKey.array.
-      sort!("toLower(a) < toLower(b)", SwapStrategy.stable).release;
-    foreach (mainkey; mainkeys) {
-      auto subkeys=bookindex_unordered_hashes[mainkey].byKey.array.
-        sort!("toLower(a) < toLower(b)", SwapStrategy.stable).release;
-      foreach (subkey; subkeys) {
-        debug(bookindex) {
-          writeln(
-            mainkey, ": ",
-            subkey, ": ",
-            to!string(bookindex_unordered_hashes[mainkey][subkey])
-          );
-        }
-        ++skn;
-      }
-      ++mkn;
-    }
-  }
-}
-#+END_SRC
-
 ** (parent)                                                          :parent:
 
 #+name: ao_output_debugs
@@ -72,7 +42,7 @@ debug(parent) {
             "%s node: %s heading: %s %s",
             obj.obj_cite_number,
             obj.node,
-            obj.lev_markup_number,
+            obj.lev_int_markup,
             obj.object,
           );
         }
@@ -395,12 +365,12 @@ debug(headermakejson) {
     "%s\n%s\n%s",
     "document header, metadata & make instructions:",
     dochead_meta,
-    pointer_head_main,
+    ptr_head_main,
   );
-  foreach (main_header; pointer_head_main) {
+  foreach (main_header; ptr_head_main) {
     switch (main_header) {
     case "make":
-      foreach (sub_header; pointer_head_sub_make) {
+      foreach (sub_header; ptr_head_sub_make) {
         if (to!string(dochead_meta[main_header][sub_header]).length > 2) {
           writefln(
             "%s:%s: %s",
@@ -427,12 +397,12 @@ debug(headermetadatajson) {
     "%s\n%s\n%s",
     "document header, metadata & make instructions:",
     dochead_meta,
-    pointer_head_main,
+    ptr_head_main,
   );
-  foreach (main_header; pointer_head_main) {
+  foreach (main_header; ptr_head_main) {
     switch (main_header) {
     case "creator":
-      foreach (sub_header; pointer_head_sub_creator) {
+      foreach (sub_header; ptr_head_sub_creator) {
         if (to!string(dochead_meta[main_header][sub_header]).length > 2) {
           writefln(
             "%s:%s: %s",
@@ -444,7 +414,7 @@ debug(headermetadatajson) {
       }
       break;
     case "title":
-      foreach (sub_header; pointer_head_sub_title) {
+      foreach (sub_header; ptr_head_sub_title) {
         if (to!string(dochead_meta[main_header][sub_header]).length > 2) {
           writefln(
             "%s:%s: %s",
@@ -456,7 +426,7 @@ debug(headermetadatajson) {
       }
       break;
     case "rights":
-      foreach (sub_header; pointer_head_sub_rights) {
+      foreach (sub_header; ptr_head_sub_rights) {
         if (to!string(dochead_meta[main_header][sub_header]).length > 2) {
           writefln(
             "%s:%s: %s",
@@ -468,7 +438,7 @@ debug(headermetadatajson) {
       }
       break;
     case "date":
-      foreach (sub_header; pointer_head_sub_date) {
+      foreach (sub_header; ptr_head_sub_date) {
         if (to!string(dochead_meta[main_header][sub_header]).length > 2) {
           writefln(
             "%s:%s: %s",
@@ -480,7 +450,7 @@ debug(headermetadatajson) {
       }
       break;
     case "original":
-      foreach (sub_header; pointer_head_sub_original) {
+      foreach (sub_header; ptr_head_sub_original) {
         if (to!string(dochead_meta[main_header][sub_header]).length > 2) {
           writefln(
             "%s:%s: %s",
@@ -492,7 +462,7 @@ debug(headermetadatajson) {
       }
       break;
     case "classify":
-      foreach (sub_header; pointer_head_sub_classify) {
+      foreach (sub_header; ptr_head_sub_classify) {
         if (to!string(dochead_meta[main_header][sub_header]).length > 2) {
           writefln(
             "%s:%s: %s",
@@ -504,7 +474,7 @@ debug(headermetadatajson) {
       }
       break;
     case "identifier":
-      foreach (sub_header; pointer_head_sub_identifier) {
+      foreach (sub_header; ptr_head_sub_identifier) {
         if (to!string(dochead_meta[main_header][sub_header]).length > 2) {
           writefln(
             "%s:%s: %s",
@@ -516,7 +486,7 @@ debug(headermetadatajson) {
       }
       break;
     case "notes":
-      foreach (sub_header; pointer_head_sub_notes) {
+      foreach (sub_header; ptr_head_sub_notes) {
         if (to!string(dochead_meta[main_header][sub_header]).length > 2) {
           writefln(
             "%s:%s: %s",
@@ -528,7 +498,7 @@ debug(headermetadatajson) {
       }
       break;
     case "publisher":
-      foreach (sub_header; pointer_head_sub_publisher) {
+      foreach (sub_header; ptr_head_sub_publisher) {
         if (to!string(dochead_meta[main_header][sub_header]).length > 2) {
           writefln(
             "%s:%s: %s",
@@ -546,39 +516,6 @@ debug(headermetadatajson) {
 }
 #+END_SRC
 
-** (bookindex)                                                    :bookindex:
-
-#+name: ao_output_debugs
-#+BEGIN_SRC d
-debug(bookindex) {
-  writefln(
-    "%s\n%s:%s",
-    "-------------------------------",
-    __FILE__,
-    __LINE__,
-  );
-  auto bookindex = BookIndexReport();
-  bookindex.bookindex_report_sorted(bookindex_unordered_hashes);
-}
-#+END_SRC
-
-*** biblio (biblio)
-
-#+name: ao_output_debugs
-#+BEGIN_SRC d
-
-debug(biblio) {
-  foreach (entry; biblio) {
-    writefln(
-      "%s; (%s)",
-      entry["sortby_deemed_author_year_title"],
-      entry["author"],
-    );
-  }
-}
-
-#+END_SRC
-
 ** anchor tags
 
 #+name: ao_output_debugs
@@ -616,7 +553,7 @@ debug(heading) {                         // heading
   foreach (k; document_section_keys_sequenced["seg"]) {
     foreach (o; contents[k]) {
       if (o.is_a == "heading") {
-        switch (o.heading_attrib.lev_markup_number) {
+        switch (o.heading_attrib.lev_int_markup) {
         case 0:
           spc="";
           break;
@@ -652,8 +589,8 @@ debug(heading) {                         // heading
           "%s* %s\n                (markup level: %s; collapsed level: %s)",
           spc,
           strip(o.object),
-          o.heading_attrib.lev_markup_number,
-          o.heading_attrib.lev_collapsed_number
+          o.heading_attrib.lev_int_markup,
+          o.heading_attrib.lev_int_collapsed
         );
       }
     }
@@ -901,8 +838,7 @@ template SiSUoutputDebugs() {
     auto abstract_doc_source_debugs(S)(
       auto ref const S         contents,
       string[][string]         document_section_keys_sequenced,
-      string[][string][string] bookindex_unordered_hashes,      // redundant, consider
-      JSONValue[]              biblio,                          // redundant, consider
+      string[]                 html_segnames,
       string[string][string]   dochead_make,
       string[string][string]   dochead_meta,
       string                   fn_src,