From 0c693b23c4ff8f98a151884a24f150a5ff746dd4 Mon Sep 17 00:00:00 2001 From: Ralph Amissah Date: Fri, 16 Oct 2020 19:16:18 -0400 Subject: org mode, unique code-block names & adjust headers - avoid org-mode undefined behavior, provide unique code-block names --- org/out_cgi_search_sqlite.org | 53 +++++++++++++++++++++++++++---------------- 1 file changed, 33 insertions(+), 20 deletions(-) (limited to 'org/out_cgi_search_sqlite.org') diff --git a/org/out_cgi_search_sqlite.org b/org/out_cgi_search_sqlite.org index f9b90d0..df98ed9 100644 --- a/org/out_cgi_search_sqlite.org +++ b/org/out_cgi_search_sqlite.org @@ -7,6 +7,7 @@ #+COPYRIGHT: Copyright (C) 2015 - 2020 Ralph Amissah #+LANGUAGE: en #+STARTUP: content hideblocks hidestars noindent entitiespretty +#+OPTIONS: H:3 num:nil toc:t \n:nil @:t ::t |:t ^:nil _:nil -:t f:t *:t <:t #+PROPERTY: header-args :exports code #+PROPERTY: header-args+ :noweb yes #+PROPERTY: header-args+ :eval no @@ -99,21 +100,33 @@ void cgi_function_intro(Cgi cgi) { <> <> <> - <> + <> + <> <> <> <> <> <> <> -<> +<> +<> +<> <> -<> +<> +<> +<> +<> "%s", -<> +<> +<> <> <> <> +<> +<> +<> +<> +<> <> <> } @@ -409,7 +422,7 @@ auto text_fields() { ***** env ****** POST -#+NAME: cgi_sqlite_initialize_env +#+NAME: cgi_sqlite_initialize_env_0 #+BEGIN_SRC d if (environment.get("REQUEST_METHOD", "POST") == "POST") { if ("sf" in cgi.post) { @@ -559,7 +572,7 @@ auto text_fields() { ****** GET -#+NAME: cgi_sqlite_initialize_env +#+NAME: cgi_sqlite_initialize_env_1 #+BEGIN_SRC d } else if (environment.get("REQUEST_METHOD", "POST") == "GET") { got.canned_query = environment.get("QUERY_STRING", ""); @@ -814,7 +827,7 @@ string show_matched_objects (string fn) { **** format -#+NAME: cgi_sqlite_header +#+NAME: cgi_sqlite_header_0 #+BEGIN_SRC d { header = format(q"┃ @@ -822,7 +835,7 @@ string show_matched_objects (string fn) { **** html -#+NAME: cgi_sqlite_header +#+NAME: cgi_sqlite_header_1 #+BEGIN_SRC html @@ -839,7 +852,7 @@ string show_matched_objects (string fn) { **** css -#+NAME: cgi_sqlite_header +#+NAME: cgi_sqlite_header_2 #+BEGIN_SRC css *{ padding : 0px; @@ -1667,7 +1680,7 @@ string show_matched_objects (string fn) { *** cgi html form -#+NAME: cgi_sqlite_form +#+NAME: cgi_sqlite_form_0 #+BEGIN_SRC d { string post_value(string field_name, string type="box", string set="on") { @@ -1710,7 +1723,7 @@ string show_matched_objects (string fn) { **** canned search -#+NAME: cgi_sqlite_form +#+NAME: cgi_sqlite_form_1 #+BEGIN_SRC d string the_can(string fv) { string show_the_can = post_value("url"); @@ -1748,7 +1761,7 @@ string show_matched_objects (string fn) { **** provide tip -#+NAME: cgi_sqlite_form +#+NAME: cgi_sqlite_form_2 #+BEGIN_SRC d string provide_tip() { string searched_tip = post_value("se"); @@ -1785,7 +1798,7 @@ string show_matched_objects (string fn) { **** the form ***** form html -#+NAME: cgi_sqlite_form +#+NAME: cgi_sqlite_form_3 #+BEGIN_SRC html form = format(q"┃
@@ -1823,7 +1836,7 @@ string show_matched_objects (string fn) { ***** form values -#+NAME: cgi_sqlite_form_post +#+NAME: cgi_sqlite_form_post_0 #+BEGIN_SRC d (post_value("ec") == "checked") ? post_value("sf", "field") : "", provide_tip, @@ -1843,7 +1856,7 @@ string show_matched_objects (string fn) { **** set value (debug) -#+NAME: cgi_sqlite_form_post +#+NAME: cgi_sqlite_form_post_1 #+BEGIN_SRC d { string set_value(string field_name, string default_val) { @@ -2008,7 +2021,7 @@ auto db = Database(conf.db_path ~ cv.db_selected); **** db SELECT statement, the body -#+NAME: cgi_sqlite_select_statement_0 +#+NAME: cgi_sqlite_select_statement_1 #+BEGIN_SRC sql sql_select.the_body ~= format(q"┃ SELECT @@ -2051,7 +2064,7 @@ LIMIT %%s OFFSET %%s **** html write selected ***** head -#+NAME: cgi_sqlite_select_statement_0 +#+NAME: cgi_sqlite_select_statement_2 #+BEGIN_SRC d (cv.checked_sql) ? cgi.write(previous_next @@ -2100,7 +2113,7 @@ LIMIT %%s OFFSET %%s ***** text found -#+NAME: cgi_sqlite_select_statement_0 +#+NAME: cgi_sqlite_select_statement_3 #+BEGIN_SRC d if (cv.results_type == "txt") { if (row["ocn"].as!string != "0") { @@ -2143,7 +2156,7 @@ LIMIT %%s OFFSET %%s ***** ocn index -#+NAME: cgi_sqlite_select_statement_0 +#+NAME: cgi_sqlite_select_statement_4 #+BEGIN_SRC d } else { if (row["ocn"].as!string != "0") { @@ -2176,7 +2189,7 @@ LIMIT %%s OFFSET %%s ***** tail -#+NAME: cgi_sqlite_select_statement_0 +#+NAME: cgi_sqlite_select_statement_5 #+BEGIN_SRC d } cgi.write( previous_next); -- cgit v1.2.3