#+TITLE:       sdp markup source raw
#+AUTHOR:      Ralph Amissah
#+EMAIL:       [[mailto:ralph.amissah@gmail.com][ralph.amissah@gmail.com]]
#+DESCRIPTION: documents - structuring, publishing in multiple formats & search
#+KEYWORDS
#+LANGUAGE:    en
#+STARTUP:     indent content
#+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
#+PROPERTY:    header-args :padline no :exports code :noweb yes
#+EXPORT_SELECT_TAGS:  export
#+EXPORT_EXCLUDE_TAGS: noexport
#+FILETAGS:            :sdp:rel:meta:read:file
#+TAGS: assert(a) class(c) debug(d) mixin(m) sdp(s) tangle(T) template(t) WEB(W) noexport(n)

[[./sdp.org][sdp]]  [[./][org/]]
* imports

#+name: imports_std
#+BEGIN_SRC d
import
  sdp.meta,
  sdp.output.paths_source,
  std.file,
  std.path;
#+END_SRC

* A. get _config file_ (read in)            :module:sdp:meta_read_config_files:
** 0. module template

#+BEGIN_SRC d :tangle ../src/sdp/meta/read_config_files.d
/++
  read configuration files<BR>
  - read config files<BR>
  meta_config_files.d
+/
module sdp.meta.read_config_files;
<<meta_config_file_in>>
<<meta_config_file_sdl>>
<<meta_config_file_hub>>
#+END_SRC

** 1. read config file, (conf.sdl & sisu_document_make)        :file:config:

#+name: meta_config_file_in
#+BEGIN_SRC d
static template configInSite() {
  <<imports_std>>
  final string configInSite(M,E)(M manifest, E env) {
    auto conf_file_details = ConfigFilePaths!()(manifest, env);
    string conf_sdl = conf_file_details.possible_config_path_locations.config_filename_site;
    auto possible_config_path_locations = conf_file_details.possible_config_path_locations.local_site;
    string config_file_str;
    debug(io) {
      writeln("in config filename: ", conf_sdl);
      writeln("in config possible path locations: ", possible_config_path_locations);
    }
    foreach(pth; possible_config_path_locations) {
      auto conf_file = asNormalizedPath(chainPath(to!string(pth), conf_sdl)).array;
      if (config_file_str.length > 0) {
        break;
      }
      try {
        if (exists(conf_file)) {
          debug(io) {
            writeln("in config file found: ", conf_file);
          }
          config_file_str = conf_file.readText;
          break;
        }
      }
      catch (ErrnoException ex) {
      }
      catch (FileException ex) {
      }
    }
    return config_file_str;
  }
}
#+END_SRC

#+name: meta_config_file_in
#+BEGIN_SRC d
static template configInDoc() {
  <<imports_std>>
  final string configInDoc(M,E)(M manifest, E env) {
    auto conf_file_details = ConfigFilePaths!()(manifest, env);
    string conf_sdl = conf_file_details.config_filename_document;
    auto possible_config_path_locations = conf_file_details.possible_config_path_locations.document;
    string config_file_str;
    debug(io) {
      writeln("in config filename: ", conf_sdl);
      writeln("in config possible path locations: ", possible_config_path_locations);
    }
    foreach(pth; possible_config_path_locations) {
      auto conf_file = asNormalizedPath(chainPath(to!string(pth), conf_sdl)).array;
      if (config_file_str.length > 0) {
        break;
      }
      try {
        if (exists(conf_file)) {
          debug(io) {
            writeln("in config file found: ", conf_file);
          }
          config_file_str = conf_file.readText;
          break;
        }
      }
      catch (ErrnoException ex) {
      }
      catch (FileException ex) {
      }
    }
    return config_file_str;
  }
}
#+END_SRC

** 2. config files get sdlang root tag
*** 0. template
#+name: meta_config_file_sdl
#+BEGIN_SRC d
/+

+/
static template ConfigSDLang() {
  import sdlang;
  <<imports_std>>
  <<meta_config_file_sdlang>>
}
#+END_SRC

*** config file get sdl root tag                         :file:conf:sdlang:

#+name: meta_config_file_sdlang
#+BEGIN_SRC d
auto ConfigSDLang(string configuration, string conf_sdl_filename) {
  Tag sdl_root_conf;
  try {
    sdl_root_conf = parseSource(configuration);
  }
  catch(ParseException e) {
    stderr.writeln("SDLang problem with content for ", conf_sdl_filename);
    stderr.writeln(e.msg);
  }
  return sdl_root_conf;
}
#+END_SRC

** 3. config file (conf.sdl & sisu_document_make)          :file:config:hub:
*** 0. template

#+name: meta_config_file_hub
#+BEGIN_SRC d
/+
+/
static template configReadSite() {
  <<imports_std>>
  <<meta_config_file_import_sdlang>>
  <<meta_config_file_sdlang_hub_site>>
}
static template configReadDoc() {
  <<imports_std>>
  <<meta_config_file_import_sdlang>>
  <<meta_config_file_sdlang_hub_doc>>
}
#+END_SRC

*** config hub _import sdlang_
#+name: meta_config_file_import_mixin
#+BEGIN_SRC d
import sdlang;
#+END_SRC

*** config hub function read makes for site & doc

Read in sdl config file name given, and return sdl root

#+name: meta_config_file_sdlang_hub_site
#+BEGIN_SRC d
final auto configReadSite(M,E)(M manifest, E env) {
  auto configuration = configInSite!()(manifest, env);
  auto conf_file_details = ConfigFilePaths!()(manifest, env);
  string conf_sdl = conf_file_details.possible_config_path_locations.config_filename_site;
  auto sdl_root = ConfigSDLang!()(configuration, conf_sdl);
  return sdl_root;
}
#+END_SRC

#+name: meta_config_file_sdlang_hub_doc
#+BEGIN_SRC d
final auto configReadDoc(M,E)(M manifest, E env) {
  auto configuration = configInDoc!()(manifest, env);
  auto conf_file_details = ConfigFilePaths!()(manifest, env);
  string conf_sdl = conf_file_details.config_filename_document;
  auto sdl_root = ConfigSDLang!()(configuration, conf_sdl);
  return sdl_root;
}
#+END_SRC

* B. get _markup source_, read file         :module:sdp:meta_read_source_files:
** 0. module template (includes tuple)

#+BEGIN_SRC d :tangle ../src/sdp/meta/read_source_files.d
/++
  module meta_read_source_files;<BR>
  - open markup files<BR>
  - if master file scan for addional files to import/insert
+/
module sdp.meta.read_source_files;
static template SiSUrawMarkupContent() {
  import
    sdp.meta.rgx;
  <<imports_std>>
  mixin SiSUrgxInit;
  static auto rgx = Rgx();
  string[] _images=[];
  auto _extract_images(S)(S content_block) {
    string[] images_;
    auto _content_block = content_block.to!string;
    if (auto m = _content_block.matchAll(rgx.image)) {
      images_ ~= m.captures[1].to!string;
    }
    return images_;
  }
  auto rawsrc = RawMarkupContent();
  auto SiSUrawMarkupContent(O,Fn)(O _opt_action, Fn fn_src) {
    auto _0_header_1_body_content_2_insert_filelist_tuple
      = rawsrc.sourceContentSplitIntoHeaderAndBody(_opt_action, rawsrc.sourceContent(fn_src), fn_src);
    return _0_header_1_body_content_2_insert_filelist_tuple;
  }
  struct RawMarkupContent {
    final sourceContent(in string fn_src) {
      auto raw = MarkupRawUnit();
      auto source_txt_str
        = raw.markupSourceReadIn(fn_src);
      return source_txt_str;
    }
    final auto sourceContentSplitIntoHeaderAndBody(O)(O _opt_action, in string source_txt_str, in string fn_src="") {
      auto raw = MarkupRawUnit();
      string[] insert_file_list;
      string[] images_list;
      auto t
        = raw.markupSourceHeaderContentRawLineTupleArray(source_txt_str);
      auto header_raw = t[0];
      auto sourcefile_body_content = t[1];
      if (fn_src.match(rgx.src_fn_master)) { // filename with path needed if master file (.ssm) not otherwise
        auto ins = Inserts();
        auto tu
          = ins.scan_master_src_for_insert_files_and_import_content(_opt_action, sourcefile_body_content, fn_src);
        static assert(!isTypeTuple!(tu));
        sourcefile_body_content = tu[0];
        insert_file_list = tu[1].dup;
        images_list = tu[2].dup;
      } else if (_opt_action.source || _opt_action.sisupod) {
        auto ins = Inserts();
        auto tu
          = ins.scan_master_src_for_insert_files_and_import_content(_opt_action, sourcefile_body_content, fn_src);
        static assert(!isTypeTuple!(tu));
        images_list = tu[2].dup;
      }
      t = tuple(
        header_raw,
        sourcefile_body_content,
        insert_file_list,
        images_list
      );
      static assert(t.length==4);
      return t;
    }
  }
  struct MarkupRawUnit {
    import std.file;
    <<meta_markup_source_raw_read_file_source_string>>
    <<meta_markup_source_raw_doc_header_and_content_split>>
    <<meta_markup_source_raw_source_line_array>>
    <<meta_markup_source_raw_read_in_file>>
    <<meta_markup_source_raw_tuple_of_header_and_body>>
    <<meta_markup_source_raw_get_insert_source_line_array>>
  }
  struct Inserts {
    import sdp.meta.defaults;
    auto scan_subdoc_source(O)(
      O        _opt_action,
      char[][] markup_sourcefile_insert_content,
      string   fn_src
    ) {
      mixin SiSUrgxInitFlags;
      <<meta_inserts_scan>>
      foreach (line; markup_sourcefile_insert_content) {
        <<meta_inserts_scan_loop>>
      } // end src subdoc (inserts) loop
      <<meta_inserts_scan_post>>
    }
    auto scan_master_src_for_insert_files_and_import_content(O)(
      O        _opt_action,
      char[][] sourcefile_body_content,
      string   fn_src
    ) {
      import std.algorithm;
      mixin SiSUrgxInitFlags;
      <<meta_master_doc_scan_for_insert_filenames>>
      foreach (line; sourcefile_body_content) {
        <<meta_master_doc_scan_for_insert_filenames_loop>>
      } // end src doc loop
      <<meta_master_doc_scan_for_insert_filenames_post>>
    }
  }
}
#+END_SRC

** get markup source, read file                              :source:markup:
*** [#A] read file, source string                                  :string:

#+name: meta_markup_source_raw_read_file_source_string
#+BEGIN_SRC d
final private string readInMarkupSource(in char[] fn_src) {
  enforce(
    exists(fn_src)!=0,
    "file not found: «" ~
    fn_src ~ "»"
  );
  string source_txt_str;
  try {
    if (exists(fn_src)) {
      debug(io) {
        writeln("in src, markup source file found: ", fn_src);
      }
      source_txt_str = fn_src.readText;
    }
  }
  catch (ErrnoException ex) {
  }
  catch (UTFException ex) {
    // Handle validation errors
  }
  catch (FileException ex) {
    // Handle errors
  }
  std.utf.validate(source_txt_str);
  return source_txt_str;
}
#+END_SRC

**** notes
source_txt_str = readText(fn_src); // ok
catch (ErrnoException ex) {
}

*** [#A] document header & content, array.length == 2               :array:

here you split document header and body, an array.length == 2
split is on first match of level A~ (which is required)

#+name: meta_markup_source_raw_doc_header_and_content_split
#+BEGIN_SRC d
final private char[][] header0Content1(in string src_text) {
  /+ split string on _first_ match of "^:?A~\s" into [header, content] array/tuple +/
  char[][] header_and_content;
  auto m = (cast(char[]) src_text).matchFirst(rgx.heading_a);
  header_and_content ~= m.pre;
  header_and_content ~= m.hit ~ m.post;
  assert(header_and_content.length == 2,
    "document markup is broken, header body split == "
    ~ header_and_content.length.to!string
    ~ "; (header / body array split should == 2 (split is on level A~))"
  );
  return header_and_content;
}
#+END_SRC

*** source line array                                               :array:

#+name: meta_markup_source_raw_source_line_array
#+BEGIN_SRC d
final private char[][] markupSourceLineArray(in char[] src_text) {
  char[][] source_line_arr
    = (cast(char[]) src_text).split(rgx.newline_eol_strip_preceding);
  return source_line_arr;
}
#+END_SRC

*** source content raw line array                                   :array:
- used for regular .sst files; master .ssm files and; .ssi inserts
- regex is passed for relevant enforce match

**** read in file

#+name: meta_markup_source_raw_read_in_file
#+BEGIN_SRC d
auto markupSourceReadIn(in string fn_src) {
  static auto rgx = Rgx();
  enforce(
    fn_src.match(rgx.src_pth_sst_or_ssm),
    "not a sisu markup filename: «" ~
    fn_src ~ "»"
  );
  auto source_txt_str = readInMarkupSource(fn_src);
  return source_txt_str;
}
#+END_SRC

**** tuple (a) header, (b) body content, (c) file insert list & (d) image list?

- header
- body content
- file insert list
- [image list?]

#+name: meta_markup_source_raw_tuple_of_header_and_body
#+BEGIN_SRC d
auto markupSourceHeaderContentRawLineTupleArray(in string source_txt_str) {
  string[] file_insert_list = [];
  string[] images_list = [];
  auto hc = header0Content1(source_txt_str);
  auto header = hc[0];
  char[] source_txt = hc[1];
  auto source_line_arr = markupSourceLineArray(source_txt);
  auto t = tuple(
    header,
    source_line_arr,
    file_insert_list,
    images_list
  );
  return t;
}
#+END_SRC

**** get insert source line array

#+name: meta_markup_source_raw_get_insert_source_line_array
#+BEGIN_SRC d
final char[][] getInsertMarkupSourceContentRawLineArray(
  in char[]    fn_src_insert,
  Regex!(char) rgx_file
) {
  enforce(
    fn_src_insert.match(rgx_file),
    "not a sisu markup filename: «" ~
    fn_src_insert  ~ "»"
  );
  auto source_txt_str = readInMarkupSource(fn_src_insert);
  auto source_line_arr = markupSourceLineArray(source_txt_str);
  return source_line_arr;
}
#+END_SRC

** get markup source, master file & inserts             :masterfile:inserts:
[[./sdp.org][sdp]]  [[./][org/]]

*** scan inserts (sub-document) source                    :scan_insert_src:
**** scan subdoc source

#+name: meta_inserts_scan
#+BEGIN_SRC d
char[][] contents_insert;
auto type1 = flags_type_init;
auto fn_pth_full = fn_src.match(rgx.src_pth_sst_or_ssm);
auto markup_src_file_path = fn_pth_full.captures[1];
#+END_SRC

**** loop insert (sub-document)

#+name: meta_inserts_scan_loop
#+BEGIN_SRC d
if (type1["curly_code"] == 1) {
  type1["header_make"] = 0;
  type1["header_meta"] = 0;
  if (line.matchFirst(rgx.block_curly_code_close)) {
    type1["curly_code"] = 0;
  }
  contents_insert ~= line;
} else if (line.matchFirst(rgx.block_curly_code_open)) {
  type1["curly_code"] = 1;
  type1["header_make"] = 0;
  type1["header_meta"] = 0;
  contents_insert ~= line;
} else if (type1["tic_code"] == 1) {
  type1["header_make"] = 0;
  type1["header_meta"] = 0;
  if (line.matchFirst(rgx.block_tic_close)) {
    type1["tic_code"] = 0;
  }
  contents_insert ~= line;
} else if (line.matchFirst(rgx.block_tic_code_open)) {
  type1["tic_code"] = 1;
  type1["header_make"] = 0;
  type1["header_meta"] = 0;
  contents_insert ~= line;
} else if (
  (type1["header_make"] == 1)
  && line.matchFirst(rgx.native_header_sub)
) {
    type1["header_make"] = 1;
    type1["header_meta"] = 0;
} else if (
  (type1["header_meta"] == 1)
  && line.matchFirst(rgx.native_header_sub)
) {
    type1["header_meta"] = 1;
    type1["header_make"] = 0;
} else if (auto m = line.match(rgx.insert_src_fn_ssi_or_sst)) {
  type1["header_make"] = 0;
  type1["header_meta"] = 0;
  auto insert_fn = m.captures[2];
  auto insert_sub_pth = m.captures[1];
  auto fn_src_insert
    = chainPath(markup_src_file_path, insert_sub_pth ~ insert_fn).array;
  auto raw = MarkupRawUnit();
  auto markup_sourcesubfile_insert_content
    = raw.getInsertMarkupSourceContentRawLineArray(fn_src_insert, rgx.src_fn_find_inserts);
  debug(insert_file) {
    tell_l("red", line);
    tell_l("red", fn_src_insert);
    tell_l("fuchsia", "ERROR");
    writeln(
      "  length contents insert array: ",
      markup_sourcesubfile_insert_content.length
    );
  }
  if (_opt_action.source || _opt_action.sisupod) {
    _images ~= _extract_images(markup_sourcesubfile_insert_content);
  }
  auto ins = Inserts();
  /+
    - 1. load file
    - 2. read lines
    - 3. scan lines
      - a. if filename insert, and insert filename
         - repeat 1
      - b. else
         - add line to new array;
         - build image list, search for any image files to add to image list
  +/
} else {
  type1["header_make"] = 0;
  type1["header_meta"] = 0;
  contents_insert ~= line; // images to extract for image list?
  if (_opt_action.source || _opt_action.sisupod) {
    auto _image_linelist = _extract_images(line);
    if (_image_linelist.length > 0) {
      _images ~= _image_linelist;
    }
  }
}
#+END_SRC

**** post loop

#+name: meta_inserts_scan_post
#+BEGIN_SRC d
auto t = tuple(
  contents_insert,
  _images
);
return t;
#+END_SRC

*** scan document source                                         :scan_src:
**** scan doc source

#+name: meta_master_doc_scan_for_insert_filenames
#+BEGIN_SRC d
char[][] contents;
auto type = flags_type_init;
auto fn_pth_full = fn_src.match(rgx.src_pth_sst_or_ssm);
auto markup_src_file_path = fn_pth_full.captures[1];
char[][] contents_insert;
string[] _images =[];
string[] insert_file_list =[];
#+END_SRC

**** include inserts: _loop master_ scan for inserts (insert documents)

#+name: meta_master_doc_scan_for_insert_filenames_loop
#+BEGIN_SRC d
if (type["curly_code"] == 1) {
  if (line.matchFirst(rgx.block_curly_code_close)) {
    type["curly_code"] = 0;
  }
  contents ~= line;
} else if (line.matchFirst(rgx.block_curly_code_open)) {
  type["curly_code"] = 1;
  contents ~= line;
} else if (type["tic_code"] == 1) {
  if (line.matchFirst(rgx.block_tic_close)) {
    type["tic_code"] = 0;
  }
  contents ~= line;
} else if (line.matchFirst(rgx.block_tic_code_open)) {
  type["tic_code"] = 1;
  contents ~= line;
} else if (auto m = line.match(rgx.insert_src_fn_ssi_or_sst)) {
  auto insert_fn = m.captures[2];
  auto insert_sub_pth = m.captures[1];
  auto fn_src_insert
    = chainPath(markup_src_file_path, insert_sub_pth ~ insert_fn).array;
    insert_file_list ~= to!string(fn_src_insert);
  auto raw = MarkupRawUnit();
  /+ TODO +/
  if (auto ma = line.match(rgx.src_fn_text)) {
    /+ .sst when inserted, not used: headers and heading level ^:?A~ so remove +/
    writeln(__LINE__); writeln(ma);
  }
  auto markup_sourcefile_insert_content
    = raw.getInsertMarkupSourceContentRawLineArray(fn_src_insert, rgx.src_fn_find_inserts);
  debug(insert_file) {
    tell_l("red", line);
    tell_l("red", fn_src_insert);
    writeln(
      "  length contents insert array: ",
      markup_sourcefile_insert_content.length
    );
  }
  auto ins = Inserts();
  auto contents_insert_tu = ins.scan_subdoc_source(
    _opt_action,
    markup_sourcefile_insert_content,
    to!string(fn_src_insert)
  );
  contents ~= contents_insert_tu[0]; // images to extract for image list?
  if (_opt_action.source || _opt_action.sisupod) {
    auto _image_linelist = _extract_images(contents_insert_tu[0]);
    if (_image_linelist.length > 0) {
      _images ~= _image_linelist;
    }
  }
  /+
    - 1. load file
    - 2. read lines
    - 3. scan lines
      - a. if filename insert, and insert filename
         - repeat 1
      - b. else
         - add line to new array;
         - build image list, search for any image files to add to image list
  +/
} else {
  contents ~= line;
  if (_opt_action.source || _opt_action.sisupod) {
    auto _image_linelist = _extract_images(line);
    if (_image_linelist.length > 0) {
      _images ~= _image_linelist;
    }
  }
}
#+END_SRC

**** post loop

#+name: meta_master_doc_scan_for_insert_filenames_post
#+BEGIN_SRC d
string[] images = [];
foreach(i; uniq(_images.sort())) {
  images ~= i;
}
debug(insert_file) {
  writeln(__LINE__);
  writeln(contents.length);
}
auto t = tuple(
  contents,
  insert_file_list,
  images
);
return t;
#+END_SRC