From 4f49b16079b27d7ce633619e4cddfdf2bffbc952 Mon Sep 17 00:00:00 2001
From: cashmere <cashmere@autistici.org>
Date: Fri, 4 Sep 2026 09:05:24 +0200
Subject: initial commit

---
 src/pikchrshow.c | 574 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 574 insertions(+)
 create mode 100644 src/pikchrshow.c

(limited to 'src/pikchrshow.c')

diff --git a/src/pikchrshow.c b/src/pikchrshow.c
new file mode 100644
index 0000000..b95182c
--- /dev/null
+++ b/src/pikchrshow.c
@@ -0,0 +1,574 @@
+/*
+** Copyright (c) 2020 D. Richard Hipp
+**
+** This program is free software; you can redistribute it and/or
+** modify it under the terms of the Simplified BSD License (also
+** known as the "2-Clause License" or "FreeBSD License".)
+**
+** This program is distributed in the hope that it will be useful,
+** but without any warranty; without even the implied warranty of
+** merchantability or fitness for a particular purpose.
+**
+** Author contact information:
+**   drh@hwaci.com
+**   http://www.hwaci.com/drh/
+**
+*******************************************************************************
+**
+** This file contains fossil-specific code related to pikchr.
+*/
+#include "config.h"
+#include <assert.h>
+#include <ctype.h>
+#include "pikchrshow.h"
+
+#if INTERFACE
+/* These are described in pikchr_process()'s docs. */
+/* The first two must match the values from pikchr.c */
+#define PIKCHR_PROCESS_PLAINTEXT_ERRORS  0x0001
+#define PIKCHR_PROCESS_DARK_MODE         0x0002
+/* end of flags supported directly by pikchr() */
+#define PIKCHR_PROCESS_PASSTHROUGH       0x0003   /* Pass through these flags */
+#define PIKCHR_PROCESS_NONCE             0x0010
+#define PIKCHR_PROCESS_ERR_PRE           0x0020
+#define PIKCHR_PROCESS_SRC               0x0040
+#define PIKCHR_PROCESS_DIV               0x0080
+#define PIKCHR_PROCESS_DIV_INDENT        0x0100
+#define PIKCHR_PROCESS_DIV_CENTER        0x0200
+#define PIKCHR_PROCESS_DIV_FLOAT_LEFT    0x0400
+#define PIKCHR_PROCESS_DIV_FLOAT_RIGHT   0x0800
+#define PIKCHR_PROCESS_DIV_TOGGLE        0x1000
+#define PIKCHR_PROCESS_DIV_SOURCE        0x2000
+#define PIKCHR_PROCESS_DIV_SOURCE_INLINE 0x4000
+#endif
+
+/*
+** Processes a pikchr script. zIn is the NUL-terminated input
+** script. pikFlags may be a bitmask of any of the PIKCHR_PROCESS_xxx
+** flags documented below. Output is sent to pOut,
+**
+** Returns 0 on success, or non-zero if pikchr processing failed.
+** In either case, the error message (if any) from pikchr will be
+** appended to pOut.
+**
+** pikFlags flag descriptions:
+**
+** - PIKCHR_PROCESS_DIV: if set, the SVG result is wrapped in a DIV
+** element which specifies a max-width style value based on the SVG's
+** calculated size. This flag has multiple mutually exclusive forms:
+**
+**  - PIKCHR_PROCESS_DIV uses default element alignment.
+**  - PIKCHR_PROCESS_DIV_INDENT indents the div.
+**  - PIKCHR_PROCESS_DIV_CENTER centers the div.
+**  - PIKCHR_PROCESS_DIV_FLOAT_LEFT floats the div left.
+**  - PIKCHR_PROCESS_DIV_FLOAT_RIGHT floats the div right.
+**
+** If more than one is specified, which one is used is undefined. Those
+** flags may be OR'd with one or both of the following:
+**
+**  - PIKCHR_PROCESS_DIV_TOGGLE: adds the 'toggle' CSS class to the
+**    outer DIV so that event-handler code can install different
+**    toggling behaviour than the default. Default is ctrl-click, but
+**    this flag enables single-click toggling for the element.
+**
+**  - PIKCHR_PROCESS_DIV_SOURCE: adds the 'source' CSS class to the
+**    outer DIV, which is a hint to the client-side renderer (see
+**    fossil.pikchr.js) that the pikchr should initially be rendered
+**    in source code form mode (the default is to hide the source and
+**    show the SVG).
+**
+**  - PIKCHR_PROCESS_DIV_SOURCE_INLINE: adds the 'source-inline' CSS
+**    class to the outer wrapper. This modifier changes how the
+**    'source' CSS class gets applied: with this flag, the source view
+**    should be rendered "inline" (same position as the graphic), else
+**    it is to be left-aligned.
+**
+** - PIKCHR_PROCESS_NONCE: if set, the resulting SVG/DIV are wrapped
+** in "safe nonce" comments, which are a fossil-internal mechanism
+** which prevents the wiki/markdown processors from re-processing this
+** output. This is necessary when calling this routine in the context
+** of wiki/embedded doc processing, but not (e.g.) when fetching
+** an image for /pikchrpage.
+**
+** - PIKCHR_PROCESS_SRC: if set, a new PRE.pikchr-src element is
+** injected adjacent to the SVG element which contains the
+** HTML-escaped content of the input script. If
+** PIKCHR_PROCESS_DIV_SOURCE or PIKCHR_PROCESS_DIV_SOURCE_INLINE is
+** set, this flag is automatically implied.
+**
+** - PIKCHR_PROCESS_ERR_PRE: if set and pikchr() fails, the resulting
+** error report is wrapped in a PRE element, else it is retained
+** as-is (intended only for console output).
+*/
+int pikchr_process(const char *zIn, int pikFlags, Blob * pOut){
+  int isErr = 0;
+  int w = 0, h = 0;
+  char *zOut;
+  const char *zNonce = (PIKCHR_PROCESS_NONCE & pikFlags)
+    ? safe_html_nonce(1) : 0;
+
+  if(!(PIKCHR_PROCESS_DIV & pikFlags)
+     /* If any DIV_xxx flags are set, set DIV */
+     && (PIKCHR_PROCESS_DIV_INDENT
+         | PIKCHR_PROCESS_DIV_CENTER
+         | PIKCHR_PROCESS_DIV_FLOAT_RIGHT
+         | PIKCHR_PROCESS_DIV_FLOAT_LEFT
+         | PIKCHR_PROCESS_DIV_SOURCE
+         | PIKCHR_PROCESS_DIV_SOURCE_INLINE
+         | PIKCHR_PROCESS_DIV_TOGGLE
+         ) & pikFlags){
+    pikFlags |= PIKCHR_PROCESS_DIV;
+  }
+  if(zNonce){
+    blob_appendf(pOut, "%s\n", zNonce);
+  }
+  zOut = pikchr(zIn, "pikchr",
+                0x01 | (pikFlags&PIKCHR_PROCESS_PASSTHROUGH),
+                &w, &h);
+  if( w>0 && h>0 ){
+    const char * zClassToggle = "";
+    const char * zClassSource = "";
+    const char * zWrapperClass = "";
+    if(PIKCHR_PROCESS_DIV & pikFlags){
+      if(PIKCHR_PROCESS_DIV_CENTER & pikFlags){
+        zWrapperClass = " center";
+      }else if(PIKCHR_PROCESS_DIV_INDENT & pikFlags){
+        zWrapperClass = " indent";
+      }else if(PIKCHR_PROCESS_DIV_FLOAT_LEFT & pikFlags){
+        zWrapperClass = " float-left";
+      }else if(PIKCHR_PROCESS_DIV_FLOAT_RIGHT & pikFlags){
+        zWrapperClass = " float-right";
+      }
+      if(PIKCHR_PROCESS_DIV_TOGGLE & pikFlags){
+        zClassToggle = " toggle";
+      }
+      if(PIKCHR_PROCESS_DIV_SOURCE_INLINE & pikFlags){
+        if(PIKCHR_PROCESS_DIV_SOURCE & pikFlags){
+          zClassSource = " source source-inline";
+        }else{
+          zClassSource = " source-inline";
+        }
+        pikFlags |= PIKCHR_PROCESS_SRC;
+      }else if(PIKCHR_PROCESS_DIV_SOURCE & pikFlags){
+        zClassSource = " source";
+        pikFlags |= PIKCHR_PROCESS_SRC;
+      }
+      blob_appendf(pOut,"<div class='pikchr-wrapper"
+                   "%s%s%s'>"
+                   "<div class=\"pikchr-svg\" "
+                   "style=\"max-width:%dpx\">\n",
+                   zWrapperClass/*safe-for-%s*/,
+                   zClassToggle/*safe-for-%s*/,
+                   zClassSource/*safe-for-%s*/, w);
+    }
+    blob_append(pOut, zOut, -1);
+    if(PIKCHR_PROCESS_DIV & pikFlags){
+      blob_append(pOut, "</div>\n", 7);
+    }
+    if(PIKCHR_PROCESS_SRC & pikFlags){
+      static int counter = 0;
+      ++counter;
+      blob_appendf(pOut, "<div class='pikchr-src'>"
+                   "<pre id='pikchr-src-%d'>%h</pre>"
+                   "<span class='hidden'>"
+                   "<a href='%R/pikchrshow?fromSession' "
+                   "class='pikchr-src-pikchrshow' target='_new-%d' "
+                   "data-pikchrid='pikchr-src-%d' "
+                   "title='Open this pikchr in /pikchrshow'"
+                   ">&rarr; /pikchrshow</a></span>"
+                   "</div>\n",
+                   counter, zIn, counter, counter);
+    }
+    if(PIKCHR_PROCESS_DIV & pikFlags){
+      blob_append(pOut, "</div>\n", 7);
+    }
+  }else{
+    isErr = 2;
+    if(PIKCHR_PROCESS_ERR_PRE & pikFlags){
+      blob_append(pOut, "<pre class='error'>\n", 20);
+    }
+    blob_appendf(pOut, "%h", zOut);
+    if(PIKCHR_PROCESS_ERR_PRE & pikFlags){
+      blob_append(pOut, "\n</pre>\n", 8);
+    }
+  }
+  fossil_free(zOut);
+  if(zNonce){
+    blob_appendf(pOut, "%s\n", zNonce);
+  }
+  return isErr;
+}
+
+/*
+** Legacy impl of /pikchrshow. pikchrshow_page() will delegate to
+** this one if the "legacy" or "ajax" request arguments are set.
+**
+** A pikchr code editor and previewer, allowing users to experiment
+** with pikchr code or prototype it for use in copy/pasting into forum
+** posts, wiki pages, or embedded docs. This version of pikchrshow
+** uses JavaScript to send pikchr code to the server for
+** processing. The newer /pikchrshow applications runs pikchr on the
+** client machine, without the need for back-and-forth network
+** traffic.
+*/
+void pikchrshowcs_page(void){
+  const char *zContent = 0;
+  int isDark;              /* true if the current skin is "dark" */
+  int pikFlags =
+    PIKCHR_PROCESS_DIV
+    | PIKCHR_PROCESS_SRC
+    | PIKCHR_PROCESS_ERR_PRE;
+
+  login_check_credentials();
+  if( !g.perm.RdWiki && !g.perm.Read && !g.perm.RdForum ){
+    cgi_redirectf("%R/login?g=pikchrshowcs");
+  }
+  if(P("wasm")){
+    pikchrshow_page();
+    return;
+  }
+  zContent = PD("content",P("p"));
+  if(P("ajax")!=0){
+    /* Called from the JS-side preview updater.
+       TODO: respond with JSON instead.*/
+    cgi_set_content_type("text/html");
+    if(zContent && *zContent){
+      Blob out = empty_blob;
+      const int isErr =
+        pikchr_process(zContent, pikFlags, &out);
+      if(isErr){
+        cgi_printf_header("x-pikchrshow-is-error: %d\r\n", isErr);
+      }
+      CX("%b", &out);
+      blob_reset(&out);
+    }else{
+      CX("<pre>No content! Nothing to render</pre>");
+    }
+    return;
+  }/*ajax response*/
+  style_emit_noscript_for_js_page();
+  isDark = skin_detail_boolean("white-foreground");
+  if(!zContent){
+    zContent = "arrow right 200% \"Markdown\" \"Source\"\n"
+      "box rad 10px \"Markdown\" \"Formatter\" \"(markdown.c)\" fit\n"
+      "arrow right 200% \"HTML+SVG\" \"Output\"\n"
+      "arrow <-> down from last box.s\n"
+      "box same \"Pikchr\" \"Formatter\" \"(pikchr.c)\" fit\n";
+  }
+  style_header("PikchrShow Client/Server");
+  CX("<style>"); {
+    CX("div.content { padding-top: 0.5em }\n");
+    CX("#sbs-wrapper {"
+       "display: flex; flex-direction: column;"
+       "}\n");
+    CX("#sbs-wrapper > * {"
+       "margin: 0 0.25em 0.5em 0; flex: 1 10 auto;"
+       "align-self: stretch;"
+       "}\n");
+    CX("#sbs-wrapper textarea {"
+       "max-width: initial; flex: 1 1 auto;"
+       "}\n");
+    CX("#pikchrshow-output, #pikchrshow-form"
+       "{display: flex; flex-direction: column; align-items: stretch;}");
+    CX("#pikchrshow-form > * {margin: 0.25em 0}\n");
+    CX("#pikchrshow-output {flex: 5 1 auto; padding: 0}\n");
+    CX("#pikchrshow-output > pre, "
+       "#pikchrshow-output > pre > div, "
+       "#pikchrshow-output > pre > div > pre "
+       "{margin: 0; padding: 0}\n");
+    CX("#pikchrshow-output.error > pre "
+       /* Server-side error report */
+       "{padding: 0.5em}\n");
+    CX("#pikchrshow-controls {" /* where the buttons live */
+       "display: flex; flex-direction: row; "
+       "align-items: center; flex-wrap: wrap;"
+       "}\n");
+    CX("#pikchrshow-controls > * {"
+       "display: inline; margin: 0 0.25em 0.5em 0;"
+       "}\n");
+    CX("#pikchrshow-output-wrapper label {"
+       "cursor: pointer;"
+       "}\n");
+    CX("body.pikchrshow .input-with-label > * {"
+       "margin: 0 0.2em;"
+       "}\n");
+    CX("body.pikchrshow .input-with-label > label {"
+       "cursor: pointer;"
+       "}\n");
+    CX("#pikchrshow-output.dark-mode svg {"
+       /* Flip the colors to approximate a dark theme look */
+       "filter: invert(1) hue-rotate(180deg);"
+       "}\n");
+    CX("#pikchrshow-output-wrapper {"
+       "padding: 0.25em 0.5em; border-radius: 0.25em;"
+       "border-width: 1px;"/*some skins disable fieldset borders*/
+       "}\n");
+    CX("#pikchrshow-output-wrapper > legend > *:not(.copy-button){"
+       "margin-right: 0.5em; vertical-align: middle;"
+       "}\n");
+    CX("body.pikchrshow .v-align-middle{"
+       "vertical-align: middle"
+       "}\n");
+    CX(".dragover {border: 3px dotted rgba(0,255,0,0.6)}\n");
+  } CX("</style>");
+  CX("<div>Input pikchr code and tap Preview (or Shift-Enter) to render "
+     "it. <a href='?wasm'>Switch to WASM mode</a>.</div>");
+  CX("<div id='sbs-wrapper'>"); {
+    CX("<div id='pikchrshow-form'>"); {
+      CX("<textarea id='content' name='content' rows='15'>"
+         "%s</textarea>",zContent/*safe-for-%s*/);
+      CX("<div id='pikchrshow-controls'>"); {
+        CX("<button id='pikchr-submit-preview'>Preview</button>");
+        CX("<div class='input-with-label'>"); {
+          CX("<button id='pikchr-stash'>Stash</button>");
+          CX("<button id='pikchr-unstash'>Unstash</button>");
+          CX("<button id='pikchr-clear-stash'>Clear stash</button>");
+          CX("<span>Stores/restores a single pikchr script to/from "
+             "browser-local storage from/to the editor.</span>"
+             /* gets turned into a help-buttonlet */);
+        } CX("</div>"/*stash controls*/);
+        style_labeled_checkbox("flipcolors-wrapper", "flipcolors",
+                               "Dark mode?",
+                               "1", isDark, 0);
+      } CX("</div>"/*#pikchrshow-controls*/);
+    }
+    CX("</div>"/*#pikchrshow-form*/);
+    CX("<fieldset id='pikchrshow-output-wrapper'>"); {
+      CX("<legend></legend>"
+         /* Reminder: Firefox does not properly flexbox a LEGEND
+            element, always flowing it in column mode. */);
+      CX("<div id='pikchrshow-output'>");
+      if(*zContent){
+        Blob out = empty_blob;
+        pikchr_process(zContent, pikFlags, &out);
+        CX("%b", &out);
+        blob_reset(&out);
+      } CX("</div>"/*#pikchrshow-output*/);
+    } CX("</fieldset>"/*#pikchrshow-output-wrapper*/);
+  } CX("</div>"/*sbs-wrapper*/);
+  builtin_fossil_js_bundle_or("fetch", "copybutton", "popupwidget",
+                              "storage", "pikchr", NULL);
+  builtin_request_js("fossil.page.pikchrshow.js");
+  builtin_fulfill_js_requests();
+  style_finish_page();
+}
+
+/*
+** WEBPAGE: pikchrshow
+**
+** A pikchr code editor and previewer, allowing users to experiment
+** with pikchr code or prototype it for use in copy/pasting into forum
+** posts, wiki pages, or embedded docs. This version of pikchrshow
+** uses WebAssembly to run entirely in the client browser, without a
+** need for back-and-forth client/server traffic to perform the
+** rendering. The "legacy" version of this application, which sends
+** all input to the server for rendering, can be accessed by adding
+** the "legacy" URL argument.
+**
+** It optionally accepts a p=pikchr-script-code URL parameter or POST
+** value to pre-populate the editor with that code.
+*/
+void pikchrshow_page(void){
+  const char *zContent = 0;
+
+  if(P("legacy") || P("ajax")){
+    pikchrshowcs_page();
+    return;
+  }
+  login_check_credentials();
+  if( !g.perm.RdWiki && !g.perm.Read && !g.perm.RdForum ){
+    cgi_redirectf("%R/login?g=pikchrshow");
+  }
+  style_emit_noscript_for_js_page();
+  style_header("PikchrShow");
+  zContent = PD("content",P("p"));
+  if(!zContent){
+    zContent = "arrow right 200% \"Markdown\" \"Source\"\n"
+      "box rad 10px \"Markdown\" \"Formatter\" \"(markdown.c)\" fit\n"
+      "arrow right 200% \"HTML+SVG\" \"Output\"\n"
+      "arrow <-> down from last box.s\n"
+      "box same \"Pikchr\" \"Formatter\" \"(pikchr.c)\" fit\n";
+  }
+  /* Wasm load/init progress widget... */
+  CX("<div class='emscripten'>"); {
+    CX("<figure id='module-spinner'>");
+      CX("<div class='spinner'></div>");
+      CX("<div class='center'><strong>Initializing app...</strong></div>");
+      CX("<div class='center'>");
+        CX("On a slow internet connection this may take a moment.  If this ");
+        CX("message displays for \"a long time\", initialization may have ");
+        CX("failed and the JavaScript console may contain clues as to why. ");
+      CX("</div>");
+      CX("<div><a href='?legacy'>Switch to legacy mode</a></div>");
+    CX("</figure>");
+    CX("<div class='emscripten' id='module-status'>Downloading...</div>");
+    CX("<progress value='0' max='100' id='module-progress' hidden='1'>"
+       "</progress>");
+  } CX("</div><!-- .emscripten -->");
+  /* Main view... */
+  CX("<div id='view-split' class='app-view initially-hidden'>"); {
+    CX("<fieldset class='options collapsible'>"); {
+      CX("<legend><button class='fieldset-toggle'>Options</button></legend>");
+      CX("<div>");
+      CX("<span class='labeled-input'>");
+        CX("<input type='checkbox' id='opt-cb-sbs' ");
+        CX("data-csstgt='#main-wrapper' ");
+        CX("data-cssclass='side-by-side' ");
+        CX("data-config='sideBySide'>");
+        CX("<label for='opt-cb-sbs'>Side-by-side</label>");
+      CX("</span>");
+      CX("<span class='labeled-input'>");
+        CX("<input type='checkbox' id='opt-cb-swapio' ");
+        CX("data-csstgt='#main-wrapper' ");
+        CX("data-cssclass='swapio' ");
+        CX("data-config='swapInOut'>");
+        CX("<label for='opt-cb-swapio'>Swap in/out</label>");
+      CX("</span>");
+      CX("<span class='labeled-input'>");
+        CX("<input type='checkbox' id='opt-cb-autofit' ");
+        CX("data-config='renderAutofit'>");
+        CX("<label for='opt-cb-autofit' "
+           "title='Attempt to scale SVG to fit viewport. "
+           "Whether it will work depends in part on the size "
+           "and shape of the image and the viewport.'"
+           ">Auto-fit SVG</label>");
+      CX("</span>");
+      CX("<span class='labeled-input'>");
+        CX("<input type='checkbox' id='opt-cb-autorender' ");
+        CX("data-csstgt='#main-wrapper' ");
+        CX("data-cssclass='auto-render' ");
+        CX("data-config='renderWhileTyping'>");
+        CX("<label for='opt-cb-autorender'>Render while typing</label>");
+      CX("</span>");
+      CX("<span class='labeled-input'>");
+        CX("<a href='?legacy'>Legacy mode</a>");
+      CX("</span>");
+      CX("</div><!-- options wrapper -->");
+    } CX("</fieldset>");
+    CX("<div id='main-wrapper' class=''>"); {
+      CX("<fieldset class='zone-wrapper input'>"); {
+        CX("<legend><div class='button-bar'>");
+          CX("<button id='btn-render' "
+             "title='Ctrl-Enter/Shift-Enter'>Render</button>");
+          CX("<button id='btn-clear'>Clear Input</button>");
+        CX("</div></legend>");
+        CX("<div><textarea id='input'");
+          CX("placeholder='Pikchr input. Ctrl-enter/shift-enter runs it.'>");
+          CX("/**\n");
+          CX("  Use ctrl-enter or shift-enter to execute\n");
+          CX("  pikchr code. If only a subset is currently\n");
+          CX("  selected, only that part is evaluated.\n*/\n");
+        CX("%s</textarea></div>",zContent/*safe-for-%s*/);
+      } CX("</fieldset><!-- .zone-wrapper.input -->");
+      CX("<fieldset class='zone-wrapper output'>"); {
+        CX("<legend><div class='button-bar'>");
+          CX("<button id='btn-render-mode'>Render Mode</button> ");
+          CX("<span style='white-space:nowrap'>"
+             "<button id='preview-copy-button' "
+             "title='Tap to copy to clipboard.'><span></span></button>"
+             "<label for='preview-copy-button' "
+             "title='Tap to copy to clipboard.'></label>"
+             "</span>");
+        CX("</div></legend>");
+        CX("<div id='pikchr-output-wrapper'>");
+          CX("<div id='pikchr-output'></div>");
+          CX("<textarea class='hidden' id='pikchr-output-text'></textarea>");
+        CX("</div>");
+      } CX("</fieldset> <!-- .zone-wrapper.output -->");
+    } CX("</div><!-- #main-wrapper -->");
+  } CX("</div><!-- #view-split -->");
+  builtin_fossil_js_bundle_or("dom", "storage", "copybutton", NULL);
+  builtin_request_js("fossil.page.pikchrshowasm.js");
+  builtin_fulfill_js_requests();
+  style_finish_page();
+}
+
+
+/*
+** COMMAND: pikchr*
+**
+** Usage: %fossil pikchr [options] ?INFILE? ?OUTFILE?
+**
+** Accepts a pikchr script as input and outputs the rendered script as
+** an SVG graphic. The INFILE and OUTFILE options default to stdin
+** resp. stdout, and the names "-" can be used as aliases for those
+** streams.
+**
+** Options:
+**    -div       On success, add a DIV wrapper around the
+**               resulting SVG output which limits its max-width to
+**               its computed maximum ideal size
+**
+**    -div-indent  Like -div but indent the div
+**
+**    -div-center  Like -div but center the div
+**
+**    -div-left    Like -div but float the div left
+**
+**    -div-right   Like -div but float the div right
+**
+**    -div-toggle  Set the 'toggle' CSS class on the div (used by the
+**                 JavaScript-side post-processor)
+**
+**    -div-source  Set the 'source' CSS class on the div, which tells
+**                 CSS to hide the SVG and reveal the source by default.
+**
+**    -src       Store the input pikchr's source code in the output as
+**               a separate element adjacent to the SVG one. Implied
+**               by -div-source.
+**
+**    -dark      Change pikchr colors to assume a dark-mode theme.
+**
+**
+** The -div-indent/center/left/right flags may not be combined.
+*/
+void pikchr_cmd(void){
+  Blob bIn = empty_blob;
+  Blob bOut = empty_blob;
+  const char * zInfile = "-";
+  const char * zOutfile = "-";
+  int isErr = 0;
+  int pikFlags = find_option("src",0,0)!=0
+    ? PIKCHR_PROCESS_SRC : 0;
+
+  if(find_option("div",0,0)!=0){
+    pikFlags |= PIKCHR_PROCESS_DIV;
+  }else if(find_option("div-indent",0,0)!=0){
+    pikFlags |= PIKCHR_PROCESS_DIV_INDENT;
+  }else if(find_option("div-center",0,0)!=0){
+    pikFlags |= PIKCHR_PROCESS_DIV_CENTER;
+  }else if(find_option("div-float-left",0,0)!=0){
+    pikFlags |= PIKCHR_PROCESS_DIV_FLOAT_LEFT;
+  }else if(find_option("div-float-right",0,0)!=0){
+    pikFlags |= PIKCHR_PROCESS_DIV_FLOAT_RIGHT;
+  }
+  if(find_option("div-toggle",0,0)!=0){
+    pikFlags |= PIKCHR_PROCESS_DIV_TOGGLE;
+  }
+  if(find_option("div-source",0,0)!=0){
+    pikFlags |= PIKCHR_PROCESS_DIV_SOURCE | PIKCHR_PROCESS_SRC;
+  }
+  if(find_option("dark",0,0)!=0){
+    pikFlags |= PIKCHR_PROCESS_DARK_MODE;
+  }
+
+  verify_all_options();
+  if(g.argc>4){
+    usage("?INFILE? ?OUTFILE?");
+  }
+  if(g.argc>2){
+    zInfile = g.argv[2];
+  }
+  if(g.argc>3){
+    zOutfile = g.argv[3];
+  }
+  blob_read_from_file(&bIn, zInfile, ExtFILE);
+  isErr = pikchr_process(blob_str(&bIn), pikFlags, &bOut);
+  if(isErr){
+    fossil_fatal("pikchr ERROR: %b", &bOut);
+  }else{
+    blob_write_to_file(&bOut, zOutfile);
+  }
+  blob_reset(&bIn);
+  blob_reset(&bOut);
+}
-- 
cgit v1.3.1