From fc3eb717cec28209659beb9de2fd90578348ff6a Mon Sep 17 00:00:00 2001 From: Ralph Amissah Date: Mon, 20 Nov 2017 17:26:34 -0500 Subject: sdp, select language source to process --- org/sdp.org | 24 ++++++++++++++++++++---- 1 file changed, 20 insertions(+), 4 deletions(-) (limited to 'org') diff --git a/org/sdp.org b/org/sdp.org index d0d7eaf..af7fe98 100644 --- a/org/sdp.org +++ b/org/sdp.org @@ -269,6 +269,10 @@ bool[string] opts = [ "backmatter" : true, "skip-output" : false, ]; +string[string] settings = [ + "output-dir" : "", + "lang" : "all", +]; auto helpInfo = getopt(args, std.getopt.config.passThrough, "assert", "--assert set optional assertions on", &opts["assertions"], @@ -309,6 +313,8 @@ auto helpInfo = getopt(args, "section-blurb", "--section-blurb process document blurb (default)", &opts["section_blurb"], "backmatter", "--section-backmatter process document backmatter (default)", &opts["backmatter"], "skip-output", "--skip-output", &opts["skip-output"], + "output-dir", "--output-dir=[dir path]", &settings["output-dir"], + "lang", "--lang=[lang code e.g. =en or =en,es]", &settings["lang"], ); if (helpInfo.helpWanted) { defaultGetoptPrinter("Some information about the program.", helpInfo.options); @@ -345,10 +351,15 @@ foreach(arg; args[1..$]) { foreach (contents_location; contents_locations_arr) { assert(contents_location.match(rgx.src_pth), "not a recognised file: «" ~ - contents_location ~ "»" + contents_location ~ "»" ); auto contents_location_pth_ = (contents_location).to!string; - fns_src ~= (((tmp_dir_).chainPath(contents_location_pth_)).array).to!(char[]); + auto lang_rgx_ = regex(r"/(" ~ settings["lang"].split(",").join("|") ~ ")/"); + if (settings["lang"] == "all" + || (contents_location_pth_).match(lang_rgx_) + ) { + fns_src ~= (((tmp_dir_).chainPath(contents_location_pth_)).array).to!(char[]); + } } } else if (arg.match(rgx.src_pth_zip)) { // fns_src ~= arg; // gather input markup source file names for processing @@ -423,7 +434,7 @@ enforce( #+NAME: sdp_abstraction #+BEGIN_SRC d -auto t = SiSUabstraction!()(fn_src, opts, env); +auto t = SiSUabstraction!()(fn_src, opts, settings, env); static assert(!isTypeTuple!(t)); static assert(t.length==2); auto doc_abstraction = t[dAM.abstraction]; @@ -500,9 +511,10 @@ template SiSUabstraction() { enum makeMeta { make, meta } enum docAbst { doc_abstraction, section_keys, segnames, segnames_0_4, images } static auto rgx = Rgx(); - auto SiSUabstraction(Fn,O,E)( + auto SiSUabstraction(Fn,O,S,E)( Fn fn_src, O opts, + S settings, E env, ){ <> @@ -655,6 +667,10 @@ struct DocumentMatters { bool[string] _k = opts; return _k; } + auto opt_settings() { + string[string] _k = settings; + return _k; + } auto environment() { auto _k = env; return _k; -- cgit v1.2.3