aboutsummaryrefslogtreecommitdiffhomepage
path: root/org/ao_abstract_doc_source.org
diff options
context:
space:
mode:
authorRalph Amissah <ralph@amissah.com>2016-03-17 22:38:32 -0400
committerRalph Amissah <ralph@amissah.com>2016-03-17 23:53:20 -0400
commit3e81eda3abd27ab6beadb3f183bcbf413ecd52b8 (patch)
treeed7037df5db5c66d310a94dd0d4005d688e17764 /org/ao_abstract_doc_source.org
parenttrack (diff)
org file headers updated
Diffstat (limited to 'org/ao_abstract_doc_source.org')
-rw-r--r--org/ao_abstract_doc_source.org112
1 files changed, 56 insertions, 56 deletions
diff --git a/org/ao_abstract_doc_source.org b/org/ao_abstract_doc_source.org
index 6694fa0..0a53bf7 100644
--- a/org/ao_abstract_doc_source.org
+++ b/org/ao_abstract_doc_source.org
@@ -3,10 +3,10 @@
#+EMAIL: ralph.amissah@gmail.com
#+STARTUP: indent
#+LANGUAGE: en
-#+OPTIONS: H:3 num:nil toc:t \n:nil @:t ::t |:t ^:nil -:t f:t *:t <:t
+#+OPTIONS: H:3 num:nil toc:t \n:nil @:t ::t |:t ^:nil _:nil -:t f:t *:t <:t
#+OPTIONS: TeX:t LaTeX:t skip:nil d:nil todo:t pri:nil tags:not-in-toc
#+OPTIONS: author:nil email:nil creator:nil timestamp:nil
-#+OPTIONS: ^:nil _:nil
+#+PROPERTY: header-args :padline no :exports none :noweb yes
#+EXPORT_SELECT_TAGS: export
#+EXPORT_EXCLUDE_TAGS: noexport
#+FILETAGS: :sdp:rel:ao:
@@ -17,7 +17,7 @@
Process markup document, create document abstraction.
** initialize
#+name: abs_init
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
/+ initialize +/
mixin ObjectSetters;
mixin AssertionsOnMarkupDocumentStructure;
@@ -152,7 +152,7 @@ auto dochead_metadata = parseJSON(header_metadata_jsonstr).object;
** loop: process document body [+7]
*** scope :scope:
#+name: abs_loop_body_00
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
/* scope */
scope(exit) {
}
@@ -177,7 +177,7 @@ debug(srclines) {
#+END_SRC
*** check whether ocn is on or turned off :ocn:
#+name: abs_loop_body_00
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
if ((!line.empty) && (ft["ocn_status_multi_obj"] == 0)) {
/* not multi-line object, check whether ocn is on or turned off */
if (match(line, rgx.ocn_block_marks)) {
@@ -221,7 +221,7 @@ if ((!line.empty) && (ft["ocn_status_multi_obj"] == 0)) {
*** separate regular markup text from code blocks [+6]
**** code blocks :block:code:
#+name: abs_loop_body_00
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
if (ft["code"] == 1) {
/* block object: code */
if (ft["curly_code"] == 1) {
@@ -256,14 +256,14 @@ if (ft["code"] == 1) {
#+END_SRC
**** non code objects (other blocks or regular text) [+5] :non_code:
#+name: abs_loop_body_00
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (!match(line, rgx.regular_parse_skip)) {
/* object other than code block object (includes regular text paragraph) */
#+END_SRC
***** within block group [+1] :block:active:
****** within block group: biblio :biblio:
#+name: abs_loop_body_non_code_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
if (((match(line, rgx.heading_biblio)
|| (ft["heading_biblio"] == 1)))
&& (!match(line, rgx.heading))
@@ -351,7 +351,7 @@ if (((match(line, rgx.heading_biblio)
#+END_SRC
****** within block group: poem :poem:
#+name: abs_loop_body_non_code_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (ft["poem"] == 1) {
/* within block object: poem */
if (ft["curly_poem"] == 1) {
@@ -552,7 +552,7 @@ if (((match(line, rgx.heading_biblio)
#+END_SRC
****** within block group: group :group:
#+name: abs_loop_body_non_code_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
/* within block object: group */
} else if (ft["group"] == 1) {
if (ft["curly_group"] == 1) {
@@ -587,7 +587,7 @@ if (((match(line, rgx.heading_biblio)
#+END_SRC
****** within block group: block :block:
#+name: abs_loop_body_non_code_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (ft["block"] == 1) {
/* within block object: block */
if (ft["curly_block"] == 1) {
@@ -622,7 +622,7 @@ if (((match(line, rgx.heading_biblio)
#+END_SRC
****** within block group: quote :quote:
#+name: abs_loop_body_non_code_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (ft["quote"] == 1) {
/* within block object: quote */
if (ft["curly_quote"] == 1) {
@@ -657,7 +657,7 @@ if (((match(line, rgx.heading_biblio)
#+END_SRC
****** within block group: table :table:
#+name: abs_loop_body_non_code_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (ft["table"] == 1) {
/* within block object: table */
if (ft["curly_table"] == 1) {
@@ -692,13 +692,13 @@ if (((match(line, rgx.heading_biblio)
#+END_SRC
***** not identified as being within block group [+4]
#+name: abs_loop_body_non_code_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else {
/* not within a block group */
#+END_SRC
****** assert
#+name: abs_loop_body_open_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
assert(
(ft["blocks"] == 0)
|| (ft["blocks"] == 2),
@@ -709,7 +709,7 @@ assertions_flag_types_block_status_none_or_closed(ft);
****** 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
+#+BEGIN_SRC d
if (auto m = match(line, rgx.block_curly_code_open)) {
/* curly code open */
debug(code) { // code (curly) open
@@ -726,7 +726,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******* open block group: poem :poem:
#+name: abs_loop_body_open_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (auto m = match(line, rgx.block_curly_poem_open)) {
/* curly poem open */
object.remove("obj");
@@ -751,7 +751,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******* open block group: group :group:
#+name: abs_loop_body_open_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (auto m = match(line, rgx.block_curly_group_open)) {
/* curly group open */
debug(group) { // group (curly) open
@@ -768,7 +768,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******* open block group: block :block:
#+name: abs_loop_body_open_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (auto m = match(line, rgx.block_curly_block_open)) {
/* curly block open */
debug(block) { // block (curly) open
@@ -785,7 +785,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******* open block group: quote :quote:
#+name: abs_loop_body_open_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (auto m = match(line, rgx.block_curly_quote_open)) {
/* curly quote open */
debug(quote) { // quote (curly) open
@@ -802,7 +802,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******* open block group: table :table:
#+name: abs_loop_body_open_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (auto m = match(line, rgx.block_curly_table_open)) {
/* curly table open */
debug(table) { // table (curly) open
@@ -820,7 +820,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
****** 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
+#+BEGIN_SRC d
} else if (auto m = match(line, rgx.block_tic_code_open)) {
/* tic code open */
debug(code) { // code (tic) open
@@ -837,7 +837,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******* open block group: poem :poem:
#+name: abs_loop_body_open_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (auto m = match(line, rgx.block_tic_poem_open)) {
/* tic poem open */
object.remove("obj");
@@ -862,7 +862,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******* open block group: group :group:
#+name: abs_loop_body_open_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (auto m = match(line, rgx.block_tic_group_open)) {
/* tic group open */
debug(group) { // group (tic) open
@@ -879,7 +879,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******* open block group: block :block:
#+name: abs_loop_body_open_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (auto m = match(line, rgx.block_tic_block_open)) {
/* tic block open */
debug(block) { // block (tic) open
@@ -896,7 +896,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******* open block group: quote :quote:
#+name: abs_loop_body_open_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (auto m = match(line, rgx.block_tic_quote_open)) {
/* tic quote open */
debug(quote) { // quote (tic) open
@@ -913,7 +913,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******* open block group: table :table:
#+name: abs_loop_body_open_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (auto m = match(line, rgx.block_tic_table_open)) {
/* tic table open */
debug(table) { // table (tic) open
@@ -930,14 +930,14 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
****** line not empty [+3]
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (!line.empty) {
/* line not empty */
/* non blocks (headers, paragraphs) & closed blocks */
#+END_SRC
******* asserts :assert:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
assert(
!line.empty,
"line tested, line not empty surely"
@@ -962,7 +962,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******* book index :bookindex:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
if (auto m = match(line, rgx.book_index)) {
/* match book_index */
debug(bookindexmatch) { // book index
@@ -1005,13 +1005,13 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******* not book index [+2]
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else {
/* not book_index */
#+END_SRC
******** matched: comment :comment:match:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
if (auto m = match(line, rgx.comment)) {
/* matched comment */
debug(comment) {
@@ -1039,7 +1039,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******** matched: header make :header:make:match:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (auto m = match(line, rgx.header_make)) {
/* matched header_make */
debug(header1) { // header
@@ -1055,7 +1055,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******** matched: header metadata :header:metadata:match:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (auto m = match(line, rgx.header_metadata)) {
/* matched header_metadata */
debug(header1) { // header
@@ -1071,7 +1071,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******** flag set: header make :header:make:flag:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (ft["header_make"] == 1
&& (line_occur["header_make"] > 0)) {
/* header_make flag set */
@@ -1086,7 +1086,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******** flag set: header metadata :header:metadata:flag:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (ft["header_metadata"] == 1
&& (line_occur["header_metadata"] > 0)) {
/* header_metadata flag set */
@@ -1101,7 +1101,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******** flag not set & line not exist: heading or para [+1]
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (((line_occur["para"] == 0)
&& (line_occur["heading"] == 0))
&& ((ft["para"] == 0)
@@ -1110,7 +1110,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
********* headings found :heading:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
if ((to!string(dochead_make["make"]["headings"]).length > 2)
&& (ft["make_headings"] == 0)) {
/* headings found */
@@ -1180,7 +1180,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
********* headings make set :heading:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
if ((ft["make_headings"] == 1)
&& ((line_occur["para"] == 0)
&& (line_occur["heading"] == 0))
@@ -1233,7 +1233,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
********* headings match :heading:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
if (auto m = match(line, rgx.heading)) {
/* heading match */
ft["heading"] = 1;
@@ -1360,7 +1360,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
********* para matches :para:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (line_occur["para"] == 0) {
/* para matches */
if (auto m = match(line, rgx.para_indent)) {
@@ -1411,7 +1411,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******** line exist: header make :header:make:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (line_occur["header_make"] > 0) {
/* header_make */
// should be caught by sub-header
@@ -1423,7 +1423,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******** line exist: header metadata :header:metadata:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (line_occur["header_metadata"] > 0) {
/* header_metadata */
// should be caught by sub-header
@@ -1435,7 +1435,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******** line exist: heading :heading:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (line_occur["heading"] > 0) {
/* heading */
debug(heading) { // heading
@@ -1446,7 +1446,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
******** line exist: para :para:
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (line_occur["para"] > 0) {
/* paragraph */
debug(para) {
@@ -1459,7 +1459,7 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
****** line empty, with block flag
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if (ft["blocks"] == 2) {
/* line empty, with blocks flag */
assert(
@@ -1674,13 +1674,13 @@ if (auto m = match(line, rgx.block_curly_code_open)) {
#+END_SRC
****** line empty [+1]
#+name: abs_loop_body_not_block_obj
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else {
/* line empty */
#+END_SRC
******* assert line empty :assert:
#+name: abs_loop_body_not_block_obj_line_empty
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
/* line.empty, post contents, empty variables: */
assert(
line.empty,
@@ -1693,7 +1693,7 @@ assert(
#+END_SRC
******* header_make instructions :header:make:instructions:
#+name: abs_loop_body_not_block_obj_line_empty
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
if ((ft["header_make"] == 1)
&& (line_occur["header_make"] > 0)) {
/* header_make instructions (current line empty) */
@@ -1718,7 +1718,7 @@ if ((ft["header_make"] == 1)
#+END_SRC
******* header_metadata :header:metadata:
#+name: abs_loop_body_not_block_obj_line_empty
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if ((ft["header_metadata"] == 1)
&& (line_occur["header_metadata"] > 0)) {
/* header_metadata (current line empty) */
@@ -1745,7 +1745,7 @@ if ((ft["header_make"] == 1)
#+END_SRC
******* heading object :heading:object:
#+name: abs_loop_body_not_block_obj_line_empty
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if ((ft["heading"] == 1)
&& (line_occur["heading"] > 0)) {
/* heading object (current line empty) */
@@ -1803,7 +1803,7 @@ if ((ft["header_make"] == 1)
#+END_SRC
******* paragraph object :paragraph:object:
#+name: abs_loop_body_not_block_obj_line_empty
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} else if ((ft["para"] == 1) && (line_occur["para"] > 0)) {
/* paragraph object (current line empty) */
ocn = ocn_emit(ft["ocn_status"]);
@@ -1863,14 +1863,14 @@ if ((ft["header_make"] == 1)
#+END_SRC
*** close non code objects (regular text)
#+name: abs_loop_body_00_closed
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
} // close else for line empty
} // close else for not the above
} // close after non code, other blocks or regular text
#+END_SRC
*** regular text objects
#+name: abs_loop_body_01
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
if (((contents_arbitrary_max_length_set[counter-1]["is"] == "para")
|| (contents_arbitrary_max_length_set[counter-1]["is"] == "heading"))
&& (counter-1 > previous_count)) {
@@ -1887,7 +1887,7 @@ if (((contents_arbitrary_max_length_set[counter-1]["is"] == "para")
** post loop processing
#+name: abs_post
-#+BEGIN_SRC d :exports none
+#+BEGIN_SRC d
debug(objectrelated2) { // check
tell_l("blue", line);
}
@@ -1989,7 +1989,7 @@ return t;
* 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
+#+BEGIN_SRC d :tangle ../lib/sdp/ao_abstract_doc_source.d
/*
document abstraction
ao_abstract_doc_source.d