if pkg-config --exists webkit2gtk-4.0 ; then
    make TCL_CFLAGS="-I${PFX_HERE}/include -DUSE_TCL_STUBS=1" \
      TCL_LDFLAGS="-L${PFX_HERE}/lib -ltclstub8.6" || exit 1
    install -d ${PFX_HERE}/lib/twv0.1
    install -m 755 libtwv.so ${PFX_HERE}/lib/twv0.1
  else
    install -d ${PFX_HERE}/lib/twv0.1
    install -m 755 prebuilt/Linux/i386/libtwv.so ${PFX_HERE}/lib/twv0.1
  fi
  install -m 644 pkgIndex.tcl ${PFX_HERE}/lib/twv0.1
  touch build-stamp
  echo >&3 "done"
) || fail

echo -n "strip binaries ... "

  if pkg-config --exists webkit2gtk-4.0 ; then
    make TCL_CFLAGS="-I${PFX_HERE}/include -DUSE_TCL_STUBS=1" \
      TCL_LDFLAGS="-L${PFX_HERE}/lib -ltclstub8.6" || exit 1
    install -d ${PFX_HERE}/lib/twv0.1
    install -m 755 libtwv.so ${PFX_HERE}/lib/twv0.1
  else
    install -d ${PFX_HERE}/lib/twv0.1
    install -m 755 prebuilt/Linux/x86_64/libtwv.so ${PFX_HERE}/lib/twv0.1
  fi
  install -m 644 pkgIndex.tcl ${PFX_HERE}/lib/twv0.1
  touch build-stamp
  echo >&3 "done"
) || fail

echo -n "strip binaries ... "

1 {#HTML
<center><h2>Taygete Scrap Book Cheat Sheet<br><br></h2></center>} 2 {h3 "Important (internal) global variables"} 3 {table {{global variable}} [info global {[A-Z]*}]} 4 {#HTML
<dl>
 <dt><b>ID</b></dt>
 <dd>The current input field during evaluation, an integer number.</dd>
 <dt><b>W</b></dt>
 <dd>The Webview for displaying the page.</dd>
 <dt><b>H</b></dt>
 <dd>The history array of input fields, keys are integer numbers starting from 1.</dd>
</dl>} 5 {# current state of history array
table {key value} [array get H]} 6 {h3 "Useful procs in the global namespace"} 7 {lsort [info proc {[a-z]*}]} 8 {#HTML
<dl>
 <dt><code><b>gets</b></code>, <code><b>read</b></code></dt>
 <dd>Overriden, reading from <code>stdin</code> channel yields empty
     string.</dd><br>
 <dt><code><b>h1</b> string</code>, <code><b>h2..h5</b></code></dt>
 <dd>Format a HTML header after the correspondig input field, auto-hide
     the input field.</dd><br>

     channels outputs after the corresponding input field.</dd><br>
 <dt><code><b>table</b> colinfo data</code></dt>
 <dd>Format a HTML table, <code>colinfo</code> gives the number of
     columns, if it's an integer; if negative, the first
     <code>-colinfo</code> items are used in the header row.
     If <code>colinfo</code> is a list, it specifies the column
     headers directly.</dd>
</dl>} 9 {h3 "Useful procs in the tsb namespace"} 10 {lsort [info proc tsb::*]} 11 {#HTML
<dl>
 <dt><code><b>tsb::canvas</b> ?-width w -height h?</code></dt>
 <dd>Creates a <code>canvas</code> emulation implementing enough
     methods for Plotchart, returns a widget command.</dd><br>
 <dt><code><b>tsb::canvascmd</b> cmd ...</code></dt>
 <dd>Implementation of the canvas widget command, supports
     <code>create</code>, <code>delete</code> and other methods plus

     instead.</dd><br>
 <dt><code><b>tsb::save</b> ?filename?</code></dt>
 <dd>Save page to given <code>filename</code>, if file name omitted,
     present file selection.</dd><br>
 <dt><code><b>tsb::wrhtml</b> ?filename?</code></dt>
 <dd>Write page as HTML to given <code>filename</code>, if file name
     omitted, present file selection.</dd>
</dl>} 12 {h3 "Input Fields"} 13 {#HTML
<p>Input fields have a label of the form <code>in(&lt;number&gt;)</code>
where the number is the index in the history array. Arbitrary text can be
entered which however should be valid Tcl code, except the very first line
is <code>#HTML</code> or <code>#MARKDOWN</code>, in which case the
following lines should be valid HTML or Markdown text, respectively.
The input field is evaluated when <code>&lt;Shift-Return&gt;</code>
is pressed.</p>

<p>Depending on the command evaluation the input field is sometimes hidden.
A double click on the corresponding output field(s) makes the input field
visible and thus editable, again.</p>} 14 {h3 "Output Fields"} 15 {#HTML
<p>Each input field has two corresponding output fields which are
visible/non-empty depending on context. One output field receives
preformatted text, either the result or the error message of a
command evaluation. The other output field receives HTML, e.g.
for displaying an image or for the <code>#HTML</code> and
<code>#MARKDOWN</code> formats from the input field.</p>} 16 {tsb::save cheatsheet.tsb}

	WEBVIEW_CFLAGS := -DWEBVIEW_GTK=1 -DWEBVIEW_GTK_DL=1 \
	    $(shell pkg-config --cflags gtk+-3.0 webkit2gtk-4.0)
	WEBVIEW_LDFLAGS := -lgtk-3 -lgdk-3 -lglib-2.0
endif

all:	$(TARGET)

$(TARGET): twv.c webview.h webview_dl.h
	$(CC) -fPIC -shared $(CFLAGS) $(TCL_CFLAGS) $(WEBVIEW_CFLAGS) twv.c \
	    $(LDFLAGS) $(TCL_LDFLAGS) $(WEBVIEW_LDFLAGS) -o $@

clean:
	$(RM) $(TARGET) *~

distclean: clean

	int i, ch;
	char *p, *sep = "";

	if (objc < 3) {
	    Tcl_WrongNumArgs(interp, 2, objv, "func ?arg ...?");
            return TCL_ERROR;
        }
	Tcl_UtfToExternalDString(tw->enc, Tcl_GetString(objv[2]), -1, &ds);
	Tcl_DStringAppend(&ds, "(", 1);
	for (i = 3; i < objc; i++) {
	    Tcl_DStringAppend(&ds, sep, -1);
	    Tcl_DStringAppend(&ds, "\"", 1);
	    Tcl_UtfToExternalDString(tw->enc, Tcl_GetString(objv[i]), -1, &ds1);
	    p = Tcl_DStringValue(&ds1);
	    while (*p) {
		char buf[8];
		int uch;

		ch = *p & 0xFF;
		if ((ch >= 0x20) && (ch <= 0x80) &&
		    (strchr("<>\\'\"", ch) == NULL)) {
		    buf[0] = ch;
		    Tcl_DStringAppend(&ds, buf, 1);
		} else if (ch < 0xC0) {
doXFmt:
		    sprintf(buf, "\\x%02x", ch);
		    Tcl_DStringAppend(&ds, buf, 4);
		} else if (ch < 0xE0) {
		    if ((p[1] & 0xC0) == 0x80) {
			uch = ((ch & 0x1F) << 6)
			    | (p[1] & 0x3F);
			if (uch <= 0x80) {
			    goto doXFmt;
			}
			p += 2;
			goto doUFmt;
		    }
		    goto doXFmt;
		} else if (ch < 0xF0) {
		    if (((p[1] & 0xC0) == 0x80) && ((p[2] & 0xC0) == 0x80)) {
			uch = ((ch & 0x0F) << 12)
			    | ((p[1] & 0x3F) << 6)
			    | (p[2] & 0x3F);
			if (uch <= 0x7FF) {
			    goto doXFmt;
			}
			p += 3;
			goto doUFmt;
		    }
		    goto doXFmt;
		} else if (ch < 0xF8) {
		    if (((p[1] & 0xC0) == 0x80) && ((p[2] & 0xC0) == 0x80) &&
			((p[3] & 0xC0) == 0x80)) {
			uch = ((ch & 0x07) << 18)
			    | ((p[1] & 0x3F) << 12)
			    | ((p[2] & 0x3F) << 6)
			    | (p[3] & 0x3F);
			if (uch > 0x10FFFF) {
			    goto doXFmt;
			}
			p += 4;
			goto doUFmt;
		    }
		    goto doXFmt;
doUFmt:
		    if (uch > 0xFFFF) {
			sprintf(buf, "\\u%04x",
				((uch - 0x10000) >> 10) | 0xD800);
			Tcl_DStringAppend(&ds, buf, 6);
			uch = ((uch - 0x10000) & 0x3FF) | 0xDC00;
		    }
		    sprintf(buf, "\\u%04x", uch);
		    Tcl_DStringAppend(&ds, buf, 6);
		    continue;
		}
		++p;
	    }
	    Tcl_DStringFree(&ds1);
	    Tcl_DStringAppend(&ds, "\"", 1);
	    sep = ",";
	}

		case AT_info:
		    flags = WEBVIEW_DIALOG_FLAG_INFO;
		    break;
		case AT_warning:
		    flags = WEBVIEW_DIALOG_FLAG_WARNING;
		    break;
		}
		Tcl_UtfToExternalDString(tw->enc, Tcl_GetString(objv[3]), -1,
					 &ds1);
		Tcl_UtfToExternalDString(tw->enc, Tcl_GetString(objv[5]), -1,
					 &ds);
	    } else {
		flags = WEBVIEW_DIALOG_FLAG_INFO;
		Tcl_UtfToExternalDString(tw->enc, Tcl_GetString(objv[3]), -1,
					 &ds1);
		Tcl_UtfToExternalDString(tw->enc, Tcl_GetString(objv[4]), -1,
					 &ds);
	    }
	    webview_dialog(&tw->w, WEBVIEW_DIALOG_TYPE_ALERT, flags,
			   Tcl_DStringValue(&ds1), Tcl_DStringValue(&ds),
			   NULL, 0);
	    Tcl_DStringFree(&ds1);
	    Tcl_DStringFree(&ds);
	    break;

	case DLG_choosedir:
	    if (objc != 4) {
		Tcl_WrongNumArgs(interp, 2, objv, "choosedir title");
		return TCL_ERROR;
	    }
	    Tcl_DStringInit(&ds);
	    Tcl_DStringSetLength(&ds, 4096);
	    Tcl_UtfToExternalDString(tw->enc, Tcl_GetString(objv[3]), -1, &ds1);
	    p = Tcl_DStringValue(&ds);
	    p[0] = '\0';
	    webview_dialog(&tw->w, WEBVIEW_DIALOG_TYPE_OPEN,
			   WEBVIEW_DIALOG_FLAG_DIRECTORY,
			   Tcl_DStringValue(&ds1), NULL, p, 4096);
	    Tcl_DStringFree(&ds1);
	    Tcl_ExternalToUtfDString(tw->enc, p, -1, &ds1);
	    Tcl_DStringFree(&ds);
	    p = Tcl_DStringValue(&ds1);
	    Tcl_SetResult(interp, p, TCL_VOLATILE);
	    Tcl_DStringFree(&ds1);
	    break;

	case DLG_open:
	    if (objc != 4) {
		Tcl_WrongNumArgs(interp, 2, objv, "open title");
		return TCL_ERROR;
	    }
	    Tcl_DStringInit(&ds);
	    Tcl_DStringSetLength(&ds, 4096);
	    Tcl_UtfToExternalDString(tw->enc, Tcl_GetString(objv[3]), -1, &ds1);
	    p = Tcl_DStringValue(&ds);
	    p[0] = '\0';
	    webview_dialog(&tw->w, WEBVIEW_DIALOG_TYPE_OPEN,
			   WEBVIEW_DIALOG_FLAG_FILE,
			   Tcl_DStringValue(&ds1), NULL, p, 4096);
	    Tcl_DStringFree(&ds1);
	    Tcl_ExternalToUtfDString(tw->enc, p, -1, &ds1);
	    Tcl_DStringFree(&ds);
	    p = Tcl_DStringValue(&ds1);
	    Tcl_SetResult(interp, p, TCL_VOLATILE);
	    Tcl_DStringFree(&ds1);
	    break;

	case DLG_save:
	    if (objc != 4) {
		Tcl_WrongNumArgs(interp, 2, objv, "save title");
		return TCL_ERROR;
	    }
	    Tcl_DStringInit(&ds);
	    Tcl_DStringSetLength(&ds, 4096);
	    Tcl_UtfToExternalDString(tw->enc, Tcl_GetString(objv[3]), -1, &ds1);
	    p = Tcl_DStringValue(&ds);
	    p[0] = '\0';
	    webview_dialog(&tw->w, WEBVIEW_DIALOG_TYPE_SAVE,
			   WEBVIEW_DIALOG_FLAG_FILE,
			   Tcl_DStringValue(&ds1), NULL, p, 4096);
	    Tcl_DStringFree(&ds1);
	    Tcl_ExternalToUtfDString(tw->enc, p, -1, &ds1);
	    Tcl_DStringFree(&ds);
	    p = Tcl_DStringValue(&ds1);
	    Tcl_SetResult(interp, p, TCL_VOLATILE);
	    Tcl_DStringFree(&ds1);
	    break;
	}
	break;
    }

    case CMD_dispatch: {
	char *script, *p;

    CoTaskMemFree(ws);
  error_result:
    res->lpVtbl->Release(res);
  error_dlg:
    dlg->lpVtbl->Release(dlg);
    return;
  } else if (dlgtype == WEBVIEW_DIALOG_TYPE_ALERT) {


    WCHAR *wtitle = webview_to_utf16(title);
    WCHAR *warg = webview_to_utf16(arg);
#if 0
    /* MinGW often doesn't contain TaskDialog, we'll use MessageBox for now */
    TaskDialog(w->priv.hwnd, NULL, NULL, wtitle, warg, 0, NULL, NULL);


#else
    UINT type = MB_OK;
    switch (flags & WEBVIEW_DIALOG_FLAG_ALERT_MASK) {
    case WEBVIEW_DIALOG_FLAG_INFO:
      type |= MB_ICONINFORMATION;
      break;
    case WEBVIEW_DIALOG_FLAG_WARNING:
      type |= MB_ICONWARNING;
      break;
    case WEBVIEW_DIALOG_FLAG_ERROR:
      type |= MB_ICONERROR;
      break;
    }
    MessageBoxW(w->priv.hwnd, warg, wtitle, type);
#endif
    GlobalFree(warg);
    GlobalFree(wtitle);
  }
}

WEBVIEW_API void webview_terminate(struct webview *w) { PostQuitMessage(0); }

WEBVIEW_API void webview_exit(struct webview *w) {
  DestroyWindow(w->priv.hwnd);

#define WEBVIEW_API extern
extern struct wk_dl wk_dl = { 0 };
#endif

WEBVIEW_API int webview_dl_init(void) {
  static pthread_mutex_t init_mutex = PTHREAD_MUTEX_INITIALIZER;
  static int initialized = 0;
  int i;
  static const char *libnames[2] = {
    "libwebkit2gtk-4.0.so.37",
    "libjavascriptcoregtk-4.0.so.18",
  };
  static void *libs[2] = { NULL, NULL };

  if (!initialized) {