sorting

1 files changed, 53 insertions, 52 deletions

diff --git a/org/ao_abstract_doc_source.org b/org/ao_abstract_doc_source.org
index bfda427..ea334a9 100644
--- a/org/ao_abstract_doc_source.org
+++ b/org/ao_abstract_doc_source.org
@@ -1,4 +1,4 @@
-+TITLE: Emacs config file written in org-mode
+#+TITLE: sdp document abstraction
 #+AUTHOR: Ralph Amissah
 #+EMAIL: ralph.amissah@gmail.com
 #+STARTUP: indent
@@ -9,15 +9,16 @@
 #+OPTIONS: ^:nil _:nil
 #+EXPORT_SELECT_TAGS: export
 #+EXPORT_EXCLUDE_TAGS: noexport
-#+TAGS: Amissah(A) Class(c) tangle(T) template(t) WEB(W) noexport(n)
 #+FILETAGS: :sdp:ao:
+#+TAGS: assert(a) class(c) debug(d) mixin(m) sdp(s) tangle(T) template(t) WEB(W) noexport(n)
 
-* document abstraction
+* document abstraction                                             :abstract:
+[[./sdp.org][sdp]]
 Process markup document, create document abstraction.
 ** initialize
 #+name: abs_init
 #+BEGIN_SRC d                                                  :exports none
-/* initialize */
+/+ initialize +/
 mixin ObjectSetters;
 mixin AssertionsOnMarkupDocumentStructure;
 mixin AssertionsOnBlocks;
@@ -34,7 +35,7 @@ string biblio_tag_name, biblio_tag_entry, book_idx_tmp, st;
 string[1024] biblio_arr_json = biblio_entry_tags_jsonstr;
 JSONValue[1024] bib_arr_json;
 uint[string] line_occur;
-int counter, previous_count, count_biblio_entry, ocn, ocn_, verse_line, bib_entry, heading_pointer, notepoint;
+uint counter, previous_count, count_biblio_entry, ocn, ocn_, verse_line, bib_entry, heading_pointer, notepoint;
 string indent_first, indent_second;
 string[][string][string] bookindex_unordered_hashes;
 bool bullet = true;
@@ -149,7 +150,7 @@ auto dochead_metadata = parseJSON(header_metadata_jsonstr).object;
 #+END_SRC
 
 ** loop: process document body [+7]
-*** scope
+*** scope                                                             :scope:
 #+name: abs_loop_body_00
 #+BEGIN_SRC d                                                  :exports none
 /* scope */
@@ -174,7 +175,7 @@ debug(srclines) {
   }
 }
 #+END_SRC
-*** check whether ocn is on or turned off
+*** check whether ocn is on or turned off                               :ocn:
 #+name: abs_loop_body_00
 #+BEGIN_SRC d                                                  :exports none
 if ((!line.empty) && (ft["ocn_status_multi_obj"] == 0)) {
@@ -218,7 +219,7 @@ if ((!line.empty) && (ft["ocn_status_multi_obj"] == 0)) {
 }
 #+END_SRC
 *** separate regular markup text from code blocks [+6]
-**** code blocks
+**** code blocks                                                 :block:code:
 #+name: abs_loop_body_00
 #+BEGIN_SRC d                                                  :exports none
 if (ft["code"] == 1) {
@@ -253,14 +254,14 @@ if (ft["code"] == 1) {
     }
   }
 #+END_SRC
-**** non code objects (other blocks or regular text) [+5]
+**** non code objects (other blocks or regular text) [+5]          :non_code:
 #+name: abs_loop_body_00
 #+BEGIN_SRC d                                                  :exports none
 } else if (!match(line, rgx.regular_parse_skip)) {
 /* object other than code block object (includes regular text paragraph) */
 #+END_SRC
-***** within block group [+1]
-****** within block group: biblio
+***** within block group [+1]                                  :block:active:
+****** within block group: biblio                                    :biblio:
 #+name: abs_loop_body_non_code_obj
 #+BEGIN_SRC d                                                  :exports none
 if (((match(line, rgx.heading_biblio)
@@ -348,7 +349,7 @@ if (((match(line, rgx.heading_biblio)
     biblio_tag_entry="";
   }
 #+END_SRC
-****** within block group: poem
+****** within block group: poem                                        :poem:
 #+name: abs_loop_body_non_code_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (ft["poem"] == 1) {
@@ -549,7 +550,7 @@ if (((match(line, rgx.heading_biblio)
     }
   }
 #+END_SRC
-****** within block group: group
+****** within block group: group                                      :group:
 #+name: abs_loop_body_non_code_obj
 #+BEGIN_SRC d                                                  :exports none
 /* within block object: group */
@@ -584,7 +585,7 @@ if (((match(line, rgx.heading_biblio)
     }
   }
 #+END_SRC
-****** within block group: block
+****** within block group: block                                      :block:
 #+name: abs_loop_body_non_code_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (ft["block"] == 1) {
@@ -619,7 +620,7 @@ if (((match(line, rgx.heading_biblio)
     }
   }
 #+END_SRC
-****** within block group: quote
+****** within block group: quote                                      :quote:
 #+name: abs_loop_body_non_code_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (ft["quote"] == 1) {
@@ -654,7 +655,7 @@ if (((match(line, rgx.heading_biblio)
     }
   }
 #+END_SRC
-****** within block group: table
+****** within block group: table                                      :table:
 #+name: abs_loop_body_non_code_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (ft["table"] == 1) {
@@ -689,7 +690,7 @@ if (((match(line, rgx.heading_biblio)
     }
   }
 #+END_SRC
-***** not within block group [+4]
+***** not identified as being within block group [+4]
 #+name: abs_loop_body_non_code_obj
 #+BEGIN_SRC d                                                  :exports none
 } else {
@@ -705,8 +706,8 @@ assert(
 );
 assertions_flag_types_block_status_none_or_closed(ft);
 #+END_SRC
-****** open curly block group [+1]
-******* open block group: code
+****** open curly block group [+1]                         :block:curly:open:
+******* open block group: code                                         :code:
 #+name: abs_loop_body_open_block_obj
 #+BEGIN_SRC d                                                  :exports none
 if (auto m = match(line, rgx.block_curly_code_open)) {
@@ -723,7 +724,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
   ft["code"] = 1;
   ft["curly_code"] = 1;
 #+END_SRC
-******* open block group: poem
+******* open block group: poem                                         :poem:
 #+name: abs_loop_body_open_block_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (auto m = match(line, rgx.block_curly_poem_open)) {
@@ -748,7 +749,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
   ft["poem"] = 1;
   ft["curly_poem"] = 1;
 #+END_SRC
-******* open block group: group
+******* open block group: group                                       :group:
 #+name: abs_loop_body_open_block_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (auto m = match(line, rgx.block_curly_group_open)) {
@@ -765,7 +766,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
   ft["group"] = 1;
   ft["curly_group"] = 1;
 #+END_SRC
-******* open block group: block
+******* open block group: block                                       :block:
 #+name: abs_loop_body_open_block_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (auto m = match(line, rgx.block_curly_block_open)) {
@@ -782,7 +783,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
   ft["block"] = 1;
   ft["curly_block"] = 1;
 #+END_SRC
-******* open block group: quote
+******* open block group: quote                                       :quote:
 #+name: abs_loop_body_open_block_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (auto m = match(line, rgx.block_curly_quote_open)) {
@@ -799,7 +800,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
   ft["quote"] = 1;
   ft["curly_quote"] = 1;
 #+END_SRC
-******* open block group: table
+******* open block group: table                                       :table:
 #+name: abs_loop_body_open_block_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (auto m = match(line, rgx.block_curly_table_open)) {
@@ -816,8 +817,8 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
   ft["table"] = 1;
   ft["curly_table"] = 1;
 #+END_SRC
-****** open tic block group [+1]
-******* open block group: code
+****** open tic block group [+1]                             :block:tic:open:
+******* open block group: code                                         :code:
 #+name: abs_loop_body_open_block_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (auto m = match(line, rgx.block_tic_code_open)) {
@@ -834,7 +835,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
   ft["code"] = 1;
   ft["tic_code"] = 1;
 #+END_SRC
-******* open block group: poem
+******* open block group: poem                                         :poem:
 #+name: abs_loop_body_open_block_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (auto m = match(line, rgx.block_tic_poem_open)) {
@@ -859,7 +860,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
   ft["poem"] = 1;
   ft["tic_poem"] = 1;
 #+END_SRC
-******* open block group: group
+******* open block group: group                                       :group:
 #+name: abs_loop_body_open_block_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (auto m = match(line, rgx.block_tic_group_open)) {
@@ -876,7 +877,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
   ft["group"] = 1;
   ft["tic_group"] = 1;
 #+END_SRC
-******* open block group: block
+******* open block group: block                                       :block:
 #+name: abs_loop_body_open_block_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (auto m = match(line, rgx.block_tic_block_open)) {
@@ -893,7 +894,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
   ft["block"] = 1;
   ft["tic_block"] = 1;
 #+END_SRC
-******* open block group: quote
+******* open block group: quote                                       :quote:
 #+name: abs_loop_body_open_block_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (auto m = match(line, rgx.block_tic_quote_open)) {
@@ -910,7 +911,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
   ft["quote"] = 1;
   ft["tic_quote"] = 1;
 #+END_SRC
-******* open block group: table
+******* open block group: table                                       :table:
 #+name: abs_loop_body_open_block_obj
 #+BEGIN_SRC d                                                  :exports none
 } else if (auto m = match(line, rgx.block_tic_table_open)) {
@@ -934,7 +935,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
 /* line not empty */
 /* non blocks (headers, paragraphs) & closed blocks */
 #+END_SRC
-******* asserts
+******* asserts                                                      :assert:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
   assert(
@@ -959,7 +960,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
     );
   }
 #+END_SRC
-******* book index
+******* book index                                                :bookindex:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
   if (auto m = match(line, rgx.book_index)) {
@@ -1008,7 +1009,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
   } else {
   /* not book_index */
 #+END_SRC
-******** matched: comment
+******** matched: comment                                     :comment:match:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
     if (auto m = match(line, rgx.comment)) {
@@ -1036,7 +1037,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
       ft["para"] = 0;
       counter++;
 #+END_SRC
-******** matched: header make
+******** matched: header make                             :header:make:match:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
     } else if (auto m = match(line, rgx.header_make)) {
@@ -1052,7 +1053,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
       line_occur["header_make"]++;
       object["obj"] ~= line ~= "\n";
 #+END_SRC
-******** matched: header metadata
+******** matched: header metadata                     :header:metadata:match:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
     } else if (auto m = match(line, rgx.header_metadata)) {
@@ -1068,7 +1069,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
       line_occur["header_metadata"]++;
       object["obj"] ~= line ~= "\n";
 #+END_SRC
-******** flag set: header make
+******** flag set: header make                             :header:make:flag:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
     } else if (ft["header_make"] == 1
@@ -1083,7 +1084,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
         object["obj"] ~= line ~= "\n";
       }
 #+END_SRC
-******** flag set: header metadata
+******** flag set: header metadata                     :header:metadata:flag:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
     } else if (ft["header_metadata"] == 1
@@ -1107,7 +1108,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
     && (ft["heading"] == 0))) {
     /* heading or para but neither flag nor line exists */
 #+END_SRC
-********* headings found
+********* headings found                                            :heading:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
       if ((to!string(dochead_make["make"]["headings"]).length > 2)
@@ -1177,7 +1178,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
         ft["make_headings"] = 1;
       }
 #+END_SRC
-********* headings make set
+********* headings make set                                         :heading:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
       if ((ft["make_headings"] == 1)
@@ -1230,7 +1231,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
         }
       }
 #+END_SRC
-********* headings match
+********* headings match                                            :heading:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
       if (auto m = match(line, rgx.heading)) {
@@ -1357,7 +1358,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
           tell_l("yellow", strip(line));
         }
 #+END_SRC
-********* para matches
+********* para matches                                                 :para:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
       } else if (line_occur["para"] == 0) {
@@ -1408,7 +1409,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
         line_occur["para"]++;
       }
 #+END_SRC
-******** line exist: header make
+******** line exist: header make                                :header:make:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
     } else if (line_occur["header_make"] > 0) {
@@ -1420,7 +1421,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
       object["obj"] ~= line ~= "\n";
       line_occur["header_make"]++;
 #+END_SRC
-******** line exist: header metadata
+******** line exist: header metadata                        :header:metadata:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
     } else if (line_occur["header_metadata"] > 0) {
@@ -1432,7 +1433,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
       object["obj"] ~= line ~= "\n";
       line_occur["header_metadata"]++;
 #+END_SRC
-******** line exist: heading
+******** line exist: heading                                        :heading:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
     } else if (line_occur["heading"] > 0) {
@@ -1443,7 +1444,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
       object["obj"] ~= line ~= "\n";
       line_occur["heading"]++;
 #+END_SRC
-******** line exist: para
+******** line exist: para                                              :para:
 #+name: abs_loop_body_not_block_obj
 #+BEGIN_SRC d                                                  :exports none
     } else if (line_occur["para"] > 0) {
@@ -1677,7 +1678,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
 } else {
 /* line empty */
 #+END_SRC
-******* assert line empty
+******* assert line empty                                            :assert:
 #+name: abs_loop_body_not_block_obj_line_empty
 #+BEGIN_SRC d                                                  :exports none
 /* line.empty, post contents, empty variables: */
@@ -1690,7 +1691,7 @@ assert(
   "code block status: none"
 );
 #+END_SRC
-******* header_make instructions
+******* header_make instructions                   :header:make:instructions:
 #+name: abs_loop_body_not_block_obj_line_empty
 #+BEGIN_SRC d                                                  :exports none
 if ((ft["header_make"] == 1)
@@ -1715,7 +1716,7 @@ if ((ft["header_make"] == 1)
   object.remove("bookindex");
   processing.remove("verse");
 #+END_SRC
-******* header_metadata
+******* header_metadata                                     :header:metadata:
 #+name: abs_loop_body_not_block_obj_line_empty
 #+BEGIN_SRC d                                                  :exports none
 } else if ((ft["header_metadata"] == 1)
@@ -1742,7 +1743,7 @@ if ((ft["header_make"] == 1)
   object.remove("bookindex");
   processing.remove("verse");
 #+END_SRC
-******* heading object
+******* heading object                                       :heading:object:
 #+name: abs_loop_body_not_block_obj_line_empty
 #+BEGIN_SRC d                                                  :exports none
 } else if ((ft["heading"] == 1)
@@ -1800,7 +1801,7 @@ if ((ft["header_make"] == 1)
   processing.remove("verse");
   counter++;
 #+END_SRC
-******* paragraph object
+******* paragraph object                                   :paragraph:object:
 #+name: abs_loop_body_not_block_obj_line_empty
 #+BEGIN_SRC d                                                  :exports none
 } else if ((ft["para"] == 1) && (line_occur["para"] > 0)) {
@@ -1985,7 +1986,7 @@ auto t =
 return t;
 #+END_SRC
 
-* tangles
+* tangles                                                            :tangle:
 ** code structure:                                :ao_abstract_doc_source.d:
 #+name: tangle_ao_abstract_doc_source
 #+BEGIN_SRC d :tangle ../lib/sdp/ao_abstract_doc_source.d :padline no :exports none :noweb yes