From 87b795ca5ce313f8be8f64e3dd911f7f243f6078 Mon Sep 17 00:00:00 2001 From: Julian Noble Date: Sat, 29 Jul 2023 01:00:51 +1000 Subject: [PATCH] move tclkit86bi runtime to src/runtime --- src/{ => runtime}/tclkit86bi.exe | Bin 9677960 -> 9709080 bytes src/{ => runtime}/tclkit86bi.vfs/bin/tk86.dll | Bin src/{ => runtime}/tclkit86bi.vfs/boot.tcl | 0 .../lib/Ffidl0.9.0/Ffidl090.dll | Bin .../tclkit86bi.vfs/lib/Ffidl0.9.0/ffidlrt.tcl | 0 .../lib/Ffidl0.9.0/pkgIndex.tcl | 0 .../lib/Memchan2.3/Memchan23.dll | Bin .../lib/Memchan2.3/libMemchanstub23.a | Bin .../lib/Memchan2.3/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/Trf2.1.4/Trf214.dll | Bin .../lib/Trf2.1.4/libTrfstub214.a | Bin .../tclkit86bi.vfs/lib/Trf2.1.4/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/cffi1.2.0/pkgIndex.tcl | 0 .../lib/cffi1.2.0/win32-x86_64/tclcffi120.dll | Bin .../lib/critcl-app3.2/critcl.tcl | 0 .../lib/critcl-app3.2/pkgIndex.tcl | 0 .../lib/critcl-app3.2/runtime.tcl | 0 .../lib/critcl-app3.2/tea/Config.in | 0 .../lib/critcl-app3.2/tea/Makefile.in | 0 .../lib/critcl-app3.2/tea/aclocal.m4 | 0 .../lib/critcl-app3.2/tea/configure.in | 0 .../critcl-app3.2/tea/tclconfig/README.txt | 0 .../critcl-app3.2/tea/tclconfig/install-sh | 0 .../lib/critcl-app3.2/tea/tclconfig/tcl.m4 | 0 .../lib/critcl-bitmap1.1/bitmap.tcl | 0 .../lib/critcl-bitmap1.1/pkgIndex.tcl | 0 .../lib/critcl-class1.2/class.h | 0 .../lib/critcl-class1.2/class.tcl | 0 .../lib/critcl-class1.2/pkgIndex.tcl | 0 .../lib/critcl-cutil0.3/allocs/critcl_alloc.h | 0 .../critcl-cutil0.3/asserts/critcl_assert.h | 0 .../lib/critcl-cutil0.3/cutil.tcl | 0 .../lib/critcl-cutil0.3/pkgIndex.tcl | 0 .../lib/critcl-cutil0.3/trace/critcl_trace.h | 0 .../lib/critcl-cutil0.3/trace/trace.c | 0 .../lib/critcl-emap1.3/emap.tcl | 0 .../lib/critcl-emap1.3/pkgIndex.tcl | 0 .../lib/critcl-enum1.2/enum.tcl | 0 .../lib/critcl-enum1.2/pkgIndex.tcl | 0 .../lib/critcl-iassoc1.2/iassoc.tcl | 0 .../lib/critcl-iassoc1.2/pkgIndex.tcl | 0 .../lib/critcl-literals1.4/literals.tcl | 0 .../lib/critcl-literals1.4/pkgIndex.tcl | 0 .../lib/critcl-platform1.1/pkgIndex.tcl | 0 .../lib/critcl-platform1.1/platform.tcl | 0 .../lib/critcl-util1.2/pkgIndex.tcl | 0 .../lib/critcl-util1.2/util.tcl | 0 .../lib/critcl3.2 - Copy}/Config | 0 .../lib/critcl3.2 - Copy}/critcl.tcl | 0 .../lib/critcl3.2 - Copy}/critcl_c/cdata.c | 0 .../lib/critcl3.2 - Copy}/critcl_c/header.c | 0 .../lib/critcl3.2 - Copy}/critcl_c/pkginit.c | 0 .../critcl3.2 - Copy}/critcl_c/pkginitend.c | 0 .../critcl3.2 - Copy}/critcl_c/pkginittk.c | 0 .../lib/critcl3.2 - Copy}/critcl_c/preload.c | 0 .../critcl3.2 - Copy}/critcl_c/storageclass.c | 0 .../lib/critcl3.2 - Copy}/critcl_c/stubs.c | 0 .../lib/critcl3.2 - Copy}/critcl_c/stubs_e.c | 0 .../critcl3.2 - Copy}/critcl_c/tcl8.4/X11/X.h | 0 .../critcl_c/tcl8.4/X11/Xatom.h | 0 .../critcl_c/tcl8.4/X11/Xfuncproto.h | 0 .../critcl_c/tcl8.4/X11/Xlib.h | 0 .../critcl_c/tcl8.4/X11/Xutil.h | 0 .../critcl_c/tcl8.4/X11/cursorfont.h | 0 .../critcl_c/tcl8.4/X11/keysym.h | 0 .../critcl_c/tcl8.4/X11/keysymdef.h | 0 .../critcl_c/tcl8.4/X11/tkIntXlibDecls.h | 0 .../critcl3.2 - Copy}/critcl_c/tcl8.4/tcl.h | 0 .../critcl_c/tcl8.4/tclDecls.h | 0 .../critcl_c/tcl8.4/tclPlatDecls.h | 0 .../critcl3.2 - Copy}/critcl_c/tcl8.4/tk.h | 0 .../critcl_c/tcl8.4/tkDecls.h | 0 .../critcl_c/tcl8.4/tkPlatDecls.h | 0 .../critcl3.2 - Copy}/critcl_c/tcl8.5/X11/X.h | 0 .../critcl_c/tcl8.5/X11/Xatom.h | 0 .../critcl_c/tcl8.5/X11/Xfuncproto.h | 0 .../critcl_c/tcl8.5/X11/Xlib.h | 0 .../critcl_c/tcl8.5/X11/Xutil.h | 0 .../critcl_c/tcl8.5/X11/cursorfont.h | 0 .../critcl_c/tcl8.5/X11/keysym.h | 0 .../critcl_c/tcl8.5/X11/keysymdef.h | 0 .../critcl_c/tcl8.5/X11/tkIntXlibDecls.h | 0 .../critcl3.2 - Copy}/critcl_c/tcl8.5/tcl.h | 0 .../critcl_c/tcl8.5/tclDecls.h | 0 .../critcl_c/tcl8.5/tclPlatDecls.h | 0 .../critcl3.2 - Copy}/critcl_c/tcl8.5/tk.h | 0 .../critcl_c/tcl8.5/tkDecls.h | 0 .../critcl_c/tcl8.5/tkPlatDecls.h | 0 .../critcl3.2 - Copy}/critcl_c/tcl8.6/X11/X.h | 0 .../critcl_c/tcl8.6/X11/Xatom.h | 0 .../critcl_c/tcl8.6/X11/Xfuncproto.h | 0 .../critcl_c/tcl8.6/X11/Xlib.h | 0 .../critcl_c/tcl8.6/X11/Xutil.h | 0 .../critcl_c/tcl8.6/X11/cursorfont.h | 0 .../critcl_c/tcl8.6/X11/keysym.h | 0 .../critcl_c/tcl8.6/X11/keysymdef.h | 0 .../critcl_c/tcl8.6/X11/tkIntXlibDecls.h | 0 .../critcl3.2 - Copy}/critcl_c/tcl8.6/tcl.h | 0 .../critcl_c/tcl8.6/tclDecls.h | 0 .../critcl_c/tcl8.6/tclPlatDecls.h | 0 .../critcl3.2 - Copy}/critcl_c/tcl8.6/tk.h | 0 .../critcl_c/tcl8.6/tkDecls.h | 0 .../critcl_c/tcl8.6/tkPlatDecls.h | 0 .../critcl3.2 - Copy}/critcl_c/tclAppInit.c | 0 .../lib/critcl3.2 - Copy}/critcl_c/tkstubs.c | 0 .../critcl_c/tkstubs_noconst.c | 0 .../lib/critcl3.2 - Copy}/license.terms | 0 .../lib/critcl3.2 - Copy}/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/critcl3.2/Config | 537 ++ .../tclkit86bi.vfs/lib/critcl3.2/critcl.tcl | 6547 ++++++++++++++++ .../lib/critcl3.2/critcl_c/cdata.c | 5 + .../lib/critcl3.2/critcl_c/header.c | 6 + .../lib/critcl3.2/critcl_c/pkginit.c | 12 + .../lib/critcl3.2/critcl_c/pkginitend.c | 6 + .../lib/critcl3.2/critcl_c/pkginittk.c | 5 + .../lib/critcl3.2/critcl_c/preload.c | 169 + .../lib/critcl3.2/critcl_c/storageclass.c | 26 + .../lib/critcl3.2/critcl_c/stubs.c | 43 + .../lib/critcl3.2/critcl_c/stubs_e.c | 10 + .../lib/critcl3.2/critcl_c/tcl8.4/X11/X.h | 677 ++ .../lib/critcl3.2/critcl_c/tcl8.4/X11/Xatom.h | 79 + .../critcl_c/tcl8.4/X11/Xfuncproto.h | 60 + .../lib/critcl3.2/critcl_c/tcl8.4/X11/Xlib.h | 1205 +++ .../lib/critcl3.2/critcl_c/tcl8.4/X11/Xutil.h | 855 +++ .../critcl_c/tcl8.4/X11/cursorfont.h | 79 + .../critcl3.2/critcl_c/tcl8.4/X11/keysym.h | 35 + .../critcl3.2/critcl_c/tcl8.4/X11/keysymdef.h | 1169 +++ .../critcl_c/tcl8.4/X11/tkIntXlibDecls.h | 1806 +++++ .../lib/critcl3.2/critcl_c/tcl8.4/tcl.h | 2380 ++++++ .../lib/critcl3.2/critcl_c/tcl8.4/tclDecls.h | 4613 ++++++++++++ .../critcl3.2/critcl_c/tcl8.4/tclPlatDecls.h | 109 + .../lib/critcl3.2/critcl_c/tcl8.4/tk.h | 1600 ++++ .../lib/critcl3.2/critcl_c/tcl8.4/tkDecls.h | 2303 ++++++ .../critcl3.2/critcl_c/tcl8.4/tkPlatDecls.h | 205 + .../lib/critcl3.2/critcl_c/tcl8.5/X11/X.h | 677 ++ .../lib/critcl3.2/critcl_c/tcl8.5/X11/Xatom.h | 79 + .../critcl_c/tcl8.5/X11/Xfuncproto.h | 60 + .../lib/critcl3.2/critcl_c/tcl8.5/X11/Xlib.h | 1205 +++ .../lib/critcl3.2/critcl_c/tcl8.5/X11/Xutil.h | 855 +++ .../critcl_c/tcl8.5/X11/cursorfont.h | 79 + .../critcl3.2/critcl_c/tcl8.5/X11/keysym.h | 35 + .../critcl3.2/critcl_c/tcl8.5/X11/keysymdef.h | 1169 +++ .../critcl_c/tcl8.5/X11/tkIntXlibDecls.h | 2370 ++++++ .../lib/critcl3.2/critcl_c/tcl8.5/tcl.h | 2455 ++++++ .../lib/critcl3.2/critcl_c/tcl8.5/tclDecls.h | 6563 +++++++++++++++++ .../critcl3.2/critcl_c/tcl8.5/tclPlatDecls.h | 134 + .../lib/critcl3.2/critcl_c/tcl8.5/tk.h | 1610 ++++ .../lib/critcl3.2/critcl_c/tcl8.5/tkDecls.h | 3095 ++++++++ .../critcl3.2/critcl_c/tcl8.5/tkPlatDecls.h | 253 + .../lib/critcl3.2/critcl_c/tcl8.6/X11/X.h | 677 ++ .../lib/critcl3.2/critcl_c/tcl8.6/X11/Xatom.h | 79 + .../critcl_c/tcl8.6/X11/Xfuncproto.h | 60 + .../lib/critcl3.2/critcl_c/tcl8.6/X11/Xlib.h | 1205 +++ .../lib/critcl3.2/critcl_c/tcl8.6/X11/Xutil.h | 855 +++ .../critcl_c/tcl8.6/X11/cursorfont.h | 79 + .../critcl3.2/critcl_c/tcl8.6/X11/keysym.h | 35 + .../critcl3.2/critcl_c/tcl8.6/X11/keysymdef.h | 1169 +++ .../critcl_c/tcl8.6/X11/tkIntXlibDecls.h | 1279 ++++ .../lib/critcl3.2/critcl_c/tcl8.6/tcl.h | 2652 +++++++ .../lib/critcl3.2/critcl_c/tcl8.6/tclDecls.h | 3917 ++++++++++ .../critcl3.2/critcl_c/tcl8.6/tclPlatDecls.h | 122 + .../lib/critcl3.2/critcl_c/tcl8.6/tk.h | 1619 ++++ .../lib/critcl3.2/critcl_c/tcl8.6/tkDecls.h | 1733 +++++ .../critcl3.2/critcl_c/tcl8.6/tkPlatDecls.h | 176 + .../lib/critcl3.2/critcl_c/tclAppInit.c | 179 + .../lib/critcl3.2/critcl_c/tkstubs.c | 24 + .../lib/critcl3.2/critcl_c/tkstubs_noconst.c | 27 + .../lib/critcl3.2/license.terms | 40 + .../tclkit86bi.vfs/lib/critcl3.2/pkgIndex.tcl | 2 + .../lib/critcl_callback1.1/critcl-rt.tcl | 0 .../lib/critcl_callback1.1/license.terms | 0 .../lib/critcl_callback1.1/pkgIndex.tcl | 0 .../lib/critcl_callback1.1/teapot.txt | 0 .../win32-x86_64/callback.dll | Bin .../lib/critcl_md5c0.12/critcl-rt.tcl | 0 .../lib/critcl_md5c0.12/license.terms | 0 .../lib/critcl_md5c0.12/pkgIndex.tcl | 0 .../lib/critcl_md5c0.12/teapot.txt | 0 .../lib/critcl_md5c0.12/win32-x86_64/md5c.dll | Bin .../tclkit86bi.vfs/lib/dde1.4/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/dde1.4/tcldde14.dll | Bin .../lib/iocp1.1.0/amd64/iocp110.dll | Bin .../tclkit86bi.vfs/lib/iocp1.1.0/bt.tcl | 0 .../tclkit86bi.vfs/lib/iocp1.1.0/btnames.tcl | 0 .../tclkit86bi.vfs/lib/iocp1.1.0/btsdr.tcl | 0 .../tclkit86bi.vfs/lib/iocp1.1.0/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/reg1.3/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/reg1.3/tclreg13.dll | Bin .../lib/sqlite3.40.0/pkgIndex.tcl | 0 .../lib/sqlite3.40.0/sqlite3400.dll | Bin .../lib/stubs_container1.1/container.tcl | 385 + .../lib/stubs_container1.1/pkgIndex.tcl | 3 + .../lib/stubs_gen_decl1.1/gen_decl.tcl | 118 + .../lib/stubs_gen_decl1.1/pkgIndex.tcl | 3 + .../lib/stubs_gen_header1.1/gen_header.tcl | 110 + .../lib/stubs_gen_header1.1/pkgIndex.tcl | 3 + .../lib/stubs_gen_init1.1/gen_init.tcl | 188 + .../lib/stubs_gen_init1.1/pkgIndex.tcl | 3 + .../lib/stubs_gen_lib1.1/gen_lib.tcl | 214 + .../lib/stubs_gen_lib1.1/pkgIndex.tcl | 3 + .../lib/stubs_gen_macro1.1/gen_macro.tcl | 73 + .../lib/stubs_gen_macro1.1/pkgIndex.tcl | 3 + .../lib/stubs_gen_slot1.1/gen_slot.tcl | 95 + .../lib/stubs_gen_slot1.1/pkgIndex.tcl | 3 + .../lib/stubs_genframe1.1/genframe.tcl | 418 ++ .../lib/stubs_genframe1.1/pkgIndex.tcl | 3 + .../lib/stubs_reader1.1/pkgIndex.tcl | 3 + .../lib/stubs_reader1.1/reader.tcl | 245 + .../lib/stubs_writer1.1/pkgIndex.tcl | 3 + .../lib/stubs_writer1.1/writer.tcl | 120 + .../tclkit86bi.vfs/lib/tcl8.6/auto.tcl | 0 .../tclkit86bi.vfs/lib/tcl8.6/clock.tcl | 0 .../lib/tcl8.6/encoding/ascii.enc | 0 .../lib/tcl8.6/encoding/big5.enc | 0 .../lib/tcl8.6/encoding/cns11643.enc | 0 .../lib/tcl8.6/encoding/cp1250.enc | 0 .../lib/tcl8.6/encoding/cp1251.enc | 0 .../lib/tcl8.6/encoding/cp1252.enc | 0 .../lib/tcl8.6/encoding/cp1253.enc | 0 .../lib/tcl8.6/encoding/cp1254.enc | 0 .../lib/tcl8.6/encoding/cp1255.enc | 0 .../lib/tcl8.6/encoding/cp1256.enc | 0 .../lib/tcl8.6/encoding/cp1257.enc | 0 .../lib/tcl8.6/encoding/cp1258.enc | 0 .../lib/tcl8.6/encoding/cp437.enc | 0 .../lib/tcl8.6/encoding/cp737.enc | 0 .../lib/tcl8.6/encoding/cp775.enc | 0 .../lib/tcl8.6/encoding/cp850.enc | 0 .../lib/tcl8.6/encoding/cp852.enc | 0 .../lib/tcl8.6/encoding/cp855.enc | 0 .../lib/tcl8.6/encoding/cp857.enc | 0 .../lib/tcl8.6/encoding/cp860.enc | 0 .../lib/tcl8.6/encoding/cp861.enc | 0 .../lib/tcl8.6/encoding/cp862.enc | 0 .../lib/tcl8.6/encoding/cp863.enc | 0 .../lib/tcl8.6/encoding/cp864.enc | 0 .../lib/tcl8.6/encoding/cp865.enc | 0 .../lib/tcl8.6/encoding/cp866.enc | 0 .../lib/tcl8.6/encoding/cp869.enc | 0 .../lib/tcl8.6/encoding/cp874.enc | 0 .../lib/tcl8.6/encoding/cp932.enc | 0 .../lib/tcl8.6/encoding/cp936.enc | 0 .../lib/tcl8.6/encoding/cp949.enc | 0 .../lib/tcl8.6/encoding/cp950.enc | 0 .../lib/tcl8.6/encoding/dingbats.enc | 0 .../lib/tcl8.6/encoding/ebcdic.enc | 0 .../lib/tcl8.6/encoding/euc-cn.enc | 0 .../lib/tcl8.6/encoding/euc-jp.enc | 0 .../lib/tcl8.6/encoding/euc-kr.enc | 0 .../lib/tcl8.6/encoding/gb12345.enc | 0 .../lib/tcl8.6/encoding/gb1988.enc | 0 .../lib/tcl8.6/encoding/gb2312-raw.enc | 0 .../lib/tcl8.6/encoding/gb2312.enc | 0 .../lib/tcl8.6/encoding/iso2022-jp.enc | 0 .../lib/tcl8.6/encoding/iso2022-kr.enc | 0 .../lib/tcl8.6/encoding/iso2022.enc | 0 .../lib/tcl8.6/encoding/iso8859-1.enc | 0 .../lib/tcl8.6/encoding/iso8859-10.enc | 0 .../lib/tcl8.6/encoding/iso8859-11.enc | 0 .../lib/tcl8.6/encoding/iso8859-13.enc | 0 .../lib/tcl8.6/encoding/iso8859-14.enc | 0 .../lib/tcl8.6/encoding/iso8859-15.enc | 0 .../lib/tcl8.6/encoding/iso8859-16.enc | 0 .../lib/tcl8.6/encoding/iso8859-2.enc | 0 .../lib/tcl8.6/encoding/iso8859-3.enc | 0 .../lib/tcl8.6/encoding/iso8859-4.enc | 0 .../lib/tcl8.6/encoding/iso8859-5.enc | 0 .../lib/tcl8.6/encoding/iso8859-6.enc | 0 .../lib/tcl8.6/encoding/iso8859-7.enc | 0 .../lib/tcl8.6/encoding/iso8859-8.enc | 0 .../lib/tcl8.6/encoding/iso8859-9.enc | 0 .../lib/tcl8.6/encoding/jis0201.enc | 0 .../lib/tcl8.6/encoding/jis0208.enc | 0 .../lib/tcl8.6/encoding/jis0212.enc | 0 .../lib/tcl8.6/encoding/koi8-r.enc | 0 .../lib/tcl8.6/encoding/koi8-u.enc | 0 .../lib/tcl8.6/encoding/ksc5601.enc | 0 .../lib/tcl8.6/encoding/macCentEuro.enc | 0 .../lib/tcl8.6/encoding/macCroatian.enc | 0 .../lib/tcl8.6/encoding/macCyrillic.enc | 0 .../lib/tcl8.6/encoding/macDingbats.enc | 0 .../lib/tcl8.6/encoding/macGreek.enc | 0 .../lib/tcl8.6/encoding/macIceland.enc | 0 .../lib/tcl8.6/encoding/macJapan.enc | 0 .../lib/tcl8.6/encoding/macRoman.enc | 0 .../lib/tcl8.6/encoding/macRomania.enc | 0 .../lib/tcl8.6/encoding/macThai.enc | 0 .../lib/tcl8.6/encoding/macTurkish.enc | 0 .../lib/tcl8.6/encoding/macUkraine.enc | 0 .../lib/tcl8.6/encoding/shiftjis.enc | 0 .../lib/tcl8.6/encoding/symbol.enc | 0 .../lib/tcl8.6/encoding/tis-620.enc | 0 .../tclkit86bi.vfs/lib/tcl8.6/history.tcl | 0 .../lib/tcl8.6/http1.0/http.tcl | 0 .../lib/tcl8.6/http1.0/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcl8.6/init.tcl | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/af.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/af_za.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ar.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ar_in.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ar_jo.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ar_lb.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ar_sy.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/be.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/bg.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/bn.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/bn_in.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ca.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/cs.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/da.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/de.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/de_at.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/de_be.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/el.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/en_au.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/en_be.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/en_bw.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/en_ca.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/en_gb.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/en_hk.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/en_ie.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/en_in.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/en_nz.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/en_ph.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/en_sg.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/en_za.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/en_zw.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/eo.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_ar.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_bo.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_cl.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_co.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_cr.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_do.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_ec.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_gt.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_hn.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_mx.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_ni.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_pa.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_pe.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_pr.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_py.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_sv.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_uy.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/es_ve.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/et.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/eu.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/eu_es.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/fa.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/fa_in.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/fa_ir.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/fi.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/fo.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/fo_fo.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/fr.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/fr_be.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/fr_ca.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/fr_ch.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ga.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ga_ie.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/gl.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/gl_es.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/gv.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/gv_gb.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/he.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/hi.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/hi_in.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/hr.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/hu.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/id.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/id_id.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/is.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/it.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/it_ch.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ja.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/kl.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/kl_gl.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ko.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ko_kr.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/kok.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/kok_in.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/kw.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/kw_gb.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/lt.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/lv.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/mk.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/mr.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/mr_in.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ms.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ms_my.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/mt.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/nb.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/nl.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/nl_be.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/nn.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/pl.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/pt.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/pt_br.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ro.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ru.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ru_ua.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/sh.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/sk.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/sl.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/sq.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/sr.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/sv.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/sw.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ta.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/ta_in.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/te.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/te_in.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/th.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/tr.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/uk.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/vi.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/zh.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/zh_cn.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/zh_hk.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/zh_sg.msg | 0 .../tclkit86bi.vfs/lib/tcl8.6/msgs/zh_tw.msg | 0 .../lib/tcl8.6/opt0.4/optparse.tcl | 0 .../lib/tcl8.6/opt0.4/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcl8.6/package.tcl | 0 .../tclkit86bi.vfs/lib/tcl8.6/parray.tcl | 0 .../tclkit86bi.vfs/lib/tcl8.6/safe.tcl | 0 .../tclkit86bi.vfs/lib/tcl8.6/tclIndex | 0 .../tclkit86bi.vfs/lib/tcl8.6/tm.tcl | 0 .../lib/tcl8.6/tzdata/Africa/Abidjan | 0 .../lib/tcl8.6/tzdata/Africa/Algiers | 0 .../lib/tcl8.6/tzdata/Africa/Bamako | 0 .../lib/tcl8.6/tzdata/Africa/Bangui | 0 .../lib/tcl8.6/tzdata/Africa/Banjul | 0 .../lib/tcl8.6/tzdata/Africa/Bissau | 0 .../lib/tcl8.6/tzdata/Africa/Blantyre | 0 .../lib/tcl8.6/tzdata/Africa/Brazzaville | 0 .../lib/tcl8.6/tzdata/Africa/Cairo | 0 .../lib/tcl8.6/tzdata/Africa/Conakry | 0 .../lib/tcl8.6/tzdata/Africa/Dakar | 0 .../lib/tcl8.6/tzdata/Africa/Dar_es_Salaam | 0 .../lib/tcl8.6/tzdata/Africa/Djibouti | 0 .../lib/tcl8.6/tzdata/Africa/El_Aaiun | 0 .../lib/tcl8.6/tzdata/Africa/Freetown | 0 .../lib/tcl8.6/tzdata/Africa/Gaborone | 0 .../lib/tcl8.6/tzdata/Africa/Harare | 0 .../lib/tcl8.6/tzdata/Africa/Johannesburg | 0 .../lib/tcl8.6/tzdata/Africa/Khartoum | 0 .../lib/tcl8.6/tzdata/Africa/Kigali | 0 .../lib/tcl8.6/tzdata/Africa/Lagos | 0 .../lib/tcl8.6/tzdata/Africa/Libreville | 0 .../lib/tcl8.6/tzdata/Africa/Lome | 0 .../lib/tcl8.6/tzdata/Africa/Lubumbashi | 0 .../lib/tcl8.6/tzdata/Africa/Malabo | 0 .../lib/tcl8.6/tzdata/Africa/Maputo | 0 .../lib/tcl8.6/tzdata/Africa/Maseru | 0 .../lib/tcl8.6/tzdata/Africa/Mbabane | 0 .../lib/tcl8.6/tzdata/Africa/Mogadishu | 0 .../lib/tcl8.6/tzdata/Africa/Nairobi | 0 .../lib/tcl8.6/tzdata/Africa/Niamey | 0 .../lib/tcl8.6/tzdata/Africa/Nouakchott | 0 .../lib/tcl8.6/tzdata/Africa/Ouagadougou | 0 .../lib/tcl8.6/tzdata/Africa/Porto-Novo | 0 .../lib/tcl8.6/tzdata/Africa/Sao_Tome | 0 .../lib/tcl8.6/tzdata/Africa/Timbuktu | 0 .../lib/tcl8.6/tzdata/Africa/Tripoli | 0 .../lib/tcl8.6/tzdata/Africa/Tunis | 0 .../lib/tcl8.6/tzdata/Africa/Windhoek | 0 .../lib/tcl8.6/tzdata/America/Adak | 0 .../lib/tcl8.6/tzdata/America/Anchorage | 0 .../tzdata/America/Argentina/Buenos_Aires | 0 .../lib/tcl8.6/tzdata/America/Argentina/Jujuy | 0 .../tzdata/America/Argentina/Rio_Gallegos | 0 .../tcl8.6/tzdata/America/Argentina/San_Juan | 0 .../tcl8.6/tzdata/America/Argentina/San_Luis | 0 .../tcl8.6/tzdata/America/Argentina/Tucuman | 0 .../lib/tcl8.6/tzdata/America/Asuncion | 0 .../lib/tcl8.6/tzdata/America/Atikokan | 0 .../lib/tcl8.6/tzdata/America/Bahia_Banderas | 0 .../lib/tcl8.6/tzdata/America/Barbados | 0 .../lib/tcl8.6/tzdata/America/Belem | 0 .../lib/tcl8.6/tzdata/America/Belize | 0 .../lib/tcl8.6/tzdata/America/Blanc-Sablon | 0 .../lib/tcl8.6/tzdata/America/Boise | 0 .../lib/tcl8.6/tzdata/America/Buenos_Aires | 0 .../lib/tcl8.6/tzdata/America/Cambridge_Bay | 0 .../lib/tcl8.6/tzdata/America/Campo_Grande | 0 .../lib/tcl8.6/tzdata/America/Cancun | 0 .../lib/tcl8.6/tzdata/America/Caracas | 0 .../lib/tcl8.6/tzdata/America/Cayenne | 0 .../lib/tcl8.6/tzdata/America/Cayman | 0 .../lib/tcl8.6/tzdata/America/Chicago | 0 .../lib/tcl8.6/tzdata/America/Coral_Harbour | 0 .../lib/tcl8.6/tzdata/America/Creston | 0 .../lib/tcl8.6/tzdata/America/Curacao | 0 .../lib/tcl8.6/tzdata/America/Danmarkshavn | 0 .../lib/tcl8.6/tzdata/America/Dawson | 0 .../lib/tcl8.6/tzdata/America/Dawson_Creek | 0 .../lib/tcl8.6/tzdata/America/Denver | 0 .../lib/tcl8.6/tzdata/America/Detroit | 0 .../lib/tcl8.6/tzdata/America/Edmonton | 0 .../lib/tcl8.6/tzdata/America/Eirunepe | 0 .../lib/tcl8.6/tzdata/America/El_Salvador | 0 .../lib/tcl8.6/tzdata/America/Fort_Nelson | 0 .../lib/tcl8.6/tzdata/America/Fort_Wayne | 0 .../lib/tcl8.6/tzdata/America/Glace_Bay | 0 .../lib/tcl8.6/tzdata/America/Godthab | 0 .../lib/tcl8.6/tzdata/America/Goose_Bay | 0 .../lib/tcl8.6/tzdata/America/Grand_Turk | 0 .../lib/tcl8.6/tzdata/America/Guadeloupe | 0 .../lib/tcl8.6/tzdata/America/Guayaquil | 0 .../lib/tcl8.6/tzdata/America/Halifax | 0 .../lib/tcl8.6/tzdata/America/Hermosillo | 0 .../tzdata/America/Indiana/Indianapolis | 0 .../lib/tcl8.6/tzdata/America/Indiana/Knox | 0 .../lib/tcl8.6/tzdata/America/Indiana/Marengo | 0 .../tcl8.6/tzdata/America/Indiana/Petersburg | 0 .../tcl8.6/tzdata/America/Indiana/Tell_City | 0 .../lib/tcl8.6/tzdata/America/Indiana/Vevay | 0 .../tcl8.6/tzdata/America/Indiana/Vincennes | 0 .../lib/tcl8.6/tzdata/America/Indiana/Winamac | 0 .../lib/tcl8.6/tzdata/America/Indianapolis | 0 .../lib/tcl8.6/tzdata/America/Inuvik | 0 .../lib/tcl8.6/tzdata/America/Iqaluit | 0 .../lib/tcl8.6/tzdata/America/Jujuy | 0 .../lib/tcl8.6/tzdata/America/Juneau | 0 .../tcl8.6/tzdata/America/Kentucky/Louisville | 0 .../tcl8.6/tzdata/America/Kentucky/Monticello | 0 .../lib/tcl8.6/tzdata/America/Knox_IN | 0 .../lib/tcl8.6/tzdata/America/Kralendijk | 0 .../lib/tcl8.6/tzdata/America/La_Paz | 0 .../lib/tcl8.6/tzdata/America/Los_Angeles | 0 .../lib/tcl8.6/tzdata/America/Louisville | 0 .../lib/tcl8.6/tzdata/America/Lower_Princes | 0 .../lib/tcl8.6/tzdata/America/Maceio | 0 .../lib/tcl8.6/tzdata/America/Manaus | 0 .../lib/tcl8.6/tzdata/America/Marigot | 0 .../lib/tcl8.6/tzdata/America/Martinique | 0 .../lib/tcl8.6/tzdata/America/Matamoros | 0 .../lib/tcl8.6/tzdata/America/Mazatlan | 0 .../lib/tcl8.6/tzdata/America/Menominee | 0 .../lib/tcl8.6/tzdata/America/Mexico_City | 0 .../lib/tcl8.6/tzdata/America/Miquelon | 0 .../lib/tcl8.6/tzdata/America/Moncton | 0 .../lib/tcl8.6/tzdata/America/Monterrey | 0 .../lib/tcl8.6/tzdata/America/Montevideo | 0 .../lib/tcl8.6/tzdata/America/Montreal | 0 .../lib/tcl8.6/tzdata/America/Montserrat | 0 .../lib/tcl8.6/tzdata/America/Nassau | 0 .../lib/tcl8.6/tzdata/America/New_York | 0 .../lib/tcl8.6/tzdata/America/Nipigon | 0 .../lib/tcl8.6/tzdata/America/Nome | 0 .../tcl8.6/tzdata/America/North_Dakota/Beulah | 0 .../tcl8.6/tzdata/America/North_Dakota/Center | 0 .../tzdata/America/North_Dakota/New_Salem | 0 .../lib/tcl8.6/tzdata/America/Nuuk | 0 .../lib/tcl8.6/tzdata/America/Pangnirtung | 0 .../lib/tcl8.6/tzdata/America/Paramaribo | 0 .../lib/tcl8.6/tzdata/America/Phoenix | 0 .../lib/tcl8.6/tzdata/America/Port-au-Prince | 0 .../lib/tcl8.6/tzdata/America/Port_of_Spain | 0 .../lib/tcl8.6/tzdata/America/Porto_Acre | 0 .../lib/tcl8.6/tzdata/America/Porto_Velho | 0 .../lib/tcl8.6/tzdata/America/Puerto_Rico | 0 .../lib/tcl8.6/tzdata/America/Punta_Arenas | 0 .../lib/tcl8.6/tzdata/America/Rainy_River | 0 .../lib/tcl8.6/tzdata/America/Rankin_Inlet | 0 .../lib/tcl8.6/tzdata/America/Recife | 0 .../lib/tcl8.6/tzdata/America/Resolute | 0 .../lib/tcl8.6/tzdata/America/Rio_Branco | 0 .../lib/tcl8.6/tzdata/America/Rosario | 0 .../lib/tcl8.6/tzdata/America/Santa_Isabel | 0 .../lib/tcl8.6/tzdata/America/Santarem | 0 .../lib/tcl8.6/tzdata/America/Santiago | 0 .../lib/tcl8.6/tzdata/America/Santo_Domingo | 0 .../lib/tcl8.6/tzdata/America/Sao_Paulo | 0 .../lib/tcl8.6/tzdata/America/Scoresbysund | 0 .../lib/tcl8.6/tzdata/America/Shiprock | 0 .../lib/tcl8.6/tzdata/America/St_Barthelemy | 0 .../lib/tcl8.6/tzdata/America/St_Johns | 0 .../lib/tcl8.6/tzdata/America/St_Kitts | 0 .../lib/tcl8.6/tzdata/America/St_Thomas | 0 .../lib/tcl8.6/tzdata/America/St_Vincent | 0 .../lib/tcl8.6/tzdata/America/Swift_Current | 0 .../lib/tcl8.6/tzdata/America/Thule | 0 .../lib/tcl8.6/tzdata/America/Thunder_Bay | 0 .../lib/tcl8.6/tzdata/America/Toronto | 0 .../lib/tcl8.6/tzdata/America/Vancouver | 0 .../lib/tcl8.6/tzdata/America/Virgin | 0 .../lib/tcl8.6/tzdata/America/Whitehorse | 0 .../lib/tcl8.6/tzdata/America/Winnipeg | 0 .../lib/tcl8.6/tzdata/America/Yakutat | 0 .../lib/tcl8.6/tzdata/America/Yellowknife | 0 .../lib/tcl8.6/tzdata/Antarctica/Casey | 0 .../lib/tcl8.6/tzdata/Antarctica/Davis | 0 .../tcl8.6/tzdata/Antarctica/DumontDUrville | 0 .../lib/tcl8.6/tzdata/Antarctica/Macquarie | 0 .../lib/tcl8.6/tzdata/Antarctica/Mawson | 0 .../lib/tcl8.6/tzdata/Antarctica/McMurdo | 0 .../lib/tcl8.6/tzdata/Antarctica/Palmer | 0 .../lib/tcl8.6/tzdata/Antarctica/South_Pole | 0 .../lib/tcl8.6/tzdata/Antarctica/Troll | 0 .../lib/tcl8.6/tzdata/Antarctica/Vostok | 0 .../lib/tcl8.6/tzdata/Arctic/Longyearbyen | 0 .../lib/tcl8.6/tzdata/Asia/Aden | 0 .../lib/tcl8.6/tzdata/Asia/Almaty | 0 .../lib/tcl8.6/tzdata/Asia/Amman | 0 .../lib/tcl8.6/tzdata/Asia/Anadyr | 0 .../lib/tcl8.6/tzdata/Asia/Aqtau | 0 .../lib/tcl8.6/tzdata/Asia/Aqtobe | 0 .../lib/tcl8.6/tzdata/Asia/Ashgabat | 0 .../lib/tcl8.6/tzdata/Asia/Ashkhabad | 0 .../lib/tcl8.6/tzdata/Asia/Atyrau | 0 .../lib/tcl8.6/tzdata/Asia/Baghdad | 0 .../lib/tcl8.6/tzdata/Asia/Bahrain | 0 .../lib/tcl8.6/tzdata/Asia/Baku | 0 .../lib/tcl8.6/tzdata/Asia/Bangkok | 0 .../lib/tcl8.6/tzdata/Asia/Barnaul | 0 .../lib/tcl8.6/tzdata/Asia/Beirut | 0 .../lib/tcl8.6/tzdata/Asia/Bishkek | 0 .../lib/tcl8.6/tzdata/Asia/Brunei | 0 .../lib/tcl8.6/tzdata/Asia/Choibalsan | 0 .../lib/tcl8.6/tzdata/Asia/Chongqing | 0 .../lib/tcl8.6/tzdata/Asia/Chungking | 0 .../lib/tcl8.6/tzdata/Asia/Colombo | 0 .../lib/tcl8.6/tzdata/Asia/Damascus | 0 .../lib/tcl8.6/tzdata/Asia/Dili | 0 .../lib/tcl8.6/tzdata/Asia/Dubai | 0 .../lib/tcl8.6/tzdata/Asia/Dushanbe | 0 .../lib/tcl8.6/tzdata/Asia/Harbin | 0 .../lib/tcl8.6/tzdata/Asia/Hebron | 0 .../lib/tcl8.6/tzdata/Asia/Ho_Chi_Minh | 0 .../lib/tcl8.6/tzdata/Asia/Hong_Kong | 0 .../lib/tcl8.6/tzdata/Asia/Hovd | 0 .../lib/tcl8.6/tzdata/Asia/Irkutsk | 0 .../lib/tcl8.6/tzdata/Asia/Istanbul | 0 .../lib/tcl8.6/tzdata/Asia/Jerusalem | 0 .../lib/tcl8.6/tzdata/Asia/Kabul | 0 .../lib/tcl8.6/tzdata/Asia/Karachi | 0 .../lib/tcl8.6/tzdata/Asia/Kashgar | 0 .../lib/tcl8.6/tzdata/Asia/Kathmandu | 0 .../lib/tcl8.6/tzdata/Asia/Katmandu | 0 .../lib/tcl8.6/tzdata/Asia/Krasnoyarsk | 0 .../lib/tcl8.6/tzdata/Asia/Kuala_Lumpur | 0 .../lib/tcl8.6/tzdata/Asia/Kuching | 0 .../lib/tcl8.6/tzdata/Asia/Kuwait | 0 .../lib/tcl8.6/tzdata/Asia/Macao | 0 .../lib/tcl8.6/tzdata/Asia/Macau | 0 .../lib/tcl8.6/tzdata/Asia/Magadan | 0 .../lib/tcl8.6/tzdata/Asia/Makassar | 0 .../lib/tcl8.6/tzdata/Asia/Muscat | 0 .../lib/tcl8.6/tzdata/Asia/Novokuznetsk | 0 .../lib/tcl8.6/tzdata/Asia/Novosibirsk | 0 .../lib/tcl8.6/tzdata/Asia/Omsk | 0 .../lib/tcl8.6/tzdata/Asia/Oral | 0 .../lib/tcl8.6/tzdata/Asia/Phnom_Penh | 0 .../lib/tcl8.6/tzdata/Asia/Pontianak | 0 .../lib/tcl8.6/tzdata/Asia/Pyongyang | 0 .../lib/tcl8.6/tzdata/Asia/Qatar | 0 .../lib/tcl8.6/tzdata/Asia/Qostanay | 0 .../lib/tcl8.6/tzdata/Asia/Rangoon | 0 .../lib/tcl8.6/tzdata/Asia/Riyadh | 0 .../lib/tcl8.6/tzdata/Asia/Saigon | 0 .../lib/tcl8.6/tzdata/Asia/Sakhalin | 0 .../lib/tcl8.6/tzdata/Asia/Samarkand | 0 .../lib/tcl8.6/tzdata/Asia/Seoul | 0 .../lib/tcl8.6/tzdata/Asia/Shanghai | 0 .../lib/tcl8.6/tzdata/Asia/Singapore | 0 .../lib/tcl8.6/tzdata/Asia/Srednekolymsk | 0 .../lib/tcl8.6/tzdata/Asia/Taipei | 0 .../lib/tcl8.6/tzdata/Asia/Tashkent | 0 .../lib/tcl8.6/tzdata/Asia/Tbilisi | 0 .../lib/tcl8.6/tzdata/Asia/Tehran | 0 .../lib/tcl8.6/tzdata/Asia/Tel_Aviv | 0 .../lib/tcl8.6/tzdata/Asia/Thimbu | 0 .../lib/tcl8.6/tzdata/Asia/Thimphu | 0 .../lib/tcl8.6/tzdata/Asia/Tokyo | 0 .../lib/tcl8.6/tzdata/Asia/Tomsk | 0 .../lib/tcl8.6/tzdata/Asia/Ujung_Pandang | 0 .../lib/tcl8.6/tzdata/Asia/Ulaanbaatar | 0 .../lib/tcl8.6/tzdata/Asia/Ulan_Bator | 0 .../lib/tcl8.6/tzdata/Asia/Urumqi | 0 .../lib/tcl8.6/tzdata/Asia/Vientiane | 0 .../lib/tcl8.6/tzdata/Asia/Vladivostok | 0 .../lib/tcl8.6/tzdata/Asia/Yakutsk | 0 .../lib/tcl8.6/tzdata/Asia/Yangon | 0 .../lib/tcl8.6/tzdata/Asia/Yekaterinburg | 0 .../lib/tcl8.6/tzdata/Asia/Yerevan | 0 .../lib/tcl8.6/tzdata/Atlantic/Azores | 0 .../lib/tcl8.6/tzdata/Atlantic/Canary | 0 .../lib/tcl8.6/tzdata/Atlantic/Cape_Verde | 0 .../lib/tcl8.6/tzdata/Atlantic/Faeroe | 0 .../lib/tcl8.6/tzdata/Atlantic/Faroe | 0 .../lib/tcl8.6/tzdata/Atlantic/Jan_Mayen | 0 .../lib/tcl8.6/tzdata/Atlantic/Reykjavik | 0 .../lib/tcl8.6/tzdata/Atlantic/Stanley | 0 .../lib/tcl8.6/tzdata/Australia/ACT | 0 .../lib/tcl8.6/tzdata/Australia/Adelaide | 0 .../lib/tcl8.6/tzdata/Australia/Brisbane | 0 .../lib/tcl8.6/tzdata/Australia/Broken_Hill | 0 .../lib/tcl8.6/tzdata/Australia/Currie | 0 .../lib/tcl8.6/tzdata/Australia/Darwin | 0 .../lib/tcl8.6/tzdata/Australia/Hobart | 0 .../lib/tcl8.6/tzdata/Australia/LHI | 0 .../lib/tcl8.6/tzdata/Australia/Lindeman | 0 .../lib/tcl8.6/tzdata/Australia/Lord_Howe | 0 .../lib/tcl8.6/tzdata/Australia/Melbourne | 0 .../lib/tcl8.6/tzdata/Australia/NSW | 0 .../lib/tcl8.6/tzdata/Australia/North | 0 .../lib/tcl8.6/tzdata/Australia/Perth | 0 .../lib/tcl8.6/tzdata/Australia/Queensland | 0 .../lib/tcl8.6/tzdata/Australia/South | 0 .../lib/tcl8.6/tzdata/Australia/Sydney | 0 .../lib/tcl8.6/tzdata/Australia/West | 0 .../lib/tcl8.6/tzdata/Brazil/Acre | 0 .../lib/tcl8.6/tzdata/Brazil/East | 0 .../lib/tcl8.6/tzdata/Brazil/West | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/CET | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/CST6CDT | 0 .../lib/tcl8.6/tzdata/Canada/Atlantic | 0 .../lib/tcl8.6/tzdata/Canada/Central | 0 .../lib/tcl8.6/tzdata/Canada/Eastern | 0 .../lib/tcl8.6/tzdata/Canada/Mountain | 0 .../lib/tcl8.6/tzdata/Canada/Newfoundland | 0 .../lib/tcl8.6/tzdata/Canada/Pacific | 0 .../lib/tcl8.6/tzdata/Canada/Saskatchewan | 0 .../lib/tcl8.6/tzdata/Canada/Yukon | 0 .../lib/tcl8.6/tzdata/Chile/Continental | 0 .../lib/tcl8.6/tzdata/Chile/EasterIsland | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/EET | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/EST | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/EST5EDT | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Egypt | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Eire | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT | 0 .../lib/tcl8.6/tzdata/Etc/GMT+0 | 0 .../lib/tcl8.6/tzdata/Etc/GMT+1 | 0 .../lib/tcl8.6/tzdata/Etc/GMT+10 | 0 .../lib/tcl8.6/tzdata/Etc/GMT+11 | 0 .../lib/tcl8.6/tzdata/Etc/GMT+12 | 0 .../lib/tcl8.6/tzdata/Etc/GMT+2 | 0 .../lib/tcl8.6/tzdata/Etc/GMT+3 | 0 .../lib/tcl8.6/tzdata/Etc/GMT+4 | 0 .../lib/tcl8.6/tzdata/Etc/GMT+5 | 0 .../lib/tcl8.6/tzdata/Etc/GMT+6 | 0 .../lib/tcl8.6/tzdata/Etc/GMT+7 | 0 .../lib/tcl8.6/tzdata/Etc/GMT+8 | 0 .../lib/tcl8.6/tzdata/Etc/GMT+9 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-0 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-1 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-10 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-11 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-12 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-13 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-14 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-2 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-3 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-4 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-5 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-6 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-7 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-8 | 0 .../lib/tcl8.6/tzdata/Etc/GMT-9 | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT0 | 0 .../lib/tcl8.6/tzdata/Etc/Greenwich | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/UCT | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/UTC | 0 .../lib/tcl8.6/tzdata/Etc/Universal | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Zulu | 0 .../lib/tcl8.6/tzdata/Europe/Amsterdam | 0 .../lib/tcl8.6/tzdata/Europe/Astrakhan | 0 .../lib/tcl8.6/tzdata/Europe/Athens | 0 .../lib/tcl8.6/tzdata/Europe/Belfast | 0 .../lib/tcl8.6/tzdata/Europe/Belgrade | 0 .../lib/tcl8.6/tzdata/Europe/Berlin | 0 .../lib/tcl8.6/tzdata/Europe/Brussels | 0 .../lib/tcl8.6/tzdata/Europe/Bucharest | 0 .../lib/tcl8.6/tzdata/Europe/Budapest | 0 .../lib/tcl8.6/tzdata/Europe/Busingen | 0 .../lib/tcl8.6/tzdata/Europe/Chisinau | 0 .../lib/tcl8.6/tzdata/Europe/Copenhagen | 0 .../lib/tcl8.6/tzdata/Europe/Dublin | 0 .../lib/tcl8.6/tzdata/Europe/Gibraltar | 0 .../lib/tcl8.6/tzdata/Europe/Guernsey | 0 .../lib/tcl8.6/tzdata/Europe/Helsinki | 0 .../lib/tcl8.6/tzdata/Europe/Isle_of_Man | 0 .../lib/tcl8.6/tzdata/Europe/Istanbul | 0 .../lib/tcl8.6/tzdata/Europe/Jersey | 0 .../lib/tcl8.6/tzdata/Europe/Kaliningrad | 0 .../lib/tcl8.6/tzdata/Europe/Kiev | 0 .../lib/tcl8.6/tzdata/Europe/Kirov | 0 .../lib/tcl8.6/tzdata/Europe/Kyiv | 0 .../lib/tcl8.6/tzdata/Europe/Lisbon | 0 .../lib/tcl8.6/tzdata/Europe/London | 0 .../lib/tcl8.6/tzdata/Europe/Luxembourg | 0 .../lib/tcl8.6/tzdata/Europe/Madrid | 0 .../lib/tcl8.6/tzdata/Europe/Mariehamn | 0 .../lib/tcl8.6/tzdata/Europe/Minsk | 0 .../lib/tcl8.6/tzdata/Europe/Monaco | 0 .../lib/tcl8.6/tzdata/Europe/Moscow | 0 .../lib/tcl8.6/tzdata/Europe/Oslo | 0 .../lib/tcl8.6/tzdata/Europe/Paris | 0 .../lib/tcl8.6/tzdata/Europe/Prague | 0 .../lib/tcl8.6/tzdata/Europe/Rome | 0 .../lib/tcl8.6/tzdata/Europe/San_Marino | 0 .../lib/tcl8.6/tzdata/Europe/Sarajevo | 0 .../lib/tcl8.6/tzdata/Europe/Saratov | 0 .../lib/tcl8.6/tzdata/Europe/Simferopol | 0 .../lib/tcl8.6/tzdata/Europe/Skopje | 0 .../lib/tcl8.6/tzdata/Europe/Stockholm | 0 .../lib/tcl8.6/tzdata/Europe/Tallinn | 0 .../lib/tcl8.6/tzdata/Europe/Tirane | 0 .../lib/tcl8.6/tzdata/Europe/Tiraspol | 0 .../lib/tcl8.6/tzdata/Europe/Ulyanovsk | 0 .../lib/tcl8.6/tzdata/Europe/Uzhgorod | 0 .../lib/tcl8.6/tzdata/Europe/Vaduz | 0 .../lib/tcl8.6/tzdata/Europe/Vatican | 0 .../lib/tcl8.6/tzdata/Europe/Vilnius | 0 .../lib/tcl8.6/tzdata/Europe/Volgograd | 0 .../lib/tcl8.6/tzdata/Europe/Warsaw | 0 .../lib/tcl8.6/tzdata/Europe/Zagreb | 0 .../lib/tcl8.6/tzdata/Europe/Zaporozhye | 0 .../lib/tcl8.6/tzdata/Europe/Zurich | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/GB | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/GB-Eire | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT+0 | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT-0 | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT0 | 0 .../lib/tcl8.6/tzdata/Greenwich | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/HST | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Hongkong | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Iceland | 0 .../lib/tcl8.6/tzdata/Indian/Antananarivo | 0 .../lib/tcl8.6/tzdata/Indian/Chagos | 0 .../lib/tcl8.6/tzdata/Indian/Christmas | 0 .../lib/tcl8.6/tzdata/Indian/Cocos | 0 .../lib/tcl8.6/tzdata/Indian/Comoro | 0 .../lib/tcl8.6/tzdata/Indian/Kerguelen | 0 .../lib/tcl8.6/tzdata/Indian/Mahe | 0 .../lib/tcl8.6/tzdata/Indian/Maldives | 0 .../lib/tcl8.6/tzdata/Indian/Mauritius | 0 .../lib/tcl8.6/tzdata/Indian/Mayotte | 0 .../lib/tcl8.6/tzdata/Indian/Reunion | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Iran | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Israel | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Japan | 0 .../lib/tcl8.6/tzdata/Kwajalein | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/MET | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/MST | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/MST7MDT | 0 .../lib/tcl8.6/tzdata/Mexico/BajaNorte | 0 .../lib/tcl8.6/tzdata/Mexico/BajaSur | 0 .../lib/tcl8.6/tzdata/Mexico/General | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/NZ | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/NZ-CHAT | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Navajo | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/PRC | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/PST8PDT | 0 .../lib/tcl8.6/tzdata/Pacific/Auckland | 0 .../lib/tcl8.6/tzdata/Pacific/Bougainville | 0 .../lib/tcl8.6/tzdata/Pacific/Chatham | 0 .../lib/tcl8.6/tzdata/Pacific/Chuuk | 0 .../lib/tcl8.6/tzdata/Pacific/Easter | 0 .../lib/tcl8.6/tzdata/Pacific/Efate | 0 .../lib/tcl8.6/tzdata/Pacific/Enderbury | 0 .../lib/tcl8.6/tzdata/Pacific/Fakaofo | 0 .../lib/tcl8.6/tzdata/Pacific/Fiji | 0 .../lib/tcl8.6/tzdata/Pacific/Funafuti | 0 .../lib/tcl8.6/tzdata/Pacific/Galapagos | 0 .../lib/tcl8.6/tzdata/Pacific/Gambier | 0 .../lib/tcl8.6/tzdata/Pacific/Guadalcanal | 0 .../lib/tcl8.6/tzdata/Pacific/Guam | 0 .../lib/tcl8.6/tzdata/Pacific/Honolulu | 0 .../lib/tcl8.6/tzdata/Pacific/Johnston | 0 .../lib/tcl8.6/tzdata/Pacific/Kanton | 0 .../lib/tcl8.6/tzdata/Pacific/Kiritimati | 0 .../lib/tcl8.6/tzdata/Pacific/Kosrae | 0 .../lib/tcl8.6/tzdata/Pacific/Kwajalein | 0 .../lib/tcl8.6/tzdata/Pacific/Majuro | 0 .../lib/tcl8.6/tzdata/Pacific/Marquesas | 0 .../lib/tcl8.6/tzdata/Pacific/Midway | 0 .../lib/tcl8.6/tzdata/Pacific/Nauru | 0 .../lib/tcl8.6/tzdata/Pacific/Niue | 0 .../lib/tcl8.6/tzdata/Pacific/Norfolk | 0 .../lib/tcl8.6/tzdata/Pacific/Pago_Pago | 0 .../lib/tcl8.6/tzdata/Pacific/Palau | 0 .../lib/tcl8.6/tzdata/Pacific/Pitcairn | 0 .../lib/tcl8.6/tzdata/Pacific/Pohnpei | 0 .../lib/tcl8.6/tzdata/Pacific/Ponape | 0 .../lib/tcl8.6/tzdata/Pacific/Port_Moresby | 0 .../lib/tcl8.6/tzdata/Pacific/Saipan | 0 .../lib/tcl8.6/tzdata/Pacific/Tahiti | 0 .../lib/tcl8.6/tzdata/Pacific/Tongatapu | 0 .../lib/tcl8.6/tzdata/Pacific/Truk | 0 .../lib/tcl8.6/tzdata/Pacific/Wake | 0 .../lib/tcl8.6/tzdata/Pacific/Wallis | 0 .../lib/tcl8.6/tzdata/Pacific/Yap | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Poland | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Portugal | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/ROC | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/ROK | 0 .../lib/tcl8.6/tzdata/Singapore | 0 .../lib/tcl8.6/tzdata/SystemV/AST4 | 0 .../lib/tcl8.6/tzdata/SystemV/AST4ADT | 0 .../lib/tcl8.6/tzdata/SystemV/CST6 | 0 .../lib/tcl8.6/tzdata/SystemV/CST6CDT | 0 .../lib/tcl8.6/tzdata/SystemV/EST5 | 0 .../lib/tcl8.6/tzdata/SystemV/EST5EDT | 0 .../lib/tcl8.6/tzdata/SystemV/HST10 | 0 .../lib/tcl8.6/tzdata/SystemV/MST7 | 0 .../lib/tcl8.6/tzdata/SystemV/MST7MDT | 0 .../lib/tcl8.6/tzdata/SystemV/PST8 | 0 .../lib/tcl8.6/tzdata/SystemV/PST8PDT | 0 .../lib/tcl8.6/tzdata/SystemV/YST9 | 0 .../lib/tcl8.6/tzdata/SystemV/YST9YDT | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Turkey | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/UCT | 0 .../lib/tcl8.6/tzdata/US/Aleutian | 0 .../lib/tcl8.6/tzdata/US/Central | 0 .../lib/tcl8.6/tzdata/US/Eastern | 0 .../lib/tcl8.6/tzdata/US/Hawaii | 0 .../lib/tcl8.6/tzdata/US/Indiana-Starke | 0 .../lib/tcl8.6/tzdata/US/Michigan | 0 .../lib/tcl8.6/tzdata/US/Mountain | 0 .../lib/tcl8.6/tzdata/US/Pacific | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/UTC | 0 .../lib/tcl8.6/tzdata/Universal | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/W-SU | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/WET | 0 .../tclkit86bi.vfs/lib/tcl8.6/tzdata/Zulu | 0 .../tclkit86bi.vfs/lib/tcl8.6/word.tcl | 0 .../lib/tcl8/8.4/platform-1.0.19.tm | 0 .../lib/tcl8/8.4/platform/shell-1.1.4.tm | 0 .../lib/tcl8/8.5/msgcat-1.6.1.tm | 0 .../lib/tcl8/8.5/tcltest-2.5.5.tm | 0 .../tclkit86bi.vfs/lib/tcl8/8.6/http-2.9.8.tm | 0 .../tcllib1.21/0compatibility/d_config.tcl | 0 .../lib/tcllib1.21/0compatibility/d_paths.tcl | 0 .../tcllib1.21/0compatibility/p_config.tcl | 0 .../lib/tcllib1.21/0compatibility/p_paths.tcl | 0 .../tcllib1.21/0compatibility/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/aes/aes.tcl | 0 .../lib/tcllib1.21/aes/pkgIndex.tcl | 0 .../lib/tcllib1.21/amazon-s3/S3.tcl | 0 .../lib/tcllib1.21/amazon-s3/pkgIndex.tcl | 0 .../lib/tcllib1.21/amazon-s3/xsxp.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/asn/asn.tcl | 0 .../lib/tcllib1.21/asn/pkgIndex.tcl | 0 .../lib/tcllib1.21/base32/base32.tcl | 0 .../lib/tcllib1.21/base32/base32_c.tcl | 0 .../lib/tcllib1.21/base32/base32_tcl.tcl | 0 .../lib/tcllib1.21/base32/base32core.tcl | 0 .../lib/tcllib1.21/base32/base32hex.tcl | 0 .../lib/tcllib1.21/base32/base32hex_c.tcl | 0 .../lib/tcllib1.21/base32/base32hex_tcl.tcl | 0 .../lib/tcllib1.21/base32/pkgIndex.tcl | 0 .../lib/tcllib1.21/base64/ascii85.tcl | 0 .../lib/tcllib1.21/base64/base64.tcl | 0 .../lib/tcllib1.21/base64/base64c.tcl | 0 .../lib/tcllib1.21/base64/pkgIndex.tcl | 0 .../lib/tcllib1.21/base64/uuencode.tcl | 0 .../lib/tcllib1.21/base64/yencode.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/bee/bee.tcl | 0 .../lib/tcllib1.21/bee/pkgIndex.tcl | 0 .../lib/tcllib1.21/bench/bench.tcl | 0 .../lib/tcllib1.21/bench/bench_read.tcl | 0 .../lib/tcllib1.21/bench/bench_wcsv.tcl | 0 .../lib/tcllib1.21/bench/bench_wtext.tcl | 0 .../lib/tcllib1.21/bench/libbench.tcl | 0 .../lib/tcllib1.21/bench/pkgIndex.tcl | 0 .../lib/tcllib1.21/bibtex/bibtex.tcl | 0 .../lib/tcllib1.21/bibtex/pkgIndex.tcl | 0 .../lib/tcllib1.21/blowfish/blowfish.tcl | 0 .../lib/tcllib1.21/blowfish/pkgIndex.tcl | 0 .../lib/tcllib1.21/cache/async.tcl | 0 .../lib/tcllib1.21/cache/pkgIndex.tcl | 0 .../lib/tcllib1.21/clay/clay.tcl | 0 .../lib/tcllib1.21/clay/pkgIndex.tcl | 0 .../lib/tcllib1.21/clock/iso8601.tcl | 0 .../lib/tcllib1.21/clock/pkgIndex.tcl | 0 .../lib/tcllib1.21/clock/rfc2822.tcl | 0 .../lib/tcllib1.21/cmdline/cmdline.tcl | 0 .../lib/tcllib1.21/cmdline/pkgIndex.tcl | 0 .../lib/tcllib1.21/comm/comm.tcl | 0 .../lib/tcllib1.21/comm/pkgIndex.tcl | 0 .../lib/tcllib1.21/control/ascaller.tcl | 0 .../lib/tcllib1.21/control/assert.tcl | 0 .../lib/tcllib1.21/control/control.tcl | 0 .../lib/tcllib1.21/control/do.tcl | 0 .../lib/tcllib1.21/control/no-op.tcl | 0 .../lib/tcllib1.21/control/pkgIndex.tcl | 0 .../lib/tcllib1.21/control/tclIndex | 0 .../lib/tcllib1.21/coroutine/coro_auto.tcl | 0 .../lib/tcllib1.21/coroutine/coroutine.tcl | 0 .../lib/tcllib1.21/coroutine/pkgIndex.tcl | 0 .../lib/tcllib1.21/counter/counter.tcl | 0 .../lib/tcllib1.21/counter/pkgIndex.tcl | 0 .../lib/tcllib1.21/crc/cksum.tcl | 0 .../lib/tcllib1.21/crc/crc16.tcl | 0 .../lib/tcllib1.21/crc/crc32.tcl | 0 .../lib/tcllib1.21/crc/crcc.tcl | 0 .../lib/tcllib1.21/crc/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/crc/sum.tcl | 0 .../lib/tcllib1.21/cron/cron.tcl | 0 .../lib/tcllib1.21/cron/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/csv/csv.tcl | 0 .../lib/tcllib1.21/csv/pkgIndex.tcl | 0 .../lib/tcllib1.21/debug/caller.tcl | 0 .../lib/tcllib1.21/debug/debug.tcl | 0 .../lib/tcllib1.21/debug/heartbeat.tcl | 0 .../lib/tcllib1.21/debug/pkgIndex.tcl | 0 .../lib/tcllib1.21/debug/timestamp.tcl | 0 .../lib/tcllib1.21/defer/defer.tcl | 0 .../lib/tcllib1.21/defer/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/des/des.tcl | 0 .../lib/tcllib1.21/des/pkgIndex.tcl | 0 .../lib/tcllib1.21/des/tcldes.tcl | 0 .../lib/tcllib1.21/des/tcldesjr.tcl | 0 .../lib/tcllib1.21/dicttool/dicttool.tcl | 0 .../lib/tcllib1.21/dicttool/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/dns/dns.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/dns/ip.tcl | 0 .../lib/tcllib1.21/dns/ipMore.tcl | 0 .../lib/tcllib1.21/dns/ipMoreC.tcl | 0 .../lib/tcllib1.21/dns/msgs/en.msg | 0 .../lib/tcllib1.21/dns/pkgIndex.tcl | 0 .../lib/tcllib1.21/dns/resolv.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/dns/spf.tcl | 0 .../lib/tcllib1.21/docstrip/docstrip.tcl | 0 .../lib/tcllib1.21/docstrip/docstrip_util.tcl | 0 .../lib/tcllib1.21/docstrip/pkgIndex.tcl | 0 .../lib/tcllib1.21/doctools/api.tcl | 0 .../lib/tcllib1.21/doctools/api_idx.tcl | 0 .../lib/tcllib1.21/doctools/api_toc.tcl | 0 .../lib/tcllib1.21/doctools/changelog.tcl | 0 .../lib/tcllib1.21/doctools/checker.tcl | 0 .../lib/tcllib1.21/doctools/checker_idx.tcl | 0 .../lib/tcllib1.21/doctools/checker_toc.tcl | 0 .../lib/tcllib1.21/doctools/cvs.tcl | 0 .../lib/tcllib1.21/doctools/docidx.tcl | 0 .../lib/tcllib1.21/doctools/doctoc.tcl | 0 .../lib/tcllib1.21/doctools/doctools.tcl | 0 .../tcllib1.21/doctools/mpformats/_common.tcl | 0 .../tcllib1.21/doctools/mpformats/_html.tcl | 0 .../doctools/mpformats/_idx_common.tcl | 0 .../doctools/mpformats/_markdown.tcl | 0 .../tcllib1.21/doctools/mpformats/_nroff.tcl | 0 .../tcllib1.21/doctools/mpformats/_text.tcl | 0 .../doctools/mpformats/_text_bullets.tcl | 0 .../doctools/mpformats/_text_ccore.tcl | 0 .../doctools/mpformats/_text_cstack.tcl | 0 .../doctools/mpformats/_text_dlist.tcl | 0 .../doctools/mpformats/_text_margin.tcl | 0 .../doctools/mpformats/_text_para.tcl | 0 .../doctools/mpformats/_text_state.tcl | 0 .../doctools/mpformats/_text_utils.tcl | 0 .../doctools/mpformats/_toc_common.tcl | 0 .../tcllib1.21/doctools/mpformats/_xml.tcl | 0 .../tcllib1.21/doctools/mpformats/_xref.tcl | 0 .../lib/tcllib1.21/doctools/mpformats/c.msg | 0 .../lib/tcllib1.21/doctools/mpformats/de.msg | 0 .../lib/tcllib1.21/doctools/mpformats/en.msg | 0 .../tcllib1.21/doctools/mpformats/fmt.desc | 0 .../tcllib1.21/doctools/mpformats/fmt.html | 0 .../tcllib1.21/doctools/mpformats/fmt.latex | 0 .../tcllib1.21/doctools/mpformats/fmt.list | 0 .../doctools/mpformats/fmt.markdown | 0 .../tcllib1.21/doctools/mpformats/fmt.nroff | 0 .../tcllib1.21/doctools/mpformats/fmt.null | 0 .../tcllib1.21/doctools/mpformats/fmt.text | 0 .../tcllib1.21/doctools/mpformats/fmt.tmml | 0 .../tcllib1.21/doctools/mpformats/fmt.wiki | 0 .../lib/tcllib1.21/doctools/mpformats/fr.msg | 0 .../tcllib1.21/doctools/mpformats/idx.html | 0 .../doctools/mpformats/idx.markdown | 0 .../tcllib1.21/doctools/mpformats/idx.nroff | 0 .../tcllib1.21/doctools/mpformats/idx.null | 0 .../tcllib1.21/doctools/mpformats/idx.text | 0 .../tcllib1.21/doctools/mpformats/idx.wiki | 0 .../tcllib1.21/doctools/mpformats/man.macros | 0 .../tcllib1.21/doctools/mpformats/toc.html | 0 .../doctools/mpformats/toc.markdown | 0 .../tcllib1.21/doctools/mpformats/toc.nroff | 0 .../tcllib1.21/doctools/mpformats/toc.null | 0 .../tcllib1.21/doctools/mpformats/toc.text | 0 .../tcllib1.21/doctools/mpformats/toc.tmml | 0 .../tcllib1.21/doctools/mpformats/toc.wiki | 0 .../lib/tcllib1.21/doctools/pkgIndex.tcl | 0 .../lib/tcllib1.21/doctools2base/html.tcl | 0 .../doctools2base/html_cssdefaults.tcl | 0 .../lib/tcllib1.21/doctools2base/msgcat.tcl | 0 .../doctools2base/nroff_manmacros.tcl | 0 .../lib/tcllib1.21/doctools2base/pkgIndex.tcl | 0 .../tcllib1.21/doctools2base/tcl_parse.tcl | 0 .../lib/tcllib1.21/doctools2base/text.tcl | 0 .../lib/tcllib1.21/doctools2idx/container.tcl | 0 .../lib/tcllib1.21/doctools2idx/export.tcl | 0 .../tcllib1.21/doctools2idx/export_docidx.tcl | 0 .../tcllib1.21/doctools2idx/export_html.tcl | 0 .../tcllib1.21/doctools2idx/export_json.tcl | 0 .../tcllib1.21/doctools2idx/export_nroff.tcl | 0 .../tcllib1.21/doctools2idx/export_text.tcl | 0 .../tcllib1.21/doctools2idx/export_wiki.tcl | 0 .../lib/tcllib1.21/doctools2idx/import.tcl | 0 .../tcllib1.21/doctools2idx/import_docidx.tcl | 0 .../tcllib1.21/doctools2idx/import_json.tcl | 0 .../lib/tcllib1.21/doctools2idx/msgcat_c.tcl | 0 .../lib/tcllib1.21/doctools2idx/msgcat_de.tcl | 0 .../lib/tcllib1.21/doctools2idx/msgcat_en.tcl | 0 .../lib/tcllib1.21/doctools2idx/msgcat_fr.tcl | 0 .../lib/tcllib1.21/doctools2idx/parse.tcl | 0 .../lib/tcllib1.21/doctools2idx/pkgIndex.tcl | 0 .../lib/tcllib1.21/doctools2idx/structure.tcl | 0 .../lib/tcllib1.21/doctools2toc/container.tcl | 0 .../lib/tcllib1.21/doctools2toc/export.tcl | 0 .../tcllib1.21/doctools2toc/export_doctoc.tcl | 0 .../tcllib1.21/doctools2toc/export_html.tcl | 0 .../tcllib1.21/doctools2toc/export_json.tcl | 0 .../tcllib1.21/doctools2toc/export_nroff.tcl | 0 .../tcllib1.21/doctools2toc/export_text.tcl | 0 .../tcllib1.21/doctools2toc/export_wiki.tcl | 0 .../lib/tcllib1.21/doctools2toc/import.tcl | 0 .../tcllib1.21/doctools2toc/import_doctoc.tcl | 0 .../tcllib1.21/doctools2toc/import_json.tcl | 0 .../lib/tcllib1.21/doctools2toc/msgcat_c.tcl | 0 .../lib/tcllib1.21/doctools2toc/msgcat_de.tcl | 0 .../lib/tcllib1.21/doctools2toc/msgcat_en.tcl | 0 .../lib/tcllib1.21/doctools2toc/msgcat_fr.tcl | 0 .../lib/tcllib1.21/doctools2toc/parse.tcl | 0 .../lib/tcllib1.21/doctools2toc/pkgIndex.tcl | 0 .../lib/tcllib1.21/doctools2toc/structure.tcl | 0 .../lib/tcllib1.21/dtplite/dtplite.tcl | 0 .../lib/tcllib1.21/dtplite/pkgIndex.tcl | 0 .../lib/tcllib1.21/fileutil/decode.tcl | 0 .../lib/tcllib1.21/fileutil/fileutil.tcl | 0 .../lib/tcllib1.21/fileutil/multi.tcl | 0 .../lib/tcllib1.21/fileutil/multiop.tcl | 0 .../lib/tcllib1.21/fileutil/paths.tcl | 0 .../lib/tcllib1.21/fileutil/pkgIndex.tcl | 0 .../lib/tcllib1.21/fileutil/traverse.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/ftp/ftp.tcl | 0 .../lib/tcllib1.21/ftp/ftp_geturl.tcl | 0 .../lib/tcllib1.21/ftp/pkgIndex.tcl | 0 .../lib/tcllib1.21/ftpd/ftpd.tcl | 0 .../lib/tcllib1.21/ftpd/pkgIndex.tcl | 0 .../lib/tcllib1.21/fumagic/cfront.tcl | 0 .../lib/tcllib1.21/fumagic/cgen.tcl | 0 .../lib/tcllib1.21/fumagic/filetypes.tcl | 0 .../lib/tcllib1.21/fumagic/pkgIndex.tcl | 0 .../lib/tcllib1.21/fumagic/rtcore.tcl | 0 .../lib/tcllib1.21/generator/generator.tcl | 0 .../lib/tcllib1.21/generator/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/gpx/gpx.tcl | 0 .../lib/tcllib1.21/gpx/pkgIndex.tcl | 0 .../grammar_aycock/aycock-build.tcl | 0 .../grammar_aycock/aycock-debug.tcl | 0 .../grammar_aycock/aycock-runtime.tcl | 0 .../tcllib1.21/grammar_aycock/pkgIndex.tcl | 0 .../lib/tcllib1.21/grammar_fa/dacceptor.tcl | 0 .../lib/tcllib1.21/grammar_fa/dexec.tcl | 0 .../lib/tcllib1.21/grammar_fa/fa.tcl | 0 .../lib/tcllib1.21/grammar_fa/faop.tcl | 0 .../lib/tcllib1.21/grammar_fa/pkgIndex.tcl | 0 .../lib/tcllib1.21/grammar_me/gasm.tcl | 0 .../lib/tcllib1.21/grammar_me/me_cpu.tcl | 0 .../lib/tcllib1.21/grammar_me/me_cpucore.tcl | 0 .../lib/tcllib1.21/grammar_me/me_tcl.tcl | 0 .../lib/tcllib1.21/grammar_me/me_util.tcl | 0 .../lib/tcllib1.21/grammar_me/pkgIndex.tcl | 0 .../lib/tcllib1.21/grammar_peg/peg.tcl | 0 .../lib/tcllib1.21/grammar_peg/peg_interp.tcl | 0 .../lib/tcllib1.21/grammar_peg/pkgIndex.tcl | 0 .../lib/tcllib1.21/hook/hook.tcl | 0 .../lib/tcllib1.21/hook/pkgIndex.tcl | 0 .../lib/tcllib1.21/html/html.tcl | 0 .../lib/tcllib1.21/html/pkgIndex.tcl | 0 .../lib/tcllib1.21/htmlparse/htmlparse.tcl | 0 .../lib/tcllib1.21/htmlparse/pkgIndex.tcl | 0 .../lib/tcllib1.21/http/autoproxy.tcl | 0 .../lib/tcllib1.21/http/pkgIndex.tcl | 0 .../lib/tcllib1.21/httpd/httpd.tcl | 0 .../lib/tcllib1.21/httpd/pkgIndex.tcl | 0 .../lib/tcllib1.21/httpwget/pkgIndex.tcl | 0 .../lib/tcllib1.21/httpwget/wget.tcl | 0 .../lib/tcllib1.21/ident/ident.tcl | 0 .../lib/tcllib1.21/ident/pkgIndex.tcl | 0 .../lib/tcllib1.21/imap4/imap4.tcl | 0 .../lib/tcllib1.21/imap4/pkgIndex.tcl | 0 .../lib/tcllib1.21/inifile/ini.tcl | 0 .../lib/tcllib1.21/inifile/pkgIndex.tcl | 0 .../lib/tcllib1.21/interp/deleg_method.tcl | 0 .../lib/tcllib1.21/interp/deleg_proc.tcl | 0 .../lib/tcllib1.21/interp/interp.tcl | 0 .../lib/tcllib1.21/interp/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/irc/irc.tcl | 0 .../lib/tcllib1.21/irc/picoirc.tcl | 0 .../lib/tcllib1.21/irc/pkgIndex.tcl | 0 .../lib/tcllib1.21/javascript/javascript.tcl | 0 .../lib/tcllib1.21/javascript/pkgIndex.tcl | 0 .../lib/tcllib1.21/jpeg/jpeg.tcl | 0 .../lib/tcllib1.21/jpeg/pkgIndex.tcl | 0 .../lib/tcllib1.21/json/json.tcl | 0 .../lib/tcllib1.21/json/json_tcl.tcl | 0 .../lib/tcllib1.21/json/json_write.tcl | 0 .../lib/tcllib1.21/json/jsonc.tcl | 0 .../lib/tcllib1.21/json/pkgIndex.tcl | 0 .../lib/tcllib1.21/lambda/lambda.tcl | 0 .../lib/tcllib1.21/lambda/pkgIndex.tcl | 0 .../lib/tcllib1.21/lazyset/lazyset.tcl | 0 .../lib/tcllib1.21/lazyset/pkgIndex.tcl | 0 .../lib/tcllib1.21/ldap/ldap.tcl | 0 .../lib/tcllib1.21/ldap/ldapx.tcl | 0 .../lib/tcllib1.21/ldap/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/log/log.tcl | 0 .../lib/tcllib1.21/log/logger.tcl | 0 .../lib/tcllib1.21/log/loggerAppender.tcl | 0 .../lib/tcllib1.21/log/loggerUtils.tcl | 0 .../lib/tcllib1.21/log/msgs/en.msg | 0 .../lib/tcllib1.21/log/pkgIndex.tcl | 0 .../tcllib1.21/map/map_geocode_nominatim.tcl | 0 .../lib/tcllib1.21/map/map_slippy.tcl | 0 .../lib/tcllib1.21/map/map_slippy_cache.tcl | 0 .../lib/tcllib1.21/map/map_slippy_fetcher.tcl | 0 .../lib/tcllib1.21/map/pkgIndex.tcl | 0 .../lib/tcllib1.21/mapproj/mapproj.tcl | 0 .../lib/tcllib1.21/mapproj/pkgIndex.tcl | 0 .../lib/tcllib1.21/markdown/markdown.tcl | 0 .../lib/tcllib1.21/markdown/pkgIndex.tcl | 0 .../lib/tcllib1.21/math/bessel.tcl | 0 .../lib/tcllib1.21/math/bigfloat.tcl | 0 .../lib/tcllib1.21/math/bigfloat2.tcl | 0 .../lib/tcllib1.21/math/bignum.tcl | 0 .../lib/tcllib1.21/math/calculus.tcl | 0 .../lib/tcllib1.21/math/changepoint.tcl | 0 .../lib/tcllib1.21/math/classic_polyns.tcl | 0 .../lib/tcllib1.21/math/combinatorics.tcl | 0 .../lib/tcllib1.21/math/combinatoricsExt.tcl | 0 .../lib/tcllib1.21/math/constants.tcl | 0 .../lib/tcllib1.21/math/decimal.tcl | 0 .../lib/tcllib1.21/math/elliptic.tcl | 0 .../lib/tcllib1.21/math/exact.tcl | 0 .../lib/tcllib1.21/math/exponential.tcl | 0 .../lib/tcllib1.21/math/figurate.tcl | 0 .../lib/tcllib1.21/math/filtergen.tcl | 0 .../lib/tcllib1.21/math/fourier.tcl | 0 .../lib/tcllib1.21/math/fuzzy.tcl | 0 .../lib/tcllib1.21/math/geometry.tcl | 0 .../lib/tcllib1.21/math/geometry_circle.tcl | 0 .../lib/tcllib1.21/math/geometry_ext.tcl | 0 .../lib/tcllib1.21/math/interpolate.tcl | 0 .../lib/tcllib1.21/math/kruskal.tcl | 0 .../lib/tcllib1.21/math/linalg.tcl | 0 .../lib/tcllib1.21/math/liststat.tcl | 0 .../lib/tcllib1.21/math/machineparameters.tcl | 0 .../lib/tcllib1.21/math/math.tcl | 0 .../lib/tcllib1.21/math/misc.tcl | 0 .../lib/tcllib1.21/math/mvlinreg.tcl | 0 .../lib/tcllib1.21/math/numtheory.tcl | 0 .../lib/tcllib1.21/math/optimize.tcl | 0 .../lib/tcllib1.21/math/pca.tcl | 0 .../lib/tcllib1.21/math/pdf_stat.tcl | 0 .../lib/tcllib1.21/math/pkgIndex.tcl | 0 .../lib/tcllib1.21/math/plotstat.tcl | 0 .../lib/tcllib1.21/math/polynomials.tcl | 0 .../lib/tcllib1.21/math/primes.tcl | 0 .../lib/tcllib1.21/math/probopt.tcl | 0 .../lib/tcllib1.21/math/probopt_diffev.tcl | 0 .../lib/tcllib1.21/math/probopt_lipo.tcl | 0 .../lib/tcllib1.21/math/probopt_pso.tcl | 0 .../lib/tcllib1.21/math/probopt_sce.tcl | 0 .../lib/tcllib1.21/math/qcomplex.tcl | 0 .../lib/tcllib1.21/math/quasirandom.tcl | 0 .../lib/tcllib1.21/math/rational_funcs.tcl | 0 .../lib/tcllib1.21/math/romannumerals.tcl | 0 .../lib/tcllib1.21/math/special.tcl | 0 .../lib/tcllib1.21/math/stat_kernel.tcl | 0 .../lib/tcllib1.21/math/stat_logit.tcl | 0 .../lib/tcllib1.21/math/stat_wasserstein.tcl | 0 .../lib/tcllib1.21/math/statistics.tcl | 0 .../lib/tcllib1.21/math/symdiff.tcl | 0 .../lib/tcllib1.21/math/tclIndex | 0 .../lib/tcllib1.21/math/trig.tcl | 0 .../lib/tcllib1.21/math/wilcoxon.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/md4/md4.tcl | 0 .../lib/tcllib1.21/md4/md4c.tcl | 0 .../lib/tcllib1.21/md4/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/md5/md5.tcl | 0 .../lib/tcllib1.21/md5/md5c.tcl | 0 .../lib/tcllib1.21/md5/md5x.tcl | 0 .../lib/tcllib1.21/md5/pkgIndex.tcl | 0 .../lib/tcllib1.21/md5crypt/md5crypt.tcl | 0 .../lib/tcllib1.21/md5crypt/md5cryptc.tcl | 0 .../lib/tcllib1.21/md5crypt/pkgIndex.tcl | 0 .../lib/tcllib1.21/mime/mime.tcl | 0 .../lib/tcllib1.21/mime/pkgIndex.tcl | 0 .../lib/tcllib1.21/mime/smtp.tcl | 0 .../lib/tcllib1.21/mkdoc/mkdoc.tcl | 0 .../lib/tcllib1.21/mkdoc/pkgIndex.tcl | 0 .../tcllib1.21/multiplexer/multiplexer.tcl | 0 .../lib/tcllib1.21/multiplexer/pkgIndex.tcl | 0 .../lib/tcllib1.21/namespacex/namespacex.tcl | 0 .../lib/tcllib1.21/namespacex/pkgIndex.tcl | 0 .../lib/tcllib1.21/ncgi/ncgi.tcl | 0 .../lib/tcllib1.21/ncgi/pkgIndex.tcl | 0 .../lib/tcllib1.21/nettool/nettool.tcl | 0 .../lib/tcllib1.21/nettool/pkgIndex.tcl | 0 .../lib/tcllib1.21/nmea/nmea.tcl | 0 .../lib/tcllib1.21/nmea/pkgIndex.tcl | 0 .../lib/tcllib1.21/nns/common.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/nns/nns.tcl | 0 .../lib/tcllib1.21/nns/nns_auto.tcl | 0 .../lib/tcllib1.21/nns/pkgIndex.tcl | 0 .../lib/tcllib1.21/nns/server.tcl | 0 .../lib/tcllib1.21/nntp/nntp.tcl | 0 .../lib/tcllib1.21/nntp/pkgIndex.tcl | 0 .../lib/tcllib1.21/ntp/pkgIndex.tcl | 0 .../lib/tcllib1.21/ntp/time.tcl | 0 .../lib/tcllib1.21/oauth/oauth.tcl | 0 .../lib/tcllib1.21/oauth/pkgIndex.tcl | 0 .../lib/tcllib1.21/oodialect/oodialect.tcl | 0 .../lib/tcllib1.21/oodialect/pkgIndex.tcl | 0 .../lib/tcllib1.21/oometa/oometa.tcl | 0 .../lib/tcllib1.21/oometa/oooption.tcl | 0 .../lib/tcllib1.21/oometa/pkgIndex.tcl | 0 .../lib/tcllib1.21/ooutil/ooutil.tcl | 0 .../lib/tcllib1.21/ooutil/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/otp/otp.tcl | 0 .../lib/tcllib1.21/otp/pkgIndex.tcl | 0 .../tcllib1.21/page/analysis_peg_emodes.tcl | 0 .../tcllib1.21/page/analysis_peg_minimize.tcl | 0 .../page/analysis_peg_reachable.tcl | 0 .../page/analysis_peg_realizable.tcl | 0 .../tcllib1.21/page/compiler_peg_mecpu.tcl | 0 .../lib/tcllib1.21/page/gen_peg_canon.tcl | 0 .../lib/tcllib1.21/page/gen_peg_cpkg.tcl | 0 .../lib/tcllib1.21/page/gen_peg_hb.tcl | 0 .../lib/tcllib1.21/page/gen_peg_me.tcl | 0 .../lib/tcllib1.21/page/gen_peg_me.template | 0 .../lib/tcllib1.21/page/gen_peg_mecpu.tcl | 0 .../tcllib1.21/page/gen_peg_mecpu.template | 0 .../lib/tcllib1.21/page/gen_peg_ser.tcl | 0 .../lib/tcllib1.21/page/gen_tree_text.tcl | 0 .../lib/tcllib1.21/page/parse_lemon.tcl | 0 .../lib/tcllib1.21/page/parse_peg.tcl | 0 .../lib/tcllib1.21/page/parse_peghb.tcl | 0 .../lib/tcllib1.21/page/parse_pegser.tcl | 0 .../lib/tcllib1.21/page/peg_grammar.tcl | 0 .../lib/tcllib1.21/page/pkgIndex.tcl | 0 .../lib/tcllib1.21/page/pluginmgr.tcl | 0 .../tcllib1.21/page/plugins/config_peg.tcl | 0 .../lib/tcllib1.21/page/plugins/pkgIndex.tcl | 0 .../lib/tcllib1.21/page/plugins/reader_hb.tcl | 0 .../tcllib1.21/page/plugins/reader_lemon.tcl | 0 .../tcllib1.21/page/plugins/reader_peg.tcl | 0 .../tcllib1.21/page/plugins/reader_ser.tcl | 0 .../page/plugins/reader_treeser.tcl | 0 .../page/plugins/transform_mecpu.tcl | 0 .../page/plugins/transform_reachable.tcl | 0 .../page/plugins/transform_realizable.tcl | 0 .../lib/tcllib1.21/page/plugins/writer_hb.tcl | 0 .../page/plugins/writer_identity.tcl | 0 .../lib/tcllib1.21/page/plugins/writer_me.tcl | 0 .../tcllib1.21/page/plugins/writer_mecpu.tcl | 0 .../tcllib1.21/page/plugins/writer_null.tcl | 0 .../tcllib1.21/page/plugins/writer_peg.tcl | 0 .../tcllib1.21/page/plugins/writer_ser.tcl | 0 .../tcllib1.21/page/plugins/writer_tpc.tcl | 0 .../tcllib1.21/page/plugins/writer_tree.tcl | 0 .../lib/tcllib1.21/page/util_flow.tcl | 0 .../lib/tcllib1.21/page/util_norm_lemon.tcl | 0 .../lib/tcllib1.21/page/util_norm_peg.tcl | 0 .../lib/tcllib1.21/page/util_peg.tcl | 0 .../lib/tcllib1.21/page/util_quote.tcl | 0 .../lib/tcllib1.21/pkgIndex.tcl | 0 .../lib/tcllib1.21/pki/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/pki/pki.tcl | 0 .../lib/tcllib1.21/pluginmgr/pkgIndex.tcl | 0 .../lib/tcllib1.21/pluginmgr/pluginmgr.tcl | 0 .../lib/tcllib1.21/png/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/png/png.tcl | 0 .../lib/tcllib1.21/pop3/pkgIndex.tcl | 0 .../lib/tcllib1.21/pop3/pop3.tcl | 0 .../lib/tcllib1.21/pop3d/pkgIndex.tcl | 0 .../lib/tcllib1.21/pop3d/pop3d.tcl | 0 .../lib/tcllib1.21/pop3d/pop3d_dbox.tcl | 0 .../lib/tcllib1.21/pop3d/pop3d_udb.tcl | 0 .../lib/tcllib1.21/practcl/pkgIndex.tcl | 0 .../lib/tcllib1.21/practcl/practcl.tcl | 0 .../lib/tcllib1.21/processman/pkgIndex.tcl | 0 .../lib/tcllib1.21/processman/processman.tcl | 0 .../lib/tcllib1.21/profiler/pkgIndex.tcl | 0 .../lib/tcllib1.21/profiler/profiler.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/pt/char.tcl | 0 .../lib/tcllib1.21/pt/pkgIndex.tcl | 0 .../lib/tcllib1.21/pt/pt_astree.tcl | 0 .../tcllib1.21/pt/pt_cparam_config_critcl.tcl | 0 .../tcllib1.21/pt/pt_cparam_config_tea.tcl | 0 .../lib/tcllib1.21/pt/pt_parse_peg.tcl | 0 .../lib/tcllib1.21/pt/pt_parse_peg_c.tcl | 0 .../lib/tcllib1.21/pt/pt_parse_peg_tcl.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_container.tcl | 0 .../tcllib1.21/pt/pt_peg_container_peg.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_export.tcl | 0 .../tcllib1.21/pt/pt_peg_export_container.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_export_json.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_export_peg.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_from_json.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_from_peg.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_import.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_import_json.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_import_peg.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_interp.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_op.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_to_container.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_to_cparam.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_to_json.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_to_param.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_to_peg.tcl | 0 .../lib/tcllib1.21/pt/pt_peg_to_tclparam.tcl | 0 .../lib/tcllib1.21/pt/pt_pegrammar.tcl | 0 .../lib/tcllib1.21/pt/pt_pexpr_op.tcl | 0 .../lib/tcllib1.21/pt/pt_pexpression.tcl | 0 .../lib/tcllib1.21/pt/pt_pgen.tcl | 0 .../lib/tcllib1.21/pt/pt_rdengine.tcl | 0 .../lib/tcllib1.21/pt/pt_rdengine_c.tcl | 0 .../lib/tcllib1.21/pt/pt_rdengine_nx.tcl | 0 .../lib/tcllib1.21/pt/pt_rdengine_oo.tcl | 0 .../lib/tcllib1.21/pt/pt_rdengine_tcl.tcl | 0 .../tcllib1.21/pt/pt_tclparam_config_nx.tcl | 0 .../tcllib1.21/pt/pt_tclparam_config_snit.tcl | 0 .../pt/pt_tclparam_config_tcloo.tcl | 0 .../lib/tcllib1.21/pt/pt_util.tcl | 0 .../lib/tcllib1.21/pt/rde_critcl/m.c | 0 .../lib/tcllib1.21/pt/rde_critcl/m.h | 0 .../lib/tcllib1.21/pt/rde_critcl/ms.c | 0 .../lib/tcllib1.21/pt/rde_critcl/ms.h | 0 .../lib/tcllib1.21/pt/rde_critcl/ot.c | 0 .../lib/tcllib1.21/pt/rde_critcl/ot.h | 0 .../lib/tcllib1.21/pt/rde_critcl/p.c | 0 .../lib/tcllib1.21/pt/rde_critcl/p.h | 0 .../lib/tcllib1.21/pt/rde_critcl/pInt.h | 0 .../lib/tcllib1.21/pt/rde_critcl/param.c | 0 .../lib/tcllib1.21/pt/rde_critcl/param.h | 0 .../lib/tcllib1.21/pt/rde_critcl/stack.c | 0 .../lib/tcllib1.21/pt/rde_critcl/stack.h | 0 .../lib/tcllib1.21/pt/rde_critcl/tc.c | 0 .../lib/tcllib1.21/pt/rde_critcl/tc.h | 0 .../lib/tcllib1.21/pt/rde_critcl/util.c | 0 .../lib/tcllib1.21/pt/rde_critcl/util.h | 0 .../lib/tcllib1.21/pt/text_write.tcl | 0 .../lib/tcllib1.21/rc4/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/rc4/rc4.tcl | 0 .../lib/tcllib1.21/rc4/rc4c.tcl | 0 .../lib/tcllib1.21/rcs/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/rcs/rcs.tcl | 0 .../lib/tcllib1.21/report/pkgIndex.tcl | 0 .../lib/tcllib1.21/report/report.tcl | 0 .../lib/tcllib1.21/rest/pkgIndex.tcl | 0 .../lib/tcllib1.21/rest/rest.tcl | 0 .../lib/tcllib1.21/ripemd/pkgIndex.tcl | 0 .../lib/tcllib1.21/ripemd/ripemd128.tcl | 0 .../lib/tcllib1.21/ripemd/ripemd160.tcl | 0 .../lib/tcllib1.21/sasl/gtoken.tcl | 0 .../lib/tcllib1.21/sasl/ntlm.tcl | 0 .../lib/tcllib1.21/sasl/pkgIndex.tcl | 0 .../lib/tcllib1.21/sasl/sasl.tcl | 0 .../lib/tcllib1.21/sasl/scram.tcl | 0 .../lib/tcllib1.21/sha1/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.c | 0 .../tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.h | 0 .../lib/tcllib1.21/sha1/sha1.tcl | 0 .../lib/tcllib1.21/sha1/sha1c.tcl | 0 .../lib/tcllib1.21/sha1/sha1v1.tcl | 0 .../lib/tcllib1.21/sha1/sha256.c | 0 .../lib/tcllib1.21/sha1/sha256.h | 0 .../lib/tcllib1.21/sha1/sha256.tcl | 0 .../lib/tcllib1.21/sha1/sha256c.tcl | 0 .../lib/tcllib1.21/simulation/annealing.tcl | 0 .../lib/tcllib1.21/simulation/montecarlo.tcl | 0 .../lib/tcllib1.21/simulation/pkgIndex.tcl | 0 .../lib/tcllib1.21/simulation/random.tcl | 0 .../lib/tcllib1.21/smtpd/pkgIndex.tcl | 0 .../lib/tcllib1.21/smtpd/smtpd.tcl | 0 .../lib/tcllib1.21/snit/main1.tcl | 0 .../lib/tcllib1.21/snit/main1_83.tcl | 0 .../lib/tcllib1.21/snit/main2.tcl | 0 .../lib/tcllib1.21/snit/pkgIndex.tcl | 0 .../lib/tcllib1.21/snit/snit.tcl | 0 .../lib/tcllib1.21/snit/snit2.tcl | 0 .../lib/tcllib1.21/snit/snit_tcl83_utils.tcl | 0 .../lib/tcllib1.21/snit/validate.tcl | 0 .../lib/tcllib1.21/soundex/pkgIndex.tcl | 0 .../lib/tcllib1.21/soundex/soundex.tcl | 0 .../lib/tcllib1.21/stooop/mkpkgidx.tcl | 0 .../lib/tcllib1.21/stooop/pkgIndex.tcl | 0 .../lib/tcllib1.21/stooop/stooop.tcl | 0 .../lib/tcllib1.21/stooop/switched.tcl | 0 .../lib/tcllib1.21/stooop/xifo.tcl | 0 .../lib/tcllib1.21/string/pkgIndex.tcl | 0 .../lib/tcllib1.21/string/token.tcl | 0 .../lib/tcllib1.21/string/token_shell.tcl | 0 .../lib/tcllib1.21/stringprep/pkgIndex.tcl | 0 .../lib/tcllib1.21/stringprep/stringprep.tcl | 0 .../tcllib1.21/stringprep/stringprep_data.tcl | 0 .../lib/tcllib1.21/stringprep/unicode.tcl | 0 .../tcllib1.21/stringprep/unicode_data.tcl | 0 .../lib/tcllib1.21/struct/disjointset.tcl | 0 .../lib/tcllib1.21/struct/graph.tcl | 0 .../lib/tcllib1.21/struct/graph1.tcl | 0 .../lib/tcllib1.21/struct/graph_c.tcl | 0 .../lib/tcllib1.21/struct/graph_tcl.tcl | 0 .../lib/tcllib1.21/struct/graphops.tcl | 0 .../lib/tcllib1.21/struct/list.tcl | 0 .../lib/tcllib1.21/struct/list.test.tcl | 0 .../lib/tcllib1.21/struct/map.tcl | 0 .../lib/tcllib1.21/struct/matrix.tcl | 0 .../lib/tcllib1.21/struct/matrix1.tcl | 0 .../lib/tcllib1.21/struct/pkgIndex.tcl | 0 .../lib/tcllib1.21/struct/pool.tcl | 0 .../lib/tcllib1.21/struct/prioqueue.tcl | 0 .../lib/tcllib1.21/struct/queue.tcl | 0 .../lib/tcllib1.21/struct/queue_c.tcl | 0 .../lib/tcllib1.21/struct/queue_oo.tcl | 0 .../lib/tcllib1.21/struct/queue_tcl.tcl | 0 .../lib/tcllib1.21/struct/record.tcl | 0 .../lib/tcllib1.21/struct/sets.tcl | 0 .../lib/tcllib1.21/struct/sets_c.tcl | 0 .../lib/tcllib1.21/struct/sets_tcl.tcl | 0 .../lib/tcllib1.21/struct/skiplist.tcl | 0 .../lib/tcllib1.21/struct/stack.tcl | 0 .../lib/tcllib1.21/struct/stack_c.tcl | 0 .../lib/tcllib1.21/struct/stack_oo.tcl | 0 .../lib/tcllib1.21/struct/stack_tcl.tcl | 0 .../lib/tcllib1.21/struct/struct.tcl | 0 .../lib/tcllib1.21/struct/struct1.tcl | 0 .../lib/tcllib1.21/struct/tree.tcl | 0 .../lib/tcllib1.21/struct/tree1.tcl | 0 .../lib/tcllib1.21/struct/tree_c.tcl | 0 .../lib/tcllib1.21/struct/tree_tcl.tcl | 0 .../lib/tcllib1.21/tar/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/tar/tar.tcl | 0 .../lib/tcllib1.21/tepam/pkgIndex.tcl | 0 .../lib/tcllib1.21/tepam/tepam.tcl | 0 .../lib/tcllib1.21/tepam/tepam_doc_gen.tcl | 0 .../lib/tcllib1.21/term/ansi/code.tcl | 0 .../lib/tcllib1.21/term/ansi/code/attr.tcl | 0 .../lib/tcllib1.21/term/ansi/code/ctrl.tcl | 0 .../lib/tcllib1.21/term/ansi/code/macros.tcl | 0 .../lib/tcllib1.21/term/ansi/ctrlunix.tcl | 0 .../lib/tcllib1.21/term/ansi/send.tcl | 0 .../lib/tcllib1.21/term/bind.tcl | 0 .../lib/tcllib1.21/term/imenu.tcl | 0 .../lib/tcllib1.21/term/ipager.tcl | 0 .../lib/tcllib1.21/term/pkgIndex.tcl | 0 .../lib/tcllib1.21/term/receive.tcl | 0 .../lib/tcllib1.21/term/send.tcl | 0 .../lib/tcllib1.21/term/term.tcl | 0 .../lib/tcllib1.21/textutil/adjust.tcl | 0 .../lib/tcllib1.21/textutil/dehypht.tex | 0 .../lib/tcllib1.21/textutil/eshyph_vo.tex | 0 .../lib/tcllib1.21/textutil/expander.tcl | 0 .../lib/tcllib1.21/textutil/ithyph.tex | 0 .../lib/tcllib1.21/textutil/patch.tcl | 0 .../lib/tcllib1.21/textutil/pkgIndex.tcl | 0 .../lib/tcllib1.21/textutil/repeat.tcl | 0 .../lib/tcllib1.21/textutil/split.tcl | 0 .../lib/tcllib1.21/textutil/string.tcl | 0 .../lib/tcllib1.21/textutil/tabify.tcl | 0 .../lib/tcllib1.21/textutil/textutil.tcl | 0 .../lib/tcllib1.21/textutil/trim.tcl | 0 .../lib/tcllib1.21/textutil/wcswidth.tcl | 0 .../lib/tcllib1.21/tie/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/tie/tie.tcl | 0 .../lib/tcllib1.21/tie/tie_array.tcl | 0 .../lib/tcllib1.21/tie/tie_dsource.tcl | 0 .../lib/tcllib1.21/tie/tie_file.tcl | 0 .../lib/tcllib1.21/tie/tie_growfile.tcl | 0 .../lib/tcllib1.21/tie/tie_log.tcl | 0 .../lib/tcllib1.21/tie/tie_rarray.tcl | 0 .../lib/tcllib1.21/tiff/pkgIndex.tcl | 0 .../lib/tcllib1.21/tiff/tiff.tcl | 0 .../lib/tcllib1.21/tool/pkgIndex.tcl | 0 .../lib/tcllib1.21/tool/tool.tcl | 0 .../lib/tcllib1.21/transfer/connect.tcl | 0 .../lib/tcllib1.21/transfer/copyops.tcl | 0 .../lib/tcllib1.21/transfer/ddest.tcl | 0 .../lib/tcllib1.21/transfer/dsource.tcl | 0 .../lib/tcllib1.21/transfer/pkgIndex.tcl | 0 .../lib/tcllib1.21/transfer/receiver.tcl | 0 .../lib/tcllib1.21/transfer/tqueue.tcl | 0 .../lib/tcllib1.21/transfer/transmitter.tcl | 0 .../lib/tcllib1.21/treeql/pkgIndex.tcl | 0 .../lib/tcllib1.21/treeql/treeql.tcl | 0 .../lib/tcllib1.21/treeql/treeql84.tcl | 0 .../lib/tcllib1.21/treeql/treeql85.tcl | 0 .../lib/tcllib1.21/try/pkgIndex.tcl | 0 .../lib/tcllib1.21/try/throw.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/try/try.tcl | 0 .../lib/tcllib1.21/udpcluster/pkgIndex.tcl | 0 .../lib/tcllib1.21/udpcluster/udpcluster.tcl | 0 .../lib/tcllib1.21/uev/pkgIndex.tcl | 0 .../lib/tcllib1.21/uev/uevent.tcl | 0 .../lib/tcllib1.21/uev/uevent_onidle.tcl | 0 .../lib/tcllib1.21/units/pkgIndex.tcl | 0 .../lib/tcllib1.21/units/units.tcl | 0 .../lib/tcllib1.21/uri/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/uri/uri.tcl | 0 .../lib/tcllib1.21/uri/urn-scheme.tcl | 0 .../lib/tcllib1.21/uuid/pkgIndex.tcl | 0 .../lib/tcllib1.21/uuid/uuid.tcl | 0 .../lib/tcllib1.21/valtype/cc_amex.tcl | 0 .../lib/tcllib1.21/valtype/cc_discover.tcl | 0 .../lib/tcllib1.21/valtype/cc_mastercard.tcl | 0 .../lib/tcllib1.21/valtype/cc_visa.tcl | 0 .../lib/tcllib1.21/valtype/ean13.tcl | 0 .../lib/tcllib1.21/valtype/iban.tcl | 0 .../lib/tcllib1.21/valtype/imei.tcl | 0 .../lib/tcllib1.21/valtype/isbn.tcl | 0 .../lib/tcllib1.21/valtype/luhn.tcl | 0 .../lib/tcllib1.21/valtype/luhn5.tcl | 0 .../lib/tcllib1.21/valtype/pkgIndex.tcl | 0 .../lib/tcllib1.21/valtype/usnpi.tcl | 0 .../lib/tcllib1.21/valtype/valtype.tcl | 0 .../lib/tcllib1.21/valtype/verhoeff.tcl | 0 .../lib/tcllib1.21/virtchannel_base/cat.tcl | 0 .../tcllib1.21/virtchannel_base/facade.tcl | 0 .../lib/tcllib1.21/virtchannel_base/fifo.tcl | 0 .../lib/tcllib1.21/virtchannel_base/fifo2.tcl | 0 .../tcllib1.21/virtchannel_base/halfpipe.tcl | 0 .../tcllib1.21/virtchannel_base/memchan.tcl | 0 .../lib/tcllib1.21/virtchannel_base/null.tcl | 0 .../tcllib1.21/virtchannel_base/nullzero.tcl | 0 .../tcllib1.21/virtchannel_base/pkgIndex.tcl | 0 .../tcllib1.21/virtchannel_base/random.tcl | 0 .../tcllib1.21/virtchannel_base/randseed.tcl | 0 .../lib/tcllib1.21/virtchannel_base/std.tcl | 0 .../tcllib1.21/virtchannel_base/string.tcl | 0 .../virtchannel_base/textwindow.tcl | 0 .../tcllib1.21/virtchannel_base/variable.tcl | 0 .../lib/tcllib1.21/virtchannel_base/zero.tcl | 0 .../lib/tcllib1.21/virtchannel_core/core.tcl | 0 .../tcllib1.21/virtchannel_core/events.tcl | 0 .../tcllib1.21/virtchannel_core/pkgIndex.tcl | 0 .../virtchannel_core/transformcore.tcl | 0 .../virtchannel_transform/adler32.tcl | 0 .../virtchannel_transform/base64.tcl | 0 .../virtchannel_transform/counter.tcl | 0 .../virtchannel_transform/crc32.tcl | 0 .../tcllib1.21/virtchannel_transform/hex.tcl | 0 .../virtchannel_transform/identity.tcl | 0 .../virtchannel_transform/limitsize.tcl | 0 .../virtchannel_transform/observe.tcl | 0 .../tcllib1.21/virtchannel_transform/otp.tcl | 0 .../virtchannel_transform/pkgIndex.tcl | 0 .../tcllib1.21/virtchannel_transform/rot.tcl | 0 .../virtchannel_transform/spacer.tcl | 0 .../tcllib1.21/virtchannel_transform/zlib.tcl | 0 .../lib/tcllib1.21/websocket/pkgIndex.tcl | 0 .../lib/tcllib1.21/websocket/websocket.tcl | 0 .../lib/tcllib1.21/wip/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllib1.21/wip/wip.tcl | 0 .../lib/tcllib1.21/wip/wip2.tcl | 0 .../lib/tcllib1.21/yaml/huddle.tcl | 0 .../lib/tcllib1.21/yaml/huddle_types.tcl | 0 .../lib/tcllib1.21/yaml/json2huddle.tcl | 0 .../lib/tcllib1.21/yaml/pkgIndex.tcl | 0 .../lib/tcllib1.21/yaml/yaml.tcl | 0 .../lib/tcllib1.21/zip/decode.tcl | 0 .../lib/tcllib1.21/zip/encode.tcl | 0 .../lib/tcllib1.21/zip/mkzip.tcl | 0 .../lib/tcllib1.21/zip/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllibc/critcl-rt.tcl | 0 .../tclkit86bi.vfs/lib/tcllibc/license.terms | 0 .../tclkit86bi.vfs/lib/tcllibc/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tcllibc/teapot.txt | 0 .../lib/tcllibc/win32-x86_64/tcllibc.dll | Bin .../lib/tcltls1.7.22/pkgIndex.tcl | 0 .../lib/tcltls1.7.22/tcltls.dll | Bin .../tclkit86bi.vfs/lib/tcltls1.7.22/tls.tcl | 0 .../lib/tdbc1.1.5/libtdbcstub115.a | Bin .../tclkit86bi.vfs/lib/tdbc1.1.5/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tdbc1.1.5/tdbc.tcl | 0 .../tclkit86bi.vfs/lib/tdbc1.1.5/tdbc115.dll | Bin .../lib/tdbc1.1.5/tdbcConfig.sh | 0 .../lib/tdbcmysql1.1.5/pkgIndex.tcl | 0 .../lib/tdbcmysql1.1.5/tdbcmysql.tcl | 0 .../lib/tdbcmysql1.1.5/tdbcmysql115.dll | Bin .../lib/tdbcodbc1.1.5/pkgIndex.tcl | 0 .../lib/tdbcodbc1.1.5/tdbcodbc.tcl | 0 .../lib/tdbcodbc1.1.5/tdbcodbc115.dll | Bin .../lib/tdbcpostgres1.1.5/pkgIndex.tcl | 0 .../lib/tdbcpostgres1.1.5/tdbcpostgres.tcl | 0 .../lib/tdbcpostgres1.1.5/tdbcpostgres115.dll | Bin .../lib/tdom0.9.3/libtdomstub093.a | Bin .../tclkit86bi.vfs/lib/tdom0.9.3/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tdom0.9.3/tdom.tcl | 0 .../tclkit86bi.vfs/lib/tdom0.9.3/tdom093.dll | Bin .../lib/thread2.8.8/pkgIndex.tcl | 0 .../lib/thread2.8.8/thread288.dll | Bin .../tclkit86bi.vfs/lib/thread2.8.8/ttrace.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/bgerror.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/button.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/choosedir.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/clrpick.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/comdlg.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/console.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/README | 0 .../lib/tk8.6/demos/anilabel.tcl | 0 .../lib/tk8.6/demos/aniwave.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/arrow.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/bind.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/bitmap.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/browse | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/button.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/check.tcl | 0 .../lib/tk8.6/demos/clrpick.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/colors.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/combo.tcl | 0 .../lib/tk8.6/demos/cscroll.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/ctext.tcl | 0 .../lib/tk8.6/demos/dialog1.tcl | 0 .../lib/tk8.6/demos/dialog2.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/en.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/entry1.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/entry2.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/entry3.tcl | 0 .../lib/tk8.6/demos/filebox.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/floor.tcl | 0 .../lib/tk8.6/demos/fontchoose.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/form.tcl | 0 .../lib/tk8.6/demos/goldberg.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/hello | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/hscale.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/icon.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/image1.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/image2.tcl | 0 .../lib/tk8.6/demos/images/earth.gif | Bin .../lib/tk8.6/demos/images/earthmenu.png | Bin .../lib/tk8.6/demos/images/earthris.gif | Bin .../lib/tk8.6/demos/images/flagdown.xbm | 0 .../lib/tk8.6/demos/images/flagup.xbm | 0 .../lib/tk8.6/demos/images/gray25.xbm | 0 .../lib/tk8.6/demos/images/letters.xbm | 0 .../lib/tk8.6/demos/images/noletter.xbm | 0 .../lib/tk8.6/demos/images/ouster.png | Bin .../lib/tk8.6/demos/images/pattern.xbm | 0 .../lib/tk8.6/demos/images/tcllogo.gif | Bin .../lib/tk8.6/demos/images/teapot.ppm | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/items.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/ixset | 0 .../lib/tk8.6/demos/knightstour.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/label.tcl | 0 .../lib/tk8.6/demos/labelframe.tcl | 0 .../lib/tk8.6/demos/license.terms | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/mclist.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/menu.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/menubu.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/msgbox.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/nl.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/paned1.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/paned2.tcl | 0 .../lib/tk8.6/demos/pendulum.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/plot.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/puzzle.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/radio.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/rmt | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/rolodex | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/ruler.tcl | 0 .../lib/tk8.6/demos/sayings.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/search.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/spin.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/states.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/style.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/tclIndex | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/tcolor | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/text.tcl | 0 .../lib/tk8.6/demos/textpeer.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/timer | 0 .../lib/tk8.6/demos/toolbar.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/tree.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/ttkbut.tcl | 0 .../lib/tk8.6/demos/ttkmenu.tcl | 0 .../lib/tk8.6/demos/ttknote.tcl | 0 .../lib/tk8.6/demos/ttkpane.tcl | 0 .../lib/tk8.6/demos/ttkprogress.tcl | 0 .../lib/tk8.6/demos/ttkscale.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/twind.tcl | 0 .../lib/tk8.6/demos/unicodeout.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/vscale.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/demos/widget | 0 .../tclkit86bi.vfs/lib/tk8.6/dialog.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/entry.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/focus.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/fontchooser.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/iconlist.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/icons.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/images/README | 0 .../tclkit86bi.vfs/lib/tk8.6/images/logo.eps | 0 .../lib/tk8.6/images/logo100.gif | Bin .../lib/tk8.6/images/logo64.gif | Bin .../lib/tk8.6/images/logoLarge.gif | Bin .../lib/tk8.6/images/logoMed.gif | Bin .../lib/tk8.6/images/pwrdLogo.eps | 0 .../lib/tk8.6/images/pwrdLogo100.gif | Bin .../lib/tk8.6/images/pwrdLogo150.gif | Bin .../lib/tk8.6/images/pwrdLogo175.gif | Bin .../lib/tk8.6/images/pwrdLogo200.gif | Bin .../lib/tk8.6/images/pwrdLogo75.gif | Bin .../lib/tk8.6/images/tai-ku.gif | Bin .../tclkit86bi.vfs/lib/tk8.6/listbox.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/megawidget.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/menu.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/mkpsenc.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/msgbox.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/cs.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/da.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/de.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/el.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/en.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/en_gb.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/eo.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/es.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/fi.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/fr.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/hu.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/it.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/nl.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/pl.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/pt.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/ru.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/sv.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/msgs/zh_cn.msg | 0 .../tclkit86bi.vfs/lib/tk8.6/obsolete.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/optMenu.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/palette.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/panedwindow.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/safetk.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/scale.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/scrlbar.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/spinbox.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/tclIndex | 0 .../tclkit86bi.vfs/lib/tk8.6/tearoff.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/text.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/tk.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/tkAppInit.c | 0 .../tclkit86bi.vfs/lib/tk8.6/tkfbox.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/altTheme.tcl | 0 .../lib/tk8.6/ttk/aquaTheme.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/button.tcl | 0 .../lib/tk8.6/ttk/clamTheme.tcl | 0 .../lib/tk8.6/ttk/classicTheme.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/combobox.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/cursors.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/defaults.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/entry.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/fonts.tcl | 0 .../lib/tk8.6/ttk/menubutton.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/notebook.tcl | 0 .../lib/tk8.6/ttk/panedwindow.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/progress.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/scale.tcl | 0 .../lib/tk8.6/ttk/scrollbar.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/sizegrip.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/spinbox.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/treeview.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/ttk.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/utils.tcl | 0 .../lib/tk8.6/ttk/vistaTheme.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/winTheme.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/ttk/xpTheme.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/unsupported.tcl | 0 .../tclkit86bi.vfs/lib/tk8.6/xmfbox.tcl | 0 .../tclkit86bi.vfs/lib/udp1.0.11/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/udp1.0.11/udp1011.dll | Bin .../tclkit86bi.vfs/lib/vfs1.4.1/ftpvfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.1/httpvfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.1/mk4vfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.1/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.1/starkit.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.1/tarvfs.tcl | 0 .../lib/vfs1.4.1/tclprocvfs.tcl | 0 .../lib/vfs1.4.1/template/chrootvfs.tcl | 0 .../lib/vfs1.4.1/template/collatevfs.tcl | 0 .../lib/vfs1.4.1/template/deltavfs.tcl | 0 .../lib/vfs1.4.1/template/fishvfs.tcl | 0 .../lib/vfs1.4.1/template/globfind.tcl | 0 .../lib/vfs1.4.1/template/quotavfs.tcl | 0 .../lib/vfs1.4.1/template/tclIndex | 0 .../lib/vfs1.4.1/template/tdelta.tcl | 0 .../lib/vfs1.4.1/template/templatevfs.tcl | 0 .../lib/vfs1.4.1/template/versionvfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.1/testvfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.1/tkvfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.1/vfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.1/vfsUrl.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.1/vfsUtils.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.1/vfslib.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.1/webdavvfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.1/zipvfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/ftpvfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/httpvfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/mk4vfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/starkit.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/tarvfs.tcl | 0 .../lib/vfs1.4.2/tclprocvfs.tcl | 0 .../lib/vfs1.4.2/template/chrootvfs.tcl | 0 .../lib/vfs1.4.2/template/collatevfs.tcl | 0 .../lib/vfs1.4.2/template/deltavfs.tcl | 0 .../lib/vfs1.4.2/template/fishvfs.tcl | 0 .../lib/vfs1.4.2/template/globfind.tcl | 0 .../lib/vfs1.4.2/template/quotavfs.tcl | 0 .../lib/vfs1.4.2/template/tclIndex | 0 .../lib/vfs1.4.2/template/tdelta.tcl | 0 .../lib/vfs1.4.2/template/templatevfs.tcl | 0 .../lib/vfs1.4.2/template/versionvfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/testvfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/tkvfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/vfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/vfs142.dll | Bin .../tclkit86bi.vfs/lib/vfs1.4.2/vfsUrl.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/vfsUtils.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/vfslib.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/webdavvfs.tcl | 0 .../tclkit86bi.vfs/lib/vfs1.4.2/zipvfs.tcl | 0 .../tclkit86bi.vfs/lib/vqtcl4.1/m2mvfs.tcl | 0 .../tclkit86bi.vfs/lib/vqtcl4.1/mkclvfs.tcl | 0 .../tclkit86bi.vfs/lib/vqtcl4.1/mklite.tcl | 0 .../tclkit86bi.vfs/lib/vqtcl4.1/pkgIndex.tcl | 0 .../tclkit86bi.vfs/lib/vqtcl4.1/ratcl.tcl | 0 src/{ => runtime}/tclkit86bi.vfs/tclkit.ico | Bin 1934 files changed, 63105 insertions(+) rename src/{ => runtime}/tclkit86bi.exe (99%) rename src/{ => runtime}/tclkit86bi.vfs/bin/tk86.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/boot.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/Ffidl0.9.0/Ffidl090.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/Ffidl0.9.0/ffidlrt.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/Ffidl0.9.0/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/Memchan2.3/Memchan23.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/Memchan2.3/libMemchanstub23.a (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/Memchan2.3/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/Trf2.1.4/Trf214.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/Trf2.1.4/libTrfstub214.a (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/Trf2.1.4/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/cffi1.2.0/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/cffi1.2.0/win32-x86_64/tclcffi120.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-app3.2/critcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-app3.2/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-app3.2/runtime.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-app3.2/tea/Config.in (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-app3.2/tea/Makefile.in (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-app3.2/tea/aclocal.m4 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-app3.2/tea/configure.in (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/README.txt (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/install-sh (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/tcl.m4 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-bitmap1.1/bitmap.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-bitmap1.1/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-class1.2/class.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-class1.2/class.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-class1.2/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-cutil0.3/allocs/critcl_alloc.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-cutil0.3/asserts/critcl_assert.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-cutil0.3/cutil.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-cutil0.3/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-cutil0.3/trace/critcl_trace.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-cutil0.3/trace/trace.c (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-emap1.3/emap.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-emap1.3/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-enum1.2/enum.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-enum1.2/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-iassoc1.2/iassoc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-iassoc1.2/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-literals1.4/literals.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-literals1.4/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-platform1.1/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-platform1.1/platform.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-util1.2/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl-util1.2/util.tcl (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/Config (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl.tcl (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/cdata.c (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/header.c (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/pkginit.c (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/pkginitend.c (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/pkginittk.c (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/preload.c (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/storageclass.c (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/stubs.c (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/stubs_e.c (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/X11/X.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/X11/Xatom.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/X11/Xfuncproto.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/X11/Xlib.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/X11/Xutil.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/X11/cursorfont.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/X11/keysym.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/X11/keysymdef.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/X11/tkIntXlibDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/tcl.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/tclDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/tclPlatDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/tk.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/tkDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.4/tkPlatDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/X11/X.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/X11/Xatom.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/X11/Xfuncproto.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/X11/Xlib.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/X11/Xutil.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/X11/cursorfont.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/X11/keysym.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/X11/keysymdef.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/X11/tkIntXlibDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/tcl.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/tclDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/tclPlatDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/tk.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/tkDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.5/tkPlatDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/X11/X.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/X11/Xatom.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/X11/Xfuncproto.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/X11/Xlib.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/X11/Xutil.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/X11/cursorfont.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/X11/keysym.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/X11/keysymdef.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/X11/tkIntXlibDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/tcl.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/tclDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/tclPlatDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/tk.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/tkDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tcl8.6/tkPlatDecls.h (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tclAppInit.c (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tkstubs.c (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/critcl_c/tkstubs_noconst.c (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/license.terms (100%) rename src/{tclkit86bi.vfs/lib/critcl3.2 => runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy}/pkgIndex.tcl (100%) create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/Config create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/cdata.c create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/header.c create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginit.c create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginitend.c create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginittk.c create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/preload.c create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/storageclass.c create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/stubs.c create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/stubs_e.c create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/X.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xatom.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xfuncproto.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xlib.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xutil.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/cursorfont.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/keysym.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/keysymdef.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/tkIntXlibDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tcl.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tclDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tclPlatDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tk.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tkDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tkPlatDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/X.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xatom.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xfuncproto.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xlib.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xutil.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/cursorfont.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/keysym.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/keysymdef.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/tkIntXlibDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tcl.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tclDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tclPlatDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tk.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tkDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tkPlatDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/X.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xatom.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xfuncproto.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xlib.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xutil.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/cursorfont.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/keysym.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/keysymdef.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/tkIntXlibDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tcl.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tclDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tclPlatDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tk.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tkDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tkPlatDecls.h create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tclAppInit.c create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tkstubs.c create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tkstubs_noconst.c create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/license.terms create mode 100644 src/runtime/tclkit86bi.vfs/lib/critcl3.2/pkgIndex.tcl rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl_callback1.1/critcl-rt.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl_callback1.1/license.terms (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl_callback1.1/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl_callback1.1/teapot.txt (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl_callback1.1/win32-x86_64/callback.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl_md5c0.12/critcl-rt.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl_md5c0.12/license.terms (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl_md5c0.12/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl_md5c0.12/teapot.txt (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/critcl_md5c0.12/win32-x86_64/md5c.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/dde1.4/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/dde1.4/tcldde14.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/iocp1.1.0/amd64/iocp110.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/iocp1.1.0/bt.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/iocp1.1.0/btnames.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/iocp1.1.0/btsdr.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/iocp1.1.0/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/reg1.3/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/reg1.3/tclreg13.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/sqlite3.40.0/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/sqlite3.40.0/sqlite3400.dll (100%) create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_container1.1/container.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_container1.1/pkgIndex.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_gen_decl1.1/gen_decl.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_gen_decl1.1/pkgIndex.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_gen_header1.1/gen_header.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_gen_header1.1/pkgIndex.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_gen_init1.1/gen_init.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_gen_init1.1/pkgIndex.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_gen_lib1.1/gen_lib.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_gen_lib1.1/pkgIndex.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_gen_macro1.1/gen_macro.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_gen_macro1.1/pkgIndex.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_gen_slot1.1/gen_slot.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_gen_slot1.1/pkgIndex.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_genframe1.1/genframe.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_genframe1.1/pkgIndex.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_reader1.1/pkgIndex.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_reader1.1/reader.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_writer1.1/pkgIndex.tcl create mode 100644 src/runtime/tclkit86bi.vfs/lib/stubs_writer1.1/writer.tcl rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/auto.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/clock.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/ascii.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/big5.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cns11643.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1250.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1251.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1252.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1253.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1254.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1255.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1256.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1257.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1258.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp437.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp737.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp775.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp850.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp852.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp855.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp857.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp860.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp861.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp862.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp863.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp864.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp865.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp866.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp869.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp874.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp932.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp936.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp949.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/cp950.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/dingbats.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/ebcdic.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-cn.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-jp.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-kr.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/gb12345.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/gb1988.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/gb2312-raw.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/gb2312.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022-jp.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022-kr.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-1.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-10.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-11.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-13.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-14.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-15.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-16.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-2.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-3.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-4.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-5.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-6.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-7.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-8.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-9.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0201.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0208.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0212.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/koi8-r.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/koi8-u.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/ksc5601.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/macCentEuro.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/macCroatian.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/macCyrillic.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/macDingbats.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/macGreek.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/macIceland.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/macJapan.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/macRoman.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/macRomania.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/macThai.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/macTurkish.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/macUkraine.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/shiftjis.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/symbol.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/encoding/tis-620.enc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/history.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/http1.0/http.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/http1.0/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/init.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/af.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/af_za.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ar.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_in.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_jo.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_lb.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_sy.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/be.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/bg.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/bn.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/bn_in.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ca.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/cs.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/da.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/de.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/de_at.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/de_be.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/el.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/en_au.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/en_be.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/en_bw.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ca.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/en_gb.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/en_hk.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ie.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/en_in.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/en_nz.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ph.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/en_sg.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/en_za.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/en_zw.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/eo.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ar.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_bo.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_cl.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_co.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_cr.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_do.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ec.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_gt.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_hn.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_mx.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ni.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pa.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pe.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pr.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_py.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_sv.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_uy.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ve.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/et.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/eu.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/eu_es.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/fa.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/fa_in.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/fa_ir.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/fi.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/fo.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/fo_fo.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/fr.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_be.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_ca.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_ch.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ga.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ga_ie.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/gl.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/gl_es.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/gv.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/gv_gb.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/he.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/hi.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/hi_in.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/hr.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/hu.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/id.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/id_id.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/is.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/it.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/it_ch.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ja.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/kl.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/kl_gl.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ko.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ko_kr.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/kok.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/kok_in.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/kw.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/kw_gb.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/lt.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/lv.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/mk.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/mr.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/mr_in.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ms.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ms_my.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/mt.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/nb.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/nl.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/nl_be.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/nn.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/pl.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/pt.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/pt_br.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ro.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ru.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ru_ua.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/sh.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/sk.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/sl.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/sq.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/sr.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/sv.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/sw.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ta.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/ta_in.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/te.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/te_in.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/th.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/tr.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/uk.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/vi.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/zh.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_cn.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_hk.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_sg.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_tw.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/opt0.4/optparse.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/opt0.4/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/package.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/parray.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/safe.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tclIndex (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tm.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Abidjan (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Algiers (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bamako (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bangui (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Banjul (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bissau (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Blantyre (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Brazzaville (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Cairo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Conakry (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Dakar (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Dar_es_Salaam (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Djibouti (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/El_Aaiun (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Freetown (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Gaborone (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Harare (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Johannesburg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Khartoum (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Kigali (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lagos (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Libreville (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lome (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lubumbashi (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Malabo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Maputo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Maseru (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Mbabane (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Mogadishu (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Nairobi (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Niamey (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Nouakchott (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Ouagadougou (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Porto-Novo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Sao_Tome (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Timbuktu (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Tripoli (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Tunis (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Windhoek (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Adak (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Anchorage (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Buenos_Aires (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Jujuy (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Rio_Gallegos (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/San_Juan (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/San_Luis (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Tucuman (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Asuncion (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Atikokan (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Bahia_Banderas (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Barbados (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Belem (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Belize (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Blanc-Sablon (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Boise (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Buenos_Aires (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cambridge_Bay (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Campo_Grande (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cancun (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Caracas (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cayenne (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cayman (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Chicago (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Coral_Harbour (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Creston (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Curacao (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Danmarkshavn (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Dawson (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Dawson_Creek (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Denver (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Detroit (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Edmonton (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Eirunepe (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/El_Salvador (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Fort_Nelson (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Fort_Wayne (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Glace_Bay (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Godthab (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Goose_Bay (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Grand_Turk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Guadeloupe (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Guayaquil (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Halifax (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Hermosillo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Indianapolis (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Knox (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Marengo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Petersburg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Tell_City (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Vevay (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Vincennes (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Winamac (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indianapolis (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Inuvik (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Iqaluit (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Jujuy (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Juneau (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kentucky/Louisville (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kentucky/Monticello (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Knox_IN (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kralendijk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/La_Paz (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Los_Angeles (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Louisville (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Lower_Princes (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Maceio (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Manaus (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Marigot (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Martinique (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Matamoros (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Mazatlan (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Menominee (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Mexico_City (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Miquelon (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Moncton (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Monterrey (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montevideo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montreal (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montserrat (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nassau (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/New_York (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nipigon (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nome (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/Beulah (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/Center (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/New_Salem (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nuuk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Pangnirtung (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Paramaribo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Phoenix (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Port-au-Prince (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Port_of_Spain (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Porto_Acre (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Porto_Velho (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Puerto_Rico (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Punta_Arenas (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rainy_River (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rankin_Inlet (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Recife (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Resolute (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rio_Branco (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rosario (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santa_Isabel (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santarem (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santiago (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santo_Domingo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Sao_Paulo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Scoresbysund (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Shiprock (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Barthelemy (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Johns (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Kitts (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Thomas (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Vincent (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Swift_Current (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Thule (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Thunder_Bay (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Toronto (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Vancouver (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Virgin (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Whitehorse (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Winnipeg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Yakutat (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Yellowknife (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Casey (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Davis (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/DumontDUrville (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Macquarie (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Mawson (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/McMurdo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Palmer (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/South_Pole (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Troll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Vostok (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Arctic/Longyearbyen (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aden (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Almaty (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Amman (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Anadyr (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aqtau (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aqtobe (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ashgabat (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ashkhabad (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Atyrau (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Baghdad (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bahrain (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Baku (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bangkok (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Barnaul (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Beirut (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bishkek (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Brunei (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Choibalsan (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Chongqing (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Chungking (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Colombo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Damascus (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dili (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dubai (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dushanbe (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Harbin (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hebron (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ho_Chi_Minh (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hong_Kong (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hovd (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Irkutsk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Istanbul (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Jerusalem (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kabul (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Karachi (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kashgar (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kathmandu (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Katmandu (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Krasnoyarsk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuala_Lumpur (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuching (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuwait (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Macao (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Macau (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Magadan (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Makassar (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Muscat (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Novokuznetsk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Novosibirsk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Omsk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Oral (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Phnom_Penh (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Pontianak (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Pyongyang (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Qatar (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Qostanay (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Rangoon (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Riyadh (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Saigon (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Sakhalin (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Samarkand (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Seoul (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Shanghai (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Singapore (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Srednekolymsk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Taipei (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tashkent (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tbilisi (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tehran (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tel_Aviv (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Thimbu (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Thimphu (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tokyo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tomsk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ujung_Pandang (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ulaanbaatar (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ulan_Bator (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Urumqi (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Vientiane (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Vladivostok (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yakutsk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yangon (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yekaterinburg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yerevan (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Azores (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Canary (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Cape_Verde (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Faeroe (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Faroe (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Jan_Mayen (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Reykjavik (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Stanley (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/ACT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Adelaide (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Brisbane (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Broken_Hill (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Currie (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Darwin (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Hobart (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/LHI (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Lindeman (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Lord_Howe (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Melbourne (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/NSW (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/North (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Perth (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Queensland (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/South (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Sydney (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/West (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/Acre (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/East (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/West (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/CET (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/CST6CDT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Atlantic (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Central (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Eastern (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Mountain (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Newfoundland (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Pacific (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Saskatchewan (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Yukon (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Chile/Continental (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Chile/EasterIsland (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/EET (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/EST (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/EST5EDT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Egypt (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Eire (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+0 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+1 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+10 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+11 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+12 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+2 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+3 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+4 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+5 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+6 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+7 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+8 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+9 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-0 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-1 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-10 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-11 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-12 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-13 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-14 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-2 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-3 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-4 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-5 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-6 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-7 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-8 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-9 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT0 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Greenwich (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/UCT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/UTC (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Universal (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Zulu (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Amsterdam (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Astrakhan (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Athens (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Belfast (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Belgrade (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Berlin (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Brussels (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Bucharest (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Budapest (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Busingen (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Chisinau (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Copenhagen (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Dublin (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Gibraltar (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Guernsey (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Helsinki (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Isle_of_Man (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Istanbul (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Jersey (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kaliningrad (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kiev (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kirov (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kyiv (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Lisbon (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/London (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Luxembourg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Madrid (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Mariehamn (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Minsk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Monaco (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Moscow (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Oslo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Paris (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Prague (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Rome (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/San_Marino (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Sarajevo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Saratov (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Simferopol (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Skopje (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Stockholm (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tallinn (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tirane (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tiraspol (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Ulyanovsk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Uzhgorod (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vaduz (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vatican (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vilnius (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Volgograd (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Warsaw (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zagreb (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zaporozhye (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zurich (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/GB (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/GB-Eire (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT+0 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT-0 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT0 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Greenwich (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/HST (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Hongkong (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Iceland (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Antananarivo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Chagos (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Christmas (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Cocos (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Comoro (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Kerguelen (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mahe (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Maldives (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mauritius (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mayotte (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Reunion (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Iran (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Israel (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Japan (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Kwajalein (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/MET (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/MST (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/MST7MDT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/BajaNorte (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/BajaSur (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/General (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/NZ (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/NZ-CHAT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Navajo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/PRC (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/PST8PDT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Auckland (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Bougainville (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Chatham (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Chuuk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Easter (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Efate (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Enderbury (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Fakaofo (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Fiji (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Funafuti (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Galapagos (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Gambier (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Guadalcanal (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Guam (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Honolulu (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Johnston (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kanton (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kiritimati (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kosrae (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kwajalein (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Majuro (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Marquesas (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Midway (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Nauru (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Niue (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Norfolk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pago_Pago (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Palau (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pitcairn (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pohnpei (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Ponape (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Port_Moresby (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Saipan (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Tahiti (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Tongatapu (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Truk (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Wake (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Wallis (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Yap (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Poland (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Portugal (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/ROC (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/ROK (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Singapore (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/AST4 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/AST4ADT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/CST6 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/CST6CDT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/EST5 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/EST5EDT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/HST10 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/MST7 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/MST7MDT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/PST8 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/PST8PDT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/YST9 (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/YST9YDT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Turkey (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/UCT (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Aleutian (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Central (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Eastern (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Hawaii (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Indiana-Starke (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Michigan (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Mountain (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Pacific (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/UTC (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Universal (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/W-SU (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/WET (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/tzdata/Zulu (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8.6/word.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8/8.4/platform-1.0.19.tm (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8/8.4/platform/shell-1.1.4.tm (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8/8.5/msgcat-1.6.1.tm (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8/8.5/tcltest-2.5.5.tm (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcl8/8.6/http-2.9.8.tm (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/d_config.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/d_paths.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/p_config.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/p_paths.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/aes/aes.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/aes/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/S3.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/xsxp.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/asn/asn.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/asn/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base32/base32.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base32/base32_c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base32/base32_tcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base32/base32core.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex_c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex_tcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base32/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base64/ascii85.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base64/base64.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base64/base64c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base64/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base64/uuencode.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/base64/yencode.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/bee/bee.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/bee/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/bench/bench.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_read.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_wcsv.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_wtext.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/bench/libbench.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/bench/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/bibtex/bibtex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/bibtex/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/blowfish/blowfish.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/blowfish/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/cache/async.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/cache/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/clay/clay.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/clay/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/clock/iso8601.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/clock/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/clock/rfc2822.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/cmdline/cmdline.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/cmdline/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/comm/comm.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/comm/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/control/ascaller.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/control/assert.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/control/control.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/control/do.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/control/no-op.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/control/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/control/tclIndex (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/coroutine/coro_auto.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/coroutine/coroutine.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/coroutine/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/counter/counter.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/counter/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/crc/cksum.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/crc/crc16.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/crc/crc32.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/crc/crcc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/crc/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/crc/sum.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/cron/cron.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/cron/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/csv/csv.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/csv/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/debug/caller.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/debug/debug.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/debug/heartbeat.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/debug/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/debug/timestamp.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/defer/defer.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/defer/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/des/des.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/des/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/des/tcldes.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/des/tcldesjr.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/dicttool/dicttool.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/dicttool/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/dns/dns.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/dns/ip.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/dns/ipMore.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/dns/ipMoreC.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/dns/msgs/en.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/dns/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/dns/resolv.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/dns/spf.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/docstrip/docstrip.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/docstrip/docstrip_util.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/docstrip/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/api.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/api_idx.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/api_toc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/changelog.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker_idx.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker_toc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/cvs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/docidx.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/doctoc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/doctools.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_common.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_html.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_idx_common.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_markdown.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_nroff.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_bullets.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_ccore.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_cstack.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_dlist.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_margin.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_para.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_state.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_utils.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_toc_common.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_xml.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_xref.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/c.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/de.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/en.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.desc (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.html (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.latex (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.list (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.markdown (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.nroff (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.null (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.text (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.tmml (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.wiki (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fr.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.html (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.markdown (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.nroff (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.null (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.text (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.wiki (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/man.macros (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.html (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.markdown (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.nroff (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.null (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.text (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.tmml (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.wiki (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/html.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/html_cssdefaults.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/msgcat.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/nroff_manmacros.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/tcl_parse.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/text.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/container.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_docidx.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_html.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_json.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_nroff.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_text.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_wiki.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import_docidx.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import_json.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_de.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_en.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_fr.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/parse.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/structure.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/container.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_doctoc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_html.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_json.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_nroff.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_text.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_wiki.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import_doctoc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import_json.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_de.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_en.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_fr.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/parse.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/structure.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/dtplite/dtplite.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/dtplite/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/fileutil/decode.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/fileutil/fileutil.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/fileutil/multi.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/fileutil/multiop.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/fileutil/paths.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/fileutil/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/fileutil/traverse.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ftp/ftp.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ftp/ftp_geturl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ftp/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ftpd/ftpd.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ftpd/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/fumagic/cfront.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/fumagic/cgen.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/fumagic/filetypes.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/fumagic/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/fumagic/rtcore.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/generator/generator.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/generator/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/gpx/gpx.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/gpx/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-build.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-debug.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-runtime.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/dacceptor.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/dexec.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/fa.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/faop.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/gasm.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_cpu.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_cpucore.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_tcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_util.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/peg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/peg_interp.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/hook/hook.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/hook/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/html/html.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/html/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/htmlparse/htmlparse.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/htmlparse/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/http/autoproxy.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/http/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/httpd/httpd.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/httpd/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/httpwget/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/httpwget/wget.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ident/ident.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ident/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/imap4/imap4.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/imap4/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/inifile/ini.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/inifile/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/interp/deleg_method.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/interp/deleg_proc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/interp/interp.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/interp/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/irc/irc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/irc/picoirc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/irc/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/javascript/javascript.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/javascript/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/jpeg/jpeg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/jpeg/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/json/json.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/json/json_tcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/json/json_write.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/json/jsonc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/json/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/lambda/lambda.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/lambda/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/lazyset/lazyset.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/lazyset/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ldap/ldap.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ldap/ldapx.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ldap/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/log/log.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/log/logger.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/log/loggerAppender.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/log/loggerUtils.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/log/msgs/en.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/log/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/map/map_geocode_nominatim.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy_cache.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy_fetcher.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/map/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/mapproj/mapproj.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/mapproj/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/markdown/markdown.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/markdown/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/bessel.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/bigfloat.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/bigfloat2.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/bignum.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/calculus.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/changepoint.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/classic_polyns.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/combinatorics.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/combinatoricsExt.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/constants.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/decimal.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/elliptic.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/exact.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/exponential.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/figurate.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/filtergen.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/fourier.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/fuzzy.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/geometry.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/geometry_circle.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/geometry_ext.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/interpolate.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/kruskal.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/linalg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/liststat.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/machineparameters.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/math.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/misc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/mvlinreg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/numtheory.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/optimize.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/pca.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/pdf_stat.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/plotstat.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/polynomials.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/primes.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/probopt.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_diffev.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_lipo.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_pso.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_sce.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/qcomplex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/quasirandom.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/rational_funcs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/romannumerals.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/special.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/stat_kernel.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/stat_logit.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/stat_wasserstein.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/statistics.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/symdiff.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/tclIndex (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/trig.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/math/wilcoxon.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/md4/md4.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/md4/md4c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/md4/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/md5/md5.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/md5/md5c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/md5/md5x.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/md5/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/md5crypt.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/md5cryptc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/mime/mime.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/mime/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/mime/smtp.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/mkdoc/mkdoc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/mkdoc/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/multiplexer/multiplexer.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/multiplexer/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/namespacex/namespacex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/namespacex/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ncgi/ncgi.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ncgi/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/nettool/nettool.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/nettool/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/nmea/nmea.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/nmea/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/nns/common.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/nns/nns.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/nns/nns_auto.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/nns/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/nns/server.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/nntp/nntp.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/nntp/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ntp/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ntp/time.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/oauth/oauth.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/oauth/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/oodialect/oodialect.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/oodialect/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/oometa/oometa.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/oometa/oooption.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/oometa/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ooutil/ooutil.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ooutil/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/otp/otp.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/otp/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_emodes.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_minimize.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_reachable.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_realizable.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/compiler_peg_mecpu.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_canon.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_cpkg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_hb.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_me.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_me.template (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_mecpu.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_mecpu.template (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_ser.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/gen_tree_text.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/parse_lemon.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/parse_peg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/parse_peghb.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/parse_pegser.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/peg_grammar.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/pluginmgr.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/config_peg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_hb.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_lemon.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_peg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_ser.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_treeser.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_mecpu.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_reachable.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_realizable.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_hb.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_identity.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_me.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_mecpu.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_null.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_peg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_ser.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_tpc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_tree.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/util_flow.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/util_norm_lemon.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/util_norm_peg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/util_peg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/page/util_quote.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pki/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pki/pki.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pluginmgr/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pluginmgr/pluginmgr.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/png/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/png/png.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pop3/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pop3/pop3.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d_dbox.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d_udb.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/practcl/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/practcl/practcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/processman/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/processman/processman.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/profiler/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/profiler/profiler.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/char.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_astree.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_cparam_config_critcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_cparam_config_tea.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg_c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg_tcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_container.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_container_peg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_container.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_json.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_peg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_from_json.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_from_peg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import_json.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import_peg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_interp.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_op.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_container.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_cparam.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_json.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_param.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_peg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_tclparam.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pegrammar.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pexpr_op.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pexpression.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pgen.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_nx.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_oo.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_tcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_nx.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_snit.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_tcloo.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_util.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/m.c (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/m.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ms.c (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ms.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ot.c (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ot.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/p.c (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/p.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/pInt.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/param.c (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/param.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/stack.c (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/stack.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/tc.c (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/tc.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/util.c (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/util.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/pt/text_write.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/rc4/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/rc4/rc4.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/rc4/rc4c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/rcs/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/rcs/rcs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/report/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/report/report.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/rest/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/rest/rest.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ripemd/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ripemd/ripemd128.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/ripemd/ripemd160.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sasl/gtoken.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sasl/ntlm.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sasl/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sasl/sasl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sasl/scram.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sha1/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.c (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1v1.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.c (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.h (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/simulation/annealing.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/simulation/montecarlo.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/simulation/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/simulation/random.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/smtpd/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/smtpd/smtpd.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/snit/main1.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/snit/main1_83.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/snit/main2.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/snit/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/snit/snit.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/snit/snit2.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/snit/snit_tcl83_utils.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/snit/validate.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/soundex/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/soundex/soundex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/stooop/mkpkgidx.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/stooop/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/stooop/stooop.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/stooop/switched.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/stooop/xifo.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/string/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/string/token.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/string/token_shell.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/stringprep/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/stringprep/stringprep.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/stringprep/stringprep_data.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/stringprep/unicode.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/stringprep/unicode_data.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/disjointset.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/graph.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/graph1.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/graph_c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/graph_tcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/graphops.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/list.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/list.test.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/map.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/matrix.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/matrix1.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/pool.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/prioqueue.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/queue.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_oo.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_tcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/record.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/sets.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/sets_c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/sets_tcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/skiplist.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/stack.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_oo.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_tcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/struct.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/struct1.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/tree.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/tree1.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/tree_c.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/struct/tree_tcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tar/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tar/tar.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tepam/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tepam/tepam.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tepam/tepam_doc_gen.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/attr.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/ctrl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/macros.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/ctrlunix.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/send.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/term/bind.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/term/imenu.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/term/ipager.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/term/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/term/receive.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/term/send.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/term/term.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/adjust.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/dehypht.tex (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/eshyph_vo.tex (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/expander.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/ithyph.tex (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/patch.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/repeat.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/split.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/string.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/tabify.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/textutil.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/trim.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/textutil/wcswidth.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tie/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tie/tie.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_array.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_dsource.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_file.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_growfile.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_log.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_rarray.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tiff/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tiff/tiff.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tool/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/tool/tool.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/transfer/connect.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/transfer/copyops.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/transfer/ddest.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/transfer/dsource.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/transfer/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/transfer/receiver.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/transfer/tqueue.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/transfer/transmitter.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/treeql/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql84.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql85.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/try/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/try/throw.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/try/try.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/udpcluster/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/udpcluster/udpcluster.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/uev/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/uev/uevent.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/uev/uevent_onidle.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/units/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/units/units.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/uri/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/uri/uri.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/uri/urn-scheme.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/uuid/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/uuid/uuid.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_amex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_discover.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_mastercard.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_visa.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/ean13.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/iban.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/imei.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/isbn.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/luhn.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/luhn5.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/usnpi.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/valtype.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/valtype/verhoeff.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/cat.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/facade.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/fifo.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/fifo2.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/halfpipe.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/memchan.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/null.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/nullzero.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/random.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/randseed.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/std.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/string.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/textwindow.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/variable.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/zero.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/core.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/events.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/transformcore.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/adler32.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/base64.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/counter.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/crc32.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/hex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/identity.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/limitsize.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/observe.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/otp.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/rot.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/spacer.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/zlib.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/websocket/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/websocket/websocket.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/wip/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/wip/wip.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/wip/wip2.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/yaml/huddle.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/yaml/huddle_types.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/yaml/json2huddle.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/yaml/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/yaml/yaml.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/zip/decode.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/zip/encode.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/zip/mkzip.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllib1.21/zip/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllibc/critcl-rt.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllibc/license.terms (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllibc/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllibc/teapot.txt (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcllibc/win32-x86_64/tcllibc.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcltls1.7.22/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcltls1.7.22/tcltls.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tcltls1.7.22/tls.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbc1.1.5/libtdbcstub115.a (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbc1.1.5/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbc1.1.5/tdbc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbc1.1.5/tdbc115.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbc1.1.5/tdbcConfig.sh (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbcmysql1.1.5/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbcmysql1.1.5/tdbcmysql.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbcmysql1.1.5/tdbcmysql115.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbcodbc1.1.5/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbcodbc1.1.5/tdbcodbc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbcodbc1.1.5/tdbcodbc115.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/tdbcpostgres.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/tdbcpostgres115.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdom0.9.3/libtdomstub093.a (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdom0.9.3/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdom0.9.3/tdom.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tdom0.9.3/tdom093.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/thread2.8.8/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/thread2.8.8/thread288.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/thread2.8.8/ttrace.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/bgerror.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/button.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/choosedir.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/clrpick.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/comdlg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/console.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/README (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/anilabel.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/aniwave.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/arrow.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/bind.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/bitmap.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/browse (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/button.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/check.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/clrpick.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/colors.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/combo.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/cscroll.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/ctext.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/dialog1.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/dialog2.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/en.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/entry1.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/entry2.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/entry3.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/filebox.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/floor.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/fontchoose.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/form.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/goldberg.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/hello (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/hscale.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/icon.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/image1.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/image2.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/images/earth.gif (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/images/earthmenu.png (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/images/earthris.gif (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/images/flagdown.xbm (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/images/flagup.xbm (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/images/gray25.xbm (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/images/letters.xbm (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/images/noletter.xbm (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/images/ouster.png (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/images/pattern.xbm (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/images/tcllogo.gif (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/images/teapot.ppm (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/items.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/ixset (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/knightstour.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/label.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/labelframe.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/license.terms (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/mclist.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/menu.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/menubu.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/msgbox.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/nl.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/paned1.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/paned2.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/pendulum.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/plot.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/puzzle.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/radio.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/rmt (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/rolodex (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/ruler.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/sayings.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/search.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/spin.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/states.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/style.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/tclIndex (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/tcolor (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/text.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/textpeer.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/timer (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/toolbar.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/tree.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/ttkbut.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/ttkmenu.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/ttknote.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/ttkpane.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/ttkprogress.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/ttkscale.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/twind.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/unicodeout.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/vscale.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/demos/widget (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/dialog.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/entry.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/focus.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/fontchooser.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/iconlist.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/icons.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/images/README (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/images/logo.eps (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/images/logo100.gif (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/images/logo64.gif (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/images/logoLarge.gif (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/images/logoMed.gif (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo.eps (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo100.gif (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo150.gif (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo175.gif (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo200.gif (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo75.gif (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/images/tai-ku.gif (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/listbox.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/megawidget.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/menu.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/mkpsenc.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgbox.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/cs.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/da.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/de.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/el.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/en.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/en_gb.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/eo.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/es.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/fi.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/fr.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/hu.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/it.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/nl.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/pl.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/pt.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/ru.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/sv.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/msgs/zh_cn.msg (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/obsolete.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/optMenu.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/palette.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/panedwindow.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/safetk.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/scale.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/scrlbar.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/spinbox.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/tclIndex (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/tearoff.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/text.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/tk.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/tkAppInit.c (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/tkfbox.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/altTheme.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/aquaTheme.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/button.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/clamTheme.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/classicTheme.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/combobox.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/cursors.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/defaults.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/entry.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/fonts.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/menubutton.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/notebook.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/panedwindow.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/progress.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/scale.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/scrollbar.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/sizegrip.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/spinbox.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/treeview.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/ttk.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/utils.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/vistaTheme.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/winTheme.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/ttk/xpTheme.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/unsupported.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/tk8.6/xmfbox.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/udp1.0.11/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/udp1.0.11/udp1011.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/ftpvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/httpvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/mk4vfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/starkit.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/tarvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/tclprocvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/template/chrootvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/template/collatevfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/template/deltavfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/template/fishvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/template/globfind.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/template/quotavfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/template/tclIndex (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/template/tdelta.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/template/templatevfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/template/versionvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/testvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/tkvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/vfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/vfsUrl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/vfsUtils.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/vfslib.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/webdavvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.1/zipvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/ftpvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/httpvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/mk4vfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/starkit.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/tarvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/tclprocvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/template/chrootvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/template/collatevfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/template/deltavfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/template/fishvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/template/globfind.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/template/quotavfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/template/tclIndex (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/template/tdelta.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/template/templatevfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/template/versionvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/testvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/tkvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/vfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/vfs142.dll (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/vfsUrl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/vfsUtils.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/vfslib.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/webdavvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vfs1.4.2/zipvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vqtcl4.1/m2mvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vqtcl4.1/mkclvfs.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vqtcl4.1/mklite.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vqtcl4.1/pkgIndex.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/lib/vqtcl4.1/ratcl.tcl (100%) rename src/{ => runtime}/tclkit86bi.vfs/tclkit.ico (100%) diff --git a/src/tclkit86bi.exe b/src/runtime/tclkit86bi.exe similarity index 99% rename from src/tclkit86bi.exe rename to src/runtime/tclkit86bi.exe index 86eb781fa8465b850084439777f0dc8912c45edb..2d0698128b071802b866efa2e6b1d6fba6e126c2 100644 GIT binary patch delta 22743 zcmb5V1yozzx9%O>rMOcZiWDzSaV=Kd-Q7L7OCdn80>!mRf#42>;%>zq3beR$!z<_h z&pCH|V|?xS?W||dxz^s<$y!O~vx!<9gHIosfDa0T34;xT3xf|s2ty1*3PTP<2}2D- z3qudX2*V7+3d0V26^0Xr8-^E#A4U*H7)BIE97YmG8b%gI9!615iO42#L-Yp`00>4T zOu`QjVxetE6etaXBZP38wgCVh079f77{nPK-=-G04Hy6*1jeEMoy?~^0sz1n-USd0 zhjA;YSqRqFWv9o8RGO32Ess=c(7=dUjr3=ugz_2+6%=YHG*D=v&_SVx!T^O43KNt! zP?({xKw*W#2IVajb|@TBIH7Ps;fBHkg%`>@D11=(p$I?`gdzk*7>WoKQ7G@Bh(QsD zA^}AbiWC%SC^ArFA^vP~W;fsp9?CrlTpS!coL9Iw*w|wL06+{q*!>trR5%y_2m=JE z|AKk1SOWmW0D@E#U?h?6003*4AhRdFMnXhB-xFbZae02hEegc+!8^%E_~{uo9_ zF$~}iaD{xd<6nOtbyu|9D*jD4r7Rw2q6&FtdV-f ziinQ%Ob!4PLtpYWOLu2;@T(J3T*zUV<~w$jP?a1QJFj&GK;)YSO(|UAbWk}- zf#uEg`pBiwl4( z6zRR=LjqI+ETQj12*IkJ(FI1(#{^gmrHE)~9G5aOWJ({30Te?hMv#yxWA-5M8ohiz z;@de`0?q-5?ne`ZZQ>vpu4`CS*y>=tT39sR;v8siZbSz=b0_c@Jrz7i+&k0yNUUHu zz!zBJx0BG}9UUx8{<v$CW1)8x+SnOuj(NOVdjOI$Pq9|bFgI2 zg^{V07LZg*%Ncr9H|YEU08XIuE7DEc65=LpRq+Ha2{RWbf*uq4FBotS;|1e{MmsSaJHfV7*&dd4#B7w`I&h}6oAY#sr z^ig06DQh*7AVj@uSXJuOCFseRU<9+g{tBxVICf0m4S-DFI3j0aZUUZ=U#2~24IF}G zN8~}W6XYP-x%)NZ3ZMfE`a0Bnb53$W4uN@}42S6c1tLf1g4%_?4(LPx0PNrZ0BmB2 z(T)qrH8cY|4-Q$gEHe0~D-<_K@K5(x735-AcK{+O^zz`bdO-1n;swPUiVqZDD1K1< zp#(q)gaU-%u?7`TV1~YWUk``kKH32*2R(U6zd{g7HhM5DLoXbu%b!-%3;<+lFX+M< zGez$Tj=>@!#Pb}EQ7jDdQ#%-488b*V6OJDkAEI6lC!kUic~ue&B?L++lrYFuNq9vd zRtP+7AKd%EFTvK$a8gKlkQ(|3U=3P~!7ZEu{529&3m{TpJ_1T4L|{J3PXcUp<0y`w zpt27~q4gA`)(c0;xSMFw21n^v7Ku(84J8JGP8$0I9SmfUkHq^Ll4ywvW&G(3SiCZx0Q=uQ67Zh^k7#{>$gto9NLX;<{weyu zpPF}BO6B>_y3+{Z)5u3cQ}}sxjJ#MasS8RjNI&< z{-c}g{}|ZI)yDnr13{8`DaT;&U;+R8Ke$fK#1Y&;5-kayV~G6()(=h~VMs?)#r=UR z3cG+L`YICfD{L(y1}p$Dgo=px3mXH~i0q$dp9XTm1A1q#=sGwp559V0d5kHm?D2ff z`GUgFT0w2p70uheOMycMANl)m|EB5uaDSGW zPeHsu1Bls~k`e8WIh{YKWZ2ObZK;YCeigH*Kt~Jo_u$6OrRpw?Tn7$ z#R@(W;+DzdDT^)Jaw=6fi~}OnhXhY4X~A-eF5oQQdmvTla zeGZLqrwKAMsXuiDJ1wu{t-bJk<$d2jX|C@3X#R|*^7&*X;4H0AP^OBDAy#=twlBw> zzz)RUnhENVvWbo{(Wkd(3?n&+%Rl9px6?1Q{JMFAsk_%{@EO=)?J?0NNEEGOZJ#sd z!BNCAFsaz<^nA0oSb}9AF*aqqBo?PH!ykQB*O$mwJUd;Oomf9~w9tZ$P{ffwl%A5D zsgn3go{9=>ef@YDqD8p|6bkmwOmmTqC_WM-JbpP*=1 zNfe7S_!Cn%a-fbzrxJBW1j*-hS3;aY7ZH&|KHzrh50SxPcXN;W;_~ZvTI4{jFOk4( zLVtv~JdZu%^=ZDPw(A_?AC% z8Ty?vw1OlkOa%4V!MSC|5oq~vs>;->uP5MuN>UfWgGU5j8T6+u*=`o}L=lCr7r4vO zwwsk)ELQb2{U_p+T~ON%$8mmm&}9RQ>iXWH&%6_t{v;g!_~dL9lO?`{kN2~1EeuAE zyR1vysXI7~3{8?mGN!zFyMLSuwd)7_Bx3*uhK4RB;I8On$cVP33=`PnK>~OydJTL= z17><}eS2!}J5*7*uGQ(K-4w1o)Jm`GymW+=DQ@F7SXujFm+^Qz5vh1xuu~w0Y!36HB zVe1;Wp0$^#P3q)V^^Qj1O~w?L7XoDLC+da*pD~8rNOsjL3TW9ki8b7R>2p*k2&lbN zD<5Ez?=qef0M&c_)M_XC#RM(m3vlSkz|Il*%7 zUUlW}(pp2(7V!pw+_5fzL1=9jJ2-vS8Wj>%ezJ!yW2M6b`tF;*8MFJx|9InPHci*~ z+T-P~bAGZL&2M!QL>J4z)S7N=C8VLeh0|x|{(+ynjmt}WdQ}^N!${pU6;*c~%FA2_?HbgIQ%5bXVMc3KcXZ9hd0#WN%! zqf26$Tm7sZEx~u~>PlU$Wtf(6r_LXJh6L5qT(B{B8v3h+v>{c%PpbUmHyjOFvB|#} znPl-ml4dn-zD_u)rSj9X+Kc*osnp-7>?&l-59m^8LD)tJ<%!i_n|TqC1@2sOHl@H) zF~+{9dW3>xJ^66MRG2I#*Fol0F*yGUrmi6YfBywjoS+cXItoZV?-w54kV zpIUY&B!i^Bk75cIWr}lf*km}MOOwCx=GGpKSTies9bHEHM}1KCr{#)7QzzJ%Vj-%n zkuf8$k7ud(&Dj&YDsGU%`cws)N9~G_XBcyKLRs91#qN>`5Z2d>`Em*Gpq1J}XE0LP zi;AI^El}yIIQ^^I(`m&~jA(`Kyx_`K$Bv7xkbBiY>6<{6cdU)?*bp>?Hn_(PTTLZP zDZ%@icV9WlAGg$e%$GE1aj|kCHDj=c(&?$>nrYAZ4J)r5>9Oo9d?E!|cz)rEPU$X} zpLffj&$3bw0NW#7d{%WYm-?~rDBj#luXgx6pjd}Z)uWK~(Z#f>((`kHj6SIEw@92Z z*Dgfxsw=Jt$#P*7@bziGk;5D!dp??yy0(l)E?SuZj%<}Iu$rZK#VTD04U zTITR8Sf<;|GS4d|g{yP7x`Hma_J6~3|D5T`i)TsP1;(a0c5$+lAGT<-b-t^sFex5y zwYj0rH{KYhSYEKtIX6c!km9@B^IW) zR=KY7-vS$=)yW>SFl~Q_6D2cF)O#qDxJsEoR&16v;;Bb2SIpd0EhiYAXl?JB#0HH6 zbxi|u$C>VCnPZwFiacwq9X2;Lwi`=XzmXb{pK1=+k}h*D>72=R*mf?T&4L_8Th0Vx zjSud%@!qV~02$k*bEBMO%v^xD90BIyb&X926F}3D^dXWHl_||^RgOB@>r3mEe0pz) zng2HjhIDpp$F|z-#`;LY5_TvblK*P67M<`tgj<@_ZRO~4E?awI z^_9G#_;ct4L_#Tr=c+yebTT7NPQQb8GSCx^-X{zx1rn^zaJFNd@a0ji#cWj^)|9_;`t< zKzHL??Tz0k^jcow;j9(}V1{tlL35?iw5bgdwq2!6Q@P<|MD(;OROfo;rr74 z`6bN95}rLf2kX%g``A{52C{h%ly+o(FuJWYgAlxzky`}T4bj%bli~^q$h$bD*lAVx4qp>I7PxgKG?_A4oA5$#AaJ%0VR0a>Dm2SGo6fhl5aCrjT zqj74CEOK)@S1Bl4TkAL88VO7K?EVB=Zr|lC=7m~&QR{lKEhiUs%L832JXAibb;7jT zF_PMUb(mk7x!UUffzoK_+yHJws`A8aS;9LzeOT+TbmQC8M}HS>%oTIszJv5Y zwqn|L7_KL;O?E%0X=loF8RUGg=Ig#YBo_pV(6dsx3_h4lm#0UEP^QZ zl+qQ?#Z6uIi_|-ug^fi-b&Ir8AK&e_6~^Jk;uN@T5?3?AFfhj$RGoX4RtKi0Ne%t` z1B1=o%pTxuXC>!oZs83EqG=!?K|?RUG{97Wy13A9MNKS+c;2M-($Jb`N=MPs}MP-UrRt_cEWr8gD8&m1YO$`jQR<& zez1XETqmh(g@#?0mO-88) z*?C>ppQSJ<4R(ass5ZQ-)L9X&N$Qx*Z(JETKyE>1rkhUn7>cpi9J!``pg~G-S6^m+o#1{ah?TOP-nAJrA zw|t6qGR3#cs5e98-e8QK;ID_z5nZq(tbI!@jk97;=a*%*|AL=Dz5CI(Dcmf{Haz*Q zR3@53N4@*^N$plWEZNkk53Id9hT3o&74urBV*w*cSx&tQH+V^pCG5^=OkC1z>;g#n z$7XECCqn6l>Fbi9nzgc;YH#0qKRMc(67aMg3W0^^OIZN7H;jB1HtilpR@3(`j?gw4depz=&@MQ1Y{#6K2ap>O zji4H#?x5rtsWYGA^C|7^7iQi#y(I@4t62Z*48{F>K9|U!d**Y}cbwKMhVA#i=Wl%d zABRVi%zAh5oW(u(iqqd%Gq@d2Z-kP=>W;r|3o@)G93#`C-mR29ezrWr!7U^_E>tm^ zVGZ~RG_q%r`R2jh7eb40EW>9Ra|_gWG}cRNW!qBd))JSP|BZf6Kg#D>v+%pVtKc-) zCfwTnFuI`KW(`q#J01O*5<=3=UN(53sfA0KW*o-WfrxM7;38IKfD2-F6CUx$GCP15 z1nyxs-{wgn=)DuyFm_zEh?8%}O_PyxJ^zaE!%VUBySh94V}@a%=afJE`z>I~4DSQ- zny6^;C67w;#-8qQ|I}R6$DMe&S8D}<3|;NUqGDxa2E1EWx;V{*({!7#J=3;lc}dDZ z!JiPnZyXi+{D1mnkRjg4o5bB%$Hcz}Ci=IQ!(F~pO+&Nhv6 zq%$!?-&1)PmOiEQM`1d-F%Mo z;QGSDp_IJ5PJD~jqL5wc1GgsGAM{NZcAVO>>uR0dV`V*m0OzG-%gd_wcQxfdmqaio z$O#en5__qt{Aa}bFYywAR#*Oa;NQ~EEmAh%CF!q<%l}S$jno79H`O~kRl~q(i5)Ls zyt*k=5tcjeH~WXQ#E6&ncB`&2o$=x`U#Wt+08hid~tm^-oM)Kk7|3d&qJ z`=yD~%WmnZ03?U>Y$N}S_dhgP!sYYUB0((DvMOJ8HO*tXDOoF9tvm}I*BdXcC@sb(FrV>qL!?ltC&sw&RZ>%*45yD)5 z1!HJ;d_wLC8qhBgv*3v6$8e64+Fo!DfYZ_^;QMVLIj!MFGTn1soDoN^6Npu7^M%5< z1q^f&J$?F}7=$?X+leZ!Cc${D0AKl&_GG#=AH%H(`l=|&^+!(W%A6K_iyy9HONhan zcHHU_L6TTR%U)c&K)T{J6~y<60ae<28I4%weqxtE@5xwi!4Ql?W;{WIJ)HUNjB$*z z&qpi*BW4D&%#6;+7R@O_!KxZOGoDH(cH&x_PPX;onxpS8f1W7Ke25Jn1yM z7DslO1oCuPtwnKj3WgJMs?o*jZRtejNG8|S=W6VPU8LwK1Q+tFM)$|KDnHAnB?;9( z8F}QD`28GGazN@VtB)H#DLEy249NIfy9fF=8=lY=z3TKkgO#Y@C5gn^e0ZWWsX+Gf z0NhagE0kAP>r1QKw3Vmp0vz3Ab5ZYLs4(QbVkGv5cabXX=U3n1tDs4Qq;4e8v#tl1 zbDfPe=J}$}FT%BD$Vb1aWeQ7JeR!pK`dWPdvVvY|#R#Z*EgC-R+Ja=d8*pjcJ}?Ky z${eWkOfjv`uL{qSCAg?|9c{=g6dL;qbbFj}q(s0~>dCu&9LF!3y-`!5fd9qL8tEJ0^{)DZ>S_#o%Bt%hY;CaW1h4Tv(O=I%A zcAnybx1(}ML4glRApveNHti5H#D=X?C)<1>R~8(irtCnQUq)J=^HDlR3jK@6FO=&+ z7{TF?+4jI$f$GGTL%0E0sjr8yIe*PuH+y-f|HsTnMDF^pnHvNxnFHJdy`hhi&_`~0 zMO5ex2B!pABshNB8kz}$e%Ll>(USld?CZqI09GX8q5wC!anl16U=g4hQj~?zj239d z6V5oaXE2P!xwbE~m4vDT69mKap!*)`3E77l5GT^Z0{}{ZV2=wUgiWZW2u)>MFh&UO zerYn0=9%z}p3=YU)n0``0pth4xQxJ{F@U#-0RVbbM#?SH9;n@;0H^Yb7ai3uwEq9PbpK_(4PaZ4a-x(0;8Dx5|8?J>CeuH*TbigQ0q}2!?jMs4;2iX~ zwf28~w154x|7)E6T3-M7Tz^?dcu?CF=5IgC3u?gr?NYtCIlACMGdo5w zv$H+%ixuI3`L`|hud@VB_~uLtd@;}dv9130z5eltJOKZ=ME`F`=)c=Qe|tawnm&KK zJ^va!|2jJV+B1KzwOFQs;!mr{EU_VsRn$CI1P$u zm!WJd^nUc7>;8l>a~{< zhF+fh$my5p3fMCX6!8|?+J2F{K_OXC3;TO8bh8;01>J7FY>qBq zoK@FCpb5t>W1NDSvqA4)#<+gzbPIOR2AM%6To6>kg+SJ`LA)<#3m5&O6Ty@@ps5#` z)(WQv9|pe5`RfGWI}@R@9~_elDu+hlXQ0XO3lQNvklssY__YK$H3Sg&%NLM1R3dzV z9vPtk{Ob#->_t|*$SQD7KFIn-Hb5m}Bm}GA@9Tz`m=4vs;IzWO4uuGT9tyD=OkV_| zhGrv9RKTerC4*IqKw?md)DG>8)Cb;TO3FW-b2fB|$oco)^+NII|e^`z3k@ zmB>M0Pzh)PDv={!WHi{m6jTfkZG8e0lz}Lb)sWMngCOUCh08z^P*wb*D#1~I$Le2H z3%L4k)$^hT!E=ABi5Im1e*9ZO-<4{}yI|UK5Dj#clTB( z{mMa9$ZDuN&?k)g2rm3fp`}7&Xw~4+a*z$O8rsYAL+b^LRDdX;>gDZ-HVQVc0NFv+ z%T-6a0MA!|v=Kni<~^9Z5+nvxQ%DGUS&`j~_Mnf@kH?~dzds(;sJyd}U)(-voENu` zV-zv@)lk|pGwR0DfJexj?BTBI9!}S*IQ-^hf@0YSeO+Gj$Lp*`LRTi$#*egM31>$$ zg`XLVR)(IQmf+Tj<)dJ9>bvFD@Negk&d=R({U)@VOc%aD=j<@DVxe7P5OuUkaxK3R z?V?6!do23rJhVup(C+Ep&|V3?nBKT=WQGJb^xl|UOw$`rPvZK~B1%(Wt$Rg~zn8aj zQS=hy4zjCGoZBaRG8b%qbD>f1F|#2FqBYo16?kspVaJV3DTGsIwmzvD^jr(^KV!*^ zwA+>RlQpk_SWhy~&~NaNd$Gs*Ki#BHwb;#{;Mpy@@v~ed!^b%>_pGaP??fGiv_4`+ zis2~GPnaHi#tr;Pii49uXD1`UflqL+v4?w7mo&|x&!`-fm+Rdy^t+V1QQo!b+p`wi z;hhm4O*Y2p3bEi|3H6B@$cf5I?fyst8c5uux}l2(l8iU8)TRIC9%R`JDym6&kk<9d zq+oN+NU}4>p+n0_U6Ud^BmEr>hbc{S&u7MwsVPbUNbH?VBc{x$mYp8wTcaJ)#@k5w zA-yfM?nX7FBIhqjbDJtVUO%&AYheAu$LRR{SDz@drJ}>E#xK-{d_3ci%$=SkewAflzk8(W;5Nm98Fy0uF=BFmKmdb*Lnr5m|=&TW|q!z2!xj zj^OY9(#_Y(-N8?*r8NYLh4u>5GD0~&GN}4Yi1t;JZ%+0{nb=Bcb0kx$Cv>DSjhC1M zg1hOM&M_2%n73t08g$WV@R>BQ4aq3meKk;3bnE5u5eHD2*Gszz%#oIKS<@_jHF6WN z0Asa(cES8aN4)W)GJO!X5=)+zxT-ZCjM7I=<*HY7jIU#na(`%xjSVaH?4}_&W%AaI zC~?13;S0Xe1fK(@Wu{PA^MgrKcI(3l2$yroWe;~{nwGc4=kE~6j`q_J^L;n zK79ps2vKT3gE@OY5y2pladswqLm+#{F_2MMkhTF$Imfy|kVFE4=H)do{F!89Wkp~E z#1MgvPDOnxE+s4P*}8Jyv-?Fw%)wKv`PH{}OthiBbR?}^QWO<gkGg)bOWp2uFijv~B6KKMhN)mvpl@P#x=|Cb0e%p5JMvZ~Mmc7KOoe}I17 zbrVX;ahmzx*yZn4{MW1~$g1^9E*_Ld3)U)wtq<0$UXwwHcvHRxThFxW>|uyhT!FRb zx0~*{=V+ggc|IbnX*xE{Ji2sGpvIcN@?3urA@OF$+JlrJe;?@)`F`09r$pmE3C)x#~64DCu}dQ zHSm?}u<=vTcW#?ehvJK`X-mL&jaunCm70Pg7`C@Oi-@UIMh(mk*_Kp$OvB|QiVdjz zDxsFKIgKA{$~R;*E0wx+8(@d!6?GaK?PfuBS@h0zNr5W6zIJJxWz86AZ1or44EBv{ z!35>Z^6bl!g-hAPIyjp87Fshuv276Im?+nXG6?$XB|3Sd3fb@LAMb(PAC^%Plu_z6 zmaE>AQLYz!PtUdmJ?lM8v!39IB}|Ss9z}F~yb|(co$-5=-Ntcm46Cv%N#*kWB;QL~ z<`$yt@oD)I%p^`MZH3S3SGDe)B0)L0Q>9DdP*&AMWzo8L@y&b1yXoYrj@vE!tI&go z@ZD>2lZWI$EnI(zF|9!0*Vfg>?u5P0C$+#&m{ftPodpk_JDwI&mvQARZtpDyD8_y} z#;nnp-oWx?`LR_eEI_iWto+5SR%`k;eIp1ARVeo; z@=o;?;qM~Wj3w1RN188jNqZ~v1kMawtdoCBPXI8$cH=CoaM_aqlg(bi5~3W!cVv1O zjby~jhrq|il88}$>Fy!RKJB3_y%slL5X0ZsN4LPYNs98p!U&JIbkrqI4oj6c`txDG zPgxP|*RFr&7lzvIQJR2pf)ACyw`kin+T_oPt*Fx86{Dpz&W`%zo%%#sanQ)uN%Gr?>WORa2_cz|FW#Md15xdtwXMC`YX0bEs{my&E@>|9X$!l@M5YgRX3Zq zOLRJF7j+sn=ctYK{mi&iE@8>|yQ(ds-ao`GczZvBJ`{@Sh63UC%oBq8-R;Tg`EKDs zOCM>%ck-MVW*RiUD%zZo96W4zCQ#Kl(pv<=YQGa9Ehw9dH*&o)&G!A0q9x9zQlO&O z^#+fQXwjV{=<}(5ZaSlbr8_-HB67%_4K_?h=Uas;LJUfO)0#?0Lf~02eIx~qSrX@Fh4V&PrF=&@?J+$Ly}n-AUi;V<109=Ax`B7ZJ)b8|~#~upeAY zV5r`T=n}Jm+pYD;9eaH;)|XUTxR1oI$s}n!EGgp~VT)FP@FfOZ&2HIy{&=t5_samI zboA}$vRxf-uPX2}NRYL0D`z71voYsBbabEnTBMiYa`bR7M30M_-?-mxUcww6obWU2 zojrresCh?JCFRjuNlIFQ+k#7HC)W`6q;9|k?#RWN-bq&;z0)Ioy*jYxvae5Bp$BYQ ze`h0&^05yD>~ri$cu*ofUU~I^nuF9d%bQqTZs5VzgI&@t!)H=CWQg0rdonl{I|SFI zI^MGHvDoluw$!lKy7y-3m1SCj(H$HZyyv0eAgwkVN#)(4*<5(8Nn=D)M5N*uA5gL_ z@Lk|_?u4+_?MNH0#A$BaddZWh^xR(jTkN(CDpT%dpu2>>szqmE>iV2AA!k&C#Loju z5H;rhGzQDHrpRRc2!+;MO|FeCJ{otTTg3OS`J)yA&tEr^VR|#JMPqaq*G4t3^4QW0 zQ(w7sR}e%<2NbuwKH{jD`2Cnv^mKZn1< zUQ_t2TpMP_S&)96(md=YfLpAUt~y>PkUDlQa0Pn)R*iB2Rly8UnAYLflG{hv%Ro#T zw?^}h_XTV};*0FzYD%ijhN+X9s;0YKqGknTh^5A%XvSpdQqG`WW*Kqn36QpDbm=6$ zlP~wV{NWjW_{ih?sL<{{*Hm6Hlc675<1dvscabM*orQ5D%9Ldn`%+iq!0chihQDt! z1-`16ln=!|1!OXY*UoQrEle(A%0_j95SM00toygx4;jo(Eopb{W6a-<+&F=Xb;w-m zO}aW(Feuwni)WBYrAz_eGGU*+YU`V~PXnk%MlUP_F!FHL9 z6`AzPVEGGHGMa0-ZS<}Pd3vI9EFu zDfkMVGsPqyMu*X7qyea3hf& zZrvBrd(Yfm;C-YY0{3r>XXd8e0YqT>H|zd1S=GsO@f)SPN0O&0VlTFmk1>Z;WsIN* z7aXs|WA}0?%PZJ97PUn~$+#qB*rB;nl!zc&7;HDR%_CVXXyv>v z#*QY%f_edGKttnu@dTcHkNt{tJd3p>+>(T?m%+iiv=22@GuE$7ZwX047L&_IT#0nL zgce53a-^6>@(*Sn@8D^^b9n)B-t(U!qgt@n^ifvMUe12Dnw4(WOu_d_C^vcT+Ls$J z{v8?I9ZL2q4&6*q-__!Sx^N4yDCANKP#%Zwty2QIBPwv?E!qq?p&Wb3HWXnZ);F2_-hbQN|xBO}|Gbrk>h-2Em z%6KSSwAIq8v`B*DGT9I8qfNG`6dDb*v8sNo@;QIhvE#Tt*Hc}9Sz2EL+Dn-@7~qj8 zNn5n|w774m3udSXd@=G&@%WyEwP1<))%YiB0II%pzO#&2k7{2Pzrb5fcOjL6eb(=O zoO3u=yQ4+HJbGu=xOS(RCk<|S!zY~fyIJ9L$s6yFy)?VzbSoCY1B%zI0|^Byu(zA; z!*zIzAuZ-^Lf6s4+tIUkz&{*6q`n;QiA~|DIr$Rli=tQll;B*KtNz6^W7V$5q-*PX z?rt?>@m9(RUSrwjGuU`3`_2!$iFJWu+2xPvHqk*=b(f{ zEVi`Ilvw=PA;H81uElzOx>@9swCWX;Os9sQu$btp14e<7yvcAe{vN$neYUswkF%uO zSM2ZbD{?_qNa*NtKSJw|k=Gh=Q<%z&9ZTIx~|{ql}ycO zQL3>>LvPMV)jIkJU5uW|p79lAGXx{TzDFv3|9sT#GGb6HY#d}Lh|3wb$rw%A?@E{P z-tBg+wYBauAC*uLw%!sX@P2}q+be6GT57GESAXr{_JBm1`k;c3So|AGNy}RkMqHb) zSPvXvj}g6R{hl<=CVXyq%=4CTRFr2PM)qTXkBbLQyaU2A((qgKe-Kz2zz}Ni)DzOr3U@WiYh!;(PAq^BLSTe3LWX z^QbAQASXNiq&7O8Zn&Lv4+i2Tcy8S8sFD+XviyTyl2UdQ$EMh)sOWlGda-;T>JzSiysjm><*{?y$a@ipw~D_RZL5QYKoZtW6j8D+olNZu`= zTgD#ZhN^DX2ce6w&<;h5DX^R*(Nwf=*p~q(6!}$!@MX@G(6TT|YN6~gi$S?x?->z% zyO1^2e$qU@=AEO$kMe{5?2E*sN-OEPa9iz&OZjaR)U_+cY(Qno`&KJ%ZVa~SH;#M~ zHHnMtmjV{4Z@5V%N|`Vb3*w;$$DWh(KwY6AVu!?fisi&x0`90*h3?WMMLIQCQLX+g zF$YXFoo4yuWvz)Cx%2Q_C6T6{o0y{bp4z-L1=Fc9;_w<%4K`PU5Xi|a?9H$&I0ODV zDQ&&s6*VqL+IRLNl-Nj%JXnIIP^C9Nkx3B5D7GH%r6$?Uu3{GILinO(36$7+fJ9<4 z1&I^JU(39hMkgLELrSwvg{7QmnlNn1kI=u^QLFjViHAwW0fa;%c1CrGdRDS)^EY$4 zTdry)P`if}oeg~H4e_j%Vm@AK*00MFF7t5rQoEgJJrKF%f%lhJvGAb8Sh{4j9-W|EEG zG37GF@?)hTWhO)QS!73i*A!uaw?wUM4%U-ec&{!*wP%ky*Za9&ye>QSa=A}UC!r>G z3zyrnd7q#EAysl+SIyuC0Qt6DNHH^r$NaGrWa$6)N6@IRN@frp#8g7H6qq(@U6b;8 z0G(easmd>3t#{QSnK`4{$64?>bwsC}e%VY|ou;1~vu*29YjqmxI?YEZALvR%;)SfqL)UZ_djU^_5#k;s#gr1)M$g3u& zpL+7@i~X^a{5b1!=&*h}Q3BW30~WdDr!gP=us)DhyN5aaW?*(EQxy(03UwPbb z`a2<%I1OuTF6fL7gb%u+YnusZ&+6HXXiH#MbCa_kMUI&g#BrKA`yWM6mGn~aP_2c# z{;BCyFtGQcymX(}m;rOTH%vO+$T&LeHhX;wJNd|@#9`#2P zTXL%}Vc!nUEn%#Eh*1QV&=porJ`Cs~+@DFxz;ld&uoO-3i%~l3q?PW=rX-*v(a zL&_v9Rf-uoKuP5r$^O3imF0efpWU~oi%-OHGGn3b({A#0XkH^Z!|H{=RNU{^LkU&N zRz}dfrm6hrKD{Pz0g|~)faI0iT}c@9`o{aL_HwmkrIgo(@zpSaIVlQ%0@jbnN7V!K zcQ+u}k1><6h^3I9S23-u)K4NOZ;kxU&jszt5pUP8L^0h+kN-a$YX}vS=wBab2K!fk zR@r~m{92OBQpE}b@*j*0anL<1(z;kGG!dZ*hjz2c~$f zHTS@=R_b_#cgLjfw431aZeH}tx_r~cd{fXCa==Gy*D_r@rtX;Bq|j+eZ>1|TYi{bV znRHt{!DzlJmpr-n7EGuW@Oe?G2BB(s1CzYX?->|)y1vp4L*Boo$gGeX!_Boc#XUZK z^7K^D{EpmvYUuPj)$I1DyVdVI-uvNKi)}aDM0avu>UF5-gVs~(^StOFb60ojQ#e2f1S;NH`^DPDCJ0B|#L)3A? zS-CXYW;&51nn62!rJ_~tC>F3Uwr49M_)S*cQ<|XyHXvPMQ@wVJ=&WrVy|{W}-pHN2_9iyahmJFkSCUD$ zNbJuCanl2pqTKLf%p1)zEJkD!J$E0Mz`6U3rAjA64E^LHq^aN1syM3!&bw@g3#hRz zHQS29QUV>rCHg~ea!)KhLZmZ7EaFD9fY3kSRfS1?H#(P1Ovq4LajfW+Ia<^=<&SFu zgJ0E*Wjwi+Rj**E-C?l17+D*Dn2>2lTv9H=_ZEe@V#GQw9ZXUS+5+%0_QzlWM)}3>Xh;eSwoV()Ht@rQH99ri>obNVp|*#M=`a4a&4(;ZkrtSGY$ggn zE{jSU{09}L{v?$&{4i&=5zVFeoNaiCS>b&o&`HJ-jsUKmmwd}6g3_#kV1N@@3OYUP z^iuWdn=8uyoi#^vt3_GeVxiPZ-v^-^R*qV;J_vB*!vjw! zmq#_0jfffn4OKyE?GQIfVa#Y6I%)U5sQ)nLsMLH6Mld@Dj=r;c)=(mwnN9H3S^~!b zMXh4~$Dmk-RtS@jNs4yy%;s|@R(=PnMrO!$e&0@C9z*j*s(r(Wi=*^s=O!D6q{px< zZm;&T1T`H)Bago8_mIL$zB6F{xaQ~1!=^gwWq3xViGVsfh3|IzM%nt#t>QgWk@>bq z`31vV{#m0n)Lxp1=GBEjDKQAqBHJI%F)6Z ztY+PE8RKRVt0WH#i^q+*XsP|PZdED#2KBU|rdi?yXBHpsZ{ZOfv=P3#An{KpE+$es z*{?@&G0a_$7wsSPza|0mE!FzI=)H=*tCSE=j*Z{QrJo~lgk3#QHOc32XQ6SMv*Rt~ zSj*X9QnBQctT~}y8UXg<1o;>h=8shI>`2h$ES_ooeDm#_1^q%ggZqkL`!Qwi+7C0P z1ebx&=8r_h=)W5^q9#ypug(rPn;70aI$kOV4rB-Ff9sjH0%fEE&oMmTw7i=s-Bs1t zn$|U$$F;01B=+m{$k>f!UGEkdmzJZoc+(1BB7dQAKrQ$IH3d1nG9_=NalU?L>X6)P zsJTht?%?9;=Al$8_7)*pX>45ixi|4V>cfD|#Ek;6-o3JqhL)qSAWt&4hF(u@aIS?v z7v)3=aYh$t8Ryd^kg=PhYmi(p5EP3V+m7N>d%{6#S8W|rLCL{ll!*iSI$spc{Shpt z>RRORYNwIes8GNfgy1`eCev3hRZ)Yx#dGc^($y&=x4SKBl$(35!3EG99F-3vLe_~O zP6{*2mE(`~MGz9+zEOO!g5^?a==#ff3ntWEV#z*(QHzyus?4K{KU+ zQf{L{><1maEI$j@>l!rPhp&v%*VgxZoJ0={Z?x)LC7f1%tw*MQ#u_8p{dJXv4-yoz zBMAh!_6zS(154#*@K6K=qkjlArBWaky_-q7a?lJ^(GgG7V;2xJ6knz4&;fbPKa>JJ zM*^MPzpCmbX%*k|?vZp?)3uUaKZ$+eohl+98h3WoN(}}bd>`4q*%ie;^;|m-RlD6H z)~rYBz&~Q{y&t>pa!PrI`_!Y`@Sk5(fdBK(x=(-KS@(`~MP!vUf_%3x$D8&vk}%Yl!G6nUi*-k2WP3J;^R+v9>-|-6 z(XB%rnq(S_8k?D#ZGK+L-b)eiI-66C#T2>SOxar+6Ue7cpnh)H&pZE4;vAtQQ{v|3 zHdlwlB|hvY#lU{I-+(?L~2xb=;0)ZKucq3Z$^QgwV&T> zH)#^SroFn!u*%7(ZDl7z7i0MO;AhZe^l*7d!K+v(glk8Hx#5{hU8$O9F0dSn{FIcz z>vru$2_*P5VZZNTWAXN&*Ig*%r{ec%rV+_ENle~)+nf>zq*dqE+;^D{-#)d4`wE(l zZG#WIkK%;Hza-u+8M!%$E({k0^9M3Z<^}2!k5B} z+e2xTkU~Vh8RV0kv`NmnHJqkNp_uUC9QC|4JOnZfz*XNFjja80O%TLeIwZykXjcA; z`yQsqGM8T$Q)5&npRF)xM<7PiZ-_6lix^=5HI1P|j*5;yreL3ZnObqZ`^eot^iR{c z+CB#Do0P=#4*$i|j4w~INE_ehVe3Z1rI}=_FwV$|?p}Ev)zpWn75bY~_eLXglCP&!frh=qWl!@zGxmIuoIec>Hfw8-L)lxxzjZYQg*!viM@LB)5Q z3fAiumfrD+*VF6cWjTw2#iJ)yhqU-um}i4{MxD8XDtUB2Y$Mg)uMIpVRX4bM&&~sV zu)Hzif8%uLPug0q;n25gvu#uGivR5HuG`h~w+gH=kQcL&jOM4zEf1%LtGMK>AE$2L z6{;yRQg9$&$%pBNEeH4+Haosxds$SFb4};bPmU?ZMOZXCH$Y9bh7Pwde$_X_`gMwc zEq$AL7VQ$>AsiP}xh1o9RJ3CsRTLZCd()lKmlIm8l>w5C3G(ut5AYJkQ^nS6bRU>~ z?-k6&$b7O+kV|a8$NzJmIzjwN-g9=@95#YzMIrBf%6#Z_XrrWQyA(xA0HiW5Y?#ZX zE{Sg~XDzC}7}xcBN94~6&CcWU=G>Sa#Kxr(bU#NU8B|klo(}1E!pO@wV0Bt#mdVu7 zynocU^J7+=3%e*TkvjsfU)+2h@BgiLf5vDIqum&>Wbbno3Tpx;=H!i8MeoU?pc_qaxof_D-;0~f72KN-bV^A%ikcnZRs@4#>-C%h{ zz&z_Zy7b3krd~bZ`wRV~afyqQxKt8tYtu$XgFkOicSfsA4=XR9Z@gZr%wvG6&t@SN zdS^}1F+H!P$xScBUHyd|6h~Q%q|e@%NymAO*p<+Q`jePeJP7r@qL#?kQ@wuEO+{^qp3>U#xacpL+(u zkaLD-r{#_k@2dZT!@}h#ykc&}b}|!7R0ZvWNA*(QZNO}vBy5Q{gf@hq3s8F7XO@S0 zIKE+V7nl3~u=v)LubyW5O6Xv1s-)~4{Bj-XlBZpxxs$oS*ZUR>hA>+YcDZP9W%oi0 zCDkoE+6Oj5*>+8aWUgsdIOF>hk14Un7EXd}feVfq2hEqlL*G6n52w)P zy*1p?IP&;hn=tj#d$zze+2bV#KWm>~m zZk>!BaNPV{(lMND3&(hg$C~CI2}jvKW4}xeS`BX0X7P5weybA_lGno+wq ztYFi~_=p#pmvSIgBc^NT%y1889l>LA^<$b2vZHuZDVQC*v1u3M007(u+5P?anwxA5m18W#g<9d&Z=H24OV3*km5A_PJi(<;|B4 zHry%jN_?Akd5=D%i+P2QBX6$7yK#}b^BK@m!fc$T?XaIL2~(^)zMK4eQ(9eXpC^KU z&-)2!NmtjTwB!JiiAs~a@oKCDlPz6L5@m=Z*~j=e3NH+;lMO3&gR;gfh-PH zjO8F#3s`qqcuV|_v!`{Nx{eC_7`U3#Qdk3~hF&wvn9a{z^#YT>*^_ufHSX2AeJA2L zGJ7o40;ML?l zJ0nXvF1a^c|MN>6b>3^}uX8lOMS zWH|1iKU5;Tq1YpagrJNj$K7^C=Pj@VjUUHduO5;^H)*~}ha26O;Tg$o7O`4R!aT~- z_`+vISN9Y0=$YfWpf|PK+dvp4tsymo(me@v-bBoe@n@Th(d~q_Jp9;{0b}LGlc=TA zYnRBFxOgKalr1&2Y1|0!kUh)-A$PoE?r3D-to-5S4|<+2IHIcr5IOpazlXsDmQ}xP z(dS-r^usWEt>1i6x~gC9+Va+gv->=-*KH9mO|YT+WKS60Gpg?jE3vVk6XTF?>Gaex z`uzYSRU?OmWcIiWm0W{HsZf9IB0nLl&j%{hX1st9z(*N=TZR*Ne(O(IeBf3@4HN)}Iwot{`UaXE|2DvvTh3>}9qK|j*HX5503HR&8 z7_V5z&GZ==E^f1NA|kT$L7J;S{q7xd>eV~{J_)EDuN9mh7^xLIJ+DUSu}m)hOjc|B zj3nz*x_c|huq*{7{J_e;(7P=1?aJW*FF$%})p35>j`kn~^=l6yG2J98hYoN4iFe<{ zEVPrN>V=NJ5pa; zF2n~r;4mhW!KgjNe2@b>s?%{h(YNgz$=6YtuCYl~of>?%$Y1p~5>=Pj@6-|3I0ct# zu*-UwK8?7Jz}FdV$nD}A^I{yFA34`!YRB=Ts%cxAxy&qKy@_lh>pg6``Hk2XL!<9` zv!+gpYB%MpPuC{2!^+BTKY#UhwZF&e8`4kwvTpFY5S^i*^-qxxgVAvXsQy<59EJ`q z2W^pKrb%jRetpBvOeUSLrZ#ill=j!8KfdJ=M*%C-8+(P6k1a1TGHe~m`sG8-feETR z2yk0l$gHE^WS_&TOF|}TM$*vY&SXl^}gyP3!L^;p3@O6z2rV(Eq@*J zx-?{&qCD-}&s2s}m&EJk+~dyn9wK6E;dl6T>8fV!vuw!e@B=w<-Pr!rbADsuYaI_@ zldrkE;>HQ;TTW#$x1(9F>t+n@ap4b;ckbGQox*c8gtNC;p(RZh`C5a;j22Ij07AH} zf9okRxxtnPtep<M!5?|^f`$+JeN=FgDw9)MZ+v1x{XS-6 zlhZ_Fe&TMab@0x21i@F|y876if|q_DafLvbYvo{nX(MsT{N406-5-PTtM+}uaOMvT zP%Q$iRm+~gy53&P(QZUqtHjM!G-s$!V7%R&GdsY^5eRB<(8{=HA-@IBipAtdm{?w; zIrQ=Sy#EqsynZir<_g0gB^((dEo>R6)G0|2YVW6VPPKQRttdlYY2gtpB&fftw&oX# z8$-P}`lJ+heYq=Oyy|4ivYPKz6#97FUEAX-!YQeEgt8qmih{;4)Nb%ieI9$v+vgp& zotWn(8wneG$;%9mN5|%XwlOv#B{))_i``yLTiO-^Ubo{juAk7ded&Dh^hKeUu=t-C z^^=->QdfTKZ;KJH%nJosq-c=CAH7-ISeBwyA<|4m7gY(uny3ifXRmMD)wF!0INnZz zX%u!t9#}l&k$P!nYR)mtxpvq9A+;1N5D4b&%;%nXKZ1C9Kfz6rvWgb-ttY-9Kfa2s zEt{m!DN$N)Nx!dY=Ne3QWuDWU1#VqpGIu|Ne#~pf*mLT=ORb(lA~Y#YAX$XYh%$v% z524v0$$w>eR67d>=aH<>d$To?6zhi4l#L15*kM-ozW?>IJJPk}G9RDrwF(8O>xe)_ zuoEN#UJE7p6gXi*7tfE0`&nPob-yk~)lQ=gpYUt%qexra0E?bi8HfYC{Uc=Rs+cNP zaeuN`pe#@>{v-8Q_&Hb2d`Mq7!l{9rgA^$wF$+_3KJ-Y-EqK{7X@439hckwPN-mvT{k-ud>-4zY2*uAEmZMK+dunK|OlKbdESq9kH9IQ#4Tbru zJpJVaLbvY+s^oh!GIZ77whn1|_o`jcn8sInVKD}hzZ>n*-j z-Chc07uqRv*HfM?j1%y8_+miDMuPw0ZdNUhDu9#g)jyc{s zs8g7jn3_1Yd-a(=fZ+rH}KyU zhHh?|*J!pc$!xXX|}uY!HOzzLTXEfM-rg5EYu#e!To#)-_24WQDAYL1BfAV5$zp)XjFyFuSS#E-sS zb1j%rB=?N?0eQIf#(>Y$O`Q=xAWy4kEXYTFk4XHOgP<_c%xEx7wD%170jcOMa7U=6Nk@MMto~K*Kg5f0PXP6JLp=dWz z)(|nDT!;eWM!Yt<{sO{ha&X4_=<6RuL!fs$&sZOM z-tiQOj%30a>!XjtMnfpPew?vBB(illVCzRCdi##7d(y5TG zQiMV<2G%2?Kz{e^G~Uxez&%C)JSy&QaKP{isR)CZioON#qyWFbm|QrB!$#51;(%n4rWHun0nJ@`X5s!ww5$>>+&zGWdw`-7 zNP+&ML<$1~L0dGl5PkU|&=yF@V=52=2(3A#L!huE@RN;$rY*B&~BOZcs%R2+D MenHPbtAnQh0jc=$*8l(j delta 2126 zcmW;N2~-qE8o=?Y?qQ}I29R)gfS{nriU{$Dco0At6i@^e6$Ukm2g)@AV>GK`H#F3! zI4C6)&k!O{7gsSWUa9BH6H)O<7KtKjOk~$1Ym7!*&AJkjr|gIG-tS*iJx3oiHB;Mu zLudcKL#Jq16EsoNX-=A6GiZ_~YtEXBX4G6YH_creqrP;Hpz ztNCfeHUHBA`tiey?K27s3Tz)D0~)yXD~h5LdwHdzR+rSUw$b~dhwZ9W-aUp^!x#&9 zgA(UDBV;S~;%WsAH;|^u0bm3e2?9Y77zIXyU@!)RfIoq;AQX%PVPHH62NB?XFab;i zlfY!~0hj_J!Bj8}Ob0VS6!;KCgBTDCW`bED4wyhZm<{IerpXDDUUK#Y9fQSen~lBP z9p*{=LJ~m|m<#5CWbPL-|3Rp02b^lGQML8p=qQytFPiTY>VlAllts^Q%-m)kx_$n- zZrHLDDX9(|C;iSpGpDpogDu%u$@&$?Z6G|iCS~w?8CjHqCpdn>QBu*L!Yley8|(B- z%5YNFQxaLX04xNHcw}ALh4JumJ5q9caQa-0>;9hRY?D-Mc#SirS8<={#my!Ugx)y8 zQ?~Ws%)qX-Hp^<}@qCphf2u8>5;3r=6&x=M`<;wEvluJ^OZnI{>CO{|{nvM#7eZIi zUx$~t#Mk2G?v?A-+*6| z7qA9%iWje#vg$N(N9Y(*7CHpi8e%XFEoXr?py6K(aO{gM@_ zIQ+KYL#hMT@allIUBS+qkSd}EVQBbGQWU?I7san@ddt@RmcKwM$A;U2pXCtQY{~}f z!3MtBl#}Am+)vOD@**pTzsSm+ZuBWagJGdO*CSN2s8@J@+h?la{kcG5Ex90%$6E4( z?JVU4&Es9a6cL>olz9dho3iy*M%Y_ko70HibvLAz0yXc7WE4AvWePV2#UDcZQGS1DSC6SkQ!J` zyuvnukHIFe8GHi%47Px+U>hg~+qqYma?s!H2iVCqtOf=QOHMR2R z{}@|@1URu0ozN!6@Xgje$0kWhNXNAXS)Z7s>t#L3 zdnSB`q{o!lsl51i}uq(A6@Y9aKsnW!&{VEygmQmwAvtPVjxL)DPwvQ~LSLjh$a0_fDkT!noDm7zS@D4ldfZSz+zNRx}VQ|)NJEW4CzotiI!7t*89r6ov z{f1`C!l?1}cE}4}{LR316C!f1)k5wtr}lweP1ZG4Le8-2b{Z%P(O!?6glO+0thJrS z%0g_yT|49fbG}Y@$U?k}!wxyh>aN2_BFxUeKp>Zy+(BQ+LSp_c0{Na@2-tT+7Lqgj z2;>iT_gmVig9TE-%5KmANjII_Mcwps?AQ%DOVSs0*hPI&7wa8(OiF{9l-9-kZ^BG2 z`q?hZMbDXOVCHLWu#3LdBP@4d=D*;$UG!gYhS8feNE(xVrdk}6-p5*Q(os@)(QStq zZu^Nny-7z(Q@6I(ic`1VVV<2Ziwf>`h*80>*^ExQUNY&Q*+rB7SN26G^_NWW>m`~j xjqFw@&5@EPQX(c#JjLQ~(WOrHVrrE7?!Vl-T1?&gxdJN${=PTE7zg8|{{w0OJ0<`C diff --git a/src/tclkit86bi.vfs/bin/tk86.dll b/src/runtime/tclkit86bi.vfs/bin/tk86.dll similarity index 100% rename from src/tclkit86bi.vfs/bin/tk86.dll rename to src/runtime/tclkit86bi.vfs/bin/tk86.dll diff --git a/src/tclkit86bi.vfs/boot.tcl b/src/runtime/tclkit86bi.vfs/boot.tcl similarity index 100% rename from src/tclkit86bi.vfs/boot.tcl rename to src/runtime/tclkit86bi.vfs/boot.tcl diff --git a/src/tclkit86bi.vfs/lib/Ffidl0.9.0/Ffidl090.dll b/src/runtime/tclkit86bi.vfs/lib/Ffidl0.9.0/Ffidl090.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/Ffidl0.9.0/Ffidl090.dll rename to src/runtime/tclkit86bi.vfs/lib/Ffidl0.9.0/Ffidl090.dll diff --git a/src/tclkit86bi.vfs/lib/Ffidl0.9.0/ffidlrt.tcl b/src/runtime/tclkit86bi.vfs/lib/Ffidl0.9.0/ffidlrt.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/Ffidl0.9.0/ffidlrt.tcl rename to src/runtime/tclkit86bi.vfs/lib/Ffidl0.9.0/ffidlrt.tcl diff --git a/src/tclkit86bi.vfs/lib/Ffidl0.9.0/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/Ffidl0.9.0/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/Ffidl0.9.0/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/Ffidl0.9.0/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/Memchan2.3/Memchan23.dll b/src/runtime/tclkit86bi.vfs/lib/Memchan2.3/Memchan23.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/Memchan2.3/Memchan23.dll rename to src/runtime/tclkit86bi.vfs/lib/Memchan2.3/Memchan23.dll diff --git a/src/tclkit86bi.vfs/lib/Memchan2.3/libMemchanstub23.a b/src/runtime/tclkit86bi.vfs/lib/Memchan2.3/libMemchanstub23.a similarity index 100% rename from src/tclkit86bi.vfs/lib/Memchan2.3/libMemchanstub23.a rename to src/runtime/tclkit86bi.vfs/lib/Memchan2.3/libMemchanstub23.a diff --git a/src/tclkit86bi.vfs/lib/Memchan2.3/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/Memchan2.3/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/Memchan2.3/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/Memchan2.3/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/Trf2.1.4/Trf214.dll b/src/runtime/tclkit86bi.vfs/lib/Trf2.1.4/Trf214.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/Trf2.1.4/Trf214.dll rename to src/runtime/tclkit86bi.vfs/lib/Trf2.1.4/Trf214.dll diff --git a/src/tclkit86bi.vfs/lib/Trf2.1.4/libTrfstub214.a b/src/runtime/tclkit86bi.vfs/lib/Trf2.1.4/libTrfstub214.a similarity index 100% rename from src/tclkit86bi.vfs/lib/Trf2.1.4/libTrfstub214.a rename to src/runtime/tclkit86bi.vfs/lib/Trf2.1.4/libTrfstub214.a diff --git a/src/tclkit86bi.vfs/lib/Trf2.1.4/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/Trf2.1.4/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/Trf2.1.4/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/Trf2.1.4/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/cffi1.2.0/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/cffi1.2.0/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/cffi1.2.0/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/cffi1.2.0/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/cffi1.2.0/win32-x86_64/tclcffi120.dll b/src/runtime/tclkit86bi.vfs/lib/cffi1.2.0/win32-x86_64/tclcffi120.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/cffi1.2.0/win32-x86_64/tclcffi120.dll rename to src/runtime/tclkit86bi.vfs/lib/cffi1.2.0/win32-x86_64/tclcffi120.dll diff --git a/src/tclkit86bi.vfs/lib/critcl-app3.2/critcl.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/critcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-app3.2/critcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/critcl.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-app3.2/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-app3.2/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-app3.2/runtime.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/runtime.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-app3.2/runtime.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/runtime.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-app3.2/tea/Config.in b/src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/Config.in similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-app3.2/tea/Config.in rename to src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/Config.in diff --git a/src/tclkit86bi.vfs/lib/critcl-app3.2/tea/Makefile.in b/src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/Makefile.in similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-app3.2/tea/Makefile.in rename to src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/Makefile.in diff --git a/src/tclkit86bi.vfs/lib/critcl-app3.2/tea/aclocal.m4 b/src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/aclocal.m4 similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-app3.2/tea/aclocal.m4 rename to src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/aclocal.m4 diff --git a/src/tclkit86bi.vfs/lib/critcl-app3.2/tea/configure.in b/src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/configure.in similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-app3.2/tea/configure.in rename to src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/configure.in diff --git a/src/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/README.txt b/src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/README.txt similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/README.txt rename to src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/README.txt diff --git a/src/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/install-sh b/src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/install-sh similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/install-sh rename to src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/install-sh diff --git a/src/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/tcl.m4 b/src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/tcl.m4 similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/tcl.m4 rename to src/runtime/tclkit86bi.vfs/lib/critcl-app3.2/tea/tclconfig/tcl.m4 diff --git a/src/tclkit86bi.vfs/lib/critcl-bitmap1.1/bitmap.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-bitmap1.1/bitmap.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-bitmap1.1/bitmap.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-bitmap1.1/bitmap.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-bitmap1.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-bitmap1.1/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-bitmap1.1/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-bitmap1.1/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-class1.2/class.h b/src/runtime/tclkit86bi.vfs/lib/critcl-class1.2/class.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-class1.2/class.h rename to src/runtime/tclkit86bi.vfs/lib/critcl-class1.2/class.h diff --git a/src/tclkit86bi.vfs/lib/critcl-class1.2/class.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-class1.2/class.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-class1.2/class.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-class1.2/class.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-class1.2/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-class1.2/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-class1.2/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-class1.2/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-cutil0.3/allocs/critcl_alloc.h b/src/runtime/tclkit86bi.vfs/lib/critcl-cutil0.3/allocs/critcl_alloc.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-cutil0.3/allocs/critcl_alloc.h rename to src/runtime/tclkit86bi.vfs/lib/critcl-cutil0.3/allocs/critcl_alloc.h diff --git a/src/tclkit86bi.vfs/lib/critcl-cutil0.3/asserts/critcl_assert.h b/src/runtime/tclkit86bi.vfs/lib/critcl-cutil0.3/asserts/critcl_assert.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-cutil0.3/asserts/critcl_assert.h rename to src/runtime/tclkit86bi.vfs/lib/critcl-cutil0.3/asserts/critcl_assert.h diff --git a/src/tclkit86bi.vfs/lib/critcl-cutil0.3/cutil.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-cutil0.3/cutil.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-cutil0.3/cutil.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-cutil0.3/cutil.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-cutil0.3/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-cutil0.3/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-cutil0.3/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-cutil0.3/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-cutil0.3/trace/critcl_trace.h b/src/runtime/tclkit86bi.vfs/lib/critcl-cutil0.3/trace/critcl_trace.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-cutil0.3/trace/critcl_trace.h rename to src/runtime/tclkit86bi.vfs/lib/critcl-cutil0.3/trace/critcl_trace.h diff --git a/src/tclkit86bi.vfs/lib/critcl-cutil0.3/trace/trace.c b/src/runtime/tclkit86bi.vfs/lib/critcl-cutil0.3/trace/trace.c similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-cutil0.3/trace/trace.c rename to src/runtime/tclkit86bi.vfs/lib/critcl-cutil0.3/trace/trace.c diff --git a/src/tclkit86bi.vfs/lib/critcl-emap1.3/emap.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-emap1.3/emap.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-emap1.3/emap.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-emap1.3/emap.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-emap1.3/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-emap1.3/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-emap1.3/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-emap1.3/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-enum1.2/enum.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-enum1.2/enum.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-enum1.2/enum.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-enum1.2/enum.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-enum1.2/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-enum1.2/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-enum1.2/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-enum1.2/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-iassoc1.2/iassoc.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-iassoc1.2/iassoc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-iassoc1.2/iassoc.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-iassoc1.2/iassoc.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-iassoc1.2/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-iassoc1.2/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-iassoc1.2/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-iassoc1.2/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-literals1.4/literals.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-literals1.4/literals.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-literals1.4/literals.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-literals1.4/literals.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-literals1.4/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-literals1.4/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-literals1.4/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-literals1.4/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-platform1.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-platform1.1/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-platform1.1/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-platform1.1/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-platform1.1/platform.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-platform1.1/platform.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-platform1.1/platform.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-platform1.1/platform.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-util1.2/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-util1.2/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-util1.2/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-util1.2/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl-util1.2/util.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl-util1.2/util.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl-util1.2/util.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl-util1.2/util.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/Config b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/Config similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/Config rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/Config diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/cdata.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/cdata.c similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/cdata.c rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/cdata.c diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/header.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/header.c similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/header.c rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/header.c diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginit.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/pkginit.c similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginit.c rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/pkginit.c diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginitend.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/pkginitend.c similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginitend.c rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/pkginitend.c diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginittk.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/pkginittk.c similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginittk.c rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/pkginittk.c diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/preload.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/preload.c similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/preload.c rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/preload.c diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/storageclass.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/storageclass.c similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/storageclass.c rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/storageclass.c diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/stubs.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/stubs.c similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/stubs.c rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/stubs.c diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/stubs_e.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/stubs_e.c similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/stubs_e.c rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/stubs_e.c diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/X.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/X.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/X.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/X.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xatom.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/Xatom.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xatom.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/Xatom.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xfuncproto.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/Xfuncproto.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xfuncproto.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/Xfuncproto.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xlib.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/Xlib.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xlib.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/Xlib.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xutil.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/Xutil.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xutil.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/Xutil.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/cursorfont.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/cursorfont.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/cursorfont.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/cursorfont.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/keysym.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/keysym.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/keysym.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/keysym.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/keysymdef.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/keysymdef.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/keysymdef.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/keysymdef.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/tkIntXlibDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/tkIntXlibDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/tkIntXlibDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/X11/tkIntXlibDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tcl.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/tcl.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tcl.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/tcl.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tclDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/tclDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tclDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/tclDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tclPlatDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/tclPlatDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tclPlatDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/tclPlatDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tk.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/tk.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tk.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/tk.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tkDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/tkDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tkDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/tkDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tkPlatDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/tkPlatDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tkPlatDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.4/tkPlatDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/X.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/X.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/X.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/X.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xatom.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/Xatom.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xatom.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/Xatom.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xfuncproto.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/Xfuncproto.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xfuncproto.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/Xfuncproto.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xlib.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/Xlib.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xlib.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/Xlib.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xutil.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/Xutil.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xutil.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/Xutil.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/cursorfont.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/cursorfont.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/cursorfont.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/cursorfont.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/keysym.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/keysym.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/keysym.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/keysym.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/keysymdef.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/keysymdef.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/keysymdef.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/keysymdef.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/tkIntXlibDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/tkIntXlibDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/tkIntXlibDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/X11/tkIntXlibDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tcl.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/tcl.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tcl.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/tcl.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tclDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/tclDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tclDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/tclDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tclPlatDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/tclPlatDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tclPlatDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/tclPlatDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tk.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/tk.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tk.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/tk.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tkDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/tkDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tkDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/tkDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tkPlatDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/tkPlatDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tkPlatDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.5/tkPlatDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/X.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/X.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/X.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/X.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xatom.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/Xatom.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xatom.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/Xatom.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xfuncproto.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/Xfuncproto.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xfuncproto.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/Xfuncproto.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xlib.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/Xlib.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xlib.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/Xlib.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xutil.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/Xutil.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xutil.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/Xutil.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/cursorfont.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/cursorfont.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/cursorfont.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/cursorfont.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/keysym.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/keysym.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/keysym.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/keysym.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/keysymdef.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/keysymdef.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/keysymdef.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/keysymdef.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/tkIntXlibDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/tkIntXlibDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/tkIntXlibDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/X11/tkIntXlibDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tcl.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/tcl.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tcl.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/tcl.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tclDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/tclDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tclDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/tclDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tclPlatDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/tclPlatDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tclPlatDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/tclPlatDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tk.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/tk.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tk.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/tk.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tkDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/tkDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tkDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/tkDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tkPlatDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/tkPlatDecls.h similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tkPlatDecls.h rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tcl8.6/tkPlatDecls.h diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tclAppInit.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tclAppInit.c similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tclAppInit.c rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tclAppInit.c diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tkstubs.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tkstubs.c similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tkstubs.c rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tkstubs.c diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tkstubs_noconst.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tkstubs_noconst.c similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tkstubs_noconst.c rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/critcl_c/tkstubs_noconst.c diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/license.terms b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/license.terms similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/license.terms rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/license.terms diff --git a/src/tclkit86bi.vfs/lib/critcl3.2/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl3.2/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl3.2 - Copy/pkgIndex.tcl diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/Config b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/Config new file mode 100644 index 00000000..185b968e --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/Config @@ -0,0 +1,537 @@ +# -*- tcl -*- Critcl configuration file + +# some defaults - you can override these in the platform specific section +# but shouldn't need to for typical *nix toolchains using gcc +# +# platform sets the platform (defaults to platform::generic) +# target indicates that this is a cross-compile target, the value is the actual platform code. +# compile compile a C source file to an object file +# version print the compiler version number +# ldout See below +# link Command to link one or more object files and create a shared library +# embed_manifest Command to embed a manifest into a DLL. (Win-specific) +# link_debug See below +# link_preload Linker flags to use when dependent libraries are pre-loaded. +# link_release See below +# preproc_define preprocess C source file (for critcl::cdefines) +# preproc_enum ditto +# tclstubs cflag to set USE_TCL_STUBS +# tkstubs cflag to set USE_TK_STUBS +# debug_memory cflag to enable memory debugging +# debug_symbols cflag to add symbols to resulting library +# object file extension for object files +# output flags to set output file +# strip cflag to tell linker to strip symbols +# optimize cflag to specify optimization level +# include cflag to add an include directory +# noassert cflag to turn off assertions in Tcl code +# threadflags cflags to enable threaded build +# sharedlibext the platform's file extension for shared libraries +# +# (Support for Fortran) +# fcompile compile a Fortran source file to an object file +# fversion print the Fortran compiler version number +# flink link one or more object files and create a shared library, +# if at least one object file comes from Fortran +# foutput Fortran flag(s) to set output file +# finclude Fortran flag to add an include directory +# fextra_cflags Extra C flags for indicating type of Fortran compiler +# +# Any other config options are assumed to refer to Tcl variables and +# these are set when building so they can be used in the Critcl script. +# Typically this is used when defining cross-compile environments to set +# various tcl_platform() values. +# +# You can also set Tcl variables to use in "when" options (see the MacOSX +# section for an example - "set universal ..."). These commands and the +# "when" commands are run in a separate interpreter. +# +# You can also base a build configuration on an existing one by using +# the "copy" option and then specifically setting the config bits that +# you want to change. See win32-x86_64-cl for an example. + +compile gcc -c -fPIC +version gcc -v +link gcc -shared +include -I +libinclude -L +preproc_define gcc -E -dM +preproc_enum gcc -E +tclstubs -DUSE_TCL_STUBS +tkstubs -DUSE_TK_STUBS +debug_memory -DTCL_MEM_DEBUG +debug_symbols -g +object .o +output -o [list $outfile] +embed_manifest +ldoutput +link_debug +link_release +link_preload --unresolved-symbols=ignore-in-shared-libs +link_rpath -Wl,-rpath,@ +strip -Wl,-s +optimize -O2 +noassert -DNDEBUG +threadflags -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 \ + -DHAVE_PTHREAD_ATTR_SETSTACKSIZE=1 -DHAVE_READDIR_R=1 \ + -DTCL_THREADS=1 + +# platform specific stuff follows + +# OSX - check if universal binaries supported by the installed toolchain + +if {[string match macosx-* $platform]} { + if {[info exists ::env(SDKROOT)] && $::env(SDKROOT) ne ""} { + set SDKROOT $::env(SDKROOT) + } else { + # look for an SDK supporting universal binaries + set pos [string length MacOSX] + set sdklist {} + set base /Developer + catch {set base [exec xcode-select -print-path]} + foreach dir [glob -nocomplain -tails \ + -directory $base/SDKs MacOSX*] { + set ver [string trimright \ + [file rootname [string range $dir $pos end]] u] + if {"$ver" != "" && [package vcompare $ver 10.4] >= 0} { + # 10.4 is earliest supporting universal that we support + set path($ver) $dir + lappend sdklist $ver + } + } + if {[llength $sdklist]} { + set ver [lindex [lsort -command "package vcompare" $sdklist] 0] + set SDKROOT $base/SDKs/$path($ver) + } else { + set SDKROOT "" + } + } + if {$SDKROOT ne ""} { + # get the SDKsettings for the min OSX value supported + set info "" + if [catch { + set info [exec defaults read $SDKROOT/SDKSettings buildSettings] + }] { + catch { + set info [exec defaults read $SDKROOT/SDKSettings DefaultProperties \ + -dict MACOSX_DEPLOYMENT_TARGET] + } + } + if {$info eq ""} { + puts stderr "SDKROOT isn't configured correctly on this host" + puts stderr "current setting $SDKROOT needs updating" + exit 1 + } + set info [string trim $info] + regsub -all {[\n"\;=\{\}]+} $info "" info ;#" help emacs hilighting + regsub -all {\s+} $info " " info + set osxmin [lindex $info 1] + } else { + # use the current platform + foreach {v1 v2 v3} [split $::tcl_platform(osVersion) .] break + incr v1 -4 + set osxmin 10.$v1.$v2 + # do we actually need to check if universal is supported, given the + # gcc check below will do it for us? + # set info [exec lipo -info /usr/lib/libSystem.dylib] + # set plats [split [string trim [lindex [split $info :] 2]]] + } + if {[info exists ::env(osxmin)] && $::env(osxmin) ne ""} { + set osxmin $::env(osxmin) + } + set universal 0 + catch { + set ppc [expr {[exec gcc -v -arch ppc > /dev/null 2>@stdout] eq ""}] + set ppc64 [expr {[exec gcc -v -arch ppc64 > /dev/null 2>@stdout] eq ""}] + set i386 [expr {[exec gcc -v -arch i386 > /dev/null 2>@stdout] eq ""}] + set x86_64 [expr {[exec gcc -v -arch x86_64 > /dev/null 2>@stdout] eq ""}] + } +} + +# Note: The result of 'platform::generic' is used to restrict which of +# the following blocks will be considered. + +# Note 2: The platform declarations are required to set up a proper +# mapping in pkgIndex.tcl of a -pkg. + +# default on OSX ppc is universal containing ppc and x86 32 bit +macosx-powerpc when $ppc +macosx-powerpc compile gcc -c -arch ppc \ + -isysroot $SDKROOT \ + -mmacosx-version-min=$osxmin +macosx-powerpc link gcc -bundle -arch ppc \ + -isysroot $SDKROOT \ + -mmacosx-version-min=$osxmin +macosx-powerpc link_preload -undefined dynamic_lookup -mmacosx-version-min=10.3 +macosx-powerpc strip + +# default on OSX intel is universal containing x86 32 and 64 bit +macosx-ix86 when $i386 && $x86_64 +macosx-ix86 compile gcc -c -arch i386 -arch x86_64 \ + -isysroot $SDKROOT \ + -mmacosx-version-min=$osxmin +macosx-ix86 link gcc -bundle -arch i386 -arch x86_64 \ + -isysroot $SDKROOT \ + -mmacosx-version-min=$osxmin +macosx-ix86 link_preload -undefined dynamic_lookup -mmacosx-version-min=10.3 +macosx-ix86 strip +macosx-ix86 platform macosx-ix86 $osxmin \ + macosx-ix86 \ + macosx-x86_64 + +# target for most common architectures +macosx-most when $ppc && $i386 && $x86_64 +macosx-most compile gcc -c -arch i386 -arch x86_64 -arch ppc \ + -isysroot $SDKROOT \ + -mmacosx-version-min=$osxmin +macosx-most link gcc -bundle -arch i386 -arch x86_64 -arch ppc \ + -isysroot $SDKROOT \ + -mmacosx-version-min=$osxmin +macosx-most link_preload -undefined dynamic_lookup -mmacosx-version-min=10.3 +macosx-most strip +macosx-most platform macosx-most $osxmin \ + macosx-powerpc \ + macosx-ix86 \ + macosx-x86_64 + +# target for old universal, ppc and x86 32. +macosx-universal when $ppc && $i386 +macosx-universal compile gcc -c -arch i386 -arch ppc \ + -isysroot $SDKROOT \ + -mmacosx-version-min=$osxmin +macosx-universal link gcc -bundle -arch i386 -arch ppc \ + -isysroot $SDKROOT \ + -mmacosx-version-min=$osxmin +macosx-universal link_preload -undefined dynamic_lookup -mmacosx-version-min=10.3 +macosx-universal strip +macosx-universal platform macosx-universal $osxmin \ + macosx-powerpc \ + macosx-ix86 + +# target for all architectures +macosx-all when $ppc && $ppc64 && $i386 && $x86_64 +macosx-all compile gcc -c -arch i386 -arch x86_64 -arch ppc -arch ppc64 \ + -isysroot $SDKROOT \ + -mmacosx-version-min=$osxmin +macosx-all link gcc -bundle -arch i386 -arch x86_64 -arch ppc -arch ppc64 \ + -isysroot $SDKROOT \ + -mmacosx-version-min=$osxmin +macosx-all link_preload -undefined dynamic_lookup -mmacosx-version-min=10.3 +macosx-all strip +macosx-all platform macosx-all $osxmin \ + macosx-powerpc \ + macosx-powerpc64 \ + macosx-ix86 \ + macosx-x86_64 + +# OSX ppc 32 bit +macosx-ppc32 when $ppc +macosx-ppc32 compile gcc -c -arch ppc +macosx-ppc32 link gcc -bundle -arch ppc +macosx-ppc32 link_preload -undefined dynamic_lookup +macosx-ppc32 strip +macosx-ppc32 platform macosx-powerpc + +# OSX ppc 64 bit +macosx-ppc64 when $ppc64 +macosx-ppc64 compile gcc -c -arch ppc64 +macosx-ppc64 link gcc -bundle -arch ppc64 +macosx-ppc64 link_preload -undefined dynamic_lookup +macosx-ppc64 strip +macosx-ppc64 platform macosx-powerpc64 + +# OSX x86 32 bit +macosx-x86_32 when $i386 +macosx-x86_32 compile gcc -c -arch i386 +macosx-x86_32 link gcc -bundle -arch i386 +macosx-x86_32 link_preload -undefined dynamic_lookup +macosx-x86_32 strip +macosx-x86_32 platform macosx-ix86 + +# OSX x86 64 bit +macosx-x86_64 when $x86_64 +macosx-x86_64 compile gcc -c -arch x86_64 +macosx-x86_64 link gcc -bundle -arch x86_64 +macosx-x86_64 link_preload -undefined dynamic_lookup +macosx-x86_64 strip +macosx-x86_64 platform macosx-x86_64 + +# Linux - 32 bit or 64 bit build - select using "-target" if you don't +# want the platform default (32 on 32, 64 on 64). This requires +# some work to detect the cpu class in use and then set a platform +# with the proper variant name. + +if {[string match linux-* $platform]} { + # platform = os-cpu(-compiler) + set cpu [lindex [split $platform -] 1] + + switch -- $cpu { + x86_64 - ix86 { + set cpu32 ix86 + set cpu64 x86_64 + } + * { + #error "Unknown architecture" + set cpu32 unknown32fixme_$cpu + set cpu64 unknown64fixme_$cpu + } + } +} + +linux-32-* compile gcc -c -m32 +linux-32-* link gcc -shared -m32 +linux-32-* platform linux-$cpu32 + +linux-64-* compile gcc -c -m64 +linux-64-* link gcc -shared -m64 +linux-64-* platform linux-$cpu64 + +# Windows - Check if bufferoverflowU.lib is required, or not. We +# assume that "requiredness" coincides with "presence". IOW, if the +# library is present in the LIB search paths, then it is required. +# This should be ok, for linking to it when it is present but not +# required, should do no harm. + +set msvc 0 +if {[string match win32-* $platform]} { + set cl [file nativename [lindex [auto_execok cl] 0]] + if {$cl ne ""} { + set msvc 1 + + set msvcbufferoverflowlib "" + foreach p [split $::env(LIB) \;] { + if {[llength [glob -nocomplain -directory $p bufferoverflowu.lib]]} { + set msvcbufferoverflowlib bufferoverflowU.lib + break + } + } + + set tmpfile $::env(TMP)/[pid].txt + catch { exec $cl 2> $tmpfile > NUL: } msg + #puts "M $msg" + set chan [open $tmpfile r] + set output [read $chan] + #puts "O $output" + close $chan + file delete $tmpfile + + regexp {Version ([0-9.]*)} $output -> msvcversion + #puts V=$msvcversion + if {[package vcompare $msvcversion 15.00.30729.01] >= 0} { + # VC9 or higher. -debug:full is not supported anymore. + # VC9 - warning, VC10 - error + set msvclinkdebug -debug + # Enable local stack checks for buffer overflow + set msvcstackchecks -GS + # -GZ deprecated in favor of -RTC1 + set msvcdebugchecks -RTC1 + set msvclinkglobaloptimize -ltcg + } else { + set msvclinkdebug -debug:full + set msvcdebugchecks -GZ + set msvcstackchecks "" + set msvclinkglobaloptimize "" + } + + if {[package vcompare $msvcversion 14] >= 0} { + # -Op not supported or needed. Use -fp instead to match Tcl + set msvcfpopt -fp:strict + set msvclinkworkingset "" + } else { + # -Op -> floating point consistency + set msvcfpopt -Op + # Working set optimization + set msvclinkworkingset -ws:aggressive + } + } +} + +# Windows - using 32-bit MS VC++ +# +# Note: the language option for cl is -TC for c and -TP for c++ or +# it can treat single files -Tc +# +win32-ix86-cl when $msvc +win32-ix86-cl compile cl -nologo -c +win32-ix86-cl link link -nologo +win32-ix86-cl embed_manifest mt -manifest [list $outfile].manifest -outputresource:[list $outfile]\;2 +win32-ix86-cl preproc_define cl -nologo -E +win32-ix86-cl preproc_enum cl -nologo -E +win32-ix86-cl libinclude /LIBPATH: +win32-ix86-cl object .obj +win32-ix86-cl debug_symbols -W3 -Od -Zi $msvcstackchecks $msvcdebugchecks -MDd -D_DEBUG $msvcfpopt +win32-ix86-cl optimize -W3 -O2 -MD $msvcstackchecks $msvcfpopt +win32-ix86-cl output [list -Fo$outfile] +win32-ix86-cl ldoutput -dll [list -out:$outfile] +win32-ix86-cl link_debug $msvclinkdebug -debugtype:cv -verbose:lib -nodefaultlib:libc +win32-ix86-cl link_release -release -opt:ref -opt:icf,3 $msvclinkworkingset -verbose:lib $msvclinkglobaloptimize +win32-ix86-cl link_preload +win32-ix86-cl link_rpath +win32-ix86-cl strip +win32-ix86-cl version cl +win32-ix86-cl platform win32-ix86 + +# Windows - using 64-bit MS VC++ +# +# Note: the language option for cl is -TC for c and -TP for c++ or +# it can treat single files -Tc +# + +win32-x86_64-cl when $msvc +win32-x86_64-cl copy win32-ix86-cl +win32-x86_64-cl link_debug $msvclinkdebug -debugtype:cv -verbose:lib $msvcbufferoverflowlib +win32-x86_64-cl link_release -release -opt:ref -opt:icf,3 $msvclinkworkingset -verbose:lib $msvclinkglobaloptimize $msvcbufferoverflowlib +win32-x86_64-cl platform win32-x86_64 + +# Cross-compile for Windows using Xmingwin +mingw32 target win32-ix86 +mingw32 compile gcc -c -nostdlib +mingw32 link gcc -shared +mingw32 link_preload +mingw32 sharedlibext .dll +mingw32 tcl_platform(byteOrder) littleEndian +mingw32 tcl_platform(machine) intel +mingw32 tcl_platform(os) Windows NT +mingw32 tcl_platform(osVersion) 5.0 +mingw32 tcl_platform(platform) windows +mingw32 tcl_platform(wordSize) 4 + +# Cross-compile for ARM (n770/Zaurus/etc) using Scratchbox et al +linux-arm target +linux-arm sharedlibext .so +linux-arm tcl_platform(byteOrder) littleEndian +linux-arm tcl_platform(machine) arm +linux-arm tcl_platform(os) Linux +linux-arm tcl_platform(osVersion) 2.6 +linux-arm tcl_platform(platform) unix +linux-arm tcl_platform(wordSize) 4 + +# hpux itanium, native cc, 32 and 64bit builds. +# +z <=> -fPIC on hpux. +# +DD64 invokes the 64bit mode. + +hpux-ia64_32-cc compile cc -c +z +hpux-ia64_32-cc link ld -b +hpux-ia64_32-cc preproc_define cc -E +hpux-ia64_32-cc preproc_enum cc -E +hpux-ia64_32-cc link_preload +hpux-ia64_32-cc strip + +hpux-ia64-cc compile cc -c +z +DD64 +hpux-ia64-cc link ld -b +hpux-ia64-cc preproc_define cc -E +hpux-ia64-cc preproc_enum cc -E +hpux-ia64-cc link_preload +hpux-ia64-cc strip + +# hpux, itanium, gcc +# This works only if the -lgcc for 64bit is somewhere reachable. +# hpux-ia64 gcc -c -fPIC -mlp64 + +hpux-parisc-cc compile cc -c +z +DAportable +hpux-parisc-cc link ld -b +hpux-parisc-cc preproc_define cc -E +hpux-parisc-cc preproc_enum cc -E +hpux-parisc-cc link_preload +hpux-parisc-cc strip + +hpux-parisc64-cc compile cc -c +z +DA2.0W +hpux-parisc64-cc link ld -b +hpux-parisc64-cc preproc_define cc -E +hpux-parisc64-cc preproc_enum cc -E +hpux-parisc64-cc link_preload +hpux-parisc64-cc strip + +# hpux-parisc, 64bit, gcc +# +# For this architecture gcc does not have compiler switches for change +# between 32/64 results. Rather, gcc has to be built specifically to +# produce either 32 or 64 bit binaries. And if both results are +# wanted, it has to be built and installed twice (in different +# directories). +# +# HP provides precompiled binaries of these two variants at +# http://www.hp.com/go/gcc. Install the desired compiler(s). In case +# of having both ensure that the desired one is first in the PATH. + +# aix, rs6000/powerpc, native cc, 32bit build +# The link line is pretty much copied from Tcl. + +# NOTE: ldAix was copied from Tcl into a directory in the PATH. + +# It might make sense to stuff this file into critcl and then copy it +# out when needed, either into a fixed place, or tempdir. In the +# latter case the link line needs some way of getting the value +# substituted into it. I have no idea of the critcl config allows +# that, and if yes, nor how. + +# cc_r = something with thread-enabled. better use it than cc and have +# things fail. + +aix-powerpc-cc compile cc_r -c -O +aix-powerpc-cc link ldAix /bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512 -bnoentry -lm -lc +aix-powerpc-cc preproc_define cc -E +aix-powerpc-cc preproc_enum cc -E +aix-powerpc-cc link_preload +aix-powerpc-cc strip + +aix-powerpc64-cc compile cc_r -c -O -q64 +aix-powerpc64-cc link ldAix /bin/ld -b64 -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512 -bnoentry -lm -lc +aix-powerpc64-cc preproc_define cc -E +aix-powerpc64-cc preproc_enum cc -E +aix-powerpc64-cc link_preload +aix-powerpc64-cc strip + +aix-powerpc-xlc compile xlc_r -c -O +aix-powerpc-xlc link ldAix /bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512 -bnoentry -lm -lc +aix-powerpc-xlc preproc_define xlc -E +aix-powerpc-xlc preproc_enum xlc -E +aix-powerpc-xlc link_preload +aix-powerpc-xlc strip + +aix-powerpc64-xlc compile xlc_r -c -O -q64 +aix-powerpc64-xlc link ldAix /bin/ld -b64 -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512 -bnoentry -lm -lc +aix-powerpc64-xlc preproc_define xlc -E +aix-powerpc64-xlc preproc_enum xlc -E +aix-powerpc64-xlc link_preload +aix-powerpc64-xlc strip + +# Solaris, Sparc and Intel platforms, 32 and 64 bit + +solaris-x86_64-cc compile cc -m64 -c -KPIC +solaris-x86_64-cc link /usr/ccs/bin/ld -L/lib/64 -G -lc -lnsl +solaris-x86_64-cc preproc_define cc -E +solaris-x86_64-cc preproc_enum cc -E +solaris-x86_64-cc version cc -V +solaris-x86_64-cc link_preload +solaris-x86_64-cc strip + +solaris-x86_64-gcc compile gcc -m64 -c -fPIC +solaris-x86_64-gcc link gcc -m64 -shared + +solaris-ix86-cc compile cc -m32 -c -KPIC +solaris-ix86-cc link /usr/ccs/bin/ld -G -lc -lnsl +solaris-ix86-cc preproc_define cc -E +solaris-ix86-cc preproc_enum cc -E +solaris-ix86-cc version cc -V +solaris-ix86-cc link_preload +solaris-ix86-cc strip + +solaris-sparc-cc compile cc -KPIC -c +solaris-sparc-cc link /usr/ccs/bin/ld -G -lc -lnsl +solaris-sparc-cc preproc_define cc -E +solaris-sparc-cc preproc_enum cc -E +solaris-sparc-cc version cc -V +solaris-sparc-cc link_preload +solaris-sparc-cc strip + +solaris-sparc64-cc compile cc -KPIC -xarch=v9 -c +solaris-sparc64-cc link /usr/ccs/bin/ld -G -lc -lnsl +solaris-sparc64-cc preproc_define cc -E +solaris-sparc64-cc preproc_enum cc -E +solaris-sparc64-cc version cc -V +solaris-sparc64-cc link_preload +solaris-sparc64-cc strip + +solaris-sparc64-gcc compile gcc -m64 -c -fPIC -mcpu=v9 +solaris-sparc64-gcc link gcc -m64 -shared -mcpu=v9 diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl.tcl new file mode 100644 index 00000000..b562fe8b --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl.tcl @@ -0,0 +1,6547 @@ +## -*- tcl -*- +# # ## ### ##### ######## ############# ##################### +# Pragmas for MetaData Scanner. +# @mdgen OWNER: Config +# @mdgen OWNER: critcl_c +# +# Copyright (c) 2001-20?? Jean-Claude Wippler +# Copyright (c) 2002-20?? Steve Landers +# Copyright (c) 20??-2022 Andreas Kupries + +# # ## ### ##### ######## ############# ##################### +# CriTcl Core. + +package provide critcl 3.2 + +namespace eval ::critcl {} + +# # ## ### ##### ######## ############# ##################### +## Requirements. + +package require Tcl 8.6 ; # Minimal supported Tcl runtime. +if {[catch { + package require platform 1.0.2 ; # Determine current platform. +}]} { + # Fall back to our internal copy (currently equivalent to platform + # 1.0.14(+)) if the environment does not have the official + # package. + package require critcl::platform +} elseif { + [string match freebsd* [platform::generic]] && + ([platform::generic] eq [platform::identify]) +} { + # Again fall back to the internal package if we are on FreeBSD and + # the official package does not properly identify the OS ABI + # version. + package require critcl::platform +} + +# # ## ### ##### ######## ############# ##################### +## https://github.com/andreas-kupries/critcl/issues/112 +# +## Removed the code ensuring that we have maximal 'info frame' data, +## if supported. This code was moved into the app-critcl package +## instead. +# +## The issue with having it here is that this changes a global setting +## of the core, i.e. this will not only affect critcl itself when +## building binaries, but also the larger environment, i.e. the +## application using critcl. Given that this feature being active +## slows the Tcl core down by about 10%, sometimes more this is not a +## good decision to make on behalf of the user. +# +## In the critcl application itself I am willing to pay the price for +## the more precise location information in case of compilation +## failures, and the isolation to that application. For the +## dynamically `compile & run` in arbitrary environments OTOH not. + +# # ## ### ##### ######## ############# ##################### +# This is the md5 package bundled with critcl. +# No need to look for fallbacks. + +proc ::critcl::md5_hex {s} { + if {$v::uuidcounter} { + return [format %032d [incr v::uuidcounter]] + } + package require critcl_md5c + binary scan [md5c $s] H* md; return $md +} + +# # ## ### ##### ######## ############# ##################### + +if {[package vsatisfies [package present Tcl] 8.5]} { + # 8.5+ + proc ::critcl::lappendlist {lvar list} { + if {![llength $list]} return + upvar $lvar dest + lappend dest {*}$list + return + } +} else { + # 8.4 + proc ::critcl::lappendlist {lvar list} { + if {![llength $list]} return + upvar $lvar dest + set dest [eval [linsert $list 0 linsert $dest end]] + #set dest [concat $dest $list] + return + } +} + +# # ## ### ##### ######## ############# ##################### +## + +proc ::critcl::buildrequirement {script} { + # In regular code this does nothing. It is a marker for + # the static scanner to change under what key to record + # the 'package require' found in the script. + uplevel 1 $script +} + +proc ::critcl::TeapotPlatform {} { + # Platform identifier HACK. Most of the data in critcl is based on + # 'platform::generic'. The TEApot MD however uses + # 'platform::identify' with its detail information (solaris kernel + # version, linux glibc version). But, if a cross-compile is + # running we are SOL, because we have no place to pull the + # necessary detail from, 'identify' is a purely local operation :( + + set platform [actualtarget] + if {[platform::generic] eq $platform} { + set platform [platform::identify] + } + + return $platform +} + +proc ::critcl::TeapotRequire {dspec} { + # Syntax of dspec: (a) pname + # ...: (b) pname req-version... + # ...: (c) pname -exact req-version + # + # We can assume that the syntax is generally ok, because otherwise + # the 'package require' itself will fail in a moment, blocking the + # further execution of the .critcl file. So we only have to + # distinguish the cases. + + if {([llength $dspec] == 3) && + ([lindex $dspec 1] eq "-exact")} { + # (c) + lassign $dspec pn _ pv + set spec [list $pn ${pv}-$pv] + } else { + # (a, b) + set spec $dspec + } + + return $spec +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- API: Embed C Code + +proc ::critcl::HeaderLines {text} { + if {![regexp {^[\t\n ]+} $text header]} { + return [list 0 $text] + } + set lines [regexp -all {\n} $header] + # => The C code begins $lines lines after location of the c** + # command. This goes as offset into the generated #line pragma, + # because now (see next line) we throw away this leading + # whitespace. + set text [string trim $text] + return [list $lines $text] +} + +proc ::critcl::Lines {text} { + set n [regexp -all {\n} $text] + return $n +} + +proc ::critcl::ccode {text} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + CCodeCore $file $text + return +} + +proc ::critcl::CCodeCore {file text} { + set digest [UUID.extend $file .ccode $text] + + set block {} + lassign [HeaderLines $text] leadoffset text + if {$v::options(lines)} { + append block [at::CPragma $leadoffset -3 $file] + } + append block $text \n + dict update v::code($file) config c { + dict lappend c fragments $digest + dict set c block $digest $block + dict lappend c defs $digest + } + return +} + +proc ::critcl::ccommand {name anames args} { + SkipIgnored [set file [This]] + HandleDeclAfterBuild + + # Basic key for the clientdata and delproc arrays. + set cname $name[UUID.serial $file] + + if {[llength $args]} { + set body [lindex $args 0] + set args [lrange $args 1 end] + } else { + set body {} + } + + set clientdata NULL ;# Default: ClientData expression + set delproc NULL ;# Default: Function pointer expression + set acname 0 + set tname "" + while {[string match "-*" $args]} { + switch -- [set opt [lindex $args 0]] { + -clientdata { set clientdata [lindex $args 1] } + -delproc { set delproc [lindex $args 1] } + -cname { set acname [lindex $args 1] } + -tracename { set tname [lindex $args 1] } + default { + error "Unknown option $opt, expected one of -clientdata, -cname, -delproc" + } + } + set args [lrange $args 2 end] + } + + # Put body back into args for integration into the MD5 uuid + # generated for mode compile&run. Bug and fix reported by Peter + # Spjuth. + lappend args $body + + if {$acname} { + BeginCommand static $name $anames $args + set ns {} + set cns {} + set key $cname + set wname $name + if {$tname ne {}} { + set traceref \"$tname\" + } else { + set traceref \"$name\" + } + } else { + lassign [BeginCommand public $name $anames $args] ns cns name cname + set key [string map {:: _} $ns$cname] + set wname tcl_$cns$cname + set traceref ns_$cns$cname + } + + # XXX clientdata/delproc, either note clashes, or keep information per-file. + + set v::clientdata($key) $clientdata + set v::delproc($key) $delproc + + #set body [join $args] + if {$body != ""} { + lappend anames "" + foreach {cd ip oc ov} $anames break + if {$cd eq ""} { set cd clientdata } + if {$ip eq ""} { set ip interp } + if {$oc eq ""} { set oc objc } + if {$ov eq ""} { set ov objv } + + set ca "(ClientData $cd, Tcl_Interp *$ip, int $oc, Tcl_Obj *CONST $ov\[])" + + if {$v::options(trace)} { + # For ccommand tracing we will emit a shim after the implementation. + # Give the implementation a different name. + Emitln "static int\n${wname}_actual$ca" + } else { + Emitln "static int\n$wname$ca" + } + + Emit \{\n + lassign [HeaderLines $body] leadoffset body + if {$v::options(lines)} { + Emit [at::CPragma $leadoffset -2 $file] + } + Emit $body + Emitln \n\} + + # Now emit the call to the ccommand tracing shim. It simply + # calls the regular implementation and places the tracing + # around that. + if {$v::options(trace)} { + Emitln "\nstatic int\n$wname$ca" + Emitln \{ + Emitln " int _rv;" + Emitln " critcl_trace_cmd_args ($traceref, $oc, $ov);" + Emitln " _rv = ${wname}_actual ($cd, $ip, $oc, $ov);" + Emitln " return critcl_trace_cmd_result (_rv, $ip);" + Emitln \} + } + } else { + # if no body is specified, then $anames is alias for the real cmd proc + Emitln "#define $wname $anames" + Emitln "int $anames\(\);" + } + EndCommand + return +} + +proc ::critcl::cdata {name data} { + SkipIgnored [This] + HandleDeclAfterBuild + binary scan $data c* bytes ;# split as bytes, not (unicode) chars + + set inittext "" + set line "" + foreach x $bytes { + if {[string length $line] > 70} { + append inittext " " $line \n + set line "" + } + append line $x , + } + append inittext " " $line + + set count [llength $bytes] + + set body [subst [Cat [Template cdata.c]]] + # ^=> count, inittext + + # NOTE: The uplevel is needed because otherwise 'ccommand' will + # not properly determine the caller's namespace. + uplevel 1 [list critcl::ccommand $name {dummy ip objc objv} [at::caller!]$body] + return $name +} + +proc ::critcl::cdefines {defines {namespace "::"}} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + set digest [UUID.extend $file .cdefines [list $defines $namespace]] + + dict update v::code($file) config c { + foreach def $defines { + dict set c const $def $namespace + } + } + return +} + +proc ::critcl::MakeDerivedType {type ev} { + upvar 1 $ev errmsg + foreach synth { + MakeScalarLimited + MakeList + } { + set ltype [$synth $type errmsg] + if {$ltype eq {}} continue + return $ltype + } + return +} + +# Dynamically create an arg-type for "(length-limited) list (of T)". +proc ::critcl::MakeList {type ev} { + # Check for basic syntax. + # Accept the list indicator syntax as either prefix or suffix of the base type. + + if {![regexp {^\[(\d*|\*)\](.*)$} $type -> limit base]} { + if {![regexp {^(.*)\[(\d*|\*)\]$} $type -> base limit]} { + return + } + } + + # This looks like a list type, start recording errors + + if {($base ne {}) && ![has-argtype $base]} { + # XXX TODO: Recurse into the base for possible further synthesis. + set err "list: Unknown base type '$base'" + return + } + if {($limit ne {}) && ($limit == 0)} { + set err "list: Bad size 0, i.e. would be empty" + return + } + + # (LIST) Note: The '[]' and '[*]', i.e. unlimited lists of any type cannot appear here, because + # they exist as standard builtins. This means that at least one of base or limit is __not__ empty. + + set ntype list + + if {$base eq {}} { + append ntype _obj + } else { + append ntype _$base + } + + # Save the type-specific list type, without length restrictions factored in. + # This is what we need for the data structures and conversion, nothing more. + # IOW we do not wish to create multiple different types and functions for the + # same list type, just different length restrictions. + set nctype $ntype + + if {$limit in {{} *}} { + set limit {} + append ntype _any + } else { + append ntype _$limit + } + + # Check if this list type was seen before + if {[has-argtype $ntype]} { return $ntype } + + # Generate the validator for this kind of list. + + if {$base eq {}} { + # Without a base type simply start from `list`. + + set ctype [ArgumentCType list] + set code [ArgumentConversion list] + set new $code + } else { + # With a base type the start is not quite `list`. Because the C type is different, and we + # need a proper place for the list of Tcl_Obj* to get the element from. + + set new { + int k; + Tcl_Obj** el; + if (Tcl_ListObjGetElements (interp, @@, &(@A.c), &el) != TCL_OK) return TCL_ERROR; + @A.o = @@; + } + } + + if {$limit ne {}} { + # Check that the list conforms to the expected size + append new \ + "\n\t/* Size check, assert (length (list) == $limit) */" \ + "\n\tif (@A.c != $limit) \{" \ + "\n\t Tcl_AppendResult (interp, \"Expected a list of $limit\", NULL);" \ + "\n\t return TCL_ERROR;" \ + "\n\t\}" + } + + if {$base eq {}} { + # Without a base type we have a length-limited plain list, and there nothing more to do. + + argtype $ntype $new $ctype $ctype + argtypesupport $ntype [ArgumentSupport list] + + return $ntype + } + + # With a base type it is now time to synthesize something more complex to validate the list + # elements against the base type. `el` is the array of Tcl_Obj* holding the unconverted raw + # values. See `MakeVariadicTypeFor` too. It uses the same general schema, applied to the list of + # remaining cproc 'args'. + + lappend one @@ src + lappend one &@A dst + lappend one @A *dst + lappend one @A. dst-> + + lappend map @1conv@ [Deline [string map $one [ArgumentConversion $base]]] + lappend map @type@ [ArgumentCType $base] + lappend map @ntype@ $ntype + lappend map @nctype@ $nctype + + append new [string map $map { + @A.v = (@type@*) ((!@A.c) ? 0 : ckalloc (@A.c * sizeof (@type@))); + for (k = 0; k < @A.c; k++) { + if (_critcl_@nctype@_item (interp, el[k], &(@A.v[k])) != TCL_OK) { + ckfree ((char*) @A.v); /* Cleanup partial work */ + return TCL_ERROR; + } + } + }] + + argtype $ntype $new critcl_$nctype critcl_$nctype + + argtypesupport $ntype [string map $map { + /* NOTE: Array 'v' is allocated on the heap. The argument + // release code is used to free it after the worker + // function returned. Depending on type and what is done + // by the worker it may have to make copies of the data. + */ + + typedef struct critcl_@nctype@ { + Tcl_Obj* o; /* Original list object, for pass-through cases */ + int c; /* Element count */ + @type@* v; /* Allocated array of the elements */ + } critcl_@nctype@; + + static int + _critcl_@nctype@_item (Tcl_Interp* interp, Tcl_Obj* src, @type@* dst) { + @1conv@ + return TCL_OK; + } + }] $nctype + + argtyperelease $ntype [string map $map { + if (@A.c) { ckfree ((char*) @A.v); } + }] + + return $ntype +} + +proc ::critcl::MakeScalarLimited {type ev} { + upvar 1 $ev errmsg + if {[catch {llength $type}]} return + + if {[lindex $type 0] ni { + int long wideint double float + }} return + + # At this point we assume that it can be a restricted scalar type and we record errors. + + set limits [lassign $type base] + set n [llength $type] + if {($n < 3) || (($n % 2) == 0)} { set err "$type: Incomplete restriction" ; return } + + foreach {op _} $limits { + if {$op in {> < >= <=}} continue + set err "$type: Bad relation '$op'" + return + } + + if {$base in {int long wideint}} { + foreach {_ v} $limits { + if {[string is integer -strict $v]} continue + set err "$base: Expected integer, have '$v'" + return + } + } else { + # double or float + foreach {_ v} $limits { + if {[string is double -strict $v]} continue + set err "$base: Expected float, have '$v'" + return + } + } + + # This looks mostly good. Condense the set of restrictions into a simple min/max range + lassign {} mingt minge maxlt maxle + + # Phase 1. Fuse identical kind of restrictions into a single of their type + foreach {op v} $limits { + switch -exact -- $op { + > { if {($mingt eq {}) || ($v > $mingt)} { set mingt $v } } + >= { if {($minge eq {}) || ($v > $minge)} { set minge $v } } + < { if {($maxlt eq {}) || ($v < $maxlt)} { set maxlt $v } } + <= { if {($maxle eq {}) || ($v < $maxle)} { set maxle $v } } + } + } + + # Phase 2. Fuse similar (lt/le, gt/ge) into a single + + if {($mingt ne {}) && ($minge ne {})} { + # We have both x > a && + # x >= b + # ... Determine the stricter form. + + # a > b => "> a" + # a < b => ">= b" + # a == b => "> a" + + if {$mingt >= $minge} { + set min $mingt + set minop > + } else { + set min $minge + set minop >= + } + } elseif {$mingt ne {}} { + # x > a only + set min $mingt + set minop > + } elseif {$minge ne {}} { + # x >= a only + set min $minge + set minop >= + } else { + # No limit + lassign {} min minop + } + + if {($maxlt ne {}) && ($maxle ne {})} { + # We have both x < a && + # x <= b + # ... Determine the stricter form. + + # a > b => "<= b" + # a < b => "< a" + # a == b => "< a" + + if {$maxlt <= $maxle} { + set max $maxlt + set maxop < + } else { + set max $maxle + set maxop <= + } + } elseif {$maxlt ne {}} { + # x > a only + set max $maxlt + set maxop < + } elseif {$maxle ne {}} { + # x >= a only + set max $maxle + set maxop <= + } else { + # No limit + lassign {} max maxop + } + + if {($min ne {}) && ($max ne {})} { + # With both limits they may specify an empty range, or a range allowing only single value. + # That is not sensible. + + # a < x < b -- a >= b is empty + # a <= x < b -- a >= b is empty + # a < x <= b -- a >= b is empty + # a <= x <= b -- a > b is empty, a == b is singular, + + # Reduced checks: + # - a > b is empty + # - a == b is singular if both <=, else empty + + if {($min > $max)} { + set err "$base: Limits do not allow any value as valid" + return + } + if {$min == $max} { + if {$minop$maxop eq ">=<=")} { + set err "$base: Limits only allow a single value as valid: $min" + } else { + set err "$base: Limits do not allow any value as valid" + } + return + } + } + + # Compute canonical type from the fused ranges. + + set ntype $base + if {$min ne {}} { lappend ntype $minop $min } + if {$max ne {}} { lappend ntype $maxop $max } + + # Check if we saw this canonical type before. + + if {[has-argtype $ntype]} { return $ntype } + + # Generate the new type + + set ctype [ArgumentCType $base] + set code [ArgumentConversion $base] + + set head "expected $ntype, but got \\\"" + set tail "\\\"" + set msg "\"$head\", Tcl_GetString (@@), \"$tail\"" + set new $code + + if {$min ne {}} { + append new \ + "\n\t/* Range check, assert (x $minop $min) */" \ + "\n\tif (!(@A $minop $min)) \{" \ + "\n\t Tcl_AppendResult (interp, $msg, NULL);" \ + "\n\t return TCL_ERROR;" \ + "\n\t\}" + } + if {$max ne {}} { + append new \ + "\n\t/* Range check, assert (x $maxop $max) */" \ + "\n\tif (!(@A $maxop $max)) \{" \ + "\n\t Tcl_AppendResult (interp, $msg, NULL);" \ + "\n\t return TCL_ERROR;" \ + "\n\t\}" + } + + argtype $ntype $new $ctype $ctype + + return $ntype +} + +proc ::critcl::MakeVariadicTypeFor {type} { + # Note: The type "Tcl_Obj*" required special treatment and is + # directly defined as a builtin, see 'Initialize'. The has-argtype + # check below will prevent us from trying to create something + # generic, and wrong. + + set ltype variadic_$type + if {![has-argtype $ltype]} { + # Generate a type representing a list/array of + # elements, plus conversion code. Similar to the 'list' type, + # except for custom C types, and conversion assumes variadic, + # not single argument. + + lappend one @@ src + lappend one &@A dst + lappend one @A *dst + lappend one @A. dst-> + lappend map @1conv@ [Deline [string map $one [ArgumentConversion $type]]] + + lappend map @type@ [ArgumentCType $type] + lappend map @ltype@ $ltype + + argtype $ltype [string map $map { + int src, dst, leftovers = @C; + @A.c = leftovers; + @A.v = (@type@*) ((!leftovers) ? 0 : ckalloc (leftovers * sizeof (@type@))); + @A.o = (Tcl_Obj**) &ov[@I]; + for (src = @I, dst = 0; leftovers > 0; dst++, src++, leftovers--) { + if (_critcl_variadic_@type@_item (interp, ov[src], &(@A.v[dst])) != TCL_OK) { + ckfree ((char*) @A.v); /* Cleanup partial work */ + return TCL_ERROR; + } + } + }] critcl_$ltype critcl_$ltype + + argtypesupport $ltype [string map $map { + /* NOTE: Array 'v' is allocated on the heap. The argument + // release code is used to free it after the worker + // function returned. Depending on type and what is done + // by the worker it may have to make copies of the data. + */ + + typedef struct critcl_@ltype@ { + Tcl_Obj** o; /* Original object array */ + int c; /* Element count */ + @type@* v; /* Allocated array of the elements */ + } critcl_@ltype@; + + static int + _critcl_variadic_@type@_item (Tcl_Interp* interp, Tcl_Obj* src, @type@* dst) { + @1conv@ + return TCL_OK; + } + }] + + argtyperelease $ltype [string map $map { + if (@A.c) { ckfree ((char*) @A.v); } + }] + } + return $ltype +} + +proc ::critcl::ArgsInprocess {adefs skip} { + # Convert the regular arg spec from the API into a dictionary + # containing all the derived data we need in the various places of + # the cproc implementation. + + set db {} + + set names {} ; # list of raw argument names + set cnames {} ; # list of C var names for the arguments. + set optional {} ; # list of flags signaling optional args. + set variadic {} ; # list of flags signaling variadic args. + set islast {} ; # list of flags signaling the last arg. + set varargs no ; # flag signaling 'args' collector. + set defaults {} ; # list of default values. + set csig {} ; # C signature of worker function. + set tsig {} ; # Tcl signature for frontend/shim command. + set vardecls {} ; # C variables for arg conversion in the shim. + set support {} ; # Conversion support code for arguments. + set has {} ; # Types for which we have emitted the support + # code already. (dict: type -> '.' (presence)) + set hasopt no ; # Overall flag - Have optionals ... + set min 0 ; # Count required args - minimal needed. + set max 0 ; # Count all args - maximal allowed. + set aconv {} ; # list of the basic argument conversions. + set achdr {} ; # list of arg conversion annotations. + set arel {} ; # List of arg release code fragments, for those which have them. + + # Normalization, and typo fixing: + # - Remove singular commas from the list. + # - Strip argument names of trailing commas. + # - Strip type names of leading commas. + # Reason: Handle mistakenly entered C syntax for a function/command. + # + # Newly accepted syntax: + # = int x , int y ... + # = int x, int y ... + # = int x ,int y ... + + # TODO: lmap. + set adefnew {} + set mode type + foreach word $adefs { + if {$word eq ","} continue + switch -exact -- $mode { + type { lappend adefnew [string trimleft $word ,] ; set mode args } + args { lappend adefnew [string trimright $word ,] ; set mode type } + } + } + set adefs $adefnew ; unset adefnew mode + + # A 1st argument matching "Tcl_Interp*" does not count as a user + # visible command argument. But appears in both signature and + # actual list of arguments. + if {[lindex $adefs 0] eq "Tcl_Interp*"} { + lappend csig [lrange $adefs 0 1] + lappend cnames interp;#Fixed name for cproc[lindex $adefs 1] + set adefs [lrange $adefs 2 end] + } + + set last [expr {[llength $adefs]/2-1}] + set current 0 + + foreach {t a} $adefs { + # t = type + # a = name | {name default} + + # Check for a special case of list syntax, where the list indicator is written as suffix of + # the argument name, instead of attached to the base type. When found normalize to the + # expected form. I.e. transform a spec of the form `type a[...]` into `[...]type a`. + # + # Note that the argument name may be packaged with a default value. Ensure that we deail + # with only the name itself. + + set hasdefault [expr {[llength $a] == 2}] + lassign $a name defaultvalue + + if {[regexp {^(.+)(\[(\d*|\*)\])$} $name -> abase limit _]} { + set name $abase + set t $limit$t + } + + # Check type validity + + if {![has-argtype $t]} { + # XXXA Attempt to compute a derived type on the fly. + set err "Argument type '$t' is not known" + set ltype [MakeDerivedType $t err] + if {$ltype eq {}} { + return -code error $err + } + + set t $ltype + } + + # Base type support + if {![dict exists $has $t]} { + dict set has $t . + lappend support "[ArgumentSupport $t]" + } + + lappend islast [expr {$current == $last}] + + # Cases to consider: + # 1. 'args' as the last argument, without a default. + # 2. Any argument with a default value. + # 3. Any argument. + + if {($current == $last) && ($name eq "args") && !$hasdefault} { + set hdr " /* ($t $name, ...) - - -- --- ----- -------- */" + lappend optional 0 + lappend variadic 1 + lappend defaults n/a + lappend tsig ?${name}...? + set varargs yes + set max Inf ; # No limit on the number of args. + + # Dynamically create an arg-type for "variadic list of T". + set t [MakeVariadicTypeFor $t] + # List support. + if {![dict exists $has $t]} { + dict set has $t . + lappend support "[ArgumentSupport $t]" + } + + } elseif {$hasdefault} { + incr max + set hasopt yes + set hdr " /* ($t $name, optional, default $defaultvalue) - - -- --- ----- -------- */" + lappend tsig ?${name}? + lappend optional 1 + lappend variadic 0 + lappend defaults $defaultvalue + lappend cnames _has_$name + # Argument to signal if the optional argument was set + # (true) or is the default (false). + lappend csig "int has_$name" + lappend vardecls "int _has_$name = 0;" + + } else { + set hdr " /* ($t $name) - - -- --- ----- -------- */" + lappend tsig $name + incr max + incr min + lappend optional 0 + lappend variadic 0 + lappend defaults n/a + } + + lappend achdr $hdr + lappend csig "[ArgumentCTypeB $t] $name" + lappend vardecls "[ArgumentCType $t] _$name;" + + lappend names $name + lappend cnames _$name + lappend aconv [TraceReturns "\"$t\" argument" [ArgumentConversion $t]] + + set rel [ArgumentRelease $t] + if {$rel ne {}} { + set rel [string map [list @A _$name] $rel] + set hdr [string map {( {(Release: }} $hdr] + lappend arel "$hdr$rel" + } + + incr current + } + + set thresholds {} + if {$hasopt} { + # Compute thresholds for optional arguments. The threshold T + # of an optional argument A is the number of required + # arguments _after_ A. If during arg processing more than T + # arguments are left then A can take the current word, + # otherwise A is left to its default. We compute them from the + # end. + set t 0 + foreach o [lreverse $optional] { + if {$o} { + lappend thresholds $t + } else { + lappend thresholds - + incr t + } + } + set thresholds [lreverse $thresholds] + } + + set tsig [join $tsig { }] + if {$tsig eq {}} { + set tsig NULL + } else { + set tsig \"$tsig\" + } + + # Generate code for wrong#args checking, based on the collected + # min/max information. Cases to consider: + # + # a. max == Inf && min == 0 <=> All argc allowed. + # b. max == Inf && min > 0 <=> Fail argc < min. + # c. max < Inf && min == max <=> Fail argc != min. + # d. max < Inf && min < max <=> Fail argc < min || max < argc + + if {$max == Inf} { + # a, b + if {!$min} { + # a: nothing to check. + set wacondition {} + } else { + # b: argc < min + set wacondition {oc < MIN_ARGS} + } + } else { + # c, d + if {$min == $max} { + # c: argc != min + set wacondition {oc != MIN_ARGS} + } else { + # d: argc < min || max < argc + set wacondition {(oc < MIN_ARGS) || (MAX_ARGS < oc)} + } + } + + # Generate conversion code for arguments. Use the threshold + # information to handle optional arguments at all positions. + # The code is executed after the wrong#args check. + # That means we have at least 'min' arguments, enough to fill + # all the required parameters. + + set map {} + set conv {} + set opt no + set idx $skip + set prefix " idx_ = $idx;" ; # Start at skip offset! + append prefix "\n argc_ = oc - $idx;" + foreach \ + name $names \ + t $thresholds \ + o $optional \ + v $variadic \ + l $islast \ + h $achdr \ + c $aconv \ + d $defaults { + + # Things to consider: + # 1. Required variables at the beginning. + # We can access these using fixed indices. + # 2. Any other variable require access using a dynamic index + # (idx_). During (1) we maintain the code initializing + # this. + + set useindex [expr {!$l}] ;# last arg => no need for idx/argc updates + + if {$v} { + # Variadic argument. Can only be last. + # opt => dynamic access at idx_..., collect argc_ + # !opt => static access at $idx ..., collect oc-$idx + + unset map + lappend map @A _$name + if {$opt} { + lappend map @I idx_ @C argc_ + } else { + lappend map @I $idx @C (oc-$idx) + } + + set c [string map $map $c] + + lappend conv $h + lappend conv $c + lappend conv {} + lappend conv {} + break + } + + if {$o} { + # Optional argument. Anywhere. Check threshold. + + unset map + lappend map @@ "ov\[idx_\]" + lappend map @A _$name + + set c [string map $map $c] + + if {$prefix ne {}} { lappend conv $prefix\n } + lappend conv $h + lappend conv " if (argc_ > $t) \{" + lappend conv $c + if {$useindex} { + lappend conv " idx_++;" + lappend conv " argc_--;" + } + lappend conv " _has_$name = 1;" + lappend conv " \} else \{" + lappend conv " _$name = $d;" + lappend conv " \}" + lappend conv {} + lappend conv {} + + set prefix {} + set opt yes + continue + } + + if {$opt} { + # Required argument, after one or more optional arguments + # were processed. Access to current word is dynamic. + + unset map + lappend map @@ "ov\[idx_\]" + lappend map @A _$name + + set c [string map $map $c] + + lappend conv $h + lappend conv $c + lappend conv {} + if {$useindex} { + lappend conv " idx_++;" + lappend conv " argc_--;" + } + lappend conv {} + lappend conv {} + continue + } + + # Required argument. No optionals processed yet. Access to + # current word is via static index. + + unset map + lappend map @@ "ov\[$idx\]" + lappend map @A _$name + + set c [string map $map $c] + + lappend conv $h + lappend conv $c + lappend conv {} + lappend conv {} + + incr idx + set prefix " idx_ = $idx;" + append prefix "\n argc_ = oc - $idx;" + } + set conv [Deline [join $conv \n]] + + # Save results ... + + dict set db skip $skip + dict set db aconv $conv + dict set db arelease $arel + dict set db thresholds $thresholds + dict set db wacondition $wacondition + dict set db min $min + dict set db max $max + dict set db tsignature $tsig + dict set db names $names + dict set db cnames $cnames + dict set db optional $optional + dict set db variadic $variadic + dict set db islast $islast + dict set db defaults $defaults + dict set db varargs $varargs + dict set db csignature $csig + dict set db vardecls $vardecls + dict set db support $support + dict set db hasoptional $hasopt + + #puts ___________________________________________________________|$adefs + #array set __ $db ; parray __ + #puts _______________________________________________________________\n + return $db +} + +proc ::critcl::argoptional {adefs} { + set optional {} + + # A 1st argument matching "Tcl_Interp*" does not count as a user + # visible command argument. + if {[lindex $adefs 0] eq "Tcl_Interp*"} { + set adefs [lrange $adefs 2 end] + } + + foreach {t a} $adefs { + if {[llength $a] == 2} { + lappend optional 1 + } else { + lappend optional 0 + } + } + + return $optional +} + +proc ::critcl::argdefaults {adefs} { + set defaults {} + + # A 1st argument matching "Tcl_Interp*" does not count as a user + # visible command argument. + if {[lindex $adefs 0] eq "Tcl_Interp*"} { + set adefs [lrange $adefs 2 end] + } + + foreach {t a} $adefs { + if {[llength $a] == 2} { + lappend defaults [lindex $a 1] + } + } + + return $defaults +} + +proc ::critcl::argnames {adefs} { + set names {} + + # A 1st argument matching "Tcl_Interp*" does not count as a user + # visible command argument. + if {[lindex $adefs 0] eq "Tcl_Interp*"} { + set adefs [lrange $adefs 2 end] + } + + foreach {t a} $adefs { + if {[llength $a] == 2} { + set a [lindex $a 0] + } + lappend names $a + } + + return $names +} + +proc ::critcl::argcnames {adefs {interp ip}} { + set cnames {} + + if {[lindex $adefs 0] eq "Tcl_Interp*"} { + lappend cnames interp + set adefs [lrange $adefs 2 end] + } + + foreach {t a} $adefs { + if {[llength $a] == 2} { + set a [lindex $a 0] + lappend cnames _has_$a + } + lappend cnames _$a + } + + return $cnames +} + +proc ::critcl::argcsignature {adefs} { + # Construct the signature of the low-level C function. + + set cargs {} + + # If the 1st argument is "Tcl_Interp*", we pass it without + # counting it as a command argument. + + if {[lindex $adefs 0] eq "Tcl_Interp*"} { + lappend cargs [lrange $adefs 0 1] + set adefs [lrange $adefs 2 end] + } + + foreach {t a} $adefs { + if {[llength $a] == 2} { + set a [lindex $a 0] + # Argument to signal if the optional argument was set + # (true) or is the default (false). + lappend cargs "int has_$a" + } + lappend cargs "[ArgumentCTypeB $t] $a" + } + + return $cargs +} + +proc ::critcl::argvardecls {adefs} { + # Argument variables, destinations for the Tcl -> C conversion. + + # A 1st argument matching "Tcl_Interp*" does not count as a user + # visible command argument. + if {[lindex $adefs 0] eq "Tcl_Interp*"} { + set adefs [lrange $adefs 2 end] + } + + set result {} + foreach {t a} $adefs { + if {[llength $a] == 2} { + set a [lindex $a 0] + lappend result "[ArgumentCType $t] _$a;\n int _has_$a = 0;" + } else { + lappend result "[ArgumentCType $t] _$a;" + } + } + + return $result +} + +proc ::critcl::argsupport {adefs} { + # Argument global support, outside/before function. + + # A 1st argument matching "Tcl_Interp*" does not count as a user + # visible command argument. + if {[lindex $adefs 0] eq "Tcl_Interp*"} { + set adefs [lrange $adefs 2 end] + } + + set has {} + + set result {} + foreach {t a} $adefs { + if {[lsearch -exact $has $t] >= 0} continue + lappend has $t + lappend result "[ArgumentSupport $t]" + } + + return $result +} + +proc ::critcl::argconversion {adefs {n 1}} { + # A 1st argument matching "Tcl_Interp*" does not count as a user + # visible command argument. + if {[lindex $adefs 0] eq "Tcl_Interp*"} { + set adefs [lrange $adefs 2 end] + } + + set min $n ; # count all non-optional arguments. min required. + foreach {t a} $adefs { + if {[llength $a] == 2} continue + incr min + } + + set result {} + set opt 0 + set prefix " idx_ = $n;\n" + + foreach {t a} $adefs { + if {[llength $a] == 2} { + # Optional argument. Can be first, or later. + # For the first the prefix gives us the code to initialize idx_. + + lassign $a a default + + set map [list @@ "ov\[idx_\]" @A _$a] + set code [string map $map [ArgumentConversion $t]] + + set code "${prefix} if (oc > $min) \{\n$code\n idx_++;\n _has_$a = 1;\n \} else \{\n _$a = $default;\n \}" + incr min + + lappend result " /* ($t $a, optional, default $default) - - -- --- ----- -------- */" + lappend result $code + lappend result {} + set opt 1 + set prefix "" + } elseif {$opt} { + # Fixed argument, after the optionals. + # Main issue: Use idx_ to access the array. + # We know that no optionals can follow, only the same. + + set map [list @@ "ov\[idx_\]" @A _$a] + lappend result " /* ($t $a) - - -- --- ----- -------- */" + lappend result [string map $map [ArgumentConversion $t]] + lappend result " idx_++;" + lappend result {} + + } else { + # Fixed argument, before any optionals. + set map [list @@ "ov\[$n\]" @A _$a] + lappend result " /* ($t $a) - - -- --- ----- -------- */" + lappend result [string map $map [ArgumentConversion $t]] + lappend result {} + incr n + set prefix " idx_ = $n;\n" + } + } + + return [Deline $result] +} + +proc ::critcl::has-argtype {name} { + variable v::aconv + return [info exists aconv($name)] +} + +proc ::critcl::argtype-def {name} { + lappend def [ArgumentCType $name] + lappend def [ArgumentCTypeB $name] + lappend def [ArgumentConversion $name] + lappend def [ArgumentRelease $name] + lappend def [ArgumentSupport $name] + return $def +} + +proc ::critcl::argtype {name conversion {ctype {}} {ctypeb {}}} { + variable v::actype + variable v::actypeb + variable v::aconv + variable v::acrel + variable v::acsup + + # ctype Type of variable holding the argument. + # ctypeb Type of formal C function argument. + + # Handle aliases by copying the original definition. + if {$conversion eq "="} { + # XXXA auto-create derived type from known base types. + + if {![info exists aconv($ctype)]} { + return -code error "Unable to alias unknown type '$ctype'." + } + + # Do not forget to copy support and release code, if present. + if {[info exists acsup($ctype)]} { + #puts COPY/S:$ctype + set acsup($name) $acsup($ctype) + } + if {[info exists acrel($ctype)]} { + #puts COPY/R:$ctype + set acrel($name) $acrel($ctype) + } + + set conversion $aconv($ctype) + set ctypeb $actypeb($ctype) + set ctype $actype($ctype) + } else { + lassign [HeaderLines $conversion] leadoffset conversion + set conversion "\t\{\n[at::caller! $leadoffset]\t[string trim $conversion] \}" + } + if {$ctype eq {}} { + set ctype $name + } + if {$ctypeb eq {}} { + set ctypeb $name + } + + if {[info exists aconv($name)] && + (($aconv($name) ne $conversion) || + ($actype($name) ne $ctype) || + ($actypeb($name) ne $ctypeb)) + } { + return -code error "Illegal duplicate definition of '$name'." + } + + set aconv($name) $conversion + set actype($name) $ctype + set actypeb($name) $ctypeb + return +} + +proc ::critcl::argtypesupport {name code {guard {}}} { + variable v::aconv + variable v::acsup + if {![info exists aconv($name)]} { + return -code error "No definition for '$name'." + } + if {$guard eq {}} { + set guard $name ; # Handle non-identifier chars! + } + lappend lines "#ifndef CRITCL_$guard" + lappend lines "#define CRITCL_$guard" + lappend lines $code + lappend lines "#endif /* CRITCL_$guard _________ */" + set support [join $lines \n]\n + + if {[info exists acsup($name)] && + ($acsup($name) ne $support) + } { + return -code error "Illegal duplicate support of '$name'." + } + + set acsup($name) $support + return +} + +proc ::critcl::argtyperelease {name code} { + variable v::aconv + variable v::acrel + if {![info exists aconv($name)]} { + return -code error "No definition for '$name'." + } + if {[info exists acrel($name)] && + ($acrel($name) ne $code) + } { + return -code error "Illegal duplicate release of '$name'." + } + + set acrel($name) $code + return +} + +proc ::critcl::has-resulttype {name} { + variable v::rconv + return [info exists rconv($name)] +} + +proc ::critcl::resulttype {name conversion {ctype {}}} { + variable v::rctype + variable v::rconv + + # Handle aliases by copying the original definition. + if {$conversion eq "="} { + if {![info exists rconv($ctype)]} { + return -code error "Unable to alias unknown type '$ctype'." + } + set conversion $rconv($ctype) + set ctype $rctype($ctype) + } else { + lassign [HeaderLines $conversion] leadoffset conversion + set conversion [at::caller! $leadoffset]\t[string trimright $conversion] + } + if {$ctype eq {}} { + set ctype $name + } + + if {[info exists rconv($name)] && + (($rconv($name) ne $conversion) || + ($rctype($name) ne $ctype)) + } { + return -code error "Illegal duplicate definition of '$name'." + } + + set rconv($name) $conversion + set rctype($name) $ctype + return +} + +proc ::critcl::cconst {name rtype rvalue} { + # The semantics are equivalent to + # + # cproc $name {} $rtype { return $rvalue ; } + # + # The main feature of this new command is the knowledge of a + # constant return value, which allows the optimization of the + # generated code. Only the shim is emitted, with the return value + # in place. No need for a lower-level C function containing a + # function body. + + SkipIgnored [set file [This]] + HandleDeclAfterBuild + + # A void result does not make sense for constants. + if {$rtype eq "void"} { + error "Constants cannot be of type \"void\"" + } + + lassign [BeginCommand public $name $rtype $rvalue] ns cns name cname + set traceref ns_$cns$cname + set wname tcl_$cns$cname + set cname c_$cns$cname + + # Construct the shim handling the conversion between Tcl and C + # realms. + + set adb [ArgsInprocess {} 1] + + EmitShimHeader $wname + EmitShimVariables $adb $rtype + EmitArgTracing $traceref + EmitWrongArgsCheck $adb + EmitConst $rtype $rvalue + EmitShimFooter $adb $rtype + EndCommand + return +} + +proc ::critcl::CheckForTracing {} { + if {!$v::options(trace)} return + if {[info exists ::critcl::v::__trace__]} return + + package require critcl::cutil + ::critcl::cutil::tracer on + set ::critcl::v::__trace__ marker ;# See above + return +} + +proc ::critcl::cproc {name adefs rtype {body "#"} args} { + SkipIgnored [set file [This]] + HandleDeclAfterBuild + CheckForTracing + + set acname 0 + set passcd 0 + set aoffset 0 + set tname "" + while {[string match "-*" $args]} { + switch -- [set opt [lindex $args 0]] { + -cname { set acname [lindex $args 1] } + -pass-cdata { set passcd [lindex $args 1] } + -arg-offset { set aoffset [lindex $args 1] } + -tracename { set tname [lindex $args 1] } + default { + error "Unknown option $opt, expected one of -cname, or -pass-cdata" + } + } + set args [lrange $args 2 end] + } + + incr aoffset ; # always include the command name. + set adb [ArgsInprocess $adefs $aoffset] + + if {$acname} { + BeginCommand static $name $adefs $rtype $body + set ns {} + set cns {} + set wname $name + set cname c_$name + if {$tname ne {}} { + set traceref \"$tname\" + } else { + set traceref \"$name\" + } + } else { + lassign [BeginCommand public $name $adefs $rtype $body] ns cns name cname + set traceref ns_$cns$cname + set wname tcl_$cns$cname + set cname c_$cns$cname + } + + set names [dict get $adb names] + set cargs [dict get $adb csignature] + set cnames [dict get $adb cnames] + + if {$passcd} { + set cargs [linsert $cargs 0 {ClientData clientdata}] + set cnames [linsert $cnames 0 cd] + } + + # Support code for argument conversions (i.e. structures, helper + # functions, etc. ...) + EmitSupport $adb + + # Emit either the low-level function, or, if it wasn't defined + # here, a reference to the shim we can use. + + if {$body ne "#"} { + Emit "static [ResultCType $rtype] " + Emitln "${cname}([join $cargs {, }])" + Emit \{\n + lassign [HeaderLines $body] leadoffset body + if {$v::options(lines)} { + Emit [at::CPragma $leadoffset -2 $file] + } + Emit $body + Emitln \n\} + } else { + Emitln "#define $cname $name" + } + + # Construct the shim handling the conversion between Tcl and C + # realms. + + EmitShimHeader $wname + EmitShimVariables $adb $rtype + EmitArgTracing $traceref + EmitWrongArgsCheck $adb + Emit [dict get $adb aconv] + EmitCall $cname $cnames $rtype + EmitShimFooter $adb $rtype + EndCommand + return +} + +proc ::critcl::cinit {text edecls} { + set file [SkipIgnored [set file [This]]] + HandleDeclAfterBuild + CInitCore $file $text $edecls + return +} + +proc ::critcl::CInitCore {file text edecls} { + set digesta [UUID.extend $file .cinit.f $text] + set digestb [UUID.extend $file .cinit.e $edecls] + + set initc {} + set skip [Lines $text] + lassign [HeaderLines $text] leadoffset text + if {$v::options(lines)} { + append initc [at::CPragma $leadoffset -2 $file] + } + append initc $text \n + + set edec {} + lassign [HeaderLines $edecls] leadoffset edecls + if {$v::options(lines)} { + incr leadoffset $skip + append edec [at::CPragma $leadoffset -2 $file] + } + append edec $edecls \n + + dict update v::code($file) config c { + dict append c initc $initc \n + dict append c edecls $edec \n + } + return +} + +# # ## ### ##### ######## ############# ##################### +## Public API to code origin handling. + +namespace eval ::critcl::at { + namespace export caller caller! here here! get get* incr incrt = + catch { namespace ensemble create } +} + +# caller - stash caller location, possibly modified (level change, line offset) +# caller! - format & return caller location, clears stash +# here - stash current location +# here! - return format & return current location, clears stash +# incr* - modify stashed location (only line number, not file). +# get - format, return, and clear stash +# get* - format & return stash + +proc ::critcl::at::caller {{off 0} {level 0}} { + ::incr level -3 + Where $off $level [::critcl::This] + return +} + +proc ::critcl::at::caller! {{off 0} {level 0}} { + ::incr level -3 + Where $off $level [::critcl::This] + return [get] +} + +proc ::critcl::at::here {} { + Where 0 -2 [::critcl::This] + return +} + +proc ::critcl::at::here! {} { + Where 0 -2 [::critcl::This] + return [get] +} + +proc ::critcl::at::get {} { + variable where + if {!$::critcl::v::options(lines)} { + return {} + } + if {![info exists where]} { + return -code error "No location defined" + } + set result [Format $where] + unset where + return $result +} + +proc ::critcl::at::get* {} { + variable where + if {!$::critcl::v::options(lines)} { + return {} + } + if {![info exists where]} { + return -code error "No location defined" + } + return [Format $where] +} + +proc ::critcl::at::= {file line} { + variable where + set where [list $file $line] + return +} + +proc ::critcl::at::incr {args} { + variable where + lassign $where file line + foreach offset $args { + ::incr line $offset + } + set where [list $file $line] + return +} + +proc ::critcl::at::incrt {args} { + variable where + if {$where eq {}} { + # Ignore problem when we have no precise locations. + if {![interp debug {} -frame]} return + return -code error "No location to change" + } + lassign $where file line + foreach text $args { + ::incr line [::critcl::Lines $text] + } + set where [list $file $line] + return +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- API: Input and Output control + +proc ::critcl::collect {script {slot {}}} { + collect_begin $slot + uplevel 1 $script + return [collect_end] +} + +proc ::critcl::collect_begin {{slot {}}} { + # Divert the collection of code fragments to slot + # (output control). Stack on any previous diversion. + variable v::this + # See critcl::This for where this information is injected into the + # code generation system. + + if {$slot eq {}} { + set slot MEMORY[expr { [info exists this] + ? [llength $this] + : 0 }] + } + # Prefix prevents collision of slot names and file paths. + lappend this critcl://$slot + return +} + +proc ::critcl::collect_end {} { + # Stop last diversion, and return the collected information as + # single string of C code. + variable v::this + # See critcl::This for where this information is injected into the + # code generation system. + + # Ensure that a diversion is actually open. + if {![info exists this] || ![llength $this]} { + return -code error "collect_end mismatch, no diversions active" + } + + set slot [Dpop] + set block {} + + foreach digest [dict get $v::code($slot) config fragments] { + append block "[Separator]\n\n" + append block [dict get $v::code($slot) config block $digest]\n + } + + # Drop all the collected data. Note how anything other than the C + # code fragments is lost, and how cbuild results are removed + # also. These do not belong anyway. + unset v::code($slot) + + return $block +} + + +proc ::critcl::Dpop {} { + variable v::this + + # Get current slot, and pop from the diversion stack. + # Remove stack when it becomes empty. + set slot [lindex $this end] + set v::this [lrange $this 0 end-1] + if {![llength $this]} { + unset this + } + return $slot +} + +proc ::critcl::include {path args} { + # Include headers or other C files into the current code. + set args [linsert $args 0 $path] + msg " (include <[join $args ">)\n (include <"]>)" + ccode "#include <[join $args ">\n#include <"]>" +} + +proc ::critcl::make {path contents} { + # Generate a header or other C file for pickup by other parts of + # the current package. Stored in the cache dir, making it local. + file mkdir [cache] + set cname [file join [cache] $path] + + set c [open $cname.[pid] w] + puts -nonewline $c $contents\n\n + close $c + file rename -force $cname.[pid] $cname + + return $path +} + +proc ::critcl::source {path} { + # Source a critcl file in the context of the current file, + # i.e. [This]. Enables the factorization of a large critcl + # file into smaller, easier to read pieces. + SkipIgnored [set file [This]] + HandleDeclAfterBuild + + msg " (importing $path)" + + set undivert 0 + variable v::this + if {![info exists this] || ![llength $this]} { + # critcl::source is recording the critcl commands in the + # context of the toplevel file which started the chain the + # critcl::source. So why are we twiddling with the diversion + # state? + # + # The condition above tells us that we are in the first + # non-diverted critcl::source called by the context. [This] + # returns that context. Due to our use of regular 'source' (*) + # during its execution [This] would return the sourced file as + # context. Wrong. Our fix for this is to perform, essentially, + # an anti-diversion. Saving [This] as diversion, forces it to + # return the proper value during the whole sourcing. + # + # And if the critcl::source is run in an already diverted + # context then the changes to [info script] by 'source' do not + # matter, making an anti-diversion unnecessary. + # + # Diversions inside of 'source' will work as usual, given + # their nesting nature. + # + # (Ad *) And we use 'source' as only this ensures proper + # collection of [info frame] location information. + + lappend this [This] + set undivert 1 + } + + foreach f [Expand $file $path] { + set v::source $f + # The source file information is used by critcl::at::Where + #uplevel 1 [Cat $f] + uplevel #0 [list ::source $f] + unset -nocomplain v::source + } + + if {$undivert} Dpop + return +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- API: Control & Interface + +proc ::critcl::owns {args} {} + +proc ::critcl::cheaders {args} { + SkipIgnored [This] + HandleDeclAfterBuild + return [SetParam cheaders [ResolveRelative -I $args]] +} + +proc ::critcl::csources {args} { + SkipIgnored [This] + HandleDeclAfterBuild + return [SetParam csources $args 1 1 1] +} + +proc ::critcl::clibraries {args} { + SkipIgnored [This] + HandleDeclAfterBuild + return [SetParam clibraries [ResolveRelative { + -L --library-directory + } $args]] +} + +proc ::critcl::cobjects {args} { + SkipIgnored [This] + HandleDeclAfterBuild + return [SetParam cobjects $args] +} + +proc ::critcl::tsources {args} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + # Here, 'license', 'meta?' and 'meta' are the only places where we + # are not extending the UUID. Because the companion Tcl sources + # (count, order, and content) have no bearing on the binary at + # all. + InitializeFile $file + + set dfiles {} + dict update v::code($file) config c { + foreach f $args { + foreach e [Expand $file $f] { + dict lappend c tsources $e + lappend dfiles $e + } + } + } + # Attention: The actual scanning is done outside of the `dict + # update`, because it makes changes to the dictionary which would + # be revert on exiting the update. + foreach e $dfiles { + ScanDependencies $file $e + } + return +} + +proc ::critcl::cflags {args} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + if {![llength $args]} return + CFlagsCore $file $args + return +} + +proc ::critcl::CFlagsCore {file flags} { + UUID.extend $file .cflags $flags + dict update v::code($file) config c { + foreach flag $flags { + dict lappend c cflags $flag + } + } + return +} + +proc ::critcl::ldflags {args} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + if {![llength $args]} return + + UUID.extend $file .ldflags $args + dict update v::code($file) config c { + foreach flag $args { + # Drop any -Wl prefix which will be added back a moment + # later, otherwise it would be doubled, breaking the command. + regsub -all {^-Wl,} $flag {} flag + dict lappend c ldflags -Wl,$flag + } + } + return +} + +proc ::critcl::framework {args} { + SkipIgnored [This] + HandleDeclAfterBuild + + # Check if we are building for OSX and ignore the command if we + # are not. Our usage of "actualtarget" means that we allow for a + # cross-compilation environment to OS X as well. + if {![string match "macosx*" [actualtarget]]} return + + foreach arg $args { + # if an arg contains a slash it must be a framework path + if {[string first / $arg] == -1} { + ldflags -framework $arg + } else { + cflags -F$arg + ldflags -F$arg + } + } + return +} + +proc ::critcl::tcl {version} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + + msg " (tcl $version)" + + UUID.extend $file .mintcl $version + dict set v::code($file) config mintcl $version + + # This is also a dependency to record in the meta data. A 'package + # require' is not needed. This can be inside of the generated and + # loaded C code. + + ImetaAdd $file require [list [list Tcl $version]] + return +} + +proc ::critcl::tk {} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + + msg " (+tk)" + + UUID.extend $file .tk 1 + dict set v::code($file) config tk 1 + + # This is also a dependency to record in the meta data. A 'package + # require' is not needed. This can be inside of the generated and + # loaded C code. + + ImetaAdd $file require Tk + return +} + +# Register a shared library for pre-loading - this will eventually be +# redundant when TIP #239 is widely available +proc ::critcl::preload {args} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + if {![llength $args]} return + + UUID.extend $file .preload $args + dict update v::code($file) config c { + foreach lib $args { + dict lappend c preload $lib + } + } + return +} + +proc ::critcl::license {who args} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + + set who [string trim $who] + if {$who ne ""} { + set license "This software is copyrighted by $who.\n" + } else { + set license "" + } + + set elicense [LicenseText $args] + + append license $elicense + + # This, 'tsources', 'meta?', and 'meta' are the only places where + # we are not extending the UUID. Because the license text has no + # bearing on the binary at all. + InitializeFile $file + + ImetaSet $file license [Text2Words $elicense] + ImetaSet $file author [Text2Authors $who] + return +} + +proc ::critcl::LicenseText {words} { + if {[llength $words]} { + # Use the supplied license details as our suffix. + return [join $words] + } else { + # No details were supplied, fall back to the critcl license as + # template for the generated package. This is found in a + # sibling of this file. + + # We strip the first 2 lines from the file, this gets rid of + # the author information for critcl itself, allowing us to + # replace it by the user-supplied author. + + variable mydir + set f [file join $mydir license.terms] + return [join [lrange [split [Cat $f] \n] 2 end] \n] + } +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- API: meta data (teapot) + +proc ::critcl::description {text} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + InitializeFile $file + + ImetaSet $file description [Text2Words $text] + return +} + +proc ::critcl::summary {text} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + InitializeFile $file + + ImetaSet $file summary [Text2Words $text] + return +} + +proc ::critcl::subject {args} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + InitializeFile $file + + ImetaAdd $file subject $args + return +} + +proc ::critcl::meta {key args} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + + # This, 'meta?', 'license', and 'tsources' are the only places + # where we are not extending the UUID. Because the meta data has + # no bearing on the binary at all. + InitializeFile $file + + dict update v::code($file) config c { + dict update c meta m { + foreach v $args { dict lappend m $key $v } + } + } + return +} + +proc ::critcl::meta? {key} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + + # This, 'meta', 'license', and 'tsources' are the only places + # where we are not extending the UUID. Because the meta data has + # no bearing on the binary at all. + InitializeFile $file + + if {[dict exists $v::code($file) config package $key]} { + return [dict get $v::code($file) config package $key] + } + if {[dict exists $v::code($file) config meta $key]} { + return [dict get $v::code($file) config meta $key] + } + return -code error "Unknown meta data key \"$key\"" +} + +proc ::critcl::ImetaSet {file key words} { + dict set v::code($file) config package $key $words + #puts |||$key|%|[dict get $v::code($file) config package $key]| + return +} + +proc ::critcl::ImetaAdd {file key words} { + dict update v::code($file) config c { + dict update c package p { + foreach word $words { + dict lappend p $key $word + } + } + } + #puts XXX|$file||$key|+|[dict get $v::code($file) config package $key]| + return +} + +proc ::critcl::Text2Words {text} { + regsub -all {[ \t\n]+} $text { } text + return [split [string trim $text]] +} + +proc ::critcl::Text2Authors {text} { + regsub -all {[ \t\n]+} $text { } text + set authors {} + foreach a [split [string trim $text] ,] { + lappend authors [string trim $a] + } + return $authors +} + +proc ::critcl::GetMeta {file} { + if {![dict exists $v::code($file) config meta]} { + set result {} + } else { + set result [dict get $v::code($file) config meta] + } + + # Merge the package information (= system meta data) with the + # user's meta data. The system information overrides anything the + # user may have declared for the reserved keys (name, version, + # platform, as::author, as::build::date, license, description, + # summary, require). Note that for the internal bracketing code + # the system information may not exist, hence the catch. Might be + # better to indicate the bracket somehow and make it properly + # conditional. + + #puts %$file + + catch { + set result [dict merge $result [dict get $v::code($file) config package]] + } + + # A few keys need a cleanup, i.e. removal of duplicates, and the like + catch { + dict set result require [lsort -dict -unique [dict get $result require]] + } + catch { + dict set result build::require [lsort -dict -unique [dict get $result build::require]] + } + catch { + dict set result platform [lindex [dict get $result platform] 0] + } + catch { + dict set result generated::by [lrange [dict get $result generated::by] 0 1] + } + catch { + dict set result generated::date [lindex [dict get $result generated::by] 0] + } + + #array set ___M $result ; parray ___M ; unset ___M + return $result +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- API: user configuration options. + +proc ::critcl::userconfig {cmd args} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + InitializeFile $file + + if {![llength [info commands ::critcl::UC$cmd]]} { + return -code error "Unknown method \"$cmd\"" + } + + # Dispatch + return [eval [linsert $args 0 ::critcl::UC$cmd $file]] +} + +proc ::critcl::UCdefine {file oname odesc otype {odefault {}}} { + # When declared without a default determine one of our own. Bool + # flag default to true, whereas enum flags, which is the rest, + # default to their first value. + + # The actual definition ignores the config description. This + # argument is only used by the static code scanner supporting + # TEA. See ::critcl::scan::userconfig. + + if {[llength [info level 0]] < 6} { + set odefault [UcDefault $otype] + } + + # Validate the default against the type too, before saving + # everything. + UcValidate $oname $otype $odefault + + UUID.extend $file .uc-def [list $oname $otype $odefault] + + dict set v::code($file) config userflag $oname type $otype + dict set v::code($file) config userflag $oname default $odefault + return +} + +proc ::critcl::UCset {file oname value} { + # NOTE: We can set any user flag we choose, even if not declared + # yet. Validation of the value happens on query, at which time the + # flag must be declared. + + dict set v::code($file) config userflag $oname value $value + return +} + +proc ::critcl::UCquery {file oname} { + # Prefer cached data. This is known as declared, defaults merged, + # validated. + if {[dict exists $v::code($file) config userflag $oname =]} { + return [dict get $v::code($file) config userflag $oname =] + } + + # Reject use of undeclared user flags. + if {![dict exists $v::code($file) config userflag $oname type]} { + error "Unknown user flag \"$oname\"" + } + + # Check if a value was supplied by the calling app. If not, fall + # back to the declared default. + + if {[dict exists $v::code($file) config userflag $oname value]} { + set value [dict get $v::code($file) config userflag $oname value] + } else { + set value [dict get $v::code($file) config userflag $oname default] + } + + # Validate value against the flag's type. + set otype [dict get $v::code($file) config userflag $oname type] + UcValidate $oname $otype $value + + # Fill cache + dict set v::code($file) config userflag $oname = $value + return $value +} + +proc ::critcl::UcValidate {oname otype value} { + switch -exact -- $otype { + bool { + if {![string is bool -strict $value]} { + error "Expected boolean for user flag \"$oname\", got \"$value\"" + } + } + default { + if {[lsearch -exact $otype $value] < 0} { + error "Expected one of [linsert [join $otype {, }] end-1 or] for user flag \"$oname\", got \"$value\"" + } + } + } +} + +proc ::critcl::UcDefault {otype} { + switch -exact -- $otype { + bool { + return 1 + } + default { + return [lindex $otype 0] + } + } +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- API: API (stubs) management + +proc ::critcl::api {cmd args} { + set file [SkipIgnored [This]] + HandleDeclAfterBuild + + if {![llength [info commands ::critcl::API$cmd]]} { + return -code error "Unknown method \"$cmd\"" + } + + # Dispatch + return [eval [linsert $args 0 ::critcl::API$cmd $file]] +} + +proc ::critcl::APIscspec {file scspec} { + UUID.extend $file .api-scspec $scspec + dict set v::code($file) config api_scspec $scspec + return +} + +proc ::critcl::APIimport {file name version} { + + # First we request the imported package, giving it a chance to + # generate the headers searched for in a moment (maybe it was + # critcl based as well, and generates things dynamically). + + # Note that this can fail, for example in a cross-compilation + # environment. Such a failure however does not imply that the + # required API headers are not present, so we can continue. + + catch { + package require $name $version + } + + ImetaAdd $file require [list [list $name $version]] + + # Now we check that the relevant headers of the imported package + # can be found in the specified search paths. + + set cname [string map {:: _} $name] + + set at [API_locate $cname searched] + if {$at eq {}} { + error "Headers for API $name not found in \n-\t[join $searched \n-\t]" + } else { + msg " (stubs import $name $version @ $at/$cname)" + } + + set def [list $name $version] + UUID.extend $file .api-import $def + dict update v::code($file) config c { + dict lappend c api_use $def + } + + # At last look for the optional .decls file. Ignore if there is + # none. Decode and return contained stubs table otherwise. + + set decls $at/$cname/$cname.decls + if {[file exists $decls]} { + package require stubs::reader + set T [stubs::container::new] + stubs::reader::file T $decls + return $T + } + return +} + +proc ::critcl::APIexport {file name} { + msg " (stubs export $name)" + + UUID.extend $file .api-self $name + return [dict set v::code($file) config api_self $name] +} + +proc ::critcl::APIheader {file args} { + UUID.extend $file .api-headers $args + return [SetParam api_hdrs $args] +} + +proc ::critcl::APIextheader {file args} { + UUID.extend $file .api-eheaders $args + return [SetParam api_ehdrs $args 0] +} + +proc ::critcl::APIfunction {file rtype name arguments} { + package require stubs::reader + + # Generate a declaration as it would have come straight out of the + # stubs reader. To this end we generate a C code fragment as it + # would be have been written inside of a .decls file. + + # TODO: We should record this as well, and later generate a .decls + # file as part of the export. Or regenerate it from the internal + # representation. + + if {[llength $arguments]} { + foreach {t a} $arguments { + lappend ax "$t $a" + } + } else { + set ax void + } + set decl [stubs::reader::ParseDecl "$rtype $name ([join $ax ,])"] + + UUID.extend $file .api-fun $decl + dict update v::code($file) config c { + dict lappend c api_fun $decl + } + return +} + +proc ::critcl::API_locate {name sv} { + upvar 1 $sv searched + foreach dir [SystemIncludePaths [This]] { + lappend searched $dir + if {[API_at $dir $name]} { return $dir } + } + return {} +} + +proc ::critcl::API_at {dir name} { + foreach suffix { + Decls.h StubLib.h + } { + if {![file exists [file join $dir $name $name$suffix]]} { return 0 } + } + return 1 +} + +proc ::critcl::API_setup {file} { + package require stubs::gen + + lassign [API_setup_import $file] iprefix idefines + dict set v::code($file) result apidefines $idefines + + append prefix $iprefix + append prefix [API_setup_export $file] + + # Save prefix to result dictionary for pickup by Compile. + if {$prefix eq ""} return + + dict set v::code($file) result apiprefix $prefix\n + return +} + +proc ::critcl::API_setup_import {file} { + if {![dict exists $v::code($file) config api_use]} { + return "" + } + + #msg -nonewline " (stubs import)" + + set prefix "" + set defines {} + + foreach def [dict get $v::code($file) config api_use] { + lassign $def iname iversion + + set cname [string map {:: _} $iname] + set upname [string toupper $cname] + set capname [stubs::gen::cap $cname] + + set import [critcl::at::here!][subst -nocommands { + /* Import API: $iname */ + #define USE_${upname}_STUBS 1 + #include <$cname/${cname}Decls.h> + }] + append prefix \n$import + CCodeCore $file $import + + # TODO :: DOCUMENT environment of the cinit code. + CInitCore $file [subst -nocommands { + if (!${capname}_InitStubs (ip, "$iversion", 0)) { + return TCL_ERROR; + } + }] [subst -nocommands { + #include <$cname/${cname}StubLib.h> + }] + + lappend defines -DUSE_${upname}_STUBS=1 + } + + return [list $prefix $defines] +} + +proc ::critcl::API_setup_export {file} { + if {![dict exists $v::code($file) config api_hdrs] && + ![dict exists $v::code($file) config api_ehdrs] && + ![dict exists $v::code($file) config api_fun]} return + + if {[dict exists $v::code($file) config api_self]} { + # API name was declared explicitly + set ename [dict get $v::code($file) config api_self] + } else { + # API name is implicitly defined, is package name. + set ename [dict get $v::code($file) config package name] + } + + set prefix "" + + #msg -nonewline " (stubs export)" + + set cname [string map {:: _} $ename] + set upname [string toupper $cname] + set capname [stubs::gen::cap $cname] + + set import [at::here!][subst -nocommands { + /* Import our own exported API: $ename, mapping disabled */ + #undef USE_${upname}_STUBS + #include <$cname/${cname}Decls.h> + }] + append prefix \n$import + CCodeCore $file $import + + # Generate the necessary header files. + + append sdecls "\#ifndef ${cname}_DECLS_H\n" + append sdecls "\#define ${cname}_DECLS_H\n" + append sdecls "\n" + append sdecls "\#include \n" + + if {[dict exists $v::code($file) config api_ehdrs]} { + append sdecls "\n" + file mkdir [cache]/$cname + foreach hdr [dict get $v::code($file) config api_ehdrs] { + append sdecls "\#include \"[file tail $hdr]\"\n" + } + } + + if {[dict exists $v::code($file) config api_hdrs]} { + append sdecls "\n" + file mkdir [cache]/$cname + foreach hdr [dict get $v::code($file) config api_hdrs] { + Copy $hdr [cache]/$cname + append sdecls "\#include \"[file tail $hdr]\"\n" + } + } + + # Insert code to handle the storage class settings on Windows. + + append sdecls [string map \ + [list @cname@ $cname @up@ $upname] \ + $v::storageclass] + + package require stubs::container + package require stubs::reader + package require stubs::gen + package require stubs::gen::header + package require stubs::gen::init + package require stubs::gen::lib + package require stubs::writer + + # Implied .decls file. Not actually written, only implied in the + # stubs container invocations, as if read from such a file. + + set T [stubs::container::new] + stubs::container::library T $ename + stubs::container::interface T $cname + + if {[dict exists $v::code($file) config api_scspec]} { + stubs::container::scspec T \ + [dict get $v::code($file) config api_scspec] + } + + if {[dict exists $v::code($file) config api_fun]} { + set index 0 + foreach decl [dict get $v::code($file) config api_fun] { + #puts D==|$decl| + stubs::container::declare T $cname $index generic $decl + incr index + } + append sdecls "\n" + append sdecls [stubs::gen::header::gen $T $cname] + } + + append sdecls "\#endif /* ${cname}_DECLS_H */\n" + + set comment "/* Stubs API Export: $ename */" + + set thedecls [stubs::writer::gen $T] + set slib [stubs::gen::lib::gen $T] + set sinitstatic " $comment\n " + append sinitstatic [stubs::gen::init::gen $T] + + set pn [dict get $v::code($file) config package name] + set pv [dict get $v::code($file) config package version] + + set sinitrun $comment\n + append sinitrun "Tcl_PkgProvideEx (ip, \"$pn\", \"$pv\", (ClientData) &${cname}Stubs);" + + # Save the header files to the result cache for pickup (importers + # in mode "compile & run", or by the higher-level code doing a + # "generate package") + + WriteCache $cname/${cname}Decls.h $sdecls + WriteCache $cname/${cname}StubLib.h $slib + WriteCache $cname/${cname}.decls $thedecls + + dict update v::code($file) result r { + dict lappend r apiheader [file join [cache] $cname] + } + + CInitCore $file $sinitrun $sinitstatic + CFlagsCore $file [list -DBUILD_$cname] + + return $prefix +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- API: Introspection + +proc ::critcl::check {args} { + set file [SkipIgnored [This] 0] + HandleDeclAfterBuild + + switch -exact -- [llength $args] { + 1 { + set label Checking + set code [lindex $args 0] + } + 2 { + lassign $args label code + } + default { + return -code error "wrong#args: Expected ?label? code" + } + } + + set src [WriteCache check_[pid].c $code] + set obj [file rootname $src][getconfigvalue object] + + # See also the internal helper 'Compile'. Thre code here is in + # essence a simplified form of that. + + set cmdline [getconfigvalue compile] + lappendlist cmdline [GetParam $file cflags] + lappendlist cmdline [SystemIncludes $file] + lappendlist cmdline [CompileResult $obj] + lappend cmdline $src + + LogOpen $file + Log* "${label}... " + StatusReset + set ok [ExecWithLogging $cmdline OK FAILED] + StatusReset + + LogClose + clean_cache check_[pid].* + return $ok +} + +proc ::critcl::checklink {args} { + set file [SkipIgnored [This] 0] + HandleDeclAfterBuild + + switch -exact -- [llength $args] { + 1 { + set label Checking + set code [lindex $args 0] + } + 2 { + lassign $args label code + } + default { + return -code error "wrong#args: Expected ?label? code" + } + } + + set src [WriteCache check_[pid].c $code] + set obj [file rootname $src][getconfigvalue object] + + # See also the internal helper 'Compile'. Thre code here is in + # essence a simplified form of that. + + set cmdline [getconfigvalue compile] + lappendlist cmdline [GetParam $file cflags] + lappendlist cmdline [SystemIncludes $file] + lappendlist cmdline [CompileResult $obj] + lappend cmdline $src + + LogOpen $file + Log* "${label} (build)... " + StatusReset + set ok [ExecWithLogging $cmdline OK FAILED] + StatusReset + + if {!$ok} { + LogClose + clean_cache check_[pid].* + return 0 + } + + set out [file join [cache] a_[pid].out] + set cmdline [getconfigvalue link] + + if {$option::debug_symbols} { + lappendlist cmdline [getconfigvalue link_debug] + } else { + lappendlist cmdline [getconfigvalue strip] + lappendlist cmdline [getconfigvalue link_release] + } + + lappendlist cmdline [LinkResult $out] + lappendlist cmdline $obj + lappendlist cmdline [SystemLibraries] + lappendlist cmdline [FixLibraries [GetParam $file clibraries]] + lappendlist cmdline [GetParam $file ldflags] + + Log* "${label} (link)... " + StatusReset + set ok [ExecWithLogging $cmdline OK ERR] + + LogClose + clean_cache check_[pid].* a_[pid].* + return $ok +} + +proc ::critcl::compiled {} { + SkipIgnored [This] 1 + HandleDeclAfterBuild + return 0 +} + +proc ::critcl::compiling {} { + SkipIgnored [This] 0 + HandleDeclAfterBuild + # Check that we can indeed run a compiler + # Should only need to do this if we have to compile the code? + if {[auto_execok [lindex [getconfigvalue compile] 0]] eq ""} { + set v::compiling 0 + } else { + set v::compiling 1 + } + return $v::compiling +} + +proc ::critcl::done {} { + set file [SkipIgnored [This] 1] + return [expr {[info exists v::code($file)] && + [dict exists $v::code($file) result closed]}] +} + +proc ::critcl::failed {} { + SkipIgnored [This] 0 + if {$v::buildforpackage} { return 0 } + return [cbuild [This] 0] +} + +proc ::critcl::load {} { + SkipIgnored [This] 1 + if {$v::buildforpackage} { return 1 } + return [expr {![cbuild [This]]}] +} + +# # ## ### ##### ######## ############# ##################### +## Default error behaviour + +proc ::critcl::error {msg} { + return -code error $msg +} + +# # ## ### ##### ######## ############# ##################### +## Default message behaviour + +proc ::critcl::msg {args} { + # ignore message (compile & run) +} + +# # ## ### ##### ######## ############# ##################### +## Default print behaviour + +proc ::critcl::print {args} { + # API same as for builtin ::puts. Use as is. + return [eval [linsert $args 0 ::puts]] +} + +# # ## ### ##### ######## ############# ##################### +## Runtime support to handle the possibility of a prebuilt package using +## the .tcl file with embedded C as its own companon defining regular +## Tcl code for the package as well. If the critcl package is loaded +## already this will cause it to ignore the C definitions, with best +## guesses for failed, done, load, check, compiled, and compiling. + +proc ::critcl::Ignore {f} { + set v::ignore([file normalize $f]) . + return +} + +proc ::critcl::SkipIgnored {f {result {}}} { + if {[info exists v::ignore($f)]} { return -code return $result } + return $f +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- API: Build Management + +proc ::critcl::config {option args} { + if {![info exists v::options($option)] || [llength $args] > 1} { + error "option must be one of: [lsort [array names v::options]]" + } + if {![llength $args]} { + return $v::options($option) + } + set v::options($option) [lindex $args 0] +} + +proc ::critcl::debug {args} { + # Replace 'all' everywhere, and squash duplicates, whether from + # this, or user-specified. + set args [string map {all {memory symbols}} $args] + set args [lsort -unique $args] + + foreach arg $args { + switch -- $arg { + memory { foreach x [getconfigvalue debug_memory] { cflags $x } } + symbols { foreach x [getconfigvalue debug_symbols] { cflags $x } + set option::debug_symbols 1 + } + default { + error "unknown critcl::debug option - $arg" + } + } + } + return +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- API: Result Cache + +proc ::critcl::cache {{dir ""}} { + if {[llength [info level 0]] == 2} { + set v::cache [file normalize $dir] + } + return $v::cache +} + +proc ::critcl::clean_cache {args} { + if {![llength $args]} { lappend args * } + foreach pattern $args { + foreach file [glob -nocomplain -directory $v::cache $pattern] { + file delete -force $file + } + } + return +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- API: Build Configuration +# read toolchain information from config file + +proc ::critcl::readconfig {config} { + variable run + variable configfile $config + + set cfg [open $config] + set knowntargets [list] + set cont "" + set whenplat "" + + interp eval $run set platform $v::buildplatform + + set i 0 + while {[gets $cfg line] >= 0} { + incr i + if {[set line [string trim $line]] ne ""} { + # config lines can be continued using trailing backslash + if {[string index $line end] eq "\\"} { + append cont " [string range $line 0 end-1]" + continue + } + if {$cont ne ""} { + append cont $line + set line [string trim $cont] + set cont "" + } + + # At this point we have a complete line/command in 'line'. + # We expect the following forms of input: + # + # (1.) if {...} {.............} - Tcl command, run in the + # backend interpreter. + # Note that this can EXIT + # the application using + # the critcl package. + # (2.) set VAR VALUE.......... - Ditto. + # (3.) # ..................... - Comment. Skipped + # (4.) PLATFORM VAR VALUE...... - Platform-specific + # configuration variable + # and value. + + # (4a) PLATFORM when ......... - Makes the PLATFORM + # conditional on the + # expression after the + # 'when' keyword. This + # uses variables set by + # (1) and/or (2). The + # expression is run in the + # backend interpreter. If + # and only if PLATFORM is + # a prefix of the current + # build platform, or the + # reverse, then the code + # with an TRUE when is + # chosen as the + # configuration. + + # (4b) PLATFORM target ?actual? - Marks the platform as a + # cross-compile target, + # and actual is the + # platform identifier of + # the result. If not + # specified it defaults to + # PLATFORM. + # (4c) PLATFORM copy PARENT... - Copies the currently defined + # configuration variables and + # values to the settings for + # this platform. + # (5.) VAR VALUE............... - Default configuration + # variable, and value. + + set plat [lindex [split $line] 0] + + # (1), or (2) + if {$plat eq "set" || $plat eq "if"} { + while {![info complete $line] && ![eof $cfg]} { + if {[gets $cfg more] == -1} { + set msg "incomplete command in Critcl Config file " + append msg "starting at line $i" + error $msg + } + append line "\n$more" + + } + interp eval $run $line + continue + } + + # (3) + if {$plat eq "#"} continue + + # (4), or (5). + if {[lsearch -exact $v::configvars $plat] != -1} { + # (5) default config option + set cmd "" + if {![regexp {(\S+)\s+(.*)} $line -> type cmd]} { + # cmd is empty + set type $plat + set cmd "" + } + set plat "" + } else { + # (4) platform config option + if {![regexp {(\S+)\s+(\S+)\s+(.*)} $line -> p type cmd]} { + # cmd is empty + set type [lindex $line 1] + set cmd "" + } + + # (4a) if and only if either build platform or config + # code are a prefix of each other can the 'when' + # condition be evaluated and override the + # standard selection for the configuration. + + if {$type eq "when" && + ( [string match ${v::buildplatform}* $plat] || + [string match ${plat}* $v::buildplatform] )} { + set res "" + catch { + set res [interp eval $run expr $cmd] + } + switch $res { + "" - + 0 { set whenfalse($plat) 1 } + 1 { set whenplat $plat } + } + } + lappend knowntargets $plat + } + + switch -exact -- $type { + target { + # (4b) cross compile target. + # cmd = actual target platform identifier. + if {$cmd eq ""} { + set cmd $plat + } + set v::xtargets($plat) $cmd + } + copy { + # (4c) copy an existing config + # XXX - should we error out if no definitions exist + # for parent platform config + # $cmd contains the parent platform + foreach {key val} [array get v::toolchain "$cmd,*"] { + set key [lindex [split $key ,] 1] + set v::toolchain($plat,$key) $val + } + } + default { + set v::toolchain($plat,$type) $cmd + } + } + } + } + set knowntargets [lsort -unique $knowntargets] + close $cfg + + # Config file processing has completed. + # Now select the platform to configure the + # compiler backend with. + + set v::knowntargets $knowntargets + + # The config file may have selected a configuration based on the + # TRUE when conditions. Which were matched to v::buildplatform, + # making the chosen config a variant of it. If that did not happen + # a platform is chosen from the set of defined targets. + if {$whenplat ne ""} { + set match [list $whenplat] + } else { + set match [critcl::chooseconfig $v::buildplatform] + } + + # Configure the backend. + + setconfig "" ;# defaults + if {[llength $match]} { + setconfig [lindex $match 0] + } else { + setconfig $v::buildplatform + } + return +} + +proc ::critcl::chooseconfig {targetconfig {err 0}} { + # first try to match exactly + set match [lsearch -exact -all -inline $v::knowntargets $targetconfig] + + # on failure, try to match as glob pattern + if {![llength $match]} { + set match [lsearch -glob -all -inline $v::knowntargets $targetconfig] + } + + # on failure, error out if requested + if {![llength $match] && $err} { + error "unknown target $targetconfig - use one of $v::knowntargets" + } + return $match +} + +proc ::critcl::showconfig {{fd ""}} { + variable run + variable configfile + + # XXX replace gen - v::buildplatform + # XXX Do not use v::targetplatform here. Use v::config. + # XXX Similarly in setconfig. + + set gen $v::buildplatform + if {$v::targetplatform eq ""} { + set plat "default" + } else { + set plat $v::targetplatform + } + set out [list] + if {$plat eq $gen} { + lappend out "Config: $plat" + } else { + lappend out "Config: $plat (built on $gen)" + } + lappend out "Origin: $configfile" + lappend out " [format %-15s cache] [cache]" + foreach var [lsort $v::configvars] { + set val [getconfigvalue $var] + set line " [format %-15s $var]" + foreach word [split [string trim $val]] { + if {[set word [string trim $word]] eq ""} continue + if {[string length "$line $word"] > 70} { + lappend out "$line \\" + set line " [format %-15s { }] $word" + } else { + set line "$line $word" + } + } + lappend out $line + } + # Tcl variables - Combined LengthLongestWord (all), and filtering + set vars [list] + set max 0 + foreach idx [array names v::toolchain $v::targetplatform,*] { + set var [lindex [split $idx ,] 1] + if {[set len [string length $var]] > $max} { + set max $len + } + if {$var ne "when" && ![info exists c::$var]} { + lappend vars $idx $var + } + } + if {[llength $vars]} { + lappend out "Tcl variables:" + foreach {idx var} $vars { + set val $v::toolchain($idx) + if {[llength $val] == 1} { + # for when someone inevitably puts quotes around + # values - e.g. "Windows NT" + set val [lindex $val 0] + } + lappend out " [PadRight $max $var] $val" + } + } + set out [join $out \n] + if {$fd ne ""} { + puts $fd $out + } else { + return $out + } +} + +proc ::critcl::showallconfig {{ofd ""}} { + variable configfile + set txt [Cat $configfile] + if {$ofd ne ""} { + puts $ofd $txt + } else { + return $txt + } +} + +proc ::critcl::setconfig {targetconfig} { + set v::targetconfig $targetconfig + + # Strip the compiler information from the configuration to get the + # platform identifier embedded into it. This is a semi-recurrence + # of the original hardwired block handling win32/gcc/cl. We can + # partly emulate this with 'platform' directives in the Config + # file, however this breaks down when trying to handle the default + # settings. I.e. something like FOO-gcc which has no configuration + # block in the file uses the defaults, and thus has no proper + # place for a custom platform directive. So we have to do it here, + # in code. For symmetry the other compilers (-cc, -cl) are handled + # as well. + + set v::targetplatform $targetconfig + foreach p {gcc cc_r xlc xlc_r cc cl clang([[:digit:]])*} { + if {[regsub -- "-$p\$" $v::targetplatform {} v::targetplatform]} break + } + + set c::platform "" + set c::sharedlibext "" + + foreach var $v::configvars { + if {[info exists v::toolchain($targetconfig,$var)]} { + + set c::$var $v::toolchain($targetconfig,$var) + + if {$var eq "platform"} { + set px [getconfigvalue platform] + set v::targetplatform [lindex $px 0] + set v::version [lindex $px 1] + } + } + } + if {[info exists ::env(CFLAGS)]} { + variable c::compile + append c::compile " $::env(CFLAGS)" + } + if {[info exists ::env(LDFLAGS)]} { + variable c::link + append c::link " $::env(LDFLAGS)" + append c::link_preload " $::env(LDFLAGS)" + } + if {[string match $v::targetplatform $v::buildplatform]} { + # expand platform to match host if it contains wildcards + set v::targetplatform $v::buildplatform + } + if {$c::platform eq ""} { + # default config platform (mainly for the "show" command) + set c::platform $v::targetplatform + } + if {$c::sharedlibext eq ""} { + set c::sharedlibext [info sharedlibextension] + } + + # The following definition of the cache directory is only relevant + # for mode "compile & run". The critcl application handling the + # package mode places the cache in a process-specific location + # without care about platforms. For here this means that we can + # ignore both cross-compilation, and the user choosing a target + # for us, as neither happens nor works for "compile & run". We can + # assume that build and target platforms will be the same, be the + # current platform, and we can make a simple choice for the + # directory. + + cache [file join ~ .critcl [platform::identify]] + + # Initialize Tcl variables based on the chosen tooling + foreach idx [array names v::toolchain $v::targetplatform,*] { + set var [lindex [split $idx ,] 1] + if {![info exists c::$var]} { + set val $v::toolchain($idx) + if {[llength $val] == 1} { + # for when someone inevitably puts quotes around + # values - e.g. "Windows NT" + set val [lindex $val 0] + } + set $var $val + } + } + return +} + +proc ::critcl::getconfigvalue {var} { + variable run + if {[catch {set val [interp eval $run [list subst [set c::$var]]]}]} { + set val [set c::$var] + } + return $val +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- API: Application + +# The regular commands used by the application, defined in other +# sections of the package are: +# +# C critcl::cache +# C critcl::ccode +# C critcl::chooseconfig +# C critcl::cinit +# C critcl::clean_cache +# C critcl::clibraries +# C critcl::cobjects +# C critcl::config I, lines, force, keepsrc, combine +# C critcl::debug +# C critcl::error | App overrides our implementation. +# C critcl::getconfigvalue +# C critcl::lappendlist +# C critcl::ldflags +# C critcl::preload +# C critcl::readconfig +# C critcl::setconfig +# C critcl::showallconfig +# C critcl::showconfig + +proc ::critcl::crosscheck {} { + variable run + global tcl_platform + + if {$tcl_platform(platform) eq "windows"} { + set null NUL: + } else { + set null /dev/null + } + + if {![catch { + set cmd [linsert $c::version 0 exec] + lappend cmd 2> $null;#@stdout + set config [interp eval $run $cmd] + } msg]} { + set host "" + set target "" + foreach line $config { + foreach arg [split $line] { + if {[string match "--*" $arg]} { + lassign [split [string trim $arg -] =] cfg val + set $cfg $val + } + } + } + if {$host ne $target && [info exists v::xtargets($target)]} { + setconfig $target + print stderr "Cross compiling using $target" + } + # XXX host != target, but not know as config ? + # XXX Currently ignored. + # XXX Throwing an error better ? + } + return +} + +# See (XX) at the end of the file (package state variable setup) +# for explanations of the exact differences between these. + +proc ::critcl::knowntargets {} { + return $v::knowntargets +} + +proc ::critcl::targetconfig {} { + return $v::targetconfig +} + +proc ::critcl::targetplatform {} { + return $v::targetplatform +} + +proc ::critcl::buildplatform {} { + return $v::buildplatform +} + +proc ::critcl::actualtarget {} { + # Check if the chosen target is a cross-compile target. If yes, + # we return the actual platform identifier of the target. This is + # used to select the proper platform director names in the critcl + # cache, generated packages, when searching for preload libraries, + # etc. Whereas the chosen target provides the proper compile + # configuration which will invoke the proper cross-compiler, etc. + + if {[info exists v::xtargets($v::targetplatform)]} { + return $v::xtargets($v::targetplatform) + } else { + return $v::targetplatform + } +} + +proc ::critcl::sharedlibext {} { + return [getconfigvalue sharedlibext] +} + +proc ::critcl::buildforpackage {{buildforpackage 1}} { + set v::buildforpackage $buildforpackage + return +} + +proc ::critcl::fastuuid {} { + set v::uuidcounter 1 ;# Activates it. + return +} + +proc ::critcl::cbuild {file {load 1}} { + if {[info exists v::code($file,failed)] && !$load} { + set v::buildforpackage 0 + return $v::code($file,failed) + } + + StatusReset + + # Determine if we should place stubs code into the generated file. + set placestubs [expr {!$v::buildforpackage}] + + # Determine the requested mode and reset for next call. + set buildforpackage $v::buildforpackage + set v::buildforpackage 0 + + if {$file eq ""} { + set file [This] + } + + # NOTE: The 4 pieces of data just below has to be copied into the + # result even if the build and link-steps are suppressed. Because + # the load-step must have this information. + + set shlib [DetermineShlibName $file] + set initname [DetermineInitName $file [expr {$buildforpackage ? "ns" : ""}]] + + dict set v::code($file) result tsources [GetParam $file tsources] + dict set v::code($file) result mintcl [MinTclVersion $file] + + set emsg {} + set msgs {} + + if {$v::options(force) || ![file exists $shlib]} { + LogOpen $file + set base [BaseOf $file] + set object [DetermineObjectName $file] + + API_setup $file + + # Generate the main C file + CollectEmbeddedSources $file $base.c $object $initname $placestubs + + # Set the marker for critcl::done and its user, HandleDeclAfterBuild. + dict set v::code($file) result closed mark + + # Compile main file + lappend objects [Compile $file $file $base.c $object] + + # Compile the companion C sources as well, if there are any. + foreach src [GetParam $file csources] { + lappend objects [Compile $file $src $src \ + [CompanionObject $src]] + } + + # NOTE: The data below has to be copied into the result even + # if the link-step is suppressed. Because the application + # (mode 'generate package') must have this information to be + # able to perform the final link. + + lappendlist objects [GetParam $file cobjects] + + dict set v::code($file) result clibraries [set clib [GetParam $file clibraries]] + dict set v::code($file) result libpaths [LibPaths $clib] + dict set v::code($file) result ldflags [GetParam $file ldflags] + dict set v::code($file) result objects $objects + dict set v::code($file) result tk [UsingTk $file] + dict set v::code($file) result preload [GetParam $file preload] + dict set v::code($file) result license [GetParam $file license <>] + dict set v::code($file) result log {} + dict set v::code($file) result meta [GetMeta $file] + + # Link and load steps. + if {$load || !$buildforpackage} { + Link $file + } + + lassign [LogClose] msgs emsg + + dict set v::code($file) result warnings [CheckForWarnings $emsg] + } + + dict set v::code($file) result log $msgs + dict set v::code($file) result exl $emsg + + if {$v::failed} { + if {!$buildforpackage} { + print stderr "$msgs\ncritcl build failed ($file)" + } + } elseif {$load && !$buildforpackage} { + Load $file + } + + # Release the data which was collected for the just-built file, as + # it is not needed any longer. + dict unset v::code($file) config + + return [StatusSave $file] +} + +proc ::critcl::cresults {{file {}}} { + if {$file eq ""} { set file [This] } + return [dict get $v::code($file) result] +} + +proc ::critcl::cnothingtodo {f} { + # No critcl definitions at all ? + if {![info exists v::code($f)]} { return 1 } + + # We have results already, so where had been something to do. + if {[dict exists $v::code($f) result]} { return 0 } + + # No C code collected for compilation ? + if {![dict exists $v::code($f) config fragments]} { return 1 } + + # Ok, something has to be done. + return 0 +} + +proc ::critcl::c++command {tclname class constructors methods} { + # Build the body of the function to define a new tcl command for + # the C++ class + set helpline {} + set classptr ptr_$tclname + set comproc " $class* $classptr;\n" + append comproc " switch (objc) \{\n" + + if {![llength $constructors]} { + set constructors {{}} + } + + foreach adefs $constructors { + array set types {} + set names {} + set cargs {} + set cnames {} + + foreach {t n} $adefs { + set types($n) $t + lappend names $n + lappend cnames _$n + lappend cargs "$t $n" + } + lappend helpline "$tclname pathName [join $names { }]" + set nargs [llength $names] + set ncargs [expr {$nargs + 2}] + append comproc " case $ncargs: \{\n" + + if {!$nargs} { + append comproc " $classptr = new $class\();\n" + } else { + append comproc [ProcessArgs types $names $cnames] + append comproc " $classptr = new $class\([join $cnames {, }]);\n" + } + append comproc " break;\n" + append comproc " \}\n" + + } + append comproc " default: \{\n" + append comproc " Tcl_SetResult(ip, \"wrong # args: should be either [join $helpline { or }]\",TCL_STATIC);\n" + append comproc " return TCL_ERROR;\n" + append comproc " \}\n" + append comproc " \}\n" + + append comproc " if ( $classptr == NULL ) \{\n" + append comproc " Tcl_SetResult(ip, \"Not enough memory to allocate a new $tclname\", TCL_STATIC);\n" + append comproc " return TCL_ERROR;\n" + append comproc " \}\n" + + append comproc " Tcl_CreateObjCommand(ip, Tcl_GetString(objv\[1]), cmdproc_$tclname, (ClientData) $classptr, delproc_$tclname);\n" + append comproc " return TCL_OK;\n" + # + # Build the body of the c function called when the object is deleted + # + set delproc "void delproc_$tclname\(ClientData cd) \{\n" + append delproc " if (cd != NULL)\n" + append delproc " delete ($class*) cd;\n" + append delproc "\}\n" + + # + # Build the body of the function that processes the tcl commands for the class + # + set cmdproc "int cmdproc_$tclname\(ClientData cd, Tcl_Interp* ip, int objc, Tcl_Obj *CONST objv\[]) \{\n" + append cmdproc " int index;\n" + append cmdproc " $class* $classptr = ($class*) cd;\n" + + set rtypes {} + set tnames {} + set mnames {} + set adefs {} + foreach {rt n a} $methods { + lappend rtypes $rt + lappend tnames [lindex $n 0] + set tmp [lindex $n 1] + if {$tmp eq ""} { + lappend mnames [lindex $n 0] + } else { + lappend mnames [lindex $n 1] + } + lappend adefs $a + } + append cmdproc " static const char* cmds\[]=\{\"[join $tnames {","}]\",NULL\};\n" + append cmdproc " if (objc<2) \{\n" + append cmdproc " Tcl_WrongNumArgs(ip, 1, objv, \"expecting pathName option\");\n" + append cmdproc " return TCL_ERROR;\n" + append cmdproc " \}\n\n" + append cmdproc " if (Tcl_GetIndexFromObj(ip, objv\[1], cmds, \"option\", TCL_EXACT, &index) != TCL_OK)\n" + append cmdproc " return TCL_ERROR;\n" + append cmdproc " switch (index) \{\n" + + set ndx 0 + foreach rtype $rtypes tname $tnames mname $mnames adef $adefs { + array set types {} + set names {} + set cargs {} + set cnames {} + + switch -- $rtype { + ok { set rtype2 "int" } + string - + dstring - + vstring { set rtype2 "char*" } + default { set rtype2 $rtype } + } + + foreach {t n} $adef { + set types($n) $t + lappend names $n + lappend cnames _$n + lappend cargs "$t $n" + } + set helpline "$tname [join $names { }]" + set nargs [llength $names] + set ncargs [expr {$nargs + 2}] + + append cmdproc " case $ndx: \{\n" + append cmdproc " if (objc==$ncargs) \{\n" + append cmdproc [ProcessArgs types $names $cnames] + append cmdproc " " + if {$rtype ne "void"} { + append cmdproc "$rtype2 rv = " + } + append cmdproc "$classptr->$mname\([join $cnames {, }]);\n" + append cmdproc " " + switch -- $rtype { + void { } + ok { append cmdproc "return rv;" } + int { append cmdproc "Tcl_SetIntObj(Tcl_GetObjResult(ip), rv);" } + long { append cmdproc " Tcl_SetLongObj(Tcl_GetObjResult(ip), rv);" } + float - + double { append cmdproc "Tcl_SetDoubleObj(Tcl_GetObjResult(ip), rv);" } + char* { append cmdproc "Tcl_SetResult(ip, rv, TCL_STATIC);" } + string - + dstring { append cmdproc "Tcl_SetResult(ip, rv, TCL_DYNAMIC);" } + vstring { append cmdproc "Tcl_SetResult(ip, rv, TCL_VOLATILE);" } + default { append cmdproc "if (rv == NULL) \{ return TCL_ERROR ; \}\n Tcl_SetObjResult(ip, rv); Tcl_DecrRefCount(rv);" } + } + append cmdproc "\n" + append cmdproc " " + if {$rtype ne "ok"} { append cmdproc "return TCL_OK;\n" } + + append cmdproc " \} else \{\n" + append cmdproc " Tcl_WrongNumArgs(ip, 1, objv, \"$helpline\");\n" + append cmdproc " return TCL_ERROR;\n" + append cmdproc " \}\n" + append cmdproc " \}\n" + incr ndx + } + append cmdproc " \}\n\}\n" + + # TODO: line pragma fix ?! + ccode $delproc + ccode $cmdproc + + # Force the new ccommand to be defined in the caller's namespace + # instead of improperly in ::critcl. + namespace eval [uplevel 1 namespace current] \ + [list critcl::ccommand $tclname {dummy ip objc objv} $comproc] + + return +} + +proc ::critcl::ProcessArgs {typesArray names cnames} { + upvar 1 $typesArray types + set body "" + foreach x $names c $cnames { + set t $types($x) + switch -- $t { + int - long - float - double - char* - Tcl_Obj* { + append body " $t $c;\n" + } + default { + append body " void* $c;\n" + } + } + } + set n 1 + foreach x $names c $cnames { + set t $types($x) + incr n + switch -- $t { + int { + append body " if (Tcl_GetIntFromObj(ip, objv\[$n], &$c) != TCL_OK)\n" + append body " return TCL_ERROR;\n" + } + long { + append body " if (Tcl_GetLongFromObj(ip, objv\[$n], &$c) != TCL_OK)\n" + append body " return TCL_ERROR;\n" + } + float { + append body " \{ double tmp;\n" + append body " if (Tcl_GetDoubleFromObj(ip, objv\[$n], &tmp) != TCL_OK)\n" + append body " return TCL_ERROR;\n" + append body " $c = (float) tmp;\n" + append body " \}\n" + } + double { + append body " if (Tcl_GetDoubleFromObj(ip, objv\[$n], &$c) != TCL_OK)\n" + append body " return TCL_ERROR;\n" + } + char* { + append body " $c = Tcl_GetString(objv\[$n]);\n" + } + default { + append body " $c = objv\[$n];\n" + } + } + } + return $body +} + +proc ::critcl::scan {file} { + set lines [split [Cat $file] \n] + + set scan::rkey require + set scan::base [file dirname [file normalize $file]] + set scan::capture { + org {} + version {} + files {} + imported {} + config {} + meta-user {} + meta-system {} + tsources {} + } + + ScanCore $lines { + critcl::api sub + critcl::api/extheader ok + critcl::api/function ok + critcl::api/header warn + critcl::api/import ok + critcl::source warn + critcl::cheaders warn + critcl::csources warn + critcl::license warn + critcl::meta warn + critcl::owns warn + critcl::tcl ok + critcl::tk ok + critcl::tsources warn + critcl::userconfig sub + critcl::userconfig/define ok + critcl::userconfig/query ok + critcl::userconfig/set ok + package warn + } + + set version [dict get $scan::capture version] + print "\tVersion: $version" + + # TODO : Report requirements. + # TODO : tsources - Scan files for dependencies! + + set n [llength [dict get $scan::capture files]] + print -nonewline "\tInput: $file" + if {$n} { + print -nonewline " + $n Companion" + if {$n > 1} { print -nonewline s } + } + print "" + + # Merge the system and user meta data, with system overriding the + # user. See 'GetMeta' for same operation when actually builing the + # package. Plus scan any Tcl companions for more requirements. + + set md {} + lappend md [dict get $scan::capture meta-user] + lappend md [dict get $scan::capture meta-system] + + foreach ts [dict get $scan::capture tsources] { + lappend md [dict get [ScanDependencies $file \ + [file join [file dirname $file] $ts] \ + capture] meta-system] + } + + dict unset scan::capture meta-user + dict unset scan::capture meta-system + dict unset scan::capture tsources + + dict set scan::capture meta \ + [eval [linsert $md 0 dict merge]] + # meta = dict merge {*}$md + + if {[dict exists $scan::capture meta require]} { + foreach r [dict get $scan::capture meta require] { + print "\tRequired: $r" + } + } + + return $scan::capture +} + +proc ::critcl::ScanDependencies {dfile file {mode plain}} { + set lines [split [Cat $file] \n] + + catch { + set saved $scan::capture + } + + set scan::rkey require + set scan::base [file dirname [file normalize $file]] + set scan::capture { + name {} + version {} + meta-system {} + } + + ScanCore $lines { + critcl::buildrequirement warn + package warn + } + + if {$mode eq "capture"} { + set result $scan::capture + set scan::capture $saved + return $result + } + + dict with scan::capture { + if {$mode eq "provide"} { + msg " (provide $name $version)" + + ImetaSet $dfile name $name + ImetaSet $dfile version $version + } + + dict for {k vlist} [dict get $scan::capture meta-system] { + if {$k eq "name"} continue + if {$k eq "version"} continue + + ImetaAdd $dfile $k $vlist + + if {$k ne "require"} continue + # vlist = package list, each element a package name, + # and optional version. + msg " ([file tail $file]: require [join [lsort -dict -unique $vlist] {, }])" + } + + # The above information also goes into the teapot meta data of + # the file in question. This however is defered until the meta + # data is actually pulled for delivery to the tool using the + # package. See 'GetMeta' for where the merging happens. + } + + return +} + +proc ::critcl::ScanCore {lines theconfig} { + # config = dictionary + # - => mode (ok, warn, sub) + # Unlisted commands are ignored. + + variable scan::config $theconfig + + set collect 0 + set buf {} + set lno -1 + foreach line $lines { + #puts |$line| + + incr lno + if {$collect} { + if {![info complete $buf]} { + append buf $line \n + continue + } + set collect 0 + + #puts %%$buf%% + + # Prevent heavily dynamic code from stopping the scan. + # WARN the user. + regexp {^(\S+)} $buf -> cmd + if {[dict exists $config $cmd]} { + set mode [dict get $config $cmd] + + if {[catch { + # Run in the scan namespace, with its special + # command implementations. + namespace eval ::critcl::scan $buf + } msg]} { + if {$mode eq "sub"} { + regexp {^(\S+)\s+(\S+)} $buf -> _ method + append cmd /$method + set mode [dict get $config $cmd] + } + if {$mode eq "warn"} { + msg "Line $lno, $cmd: Failed execution of dynamic command may" + msg "Line $lno, $cmd: cause incorrect TEA results. Please check." + msg "Line $lno, $cmd: $msg" + } + } + } + + set buf "" + # fall through, to handle the line which just got NOT + # added to the buf. + } + + set line [string trimleft $line " \t:"] + if {[string trim $line] eq {}} continue + + regexp {^(\S+)} $line -> cmd + if {[dict exists $config $cmd]} { + append buf $line \n + set collect 1 + } + } +} + +# Handle the extracted commands +namespace eval ::critcl::scan::critcl {} + +proc ::critcl::scan::critcl::buildrequirement {script} { + # Recursive scan of the script, same configuration, except + # switched to record 'package require's under the build::reqire + # key. + + variable ::critcl::scan::config + variable ::critcl::scan::rkey + + set saved $rkey + set rkey build::require + + ::critcl::ScanCore [split $script \n] $config + + set rkey $saved + return +} + +# Meta data. +# Capture specific dependencies +proc ::critcl::scan::critcl::tcl {version} { + variable ::critcl::scan::capture + dict update capture meta-system m { + dict lappend m require [list Tcl $version] + } + return +} + +proc ::critcl::scan::critcl::tk {} { + variable ::critcl::scan::capture + dict update capture meta-system m { + dict lappend m require Tk + } + return +} + +proc ::critcl::scan::critcl::description {text} { + variable ::critcl::scan::capture + dict set capture meta-system description \ + [::critcl::Text2Words $text] + return +} + +proc ::critcl::scan::critcl::summary {text} { + variable ::critcl::scan::capture + dict set capture meta-system summary \ + [::critcl::Text2Words $text] + return +} + +proc ::critcl::scan::critcl::subject {args} { + variable ::critcl::scan::capture + dict update capture meta-system m { + foreach word $args { + dict lappend m subject $word + } + } + return +} + +proc ::critcl::scan::critcl::meta {key args} { + variable ::critcl::scan::capture + dict update capture meta-user m { + foreach word $args { + dict lappend m $key $word + } + } + return +} + +# Capture files +proc ::critcl::scan::critcl::source {path} { + # Recursively scan the imported file. + # Keep the current context. + variable ::critcl::scan::config + + foreach f [Files $path] { + set lines [split [::critcl::Cat $f] \n] + ScanCore $lines $config + } + return +} +proc ::critcl::scan::critcl::owns {args} { eval [linsert $args 0 Files] } +proc ::critcl::scan::critcl::cheaders {args} { eval [linsert $args 0 Files] } +proc ::critcl::scan::critcl::csources {args} { eval [linsert $args 0 Files] } +proc ::critcl::scan::critcl::tsources {args} { + variable ::critcl::scan::capture + foreach ts [eval [linsert $args 0 Files]] { + dict lappend capture tsources $ts + } + return +} + +proc ::critcl::scan::critcl::Files {args} { + variable ::critcl::scan::capture + set res {} + foreach v $args { + if {[string match "-*" $v]} continue + foreach f [Expand $v] { + dict lappend capture files $f + lappend res $f + } + } + return $res +} + +proc ::critcl::scan::critcl::Expand {pattern} { + variable ::critcl::scan::base + + # Note: We cannot use -directory here. The PATTERN may already be + # an absolute path, in which case the join will return the + # unmodified PATTERN to glob on, whereas with -directory the final + # pattern will be BASE/PATTERN which won't find anything, even if + # PATTERN actually exists. + + set prefix [file split $base] + + set files {} + foreach vfile [glob [file join $base $pattern]] { + set xfile [file normalize $vfile] + if {![file exists $xfile]} { + error "$vfile: not found" + } + + # Constrain to be inside of the base directory. + # Snarfed from fileutil::stripPath + + set npath [file split $xfile] + + if {![string match -nocase "${prefix} *" $npath]} { + error "$vfile: Not inside of $base" + } + + set xfile [eval [linsert [lrange $npath [llength $prefix] end] 0 file join ]] + lappend files $xfile + } + return $files +} + +# Capture license (org name) +proc ::critcl::scan::critcl::license {who args} { + variable ::critcl::scan::capture + dict set capture org $who + + ::critcl::print "\tOrganization: $who" + + # Meta data. + set elicense [::critcl::LicenseText $args] + + dict set capture meta-system license \ + [::critcl::Text2Words $elicense] + dict set capture meta-system author \ + [::critcl::Text2Authors $who] + return +} + +# Capture version of the provided package. +proc ::critcl::scan::package {cmd args} { + if {$cmd eq "provide"} { + # Syntax: package provide + + variable capture + lassign $args name version + dict set capture name $name + dict set capture version $version + + # Save as meta data as well. + + dict set capture meta-system name $name + dict set capture meta-system version $version + dict set capture meta-system platform source + dict set capture meta-system generated::by \ + [list \ + [list critcl [::package present critcl]] \ + $::tcl_platform(user)] + dict set capture meta-system generated::date \ + [list [clock format [clock seconds] -format {%Y-%m-%d}]] + return + } elseif {$cmd eq "require"} { + # Syntax: package require ?-exact? + # : package require ... + + # Save dependencies as meta data. + + # Ignore the critcl core + if {[lindex $args 0] eq "critcl"} return + + variable capture + variable rkey + dict update capture meta-system m { + dict lappend m $rkey [::critcl::TeapotRequire $args] + } + return + } + + # ignore anything else. + return +} + +# Capture the APIs imported by the package +proc ::critcl::scan::critcl::api {cmd args} { + variable ::critcl::scan::capture + switch -exact -- $cmd { + header { + eval [linsert $args 0 Files] + } + import { + # Syntax: critcl::api import + lassign $args name _ + dict lappend capture imported $name + print "\tImported: $name" + } + default {} + } + return +} + +# Capture the user config options declared by the package +proc ::critcl::scan::critcl::userconfig {cmd args} { + variable ::critcl::scan::capture + switch -exact -- $cmd { + define { + # Syntax: critcl::userconfig define ?? + lassign $args oname odesc otype odefault + set odesc [string trim $odesc] + if {[llength $args] < 4} { + set odefault [::critcl::UcDefault $otype] + } + dict lappend capture config [list $oname $odesc $otype $odefault] + print "\tUser Config: $oname ([join $otype { }] -> $odefault) $odesc" + } + set - query - + default {} + } + return +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- Internals - cproc conversion helpers. + +proc ::critcl::EmitShimHeader {wname} { + # Function head + set ca "(ClientData cd, Tcl_Interp *interp, int oc, Tcl_Obj *CONST ov\[])" + Emitln + Emitln "static int" + Emitln "$wname$ca" + Emitln \{ + return +} + +proc ::critcl::EmitShimVariables {adb rtype} { + foreach d [dict get $adb vardecls] { + Emitln " $d" + } + if {[dict get $adb hasoptional]} { + Emitln " int idx_;" + Emitln " int argc_;" + } + + # Result variable, source for the C -> Tcl conversion. + if {$rtype ne "void"} { Emit " [ResultCType $rtype] rv;" } + return +} + +proc ::critcl::EmitArgTracing {fun} { + if {!$v::options(trace)} return + Emitln "\n critcl_trace_cmd_args ($fun, oc, ov);" + return +} + +proc ::critcl::EmitWrongArgsCheck {adb} { + # Code checking for the correct count of arguments, and generating + # the proper error if not. + + set wac [dict get $adb wacondition] + if {$wac eq {}} return + + # Have a check, put the pieces together. + + set offset [dict get $adb skip] + set tsig [dict get $adb tsignature] + set min [dict get $adb min] + set max [dict get $adb max] + + incr min $offset + if {$max != Inf} { + incr max $offset + } + + lappend map MIN_ARGS $min + lappend map MAX_ARGS $max + set wac [string map $map $wac] + + Emitln "" + Emitln " if ($wac) \{" + Emitln " Tcl_WrongNumArgs(interp, $offset, ov, $tsig);" + Emitln [TraceReturns "wrong-arg-num check" " return TCL_ERROR;"] + Emitln " \}" + Emitln "" + return +} + +proc ::critcl::EmitSupport {adb} { + set s [dict get $adb support] + if {![llength $s]} return + if {[join $s {}] eq {}} return + Emit [join $s \n]\n + return +} + +proc ::critcl::EmitCall {cname cnames rtype} { + # Invoke the low-level function. + + Emitln " /* Call - - -- --- ----- -------- */" + Emit " " + if {$rtype ne "void"} { Emit "rv = " } + Emitln "${cname}([join $cnames {, }]);" + Emitln + return +} + +proc ::critcl::EmitConst {rtype rvalue} { + # Assign the constant directly to the shim's result variable. + + Emitln " /* Const - - -- --- ----- -------- */" + Emit " " + if {$rtype ne "void"} { Emit "rv = " } + Emitln "${rvalue};" + Emitln + return +} + +proc ::critcl::TraceReturns {label code} { + if {!$v::options(trace)} { + return $code + } + + # Inject tracing into the 'return's. + regsub -all \ + {return[[:space:]]*([^;]*);} $code \ + {return critcl_trace_cmd_result (\1, interp);} newcode + if {[string match {*return *} $code] && ($newcode eq $code)} { + error "Failed to inject tracing code into $label" + } + return $newcode +} + +proc ::critcl::EmitShimFooter {adb rtype} { + # Run release code for arguments which allocated temp memory. + set arelease [dict get $adb arelease] + if {[llength $arelease]} { + Emit "[join $arelease "\n "]\n" + } + + # Convert the returned low-level result from C to Tcl, if required. + # Return a standard status, if required. + + set code [Deline [ResultConversion $rtype]] + if {$code ne {}} { + set code [TraceReturns "\"$rtype\" result" $code] + Emitln " /* ($rtype return) - - -- --- ----- -------- */" + Emitln $code + } else { + if {$v::options(trace)} { + Emitln " critcl_trace_header (1, 0, 0);" + Emitln " critcl_trace_printf (1, \"RETURN (void)\");" + Emitln " critcl_trace_closer (1);" + Emitln " critcl_trace_pop();" + Emitln " return;" + } + } + Emitln \} + return +} + +proc ::critcl::ArgumentSupport {type} { + if {[info exists v::acsup($type)]} { return $v::acsup($type) } + return {} +} + +proc ::critcl::ArgumentRelease {type} { + if {[info exists v::acrel($type)]} { return $v::acrel($type) } + return {} +} + +proc ::critcl::ArgumentCType {type} { + if {[info exists v::actype($type)]} { return $v::actype($type) } + return -code error "Unknown argument type \"$type\"" +} + +proc ::critcl::ArgumentCTypeB {type} { + if {[info exists v::actypeb($type)]} { return $v::actypeb($type) } + return -code error "Unknown argument type \"$type\"" +} + +proc ::critcl::ArgumentConversion {type} { + if {[info exists v::aconv($type)]} { return $v::aconv($type) } + return -code error "Unknown argument type \"$type\"" +} + +proc ::critcl::ResultCType {type} { + if {[info exists v::rctype($type)]} { + return $v::rctype($type) + } + return -code error "Unknown result type \"$type\"" +} + +proc ::critcl::ResultConversion {type} { + if {[info exists v::rconv($type)]} { + return $v::rconv($type) + } + return -code error "Unknown result type \"$type\"" +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- Internals - Manage complex per-file settings. + +proc ::critcl::GetParam {file type {default {}}} { + if {[info exists v::code($file)] && + [dict exists $v::code($file) config $type]} { + return [dict get $v::code($file) config $type] + } else { + return $default + } +} + +proc ::critcl::SetParam {type values {expand 1} {uuid 0} {unique 0}} { + set file [This] + if {![llength $values]} return + + UUID.extend $file .$type $values + + if {$type ne "cobjects"} { + #todo (debug flag): msg "\t$type += $values" + set dtype [string map { + cheaders {headers: } + csources {companions: } + api_hdrs api-headers: + api_ehdrs {api-exthdr: } + clibraries {libraries: } + } $type] + set prefix " ($dtype " + msg "$prefix[join $values ")\n$prefix"])" + } + + # Process the list of flags, treat non-option arguments as glob + # patterns and expand them to a set of files, stored as absolute + # paths. + + set have {} + if {$unique && [dict exists $v::code($file) config $type]} { + foreach v [dict get $v::code($file) config $type] { + dict set have $v . + } + } + + set tmp {} + foreach v $values { + if {[string match "-*" $v]} { + lappend tmp $v + } else { + if {$expand} { + foreach f [Expand $file $v] { + if {$unique && [dict exists $have $f]} continue + lappend tmp $f + if {$unique} { dict set have $f . } + if {$uuid} { UUID.extend $file .$type.$f [Cat $f] } + } + } else { + if {$unique && [dict exists $have $v]} continue + lappend tmp $v + if {$unique} { dict set have $v . } + } + } + } + + # And save into the system state. + dict update v::code($file) config c { + foreach v $tmp { + dict lappend c $type $v + } + } + + return +} + +proc ::critcl::Expand {file pattern} { + set base [file dirname $file] + + # Note: We cannot use -directory here. The PATTERN may already be + # an absolute path, in which case the join will return the + # unmodified PATTERN to glob on, whereas with -directory the final + # pattern will be BASE/PATTERN which won't find anything, even if + # PATTERN actually exists. + + set files {} + foreach vfile [glob [file join $base $pattern]] { + set vfile [file normalize $vfile] + if {![file exists $vfile]} { + error "$vfile: not found" + } + lappend files $vfile + } + return $files +} + +proc ::critcl::InitializeFile {file} { + if {![info exists v::code($file)]} { + set v::code($file) {} + + # Initialize the meta data sections (user (meta) and system + # (package)). + + dict set v::code($file) config meta {} + + dict set v::code($file) config package platform \ + [TeapotPlatform] + dict set v::code($file) config package build::date \ + [list [clock format [clock seconds] -format {%Y-%m-%d}]] + + # May not exist, bracket code. + if {![file exists $file]} return + + ScanDependencies $file $file provide + return + } + + if {![dict exists $v::code($file) config]} { + dict set v::code($file) config {} + } + return +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- Internals - Management of in-memory C source fragment. + +proc ::critcl::name2c {name} { + # Note: A slightly modified copy (different depth in the call-stack) of this + # is inlined into the internal command "BeginCommand". + + # Locate caller, as the data is saved per .tcl file. + set file [This] + + if {![string match ::* $name]} { + # Locate caller's namespace. Two up, skipping the + # ccommand/cproc frame. This is where the new Tcl command will + # be defined in. + + set ns [uplevel 1 namespace current] + if {$ns ne "::"} { append ns :: } + + set name ${ns}$name + } + + # First ensure that any namespace qualifiers found in the name + # itself are shifted over to the namespace information. + + set ns [namespace qualifiers $name] + set name [namespace tail $name] + + # Then ensure that everything is fully qualified, and that the C + # level name doesn't contain bad characters. We have to remove any + # non-alphabetic characters. A serial number is further required + # to distinguish identifiers which would, despite having different + # Tcl names, transform to the same C identifier. + + if {$ns ne "::"} { append ns :: } + set cns [string map {:: _} $ns] + + regsub -all -- {[^a-zA-Z0-9_]} $name _ cname + regsub -all -- {_+} $cname _ cname + + regsub -all -- {[^a-zA-Z0-9_]} $cns _ cns + regsub -all -- {_+} $cns _ cns + + set cname $cname[UUID.serial $file] + + return [list $ns $cns $name $cname] +} + +proc ::critcl::BeginCommand {visibility name args} { + # Locate caller, as the data is saved per .tcl file. + set file [This] + + # Inlined name2c + if {![string match ::* $name]} { + # Locate caller's namespace. Two up, skipping the + # ccommand/cproc frame. This is where the new Tcl command will + # be defined in. + + set ns [uplevel 2 namespace current] + if {$ns ne "::"} { append ns :: } + + set name ${ns}$name + } + + # First ensure that any namespace qualifiers found in the name + # itself are shifted over to the namespace information. + + set ns [namespace qualifiers $name] + set name [namespace tail $name] + + # Then ensure that everything is fully qualified, and that the C + # level identifiers don't contain bad characters. We have to + # remove any non-alphabetic characters. A serial number is further + # required to distinguish identifiers which would, despite having + # different Tcl names, transform to the same C identifier. + + if {$ns ne "::"} { append ns :: } + set cns [string map {:: _} $ns] + + regsub -all -- {[^a-zA-Z0-9_]} $name _ cname + regsub -all -- {_+} $cname _ cname + + regsub -all -- {[^a-zA-Z0-9_]} $cns _ cns + regsub -all -- {_+} $cns _ cns + + set cname $cname[UUID.serial $file] + + # Set the defered build-on-demand used by mode 'comile & run' up. + # Note: Removing the leading :: because it trips Tcl's unknown + # command, i.e. the command will not be found when called in a + # script without leading ::. + set ::auto_index([string trimleft $ns$name :]) [list [namespace current]::cbuild $file] + + set v::curr [UUID.extend $file .function "$ns $name $args"] + + dict update v::code($file) config c { + dict lappend c functions $cns$cname + dict lappend c fragments $v::curr + } + + if {$visibility eq "public"} { + Emitln "#define ns_$cns$cname \"$ns$name\"" + } + return [list $ns $cns $name $cname] +} + +proc ::critcl::EndCommand {} { + set file [This] + + set v::code($v::curr) $v::block + + dict set v::code($file) config block $v::curr $v::block + + unset v::curr + unset v::block + return +} + +proc ::critcl::Emit {s} { + append v::block $s + return +} + +proc ::critcl::Emitln {{s ""}} { + Emit $s\n + return +} + +# # ## ### ##### ######## ############# ##################### +## At internal processing + +proc ::critcl::at::Where {leadoffset level file} { + variable where + + set line 1 + + # If the interpreter running critcl has TIP 280 support use it to + # place more exact line number information into the generated C + # file. + + #puts "XXX-WHERE-($leadoffset $level $file)" + #set ::errorInfo {} + if {[catch { + #::critcl::msg [SHOWFRAMES $level 0] + array set loc [info frame $level] + #puts XXX-TYPE-$loc(type) + }]} { + #puts XXX-NO-DATA-$::errorInfo + set where {} + return + } + + if {$loc(type) eq "source"} { + #parray loc + set file $loc(file) + set fline $loc(line) + + # Adjust for removed leading whitespace. + ::incr fline $leadoffset + + # Keep the limitations of native compilers in mind and stay + # inside their bounds. + + if {$fline > $line} { + set line $fline + } + + set where [list [file tail $file] $line] + return + } + + if {($loc(type) eq "eval") && + [info exists loc(proc)] && + ($loc(proc) eq "::critcl::source") + } { + # A relative location in critcl::source is absolute in the + # sourced file. I.e. we can provide proper line information. + + set fline $loc(line) + # Adjust for removed leading whitespace. + ::incr fline $leadoffset + + # Keep the limitations of native compilers in mind and stay + # inside their bounds. + + if {$fline > $line} { + set line $fline + } + + variable ::critcl::v::source + set where [list [file tail $source] $line] + return + } + + #puts XXX-NO-DATA-$loc(type) + set where {} + return +} + +proc ::critcl::at::CPragma {leadoffset level file} { + # internal variant of 'caller!' + ::incr level -1 + Where $leadoffset $level $file + return [get] +} + +proc ::critcl::at::Format {loc} { + if {![llength $loc]} { + return "" + } + lassign $loc file line + #::critcl::msg "#line $line \"$file\"\n" + return "#line $line \"$file\"\n" +} + +proc ::critcl::at::SHOWFRAMES {level {all 1}} { + set lines {} + set n [info frame] + set i 0 + set id 1 + while {$n} { + lappend lines "[expr {$level == $id ? "**" : " "}] frame [format %3d $id]: [info frame $i]" + ::incr i -1 + ::incr id -1 + ::incr n -1 + if {($level > $id) && !$all} break + } + return [join $lines \n] +} + +# # ## ### ##### ######## ############# ##################### + +proc ::critcl::CollectEmbeddedSources {file destination libfile ininame placestubs} { + set fd [open $destination w] + + if {[dict exists $v::code($file) result apiprefix]} { + set api [dict get $v::code($file) result apiprefix] + } else { + set api "" + } + + # Boilerplate header. + puts $fd [subst [Cat [Template header.c]]] + # ^=> file, libfile, api + + # Make Tk available, if requested + if {[UsingTk $file]} { + puts $fd "\n#include \"tk.h\"" + } + + # Write the collected C fragments, in order of collection. + foreach digest [GetParam $file fragments] { + puts $fd "[Separator]\n" + puts $fd [dict get $v::code($file) config block $digest] + } + + # Boilerplate trailer. + + # Stubs setup, Tcl, and, if requested, Tk as well. + puts $fd [Separator] + set mintcl [MinTclVersion $file] + + if {$placestubs} { + # Put full stubs definitions into the code, which can be + # either the bracket generated for a -pkg, or the package + # itself, build in mode "compile & run". + msg " Stubs:" + set stubs [TclDecls $file] + set platstubs [TclPlatDecls $file] + puts -nonewline $fd [Deline [subst [Cat [Template stubs.c]]]] + # ^=> mintcl, stubs, platstubs + } else { + # Declarations only, for linking, in the sub-packages. + puts -nonewline $fd [Deline [subst [Cat [Template stubs_e.c]]]] + # ^=> mintcl + } + + if {[UsingTk $file]} { + SetupTkStubs $fd $mintcl + } + + # Initialization boilerplate. This ends in the middle of the + # FOO_Init() function, leaving it incomplete. + + set ext [GetParam $file edecls] + puts $fd [subst [Cat [Template pkginit.c]]] + # ^=> ext, ininame + + # From here on we are completing FOO_Init(). + # Tk setup first, if requested. (Tcl is already done). + if {[UsingTk $file]} { + puts $fd [Cat [Template pkginittk.c]] + } + + # User specified initialization code. + puts $fd "[GetParam $file initc] " + + # Setup of the variables serving up defined constants. + if {[dict exists $v::code($file) config const]} { + BuildDefines $fd $file + } + + # Take the names collected earlier and register them as Tcl + # commands. + set names [lsort [GetParam $file functions]] + set max [LengthLongestWord $names] + foreach name $names { + if {[info exists v::clientdata($name)]} { + set cd $v::clientdata($name) + } else { + set cd NULL + } + if {[info exists v::delproc($name)]} { + set dp $v::delproc($name) + } else { + set dp 0 + } + puts $fd " Tcl_CreateObjCommand(interp, [PadRight [expr {$max+4}] ns_$name,] [PadRight [expr {$max+5}] tcl_$name,] $cd, $dp);" + } + + # Complete the trailer and be done. + puts $fd [Cat [Template pkginitend.c]] + close $fd + return +} + +proc ::critcl::MinTclVersion {file} { + set required [GetParam $file mintcl 8.6] + foreach version $v::hdrsavailable { + if {[package vsatisfies $version $required]} { + return $version + } + } + return $required +} + +proc ::critcl::UsingTk {file} { + return [GetParam $file tk 0] +} + +proc ::critcl::TclIncludes {file} { + # Provide access to the Tcl/Tk headers using a -I flag pointing + # into the critcl package directory hierarchy. No copying of files + # required. This also handles the case of the X11 headers on + # windows, for free. + + set hdrs tcl[MinTclVersion $file] + set path [file join $v::hdrdir $hdrs] + + if {[file system $path] ne "native"} { + # The critcl package is wrapped. Copy the relevant headers out + # to disk and change the include path appropriately. + + Copy $path [cache] + set path [file join [cache] $hdrs] + } + + return [list $c::include$path] +} + +proc ::critcl::TclHeader {file {header {}}} { + # Provide access to the Tcl/Tk headers in the critcl package + # directory hierarchy. No copying of files required. + set hdrs tcl[MinTclVersion $file] + return [file join $v::hdrdir $hdrs $header] +} + +proc ::critcl::SystemIncludes {file} { + set includes {} + foreach dir [SystemIncludePaths $file] { + lappend includes $c::include$dir + } + return $includes +} + +proc ::critcl::SystemIncludePaths {file} { + set paths {} + set has {} + + # critcl -I options. + foreach dir $v::options(I) { + if {[dict exists $has $dir]} continue + dict set has $dir yes + lappend paths $dir + } + + # Result cache. + lappend paths [cache] + + # critcl::cheaders + foreach flag [GetParam $file cheaders] { + if {![string match "-*" $flag]} { + # flag = normalized absolute path to a header file. + # Transform into a -I directory reference. + set dir [file dirname $flag] + } else { + # Chop leading -I + set dir [string range $flag 2 end] + } + + if {[dict exists $has $dir]} continue + dict set has $dir yes + lappend paths $dir + } + + return $paths +} + +proc ::critcl::SystemLibraries {} { + set libincludes {} + foreach dir [SystemLibraryPaths] { + lappend libincludes $c::libinclude$dir + } + return $libincludes +} + +proc ::critcl::SystemLibraryPaths {} { + set paths {} + set has {} + + # critcl -L options. + foreach dir $v::options(L) { + if {[dict exists $has $dir]} continue + dict set has $dir yes + lappend paths $dir + } + + return $paths +} + +proc ::critcl::Compile {tclfile origin cfile obj} { + StatusAbort? + + # tclfile = The .tcl file under whose auspices the C is compiled. + # origin = The origin of the C sources, either tclfile, or cfile. + # cfile = The file holding the C sources to compile. + # + # 'origin == cfile' for the companion C files of a critcl file, + # i.e. the csources. For a .tcl critcl file, the 'origin == + # tclfile', and the cfile is the .c derived from tclfile. + # + # obj = Object file to compile to, to generate. + + set cmdline [getconfigvalue compile] + lappendlist cmdline [GetParam $tclfile cflags] + lappendlist cmdline [getconfigvalue threadflags] + if {$v::options(combine) ne "standalone"} { + lappendlist cmdline [getconfigvalue tclstubs] + } + if {$v::options(language) ne "" && [file tail $tclfile] ne "critcl.tcl"} { + # XXX Is this gcc specific ? + # XXX Should this not be configurable via some c::* setting ? + # See also -x none below. + lappend cmdline -x $v::options(language) + } + lappendlist cmdline [TclIncludes $tclfile] + lappendlist cmdline [SystemIncludes $tclfile] + + if {[dict exists $v::code($tclfile) result apidefines]} { + lappendlist cmdline [dict get $v::code($tclfile) result apidefines] + } + + lappendlist cmdline [CompileResult $obj] + lappend cmdline $cfile + + if {$v::options(language) ne ""} { + # Allow the compiler to determine the type of file otherwise + # it will try to compile the libs + # XXX Is this gcc specific ? + # XXX Should this not be configurable via some c::* setting ? + lappend cmdline -x none + } + + # Add the Tk stubs to the command line, if requested and not suppressed + if {[UsingTk $tclfile] && ($v::options(combine) ne "standalone")} { + lappendlist cmdline [getconfigvalue tkstubs] + } + + if {!$option::debug_symbols} { + lappendlist cmdline [getconfigvalue optimize] + lappendlist cmdline [getconfigvalue noassert] + } + + if {[ExecWithLogging $cmdline \ + {$obj: [file size $obj] bytes} \ + {ERROR while compiling code in $origin:}]} { + if {!$v::options(keepsrc) && $cfile ne $origin} { + file delete $cfile + } + } + + return $obj +} + +proc ::critcl::MakePreloadLibrary {file} { + StatusAbort? + + # compile and link the preload support, if necessary, i.e. not yet + # done. + + set shlib [file join [cache] preload[getconfigvalue sharedlibext]] + if {[file exists $shlib]} return + + # Operate like TclIncludes. Use the template file directly, if + # possible, or, if we reside in a virtual filesystem, copy it to + # disk. + + set src [Template preload.c] + if {[file system $src] ne "native"} { + file mkdir [cache] + file copy -force $src [cache] + set src [file join [cache] preload.c] + } + + # Build the object for the helper package, 'preload' ... + + set obj [file join [cache] preload.o] + Compile $file $src $src $obj + + # ... and link it. + # Custom linker command. XXX Can we bent Link to the task? + set cmdline [getconfigvalue link] + lappend cmdline $obj + lappendlist cmdline [getconfigvalue strip] + lappendlist cmdline [LinkResult $shlib] + + ExecWithLogging $cmdline \ + {$shlib: [file size $shlib] bytes} \ + {ERROR while linking $shlib:} + + # Now the critcl application can pick up this helper shlib and + # stuff it into the package it is making. + return +} + +proc ::critcl::Link {file} { + StatusAbort? + + set shlib [dict get $v::code($file) result shlib] + set preload [dict get $v::code($file) result preload] + + # Assemble the link command. + set cmdline [getconfigvalue link] + + if {[llength $preload]} { + lappendlist cmdline [getconfigvalue link_preload] + } + + if {$option::debug_symbols} { + lappendlist cmdline [getconfigvalue link_debug] + } else { + lappendlist cmdline [getconfigvalue strip] + lappendlist cmdline [getconfigvalue link_release] + } + + lappendlist cmdline [LinkResult $shlib] + lappendlist cmdline [GetObjects $file] + lappendlist cmdline [SystemLibraries] + lappendlist cmdline [GetLibraries $file] + lappendlist cmdline [dict get $v::code($file) result ldflags] + # lappend cmdline bufferoverflowU.lib ;# msvc >=1400 && <1500 for amd64 + + # Extend library search paths with user-specified locations. + # (-L, clibraries) + set libpaths [dict get $v::code($file) result libpaths] + if {[llength $libpaths]} { + set opt [getconfigvalue link_rpath] + if {$opt ne {}} { + foreach path $libpaths { + # todo (debug flag) msg "\trpath += $path" + lappend cmdline [string map [list @ $path] $opt] + } + } + } + + # Run the linker + ExecWithLogging $cmdline \ + {$shlib: [file size $shlib] bytes} \ + {ERROR while linking $shlib:} + + # Now, if there is a manifest file around, and the + # 'embed_manifest' command defined we use its command to merge the + # manifest into the shared library. This is pretty much only + # happening on Windows platforms, and with newer dev environments + # actually using manifests. + + set em [getconfigvalue embed_manifest] + + critcl::Log "Manifest Command: $em" + critcl::Log "Manifest File: [expr {[file exists $shlib.manifest] + ? "$shlib.manifest" + : "<>, ignored"}]" + + if {[llength $em] && [file exists $shlib.manifest]} { + set cmdline [ManifestCommand $em $shlib] + + # Run the manifest tool + ExecWithLogging $cmdline \ + {$shlib: [file size $shlib] bytes, with manifest} \ + {ERROR while embedding the manifest into $shlib:} + } + + # At last, build the preload support library, if necessary. + if {[llength $preload]} { + MakePreloadLibrary $file + } + return +} + +proc ::critcl::ManifestCommand {em shlib} { + # Variable used by the subst'able config setting. + set outfile $shlib + return [subst $em] +} + +proc ::critcl::CompanionObject {src} { + set tail [file tail $src] + set srcbase [file rootname $tail] + + if {[cache] ne [file dirname $src]} { + set srcbase [file tail [file dirname $src]]_$srcbase + } + + return [file join [cache] ${srcbase}[getconfigvalue object]] +} + +proc ::critcl::CompileResult {object} { + # Variable used by the subst'able config setting. + set outfile $object + return [subst $c::output] +} + +proc ::critcl::LinkResult {shlib} { + # Variable used by the subst'able config setting. + set outfile $shlib + + set ldout [subst $c::ldoutput] + if {$ldout eq ""} { + set ldout [subst $c::output] + } + + return $ldout +} + +proc ::critcl::GetObjects {file} { + # On windows using the native MSVC compiler put the companion + # object files into a link file to read, instead of separately on + # the command line. + + set objects [dict get $v::code($file) result objects] + + if {![string match "win32-*-cl" $v::buildplatform]} { + return $objects + } + + set rsp [WriteCache link.fil \"[join $objects \"\n\"]\"] + return [list @$rsp] +} + +proc ::critcl::GetLibraries {file} { + # On windows using the native MSVC compiler, transform all -lFOO + # references into FOO.lib. + + return [FixLibraries [dict get $v::code($file) result clibraries]] +} + +proc ::critcl::FixLibraries {libraries} { + if {[string match "win32-*-cl" $v::buildplatform]} { + # On windows using the native MSVC compiler, transform all + # -lFOO references into FOO.lib. + + regsub -all -- {-l(\S+)} $libraries {\1.lib} libraries + } else { + # On unix we look for '-l:' references and rewrite them to the + # full path of the library, doing the search on our own. + # + # GNU ld understands this since at least 2.22 (don't know if + # earlier, 2.15 definitely doesn't), and it helps in + # specifying static libraries (Regular -l prefers .so over .a, + # and -l: overrides that). + + # Search paths specified via -L, -libdir. + set lpath [SystemLibraryPaths] + + set tmp {} + foreach word $libraries { + # Extend search path with -L options from clibraries. + if {[string match -L* $word]} { + lappend lpath [string range $word 2 end] + lappend tmp $word + continue + } + if {![string match -l:* $word]} { + lappend tmp $word + continue + } + # Search named library. + lappend tmp [ResolveColonSpec $lpath [string range $word 3 end]] + } + set libraries $tmp + } + + return $libraries +} + +proc ::critcl::ResolveColonSpec {lpath name} { + foreach path $lpath { + set f [file join $lpath $name] + if {![file exists $f]} continue + return $f + } + return -l:$name +} + +proc ::critcl::SetupTkStubs {fd mintcl} { + if {[package vcompare $mintcl 8.6] != 0} { + # Not 8.6. tkStubsPtr and tkIntXlibStubsPtr are not const yet. + set contents [Cat [Template tkstubs_noconst.c]] + } else { + set contents [Cat [Template tkstubs.c]] + } + + puts -nonewline $fd $contents + return +} + +proc ::critcl::BuildDefines {fd file} { + # we process the cdefines in three steps + # - get the list of defines by preprocessing the source using the + # cpp -dM directive which causes any #defines to be output + # - extract the list of enums using regular expressions (not perfect, + # but will do for now) + # - generate Tcl_ObjSetVar2 commands to initialise Tcl variables + + # Pull the collected ccode blocks together into a transient file + # we then search in. + + set def [WriteCache define_[pid].c {}] + foreach digest [dict get $v::code($file) config defs] { + Append $def [dict get $v::code($file) config block $digest] + } + + # For the command lines to be constructed we need all the include + # information the regular files will get during their compilation. + + set hdrs [SystemIncludes $file] + + # The result of the next two steps, a list of triples (namespace + + # label + value) of the defines to export. + + set defines {} + + # First step - get list of matching defines + set cmd [getconfigvalue preproc_define] + lappendlist cmd $hdrs + lappend cmd $def + + set pipe [open "| $cmd" r] + while {[gets $pipe line] >= 0} { + # Check if the line contains a define. + set fields [split [string trim $line]] + if {[lindex $fields 0] ne "#define"} continue + + # Yes. Get name and value. The latter is the joining of all + # fields after the name, except for any enclosing parentheses, + # which we strip off. + + set var [lindex $fields 1] + set val [string trim [join [lrange $fields 2 end]] {()}] + + # We ignore however any and all defines the user is not + # interested in making public. This is, in essence, a set + # intersection on the names of the defines. + + if {![TakeDefine $file $var namespace]} continue + + # And for those which are kept we integrate the information + # from both sources, i.e. namespace, and definition, under a + # single name. + + lappend defines $namespace $var $val + } + close $pipe + + # Second step - get list of enums + + set cmd [getconfigvalue preproc_enum] + lappendlist cmd $hdrs + lappend cmd $def + + set pipe [open "| $cmd" r] + set code [read $pipe] + close $pipe + + set matches [regexp -all -inline {enum [^\{\(\)]*{([^\}]*)}} $code] + foreach {match submatch} $matches { + foreach line [split $submatch \n] { + foreach sub [split $line ,] { + set enum [lindex [split [string trim $sub]] 0] + + # We ignore however any and all enum values the user + # is not interested in making public. This is, in + # essence, a set intersection on the names of the + # enum values. + + if {![TakeDefine $file $enum namespace]} continue + + # And for those which are kept we integrate the + # information from both sources, i.e. namespace, and + # definition, under a single name. + + lappend defines $namespace $enum $enum + } + } + } + + # Third step - generate Tcl_ObjSetVar2 commands exporting the + # defines and their values as Tcl variables. + + foreach {namespace constname constvalue} $defines { + if {![info exists created($namespace)]} { + # we need to force the creation of the namespace + # because this code will be run before the user code + puts $fd " Tcl_Eval(ip, \"namespace eval $namespace {}\");" + set created($namespace) 1 + } + set var "Tcl_NewStringObj(\"${namespace}::$constname\", -1)" + if {$constname eq $constvalue} { + # enum - assume integer + set constvalue "Tcl_NewIntObj($constvalue)" + } else { + # text or int - force to string + set constvalue "Tcl_NewStringObj(\"$constvalue\", -1)" + } + puts $fd " Tcl_ObjSetVar2(ip, $var, NULL, $constvalue, TCL_GLOBAL_ONLY);" + } + + # Cleanup after ourselves, removing the helper file. + + if {!$v::options(keepsrc)} { file delete $def } + return +} + +proc ::critcl::TakeDefine {file identifier nsvar} { + upvar 1 $nsvar dst + if 0 {if {[dict exists $v::code($file) config const $identifier]} { + set dst [dict get $v::code($file) config const $identifier] + return 1 + }} + foreach {pattern def} [dict get $v::code($file) config const] { + if {[string match $pattern $identifier]} { + set dst $def + return 1 + } + } + return 0 +} + +proc ::critcl::Load {f} { + set shlib [dict get $v::code($f) result shlib] + set init [dict get $v::code($f) result initname] + set tsrc [dict get $v::code($f) result tsources] + set minv [dict get $v::code($f) result mintcl] + + # Using the renamed builtin. While this is a dependency it was + # recorded already. See 'critcl::tcl', and 'critcl::tk'. + #package require Tcl $minv + ::load $shlib $init + + # See the critcl application for equivalent code placing the + # companion tcl sources into the generated package. Here, for + # 'compile & run' we now source the companion files directly. + foreach t $tsrc { + Ignore $t + ::source $t + } + return +} + +proc ::critcl::ResolveRelative {prefixes flags} { + set new {} + set take no + foreach flag $flags { + if {$take} { + set take no + set flag [file normalize [file join [file dirname [This]] $flag]] + lappend new $flag + continue + } + foreach prefix $prefixes { + if {$flag eq $prefix} { + set take yes + lappend new $flag + break + } + set n [string length $prefix] + if {[string match ${prefix}* $flag]} { + set path [string range $flag $n end] + set flag ${prefix}[file normalize [file join [file dirname [This]] $path]] + break + } + if {[string match ${prefix}=* $flag]} { + incr n + set path [string range $flag $n end] + set flag ${prefix}[file normalize [file join [file dirname [This]] $path]] + break + } + } + lappend new $flag + } + return $new +} + +proc ::critcl::LibPaths {clibraries} { + set lpath {} + set take no + + set sa [string length -L] + set sb [string length --library-directory=] + + foreach word $clibraries { + # Get paths from -L..., --library-directory ..., + # --library-directory=... and full library paths. Ignore + # anything else. + + if {$take} { + # path argument separate from preceding option. + set take no + lappend lpath $word + continue + } + if {[string match -L* $word]} { + # path at tail of argument + lappend lpath [string range $word $sa end] + continue + } + if {[string match -l* $word]} { + # ignore + continue + } + if {[string match --library-directory=* $word]} { + # path at tail of argument + lappend lpath [string range $word $sb end] + continue + } + if {[string equal --library-directory $word]} { + # Next argument is the desired path + set take yes + continue + } + if {[file isfile $word]} { + # directory of the file + lappend lpath [file dirname $word] + } + # else ignore + } + return $lpath +} + +proc ::critcl::HandleDeclAfterBuild {} { + # Hook default, mode "compile & run". Clear existing build results + # for the file, make way for new declarations. + + set fx [This] + if {[info exists v::code($fx)] && + [dict exists $v::code($fx) result]} { + dict unset v::code($fx) result + } + return +} + +# XXX Refactor to avoid duplication of the memoization code. +proc ::critcl::DetermineShlibName {file} { + # Return cached information, if present. + if {[info exists v::code($file)] && + [dict exists $v::code($file) result shlib]} { + return [dict get $v::code($file) result shlib] + } + + # The name of the shared library we hope to produce (or use) + set shlib [BaseOf $file][getconfigvalue sharedlibext] + + dict set v::code($file) result shlib $shlib + return $shlib +} + +proc ::critcl::DetermineObjectName {file} { + # Return cached information, if present. + if {[info exists v::code($file)] && + [dict exists $v::code($file) result object]} { + return [dict get $v::code($file) result object] + } + + set object [BaseOf $file] + + # The generated object file will be saved for permanent use if the + # outdir option is set (in which case rebuilds will no longer be + # automatic). + if {$v::options(outdir) ne ""} { + set odir [file join [file dirname $file] $v::options(outdir)] + set oroot [file rootname [file tail $file]] + set object [file normalize [file join $odir $oroot]] + file mkdir $odir + } + + # Modify the output file name if debugging symbols are requested. + if {$option::debug_symbols} { + append object _g + } + + # Choose a distinct suffix so switching between them causes a + # rebuild. + switch -- $v::options(combine) { + "" - + dynamic { append object _pic[getconfigvalue object] } + static { append object _stub[getconfigvalue object] } + standalone { append object [getconfigvalue object] } + } + + dict set v::code($file) result object $object + return $object +} + +proc ::critcl::DetermineInitName {file prefix} { + set ininame [PkgInit $file] + + # Add in the build prefix, if specified. This is done in mode + # 'generate package', for the pieces, ensuring that the overall + # initialization function cannot be in conflict with the + # initialization functions of these same pieces. + + if {$prefix ne ""} { + set ininame "${prefix}_$ininame" + } + + dict set v::code($file) result initname $ininame + + catch { + dict set v::code($file) result pkgname \ + [dict get $v::code($file) config package name] + } + + return $ininame +} + +proc ::critcl::PkgInit {file} { + # The init function name takes a capitalized prefix from the name + # of the input file name (alphanumeric prefix, including + # underscores). This implicitly drops the file extension, as the + # '.' is not an allowed character. + + # While related to the package name, it can be different, + # especially if the package name contains :: separators. + + if {$file eq {}} { + return Stdin + } else { + set ininame [file rootname [file tail $file]] + regsub -all {[^[:alnum:]_]} $ininame {} ininame + return [string totitle $ininame] + } +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- Internals - Access to the log file + +proc ::critcl::LogFile {} { + file mkdir [cache] + return [file join [cache] [pid].log] +} + +proc ::critcl::LogFileExec {} { + file mkdir [cache] + return [file join [cache] [pid]_exec.log] +} + +proc ::critcl::LogOpen {file} { + set v::logfile [LogFile] + set v::log [open $v::logfile w] + puts $v::log "\n[clock format [clock seconds]] - $file" + # Create secondary file as well, leave empty, may not be used. + close [open ${v::logfile}_ w] + return +} + +proc ::critcl::LogCmdline {cmdline} { + set w [join [lassign $cmdline cmd] \n\t] + Log \n$cmd\n\t$w\n + return +} + +proc ::critcl::Log {msg} { + puts $v::log $msg + return +} + +proc ::critcl::Log* {msg} { + puts -nonewline $v::log $msg + return +} + +proc ::critcl::LogClose {} { + # Transfer the log messages for the current file over into the + # global critcl log, and cleanup. + + close $v::log + set msgs [Cat $v::logfile] + set emsg [Cat ${v::logfile}_] + + AppendCache $v::prefix.log $msgs + + file delete -force $v::logfile ${v::logfile}_ + unset v::log v::logfile + + return [list $msgs $emsg] +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- Internals - UUID management, change detection + +proc ::critcl::UUID.extend {file key value} { + set digest [md5_hex /$value] + InitializeFile $file + dict update v::code($file) config c { + dict lappend c uuid $key $digest + } + return $digest +} + +proc ::critcl::UUID.serial {file} { + InitializeFile $file + if {[catch { + set len [llength [dict get $v::code($file) config uuid]] + }]} { + set len 0 + } + return $len +} + +proc ::critcl::UUID {f} { + return [md5_hex "$f [GetParam $f uuid]"] +} + +proc ::critcl::BaseOf {f} { + # Return cached information, if present. + if {[info exists v::code($f)] && + [dict exists $v::code($f) result base]} { + return [dict get $v::code($f) result base] + } + + set base [file normalize \ + [file join [cache] ${v::prefix}_[UUID $f]]] + + dict set v::code($f) result base $base + return $base +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- Internals - Miscellanea + +proc ::critcl::Deline {text} { + if {![config lines]} { + set text [join [GrepV "\#line*" [split $text \n]] \n] + } + return $text +} + +proc ::critcl::Separator {} { + return "/* [string repeat - 70] */" +} + +proc ::critcl::Template {file} { + variable v::hdrdir + return [file join $hdrdir $file] +} + +proc ::critcl::Copy {src dst} { + foreach p [glob -nocomplain $src] { + if {[file isdirectory $p]} { + set stem [file tail $p] + file mkdir $dst/$stem + Copy $p/* $dst/$stem + } else { + file copy -force $p $dst + } + } +} + +proc ::critcl::Cat {path} { + # Easier to write our own copy than requiring fileutil and then + # using fileutil::cat. + + set fd [open $path r] + set data [read $fd] + close $fd + return $data +} + +proc ::critcl::WriteCache {name content} { + set dst [file join [cache] $name] + file mkdir [file dirname $dst] ;# just in case + return [Write [file normalize $dst] $content] +} + +proc ::critcl::Write {path content} { + set chan [open $path w] + puts $chan $content + close $chan + return $path +} + +proc ::critcl::AppendCache {name content} { + file mkdir [cache] ;# just in case + return [Append [file normalize [file join [cache] $name]] $content] +} + +proc ::critcl::Append {path content} { + set chan [open $path a] + puts $chan $content + close $chan + return $path +} + +# # ## ### ##### ######## ############# ##################### +## Implementation -- Internals - Status Operations, and execution +## of external commands. + +proc ::critcl::StatusReset {} { + set v::failed 0 + return +} + +proc ::critcl::StatusAbort? {} { + if {$v::failed} { return -code return } + return +} + +proc ::critcl::StatusSave {file} { + # XXX FUTURE Use '$(file) result failed' later + set result $v::failed + set v::code($file,failed) $v::failed + set v::failed 0 + return $result +} + +proc ::critcl::CheckForWarnings {text} { + set warnings [dict create] + foreach line [split $text \n] { + # Ignore everything not a warning. + if {![string match -nocase *warning* $line]} continue + # Ignore duplicates (which is why we store the lines as dict + # keys for now). + if {[dict exists $warnings $line]} continue + dict set warnings $line . + } + return [dict keys $warnings] +} + +proc ::critcl::Exec {cmdline} { + variable run + + set v::failed [catch { + interp eval $run [linsert $cmdline 0 exec] + } v::err] + + return [expr {!$v::failed}] +} + +proc ::critcl::ExecWithLogging {cmdline okmsg errmsg} { + variable run + + # todo (debug flag) msg "EXEC: $cmdline" + LogCmdline $cmdline + + # Extend the command, redirect all of its output (stdout and + # stderr) into a temp log. + set elogfile [LogFileExec] + set elog [open $elogfile w] + + lappend cmdline >&@ $elog + interp transfer {} $elog $run + + set ok [Exec $cmdline] + + interp transfer $run $elog {} + close $elog + + # Put the command output into the main log ... + set msgs [Cat $elogfile] + Log $msgs + + # ... as well as into a separate execution log. + Append ${v::logfile}_ $msgs + + file delete -force $elogfile + + if {$ok} { + Log [uplevel 1 [list subst $okmsg]] + } else { + Log [uplevel 1 [list subst $errmsg]] + Log $v::err + } + + return $ok +} + +proc ::critcl::BuildPlatform {} { + set platform [::platform::generic] + + # Behave like an autoconf generated configure + # - $CC (user's choice first) + # - gcc, if available. + # - cc/cl otherwise (without further check for availability) + + if {[info exists ::env(CC)]} { + # The compiler may be a gcc, despite being named .../cc. + + set cc $::env(CC) + if {[IsGCC $cc]} { + set cc gcc + } + } elseif {[llength [auto_execok gcc]]} { + set cc gcc + } else { + if {[string match "win32-*" $platform]} { + set cc cl + } else { + set cc cc + } + } + + # The cc may be specified with a full path, through the CC + # environment variable, which cannot be used as is in the platform + # code. Use only the last element of the path, without extensions + # (.exe). And it may be followed by options too, so look for and + # strip these off as well. This last part assumes that the path of + # the compiler itself doesn't contain spaces. + + regsub {( .*)$} [file tail $cc] {} cc + append platform -[file rootname $cc] + + # Memoize + proc ::critcl::BuildPlatform {} [list return $platform] + return $platform +} + +proc ::critcl::IsGCC {path} { + if {[catch { + set lines [exec $path -v |& grep gcc] + }] || ($lines eq {})} { return 0 } + return 1 +} + +proc ::critcl::This {} { + variable v::this + # For management of v::this see critcl::{source,collect*} + # If present, an output redirection is active. + if {[info exists this] && [llength $this]} { + return [lindex $this end] + } + return [file normalize [info script]] +} + +proc ::critcl::Here {} { + return [file dirname [This]] +} + +proc ::critcl::TclDecls {file} { + return [TclDef $file tclDecls.h tclStubsPtr {tclStubsPtr }] +} + +proc ::critcl::TclPlatDecls {file} { + return [TclDef $file tclPlatDecls.h tclPlatStubsPtr tclPlatStubsPtr] +} + +proc ::critcl::TclDef {file hdr var varlabel} { + #puts F|$file + set hdr [TclHeader $file $hdr] + + if {![file exists $hdr]} { error "Header file not found: $hdr" } + if {![file isfile $hdr]} { error "Header not a file: $hdr" } + if {![file readable $hdr]} { error "Header not readable: $hdr (no permission)" } + + #puts H|$hdr + if {[catch { + set hdrcontent [split [Cat $hdr] \n] + } msg]} { + error "Header not readable: $hdr ($msg)" + } + + # Note, Danger: The code below is able to use declarations which + # are commented out in various ways (#if 0, /* ... */, and // + # ...), because it is performing a simple line-oriented search + # without context, and not matching against comment syntax either. + + set ext [Grep *extern* $hdrcontent] + if {![llength $ext]} { + error "No extern declarations found in $hdr" + } + + set vardecl [Grep *${var}* $ext] + if {![llength $vardecl]} { + error "No declarations for $var found in $hdr" + } + + set def [string map {extern {}} [lindex $vardecl 0]] + msg " [join [lrange [file split $hdr] end-3 end] /]:" + msg " ($varlabel => $def)" + return $def +} + +proc ::critcl::Grep {pattern lines} { + set r {} + foreach line $lines { + if {![string match $pattern $line]} continue + lappend r $line + } + return $r +} + +proc ::critcl::GrepV {pattern lines} { + set r {} + foreach line $lines { + if {[string match $pattern $line]} continue + lappend r $line + } + return $r +} + +proc ::critcl::PadRight {len w} { + # <=> Left justified + format %-${len}s $w +} + +proc ::critcl::LengthLongestWord {words} { + set max 0 + foreach w $words { + set n [string length $w] + if {$n <= $max} continue + set max $n + } + return $max +} + +# # ## ### ##### ######## ############# ##################### +## Initialization + +proc ::critcl::Initialize {} { + variable mydir [Here] ; # Path of the critcl package directory. + + variable run [interp create] + variable v::buildplatform [BuildPlatform] + variable v::hdrdir [file join $mydir critcl_c] + variable v::hdrsavailable + variable v::storageclass [Cat [file join $hdrdir storageclass.c]] + + # Scan the directory holding the C fragments and our copies of the + # Tcl header and determine for which versions of Tcl we actually + # have headers. This allows distributions to modify the directory, + # i.e. drop our copies and refer to the system headers instead, as + # much as are installed, and critcl adapts. The tcl versions are + # recorded in ascending order, making upcoming searches easier, + # the first satisfying version is also always the smallest. + + foreach d [lsort -dict [glob -types {d r} -directory $hdrdir -tails tcl*]] { + lappend hdrsavailable [regsub {^tcl} $d {}] + } + + # The prefix is based on the package's version. This allows + # multiple versions of the package to use the same cache without + # interfering with each. Note that we cannot use 'pid' and similar + # information, because this would circumvent the goal of the + # cache, the reuse of binaries whose sources did not change. + + variable v::prefix "v[package require critcl]" + + regsub -all {\.} $prefix {} prefix + + # keep config options in a namespace + foreach var $v::configvars { + set c::$var {} + } + + # read default configuration. This also chooses and sets the + # target platform. + readconfig [file join $mydir Config] + + # Declare the standard argument types for cproc. + + argtype int { + if (Tcl_GetIntFromObj(interp, @@, &@A) != TCL_OK) return TCL_ERROR; + } + argtype boolean { + if (Tcl_GetBooleanFromObj(interp, @@, &@A) != TCL_OK) return TCL_ERROR; + } int int + argtype bool = boolean + + argtype long { + if (Tcl_GetLongFromObj(interp, @@, &@A) != TCL_OK) return TCL_ERROR; + } + + argtype wideint { + if (Tcl_GetWideIntFromObj(interp, @@, &@A) != TCL_OK) return TCL_ERROR; + } Tcl_WideInt Tcl_WideInt + + argtype double { + if (Tcl_GetDoubleFromObj(interp, @@, &@A) != TCL_OK) return TCL_ERROR; + } + argtype float { + double t; + if (Tcl_GetDoubleFromObj(interp, @@, &t) != TCL_OK) return TCL_ERROR; + @A = (float) t; + } + + # Premade scalar type derivations for common range restrictions. + # Look to marker XXXA for the places where auto-creation would + # need fitting in (future). + # + # See also `MakeScalarLimited`, which is able to generate validators for extended forms of this + # kind (multiple relations, arbitrary limit values, ...) + foreach type { + int long wideint double float + } { + set ctype [ArgumentCType $type] + set code [ArgumentConversion $type] + foreach restriction { + {> 0} {>= 0} {> 1} {>= 1} + {< 0} {<= 0} {< 1} {<= 1} + } { + set ntype "$type $restriction" + set head "expected $ntype, but got \\\"" + set tail "\\\"" + set msg "\"$head\", Tcl_GetString (@@), \"$tail\"" + set new $code + append new \ + "\n\t/* Range check, assert (x $restriction) */" \ + "\n\tif (!(@A $restriction)) \{" \ + "\n\t Tcl_AppendResult (interp, $msg, NULL);" \ + "\n\t return TCL_ERROR;" \ + "\n\t\}" + + argtype $ntype $new $ctype $ctype + } + } + + argtype char* { + @A = Tcl_GetString(@@); + } {const char*} {const char*} + + argtype pstring { + @A.s = Tcl_GetStringFromObj(@@, &(@A.len)); + @A.o = @@; + } critcl_pstring critcl_pstring + + argtypesupport pstring { + typedef struct critcl_pstring { + Tcl_Obj* o; + const char* s; + int len; + } critcl_pstring; + } + + argtype list { + if (Tcl_ListObjGetElements (interp, @@, &(@A.c), (Tcl_Obj***) &(@A.v)) != TCL_OK) return TCL_ERROR; + @A.o = @@; + } critcl_list critcl_list + + argtypesupport list { + typedef struct critcl_list { + Tcl_Obj* o; + Tcl_Obj* const* v; + int c; + } critcl_list; + } + + # See also `MakeList` which is able to generate arbitrary length-limited lists, lists over a + # base type, or a combination of both. This here defines the base case of the recognized syntax + # for "unlimited-length list with no base type". This shortcuts the operation of `MakeList`, no + # special types and code needed. + argtype {[]} = list + argtype {[*]} = list + + argtype Tcl_Obj* { + @A = @@; + } + argtype object = Tcl_Obj* + + # Predefined variadic type for the special Tcl_Obj*. + # - No actual conversion, nor allocation, copying, release needed. + # - Just point into and reuse the incoming ov[] array. + # This shortcuts the operation of 'MakeVariadicTypeFor'. + + argtype variadic_object { + @A.c = @C; + @A.v = &ov[@I]; + } critcl_variadic_object critcl_variadic_object + + argtypesupport variadic_object { + typedef struct critcl_variadic_object { + int c; + Tcl_Obj* const* v; + } critcl_variadic_object; + } + + argtype variadic_Tcl_Obj* = variadic_object + + ## The next set of argument types looks to be very broken. We are keeping + ## them for now, but declare them as DEPRECATED. Their documentation was + ## removed with version 3.2. Their implementation will be in 3.3 as well, + ## fully exterminating them. + + argtype int* { + /* Raw pointer in binary Tcl value */ + @A = (int*) Tcl_GetByteArrayFromObj(@@, NULL); + Tcl_InvalidateStringRep(@@); + } + argtype float* { + /* Raw pointer in binary Tcl value */ + @A = (float*) Tcl_GetByteArrayFromObj(@@, NULL); + } + argtype double* { + /* Raw pointer in binary Tcl value */ + @A = (double*) Tcl_GetByteArrayFromObj(@@, NULL); + } + + # OLD Raw binary string. Length information is _NOT_ propagated. Declaring + # it and its aliases as DEPRECATED. Their documentation was removed in + # version 3.2. Their implementation will be in 3.3 as well, fully + # exterminating them. + argtype bytearray { + /* Raw binary string. Length information is _NOT_ propagated */ + @A = (char*) Tcl_GetByteArrayFromObj(@@, NULL); + } char* char* + argtype rawchar = bytearray + argtype rawchar* = bytearray + + # NEW Raw binary string _with_ length information. + + argtype bytes { + /* Raw binary string _with_ length information */ + @A.s = Tcl_GetByteArrayFromObj(@@, &(@A.len)); + @A.o = @@; + } critcl_bytes critcl_bytes + + argtypesupport bytes { + typedef struct critcl_bytes { + Tcl_Obj* o; + const unsigned char* s; + int len; + } critcl_bytes; + } + + argtype channel { + int mode; + @A = Tcl_GetChannel(interp, Tcl_GetString (@@), &mode); + if (@A == NULL) return TCL_ERROR; + } Tcl_Channel Tcl_Channel + + argtype unshared-channel { + int mode; + @A = Tcl_GetChannel(interp, Tcl_GetString (@@), &mode); + if (@A == NULL) return TCL_ERROR; + if (Tcl_IsChannelShared (@A)) { + Tcl_SetObjResult(interp, Tcl_NewStringObj("channel is shared", -1)); + return TCL_ERROR; + } + } Tcl_Channel Tcl_Channel + + # Note, the complementary resulttype is `return-channel`. + argtype take-channel { + int mode; + @A = Tcl_GetChannel(interp, Tcl_GetString (@@), &mode); + if (@A == NULL) return TCL_ERROR; + if (Tcl_IsChannelShared (@A)) { + Tcl_SetObjResult(interp, Tcl_NewStringObj("channel is shared", -1)); + return TCL_ERROR; + } + { + /* Disable event processing for the channel, both by + * removing any registered handler, and forcing interest + * to none. This also disables the processing of pending + * events which are ready to fire for the given + * channel. If we do not do this, events will hit the + * detached channel and potentially wreck havoc on our + * memory and eventually badly hurt us... + */ + Tcl_DriverWatchProc *watchProc; + Tcl_ClearChannelHandlers(@A); + watchProc = Tcl_ChannelWatchProc(Tcl_GetChannelType(@A)); + if (watchProc) { + (*watchProc)(Tcl_GetChannelInstanceData(@A), 0); + } + /* Next some fiddling with the reference count to prevent + * the unregistration from killing it. We basically record + * it as globally known before removing it from the + * current interpreter + */ + Tcl_RegisterChannel((Tcl_Interp *) NULL, @A); + Tcl_UnregisterChannel(interp, @A); + } + } Tcl_Channel Tcl_Channel + + resulttype void { + return TCL_OK; + } + + resulttype ok { + return rv; + } int + + resulttype int { + Tcl_SetObjResult(interp, Tcl_NewIntObj(rv)); + return TCL_OK; + } + resulttype boolean = int + resulttype bool = int + + resulttype long { + Tcl_SetObjResult(interp, Tcl_NewLongObj(rv)); + return TCL_OK; + } + + resulttype wideint { + Tcl_SetObjResult(interp, Tcl_NewWideIntObj(rv)); + return TCL_OK; + } Tcl_WideInt + + resulttype double { + Tcl_SetObjResult(interp, Tcl_NewDoubleObj(rv)); + return TCL_OK; + } + resulttype float { + Tcl_SetObjResult(interp, Tcl_NewDoubleObj(rv)); + return TCL_OK; + } + + # Static and volatile strings. Duplicate. + resulttype char* { + Tcl_SetObjResult(interp, Tcl_NewStringObj(rv,-1)); + return TCL_OK; + } + resulttype {const char*} { + Tcl_SetObjResult(interp, Tcl_NewStringObj(rv,-1)); + return TCL_OK; + } + resulttype vstring = char* + + # Dynamic strings, allocated via Tcl_Alloc. + # + # We are avoiding the Tcl_Obj* API here, as its use requires an + # additional duplicate of the string, churning memory and + # requiring more copying. + # Tcl_SetObjResult(interp, Tcl_NewStringObj(rv,-1)); + # Tcl_Free (rv); + resulttype string { + Tcl_SetResult (interp, rv, TCL_DYNAMIC); + return TCL_OK; + } char* + resulttype dstring = string + + resulttype Tcl_Obj* { + if (rv == NULL) { return TCL_ERROR; } + Tcl_SetObjResult(interp, rv); + Tcl_DecrRefCount(rv); + return TCL_OK; + } + resulttype object = Tcl_Obj* + + critcl::resulttype Tcl_Obj*0 { + if (rv == NULL) { return TCL_ERROR; } + Tcl_SetObjResult(interp, rv); + /* No refcount adjustment */ + return TCL_OK; + } Tcl_Obj* + resulttype object0 = Tcl_Obj*0 + + resulttype new-channel { + if (rv == NULL) { return TCL_ERROR; } + Tcl_RegisterChannel (interp, rv); + Tcl_SetObjResult (interp, Tcl_NewStringObj (Tcl_GetChannelName (rv), -1)); + return TCL_OK; + } Tcl_Channel + + resulttype known-channel { + if (rv == NULL) { return TCL_ERROR; } + Tcl_SetObjResult (interp, Tcl_NewStringObj (Tcl_GetChannelName (rv), -1)); + return TCL_OK; + } Tcl_Channel + + # Note, this is complementary to argtype `take-channel`. + resulttype return-channel { + if (rv == NULL) { return TCL_ERROR; } + Tcl_RegisterChannel (interp, rv); + Tcl_UnregisterChannel(NULL, rv); + Tcl_SetObjResult (interp, Tcl_NewStringObj (Tcl_GetChannelName (rv), -1)); + return TCL_OK; + } Tcl_Channel + + rename ::critcl::Initialize {} + return +} + +# # ## ### ##### ######## ############# ##################### +## State + +namespace eval ::critcl { + variable mydir ;# Path of the critcl package directory. + variable run ;# interpreter to run commands, eval when, etc + + # XXX configfile - See the *config commands, path of last config file run through 'readconfig'. + + # namespace to flag when options set + namespace eval option { + variable debug_symbols 0 + } + + # keep all variables in a sub-namespace for easy access + namespace eval v { + variable cache ;# Path. Cache directory. Platform-dependent + # (target platform). + + # ---------------------------------------------------------------- + + # (XX) To understand the set of variables below and their + # differences some terminology is required. + # + # First we have to distinguish between "target identifiers" + # and "platform identifiers". The first is the name for a + # particular set of configuration settings specifying commands + # and command line arguments to use. The second is the name of + # a machine configuration, identifying both operating system, + # and cpu architecture. + # + # The problem critcl has is that in 99% of the cases found in + # a critcl config file the "target identifier" is also a valid + # "platform identifier". Example: "linux-ix86". That does not + # make them semantically interchangable however. + # + # Especially when we add cross-compilation to the mix, where + # we have to further distinguish between the platform critcl + # itself is running on (build), and the platform for which + # critcl is generating code (target), and the last one sounds + # similar to "target identifier". + + variable targetconfig ;# Target identifier. The chosen configuration. + variable targetplatform ;# Platform identifier. Type of generated binaries. + variable buildplatform ;# Platform identifier. We run here. + + variable knowntargets {} ;# List of all target identifiers found + # in the configuration file last processed by "readconfig". + + variable xtargets ;# Cross-compile targets. This array maps from + array set xtargets {} ;# the target identifier to the actual platform + # identifier of the target platform in question. If a target identifier + # has no entry here, it is assumed to be the platform identifier itself. + # See "critcl::actualtarget". + + # ---------------------------------------------------------------- + + variable version "" ;# String. Min version number on platform + variable hdrdir ;# Path. Directory containing the helper + # files of the package. A sub- + # directory of 'mydir', see above. + variable hdrsavailable ;# List. Of Tcl versions for which we have + # Tcl header files available. For details + # see procedure 'Initialize' above. + variable prefix ;# String. The string to start all file names + # generated by the package with. See + # 'Initialize' for our choice and + # explanation of it. + variable options ;# An array containing options + # controlling the code generator. + # For more details see below. + set options(outdir) "" ;# - Path. If set the place where the generated + # shared library is saved for permanent use. + set options(keepsrc) 0 ;# - Boolean. If set all generated .c files are + # kept after compilation. Helps with debugging + # the critcl package. + set options(combine) "" ;# - XXX standalone/dynamic/static + # XXX Meaning of combine? + set options(force) 0 ;# - Boolean. If set (re)compilation is + # forced, regardless of the state of + # the cache. + set options(I) "" ;# - List. Additional include + # directories, globally specified by + # the user for mode 'generate + # package', for all components put + # into the package's library. + set options(L) "" ;# - List. Additional library search + # directories, globally specified by + # the user for mode 'generate + # package'. + set options(language) "" ;# - String. XXX + set options(lines) 1 ;# - Boolean. If set the generator will + # emit #line-directives to help locating + # C code in the .tcl in case of compile + # warnings and errors. + set options(trace) 0 ;# - Boolean. If set the generator will + # emit code tracing command entry + # and return, for all cprocs and + # ccommands. The latter is done by + # creating a shim function. For + # cprocs their regular shim + # function is used and modified. + # The functionality is based on + # 'critcl::cutil's 'tracer' + # command and C code. + + # XXX clientdata() per-command (See ccommand). per-file+ccommand better? + # XXX delproc() per-command (See ccommand). s.a + + # XXX toolchain() , -> data + # XXX Used only in {read,set,show}config. + # XXX Seems to be a database holding the total contents of the + # XXX config file. + + # knowntargets - See the *config commands, list of all platforms we can compile for. + + # I suspect that this came later + + # Conversion maps, Tcl types for procedure arguments and + # results to C types and code fragments for the conversion + # between the realms. Used by the helper commands + # "ArgumentCType", "ArgumentConversion", and + # "ResultConversion". These commands also supply the default + # values for unknown types. + + variable actype + array set actype {} + + variable actypeb + array set actypeb {} + + # In the code fragments below we have the following environment (placeholders, variables): + # ip - C variable, Tcl_Interp* of the interpreter providing the arguments. + # @@ - Tcl_Obj* valued expression returning the Tcl argument value. + # @A - Name of the C-level argument variable. + # + variable aconv + array set aconv {} + + # Mapping from cproc result to C result type of the function. + # This is also the C type of the helper variable holding the result. + # NOTE: 'void' is special, as it has no result, nor result variable. + variable rctype + array set rctype {} + + # In the code fragments for result conversion: + # 'rv' == variable capturing the return value of the C function. + # 'ip' == variable containing pointer to the interp to set the result into. + variable rconv + array set rconv {} + + variable storageclass {} ;# See Initialize for setup. + + variable code ;# This array collects all code snippets and + # data about them. + + # Keys for 'code' (above) and their contents: + # + # -> Per-file information, nested dictionary. Sub keys: + # + # result - Results needed for 'generate package'. + # initname - String. Foo in Foo_Init(). + # tsources - List. The companion tcl sources for . + # object - String. Name of the object file backing . + # objects - List. All object files, main and companions. + # shlib - String. Name of the shared library backing . + # base - String. Common prefix (file root) of 'object' and 'shlib'. + # clibraries - List. See config. Copy for global linkage. + # ldflags - List. See config. Copy for global linkage. + # mintcl - String. Minimum version of Tcl required by the package. + # preload - List. Names of all libraries to load before the package library. + # license - String. License text. + # <= "critcl::cresults" + # + # config - Collected code and configuration (ccode, etc.). + # tsources - List. The companion tcl sources for . + # => "critcl::tsources". + # cheaders - List. => "critcl::cheaders" + # csources - List. => "critcl::csources" + # clibraries - List. => "critcl::clibraries" + # cflags - List. => "critcl::cflags", "critcl::framework", + # "critcl::debug", "critcl::include" + # ldflags - List. => "critcl::ldflags", "critcl::framework" + # initc - String. Initialization code for Foo_Init(), "critcl::cinit" + # edecls - String. Declarations of externals needed by Foo_Init(), "critcl::cinit" + # functions - List. Collected function names. + # fragments - List. Hashes of the collected C source bodies (functions, and unnamed code). + # block - Dictionary. Maps the hashes to their C sources for fragments. + # defs - List. Hashes of the collected C source bodies (only unnamed code), for extraction of defines. + # const - Dictionary. Maps the names of defines to the namespace their variables will be in. + # uuid - List. Strings used to generate the file's uuid/hash. + # mintcl - String. Minimum version of Tcl required by the package. + # preload - List. Names of all libraries to load + # before the package library. This + # information is used only by mode + # 'generate package'. This means that + # packages with preload can't be used + # in mode 'compile & run'. + # license - String. License text. + # api_self - String. Name of our API. Defaults to package name. + # api_hdrs - List. Exported public headers of the API. + # api_ehdrs - List. Exported external public headers of the API. + # api_fun - List. Exported functions (signatures of result type, name, and arguments (C syntax)) + # meta - Dictionary. Arbitrary keys to values, the user meta-data for the package. + # package - Dictionary. Keys, see below. System meta data for the package. Values are lists. + # name - Name of current package + # version - Version of same. + # description - Long description. + # summary - Short description (one line). + # subject - Keywords and -phrases. + # as::build::date - Date-stamp for the build. + # + # --------------------------------------------------------------------- + # + # ,failed -> Per-file information: Boolean. Build status. Failed or not. + # + # 'ccode' -> Accumulated in-memory storage of code-fragments. + # Extended by 'ccode', used by 'BuildDefines', + # called by 'cbuild'. Apparently tries to extract defines + # and enums, and their values, for comparison with 'cdefine'd + # values. + # + # NOTE: are normalized absolute path names for exact + # identification of the relevant .tcl file. + + # _____________________________________________________________________ + # State used by "cbuild" ______________________________________________ + + variable log "" ;# Log channel, opened to logfile. + variable logfile "" ;# Path of logfile. Accessed by + # "Log*" and "ExecWithLogging". + variable failed 0 ;# Build status. Used by "Status*" + variable err "" ;# and "Exec*". Build error text. + + variable uuidcounter 0 ;# Counter for uuid generation in package mode. + ;# md5 is bypassed when used. + + variable buildforpackage 0 ;# Boolean flag controlling + # cbuild's behaviour. Named after + # the mode 'generate package'. + # Auto-resets to OFF after each + # call of "cbuild". Can be activated + # by "buildforpackage". + + # _____________________________________________________________________ + # State used by "BeginCommand", "EndCommand", "Emit*" _________________ + + variable curr ;# Hash of the last BeginCommand. + variable block ;# C code assembled by Emit* calls + # between Begin- and EndCommand. + + # _____________________________________________________________________ + + variable compiling 0 ;# Boolean. Indicates that a C compiler + # (gcc, native, cl) is available. + + # _____________________________________________________________________ + # config variables + variable configvars { + compile + debug_memory + debug_symbols + include + libinclude + ldoutput + embed_manifest + link + link_debug + link_preload + link_release + link_rpath + noassert + object + optimize + output + platform + preproc_define + preproc_enum + sharedlibext + strip + tclstubs + threadflags + tkstubs + version + } + } + + # namespace holding the compiler configuration (commands and + # options for the various tasks, i.e. compilation, linking, etc.). + namespace eval c { + # See sibling file 'Config' for the detailed and full + # information about the variables in use. configvars above, and + # the code below list only the variables relevant to C. Keep this + # information in sync with the contents of 'Config'. + + # compile Command to compile a C source file to an object file + # debug_memory Compiler flags to enable memory debugging + # debug_symbols Compiler flags to add symbols to resulting library + # include Compiler flag to add an include directory + # libinclude Linker flag to add a library directory + # ldoutput - ? See 'Config' + # link Command to link one or more object files and create a shared library + # embed_manifest Command to embed a manifest into a DLL. (Win-specific) + # link_debug - ? See 'Config' + # link_preload Linker flags to use when dependent libraries are pre-loaded. + # link_release - ? See 'Config' + # noassert Compiler flag to turn off assertions in Tcl code + # object File extension for object files + # optimize Compiler flag to specify optimization level + # output Compiler flag to set output file, with argument $object => Use via [subst]. + # platform Platform identification string (defaults to platform::generic) + # preproc_define Command to preprocess C source file (for critcl::cdefines) + # preproc_enum ditto + # sharedlibext The platform's file extension used for shared library files. + # strip Compiler flag to tell the linker to strip symbols + # target Presence of this key indicates that this is a cross-compile target + # tclstubs Compiler flag to set USE_TCL_STUBS + # threadflags Compiler flags to enable threaded build + # tkstubs Compiler flag to set USE_TK_STUBS + # version Command to print the compiler version number + } +} + +# # ## ### ##### ######## ############# ##################### +## Export API + +namespace eval ::critcl { + namespace export \ + at cache ccode ccommand cdata cdefines cflags cheaders \ + check cinit clibraries compiled compiling config cproc \ + csources debug done failed framework ldflags platform \ + tk tsources preload license load tcl api userconfig meta \ + source include make + # This is exported for critcl::app to pick up when generating the + # dummy commands in the runtime support of a generated package. + namespace export Ignore + catch { namespace ensemble create } +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +::critcl::Initialize +return diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/cdata.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/cdata.c new file mode 100644 index 00000000..da92e52b --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/cdata.c @@ -0,0 +1,5 @@ + static char script\[$count] = { + $inittext + }; + Tcl_SetByteArrayObj(Tcl_GetObjResult(ip), (unsigned char*) script, $count); + return TCL_OK; diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/header.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/header.c new file mode 100644 index 00000000..031282c0 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/header.c @@ -0,0 +1,6 @@ +/* Generated by critcl on [clock format [clock seconds]] + * source: $file + * binary: $libfile + */ +$api +#include "tcl.h" diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginit.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginit.c new file mode 100644 index 00000000..e4668847 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginit.c @@ -0,0 +1,12 @@ + +#ifdef __cplusplus +extern "C" { +#endif + ${ext} +DLLEXPORT int +${ininame}_Init(Tcl_Interp *interp) +{ +#define ip interp +#if USE_TCL_STUBS + if (!MyInitTclStubs(interp)) return TCL_ERROR; +#endif diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginitend.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginitend.c new file mode 100644 index 00000000..57450a19 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginitend.c @@ -0,0 +1,6 @@ + return TCL_OK; +#undef ip +} +#ifdef __cplusplus +} +#endif diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginittk.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginittk.c new file mode 100644 index 00000000..29945cf7 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/pkginittk.c @@ -0,0 +1,5 @@ + +# line 1 "MyInitTkStubs" +#if USE_TK_STUBS + if (!MyInitTkStubs(interp)) return TCL_ERROR; +#endif diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/preload.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/preload.c new file mode 100644 index 00000000..5ebccce7 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/preload.c @@ -0,0 +1,169 @@ +/* + * pre-load a shared library + * - for situations where a Tcl package depends on another library + * - will be superceded by the functionality in TIP #239 + * - based on tclLoad.c from Tcl 8.4.13 and MyInitTclStubs from Critcl + */ + +#include "tcl.h" + +TclStubs *tclStubsPtr; +TclPlatStubs *tclPlatStubsPtr; +struct TclIntStubs *tclIntStubsPtr; +struct TclIntPlatStubs *tclIntPlatStubsPtr; + +static int +MyInitTclStubs (Tcl_Interp *ip) +{ + typedef struct { + char *result; + Tcl_FreeProc *freeProc; + int errorLine; + TclStubs *stubTable; + } HeadOfInterp; + + HeadOfInterp *hoi = (HeadOfInterp*) ip; + + if (hoi->stubTable == NULL || hoi->stubTable->magic != TCL_STUB_MAGIC) { + ip->result = "This extension requires stubs-support."; + ip->freeProc = TCL_STATIC; + return 0; + } + + tclStubsPtr = hoi->stubTable; + + if (Tcl_PkgRequire(ip, "Tcl", "8.1", 0) == NULL) { + tclStubsPtr = NULL; + return 0; + } + + if (tclStubsPtr->hooks != NULL) { + tclPlatStubsPtr = tclStubsPtr->hooks->tclPlatStubs; + tclIntStubsPtr = tclStubsPtr->hooks->tclIntStubs; + tclIntPlatStubsPtr = tclStubsPtr->hooks->tclIntPlatStubs; + } + + return 1; +} + +#ifdef WIN32 + +#include + +typedef struct PreloadInfo { + Tcl_Obj *dir; + Tcl_LoadHandle handle; +} PreloadInfo; + +static void +removeDLLCopy(ClientData clientData) { + PreloadInfo *preload = (PreloadInfo *) clientData; + Tcl_Obj *dir = preload->dir; + Tcl_LoadHandle handle = preload->handle; + Tcl_Obj *errorPtr; + + // no idea why, but we have to call FreeLibrary twice for the subsequent + // Tcl_FSRemoveDirectory to work + FreeLibrary((HINSTANCE) handle); + FreeLibrary((HINSTANCE) handle); + + if (Tcl_FSRemoveDirectory(dir, 1, &errorPtr) != TCL_OK) { + fprintf(stderr, "error removing dir = %s\n", Tcl_GetString(errorPtr)); + } +} + +#endif + +TCL_DECLARE_MUTEX(packageMutex) + +static int +Critcl_Preload( + ClientData dummy, + Tcl_Interp *interp, + int objc, + Tcl_Obj *objv[]) +{ + int code; + Tcl_PackageInitProc *proc1, *proc2; + Tcl_LoadHandle loadHandle; + Tcl_FSUnloadFileProc *unLoadProcPtr = NULL; + Tcl_Filesystem *fsPtr; +#ifdef WIN32 + PreloadInfo *preload = NULL; +#endif + + if (objc != 2) { + Tcl_WrongNumArgs(interp, 1, objv, "fileName"); + return TCL_ERROR; + } + if (Tcl_FSConvertToPathType(interp, objv[1]) != TCL_OK) { + return TCL_ERROR; + } + +#ifdef WIN32 + // if the filesystem holding the dll doesn't support direct loading + // we need to copy it to a temporary directory and load it from there + // - The command "critcl::runtime::precopy" is defined by the support + // file "critcl/lib/app-critcl/runtime.tcl". At load time this is + // the file "critcl-rt.tcl", sibling to "pkgIndex.tcl". + + if ((fsPtr = Tcl_FSGetFileSystemForPath(objv[1])) != NULL \ + && fsPtr->loadFileProc == NULL) { + int len; + Tcl_Obj *dirs; + objv[0] = Tcl_NewStringObj("::critcl::runtime::precopy", -1); + if ((code = Tcl_EvalObjv(interp, 2, objv, 0)) != TCL_OK) { + Tcl_SetErrorCode(interp, "could not preload ", + Tcl_GetString(objv[1]), 0); + return TCL_ERROR; + } + objv[1] = Tcl_GetObjResult(interp); + Tcl_IncrRefCount(objv[1]); + dirs = Tcl_FSSplitPath(objv[1], &len); + preload = (PreloadInfo *) ckalloc(sizeof(PreloadInfo)); + preload->dir = Tcl_FSJoinPath(dirs, --len); + Tcl_IncrRefCount(preload->dir); + } +#endif + + Tcl_MutexLock(&packageMutex); + code = Tcl_FSLoadFile(interp, objv[1], NULL, NULL, NULL, NULL, + &loadHandle, &unLoadProcPtr); + Tcl_MutexUnlock(&packageMutex); +#ifdef WIN32 + if (preload) { + preload->handle = loadHandle; + Tcl_CreateExitHandler(removeDLLCopy, (ClientData) preload); + } +#endif + return code; +} + +DLLEXPORT int +Preload_Init(Tcl_Interp *interp) +{ + if (!MyInitTclStubs(interp)) + return TCL_ERROR; + // The Tcl command can't be "preload" because the Tcl source might + // be copied into the target package (so Tcl procs are available) + // and we want critcl::runtime::preload to then be a no-op because + // the preloading is done from the loadlib command when the target + // package is loaded + Tcl_CreateObjCommand(interp, "::critcl::runtime::preload", Critcl_Preload, NULL, 0); + return 0; +} + +DLLEXPORT int +Preload_SafeInit(Tcl_Interp *interp) +{ + if (!MyInitTclStubs(interp)) + return TCL_ERROR; + Tcl_CreateObjCommand(interp, "::critcl::runtime::preload", Critcl_Preload, NULL, 0); + return 0; +} + +DLLEXPORT int +Preload_Unload(Tcl_Interp *interp) {} + +DLLEXPORT int +Preload_SafeUnload(Tcl_Interp *interp) {} diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/storageclass.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/storageclass.c new file mode 100644 index 00000000..11e44f00 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/storageclass.c @@ -0,0 +1,26 @@ +/* + * These macros are used to control whether functions are being declared for + * import or export. If a function is being declared while it is being built + * to be included in a shared library, then it should have the DLLEXPORT + * storage class. If is being declared for use by a module that is going to + * link against the shared library, then it should have the DLLIMPORT storage + * class. If the symbol is beind declared for a static build or for use from a + * stub library, then the storage class should be empty. + * + * The convention is that a macro called BUILD_xxxx, where xxxx is the name of + * a library we are building, is set on the compile line for sources that are + * to be placed in the library. When this macro is set, the storage class will + * be set to DLLEXPORT. At the end of the header file, the storage class will + * be reset to DLLIMPORT. + */ + +#undef TCL_STORAGE_CLASS +#ifdef BUILD_@cname@ +# define TCL_STORAGE_CLASS DLLEXPORT +#else +# ifdef USE_@up@_STUBS +# define TCL_STORAGE_CLASS +# else +# define TCL_STORAGE_CLASS DLLIMPORT +# endif +#endif diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/stubs.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/stubs.c new file mode 100644 index 00000000..19084328 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/stubs.c @@ -0,0 +1,43 @@ + +#line 1 "MyInitTclStubs" + +#if USE_TCL_STUBS + $stubs + $platstubs + const struct TclIntStubs *tclIntStubsPtr; + const struct TclIntPlatStubs *tclIntPlatStubsPtr; + + static int + MyInitTclStubs (Tcl_Interp *ip) + { + typedef struct { + char *result; + Tcl_FreeProc *freeProc; + int errorLine; + TclStubs *stubTable; + } HeadOfInterp; + + HeadOfInterp *hoi = (HeadOfInterp*) ip; + + if (hoi->stubTable == NULL || hoi->stubTable->magic != TCL_STUB_MAGIC) { + hoi->result = "This extension requires stubs-support."; + hoi->freeProc = TCL_STATIC; + return 0; + } + + tclStubsPtr = hoi->stubTable; + + if (Tcl_PkgRequire(ip, "Tcl", "$mintcl", 0) == NULL) { + tclStubsPtr = NULL; + return 0; + } + + if (tclStubsPtr->hooks != NULL) { + tclPlatStubsPtr = tclStubsPtr->hooks->tclPlatStubs; + tclIntStubsPtr = tclStubsPtr->hooks->tclIntStubs; + tclIntPlatStubsPtr = tclStubsPtr->hooks->tclIntPlatStubs; + } + + return 1; + } +#endif diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/stubs_e.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/stubs_e.c new file mode 100644 index 00000000..42c17b61 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/stubs_e.c @@ -0,0 +1,10 @@ + +#line 1 "MyInitTclStubs" + +#if USE_TCL_STUBS + static int + MyInitTclStubs (Tcl_Interp *ip) + { + return 1; + } +#endif diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/X.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/X.h new file mode 100644 index 00000000..bdc4f136 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/X.h @@ -0,0 +1,677 @@ +/* + * $XConsortium: X.h,v 1.66 88/09/06 15:55:56 jim Exp $ + */ + +/* Definitions for the X window system likely to be used by applications */ + +#ifndef X_H +#define X_H + +/*********************************************************** +Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, +and the Massachusetts Institute of Technology, Cambridge, Massachusetts. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Digital or MIT not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. + +DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING +ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL +DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR +ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, +WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, +ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS +SOFTWARE. + +******************************************************************/ +#define X_PROTOCOL 11 /* current protocol version */ +#define X_PROTOCOL_REVISION 0 /* current minor version */ + +#if defined(MAC_OSX_TK) +# define Cursor XCursor +# define Region XRegion +#endif + +/* Resources */ + +#ifdef _WIN64 +typedef __int64 XID; +#else +typedef unsigned long XID; +#endif + +typedef XID Window; +typedef XID Drawable; +typedef XID Font; +typedef XID Pixmap; +typedef XID Cursor; +typedef XID Colormap; +typedef XID GContext; +typedef XID KeySym; + +typedef unsigned long Mask; + +typedef unsigned long Atom; + +typedef unsigned long VisualID; + +typedef unsigned long Time; + +typedef unsigned long KeyCode; /* In order to use IME, the Macintosh needs + * to pack 3 bytes into the keyCode field in + * the XEvent. In the real X.h, a KeyCode is + * defined as a short, which wouldn't be big + * enough. */ + +/***************************************************************** + * RESERVED RESOURCE AND CONSTANT DEFINITIONS + *****************************************************************/ + +#define None 0L /* universal null resource or null atom */ + +#define ParentRelative 1L /* background pixmap in CreateWindow + and ChangeWindowAttributes */ + +#define CopyFromParent 0L /* border pixmap in CreateWindow + and ChangeWindowAttributes + special VisualID and special window + class passed to CreateWindow */ + +#define PointerWindow 0L /* destination window in SendEvent */ +#define InputFocus 1L /* destination window in SendEvent */ + +#define PointerRoot 1L /* focus window in SetInputFocus */ + +#define AnyPropertyType 0L /* special Atom, passed to GetProperty */ + +#define AnyKey 0L /* special Key Code, passed to GrabKey */ + +#define AnyButton 0L /* special Button Code, passed to GrabButton */ + +#define AllTemporary 0L /* special Resource ID passed to KillClient */ + +#define CurrentTime 0L /* special Time */ + +#define NoSymbol 0L /* special KeySym */ + +/***************************************************************** + * EVENT DEFINITIONS + *****************************************************************/ + +/* Input Event Masks. Used as event-mask window attribute and as arguments + to Grab requests. Not to be confused with event names. */ + +#define NoEventMask 0L +#define KeyPressMask (1L<<0) +#define KeyReleaseMask (1L<<1) +#define ButtonPressMask (1L<<2) +#define ButtonReleaseMask (1L<<3) +#define EnterWindowMask (1L<<4) +#define LeaveWindowMask (1L<<5) +#define PointerMotionMask (1L<<6) +#define PointerMotionHintMask (1L<<7) +#define Button1MotionMask (1L<<8) +#define Button2MotionMask (1L<<9) +#define Button3MotionMask (1L<<10) +#define Button4MotionMask (1L<<11) +#define Button5MotionMask (1L<<12) +#define ButtonMotionMask (1L<<13) +#define KeymapStateMask (1L<<14) +#define ExposureMask (1L<<15) +#define VisibilityChangeMask (1L<<16) +#define StructureNotifyMask (1L<<17) +#define ResizeRedirectMask (1L<<18) +#define SubstructureNotifyMask (1L<<19) +#define SubstructureRedirectMask (1L<<20) +#define FocusChangeMask (1L<<21) +#define PropertyChangeMask (1L<<22) +#define ColormapChangeMask (1L<<23) +#define OwnerGrabButtonMask (1L<<24) + +/* Event names. Used in "type" field in XEvent structures. Not to be +confused with event masks above. They start from 2 because 0 and 1 +are reserved in the protocol for errors and replies. */ + +#define KeyPress 2 +#define KeyRelease 3 +#define ButtonPress 4 +#define ButtonRelease 5 +#define MotionNotify 6 +#define EnterNotify 7 +#define LeaveNotify 8 +#define FocusIn 9 +#define FocusOut 10 +#define KeymapNotify 11 +#define Expose 12 +#define GraphicsExpose 13 +#define NoExpose 14 +#define VisibilityNotify 15 +#define CreateNotify 16 +#define DestroyNotify 17 +#define UnmapNotify 18 +#define MapNotify 19 +#define MapRequest 20 +#define ReparentNotify 21 +#define ConfigureNotify 22 +#define ConfigureRequest 23 +#define GravityNotify 24 +#define ResizeRequest 25 +#define CirculateNotify 26 +#define CirculateRequest 27 +#define PropertyNotify 28 +#define SelectionClear 29 +#define SelectionRequest 30 +#define SelectionNotify 31 +#define ColormapNotify 32 +#define ClientMessage 33 +#define MappingNotify 34 +#define LASTEvent 35 /* must be bigger than any event # */ + + +/* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer, + state in various key-, mouse-, and button-related events. */ + +#define ShiftMask (1<<0) +#define LockMask (1<<1) +#define ControlMask (1<<2) +#define Mod1Mask (1<<3) +#define Mod2Mask (1<<4) +#define Mod3Mask (1<<5) +#define Mod4Mask (1<<6) +#define Mod5Mask (1<<7) + +/* modifier names. Used to build a SetModifierMapping request or + to read a GetModifierMapping request. These correspond to the + masks defined above. */ +#define ShiftMapIndex 0 +#define LockMapIndex 1 +#define ControlMapIndex 2 +#define Mod1MapIndex 3 +#define Mod2MapIndex 4 +#define Mod3MapIndex 5 +#define Mod4MapIndex 6 +#define Mod5MapIndex 7 + + +/* button masks. Used in same manner as Key masks above. Not to be confused + with button names below. */ + +#define Button1Mask (1<<8) +#define Button2Mask (1<<9) +#define Button3Mask (1<<10) +#define Button4Mask (1<<11) +#define Button5Mask (1<<12) + +#define AnyModifier (1<<15) /* used in GrabButton, GrabKey */ + + +/* button names. Used as arguments to GrabButton and as detail in ButtonPress + and ButtonRelease events. Not to be confused with button masks above. + Note that 0 is already defined above as "AnyButton". */ + +#define Button1 1 +#define Button2 2 +#define Button3 3 +#define Button4 4 +#define Button5 5 + +/* Notify modes */ + +#define NotifyNormal 0 +#define NotifyGrab 1 +#define NotifyUngrab 2 +#define NotifyWhileGrabbed 3 + +#define NotifyHint 1 /* for MotionNotify events */ + +/* Notify detail */ + +#define NotifyAncestor 0 +#define NotifyVirtual 1 +#define NotifyInferior 2 +#define NotifyNonlinear 3 +#define NotifyNonlinearVirtual 4 +#define NotifyPointer 5 +#define NotifyPointerRoot 6 +#define NotifyDetailNone 7 + +/* Visibility notify */ + +#define VisibilityUnobscured 0 +#define VisibilityPartiallyObscured 1 +#define VisibilityFullyObscured 2 + +/* Circulation request */ + +#define PlaceOnTop 0 +#define PlaceOnBottom 1 + +/* protocol families */ + +#define FamilyInternet 0 +#define FamilyDECnet 1 +#define FamilyChaos 2 + +/* Property notification */ + +#define PropertyNewValue 0 +#define PropertyDelete 1 + +/* Color Map notification */ + +#define ColormapUninstalled 0 +#define ColormapInstalled 1 + +/* GrabPointer, GrabButton, GrabKeyboard, GrabKey Modes */ + +#define GrabModeSync 0 +#define GrabModeAsync 1 + +/* GrabPointer, GrabKeyboard reply status */ + +#define GrabSuccess 0 +#define AlreadyGrabbed 1 +#define GrabInvalidTime 2 +#define GrabNotViewable 3 +#define GrabFrozen 4 + +/* AllowEvents modes */ + +#define AsyncPointer 0 +#define SyncPointer 1 +#define ReplayPointer 2 +#define AsyncKeyboard 3 +#define SyncKeyboard 4 +#define ReplayKeyboard 5 +#define AsyncBoth 6 +#define SyncBoth 7 + +/* Used in SetInputFocus, GetInputFocus */ + +#define RevertToNone (int)None +#define RevertToPointerRoot (int)PointerRoot +#define RevertToParent 2 + +/***************************************************************** + * ERROR CODES + *****************************************************************/ + +#define Success 0 /* everything's okay */ +#define BadRequest 1 /* bad request code */ +#define BadValue 2 /* int parameter out of range */ +#define BadWindow 3 /* parameter not a Window */ +#define BadPixmap 4 /* parameter not a Pixmap */ +#define BadAtom 5 /* parameter not an Atom */ +#define BadCursor 6 /* parameter not a Cursor */ +#define BadFont 7 /* parameter not a Font */ +#define BadMatch 8 /* parameter mismatch */ +#define BadDrawable 9 /* parameter not a Pixmap or Window */ +#define BadAccess 10 /* depending on context: + - key/button already grabbed + - attempt to free an illegal + cmap entry + - attempt to store into a read-only + color map entry. + - attempt to modify the access control + list from other than the local host. + */ +#define BadAlloc 11 /* insufficient resources */ +#define BadColor 12 /* no such colormap */ +#define BadGC 13 /* parameter not a GC */ +#define BadIDChoice 14 /* choice not in range or already used */ +#define BadName 15 /* font or color name doesn't exist */ +#define BadLength 16 /* Request length incorrect */ +#define BadImplementation 17 /* server is defective */ + +#define FirstExtensionError 128 +#define LastExtensionError 255 + +/***************************************************************** + * WINDOW DEFINITIONS + *****************************************************************/ + +/* Window classes used by CreateWindow */ +/* Note that CopyFromParent is already defined as 0 above */ + +#define InputOutput 1 +#define InputOnly 2 + +/* Window attributes for CreateWindow and ChangeWindowAttributes */ + +#define CWBackPixmap (1L<<0) +#define CWBackPixel (1L<<1) +#define CWBorderPixmap (1L<<2) +#define CWBorderPixel (1L<<3) +#define CWBitGravity (1L<<4) +#define CWWinGravity (1L<<5) +#define CWBackingStore (1L<<6) +#define CWBackingPlanes (1L<<7) +#define CWBackingPixel (1L<<8) +#define CWOverrideRedirect (1L<<9) +#define CWSaveUnder (1L<<10) +#define CWEventMask (1L<<11) +#define CWDontPropagate (1L<<12) +#define CWColormap (1L<<13) +#define CWCursor (1L<<14) + +/* ConfigureWindow structure */ + +#define CWX (1<<0) +#define CWY (1<<1) +#define CWWidth (1<<2) +#define CWHeight (1<<3) +#define CWBorderWidth (1<<4) +#define CWSibling (1<<5) +#define CWStackMode (1<<6) + + +/* Bit Gravity */ + +#define ForgetGravity 0 +#define NorthWestGravity 1 +#define NorthGravity 2 +#define NorthEastGravity 3 +#define WestGravity 4 +#define CenterGravity 5 +#define EastGravity 6 +#define SouthWestGravity 7 +#define SouthGravity 8 +#define SouthEastGravity 9 +#define StaticGravity 10 + +/* Window gravity + bit gravity above */ + +#define UnmapGravity 0 + +/* Used in CreateWindow for backing-store hint */ + +#define NotUseful 0 +#define WhenMapped 1 +#define Always 2 + +/* Used in GetWindowAttributes reply */ + +#define IsUnmapped 0 +#define IsUnviewable 1 +#define IsViewable 2 + +/* Used in ChangeSaveSet */ + +#define SetModeInsert 0 +#define SetModeDelete 1 + +/* Used in ChangeCloseDownMode */ + +#define DestroyAll 0 +#define RetainPermanent 1 +#define RetainTemporary 2 + +/* Window stacking method (in configureWindow) */ + +#define Above 0 +#define Below 1 +#define TopIf 2 +#define BottomIf 3 +#define Opposite 4 + +/* Circulation direction */ + +#define RaiseLowest 0 +#define LowerHighest 1 + +/* Property modes */ + +#define PropModeReplace 0 +#define PropModePrepend 1 +#define PropModeAppend 2 + +/***************************************************************** + * GRAPHICS DEFINITIONS + *****************************************************************/ + +/* graphics functions, as in GC.alu */ + +#define GXclear 0x0 /* 0 */ +#define GXand 0x1 /* src AND dst */ +#define GXandReverse 0x2 /* src AND NOT dst */ +#define GXcopy 0x3 /* src */ +#define GXandInverted 0x4 /* NOT src AND dst */ +#define GXnoop 0x5 /* dst */ +#define GXxor 0x6 /* src XOR dst */ +#define GXor 0x7 /* src OR dst */ +#define GXnor 0x8 /* NOT src AND NOT dst */ +#define GXequiv 0x9 /* NOT src XOR dst */ +#define GXinvert 0xa /* NOT dst */ +#define GXorReverse 0xb /* src OR NOT dst */ +#define GXcopyInverted 0xc /* NOT src */ +#define GXorInverted 0xd /* NOT src OR dst */ +#define GXnand 0xe /* NOT src OR NOT dst */ +#define GXset 0xf /* 1 */ + +/* LineStyle */ + +#define LineSolid 0 +#define LineOnOffDash 1 +#define LineDoubleDash 2 + +/* capStyle */ + +#define CapNotLast 0 +#define CapButt 1 +#define CapRound 2 +#define CapProjecting 3 + +/* joinStyle */ + +#define JoinMiter 0 +#define JoinRound 1 +#define JoinBevel 2 + +/* fillStyle */ + +#define FillSolid 0 +#define FillTiled 1 +#define FillStippled 2 +#define FillOpaqueStippled 3 + +/* fillRule */ + +#define EvenOddRule 0 +#define WindingRule 1 + +/* subwindow mode */ + +#define ClipByChildren 0 +#define IncludeInferiors 1 + +/* SetClipRectangles ordering */ + +#define Unsorted 0 +#define YSorted 1 +#define YXSorted 2 +#define YXBanded 3 + +/* CoordinateMode for drawing routines */ + +#define CoordModeOrigin 0 /* relative to the origin */ +#define CoordModePrevious 1 /* relative to previous point */ + +/* Polygon shapes */ + +#define Complex 0 /* paths may intersect */ +#define Nonconvex 1 /* no paths intersect, but not convex */ +#define Convex 2 /* wholly convex */ + +/* Arc modes for PolyFillArc */ + +#define ArcChord 0 /* join endpoints of arc */ +#define ArcPieSlice 1 /* join endpoints to center of arc */ + +/* GC components: masks used in CreateGC, CopyGC, ChangeGC, OR'ed into + GC.stateChanges */ + +#define GCFunction (1L<<0) +#define GCPlaneMask (1L<<1) +#define GCForeground (1L<<2) +#define GCBackground (1L<<3) +#define GCLineWidth (1L<<4) +#define GCLineStyle (1L<<5) +#define GCCapStyle (1L<<6) +#define GCJoinStyle (1L<<7) +#define GCFillStyle (1L<<8) +#define GCFillRule (1L<<9) +#define GCTile (1L<<10) +#define GCStipple (1L<<11) +#define GCTileStipXOrigin (1L<<12) +#define GCTileStipYOrigin (1L<<13) +#define GCFont (1L<<14) +#define GCSubwindowMode (1L<<15) +#define GCGraphicsExposures (1L<<16) +#define GCClipXOrigin (1L<<17) +#define GCClipYOrigin (1L<<18) +#define GCClipMask (1L<<19) +#define GCDashOffset (1L<<20) +#define GCDashList (1L<<21) +#define GCArcMode (1L<<22) + +#define GCLastBit 22 +/***************************************************************** + * FONTS + *****************************************************************/ + +/* used in QueryFont -- draw direction */ + +#define FontLeftToRight 0 +#define FontRightToLeft 1 + +#define FontChange 255 + +/***************************************************************** + * IMAGING + *****************************************************************/ + +/* ImageFormat -- PutImage, GetImage */ + +#define XYBitmap 0 /* depth 1, XYFormat */ +#define XYPixmap 1 /* depth == drawable depth */ +#define ZPixmap 2 /* depth == drawable depth */ + +/***************************************************************** + * COLOR MAP STUFF + *****************************************************************/ + +/* For CreateColormap */ + +#define AllocNone 0 /* create map with no entries */ +#define AllocAll 1 /* allocate entire map writeable */ + + +/* Flags used in StoreNamedColor, StoreColors */ + +#define DoRed (1<<0) +#define DoGreen (1<<1) +#define DoBlue (1<<2) + +/***************************************************************** + * CURSOR STUFF + *****************************************************************/ + +/* QueryBestSize Class */ + +#define CursorShape 0 /* largest size that can be displayed */ +#define TileShape 1 /* size tiled fastest */ +#define StippleShape 2 /* size stippled fastest */ + +/***************************************************************** + * KEYBOARD/POINTER STUFF + *****************************************************************/ + +#define AutoRepeatModeOff 0 +#define AutoRepeatModeOn 1 +#define AutoRepeatModeDefault 2 + +#define LedModeOff 0 +#define LedModeOn 1 + +/* masks for ChangeKeyboardControl */ + +#define KBKeyClickPercent (1L<<0) +#define KBBellPercent (1L<<1) +#define KBBellPitch (1L<<2) +#define KBBellDuration (1L<<3) +#define KBLed (1L<<4) +#define KBLedMode (1L<<5) +#define KBKey (1L<<6) +#define KBAutoRepeatMode (1L<<7) + +#define MappingSuccess 0 +#define MappingBusy 1 +#define MappingFailed 2 + +#define MappingModifier 0 +#define MappingKeyboard 1 +#define MappingPointer 2 + +/***************************************************************** + * SCREEN SAVER STUFF + *****************************************************************/ + +#define DontPreferBlanking 0 +#define PreferBlanking 1 +#define DefaultBlanking 2 + +#define DisableScreenSaver 0 +#define DisableScreenInterval 0 + +#define DontAllowExposures 0 +#define AllowExposures 1 +#define DefaultExposures 2 + +/* for ForceScreenSaver */ + +#define ScreenSaverReset 0 +#define ScreenSaverActive 1 + +/***************************************************************** + * HOSTS AND CONNECTIONS + *****************************************************************/ + +/* for ChangeHosts */ + +#define HostInsert 0 +#define HostDelete 1 + +/* for ChangeAccessControl */ + +#define EnableAccess 1 +#define DisableAccess 0 + +/* Display classes used in opening the connection + * Note that the statically allocated ones are even numbered and the + * dynamically changeable ones are odd numbered */ + +#define StaticGray 0 +#define GrayScale 1 +#define StaticColor 2 +#define PseudoColor 3 +#define TrueColor 4 +#define DirectColor 5 + + +/* Byte order used in imageByteOrder and bitmapBitOrder */ + +#define LSBFirst 0 +#define MSBFirst 1 + +#if defined(MAC_OSX_TK) +# undef Cursor +# undef Region +#endif + +#endif /* X_H */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xatom.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xatom.h new file mode 100644 index 00000000..485a4236 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xatom.h @@ -0,0 +1,79 @@ +#ifndef XATOM_H +#define XATOM_H 1 + +/* THIS IS A GENERATED FILE + * + * Do not change! Changing this file implies a protocol change! + */ + +#define XA_PRIMARY ((Atom) 1) +#define XA_SECONDARY ((Atom) 2) +#define XA_ARC ((Atom) 3) +#define XA_ATOM ((Atom) 4) +#define XA_BITMAP ((Atom) 5) +#define XA_CARDINAL ((Atom) 6) +#define XA_COLORMAP ((Atom) 7) +#define XA_CURSOR ((Atom) 8) +#define XA_CUT_BUFFER0 ((Atom) 9) +#define XA_CUT_BUFFER1 ((Atom) 10) +#define XA_CUT_BUFFER2 ((Atom) 11) +#define XA_CUT_BUFFER3 ((Atom) 12) +#define XA_CUT_BUFFER4 ((Atom) 13) +#define XA_CUT_BUFFER5 ((Atom) 14) +#define XA_CUT_BUFFER6 ((Atom) 15) +#define XA_CUT_BUFFER7 ((Atom) 16) +#define XA_DRAWABLE ((Atom) 17) +#define XA_FONT ((Atom) 18) +#define XA_INTEGER ((Atom) 19) +#define XA_PIXMAP ((Atom) 20) +#define XA_POINT ((Atom) 21) +#define XA_RECTANGLE ((Atom) 22) +#define XA_RESOURCE_MANAGER ((Atom) 23) +#define XA_RGB_COLOR_MAP ((Atom) 24) +#define XA_RGB_BEST_MAP ((Atom) 25) +#define XA_RGB_BLUE_MAP ((Atom) 26) +#define XA_RGB_DEFAULT_MAP ((Atom) 27) +#define XA_RGB_GRAY_MAP ((Atom) 28) +#define XA_RGB_GREEN_MAP ((Atom) 29) +#define XA_RGB_RED_MAP ((Atom) 30) +#define XA_STRING ((Atom) 31) +#define XA_VISUALID ((Atom) 32) +#define XA_WINDOW ((Atom) 33) +#define XA_WM_COMMAND ((Atom) 34) +#define XA_WM_HINTS ((Atom) 35) +#define XA_WM_CLIENT_MACHINE ((Atom) 36) +#define XA_WM_ICON_NAME ((Atom) 37) +#define XA_WM_ICON_SIZE ((Atom) 38) +#define XA_WM_NAME ((Atom) 39) +#define XA_WM_NORMAL_HINTS ((Atom) 40) +#define XA_WM_SIZE_HINTS ((Atom) 41) +#define XA_WM_ZOOM_HINTS ((Atom) 42) +#define XA_MIN_SPACE ((Atom) 43) +#define XA_NORM_SPACE ((Atom) 44) +#define XA_MAX_SPACE ((Atom) 45) +#define XA_END_SPACE ((Atom) 46) +#define XA_SUPERSCRIPT_X ((Atom) 47) +#define XA_SUPERSCRIPT_Y ((Atom) 48) +#define XA_SUBSCRIPT_X ((Atom) 49) +#define XA_SUBSCRIPT_Y ((Atom) 50) +#define XA_UNDERLINE_POSITION ((Atom) 51) +#define XA_UNDERLINE_THICKNESS ((Atom) 52) +#define XA_STRIKEOUT_ASCENT ((Atom) 53) +#define XA_STRIKEOUT_DESCENT ((Atom) 54) +#define XA_ITALIC_ANGLE ((Atom) 55) +#define XA_X_HEIGHT ((Atom) 56) +#define XA_QUAD_WIDTH ((Atom) 57) +#define XA_WEIGHT ((Atom) 58) +#define XA_POINT_SIZE ((Atom) 59) +#define XA_RESOLUTION ((Atom) 60) +#define XA_COPYRIGHT ((Atom) 61) +#define XA_NOTICE ((Atom) 62) +#define XA_FONT_NAME ((Atom) 63) +#define XA_FAMILY_NAME ((Atom) 64) +#define XA_FULL_NAME ((Atom) 65) +#define XA_CAP_HEIGHT ((Atom) 66) +#define XA_WM_CLASS ((Atom) 67) +#define XA_WM_TRANSIENT_FOR ((Atom) 68) + +#define XA_LAST_PREDEFINED ((Atom) 68) +#endif /* XATOM_H */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xfuncproto.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xfuncproto.h new file mode 100644 index 00000000..a59379b3 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xfuncproto.h @@ -0,0 +1,60 @@ +/* $XConsortium: Xfuncproto.h,v 1.7 91/05/13 20:49:21 rws Exp $ */ +/* + * Copyright 1989, 1991 by the Massachusetts Institute of Technology + * + * Permission to use, copy, modify, and distribute this software and its + * documentation for any purpose and without fee is hereby granted, provided + * that the above copyright notice appear in all copies and that both that + * copyright notice and this permission notice appear in supporting + * documentation, and that the name of M.I.T. not be used in advertising + * or publicity pertaining to distribution of the software without specific, + * written prior permission. M.I.T. makes no representations about the + * suitability of this software for any purpose. It is provided "as is" + * without express or implied warranty. + * + */ + +/* Definitions to make function prototypes manageable */ + +#ifndef _XFUNCPROTO_H_ +#define _XFUNCPROTO_H_ + +#ifndef NeedFunctionPrototypes +#define NeedFunctionPrototypes 1 +#endif /* NeedFunctionPrototypes */ + +#ifndef NeedVarargsPrototypes +#define NeedVarargsPrototypes 0 +#endif /* NeedVarargsPrototypes */ + +#if NeedFunctionPrototypes + +#ifndef NeedNestedPrototypes +#define NeedNestedPrototypes 1 +#endif /* NeedNestedPrototypes */ + +#ifndef _Xconst +#define _Xconst const +#endif /* _Xconst */ + +#ifndef NeedWidePrototypes +#ifdef NARROWPROTO +#define NeedWidePrototypes 0 +#else +#define NeedWidePrototypes 1 /* default to make interropt. easier */ +#endif +#endif /* NeedWidePrototypes */ + +#endif /* NeedFunctionPrototypes */ + +#ifdef __cplusplus +#define _XFUNCPROTOBEGIN extern "C" { +#define _XFUNCPROTOEND } +#endif + +#ifndef _XFUNCPROTOBEGIN +#define _XFUNCPROTOBEGIN +#define _XFUNCPROTOEND +#endif /* _XFUNCPROTOBEGIN */ + +#endif /* _XFUNCPROTO_H_ */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xlib.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xlib.h new file mode 100644 index 00000000..3af3682a --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xlib.h @@ -0,0 +1,1205 @@ +/* $XConsortium: Xlib.h,v 11.221 93/07/02 14:13:28 gildea Exp $ */ +/* + * Copyright 1985, 1986, 1987, 1991 by the Massachusetts Institute of Technology + * + * Permission to use, copy, modify, and distribute this software and its + * documentation for any purpose and without fee is hereby granted, provided + * that the above copyright notice appear in all copies and that both that + * copyright notice and this permission notice appear in supporting + * documentation, and that the name of M.I.T. not be used in advertising + * or publicity pertaining to distribution of the software without specific, + * written prior permission. M.I.T. makes no representations about the + * suitability of this software for any purpose. It is provided "as is" + * without express or implied warranty. + * + * X Window System is a Trademark of MIT. + * + */ + + +/* + * Xlib.h - Header definition and support file for the C subroutine + * interface library (Xlib) to the X Window System Protocol (V11). + * Structures and symbols starting with "_" are private to the library. + */ +#ifndef _XLIB_H_ +#define _XLIB_H_ + +#define XlibSpecificationRelease 5 + +#if !defined(MAC_OSX_TK) +# include +#endif +#ifdef MAC_OSX_TK +# include +# define Cursor XCursor +# define Region XRegion +#endif + +/* applications should not depend on these two headers being included! */ +#include + +#ifndef X_WCHAR +#ifdef X_NOT_STDC_ENV +#define X_WCHAR +#endif +#endif + +#ifndef X_WCHAR +#include +#else +/* replace this with #include or typedef appropriate for your system */ +typedef unsigned long wchar_t; +#endif + +typedef char *XPointer; + +#define Bool int +#if defined(MAC_OSX_TK) +/* Use define rather than typedef, since may need to undefine this later */ +#define Status int +#else +typedef int Status; +#endif +#define True 1 +#define False 0 + +#define QueuedAlready 0 +#define QueuedAfterReading 1 +#define QueuedAfterFlush 2 + +#define ConnectionNumber(dpy) ((dpy)->fd) +#define RootWindow(dpy, scr) (((dpy)->screens[(scr)]).root) +#define DefaultScreen(dpy) ((dpy)->default_screen) +#define DefaultRootWindow(dpy) (((dpy)->screens[(dpy)->default_screen]).root) +#define DefaultVisual(dpy, scr) (((dpy)->screens[(scr)]).root_visual) +#define DefaultGC(dpy, scr) (((dpy)->screens[(scr)]).default_gc) +#define BlackPixel(dpy, scr) (((dpy)->screens[(scr)]).black_pixel) +#define WhitePixel(dpy, scr) (((dpy)->screens[(scr)]).white_pixel) +#define AllPlanes ((unsigned long)~0L) +#define QLength(dpy) ((dpy)->qlen) +#define DisplayWidth(dpy, scr) (((dpy)->screens[(scr)]).width) +#define DisplayHeight(dpy, scr) (((dpy)->screens[(scr)]).height) +#define DisplayWidthMM(dpy, scr)(((dpy)->screens[(scr)]).mwidth) +#define DisplayHeightMM(dpy, scr)(((dpy)->screens[(scr)]).mheight) +#define DisplayPlanes(dpy, scr) (((dpy)->screens[(scr)]).root_depth) +#define DisplayCells(dpy, scr) (DefaultVisual((dpy), (scr))->map_entries) +#define ScreenCount(dpy) ((dpy)->nscreens) +#define ServerVendor(dpy) ((dpy)->vendor) +#define ProtocolVersion(dpy) ((dpy)->proto_major_version) +#define ProtocolRevision(dpy) ((dpy)->proto_minor_version) +#define VendorRelease(dpy) ((dpy)->release) +#define DisplayString(dpy) ((dpy)->display_name) +#define DefaultDepth(dpy, scr) (((dpy)->screens[(scr)]).root_depth) +#define DefaultColormap(dpy, scr)(((dpy)->screens[(scr)]).cmap) +#define BitmapUnit(dpy) ((dpy)->bitmap_unit) +#define BitmapBitOrder(dpy) ((dpy)->bitmap_bit_order) +#define BitmapPad(dpy) ((dpy)->bitmap_pad) +#define ImageByteOrder(dpy) ((dpy)->byte_order) +#define NextRequest(dpy) ((dpy)->request + 1) +#define LastKnownRequestProcessed(dpy) ((dpy)->request) + +/* macros for screen oriented applications (toolkit) */ +#define ScreenOfDisplay(dpy, scr)(&((dpy)->screens[(scr)])) +#define DefaultScreenOfDisplay(dpy) (&((dpy)->screens[(dpy)->default_screen])) +#define DisplayOfScreen(s) ((s)->display) +#define RootWindowOfScreen(s) ((s)->root) +#define BlackPixelOfScreen(s) ((s)->black_pixel) +#define WhitePixelOfScreen(s) ((s)->white_pixel) +#define DefaultColormapOfScreen(s)((s)->cmap) +#define DefaultDepthOfScreen(s) ((s)->root_depth) +#define DefaultGCOfScreen(s) ((s)->default_gc) +#define DefaultVisualOfScreen(s)((s)->root_visual) +#define WidthOfScreen(s) ((s)->width) +#define HeightOfScreen(s) ((s)->height) +#define WidthMMOfScreen(s) ((s)->mwidth) +#define HeightMMOfScreen(s) ((s)->mheight) +#define PlanesOfScreen(s) ((s)->root_depth) +#define CellsOfScreen(s) (DefaultVisualOfScreen((s))->map_entries) +#define MinCmapsOfScreen(s) ((s)->min_maps) +#define MaxCmapsOfScreen(s) ((s)->max_maps) +#define DoesSaveUnders(s) ((s)->save_unders) +#define DoesBackingStore(s) ((s)->backing_store) +#define EventMaskOfScreen(s) ((s)->root_input_mask) + +/* + * Extensions need a way to hang private data on some structures. + */ +typedef struct _XExtData { + int number; /* number returned by XRegisterExtension */ + struct _XExtData *next; /* next item on list of data for structure */ + int (*free_private)(); /* called to free private storage */ + XPointer private_data; /* data private to this extension. */ +} XExtData; + +/* + * This file contains structures used by the extension mechanism. + */ +typedef struct { /* public to extension, cannot be changed */ + int extension; /* extension number */ + int major_opcode; /* major op-code assigned by server */ + int first_event; /* first event number for the extension */ + int first_error; /* first error number for the extension */ +} XExtCodes; + +/* + * Data structure for retrieving info about pixmap formats. + */ + +typedef struct { + int depth; + int bits_per_pixel; + int scanline_pad; +} XPixmapFormatValues; + + +/* + * Data structure for setting graphics context. + */ +typedef struct { + int function; /* logical operation */ + unsigned long plane_mask;/* plane mask */ + unsigned long foreground;/* foreground pixel */ + unsigned long background;/* background pixel */ + int line_width; /* line width */ + int line_style; /* LineSolid, LineOnOffDash, LineDoubleDash */ + int cap_style; /* CapNotLast, CapButt, + CapRound, CapProjecting */ + int join_style; /* JoinMiter, JoinRound, JoinBevel */ + int fill_style; /* FillSolid, FillTiled, + FillStippled, FillOpaeueStippled */ + int fill_rule; /* EvenOddRule, WindingRule */ + int arc_mode; /* ArcChord, ArcPieSlice */ + Pixmap tile; /* tile pixmap for tiling operations */ + Pixmap stipple; /* stipple 1 plane pixmap for stipping */ + int ts_x_origin; /* offset for tile or stipple operations */ + int ts_y_origin; + Font font; /* default text font for text operations */ + int subwindow_mode; /* ClipByChildren, IncludeInferiors */ + Bool graphics_exposures;/* boolean, should exposures be generated */ + int clip_x_origin; /* origin for clipping */ + int clip_y_origin; + Pixmap clip_mask; /* bitmap clipping; other calls for rects */ + int dash_offset; /* patterned/dashed line information */ + char dashes; +} XGCValues; + +/* + * Graphics context. The contents of this structure are implementation + * dependent. A GC should be treated as opaque by application code. + */ + +typedef XGCValues *GC; + +/* + * Visual structure; contains information about colormapping possible. + */ +typedef struct { + XExtData *ext_data; /* hook for extension to hang data */ + VisualID visualid; /* visual id of this visual */ +#if defined(__cplusplus) || defined(c_plusplus) + int c_class; /* C++ class of screen (monochrome, etc.) */ +#else + int class; /* class of screen (monochrome, etc.) */ +#endif + unsigned long red_mask, green_mask, blue_mask; /* mask values */ + int bits_per_rgb; /* log base 2 of distinct color values */ + int map_entries; /* color map entries */ +} Visual; + +/* + * Depth structure; contains information for each possible depth. + */ +typedef struct { + int depth; /* this depth (Z) of the depth */ + int nvisuals; /* number of Visual types at this depth */ + Visual *visuals; /* list of visuals possible at this depth */ +} Depth; + +/* + * Information about the screen. The contents of this structure are + * implementation dependent. A Screen should be treated as opaque + * by application code. + */ +typedef struct { + XExtData *ext_data; /* hook for extension to hang data */ + struct _XDisplay *display;/* back pointer to display structure */ + Window root; /* Root window id. */ + int width, height; /* width and height of screen */ + int mwidth, mheight; /* width and height of in millimeters */ + int ndepths; /* number of depths possible */ + Depth *depths; /* list of allowable depths on the screen */ + int root_depth; /* bits per pixel */ + Visual *root_visual; /* root visual */ + GC default_gc; /* GC for the root root visual */ + Colormap cmap; /* default color map */ + unsigned long white_pixel; + unsigned long black_pixel; /* White and Black pixel values */ + int max_maps, min_maps; /* max and min color maps */ + int backing_store; /* Never, WhenMapped, Always */ + Bool save_unders; + long root_input_mask; /* initial root input mask */ +} Screen; + +/* + * Format structure; describes ZFormat data the screen will understand. + */ +typedef struct { + XExtData *ext_data; /* hook for extension to hang data */ + int depth; /* depth of this image format */ + int bits_per_pixel; /* bits/pixel at this depth */ + int scanline_pad; /* scanline must padded to this multiple */ +} ScreenFormat; + +/* + * Data structure for setting window attributes. + */ +typedef struct { + Pixmap background_pixmap; /* background or None or ParentRelative */ + unsigned long background_pixel; /* background pixel */ + Pixmap border_pixmap; /* border of the window */ + unsigned long border_pixel; /* border pixel value */ + int bit_gravity; /* one of bit gravity values */ + int win_gravity; /* one of the window gravity values */ + int backing_store; /* NotUseful, WhenMapped, Always */ + unsigned long backing_planes;/* planes to be preseved if possible */ + unsigned long backing_pixel;/* value to use in restoring planes */ + Bool save_under; /* should bits under be saved? (popups) */ + long event_mask; /* set of events that should be saved */ + long do_not_propagate_mask; /* set of events that should not propagate */ + Bool override_redirect; /* boolean value for override-redirect */ + Colormap colormap; /* color map to be associated with window */ + Cursor cursor; /* cursor to be displayed (or None) */ +} XSetWindowAttributes; + +typedef struct { + int x, y; /* location of window */ + int width, height; /* width and height of window */ + int border_width; /* border width of window */ + int depth; /* depth of window */ + Visual *visual; /* the associated visual structure */ + Window root; /* root of screen containing window */ +#if defined(__cplusplus) || defined(c_plusplus) + int c_class; /* C++ InputOutput, InputOnly*/ +#else + int class; /* InputOutput, InputOnly*/ +#endif + int bit_gravity; /* one of bit gravity values */ + int win_gravity; /* one of the window gravity values */ + int backing_store; /* NotUseful, WhenMapped, Always */ + unsigned long backing_planes;/* planes to be preserved if possible */ + unsigned long backing_pixel;/* value to be used when restoring planes */ + Bool save_under; /* boolean, should bits under be saved? */ + Colormap colormap; /* color map to be associated with window */ + Bool map_installed; /* boolean, is color map currently installed*/ + int map_state; /* IsUnmapped, IsUnviewable, IsViewable */ + long all_event_masks; /* set of events all people have interest in*/ + long your_event_mask; /* my event mask */ + long do_not_propagate_mask; /* set of events that should not propagate */ + Bool override_redirect; /* boolean value for override-redirect */ + Screen *screen; /* back pointer to correct screen */ +} XWindowAttributes; + +/* + * Data structure for host setting; getting routines. + * + */ + +typedef struct { + int family; /* for example FamilyInternet */ + int length; /* length of address, in bytes */ + char *address; /* pointer to where to find the bytes */ +} XHostAddress; + +/* + * Data structure for "image" data, used by image manipulation routines. + */ +typedef struct _XImage { + int width, height; /* size of image */ + int xoffset; /* number of pixels offset in X direction */ + int format; /* XYBitmap, XYPixmap, ZPixmap */ + char *data; /* pointer to image data */ + int byte_order; /* data byte order, LSBFirst, MSBFirst */ + int bitmap_unit; /* quant. of scanline 8, 16, 32 */ + int bitmap_bit_order; /* LSBFirst, MSBFirst */ + int bitmap_pad; /* 8, 16, 32 either XY or ZPixmap */ + int depth; /* depth of image */ + int bytes_per_line; /* accelarator to next line */ + int bits_per_pixel; /* bits per pixel (ZPixmap) */ + unsigned long red_mask; /* bits in z arrangment */ + unsigned long green_mask; + unsigned long blue_mask; + XPointer obdata; /* hook for the object routines to hang on */ + struct funcs { /* image manipulation routines */ + struct _XImage *(*create_image)(); +#if NeedFunctionPrototypes + int (*destroy_image) (struct _XImage *); + unsigned long (*get_pixel) (struct _XImage *, int, int); + int (*put_pixel) (struct _XImage *, int, int, unsigned long); + struct _XImage *(*sub_image)(struct _XImage *, int, int, unsigned int, unsigned int); + int (*add_pixel) (struct _XImage *, long); +#else + int (*destroy_image)(); + unsigned long (*get_pixel)(); + int (*put_pixel)(); + struct _XImage *(*sub_image)(); + int (*add_pixel)(); +#endif + } f; +} XImage; + +/* + * Data structure for XReconfigureWindow + */ +typedef struct { + int x, y; + int width, height; + int border_width; + Window sibling; + int stack_mode; +} XWindowChanges; + +/* + * Data structure used by color operations + */ +typedef struct { + unsigned long pixel; + unsigned short red, green, blue; + char flags; /* do_red, do_green, do_blue */ + char pad; +} XColor; + +/* + * Data structures for graphics operations. On most machines, these are + * congruent with the wire protocol structures, so reformatting the data + * can be avoided on these architectures. + */ +typedef struct { + short x1, y1, x2, y2; +} XSegment; + +typedef struct { + short x, y; +} XPoint; + +typedef struct { + short x, y; + unsigned short width, height; +} XRectangle; + +typedef struct { + short x, y; + unsigned short width, height; + short angle1, angle2; +} XArc; + + +/* Data structure for XChangeKeyboardControl */ + +typedef struct { + int key_click_percent; + int bell_percent; + int bell_pitch; + int bell_duration; + int led; + int led_mode; + int key; + int auto_repeat_mode; /* On, Off, Default */ +} XKeyboardControl; + +/* Data structure for XGetKeyboardControl */ + +typedef struct { + int key_click_percent; + int bell_percent; + unsigned int bell_pitch, bell_duration; + unsigned long led_mask; + int global_auto_repeat; + char auto_repeats[32]; +} XKeyboardState; + +/* Data structure for XGetMotionEvents. */ + +typedef struct { + Time time; + short x, y; +} XTimeCoord; + +/* Data structure for X{Set,Get}ModifierMapping */ + +typedef struct { + int max_keypermod; /* The server's max # of keys per modifier */ + KeyCode *modifiermap; /* An 8 by max_keypermod array of modifiers */ +} XModifierKeymap; + + +/* + * Display datatype maintaining display specific data. + * The contents of this structure are implementation dependent. + * A Display should be treated as opaque by application code. + */ +typedef struct _XDisplay { + XExtData *ext_data; /* hook for extension to hang data */ + struct _XFreeFuncs *free_funcs; /* internal free functions */ + int fd; /* Network socket. */ + int conn_checker; /* ugly thing used by _XEventsQueued */ + int proto_major_version;/* maj. version of server's X protocol */ + int proto_minor_version;/* minor version of servers X protocol */ + char *vendor; /* vendor of the server hardware */ + XID resource_base; /* resource ID base */ + XID resource_mask; /* resource ID mask bits */ + XID resource_id; /* allocator current ID */ + int resource_shift; /* allocator shift to correct bits */ + XID (*resource_alloc)(); /* allocator function */ + int byte_order; /* screen byte order, LSBFirst, MSBFirst */ + int bitmap_unit; /* padding and data requirements */ + int bitmap_pad; /* padding requirements on bitmaps */ + int bitmap_bit_order; /* LeastSignificant or MostSignificant */ + int nformats; /* number of pixmap formats in list */ + ScreenFormat *pixmap_format; /* pixmap format list */ + int vnumber; /* Xlib's X protocol version number. */ + int release; /* release of the server */ + struct _XSQEvent *head, *tail; /* Input event queue. */ + int qlen; /* Length of input event queue */ + unsigned long request; /* sequence number of last request. */ + char *last_req; /* beginning of last request, or dummy */ + char *buffer; /* Output buffer starting address. */ + char *bufptr; /* Output buffer index pointer. */ + char *bufmax; /* Output buffer maximum+1 address. */ + unsigned max_request_size; /* maximum number 32 bit words in request*/ + struct _XrmHashBucketRec *db; + int (*synchandler)(); /* Synchronization handler */ + char *display_name; /* "host:display" string used on this connect*/ + int default_screen; /* default screen for operations */ + int nscreens; /* number of screens on this server*/ + Screen *screens; /* pointer to list of screens */ + unsigned long motion_buffer; /* size of motion buffer */ + unsigned long flags; /* internal connection flags */ + int min_keycode; /* minimum defined keycode */ + int max_keycode; /* maximum defined keycode */ + KeySym *keysyms; /* This server's keysyms */ + XModifierKeymap *modifiermap; /* This server's modifier keymap */ + int keysyms_per_keycode;/* number of rows */ + char *xdefaults; /* contents of defaults from server */ + char *scratch_buffer; /* place to hang scratch buffer */ + unsigned long scratch_length; /* length of scratch buffer */ + int ext_number; /* extension number on this display */ + struct _XExten *ext_procs; /* extensions initialized on this display */ + /* + * the following can be fixed size, as the protocol defines how + * much address space is available. + * While this could be done using the extension vector, there + * may be MANY events processed, so a search through the extension + * list to find the right procedure for each event might be + * expensive if many extensions are being used. + */ + Bool (*event_vec[128])(); /* vector for wire to event */ + Status (*wire_vec[128])(); /* vector for event to wire */ + KeySym lock_meaning; /* for XLookupString */ + struct _XLockInfo *lock; /* multi-thread state, display lock */ + struct _XInternalAsync *async_handlers; /* for internal async */ + unsigned long bigreq_size; /* max size of big requests */ + struct _XLockPtrs *lock_fns; /* pointers to threads functions */ + /* things above this line should not move, for binary compatibility */ + struct _XKeytrans *key_bindings; /* for XLookupString */ + Font cursor_font; /* for XCreateFontCursor */ + struct _XDisplayAtoms *atoms; /* for XInternAtom */ + unsigned int mode_switch; /* keyboard group modifiers */ + struct _XContextDB *context_db; /* context database */ + Bool (**error_vec)(); /* vector for wire to error */ + /* + * Xcms information + */ + struct { + XPointer defaultCCCs; /* pointer to an array of default XcmsCCC */ + XPointer clientCmaps; /* pointer to linked list of XcmsCmapRec */ + XPointer perVisualIntensityMaps; + /* linked list of XcmsIntensityMap */ + } cms; + struct _XIMFilter *im_filters; + struct _XSQEvent *qfree; /* unallocated event queue elements */ + unsigned long next_event_serial_num; /* inserted into next queue elt */ + int (*savedsynchandler)(); /* user synchandler when Xlib usurps */ +} Display; + +#if NeedFunctionPrototypes /* prototypes require event type definitions */ +#undef _XEVENT_ +#endif +#ifndef _XEVENT_ + +#define XMaxTransChars 4 + +/* + * Definitions of specific events. + */ +typedef struct { + int type; /* of event */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* "event" window it is reported relative to */ + Window root; /* root window that the event occured on */ + Window subwindow; /* child window */ + Time time; /* milliseconds */ + int x, y; /* pointer x, y coordinates in event window */ + int x_root, y_root; /* coordinates relative to root */ + unsigned int state; /* key or button mask */ + unsigned int keycode; /* detail */ + Bool same_screen; /* same screen flag */ + char trans_chars[XMaxTransChars]; + /* translated characters */ + int nbytes; +} XKeyEvent; +typedef XKeyEvent XKeyPressedEvent; +typedef XKeyEvent XKeyReleasedEvent; + +typedef struct { + int type; /* of event */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* "event" window it is reported relative to */ + Window root; /* root window that the event occured on */ + Window subwindow; /* child window */ + Time time; /* milliseconds */ + int x, y; /* pointer x, y coordinates in event window */ + int x_root, y_root; /* coordinates relative to root */ + unsigned int state; /* key or button mask */ + unsigned int button; /* detail */ + Bool same_screen; /* same screen flag */ +} XButtonEvent; +typedef XButtonEvent XButtonPressedEvent; +typedef XButtonEvent XButtonReleasedEvent; + +typedef struct { + int type; /* of event */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* "event" window reported relative to */ + Window root; /* root window that the event occured on */ + Window subwindow; /* child window */ + Time time; /* milliseconds */ + int x, y; /* pointer x, y coordinates in event window */ + int x_root, y_root; /* coordinates relative to root */ + unsigned int state; /* key or button mask */ + char is_hint; /* detail */ + Bool same_screen; /* same screen flag */ +} XMotionEvent; +typedef XMotionEvent XPointerMovedEvent; + +typedef struct { + int type; /* of event */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* "event" window reported relative to */ + Window root; /* root window that the event occured on */ + Window subwindow; /* child window */ + Time time; /* milliseconds */ + int x, y; /* pointer x, y coordinates in event window */ + int x_root, y_root; /* coordinates relative to root */ + int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ + int detail; + /* + * NotifyAncestor, NotifyVirtual, NotifyInferior, + * NotifyNonlinear,NotifyNonlinearVirtual + */ + Bool same_screen; /* same screen flag */ + Bool focus; /* boolean focus */ + unsigned int state; /* key or button mask */ +} XCrossingEvent; +typedef XCrossingEvent XEnterWindowEvent; +typedef XCrossingEvent XLeaveWindowEvent; + +typedef struct { + int type; /* FocusIn or FocusOut */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* window of event */ + int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ + int detail; + /* + * NotifyAncestor, NotifyVirtual, NotifyInferior, + * NotifyNonlinear,NotifyNonlinearVirtual, NotifyPointer, + * NotifyPointerRoot, NotifyDetailNone + */ +} XFocusChangeEvent; +typedef XFocusChangeEvent XFocusInEvent; +typedef XFocusChangeEvent XFocusOutEvent; + +/* generated on EnterWindow and FocusIn when KeyMapState selected */ +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + char key_vector[32]; +} XKeymapEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + int x, y; + int width, height; + int count; /* if non-zero, at least this many more */ +} XExposeEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Drawable drawable; + int x, y; + int width, height; + int count; /* if non-zero, at least this many more */ + int major_code; /* core is CopyArea or CopyPlane */ + int minor_code; /* not defined in the core */ +} XGraphicsExposeEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Drawable drawable; + int major_code; /* core is CopyArea or CopyPlane */ + int minor_code; /* not defined in the core */ +} XNoExposeEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + int state; /* Visibility state */ +} XVisibilityEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window parent; /* parent of the window */ + Window window; /* window id of window created */ + int x, y; /* window location */ + int width, height; /* size of window */ + int border_width; /* border width */ + Bool override_redirect; /* creation should be overridden */ +} XCreateWindowEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; +} XDestroyWindowEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + Bool from_configure; +} XUnmapEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + Bool override_redirect; /* boolean, is override set... */ +} XMapEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window parent; + Window window; +} XMapRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + Window parent; + int x, y; + Bool override_redirect; +} XReparentEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + int x, y; + int width, height; + int border_width; + Window above; + Bool override_redirect; +} XConfigureEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + int x, y; +} XGravityEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + int width, height; +} XResizeRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window parent; + Window window; + int x, y; + int width, height; + int border_width; + Window above; + int detail; /* Above, Below, TopIf, BottomIf, Opposite */ + unsigned long value_mask; +} XConfigureRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + int place; /* PlaceOnTop, PlaceOnBottom */ +} XCirculateEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window parent; + Window window; + int place; /* PlaceOnTop, PlaceOnBottom */ +} XCirculateRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + Atom atom; + Time time; + int state; /* NewValue, Deleted */ +} XPropertyEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + Atom selection; + Time time; +} XSelectionClearEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window owner; + Window requestor; + Atom selection; + Atom target; + Atom property; + Time time; +} XSelectionRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window requestor; + Atom selection; + Atom target; + Atom property; /* ATOM or None */ + Time time; +} XSelectionEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + Colormap colormap; /* COLORMAP or None */ +#if defined(__cplusplus) || defined(c_plusplus) + Bool c_new; /* C++ */ +#else + Bool new; +#endif + int state; /* ColormapInstalled, ColormapUninstalled */ +} XColormapEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + Atom message_type; + int format; + union { + char b[20]; + short s[10]; + long l[5]; + } data; +} XClientMessageEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* unused */ + int request; /* one of MappingModifier, MappingKeyboard, + MappingPointer */ + int first_keycode; /* first keycode */ + int count; /* defines range of change w. first_keycode*/ +} XMappingEvent; + +typedef struct { + int type; + Display *display; /* Display the event was read from */ + XID resourceid; /* resource id */ + unsigned long serial; /* serial number of failed request */ + unsigned char error_code; /* error code of failed request */ + unsigned char request_code; /* Major op-code of failed request */ + unsigned char minor_code; /* Minor op-code of failed request */ +} XErrorEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display;/* Display the event was read from */ + Window window; /* window on which event was requested in event mask */ +} XAnyEvent; + +/* + * this union is defined so Xlib can always use the same sized + * event structure internally, to avoid memory fragmentation. + */ +typedef union _XEvent { + int type; /* must not be changed; first element */ + XAnyEvent xany; + XKeyEvent xkey; + XButtonEvent xbutton; + XMotionEvent xmotion; + XCrossingEvent xcrossing; + XFocusChangeEvent xfocus; + XExposeEvent xexpose; + XGraphicsExposeEvent xgraphicsexpose; + XNoExposeEvent xnoexpose; + XVisibilityEvent xvisibility; + XCreateWindowEvent xcreatewindow; + XDestroyWindowEvent xdestroywindow; + XUnmapEvent xunmap; + XMapEvent xmap; + XMapRequestEvent xmaprequest; + XReparentEvent xreparent; + XConfigureEvent xconfigure; + XGravityEvent xgravity; + XResizeRequestEvent xresizerequest; + XConfigureRequestEvent xconfigurerequest; + XCirculateEvent xcirculate; + XCirculateRequestEvent xcirculaterequest; + XPropertyEvent xproperty; + XSelectionClearEvent xselectionclear; + XSelectionRequestEvent xselectionrequest; + XSelectionEvent xselection; + XColormapEvent xcolormap; + XClientMessageEvent xclient; + XMappingEvent xmapping; + XErrorEvent xerror; + XKeymapEvent xkeymap; + long pad[24]; +} XEvent; +#endif + +#define XAllocID(dpy) ((*(dpy)->resource_alloc)((dpy))) + +/* + * per character font metric information. + */ +typedef struct { + short lbearing; /* origin to left edge of raster */ + short rbearing; /* origin to right edge of raster */ + short width; /* advance to next char's origin */ + short ascent; /* baseline to top edge of raster */ + short descent; /* baseline to bottom edge of raster */ + unsigned short attributes; /* per char flags (not predefined) */ +} XCharStruct; + +/* + * To allow arbitrary information with fonts, there are additional properties + * returned. + */ +typedef struct { + Atom name; + unsigned long card32; +} XFontProp; + +typedef struct { + XExtData *ext_data; /* hook for extension to hang data */ + Font fid; /* Font id for this font */ + unsigned direction; /* hint about direction the font is painted */ + unsigned min_char_or_byte2;/* first character */ + unsigned max_char_or_byte2;/* last character */ + unsigned min_byte1; /* first row that exists */ + unsigned max_byte1; /* last row that exists */ + Bool all_chars_exist;/* flag if all characters have non-zero size*/ + unsigned default_char; /* char to print for undefined character */ + int n_properties; /* how many properties there are */ + XFontProp *properties; /* pointer to array of additional properties*/ + XCharStruct min_bounds; /* minimum bounds over all existing char*/ + XCharStruct max_bounds; /* maximum bounds over all existing char*/ + XCharStruct *per_char; /* first_char to last_char information */ + int ascent; /* log. extent above baseline for spacing */ + int descent; /* log. descent below baseline for spacing */ +} XFontStruct; + +/* + * PolyText routines take these as arguments. + */ +typedef struct { + char *chars; /* pointer to string */ + int nchars; /* number of characters */ + int delta; /* delta between strings */ + Font font; /* font to print it in, None don't change */ +} XTextItem; + +typedef struct { /* normal 16 bit characters are two bytes */ + unsigned char byte1; + unsigned char byte2; +} XChar2b; + +typedef struct { + XChar2b *chars; /* two byte characters */ + int nchars; /* number of characters */ + int delta; /* delta between strings */ + Font font; /* font to print it in, None don't change */ +} XTextItem16; + + +typedef union { Display *display; + GC gc; + Visual *visual; + Screen *screen; + ScreenFormat *pixmap_format; + XFontStruct *font; } XEDataObject; + +typedef struct { + XRectangle max_ink_extent; + XRectangle max_logical_extent; +} XFontSetExtents; + +typedef struct _XFontSet *XFontSet; + +typedef struct { + char *chars; + int nchars; + int delta; + XFontSet font_set; +} XmbTextItem; + +typedef struct { + wchar_t *chars; + int nchars; + int delta; + XFontSet font_set; +} XwcTextItem; + +typedef void (*XIMProc)(); + +typedef struct _XIM *XIM; +typedef struct _XIC *XIC; + +typedef unsigned long XIMStyle; + +typedef struct { + unsigned short count_styles; + XIMStyle *supported_styles; +} XIMStyles; + +#define XIMPreeditArea 0x0001L +#define XIMPreeditCallbacks 0x0002L +#define XIMPreeditPosition 0x0004L +#define XIMPreeditNothing 0x0008L +#define XIMPreeditNone 0x0010L +#define XIMStatusArea 0x0100L +#define XIMStatusCallbacks 0x0200L +#define XIMStatusNothing 0x0400L +#define XIMStatusNone 0x0800L + +#define XNVaNestedList "XNVaNestedList" +#define XNClientWindow "clientWindow" +#define XNInputStyle "inputStyle" +#define XNFocusWindow "focusWindow" +#define XNResourceName "resourceName" +#define XNResourceClass "resourceClass" +#define XNGeometryCallback "geometryCallback" +#define XNFilterEvents "filterEvents" +#define XNPreeditStartCallback "preeditStartCallback" +#define XNPreeditDoneCallback "preeditDoneCallback" +#define XNPreeditDrawCallback "preeditDrawCallback" +#define XNPreeditCaretCallback "preeditCaretCallback" +#define XNPreeditAttributes "preeditAttributes" +#define XNStatusStartCallback "statusStartCallback" +#define XNStatusDoneCallback "statusDoneCallback" +#define XNStatusDrawCallback "statusDrawCallback" +#define XNStatusAttributes "statusAttributes" +#define XNArea "area" +#define XNAreaNeeded "areaNeeded" +#define XNSpotLocation "spotLocation" +#define XNColormap "colorMap" +#define XNStdColormap "stdColorMap" +#define XNForeground "foreground" +#define XNBackground "background" +#define XNBackgroundPixmap "backgroundPixmap" +#define XNFontSet "fontSet" +#define XNLineSpace "lineSpace" +#define XNCursor "cursor" + +#define XBufferOverflow -1 +#define XLookupNone 1 +#define XLookupChars 2 +#define XLookupKeySym 3 +#define XLookupBoth 4 + +#if NeedFunctionPrototypes +typedef void *XVaNestedList; +#else +typedef XPointer XVaNestedList; +#endif + +typedef struct { + XPointer client_data; + XIMProc callback; +} XIMCallback; + +typedef unsigned long XIMFeedback; + +#define XIMReverse 1 +#define XIMUnderline (1<<1) +#define XIMHighlight (1<<2) +#define XIMPrimary (1<<5) +#define XIMSecondary (1<<6) +#define XIMTertiary (1<<7) + +typedef struct _XIMText { + unsigned short length; + XIMFeedback *feedback; + Bool encoding_is_wchar; + union { + char *multi_byte; + wchar_t *wide_char; + } string; +} XIMText; + +typedef struct _XIMPreeditDrawCallbackStruct { + int caret; /* Cursor offset within pre-edit string */ + int chg_first; /* Starting change position */ + int chg_length; /* Length of the change in character count */ + XIMText *text; +} XIMPreeditDrawCallbackStruct; + +typedef enum { + XIMForwardChar, XIMBackwardChar, + XIMForwardWord, XIMBackwardWord, + XIMCaretUp, XIMCaretDown, + XIMNextLine, XIMPreviousLine, + XIMLineStart, XIMLineEnd, + XIMAbsolutePosition, + XIMDontChange +} XIMCaretDirection; + +typedef enum { + XIMIsInvisible, /* Disable caret feedback */ + XIMIsPrimary, /* UI defined caret feedback */ + XIMIsSecondary /* UI defined caret feedback */ +} XIMCaretStyle; + +typedef struct _XIMPreeditCaretCallbackStruct { + int position; /* Caret offset within pre-edit string */ + XIMCaretDirection direction; /* Caret moves direction */ + XIMCaretStyle style; /* Feedback of the caret */ +} XIMPreeditCaretCallbackStruct; + +typedef enum { + XIMTextType, + XIMBitmapType +} XIMStatusDataType; + +typedef struct _XIMStatusDrawCallbackStruct { + XIMStatusDataType type; + union { + XIMText *text; + Pixmap bitmap; + } data; +} XIMStatusDrawCallbackStruct; + +typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ +#if NeedFunctionPrototypes + Display* /* display */, + XErrorEvent* /* error_event */ +#endif +); + +_XFUNCPROTOBEGIN + + + +#include "tkIntXlibDecls.h" + +_XFUNCPROTOEND + +#if defined(MAC_OSX_TK) +# undef Cursor +# undef Region +#endif + +#endif /* _XLIB_H_ */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xutil.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xutil.h new file mode 100644 index 00000000..7348e903 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/Xutil.h @@ -0,0 +1,855 @@ +/* $XConsortium: Xutil.h,v 11.73 91/07/30 16:21:37 rws Exp $ */ + +/*********************************************************** +Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, +and the Massachusetts Institute of Technology, Cambridge, Massachusetts. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Digital or MIT not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. + +DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING +ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL +DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR +ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, +WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, +ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS +SOFTWARE. + +******************************************************************/ + +#ifndef _XUTIL_H_ +#define _XUTIL_H_ + +/* You must include before including this file */ + +#if defined(MAC_OSX_TK) +# define Region XRegion +#endif + +/* + * Bitmask returned by XParseGeometry(). Each bit tells if the corresponding + * value (x, y, width, height) was found in the parsed string. + */ +#define NoValue 0x0000 +#define XValue 0x0001 +#define YValue 0x0002 +#define WidthValue 0x0004 +#define HeightValue 0x0008 +#define AllValues 0x000F +#define XNegative 0x0010 +#define YNegative 0x0020 + +/* + * new version containing base_width, base_height, and win_gravity fields; + * used with WM_NORMAL_HINTS. + */ +typedef struct { + long flags; /* marks which fields in this structure are defined */ + int x, y; /* obsolete for new window mgrs, but clients */ + int width, height; /* should set so old wm's don't mess up */ + int min_width, min_height; + int max_width, max_height; + int width_inc, height_inc; + struct { + int x; /* numerator */ + int y; /* denominator */ + } min_aspect, max_aspect; + int base_width, base_height; /* added by ICCCM version 1 */ + int win_gravity; /* added by ICCCM version 1 */ +} XSizeHints; + +/* + * The next block of definitions are for window manager properties that + * clients and applications use for communication. + */ + +/* flags argument in size hints */ +#define USPosition (1L << 0) /* user specified x, y */ +#define USSize (1L << 1) /* user specified width, height */ + +#define PPosition (1L << 2) /* program specified position */ +#define PSize (1L << 3) /* program specified size */ +#define PMinSize (1L << 4) /* program specified minimum size */ +#define PMaxSize (1L << 5) /* program specified maximum size */ +#define PResizeInc (1L << 6) /* program specified resize increments */ +#define PAspect (1L << 7) /* program specified min and max aspect ratios */ +#define PBaseSize (1L << 8) /* program specified base for incrementing */ +#define PWinGravity (1L << 9) /* program specified window gravity */ + +/* obsolete */ +#define PAllHints (PPosition|PSize|PMinSize|PMaxSize|PResizeInc|PAspect) + + + +typedef struct { + long flags; /* marks which fields in this structure are defined */ + Bool input; /* does this application rely on the window manager to + get keyboard input? */ + int initial_state; /* see below */ + Pixmap icon_pixmap; /* pixmap to be used as icon */ + Window icon_window; /* window to be used as icon */ + int icon_x, icon_y; /* initial position of icon */ + Pixmap icon_mask; /* icon mask bitmap */ + XID window_group; /* id of related window group */ + /* this structure may be extended in the future */ +} XWMHints; + +/* definition for flags of XWMHints */ + +#define InputHint (1L << 0) +#define StateHint (1L << 1) +#define IconPixmapHint (1L << 2) +#define IconWindowHint (1L << 3) +#define IconPositionHint (1L << 4) +#define IconMaskHint (1L << 5) +#define WindowGroupHint (1L << 6) +#define AllHints (InputHint|StateHint|IconPixmapHint|IconWindowHint| \ +IconPositionHint|IconMaskHint|WindowGroupHint) + +/* definitions for initial window state */ +#define WithdrawnState 0 /* for windows that are not mapped */ +#define NormalState 1 /* most applications want to start this way */ +#define IconicState 3 /* application wants to start as an icon */ + +/* + * Obsolete states no longer defined by ICCCM + */ +#define DontCareState 0 /* don't know or care */ +#define ZoomState 2 /* application wants to start zoomed */ +#define InactiveState 4 /* application believes it is seldom used; */ + /* some wm's may put it on inactive menu */ + + +/* + * new structure for manipulating TEXT properties; used with WM_NAME, + * WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND. + */ +typedef struct { + unsigned char *value; /* same as Property routines */ + Atom encoding; /* prop type */ + int format; /* prop data format: 8, 16, or 32 */ + unsigned long nitems; /* number of data items in value */ +} XTextProperty; + +#define XNoMemory -1 +#define XLocaleNotSupported -2 +#define XConverterNotFound -3 + +typedef enum { + XStringStyle, /* STRING */ + XCompoundTextStyle, /* COMPOUND_TEXT */ + XTextStyle, /* text in owner's encoding (current locale)*/ + XStdICCTextStyle /* STRING, else COMPOUND_TEXT */ +} XICCEncodingStyle; + +typedef struct { + int min_width, min_height; + int max_width, max_height; + int width_inc, height_inc; +} XIconSize; + +typedef struct { + char *res_name; + char *res_class; +} XClassHint; + +/* + * These macros are used to give some sugar to the image routines so that + * naive people are more comfortable with them. + */ +#define XDestroyImage(ximage) \ + ((*((ximage)->f.destroy_image))((ximage))) +#define XGetPixel(ximage, x, y) \ + ((*((ximage)->f.get_pixel))((ximage), (x), (y))) +#define XPutPixel(ximage, x, y, pixel) \ + ((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel))) +#define XSubImage(ximage, x, y, width, height) \ + ((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height))) +#define XAddPixel(ximage, value) \ + ((*((ximage)->f.add_pixel))((ximage), (value))) + +/* + * Compose sequence status structure, used in calling XLookupString. + */ +typedef struct _XComposeStatus { + XPointer compose_ptr; /* state table pointer */ + int chars_matched; /* match state */ +} XComposeStatus; + +/* + * Keysym macros, used on Keysyms to test for classes of symbols + */ +#define IsKeypadKey(keysym) \ + (((unsigned)(keysym) >= XK_KP_Space) && ((unsigned)(keysym) <= XK_KP_Equal)) + +#define IsCursorKey(keysym) \ + (((unsigned)(keysym) >= XK_Home) && ((unsigned)(keysym) < XK_Select)) + +#define IsPFKey(keysym) \ + (((unsigned)(keysym) >= XK_KP_F1) && ((unsigned)(keysym) <= XK_KP_F4)) + +#define IsFunctionKey(keysym) \ + (((unsigned)(keysym) >= XK_F1) && ((unsigned)(keysym) <= XK_F35)) + +#define IsMiscFunctionKey(keysym) \ + (((unsigned)(keysym) >= XK_Select) && ((unsigned)(keysym) <= XK_Break)) + +#define IsModifierKey(keysym) \ + ((((unsigned)(keysym) >= XK_Shift_L) && ((unsigned)(keysym) <= XK_Hyper_R)) \ + || ((unsigned)(keysym) == XK_Mode_switch) \ + || ((unsigned)(keysym) == XK_Num_Lock)) +/* + * opaque reference to Region data type + */ +typedef struct _XRegion *Region; + +/* Return values from XRectInRegion() */ + +#define RectangleOut 0 +#define RectangleIn 1 +#define RectanglePart 2 + + +/* + * Information used by the visual utility routines to find desired visual + * type from the many visuals a display may support. + */ + +typedef struct { + Visual *visual; + VisualID visualid; + int screen; + int depth; +#if defined(__cplusplus) || defined(c_plusplus) + int c_class; /* C++ */ +#else + int class; +#endif + unsigned long red_mask; + unsigned long green_mask; + unsigned long blue_mask; + int colormap_size; + int bits_per_rgb; +} XVisualInfo; + +#define VisualNoMask 0x0 +#define VisualIDMask 0x1 +#define VisualScreenMask 0x2 +#define VisualDepthMask 0x4 +#define VisualClassMask 0x8 +#define VisualRedMaskMask 0x10 +#define VisualGreenMaskMask 0x20 +#define VisualBlueMaskMask 0x40 +#define VisualColormapSizeMask 0x80 +#define VisualBitsPerRGBMask 0x100 +#define VisualAllMask 0x1FF + +/* + * This defines a window manager property that clients may use to + * share standard color maps of type RGB_COLOR_MAP: + */ +typedef struct { + Colormap colormap; + unsigned long red_max; + unsigned long red_mult; + unsigned long green_max; + unsigned long green_mult; + unsigned long blue_max; + unsigned long blue_mult; + unsigned long base_pixel; + VisualID visualid; /* added by ICCCM version 1 */ + XID killid; /* added by ICCCM version 1 */ +} XStandardColormap; + +#define ReleaseByFreeingColormap ((XID) 1L) /* for killid field above */ + + +/* + * return codes for XReadBitmapFile and XWriteBitmapFile + */ +#define BitmapSuccess 0 +#define BitmapOpenFailed 1 +#define BitmapFileInvalid 2 +#define BitmapNoMemory 3 + +/**************************************************************** + * + * Context Management + * + ****************************************************************/ + + +/* Associative lookup table return codes */ + +#define XCSUCCESS 0 /* No error. */ +#define XCNOMEM 1 /* Out of memory */ +#define XCNOENT 2 /* No entry in table */ + +typedef int XContext; + +#define XUniqueContext() ((XContext) XrmUniqueQuark()) +#define XStringToContext(string) ((XContext) XrmStringToQuark(string)) + +_XFUNCPROTOBEGIN + +/* The following declarations are alphabetized. */ + +extern XClassHint *XAllocClassHint ( +#if NeedFunctionPrototypes + void +#endif +); + +extern XIconSize *XAllocIconSize ( +#if NeedFunctionPrototypes + void +#endif +); + +extern XSizeHints *XAllocSizeHints ( +#if NeedFunctionPrototypes + void +#endif +); + +extern XStandardColormap *XAllocStandardColormap ( +#if NeedFunctionPrototypes + void +#endif +); + +extern XWMHints *XAllocWMHints ( +#if NeedFunctionPrototypes + void +#endif +); + +extern void XClipBox( +#if NeedFunctionPrototypes + Region /* r */, + XRectangle* /* rect_return */ +#endif +); + +extern Region XCreateRegion( +#if NeedFunctionPrototypes + void +#endif +); + +extern char *XDefaultString( +#if NeedFunctionPrototypes + void +#endif +); + +extern int XDeleteContext( +#if NeedFunctionPrototypes + Display* /* display */, + XID /* rid */, + XContext /* context */ +#endif +); + +extern void XDestroyRegion( +#if NeedFunctionPrototypes + Region /* r */ +#endif +); + +extern Bool XEmptyRegion( +#if NeedFunctionPrototypes + Region /* r */ +#endif +); + +extern Bool XEqualRegion( +#if NeedFunctionPrototypes + Region /* r1 */, + Region /* r2 */ +#endif +); + +extern int XFindContext( +#if NeedFunctionPrototypes + Display* /* display */, + XID /* rid */, + XContext /* context */, + XPointer* /* data_return */ +#endif +); + +extern Status XGetClassHint( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XClassHint* /* class_hints_return */ +#endif +); + +extern Status XGetIconSizes( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XIconSize** /* size_list_return */, + int* /* count_return */ +#endif +); + +extern Status XGetNormalHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints_return */ +#endif +); + +extern Status XGetRGBColormaps( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XStandardColormap** /* stdcmap_return */, + int* /* count_return */, + Atom /* property */ +#endif +); + +extern Status XGetSizeHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints_return */, + Atom /* property */ +#endif +); + +extern Status XGetStandardColormap( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XStandardColormap* /* colormap_return */, + Atom /* property */ +#endif +); + +extern Status XGetTextProperty( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* window */, + XTextProperty* /* text_prop_return */, + Atom /* property */ +#endif +); + + +extern Status XGetWMClientMachine( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern XWMHints *XGetWMHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */ +#endif +); + +extern Status XGetWMIconName( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern Status XGetWMName( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern Status XGetWMNormalHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints_return */, + long* /* supplied_return */ +#endif +); + +extern Status XGetWMSizeHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints_return */, + long* /* supplied_return */, + Atom /* property */ +#endif +); + +extern Status XGetZoomHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* zhints_return */ +#endif +); + +extern void XIntersectRegion( +#if NeedFunctionPrototypes + Region /* sra */, + Region /* srb */, + Region /* dr_return */ +#endif +); + +extern int XLookupString( +#if NeedFunctionPrototypes + XKeyEvent* /* event_struct */, + char* /* buffer_return */, + int /* bytes_buffer */, + KeySym* /* keysym_return */, + XComposeStatus* /* status_in_out */ +#endif +); + +extern Status XMatchVisualInfo( +#if NeedFunctionPrototypes + Display* /* display */, + int /* screen */, + int /* depth */, + int /* class */, + XVisualInfo* /* vinfo_return */ +#endif +); + +extern void XOffsetRegion( +#if NeedFunctionPrototypes + Region /* r */, + int /* dx */, + int /* dy */ +#endif +); + +extern Bool XPointInRegion( +#if NeedFunctionPrototypes + Region /* r */, + int /* x */, + int /* y */ +#endif +); + +extern Region XPolygonRegion( +#if NeedFunctionPrototypes + XPoint* /* points */, + int /* n */, + int /* fill_rule */ +#endif +); + +extern int XRectInRegion( +#if NeedFunctionPrototypes + Region /* r */, + int /* x */, + int /* y */, + unsigned int /* width */, + unsigned int /* height */ +#endif +); + +extern int XSaveContext( +#if NeedFunctionPrototypes + Display* /* display */, + XID /* rid */, + XContext /* context */, + _Xconst char* /* data */ +#endif +); + +extern void XSetClassHint( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XClassHint* /* class_hints */ +#endif +); + +extern void XSetIconSizes( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XIconSize* /* size_list */, + int /* count */ +#endif +); + +extern void XSetNormalHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints */ +#endif +); + +extern void XSetRGBColormaps( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XStandardColormap* /* stdcmaps */, + int /* count */, + Atom /* property */ +#endif +); + +extern void XSetSizeHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints */, + Atom /* property */ +#endif +); + +extern void XSetStandardProperties( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + _Xconst char* /* window_name */, + _Xconst char* /* icon_name */, + Pixmap /* icon_pixmap */, + char** /* argv */, + int /* argc */, + XSizeHints* /* hints */ +#endif +); + +extern void XSetTextProperty( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop */, + Atom /* property */ +#endif +); + +extern void XSetWMHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XWMHints* /* wm_hints */ +#endif +); + +extern void XSetWMIconName( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop */ +#endif +); + +extern void XSetWMName( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop */ +#endif +); + +extern void XSetWMNormalHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints */ +#endif +); + +extern void XSetWMProperties( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* window_name */, + XTextProperty* /* icon_name */, + char** /* argv */, + int /* argc */, + XSizeHints* /* normal_hints */, + XWMHints* /* wm_hints */, + XClassHint* /* class_hints */ +#endif +); + +extern void XmbSetWMProperties( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + _Xconst char* /* window_name */, + _Xconst char* /* icon_name */, + char** /* argv */, + int /* argc */, + XSizeHints* /* normal_hints */, + XWMHints* /* wm_hints */, + XClassHint* /* class_hints */ +#endif +); + +extern void XSetWMSizeHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints */, + Atom /* property */ +#endif +); + +extern void XSetRegion( +#if NeedFunctionPrototypes + Display* /* display */, + GC /* gc */, + Region /* r */ +#endif +); + +extern void XSetStandardColormap( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XStandardColormap* /* colormap */, + Atom /* property */ +#endif +); + +extern void XSetZoomHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* zhints */ +#endif +); + +extern void XShrinkRegion( +#if NeedFunctionPrototypes + Region /* r */, + int /* dx */, + int /* dy */ +#endif +); + +extern void XSubtractRegion( +#if NeedFunctionPrototypes + Region /* sra */, + Region /* srb */, + Region /* dr_return */ +#endif +); + +extern int XmbTextListToTextProperty( +#if NeedFunctionPrototypes + Display* /* display */, + char** /* list */, + int /* count */, + XICCEncodingStyle /* style */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern int XwcTextListToTextProperty( +#if NeedFunctionPrototypes + Display* /* display */, + wchar_t** /* list */, + int /* count */, + XICCEncodingStyle /* style */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern void XwcFreeStringList( +#if NeedFunctionPrototypes + wchar_t** /* list */ +#endif +); + +extern Status XTextPropertyToStringList( +#if NeedFunctionPrototypes + XTextProperty* /* text_prop */, + char*** /* list_return */, + int* /* count_return */ +#endif +); + +extern int XmbTextPropertyToTextList( +#if NeedFunctionPrototypes + Display* /* display */, + XTextProperty* /* text_prop */, + char*** /* list_return */, + int* /* count_return */ +#endif +); + +extern int XwcTextPropertyToTextList( +#if NeedFunctionPrototypes + Display* /* display */, + XTextProperty* /* text_prop */, + wchar_t*** /* list_return */, + int* /* count_return */ +#endif +); + +extern void XUnionRectWithRegion( +#if NeedFunctionPrototypes + XRectangle* /* rectangle */, + Region /* src_region */, + Region /* dest_region_return */ +#endif +); + +extern void XUnionRegion( +#if NeedFunctionPrototypes + Region /* sra */, + Region /* srb */, + Region /* dr_return */ +#endif +); + +extern int XWMGeometry( +#if NeedFunctionPrototypes + Display* /* display */, + int /* screen_number */, + _Xconst char* /* user_geometry */, + _Xconst char* /* default_geometry */, + unsigned int /* border_width */, + XSizeHints* /* hints */, + int* /* x_return */, + int* /* y_return */, + int* /* width_return */, + int* /* height_return */, + int* /* gravity_return */ +#endif +); + +extern void XXorRegion( +#if NeedFunctionPrototypes + Region /* sra */, + Region /* srb */, + Region /* dr_return */ +#endif +); + +_XFUNCPROTOEND + +#if defined(MAC_OSX_TK) +# undef Region +#endif + +#endif /* _XUTIL_H_ */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/cursorfont.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/cursorfont.h new file mode 100644 index 00000000..617274fa --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/cursorfont.h @@ -0,0 +1,79 @@ +/* $XConsortium: cursorfont.h,v 1.2 88/09/06 16:44:27 jim Exp $ */ +#define XC_num_glyphs 154 +#define XC_X_cursor 0 +#define XC_arrow 2 +#define XC_based_arrow_down 4 +#define XC_based_arrow_up 6 +#define XC_boat 8 +#define XC_bogosity 10 +#define XC_bottom_left_corner 12 +#define XC_bottom_right_corner 14 +#define XC_bottom_side 16 +#define XC_bottom_tee 18 +#define XC_box_spiral 20 +#define XC_center_ptr 22 +#define XC_circle 24 +#define XC_clock 26 +#define XC_coffee_mug 28 +#define XC_cross 30 +#define XC_cross_reverse 32 +#define XC_crosshair 34 +#define XC_diamond_cross 36 +#define XC_dot 38 +#define XC_dotbox 40 +#define XC_double_arrow 42 +#define XC_draft_large 44 +#define XC_draft_small 46 +#define XC_draped_box 48 +#define XC_exchange 50 +#define XC_fleur 52 +#define XC_gobbler 54 +#define XC_gumby 56 +#define XC_hand1 58 +#define XC_hand2 60 +#define XC_heart 62 +#define XC_icon 64 +#define XC_iron_cross 66 +#define XC_left_ptr 68 +#define XC_left_side 70 +#define XC_left_tee 72 +#define XC_leftbutton 74 +#define XC_ll_angle 76 +#define XC_lr_angle 78 +#define XC_man 80 +#define XC_middlebutton 82 +#define XC_mouse 84 +#define XC_pencil 86 +#define XC_pirate 88 +#define XC_plus 90 +#define XC_question_arrow 92 +#define XC_right_ptr 94 +#define XC_right_side 96 +#define XC_right_tee 98 +#define XC_rightbutton 100 +#define XC_rtl_logo 102 +#define XC_sailboat 104 +#define XC_sb_down_arrow 106 +#define XC_sb_h_double_arrow 108 +#define XC_sb_left_arrow 110 +#define XC_sb_right_arrow 112 +#define XC_sb_up_arrow 114 +#define XC_sb_v_double_arrow 116 +#define XC_shuttle 118 +#define XC_sizing 120 +#define XC_spider 122 +#define XC_spraycan 124 +#define XC_star 126 +#define XC_target 128 +#define XC_tcross 130 +#define XC_top_left_arrow 132 +#define XC_top_left_corner 134 +#define XC_top_right_corner 136 +#define XC_top_side 138 +#define XC_top_tee 140 +#define XC_trek 142 +#define XC_ul_angle 144 +#define XC_umbrella 146 +#define XC_ur_angle 148 +#define XC_watch 150 +#define XC_xterm 152 diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/keysym.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/keysym.h new file mode 100644 index 00000000..a8f14089 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/keysym.h @@ -0,0 +1,35 @@ +/* $XConsortium: keysym.h,v 1.13 91/03/13 20:09:49 rws Exp $ */ + +/*********************************************************** +Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, +and the Massachusetts Institute of Technology, Cambridge, Massachusetts. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Digital or MIT not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. + +DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING +ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL +DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR +ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, +WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, +ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS +SOFTWARE. + +******************************************************************/ + +/* default keysyms */ +#define XK_MISCELLANY +#define XK_LATIN1 +#define XK_LATIN2 +#define XK_LATIN3 +#define XK_LATIN4 +#define XK_GREEK + +#include diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/keysymdef.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/keysymdef.h new file mode 100644 index 00000000..b22d41b3 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/keysymdef.h @@ -0,0 +1,1169 @@ +/* $XConsortium: keysymdef.h,v 1.15 93/04/02 10:57:36 rws Exp $ */ + +/*********************************************************** +Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, +and the Massachusetts Institute of Technology, Cambridge, Massachusetts. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Digital or MIT not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. + +DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING +ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL +DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR +ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, +WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, +ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS +SOFTWARE. + +******************************************************************/ + +#define XK_VoidSymbol 0xFFFFFF /* void symbol */ + +#ifdef XK_MISCELLANY +/* + * TTY Functions, cleverly chosen to map to ascii, for convenience of + * programming, but could have been arbitrary (at the cost of lookup + * tables in client code. + */ + +#define XK_BackSpace 0xFF08 /* back space, back char */ +#define XK_Tab 0xFF09 +#define XK_Linefeed 0xFF0A /* Linefeed, LF */ +#define XK_Clear 0xFF0B +#define XK_Return 0xFF0D /* Return, enter */ +#define XK_Pause 0xFF13 /* Pause, hold */ +#define XK_Scroll_Lock 0xFF14 +#define XK_Sys_Req 0xFF15 +#define XK_Escape 0xFF1B +#define XK_Delete 0xFFFF /* Delete, rubout */ + + + +/* International & multi-key character composition */ + +#define XK_Multi_key 0xFF20 /* Multi-key character compose */ + +/* Japanese keyboard support */ + +#define XK_Kanji 0xFF21 /* Kanji, Kanji convert */ +#define XK_Muhenkan 0xFF22 /* Cancel Conversion */ +#define XK_Henkan_Mode 0xFF23 /* Start/Stop Conversion */ +#define XK_Henkan 0xFF23 /* Alias for Henkan_Mode */ +#define XK_Romaji 0xFF24 /* to Romaji */ +#define XK_Hiragana 0xFF25 /* to Hiragana */ +#define XK_Katakana 0xFF26 /* to Katakana */ +#define XK_Hiragana_Katakana 0xFF27 /* Hiragana/Katakana toggle */ +#define XK_Zenkaku 0xFF28 /* to Zenkaku */ +#define XK_Hankaku 0xFF29 /* to Hankaku */ +#define XK_Zenkaku_Hankaku 0xFF2A /* Zenkaku/Hankaku toggle */ +#define XK_Touroku 0xFF2B /* Add to Dictionary */ +#define XK_Massyo 0xFF2C /* Delete from Dictionary */ +#define XK_Kana_Lock 0xFF2D /* Kana Lock */ +#define XK_Kana_Shift 0xFF2E /* Kana Shift */ +#define XK_Eisu_Shift 0xFF2F /* Alphanumeric Shift */ +#define XK_Eisu_toggle 0xFF30 /* Alphanumeric toggle */ + +/* Cursor control & motion */ + +#define XK_Home 0xFF50 +#define XK_Left 0xFF51 /* Move left, left arrow */ +#define XK_Up 0xFF52 /* Move up, up arrow */ +#define XK_Right 0xFF53 /* Move right, right arrow */ +#define XK_Down 0xFF54 /* Move down, down arrow */ +#define XK_Prior 0xFF55 /* Prior, previous */ +#define XK_Page_Up 0xFF55 +#define XK_Next 0xFF56 /* Next */ +#define XK_Page_Down 0xFF56 +#define XK_End 0xFF57 /* EOL */ +#define XK_Begin 0xFF58 /* BOL */ + +/* Special Windows keyboard keys */ + +#define XK_Win_L 0xFF5B /* Left-hand Windows */ +#define XK_Win_R 0xFF5C /* Right-hand Windows */ +#define XK_App 0xFF5D /* Menu key */ + +/* Misc Functions */ + +#define XK_Select 0xFF60 /* Select, mark */ +#define XK_Print 0xFF61 +#define XK_Execute 0xFF62 /* Execute, run, do */ +#define XK_Insert 0xFF63 /* Insert, insert here */ +#define XK_Undo 0xFF65 /* Undo, oops */ +#define XK_Redo 0xFF66 /* redo, again */ +#define XK_Menu 0xFF67 +#define XK_Find 0xFF68 /* Find, search */ +#define XK_Cancel 0xFF69 /* Cancel, stop, abort, exit */ +#define XK_Help 0xFF6A /* Help, ? */ +#define XK_Break 0xFF6B +#define XK_Mode_switch 0xFF7E /* Character set switch */ +#define XK_script_switch 0xFF7E /* Alias for mode_switch */ +#define XK_Num_Lock 0xFF7F + +/* Keypad Functions, keypad numbers cleverly chosen to map to ascii */ + +#define XK_KP_Space 0xFF80 /* space */ +#define XK_KP_Tab 0xFF89 +#define XK_KP_Enter 0xFF8D /* enter */ +#define XK_KP_F1 0xFF91 /* PF1, KP_A, ... */ +#define XK_KP_F2 0xFF92 +#define XK_KP_F3 0xFF93 +#define XK_KP_F4 0xFF94 +#define XK_KP_Home 0xFF95 +#define XK_KP_Left 0xFF96 +#define XK_KP_Up 0xFF97 +#define XK_KP_Right 0xFF98 +#define XK_KP_Down 0xFF99 +#define XK_KP_Prior 0xFF9A +#define XK_KP_Page_Up 0xFF9A +#define XK_KP_Next 0xFF9B +#define XK_KP_Page_Down 0xFF9B +#define XK_KP_End 0xFF9C +#define XK_KP_Begin 0xFF9D +#define XK_KP_Insert 0xFF9E +#define XK_KP_Delete 0xFF9F +#define XK_KP_Equal 0xFFBD /* equals */ +#define XK_KP_Multiply 0xFFAA +#define XK_KP_Add 0xFFAB +#define XK_KP_Separator 0xFFAC /* separator, often comma */ +#define XK_KP_Subtract 0xFFAD +#define XK_KP_Decimal 0xFFAE +#define XK_KP_Divide 0xFFAF + +#define XK_KP_0 0xFFB0 +#define XK_KP_1 0xFFB1 +#define XK_KP_2 0xFFB2 +#define XK_KP_3 0xFFB3 +#define XK_KP_4 0xFFB4 +#define XK_KP_5 0xFFB5 +#define XK_KP_6 0xFFB6 +#define XK_KP_7 0xFFB7 +#define XK_KP_8 0xFFB8 +#define XK_KP_9 0xFFB9 + + + +/* + * Auxilliary Functions; note the duplicate definitions for left and right + * function keys; Sun keyboards and a few other manufactures have such + * function key groups on the left and/or right sides of the keyboard. + * We've not found a keyboard with more than 35 function keys total. + */ + +#define XK_F1 0xFFBE +#define XK_F2 0xFFBF +#define XK_F3 0xFFC0 +#define XK_F4 0xFFC1 +#define XK_F5 0xFFC2 +#define XK_F6 0xFFC3 +#define XK_F7 0xFFC4 +#define XK_F8 0xFFC5 +#define XK_F9 0xFFC6 +#define XK_F10 0xFFC7 +#define XK_F11 0xFFC8 +#define XK_L1 0xFFC8 +#define XK_F12 0xFFC9 +#define XK_L2 0xFFC9 +#define XK_F13 0xFFCA +#define XK_L3 0xFFCA +#define XK_F14 0xFFCB +#define XK_L4 0xFFCB +#define XK_F15 0xFFCC +#define XK_L5 0xFFCC +#define XK_F16 0xFFCD +#define XK_L6 0xFFCD +#define XK_F17 0xFFCE +#define XK_L7 0xFFCE +#define XK_F18 0xFFCF +#define XK_L8 0xFFCF +#define XK_F19 0xFFD0 +#define XK_L9 0xFFD0 +#define XK_F20 0xFFD1 +#define XK_L10 0xFFD1 +#define XK_F21 0xFFD2 +#define XK_R1 0xFFD2 +#define XK_F22 0xFFD3 +#define XK_R2 0xFFD3 +#define XK_F23 0xFFD4 +#define XK_R3 0xFFD4 +#define XK_F24 0xFFD5 +#define XK_R4 0xFFD5 +#define XK_F25 0xFFD6 +#define XK_R5 0xFFD6 +#define XK_F26 0xFFD7 +#define XK_R6 0xFFD7 +#define XK_F27 0xFFD8 +#define XK_R7 0xFFD8 +#define XK_F28 0xFFD9 +#define XK_R8 0xFFD9 +#define XK_F29 0xFFDA +#define XK_R9 0xFFDA +#define XK_F30 0xFFDB +#define XK_R10 0xFFDB +#define XK_F31 0xFFDC +#define XK_R11 0xFFDC +#define XK_F32 0xFFDD +#define XK_R12 0xFFDD +#define XK_F33 0xFFDE +#define XK_R13 0xFFDE +#define XK_F34 0xFFDF +#define XK_R14 0xFFDF +#define XK_F35 0xFFE0 +#define XK_R15 0xFFE0 + +/* Modifiers */ + +#define XK_Shift_L 0xFFE1 /* Left shift */ +#define XK_Shift_R 0xFFE2 /* Right shift */ +#define XK_Control_L 0xFFE3 /* Left control */ +#define XK_Control_R 0xFFE4 /* Right control */ +#define XK_Caps_Lock 0xFFE5 /* Caps lock */ +#define XK_Shift_Lock 0xFFE6 /* Shift lock */ + +#define XK_Meta_L 0xFFE7 /* Left meta */ +#define XK_Meta_R 0xFFE8 /* Right meta */ +#define XK_Alt_L 0xFFE9 /* Left alt */ +#define XK_Alt_R 0xFFEA /* Right alt */ +#define XK_Super_L 0xFFEB /* Left super */ +#define XK_Super_R 0xFFEC /* Right super */ +#define XK_Hyper_L 0xFFED /* Left hyper */ +#define XK_Hyper_R 0xFFEE /* Right hyper */ +#endif /* XK_MISCELLANY */ + +/* + * Latin 1 + * Byte 3 = 0 + */ +#ifdef XK_LATIN1 +#define XK_space 0x020 +#define XK_exclam 0x021 +#define XK_quotedbl 0x022 +#define XK_numbersign 0x023 +#define XK_dollar 0x024 +#define XK_percent 0x025 +#define XK_ampersand 0x026 +#define XK_apostrophe 0x027 +#define XK_quoteright 0x027 /* deprecated */ +#define XK_parenleft 0x028 +#define XK_parenright 0x029 +#define XK_asterisk 0x02a +#define XK_plus 0x02b +#define XK_comma 0x02c +#define XK_minus 0x02d +#define XK_period 0x02e +#define XK_slash 0x02f +#define XK_0 0x030 +#define XK_1 0x031 +#define XK_2 0x032 +#define XK_3 0x033 +#define XK_4 0x034 +#define XK_5 0x035 +#define XK_6 0x036 +#define XK_7 0x037 +#define XK_8 0x038 +#define XK_9 0x039 +#define XK_colon 0x03a +#define XK_semicolon 0x03b +#define XK_less 0x03c +#define XK_equal 0x03d +#define XK_greater 0x03e +#define XK_question 0x03f +#define XK_at 0x040 +#define XK_A 0x041 +#define XK_B 0x042 +#define XK_C 0x043 +#define XK_D 0x044 +#define XK_E 0x045 +#define XK_F 0x046 +#define XK_G 0x047 +#define XK_H 0x048 +#define XK_I 0x049 +#define XK_J 0x04a +#define XK_K 0x04b +#define XK_L 0x04c +#define XK_M 0x04d +#define XK_N 0x04e +#define XK_O 0x04f +#define XK_P 0x050 +#define XK_Q 0x051 +#define XK_R 0x052 +#define XK_S 0x053 +#define XK_T 0x054 +#define XK_U 0x055 +#define XK_V 0x056 +#define XK_W 0x057 +#define XK_X 0x058 +#define XK_Y 0x059 +#define XK_Z 0x05a +#define XK_bracketleft 0x05b +#define XK_backslash 0x05c +#define XK_bracketright 0x05d +#define XK_asciicircum 0x05e +#define XK_underscore 0x05f +#define XK_grave 0x060 +#define XK_quoteleft 0x060 /* deprecated */ +#define XK_a 0x061 +#define XK_b 0x062 +#define XK_c 0x063 +#define XK_d 0x064 +#define XK_e 0x065 +#define XK_f 0x066 +#define XK_g 0x067 +#define XK_h 0x068 +#define XK_i 0x069 +#define XK_j 0x06a +#define XK_k 0x06b +#define XK_l 0x06c +#define XK_m 0x06d +#define XK_n 0x06e +#define XK_o 0x06f +#define XK_p 0x070 +#define XK_q 0x071 +#define XK_r 0x072 +#define XK_s 0x073 +#define XK_t 0x074 +#define XK_u 0x075 +#define XK_v 0x076 +#define XK_w 0x077 +#define XK_x 0x078 +#define XK_y 0x079 +#define XK_z 0x07a +#define XK_braceleft 0x07b +#define XK_bar 0x07c +#define XK_braceright 0x07d +#define XK_asciitilde 0x07e + +#define XK_nobreakspace 0x0a0 +#define XK_exclamdown 0x0a1 +#define XK_cent 0x0a2 +#define XK_sterling 0x0a3 +#define XK_currency 0x0a4 +#define XK_yen 0x0a5 +#define XK_brokenbar 0x0a6 +#define XK_section 0x0a7 +#define XK_diaeresis 0x0a8 +#define XK_copyright 0x0a9 +#define XK_ordfeminine 0x0aa +#define XK_guillemotleft 0x0ab /* left angle quotation mark */ +#define XK_notsign 0x0ac +#define XK_hyphen 0x0ad +#define XK_registered 0x0ae +#define XK_macron 0x0af +#define XK_degree 0x0b0 +#define XK_plusminus 0x0b1 +#define XK_twosuperior 0x0b2 +#define XK_threesuperior 0x0b3 +#define XK_acute 0x0b4 +#define XK_mu 0x0b5 +#define XK_paragraph 0x0b6 +#define XK_periodcentered 0x0b7 +#define XK_cedilla 0x0b8 +#define XK_onesuperior 0x0b9 +#define XK_masculine 0x0ba +#define XK_guillemotright 0x0bb /* right angle quotation mark */ +#define XK_onequarter 0x0bc +#define XK_onehalf 0x0bd +#define XK_threequarters 0x0be +#define XK_questiondown 0x0bf +#define XK_Agrave 0x0c0 +#define XK_Aacute 0x0c1 +#define XK_Acircumflex 0x0c2 +#define XK_Atilde 0x0c3 +#define XK_Adiaeresis 0x0c4 +#define XK_Aring 0x0c5 +#define XK_AE 0x0c6 +#define XK_Ccedilla 0x0c7 +#define XK_Egrave 0x0c8 +#define XK_Eacute 0x0c9 +#define XK_Ecircumflex 0x0ca +#define XK_Ediaeresis 0x0cb +#define XK_Igrave 0x0cc +#define XK_Iacute 0x0cd +#define XK_Icircumflex 0x0ce +#define XK_Idiaeresis 0x0cf +#define XK_ETH 0x0d0 +#define XK_Eth 0x0d0 /* deprecated */ +#define XK_Ntilde 0x0d1 +#define XK_Ograve 0x0d2 +#define XK_Oacute 0x0d3 +#define XK_Ocircumflex 0x0d4 +#define XK_Otilde 0x0d5 +#define XK_Odiaeresis 0x0d6 +#define XK_multiply 0x0d7 +#define XK_Ooblique 0x0d8 +#define XK_Ugrave 0x0d9 +#define XK_Uacute 0x0da +#define XK_Ucircumflex 0x0db +#define XK_Udiaeresis 0x0dc +#define XK_Yacute 0x0dd +#define XK_THORN 0x0de +#define XK_Thorn 0x0de /* deprecated */ +#define XK_ssharp 0x0df +#define XK_agrave 0x0e0 +#define XK_aacute 0x0e1 +#define XK_acircumflex 0x0e2 +#define XK_atilde 0x0e3 +#define XK_adiaeresis 0x0e4 +#define XK_aring 0x0e5 +#define XK_ae 0x0e6 +#define XK_ccedilla 0x0e7 +#define XK_egrave 0x0e8 +#define XK_eacute 0x0e9 +#define XK_ecircumflex 0x0ea +#define XK_ediaeresis 0x0eb +#define XK_igrave 0x0ec +#define XK_iacute 0x0ed +#define XK_icircumflex 0x0ee +#define XK_idiaeresis 0x0ef +#define XK_eth 0x0f0 +#define XK_ntilde 0x0f1 +#define XK_ograve 0x0f2 +#define XK_oacute 0x0f3 +#define XK_ocircumflex 0x0f4 +#define XK_otilde 0x0f5 +#define XK_odiaeresis 0x0f6 +#define XK_division 0x0f7 +#define XK_oslash 0x0f8 +#define XK_ugrave 0x0f9 +#define XK_uacute 0x0fa +#define XK_ucircumflex 0x0fb +#define XK_udiaeresis 0x0fc +#define XK_yacute 0x0fd +#define XK_thorn 0x0fe +#define XK_ydiaeresis 0x0ff +#endif /* XK_LATIN1 */ + +/* + * Latin 2 + * Byte 3 = 1 + */ + +#ifdef XK_LATIN2 +#define XK_Aogonek 0x1a1 +#define XK_breve 0x1a2 +#define XK_Lstroke 0x1a3 +#define XK_Lcaron 0x1a5 +#define XK_Sacute 0x1a6 +#define XK_Scaron 0x1a9 +#define XK_Scedilla 0x1aa +#define XK_Tcaron 0x1ab +#define XK_Zacute 0x1ac +#define XK_Zcaron 0x1ae +#define XK_Zabovedot 0x1af +#define XK_aogonek 0x1b1 +#define XK_ogonek 0x1b2 +#define XK_lstroke 0x1b3 +#define XK_lcaron 0x1b5 +#define XK_sacute 0x1b6 +#define XK_caron 0x1b7 +#define XK_scaron 0x1b9 +#define XK_scedilla 0x1ba +#define XK_tcaron 0x1bb +#define XK_zacute 0x1bc +#define XK_doubleacute 0x1bd +#define XK_zcaron 0x1be +#define XK_zabovedot 0x1bf +#define XK_Racute 0x1c0 +#define XK_Abreve 0x1c3 +#define XK_Lacute 0x1c5 +#define XK_Cacute 0x1c6 +#define XK_Ccaron 0x1c8 +#define XK_Eogonek 0x1ca +#define XK_Ecaron 0x1cc +#define XK_Dcaron 0x1cf +#define XK_Dstroke 0x1d0 +#define XK_Nacute 0x1d1 +#define XK_Ncaron 0x1d2 +#define XK_Odoubleacute 0x1d5 +#define XK_Rcaron 0x1d8 +#define XK_Uring 0x1d9 +#define XK_Udoubleacute 0x1db +#define XK_Tcedilla 0x1de +#define XK_racute 0x1e0 +#define XK_abreve 0x1e3 +#define XK_lacute 0x1e5 +#define XK_cacute 0x1e6 +#define XK_ccaron 0x1e8 +#define XK_eogonek 0x1ea +#define XK_ecaron 0x1ec +#define XK_dcaron 0x1ef +#define XK_dstroke 0x1f0 +#define XK_nacute 0x1f1 +#define XK_ncaron 0x1f2 +#define XK_odoubleacute 0x1f5 +#define XK_udoubleacute 0x1fb +#define XK_rcaron 0x1f8 +#define XK_uring 0x1f9 +#define XK_tcedilla 0x1fe +#define XK_abovedot 0x1ff +#endif /* XK_LATIN2 */ + +/* + * Latin 3 + * Byte 3 = 2 + */ + +#ifdef XK_LATIN3 +#define XK_Hstroke 0x2a1 +#define XK_Hcircumflex 0x2a6 +#define XK_Iabovedot 0x2a9 +#define XK_Gbreve 0x2ab +#define XK_Jcircumflex 0x2ac +#define XK_hstroke 0x2b1 +#define XK_hcircumflex 0x2b6 +#define XK_idotless 0x2b9 +#define XK_gbreve 0x2bb +#define XK_jcircumflex 0x2bc +#define XK_Cabovedot 0x2c5 +#define XK_Ccircumflex 0x2c6 +#define XK_Gabovedot 0x2d5 +#define XK_Gcircumflex 0x2d8 +#define XK_Ubreve 0x2dd +#define XK_Scircumflex 0x2de +#define XK_cabovedot 0x2e5 +#define XK_ccircumflex 0x2e6 +#define XK_gabovedot 0x2f5 +#define XK_gcircumflex 0x2f8 +#define XK_ubreve 0x2fd +#define XK_scircumflex 0x2fe +#endif /* XK_LATIN3 */ + + +/* + * Latin 4 + * Byte 3 = 3 + */ + +#ifdef XK_LATIN4 +#define XK_kra 0x3a2 +#define XK_kappa 0x3a2 /* deprecated */ +#define XK_Rcedilla 0x3a3 +#define XK_Itilde 0x3a5 +#define XK_Lcedilla 0x3a6 +#define XK_Emacron 0x3aa +#define XK_Gcedilla 0x3ab +#define XK_Tslash 0x3ac +#define XK_rcedilla 0x3b3 +#define XK_itilde 0x3b5 +#define XK_lcedilla 0x3b6 +#define XK_emacron 0x3ba +#define XK_gcedilla 0x3bb +#define XK_tslash 0x3bc +#define XK_ENG 0x3bd +#define XK_eng 0x3bf +#define XK_Amacron 0x3c0 +#define XK_Iogonek 0x3c7 +#define XK_Eabovedot 0x3cc +#define XK_Imacron 0x3cf +#define XK_Ncedilla 0x3d1 +#define XK_Omacron 0x3d2 +#define XK_Kcedilla 0x3d3 +#define XK_Uogonek 0x3d9 +#define XK_Utilde 0x3dd +#define XK_Umacron 0x3de +#define XK_amacron 0x3e0 +#define XK_iogonek 0x3e7 +#define XK_eabovedot 0x3ec +#define XK_imacron 0x3ef +#define XK_ncedilla 0x3f1 +#define XK_omacron 0x3f2 +#define XK_kcedilla 0x3f3 +#define XK_uogonek 0x3f9 +#define XK_utilde 0x3fd +#define XK_umacron 0x3fe +#endif /* XK_LATIN4 */ + +/* + * Katakana + * Byte 3 = 4 + */ + +#ifdef XK_KATAKANA +#define XK_overline 0x47e +#define XK_kana_fullstop 0x4a1 +#define XK_kana_openingbracket 0x4a2 +#define XK_kana_closingbracket 0x4a3 +#define XK_kana_comma 0x4a4 +#define XK_kana_conjunctive 0x4a5 +#define XK_kana_middledot 0x4a5 /* deprecated */ +#define XK_kana_WO 0x4a6 +#define XK_kana_a 0x4a7 +#define XK_kana_i 0x4a8 +#define XK_kana_u 0x4a9 +#define XK_kana_e 0x4aa +#define XK_kana_o 0x4ab +#define XK_kana_ya 0x4ac +#define XK_kana_yu 0x4ad +#define XK_kana_yo 0x4ae +#define XK_kana_tsu 0x4af +#define XK_kana_tu 0x4af /* deprecated */ +#define XK_prolongedsound 0x4b0 +#define XK_kana_A 0x4b1 +#define XK_kana_I 0x4b2 +#define XK_kana_U 0x4b3 +#define XK_kana_E 0x4b4 +#define XK_kana_O 0x4b5 +#define XK_kana_KA 0x4b6 +#define XK_kana_KI 0x4b7 +#define XK_kana_KU 0x4b8 +#define XK_kana_KE 0x4b9 +#define XK_kana_KO 0x4ba +#define XK_kana_SA 0x4bb +#define XK_kana_SHI 0x4bc +#define XK_kana_SU 0x4bd +#define XK_kana_SE 0x4be +#define XK_kana_SO 0x4bf +#define XK_kana_TA 0x4c0 +#define XK_kana_CHI 0x4c1 +#define XK_kana_TI 0x4c1 /* deprecated */ +#define XK_kana_TSU 0x4c2 +#define XK_kana_TU 0x4c2 /* deprecated */ +#define XK_kana_TE 0x4c3 +#define XK_kana_TO 0x4c4 +#define XK_kana_NA 0x4c5 +#define XK_kana_NI 0x4c6 +#define XK_kana_NU 0x4c7 +#define XK_kana_NE 0x4c8 +#define XK_kana_NO 0x4c9 +#define XK_kana_HA 0x4ca +#define XK_kana_HI 0x4cb +#define XK_kana_FU 0x4cc +#define XK_kana_HU 0x4cc /* deprecated */ +#define XK_kana_HE 0x4cd +#define XK_kana_HO 0x4ce +#define XK_kana_MA 0x4cf +#define XK_kana_MI 0x4d0 +#define XK_kana_MU 0x4d1 +#define XK_kana_ME 0x4d2 +#define XK_kana_MO 0x4d3 +#define XK_kana_YA 0x4d4 +#define XK_kana_YU 0x4d5 +#define XK_kana_YO 0x4d6 +#define XK_kana_RA 0x4d7 +#define XK_kana_RI 0x4d8 +#define XK_kana_RU 0x4d9 +#define XK_kana_RE 0x4da +#define XK_kana_RO 0x4db +#define XK_kana_WA 0x4dc +#define XK_kana_N 0x4dd +#define XK_voicedsound 0x4de +#define XK_semivoicedsound 0x4df +#define XK_kana_switch 0xFF7E /* Alias for mode_switch */ +#endif /* XK_KATAKANA */ + +/* + * Arabic + * Byte 3 = 5 + */ + +#ifdef XK_ARABIC +#define XK_Arabic_comma 0x5ac +#define XK_Arabic_semicolon 0x5bb +#define XK_Arabic_question_mark 0x5bf +#define XK_Arabic_hamza 0x5c1 +#define XK_Arabic_maddaonalef 0x5c2 +#define XK_Arabic_hamzaonalef 0x5c3 +#define XK_Arabic_hamzaonwaw 0x5c4 +#define XK_Arabic_hamzaunderalef 0x5c5 +#define XK_Arabic_hamzaonyeh 0x5c6 +#define XK_Arabic_alef 0x5c7 +#define XK_Arabic_beh 0x5c8 +#define XK_Arabic_tehmarbuta 0x5c9 +#define XK_Arabic_teh 0x5ca +#define XK_Arabic_theh 0x5cb +#define XK_Arabic_jeem 0x5cc +#define XK_Arabic_hah 0x5cd +#define XK_Arabic_khah 0x5ce +#define XK_Arabic_dal 0x5cf +#define XK_Arabic_thal 0x5d0 +#define XK_Arabic_ra 0x5d1 +#define XK_Arabic_zain 0x5d2 +#define XK_Arabic_seen 0x5d3 +#define XK_Arabic_sheen 0x5d4 +#define XK_Arabic_sad 0x5d5 +#define XK_Arabic_dad 0x5d6 +#define XK_Arabic_tah 0x5d7 +#define XK_Arabic_zah 0x5d8 +#define XK_Arabic_ain 0x5d9 +#define XK_Arabic_ghain 0x5da +#define XK_Arabic_tatweel 0x5e0 +#define XK_Arabic_feh 0x5e1 +#define XK_Arabic_qaf 0x5e2 +#define XK_Arabic_kaf 0x5e3 +#define XK_Arabic_lam 0x5e4 +#define XK_Arabic_meem 0x5e5 +#define XK_Arabic_noon 0x5e6 +#define XK_Arabic_ha 0x5e7 +#define XK_Arabic_heh 0x5e7 /* deprecated */ +#define XK_Arabic_waw 0x5e8 +#define XK_Arabic_alefmaksura 0x5e9 +#define XK_Arabic_yeh 0x5ea +#define XK_Arabic_fathatan 0x5eb +#define XK_Arabic_dammatan 0x5ec +#define XK_Arabic_kasratan 0x5ed +#define XK_Arabic_fatha 0x5ee +#define XK_Arabic_damma 0x5ef +#define XK_Arabic_kasra 0x5f0 +#define XK_Arabic_shadda 0x5f1 +#define XK_Arabic_sukun 0x5f2 +#define XK_Arabic_switch 0xFF7E /* Alias for mode_switch */ +#endif /* XK_ARABIC */ + +/* + * Cyrillic + * Byte 3 = 6 + */ +#ifdef XK_CYRILLIC +#define XK_Serbian_dje 0x6a1 +#define XK_Macedonia_gje 0x6a2 +#define XK_Cyrillic_io 0x6a3 +#define XK_Ukrainian_ie 0x6a4 +#define XK_Ukranian_je 0x6a4 /* deprecated */ +#define XK_Macedonia_dse 0x6a5 +#define XK_Ukrainian_i 0x6a6 +#define XK_Ukranian_i 0x6a6 /* deprecated */ +#define XK_Ukrainian_yi 0x6a7 +#define XK_Ukranian_yi 0x6a7 /* deprecated */ +#define XK_Cyrillic_je 0x6a8 +#define XK_Serbian_je 0x6a8 /* deprecated */ +#define XK_Cyrillic_lje 0x6a9 +#define XK_Serbian_lje 0x6a9 /* deprecated */ +#define XK_Cyrillic_nje 0x6aa +#define XK_Serbian_nje 0x6aa /* deprecated */ +#define XK_Serbian_tshe 0x6ab +#define XK_Macedonia_kje 0x6ac +#define XK_Byelorussian_shortu 0x6ae +#define XK_Cyrillic_dzhe 0x6af +#define XK_Serbian_dze 0x6af /* deprecated */ +#define XK_numerosign 0x6b0 +#define XK_Serbian_DJE 0x6b1 +#define XK_Macedonia_GJE 0x6b2 +#define XK_Cyrillic_IO 0x6b3 +#define XK_Ukrainian_IE 0x6b4 +#define XK_Ukranian_JE 0x6b4 /* deprecated */ +#define XK_Macedonia_DSE 0x6b5 +#define XK_Ukrainian_I 0x6b6 +#define XK_Ukranian_I 0x6b6 /* deprecated */ +#define XK_Ukrainian_YI 0x6b7 +#define XK_Ukranian_YI 0x6b7 /* deprecated */ +#define XK_Cyrillic_JE 0x6b8 +#define XK_Serbian_JE 0x6b8 /* deprecated */ +#define XK_Cyrillic_LJE 0x6b9 +#define XK_Serbian_LJE 0x6b9 /* deprecated */ +#define XK_Cyrillic_NJE 0x6ba +#define XK_Serbian_NJE 0x6ba /* deprecated */ +#define XK_Serbian_TSHE 0x6bb +#define XK_Macedonia_KJE 0x6bc +#define XK_Byelorussian_SHORTU 0x6be +#define XK_Cyrillic_DZHE 0x6bf +#define XK_Serbian_DZE 0x6bf /* deprecated */ +#define XK_Cyrillic_yu 0x6c0 +#define XK_Cyrillic_a 0x6c1 +#define XK_Cyrillic_be 0x6c2 +#define XK_Cyrillic_tse 0x6c3 +#define XK_Cyrillic_de 0x6c4 +#define XK_Cyrillic_ie 0x6c5 +#define XK_Cyrillic_ef 0x6c6 +#define XK_Cyrillic_ghe 0x6c7 +#define XK_Cyrillic_ha 0x6c8 +#define XK_Cyrillic_i 0x6c9 +#define XK_Cyrillic_shorti 0x6ca +#define XK_Cyrillic_ka 0x6cb +#define XK_Cyrillic_el 0x6cc +#define XK_Cyrillic_em 0x6cd +#define XK_Cyrillic_en 0x6ce +#define XK_Cyrillic_o 0x6cf +#define XK_Cyrillic_pe 0x6d0 +#define XK_Cyrillic_ya 0x6d1 +#define XK_Cyrillic_er 0x6d2 +#define XK_Cyrillic_es 0x6d3 +#define XK_Cyrillic_te 0x6d4 +#define XK_Cyrillic_u 0x6d5 +#define XK_Cyrillic_zhe 0x6d6 +#define XK_Cyrillic_ve 0x6d7 +#define XK_Cyrillic_softsign 0x6d8 +#define XK_Cyrillic_yeru 0x6d9 +#define XK_Cyrillic_ze 0x6da +#define XK_Cyrillic_sha 0x6db +#define XK_Cyrillic_e 0x6dc +#define XK_Cyrillic_shcha 0x6dd +#define XK_Cyrillic_che 0x6de +#define XK_Cyrillic_hardsign 0x6df +#define XK_Cyrillic_YU 0x6e0 +#define XK_Cyrillic_A 0x6e1 +#define XK_Cyrillic_BE 0x6e2 +#define XK_Cyrillic_TSE 0x6e3 +#define XK_Cyrillic_DE 0x6e4 +#define XK_Cyrillic_IE 0x6e5 +#define XK_Cyrillic_EF 0x6e6 +#define XK_Cyrillic_GHE 0x6e7 +#define XK_Cyrillic_HA 0x6e8 +#define XK_Cyrillic_I 0x6e9 +#define XK_Cyrillic_SHORTI 0x6ea +#define XK_Cyrillic_KA 0x6eb +#define XK_Cyrillic_EL 0x6ec +#define XK_Cyrillic_EM 0x6ed +#define XK_Cyrillic_EN 0x6ee +#define XK_Cyrillic_O 0x6ef +#define XK_Cyrillic_PE 0x6f0 +#define XK_Cyrillic_YA 0x6f1 +#define XK_Cyrillic_ER 0x6f2 +#define XK_Cyrillic_ES 0x6f3 +#define XK_Cyrillic_TE 0x6f4 +#define XK_Cyrillic_U 0x6f5 +#define XK_Cyrillic_ZHE 0x6f6 +#define XK_Cyrillic_VE 0x6f7 +#define XK_Cyrillic_SOFTSIGN 0x6f8 +#define XK_Cyrillic_YERU 0x6f9 +#define XK_Cyrillic_ZE 0x6fa +#define XK_Cyrillic_SHA 0x6fb +#define XK_Cyrillic_E 0x6fc +#define XK_Cyrillic_SHCHA 0x6fd +#define XK_Cyrillic_CHE 0x6fe +#define XK_Cyrillic_HARDSIGN 0x6ff +#endif /* XK_CYRILLIC */ + +/* + * Greek + * Byte 3 = 7 + */ + +#ifdef XK_GREEK +#define XK_Greek_ALPHAaccent 0x7a1 +#define XK_Greek_EPSILONaccent 0x7a2 +#define XK_Greek_ETAaccent 0x7a3 +#define XK_Greek_IOTAaccent 0x7a4 +#define XK_Greek_IOTAdiaeresis 0x7a5 +#define XK_Greek_OMICRONaccent 0x7a7 +#define XK_Greek_UPSILONaccent 0x7a8 +#define XK_Greek_UPSILONdieresis 0x7a9 +#define XK_Greek_OMEGAaccent 0x7ab +#define XK_Greek_accentdieresis 0x7ae +#define XK_Greek_horizbar 0x7af +#define XK_Greek_alphaaccent 0x7b1 +#define XK_Greek_epsilonaccent 0x7b2 +#define XK_Greek_etaaccent 0x7b3 +#define XK_Greek_iotaaccent 0x7b4 +#define XK_Greek_iotadieresis 0x7b5 +#define XK_Greek_iotaaccentdieresis 0x7b6 +#define XK_Greek_omicronaccent 0x7b7 +#define XK_Greek_upsilonaccent 0x7b8 +#define XK_Greek_upsilondieresis 0x7b9 +#define XK_Greek_upsilonaccentdieresis 0x7ba +#define XK_Greek_omegaaccent 0x7bb +#define XK_Greek_ALPHA 0x7c1 +#define XK_Greek_BETA 0x7c2 +#define XK_Greek_GAMMA 0x7c3 +#define XK_Greek_DELTA 0x7c4 +#define XK_Greek_EPSILON 0x7c5 +#define XK_Greek_ZETA 0x7c6 +#define XK_Greek_ETA 0x7c7 +#define XK_Greek_THETA 0x7c8 +#define XK_Greek_IOTA 0x7c9 +#define XK_Greek_KAPPA 0x7ca +#define XK_Greek_LAMDA 0x7cb +#define XK_Greek_LAMBDA 0x7cb +#define XK_Greek_MU 0x7cc +#define XK_Greek_NU 0x7cd +#define XK_Greek_XI 0x7ce +#define XK_Greek_OMICRON 0x7cf +#define XK_Greek_PI 0x7d0 +#define XK_Greek_RHO 0x7d1 +#define XK_Greek_SIGMA 0x7d2 +#define XK_Greek_TAU 0x7d4 +#define XK_Greek_UPSILON 0x7d5 +#define XK_Greek_PHI 0x7d6 +#define XK_Greek_CHI 0x7d7 +#define XK_Greek_PSI 0x7d8 +#define XK_Greek_OMEGA 0x7d9 +#define XK_Greek_alpha 0x7e1 +#define XK_Greek_beta 0x7e2 +#define XK_Greek_gamma 0x7e3 +#define XK_Greek_delta 0x7e4 +#define XK_Greek_epsilon 0x7e5 +#define XK_Greek_zeta 0x7e6 +#define XK_Greek_eta 0x7e7 +#define XK_Greek_theta 0x7e8 +#define XK_Greek_iota 0x7e9 +#define XK_Greek_kappa 0x7ea +#define XK_Greek_lamda 0x7eb +#define XK_Greek_lambda 0x7eb +#define XK_Greek_mu 0x7ec +#define XK_Greek_nu 0x7ed +#define XK_Greek_xi 0x7ee +#define XK_Greek_omicron 0x7ef +#define XK_Greek_pi 0x7f0 +#define XK_Greek_rho 0x7f1 +#define XK_Greek_sigma 0x7f2 +#define XK_Greek_finalsmallsigma 0x7f3 +#define XK_Greek_tau 0x7f4 +#define XK_Greek_upsilon 0x7f5 +#define XK_Greek_phi 0x7f6 +#define XK_Greek_chi 0x7f7 +#define XK_Greek_psi 0x7f8 +#define XK_Greek_omega 0x7f9 +#define XK_Greek_switch 0xFF7E /* Alias for mode_switch */ +#endif /* XK_GREEK */ + +/* + * Technical + * Byte 3 = 8 + */ + +#ifdef XK_TECHNICAL +#define XK_leftradical 0x8a1 +#define XK_topleftradical 0x8a2 +#define XK_horizconnector 0x8a3 +#define XK_topintegral 0x8a4 +#define XK_botintegral 0x8a5 +#define XK_vertconnector 0x8a6 +#define XK_topleftsqbracket 0x8a7 +#define XK_botleftsqbracket 0x8a8 +#define XK_toprightsqbracket 0x8a9 +#define XK_botrightsqbracket 0x8aa +#define XK_topleftparens 0x8ab +#define XK_botleftparens 0x8ac +#define XK_toprightparens 0x8ad +#define XK_botrightparens 0x8ae +#define XK_leftmiddlecurlybrace 0x8af +#define XK_rightmiddlecurlybrace 0x8b0 +#define XK_topleftsummation 0x8b1 +#define XK_botleftsummation 0x8b2 +#define XK_topvertsummationconnector 0x8b3 +#define XK_botvertsummationconnector 0x8b4 +#define XK_toprightsummation 0x8b5 +#define XK_botrightsummation 0x8b6 +#define XK_rightmiddlesummation 0x8b7 +#define XK_lessthanequal 0x8bc +#define XK_notequal 0x8bd +#define XK_greaterthanequal 0x8be +#define XK_integral 0x8bf +#define XK_therefore 0x8c0 +#define XK_variation 0x8c1 +#define XK_infinity 0x8c2 +#define XK_nabla 0x8c5 +#define XK_approximate 0x8c8 +#define XK_similarequal 0x8c9 +#define XK_ifonlyif 0x8cd +#define XK_implies 0x8ce +#define XK_identical 0x8cf +#define XK_radical 0x8d6 +#define XK_includedin 0x8da +#define XK_includes 0x8db +#define XK_intersection 0x8dc +#define XK_union 0x8dd +#define XK_logicaland 0x8de +#define XK_logicalor 0x8df +#define XK_partialderivative 0x8ef +#define XK_function 0x8f6 +#define XK_leftarrow 0x8fb +#define XK_uparrow 0x8fc +#define XK_rightarrow 0x8fd +#define XK_downarrow 0x8fe +#endif /* XK_TECHNICAL */ + +/* + * Special + * Byte 3 = 9 + */ + +#ifdef XK_SPECIAL +#define XK_blank 0x9df +#define XK_soliddiamond 0x9e0 +#define XK_checkerboard 0x9e1 +#define XK_ht 0x9e2 +#define XK_ff 0x9e3 +#define XK_cr 0x9e4 +#define XK_lf 0x9e5 +#define XK_nl 0x9e8 +#define XK_vt 0x9e9 +#define XK_lowrightcorner 0x9ea +#define XK_uprightcorner 0x9eb +#define XK_upleftcorner 0x9ec +#define XK_lowleftcorner 0x9ed +#define XK_crossinglines 0x9ee +#define XK_horizlinescan1 0x9ef +#define XK_horizlinescan3 0x9f0 +#define XK_horizlinescan5 0x9f1 +#define XK_horizlinescan7 0x9f2 +#define XK_horizlinescan9 0x9f3 +#define XK_leftt 0x9f4 +#define XK_rightt 0x9f5 +#define XK_bott 0x9f6 +#define XK_topt 0x9f7 +#define XK_vertbar 0x9f8 +#endif /* XK_SPECIAL */ + +/* + * Publishing + * Byte 3 = a + */ + +#ifdef XK_PUBLISHING +#define XK_emspace 0xaa1 +#define XK_enspace 0xaa2 +#define XK_em3space 0xaa3 +#define XK_em4space 0xaa4 +#define XK_digitspace 0xaa5 +#define XK_punctspace 0xaa6 +#define XK_thinspace 0xaa7 +#define XK_hairspace 0xaa8 +#define XK_emdash 0xaa9 +#define XK_endash 0xaaa +#define XK_signifblank 0xaac +#define XK_ellipsis 0xaae +#define XK_doubbaselinedot 0xaaf +#define XK_onethird 0xab0 +#define XK_twothirds 0xab1 +#define XK_onefifth 0xab2 +#define XK_twofifths 0xab3 +#define XK_threefifths 0xab4 +#define XK_fourfifths 0xab5 +#define XK_onesixth 0xab6 +#define XK_fivesixths 0xab7 +#define XK_careof 0xab8 +#define XK_figdash 0xabb +#define XK_leftanglebracket 0xabc +#define XK_decimalpoint 0xabd +#define XK_rightanglebracket 0xabe +#define XK_marker 0xabf +#define XK_oneeighth 0xac3 +#define XK_threeeighths 0xac4 +#define XK_fiveeighths 0xac5 +#define XK_seveneighths 0xac6 +#define XK_trademark 0xac9 +#define XK_signaturemark 0xaca +#define XK_trademarkincircle 0xacb +#define XK_leftopentriangle 0xacc +#define XK_rightopentriangle 0xacd +#define XK_emopencircle 0xace +#define XK_emopenrectangle 0xacf +#define XK_leftsinglequotemark 0xad0 +#define XK_rightsinglequotemark 0xad1 +#define XK_leftdoublequotemark 0xad2 +#define XK_rightdoublequotemark 0xad3 +#define XK_prescription 0xad4 +#define XK_minutes 0xad6 +#define XK_seconds 0xad7 +#define XK_latincross 0xad9 +#define XK_hexagram 0xada +#define XK_filledrectbullet 0xadb +#define XK_filledlefttribullet 0xadc +#define XK_filledrighttribullet 0xadd +#define XK_emfilledcircle 0xade +#define XK_emfilledrect 0xadf +#define XK_enopencircbullet 0xae0 +#define XK_enopensquarebullet 0xae1 +#define XK_openrectbullet 0xae2 +#define XK_opentribulletup 0xae3 +#define XK_opentribulletdown 0xae4 +#define XK_openstar 0xae5 +#define XK_enfilledcircbullet 0xae6 +#define XK_enfilledsqbullet 0xae7 +#define XK_filledtribulletup 0xae8 +#define XK_filledtribulletdown 0xae9 +#define XK_leftpointer 0xaea +#define XK_rightpointer 0xaeb +#define XK_club 0xaec +#define XK_diamond 0xaed +#define XK_heart 0xaee +#define XK_maltesecross 0xaf0 +#define XK_dagger 0xaf1 +#define XK_doubledagger 0xaf2 +#define XK_checkmark 0xaf3 +#define XK_ballotcross 0xaf4 +#define XK_musicalsharp 0xaf5 +#define XK_musicalflat 0xaf6 +#define XK_malesymbol 0xaf7 +#define XK_femalesymbol 0xaf8 +#define XK_telephone 0xaf9 +#define XK_telephonerecorder 0xafa +#define XK_phonographcopyright 0xafb +#define XK_caret 0xafc +#define XK_singlelowquotemark 0xafd +#define XK_doublelowquotemark 0xafe +#define XK_cursor 0xaff +#endif /* XK_PUBLISHING */ + +/* + * APL + * Byte 3 = b + */ + +#ifdef XK_APL +#define XK_leftcaret 0xba3 +#define XK_rightcaret 0xba6 +#define XK_downcaret 0xba8 +#define XK_upcaret 0xba9 +#define XK_overbar 0xbc0 +#define XK_downtack 0xbc2 +#define XK_upshoe 0xbc3 +#define XK_downstile 0xbc4 +#define XK_underbar 0xbc6 +#define XK_jot 0xbca +#define XK_quad 0xbcc +#define XK_uptack 0xbce +#define XK_circle 0xbcf +#define XK_upstile 0xbd3 +#define XK_downshoe 0xbd6 +#define XK_rightshoe 0xbd8 +#define XK_leftshoe 0xbda +#define XK_lefttack 0xbdc +#define XK_righttack 0xbfc +#endif /* XK_APL */ + +/* + * Hebrew + * Byte 3 = c + */ + +#ifdef XK_HEBREW +#define XK_hebrew_doublelowline 0xcdf +#define XK_hebrew_aleph 0xce0 +#define XK_hebrew_bet 0xce1 +#define XK_hebrew_beth 0xce1 /* deprecated */ +#define XK_hebrew_gimel 0xce2 +#define XK_hebrew_gimmel 0xce2 /* deprecated */ +#define XK_hebrew_dalet 0xce3 +#define XK_hebrew_daleth 0xce3 /* deprecated */ +#define XK_hebrew_he 0xce4 +#define XK_hebrew_waw 0xce5 +#define XK_hebrew_zain 0xce6 +#define XK_hebrew_zayin 0xce6 /* deprecated */ +#define XK_hebrew_chet 0xce7 +#define XK_hebrew_het 0xce7 /* deprecated */ +#define XK_hebrew_tet 0xce8 +#define XK_hebrew_teth 0xce8 /* deprecated */ +#define XK_hebrew_yod 0xce9 +#define XK_hebrew_finalkaph 0xcea +#define XK_hebrew_kaph 0xceb +#define XK_hebrew_lamed 0xcec +#define XK_hebrew_finalmem 0xced +#define XK_hebrew_mem 0xcee +#define XK_hebrew_finalnun 0xcef +#define XK_hebrew_nun 0xcf0 +#define XK_hebrew_samech 0xcf1 +#define XK_hebrew_samekh 0xcf1 /* deprecated */ +#define XK_hebrew_ayin 0xcf2 +#define XK_hebrew_finalpe 0xcf3 +#define XK_hebrew_pe 0xcf4 +#define XK_hebrew_finalzade 0xcf5 +#define XK_hebrew_finalzadi 0xcf5 /* deprecated */ +#define XK_hebrew_zade 0xcf6 +#define XK_hebrew_zadi 0xcf6 /* deprecated */ +#define XK_hebrew_qoph 0xcf7 +#define XK_hebrew_kuf 0xcf7 /* deprecated */ +#define XK_hebrew_resh 0xcf8 +#define XK_hebrew_shin 0xcf9 +#define XK_hebrew_taw 0xcfa +#define XK_hebrew_taf 0xcfa /* deprecated */ +#define XK_Hebrew_switch 0xFF7E /* Alias for mode_switch */ +#endif /* XK_HEBREW */ + diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/tkIntXlibDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/tkIntXlibDecls.h new file mode 100644 index 00000000..fc12521c --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/X11/tkIntXlibDecls.h @@ -0,0 +1,1806 @@ +/* + * tkIntXlibDecls.h -- + * + * This file contains the declarations for all platform dependent + * unsupported functions that are exported by the Tk library. These + * interfaces are not guaranteed to remain the same between + * versions. Use at your own risk. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + */ + +#ifndef _TKINTXLIBDECLS +#define _TKINTXLIBDECLS + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tkInt.decls script. + */ + +#include "X11/Xutil.h" + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +typedef int (*XAfterFunction) ( /* WARNING, this type not in Xlib spec */ + Display* /* display */ +); + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported function declarations: + */ + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ +/* 0 */ +EXTERN int XSetDashes _ANSI_ARGS_((Display *display, GC gc, + int dash_offset, _Xconst char *dash_list, + int n)); +/* 1 */ +EXTERN XModifierKeymap * XGetModifierMapping _ANSI_ARGS_((Display *d)); +/* 2 */ +EXTERN XImage * XCreateImage _ANSI_ARGS_((Display *d, Visual *v, + unsigned int ui1, int i1, int i2, char *cp, + unsigned int ui2, unsigned int ui3, int i3, + int i4)); +/* 3 */ +EXTERN XImage * XGetImage _ANSI_ARGS_((Display *d, Drawable dr, + int i1, int i2, unsigned int ui1, + unsigned int ui2, unsigned long ul, int i3)); +/* 4 */ +EXTERN char * XGetAtomName _ANSI_ARGS_((Display *d, Atom a)); +/* 5 */ +EXTERN char * XKeysymToString _ANSI_ARGS_((KeySym k)); +/* 6 */ +EXTERN Colormap XCreateColormap _ANSI_ARGS_((Display *d, Window w, + Visual *v, int i)); +/* 7 */ +EXTERN Cursor XCreatePixmapCursor _ANSI_ARGS_((Display *d, + Pixmap p1, Pixmap p2, XColor *x1, XColor *x2, + unsigned int ui1, unsigned int ui2)); +/* 8 */ +EXTERN Cursor XCreateGlyphCursor _ANSI_ARGS_((Display *d, Font f1, + Font f2, unsigned int ui1, unsigned int ui2, + XColor _Xconst *x1, XColor _Xconst *x2)); +/* 9 */ +EXTERN GContext XGContextFromGC _ANSI_ARGS_((GC g)); +/* 10 */ +EXTERN XHostAddress * XListHosts _ANSI_ARGS_((Display *d, int *i, Bool *b)); +/* 11 */ +EXTERN KeySym XKeycodeToKeysym _ANSI_ARGS_((Display *d, + unsigned int k, int i)); +/* 12 */ +EXTERN KeySym XStringToKeysym _ANSI_ARGS_((_Xconst char *c)); +/* 13 */ +EXTERN Window XRootWindow _ANSI_ARGS_((Display *d, int i)); +/* 14 */ +EXTERN XErrorHandler XSetErrorHandler _ANSI_ARGS_((XErrorHandler x)); +/* 15 */ +EXTERN Status XIconifyWindow _ANSI_ARGS_((Display *d, Window w, + int i)); +/* 16 */ +EXTERN Status XWithdrawWindow _ANSI_ARGS_((Display *d, Window w, + int i)); +/* 17 */ +EXTERN Status XGetWMColormapWindows _ANSI_ARGS_((Display *d, + Window w, Window **wpp, int *ip)); +/* 18 */ +EXTERN Status XAllocColor _ANSI_ARGS_((Display *d, Colormap c, + XColor *xp)); +/* 19 */ +EXTERN int XBell _ANSI_ARGS_((Display *d, int i)); +/* 20 */ +EXTERN int XChangeProperty _ANSI_ARGS_((Display *d, Window w, + Atom a1, Atom a2, int i1, int i2, + _Xconst unsigned char *c, int i3)); +/* 21 */ +EXTERN int XChangeWindowAttributes _ANSI_ARGS_((Display *d, + Window w, unsigned long ul, + XSetWindowAttributes *x)); +/* 22 */ +EXTERN int XClearWindow _ANSI_ARGS_((Display *d, Window w)); +/* 23 */ +EXTERN int XConfigureWindow _ANSI_ARGS_((Display *d, Window w, + unsigned int i, XWindowChanges *x)); +/* 24 */ +EXTERN int XCopyArea _ANSI_ARGS_((Display *d, Drawable dr1, + Drawable dr2, GC g, int i1, int i2, + unsigned int ui1, unsigned int ui2, int i3, + int i4)); +/* 25 */ +EXTERN int XCopyPlane _ANSI_ARGS_((Display *d, Drawable dr1, + Drawable dr2, GC g, int i1, int i2, + unsigned int ui1, unsigned int ui2, int i3, + int i4, unsigned long ul)); +/* 26 */ +EXTERN Pixmap XCreateBitmapFromData _ANSI_ARGS_((Display *display, + Drawable d, _Xconst char *data, + unsigned int width, unsigned int height)); +/* 27 */ +EXTERN int XDefineCursor _ANSI_ARGS_((Display *d, Window w, + Cursor c)); +/* 28 */ +EXTERN int XDeleteProperty _ANSI_ARGS_((Display *d, Window w, + Atom a)); +/* 29 */ +EXTERN int XDestroyWindow _ANSI_ARGS_((Display *d, Window w)); +/* 30 */ +EXTERN int XDrawArc _ANSI_ARGS_((Display *d, Drawable dr, GC g, + int i1, int i2, unsigned int ui1, + unsigned int ui2, int i3, int i4)); +/* 31 */ +EXTERN int XDrawLines _ANSI_ARGS_((Display *d, Drawable dr, + GC g, XPoint *x, int i1, int i2)); +/* 32 */ +EXTERN int XDrawRectangle _ANSI_ARGS_((Display *d, Drawable dr, + GC g, int i1, int i2, unsigned int ui1, + unsigned int ui2)); +/* 33 */ +EXTERN int XFillArc _ANSI_ARGS_((Display *d, Drawable dr, GC g, + int i1, int i2, unsigned int ui1, + unsigned int ui2, int i3, int i4)); +/* 34 */ +EXTERN int XFillPolygon _ANSI_ARGS_((Display *d, Drawable dr, + GC g, XPoint *x, int i1, int i2, int i3)); +/* 35 */ +EXTERN int XFillRectangles _ANSI_ARGS_((Display *d, Drawable dr, + GC g, XRectangle *x, int i)); +/* 36 */ +EXTERN int XForceScreenSaver _ANSI_ARGS_((Display *d, int i)); +/* 37 */ +EXTERN int XFreeColormap _ANSI_ARGS_((Display *d, Colormap c)); +/* 38 */ +EXTERN int XFreeColors _ANSI_ARGS_((Display *d, Colormap c, + unsigned long *ulp, int i, unsigned long ul)); +/* 39 */ +EXTERN int XFreeCursor _ANSI_ARGS_((Display *d, Cursor c)); +/* 40 */ +EXTERN int XFreeModifiermap _ANSI_ARGS_((XModifierKeymap *x)); +/* 41 */ +EXTERN Status XGetGeometry _ANSI_ARGS_((Display *d, Drawable dr, + Window *w, int *i1, int *i2, + unsigned int *ui1, unsigned int *ui2, + unsigned int *ui3, unsigned int *ui4)); +/* 42 */ +EXTERN int XGetInputFocus _ANSI_ARGS_((Display *d, Window *w, + int *i)); +/* 43 */ +EXTERN int XGetWindowProperty _ANSI_ARGS_((Display *d, Window w, + Atom a1, long l1, long l2, Bool b, Atom a2, + Atom *ap, int *ip, unsigned long *ulp1, + unsigned long *ulp2, unsigned char **cpp)); +/* 44 */ +EXTERN Status XGetWindowAttributes _ANSI_ARGS_((Display *d, + Window w, XWindowAttributes *x)); +/* 45 */ +EXTERN int XGrabKeyboard _ANSI_ARGS_((Display *d, Window w, + Bool b, int i1, int i2, Time t)); +/* 46 */ +EXTERN int XGrabPointer _ANSI_ARGS_((Display *d, Window w1, + Bool b, unsigned int ui, int i1, int i2, + Window w2, Cursor c, Time t)); +/* 47 */ +EXTERN KeyCode XKeysymToKeycode _ANSI_ARGS_((Display *d, KeySym k)); +/* 48 */ +EXTERN Status XLookupColor _ANSI_ARGS_((Display *d, Colormap c1, + _Xconst char *c2, XColor *x1, XColor *x2)); +/* 49 */ +EXTERN int XMapWindow _ANSI_ARGS_((Display *d, Window w)); +/* 50 */ +EXTERN int XMoveResizeWindow _ANSI_ARGS_((Display *d, Window w, + int i1, int i2, unsigned int ui1, + unsigned int ui2)); +/* 51 */ +EXTERN int XMoveWindow _ANSI_ARGS_((Display *d, Window w, + int i1, int i2)); +/* 52 */ +EXTERN int XNextEvent _ANSI_ARGS_((Display *d, XEvent *x)); +/* 53 */ +EXTERN int XPutBackEvent _ANSI_ARGS_((Display *d, XEvent *x)); +/* 54 */ +EXTERN int XQueryColors _ANSI_ARGS_((Display *d, Colormap c, + XColor *x, int i)); +/* 55 */ +EXTERN Bool XQueryPointer _ANSI_ARGS_((Display *d, Window w1, + Window *w2, Window *w3, int *i1, int *i2, + int *i3, int *i4, unsigned int *ui)); +/* 56 */ +EXTERN Status XQueryTree _ANSI_ARGS_((Display *d, Window w1, + Window *w2, Window *w3, Window **w4, + unsigned int *ui)); +/* 57 */ +EXTERN int XRaiseWindow _ANSI_ARGS_((Display *d, Window w)); +/* 58 */ +EXTERN int XRefreshKeyboardMapping _ANSI_ARGS_(( + XMappingEvent *x)); +/* 59 */ +EXTERN int XResizeWindow _ANSI_ARGS_((Display *d, Window w, + unsigned int ui1, unsigned int ui2)); +/* 60 */ +EXTERN int XSelectInput _ANSI_ARGS_((Display *d, Window w, + long l)); +/* 61 */ +EXTERN Status XSendEvent _ANSI_ARGS_((Display *d, Window w, Bool b, + long l, XEvent *x)); +/* 62 */ +EXTERN int XSetCommand _ANSI_ARGS_((Display *d, Window w, + char **c, int i)); +/* 63 */ +EXTERN int XSetIconName _ANSI_ARGS_((Display *d, Window w, + _Xconst char *c)); +/* 64 */ +EXTERN int XSetInputFocus _ANSI_ARGS_((Display *d, Window w, + int i, Time t)); +/* 65 */ +EXTERN int XSetSelectionOwner _ANSI_ARGS_((Display *d, Atom a, + Window w, Time t)); +/* 66 */ +EXTERN int XSetWindowBackground _ANSI_ARGS_((Display *d, + Window w, unsigned long ul)); +/* 67 */ +EXTERN int XSetWindowBackgroundPixmap _ANSI_ARGS_((Display *d, + Window w, Pixmap p)); +/* 68 */ +EXTERN int XSetWindowBorder _ANSI_ARGS_((Display *d, Window w, + unsigned long ul)); +/* 69 */ +EXTERN int XSetWindowBorderPixmap _ANSI_ARGS_((Display *d, + Window w, Pixmap p)); +/* 70 */ +EXTERN int XSetWindowBorderWidth _ANSI_ARGS_((Display *d, + Window w, unsigned int ui)); +/* 71 */ +EXTERN int XSetWindowColormap _ANSI_ARGS_((Display *d, Window w, + Colormap c)); +/* 72 */ +EXTERN Bool XTranslateCoordinates _ANSI_ARGS_((Display *d, + Window w1, Window w2, int i1, int i2, + int *i3, int *i4, Window *w3)); +/* 73 */ +EXTERN int XUngrabKeyboard _ANSI_ARGS_((Display *d, Time t)); +/* 74 */ +EXTERN int XUngrabPointer _ANSI_ARGS_((Display *d, Time t)); +/* 75 */ +EXTERN int XUnmapWindow _ANSI_ARGS_((Display *d, Window w)); +/* 76 */ +EXTERN int XWindowEvent _ANSI_ARGS_((Display *d, Window w, + long l, XEvent *x)); +/* 77 */ +EXTERN void XDestroyIC _ANSI_ARGS_((XIC x)); +/* 78 */ +EXTERN Bool XFilterEvent _ANSI_ARGS_((XEvent *x, Window w)); +/* 79 */ +EXTERN int XmbLookupString _ANSI_ARGS_((XIC xi, + XKeyPressedEvent *xk, char *c, int i, + KeySym *k, Status *s)); +/* 80 */ +EXTERN int TkPutImage _ANSI_ARGS_((unsigned long *colors, + int ncolors, Display *display, Drawable d, + GC gc, XImage *image, int src_x, int src_y, + int dest_x, int dest_y, unsigned int width, + unsigned int height)); +/* Slot 81 is reserved */ +/* 82 */ +EXTERN Status XParseColor _ANSI_ARGS_((Display *display, + Colormap map, _Xconst char *spec, + XColor *colorPtr)); +/* 83 */ +EXTERN GC XCreateGC _ANSI_ARGS_((Display *display, Drawable d, + unsigned long valuemask, XGCValues *values)); +/* 84 */ +EXTERN int XFreeGC _ANSI_ARGS_((Display *display, GC gc)); +/* 85 */ +EXTERN Atom XInternAtom _ANSI_ARGS_((Display *display, + _Xconst char *atom_name, Bool only_if_exists)); +/* 86 */ +EXTERN int XSetBackground _ANSI_ARGS_((Display *display, GC gc, + unsigned long foreground)); +/* 87 */ +EXTERN int XSetForeground _ANSI_ARGS_((Display *display, GC gc, + unsigned long foreground)); +/* 88 */ +EXTERN int XSetClipMask _ANSI_ARGS_((Display *display, GC gc, + Pixmap pixmap)); +/* 89 */ +EXTERN int XSetClipOrigin _ANSI_ARGS_((Display *display, GC gc, + int clip_x_origin, int clip_y_origin)); +/* 90 */ +EXTERN int XSetTSOrigin _ANSI_ARGS_((Display *display, GC gc, + int ts_x_origin, int ts_y_origin)); +/* 91 */ +EXTERN int XChangeGC _ANSI_ARGS_((Display *d, GC gc, + unsigned long mask, XGCValues *values)); +/* 92 */ +EXTERN int XSetFont _ANSI_ARGS_((Display *display, GC gc, + Font font)); +/* 93 */ +EXTERN int XSetArcMode _ANSI_ARGS_((Display *display, GC gc, + int arc_mode)); +/* 94 */ +EXTERN int XSetStipple _ANSI_ARGS_((Display *display, GC gc, + Pixmap stipple)); +/* 95 */ +EXTERN int XSetFillRule _ANSI_ARGS_((Display *display, GC gc, + int fill_rule)); +/* 96 */ +EXTERN int XSetFillStyle _ANSI_ARGS_((Display *display, GC gc, + int fill_style)); +/* 97 */ +EXTERN int XSetFunction _ANSI_ARGS_((Display *display, GC gc, + int function)); +/* 98 */ +EXTERN int XSetLineAttributes _ANSI_ARGS_((Display *display, + GC gc, unsigned int line_width, + int line_style, int cap_style, + int join_style)); +/* 99 */ +EXTERN int _XInitImageFuncPtrs _ANSI_ARGS_((XImage *image)); +/* 100 */ +EXTERN XIC XCreateIC _ANSI_ARGS_(TCL_VARARGS(XIM,xim)); +/* 101 */ +EXTERN XVisualInfo * XGetVisualInfo _ANSI_ARGS_((Display *display, + long vinfo_mask, XVisualInfo *vinfo_template, + int *nitems_return)); +/* 102 */ +EXTERN void XSetWMClientMachine _ANSI_ARGS_((Display *display, + Window w, XTextProperty *text_prop)); +/* 103 */ +EXTERN Status XStringListToTextProperty _ANSI_ARGS_((char **list, + int count, XTextProperty *text_prop_return)); +/* 104 */ +EXTERN int XDrawLine _ANSI_ARGS_((Display *d, Drawable dr, GC g, + int x1, int y1, int x2, int y2)); +/* 105 */ +EXTERN int XWarpPointer _ANSI_ARGS_((Display *d, Window s, + Window dw, int sx, int sy, unsigned int sw, + unsigned int sh, int dx, int dy)); +/* 106 */ +EXTERN int XFillRectangle _ANSI_ARGS_((Display *display, + Drawable d, GC gc, int x, int y, + unsigned int width, unsigned int height)); +/* 107 */ +EXTERN int XFlush _ANSI_ARGS_((Display *display)); +/* 108 */ +EXTERN int XGrabServer _ANSI_ARGS_((Display *display)); +/* 109 */ +EXTERN int XUngrabServer _ANSI_ARGS_((Display *display)); +/* 110 */ +EXTERN int XFree _ANSI_ARGS_((VOID *data)); +/* 111 */ +EXTERN int XNoOp _ANSI_ARGS_((Display *display)); +/* 112 */ +EXTERN XAfterFunction XSynchronize _ANSI_ARGS_((Display *display, + Bool onoff)); +/* 113 */ +EXTERN int XSync _ANSI_ARGS_((Display *display, Bool discard)); +/* 114 */ +EXTERN VisualID XVisualIDFromVisual _ANSI_ARGS_((Visual *visual)); +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ +/* 0 */ +EXTERN int XSetDashes _ANSI_ARGS_((Display *display, GC gc, + int dash_offset, _Xconst char *dash_list, + int n)); +/* 1 */ +EXTERN XModifierKeymap * XGetModifierMapping _ANSI_ARGS_((Display *d)); +/* 2 */ +EXTERN XImage * XCreateImage _ANSI_ARGS_((Display *d, Visual *v, + unsigned int ui1, int i1, int i2, char *cp, + unsigned int ui2, unsigned int ui3, int i3, + int i4)); +/* 3 */ +EXTERN XImage * XGetImage _ANSI_ARGS_((Display *d, Drawable dr, + int i1, int i2, unsigned int ui1, + unsigned int ui2, unsigned long ul, int i3)); +/* 4 */ +EXTERN char * XGetAtomName _ANSI_ARGS_((Display *d, Atom a)); +/* 5 */ +EXTERN char * XKeysymToString _ANSI_ARGS_((KeySym k)); +/* 6 */ +EXTERN Colormap XCreateColormap _ANSI_ARGS_((Display *d, Window w, + Visual *v, int i)); +/* 7 */ +EXTERN GContext XGContextFromGC _ANSI_ARGS_((GC g)); +/* 8 */ +EXTERN KeySym XKeycodeToKeysym _ANSI_ARGS_((Display *d, KeyCode k, + int i)); +/* 9 */ +EXTERN KeySym XStringToKeysym _ANSI_ARGS_((_Xconst char *c)); +/* 10 */ +EXTERN Window XRootWindow _ANSI_ARGS_((Display *d, int i)); +/* 11 */ +EXTERN XErrorHandler XSetErrorHandler _ANSI_ARGS_((XErrorHandler x)); +/* 12 */ +EXTERN Status XAllocColor _ANSI_ARGS_((Display *d, Colormap c, + XColor *xp)); +/* 13 */ +EXTERN int XBell _ANSI_ARGS_((Display *d, int i)); +/* 14 */ +EXTERN void XChangeProperty _ANSI_ARGS_((Display *d, Window w, + Atom a1, Atom a2, int i1, int i2, + _Xconst unsigned char *c, int i3)); +/* 15 */ +EXTERN void XChangeWindowAttributes _ANSI_ARGS_((Display *d, + Window w, unsigned long ul, + XSetWindowAttributes *x)); +/* 16 */ +EXTERN void XConfigureWindow _ANSI_ARGS_((Display *d, Window w, + unsigned int i, XWindowChanges *x)); +/* 17 */ +EXTERN void XCopyArea _ANSI_ARGS_((Display *d, Drawable dr1, + Drawable dr2, GC g, int i1, int i2, + unsigned int ui1, unsigned int ui2, int i3, + int i4)); +/* 18 */ +EXTERN void XCopyPlane _ANSI_ARGS_((Display *d, Drawable dr1, + Drawable dr2, GC g, int i1, int i2, + unsigned int ui1, unsigned int ui2, int i3, + int i4, unsigned long ul)); +/* 19 */ +EXTERN Pixmap XCreateBitmapFromData _ANSI_ARGS_((Display *display, + Drawable d, _Xconst char *data, + unsigned int width, unsigned int height)); +/* 20 */ +EXTERN int XDefineCursor _ANSI_ARGS_((Display *d, Window w, + Cursor c)); +/* 21 */ +EXTERN void XDestroyWindow _ANSI_ARGS_((Display *d, Window w)); +/* 22 */ +EXTERN void XDrawArc _ANSI_ARGS_((Display *d, Drawable dr, GC g, + int i1, int i2, unsigned int ui1, + unsigned int ui2, int i3, int i4)); +/* 23 */ +EXTERN int XDrawLines _ANSI_ARGS_((Display *d, Drawable dr, + GC g, XPoint *x, int i1, int i2)); +/* 24 */ +EXTERN void XDrawRectangle _ANSI_ARGS_((Display *d, Drawable dr, + GC g, int i1, int i2, unsigned int ui1, + unsigned int ui2)); +/* 25 */ +EXTERN void XFillArc _ANSI_ARGS_((Display *d, Drawable dr, GC g, + int i1, int i2, unsigned int ui1, + unsigned int ui2, int i3, int i4)); +/* 26 */ +EXTERN void XFillPolygon _ANSI_ARGS_((Display *d, Drawable dr, + GC g, XPoint *x, int i1, int i2, int i3)); +/* 27 */ +EXTERN int XFillRectangles _ANSI_ARGS_((Display *d, Drawable dr, + GC g, XRectangle *x, int i)); +/* 28 */ +EXTERN int XFreeColormap _ANSI_ARGS_((Display *d, Colormap c)); +/* 29 */ +EXTERN int XFreeColors _ANSI_ARGS_((Display *d, Colormap c, + unsigned long *ulp, int i, unsigned long ul)); +/* 30 */ +EXTERN int XFreeModifiermap _ANSI_ARGS_((XModifierKeymap *x)); +/* 31 */ +EXTERN Status XGetGeometry _ANSI_ARGS_((Display *d, Drawable dr, + Window *w, int *i1, int *i2, + unsigned int *ui1, unsigned int *ui2, + unsigned int *ui3, unsigned int *ui4)); +/* 32 */ +EXTERN int XGetWindowProperty _ANSI_ARGS_((Display *d, Window w, + Atom a1, long l1, long l2, Bool b, Atom a2, + Atom *ap, int *ip, unsigned long *ulp1, + unsigned long *ulp2, unsigned char **cpp)); +/* 33 */ +EXTERN int XGrabKeyboard _ANSI_ARGS_((Display *d, Window w, + Bool b, int i1, int i2, Time t)); +/* 34 */ +EXTERN int XGrabPointer _ANSI_ARGS_((Display *d, Window w1, + Bool b, unsigned int ui, int i1, int i2, + Window w2, Cursor c, Time t)); +/* 35 */ +EXTERN KeyCode XKeysymToKeycode _ANSI_ARGS_((Display *d, KeySym k)); +/* 36 */ +EXTERN void XMapWindow _ANSI_ARGS_((Display *d, Window w)); +/* 37 */ +EXTERN void XMoveResizeWindow _ANSI_ARGS_((Display *d, Window w, + int i1, int i2, unsigned int ui1, + unsigned int ui2)); +/* 38 */ +EXTERN void XMoveWindow _ANSI_ARGS_((Display *d, Window w, + int i1, int i2)); +/* 39 */ +EXTERN Bool XQueryPointer _ANSI_ARGS_((Display *d, Window w1, + Window *w2, Window *w3, int *i1, int *i2, + int *i3, int *i4, unsigned int *ui)); +/* 40 */ +EXTERN void XRaiseWindow _ANSI_ARGS_((Display *d, Window w)); +/* 41 */ +EXTERN void XRefreshKeyboardMapping _ANSI_ARGS_(( + XMappingEvent *x)); +/* 42 */ +EXTERN void XResizeWindow _ANSI_ARGS_((Display *d, Window w, + unsigned int ui1, unsigned int ui2)); +/* 43 */ +EXTERN void XSelectInput _ANSI_ARGS_((Display *d, Window w, + long l)); +/* 44 */ +EXTERN Status XSendEvent _ANSI_ARGS_((Display *d, Window w, Bool b, + long l, XEvent *x)); +/* 45 */ +EXTERN void XSetIconName _ANSI_ARGS_((Display *d, Window w, + _Xconst char *c)); +/* 46 */ +EXTERN void XSetInputFocus _ANSI_ARGS_((Display *d, Window w, + int i, Time t)); +/* 47 */ +EXTERN int XSetSelectionOwner _ANSI_ARGS_((Display *d, Atom a, + Window w, Time t)); +/* 48 */ +EXTERN void XSetWindowBackground _ANSI_ARGS_((Display *d, + Window w, unsigned long ul)); +/* 49 */ +EXTERN void XSetWindowBackgroundPixmap _ANSI_ARGS_((Display *d, + Window w, Pixmap p)); +/* 50 */ +EXTERN void XSetWindowBorder _ANSI_ARGS_((Display *d, Window w, + unsigned long ul)); +/* 51 */ +EXTERN void XSetWindowBorderPixmap _ANSI_ARGS_((Display *d, + Window w, Pixmap p)); +/* 52 */ +EXTERN void XSetWindowBorderWidth _ANSI_ARGS_((Display *d, + Window w, unsigned int ui)); +/* 53 */ +EXTERN void XSetWindowColormap _ANSI_ARGS_((Display *d, Window w, + Colormap c)); +/* 54 */ +EXTERN void XUngrabKeyboard _ANSI_ARGS_((Display *d, Time t)); +/* 55 */ +EXTERN int XUngrabPointer _ANSI_ARGS_((Display *d, Time t)); +/* 56 */ +EXTERN void XUnmapWindow _ANSI_ARGS_((Display *d, Window w)); +/* 57 */ +EXTERN int TkPutImage _ANSI_ARGS_((unsigned long *colors, + int ncolors, Display *display, Drawable d, + GC gc, XImage *image, int src_x, int src_y, + int dest_x, int dest_y, unsigned int width, + unsigned int height)); +/* 58 */ +EXTERN Status XParseColor _ANSI_ARGS_((Display *display, + Colormap map, _Xconst char *spec, + XColor *colorPtr)); +/* 59 */ +EXTERN GC XCreateGC _ANSI_ARGS_((Display *display, Drawable d, + unsigned long valuemask, XGCValues *values)); +/* 60 */ +EXTERN int XFreeGC _ANSI_ARGS_((Display *display, GC gc)); +/* 61 */ +EXTERN Atom XInternAtom _ANSI_ARGS_((Display *display, + _Xconst char *atom_name, Bool only_if_exists)); +/* 62 */ +EXTERN int XSetBackground _ANSI_ARGS_((Display *display, GC gc, + unsigned long foreground)); +/* 63 */ +EXTERN int XSetForeground _ANSI_ARGS_((Display *display, GC gc, + unsigned long foreground)); +/* 64 */ +EXTERN int XSetClipMask _ANSI_ARGS_((Display *display, GC gc, + Pixmap pixmap)); +/* 65 */ +EXTERN int XSetClipOrigin _ANSI_ARGS_((Display *display, GC gc, + int clip_x_origin, int clip_y_origin)); +/* 66 */ +EXTERN int XSetTSOrigin _ANSI_ARGS_((Display *display, GC gc, + int ts_x_origin, int ts_y_origin)); +/* 67 */ +EXTERN int XChangeGC _ANSI_ARGS_((Display *d, GC gc, + unsigned long mask, XGCValues *values)); +/* 68 */ +EXTERN int XSetFont _ANSI_ARGS_((Display *display, GC gc, + Font font)); +/* 69 */ +EXTERN int XSetArcMode _ANSI_ARGS_((Display *display, GC gc, + int arc_mode)); +/* 70 */ +EXTERN int XSetStipple _ANSI_ARGS_((Display *display, GC gc, + Pixmap stipple)); +/* 71 */ +EXTERN int XSetFillRule _ANSI_ARGS_((Display *display, GC gc, + int fill_rule)); +/* 72 */ +EXTERN int XSetFillStyle _ANSI_ARGS_((Display *display, GC gc, + int fill_style)); +/* 73 */ +EXTERN int XSetFunction _ANSI_ARGS_((Display *display, GC gc, + int function)); +/* 74 */ +EXTERN int XSetLineAttributes _ANSI_ARGS_((Display *display, + GC gc, unsigned int line_width, + int line_style, int cap_style, + int join_style)); +/* 75 */ +EXTERN int _XInitImageFuncPtrs _ANSI_ARGS_((XImage *image)); +/* 76 */ +EXTERN XIC XCreateIC _ANSI_ARGS_((void)); +/* 77 */ +EXTERN XVisualInfo * XGetVisualInfo _ANSI_ARGS_((Display *display, + long vinfo_mask, XVisualInfo *vinfo_template, + int *nitems_return)); +/* 78 */ +EXTERN void XSetWMClientMachine _ANSI_ARGS_((Display *display, + Window w, XTextProperty *text_prop)); +/* 79 */ +EXTERN Status XStringListToTextProperty _ANSI_ARGS_((char **list, + int count, XTextProperty *text_prop_return)); +/* 80 */ +EXTERN void XDrawSegments _ANSI_ARGS_((Display *display, + Drawable d, GC gc, XSegment *segments, + int nsegments)); +/* 81 */ +EXTERN void XForceScreenSaver _ANSI_ARGS_((Display *display, + int mode)); +/* 82 */ +EXTERN int XDrawLine _ANSI_ARGS_((Display *d, Drawable dr, GC g, + int x1, int y1, int x2, int y2)); +/* 83 */ +EXTERN int XFillRectangle _ANSI_ARGS_((Display *display, + Drawable d, GC gc, int x, int y, + unsigned int width, unsigned int height)); +/* 84 */ +EXTERN void XClearWindow _ANSI_ARGS_((Display *d, Window w)); +/* 85 */ +EXTERN void XDrawPoint _ANSI_ARGS_((Display *display, Drawable d, + GC gc, int x, int y)); +/* 86 */ +EXTERN void XDrawPoints _ANSI_ARGS_((Display *display, + Drawable d, GC gc, XPoint *points, + int npoints, int mode)); +/* 87 */ +EXTERN int XWarpPointer _ANSI_ARGS_((Display *display, + Window src_w, Window dest_w, int src_x, + int src_y, unsigned int src_width, + unsigned int src_height, int dest_x, + int dest_y)); +/* 88 */ +EXTERN void XQueryColor _ANSI_ARGS_((Display *display, + Colormap colormap, XColor *def_in_out)); +/* 89 */ +EXTERN void XQueryColors _ANSI_ARGS_((Display *display, + Colormap colormap, XColor *defs_in_out, + int ncolors)); +/* 90 */ +EXTERN Status XQueryTree _ANSI_ARGS_((Display *d, Window w1, + Window *w2, Window *w3, Window **w4, + unsigned int *ui)); +/* 91 */ +EXTERN int XSync _ANSI_ARGS_((Display *display, Bool flag)); +#endif /* AQUA */ + +typedef struct TkIntXlibStubs { + int magic; + struct TkIntXlibStubHooks *hooks; + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ + int (*xSetDashes) _ANSI_ARGS_((Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n)); /* 0 */ + XModifierKeymap * (*xGetModifierMapping) _ANSI_ARGS_((Display *d)); /* 1 */ + XImage * (*xCreateImage) _ANSI_ARGS_((Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4)); /* 2 */ + XImage * (*xGetImage) _ANSI_ARGS_((Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3)); /* 3 */ + char * (*xGetAtomName) _ANSI_ARGS_((Display *d, Atom a)); /* 4 */ + char * (*xKeysymToString) _ANSI_ARGS_((KeySym k)); /* 5 */ + Colormap (*xCreateColormap) _ANSI_ARGS_((Display *d, Window w, Visual *v, int i)); /* 6 */ + Cursor (*xCreatePixmapCursor) _ANSI_ARGS_((Display *d, Pixmap p1, Pixmap p2, XColor *x1, XColor *x2, unsigned int ui1, unsigned int ui2)); /* 7 */ + Cursor (*xCreateGlyphCursor) _ANSI_ARGS_((Display *d, Font f1, Font f2, unsigned int ui1, unsigned int ui2, XColor _Xconst *x1, XColor _Xconst *x2)); /* 8 */ + GContext (*xGContextFromGC) _ANSI_ARGS_((GC g)); /* 9 */ + XHostAddress * (*xListHosts) _ANSI_ARGS_((Display *d, int *i, Bool *b)); /* 10 */ + KeySym (*xKeycodeToKeysym) _ANSI_ARGS_((Display *d, unsigned int k, int i)); /* 11 */ + KeySym (*xStringToKeysym) _ANSI_ARGS_((_Xconst char *c)); /* 12 */ + Window (*xRootWindow) _ANSI_ARGS_((Display *d, int i)); /* 13 */ + XErrorHandler (*xSetErrorHandler) _ANSI_ARGS_((XErrorHandler x)); /* 14 */ + Status (*xIconifyWindow) _ANSI_ARGS_((Display *d, Window w, int i)); /* 15 */ + Status (*xWithdrawWindow) _ANSI_ARGS_((Display *d, Window w, int i)); /* 16 */ + Status (*xGetWMColormapWindows) _ANSI_ARGS_((Display *d, Window w, Window **wpp, int *ip)); /* 17 */ + Status (*xAllocColor) _ANSI_ARGS_((Display *d, Colormap c, XColor *xp)); /* 18 */ + int (*xBell) _ANSI_ARGS_((Display *d, int i)); /* 19 */ + int (*xChangeProperty) _ANSI_ARGS_((Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3)); /* 20 */ + int (*xChangeWindowAttributes) _ANSI_ARGS_((Display *d, Window w, unsigned long ul, XSetWindowAttributes *x)); /* 21 */ + int (*xClearWindow) _ANSI_ARGS_((Display *d, Window w)); /* 22 */ + int (*xConfigureWindow) _ANSI_ARGS_((Display *d, Window w, unsigned int i, XWindowChanges *x)); /* 23 */ + int (*xCopyArea) _ANSI_ARGS_((Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 24 */ + int (*xCopyPlane) _ANSI_ARGS_((Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul)); /* 25 */ + Pixmap (*xCreateBitmapFromData) _ANSI_ARGS_((Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height)); /* 26 */ + int (*xDefineCursor) _ANSI_ARGS_((Display *d, Window w, Cursor c)); /* 27 */ + int (*xDeleteProperty) _ANSI_ARGS_((Display *d, Window w, Atom a)); /* 28 */ + int (*xDestroyWindow) _ANSI_ARGS_((Display *d, Window w)); /* 29 */ + int (*xDrawArc) _ANSI_ARGS_((Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 30 */ + int (*xDrawLines) _ANSI_ARGS_((Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2)); /* 31 */ + int (*xDrawRectangle) _ANSI_ARGS_((Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 32 */ + int (*xFillArc) _ANSI_ARGS_((Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 33 */ + int (*xFillPolygon) _ANSI_ARGS_((Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3)); /* 34 */ + int (*xFillRectangles) _ANSI_ARGS_((Display *d, Drawable dr, GC g, XRectangle *x, int i)); /* 35 */ + int (*xForceScreenSaver) _ANSI_ARGS_((Display *d, int i)); /* 36 */ + int (*xFreeColormap) _ANSI_ARGS_((Display *d, Colormap c)); /* 37 */ + int (*xFreeColors) _ANSI_ARGS_((Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul)); /* 38 */ + int (*xFreeCursor) _ANSI_ARGS_((Display *d, Cursor c)); /* 39 */ + int (*xFreeModifiermap) _ANSI_ARGS_((XModifierKeymap *x)); /* 40 */ + Status (*xGetGeometry) _ANSI_ARGS_((Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4)); /* 41 */ + int (*xGetInputFocus) _ANSI_ARGS_((Display *d, Window *w, int *i)); /* 42 */ + int (*xGetWindowProperty) _ANSI_ARGS_((Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp)); /* 43 */ + Status (*xGetWindowAttributes) _ANSI_ARGS_((Display *d, Window w, XWindowAttributes *x)); /* 44 */ + int (*xGrabKeyboard) _ANSI_ARGS_((Display *d, Window w, Bool b, int i1, int i2, Time t)); /* 45 */ + int (*xGrabPointer) _ANSI_ARGS_((Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t)); /* 46 */ + KeyCode (*xKeysymToKeycode) _ANSI_ARGS_((Display *d, KeySym k)); /* 47 */ + Status (*xLookupColor) _ANSI_ARGS_((Display *d, Colormap c1, _Xconst char *c2, XColor *x1, XColor *x2)); /* 48 */ + int (*xMapWindow) _ANSI_ARGS_((Display *d, Window w)); /* 49 */ + int (*xMoveResizeWindow) _ANSI_ARGS_((Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 50 */ + int (*xMoveWindow) _ANSI_ARGS_((Display *d, Window w, int i1, int i2)); /* 51 */ + int (*xNextEvent) _ANSI_ARGS_((Display *d, XEvent *x)); /* 52 */ + int (*xPutBackEvent) _ANSI_ARGS_((Display *d, XEvent *x)); /* 53 */ + int (*xQueryColors) _ANSI_ARGS_((Display *d, Colormap c, XColor *x, int i)); /* 54 */ + Bool (*xQueryPointer) _ANSI_ARGS_((Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui)); /* 55 */ + Status (*xQueryTree) _ANSI_ARGS_((Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui)); /* 56 */ + int (*xRaiseWindow) _ANSI_ARGS_((Display *d, Window w)); /* 57 */ + int (*xRefreshKeyboardMapping) _ANSI_ARGS_((XMappingEvent *x)); /* 58 */ + int (*xResizeWindow) _ANSI_ARGS_((Display *d, Window w, unsigned int ui1, unsigned int ui2)); /* 59 */ + int (*xSelectInput) _ANSI_ARGS_((Display *d, Window w, long l)); /* 60 */ + Status (*xSendEvent) _ANSI_ARGS_((Display *d, Window w, Bool b, long l, XEvent *x)); /* 61 */ + int (*xSetCommand) _ANSI_ARGS_((Display *d, Window w, char **c, int i)); /* 62 */ + int (*xSetIconName) _ANSI_ARGS_((Display *d, Window w, _Xconst char *c)); /* 63 */ + int (*xSetInputFocus) _ANSI_ARGS_((Display *d, Window w, int i, Time t)); /* 64 */ + int (*xSetSelectionOwner) _ANSI_ARGS_((Display *d, Atom a, Window w, Time t)); /* 65 */ + int (*xSetWindowBackground) _ANSI_ARGS_((Display *d, Window w, unsigned long ul)); /* 66 */ + int (*xSetWindowBackgroundPixmap) _ANSI_ARGS_((Display *d, Window w, Pixmap p)); /* 67 */ + int (*xSetWindowBorder) _ANSI_ARGS_((Display *d, Window w, unsigned long ul)); /* 68 */ + int (*xSetWindowBorderPixmap) _ANSI_ARGS_((Display *d, Window w, Pixmap p)); /* 69 */ + int (*xSetWindowBorderWidth) _ANSI_ARGS_((Display *d, Window w, unsigned int ui)); /* 70 */ + int (*xSetWindowColormap) _ANSI_ARGS_((Display *d, Window w, Colormap c)); /* 71 */ + Bool (*xTranslateCoordinates) _ANSI_ARGS_((Display *d, Window w1, Window w2, int i1, int i2, int *i3, int *i4, Window *w3)); /* 72 */ + int (*xUngrabKeyboard) _ANSI_ARGS_((Display *d, Time t)); /* 73 */ + int (*xUngrabPointer) _ANSI_ARGS_((Display *d, Time t)); /* 74 */ + int (*xUnmapWindow) _ANSI_ARGS_((Display *d, Window w)); /* 75 */ + int (*xWindowEvent) _ANSI_ARGS_((Display *d, Window w, long l, XEvent *x)); /* 76 */ + void (*xDestroyIC) _ANSI_ARGS_((XIC x)); /* 77 */ + Bool (*xFilterEvent) _ANSI_ARGS_((XEvent *x, Window w)); /* 78 */ + int (*xmbLookupString) _ANSI_ARGS_((XIC xi, XKeyPressedEvent *xk, char *c, int i, KeySym *k, Status *s)); /* 79 */ + int (*tkPutImage) _ANSI_ARGS_((unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height)); /* 80 */ + VOID *reserved81; + Status (*xParseColor) _ANSI_ARGS_((Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr)); /* 82 */ + GC (*xCreateGC) _ANSI_ARGS_((Display *display, Drawable d, unsigned long valuemask, XGCValues *values)); /* 83 */ + int (*xFreeGC) _ANSI_ARGS_((Display *display, GC gc)); /* 84 */ + Atom (*xInternAtom) _ANSI_ARGS_((Display *display, _Xconst char *atom_name, Bool only_if_exists)); /* 85 */ + int (*xSetBackground) _ANSI_ARGS_((Display *display, GC gc, unsigned long foreground)); /* 86 */ + int (*xSetForeground) _ANSI_ARGS_((Display *display, GC gc, unsigned long foreground)); /* 87 */ + int (*xSetClipMask) _ANSI_ARGS_((Display *display, GC gc, Pixmap pixmap)); /* 88 */ + int (*xSetClipOrigin) _ANSI_ARGS_((Display *display, GC gc, int clip_x_origin, int clip_y_origin)); /* 89 */ + int (*xSetTSOrigin) _ANSI_ARGS_((Display *display, GC gc, int ts_x_origin, int ts_y_origin)); /* 90 */ + int (*xChangeGC) _ANSI_ARGS_((Display *d, GC gc, unsigned long mask, XGCValues *values)); /* 91 */ + int (*xSetFont) _ANSI_ARGS_((Display *display, GC gc, Font font)); /* 92 */ + int (*xSetArcMode) _ANSI_ARGS_((Display *display, GC gc, int arc_mode)); /* 93 */ + int (*xSetStipple) _ANSI_ARGS_((Display *display, GC gc, Pixmap stipple)); /* 94 */ + int (*xSetFillRule) _ANSI_ARGS_((Display *display, GC gc, int fill_rule)); /* 95 */ + int (*xSetFillStyle) _ANSI_ARGS_((Display *display, GC gc, int fill_style)); /* 96 */ + int (*xSetFunction) _ANSI_ARGS_((Display *display, GC gc, int function)); /* 97 */ + int (*xSetLineAttributes) _ANSI_ARGS_((Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style)); /* 98 */ + int (*_XInitImageFuncPtrs) _ANSI_ARGS_((XImage *image)); /* 99 */ + XIC (*xCreateIC) _ANSI_ARGS_((XIM xim, ...)); /* 100 */ + XVisualInfo * (*xGetVisualInfo) _ANSI_ARGS_((Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return)); /* 101 */ + void (*xSetWMClientMachine) _ANSI_ARGS_((Display *display, Window w, XTextProperty *text_prop)); /* 102 */ + Status (*xStringListToTextProperty) _ANSI_ARGS_((char **list, int count, XTextProperty *text_prop_return)); /* 103 */ + int (*xDrawLine) _ANSI_ARGS_((Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2)); /* 104 */ + int (*xWarpPointer) _ANSI_ARGS_((Display *d, Window s, Window dw, int sx, int sy, unsigned int sw, unsigned int sh, int dx, int dy)); /* 105 */ + int (*xFillRectangle) _ANSI_ARGS_((Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height)); /* 106 */ + int (*xFlush) _ANSI_ARGS_((Display *display)); /* 107 */ + int (*xGrabServer) _ANSI_ARGS_((Display *display)); /* 108 */ + int (*xUngrabServer) _ANSI_ARGS_((Display *display)); /* 109 */ + int (*xFree) _ANSI_ARGS_((VOID *data)); /* 110 */ + int (*xNoOp) _ANSI_ARGS_((Display *display)); /* 111 */ + XAfterFunction (*xSynchronize) _ANSI_ARGS_((Display *display, Bool onoff)); /* 112 */ + int (*xSync) _ANSI_ARGS_((Display *display, Bool discard)); /* 113 */ + VisualID (*xVisualIDFromVisual) _ANSI_ARGS_((Visual *visual)); /* 114 */ +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ + int (*xSetDashes) _ANSI_ARGS_((Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n)); /* 0 */ + XModifierKeymap * (*xGetModifierMapping) _ANSI_ARGS_((Display *d)); /* 1 */ + XImage * (*xCreateImage) _ANSI_ARGS_((Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4)); /* 2 */ + XImage * (*xGetImage) _ANSI_ARGS_((Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3)); /* 3 */ + char * (*xGetAtomName) _ANSI_ARGS_((Display *d, Atom a)); /* 4 */ + char * (*xKeysymToString) _ANSI_ARGS_((KeySym k)); /* 5 */ + Colormap (*xCreateColormap) _ANSI_ARGS_((Display *d, Window w, Visual *v, int i)); /* 6 */ + GContext (*xGContextFromGC) _ANSI_ARGS_((GC g)); /* 7 */ + KeySym (*xKeycodeToKeysym) _ANSI_ARGS_((Display *d, KeyCode k, int i)); /* 8 */ + KeySym (*xStringToKeysym) _ANSI_ARGS_((_Xconst char *c)); /* 9 */ + Window (*xRootWindow) _ANSI_ARGS_((Display *d, int i)); /* 10 */ + XErrorHandler (*xSetErrorHandler) _ANSI_ARGS_((XErrorHandler x)); /* 11 */ + Status (*xAllocColor) _ANSI_ARGS_((Display *d, Colormap c, XColor *xp)); /* 12 */ + int (*xBell) _ANSI_ARGS_((Display *d, int i)); /* 13 */ + void (*xChangeProperty) _ANSI_ARGS_((Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3)); /* 14 */ + void (*xChangeWindowAttributes) _ANSI_ARGS_((Display *d, Window w, unsigned long ul, XSetWindowAttributes *x)); /* 15 */ + void (*xConfigureWindow) _ANSI_ARGS_((Display *d, Window w, unsigned int i, XWindowChanges *x)); /* 16 */ + void (*xCopyArea) _ANSI_ARGS_((Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 17 */ + void (*xCopyPlane) _ANSI_ARGS_((Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul)); /* 18 */ + Pixmap (*xCreateBitmapFromData) _ANSI_ARGS_((Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height)); /* 19 */ + int (*xDefineCursor) _ANSI_ARGS_((Display *d, Window w, Cursor c)); /* 20 */ + void (*xDestroyWindow) _ANSI_ARGS_((Display *d, Window w)); /* 21 */ + void (*xDrawArc) _ANSI_ARGS_((Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 22 */ + int (*xDrawLines) _ANSI_ARGS_((Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2)); /* 23 */ + void (*xDrawRectangle) _ANSI_ARGS_((Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 24 */ + void (*xFillArc) _ANSI_ARGS_((Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4)); /* 25 */ + void (*xFillPolygon) _ANSI_ARGS_((Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3)); /* 26 */ + int (*xFillRectangles) _ANSI_ARGS_((Display *d, Drawable dr, GC g, XRectangle *x, int i)); /* 27 */ + int (*xFreeColormap) _ANSI_ARGS_((Display *d, Colormap c)); /* 28 */ + int (*xFreeColors) _ANSI_ARGS_((Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul)); /* 29 */ + int (*xFreeModifiermap) _ANSI_ARGS_((XModifierKeymap *x)); /* 30 */ + Status (*xGetGeometry) _ANSI_ARGS_((Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4)); /* 31 */ + int (*xGetWindowProperty) _ANSI_ARGS_((Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp)); /* 32 */ + int (*xGrabKeyboard) _ANSI_ARGS_((Display *d, Window w, Bool b, int i1, int i2, Time t)); /* 33 */ + int (*xGrabPointer) _ANSI_ARGS_((Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t)); /* 34 */ + KeyCode (*xKeysymToKeycode) _ANSI_ARGS_((Display *d, KeySym k)); /* 35 */ + void (*xMapWindow) _ANSI_ARGS_((Display *d, Window w)); /* 36 */ + void (*xMoveResizeWindow) _ANSI_ARGS_((Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2)); /* 37 */ + void (*xMoveWindow) _ANSI_ARGS_((Display *d, Window w, int i1, int i2)); /* 38 */ + Bool (*xQueryPointer) _ANSI_ARGS_((Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui)); /* 39 */ + void (*xRaiseWindow) _ANSI_ARGS_((Display *d, Window w)); /* 40 */ + void (*xRefreshKeyboardMapping) _ANSI_ARGS_((XMappingEvent *x)); /* 41 */ + void (*xResizeWindow) _ANSI_ARGS_((Display *d, Window w, unsigned int ui1, unsigned int ui2)); /* 42 */ + void (*xSelectInput) _ANSI_ARGS_((Display *d, Window w, long l)); /* 43 */ + Status (*xSendEvent) _ANSI_ARGS_((Display *d, Window w, Bool b, long l, XEvent *x)); /* 44 */ + void (*xSetIconName) _ANSI_ARGS_((Display *d, Window w, _Xconst char *c)); /* 45 */ + void (*xSetInputFocus) _ANSI_ARGS_((Display *d, Window w, int i, Time t)); /* 46 */ + int (*xSetSelectionOwner) _ANSI_ARGS_((Display *d, Atom a, Window w, Time t)); /* 47 */ + void (*xSetWindowBackground) _ANSI_ARGS_((Display *d, Window w, unsigned long ul)); /* 48 */ + void (*xSetWindowBackgroundPixmap) _ANSI_ARGS_((Display *d, Window w, Pixmap p)); /* 49 */ + void (*xSetWindowBorder) _ANSI_ARGS_((Display *d, Window w, unsigned long ul)); /* 50 */ + void (*xSetWindowBorderPixmap) _ANSI_ARGS_((Display *d, Window w, Pixmap p)); /* 51 */ + void (*xSetWindowBorderWidth) _ANSI_ARGS_((Display *d, Window w, unsigned int ui)); /* 52 */ + void (*xSetWindowColormap) _ANSI_ARGS_((Display *d, Window w, Colormap c)); /* 53 */ + void (*xUngrabKeyboard) _ANSI_ARGS_((Display *d, Time t)); /* 54 */ + int (*xUngrabPointer) _ANSI_ARGS_((Display *d, Time t)); /* 55 */ + void (*xUnmapWindow) _ANSI_ARGS_((Display *d, Window w)); /* 56 */ + int (*tkPutImage) _ANSI_ARGS_((unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height)); /* 57 */ + Status (*xParseColor) _ANSI_ARGS_((Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr)); /* 58 */ + GC (*xCreateGC) _ANSI_ARGS_((Display *display, Drawable d, unsigned long valuemask, XGCValues *values)); /* 59 */ + int (*xFreeGC) _ANSI_ARGS_((Display *display, GC gc)); /* 60 */ + Atom (*xInternAtom) _ANSI_ARGS_((Display *display, _Xconst char *atom_name, Bool only_if_exists)); /* 61 */ + int (*xSetBackground) _ANSI_ARGS_((Display *display, GC gc, unsigned long foreground)); /* 62 */ + int (*xSetForeground) _ANSI_ARGS_((Display *display, GC gc, unsigned long foreground)); /* 63 */ + int (*xSetClipMask) _ANSI_ARGS_((Display *display, GC gc, Pixmap pixmap)); /* 64 */ + int (*xSetClipOrigin) _ANSI_ARGS_((Display *display, GC gc, int clip_x_origin, int clip_y_origin)); /* 65 */ + int (*xSetTSOrigin) _ANSI_ARGS_((Display *display, GC gc, int ts_x_origin, int ts_y_origin)); /* 66 */ + int (*xChangeGC) _ANSI_ARGS_((Display *d, GC gc, unsigned long mask, XGCValues *values)); /* 67 */ + int (*xSetFont) _ANSI_ARGS_((Display *display, GC gc, Font font)); /* 68 */ + int (*xSetArcMode) _ANSI_ARGS_((Display *display, GC gc, int arc_mode)); /* 69 */ + int (*xSetStipple) _ANSI_ARGS_((Display *display, GC gc, Pixmap stipple)); /* 70 */ + int (*xSetFillRule) _ANSI_ARGS_((Display *display, GC gc, int fill_rule)); /* 71 */ + int (*xSetFillStyle) _ANSI_ARGS_((Display *display, GC gc, int fill_style)); /* 72 */ + int (*xSetFunction) _ANSI_ARGS_((Display *display, GC gc, int function)); /* 73 */ + int (*xSetLineAttributes) _ANSI_ARGS_((Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style)); /* 74 */ + int (*_XInitImageFuncPtrs) _ANSI_ARGS_((XImage *image)); /* 75 */ + XIC (*xCreateIC) _ANSI_ARGS_((void)); /* 76 */ + XVisualInfo * (*xGetVisualInfo) _ANSI_ARGS_((Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return)); /* 77 */ + void (*xSetWMClientMachine) _ANSI_ARGS_((Display *display, Window w, XTextProperty *text_prop)); /* 78 */ + Status (*xStringListToTextProperty) _ANSI_ARGS_((char **list, int count, XTextProperty *text_prop_return)); /* 79 */ + void (*xDrawSegments) _ANSI_ARGS_((Display *display, Drawable d, GC gc, XSegment *segments, int nsegments)); /* 80 */ + void (*xForceScreenSaver) _ANSI_ARGS_((Display *display, int mode)); /* 81 */ + int (*xDrawLine) _ANSI_ARGS_((Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2)); /* 82 */ + int (*xFillRectangle) _ANSI_ARGS_((Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height)); /* 83 */ + void (*xClearWindow) _ANSI_ARGS_((Display *d, Window w)); /* 84 */ + void (*xDrawPoint) _ANSI_ARGS_((Display *display, Drawable d, GC gc, int x, int y)); /* 85 */ + void (*xDrawPoints) _ANSI_ARGS_((Display *display, Drawable d, GC gc, XPoint *points, int npoints, int mode)); /* 86 */ + int (*xWarpPointer) _ANSI_ARGS_((Display *display, Window src_w, Window dest_w, int src_x, int src_y, unsigned int src_width, unsigned int src_height, int dest_x, int dest_y)); /* 87 */ + void (*xQueryColor) _ANSI_ARGS_((Display *display, Colormap colormap, XColor *def_in_out)); /* 88 */ + void (*xQueryColors) _ANSI_ARGS_((Display *display, Colormap colormap, XColor *defs_in_out, int ncolors)); /* 89 */ + Status (*xQueryTree) _ANSI_ARGS_((Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui)); /* 90 */ + int (*xSync) _ANSI_ARGS_((Display *display, Bool flag)); /* 91 */ +#endif /* AQUA */ +} TkIntXlibStubs; + +#ifdef __cplusplus +extern "C" { +#endif +extern TkIntXlibStubs *tkIntXlibStubsPtr; +#ifdef __cplusplus +} +#endif + +#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ +#ifndef XSetDashes +#define XSetDashes \ + (tkIntXlibStubsPtr->xSetDashes) /* 0 */ +#endif +#ifndef XGetModifierMapping +#define XGetModifierMapping \ + (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ +#endif +#ifndef XCreateImage +#define XCreateImage \ + (tkIntXlibStubsPtr->xCreateImage) /* 2 */ +#endif +#ifndef XGetImage +#define XGetImage \ + (tkIntXlibStubsPtr->xGetImage) /* 3 */ +#endif +#ifndef XGetAtomName +#define XGetAtomName \ + (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ +#endif +#ifndef XKeysymToString +#define XKeysymToString \ + (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ +#endif +#ifndef XCreateColormap +#define XCreateColormap \ + (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ +#endif +#ifndef XCreatePixmapCursor +#define XCreatePixmapCursor \ + (tkIntXlibStubsPtr->xCreatePixmapCursor) /* 7 */ +#endif +#ifndef XCreateGlyphCursor +#define XCreateGlyphCursor \ + (tkIntXlibStubsPtr->xCreateGlyphCursor) /* 8 */ +#endif +#ifndef XGContextFromGC +#define XGContextFromGC \ + (tkIntXlibStubsPtr->xGContextFromGC) /* 9 */ +#endif +#ifndef XListHosts +#define XListHosts \ + (tkIntXlibStubsPtr->xListHosts) /* 10 */ +#endif +#ifndef XKeycodeToKeysym +#define XKeycodeToKeysym \ + (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 11 */ +#endif +#ifndef XStringToKeysym +#define XStringToKeysym \ + (tkIntXlibStubsPtr->xStringToKeysym) /* 12 */ +#endif +#ifndef XRootWindow +#define XRootWindow \ + (tkIntXlibStubsPtr->xRootWindow) /* 13 */ +#endif +#ifndef XSetErrorHandler +#define XSetErrorHandler \ + (tkIntXlibStubsPtr->xSetErrorHandler) /* 14 */ +#endif +#ifndef XIconifyWindow +#define XIconifyWindow \ + (tkIntXlibStubsPtr->xIconifyWindow) /* 15 */ +#endif +#ifndef XWithdrawWindow +#define XWithdrawWindow \ + (tkIntXlibStubsPtr->xWithdrawWindow) /* 16 */ +#endif +#ifndef XGetWMColormapWindows +#define XGetWMColormapWindows \ + (tkIntXlibStubsPtr->xGetWMColormapWindows) /* 17 */ +#endif +#ifndef XAllocColor +#define XAllocColor \ + (tkIntXlibStubsPtr->xAllocColor) /* 18 */ +#endif +#ifndef XBell +#define XBell \ + (tkIntXlibStubsPtr->xBell) /* 19 */ +#endif +#ifndef XChangeProperty +#define XChangeProperty \ + (tkIntXlibStubsPtr->xChangeProperty) /* 20 */ +#endif +#ifndef XChangeWindowAttributes +#define XChangeWindowAttributes \ + (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 21 */ +#endif +#ifndef XClearWindow +#define XClearWindow \ + (tkIntXlibStubsPtr->xClearWindow) /* 22 */ +#endif +#ifndef XConfigureWindow +#define XConfigureWindow \ + (tkIntXlibStubsPtr->xConfigureWindow) /* 23 */ +#endif +#ifndef XCopyArea +#define XCopyArea \ + (tkIntXlibStubsPtr->xCopyArea) /* 24 */ +#endif +#ifndef XCopyPlane +#define XCopyPlane \ + (tkIntXlibStubsPtr->xCopyPlane) /* 25 */ +#endif +#ifndef XCreateBitmapFromData +#define XCreateBitmapFromData \ + (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 26 */ +#endif +#ifndef XDefineCursor +#define XDefineCursor \ + (tkIntXlibStubsPtr->xDefineCursor) /* 27 */ +#endif +#ifndef XDeleteProperty +#define XDeleteProperty \ + (tkIntXlibStubsPtr->xDeleteProperty) /* 28 */ +#endif +#ifndef XDestroyWindow +#define XDestroyWindow \ + (tkIntXlibStubsPtr->xDestroyWindow) /* 29 */ +#endif +#ifndef XDrawArc +#define XDrawArc \ + (tkIntXlibStubsPtr->xDrawArc) /* 30 */ +#endif +#ifndef XDrawLines +#define XDrawLines \ + (tkIntXlibStubsPtr->xDrawLines) /* 31 */ +#endif +#ifndef XDrawRectangle +#define XDrawRectangle \ + (tkIntXlibStubsPtr->xDrawRectangle) /* 32 */ +#endif +#ifndef XFillArc +#define XFillArc \ + (tkIntXlibStubsPtr->xFillArc) /* 33 */ +#endif +#ifndef XFillPolygon +#define XFillPolygon \ + (tkIntXlibStubsPtr->xFillPolygon) /* 34 */ +#endif +#ifndef XFillRectangles +#define XFillRectangles \ + (tkIntXlibStubsPtr->xFillRectangles) /* 35 */ +#endif +#ifndef XForceScreenSaver +#define XForceScreenSaver \ + (tkIntXlibStubsPtr->xForceScreenSaver) /* 36 */ +#endif +#ifndef XFreeColormap +#define XFreeColormap \ + (tkIntXlibStubsPtr->xFreeColormap) /* 37 */ +#endif +#ifndef XFreeColors +#define XFreeColors \ + (tkIntXlibStubsPtr->xFreeColors) /* 38 */ +#endif +#ifndef XFreeCursor +#define XFreeCursor \ + (tkIntXlibStubsPtr->xFreeCursor) /* 39 */ +#endif +#ifndef XFreeModifiermap +#define XFreeModifiermap \ + (tkIntXlibStubsPtr->xFreeModifiermap) /* 40 */ +#endif +#ifndef XGetGeometry +#define XGetGeometry \ + (tkIntXlibStubsPtr->xGetGeometry) /* 41 */ +#endif +#ifndef XGetInputFocus +#define XGetInputFocus \ + (tkIntXlibStubsPtr->xGetInputFocus) /* 42 */ +#endif +#ifndef XGetWindowProperty +#define XGetWindowProperty \ + (tkIntXlibStubsPtr->xGetWindowProperty) /* 43 */ +#endif +#ifndef XGetWindowAttributes +#define XGetWindowAttributes \ + (tkIntXlibStubsPtr->xGetWindowAttributes) /* 44 */ +#endif +#ifndef XGrabKeyboard +#define XGrabKeyboard \ + (tkIntXlibStubsPtr->xGrabKeyboard) /* 45 */ +#endif +#ifndef XGrabPointer +#define XGrabPointer \ + (tkIntXlibStubsPtr->xGrabPointer) /* 46 */ +#endif +#ifndef XKeysymToKeycode +#define XKeysymToKeycode \ + (tkIntXlibStubsPtr->xKeysymToKeycode) /* 47 */ +#endif +#ifndef XLookupColor +#define XLookupColor \ + (tkIntXlibStubsPtr->xLookupColor) /* 48 */ +#endif +#ifndef XMapWindow +#define XMapWindow \ + (tkIntXlibStubsPtr->xMapWindow) /* 49 */ +#endif +#ifndef XMoveResizeWindow +#define XMoveResizeWindow \ + (tkIntXlibStubsPtr->xMoveResizeWindow) /* 50 */ +#endif +#ifndef XMoveWindow +#define XMoveWindow \ + (tkIntXlibStubsPtr->xMoveWindow) /* 51 */ +#endif +#ifndef XNextEvent +#define XNextEvent \ + (tkIntXlibStubsPtr->xNextEvent) /* 52 */ +#endif +#ifndef XPutBackEvent +#define XPutBackEvent \ + (tkIntXlibStubsPtr->xPutBackEvent) /* 53 */ +#endif +#ifndef XQueryColors +#define XQueryColors \ + (tkIntXlibStubsPtr->xQueryColors) /* 54 */ +#endif +#ifndef XQueryPointer +#define XQueryPointer \ + (tkIntXlibStubsPtr->xQueryPointer) /* 55 */ +#endif +#ifndef XQueryTree +#define XQueryTree \ + (tkIntXlibStubsPtr->xQueryTree) /* 56 */ +#endif +#ifndef XRaiseWindow +#define XRaiseWindow \ + (tkIntXlibStubsPtr->xRaiseWindow) /* 57 */ +#endif +#ifndef XRefreshKeyboardMapping +#define XRefreshKeyboardMapping \ + (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 58 */ +#endif +#ifndef XResizeWindow +#define XResizeWindow \ + (tkIntXlibStubsPtr->xResizeWindow) /* 59 */ +#endif +#ifndef XSelectInput +#define XSelectInput \ + (tkIntXlibStubsPtr->xSelectInput) /* 60 */ +#endif +#ifndef XSendEvent +#define XSendEvent \ + (tkIntXlibStubsPtr->xSendEvent) /* 61 */ +#endif +#ifndef XSetCommand +#define XSetCommand \ + (tkIntXlibStubsPtr->xSetCommand) /* 62 */ +#endif +#ifndef XSetIconName +#define XSetIconName \ + (tkIntXlibStubsPtr->xSetIconName) /* 63 */ +#endif +#ifndef XSetInputFocus +#define XSetInputFocus \ + (tkIntXlibStubsPtr->xSetInputFocus) /* 64 */ +#endif +#ifndef XSetSelectionOwner +#define XSetSelectionOwner \ + (tkIntXlibStubsPtr->xSetSelectionOwner) /* 65 */ +#endif +#ifndef XSetWindowBackground +#define XSetWindowBackground \ + (tkIntXlibStubsPtr->xSetWindowBackground) /* 66 */ +#endif +#ifndef XSetWindowBackgroundPixmap +#define XSetWindowBackgroundPixmap \ + (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 67 */ +#endif +#ifndef XSetWindowBorder +#define XSetWindowBorder \ + (tkIntXlibStubsPtr->xSetWindowBorder) /* 68 */ +#endif +#ifndef XSetWindowBorderPixmap +#define XSetWindowBorderPixmap \ + (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 69 */ +#endif +#ifndef XSetWindowBorderWidth +#define XSetWindowBorderWidth \ + (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 70 */ +#endif +#ifndef XSetWindowColormap +#define XSetWindowColormap \ + (tkIntXlibStubsPtr->xSetWindowColormap) /* 71 */ +#endif +#ifndef XTranslateCoordinates +#define XTranslateCoordinates \ + (tkIntXlibStubsPtr->xTranslateCoordinates) /* 72 */ +#endif +#ifndef XUngrabKeyboard +#define XUngrabKeyboard \ + (tkIntXlibStubsPtr->xUngrabKeyboard) /* 73 */ +#endif +#ifndef XUngrabPointer +#define XUngrabPointer \ + (tkIntXlibStubsPtr->xUngrabPointer) /* 74 */ +#endif +#ifndef XUnmapWindow +#define XUnmapWindow \ + (tkIntXlibStubsPtr->xUnmapWindow) /* 75 */ +#endif +#ifndef XWindowEvent +#define XWindowEvent \ + (tkIntXlibStubsPtr->xWindowEvent) /* 76 */ +#endif +#ifndef XDestroyIC +#define XDestroyIC \ + (tkIntXlibStubsPtr->xDestroyIC) /* 77 */ +#endif +#ifndef XFilterEvent +#define XFilterEvent \ + (tkIntXlibStubsPtr->xFilterEvent) /* 78 */ +#endif +#ifndef XmbLookupString +#define XmbLookupString \ + (tkIntXlibStubsPtr->xmbLookupString) /* 79 */ +#endif +#ifndef TkPutImage +#define TkPutImage \ + (tkIntXlibStubsPtr->tkPutImage) /* 80 */ +#endif +/* Slot 81 is reserved */ +#ifndef XParseColor +#define XParseColor \ + (tkIntXlibStubsPtr->xParseColor) /* 82 */ +#endif +#ifndef XCreateGC +#define XCreateGC \ + (tkIntXlibStubsPtr->xCreateGC) /* 83 */ +#endif +#ifndef XFreeGC +#define XFreeGC \ + (tkIntXlibStubsPtr->xFreeGC) /* 84 */ +#endif +#ifndef XInternAtom +#define XInternAtom \ + (tkIntXlibStubsPtr->xInternAtom) /* 85 */ +#endif +#ifndef XSetBackground +#define XSetBackground \ + (tkIntXlibStubsPtr->xSetBackground) /* 86 */ +#endif +#ifndef XSetForeground +#define XSetForeground \ + (tkIntXlibStubsPtr->xSetForeground) /* 87 */ +#endif +#ifndef XSetClipMask +#define XSetClipMask \ + (tkIntXlibStubsPtr->xSetClipMask) /* 88 */ +#endif +#ifndef XSetClipOrigin +#define XSetClipOrigin \ + (tkIntXlibStubsPtr->xSetClipOrigin) /* 89 */ +#endif +#ifndef XSetTSOrigin +#define XSetTSOrigin \ + (tkIntXlibStubsPtr->xSetTSOrigin) /* 90 */ +#endif +#ifndef XChangeGC +#define XChangeGC \ + (tkIntXlibStubsPtr->xChangeGC) /* 91 */ +#endif +#ifndef XSetFont +#define XSetFont \ + (tkIntXlibStubsPtr->xSetFont) /* 92 */ +#endif +#ifndef XSetArcMode +#define XSetArcMode \ + (tkIntXlibStubsPtr->xSetArcMode) /* 93 */ +#endif +#ifndef XSetStipple +#define XSetStipple \ + (tkIntXlibStubsPtr->xSetStipple) /* 94 */ +#endif +#ifndef XSetFillRule +#define XSetFillRule \ + (tkIntXlibStubsPtr->xSetFillRule) /* 95 */ +#endif +#ifndef XSetFillStyle +#define XSetFillStyle \ + (tkIntXlibStubsPtr->xSetFillStyle) /* 96 */ +#endif +#ifndef XSetFunction +#define XSetFunction \ + (tkIntXlibStubsPtr->xSetFunction) /* 97 */ +#endif +#ifndef XSetLineAttributes +#define XSetLineAttributes \ + (tkIntXlibStubsPtr->xSetLineAttributes) /* 98 */ +#endif +#ifndef _XInitImageFuncPtrs +#define _XInitImageFuncPtrs \ + (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 99 */ +#endif +#ifndef XCreateIC +#define XCreateIC \ + (tkIntXlibStubsPtr->xCreateIC) /* 100 */ +#endif +#ifndef XGetVisualInfo +#define XGetVisualInfo \ + (tkIntXlibStubsPtr->xGetVisualInfo) /* 101 */ +#endif +#ifndef XSetWMClientMachine +#define XSetWMClientMachine \ + (tkIntXlibStubsPtr->xSetWMClientMachine) /* 102 */ +#endif +#ifndef XStringListToTextProperty +#define XStringListToTextProperty \ + (tkIntXlibStubsPtr->xStringListToTextProperty) /* 103 */ +#endif +#ifndef XDrawLine +#define XDrawLine \ + (tkIntXlibStubsPtr->xDrawLine) /* 104 */ +#endif +#ifndef XWarpPointer +#define XWarpPointer \ + (tkIntXlibStubsPtr->xWarpPointer) /* 105 */ +#endif +#ifndef XFillRectangle +#define XFillRectangle \ + (tkIntXlibStubsPtr->xFillRectangle) /* 106 */ +#endif +#ifndef XFlush +#define XFlush \ + (tkIntXlibStubsPtr->xFlush) /* 107 */ +#endif +#ifndef XGrabServer +#define XGrabServer \ + (tkIntXlibStubsPtr->xGrabServer) /* 108 */ +#endif +#ifndef XUngrabServer +#define XUngrabServer \ + (tkIntXlibStubsPtr->xUngrabServer) /* 109 */ +#endif +#ifndef XFree +#define XFree \ + (tkIntXlibStubsPtr->xFree) /* 110 */ +#endif +#ifndef XNoOp +#define XNoOp \ + (tkIntXlibStubsPtr->xNoOp) /* 111 */ +#endif +#ifndef XSynchronize +#define XSynchronize \ + (tkIntXlibStubsPtr->xSynchronize) /* 112 */ +#endif +#ifndef XSync +#define XSync \ + (tkIntXlibStubsPtr->xSync) /* 113 */ +#endif +#ifndef XVisualIDFromVisual +#define XVisualIDFromVisual \ + (tkIntXlibStubsPtr->xVisualIDFromVisual) /* 114 */ +#endif +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ +#ifndef XSetDashes +#define XSetDashes \ + (tkIntXlibStubsPtr->xSetDashes) /* 0 */ +#endif +#ifndef XGetModifierMapping +#define XGetModifierMapping \ + (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ +#endif +#ifndef XCreateImage +#define XCreateImage \ + (tkIntXlibStubsPtr->xCreateImage) /* 2 */ +#endif +#ifndef XGetImage +#define XGetImage \ + (tkIntXlibStubsPtr->xGetImage) /* 3 */ +#endif +#ifndef XGetAtomName +#define XGetAtomName \ + (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ +#endif +#ifndef XKeysymToString +#define XKeysymToString \ + (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ +#endif +#ifndef XCreateColormap +#define XCreateColormap \ + (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ +#endif +#ifndef XGContextFromGC +#define XGContextFromGC \ + (tkIntXlibStubsPtr->xGContextFromGC) /* 7 */ +#endif +#ifndef XKeycodeToKeysym +#define XKeycodeToKeysym \ + (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 8 */ +#endif +#ifndef XStringToKeysym +#define XStringToKeysym \ + (tkIntXlibStubsPtr->xStringToKeysym) /* 9 */ +#endif +#ifndef XRootWindow +#define XRootWindow \ + (tkIntXlibStubsPtr->xRootWindow) /* 10 */ +#endif +#ifndef XSetErrorHandler +#define XSetErrorHandler \ + (tkIntXlibStubsPtr->xSetErrorHandler) /* 11 */ +#endif +#ifndef XAllocColor +#define XAllocColor \ + (tkIntXlibStubsPtr->xAllocColor) /* 12 */ +#endif +#ifndef XBell +#define XBell \ + (tkIntXlibStubsPtr->xBell) /* 13 */ +#endif +#ifndef XChangeProperty +#define XChangeProperty \ + (tkIntXlibStubsPtr->xChangeProperty) /* 14 */ +#endif +#ifndef XChangeWindowAttributes +#define XChangeWindowAttributes \ + (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 15 */ +#endif +#ifndef XConfigureWindow +#define XConfigureWindow \ + (tkIntXlibStubsPtr->xConfigureWindow) /* 16 */ +#endif +#ifndef XCopyArea +#define XCopyArea \ + (tkIntXlibStubsPtr->xCopyArea) /* 17 */ +#endif +#ifndef XCopyPlane +#define XCopyPlane \ + (tkIntXlibStubsPtr->xCopyPlane) /* 18 */ +#endif +#ifndef XCreateBitmapFromData +#define XCreateBitmapFromData \ + (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 19 */ +#endif +#ifndef XDefineCursor +#define XDefineCursor \ + (tkIntXlibStubsPtr->xDefineCursor) /* 20 */ +#endif +#ifndef XDestroyWindow +#define XDestroyWindow \ + (tkIntXlibStubsPtr->xDestroyWindow) /* 21 */ +#endif +#ifndef XDrawArc +#define XDrawArc \ + (tkIntXlibStubsPtr->xDrawArc) /* 22 */ +#endif +#ifndef XDrawLines +#define XDrawLines \ + (tkIntXlibStubsPtr->xDrawLines) /* 23 */ +#endif +#ifndef XDrawRectangle +#define XDrawRectangle \ + (tkIntXlibStubsPtr->xDrawRectangle) /* 24 */ +#endif +#ifndef XFillArc +#define XFillArc \ + (tkIntXlibStubsPtr->xFillArc) /* 25 */ +#endif +#ifndef XFillPolygon +#define XFillPolygon \ + (tkIntXlibStubsPtr->xFillPolygon) /* 26 */ +#endif +#ifndef XFillRectangles +#define XFillRectangles \ + (tkIntXlibStubsPtr->xFillRectangles) /* 27 */ +#endif +#ifndef XFreeColormap +#define XFreeColormap \ + (tkIntXlibStubsPtr->xFreeColormap) /* 28 */ +#endif +#ifndef XFreeColors +#define XFreeColors \ + (tkIntXlibStubsPtr->xFreeColors) /* 29 */ +#endif +#ifndef XFreeModifiermap +#define XFreeModifiermap \ + (tkIntXlibStubsPtr->xFreeModifiermap) /* 30 */ +#endif +#ifndef XGetGeometry +#define XGetGeometry \ + (tkIntXlibStubsPtr->xGetGeometry) /* 31 */ +#endif +#ifndef XGetWindowProperty +#define XGetWindowProperty \ + (tkIntXlibStubsPtr->xGetWindowProperty) /* 32 */ +#endif +#ifndef XGrabKeyboard +#define XGrabKeyboard \ + (tkIntXlibStubsPtr->xGrabKeyboard) /* 33 */ +#endif +#ifndef XGrabPointer +#define XGrabPointer \ + (tkIntXlibStubsPtr->xGrabPointer) /* 34 */ +#endif +#ifndef XKeysymToKeycode +#define XKeysymToKeycode \ + (tkIntXlibStubsPtr->xKeysymToKeycode) /* 35 */ +#endif +#ifndef XMapWindow +#define XMapWindow \ + (tkIntXlibStubsPtr->xMapWindow) /* 36 */ +#endif +#ifndef XMoveResizeWindow +#define XMoveResizeWindow \ + (tkIntXlibStubsPtr->xMoveResizeWindow) /* 37 */ +#endif +#ifndef XMoveWindow +#define XMoveWindow \ + (tkIntXlibStubsPtr->xMoveWindow) /* 38 */ +#endif +#ifndef XQueryPointer +#define XQueryPointer \ + (tkIntXlibStubsPtr->xQueryPointer) /* 39 */ +#endif +#ifndef XRaiseWindow +#define XRaiseWindow \ + (tkIntXlibStubsPtr->xRaiseWindow) /* 40 */ +#endif +#ifndef XRefreshKeyboardMapping +#define XRefreshKeyboardMapping \ + (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 41 */ +#endif +#ifndef XResizeWindow +#define XResizeWindow \ + (tkIntXlibStubsPtr->xResizeWindow) /* 42 */ +#endif +#ifndef XSelectInput +#define XSelectInput \ + (tkIntXlibStubsPtr->xSelectInput) /* 43 */ +#endif +#ifndef XSendEvent +#define XSendEvent \ + (tkIntXlibStubsPtr->xSendEvent) /* 44 */ +#endif +#ifndef XSetIconName +#define XSetIconName \ + (tkIntXlibStubsPtr->xSetIconName) /* 45 */ +#endif +#ifndef XSetInputFocus +#define XSetInputFocus \ + (tkIntXlibStubsPtr->xSetInputFocus) /* 46 */ +#endif +#ifndef XSetSelectionOwner +#define XSetSelectionOwner \ + (tkIntXlibStubsPtr->xSetSelectionOwner) /* 47 */ +#endif +#ifndef XSetWindowBackground +#define XSetWindowBackground \ + (tkIntXlibStubsPtr->xSetWindowBackground) /* 48 */ +#endif +#ifndef XSetWindowBackgroundPixmap +#define XSetWindowBackgroundPixmap \ + (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 49 */ +#endif +#ifndef XSetWindowBorder +#define XSetWindowBorder \ + (tkIntXlibStubsPtr->xSetWindowBorder) /* 50 */ +#endif +#ifndef XSetWindowBorderPixmap +#define XSetWindowBorderPixmap \ + (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 51 */ +#endif +#ifndef XSetWindowBorderWidth +#define XSetWindowBorderWidth \ + (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 52 */ +#endif +#ifndef XSetWindowColormap +#define XSetWindowColormap \ + (tkIntXlibStubsPtr->xSetWindowColormap) /* 53 */ +#endif +#ifndef XUngrabKeyboard +#define XUngrabKeyboard \ + (tkIntXlibStubsPtr->xUngrabKeyboard) /* 54 */ +#endif +#ifndef XUngrabPointer +#define XUngrabPointer \ + (tkIntXlibStubsPtr->xUngrabPointer) /* 55 */ +#endif +#ifndef XUnmapWindow +#define XUnmapWindow \ + (tkIntXlibStubsPtr->xUnmapWindow) /* 56 */ +#endif +#ifndef TkPutImage +#define TkPutImage \ + (tkIntXlibStubsPtr->tkPutImage) /* 57 */ +#endif +#ifndef XParseColor +#define XParseColor \ + (tkIntXlibStubsPtr->xParseColor) /* 58 */ +#endif +#ifndef XCreateGC +#define XCreateGC \ + (tkIntXlibStubsPtr->xCreateGC) /* 59 */ +#endif +#ifndef XFreeGC +#define XFreeGC \ + (tkIntXlibStubsPtr->xFreeGC) /* 60 */ +#endif +#ifndef XInternAtom +#define XInternAtom \ + (tkIntXlibStubsPtr->xInternAtom) /* 61 */ +#endif +#ifndef XSetBackground +#define XSetBackground \ + (tkIntXlibStubsPtr->xSetBackground) /* 62 */ +#endif +#ifndef XSetForeground +#define XSetForeground \ + (tkIntXlibStubsPtr->xSetForeground) /* 63 */ +#endif +#ifndef XSetClipMask +#define XSetClipMask \ + (tkIntXlibStubsPtr->xSetClipMask) /* 64 */ +#endif +#ifndef XSetClipOrigin +#define XSetClipOrigin \ + (tkIntXlibStubsPtr->xSetClipOrigin) /* 65 */ +#endif +#ifndef XSetTSOrigin +#define XSetTSOrigin \ + (tkIntXlibStubsPtr->xSetTSOrigin) /* 66 */ +#endif +#ifndef XChangeGC +#define XChangeGC \ + (tkIntXlibStubsPtr->xChangeGC) /* 67 */ +#endif +#ifndef XSetFont +#define XSetFont \ + (tkIntXlibStubsPtr->xSetFont) /* 68 */ +#endif +#ifndef XSetArcMode +#define XSetArcMode \ + (tkIntXlibStubsPtr->xSetArcMode) /* 69 */ +#endif +#ifndef XSetStipple +#define XSetStipple \ + (tkIntXlibStubsPtr->xSetStipple) /* 70 */ +#endif +#ifndef XSetFillRule +#define XSetFillRule \ + (tkIntXlibStubsPtr->xSetFillRule) /* 71 */ +#endif +#ifndef XSetFillStyle +#define XSetFillStyle \ + (tkIntXlibStubsPtr->xSetFillStyle) /* 72 */ +#endif +#ifndef XSetFunction +#define XSetFunction \ + (tkIntXlibStubsPtr->xSetFunction) /* 73 */ +#endif +#ifndef XSetLineAttributes +#define XSetLineAttributes \ + (tkIntXlibStubsPtr->xSetLineAttributes) /* 74 */ +#endif +#ifndef _XInitImageFuncPtrs +#define _XInitImageFuncPtrs \ + (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 75 */ +#endif +#ifndef XCreateIC +#define XCreateIC \ + (tkIntXlibStubsPtr->xCreateIC) /* 76 */ +#endif +#ifndef XGetVisualInfo +#define XGetVisualInfo \ + (tkIntXlibStubsPtr->xGetVisualInfo) /* 77 */ +#endif +#ifndef XSetWMClientMachine +#define XSetWMClientMachine \ + (tkIntXlibStubsPtr->xSetWMClientMachine) /* 78 */ +#endif +#ifndef XStringListToTextProperty +#define XStringListToTextProperty \ + (tkIntXlibStubsPtr->xStringListToTextProperty) /* 79 */ +#endif +#ifndef XDrawSegments +#define XDrawSegments \ + (tkIntXlibStubsPtr->xDrawSegments) /* 80 */ +#endif +#ifndef XForceScreenSaver +#define XForceScreenSaver \ + (tkIntXlibStubsPtr->xForceScreenSaver) /* 81 */ +#endif +#ifndef XDrawLine +#define XDrawLine \ + (tkIntXlibStubsPtr->xDrawLine) /* 82 */ +#endif +#ifndef XFillRectangle +#define XFillRectangle \ + (tkIntXlibStubsPtr->xFillRectangle) /* 83 */ +#endif +#ifndef XClearWindow +#define XClearWindow \ + (tkIntXlibStubsPtr->xClearWindow) /* 84 */ +#endif +#ifndef XDrawPoint +#define XDrawPoint \ + (tkIntXlibStubsPtr->xDrawPoint) /* 85 */ +#endif +#ifndef XDrawPoints +#define XDrawPoints \ + (tkIntXlibStubsPtr->xDrawPoints) /* 86 */ +#endif +#ifndef XWarpPointer +#define XWarpPointer \ + (tkIntXlibStubsPtr->xWarpPointer) /* 87 */ +#endif +#ifndef XQueryColor +#define XQueryColor \ + (tkIntXlibStubsPtr->xQueryColor) /* 88 */ +#endif +#ifndef XQueryColors +#define XQueryColors \ + (tkIntXlibStubsPtr->xQueryColors) /* 89 */ +#endif +#ifndef XQueryTree +#define XQueryTree \ + (tkIntXlibStubsPtr->xQueryTree) /* 90 */ +#endif +#ifndef XSync +#define XSync \ + (tkIntXlibStubsPtr->xSync) /* 91 */ +#endif +#endif /* AQUA */ + +#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#if defined(__WIN32__) + +#undef XFlush +#undef XGrabServer +#undef XUngrabServer +#undef XFree +#undef XNoOp +#undef XSynchronize +#undef XSync +#undef XVisualIDFromVisual + +#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) +/* + * The following stubs implement various calls that don't do anything + * under Windows. In win32 tclsh 8.4 and 8.5 holds: + * tkIntStubsPtr->tkBindDeadWindow != NULL + * Then the following macros don't do anything. But when running Tcl win32 + * version 8.6 or Cygwin (8.4, 8.5 or 8.6) then the functions are available in + * the stub table. The real function from the stub table will be called, + * even though it might be doing nothing. + */ + +#define XFlush(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xFlush(display)) +#define XGrabServer(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xGrabServer(display)) +#define XUngrabServer(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xUngrabServer(display)) + +/* + * The following functions are implemented as macros under Windows. + */ + + +#define XFree(data) (tkIntStubsPtr->tkBindDeadWindow? ((data)? (ckfree((char *) (data)), 0): 0): tkIntXlibStubsPtr->xFree(data)) +#define XNoOp(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xNoOp(display)) +#define XSynchronize(display, bool) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xSynchronize(display, bool)) +#define XSync(display, bool) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xSync(display, bool)) +#define XVisualIDFromVisual(visual) (tkIntStubsPtr->tkBindDeadWindow? ((visual)->visualid): tkIntXlibStubsPtr->xVisualIDFromVisual(visual)) + +#else /* !USE_TK_STUBS */ +/* + * The following stubs implement various calls that don't do anything + * under Windows. + */ + +#define XFlush(display) +#define XGrabServer(display) +#define XUngrabServer(display) + +/* + * The following functions are implemented as macros under Windows. + */ + +#define XFree(data) {if ((data) != NULL) ckfree((char *) (data));} +#define XNoOp(display) {display->request++;} +#define XSynchronize(display, bool) {display->request++;} +#define XSync(display, bool) {display->request++;} +#define XVisualIDFromVisual(visual) (visual->visualid) + +#endif /* !USE_TK_STUBS */ + +#endif /* __WIN32__ */ + +#endif /* _TKINTXLIBDECLS */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tcl.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tcl.h new file mode 100644 index 00000000..f16e90ec --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tcl.h @@ -0,0 +1,2380 @@ +/* + * tcl.h -- + * + * This header file describes the externally-visible facilities + * of the Tcl interpreter. + * + * Copyright (c) 1987-1994 The Regents of the University of California. + * Copyright (c) 1993-1996 Lucent Technologies. + * Copyright (c) 1994-1998 Sun Microsystems, Inc. + * Copyright (c) 1998-2000 by Scriptics Corporation. + * Copyright (c) 2002 by Kevin B. Kenny. All rights reserved. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TCL +#define _TCL + +/* + * For C++ compilers, use extern "C" + */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * The following defines are used to indicate the various release levels. + */ + +#define TCL_ALPHA_RELEASE 0 +#define TCL_BETA_RELEASE 1 +#define TCL_FINAL_RELEASE 2 + +/* + * When version numbers change here, must also go into the following files + * and update the version numbers: + * + * library/init.tcl (only if Major.minor changes, not patchlevel) 1 LOC + * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) + * win/configure.in (as above) + * win/tcl.m4 (not patchlevel) + * win/makefile.vc (not patchlevel) 2 LOC + * README (sections 0 and 2) + * mac/README (2 LOC, not patchlevel) + * macosx/Tcl.pbproj/project.pbxproj (not patchlevel) 1 LOC + * macosx/Tcl.pbproj/default.pbxuser (not patchlevel) 1 LOC + * win/README.binary (sections 0-4) + * win/README (not patchlevel) (sections 0 and 2) + * unix/tcl.spec (2 LOC Major/Minor, 1 LOC patch) + * tests/basic.test (1 LOC M/M, not patchlevel) + * tools/tcl.hpj.in (not patchlevel, for windows installer) + * tools/tcl.wse.in (for windows installer) + * tools/tclSplash.bmp (not patchlevel) + */ +#define TCL_MAJOR_VERSION 8 +#define TCL_MINOR_VERSION 4 +#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE +#define TCL_RELEASE_SERIAL 20 + +#define TCL_VERSION "8.4" +#define TCL_PATCH_LEVEL "8.4.20" + +/* + * The following definitions set up the proper options for Windows + * compilers. We use this method because there is no autoconf equivalent. + */ + +#ifndef __WIN32__ +# if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined(__BORLANDC__) || (defined(__WATCOMC__) && defined(__WINDOWS_386__)) +# define __WIN32__ +# ifndef WIN32 +# define WIN32 +# endif +# ifndef _WIN32 +# define _WIN32 +# endif +# endif +#endif + +/* + * STRICT: See MSDN Article Q83456 + */ + +#ifdef __WIN32__ +# ifndef STRICT +# define STRICT +# endif +#endif /* __WIN32__ */ + +/* + * Utility macros: STRINGIFY takes an argument and wraps it in "" (double + * quotation marks), JOIN joins two arguments. + */ +#ifndef STRINGIFY +# define STRINGIFY(x) STRINGIFY1(x) +# define STRINGIFY1(x) #x +#endif +#ifndef JOIN +# define JOIN(a,b) JOIN1(a,b) +# define JOIN1(a,b) a##b +#endif + +/* + * A special definition used to allow this header file to be included + * from windows resource files so that they can obtain version + * information. RC_INVOKED is defined by default by the windows RC tool. + * + * Resource compilers don't like all the C stuff, like typedefs and + * procedure declarations, that occur below, so block them out. + */ + +#ifndef RC_INVOKED + +/* + * Special macro to define mutexes, that doesn't do anything + * if we are not using threads. + */ + +#ifdef TCL_THREADS +#define TCL_DECLARE_MUTEX(name) static Tcl_Mutex name; +#else +#define TCL_DECLARE_MUTEX(name) +#endif + +/* + * Macros that eliminate the overhead of the thread synchronization + * functions when compiling without thread support. + */ + +#ifndef TCL_THREADS +#define Tcl_MutexLock(mutexPtr) +#define Tcl_MutexUnlock(mutexPtr) +#define Tcl_MutexFinalize(mutexPtr) +#define Tcl_ConditionNotify(condPtr) +#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) +#define Tcl_ConditionFinalize(condPtr) +#endif /* TCL_THREADS */ + + +#ifndef BUFSIZ +# include +#endif + + +/* + * Definitions that allow Tcl functions with variable numbers of + * arguments to be used with either varargs.h or stdarg.h. TCL_VARARGS + * is used in procedure prototypes. TCL_VARARGS_DEF is used to declare + * the arguments in a function definiton: it takes the type and name of + * the first argument and supplies the appropriate argument declaration + * string for use in the function definition. TCL_VARARGS_START + * initializes the va_list data structure and returns the first argument. + */ +#if !defined(NO_STDARG) +# include +# define TCL_VARARGS(type, name) (type name, ...) +# define TCL_VARARGS_DEF(type, name) (type name, ...) +# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name) +#else +# include +# define TCL_VARARGS(type, name) () +# define TCL_VARARGS_DEF(type, name) (va_alist) +# define TCL_VARARGS_START(type, name, list) \ + (va_start(list), va_arg(list, type)) +#endif + +/* + * Macros used to declare a function to be exported by a DLL. + * Used by Windows, maps to no-op declarations on non-Windows systems. + * The default build on windows is for a DLL, which causes the DLLIMPORT + * and DLLEXPORT macros to be nonempty. To build a static library, the + * macro STATIC_BUILD should be defined. + */ + +#if (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550) || defined(__LCC__) || defined(__WATCOMC__) || (defined(__GNUC__) && defined(__declspec)))) +# ifdef STATIC_BUILD +# define DLLIMPORT +# define DLLEXPORT +# else +# define DLLIMPORT __declspec(dllimport) +# define DLLEXPORT __declspec(dllexport) +# endif +#else +# define DLLIMPORT +# if defined(__GNUC__) && __GNUC__ > 3 +# define DLLEXPORT __attribute__ ((visibility("default"))) +# else +# define DLLEXPORT +# endif +#endif + +/* + * These macros are used to control whether functions are being declared for + * import or export. If a function is being declared while it is being built + * to be included in a shared library, then it should have the DLLEXPORT + * storage class. If is being declared for use by a module that is going to + * link against the shared library, then it should have the DLLIMPORT storage + * class. If the symbol is beind declared for a static build or for use from a + * stub library, then the storage class should be empty. + * + * The convention is that a macro called BUILD_xxxx, where xxxx is the + * name of a library we are building, is set on the compile line for sources + * that are to be placed in the library. When this macro is set, the + * storage class will be set to DLLEXPORT. At the end of the header file, the + * storage class will be reset to DLLIMPORT. + */ +#undef TCL_STORAGE_CLASS +#ifdef BUILD_tcl +# define TCL_STORAGE_CLASS DLLEXPORT +#else +# ifdef USE_TCL_STUBS +# define TCL_STORAGE_CLASS +# else +# define TCL_STORAGE_CLASS DLLIMPORT +# endif +#endif + +/* + * Definitions that allow this header file to be used either with or + * without ANSI C features like function prototypes. + */ + +#undef _ANSI_ARGS_ +#undef CONST +#ifndef INLINE +# define INLINE +#endif + +#ifndef NO_CONST +# define CONST const +#else +# define CONST +#endif + +#ifndef NO_PROTOTYPES +# define _ANSI_ARGS_(x) x +#else +# define _ANSI_ARGS_(x) () +#endif + +#ifdef USE_NON_CONST +# ifdef USE_COMPAT_CONST +# error define at most one of USE_NON_CONST and USE_COMPAT_CONST +# endif +# define CONST84 +# define CONST84_RETURN +#else +# ifdef USE_COMPAT_CONST +# define CONST84 +# define CONST84_RETURN CONST +# else +# define CONST84 CONST +# define CONST84_RETURN CONST +# endif +#endif + +/* + * Make sure EXTERN isn't defined elsewhere + */ + +#ifdef EXTERN +# undef EXTERN +#endif /* EXTERN */ + +#ifdef __cplusplus +# define EXTERN extern "C" TCL_STORAGE_CLASS +#else +# define EXTERN extern TCL_STORAGE_CLASS +#endif + +/* + * The following code is copied from winnt.h. + * If we don't replicate it here, then can't be included + * after tcl.h, since tcl.h also defines VOID. + * This block is skipped under Cygwin and Mingw. + * + * + */ + +#if defined(__WIN32__) && !defined(HAVE_WINNT_IGNORE_VOID) +#ifndef VOID +#define VOID void +typedef char CHAR; +typedef short SHORT; +typedef long LONG; +#endif +#endif /* __WIN32__ && !HAVE_WINNT_IGNORE_VOID */ + +/* + * Macro to use instead of "void" for arguments that must have + * type "void *" in ANSI C; maps them to type "char *" in + * non-ANSI systems. + */ + +#ifndef __VXWORKS__ +# ifndef NO_VOID +# define VOID void +# else +# define VOID char +# endif +#endif + +/* + * Miscellaneous declarations. + */ + +#ifndef _CLIENTDATA +# ifndef NO_VOID + typedef void *ClientData; +# else + typedef int *ClientData; +# endif +# define _CLIENTDATA +#endif + +/* + * Darwin specific configure overrides (to support fat compiles, where + * configure runs only once for multiple architectures): + */ + +#ifdef __APPLE__ +# ifdef __LP64__ +# undef TCL_WIDE_INT_TYPE +# define TCL_WIDE_INT_IS_LONG 1 +# else /* !__LP64__ */ +# define TCL_WIDE_INT_TYPE long long +# undef TCL_WIDE_INT_IS_LONG +# endif /* __LP64__ */ +# undef HAVE_STRUCT_STAT64 +# include +#endif /* __APPLE__ */ + +/* + * Define Tcl_WideInt to be a type that is (at least) 64-bits wide, + * and define Tcl_WideUInt to be the unsigned variant of that type + * (assuming that where we have one, we can have the other.) + * + * Also defines the following macros: + * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on + * a real 64-bit system.) + * Tcl_WideAsLong - forgetful converter from wideInt to long. + * Tcl_LongAsWide - sign-extending converter from long to wideInt. + * Tcl_WideAsDouble - converter from wideInt to double. + * Tcl_DoubleAsWide - converter from double to wideInt. + * + * The following invariant should hold for any long value 'longVal': + * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal)) + * + * Note on converting between Tcl_WideInt and strings. This + * implementation (in tclObj.c) depends on the functions strtoull() + * and sprintf(...,"%" TCL_LL_MODIFIER "d",...). TCL_LL_MODIFIER_SIZE + * is the length of the modifier string, which is "ll" on most 32-bit + * Unix systems. It has to be split up like this to allow for the more + * complex formats sometimes needed (e.g. in the format(n) command.) + */ + +#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG) +# if defined(__WIN32__) +# define TCL_WIDE_INT_TYPE __int64 +# ifdef __BORLANDC__ +# define TCL_LL_MODIFIER "L" +# define TCL_LL_MODIFIER_SIZE 1 +# else /* __BORLANDC__ */ +# define TCL_LL_MODIFIER "I64" +# define TCL_LL_MODIFIER_SIZE 3 +# endif /* __BORLANDC__ */ +# elif defined(__GNUC__) +# define TCL_WIDE_INT_TYPE long long +# define TCL_LL_MODIFIER "ll" +# define TCL_LL_MODIFIER_SIZE 2 +# else /* ! __WIN32__ && ! __GNUC__ */ +/* + * Don't know what platform it is and configure hasn't discovered what + * is going on for us. Try to guess... + */ +# ifdef NO_LIMITS_H +# error please define either TCL_WIDE_INT_TYPE or TCL_WIDE_INT_IS_LONG +# else /* !NO_LIMITS_H */ +# include +# if (INT_MAX < LONG_MAX) +# define TCL_WIDE_INT_IS_LONG 1 +# else +# define TCL_WIDE_INT_TYPE long long +# endif +# endif /* NO_LIMITS_H */ +# endif /* __WIN32__ */ +#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */ +#ifdef TCL_WIDE_INT_IS_LONG +# undef TCL_WIDE_INT_TYPE +# define TCL_WIDE_INT_TYPE long +#endif /* TCL_WIDE_INT_IS_LONG */ + +typedef TCL_WIDE_INT_TYPE Tcl_WideInt; +typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt; + +#ifdef TCL_WIDE_INT_IS_LONG +# define Tcl_WideAsLong(val) ((long)(val)) +# define Tcl_LongAsWide(val) ((long)(val)) +# define Tcl_WideAsDouble(val) ((double)((long)(val))) +# define Tcl_DoubleAsWide(val) ((long)((double)(val))) +# ifndef TCL_LL_MODIFIER +# define TCL_LL_MODIFIER "l" +# define TCL_LL_MODIFIER_SIZE 1 +# endif /* !TCL_LL_MODIFIER */ +#else /* TCL_WIDE_INT_IS_LONG */ +/* + * The next short section of defines are only done when not running on + * Windows or some other strange platform. + */ +# ifndef TCL_LL_MODIFIER +# define TCL_LL_MODIFIER "ll" +# define TCL_LL_MODIFIER_SIZE 2 +# endif /* !TCL_LL_MODIFIER */ +# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val))) +# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val))) +# define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val))) +# define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val))) +#endif /* TCL_WIDE_INT_IS_LONG */ + +#if defined(__WIN32__) +# ifdef __BORLANDC__ + typedef struct stati64 Tcl_StatBuf; +# elif defined(_WIN64) + typedef struct __stat64 Tcl_StatBuf; +# elif (defined(_MSC_VER) && (_MSC_VER < 1400)) || defined(_USE_32BIT_TIME_T) + typedef struct _stati64 Tcl_StatBuf; +# else + typedef struct _stat32i64 Tcl_StatBuf; +# endif /* _MSC_VER < 1400 */ +#elif defined(__CYGWIN__) + typedef struct _stat32i64 { + dev_t st_dev; + unsigned short st_ino; + unsigned short st_mode; + short st_nlink; + short st_uid; + short st_gid; + /* Here is a 2-byte gap */ + dev_t st_rdev; + /* Here is a 4-byte gap */ + long long st_size; + struct {long tv_sec;} st_atim; + struct {long tv_sec;} st_mtim; + struct {long tv_sec;} st_ctim; + /* Here is a 4-byte gap */ + } Tcl_StatBuf; +#elif defined(HAVE_STRUCT_STAT64) + typedef struct stat64 Tcl_StatBuf; +#else + typedef struct stat Tcl_StatBuf; +#endif + + +/* + * This flag controls whether binary compatability is maintained with + * extensions built against a previous version of Tcl. This is true + * by default. + */ +#ifndef TCL_PRESERVE_BINARY_COMPATABILITY +# define TCL_PRESERVE_BINARY_COMPATABILITY 1 +#endif + + +/* + * Data structures defined opaquely in this module. The definitions below + * just provide dummy types. A few fields are made visible in Tcl_Interp + * structures, namely those used for returning a string result from + * commands. Direct access to the result field is discouraged in Tcl 8.0. + * The interpreter result is either an object or a string, and the two + * values are kept consistent unless some C code sets interp->result + * directly. Programmers should use either the procedure Tcl_GetObjResult() + * or Tcl_GetStringResult() to read the interpreter's result. See the + * SetResult man page for details. + * + * Note: any change to the Tcl_Interp definition below must be mirrored + * in the "real" definition in tclInt.h. + * + * Note: Tcl_ObjCmdProc procedures do not directly set result and freeProc. + * Instead, they set a Tcl_Obj member in the "real" structure that can be + * accessed with Tcl_GetObjResult() and Tcl_SetObjResult(). + */ + +typedef struct Tcl_Interp { + char *result; /* If the last command returned a string + * result, this points to it. */ + void (*freeProc) _ANSI_ARGS_((char *blockPtr)); + /* Zero means the string result is + * statically allocated. TCL_DYNAMIC means + * it was allocated with ckalloc and should + * be freed with ckfree. Other values give + * the address of procedure to invoke to + * free the result. Tcl_Eval must free it + * before executing next command. */ + int errorLine; /* When TCL_ERROR is returned, this gives + * the line number within the command where + * the error occurred (1 if first line). */ +} Tcl_Interp; + +typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; +typedef struct Tcl_Channel_ *Tcl_Channel; +typedef struct Tcl_Command_ *Tcl_Command; +typedef struct Tcl_Condition_ *Tcl_Condition; +typedef struct Tcl_EncodingState_ *Tcl_EncodingState; +typedef struct Tcl_Encoding_ *Tcl_Encoding; +typedef struct Tcl_Event Tcl_Event; +typedef struct Tcl_Mutex_ *Tcl_Mutex; +typedef struct Tcl_Pid_ *Tcl_Pid; +typedef struct Tcl_RegExp_ *Tcl_RegExp; +typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey; +typedef struct Tcl_ThreadId_ *Tcl_ThreadId; +typedef struct Tcl_TimerToken_ *Tcl_TimerToken; +typedef struct Tcl_Trace_ *Tcl_Trace; +typedef struct Tcl_Var_ *Tcl_Var; +typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; +typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; + +/* + * Definition of the interface to procedures implementing threads. + * A procedure following this definition is given to each call of + * 'Tcl_CreateThread' and will be called as the main fuction of + * the new thread created by that call. + */ +#if defined __WIN32__ +typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); +#else +typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); +#endif + +/* + * Threading function return types used for abstracting away platform + * differences when writing a Tcl_ThreadCreateProc. See the NewThread + * function in generic/tclThreadTest.c for it's usage. + */ +#ifdef __WIN32__ +# define Tcl_ThreadCreateType unsigned __stdcall +# define TCL_THREAD_CREATE_RETURN return 0 +#else +# define Tcl_ThreadCreateType void +# define TCL_THREAD_CREATE_RETURN +#endif + +/* + * Definition of values for default stacksize and the possible flags to be + * given to Tcl_CreateThread. + */ + +#define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack */ +#define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default behaviour */ +#define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable */ + +/* + * Flag values passed to Tcl_GetRegExpFromObj. + */ +#define TCL_REG_BASIC 000000 /* BREs (convenience) */ +#define TCL_REG_EXTENDED 000001 /* EREs */ +#define TCL_REG_ADVF 000002 /* advanced features in EREs */ +#define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs) */ +#define TCL_REG_QUOTE 000004 /* no special characters, none */ +#define TCL_REG_NOCASE 000010 /* ignore case */ +#define TCL_REG_NOSUB 000020 /* don't care about subexpressions */ +#define TCL_REG_EXPANDED 000040 /* expanded format, white space & + * comments */ +#define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */ +#define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ before */ +#define TCL_REG_NEWLINE 000300 /* newlines are line terminators */ +#define TCL_REG_CANMATCH 001000 /* report details on partial/limited + * matches */ + +/* + * The following flag is experimental and only intended for use by Expect. It + * will probably go away in a later release. + */ + +#define TCL_REG_BOSONLY 002000 /* prepend \A to pattern so it only + * matches at the beginning of the + * string. */ + +/* + * Flags values passed to Tcl_RegExpExecObj. + */ +#define TCL_REG_NOTBOL 0001 /* Beginning of string does not match ^. */ +#define TCL_REG_NOTEOL 0002 /* End of string does not match $. */ + +/* + * Structures filled in by Tcl_RegExpInfo. Note that all offset values are + * relative to the start of the match string, not the beginning of the + * entire string. + */ + +typedef struct Tcl_RegExpIndices { + long start; /* character offset of first character in match */ + long end; /* character offset of first character after the + * match. */ +} Tcl_RegExpIndices; + +typedef struct Tcl_RegExpInfo { + int nsubs; /* number of subexpressions in the + * compiled expression */ + Tcl_RegExpIndices *matches; /* array of nsubs match offset + * pairs */ + long extendStart; /* The offset at which a subsequent + * match might begin. */ + long reserved; /* Reserved for later use. */ +} Tcl_RegExpInfo; + +/* + * Picky compilers complain if this typdef doesn't appear before the + * struct's reference in tclDecls.h. + */ + +typedef Tcl_StatBuf *Tcl_Stat_; +typedef struct stat *Tcl_OldStat_; + +/* + * When a TCL command returns, the interpreter contains a result from the + * command. Programmers are strongly encouraged to use one of the + * procedures Tcl_GetObjResult() or Tcl_GetStringResult() to read the + * interpreter's result. See the SetResult man page for details. Besides + * this result, the command procedure returns an integer code, which is + * one of the following: + * + * TCL_OK Command completed normally; the interpreter's + * result contains the command's result. + * TCL_ERROR The command couldn't be completed successfully; + * the interpreter's result describes what went wrong. + * TCL_RETURN The command requests that the current procedure + * return; the interpreter's result contains the + * procedure's return value. + * TCL_BREAK The command requests that the innermost loop + * be exited; the interpreter's result is meaningless. + * TCL_CONTINUE Go on to the next iteration of the current loop; + * the interpreter's result is meaningless. + */ + +#define TCL_OK 0 +#define TCL_ERROR 1 +#define TCL_RETURN 2 +#define TCL_BREAK 3 +#define TCL_CONTINUE 4 + +#define TCL_RESULT_SIZE 200 + +/* + * Flags to control what substitutions are performed by Tcl_SubstObj(): + */ + +#define TCL_SUBST_COMMANDS 001 +#define TCL_SUBST_VARIABLES 002 +#define TCL_SUBST_BACKSLASHES 004 +#define TCL_SUBST_ALL 007 + + +/* + * Argument descriptors for math function callbacks in expressions: + */ +typedef enum { + TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT +} Tcl_ValueType; +typedef struct Tcl_Value { + Tcl_ValueType type; /* Indicates intValue or doubleValue is + * valid, or both. */ + long intValue; /* Integer value. */ + double doubleValue; /* Double-precision floating value. */ + Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */ +} Tcl_Value; + +/* + * Forward declaration of Tcl_Obj to prevent an error when the forward + * reference to Tcl_Obj is encountered in the procedure types declared + * below. + */ +struct Tcl_Obj; + +/* + * Procedure types defined by Tcl: + */ + +typedef int (Tcl_AppInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); +typedef int (Tcl_AsyncProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int code)); +typedef void (Tcl_ChannelProc) _ANSI_ARGS_((ClientData clientData, int mask)); +typedef void (Tcl_CloseProc) _ANSI_ARGS_((ClientData data)); +typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData)); +typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, CONST84 char *argv[])); +typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc, + ClientData cmdClientData, int argc, CONST84 char *argv[])); +typedef int (Tcl_CmdObjTraceProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int level, CONST char *command, + Tcl_Command commandInfo, int objc, struct Tcl_Obj * CONST * objv)); +typedef void (Tcl_CmdObjTraceDeleteProc) _ANSI_ARGS_((ClientData clientData)); +typedef void (Tcl_DupInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *srcPtr, + struct Tcl_Obj *dupPtr)); +typedef int (Tcl_EncodingConvertProc)_ANSI_ARGS_((ClientData clientData, + CONST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, + char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, + int *dstCharsPtr)); +typedef void (Tcl_EncodingFreeProc)_ANSI_ARGS_((ClientData clientData)); +typedef int (Tcl_EventProc) _ANSI_ARGS_((Tcl_Event *evPtr, int flags)); +typedef void (Tcl_EventCheckProc) _ANSI_ARGS_((ClientData clientData, + int flags)); +typedef int (Tcl_EventDeleteProc) _ANSI_ARGS_((Tcl_Event *evPtr, + ClientData clientData)); +typedef void (Tcl_EventSetupProc) _ANSI_ARGS_((ClientData clientData, + int flags)); +typedef void (Tcl_ExitProc) _ANSI_ARGS_((ClientData clientData)); +typedef void (Tcl_FileProc) _ANSI_ARGS_((ClientData clientData, int mask)); +typedef void (Tcl_FileFreeProc) _ANSI_ARGS_((ClientData clientData)); +typedef void (Tcl_FreeInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); +typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr)); +typedef void (Tcl_IdleProc) _ANSI_ARGS_((ClientData clientData)); +typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp)); +typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr)); +typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_((ClientData clientData)); +typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST * objv)); +typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); +typedef void (Tcl_PanicProc) _ANSI_ARGS_(TCL_VARARGS(CONST char *, format)); +typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData, + Tcl_Channel chan, char *address, int port)); +typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData)); +typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp, + struct Tcl_Obj *objPtr)); +typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); +typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, CONST84 char *part1, CONST84 char *part2, + int flags)); +typedef void (Tcl_CommandTraceProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, CONST char *oldName, CONST char *newName, + int flags)); +typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask, + Tcl_FileProc *proc, ClientData clientData)); +typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd)); +typedef void (Tcl_AlertNotifierProc) _ANSI_ARGS_((ClientData clientData)); +typedef void (Tcl_ServiceModeHookProc) _ANSI_ARGS_((int mode)); +typedef ClientData (Tcl_InitNotifierProc) _ANSI_ARGS_((VOID)); +typedef void (Tcl_FinalizeNotifierProc) _ANSI_ARGS_((ClientData clientData)); +typedef void (Tcl_MainLoopProc) _ANSI_ARGS_((void)); + +/* + * The following structure represents a type of object, which is a + * particular internal representation for an object plus a set of + * procedures that provide standard operations on objects of that type. + */ + +typedef struct Tcl_ObjType { + char *name; /* Name of the type, e.g. "int". */ + Tcl_FreeInternalRepProc *freeIntRepProc; + /* Called to free any storage for the type's + * internal rep. NULL if the internal rep + * does not need freeing. */ + Tcl_DupInternalRepProc *dupIntRepProc; + /* Called to create a new object as a copy + * of an existing object. */ + Tcl_UpdateStringProc *updateStringProc; + /* Called to update the string rep from the + * type's internal representation. */ + Tcl_SetFromAnyProc *setFromAnyProc; + /* Called to convert the object's internal + * rep to this type. Frees the internal rep + * of the old type. Returns TCL_ERROR on + * failure. */ +} Tcl_ObjType; + + +/* + * One of the following structures exists for each object in the Tcl + * system. An object stores a value as either a string, some internal + * representation, or both. + */ + +typedef struct Tcl_Obj { + int refCount; /* When 0 the object will be freed. */ + char *bytes; /* This points to the first byte of the + * object's string representation. The array + * must be followed by a null byte (i.e., at + * offset length) but may also contain + * embedded null characters. The array's + * storage is allocated by ckalloc. NULL + * means the string rep is invalid and must + * be regenerated from the internal rep. + * Clients should use Tcl_GetStringFromObj + * or Tcl_GetString to get a pointer to the + * byte array as a readonly value. */ + int length; /* The number of bytes at *bytes, not + * including the terminating null. */ + Tcl_ObjType *typePtr; /* Denotes the object's type. Always + * corresponds to the type of the object's + * internal rep. NULL indicates the object + * has no internal rep (has no type). */ + union { /* The internal representation: */ + long longValue; /* - an long integer value */ + double doubleValue; /* - a double-precision floating value */ + VOID *otherValuePtr; /* - another, type-specific value */ + Tcl_WideInt wideValue; /* - a long long value */ + struct { /* - internal rep as two pointers */ + VOID *ptr1; + VOID *ptr2; + } twoPtrValue; + } internalRep; +} Tcl_Obj; + + +/* + * Macros to increment and decrement a Tcl_Obj's reference count, and to + * test whether an object is shared (i.e. has reference count > 1). + * Note: clients should use Tcl_DecrRefCount() when they are finished using + * an object, and should never call TclFreeObj() directly. TclFreeObj() is + * only defined and made public in tcl.h to support Tcl_DecrRefCount's macro + * definition. + */ +void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); +void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); +int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr)); + +#ifdef TCL_MEM_DEBUG +# define Tcl_IncrRefCount(objPtr) \ + Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__) +# define Tcl_DecrRefCount(objPtr) \ + Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) +# define Tcl_IsShared(objPtr) \ + Tcl_DbIsShared(objPtr, __FILE__, __LINE__) +#else +# define Tcl_IncrRefCount(objPtr) \ + ++(objPtr)->refCount + /* + * Use do/while0 idiom for optimum correctness without compiler warnings + * http://c2.com/cgi/wiki?TrivialDoWhileLoop + */ +# define Tcl_DecrRefCount(objPtr) \ + do { \ + Tcl_Obj *_objPtr = (objPtr); \ + if (--(_objPtr)->refCount <= 0) { \ + TclFreeObj(_objPtr); \ + } \ + } while(0) +# define Tcl_IsShared(objPtr) \ + ((objPtr)->refCount > 1) +#endif + +/* + * Macros and definitions that help to debug the use of Tcl objects. + * When TCL_MEM_DEBUG is defined, the Tcl_New declarations are + * overridden to call debugging versions of the object creation procedures. + */ + +#ifdef TCL_MEM_DEBUG +# define Tcl_NewBooleanObj(val) \ + Tcl_DbNewBooleanObj(val, __FILE__, __LINE__) +# define Tcl_NewByteArrayObj(bytes, len) \ + Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__) +# define Tcl_NewDoubleObj(val) \ + Tcl_DbNewDoubleObj(val, __FILE__, __LINE__) +# define Tcl_NewIntObj(val) \ + Tcl_DbNewLongObj(val, __FILE__, __LINE__) +# define Tcl_NewListObj(objc, objv) \ + Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__) +# define Tcl_NewLongObj(val) \ + Tcl_DbNewLongObj(val, __FILE__, __LINE__) +# define Tcl_NewObj() \ + Tcl_DbNewObj(__FILE__, __LINE__) +# define Tcl_NewStringObj(bytes, len) \ + Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__) +# define Tcl_NewWideIntObj(val) \ + Tcl_DbNewWideIntObj(val, __FILE__, __LINE__) +#endif /* TCL_MEM_DEBUG */ + + +/* + * The following structure contains the state needed by + * Tcl_SaveResult. No-one outside of Tcl should access any of these + * fields. This structure is typically allocated on the stack. + */ +typedef struct Tcl_SavedResult { + char *result; + Tcl_FreeProc *freeProc; + Tcl_Obj *objResultPtr; + char *appendResult; + int appendAvl; + int appendUsed; + char resultSpace[TCL_RESULT_SIZE+1]; +} Tcl_SavedResult; + +/* + * The following definitions support Tcl's namespace facility. + * Note: the first five fields must match exactly the fields in a + * Namespace structure (see tclInt.h). + */ + +typedef struct Tcl_Namespace { + char *name; /* The namespace's name within its parent + * namespace. This contains no ::'s. The + * name of the global namespace is "" + * although "::" is an synonym. */ + char *fullName; /* The namespace's fully qualified name. + * This starts with ::. */ + ClientData clientData; /* Arbitrary value associated with this + * namespace. */ + Tcl_NamespaceDeleteProc* deleteProc; + /* Procedure invoked when deleting the + * namespace to, e.g., free clientData. */ + struct Tcl_Namespace* parentPtr; + /* Points to the namespace that contains + * this one. NULL if this is the global + * namespace. */ +} Tcl_Namespace; + +/* + * The following structure represents a call frame, or activation record. + * A call frame defines a naming context for a procedure call: its local + * scope (for local variables) and its namespace scope (used for non-local + * variables; often the global :: namespace). A call frame can also define + * the naming context for a namespace eval or namespace inscope command: + * the namespace in which the command's code should execute. The + * Tcl_CallFrame structures exist only while procedures or namespace + * eval/inscope's are being executed, and provide a Tcl call stack. + * + * A call frame is initialized and pushed using Tcl_PushCallFrame and + * popped using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be + * provided by the Tcl_PushCallFrame caller, and callers typically allocate + * them on the C call stack for efficiency. For this reason, Tcl_CallFrame + * is defined as a structure and not as an opaque token. However, most + * Tcl_CallFrame fields are hidden since applications should not access + * them directly; others are declared as "dummyX". + * + * WARNING!! The structure definition must be kept consistent with the + * CallFrame structure in tclInt.h. If you change one, change the other. + */ + +typedef struct Tcl_CallFrame { + Tcl_Namespace *nsPtr; + int dummy1; + int dummy2; + VOID *dummy3; + VOID *dummy4; + VOID *dummy5; + int dummy6; + VOID *dummy7; + VOID *dummy8; + int dummy9; + VOID *dummy10; + VOID *dummy11; + VOID *dummy12; + VOID *dummy13; +} Tcl_CallFrame; + +/* + * Information about commands that is returned by Tcl_GetCommandInfo and + * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based + * command procedure while proc is a traditional Tcl argc/argv + * string-based procedure. Tcl_CreateObjCommand and Tcl_CreateCommand + * ensure that both objProc and proc are non-NULL and can be called to + * execute the command. However, it may be faster to call one instead of + * the other. The member isNativeObjectProc is set to 1 if an + * object-based procedure was registered by Tcl_CreateObjCommand, and to + * 0 if a string-based procedure was registered by Tcl_CreateCommand. + * The other procedure is typically set to a compatibility wrapper that + * does string-to-object or object-to-string argument conversions then + * calls the other procedure. + */ + +typedef struct Tcl_CmdInfo { + int isNativeObjectProc; /* 1 if objProc was registered by a call to + * Tcl_CreateObjCommand; 0 otherwise. + * Tcl_SetCmdInfo does not modify this + * field. */ + Tcl_ObjCmdProc *objProc; /* Command's object-based procedure. */ + ClientData objClientData; /* ClientData for object proc. */ + Tcl_CmdProc *proc; /* Command's string-based procedure. */ + ClientData clientData; /* ClientData for string proc. */ + Tcl_CmdDeleteProc *deleteProc; + /* Procedure to call when command is + * deleted. */ + ClientData deleteData; /* Value to pass to deleteProc (usually + * the same as clientData). */ + Tcl_Namespace *namespacePtr; /* Points to the namespace that contains + * this command. Note that Tcl_SetCmdInfo + * will not change a command's namespace; + * use Tcl_RenameCommand to do that. */ + +} Tcl_CmdInfo; + +/* + * The structure defined below is used to hold dynamic strings. The only + * field that clients should use is the string field, accessible via the + * macro Tcl_DStringValue. + */ + +#define TCL_DSTRING_STATIC_SIZE 200 +typedef struct Tcl_DString { + char *string; /* Points to beginning of string: either + * staticSpace below or a malloced array. */ + int length; /* Number of non-NULL characters in the + * string. */ + int spaceAvl; /* Total number of bytes available for the + * string and its terminating NULL char. */ + char staticSpace[TCL_DSTRING_STATIC_SIZE]; + /* Space to use in common case where string + * is small. */ +} Tcl_DString; + +#define Tcl_DStringLength(dsPtr) ((dsPtr)->length) +#define Tcl_DStringValue(dsPtr) ((dsPtr)->string) +#define Tcl_DStringTrunc Tcl_DStringSetLength + +/* + * Definitions for the maximum number of digits of precision that may + * be specified in the "tcl_precision" variable, and the number of + * bytes of buffer space required by Tcl_PrintDouble. + */ + +#define TCL_MAX_PREC 17 +#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) + +/* + * Definition for a number of bytes of buffer space sufficient to hold the + * string representation of an integer in base 10 (assuming the existence + * of 64-bit integers). + */ + +#define TCL_INTEGER_SPACE 24 + +/* + * Flag that may be passed to Tcl_ConvertElement to force it not to + * output braces (careful! if you change this flag be sure to change + * the definitions at the front of tclUtil.c). + */ + +#define TCL_DONT_USE_BRACES 1 + +/* + * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow + * abbreviated strings. + */ + +#define TCL_EXACT 1 + +/* + * Flag values passed to Tcl_RecordAndEval and/or Tcl_EvalObj. + * WARNING: these bit choices must not conflict with the bit choices + * for evalFlag bits in tclInt.h!! + */ +#define TCL_NO_EVAL 0x10000 +#define TCL_EVAL_GLOBAL 0x20000 +#define TCL_EVAL_DIRECT 0x40000 +#define TCL_EVAL_INVOKE 0x80000 + +/* + * Special freeProc values that may be passed to Tcl_SetResult (see + * the man page for details): + */ + +#define TCL_VOLATILE ((Tcl_FreeProc *) 1) +#define TCL_STATIC ((Tcl_FreeProc *) 0) +#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) + +/* + * Flag values passed to variable-related procedures. + */ + +#define TCL_GLOBAL_ONLY 1 +#define TCL_NAMESPACE_ONLY 2 +#define TCL_APPEND_VALUE 4 +#define TCL_LIST_ELEMENT 8 +#define TCL_TRACE_READS 0x10 +#define TCL_TRACE_WRITES 0x20 +#define TCL_TRACE_UNSETS 0x40 +#define TCL_TRACE_DESTROYED 0x80 +#define TCL_INTERP_DESTROYED 0x100 +#define TCL_LEAVE_ERR_MSG 0x200 +#define TCL_TRACE_ARRAY 0x800 +#ifndef TCL_REMOVE_OBSOLETE_TRACES +/* Required to support old variable/vdelete/vinfo traces */ +#define TCL_TRACE_OLD_STYLE 0x1000 +#endif +/* Indicate the semantics of the result of a trace */ +#define TCL_TRACE_RESULT_DYNAMIC 0x8000 +#define TCL_TRACE_RESULT_OBJECT 0x10000 + +/* + * Flag values passed to command-related procedures. + */ + +#define TCL_TRACE_RENAME 0x2000 +#define TCL_TRACE_DELETE 0x4000 + +#define TCL_ALLOW_INLINE_COMPILATION 0x20000 + +/* + * Flag values passed to Tcl_CreateObjTrace, and used internally + * by command execution traces. Slots 4,8,16 and 32 are + * used internally by execution traces (see tclCmdMZ.c) + */ +#define TCL_TRACE_ENTER_EXEC 1 +#define TCL_TRACE_LEAVE_EXEC 2 + +/* + * The TCL_PARSE_PART1 flag is deprecated and has no effect. + * The part1 is now always parsed whenever the part2 is NULL. + * (This is to avoid a common error when converting code to + * use the new object based APIs and forgetting to give the + * flag) + */ +#ifndef TCL_NO_DEPRECATED +# define TCL_PARSE_PART1 0x400 +#endif + +/* + * Types for linked variables: + */ +#define TCL_LINK_INT 1 +#define TCL_LINK_DOUBLE 2 +#define TCL_LINK_BOOLEAN 3 +#define TCL_LINK_STRING 4 +#define TCL_LINK_WIDE_INT 5 +#define TCL_LINK_READ_ONLY 0x80 + +/* + * Forward declarations of Tcl_HashTable and related types. + */ + +typedef struct Tcl_HashKeyType Tcl_HashKeyType; +typedef struct Tcl_HashTable Tcl_HashTable; +typedef struct Tcl_HashEntry Tcl_HashEntry; + +typedef unsigned int (Tcl_HashKeyProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, + VOID *keyPtr)); +typedef int (Tcl_CompareHashKeysProc) _ANSI_ARGS_((VOID *keyPtr, + Tcl_HashEntry *hPtr)); +typedef Tcl_HashEntry *(Tcl_AllocHashEntryProc) _ANSI_ARGS_(( + Tcl_HashTable *tablePtr, VOID *keyPtr)); +typedef void (Tcl_FreeHashEntryProc) _ANSI_ARGS_((Tcl_HashEntry *hPtr)); + +/* + * This flag controls whether the hash table stores the hash of a key, or + * recalculates it. There should be no reason for turning this flag off + * as it is completely binary and source compatible unless you directly + * access the bucketPtr member of the Tcl_HashTableEntry structure. This + * member has been removed and the space used to store the hash value. + */ + +#ifndef TCL_HASH_KEY_STORE_HASH +# define TCL_HASH_KEY_STORE_HASH 1 +#endif + +/* + * Structure definition for an entry in a hash table. No-one outside + * Tcl should access any of these fields directly; use the macros + * defined below. + */ + +struct Tcl_HashEntry { + Tcl_HashEntry *nextPtr; /* Pointer to next entry in this + * hash bucket, or NULL for end of + * chain. */ + Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */ +#if TCL_HASH_KEY_STORE_HASH +# if TCL_PRESERVE_BINARY_COMPATABILITY + VOID *hash; /* Hash value, stored as pointer to + * ensure that the offsets of the + * fields in this structure are not + * changed. */ +# else + unsigned int hash; /* Hash value. */ +# endif +#else + Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to + * first entry in this entry's chain: + * used for deleting the entry. */ +#endif + ClientData clientData; /* Application stores something here + * with Tcl_SetHashValue. */ + union { /* Key has one of these forms: */ + char *oneWordValue; /* One-word value for key. */ + Tcl_Obj *objPtr; /* Tcl_Obj * key value. */ + int words[1]; /* Multiple integer words for key. + * The actual size will be as large + * as necessary for this table's + * keys. */ + char string[4]; /* String for key. The actual size + * will be as large as needed to hold + * the key. */ + } key; /* MUST BE LAST FIELD IN RECORD!! */ +}; + +/* + * Flags used in Tcl_HashKeyType. + * + * TCL_HASH_KEY_RANDOMIZE_HASH: + * There are some things, pointers for example + * which don't hash well because they do not use + * the lower bits. If this flag is set then the + * hash table will attempt to rectify this by + * randomising the bits and then using the upper + * N bits as the index into the table. + */ +#define TCL_HASH_KEY_RANDOMIZE_HASH 0x1 + +/* + * Structure definition for the methods associated with a hash table + * key type. + */ +#define TCL_HASH_KEY_TYPE_VERSION 1 +struct Tcl_HashKeyType { + int version; /* Version of the table. If this structure is + * extended in future then the version can be + * used to distinguish between different + * structures. + */ + + int flags; /* Flags, see above for details. */ + + /* Calculates a hash value for the key. If this is NULL then the pointer + * itself is used as a hash value. + */ + Tcl_HashKeyProc *hashKeyProc; + + /* Compares two keys and returns zero if they do not match, and non-zero + * if they do. If this is NULL then the pointers are compared. + */ + Tcl_CompareHashKeysProc *compareKeysProc; + + /* Called to allocate memory for a new entry, i.e. if the key is a + * string then this could allocate a single block which contains enough + * space for both the entry and the string. Only the key field of the + * allocated Tcl_HashEntry structure needs to be filled in. If something + * else needs to be done to the key, i.e. incrementing a reference count + * then that should be done by this function. If this is NULL then Tcl_Alloc + * is used to allocate enough space for a Tcl_HashEntry and the key pointer + * is assigned to key.oneWordValue. + */ + Tcl_AllocHashEntryProc *allocEntryProc; + + /* Called to free memory associated with an entry. If something else needs + * to be done to the key, i.e. decrementing a reference count then that + * should be done by this function. If this is NULL then Tcl_Free is used + * to free the Tcl_HashEntry. + */ + Tcl_FreeHashEntryProc *freeEntryProc; +}; + +/* + * Structure definition for a hash table. Must be in tcl.h so clients + * can allocate space for these structures, but clients should never + * access any fields in this structure. + */ + +#define TCL_SMALL_HASH_TABLE 4 +struct Tcl_HashTable { + Tcl_HashEntry **buckets; /* Pointer to bucket array. Each + * element points to first entry in + * bucket's hash chain, or NULL. */ + Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; + /* Bucket array used for small tables + * (to avoid mallocs and frees). */ + int numBuckets; /* Total number of buckets allocated + * at **bucketPtr. */ + int numEntries; /* Total number of entries present + * in table. */ + int rebuildSize; /* Enlarge table when numEntries gets + * to be this large. */ + int downShift; /* Shift count used in hashing + * function. Designed to use high- + * order bits of randomized keys. */ + int mask; /* Mask value used in hashing + * function. */ + int keyType; /* Type of keys used in this table. + * It's either TCL_CUSTOM_KEYS, + * TCL_STRING_KEYS, TCL_ONE_WORD_KEYS, + * or an integer giving the number of + * ints that is the size of the key. + */ +#if TCL_PRESERVE_BINARY_COMPATABILITY + Tcl_HashEntry *(*findProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, + CONST char *key)); + Tcl_HashEntry *(*createProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, + CONST char *key, int *newPtr)); +#endif + Tcl_HashKeyType *typePtr; /* Type of the keys used in the + * Tcl_HashTable. */ +}; + +/* + * Structure definition for information used to keep track of searches + * through hash tables: + */ + +typedef struct Tcl_HashSearch { + Tcl_HashTable *tablePtr; /* Table being searched. */ + int nextIndex; /* Index of next bucket to be + * enumerated after present one. */ + Tcl_HashEntry *nextEntryPtr; /* Next entry to be enumerated in the + * the current bucket. */ +} Tcl_HashSearch; + +/* + * Acceptable key types for hash tables: + * + * TCL_STRING_KEYS: The keys are strings, they are copied into + * the entry. + * TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored + * in the entry. + * TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copied + * into the entry. + * TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary types, the + * pointer is stored in the entry. + * + * While maintaining binary compatability the above have to be distinct + * values as they are used to differentiate between old versions of the + * hash table which don't have a typePtr and new ones which do. Once binary + * compatability is discarded in favour of making more wide spread changes + * TCL_STRING_KEYS can be the same as TCL_CUSTOM_TYPE_KEYS, and + * TCL_ONE_WORD_KEYS can be the same as TCL_CUSTOM_PTR_KEYS because they + * simply determine how the key is accessed from the entry and not the + * behaviour. + */ + +#define TCL_STRING_KEYS 0 +#define TCL_ONE_WORD_KEYS 1 + +#if TCL_PRESERVE_BINARY_COMPATABILITY +# define TCL_CUSTOM_TYPE_KEYS -2 +# define TCL_CUSTOM_PTR_KEYS -1 +#else +# define TCL_CUSTOM_TYPE_KEYS TCL_STRING_KEYS +# define TCL_CUSTOM_PTR_KEYS TCL_ONE_WORD_KEYS +#endif + +/* + * Macros for clients to use to access fields of hash entries: + */ + +#define Tcl_GetHashValue(h) ((h)->clientData) +#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) +#if TCL_PRESERVE_BINARY_COMPATABILITY +# define Tcl_GetHashKey(tablePtr, h) \ + ((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \ + (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \ + ? (h)->key.oneWordValue \ + : (h)->key.string)) +#else +# define Tcl_GetHashKey(tablePtr, h) \ + ((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS) \ + ? (h)->key.oneWordValue \ + : (h)->key.string)) +#endif + +/* + * Macros to use for clients to use to invoke find and create procedures + * for hash tables: + */ + +#if TCL_PRESERVE_BINARY_COMPATABILITY +# define Tcl_FindHashEntry(tablePtr, key) \ + (*((tablePtr)->findProc))(tablePtr, key) +# define Tcl_CreateHashEntry(tablePtr, key, newPtr) \ + (*((tablePtr)->createProc))(tablePtr, key, newPtr) +#else /* !TCL_PRESERVE_BINARY_COMPATABILITY */ +/* + * Macro to use new extended version of Tcl_InitHashTable. + */ +# define Tcl_InitHashTable(tablePtr, keyType) \ + Tcl_InitHashTableEx(tablePtr, keyType, NULL) +#endif /* TCL_PRESERVE_BINARY_COMPATABILITY */ + + +/* + * Flag values to pass to Tcl_DoOneEvent to disable searches + * for some kinds of events: + */ +#define TCL_DONT_WAIT (1<<1) +#define TCL_WINDOW_EVENTS (1<<2) +#define TCL_FILE_EVENTS (1<<3) +#define TCL_TIMER_EVENTS (1<<4) +#define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */ +#define TCL_ALL_EVENTS (~TCL_DONT_WAIT) + +/* + * The following structure defines a generic event for the Tcl event + * system. These are the things that are queued in calls to Tcl_QueueEvent + * and serviced later by Tcl_DoOneEvent. There can be many different + * kinds of events with different fields, corresponding to window events, + * timer events, etc. The structure for a particular event consists of + * a Tcl_Event header followed by additional information specific to that + * event. + */ + +struct Tcl_Event { + Tcl_EventProc *proc; /* Procedure to call to service this event. */ + struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */ +}; + +/* + * Positions to pass to Tcl_QueueEvent: + */ + +typedef enum { + TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK +} Tcl_QueuePosition; + +/* + * Values to pass to Tcl_SetServiceMode to specify the behavior of notifier + * event routines. + */ + +#define TCL_SERVICE_NONE 0 +#define TCL_SERVICE_ALL 1 + +/* + * The following structure keeps is used to hold a time value, either as + * an absolute time (the number of seconds from the epoch) or as an + * elapsed time. On Unix systems the epoch is Midnight Jan 1, 1970 GMT. + */ + +typedef struct Tcl_Time { + long sec; /* Seconds. */ + long usec; /* Microseconds. */ +} Tcl_Time; + +typedef void (Tcl_SetTimerProc) _ANSI_ARGS_((Tcl_Time *timePtr)); +typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr)); + +/* + * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler + * to indicate what sorts of events are of interest: + */ +#define TCL_READABLE (1<<1) +#define TCL_WRITABLE (1<<2) +#define TCL_EXCEPTION (1<<3) + +/* + * Flag values to pass to Tcl_OpenCommandChannel to indicate the + * disposition of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, + * are also used in Tcl_GetStdChannel. + */ + +#define TCL_STDIN (1<<1) +#define TCL_STDOUT (1<<2) +#define TCL_STDERR (1<<3) +#define TCL_ENFORCE_MODE (1<<4) + +/* + * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel + * should be closed. + */ +#define TCL_CLOSE_READ (1<<1) +#define TCL_CLOSE_WRITE (1<<2) + +/* + * Value to use as the closeProc for a channel that supports the + * close2Proc interface. + */ + +#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *)1) + +/* + * Channel version tag. This was introduced in 8.3.2/8.4. + */ + +#define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1) +#define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2) +#define TCL_CHANNEL_VERSION_3 ((Tcl_ChannelTypeVersion) 0x3) +#define TCL_CHANNEL_VERSION_4 ((Tcl_ChannelTypeVersion) 0x4) + +/* + * TIP #218: Channel Actions, Ids for Tcl_DriverThreadActionProc + */ + +#define TCL_CHANNEL_THREAD_INSERT (0) +#define TCL_CHANNEL_THREAD_REMOVE (1) + +/* + * Typedefs for the various operations in a channel type: + */ + +typedef int (Tcl_DriverBlockModeProc) _ANSI_ARGS_(( + ClientData instanceData, int mode)); +typedef int (Tcl_DriverCloseProc) _ANSI_ARGS_((ClientData instanceData, + Tcl_Interp *interp)); +typedef int (Tcl_DriverClose2Proc) _ANSI_ARGS_((ClientData instanceData, + Tcl_Interp *interp, int flags)); +typedef int (Tcl_DriverInputProc) _ANSI_ARGS_((ClientData instanceData, + char *buf, int toRead, int *errorCodePtr)); +typedef int (Tcl_DriverOutputProc) _ANSI_ARGS_((ClientData instanceData, + CONST84 char *buf, int toWrite, int *errorCodePtr)); +typedef int (Tcl_DriverSeekProc) _ANSI_ARGS_((ClientData instanceData, + long offset, int mode, int *errorCodePtr)); +typedef int (Tcl_DriverSetOptionProc) _ANSI_ARGS_(( + ClientData instanceData, Tcl_Interp *interp, + CONST char *optionName, CONST char *value)); +typedef int (Tcl_DriverGetOptionProc) _ANSI_ARGS_(( + ClientData instanceData, Tcl_Interp *interp, + CONST84 char *optionName, Tcl_DString *dsPtr)); +typedef void (Tcl_DriverWatchProc) _ANSI_ARGS_(( + ClientData instanceData, int mask)); +typedef int (Tcl_DriverGetHandleProc) _ANSI_ARGS_(( + ClientData instanceData, int direction, + ClientData *handlePtr)); +typedef int (Tcl_DriverFlushProc) _ANSI_ARGS_(( + ClientData instanceData)); +typedef int (Tcl_DriverHandlerProc) _ANSI_ARGS_(( + ClientData instanceData, int interestMask)); +typedef Tcl_WideInt (Tcl_DriverWideSeekProc) _ANSI_ARGS_(( + ClientData instanceData, Tcl_WideInt offset, + int mode, int *errorCodePtr)); + + /* TIP #218, Channel Thread Actions */ +typedef void (Tcl_DriverThreadActionProc) _ANSI_ARGS_ (( + ClientData instanceData, int action)); + +/* + * The following declarations either map ckalloc and ckfree to + * malloc and free, or they map them to procedures with all sorts + * of debugging hooks defined in tclCkalloc.c. + */ +#ifdef TCL_MEM_DEBUG + +# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__) +# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__) +# define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__) +# define attemptckalloc(x) Tcl_AttemptDbCkalloc(x, __FILE__, __LINE__) +# define attemptckrealloc(x,y) Tcl_AttemptDbCkrealloc((x), (y), __FILE__, __LINE__) +#else /* !TCL_MEM_DEBUG */ + +/* + * If we are not using the debugging allocator, we should call the + * Tcl_Alloc, et al. routines in order to guarantee that every module + * is using the same memory allocator both inside and outside of the + * Tcl library. + */ +# define ckalloc(x) Tcl_Alloc(x) +# define ckfree(x) Tcl_Free(x) +# define ckrealloc(x,y) Tcl_Realloc(x,y) +# define attemptckalloc(x) Tcl_AttemptAlloc(x) +# define attemptckrealloc(x,y) Tcl_AttemptRealloc(x,y) +# define Tcl_InitMemory(x) +# define Tcl_DumpActiveMemory(x) +# define Tcl_ValidateAllMemory(x,y) + +#endif /* !TCL_MEM_DEBUG */ + +/* + * struct Tcl_ChannelType: + * + * One such structure exists for each type (kind) of channel. + * It collects together in one place all the functions that are + * part of the specific channel type. + * + * It is recommend that the Tcl_Channel* functions are used to access + * elements of this structure, instead of direct accessing. + */ + +typedef struct Tcl_ChannelType { + char *typeName; /* The name of the channel type in Tcl + * commands. This storage is owned by + * channel type. */ + Tcl_ChannelTypeVersion version; /* Version of the channel type. */ + Tcl_DriverCloseProc *closeProc; /* Procedure to call to close the + * channel, or TCL_CLOSE2PROC if the + * close2Proc should be used + * instead. */ + Tcl_DriverInputProc *inputProc; /* Procedure to call for input + * on channel. */ + Tcl_DriverOutputProc *outputProc; /* Procedure to call for output + * on channel. */ + Tcl_DriverSeekProc *seekProc; /* Procedure to call to seek + * on the channel. May be NULL. */ + Tcl_DriverSetOptionProc *setOptionProc; + /* Set an option on a channel. */ + Tcl_DriverGetOptionProc *getOptionProc; + /* Get an option from a channel. */ + Tcl_DriverWatchProc *watchProc; /* Set up the notifier to watch + * for events on this channel. */ + Tcl_DriverGetHandleProc *getHandleProc; + /* Get an OS handle from the channel + * or NULL if not supported. */ + Tcl_DriverClose2Proc *close2Proc; /* Procedure to call to close the + * channel if the device supports + * closing the read & write sides + * independently. */ + Tcl_DriverBlockModeProc *blockModeProc; + /* Set blocking mode for the + * raw channel. May be NULL. */ + /* + * Only valid in TCL_CHANNEL_VERSION_2 channels or later + */ + Tcl_DriverFlushProc *flushProc; /* Procedure to call to flush a + * channel. May be NULL. */ + Tcl_DriverHandlerProc *handlerProc; /* Procedure to call to handle a + * channel event. This will be passed + * up the stacked channel chain. */ + /* + * Only valid in TCL_CHANNEL_VERSION_3 channels or later + */ + Tcl_DriverWideSeekProc *wideSeekProc; + /* Procedure to call to seek + * on the channel which can + * handle 64-bit offsets. May be + * NULL, and must be NULL if + * seekProc is NULL. */ + + /* + * Only valid in TCL_CHANNEL_VERSION_4 channels or later + * TIP #218, Channel Thread Actions + */ + Tcl_DriverThreadActionProc *threadActionProc; + /* Procedure to call to notify + * the driver of thread specific + * activity for a channel. + * May be NULL. */ +} Tcl_ChannelType; + +/* + * The following flags determine whether the blockModeProc above should + * set the channel into blocking or nonblocking mode. They are passed + * as arguments to the blockModeProc procedure in the above structure. + */ +#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. */ +#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking + * mode. */ + +/* + * Enum for different types of file paths. + */ + +typedef enum Tcl_PathType { + TCL_PATH_ABSOLUTE, + TCL_PATH_RELATIVE, + TCL_PATH_VOLUME_RELATIVE +} Tcl_PathType; + +/* + * The following structure is used to pass glob type data amongst + * the various glob routines and Tcl_FSMatchInDirectory. + */ +typedef struct Tcl_GlobTypeData { + /* Corresponds to bcdpfls as in 'find -t' */ + int type; + /* Corresponds to file permissions */ + int perm; + /* Acceptable mac type */ + Tcl_Obj* macType; + /* Acceptable mac creator */ + Tcl_Obj* macCreator; +} Tcl_GlobTypeData; + +/* + * type and permission definitions for glob command + */ + +#define TCL_GLOB_TYPE_BLOCK (1<<0) +#define TCL_GLOB_TYPE_CHAR (1<<1) +#define TCL_GLOB_TYPE_DIR (1<<2) +#define TCL_GLOB_TYPE_PIPE (1<<3) +#define TCL_GLOB_TYPE_FILE (1<<4) +#define TCL_GLOB_TYPE_LINK (1<<5) +#define TCL_GLOB_TYPE_SOCK (1<<6) +#define TCL_GLOB_TYPE_MOUNT (1<<7) + +#define TCL_GLOB_PERM_RONLY (1<<0) +#define TCL_GLOB_PERM_HIDDEN (1<<1) +#define TCL_GLOB_PERM_R (1<<2) +#define TCL_GLOB_PERM_W (1<<3) +#define TCL_GLOB_PERM_X (1<<4) + +/* + * Typedefs for the various filesystem operations: + */ + +typedef int (Tcl_FSStatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *buf)); +typedef int (Tcl_FSAccessProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode)); +typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) + _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr, + int mode, int permissions)); +typedef int (Tcl_FSMatchInDirectoryProc) _ANSI_ARGS_((Tcl_Interp* interp, + Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern, + Tcl_GlobTypeData * types)); +typedef Tcl_Obj* (Tcl_FSGetCwdProc) _ANSI_ARGS_((Tcl_Interp *interp)); +typedef int (Tcl_FSChdirProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); +typedef int (Tcl_FSLstatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, + Tcl_StatBuf *buf)); +typedef int (Tcl_FSCreateDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); +typedef int (Tcl_FSDeleteFileProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); +typedef int (Tcl_FSCopyDirectoryProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr)); +typedef int (Tcl_FSCopyFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr)); +typedef int (Tcl_FSRemoveDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, + int recursive, Tcl_Obj **errorPtr)); +typedef int (Tcl_FSRenameFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr)); +typedef void (Tcl_FSUnloadFileProc) _ANSI_ARGS_((Tcl_LoadHandle loadHandle)); +typedef Tcl_Obj* (Tcl_FSListVolumesProc) _ANSI_ARGS_((void)); +/* We have to declare the utime structure here. */ +struct utimbuf; +typedef int (Tcl_FSUtimeProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, + struct utimbuf *tval)); +typedef int (Tcl_FSNormalizePathProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *pathPtr, int nextCheckpoint)); +typedef int (Tcl_FSFileAttrsGetProc) _ANSI_ARGS_((Tcl_Interp *interp, + int index, Tcl_Obj *pathPtr, + Tcl_Obj **objPtrRef)); +typedef CONST char** (Tcl_FSFileAttrStringsProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, + Tcl_Obj** objPtrRef)); +typedef int (Tcl_FSFileAttrsSetProc) _ANSI_ARGS_((Tcl_Interp *interp, + int index, Tcl_Obj *pathPtr, + Tcl_Obj *objPtr)); +typedef Tcl_Obj* (Tcl_FSLinkProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, + Tcl_Obj *toPtr, int linkType)); +typedef int (Tcl_FSLoadFileProc) _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj *pathPtr, + Tcl_LoadHandle *handlePtr, + Tcl_FSUnloadFileProc **unloadProcPtr)); +typedef int (Tcl_FSPathInFilesystemProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, + ClientData *clientDataPtr)); +typedef Tcl_Obj* (Tcl_FSFilesystemPathTypeProc) + _ANSI_ARGS_((Tcl_Obj *pathPtr)); +typedef Tcl_Obj* (Tcl_FSFilesystemSeparatorProc) + _ANSI_ARGS_((Tcl_Obj *pathPtr)); +typedef void (Tcl_FSFreeInternalRepProc) _ANSI_ARGS_((ClientData clientData)); +typedef ClientData (Tcl_FSDupInternalRepProc) + _ANSI_ARGS_((ClientData clientData)); +typedef Tcl_Obj* (Tcl_FSInternalToNormalizedProc) + _ANSI_ARGS_((ClientData clientData)); +typedef ClientData (Tcl_FSCreateInternalRepProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); + +typedef struct Tcl_FSVersion_ *Tcl_FSVersion; + +/* + *---------------------------------------------------------------- + * Data structures related to hooking into the filesystem + *---------------------------------------------------------------- + */ + +/* + * Filesystem version tag. This was introduced in 8.4. + */ +#define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1) + +/* + * struct Tcl_Filesystem: + * + * One such structure exists for each type (kind) of filesystem. + * It collects together in one place all the functions that are + * part of the specific filesystem. Tcl always accesses the + * filesystem through one of these structures. + * + * Not all entries need be non-NULL; any which are NULL are simply + * ignored. However, a complete filesystem should provide all of + * these functions. The explanations in the structure show + * the importance of each function. + */ + +typedef struct Tcl_Filesystem { + CONST char *typeName; /* The name of the filesystem. */ + int structureLength; /* Length of this structure, so future + * binary compatibility can be assured. */ + Tcl_FSVersion version; + /* Version of the filesystem type. */ + Tcl_FSPathInFilesystemProc *pathInFilesystemProc; + /* Function to check whether a path is in + * this filesystem. This is the most + * important filesystem procedure. */ + Tcl_FSDupInternalRepProc *dupInternalRepProc; + /* Function to duplicate internal fs rep. May + * be NULL (but then fs is less efficient). */ + Tcl_FSFreeInternalRepProc *freeInternalRepProc; + /* Function to free internal fs rep. Must + * be implemented, if internal representations + * need freeing, otherwise it can be NULL. */ + Tcl_FSInternalToNormalizedProc *internalToNormalizedProc; + /* Function to convert internal representation + * to a normalized path. Only required if + * the fs creates pure path objects with no + * string/path representation. */ + Tcl_FSCreateInternalRepProc *createInternalRepProc; + /* Function to create a filesystem-specific + * internal representation. May be NULL + * if paths have no internal representation, + * or if the Tcl_FSPathInFilesystemProc + * for this filesystem always immediately + * creates an internal representation for + * paths it accepts. */ + Tcl_FSNormalizePathProc *normalizePathProc; + /* Function to normalize a path. Should + * be implemented for all filesystems + * which can have multiple string + * representations for the same path + * object. */ + Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc; + /* Function to determine the type of a + * path in this filesystem. May be NULL. */ + Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc; + /* Function to return the separator + * character(s) for this filesystem. Must + * be implemented. */ + Tcl_FSStatProc *statProc; + /* + * Function to process a 'Tcl_FSStat()' + * call. Must be implemented for any + * reasonable filesystem. + */ + Tcl_FSAccessProc *accessProc; + /* + * Function to process a 'Tcl_FSAccess()' + * call. Must be implemented for any + * reasonable filesystem. + */ + Tcl_FSOpenFileChannelProc *openFileChannelProc; + /* + * Function to process a + * 'Tcl_FSOpenFileChannel()' call. Must be + * implemented for any reasonable + * filesystem. + */ + Tcl_FSMatchInDirectoryProc *matchInDirectoryProc; + /* Function to process a + * 'Tcl_FSMatchInDirectory()'. If not + * implemented, then glob and recursive + * copy functionality will be lacking in + * the filesystem. */ + Tcl_FSUtimeProc *utimeProc; + /* Function to process a + * 'Tcl_FSUtime()' call. Required to + * allow setting (not reading) of times + * with 'file mtime', 'file atime' and + * the open-r/open-w/fcopy implementation + * of 'file copy'. */ + Tcl_FSLinkProc *linkProc; + /* Function to process a + * 'Tcl_FSLink()' call. Should be + * implemented only if the filesystem supports + * links (reading or creating). */ + Tcl_FSListVolumesProc *listVolumesProc; + /* Function to list any filesystem volumes + * added by this filesystem. Should be + * implemented only if the filesystem adds + * volumes at the head of the filesystem. */ + Tcl_FSFileAttrStringsProc *fileAttrStringsProc; + /* Function to list all attributes strings + * which are valid for this filesystem. + * If not implemented the filesystem will + * not support the 'file attributes' command. + * This allows arbitrary additional information + * to be attached to files in the filesystem. */ + Tcl_FSFileAttrsGetProc *fileAttrsGetProc; + /* Function to process a + * 'Tcl_FSFileAttrsGet()' call, used by + * 'file attributes'. */ + Tcl_FSFileAttrsSetProc *fileAttrsSetProc; + /* Function to process a + * 'Tcl_FSFileAttrsSet()' call, used by + * 'file attributes'. */ + Tcl_FSCreateDirectoryProc *createDirectoryProc; + /* Function to process a + * 'Tcl_FSCreateDirectory()' call. Should + * be implemented unless the FS is + * read-only. */ + Tcl_FSRemoveDirectoryProc *removeDirectoryProc; + /* Function to process a + * 'Tcl_FSRemoveDirectory()' call. Should + * be implemented unless the FS is + * read-only. */ + Tcl_FSDeleteFileProc *deleteFileProc; + /* Function to process a + * 'Tcl_FSDeleteFile()' call. Should + * be implemented unless the FS is + * read-only. */ + Tcl_FSCopyFileProc *copyFileProc; + /* Function to process a + * 'Tcl_FSCopyFile()' call. If not + * implemented Tcl will fall back + * on open-r, open-w and fcopy as + * a copying mechanism, for copying + * actions initiated in Tcl (not C). */ + Tcl_FSRenameFileProc *renameFileProc; + /* Function to process a + * 'Tcl_FSRenameFile()' call. If not + * implemented, Tcl will fall back on + * a copy and delete mechanism, for + * rename actions initiated in Tcl (not C). */ + Tcl_FSCopyDirectoryProc *copyDirectoryProc; + /* Function to process a + * 'Tcl_FSCopyDirectory()' call. If + * not implemented, Tcl will fall back + * on a recursive create-dir, file copy + * mechanism, for copying actions + * initiated in Tcl (not C). */ + Tcl_FSLstatProc *lstatProc; + /* Function to process a + * 'Tcl_FSLstat()' call. If not implemented, + * Tcl will attempt to use the 'statProc' + * defined above instead. */ + Tcl_FSLoadFileProc *loadFileProc; + /* Function to process a + * 'Tcl_FSLoadFile()' call. If not + * implemented, Tcl will fall back on + * a copy to native-temp followed by a + * Tcl_FSLoadFile on that temporary copy. */ + Tcl_FSGetCwdProc *getCwdProc; + /* + * Function to process a 'Tcl_FSGetCwd()' + * call. Most filesystems need not + * implement this. It will usually only be + * called once, if 'getcwd' is called + * before 'chdir'. May be NULL. + */ + Tcl_FSChdirProc *chdirProc; + /* + * Function to process a 'Tcl_FSChdir()' + * call. If filesystems do not implement + * this, it will be emulated by a series of + * directory access checks. Otherwise, + * virtual filesystems which do implement + * it need only respond with a positive + * return result if the dirName is a valid + * directory in their filesystem. They + * need not remember the result, since that + * will be automatically remembered for use + * by GetCwd. Real filesystems should + * carry out the correct action (i.e. call + * the correct system 'chdir' api). If not + * implemented, then 'cd' and 'pwd' will + * fail inside the filesystem. + */ +} Tcl_Filesystem; + +/* + * The following definitions are used as values for the 'linkAction' flag + * to Tcl_FSLink, or the linkProc of any filesystem. Any combination + * of flags can be given. For link creation, the linkProc should create + * a link which matches any of the types given. + * + * TCL_CREATE_SYMBOLIC_LINK: Create a symbolic or soft link. + * TCL_CREATE_HARD_LINK: Create a hard link. + */ + +#define TCL_CREATE_SYMBOLIC_LINK 0x01 +#define TCL_CREATE_HARD_LINK 0x02 + +/* + * The following structure represents the Notifier functions that + * you can override with the Tcl_SetNotifier call. + */ + +typedef struct Tcl_NotifierProcs { + Tcl_SetTimerProc *setTimerProc; + Tcl_WaitForEventProc *waitForEventProc; + Tcl_CreateFileHandlerProc *createFileHandlerProc; + Tcl_DeleteFileHandlerProc *deleteFileHandlerProc; + Tcl_InitNotifierProc *initNotifierProc; + Tcl_FinalizeNotifierProc *finalizeNotifierProc; + Tcl_AlertNotifierProc *alertNotifierProc; + Tcl_ServiceModeHookProc *serviceModeHookProc; +} Tcl_NotifierProcs; + +/* + * The following structure represents a user-defined encoding. It collects + * together all the functions that are used by the specific encoding. + */ + +typedef struct Tcl_EncodingType { + CONST char *encodingName; /* The name of the encoding, e.g. "euc-jp". + * This name is the unique key for this + * encoding type. */ + Tcl_EncodingConvertProc *toUtfProc; + /* Procedure to convert from external + * encoding into UTF-8. */ + Tcl_EncodingConvertProc *fromUtfProc; + /* Procedure to convert from UTF-8 into + * external encoding. */ + Tcl_EncodingFreeProc *freeProc; + /* If non-NULL, procedure to call when this + * encoding is deleted. */ + ClientData clientData; /* Arbitrary value associated with encoding + * type. Passed to conversion procedures. */ + int nullSize; /* Number of zero bytes that signify + * end-of-string in this encoding. This + * number is used to determine the source + * string length when the srcLen argument is + * negative. Must be 1 or 2. */ +} Tcl_EncodingType; + +/* + * The following definitions are used as values for the conversion control + * flags argument when converting text from one character set to another: + * + * TCL_ENCODING_START: Signifies that the source buffer is the first + * block in a (potentially multi-block) input + * stream. Tells the conversion procedure to + * reset to an initial state and perform any + * initialization that needs to occur before the + * first byte is converted. If the source + * buffer contains the entire input stream to be + * converted, this flag should be set. + * + * TCL_ENCODING_END: Signifies that the source buffer is the last + * block in a (potentially multi-block) input + * stream. Tells the conversion routine to + * perform any finalization that needs to occur + * after the last byte is converted and then to + * reset to an initial state. If the source + * buffer contains the entire input stream to be + * converted, this flag should be set. + * + * TCL_ENCODING_STOPONERROR: If set, then the converter will return + * immediately upon encountering an invalid + * byte sequence or a source character that has + * no mapping in the target encoding. If clear, + * then the converter will skip the problem, + * substituting one or more "close" characters + * in the destination buffer and then continue + * to sonvert the source. + */ +#define TCL_ENCODING_START 0x01 +#define TCL_ENCODING_END 0x02 +#define TCL_ENCODING_STOPONERROR 0x04 + +/* + * The following data structures and declarations are for the new Tcl + * parser. + */ + +/* + * For each word of a command, and for each piece of a word such as a + * variable reference, one of the following structures is created to + * describe the token. + */ + +typedef struct Tcl_Token { + int type; /* Type of token, such as TCL_TOKEN_WORD; + * see below for valid types. */ + CONST char *start; /* First character in token. */ + int size; /* Number of bytes in token. */ + int numComponents; /* If this token is composed of other + * tokens, this field tells how many of + * them there are (including components of + * components, etc.). The component tokens + * immediately follow this one. */ +} Tcl_Token; + +/* + * Type values defined for Tcl_Token structures. These values are + * defined as mask bits so that it's easy to check for collections of + * types. + * + * TCL_TOKEN_WORD - The token describes one word of a command, + * from the first non-blank character of + * the word (which may be " or {) up to but + * not including the space, semicolon, or + * bracket that terminates the word. + * NumComponents counts the total number of + * sub-tokens that make up the word. This + * includes, for example, sub-tokens of + * TCL_TOKEN_VARIABLE tokens. + * TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD + * except that the word is guaranteed to + * consist of a single TCL_TOKEN_TEXT + * sub-token. + * TCL_TOKEN_TEXT - The token describes a range of literal + * text that is part of a word. + * NumComponents is always 0. + * TCL_TOKEN_BS - The token describes a backslash sequence + * that must be collapsed. NumComponents + * is always 0. + * TCL_TOKEN_COMMAND - The token describes a command whose result + * must be substituted into the word. The + * token includes the enclosing brackets. + * NumComponents is always 0. + * TCL_TOKEN_VARIABLE - The token describes a variable + * substitution, including the dollar sign, + * variable name, and array index (if there + * is one) up through the right + * parentheses. NumComponents tells how + * many additional tokens follow to + * represent the variable name. The first + * token will be a TCL_TOKEN_TEXT token + * that describes the variable name. If + * the variable is an array reference then + * there will be one or more additional + * tokens, of type TCL_TOKEN_TEXT, + * TCL_TOKEN_BS, TCL_TOKEN_COMMAND, and + * TCL_TOKEN_VARIABLE, that describe the + * array index; numComponents counts the + * total number of nested tokens that make + * up the variable reference, including + * sub-tokens of TCL_TOKEN_VARIABLE tokens. + * TCL_TOKEN_SUB_EXPR - The token describes one subexpression of a + * expression, from the first non-blank + * character of the subexpression up to but not + * including the space, brace, or bracket + * that terminates the subexpression. + * NumComponents counts the total number of + * following subtokens that make up the + * subexpression; this includes all subtokens + * for any nested TCL_TOKEN_SUB_EXPR tokens. + * For example, a numeric value used as a + * primitive operand is described by a + * TCL_TOKEN_SUB_EXPR token followed by a + * TCL_TOKEN_TEXT token. A binary subexpression + * is described by a TCL_TOKEN_SUB_EXPR token + * followed by the TCL_TOKEN_OPERATOR token + * for the operator, then TCL_TOKEN_SUB_EXPR + * tokens for the left then the right operands. + * TCL_TOKEN_OPERATOR - The token describes one expression operator. + * An operator might be the name of a math + * function such as "abs". A TCL_TOKEN_OPERATOR + * token is always preceeded by one + * TCL_TOKEN_SUB_EXPR token for the operator's + * subexpression, and is followed by zero or + * more TCL_TOKEN_SUB_EXPR tokens for the + * operator's operands. NumComponents is + * always 0. + */ +#define TCL_TOKEN_WORD 1 +#define TCL_TOKEN_SIMPLE_WORD 2 +#define TCL_TOKEN_TEXT 4 +#define TCL_TOKEN_BS 8 +#define TCL_TOKEN_COMMAND 16 +#define TCL_TOKEN_VARIABLE 32 +#define TCL_TOKEN_SUB_EXPR 64 +#define TCL_TOKEN_OPERATOR 128 + +/* + * Parsing error types. On any parsing error, one of these values + * will be stored in the error field of the Tcl_Parse structure + * defined below. + */ + +#define TCL_PARSE_SUCCESS 0 +#define TCL_PARSE_QUOTE_EXTRA 1 +#define TCL_PARSE_BRACE_EXTRA 2 +#define TCL_PARSE_MISSING_BRACE 3 +#define TCL_PARSE_MISSING_BRACKET 4 +#define TCL_PARSE_MISSING_PAREN 5 +#define TCL_PARSE_MISSING_QUOTE 6 +#define TCL_PARSE_MISSING_VAR_BRACE 7 +#define TCL_PARSE_SYNTAX 8 +#define TCL_PARSE_BAD_NUMBER 9 + +/* + * A structure of the following type is filled in by Tcl_ParseCommand. + * It describes a single command parsed from an input string. + */ + +#define NUM_STATIC_TOKENS 20 + +typedef struct Tcl_Parse { + CONST char *commentStart; /* Pointer to # that begins the first of + * one or more comments preceding the + * command. */ + int commentSize; /* Number of bytes in comments (up through + * newline character that terminates the + * last comment). If there were no + * comments, this field is 0. */ + CONST char *commandStart; /* First character in first word of command. */ + int commandSize; /* Number of bytes in command, including + * first character of first word, up + * through the terminating newline, + * close bracket, or semicolon. */ + int numWords; /* Total number of words in command. May + * be 0. */ + Tcl_Token *tokenPtr; /* Pointer to first token representing + * the words of the command. Initially + * points to staticTokens, but may change + * to point to malloc-ed space if command + * exceeds space in staticTokens. */ + int numTokens; /* Total number of tokens in command. */ + int tokensAvailable; /* Total number of tokens available at + * *tokenPtr. */ + int errorType; /* One of the parsing error types defined + * above. */ + + /* + * The fields below are intended only for the private use of the + * parser. They should not be used by procedures that invoke + * Tcl_ParseCommand. + */ + + CONST char *string; /* The original command string passed to + * Tcl_ParseCommand. */ + CONST char *end; /* Points to the character just after the + * last one in the command string. */ + Tcl_Interp *interp; /* Interpreter to use for error reporting, + * or NULL. */ + CONST char *term; /* Points to character in string that + * terminated most recent token. Filled in + * by ParseTokens. If an error occurs, + * points to beginning of region where the + * error occurred (e.g. the open brace if + * the close brace is missing). */ + int incomplete; /* This field is set to 1 by Tcl_ParseCommand + * if the command appears to be incomplete. + * This information is used by + * Tcl_CommandComplete. */ + Tcl_Token staticTokens[NUM_STATIC_TOKENS]; + /* Initial space for tokens for command. + * This space should be large enough to + * accommodate most commands; dynamic + * space is allocated for very large + * commands that don't fit here. */ +} Tcl_Parse; + +/* + * The following definitions are the error codes returned by the conversion + * routines: + * + * TCL_OK: All characters were converted. + * + * TCL_CONVERT_NOSPACE: The output buffer would not have been large + * enough for all of the converted data; as many + * characters as could fit were converted though. + * + * TCL_CONVERT_MULTIBYTE: The last few bytes in the source string were + * the beginning of a multibyte sequence, but + * more bytes were needed to complete this + * sequence. A subsequent call to the conversion + * routine should pass the beginning of this + * unconverted sequence plus additional bytes + * from the source stream to properly convert + * the formerly split-up multibyte sequence. + * + * TCL_CONVERT_SYNTAX: The source stream contained an invalid + * character sequence. This may occur if the + * input stream has been damaged or if the input + * encoding method was misidentified. This error + * is reported only if TCL_ENCODING_STOPONERROR + * was specified. + * + * TCL_CONVERT_UNKNOWN: The source string contained a character + * that could not be represented in the target + * encoding. This error is reported only if + * TCL_ENCODING_STOPONERROR was specified. + */ + +#define TCL_CONVERT_MULTIBYTE -1 +#define TCL_CONVERT_SYNTAX -2 +#define TCL_CONVERT_UNKNOWN -3 +#define TCL_CONVERT_NOSPACE -4 + +/* + * The maximum number of bytes that are necessary to represent a single + * Unicode character in UTF-8. The valid values should be 3 or 6 (or + * perhaps 1 if we want to support a non-unicode enabled core). + * If 3, then Tcl_UniChar must be 2-bytes in size (UCS-2). (default) + * If 6, then Tcl_UniChar must be 4-bytes in size (UCS-4). + * At this time UCS-2 mode is the default and recommended mode. + * UCS-4 is experimental and not recommended. It works for the core, + * but most extensions expect UCS-2. + */ + +#ifndef TCL_UTF_MAX +#define TCL_UTF_MAX 3 +#endif + +/* + * This represents a Unicode character. Any changes to this should + * also be reflected in regcustom.h. + */ + +#if TCL_UTF_MAX > 4 + /* + * unsigned int isn't 100% accurate as it should be a strict 4-byte + * value (perhaps wchar_t). 64-bit systems may have troubles. The + * size of this value must be reflected correctly in regcustom.h and + * in tclEncoding.c. + * XXX: Tcl is currently UCS-2 and planning UTF-16 for the Unicode + * XXX: string rep that Tcl_UniChar represents. Changing the size + * XXX: of Tcl_UniChar is /not/ supported. + */ +typedef unsigned int Tcl_UniChar; +#else +typedef unsigned short Tcl_UniChar; +#endif + + +/* + * These function have been renamed. The old names are deprecated, but we + * define these macros for backwards compatibilty. + */ +#define Tcl_Ckalloc Tcl_Alloc +#define Tcl_Ckfree Tcl_Free +#define Tcl_Ckrealloc Tcl_Realloc +#define Tcl_Return Tcl_SetResult +#define Tcl_TildeSubst Tcl_TranslateFileName +#define panic Tcl_Panic +#define panicVA Tcl_PanicVA + +/* + * The following constant is used to test for older versions of Tcl + * in the stubs tables. + * + * Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different + * value since the stubs tables don't match. + */ + +#define TCL_STUB_MAGIC ((int)0xFCA3BACF) + +/* + * The following function is required to be defined in all stubs aware + * extensions. The function is actually implemented in the stub + * library, not the main Tcl library, although there is a trivial + * implementation in the main library in case an extension is statically + * linked into an application. + */ + +EXTERN CONST char * Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *version, int exact)); + +#ifndef USE_TCL_STUBS + +/* + * When not using stubs, make it a macro. + */ + +#define Tcl_InitStubs(interp, version, exact) \ + Tcl_PkgRequire(interp, "Tcl", version, exact) + +#endif + + +/* + * Include the public function declarations that are accessible via + * the stubs table. + */ + +#include "tclDecls.h" + +/* + * Include platform specific public function declarations that are + * accessible via the stubs table. + */ + +#include "tclPlatDecls.h" + +/* + * Public functions that are not accessible via the stubs table. + */ + +EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, + Tcl_AppInitProc *appInitProc)); + +/* + * Convenience declaration of Tcl_AppInit for backwards compatibility. + * This function is not *implemented* by the tcl library, so the storage + * class is neither DLLEXPORT nor DLLIMPORT + */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS + +EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp)); + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* RC_INVOKED */ + +/* + * end block for C++ + */ + +#ifdef __cplusplus +} +#endif + +#endif /* _TCL */ + +/* + * Local Variables: + * mode: c + * c-basic-offset: 4 + * fill-column: 78 + * End: + */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tclDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tclDecls.h new file mode 100644 index 00000000..cbfa8ee2 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tclDecls.h @@ -0,0 +1,4613 @@ +/* + * tclDecls.h -- + * + * Declarations of functions in the platform independent public Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TCLDECLS +#define _TCLDECLS + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tcl.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported function declarations: + */ + +/* 0 */ +EXTERN int Tcl_PkgProvideEx _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name, CONST char *version, + ClientData clientData)); +/* 1 */ +EXTERN CONST84_RETURN char * Tcl_PkgRequireEx _ANSI_ARGS_(( + Tcl_Interp *interp, CONST char *name, + CONST char *version, int exact, + ClientData *clientDataPtr)); +/* 2 */ +EXTERN void Tcl_Panic _ANSI_ARGS_(TCL_VARARGS(CONST char *,format)); +/* 3 */ +EXTERN char * Tcl_Alloc _ANSI_ARGS_((unsigned int size)); +/* 4 */ +EXTERN void Tcl_Free _ANSI_ARGS_((char *ptr)); +/* 5 */ +EXTERN char * Tcl_Realloc _ANSI_ARGS_((char *ptr, + unsigned int size)); +/* 6 */ +EXTERN char * Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size, + CONST char *file, int line)); +/* 7 */ +EXTERN void Tcl_DbCkfree _ANSI_ARGS_((char *ptr, + CONST char *file, int line)); +/* 8 */ +EXTERN char * Tcl_DbCkrealloc _ANSI_ARGS_((char *ptr, + unsigned int size, CONST char *file, + int line)); +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ +/* 9 */ +EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((int fd, int mask, + Tcl_FileProc *proc, ClientData clientData)); +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +/* 9 */ +EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((int fd, int mask, + Tcl_FileProc *proc, ClientData clientData)); +#endif /* MACOSX */ +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ +/* 10 */ +EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd)); +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +/* 10 */ +EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd)); +#endif /* MACOSX */ +/* 11 */ +EXTERN void Tcl_SetTimer _ANSI_ARGS_((Tcl_Time *timePtr)); +/* 12 */ +EXTERN void Tcl_Sleep _ANSI_ARGS_((int ms)); +/* 13 */ +EXTERN int Tcl_WaitForEvent _ANSI_ARGS_((Tcl_Time *timePtr)); +/* 14 */ +EXTERN int Tcl_AppendAllObjTypes _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *objPtr)); +/* 15 */ +EXTERN void Tcl_AppendStringsToObj _ANSI_ARGS_(TCL_VARARGS(Tcl_Obj *,objPtr)); +/* 16 */ +EXTERN void Tcl_AppendToObj _ANSI_ARGS_((Tcl_Obj *objPtr, + CONST char *bytes, int length)); +/* 17 */ +EXTERN Tcl_Obj * Tcl_ConcatObj _ANSI_ARGS_((int objc, + Tcl_Obj *CONST objv[])); +/* 18 */ +EXTERN int Tcl_ConvertToType _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, Tcl_ObjType *typePtr)); +/* 19 */ +EXTERN void Tcl_DbDecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr, + CONST char *file, int line)); +/* 20 */ +EXTERN void Tcl_DbIncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr, + CONST char *file, int line)); +/* 21 */ +EXTERN int Tcl_DbIsShared _ANSI_ARGS_((Tcl_Obj *objPtr, + CONST char *file, int line)); +/* 22 */ +EXTERN Tcl_Obj * Tcl_DbNewBooleanObj _ANSI_ARGS_((int boolValue, + CONST char *file, int line)); +/* 23 */ +EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj _ANSI_ARGS_(( + CONST unsigned char *bytes, int length, + CONST char *file, int line)); +/* 24 */ +EXTERN Tcl_Obj * Tcl_DbNewDoubleObj _ANSI_ARGS_((double doubleValue, + CONST char *file, int line)); +/* 25 */ +EXTERN Tcl_Obj * Tcl_DbNewListObj _ANSI_ARGS_((int objc, + Tcl_Obj *CONST *objv, CONST char *file, + int line)); +/* 26 */ +EXTERN Tcl_Obj * Tcl_DbNewLongObj _ANSI_ARGS_((long longValue, + CONST char *file, int line)); +/* 27 */ +EXTERN Tcl_Obj * Tcl_DbNewObj _ANSI_ARGS_((CONST char *file, int line)); +/* 28 */ +EXTERN Tcl_Obj * Tcl_DbNewStringObj _ANSI_ARGS_((CONST char *bytes, + int length, CONST char *file, int line)); +/* 29 */ +EXTERN Tcl_Obj * Tcl_DuplicateObj _ANSI_ARGS_((Tcl_Obj *objPtr)); +/* 30 */ +EXTERN void TclFreeObj _ANSI_ARGS_((Tcl_Obj *objPtr)); +/* 31 */ +EXTERN int Tcl_GetBoolean _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *src, int *boolPtr)); +/* 32 */ +EXTERN int Tcl_GetBooleanFromObj _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *objPtr, + int *boolPtr)); +/* 33 */ +EXTERN unsigned char * Tcl_GetByteArrayFromObj _ANSI_ARGS_((Tcl_Obj *objPtr, + int *lengthPtr)); +/* 34 */ +EXTERN int Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *src, double *doublePtr)); +/* 35 */ +EXTERN int Tcl_GetDoubleFromObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, double *doublePtr)); +/* 36 */ +EXTERN int Tcl_GetIndexFromObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, CONST84 char **tablePtr, + CONST char *msg, int flags, int *indexPtr)); +/* 37 */ +EXTERN int Tcl_GetInt _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *src, int *intPtr)); +/* 38 */ +EXTERN int Tcl_GetIntFromObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, int *intPtr)); +/* 39 */ +EXTERN int Tcl_GetLongFromObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, long *longPtr)); +/* 40 */ +EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((CONST char *typeName)); +/* 41 */ +EXTERN char * Tcl_GetStringFromObj _ANSI_ARGS_((Tcl_Obj *objPtr, + int *lengthPtr)); +/* 42 */ +EXTERN void Tcl_InvalidateStringRep _ANSI_ARGS_((Tcl_Obj *objPtr)); +/* 43 */ +EXTERN int Tcl_ListObjAppendList _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *listPtr, + Tcl_Obj *elemListPtr)); +/* 44 */ +EXTERN int Tcl_ListObjAppendElement _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *listPtr, + Tcl_Obj *objPtr)); +/* 45 */ +EXTERN int Tcl_ListObjGetElements _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *listPtr, + int *objcPtr, Tcl_Obj ***objvPtr)); +/* 46 */ +EXTERN int Tcl_ListObjIndex _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *listPtr, int index, + Tcl_Obj **objPtrPtr)); +/* 47 */ +EXTERN int Tcl_ListObjLength _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *listPtr, int *lengthPtr)); +/* 48 */ +EXTERN int Tcl_ListObjReplace _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *listPtr, int first, int count, + int objc, Tcl_Obj *CONST objv[])); +/* 49 */ +EXTERN Tcl_Obj * Tcl_NewBooleanObj _ANSI_ARGS_((int boolValue)); +/* 50 */ +EXTERN Tcl_Obj * Tcl_NewByteArrayObj _ANSI_ARGS_(( + CONST unsigned char *bytes, int length)); +/* 51 */ +EXTERN Tcl_Obj * Tcl_NewDoubleObj _ANSI_ARGS_((double doubleValue)); +/* 52 */ +EXTERN Tcl_Obj * Tcl_NewIntObj _ANSI_ARGS_((int intValue)); +/* 53 */ +EXTERN Tcl_Obj * Tcl_NewListObj _ANSI_ARGS_((int objc, + Tcl_Obj *CONST objv[])); +/* 54 */ +EXTERN Tcl_Obj * Tcl_NewLongObj _ANSI_ARGS_((long longValue)); +/* 55 */ +EXTERN Tcl_Obj * Tcl_NewObj _ANSI_ARGS_((void)); +/* 56 */ +EXTERN Tcl_Obj * Tcl_NewStringObj _ANSI_ARGS_((CONST char *bytes, + int length)); +/* 57 */ +EXTERN void Tcl_SetBooleanObj _ANSI_ARGS_((Tcl_Obj *objPtr, + int boolValue)); +/* 58 */ +EXTERN unsigned char * Tcl_SetByteArrayLength _ANSI_ARGS_((Tcl_Obj *objPtr, + int length)); +/* 59 */ +EXTERN void Tcl_SetByteArrayObj _ANSI_ARGS_((Tcl_Obj *objPtr, + CONST unsigned char *bytes, int length)); +/* 60 */ +EXTERN void Tcl_SetDoubleObj _ANSI_ARGS_((Tcl_Obj *objPtr, + double doubleValue)); +/* 61 */ +EXTERN void Tcl_SetIntObj _ANSI_ARGS_((Tcl_Obj *objPtr, + int intValue)); +/* 62 */ +EXTERN void Tcl_SetListObj _ANSI_ARGS_((Tcl_Obj *objPtr, + int objc, Tcl_Obj *CONST objv[])); +/* 63 */ +EXTERN void Tcl_SetLongObj _ANSI_ARGS_((Tcl_Obj *objPtr, + long longValue)); +/* 64 */ +EXTERN void Tcl_SetObjLength _ANSI_ARGS_((Tcl_Obj *objPtr, + int length)); +/* 65 */ +EXTERN void Tcl_SetStringObj _ANSI_ARGS_((Tcl_Obj *objPtr, + CONST char *bytes, int length)); +/* 66 */ +EXTERN void Tcl_AddErrorInfo _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *message)); +/* 67 */ +EXTERN void Tcl_AddObjErrorInfo _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *message, int length)); +/* 68 */ +EXTERN void Tcl_AllowExceptions _ANSI_ARGS_((Tcl_Interp *interp)); +/* 69 */ +EXTERN void Tcl_AppendElement _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *element)); +/* 70 */ +EXTERN void Tcl_AppendResult _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); +/* 71 */ +EXTERN Tcl_AsyncHandler Tcl_AsyncCreate _ANSI_ARGS_((Tcl_AsyncProc *proc, + ClientData clientData)); +/* 72 */ +EXTERN void Tcl_AsyncDelete _ANSI_ARGS_((Tcl_AsyncHandler async)); +/* 73 */ +EXTERN int Tcl_AsyncInvoke _ANSI_ARGS_((Tcl_Interp *interp, + int code)); +/* 74 */ +EXTERN void Tcl_AsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); +/* 75 */ +EXTERN int Tcl_AsyncReady _ANSI_ARGS_((void)); +/* 76 */ +EXTERN void Tcl_BackgroundError _ANSI_ARGS_((Tcl_Interp *interp)); +/* 77 */ +EXTERN char Tcl_Backslash _ANSI_ARGS_((CONST char *src, + int *readPtr)); +/* 78 */ +EXTERN int Tcl_BadChannelOption _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *optionName, + CONST char *optionList)); +/* 79 */ +EXTERN void Tcl_CallWhenDeleted _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_InterpDeleteProc *proc, + ClientData clientData)); +/* 80 */ +EXTERN void Tcl_CancelIdleCall _ANSI_ARGS_(( + Tcl_IdleProc *idleProc, + ClientData clientData)); +/* 81 */ +EXTERN int Tcl_Close _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Channel chan)); +/* 82 */ +EXTERN int Tcl_CommandComplete _ANSI_ARGS_((CONST char *cmd)); +/* 83 */ +EXTERN char * Tcl_Concat _ANSI_ARGS_((int argc, + CONST84 char *CONST *argv)); +/* 84 */ +EXTERN int Tcl_ConvertElement _ANSI_ARGS_((CONST char *src, + char *dst, int flags)); +/* 85 */ +EXTERN int Tcl_ConvertCountedElement _ANSI_ARGS_(( + CONST char *src, int length, char *dst, + int flags)); +/* 86 */ +EXTERN int Tcl_CreateAlias _ANSI_ARGS_((Tcl_Interp *slave, + CONST char *slaveCmd, Tcl_Interp *target, + CONST char *targetCmd, int argc, + CONST84 char *CONST *argv)); +/* 87 */ +EXTERN int Tcl_CreateAliasObj _ANSI_ARGS_((Tcl_Interp *slave, + CONST char *slaveCmd, Tcl_Interp *target, + CONST char *targetCmd, int objc, + Tcl_Obj *CONST objv[])); +/* 88 */ +EXTERN Tcl_Channel Tcl_CreateChannel _ANSI_ARGS_(( + Tcl_ChannelType *typePtr, + CONST char *chanName, + ClientData instanceData, int mask)); +/* 89 */ +EXTERN void Tcl_CreateChannelHandler _ANSI_ARGS_(( + Tcl_Channel chan, int mask, + Tcl_ChannelProc *proc, ClientData clientData)); +/* 90 */ +EXTERN void Tcl_CreateCloseHandler _ANSI_ARGS_((Tcl_Channel chan, + Tcl_CloseProc *proc, ClientData clientData)); +/* 91 */ +EXTERN Tcl_Command Tcl_CreateCommand _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *cmdName, Tcl_CmdProc *proc, + ClientData clientData, + Tcl_CmdDeleteProc *deleteProc)); +/* 92 */ +EXTERN void Tcl_CreateEventSource _ANSI_ARGS_(( + Tcl_EventSetupProc *setupProc, + Tcl_EventCheckProc *checkProc, + ClientData clientData)); +/* 93 */ +EXTERN void Tcl_CreateExitHandler _ANSI_ARGS_(( + Tcl_ExitProc *proc, ClientData clientData)); +/* 94 */ +EXTERN Tcl_Interp * Tcl_CreateInterp _ANSI_ARGS_((void)); +/* 95 */ +EXTERN void Tcl_CreateMathFunc _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name, int numArgs, + Tcl_ValueType *argTypes, Tcl_MathProc *proc, + ClientData clientData)); +/* 96 */ +EXTERN Tcl_Command Tcl_CreateObjCommand _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *cmdName, Tcl_ObjCmdProc *proc, + ClientData clientData, + Tcl_CmdDeleteProc *deleteProc)); +/* 97 */ +EXTERN Tcl_Interp * Tcl_CreateSlave _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *slaveName, int isSafe)); +/* 98 */ +EXTERN Tcl_TimerToken Tcl_CreateTimerHandler _ANSI_ARGS_((int milliseconds, + Tcl_TimerProc *proc, ClientData clientData)); +/* 99 */ +EXTERN Tcl_Trace Tcl_CreateTrace _ANSI_ARGS_((Tcl_Interp *interp, + int level, Tcl_CmdTraceProc *proc, + ClientData clientData)); +/* 100 */ +EXTERN void Tcl_DeleteAssocData _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name)); +/* 101 */ +EXTERN void Tcl_DeleteChannelHandler _ANSI_ARGS_(( + Tcl_Channel chan, Tcl_ChannelProc *proc, + ClientData clientData)); +/* 102 */ +EXTERN void Tcl_DeleteCloseHandler _ANSI_ARGS_((Tcl_Channel chan, + Tcl_CloseProc *proc, ClientData clientData)); +/* 103 */ +EXTERN int Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *cmdName)); +/* 104 */ +EXTERN int Tcl_DeleteCommandFromToken _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Command command)); +/* 105 */ +EXTERN void Tcl_DeleteEvents _ANSI_ARGS_(( + Tcl_EventDeleteProc *proc, + ClientData clientData)); +/* 106 */ +EXTERN void Tcl_DeleteEventSource _ANSI_ARGS_(( + Tcl_EventSetupProc *setupProc, + Tcl_EventCheckProc *checkProc, + ClientData clientData)); +/* 107 */ +EXTERN void Tcl_DeleteExitHandler _ANSI_ARGS_(( + Tcl_ExitProc *proc, ClientData clientData)); +/* 108 */ +EXTERN void Tcl_DeleteHashEntry _ANSI_ARGS_(( + Tcl_HashEntry *entryPtr)); +/* 109 */ +EXTERN void Tcl_DeleteHashTable _ANSI_ARGS_(( + Tcl_HashTable *tablePtr)); +/* 110 */ +EXTERN void Tcl_DeleteInterp _ANSI_ARGS_((Tcl_Interp *interp)); +/* 111 */ +EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids, + Tcl_Pid *pidPtr)); +/* 112 */ +EXTERN void Tcl_DeleteTimerHandler _ANSI_ARGS_(( + Tcl_TimerToken token)); +/* 113 */ +EXTERN void Tcl_DeleteTrace _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Trace trace)); +/* 114 */ +EXTERN void Tcl_DontCallWhenDeleted _ANSI_ARGS_(( + Tcl_Interp *interp, + Tcl_InterpDeleteProc *proc, + ClientData clientData)); +/* 115 */ +EXTERN int Tcl_DoOneEvent _ANSI_ARGS_((int flags)); +/* 116 */ +EXTERN void Tcl_DoWhenIdle _ANSI_ARGS_((Tcl_IdleProc *proc, + ClientData clientData)); +/* 117 */ +EXTERN char * Tcl_DStringAppend _ANSI_ARGS_((Tcl_DString *dsPtr, + CONST char *bytes, int length)); +/* 118 */ +EXTERN char * Tcl_DStringAppendElement _ANSI_ARGS_(( + Tcl_DString *dsPtr, CONST char *element)); +/* 119 */ +EXTERN void Tcl_DStringEndSublist _ANSI_ARGS_(( + Tcl_DString *dsPtr)); +/* 120 */ +EXTERN void Tcl_DStringFree _ANSI_ARGS_((Tcl_DString *dsPtr)); +/* 121 */ +EXTERN void Tcl_DStringGetResult _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_DString *dsPtr)); +/* 122 */ +EXTERN void Tcl_DStringInit _ANSI_ARGS_((Tcl_DString *dsPtr)); +/* 123 */ +EXTERN void Tcl_DStringResult _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_DString *dsPtr)); +/* 124 */ +EXTERN void Tcl_DStringSetLength _ANSI_ARGS_((Tcl_DString *dsPtr, + int length)); +/* 125 */ +EXTERN void Tcl_DStringStartSublist _ANSI_ARGS_(( + Tcl_DString *dsPtr)); +/* 126 */ +EXTERN int Tcl_Eof _ANSI_ARGS_((Tcl_Channel chan)); +/* 127 */ +EXTERN CONST84_RETURN char * Tcl_ErrnoId _ANSI_ARGS_((void)); +/* 128 */ +EXTERN CONST84_RETURN char * Tcl_ErrnoMsg _ANSI_ARGS_((int err)); +/* 129 */ +EXTERN int Tcl_Eval _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *script)); +/* 130 */ +EXTERN int Tcl_EvalFile _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *fileName)); +/* 131 */ +EXTERN int Tcl_EvalObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr)); +/* 132 */ +EXTERN void Tcl_EventuallyFree _ANSI_ARGS_(( + ClientData clientData, + Tcl_FreeProc *freeProc)); +/* 133 */ +EXTERN void Tcl_Exit _ANSI_ARGS_((int status)); +/* 134 */ +EXTERN int Tcl_ExposeCommand _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *hiddenCmdToken, + CONST char *cmdName)); +/* 135 */ +EXTERN int Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *expr, int *ptr)); +/* 136 */ +EXTERN int Tcl_ExprBooleanObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, int *ptr)); +/* 137 */ +EXTERN int Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *expr, double *ptr)); +/* 138 */ +EXTERN int Tcl_ExprDoubleObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, double *ptr)); +/* 139 */ +EXTERN int Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *expr, long *ptr)); +/* 140 */ +EXTERN int Tcl_ExprLongObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, long *ptr)); +/* 141 */ +EXTERN int Tcl_ExprObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr)); +/* 142 */ +EXTERN int Tcl_ExprString _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *expr)); +/* 143 */ +EXTERN void Tcl_Finalize _ANSI_ARGS_((void)); +/* 144 */ +EXTERN void Tcl_FindExecutable _ANSI_ARGS_((CONST char *argv0)); +/* 145 */ +EXTERN Tcl_HashEntry * Tcl_FirstHashEntry _ANSI_ARGS_(( + Tcl_HashTable *tablePtr, + Tcl_HashSearch *searchPtr)); +/* 146 */ +EXTERN int Tcl_Flush _ANSI_ARGS_((Tcl_Channel chan)); +/* 147 */ +EXTERN void Tcl_FreeResult _ANSI_ARGS_((Tcl_Interp *interp)); +/* 148 */ +EXTERN int Tcl_GetAlias _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *slaveCmd, + Tcl_Interp **targetInterpPtr, + CONST84 char **targetCmdPtr, int *argcPtr, + CONST84 char ***argvPtr)); +/* 149 */ +EXTERN int Tcl_GetAliasObj _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *slaveCmd, + Tcl_Interp **targetInterpPtr, + CONST84 char **targetCmdPtr, int *objcPtr, + Tcl_Obj ***objv)); +/* 150 */ +EXTERN ClientData Tcl_GetAssocData _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name, + Tcl_InterpDeleteProc **procPtr)); +/* 151 */ +EXTERN Tcl_Channel Tcl_GetChannel _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *chanName, int *modePtr)); +/* 152 */ +EXTERN int Tcl_GetChannelBufferSize _ANSI_ARGS_(( + Tcl_Channel chan)); +/* 153 */ +EXTERN int Tcl_GetChannelHandle _ANSI_ARGS_((Tcl_Channel chan, + int direction, ClientData *handlePtr)); +/* 154 */ +EXTERN ClientData Tcl_GetChannelInstanceData _ANSI_ARGS_(( + Tcl_Channel chan)); +/* 155 */ +EXTERN int Tcl_GetChannelMode _ANSI_ARGS_((Tcl_Channel chan)); +/* 156 */ +EXTERN CONST84_RETURN char * Tcl_GetChannelName _ANSI_ARGS_(( + Tcl_Channel chan)); +/* 157 */ +EXTERN int Tcl_GetChannelOption _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Channel chan, CONST char *optionName, + Tcl_DString *dsPtr)); +/* 158 */ +EXTERN Tcl_ChannelType * Tcl_GetChannelType _ANSI_ARGS_((Tcl_Channel chan)); +/* 159 */ +EXTERN int Tcl_GetCommandInfo _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *cmdName, Tcl_CmdInfo *infoPtr)); +/* 160 */ +EXTERN CONST84_RETURN char * Tcl_GetCommandName _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Command command)); +/* 161 */ +EXTERN int Tcl_GetErrno _ANSI_ARGS_((void)); +/* 162 */ +EXTERN CONST84_RETURN char * Tcl_GetHostName _ANSI_ARGS_((void)); +/* 163 */ +EXTERN int Tcl_GetInterpPath _ANSI_ARGS_((Tcl_Interp *askInterp, + Tcl_Interp *slaveInterp)); +/* 164 */ +EXTERN Tcl_Interp * Tcl_GetMaster _ANSI_ARGS_((Tcl_Interp *interp)); +/* 165 */ +EXTERN CONST char * Tcl_GetNameOfExecutable _ANSI_ARGS_((void)); +/* 166 */ +EXTERN Tcl_Obj * Tcl_GetObjResult _ANSI_ARGS_((Tcl_Interp *interp)); +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ +/* 167 */ +EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *chanID, int forWriting, + int checkUsage, ClientData *filePtr)); +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +/* 167 */ +EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *chanID, int forWriting, + int checkUsage, ClientData *filePtr)); +#endif /* MACOSX */ +/* 168 */ +EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((CONST char *path)); +/* 169 */ +EXTERN int Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan, + Tcl_DString *dsPtr)); +/* 170 */ +EXTERN int Tcl_GetsObj _ANSI_ARGS_((Tcl_Channel chan, + Tcl_Obj *objPtr)); +/* 171 */ +EXTERN int Tcl_GetServiceMode _ANSI_ARGS_((void)); +/* 172 */ +EXTERN Tcl_Interp * Tcl_GetSlave _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *slaveName)); +/* 173 */ +EXTERN Tcl_Channel Tcl_GetStdChannel _ANSI_ARGS_((int type)); +/* 174 */ +EXTERN CONST84_RETURN char * Tcl_GetStringResult _ANSI_ARGS_(( + Tcl_Interp *interp)); +/* 175 */ +EXTERN CONST84_RETURN char * Tcl_GetVar _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *varName, int flags)); +/* 176 */ +EXTERN CONST84_RETURN char * Tcl_GetVar2 _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *part1, CONST char *part2, + int flags)); +/* 177 */ +EXTERN int Tcl_GlobalEval _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *command)); +/* 178 */ +EXTERN int Tcl_GlobalEvalObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr)); +/* 179 */ +EXTERN int Tcl_HideCommand _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *cmdName, + CONST char *hiddenCmdToken)); +/* 180 */ +EXTERN int Tcl_Init _ANSI_ARGS_((Tcl_Interp *interp)); +/* 181 */ +EXTERN void Tcl_InitHashTable _ANSI_ARGS_(( + Tcl_HashTable *tablePtr, int keyType)); +/* 182 */ +EXTERN int Tcl_InputBlocked _ANSI_ARGS_((Tcl_Channel chan)); +/* 183 */ +EXTERN int Tcl_InputBuffered _ANSI_ARGS_((Tcl_Channel chan)); +/* 184 */ +EXTERN int Tcl_InterpDeleted _ANSI_ARGS_((Tcl_Interp *interp)); +/* 185 */ +EXTERN int Tcl_IsSafe _ANSI_ARGS_((Tcl_Interp *interp)); +/* 186 */ +EXTERN char * Tcl_JoinPath _ANSI_ARGS_((int argc, + CONST84 char *CONST *argv, + Tcl_DString *resultPtr)); +/* 187 */ +EXTERN int Tcl_LinkVar _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *varName, char *addr, int type)); +/* Slot 188 is reserved */ +/* 189 */ +EXTERN Tcl_Channel Tcl_MakeFileChannel _ANSI_ARGS_((ClientData handle, + int mode)); +/* 190 */ +EXTERN int Tcl_MakeSafe _ANSI_ARGS_((Tcl_Interp *interp)); +/* 191 */ +EXTERN Tcl_Channel Tcl_MakeTcpClientChannel _ANSI_ARGS_(( + ClientData tcpSocket)); +/* 192 */ +EXTERN char * Tcl_Merge _ANSI_ARGS_((int argc, + CONST84 char *CONST *argv)); +/* 193 */ +EXTERN Tcl_HashEntry * Tcl_NextHashEntry _ANSI_ARGS_(( + Tcl_HashSearch *searchPtr)); +/* 194 */ +EXTERN void Tcl_NotifyChannel _ANSI_ARGS_((Tcl_Channel channel, + int mask)); +/* 195 */ +EXTERN Tcl_Obj * Tcl_ObjGetVar2 _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, + int flags)); +/* 196 */ +EXTERN Tcl_Obj * Tcl_ObjSetVar2 _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, + Tcl_Obj *newValuePtr, int flags)); +/* 197 */ +EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_(( + Tcl_Interp *interp, int argc, + CONST84 char **argv, int flags)); +/* 198 */ +EXTERN Tcl_Channel Tcl_OpenFileChannel _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *fileName, CONST char *modeString, + int permissions)); +/* 199 */ +EXTERN Tcl_Channel Tcl_OpenTcpClient _ANSI_ARGS_((Tcl_Interp *interp, + int port, CONST char *address, + CONST char *myaddr, int myport, int async)); +/* 200 */ +EXTERN Tcl_Channel Tcl_OpenTcpServer _ANSI_ARGS_((Tcl_Interp *interp, + int port, CONST char *host, + Tcl_TcpAcceptProc *acceptProc, + ClientData callbackData)); +/* 201 */ +EXTERN void Tcl_Preserve _ANSI_ARGS_((ClientData data)); +/* 202 */ +EXTERN void Tcl_PrintDouble _ANSI_ARGS_((Tcl_Interp *interp, + double value, char *dst)); +/* 203 */ +EXTERN int Tcl_PutEnv _ANSI_ARGS_((CONST char *assignment)); +/* 204 */ +EXTERN CONST84_RETURN char * Tcl_PosixError _ANSI_ARGS_((Tcl_Interp *interp)); +/* 205 */ +EXTERN void Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event *evPtr, + Tcl_QueuePosition position)); +/* 206 */ +EXTERN int Tcl_Read _ANSI_ARGS_((Tcl_Channel chan, char *bufPtr, + int toRead)); +/* 207 */ +EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void)); +/* 208 */ +EXTERN int Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *cmd, int flags)); +/* 209 */ +EXTERN int Tcl_RecordAndEvalObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *cmdPtr, int flags)); +/* 210 */ +EXTERN void Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Channel chan)); +/* 211 */ +EXTERN void Tcl_RegisterObjType _ANSI_ARGS_(( + Tcl_ObjType *typePtr)); +/* 212 */ +EXTERN Tcl_RegExp Tcl_RegExpCompile _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *pattern)); +/* 213 */ +EXTERN int Tcl_RegExpExec _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_RegExp regexp, CONST char *text, + CONST char *start)); +/* 214 */ +EXTERN int Tcl_RegExpMatch _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *text, CONST char *pattern)); +/* 215 */ +EXTERN void Tcl_RegExpRange _ANSI_ARGS_((Tcl_RegExp regexp, + int index, CONST84 char **startPtr, + CONST84 char **endPtr)); +/* 216 */ +EXTERN void Tcl_Release _ANSI_ARGS_((ClientData clientData)); +/* 217 */ +EXTERN void Tcl_ResetResult _ANSI_ARGS_((Tcl_Interp *interp)); +/* 218 */ +EXTERN int Tcl_ScanElement _ANSI_ARGS_((CONST char *src, + int *flagPtr)); +/* 219 */ +EXTERN int Tcl_ScanCountedElement _ANSI_ARGS_((CONST char *src, + int length, int *flagPtr)); +/* 220 */ +EXTERN int Tcl_SeekOld _ANSI_ARGS_((Tcl_Channel chan, + int offset, int mode)); +/* 221 */ +EXTERN int Tcl_ServiceAll _ANSI_ARGS_((void)); +/* 222 */ +EXTERN int Tcl_ServiceEvent _ANSI_ARGS_((int flags)); +/* 223 */ +EXTERN void Tcl_SetAssocData _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name, Tcl_InterpDeleteProc *proc, + ClientData clientData)); +/* 224 */ +EXTERN void Tcl_SetChannelBufferSize _ANSI_ARGS_(( + Tcl_Channel chan, int sz)); +/* 225 */ +EXTERN int Tcl_SetChannelOption _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Channel chan, CONST char *optionName, + CONST char *newValue)); +/* 226 */ +EXTERN int Tcl_SetCommandInfo _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *cmdName, + CONST Tcl_CmdInfo *infoPtr)); +/* 227 */ +EXTERN void Tcl_SetErrno _ANSI_ARGS_((int err)); +/* 228 */ +EXTERN void Tcl_SetErrorCode _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); +/* 229 */ +EXTERN void Tcl_SetMaxBlockTime _ANSI_ARGS_((Tcl_Time *timePtr)); +/* 230 */ +EXTERN void Tcl_SetPanicProc _ANSI_ARGS_(( + Tcl_PanicProc *panicProc)); +/* 231 */ +EXTERN int Tcl_SetRecursionLimit _ANSI_ARGS_(( + Tcl_Interp *interp, int depth)); +/* 232 */ +EXTERN void Tcl_SetResult _ANSI_ARGS_((Tcl_Interp *interp, + char *result, Tcl_FreeProc *freeProc)); +/* 233 */ +EXTERN int Tcl_SetServiceMode _ANSI_ARGS_((int mode)); +/* 234 */ +EXTERN void Tcl_SetObjErrorCode _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *errorObjPtr)); +/* 235 */ +EXTERN void Tcl_SetObjResult _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *resultObjPtr)); +/* 236 */ +EXTERN void Tcl_SetStdChannel _ANSI_ARGS_((Tcl_Channel channel, + int type)); +/* 237 */ +EXTERN CONST84_RETURN char * Tcl_SetVar _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *varName, CONST char *newValue, + int flags)); +/* 238 */ +EXTERN CONST84_RETURN char * Tcl_SetVar2 _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *part1, CONST char *part2, + CONST char *newValue, int flags)); +/* 239 */ +EXTERN CONST84_RETURN char * Tcl_SignalId _ANSI_ARGS_((int sig)); +/* 240 */ +EXTERN CONST84_RETURN char * Tcl_SignalMsg _ANSI_ARGS_((int sig)); +/* 241 */ +EXTERN void Tcl_SourceRCFile _ANSI_ARGS_((Tcl_Interp *interp)); +/* 242 */ +EXTERN int Tcl_SplitList _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *listStr, int *argcPtr, + CONST84 char ***argvPtr)); +/* 243 */ +EXTERN void Tcl_SplitPath _ANSI_ARGS_((CONST char *path, + int *argcPtr, CONST84 char ***argvPtr)); +/* 244 */ +EXTERN void Tcl_StaticPackage _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *pkgName, + Tcl_PackageInitProc *initProc, + Tcl_PackageInitProc *safeInitProc)); +/* 245 */ +EXTERN int Tcl_StringMatch _ANSI_ARGS_((CONST char *str, + CONST char *pattern)); +/* 246 */ +EXTERN int Tcl_TellOld _ANSI_ARGS_((Tcl_Channel chan)); +/* 247 */ +EXTERN int Tcl_TraceVar _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *varName, int flags, + Tcl_VarTraceProc *proc, + ClientData clientData)); +/* 248 */ +EXTERN int Tcl_TraceVar2 _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *part1, CONST char *part2, + int flags, Tcl_VarTraceProc *proc, + ClientData clientData)); +/* 249 */ +EXTERN char * Tcl_TranslateFileName _ANSI_ARGS_(( + Tcl_Interp *interp, CONST char *name, + Tcl_DString *bufferPtr)); +/* 250 */ +EXTERN int Tcl_Ungets _ANSI_ARGS_((Tcl_Channel chan, + CONST char *str, int len, int atHead)); +/* 251 */ +EXTERN void Tcl_UnlinkVar _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *varName)); +/* 252 */ +EXTERN int Tcl_UnregisterChannel _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Channel chan)); +/* 253 */ +EXTERN int Tcl_UnsetVar _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *varName, int flags)); +/* 254 */ +EXTERN int Tcl_UnsetVar2 _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *part1, CONST char *part2, + int flags)); +/* 255 */ +EXTERN void Tcl_UntraceVar _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *varName, int flags, + Tcl_VarTraceProc *proc, + ClientData clientData)); +/* 256 */ +EXTERN void Tcl_UntraceVar2 _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *part1, CONST char *part2, + int flags, Tcl_VarTraceProc *proc, + ClientData clientData)); +/* 257 */ +EXTERN void Tcl_UpdateLinkedVar _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *varName)); +/* 258 */ +EXTERN int Tcl_UpVar _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *frameName, CONST char *varName, + CONST char *localName, int flags)); +/* 259 */ +EXTERN int Tcl_UpVar2 _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *frameName, CONST char *part1, + CONST char *part2, CONST char *localName, + int flags)); +/* 260 */ +EXTERN int Tcl_VarEval _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); +/* 261 */ +EXTERN ClientData Tcl_VarTraceInfo _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *varName, int flags, + Tcl_VarTraceProc *procPtr, + ClientData prevClientData)); +/* 262 */ +EXTERN ClientData Tcl_VarTraceInfo2 _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *part1, CONST char *part2, + int flags, Tcl_VarTraceProc *procPtr, + ClientData prevClientData)); +/* 263 */ +EXTERN int Tcl_Write _ANSI_ARGS_((Tcl_Channel chan, + CONST char *s, int slen)); +/* 264 */ +EXTERN void Tcl_WrongNumArgs _ANSI_ARGS_((Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[], + CONST char *message)); +/* 265 */ +EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_(( + CONST char *fileName)); +/* 266 */ +EXTERN void Tcl_ValidateAllMemory _ANSI_ARGS_((CONST char *file, + int line)); +/* 267 */ +EXTERN void Tcl_AppendResultVA _ANSI_ARGS_((Tcl_Interp *interp, + va_list argList)); +/* 268 */ +EXTERN void Tcl_AppendStringsToObjVA _ANSI_ARGS_(( + Tcl_Obj *objPtr, va_list argList)); +/* 269 */ +EXTERN char * Tcl_HashStats _ANSI_ARGS_((Tcl_HashTable *tablePtr)); +/* 270 */ +EXTERN CONST84_RETURN char * Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *start, CONST84 char **termPtr)); +/* 271 */ +EXTERN CONST84_RETURN char * Tcl_PkgPresent _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name, CONST char *version, + int exact)); +/* 272 */ +EXTERN CONST84_RETURN char * Tcl_PkgPresentEx _ANSI_ARGS_(( + Tcl_Interp *interp, CONST char *name, + CONST char *version, int exact, + ClientData *clientDataPtr)); +/* 273 */ +EXTERN int Tcl_PkgProvide _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name, CONST char *version)); +/* 274 */ +EXTERN CONST84_RETURN char * Tcl_PkgRequire _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name, CONST char *version, + int exact)); +/* 275 */ +EXTERN void Tcl_SetErrorCodeVA _ANSI_ARGS_((Tcl_Interp *interp, + va_list argList)); +/* 276 */ +EXTERN int Tcl_VarEvalVA _ANSI_ARGS_((Tcl_Interp *interp, + va_list argList)); +/* 277 */ +EXTERN Tcl_Pid Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int *statPtr, + int options)); +/* 278 */ +EXTERN void Tcl_PanicVA _ANSI_ARGS_((CONST char *format, + va_list argList)); +/* 279 */ +EXTERN void Tcl_GetVersion _ANSI_ARGS_((int *major, int *minor, + int *patchLevel, int *type)); +/* 280 */ +EXTERN void Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp *interp)); +/* 281 */ +EXTERN Tcl_Channel Tcl_StackChannel _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_ChannelType *typePtr, + ClientData instanceData, int mask, + Tcl_Channel prevChan)); +/* 282 */ +EXTERN int Tcl_UnstackChannel _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Channel chan)); +/* 283 */ +EXTERN Tcl_Channel Tcl_GetStackedChannel _ANSI_ARGS_((Tcl_Channel chan)); +/* 284 */ +EXTERN void Tcl_SetMainLoop _ANSI_ARGS_((Tcl_MainLoopProc *proc)); +/* Slot 285 is reserved */ +/* 286 */ +EXTERN void Tcl_AppendObjToObj _ANSI_ARGS_((Tcl_Obj *objPtr, + Tcl_Obj *appendObjPtr)); +/* 287 */ +EXTERN Tcl_Encoding Tcl_CreateEncoding _ANSI_ARGS_(( + Tcl_EncodingType *typePtr)); +/* 288 */ +EXTERN void Tcl_CreateThreadExitHandler _ANSI_ARGS_(( + Tcl_ExitProc *proc, ClientData clientData)); +/* 289 */ +EXTERN void Tcl_DeleteThreadExitHandler _ANSI_ARGS_(( + Tcl_ExitProc *proc, ClientData clientData)); +/* 290 */ +EXTERN void Tcl_DiscardResult _ANSI_ARGS_(( + Tcl_SavedResult *statePtr)); +/* 291 */ +EXTERN int Tcl_EvalEx _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *script, int numBytes, int flags)); +/* 292 */ +EXTERN int Tcl_EvalObjv _ANSI_ARGS_((Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[], int flags)); +/* 293 */ +EXTERN int Tcl_EvalObjEx _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, int flags)); +/* 294 */ +EXTERN void Tcl_ExitThread _ANSI_ARGS_((int status)); +/* 295 */ +EXTERN int Tcl_ExternalToUtf _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Encoding encoding, CONST char *src, + int srcLen, int flags, + Tcl_EncodingState *statePtr, char *dst, + int dstLen, int *srcReadPtr, + int *dstWrotePtr, int *dstCharsPtr)); +/* 296 */ +EXTERN char * Tcl_ExternalToUtfDString _ANSI_ARGS_(( + Tcl_Encoding encoding, CONST char *src, + int srcLen, Tcl_DString *dsPtr)); +/* 297 */ +EXTERN void Tcl_FinalizeThread _ANSI_ARGS_((void)); +/* 298 */ +EXTERN void Tcl_FinalizeNotifier _ANSI_ARGS_(( + ClientData clientData)); +/* 299 */ +EXTERN void Tcl_FreeEncoding _ANSI_ARGS_((Tcl_Encoding encoding)); +/* 300 */ +EXTERN Tcl_ThreadId Tcl_GetCurrentThread _ANSI_ARGS_((void)); +/* 301 */ +EXTERN Tcl_Encoding Tcl_GetEncoding _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name)); +/* 302 */ +EXTERN CONST84_RETURN char * Tcl_GetEncodingName _ANSI_ARGS_(( + Tcl_Encoding encoding)); +/* 303 */ +EXTERN void Tcl_GetEncodingNames _ANSI_ARGS_((Tcl_Interp *interp)); +/* 304 */ +EXTERN int Tcl_GetIndexFromObjStruct _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *objPtr, + CONST VOID *tablePtr, int offset, + CONST char *msg, int flags, int *indexPtr)); +/* 305 */ +EXTERN VOID * Tcl_GetThreadData _ANSI_ARGS_(( + Tcl_ThreadDataKey *keyPtr, int size)); +/* 306 */ +EXTERN Tcl_Obj * Tcl_GetVar2Ex _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *part1, CONST char *part2, + int flags)); +/* 307 */ +EXTERN ClientData Tcl_InitNotifier _ANSI_ARGS_((void)); +/* 308 */ +EXTERN void Tcl_MutexLock _ANSI_ARGS_((Tcl_Mutex *mutexPtr)); +/* 309 */ +EXTERN void Tcl_MutexUnlock _ANSI_ARGS_((Tcl_Mutex *mutexPtr)); +/* 310 */ +EXTERN void Tcl_ConditionNotify _ANSI_ARGS_(( + Tcl_Condition *condPtr)); +/* 311 */ +EXTERN void Tcl_ConditionWait _ANSI_ARGS_(( + Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, + Tcl_Time *timePtr)); +/* 312 */ +EXTERN int Tcl_NumUtfChars _ANSI_ARGS_((CONST char *src, + int length)); +/* 313 */ +EXTERN int Tcl_ReadChars _ANSI_ARGS_((Tcl_Channel channel, + Tcl_Obj *objPtr, int charsToRead, + int appendFlag)); +/* 314 */ +EXTERN void Tcl_RestoreResult _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_SavedResult *statePtr)); +/* 315 */ +EXTERN void Tcl_SaveResult _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_SavedResult *statePtr)); +/* 316 */ +EXTERN int Tcl_SetSystemEncoding _ANSI_ARGS_(( + Tcl_Interp *interp, CONST char *name)); +/* 317 */ +EXTERN Tcl_Obj * Tcl_SetVar2Ex _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *part1, CONST char *part2, + Tcl_Obj *newValuePtr, int flags)); +/* 318 */ +EXTERN void Tcl_ThreadAlert _ANSI_ARGS_((Tcl_ThreadId threadId)); +/* 319 */ +EXTERN void Tcl_ThreadQueueEvent _ANSI_ARGS_(( + Tcl_ThreadId threadId, Tcl_Event *evPtr, + Tcl_QueuePosition position)); +/* 320 */ +EXTERN Tcl_UniChar Tcl_UniCharAtIndex _ANSI_ARGS_((CONST char *src, + int index)); +/* 321 */ +EXTERN Tcl_UniChar Tcl_UniCharToLower _ANSI_ARGS_((int ch)); +/* 322 */ +EXTERN Tcl_UniChar Tcl_UniCharToTitle _ANSI_ARGS_((int ch)); +/* 323 */ +EXTERN Tcl_UniChar Tcl_UniCharToUpper _ANSI_ARGS_((int ch)); +/* 324 */ +EXTERN int Tcl_UniCharToUtf _ANSI_ARGS_((int ch, char *buf)); +/* 325 */ +EXTERN CONST84_RETURN char * Tcl_UtfAtIndex _ANSI_ARGS_((CONST char *src, + int index)); +/* 326 */ +EXTERN int Tcl_UtfCharComplete _ANSI_ARGS_((CONST char *src, + int length)); +/* 327 */ +EXTERN int Tcl_UtfBackslash _ANSI_ARGS_((CONST char *src, + int *readPtr, char *dst)); +/* 328 */ +EXTERN CONST84_RETURN char * Tcl_UtfFindFirst _ANSI_ARGS_((CONST char *src, + int ch)); +/* 329 */ +EXTERN CONST84_RETURN char * Tcl_UtfFindLast _ANSI_ARGS_((CONST char *src, + int ch)); +/* 330 */ +EXTERN CONST84_RETURN char * Tcl_UtfNext _ANSI_ARGS_((CONST char *src)); +/* 331 */ +EXTERN CONST84_RETURN char * Tcl_UtfPrev _ANSI_ARGS_((CONST char *src, + CONST char *start)); +/* 332 */ +EXTERN int Tcl_UtfToExternal _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Encoding encoding, CONST char *src, + int srcLen, int flags, + Tcl_EncodingState *statePtr, char *dst, + int dstLen, int *srcReadPtr, + int *dstWrotePtr, int *dstCharsPtr)); +/* 333 */ +EXTERN char * Tcl_UtfToExternalDString _ANSI_ARGS_(( + Tcl_Encoding encoding, CONST char *src, + int srcLen, Tcl_DString *dsPtr)); +/* 334 */ +EXTERN int Tcl_UtfToLower _ANSI_ARGS_((char *src)); +/* 335 */ +EXTERN int Tcl_UtfToTitle _ANSI_ARGS_((char *src)); +/* 336 */ +EXTERN int Tcl_UtfToUniChar _ANSI_ARGS_((CONST char *src, + Tcl_UniChar *chPtr)); +/* 337 */ +EXTERN int Tcl_UtfToUpper _ANSI_ARGS_((char *src)); +/* 338 */ +EXTERN int Tcl_WriteChars _ANSI_ARGS_((Tcl_Channel chan, + CONST char *src, int srcLen)); +/* 339 */ +EXTERN int Tcl_WriteObj _ANSI_ARGS_((Tcl_Channel chan, + Tcl_Obj *objPtr)); +/* 340 */ +EXTERN char * Tcl_GetString _ANSI_ARGS_((Tcl_Obj *objPtr)); +/* 341 */ +EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir _ANSI_ARGS_((void)); +/* 342 */ +EXTERN void Tcl_SetDefaultEncodingDir _ANSI_ARGS_(( + CONST char *path)); +/* 343 */ +EXTERN void Tcl_AlertNotifier _ANSI_ARGS_((ClientData clientData)); +/* 344 */ +EXTERN void Tcl_ServiceModeHook _ANSI_ARGS_((int mode)); +/* 345 */ +EXTERN int Tcl_UniCharIsAlnum _ANSI_ARGS_((int ch)); +/* 346 */ +EXTERN int Tcl_UniCharIsAlpha _ANSI_ARGS_((int ch)); +/* 347 */ +EXTERN int Tcl_UniCharIsDigit _ANSI_ARGS_((int ch)); +/* 348 */ +EXTERN int Tcl_UniCharIsLower _ANSI_ARGS_((int ch)); +/* 349 */ +EXTERN int Tcl_UniCharIsSpace _ANSI_ARGS_((int ch)); +/* 350 */ +EXTERN int Tcl_UniCharIsUpper _ANSI_ARGS_((int ch)); +/* 351 */ +EXTERN int Tcl_UniCharIsWordChar _ANSI_ARGS_((int ch)); +/* 352 */ +EXTERN int Tcl_UniCharLen _ANSI_ARGS_(( + CONST Tcl_UniChar *uniStr)); +/* 353 */ +EXTERN int Tcl_UniCharNcmp _ANSI_ARGS_((CONST Tcl_UniChar *ucs, + CONST Tcl_UniChar *uct, + unsigned long numChars)); +/* 354 */ +EXTERN char * Tcl_UniCharToUtfDString _ANSI_ARGS_(( + CONST Tcl_UniChar *uniStr, int uniLength, + Tcl_DString *dsPtr)); +/* 355 */ +EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString _ANSI_ARGS_((CONST char *src, + int length, Tcl_DString *dsPtr)); +/* 356 */ +EXTERN Tcl_RegExp Tcl_GetRegExpFromObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *patObj, int flags)); +/* 357 */ +EXTERN Tcl_Obj * Tcl_EvalTokens _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Token *tokenPtr, int count)); +/* 358 */ +EXTERN void Tcl_FreeParse _ANSI_ARGS_((Tcl_Parse *parsePtr)); +/* 359 */ +EXTERN void Tcl_LogCommandInfo _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *script, CONST char *command, + int length)); +/* 360 */ +EXTERN int Tcl_ParseBraces _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *start, int numBytes, + Tcl_Parse *parsePtr, int append, + CONST84 char **termPtr)); +/* 361 */ +EXTERN int Tcl_ParseCommand _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *start, int numBytes, int nested, + Tcl_Parse *parsePtr)); +/* 362 */ +EXTERN int Tcl_ParseExpr _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *start, int numBytes, + Tcl_Parse *parsePtr)); +/* 363 */ +EXTERN int Tcl_ParseQuotedString _ANSI_ARGS_(( + Tcl_Interp *interp, CONST char *start, + int numBytes, Tcl_Parse *parsePtr, + int append, CONST84 char **termPtr)); +/* 364 */ +EXTERN int Tcl_ParseVarName _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *start, int numBytes, + Tcl_Parse *parsePtr, int append)); +/* 365 */ +EXTERN char * Tcl_GetCwd _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_DString *cwdPtr)); +/* 366 */ +EXTERN int Tcl_Chdir _ANSI_ARGS_((CONST char *dirName)); +/* 367 */ +EXTERN int Tcl_Access _ANSI_ARGS_((CONST char *path, int mode)); +/* 368 */ +EXTERN int Tcl_Stat _ANSI_ARGS_((CONST char *path, + struct stat *bufPtr)); +/* 369 */ +EXTERN int Tcl_UtfNcmp _ANSI_ARGS_((CONST char *s1, + CONST char *s2, unsigned long n)); +/* 370 */ +EXTERN int Tcl_UtfNcasecmp _ANSI_ARGS_((CONST char *s1, + CONST char *s2, unsigned long n)); +/* 371 */ +EXTERN int Tcl_StringCaseMatch _ANSI_ARGS_((CONST char *str, + CONST char *pattern, int nocase)); +/* 372 */ +EXTERN int Tcl_UniCharIsControl _ANSI_ARGS_((int ch)); +/* 373 */ +EXTERN int Tcl_UniCharIsGraph _ANSI_ARGS_((int ch)); +/* 374 */ +EXTERN int Tcl_UniCharIsPrint _ANSI_ARGS_((int ch)); +/* 375 */ +EXTERN int Tcl_UniCharIsPunct _ANSI_ARGS_((int ch)); +/* 376 */ +EXTERN int Tcl_RegExpExecObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_RegExp regexp, Tcl_Obj *textObj, + int offset, int nmatches, int flags)); +/* 377 */ +EXTERN void Tcl_RegExpGetInfo _ANSI_ARGS_((Tcl_RegExp regexp, + Tcl_RegExpInfo *infoPtr)); +/* 378 */ +EXTERN Tcl_Obj * Tcl_NewUnicodeObj _ANSI_ARGS_(( + CONST Tcl_UniChar *unicode, int numChars)); +/* 379 */ +EXTERN void Tcl_SetUnicodeObj _ANSI_ARGS_((Tcl_Obj *objPtr, + CONST Tcl_UniChar *unicode, int numChars)); +/* 380 */ +EXTERN int Tcl_GetCharLength _ANSI_ARGS_((Tcl_Obj *objPtr)); +/* 381 */ +EXTERN Tcl_UniChar Tcl_GetUniChar _ANSI_ARGS_((Tcl_Obj *objPtr, + int index)); +/* 382 */ +EXTERN Tcl_UniChar * Tcl_GetUnicode _ANSI_ARGS_((Tcl_Obj *objPtr)); +/* 383 */ +EXTERN Tcl_Obj * Tcl_GetRange _ANSI_ARGS_((Tcl_Obj *objPtr, int first, + int last)); +/* 384 */ +EXTERN void Tcl_AppendUnicodeToObj _ANSI_ARGS_((Tcl_Obj *objPtr, + CONST Tcl_UniChar *unicode, int length)); +/* 385 */ +EXTERN int Tcl_RegExpMatchObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *textObj, Tcl_Obj *patternObj)); +/* 386 */ +EXTERN void Tcl_SetNotifier _ANSI_ARGS_(( + Tcl_NotifierProcs *notifierProcPtr)); +/* 387 */ +EXTERN Tcl_Mutex * Tcl_GetAllocMutex _ANSI_ARGS_((void)); +/* 388 */ +EXTERN int Tcl_GetChannelNames _ANSI_ARGS_((Tcl_Interp *interp)); +/* 389 */ +EXTERN int Tcl_GetChannelNamesEx _ANSI_ARGS_(( + Tcl_Interp *interp, CONST char *pattern)); +/* 390 */ +EXTERN int Tcl_ProcObjCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[])); +/* 391 */ +EXTERN void Tcl_ConditionFinalize _ANSI_ARGS_(( + Tcl_Condition *condPtr)); +/* 392 */ +EXTERN void Tcl_MutexFinalize _ANSI_ARGS_((Tcl_Mutex *mutex)); +/* 393 */ +EXTERN int Tcl_CreateThread _ANSI_ARGS_((Tcl_ThreadId *idPtr, + Tcl_ThreadCreateProc proc, + ClientData clientData, int stackSize, + int flags)); +/* 394 */ +EXTERN int Tcl_ReadRaw _ANSI_ARGS_((Tcl_Channel chan, char *dst, + int bytesToRead)); +/* 395 */ +EXTERN int Tcl_WriteRaw _ANSI_ARGS_((Tcl_Channel chan, + CONST char *src, int srcLen)); +/* 396 */ +EXTERN Tcl_Channel Tcl_GetTopChannel _ANSI_ARGS_((Tcl_Channel chan)); +/* 397 */ +EXTERN int Tcl_ChannelBuffered _ANSI_ARGS_((Tcl_Channel chan)); +/* 398 */ +EXTERN CONST84_RETURN char * Tcl_ChannelName _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 399 */ +EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 400 */ +EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 401 */ +EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 402 */ +EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 403 */ +EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 404 */ +EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 405 */ +EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 406 */ +EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 407 */ +EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 408 */ +EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 409 */ +EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 410 */ +EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 411 */ +EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* 412 */ +EXTERN int Tcl_JoinThread _ANSI_ARGS_((Tcl_ThreadId threadId, + int *result)); +/* 413 */ +EXTERN int Tcl_IsChannelShared _ANSI_ARGS_((Tcl_Channel channel)); +/* 414 */ +EXTERN int Tcl_IsChannelRegistered _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Channel channel)); +/* 415 */ +EXTERN void Tcl_CutChannel _ANSI_ARGS_((Tcl_Channel channel)); +/* 416 */ +EXTERN void Tcl_SpliceChannel _ANSI_ARGS_((Tcl_Channel channel)); +/* 417 */ +EXTERN void Tcl_ClearChannelHandlers _ANSI_ARGS_(( + Tcl_Channel channel)); +/* 418 */ +EXTERN int Tcl_IsChannelExisting _ANSI_ARGS_(( + CONST char *channelName)); +/* 419 */ +EXTERN int Tcl_UniCharNcasecmp _ANSI_ARGS_(( + CONST Tcl_UniChar *ucs, + CONST Tcl_UniChar *uct, + unsigned long numChars)); +/* 420 */ +EXTERN int Tcl_UniCharCaseMatch _ANSI_ARGS_(( + CONST Tcl_UniChar *uniStr, + CONST Tcl_UniChar *uniPattern, int nocase)); +/* 421 */ +EXTERN Tcl_HashEntry * Tcl_FindHashEntry _ANSI_ARGS_(( + Tcl_HashTable *tablePtr, CONST char *key)); +/* 422 */ +EXTERN Tcl_HashEntry * Tcl_CreateHashEntry _ANSI_ARGS_(( + Tcl_HashTable *tablePtr, CONST char *key, + int *newPtr)); +/* 423 */ +EXTERN void Tcl_InitCustomHashTable _ANSI_ARGS_(( + Tcl_HashTable *tablePtr, int keyType, + Tcl_HashKeyType *typePtr)); +/* 424 */ +EXTERN void Tcl_InitObjHashTable _ANSI_ARGS_(( + Tcl_HashTable *tablePtr)); +/* 425 */ +EXTERN ClientData Tcl_CommandTraceInfo _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *varName, int flags, + Tcl_CommandTraceProc *procPtr, + ClientData prevClientData)); +/* 426 */ +EXTERN int Tcl_TraceCommand _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *varName, int flags, + Tcl_CommandTraceProc *proc, + ClientData clientData)); +/* 427 */ +EXTERN void Tcl_UntraceCommand _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *varName, int flags, + Tcl_CommandTraceProc *proc, + ClientData clientData)); +/* 428 */ +EXTERN char * Tcl_AttemptAlloc _ANSI_ARGS_((unsigned int size)); +/* 429 */ +EXTERN char * Tcl_AttemptDbCkalloc _ANSI_ARGS_((unsigned int size, + CONST char *file, int line)); +/* 430 */ +EXTERN char * Tcl_AttemptRealloc _ANSI_ARGS_((char *ptr, + unsigned int size)); +/* 431 */ +EXTERN char * Tcl_AttemptDbCkrealloc _ANSI_ARGS_((char *ptr, + unsigned int size, CONST char *file, + int line)); +/* 432 */ +EXTERN int Tcl_AttemptSetObjLength _ANSI_ARGS_((Tcl_Obj *objPtr, + int length)); +/* 433 */ +EXTERN Tcl_ThreadId Tcl_GetChannelThread _ANSI_ARGS_(( + Tcl_Channel channel)); +/* 434 */ +EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj _ANSI_ARGS_((Tcl_Obj *objPtr, + int *lengthPtr)); +/* 435 */ +EXTERN int Tcl_GetMathFuncInfo _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name, int *numArgsPtr, + Tcl_ValueType **argTypesPtr, + Tcl_MathProc **procPtr, + ClientData *clientDataPtr)); +/* 436 */ +EXTERN Tcl_Obj * Tcl_ListMathFuncs _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *pattern)); +/* 437 */ +EXTERN Tcl_Obj * Tcl_SubstObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, int flags)); +/* 438 */ +EXTERN int Tcl_DetachChannel _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Channel channel)); +/* 439 */ +EXTERN int Tcl_IsStandardChannel _ANSI_ARGS_(( + Tcl_Channel channel)); +/* 440 */ +EXTERN int Tcl_FSCopyFile _ANSI_ARGS_((Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr)); +/* 441 */ +EXTERN int Tcl_FSCopyDirectory _ANSI_ARGS_((Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr)); +/* 442 */ +EXTERN int Tcl_FSCreateDirectory _ANSI_ARGS_((Tcl_Obj *pathPtr)); +/* 443 */ +EXTERN int Tcl_FSDeleteFile _ANSI_ARGS_((Tcl_Obj *pathPtr)); +/* 444 */ +EXTERN int Tcl_FSLoadFile _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *pathPtr, CONST char *sym1, + CONST char *sym2, + Tcl_PackageInitProc **proc1Ptr, + Tcl_PackageInitProc **proc2Ptr, + Tcl_LoadHandle *handlePtr, + Tcl_FSUnloadFileProc **unloadProcPtr)); +/* 445 */ +EXTERN int Tcl_FSMatchInDirectory _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *result, + Tcl_Obj *pathPtr, CONST char *pattern, + Tcl_GlobTypeData *types)); +/* 446 */ +EXTERN Tcl_Obj * Tcl_FSLink _ANSI_ARGS_((Tcl_Obj *pathPtr, + Tcl_Obj *toPtr, int linkAction)); +/* 447 */ +EXTERN int Tcl_FSRemoveDirectory _ANSI_ARGS_((Tcl_Obj *pathPtr, + int recursive, Tcl_Obj **errorPtr)); +/* 448 */ +EXTERN int Tcl_FSRenameFile _ANSI_ARGS_((Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr)); +/* 449 */ +EXTERN int Tcl_FSLstat _ANSI_ARGS_((Tcl_Obj *pathPtr, + Tcl_StatBuf *buf)); +/* 450 */ +EXTERN int Tcl_FSUtime _ANSI_ARGS_((Tcl_Obj *pathPtr, + struct utimbuf *tval)); +/* 451 */ +EXTERN int Tcl_FSFileAttrsGet _ANSI_ARGS_((Tcl_Interp *interp, + int index, Tcl_Obj *pathPtr, + Tcl_Obj **objPtrRef)); +/* 452 */ +EXTERN int Tcl_FSFileAttrsSet _ANSI_ARGS_((Tcl_Interp *interp, + int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr)); +/* 453 */ +EXTERN CONST char ** Tcl_FSFileAttrStrings _ANSI_ARGS_((Tcl_Obj *pathPtr, + Tcl_Obj **objPtrRef)); +/* 454 */ +EXTERN int Tcl_FSStat _ANSI_ARGS_((Tcl_Obj *pathPtr, + Tcl_StatBuf *buf)); +/* 455 */ +EXTERN int Tcl_FSAccess _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode)); +/* 456 */ +EXTERN Tcl_Channel Tcl_FSOpenFileChannel _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *pathPtr, + CONST char *modeString, int permissions)); +/* 457 */ +EXTERN Tcl_Obj * Tcl_FSGetCwd _ANSI_ARGS_((Tcl_Interp *interp)); +/* 458 */ +EXTERN int Tcl_FSChdir _ANSI_ARGS_((Tcl_Obj *pathPtr)); +/* 459 */ +EXTERN int Tcl_FSConvertToPathType _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *pathPtr)); +/* 460 */ +EXTERN Tcl_Obj * Tcl_FSJoinPath _ANSI_ARGS_((Tcl_Obj *listObj, + int elements)); +/* 461 */ +EXTERN Tcl_Obj * Tcl_FSSplitPath _ANSI_ARGS_((Tcl_Obj *pathPtr, + int *lenPtr)); +/* 462 */ +EXTERN int Tcl_FSEqualPaths _ANSI_ARGS_((Tcl_Obj *firstPtr, + Tcl_Obj *secondPtr)); +/* 463 */ +EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *pathPtr)); +/* 464 */ +EXTERN Tcl_Obj * Tcl_FSJoinToPath _ANSI_ARGS_((Tcl_Obj *pathPtr, + int objc, Tcl_Obj *CONST objv[])); +/* 465 */ +EXTERN ClientData Tcl_FSGetInternalRep _ANSI_ARGS_((Tcl_Obj *pathPtr, + Tcl_Filesystem *fsPtr)); +/* 466 */ +EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *pathPtr)); +/* 467 */ +EXTERN int Tcl_FSEvalFile _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *fileName)); +/* 468 */ +EXTERN Tcl_Obj * Tcl_FSNewNativePath _ANSI_ARGS_(( + Tcl_Filesystem *fromFilesystem, + ClientData clientData)); +/* 469 */ +EXTERN CONST char * Tcl_FSGetNativePath _ANSI_ARGS_((Tcl_Obj *pathPtr)); +/* 470 */ +EXTERN Tcl_Obj * Tcl_FSFileSystemInfo _ANSI_ARGS_((Tcl_Obj *pathPtr)); +/* 471 */ +EXTERN Tcl_Obj * Tcl_FSPathSeparator _ANSI_ARGS_((Tcl_Obj *pathPtr)); +/* 472 */ +EXTERN Tcl_Obj * Tcl_FSListVolumes _ANSI_ARGS_((void)); +/* 473 */ +EXTERN int Tcl_FSRegister _ANSI_ARGS_((ClientData clientData, + Tcl_Filesystem *fsPtr)); +/* 474 */ +EXTERN int Tcl_FSUnregister _ANSI_ARGS_((Tcl_Filesystem *fsPtr)); +/* 475 */ +EXTERN ClientData Tcl_FSData _ANSI_ARGS_((Tcl_Filesystem *fsPtr)); +/* 476 */ +EXTERN CONST char * Tcl_FSGetTranslatedStringPath _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *pathPtr)); +/* 477 */ +EXTERN Tcl_Filesystem * Tcl_FSGetFileSystemForPath _ANSI_ARGS_(( + Tcl_Obj *pathPtr)); +/* 478 */ +EXTERN Tcl_PathType Tcl_FSGetPathType _ANSI_ARGS_((Tcl_Obj *pathPtr)); +/* 479 */ +EXTERN int Tcl_OutputBuffered _ANSI_ARGS_((Tcl_Channel chan)); +/* 480 */ +EXTERN void Tcl_FSMountsChanged _ANSI_ARGS_(( + Tcl_Filesystem *fsPtr)); +/* 481 */ +EXTERN int Tcl_EvalTokensStandard _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Token *tokenPtr, + int count)); +/* 482 */ +EXTERN void Tcl_GetTime _ANSI_ARGS_((Tcl_Time *timeBuf)); +/* 483 */ +EXTERN Tcl_Trace Tcl_CreateObjTrace _ANSI_ARGS_((Tcl_Interp *interp, + int level, int flags, + Tcl_CmdObjTraceProc *objProc, + ClientData clientData, + Tcl_CmdObjTraceDeleteProc *delProc)); +/* 484 */ +EXTERN int Tcl_GetCommandInfoFromToken _ANSI_ARGS_(( + Tcl_Command token, Tcl_CmdInfo *infoPtr)); +/* 485 */ +EXTERN int Tcl_SetCommandInfoFromToken _ANSI_ARGS_(( + Tcl_Command token, + CONST Tcl_CmdInfo *infoPtr)); +/* 486 */ +EXTERN Tcl_Obj * Tcl_DbNewWideIntObj _ANSI_ARGS_(( + Tcl_WideInt wideValue, CONST char *file, + int line)); +/* 487 */ +EXTERN int Tcl_GetWideIntFromObj _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *objPtr, + Tcl_WideInt *widePtr)); +/* 488 */ +EXTERN Tcl_Obj * Tcl_NewWideIntObj _ANSI_ARGS_((Tcl_WideInt wideValue)); +/* 489 */ +EXTERN void Tcl_SetWideIntObj _ANSI_ARGS_((Tcl_Obj *objPtr, + Tcl_WideInt wideValue)); +/* 490 */ +EXTERN Tcl_StatBuf * Tcl_AllocStatBuf _ANSI_ARGS_((void)); +/* 491 */ +EXTERN Tcl_WideInt Tcl_Seek _ANSI_ARGS_((Tcl_Channel chan, + Tcl_WideInt offset, int mode)); +/* 492 */ +EXTERN Tcl_WideInt Tcl_Tell _ANSI_ARGS_((Tcl_Channel chan)); +/* 493 */ +EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* Slot 494 is reserved */ +/* Slot 495 is reserved */ +/* Slot 496 is reserved */ +/* Slot 497 is reserved */ +/* Slot 498 is reserved */ +/* Slot 499 is reserved */ +/* Slot 500 is reserved */ +/* Slot 501 is reserved */ +/* Slot 502 is reserved */ +/* Slot 503 is reserved */ +/* Slot 504 is reserved */ +/* Slot 505 is reserved */ +/* Slot 506 is reserved */ +/* Slot 507 is reserved */ +/* Slot 508 is reserved */ +/* Slot 509 is reserved */ +/* Slot 510 is reserved */ +/* Slot 511 is reserved */ +/* Slot 512 is reserved */ +/* Slot 513 is reserved */ +/* Slot 514 is reserved */ +/* Slot 515 is reserved */ +/* Slot 516 is reserved */ +/* Slot 517 is reserved */ +/* Slot 518 is reserved */ +/* Slot 519 is reserved */ +/* Slot 520 is reserved */ +/* Slot 521 is reserved */ +/* Slot 522 is reserved */ +/* Slot 523 is reserved */ +/* Slot 524 is reserved */ +/* Slot 525 is reserved */ +/* Slot 526 is reserved */ +/* Slot 527 is reserved */ +/* Slot 528 is reserved */ +/* Slot 529 is reserved */ +/* Slot 530 is reserved */ +/* Slot 531 is reserved */ +/* Slot 532 is reserved */ +/* Slot 533 is reserved */ +/* Slot 534 is reserved */ +/* Slot 535 is reserved */ +/* Slot 536 is reserved */ +/* Slot 537 is reserved */ +/* Slot 538 is reserved */ +/* Slot 539 is reserved */ +/* Slot 540 is reserved */ +/* Slot 541 is reserved */ +/* Slot 542 is reserved */ +/* Slot 543 is reserved */ +/* Slot 544 is reserved */ +/* Slot 545 is reserved */ +/* Slot 546 is reserved */ +/* Slot 547 is reserved */ +/* Slot 548 is reserved */ +/* Slot 549 is reserved */ +/* Slot 550 is reserved */ +/* Slot 551 is reserved */ +/* Slot 552 is reserved */ +/* Slot 553 is reserved */ +/* 554 */ +EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc _ANSI_ARGS_(( + Tcl_ChannelType *chanTypePtr)); +/* Slot 555 is reserved */ +/* Slot 556 is reserved */ +/* Slot 557 is reserved */ +/* Slot 558 is reserved */ +/* Slot 559 is reserved */ +/* Slot 560 is reserved */ +/* Slot 561 is reserved */ +/* Slot 562 is reserved */ +/* Slot 563 is reserved */ +/* Slot 564 is reserved */ +/* Slot 565 is reserved */ +/* Slot 566 is reserved */ +/* Slot 567 is reserved */ +/* Slot 568 is reserved */ +/* Slot 569 is reserved */ +/* Slot 570 is reserved */ +/* Slot 571 is reserved */ +/* Slot 572 is reserved */ +/* 573 */ +EXTERN int Tcl_PkgRequireProc _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name, int objc, + Tcl_Obj *CONST objv[], + ClientData *clientDataPtr)); +/* Slot 574 is reserved */ +/* Slot 575 is reserved */ +/* Slot 576 is reserved */ +/* Slot 577 is reserved */ +/* Slot 578 is reserved */ +/* Slot 579 is reserved */ +/* Slot 580 is reserved */ +/* Slot 581 is reserved */ +/* Slot 582 is reserved */ +/* Slot 583 is reserved */ +/* Slot 584 is reserved */ +/* Slot 585 is reserved */ +/* Slot 586 is reserved */ +/* Slot 587 is reserved */ +/* Slot 588 is reserved */ +/* Slot 589 is reserved */ +/* Slot 590 is reserved */ +/* Slot 591 is reserved */ +/* Slot 592 is reserved */ +/* Slot 593 is reserved */ +/* Slot 594 is reserved */ +/* Slot 595 is reserved */ +/* Slot 596 is reserved */ +/* Slot 597 is reserved */ +/* Slot 598 is reserved */ +/* Slot 599 is reserved */ +/* Slot 600 is reserved */ +/* Slot 601 is reserved */ +/* Slot 602 is reserved */ +/* Slot 603 is reserved */ +/* Slot 604 is reserved */ +/* Slot 605 is reserved */ +/* Slot 606 is reserved */ +/* Slot 607 is reserved */ +/* Slot 608 is reserved */ +/* Slot 609 is reserved */ +/* Slot 610 is reserved */ +/* Slot 611 is reserved */ +/* Slot 612 is reserved */ +/* Slot 613 is reserved */ +/* Slot 614 is reserved */ +/* Slot 615 is reserved */ +/* Slot 616 is reserved */ +/* Slot 617 is reserved */ +/* Slot 618 is reserved */ +/* Slot 619 is reserved */ +/* Slot 620 is reserved */ +/* Slot 621 is reserved */ +/* Slot 622 is reserved */ +/* Slot 623 is reserved */ +/* Slot 624 is reserved */ +/* Slot 625 is reserved */ +/* Slot 626 is reserved */ +/* Slot 627 is reserved */ +/* Slot 628 is reserved */ +/* Slot 629 is reserved */ +/* 630 */ +EXTERN void TclUnusedStubEntry _ANSI_ARGS_((void)); + +typedef struct TclStubHooks { + struct TclPlatStubs *tclPlatStubs; + struct TclIntStubs *tclIntStubs; + struct TclIntPlatStubs *tclIntPlatStubs; +} TclStubHooks; + +typedef struct TclStubs { + int magic; + struct TclStubHooks *hooks; + + int (*tcl_PkgProvideEx) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, CONST char *version, ClientData clientData)); /* 0 */ + CONST84_RETURN char * (*tcl_PkgRequireEx) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, CONST char *version, int exact, ClientData *clientDataPtr)); /* 1 */ + void (*tcl_Panic) _ANSI_ARGS_((CONST char *format, ...)); /* 2 */ + char * (*tcl_Alloc) _ANSI_ARGS_((unsigned int size)); /* 3 */ + void (*tcl_Free) _ANSI_ARGS_((char *ptr)); /* 4 */ + char * (*tcl_Realloc) _ANSI_ARGS_((char *ptr, unsigned int size)); /* 5 */ + char * (*tcl_DbCkalloc) _ANSI_ARGS_((unsigned int size, CONST char *file, int line)); /* 6 */ + void (*tcl_DbCkfree) _ANSI_ARGS_((char *ptr, CONST char *file, int line)); /* 7 */ + char * (*tcl_DbCkrealloc) _ANSI_ARGS_((char *ptr, unsigned int size, CONST char *file, int line)); /* 8 */ +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ + void (*tcl_CreateFileHandler) _ANSI_ARGS_((int fd, int mask, Tcl_FileProc *proc, ClientData clientData)); /* 9 */ +#endif /* UNIX */ +#if defined(__WIN32__) /* WIN */ + VOID *reserved9; +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ + void (*tcl_CreateFileHandler) _ANSI_ARGS_((int fd, int mask, Tcl_FileProc *proc, ClientData clientData)); /* 9 */ +#endif /* MACOSX */ +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ + void (*tcl_DeleteFileHandler) _ANSI_ARGS_((int fd)); /* 10 */ +#endif /* UNIX */ +#if defined(__WIN32__) /* WIN */ + VOID *reserved10; +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ + void (*tcl_DeleteFileHandler) _ANSI_ARGS_((int fd)); /* 10 */ +#endif /* MACOSX */ + void (*tcl_SetTimer) _ANSI_ARGS_((Tcl_Time *timePtr)); /* 11 */ + void (*tcl_Sleep) _ANSI_ARGS_((int ms)); /* 12 */ + int (*tcl_WaitForEvent) _ANSI_ARGS_((Tcl_Time *timePtr)); /* 13 */ + int (*tcl_AppendAllObjTypes) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr)); /* 14 */ + void (*tcl_AppendStringsToObj) _ANSI_ARGS_((Tcl_Obj *objPtr, ...)); /* 15 */ + void (*tcl_AppendToObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *bytes, int length)); /* 16 */ + Tcl_Obj * (*tcl_ConcatObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[])); /* 17 */ + int (*tcl_ConvertToType) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_ObjType *typePtr)); /* 18 */ + void (*tcl_DbDecrRefCount) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *file, int line)); /* 19 */ + void (*tcl_DbIncrRefCount) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *file, int line)); /* 20 */ + int (*tcl_DbIsShared) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *file, int line)); /* 21 */ + Tcl_Obj * (*tcl_DbNewBooleanObj) _ANSI_ARGS_((int boolValue, CONST char *file, int line)); /* 22 */ + Tcl_Obj * (*tcl_DbNewByteArrayObj) _ANSI_ARGS_((CONST unsigned char *bytes, int length, CONST char *file, int line)); /* 23 */ + Tcl_Obj * (*tcl_DbNewDoubleObj) _ANSI_ARGS_((double doubleValue, CONST char *file, int line)); /* 24 */ + Tcl_Obj * (*tcl_DbNewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST *objv, CONST char *file, int line)); /* 25 */ + Tcl_Obj * (*tcl_DbNewLongObj) _ANSI_ARGS_((long longValue, CONST char *file, int line)); /* 26 */ + Tcl_Obj * (*tcl_DbNewObj) _ANSI_ARGS_((CONST char *file, int line)); /* 27 */ + Tcl_Obj * (*tcl_DbNewStringObj) _ANSI_ARGS_((CONST char *bytes, int length, CONST char *file, int line)); /* 28 */ + Tcl_Obj * (*tcl_DuplicateObj) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 29 */ + void (*tclFreeObj) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 30 */ + int (*tcl_GetBoolean) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *src, int *boolPtr)); /* 31 */ + int (*tcl_GetBooleanFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr)); /* 32 */ + unsigned char * (*tcl_GetByteArrayFromObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int *lengthPtr)); /* 33 */ + int (*tcl_GetDouble) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *src, double *doublePtr)); /* 34 */ + int (*tcl_GetDoubleFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr)); /* 35 */ + int (*tcl_GetIndexFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char **tablePtr, CONST char *msg, int flags, int *indexPtr)); /* 36 */ + int (*tcl_GetInt) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *src, int *intPtr)); /* 37 */ + int (*tcl_GetIntFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr)); /* 38 */ + int (*tcl_GetLongFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr)); /* 39 */ + Tcl_ObjType * (*tcl_GetObjType) _ANSI_ARGS_((CONST char *typeName)); /* 40 */ + char * (*tcl_GetStringFromObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int *lengthPtr)); /* 41 */ + void (*tcl_InvalidateStringRep) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 42 */ + int (*tcl_ListObjAppendList) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr)); /* 43 */ + int (*tcl_ListObjAppendElement) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr)); /* 44 */ + int (*tcl_ListObjGetElements) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr)); /* 45 */ + int (*tcl_ListObjIndex) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr)); /* 46 */ + int (*tcl_ListObjLength) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr)); /* 47 */ + int (*tcl_ListObjReplace) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *CONST objv[])); /* 48 */ + Tcl_Obj * (*tcl_NewBooleanObj) _ANSI_ARGS_((int boolValue)); /* 49 */ + Tcl_Obj * (*tcl_NewByteArrayObj) _ANSI_ARGS_((CONST unsigned char *bytes, int length)); /* 50 */ + Tcl_Obj * (*tcl_NewDoubleObj) _ANSI_ARGS_((double doubleValue)); /* 51 */ + Tcl_Obj * (*tcl_NewIntObj) _ANSI_ARGS_((int intValue)); /* 52 */ + Tcl_Obj * (*tcl_NewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[])); /* 53 */ + Tcl_Obj * (*tcl_NewLongObj) _ANSI_ARGS_((long longValue)); /* 54 */ + Tcl_Obj * (*tcl_NewObj) _ANSI_ARGS_((void)); /* 55 */ + Tcl_Obj * (*tcl_NewStringObj) _ANSI_ARGS_((CONST char *bytes, int length)); /* 56 */ + void (*tcl_SetBooleanObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int boolValue)); /* 57 */ + unsigned char * (*tcl_SetByteArrayLength) _ANSI_ARGS_((Tcl_Obj *objPtr, int length)); /* 58 */ + void (*tcl_SetByteArrayObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST unsigned char *bytes, int length)); /* 59 */ + void (*tcl_SetDoubleObj) _ANSI_ARGS_((Tcl_Obj *objPtr, double doubleValue)); /* 60 */ + void (*tcl_SetIntObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int intValue)); /* 61 */ + void (*tcl_SetListObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int objc, Tcl_Obj *CONST objv[])); /* 62 */ + void (*tcl_SetLongObj) _ANSI_ARGS_((Tcl_Obj *objPtr, long longValue)); /* 63 */ + void (*tcl_SetObjLength) _ANSI_ARGS_((Tcl_Obj *objPtr, int length)); /* 64 */ + void (*tcl_SetStringObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *bytes, int length)); /* 65 */ + void (*tcl_AddErrorInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *message)); /* 66 */ + void (*tcl_AddObjErrorInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *message, int length)); /* 67 */ + void (*tcl_AllowExceptions) _ANSI_ARGS_((Tcl_Interp *interp)); /* 68 */ + void (*tcl_AppendElement) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *element)); /* 69 */ + void (*tcl_AppendResult) _ANSI_ARGS_((Tcl_Interp *interp, ...)); /* 70 */ + Tcl_AsyncHandler (*tcl_AsyncCreate) _ANSI_ARGS_((Tcl_AsyncProc *proc, ClientData clientData)); /* 71 */ + void (*tcl_AsyncDelete) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 72 */ + int (*tcl_AsyncInvoke) _ANSI_ARGS_((Tcl_Interp *interp, int code)); /* 73 */ + void (*tcl_AsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 74 */ + int (*tcl_AsyncReady) _ANSI_ARGS_((void)); /* 75 */ + void (*tcl_BackgroundError) _ANSI_ARGS_((Tcl_Interp *interp)); /* 76 */ + char (*tcl_Backslash) _ANSI_ARGS_((CONST char *src, int *readPtr)); /* 77 */ + int (*tcl_BadChannelOption) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *optionName, CONST char *optionList)); /* 78 */ + void (*tcl_CallWhenDeleted) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData)); /* 79 */ + void (*tcl_CancelIdleCall) _ANSI_ARGS_((Tcl_IdleProc *idleProc, ClientData clientData)); /* 80 */ + int (*tcl_Close) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel chan)); /* 81 */ + int (*tcl_CommandComplete) _ANSI_ARGS_((CONST char *cmd)); /* 82 */ + char * (*tcl_Concat) _ANSI_ARGS_((int argc, CONST84 char *CONST *argv)); /* 83 */ + int (*tcl_ConvertElement) _ANSI_ARGS_((CONST char *src, char *dst, int flags)); /* 84 */ + int (*tcl_ConvertCountedElement) _ANSI_ARGS_((CONST char *src, int length, char *dst, int flags)); /* 85 */ + int (*tcl_CreateAlias) _ANSI_ARGS_((Tcl_Interp *slave, CONST char *slaveCmd, Tcl_Interp *target, CONST char *targetCmd, int argc, CONST84 char *CONST *argv)); /* 86 */ + int (*tcl_CreateAliasObj) _ANSI_ARGS_((Tcl_Interp *slave, CONST char *slaveCmd, Tcl_Interp *target, CONST char *targetCmd, int objc, Tcl_Obj *CONST objv[])); /* 87 */ + Tcl_Channel (*tcl_CreateChannel) _ANSI_ARGS_((Tcl_ChannelType *typePtr, CONST char *chanName, ClientData instanceData, int mask)); /* 88 */ + void (*tcl_CreateChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData)); /* 89 */ + void (*tcl_CreateCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData)); /* 90 */ + Tcl_Command (*tcl_CreateCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc)); /* 91 */ + void (*tcl_CreateEventSource) _ANSI_ARGS_((Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData)); /* 92 */ + void (*tcl_CreateExitHandler) _ANSI_ARGS_((Tcl_ExitProc *proc, ClientData clientData)); /* 93 */ + Tcl_Interp * (*tcl_CreateInterp) _ANSI_ARGS_((void)); /* 94 */ + void (*tcl_CreateMathFunc) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData)); /* 95 */ + Tcl_Command (*tcl_CreateObjCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc)); /* 96 */ + Tcl_Interp * (*tcl_CreateSlave) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *slaveName, int isSafe)); /* 97 */ + Tcl_TimerToken (*tcl_CreateTimerHandler) _ANSI_ARGS_((int milliseconds, Tcl_TimerProc *proc, ClientData clientData)); /* 98 */ + Tcl_Trace (*tcl_CreateTrace) _ANSI_ARGS_((Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData)); /* 99 */ + void (*tcl_DeleteAssocData) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name)); /* 100 */ + void (*tcl_DeleteChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData)); /* 101 */ + void (*tcl_DeleteCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData)); /* 102 */ + int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *cmdName)); /* 103 */ + int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Command command)); /* 104 */ + void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc *proc, ClientData clientData)); /* 105 */ + void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData)); /* 106 */ + void (*tcl_DeleteExitHandler) _ANSI_ARGS_((Tcl_ExitProc *proc, ClientData clientData)); /* 107 */ + void (*tcl_DeleteHashEntry) _ANSI_ARGS_((Tcl_HashEntry *entryPtr)); /* 108 */ + void (*tcl_DeleteHashTable) _ANSI_ARGS_((Tcl_HashTable *tablePtr)); /* 109 */ + void (*tcl_DeleteInterp) _ANSI_ARGS_((Tcl_Interp *interp)); /* 110 */ + void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid *pidPtr)); /* 111 */ + void (*tcl_DeleteTimerHandler) _ANSI_ARGS_((Tcl_TimerToken token)); /* 112 */ + void (*tcl_DeleteTrace) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Trace trace)); /* 113 */ + void (*tcl_DontCallWhenDeleted) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData)); /* 114 */ + int (*tcl_DoOneEvent) _ANSI_ARGS_((int flags)); /* 115 */ + void (*tcl_DoWhenIdle) _ANSI_ARGS_((Tcl_IdleProc *proc, ClientData clientData)); /* 116 */ + char * (*tcl_DStringAppend) _ANSI_ARGS_((Tcl_DString *dsPtr, CONST char *bytes, int length)); /* 117 */ + char * (*tcl_DStringAppendElement) _ANSI_ARGS_((Tcl_DString *dsPtr, CONST char *element)); /* 118 */ + void (*tcl_DStringEndSublist) _ANSI_ARGS_((Tcl_DString *dsPtr)); /* 119 */ + void (*tcl_DStringFree) _ANSI_ARGS_((Tcl_DString *dsPtr)); /* 120 */ + void (*tcl_DStringGetResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_DString *dsPtr)); /* 121 */ + void (*tcl_DStringInit) _ANSI_ARGS_((Tcl_DString *dsPtr)); /* 122 */ + void (*tcl_DStringResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_DString *dsPtr)); /* 123 */ + void (*tcl_DStringSetLength) _ANSI_ARGS_((Tcl_DString *dsPtr, int length)); /* 124 */ + void (*tcl_DStringStartSublist) _ANSI_ARGS_((Tcl_DString *dsPtr)); /* 125 */ + int (*tcl_Eof) _ANSI_ARGS_((Tcl_Channel chan)); /* 126 */ + CONST84_RETURN char * (*tcl_ErrnoId) _ANSI_ARGS_((void)); /* 127 */ + CONST84_RETURN char * (*tcl_ErrnoMsg) _ANSI_ARGS_((int err)); /* 128 */ + int (*tcl_Eval) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *script)); /* 129 */ + int (*tcl_EvalFile) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *fileName)); /* 130 */ + int (*tcl_EvalObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr)); /* 131 */ + void (*tcl_EventuallyFree) _ANSI_ARGS_((ClientData clientData, Tcl_FreeProc *freeProc)); /* 132 */ + void (*tcl_Exit) _ANSI_ARGS_((int status)); /* 133 */ + int (*tcl_ExposeCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *hiddenCmdToken, CONST char *cmdName)); /* 134 */ + int (*tcl_ExprBoolean) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *expr, int *ptr)); /* 135 */ + int (*tcl_ExprBooleanObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr)); /* 136 */ + int (*tcl_ExprDouble) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *expr, double *ptr)); /* 137 */ + int (*tcl_ExprDoubleObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr)); /* 138 */ + int (*tcl_ExprLong) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *expr, long *ptr)); /* 139 */ + int (*tcl_ExprLongObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr)); /* 140 */ + int (*tcl_ExprObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr)); /* 141 */ + int (*tcl_ExprString) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *expr)); /* 142 */ + void (*tcl_Finalize) _ANSI_ARGS_((void)); /* 143 */ + void (*tcl_FindExecutable) _ANSI_ARGS_((CONST char *argv0)); /* 144 */ + Tcl_HashEntry * (*tcl_FirstHashEntry) _ANSI_ARGS_((Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr)); /* 145 */ + int (*tcl_Flush) _ANSI_ARGS_((Tcl_Channel chan)); /* 146 */ + void (*tcl_FreeResult) _ANSI_ARGS_((Tcl_Interp *interp)); /* 147 */ + int (*tcl_GetAlias) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr)); /* 148 */ + int (*tcl_GetAliasObj) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv)); /* 149 */ + ClientData (*tcl_GetAssocData) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, Tcl_InterpDeleteProc **procPtr)); /* 150 */ + Tcl_Channel (*tcl_GetChannel) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *chanName, int *modePtr)); /* 151 */ + int (*tcl_GetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan)); /* 152 */ + int (*tcl_GetChannelHandle) _ANSI_ARGS_((Tcl_Channel chan, int direction, ClientData *handlePtr)); /* 153 */ + ClientData (*tcl_GetChannelInstanceData) _ANSI_ARGS_((Tcl_Channel chan)); /* 154 */ + int (*tcl_GetChannelMode) _ANSI_ARGS_((Tcl_Channel chan)); /* 155 */ + CONST84_RETURN char * (*tcl_GetChannelName) _ANSI_ARGS_((Tcl_Channel chan)); /* 156 */ + int (*tcl_GetChannelOption) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel chan, CONST char *optionName, Tcl_DString *dsPtr)); /* 157 */ + Tcl_ChannelType * (*tcl_GetChannelType) _ANSI_ARGS_((Tcl_Channel chan)); /* 158 */ + int (*tcl_GetCommandInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *cmdName, Tcl_CmdInfo *infoPtr)); /* 159 */ + CONST84_RETURN char * (*tcl_GetCommandName) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Command command)); /* 160 */ + int (*tcl_GetErrno) _ANSI_ARGS_((void)); /* 161 */ + CONST84_RETURN char * (*tcl_GetHostName) _ANSI_ARGS_((void)); /* 162 */ + int (*tcl_GetInterpPath) _ANSI_ARGS_((Tcl_Interp *askInterp, Tcl_Interp *slaveInterp)); /* 163 */ + Tcl_Interp * (*tcl_GetMaster) _ANSI_ARGS_((Tcl_Interp *interp)); /* 164 */ + CONST char * (*tcl_GetNameOfExecutable) _ANSI_ARGS_((void)); /* 165 */ + Tcl_Obj * (*tcl_GetObjResult) _ANSI_ARGS_((Tcl_Interp *interp)); /* 166 */ +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ + int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *chanID, int forWriting, int checkUsage, ClientData *filePtr)); /* 167 */ +#endif /* UNIX */ +#if defined(__WIN32__) /* WIN */ + VOID *reserved167; +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ + int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *chanID, int forWriting, int checkUsage, ClientData *filePtr)); /* 167 */ +#endif /* MACOSX */ + Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((CONST char *path)); /* 168 */ + int (*tcl_Gets) _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString *dsPtr)); /* 169 */ + int (*tcl_GetsObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj *objPtr)); /* 170 */ + int (*tcl_GetServiceMode) _ANSI_ARGS_((void)); /* 171 */ + Tcl_Interp * (*tcl_GetSlave) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *slaveName)); /* 172 */ + Tcl_Channel (*tcl_GetStdChannel) _ANSI_ARGS_((int type)); /* 173 */ + CONST84_RETURN char * (*tcl_GetStringResult) _ANSI_ARGS_((Tcl_Interp *interp)); /* 174 */ + CONST84_RETURN char * (*tcl_GetVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName, int flags)); /* 175 */ + CONST84_RETURN char * (*tcl_GetVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags)); /* 176 */ + int (*tcl_GlobalEval) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *command)); /* 177 */ + int (*tcl_GlobalEvalObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr)); /* 178 */ + int (*tcl_HideCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *cmdName, CONST char *hiddenCmdToken)); /* 179 */ + int (*tcl_Init) _ANSI_ARGS_((Tcl_Interp *interp)); /* 180 */ + void (*tcl_InitHashTable) _ANSI_ARGS_((Tcl_HashTable *tablePtr, int keyType)); /* 181 */ + int (*tcl_InputBlocked) _ANSI_ARGS_((Tcl_Channel chan)); /* 182 */ + int (*tcl_InputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 183 */ + int (*tcl_InterpDeleted) _ANSI_ARGS_((Tcl_Interp *interp)); /* 184 */ + int (*tcl_IsSafe) _ANSI_ARGS_((Tcl_Interp *interp)); /* 185 */ + char * (*tcl_JoinPath) _ANSI_ARGS_((int argc, CONST84 char *CONST *argv, Tcl_DString *resultPtr)); /* 186 */ + int (*tcl_LinkVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName, char *addr, int type)); /* 187 */ + VOID *reserved188; + Tcl_Channel (*tcl_MakeFileChannel) _ANSI_ARGS_((ClientData handle, int mode)); /* 189 */ + int (*tcl_MakeSafe) _ANSI_ARGS_((Tcl_Interp *interp)); /* 190 */ + Tcl_Channel (*tcl_MakeTcpClientChannel) _ANSI_ARGS_((ClientData tcpSocket)); /* 191 */ + char * (*tcl_Merge) _ANSI_ARGS_((int argc, CONST84 char *CONST *argv)); /* 192 */ + Tcl_HashEntry * (*tcl_NextHashEntry) _ANSI_ARGS_((Tcl_HashSearch *searchPtr)); /* 193 */ + void (*tcl_NotifyChannel) _ANSI_ARGS_((Tcl_Channel channel, int mask)); /* 194 */ + Tcl_Obj * (*tcl_ObjGetVar2) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags)); /* 195 */ + Tcl_Obj * (*tcl_ObjSetVar2) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags)); /* 196 */ + Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp *interp, int argc, CONST84 char **argv, int flags)); /* 197 */ + Tcl_Channel (*tcl_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *fileName, CONST char *modeString, int permissions)); /* 198 */ + Tcl_Channel (*tcl_OpenTcpClient) _ANSI_ARGS_((Tcl_Interp *interp, int port, CONST char *address, CONST char *myaddr, int myport, int async)); /* 199 */ + Tcl_Channel (*tcl_OpenTcpServer) _ANSI_ARGS_((Tcl_Interp *interp, int port, CONST char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData)); /* 200 */ + void (*tcl_Preserve) _ANSI_ARGS_((ClientData data)); /* 201 */ + void (*tcl_PrintDouble) _ANSI_ARGS_((Tcl_Interp *interp, double value, char *dst)); /* 202 */ + int (*tcl_PutEnv) _ANSI_ARGS_((CONST char *assignment)); /* 203 */ + CONST84_RETURN char * (*tcl_PosixError) _ANSI_ARGS_((Tcl_Interp *interp)); /* 204 */ + void (*tcl_QueueEvent) _ANSI_ARGS_((Tcl_Event *evPtr, Tcl_QueuePosition position)); /* 205 */ + int (*tcl_Read) _ANSI_ARGS_((Tcl_Channel chan, char *bufPtr, int toRead)); /* 206 */ + void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */ + int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *cmd, int flags)); /* 208 */ + int (*tcl_RecordAndEvalObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags)); /* 209 */ + void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel chan)); /* 210 */ + void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType *typePtr)); /* 211 */ + Tcl_RegExp (*tcl_RegExpCompile) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *pattern)); /* 212 */ + int (*tcl_RegExpExec) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_RegExp regexp, CONST char *text, CONST char *start)); /* 213 */ + int (*tcl_RegExpMatch) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *text, CONST char *pattern)); /* 214 */ + void (*tcl_RegExpRange) _ANSI_ARGS_((Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr)); /* 215 */ + void (*tcl_Release) _ANSI_ARGS_((ClientData clientData)); /* 216 */ + void (*tcl_ResetResult) _ANSI_ARGS_((Tcl_Interp *interp)); /* 217 */ + int (*tcl_ScanElement) _ANSI_ARGS_((CONST char *src, int *flagPtr)); /* 218 */ + int (*tcl_ScanCountedElement) _ANSI_ARGS_((CONST char *src, int length, int *flagPtr)); /* 219 */ + int (*tcl_SeekOld) _ANSI_ARGS_((Tcl_Channel chan, int offset, int mode)); /* 220 */ + int (*tcl_ServiceAll) _ANSI_ARGS_((void)); /* 221 */ + int (*tcl_ServiceEvent) _ANSI_ARGS_((int flags)); /* 222 */ + void (*tcl_SetAssocData) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, Tcl_InterpDeleteProc *proc, ClientData clientData)); /* 223 */ + void (*tcl_SetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan, int sz)); /* 224 */ + int (*tcl_SetChannelOption) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel chan, CONST char *optionName, CONST char *newValue)); /* 225 */ + int (*tcl_SetCommandInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *cmdName, CONST Tcl_CmdInfo *infoPtr)); /* 226 */ + void (*tcl_SetErrno) _ANSI_ARGS_((int err)); /* 227 */ + void (*tcl_SetErrorCode) _ANSI_ARGS_((Tcl_Interp *interp, ...)); /* 228 */ + void (*tcl_SetMaxBlockTime) _ANSI_ARGS_((Tcl_Time *timePtr)); /* 229 */ + void (*tcl_SetPanicProc) _ANSI_ARGS_((Tcl_PanicProc *panicProc)); /* 230 */ + int (*tcl_SetRecursionLimit) _ANSI_ARGS_((Tcl_Interp *interp, int depth)); /* 231 */ + void (*tcl_SetResult) _ANSI_ARGS_((Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc)); /* 232 */ + int (*tcl_SetServiceMode) _ANSI_ARGS_((int mode)); /* 233 */ + void (*tcl_SetObjErrorCode) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *errorObjPtr)); /* 234 */ + void (*tcl_SetObjResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *resultObjPtr)); /* 235 */ + void (*tcl_SetStdChannel) _ANSI_ARGS_((Tcl_Channel channel, int type)); /* 236 */ + CONST84_RETURN char * (*tcl_SetVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName, CONST char *newValue, int flags)); /* 237 */ + CONST84_RETURN char * (*tcl_SetVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *part1, CONST char *part2, CONST char *newValue, int flags)); /* 238 */ + CONST84_RETURN char * (*tcl_SignalId) _ANSI_ARGS_((int sig)); /* 239 */ + CONST84_RETURN char * (*tcl_SignalMsg) _ANSI_ARGS_((int sig)); /* 240 */ + void (*tcl_SourceRCFile) _ANSI_ARGS_((Tcl_Interp *interp)); /* 241 */ + int (*tcl_SplitList) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *listStr, int *argcPtr, CONST84 char ***argvPtr)); /* 242 */ + void (*tcl_SplitPath) _ANSI_ARGS_((CONST char *path, int *argcPtr, CONST84 char ***argvPtr)); /* 243 */ + void (*tcl_StaticPackage) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *pkgName, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc)); /* 244 */ + int (*tcl_StringMatch) _ANSI_ARGS_((CONST char *str, CONST char *pattern)); /* 245 */ + int (*tcl_TellOld) _ANSI_ARGS_((Tcl_Channel chan)); /* 246 */ + int (*tcl_TraceVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData)); /* 247 */ + int (*tcl_TraceVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData)); /* 248 */ + char * (*tcl_TranslateFileName) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, Tcl_DString *bufferPtr)); /* 249 */ + int (*tcl_Ungets) _ANSI_ARGS_((Tcl_Channel chan, CONST char *str, int len, int atHead)); /* 250 */ + void (*tcl_UnlinkVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName)); /* 251 */ + int (*tcl_UnregisterChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel chan)); /* 252 */ + int (*tcl_UnsetVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName, int flags)); /* 253 */ + int (*tcl_UnsetVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags)); /* 254 */ + void (*tcl_UntraceVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData)); /* 255 */ + void (*tcl_UntraceVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData)); /* 256 */ + void (*tcl_UpdateLinkedVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName)); /* 257 */ + int (*tcl_UpVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *frameName, CONST char *varName, CONST char *localName, int flags)); /* 258 */ + int (*tcl_UpVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *frameName, CONST char *part1, CONST char *part2, CONST char *localName, int flags)); /* 259 */ + int (*tcl_VarEval) _ANSI_ARGS_((Tcl_Interp *interp, ...)); /* 260 */ + ClientData (*tcl_VarTraceInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData)); /* 261 */ + ClientData (*tcl_VarTraceInfo2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData)); /* 262 */ + int (*tcl_Write) _ANSI_ARGS_((Tcl_Channel chan, CONST char *s, int slen)); /* 263 */ + void (*tcl_WrongNumArgs) _ANSI_ARGS_((Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], CONST char *message)); /* 264 */ + int (*tcl_DumpActiveMemory) _ANSI_ARGS_((CONST char *fileName)); /* 265 */ + void (*tcl_ValidateAllMemory) _ANSI_ARGS_((CONST char *file, int line)); /* 266 */ + void (*tcl_AppendResultVA) _ANSI_ARGS_((Tcl_Interp *interp, va_list argList)); /* 267 */ + void (*tcl_AppendStringsToObjVA) _ANSI_ARGS_((Tcl_Obj *objPtr, va_list argList)); /* 268 */ + char * (*tcl_HashStats) _ANSI_ARGS_((Tcl_HashTable *tablePtr)); /* 269 */ + CONST84_RETURN char * (*tcl_ParseVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *start, CONST84 char **termPtr)); /* 270 */ + CONST84_RETURN char * (*tcl_PkgPresent) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, CONST char *version, int exact)); /* 271 */ + CONST84_RETURN char * (*tcl_PkgPresentEx) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, CONST char *version, int exact, ClientData *clientDataPtr)); /* 272 */ + int (*tcl_PkgProvide) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, CONST char *version)); /* 273 */ + CONST84_RETURN char * (*tcl_PkgRequire) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, CONST char *version, int exact)); /* 274 */ + void (*tcl_SetErrorCodeVA) _ANSI_ARGS_((Tcl_Interp *interp, va_list argList)); /* 275 */ + int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp *interp, va_list argList)); /* 276 */ + Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int *statPtr, int options)); /* 277 */ + void (*tcl_PanicVA) _ANSI_ARGS_((CONST char *format, va_list argList)); /* 278 */ + void (*tcl_GetVersion) _ANSI_ARGS_((int *major, int *minor, int *patchLevel, int *type)); /* 279 */ + void (*tcl_InitMemory) _ANSI_ARGS_((Tcl_Interp *interp)); /* 280 */ + Tcl_Channel (*tcl_StackChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan)); /* 281 */ + int (*tcl_UnstackChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel chan)); /* 282 */ + Tcl_Channel (*tcl_GetStackedChannel) _ANSI_ARGS_((Tcl_Channel chan)); /* 283 */ + void (*tcl_SetMainLoop) _ANSI_ARGS_((Tcl_MainLoopProc *proc)); /* 284 */ + VOID *reserved285; + void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr)); /* 286 */ + Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((Tcl_EncodingType *typePtr)); /* 287 */ + void (*tcl_CreateThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc *proc, ClientData clientData)); /* 288 */ + void (*tcl_DeleteThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc *proc, ClientData clientData)); /* 289 */ + void (*tcl_DiscardResult) _ANSI_ARGS_((Tcl_SavedResult *statePtr)); /* 290 */ + int (*tcl_EvalEx) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *script, int numBytes, int flags)); /* 291 */ + int (*tcl_EvalObjv) _ANSI_ARGS_((Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 292 */ + int (*tcl_EvalObjEx) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, int flags)); /* 293 */ + void (*tcl_ExitThread) _ANSI_ARGS_((int status)); /* 294 */ + int (*tcl_ExternalToUtf) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Encoding encoding, CONST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr)); /* 295 */ + char * (*tcl_ExternalToUtfDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char *src, int srcLen, Tcl_DString *dsPtr)); /* 296 */ + void (*tcl_FinalizeThread) _ANSI_ARGS_((void)); /* 297 */ + void (*tcl_FinalizeNotifier) _ANSI_ARGS_((ClientData clientData)); /* 298 */ + void (*tcl_FreeEncoding) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 299 */ + Tcl_ThreadId (*tcl_GetCurrentThread) _ANSI_ARGS_((void)); /* 300 */ + Tcl_Encoding (*tcl_GetEncoding) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name)); /* 301 */ + CONST84_RETURN char * (*tcl_GetEncodingName) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 302 */ + void (*tcl_GetEncodingNames) _ANSI_ARGS_((Tcl_Interp *interp)); /* 303 */ + int (*tcl_GetIndexFromObjStruct) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, CONST VOID *tablePtr, int offset, CONST char *msg, int flags, int *indexPtr)); /* 304 */ + VOID * (*tcl_GetThreadData) _ANSI_ARGS_((Tcl_ThreadDataKey *keyPtr, int size)); /* 305 */ + Tcl_Obj * (*tcl_GetVar2Ex) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags)); /* 306 */ + ClientData (*tcl_InitNotifier) _ANSI_ARGS_((void)); /* 307 */ + void (*tcl_MutexLock) _ANSI_ARGS_((Tcl_Mutex *mutexPtr)); /* 308 */ + void (*tcl_MutexUnlock) _ANSI_ARGS_((Tcl_Mutex *mutexPtr)); /* 309 */ + void (*tcl_ConditionNotify) _ANSI_ARGS_((Tcl_Condition *condPtr)); /* 310 */ + void (*tcl_ConditionWait) _ANSI_ARGS_((Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, Tcl_Time *timePtr)); /* 311 */ + int (*tcl_NumUtfChars) _ANSI_ARGS_((CONST char *src, int length)); /* 312 */ + int (*tcl_ReadChars) _ANSI_ARGS_((Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag)); /* 313 */ + void (*tcl_RestoreResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_SavedResult *statePtr)); /* 314 */ + void (*tcl_SaveResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_SavedResult *statePtr)); /* 315 */ + int (*tcl_SetSystemEncoding) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name)); /* 316 */ + Tcl_Obj * (*tcl_SetVar2Ex) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *part1, CONST char *part2, Tcl_Obj *newValuePtr, int flags)); /* 317 */ + void (*tcl_ThreadAlert) _ANSI_ARGS_((Tcl_ThreadId threadId)); /* 318 */ + void (*tcl_ThreadQueueEvent) _ANSI_ARGS_((Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position)); /* 319 */ + Tcl_UniChar (*tcl_UniCharAtIndex) _ANSI_ARGS_((CONST char *src, int index)); /* 320 */ + Tcl_UniChar (*tcl_UniCharToLower) _ANSI_ARGS_((int ch)); /* 321 */ + Tcl_UniChar (*tcl_UniCharToTitle) _ANSI_ARGS_((int ch)); /* 322 */ + Tcl_UniChar (*tcl_UniCharToUpper) _ANSI_ARGS_((int ch)); /* 323 */ + int (*tcl_UniCharToUtf) _ANSI_ARGS_((int ch, char *buf)); /* 324 */ + CONST84_RETURN char * (*tcl_UtfAtIndex) _ANSI_ARGS_((CONST char *src, int index)); /* 325 */ + int (*tcl_UtfCharComplete) _ANSI_ARGS_((CONST char *src, int length)); /* 326 */ + int (*tcl_UtfBackslash) _ANSI_ARGS_((CONST char *src, int *readPtr, char *dst)); /* 327 */ + CONST84_RETURN char * (*tcl_UtfFindFirst) _ANSI_ARGS_((CONST char *src, int ch)); /* 328 */ + CONST84_RETURN char * (*tcl_UtfFindLast) _ANSI_ARGS_((CONST char *src, int ch)); /* 329 */ + CONST84_RETURN char * (*tcl_UtfNext) _ANSI_ARGS_((CONST char *src)); /* 330 */ + CONST84_RETURN char * (*tcl_UtfPrev) _ANSI_ARGS_((CONST char *src, CONST char *start)); /* 331 */ + int (*tcl_UtfToExternal) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Encoding encoding, CONST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr)); /* 332 */ + char * (*tcl_UtfToExternalDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char *src, int srcLen, Tcl_DString *dsPtr)); /* 333 */ + int (*tcl_UtfToLower) _ANSI_ARGS_((char *src)); /* 334 */ + int (*tcl_UtfToTitle) _ANSI_ARGS_((char *src)); /* 335 */ + int (*tcl_UtfToUniChar) _ANSI_ARGS_((CONST char *src, Tcl_UniChar *chPtr)); /* 336 */ + int (*tcl_UtfToUpper) _ANSI_ARGS_((char *src)); /* 337 */ + int (*tcl_WriteChars) _ANSI_ARGS_((Tcl_Channel chan, CONST char *src, int srcLen)); /* 338 */ + int (*tcl_WriteObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj *objPtr)); /* 339 */ + char * (*tcl_GetString) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 340 */ + CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) _ANSI_ARGS_((void)); /* 341 */ + void (*tcl_SetDefaultEncodingDir) _ANSI_ARGS_((CONST char *path)); /* 342 */ + void (*tcl_AlertNotifier) _ANSI_ARGS_((ClientData clientData)); /* 343 */ + void (*tcl_ServiceModeHook) _ANSI_ARGS_((int mode)); /* 344 */ + int (*tcl_UniCharIsAlnum) _ANSI_ARGS_((int ch)); /* 345 */ + int (*tcl_UniCharIsAlpha) _ANSI_ARGS_((int ch)); /* 346 */ + int (*tcl_UniCharIsDigit) _ANSI_ARGS_((int ch)); /* 347 */ + int (*tcl_UniCharIsLower) _ANSI_ARGS_((int ch)); /* 348 */ + int (*tcl_UniCharIsSpace) _ANSI_ARGS_((int ch)); /* 349 */ + int (*tcl_UniCharIsUpper) _ANSI_ARGS_((int ch)); /* 350 */ + int (*tcl_UniCharIsWordChar) _ANSI_ARGS_((int ch)); /* 351 */ + int (*tcl_UniCharLen) _ANSI_ARGS_((CONST Tcl_UniChar *uniStr)); /* 352 */ + int (*tcl_UniCharNcmp) _ANSI_ARGS_((CONST Tcl_UniChar *ucs, CONST Tcl_UniChar *uct, unsigned long numChars)); /* 353 */ + char * (*tcl_UniCharToUtfDString) _ANSI_ARGS_((CONST Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr)); /* 354 */ + Tcl_UniChar * (*tcl_UtfToUniCharDString) _ANSI_ARGS_((CONST char *src, int length, Tcl_DString *dsPtr)); /* 355 */ + Tcl_RegExp (*tcl_GetRegExpFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *patObj, int flags)); /* 356 */ + Tcl_Obj * (*tcl_EvalTokens) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Token *tokenPtr, int count)); /* 357 */ + void (*tcl_FreeParse) _ANSI_ARGS_((Tcl_Parse *parsePtr)); /* 358 */ + void (*tcl_LogCommandInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *script, CONST char *command, int length)); /* 359 */ + int (*tcl_ParseBraces) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr)); /* 360 */ + int (*tcl_ParseCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *start, int numBytes, int nested, Tcl_Parse *parsePtr)); /* 361 */ + int (*tcl_ParseExpr) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr)); /* 362 */ + int (*tcl_ParseQuotedString) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr)); /* 363 */ + int (*tcl_ParseVarName) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr, int append)); /* 364 */ + char * (*tcl_GetCwd) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_DString *cwdPtr)); /* 365 */ + int (*tcl_Chdir) _ANSI_ARGS_((CONST char *dirName)); /* 366 */ + int (*tcl_Access) _ANSI_ARGS_((CONST char *path, int mode)); /* 367 */ + int (*tcl_Stat) _ANSI_ARGS_((CONST char *path, struct stat *bufPtr)); /* 368 */ + int (*tcl_UtfNcmp) _ANSI_ARGS_((CONST char *s1, CONST char *s2, unsigned long n)); /* 369 */ + int (*tcl_UtfNcasecmp) _ANSI_ARGS_((CONST char *s1, CONST char *s2, unsigned long n)); /* 370 */ + int (*tcl_StringCaseMatch) _ANSI_ARGS_((CONST char *str, CONST char *pattern, int nocase)); /* 371 */ + int (*tcl_UniCharIsControl) _ANSI_ARGS_((int ch)); /* 372 */ + int (*tcl_UniCharIsGraph) _ANSI_ARGS_((int ch)); /* 373 */ + int (*tcl_UniCharIsPrint) _ANSI_ARGS_((int ch)); /* 374 */ + int (*tcl_UniCharIsPunct) _ANSI_ARGS_((int ch)); /* 375 */ + int (*tcl_RegExpExecObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags)); /* 376 */ + void (*tcl_RegExpGetInfo) _ANSI_ARGS_((Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr)); /* 377 */ + Tcl_Obj * (*tcl_NewUnicodeObj) _ANSI_ARGS_((CONST Tcl_UniChar *unicode, int numChars)); /* 378 */ + void (*tcl_SetUnicodeObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode, int numChars)); /* 379 */ + int (*tcl_GetCharLength) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 380 */ + Tcl_UniChar (*tcl_GetUniChar) _ANSI_ARGS_((Tcl_Obj *objPtr, int index)); /* 381 */ + Tcl_UniChar * (*tcl_GetUnicode) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 382 */ + Tcl_Obj * (*tcl_GetRange) _ANSI_ARGS_((Tcl_Obj *objPtr, int first, int last)); /* 383 */ + void (*tcl_AppendUnicodeToObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode, int length)); /* 384 */ + int (*tcl_RegExpMatchObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj)); /* 385 */ + void (*tcl_SetNotifier) _ANSI_ARGS_((Tcl_NotifierProcs *notifierProcPtr)); /* 386 */ + Tcl_Mutex * (*tcl_GetAllocMutex) _ANSI_ARGS_((void)); /* 387 */ + int (*tcl_GetChannelNames) _ANSI_ARGS_((Tcl_Interp *interp)); /* 388 */ + int (*tcl_GetChannelNamesEx) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *pattern)); /* 389 */ + int (*tcl_ProcObjCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); /* 390 */ + void (*tcl_ConditionFinalize) _ANSI_ARGS_((Tcl_Condition *condPtr)); /* 391 */ + void (*tcl_MutexFinalize) _ANSI_ARGS_((Tcl_Mutex *mutex)); /* 392 */ + int (*tcl_CreateThread) _ANSI_ARGS_((Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc proc, ClientData clientData, int stackSize, int flags)); /* 393 */ + int (*tcl_ReadRaw) _ANSI_ARGS_((Tcl_Channel chan, char *dst, int bytesToRead)); /* 394 */ + int (*tcl_WriteRaw) _ANSI_ARGS_((Tcl_Channel chan, CONST char *src, int srcLen)); /* 395 */ + Tcl_Channel (*tcl_GetTopChannel) _ANSI_ARGS_((Tcl_Channel chan)); /* 396 */ + int (*tcl_ChannelBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 397 */ + CONST84_RETURN char * (*tcl_ChannelName) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 398 */ + Tcl_ChannelTypeVersion (*tcl_ChannelVersion) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 399 */ + Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 400 */ + Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 401 */ + Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 402 */ + Tcl_DriverInputProc * (*tcl_ChannelInputProc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 403 */ + Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 404 */ + Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 405 */ + Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 406 */ + Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 407 */ + Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 408 */ + Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 409 */ + Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 410 */ + Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 411 */ + int (*tcl_JoinThread) _ANSI_ARGS_((Tcl_ThreadId threadId, int *result)); /* 412 */ + int (*tcl_IsChannelShared) _ANSI_ARGS_((Tcl_Channel channel)); /* 413 */ + int (*tcl_IsChannelRegistered) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel channel)); /* 414 */ + void (*tcl_CutChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 415 */ + void (*tcl_SpliceChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 416 */ + void (*tcl_ClearChannelHandlers) _ANSI_ARGS_((Tcl_Channel channel)); /* 417 */ + int (*tcl_IsChannelExisting) _ANSI_ARGS_((CONST char *channelName)); /* 418 */ + int (*tcl_UniCharNcasecmp) _ANSI_ARGS_((CONST Tcl_UniChar *ucs, CONST Tcl_UniChar *uct, unsigned long numChars)); /* 419 */ + int (*tcl_UniCharCaseMatch) _ANSI_ARGS_((CONST Tcl_UniChar *uniStr, CONST Tcl_UniChar *uniPattern, int nocase)); /* 420 */ + Tcl_HashEntry * (*tcl_FindHashEntry) _ANSI_ARGS_((Tcl_HashTable *tablePtr, CONST char *key)); /* 421 */ + Tcl_HashEntry * (*tcl_CreateHashEntry) _ANSI_ARGS_((Tcl_HashTable *tablePtr, CONST char *key, int *newPtr)); /* 422 */ + void (*tcl_InitCustomHashTable) _ANSI_ARGS_((Tcl_HashTable *tablePtr, int keyType, Tcl_HashKeyType *typePtr)); /* 423 */ + void (*tcl_InitObjHashTable) _ANSI_ARGS_((Tcl_HashTable *tablePtr)); /* 424 */ + ClientData (*tcl_CommandTraceInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData)); /* 425 */ + int (*tcl_TraceCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData)); /* 426 */ + void (*tcl_UntraceCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData)); /* 427 */ + char * (*tcl_AttemptAlloc) _ANSI_ARGS_((unsigned int size)); /* 428 */ + char * (*tcl_AttemptDbCkalloc) _ANSI_ARGS_((unsigned int size, CONST char *file, int line)); /* 429 */ + char * (*tcl_AttemptRealloc) _ANSI_ARGS_((char *ptr, unsigned int size)); /* 430 */ + char * (*tcl_AttemptDbCkrealloc) _ANSI_ARGS_((char *ptr, unsigned int size, CONST char *file, int line)); /* 431 */ + int (*tcl_AttemptSetObjLength) _ANSI_ARGS_((Tcl_Obj *objPtr, int length)); /* 432 */ + Tcl_ThreadId (*tcl_GetChannelThread) _ANSI_ARGS_((Tcl_Channel channel)); /* 433 */ + Tcl_UniChar * (*tcl_GetUnicodeFromObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int *lengthPtr)); /* 434 */ + int (*tcl_GetMathFuncInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr)); /* 435 */ + Tcl_Obj * (*tcl_ListMathFuncs) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *pattern)); /* 436 */ + Tcl_Obj * (*tcl_SubstObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, int flags)); /* 437 */ + int (*tcl_DetachChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel channel)); /* 438 */ + int (*tcl_IsStandardChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 439 */ + int (*tcl_FSCopyFile) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr)); /* 440 */ + int (*tcl_FSCopyDirectory) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr)); /* 441 */ + int (*tcl_FSCreateDirectory) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 442 */ + int (*tcl_FSDeleteFile) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 443 */ + int (*tcl_FSLoadFile) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr, CONST char *sym1, CONST char *sym2, Tcl_PackageInitProc **proc1Ptr, Tcl_PackageInitProc **proc2Ptr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr)); /* 444 */ + int (*tcl_FSMatchInDirectory) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern, Tcl_GlobTypeData *types)); /* 445 */ + Tcl_Obj * (*tcl_FSLink) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction)); /* 446 */ + int (*tcl_FSRemoveDirectory) _ANSI_ARGS_((Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr)); /* 447 */ + int (*tcl_FSRenameFile) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr)); /* 448 */ + int (*tcl_FSLstat) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *buf)); /* 449 */ + int (*tcl_FSUtime) _ANSI_ARGS_((Tcl_Obj *pathPtr, struct utimbuf *tval)); /* 450 */ + int (*tcl_FSFileAttrsGet) _ANSI_ARGS_((Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)); /* 451 */ + int (*tcl_FSFileAttrsSet) _ANSI_ARGS_((Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr)); /* 452 */ + CONST char ** (*tcl_FSFileAttrStrings) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)); /* 453 */ + int (*tcl_FSStat) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *buf)); /* 454 */ + int (*tcl_FSAccess) _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode)); /* 455 */ + Tcl_Channel (*tcl_FSOpenFileChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr, CONST char *modeString, int permissions)); /* 456 */ + Tcl_Obj * (*tcl_FSGetCwd) _ANSI_ARGS_((Tcl_Interp *interp)); /* 457 */ + int (*tcl_FSChdir) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 458 */ + int (*tcl_FSConvertToPathType) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr)); /* 459 */ + Tcl_Obj * (*tcl_FSJoinPath) _ANSI_ARGS_((Tcl_Obj *listObj, int elements)); /* 460 */ + Tcl_Obj * (*tcl_FSSplitPath) _ANSI_ARGS_((Tcl_Obj *pathPtr, int *lenPtr)); /* 461 */ + int (*tcl_FSEqualPaths) _ANSI_ARGS_((Tcl_Obj *firstPtr, Tcl_Obj *secondPtr)); /* 462 */ + Tcl_Obj * (*tcl_FSGetNormalizedPath) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr)); /* 463 */ + Tcl_Obj * (*tcl_FSJoinToPath) _ANSI_ARGS_((Tcl_Obj *pathPtr, int objc, Tcl_Obj *CONST objv[])); /* 464 */ + ClientData (*tcl_FSGetInternalRep) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_Filesystem *fsPtr)); /* 465 */ + Tcl_Obj * (*tcl_FSGetTranslatedPath) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr)); /* 466 */ + int (*tcl_FSEvalFile) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *fileName)); /* 467 */ + Tcl_Obj * (*tcl_FSNewNativePath) _ANSI_ARGS_((Tcl_Filesystem *fromFilesystem, ClientData clientData)); /* 468 */ + CONST char * (*tcl_FSGetNativePath) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 469 */ + Tcl_Obj * (*tcl_FSFileSystemInfo) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 470 */ + Tcl_Obj * (*tcl_FSPathSeparator) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 471 */ + Tcl_Obj * (*tcl_FSListVolumes) _ANSI_ARGS_((void)); /* 472 */ + int (*tcl_FSRegister) _ANSI_ARGS_((ClientData clientData, Tcl_Filesystem *fsPtr)); /* 473 */ + int (*tcl_FSUnregister) _ANSI_ARGS_((Tcl_Filesystem *fsPtr)); /* 474 */ + ClientData (*tcl_FSData) _ANSI_ARGS_((Tcl_Filesystem *fsPtr)); /* 475 */ + CONST char * (*tcl_FSGetTranslatedStringPath) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr)); /* 476 */ + Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 477 */ + Tcl_PathType (*tcl_FSGetPathType) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 478 */ + int (*tcl_OutputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 479 */ + void (*tcl_FSMountsChanged) _ANSI_ARGS_((Tcl_Filesystem *fsPtr)); /* 480 */ + int (*tcl_EvalTokensStandard) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Token *tokenPtr, int count)); /* 481 */ + void (*tcl_GetTime) _ANSI_ARGS_((Tcl_Time *timeBuf)); /* 482 */ + Tcl_Trace (*tcl_CreateObjTrace) _ANSI_ARGS_((Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc)); /* 483 */ + int (*tcl_GetCommandInfoFromToken) _ANSI_ARGS_((Tcl_Command token, Tcl_CmdInfo *infoPtr)); /* 484 */ + int (*tcl_SetCommandInfoFromToken) _ANSI_ARGS_((Tcl_Command token, CONST Tcl_CmdInfo *infoPtr)); /* 485 */ + Tcl_Obj * (*tcl_DbNewWideIntObj) _ANSI_ARGS_((Tcl_WideInt wideValue, CONST char *file, int line)); /* 486 */ + int (*tcl_GetWideIntFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr)); /* 487 */ + Tcl_Obj * (*tcl_NewWideIntObj) _ANSI_ARGS_((Tcl_WideInt wideValue)); /* 488 */ + void (*tcl_SetWideIntObj) _ANSI_ARGS_((Tcl_Obj *objPtr, Tcl_WideInt wideValue)); /* 489 */ + Tcl_StatBuf * (*tcl_AllocStatBuf) _ANSI_ARGS_((void)); /* 490 */ + Tcl_WideInt (*tcl_Seek) _ANSI_ARGS_((Tcl_Channel chan, Tcl_WideInt offset, int mode)); /* 491 */ + Tcl_WideInt (*tcl_Tell) _ANSI_ARGS_((Tcl_Channel chan)); /* 492 */ + Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 493 */ + VOID *reserved494; + VOID *reserved495; + VOID *reserved496; + VOID *reserved497; + VOID *reserved498; + VOID *reserved499; + VOID *reserved500; + VOID *reserved501; + VOID *reserved502; + VOID *reserved503; + VOID *reserved504; + VOID *reserved505; + VOID *reserved506; + VOID *reserved507; + VOID *reserved508; + VOID *reserved509; + VOID *reserved510; + VOID *reserved511; + VOID *reserved512; + VOID *reserved513; + VOID *reserved514; + VOID *reserved515; + VOID *reserved516; + VOID *reserved517; + VOID *reserved518; + VOID *reserved519; + VOID *reserved520; + VOID *reserved521; + VOID *reserved522; + VOID *reserved523; + VOID *reserved524; + VOID *reserved525; + VOID *reserved526; + VOID *reserved527; + VOID *reserved528; + VOID *reserved529; + VOID *reserved530; + VOID *reserved531; + VOID *reserved532; + VOID *reserved533; + VOID *reserved534; + VOID *reserved535; + VOID *reserved536; + VOID *reserved537; + VOID *reserved538; + VOID *reserved539; + VOID *reserved540; + VOID *reserved541; + VOID *reserved542; + VOID *reserved543; + VOID *reserved544; + VOID *reserved545; + VOID *reserved546; + VOID *reserved547; + VOID *reserved548; + VOID *reserved549; + VOID *reserved550; + VOID *reserved551; + VOID *reserved552; + VOID *reserved553; + Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) _ANSI_ARGS_((Tcl_ChannelType *chanTypePtr)); /* 554 */ + VOID *reserved555; + VOID *reserved556; + VOID *reserved557; + VOID *reserved558; + VOID *reserved559; + VOID *reserved560; + VOID *reserved561; + VOID *reserved562; + VOID *reserved563; + VOID *reserved564; + VOID *reserved565; + VOID *reserved566; + VOID *reserved567; + VOID *reserved568; + VOID *reserved569; + VOID *reserved570; + VOID *reserved571; + VOID *reserved572; + int (*tcl_PkgRequireProc) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, int objc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr)); /* 573 */ + VOID *reserved574; + VOID *reserved575; + VOID *reserved576; + VOID *reserved577; + VOID *reserved578; + VOID *reserved579; + VOID *reserved580; + VOID *reserved581; + VOID *reserved582; + VOID *reserved583; + VOID *reserved584; + VOID *reserved585; + VOID *reserved586; + VOID *reserved587; + VOID *reserved588; + VOID *reserved589; + VOID *reserved590; + VOID *reserved591; + VOID *reserved592; + VOID *reserved593; + VOID *reserved594; + VOID *reserved595; + VOID *reserved596; + VOID *reserved597; + VOID *reserved598; + VOID *reserved599; + VOID *reserved600; + VOID *reserved601; + VOID *reserved602; + VOID *reserved603; + VOID *reserved604; + VOID *reserved605; + VOID *reserved606; + VOID *reserved607; + VOID *reserved608; + VOID *reserved609; + VOID *reserved610; + VOID *reserved611; + VOID *reserved612; + VOID *reserved613; + VOID *reserved614; + VOID *reserved615; + VOID *reserved616; + VOID *reserved617; + VOID *reserved618; + VOID *reserved619; + VOID *reserved620; + VOID *reserved621; + VOID *reserved622; + VOID *reserved623; + VOID *reserved624; + VOID *reserved625; + VOID *reserved626; + VOID *reserved627; + VOID *reserved628; + VOID *reserved629; + void (*tclUnusedStubEntry) _ANSI_ARGS_((void)); /* 630 */ +} TclStubs; + +#ifdef __cplusplus +extern "C" { +#endif +extern TclStubs *tclStubsPtr; +#ifdef __cplusplus +} +#endif + +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#ifndef Tcl_PkgProvideEx +#define Tcl_PkgProvideEx \ + (tclStubsPtr->tcl_PkgProvideEx) /* 0 */ +#endif +#ifndef Tcl_PkgRequireEx +#define Tcl_PkgRequireEx \ + (tclStubsPtr->tcl_PkgRequireEx) /* 1 */ +#endif +#ifndef Tcl_Panic +#define Tcl_Panic \ + (tclStubsPtr->tcl_Panic) /* 2 */ +#endif +#ifndef Tcl_Alloc +#define Tcl_Alloc \ + (tclStubsPtr->tcl_Alloc) /* 3 */ +#endif +#ifndef Tcl_Free +#define Tcl_Free \ + (tclStubsPtr->tcl_Free) /* 4 */ +#endif +#ifndef Tcl_Realloc +#define Tcl_Realloc \ + (tclStubsPtr->tcl_Realloc) /* 5 */ +#endif +#ifndef Tcl_DbCkalloc +#define Tcl_DbCkalloc \ + (tclStubsPtr->tcl_DbCkalloc) /* 6 */ +#endif +#ifndef Tcl_DbCkfree +#define Tcl_DbCkfree \ + (tclStubsPtr->tcl_DbCkfree) /* 7 */ +#endif +#ifndef Tcl_DbCkrealloc +#define Tcl_DbCkrealloc \ + (tclStubsPtr->tcl_DbCkrealloc) /* 8 */ +#endif +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ +#ifndef Tcl_CreateFileHandler +#define Tcl_CreateFileHandler \ + (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ +#endif +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#ifndef Tcl_CreateFileHandler +#define Tcl_CreateFileHandler \ + (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ +#endif +#endif /* MACOSX */ +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ +#ifndef Tcl_DeleteFileHandler +#define Tcl_DeleteFileHandler \ + (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ +#endif +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#ifndef Tcl_DeleteFileHandler +#define Tcl_DeleteFileHandler \ + (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ +#endif +#endif /* MACOSX */ +#ifndef Tcl_SetTimer +#define Tcl_SetTimer \ + (tclStubsPtr->tcl_SetTimer) /* 11 */ +#endif +#ifndef Tcl_Sleep +#define Tcl_Sleep \ + (tclStubsPtr->tcl_Sleep) /* 12 */ +#endif +#ifndef Tcl_WaitForEvent +#define Tcl_WaitForEvent \ + (tclStubsPtr->tcl_WaitForEvent) /* 13 */ +#endif +#ifndef Tcl_AppendAllObjTypes +#define Tcl_AppendAllObjTypes \ + (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */ +#endif +#ifndef Tcl_AppendStringsToObj +#define Tcl_AppendStringsToObj \ + (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */ +#endif +#ifndef Tcl_AppendToObj +#define Tcl_AppendToObj \ + (tclStubsPtr->tcl_AppendToObj) /* 16 */ +#endif +#ifndef Tcl_ConcatObj +#define Tcl_ConcatObj \ + (tclStubsPtr->tcl_ConcatObj) /* 17 */ +#endif +#ifndef Tcl_ConvertToType +#define Tcl_ConvertToType \ + (tclStubsPtr->tcl_ConvertToType) /* 18 */ +#endif +#ifndef Tcl_DbDecrRefCount +#define Tcl_DbDecrRefCount \ + (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */ +#endif +#ifndef Tcl_DbIncrRefCount +#define Tcl_DbIncrRefCount \ + (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */ +#endif +#ifndef Tcl_DbIsShared +#define Tcl_DbIsShared \ + (tclStubsPtr->tcl_DbIsShared) /* 21 */ +#endif +#ifndef Tcl_DbNewBooleanObj +#define Tcl_DbNewBooleanObj \ + (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */ +#endif +#ifndef Tcl_DbNewByteArrayObj +#define Tcl_DbNewByteArrayObj \ + (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */ +#endif +#ifndef Tcl_DbNewDoubleObj +#define Tcl_DbNewDoubleObj \ + (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */ +#endif +#ifndef Tcl_DbNewListObj +#define Tcl_DbNewListObj \ + (tclStubsPtr->tcl_DbNewListObj) /* 25 */ +#endif +#ifndef Tcl_DbNewLongObj +#define Tcl_DbNewLongObj \ + (tclStubsPtr->tcl_DbNewLongObj) /* 26 */ +#endif +#ifndef Tcl_DbNewObj +#define Tcl_DbNewObj \ + (tclStubsPtr->tcl_DbNewObj) /* 27 */ +#endif +#ifndef Tcl_DbNewStringObj +#define Tcl_DbNewStringObj \ + (tclStubsPtr->tcl_DbNewStringObj) /* 28 */ +#endif +#ifndef Tcl_DuplicateObj +#define Tcl_DuplicateObj \ + (tclStubsPtr->tcl_DuplicateObj) /* 29 */ +#endif +#ifndef TclFreeObj +#define TclFreeObj \ + (tclStubsPtr->tclFreeObj) /* 30 */ +#endif +#ifndef Tcl_GetBoolean +#define Tcl_GetBoolean \ + (tclStubsPtr->tcl_GetBoolean) /* 31 */ +#endif +#ifndef Tcl_GetBooleanFromObj +#define Tcl_GetBooleanFromObj \ + (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */ +#endif +#ifndef Tcl_GetByteArrayFromObj +#define Tcl_GetByteArrayFromObj \ + (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */ +#endif +#ifndef Tcl_GetDouble +#define Tcl_GetDouble \ + (tclStubsPtr->tcl_GetDouble) /* 34 */ +#endif +#ifndef Tcl_GetDoubleFromObj +#define Tcl_GetDoubleFromObj \ + (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */ +#endif +#ifndef Tcl_GetIndexFromObj +#define Tcl_GetIndexFromObj \ + (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */ +#endif +#ifndef Tcl_GetInt +#define Tcl_GetInt \ + (tclStubsPtr->tcl_GetInt) /* 37 */ +#endif +#ifndef Tcl_GetIntFromObj +#define Tcl_GetIntFromObj \ + (tclStubsPtr->tcl_GetIntFromObj) /* 38 */ +#endif +#ifndef Tcl_GetLongFromObj +#define Tcl_GetLongFromObj \ + (tclStubsPtr->tcl_GetLongFromObj) /* 39 */ +#endif +#ifndef Tcl_GetObjType +#define Tcl_GetObjType \ + (tclStubsPtr->tcl_GetObjType) /* 40 */ +#endif +#ifndef Tcl_GetStringFromObj +#define Tcl_GetStringFromObj \ + (tclStubsPtr->tcl_GetStringFromObj) /* 41 */ +#endif +#ifndef Tcl_InvalidateStringRep +#define Tcl_InvalidateStringRep \ + (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */ +#endif +#ifndef Tcl_ListObjAppendList +#define Tcl_ListObjAppendList \ + (tclStubsPtr->tcl_ListObjAppendList) /* 43 */ +#endif +#ifndef Tcl_ListObjAppendElement +#define Tcl_ListObjAppendElement \ + (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */ +#endif +#ifndef Tcl_ListObjGetElements +#define Tcl_ListObjGetElements \ + (tclStubsPtr->tcl_ListObjGetElements) /* 45 */ +#endif +#ifndef Tcl_ListObjIndex +#define Tcl_ListObjIndex \ + (tclStubsPtr->tcl_ListObjIndex) /* 46 */ +#endif +#ifndef Tcl_ListObjLength +#define Tcl_ListObjLength \ + (tclStubsPtr->tcl_ListObjLength) /* 47 */ +#endif +#ifndef Tcl_ListObjReplace +#define Tcl_ListObjReplace \ + (tclStubsPtr->tcl_ListObjReplace) /* 48 */ +#endif +#ifndef Tcl_NewBooleanObj +#define Tcl_NewBooleanObj \ + (tclStubsPtr->tcl_NewBooleanObj) /* 49 */ +#endif +#ifndef Tcl_NewByteArrayObj +#define Tcl_NewByteArrayObj \ + (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */ +#endif +#ifndef Tcl_NewDoubleObj +#define Tcl_NewDoubleObj \ + (tclStubsPtr->tcl_NewDoubleObj) /* 51 */ +#endif +#ifndef Tcl_NewIntObj +#define Tcl_NewIntObj \ + (tclStubsPtr->tcl_NewIntObj) /* 52 */ +#endif +#ifndef Tcl_NewListObj +#define Tcl_NewListObj \ + (tclStubsPtr->tcl_NewListObj) /* 53 */ +#endif +#ifndef Tcl_NewLongObj +#define Tcl_NewLongObj \ + (tclStubsPtr->tcl_NewLongObj) /* 54 */ +#endif +#ifndef Tcl_NewObj +#define Tcl_NewObj \ + (tclStubsPtr->tcl_NewObj) /* 55 */ +#endif +#ifndef Tcl_NewStringObj +#define Tcl_NewStringObj \ + (tclStubsPtr->tcl_NewStringObj) /* 56 */ +#endif +#ifndef Tcl_SetBooleanObj +#define Tcl_SetBooleanObj \ + (tclStubsPtr->tcl_SetBooleanObj) /* 57 */ +#endif +#ifndef Tcl_SetByteArrayLength +#define Tcl_SetByteArrayLength \ + (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */ +#endif +#ifndef Tcl_SetByteArrayObj +#define Tcl_SetByteArrayObj \ + (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */ +#endif +#ifndef Tcl_SetDoubleObj +#define Tcl_SetDoubleObj \ + (tclStubsPtr->tcl_SetDoubleObj) /* 60 */ +#endif +#ifndef Tcl_SetIntObj +#define Tcl_SetIntObj \ + (tclStubsPtr->tcl_SetIntObj) /* 61 */ +#endif +#ifndef Tcl_SetListObj +#define Tcl_SetListObj \ + (tclStubsPtr->tcl_SetListObj) /* 62 */ +#endif +#ifndef Tcl_SetLongObj +#define Tcl_SetLongObj \ + (tclStubsPtr->tcl_SetLongObj) /* 63 */ +#endif +#ifndef Tcl_SetObjLength +#define Tcl_SetObjLength \ + (tclStubsPtr->tcl_SetObjLength) /* 64 */ +#endif +#ifndef Tcl_SetStringObj +#define Tcl_SetStringObj \ + (tclStubsPtr->tcl_SetStringObj) /* 65 */ +#endif +#ifndef Tcl_AddErrorInfo +#define Tcl_AddErrorInfo \ + (tclStubsPtr->tcl_AddErrorInfo) /* 66 */ +#endif +#ifndef Tcl_AddObjErrorInfo +#define Tcl_AddObjErrorInfo \ + (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */ +#endif +#ifndef Tcl_AllowExceptions +#define Tcl_AllowExceptions \ + (tclStubsPtr->tcl_AllowExceptions) /* 68 */ +#endif +#ifndef Tcl_AppendElement +#define Tcl_AppendElement \ + (tclStubsPtr->tcl_AppendElement) /* 69 */ +#endif +#ifndef Tcl_AppendResult +#define Tcl_AppendResult \ + (tclStubsPtr->tcl_AppendResult) /* 70 */ +#endif +#ifndef Tcl_AsyncCreate +#define Tcl_AsyncCreate \ + (tclStubsPtr->tcl_AsyncCreate) /* 71 */ +#endif +#ifndef Tcl_AsyncDelete +#define Tcl_AsyncDelete \ + (tclStubsPtr->tcl_AsyncDelete) /* 72 */ +#endif +#ifndef Tcl_AsyncInvoke +#define Tcl_AsyncInvoke \ + (tclStubsPtr->tcl_AsyncInvoke) /* 73 */ +#endif +#ifndef Tcl_AsyncMark +#define Tcl_AsyncMark \ + (tclStubsPtr->tcl_AsyncMark) /* 74 */ +#endif +#ifndef Tcl_AsyncReady +#define Tcl_AsyncReady \ + (tclStubsPtr->tcl_AsyncReady) /* 75 */ +#endif +#ifndef Tcl_BackgroundError +#define Tcl_BackgroundError \ + (tclStubsPtr->tcl_BackgroundError) /* 76 */ +#endif +#ifndef Tcl_Backslash +#define Tcl_Backslash \ + (tclStubsPtr->tcl_Backslash) /* 77 */ +#endif +#ifndef Tcl_BadChannelOption +#define Tcl_BadChannelOption \ + (tclStubsPtr->tcl_BadChannelOption) /* 78 */ +#endif +#ifndef Tcl_CallWhenDeleted +#define Tcl_CallWhenDeleted \ + (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */ +#endif +#ifndef Tcl_CancelIdleCall +#define Tcl_CancelIdleCall \ + (tclStubsPtr->tcl_CancelIdleCall) /* 80 */ +#endif +#ifndef Tcl_Close +#define Tcl_Close \ + (tclStubsPtr->tcl_Close) /* 81 */ +#endif +#ifndef Tcl_CommandComplete +#define Tcl_CommandComplete \ + (tclStubsPtr->tcl_CommandComplete) /* 82 */ +#endif +#ifndef Tcl_Concat +#define Tcl_Concat \ + (tclStubsPtr->tcl_Concat) /* 83 */ +#endif +#ifndef Tcl_ConvertElement +#define Tcl_ConvertElement \ + (tclStubsPtr->tcl_ConvertElement) /* 84 */ +#endif +#ifndef Tcl_ConvertCountedElement +#define Tcl_ConvertCountedElement \ + (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */ +#endif +#ifndef Tcl_CreateAlias +#define Tcl_CreateAlias \ + (tclStubsPtr->tcl_CreateAlias) /* 86 */ +#endif +#ifndef Tcl_CreateAliasObj +#define Tcl_CreateAliasObj \ + (tclStubsPtr->tcl_CreateAliasObj) /* 87 */ +#endif +#ifndef Tcl_CreateChannel +#define Tcl_CreateChannel \ + (tclStubsPtr->tcl_CreateChannel) /* 88 */ +#endif +#ifndef Tcl_CreateChannelHandler +#define Tcl_CreateChannelHandler \ + (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */ +#endif +#ifndef Tcl_CreateCloseHandler +#define Tcl_CreateCloseHandler \ + (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */ +#endif +#ifndef Tcl_CreateCommand +#define Tcl_CreateCommand \ + (tclStubsPtr->tcl_CreateCommand) /* 91 */ +#endif +#ifndef Tcl_CreateEventSource +#define Tcl_CreateEventSource \ + (tclStubsPtr->tcl_CreateEventSource) /* 92 */ +#endif +#ifndef Tcl_CreateExitHandler +#define Tcl_CreateExitHandler \ + (tclStubsPtr->tcl_CreateExitHandler) /* 93 */ +#endif +#ifndef Tcl_CreateInterp +#define Tcl_CreateInterp \ + (tclStubsPtr->tcl_CreateInterp) /* 94 */ +#endif +#ifndef Tcl_CreateMathFunc +#define Tcl_CreateMathFunc \ + (tclStubsPtr->tcl_CreateMathFunc) /* 95 */ +#endif +#ifndef Tcl_CreateObjCommand +#define Tcl_CreateObjCommand \ + (tclStubsPtr->tcl_CreateObjCommand) /* 96 */ +#endif +#ifndef Tcl_CreateSlave +#define Tcl_CreateSlave \ + (tclStubsPtr->tcl_CreateSlave) /* 97 */ +#endif +#ifndef Tcl_CreateTimerHandler +#define Tcl_CreateTimerHandler \ + (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */ +#endif +#ifndef Tcl_CreateTrace +#define Tcl_CreateTrace \ + (tclStubsPtr->tcl_CreateTrace) /* 99 */ +#endif +#ifndef Tcl_DeleteAssocData +#define Tcl_DeleteAssocData \ + (tclStubsPtr->tcl_DeleteAssocData) /* 100 */ +#endif +#ifndef Tcl_DeleteChannelHandler +#define Tcl_DeleteChannelHandler \ + (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */ +#endif +#ifndef Tcl_DeleteCloseHandler +#define Tcl_DeleteCloseHandler \ + (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */ +#endif +#ifndef Tcl_DeleteCommand +#define Tcl_DeleteCommand \ + (tclStubsPtr->tcl_DeleteCommand) /* 103 */ +#endif +#ifndef Tcl_DeleteCommandFromToken +#define Tcl_DeleteCommandFromToken \ + (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */ +#endif +#ifndef Tcl_DeleteEvents +#define Tcl_DeleteEvents \ + (tclStubsPtr->tcl_DeleteEvents) /* 105 */ +#endif +#ifndef Tcl_DeleteEventSource +#define Tcl_DeleteEventSource \ + (tclStubsPtr->tcl_DeleteEventSource) /* 106 */ +#endif +#ifndef Tcl_DeleteExitHandler +#define Tcl_DeleteExitHandler \ + (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */ +#endif +#ifndef Tcl_DeleteHashEntry +#define Tcl_DeleteHashEntry \ + (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */ +#endif +#ifndef Tcl_DeleteHashTable +#define Tcl_DeleteHashTable \ + (tclStubsPtr->tcl_DeleteHashTable) /* 109 */ +#endif +#ifndef Tcl_DeleteInterp +#define Tcl_DeleteInterp \ + (tclStubsPtr->tcl_DeleteInterp) /* 110 */ +#endif +#ifndef Tcl_DetachPids +#define Tcl_DetachPids \ + (tclStubsPtr->tcl_DetachPids) /* 111 */ +#endif +#ifndef Tcl_DeleteTimerHandler +#define Tcl_DeleteTimerHandler \ + (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */ +#endif +#ifndef Tcl_DeleteTrace +#define Tcl_DeleteTrace \ + (tclStubsPtr->tcl_DeleteTrace) /* 113 */ +#endif +#ifndef Tcl_DontCallWhenDeleted +#define Tcl_DontCallWhenDeleted \ + (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */ +#endif +#ifndef Tcl_DoOneEvent +#define Tcl_DoOneEvent \ + (tclStubsPtr->tcl_DoOneEvent) /* 115 */ +#endif +#ifndef Tcl_DoWhenIdle +#define Tcl_DoWhenIdle \ + (tclStubsPtr->tcl_DoWhenIdle) /* 116 */ +#endif +#ifndef Tcl_DStringAppend +#define Tcl_DStringAppend \ + (tclStubsPtr->tcl_DStringAppend) /* 117 */ +#endif +#ifndef Tcl_DStringAppendElement +#define Tcl_DStringAppendElement \ + (tclStubsPtr->tcl_DStringAppendElement) /* 118 */ +#endif +#ifndef Tcl_DStringEndSublist +#define Tcl_DStringEndSublist \ + (tclStubsPtr->tcl_DStringEndSublist) /* 119 */ +#endif +#ifndef Tcl_DStringFree +#define Tcl_DStringFree \ + (tclStubsPtr->tcl_DStringFree) /* 120 */ +#endif +#ifndef Tcl_DStringGetResult +#define Tcl_DStringGetResult \ + (tclStubsPtr->tcl_DStringGetResult) /* 121 */ +#endif +#ifndef Tcl_DStringInit +#define Tcl_DStringInit \ + (tclStubsPtr->tcl_DStringInit) /* 122 */ +#endif +#ifndef Tcl_DStringResult +#define Tcl_DStringResult \ + (tclStubsPtr->tcl_DStringResult) /* 123 */ +#endif +#ifndef Tcl_DStringSetLength +#define Tcl_DStringSetLength \ + (tclStubsPtr->tcl_DStringSetLength) /* 124 */ +#endif +#ifndef Tcl_DStringStartSublist +#define Tcl_DStringStartSublist \ + (tclStubsPtr->tcl_DStringStartSublist) /* 125 */ +#endif +#ifndef Tcl_Eof +#define Tcl_Eof \ + (tclStubsPtr->tcl_Eof) /* 126 */ +#endif +#ifndef Tcl_ErrnoId +#define Tcl_ErrnoId \ + (tclStubsPtr->tcl_ErrnoId) /* 127 */ +#endif +#ifndef Tcl_ErrnoMsg +#define Tcl_ErrnoMsg \ + (tclStubsPtr->tcl_ErrnoMsg) /* 128 */ +#endif +#ifndef Tcl_Eval +#define Tcl_Eval \ + (tclStubsPtr->tcl_Eval) /* 129 */ +#endif +#ifndef Tcl_EvalFile +#define Tcl_EvalFile \ + (tclStubsPtr->tcl_EvalFile) /* 130 */ +#endif +#ifndef Tcl_EvalObj +#define Tcl_EvalObj \ + (tclStubsPtr->tcl_EvalObj) /* 131 */ +#endif +#ifndef Tcl_EventuallyFree +#define Tcl_EventuallyFree \ + (tclStubsPtr->tcl_EventuallyFree) /* 132 */ +#endif +#ifndef Tcl_Exit +#define Tcl_Exit \ + (tclStubsPtr->tcl_Exit) /* 133 */ +#endif +#ifndef Tcl_ExposeCommand +#define Tcl_ExposeCommand \ + (tclStubsPtr->tcl_ExposeCommand) /* 134 */ +#endif +#ifndef Tcl_ExprBoolean +#define Tcl_ExprBoolean \ + (tclStubsPtr->tcl_ExprBoolean) /* 135 */ +#endif +#ifndef Tcl_ExprBooleanObj +#define Tcl_ExprBooleanObj \ + (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */ +#endif +#ifndef Tcl_ExprDouble +#define Tcl_ExprDouble \ + (tclStubsPtr->tcl_ExprDouble) /* 137 */ +#endif +#ifndef Tcl_ExprDoubleObj +#define Tcl_ExprDoubleObj \ + (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */ +#endif +#ifndef Tcl_ExprLong +#define Tcl_ExprLong \ + (tclStubsPtr->tcl_ExprLong) /* 139 */ +#endif +#ifndef Tcl_ExprLongObj +#define Tcl_ExprLongObj \ + (tclStubsPtr->tcl_ExprLongObj) /* 140 */ +#endif +#ifndef Tcl_ExprObj +#define Tcl_ExprObj \ + (tclStubsPtr->tcl_ExprObj) /* 141 */ +#endif +#ifndef Tcl_ExprString +#define Tcl_ExprString \ + (tclStubsPtr->tcl_ExprString) /* 142 */ +#endif +#ifndef Tcl_Finalize +#define Tcl_Finalize \ + (tclStubsPtr->tcl_Finalize) /* 143 */ +#endif +#ifndef Tcl_FindExecutable +#define Tcl_FindExecutable \ + (tclStubsPtr->tcl_FindExecutable) /* 144 */ +#endif +#ifndef Tcl_FirstHashEntry +#define Tcl_FirstHashEntry \ + (tclStubsPtr->tcl_FirstHashEntry) /* 145 */ +#endif +#ifndef Tcl_Flush +#define Tcl_Flush \ + (tclStubsPtr->tcl_Flush) /* 146 */ +#endif +#ifndef Tcl_FreeResult +#define Tcl_FreeResult \ + (tclStubsPtr->tcl_FreeResult) /* 147 */ +#endif +#ifndef Tcl_GetAlias +#define Tcl_GetAlias \ + (tclStubsPtr->tcl_GetAlias) /* 148 */ +#endif +#ifndef Tcl_GetAliasObj +#define Tcl_GetAliasObj \ + (tclStubsPtr->tcl_GetAliasObj) /* 149 */ +#endif +#ifndef Tcl_GetAssocData +#define Tcl_GetAssocData \ + (tclStubsPtr->tcl_GetAssocData) /* 150 */ +#endif +#ifndef Tcl_GetChannel +#define Tcl_GetChannel \ + (tclStubsPtr->tcl_GetChannel) /* 151 */ +#endif +#ifndef Tcl_GetChannelBufferSize +#define Tcl_GetChannelBufferSize \ + (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */ +#endif +#ifndef Tcl_GetChannelHandle +#define Tcl_GetChannelHandle \ + (tclStubsPtr->tcl_GetChannelHandle) /* 153 */ +#endif +#ifndef Tcl_GetChannelInstanceData +#define Tcl_GetChannelInstanceData \ + (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */ +#endif +#ifndef Tcl_GetChannelMode +#define Tcl_GetChannelMode \ + (tclStubsPtr->tcl_GetChannelMode) /* 155 */ +#endif +#ifndef Tcl_GetChannelName +#define Tcl_GetChannelName \ + (tclStubsPtr->tcl_GetChannelName) /* 156 */ +#endif +#ifndef Tcl_GetChannelOption +#define Tcl_GetChannelOption \ + (tclStubsPtr->tcl_GetChannelOption) /* 157 */ +#endif +#ifndef Tcl_GetChannelType +#define Tcl_GetChannelType \ + (tclStubsPtr->tcl_GetChannelType) /* 158 */ +#endif +#ifndef Tcl_GetCommandInfo +#define Tcl_GetCommandInfo \ + (tclStubsPtr->tcl_GetCommandInfo) /* 159 */ +#endif +#ifndef Tcl_GetCommandName +#define Tcl_GetCommandName \ + (tclStubsPtr->tcl_GetCommandName) /* 160 */ +#endif +#ifndef Tcl_GetErrno +#define Tcl_GetErrno \ + (tclStubsPtr->tcl_GetErrno) /* 161 */ +#endif +#ifndef Tcl_GetHostName +#define Tcl_GetHostName \ + (tclStubsPtr->tcl_GetHostName) /* 162 */ +#endif +#ifndef Tcl_GetInterpPath +#define Tcl_GetInterpPath \ + (tclStubsPtr->tcl_GetInterpPath) /* 163 */ +#endif +#ifndef Tcl_GetMaster +#define Tcl_GetMaster \ + (tclStubsPtr->tcl_GetMaster) /* 164 */ +#endif +#ifndef Tcl_GetNameOfExecutable +#define Tcl_GetNameOfExecutable \ + (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */ +#endif +#ifndef Tcl_GetObjResult +#define Tcl_GetObjResult \ + (tclStubsPtr->tcl_GetObjResult) /* 166 */ +#endif +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ +#ifndef Tcl_GetOpenFile +#define Tcl_GetOpenFile \ + (tclStubsPtr->tcl_GetOpenFile) /* 167 */ +#endif +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#ifndef Tcl_GetOpenFile +#define Tcl_GetOpenFile \ + (tclStubsPtr->tcl_GetOpenFile) /* 167 */ +#endif +#endif /* MACOSX */ +#ifndef Tcl_GetPathType +#define Tcl_GetPathType \ + (tclStubsPtr->tcl_GetPathType) /* 168 */ +#endif +#ifndef Tcl_Gets +#define Tcl_Gets \ + (tclStubsPtr->tcl_Gets) /* 169 */ +#endif +#ifndef Tcl_GetsObj +#define Tcl_GetsObj \ + (tclStubsPtr->tcl_GetsObj) /* 170 */ +#endif +#ifndef Tcl_GetServiceMode +#define Tcl_GetServiceMode \ + (tclStubsPtr->tcl_GetServiceMode) /* 171 */ +#endif +#ifndef Tcl_GetSlave +#define Tcl_GetSlave \ + (tclStubsPtr->tcl_GetSlave) /* 172 */ +#endif +#ifndef Tcl_GetStdChannel +#define Tcl_GetStdChannel \ + (tclStubsPtr->tcl_GetStdChannel) /* 173 */ +#endif +#ifndef Tcl_GetStringResult +#define Tcl_GetStringResult \ + (tclStubsPtr->tcl_GetStringResult) /* 174 */ +#endif +#ifndef Tcl_GetVar +#define Tcl_GetVar \ + (tclStubsPtr->tcl_GetVar) /* 175 */ +#endif +#ifndef Tcl_GetVar2 +#define Tcl_GetVar2 \ + (tclStubsPtr->tcl_GetVar2) /* 176 */ +#endif +#ifndef Tcl_GlobalEval +#define Tcl_GlobalEval \ + (tclStubsPtr->tcl_GlobalEval) /* 177 */ +#endif +#ifndef Tcl_GlobalEvalObj +#define Tcl_GlobalEvalObj \ + (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */ +#endif +#ifndef Tcl_HideCommand +#define Tcl_HideCommand \ + (tclStubsPtr->tcl_HideCommand) /* 179 */ +#endif +#ifndef Tcl_Init +#define Tcl_Init \ + (tclStubsPtr->tcl_Init) /* 180 */ +#endif +#ifndef Tcl_InitHashTable +#define Tcl_InitHashTable \ + (tclStubsPtr->tcl_InitHashTable) /* 181 */ +#endif +#ifndef Tcl_InputBlocked +#define Tcl_InputBlocked \ + (tclStubsPtr->tcl_InputBlocked) /* 182 */ +#endif +#ifndef Tcl_InputBuffered +#define Tcl_InputBuffered \ + (tclStubsPtr->tcl_InputBuffered) /* 183 */ +#endif +#ifndef Tcl_InterpDeleted +#define Tcl_InterpDeleted \ + (tclStubsPtr->tcl_InterpDeleted) /* 184 */ +#endif +#ifndef Tcl_IsSafe +#define Tcl_IsSafe \ + (tclStubsPtr->tcl_IsSafe) /* 185 */ +#endif +#ifndef Tcl_JoinPath +#define Tcl_JoinPath \ + (tclStubsPtr->tcl_JoinPath) /* 186 */ +#endif +#ifndef Tcl_LinkVar +#define Tcl_LinkVar \ + (tclStubsPtr->tcl_LinkVar) /* 187 */ +#endif +/* Slot 188 is reserved */ +#ifndef Tcl_MakeFileChannel +#define Tcl_MakeFileChannel \ + (tclStubsPtr->tcl_MakeFileChannel) /* 189 */ +#endif +#ifndef Tcl_MakeSafe +#define Tcl_MakeSafe \ + (tclStubsPtr->tcl_MakeSafe) /* 190 */ +#endif +#ifndef Tcl_MakeTcpClientChannel +#define Tcl_MakeTcpClientChannel \ + (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */ +#endif +#ifndef Tcl_Merge +#define Tcl_Merge \ + (tclStubsPtr->tcl_Merge) /* 192 */ +#endif +#ifndef Tcl_NextHashEntry +#define Tcl_NextHashEntry \ + (tclStubsPtr->tcl_NextHashEntry) /* 193 */ +#endif +#ifndef Tcl_NotifyChannel +#define Tcl_NotifyChannel \ + (tclStubsPtr->tcl_NotifyChannel) /* 194 */ +#endif +#ifndef Tcl_ObjGetVar2 +#define Tcl_ObjGetVar2 \ + (tclStubsPtr->tcl_ObjGetVar2) /* 195 */ +#endif +#ifndef Tcl_ObjSetVar2 +#define Tcl_ObjSetVar2 \ + (tclStubsPtr->tcl_ObjSetVar2) /* 196 */ +#endif +#ifndef Tcl_OpenCommandChannel +#define Tcl_OpenCommandChannel \ + (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ +#endif +#ifndef Tcl_OpenFileChannel +#define Tcl_OpenFileChannel \ + (tclStubsPtr->tcl_OpenFileChannel) /* 198 */ +#endif +#ifndef Tcl_OpenTcpClient +#define Tcl_OpenTcpClient \ + (tclStubsPtr->tcl_OpenTcpClient) /* 199 */ +#endif +#ifndef Tcl_OpenTcpServer +#define Tcl_OpenTcpServer \ + (tclStubsPtr->tcl_OpenTcpServer) /* 200 */ +#endif +#ifndef Tcl_Preserve +#define Tcl_Preserve \ + (tclStubsPtr->tcl_Preserve) /* 201 */ +#endif +#ifndef Tcl_PrintDouble +#define Tcl_PrintDouble \ + (tclStubsPtr->tcl_PrintDouble) /* 202 */ +#endif +#ifndef Tcl_PutEnv +#define Tcl_PutEnv \ + (tclStubsPtr->tcl_PutEnv) /* 203 */ +#endif +#ifndef Tcl_PosixError +#define Tcl_PosixError \ + (tclStubsPtr->tcl_PosixError) /* 204 */ +#endif +#ifndef Tcl_QueueEvent +#define Tcl_QueueEvent \ + (tclStubsPtr->tcl_QueueEvent) /* 205 */ +#endif +#ifndef Tcl_Read +#define Tcl_Read \ + (tclStubsPtr->tcl_Read) /* 206 */ +#endif +#ifndef Tcl_ReapDetachedProcs +#define Tcl_ReapDetachedProcs \ + (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ +#endif +#ifndef Tcl_RecordAndEval +#define Tcl_RecordAndEval \ + (tclStubsPtr->tcl_RecordAndEval) /* 208 */ +#endif +#ifndef Tcl_RecordAndEvalObj +#define Tcl_RecordAndEvalObj \ + (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */ +#endif +#ifndef Tcl_RegisterChannel +#define Tcl_RegisterChannel \ + (tclStubsPtr->tcl_RegisterChannel) /* 210 */ +#endif +#ifndef Tcl_RegisterObjType +#define Tcl_RegisterObjType \ + (tclStubsPtr->tcl_RegisterObjType) /* 211 */ +#endif +#ifndef Tcl_RegExpCompile +#define Tcl_RegExpCompile \ + (tclStubsPtr->tcl_RegExpCompile) /* 212 */ +#endif +#ifndef Tcl_RegExpExec +#define Tcl_RegExpExec \ + (tclStubsPtr->tcl_RegExpExec) /* 213 */ +#endif +#ifndef Tcl_RegExpMatch +#define Tcl_RegExpMatch \ + (tclStubsPtr->tcl_RegExpMatch) /* 214 */ +#endif +#ifndef Tcl_RegExpRange +#define Tcl_RegExpRange \ + (tclStubsPtr->tcl_RegExpRange) /* 215 */ +#endif +#ifndef Tcl_Release +#define Tcl_Release \ + (tclStubsPtr->tcl_Release) /* 216 */ +#endif +#ifndef Tcl_ResetResult +#define Tcl_ResetResult \ + (tclStubsPtr->tcl_ResetResult) /* 217 */ +#endif +#ifndef Tcl_ScanElement +#define Tcl_ScanElement \ + (tclStubsPtr->tcl_ScanElement) /* 218 */ +#endif +#ifndef Tcl_ScanCountedElement +#define Tcl_ScanCountedElement \ + (tclStubsPtr->tcl_ScanCountedElement) /* 219 */ +#endif +#ifndef Tcl_SeekOld +#define Tcl_SeekOld \ + (tclStubsPtr->tcl_SeekOld) /* 220 */ +#endif +#ifndef Tcl_ServiceAll +#define Tcl_ServiceAll \ + (tclStubsPtr->tcl_ServiceAll) /* 221 */ +#endif +#ifndef Tcl_ServiceEvent +#define Tcl_ServiceEvent \ + (tclStubsPtr->tcl_ServiceEvent) /* 222 */ +#endif +#ifndef Tcl_SetAssocData +#define Tcl_SetAssocData \ + (tclStubsPtr->tcl_SetAssocData) /* 223 */ +#endif +#ifndef Tcl_SetChannelBufferSize +#define Tcl_SetChannelBufferSize \ + (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */ +#endif +#ifndef Tcl_SetChannelOption +#define Tcl_SetChannelOption \ + (tclStubsPtr->tcl_SetChannelOption) /* 225 */ +#endif +#ifndef Tcl_SetCommandInfo +#define Tcl_SetCommandInfo \ + (tclStubsPtr->tcl_SetCommandInfo) /* 226 */ +#endif +#ifndef Tcl_SetErrno +#define Tcl_SetErrno \ + (tclStubsPtr->tcl_SetErrno) /* 227 */ +#endif +#ifndef Tcl_SetErrorCode +#define Tcl_SetErrorCode \ + (tclStubsPtr->tcl_SetErrorCode) /* 228 */ +#endif +#ifndef Tcl_SetMaxBlockTime +#define Tcl_SetMaxBlockTime \ + (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */ +#endif +#ifndef Tcl_SetPanicProc +#define Tcl_SetPanicProc \ + (tclStubsPtr->tcl_SetPanicProc) /* 230 */ +#endif +#ifndef Tcl_SetRecursionLimit +#define Tcl_SetRecursionLimit \ + (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */ +#endif +#ifndef Tcl_SetResult +#define Tcl_SetResult \ + (tclStubsPtr->tcl_SetResult) /* 232 */ +#endif +#ifndef Tcl_SetServiceMode +#define Tcl_SetServiceMode \ + (tclStubsPtr->tcl_SetServiceMode) /* 233 */ +#endif +#ifndef Tcl_SetObjErrorCode +#define Tcl_SetObjErrorCode \ + (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */ +#endif +#ifndef Tcl_SetObjResult +#define Tcl_SetObjResult \ + (tclStubsPtr->tcl_SetObjResult) /* 235 */ +#endif +#ifndef Tcl_SetStdChannel +#define Tcl_SetStdChannel \ + (tclStubsPtr->tcl_SetStdChannel) /* 236 */ +#endif +#ifndef Tcl_SetVar +#define Tcl_SetVar \ + (tclStubsPtr->tcl_SetVar) /* 237 */ +#endif +#ifndef Tcl_SetVar2 +#define Tcl_SetVar2 \ + (tclStubsPtr->tcl_SetVar2) /* 238 */ +#endif +#ifndef Tcl_SignalId +#define Tcl_SignalId \ + (tclStubsPtr->tcl_SignalId) /* 239 */ +#endif +#ifndef Tcl_SignalMsg +#define Tcl_SignalMsg \ + (tclStubsPtr->tcl_SignalMsg) /* 240 */ +#endif +#ifndef Tcl_SourceRCFile +#define Tcl_SourceRCFile \ + (tclStubsPtr->tcl_SourceRCFile) /* 241 */ +#endif +#ifndef Tcl_SplitList +#define Tcl_SplitList \ + (tclStubsPtr->tcl_SplitList) /* 242 */ +#endif +#ifndef Tcl_SplitPath +#define Tcl_SplitPath \ + (tclStubsPtr->tcl_SplitPath) /* 243 */ +#endif +#ifndef Tcl_StaticPackage +#define Tcl_StaticPackage \ + (tclStubsPtr->tcl_StaticPackage) /* 244 */ +#endif +#ifndef Tcl_StringMatch +#define Tcl_StringMatch \ + (tclStubsPtr->tcl_StringMatch) /* 245 */ +#endif +#ifndef Tcl_TellOld +#define Tcl_TellOld \ + (tclStubsPtr->tcl_TellOld) /* 246 */ +#endif +#ifndef Tcl_TraceVar +#define Tcl_TraceVar \ + (tclStubsPtr->tcl_TraceVar) /* 247 */ +#endif +#ifndef Tcl_TraceVar2 +#define Tcl_TraceVar2 \ + (tclStubsPtr->tcl_TraceVar2) /* 248 */ +#endif +#ifndef Tcl_TranslateFileName +#define Tcl_TranslateFileName \ + (tclStubsPtr->tcl_TranslateFileName) /* 249 */ +#endif +#ifndef Tcl_Ungets +#define Tcl_Ungets \ + (tclStubsPtr->tcl_Ungets) /* 250 */ +#endif +#ifndef Tcl_UnlinkVar +#define Tcl_UnlinkVar \ + (tclStubsPtr->tcl_UnlinkVar) /* 251 */ +#endif +#ifndef Tcl_UnregisterChannel +#define Tcl_UnregisterChannel \ + (tclStubsPtr->tcl_UnregisterChannel) /* 252 */ +#endif +#ifndef Tcl_UnsetVar +#define Tcl_UnsetVar \ + (tclStubsPtr->tcl_UnsetVar) /* 253 */ +#endif +#ifndef Tcl_UnsetVar2 +#define Tcl_UnsetVar2 \ + (tclStubsPtr->tcl_UnsetVar2) /* 254 */ +#endif +#ifndef Tcl_UntraceVar +#define Tcl_UntraceVar \ + (tclStubsPtr->tcl_UntraceVar) /* 255 */ +#endif +#ifndef Tcl_UntraceVar2 +#define Tcl_UntraceVar2 \ + (tclStubsPtr->tcl_UntraceVar2) /* 256 */ +#endif +#ifndef Tcl_UpdateLinkedVar +#define Tcl_UpdateLinkedVar \ + (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */ +#endif +#ifndef Tcl_UpVar +#define Tcl_UpVar \ + (tclStubsPtr->tcl_UpVar) /* 258 */ +#endif +#ifndef Tcl_UpVar2 +#define Tcl_UpVar2 \ + (tclStubsPtr->tcl_UpVar2) /* 259 */ +#endif +#ifndef Tcl_VarEval +#define Tcl_VarEval \ + (tclStubsPtr->tcl_VarEval) /* 260 */ +#endif +#ifndef Tcl_VarTraceInfo +#define Tcl_VarTraceInfo \ + (tclStubsPtr->tcl_VarTraceInfo) /* 261 */ +#endif +#ifndef Tcl_VarTraceInfo2 +#define Tcl_VarTraceInfo2 \ + (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */ +#endif +#ifndef Tcl_Write +#define Tcl_Write \ + (tclStubsPtr->tcl_Write) /* 263 */ +#endif +#ifndef Tcl_WrongNumArgs +#define Tcl_WrongNumArgs \ + (tclStubsPtr->tcl_WrongNumArgs) /* 264 */ +#endif +#ifndef Tcl_DumpActiveMemory +#define Tcl_DumpActiveMemory \ + (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */ +#endif +#ifndef Tcl_ValidateAllMemory +#define Tcl_ValidateAllMemory \ + (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */ +#endif +#ifndef Tcl_AppendResultVA +#define Tcl_AppendResultVA \ + (tclStubsPtr->tcl_AppendResultVA) /* 267 */ +#endif +#ifndef Tcl_AppendStringsToObjVA +#define Tcl_AppendStringsToObjVA \ + (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */ +#endif +#ifndef Tcl_HashStats +#define Tcl_HashStats \ + (tclStubsPtr->tcl_HashStats) /* 269 */ +#endif +#ifndef Tcl_ParseVar +#define Tcl_ParseVar \ + (tclStubsPtr->tcl_ParseVar) /* 270 */ +#endif +#ifndef Tcl_PkgPresent +#define Tcl_PkgPresent \ + (tclStubsPtr->tcl_PkgPresent) /* 271 */ +#endif +#ifndef Tcl_PkgPresentEx +#define Tcl_PkgPresentEx \ + (tclStubsPtr->tcl_PkgPresentEx) /* 272 */ +#endif +#ifndef Tcl_PkgProvide +#define Tcl_PkgProvide \ + (tclStubsPtr->tcl_PkgProvide) /* 273 */ +#endif +#ifndef Tcl_PkgRequire +#define Tcl_PkgRequire \ + (tclStubsPtr->tcl_PkgRequire) /* 274 */ +#endif +#ifndef Tcl_SetErrorCodeVA +#define Tcl_SetErrorCodeVA \ + (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */ +#endif +#ifndef Tcl_VarEvalVA +#define Tcl_VarEvalVA \ + (tclStubsPtr->tcl_VarEvalVA) /* 276 */ +#endif +#ifndef Tcl_WaitPid +#define Tcl_WaitPid \ + (tclStubsPtr->tcl_WaitPid) /* 277 */ +#endif +#ifndef Tcl_PanicVA +#define Tcl_PanicVA \ + (tclStubsPtr->tcl_PanicVA) /* 278 */ +#endif +#ifndef Tcl_GetVersion +#define Tcl_GetVersion \ + (tclStubsPtr->tcl_GetVersion) /* 279 */ +#endif +#ifndef Tcl_InitMemory +#define Tcl_InitMemory \ + (tclStubsPtr->tcl_InitMemory) /* 280 */ +#endif +#ifndef Tcl_StackChannel +#define Tcl_StackChannel \ + (tclStubsPtr->tcl_StackChannel) /* 281 */ +#endif +#ifndef Tcl_UnstackChannel +#define Tcl_UnstackChannel \ + (tclStubsPtr->tcl_UnstackChannel) /* 282 */ +#endif +#ifndef Tcl_GetStackedChannel +#define Tcl_GetStackedChannel \ + (tclStubsPtr->tcl_GetStackedChannel) /* 283 */ +#endif +#ifndef Tcl_SetMainLoop +#define Tcl_SetMainLoop \ + (tclStubsPtr->tcl_SetMainLoop) /* 284 */ +#endif +/* Slot 285 is reserved */ +#ifndef Tcl_AppendObjToObj +#define Tcl_AppendObjToObj \ + (tclStubsPtr->tcl_AppendObjToObj) /* 286 */ +#endif +#ifndef Tcl_CreateEncoding +#define Tcl_CreateEncoding \ + (tclStubsPtr->tcl_CreateEncoding) /* 287 */ +#endif +#ifndef Tcl_CreateThreadExitHandler +#define Tcl_CreateThreadExitHandler \ + (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */ +#endif +#ifndef Tcl_DeleteThreadExitHandler +#define Tcl_DeleteThreadExitHandler \ + (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */ +#endif +#ifndef Tcl_DiscardResult +#define Tcl_DiscardResult \ + (tclStubsPtr->tcl_DiscardResult) /* 290 */ +#endif +#ifndef Tcl_EvalEx +#define Tcl_EvalEx \ + (tclStubsPtr->tcl_EvalEx) /* 291 */ +#endif +#ifndef Tcl_EvalObjv +#define Tcl_EvalObjv \ + (tclStubsPtr->tcl_EvalObjv) /* 292 */ +#endif +#ifndef Tcl_EvalObjEx +#define Tcl_EvalObjEx \ + (tclStubsPtr->tcl_EvalObjEx) /* 293 */ +#endif +#ifndef Tcl_ExitThread +#define Tcl_ExitThread \ + (tclStubsPtr->tcl_ExitThread) /* 294 */ +#endif +#ifndef Tcl_ExternalToUtf +#define Tcl_ExternalToUtf \ + (tclStubsPtr->tcl_ExternalToUtf) /* 295 */ +#endif +#ifndef Tcl_ExternalToUtfDString +#define Tcl_ExternalToUtfDString \ + (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */ +#endif +#ifndef Tcl_FinalizeThread +#define Tcl_FinalizeThread \ + (tclStubsPtr->tcl_FinalizeThread) /* 297 */ +#endif +#ifndef Tcl_FinalizeNotifier +#define Tcl_FinalizeNotifier \ + (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */ +#endif +#ifndef Tcl_FreeEncoding +#define Tcl_FreeEncoding \ + (tclStubsPtr->tcl_FreeEncoding) /* 299 */ +#endif +#ifndef Tcl_GetCurrentThread +#define Tcl_GetCurrentThread \ + (tclStubsPtr->tcl_GetCurrentThread) /* 300 */ +#endif +#ifndef Tcl_GetEncoding +#define Tcl_GetEncoding \ + (tclStubsPtr->tcl_GetEncoding) /* 301 */ +#endif +#ifndef Tcl_GetEncodingName +#define Tcl_GetEncodingName \ + (tclStubsPtr->tcl_GetEncodingName) /* 302 */ +#endif +#ifndef Tcl_GetEncodingNames +#define Tcl_GetEncodingNames \ + (tclStubsPtr->tcl_GetEncodingNames) /* 303 */ +#endif +#ifndef Tcl_GetIndexFromObjStruct +#define Tcl_GetIndexFromObjStruct \ + (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */ +#endif +#ifndef Tcl_GetThreadData +#define Tcl_GetThreadData \ + (tclStubsPtr->tcl_GetThreadData) /* 305 */ +#endif +#ifndef Tcl_GetVar2Ex +#define Tcl_GetVar2Ex \ + (tclStubsPtr->tcl_GetVar2Ex) /* 306 */ +#endif +#ifndef Tcl_InitNotifier +#define Tcl_InitNotifier \ + (tclStubsPtr->tcl_InitNotifier) /* 307 */ +#endif +#ifndef Tcl_MutexLock +#define Tcl_MutexLock \ + (tclStubsPtr->tcl_MutexLock) /* 308 */ +#endif +#ifndef Tcl_MutexUnlock +#define Tcl_MutexUnlock \ + (tclStubsPtr->tcl_MutexUnlock) /* 309 */ +#endif +#ifndef Tcl_ConditionNotify +#define Tcl_ConditionNotify \ + (tclStubsPtr->tcl_ConditionNotify) /* 310 */ +#endif +#ifndef Tcl_ConditionWait +#define Tcl_ConditionWait \ + (tclStubsPtr->tcl_ConditionWait) /* 311 */ +#endif +#ifndef Tcl_NumUtfChars +#define Tcl_NumUtfChars \ + (tclStubsPtr->tcl_NumUtfChars) /* 312 */ +#endif +#ifndef Tcl_ReadChars +#define Tcl_ReadChars \ + (tclStubsPtr->tcl_ReadChars) /* 313 */ +#endif +#ifndef Tcl_RestoreResult +#define Tcl_RestoreResult \ + (tclStubsPtr->tcl_RestoreResult) /* 314 */ +#endif +#ifndef Tcl_SaveResult +#define Tcl_SaveResult \ + (tclStubsPtr->tcl_SaveResult) /* 315 */ +#endif +#ifndef Tcl_SetSystemEncoding +#define Tcl_SetSystemEncoding \ + (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */ +#endif +#ifndef Tcl_SetVar2Ex +#define Tcl_SetVar2Ex \ + (tclStubsPtr->tcl_SetVar2Ex) /* 317 */ +#endif +#ifndef Tcl_ThreadAlert +#define Tcl_ThreadAlert \ + (tclStubsPtr->tcl_ThreadAlert) /* 318 */ +#endif +#ifndef Tcl_ThreadQueueEvent +#define Tcl_ThreadQueueEvent \ + (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */ +#endif +#ifndef Tcl_UniCharAtIndex +#define Tcl_UniCharAtIndex \ + (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */ +#endif +#ifndef Tcl_UniCharToLower +#define Tcl_UniCharToLower \ + (tclStubsPtr->tcl_UniCharToLower) /* 321 */ +#endif +#ifndef Tcl_UniCharToTitle +#define Tcl_UniCharToTitle \ + (tclStubsPtr->tcl_UniCharToTitle) /* 322 */ +#endif +#ifndef Tcl_UniCharToUpper +#define Tcl_UniCharToUpper \ + (tclStubsPtr->tcl_UniCharToUpper) /* 323 */ +#endif +#ifndef Tcl_UniCharToUtf +#define Tcl_UniCharToUtf \ + (tclStubsPtr->tcl_UniCharToUtf) /* 324 */ +#endif +#ifndef Tcl_UtfAtIndex +#define Tcl_UtfAtIndex \ + (tclStubsPtr->tcl_UtfAtIndex) /* 325 */ +#endif +#ifndef Tcl_UtfCharComplete +#define Tcl_UtfCharComplete \ + (tclStubsPtr->tcl_UtfCharComplete) /* 326 */ +#endif +#ifndef Tcl_UtfBackslash +#define Tcl_UtfBackslash \ + (tclStubsPtr->tcl_UtfBackslash) /* 327 */ +#endif +#ifndef Tcl_UtfFindFirst +#define Tcl_UtfFindFirst \ + (tclStubsPtr->tcl_UtfFindFirst) /* 328 */ +#endif +#ifndef Tcl_UtfFindLast +#define Tcl_UtfFindLast \ + (tclStubsPtr->tcl_UtfFindLast) /* 329 */ +#endif +#ifndef Tcl_UtfNext +#define Tcl_UtfNext \ + (tclStubsPtr->tcl_UtfNext) /* 330 */ +#endif +#ifndef Tcl_UtfPrev +#define Tcl_UtfPrev \ + (tclStubsPtr->tcl_UtfPrev) /* 331 */ +#endif +#ifndef Tcl_UtfToExternal +#define Tcl_UtfToExternal \ + (tclStubsPtr->tcl_UtfToExternal) /* 332 */ +#endif +#ifndef Tcl_UtfToExternalDString +#define Tcl_UtfToExternalDString \ + (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */ +#endif +#ifndef Tcl_UtfToLower +#define Tcl_UtfToLower \ + (tclStubsPtr->tcl_UtfToLower) /* 334 */ +#endif +#ifndef Tcl_UtfToTitle +#define Tcl_UtfToTitle \ + (tclStubsPtr->tcl_UtfToTitle) /* 335 */ +#endif +#ifndef Tcl_UtfToUniChar +#define Tcl_UtfToUniChar \ + (tclStubsPtr->tcl_UtfToUniChar) /* 336 */ +#endif +#ifndef Tcl_UtfToUpper +#define Tcl_UtfToUpper \ + (tclStubsPtr->tcl_UtfToUpper) /* 337 */ +#endif +#ifndef Tcl_WriteChars +#define Tcl_WriteChars \ + (tclStubsPtr->tcl_WriteChars) /* 338 */ +#endif +#ifndef Tcl_WriteObj +#define Tcl_WriteObj \ + (tclStubsPtr->tcl_WriteObj) /* 339 */ +#endif +#ifndef Tcl_GetString +#define Tcl_GetString \ + (tclStubsPtr->tcl_GetString) /* 340 */ +#endif +#ifndef Tcl_GetDefaultEncodingDir +#define Tcl_GetDefaultEncodingDir \ + (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */ +#endif +#ifndef Tcl_SetDefaultEncodingDir +#define Tcl_SetDefaultEncodingDir \ + (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */ +#endif +#ifndef Tcl_AlertNotifier +#define Tcl_AlertNotifier \ + (tclStubsPtr->tcl_AlertNotifier) /* 343 */ +#endif +#ifndef Tcl_ServiceModeHook +#define Tcl_ServiceModeHook \ + (tclStubsPtr->tcl_ServiceModeHook) /* 344 */ +#endif +#ifndef Tcl_UniCharIsAlnum +#define Tcl_UniCharIsAlnum \ + (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */ +#endif +#ifndef Tcl_UniCharIsAlpha +#define Tcl_UniCharIsAlpha \ + (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */ +#endif +#ifndef Tcl_UniCharIsDigit +#define Tcl_UniCharIsDigit \ + (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */ +#endif +#ifndef Tcl_UniCharIsLower +#define Tcl_UniCharIsLower \ + (tclStubsPtr->tcl_UniCharIsLower) /* 348 */ +#endif +#ifndef Tcl_UniCharIsSpace +#define Tcl_UniCharIsSpace \ + (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */ +#endif +#ifndef Tcl_UniCharIsUpper +#define Tcl_UniCharIsUpper \ + (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */ +#endif +#ifndef Tcl_UniCharIsWordChar +#define Tcl_UniCharIsWordChar \ + (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */ +#endif +#ifndef Tcl_UniCharLen +#define Tcl_UniCharLen \ + (tclStubsPtr->tcl_UniCharLen) /* 352 */ +#endif +#ifndef Tcl_UniCharNcmp +#define Tcl_UniCharNcmp \ + (tclStubsPtr->tcl_UniCharNcmp) /* 353 */ +#endif +#ifndef Tcl_UniCharToUtfDString +#define Tcl_UniCharToUtfDString \ + (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */ +#endif +#ifndef Tcl_UtfToUniCharDString +#define Tcl_UtfToUniCharDString \ + (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */ +#endif +#ifndef Tcl_GetRegExpFromObj +#define Tcl_GetRegExpFromObj \ + (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */ +#endif +#ifndef Tcl_EvalTokens +#define Tcl_EvalTokens \ + (tclStubsPtr->tcl_EvalTokens) /* 357 */ +#endif +#ifndef Tcl_FreeParse +#define Tcl_FreeParse \ + (tclStubsPtr->tcl_FreeParse) /* 358 */ +#endif +#ifndef Tcl_LogCommandInfo +#define Tcl_LogCommandInfo \ + (tclStubsPtr->tcl_LogCommandInfo) /* 359 */ +#endif +#ifndef Tcl_ParseBraces +#define Tcl_ParseBraces \ + (tclStubsPtr->tcl_ParseBraces) /* 360 */ +#endif +#ifndef Tcl_ParseCommand +#define Tcl_ParseCommand \ + (tclStubsPtr->tcl_ParseCommand) /* 361 */ +#endif +#ifndef Tcl_ParseExpr +#define Tcl_ParseExpr \ + (tclStubsPtr->tcl_ParseExpr) /* 362 */ +#endif +#ifndef Tcl_ParseQuotedString +#define Tcl_ParseQuotedString \ + (tclStubsPtr->tcl_ParseQuotedString) /* 363 */ +#endif +#ifndef Tcl_ParseVarName +#define Tcl_ParseVarName \ + (tclStubsPtr->tcl_ParseVarName) /* 364 */ +#endif +#ifndef Tcl_GetCwd +#define Tcl_GetCwd \ + (tclStubsPtr->tcl_GetCwd) /* 365 */ +#endif +#ifndef Tcl_Chdir +#define Tcl_Chdir \ + (tclStubsPtr->tcl_Chdir) /* 366 */ +#endif +#ifndef Tcl_Access +#define Tcl_Access \ + (tclStubsPtr->tcl_Access) /* 367 */ +#endif +#ifndef Tcl_Stat +#define Tcl_Stat \ + (tclStubsPtr->tcl_Stat) /* 368 */ +#endif +#ifndef Tcl_UtfNcmp +#define Tcl_UtfNcmp \ + (tclStubsPtr->tcl_UtfNcmp) /* 369 */ +#endif +#ifndef Tcl_UtfNcasecmp +#define Tcl_UtfNcasecmp \ + (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */ +#endif +#ifndef Tcl_StringCaseMatch +#define Tcl_StringCaseMatch \ + (tclStubsPtr->tcl_StringCaseMatch) /* 371 */ +#endif +#ifndef Tcl_UniCharIsControl +#define Tcl_UniCharIsControl \ + (tclStubsPtr->tcl_UniCharIsControl) /* 372 */ +#endif +#ifndef Tcl_UniCharIsGraph +#define Tcl_UniCharIsGraph \ + (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */ +#endif +#ifndef Tcl_UniCharIsPrint +#define Tcl_UniCharIsPrint \ + (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */ +#endif +#ifndef Tcl_UniCharIsPunct +#define Tcl_UniCharIsPunct \ + (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */ +#endif +#ifndef Tcl_RegExpExecObj +#define Tcl_RegExpExecObj \ + (tclStubsPtr->tcl_RegExpExecObj) /* 376 */ +#endif +#ifndef Tcl_RegExpGetInfo +#define Tcl_RegExpGetInfo \ + (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */ +#endif +#ifndef Tcl_NewUnicodeObj +#define Tcl_NewUnicodeObj \ + (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */ +#endif +#ifndef Tcl_SetUnicodeObj +#define Tcl_SetUnicodeObj \ + (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */ +#endif +#ifndef Tcl_GetCharLength +#define Tcl_GetCharLength \ + (tclStubsPtr->tcl_GetCharLength) /* 380 */ +#endif +#ifndef Tcl_GetUniChar +#define Tcl_GetUniChar \ + (tclStubsPtr->tcl_GetUniChar) /* 381 */ +#endif +#ifndef Tcl_GetUnicode +#define Tcl_GetUnicode \ + (tclStubsPtr->tcl_GetUnicode) /* 382 */ +#endif +#ifndef Tcl_GetRange +#define Tcl_GetRange \ + (tclStubsPtr->tcl_GetRange) /* 383 */ +#endif +#ifndef Tcl_AppendUnicodeToObj +#define Tcl_AppendUnicodeToObj \ + (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */ +#endif +#ifndef Tcl_RegExpMatchObj +#define Tcl_RegExpMatchObj \ + (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */ +#endif +#ifndef Tcl_SetNotifier +#define Tcl_SetNotifier \ + (tclStubsPtr->tcl_SetNotifier) /* 386 */ +#endif +#ifndef Tcl_GetAllocMutex +#define Tcl_GetAllocMutex \ + (tclStubsPtr->tcl_GetAllocMutex) /* 387 */ +#endif +#ifndef Tcl_GetChannelNames +#define Tcl_GetChannelNames \ + (tclStubsPtr->tcl_GetChannelNames) /* 388 */ +#endif +#ifndef Tcl_GetChannelNamesEx +#define Tcl_GetChannelNamesEx \ + (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */ +#endif +#ifndef Tcl_ProcObjCmd +#define Tcl_ProcObjCmd \ + (tclStubsPtr->tcl_ProcObjCmd) /* 390 */ +#endif +#ifndef Tcl_ConditionFinalize +#define Tcl_ConditionFinalize \ + (tclStubsPtr->tcl_ConditionFinalize) /* 391 */ +#endif +#ifndef Tcl_MutexFinalize +#define Tcl_MutexFinalize \ + (tclStubsPtr->tcl_MutexFinalize) /* 392 */ +#endif +#ifndef Tcl_CreateThread +#define Tcl_CreateThread \ + (tclStubsPtr->tcl_CreateThread) /* 393 */ +#endif +#ifndef Tcl_ReadRaw +#define Tcl_ReadRaw \ + (tclStubsPtr->tcl_ReadRaw) /* 394 */ +#endif +#ifndef Tcl_WriteRaw +#define Tcl_WriteRaw \ + (tclStubsPtr->tcl_WriteRaw) /* 395 */ +#endif +#ifndef Tcl_GetTopChannel +#define Tcl_GetTopChannel \ + (tclStubsPtr->tcl_GetTopChannel) /* 396 */ +#endif +#ifndef Tcl_ChannelBuffered +#define Tcl_ChannelBuffered \ + (tclStubsPtr->tcl_ChannelBuffered) /* 397 */ +#endif +#ifndef Tcl_ChannelName +#define Tcl_ChannelName \ + (tclStubsPtr->tcl_ChannelName) /* 398 */ +#endif +#ifndef Tcl_ChannelVersion +#define Tcl_ChannelVersion \ + (tclStubsPtr->tcl_ChannelVersion) /* 399 */ +#endif +#ifndef Tcl_ChannelBlockModeProc +#define Tcl_ChannelBlockModeProc \ + (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */ +#endif +#ifndef Tcl_ChannelCloseProc +#define Tcl_ChannelCloseProc \ + (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */ +#endif +#ifndef Tcl_ChannelClose2Proc +#define Tcl_ChannelClose2Proc \ + (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */ +#endif +#ifndef Tcl_ChannelInputProc +#define Tcl_ChannelInputProc \ + (tclStubsPtr->tcl_ChannelInputProc) /* 403 */ +#endif +#ifndef Tcl_ChannelOutputProc +#define Tcl_ChannelOutputProc \ + (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */ +#endif +#ifndef Tcl_ChannelSeekProc +#define Tcl_ChannelSeekProc \ + (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */ +#endif +#ifndef Tcl_ChannelSetOptionProc +#define Tcl_ChannelSetOptionProc \ + (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */ +#endif +#ifndef Tcl_ChannelGetOptionProc +#define Tcl_ChannelGetOptionProc \ + (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */ +#endif +#ifndef Tcl_ChannelWatchProc +#define Tcl_ChannelWatchProc \ + (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */ +#endif +#ifndef Tcl_ChannelGetHandleProc +#define Tcl_ChannelGetHandleProc \ + (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */ +#endif +#ifndef Tcl_ChannelFlushProc +#define Tcl_ChannelFlushProc \ + (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */ +#endif +#ifndef Tcl_ChannelHandlerProc +#define Tcl_ChannelHandlerProc \ + (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */ +#endif +#ifndef Tcl_JoinThread +#define Tcl_JoinThread \ + (tclStubsPtr->tcl_JoinThread) /* 412 */ +#endif +#ifndef Tcl_IsChannelShared +#define Tcl_IsChannelShared \ + (tclStubsPtr->tcl_IsChannelShared) /* 413 */ +#endif +#ifndef Tcl_IsChannelRegistered +#define Tcl_IsChannelRegistered \ + (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */ +#endif +#ifndef Tcl_CutChannel +#define Tcl_CutChannel \ + (tclStubsPtr->tcl_CutChannel) /* 415 */ +#endif +#ifndef Tcl_SpliceChannel +#define Tcl_SpliceChannel \ + (tclStubsPtr->tcl_SpliceChannel) /* 416 */ +#endif +#ifndef Tcl_ClearChannelHandlers +#define Tcl_ClearChannelHandlers \ + (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */ +#endif +#ifndef Tcl_IsChannelExisting +#define Tcl_IsChannelExisting \ + (tclStubsPtr->tcl_IsChannelExisting) /* 418 */ +#endif +#ifndef Tcl_UniCharNcasecmp +#define Tcl_UniCharNcasecmp \ + (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */ +#endif +#ifndef Tcl_UniCharCaseMatch +#define Tcl_UniCharCaseMatch \ + (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */ +#endif +#ifndef Tcl_FindHashEntry +#define Tcl_FindHashEntry \ + (tclStubsPtr->tcl_FindHashEntry) /* 421 */ +#endif +#ifndef Tcl_CreateHashEntry +#define Tcl_CreateHashEntry \ + (tclStubsPtr->tcl_CreateHashEntry) /* 422 */ +#endif +#ifndef Tcl_InitCustomHashTable +#define Tcl_InitCustomHashTable \ + (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */ +#endif +#ifndef Tcl_InitObjHashTable +#define Tcl_InitObjHashTable \ + (tclStubsPtr->tcl_InitObjHashTable) /* 424 */ +#endif +#ifndef Tcl_CommandTraceInfo +#define Tcl_CommandTraceInfo \ + (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */ +#endif +#ifndef Tcl_TraceCommand +#define Tcl_TraceCommand \ + (tclStubsPtr->tcl_TraceCommand) /* 426 */ +#endif +#ifndef Tcl_UntraceCommand +#define Tcl_UntraceCommand \ + (tclStubsPtr->tcl_UntraceCommand) /* 427 */ +#endif +#ifndef Tcl_AttemptAlloc +#define Tcl_AttemptAlloc \ + (tclStubsPtr->tcl_AttemptAlloc) /* 428 */ +#endif +#ifndef Tcl_AttemptDbCkalloc +#define Tcl_AttemptDbCkalloc \ + (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */ +#endif +#ifndef Tcl_AttemptRealloc +#define Tcl_AttemptRealloc \ + (tclStubsPtr->tcl_AttemptRealloc) /* 430 */ +#endif +#ifndef Tcl_AttemptDbCkrealloc +#define Tcl_AttemptDbCkrealloc \ + (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */ +#endif +#ifndef Tcl_AttemptSetObjLength +#define Tcl_AttemptSetObjLength \ + (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */ +#endif +#ifndef Tcl_GetChannelThread +#define Tcl_GetChannelThread \ + (tclStubsPtr->tcl_GetChannelThread) /* 433 */ +#endif +#ifndef Tcl_GetUnicodeFromObj +#define Tcl_GetUnicodeFromObj \ + (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */ +#endif +#ifndef Tcl_GetMathFuncInfo +#define Tcl_GetMathFuncInfo \ + (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */ +#endif +#ifndef Tcl_ListMathFuncs +#define Tcl_ListMathFuncs \ + (tclStubsPtr->tcl_ListMathFuncs) /* 436 */ +#endif +#ifndef Tcl_SubstObj +#define Tcl_SubstObj \ + (tclStubsPtr->tcl_SubstObj) /* 437 */ +#endif +#ifndef Tcl_DetachChannel +#define Tcl_DetachChannel \ + (tclStubsPtr->tcl_DetachChannel) /* 438 */ +#endif +#ifndef Tcl_IsStandardChannel +#define Tcl_IsStandardChannel \ + (tclStubsPtr->tcl_IsStandardChannel) /* 439 */ +#endif +#ifndef Tcl_FSCopyFile +#define Tcl_FSCopyFile \ + (tclStubsPtr->tcl_FSCopyFile) /* 440 */ +#endif +#ifndef Tcl_FSCopyDirectory +#define Tcl_FSCopyDirectory \ + (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */ +#endif +#ifndef Tcl_FSCreateDirectory +#define Tcl_FSCreateDirectory \ + (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */ +#endif +#ifndef Tcl_FSDeleteFile +#define Tcl_FSDeleteFile \ + (tclStubsPtr->tcl_FSDeleteFile) /* 443 */ +#endif +#ifndef Tcl_FSLoadFile +#define Tcl_FSLoadFile \ + (tclStubsPtr->tcl_FSLoadFile) /* 444 */ +#endif +#ifndef Tcl_FSMatchInDirectory +#define Tcl_FSMatchInDirectory \ + (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */ +#endif +#ifndef Tcl_FSLink +#define Tcl_FSLink \ + (tclStubsPtr->tcl_FSLink) /* 446 */ +#endif +#ifndef Tcl_FSRemoveDirectory +#define Tcl_FSRemoveDirectory \ + (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */ +#endif +#ifndef Tcl_FSRenameFile +#define Tcl_FSRenameFile \ + (tclStubsPtr->tcl_FSRenameFile) /* 448 */ +#endif +#ifndef Tcl_FSLstat +#define Tcl_FSLstat \ + (tclStubsPtr->tcl_FSLstat) /* 449 */ +#endif +#ifndef Tcl_FSUtime +#define Tcl_FSUtime \ + (tclStubsPtr->tcl_FSUtime) /* 450 */ +#endif +#ifndef Tcl_FSFileAttrsGet +#define Tcl_FSFileAttrsGet \ + (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */ +#endif +#ifndef Tcl_FSFileAttrsSet +#define Tcl_FSFileAttrsSet \ + (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */ +#endif +#ifndef Tcl_FSFileAttrStrings +#define Tcl_FSFileAttrStrings \ + (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */ +#endif +#ifndef Tcl_FSStat +#define Tcl_FSStat \ + (tclStubsPtr->tcl_FSStat) /* 454 */ +#endif +#ifndef Tcl_FSAccess +#define Tcl_FSAccess \ + (tclStubsPtr->tcl_FSAccess) /* 455 */ +#endif +#ifndef Tcl_FSOpenFileChannel +#define Tcl_FSOpenFileChannel \ + (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */ +#endif +#ifndef Tcl_FSGetCwd +#define Tcl_FSGetCwd \ + (tclStubsPtr->tcl_FSGetCwd) /* 457 */ +#endif +#ifndef Tcl_FSChdir +#define Tcl_FSChdir \ + (tclStubsPtr->tcl_FSChdir) /* 458 */ +#endif +#ifndef Tcl_FSConvertToPathType +#define Tcl_FSConvertToPathType \ + (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */ +#endif +#ifndef Tcl_FSJoinPath +#define Tcl_FSJoinPath \ + (tclStubsPtr->tcl_FSJoinPath) /* 460 */ +#endif +#ifndef Tcl_FSSplitPath +#define Tcl_FSSplitPath \ + (tclStubsPtr->tcl_FSSplitPath) /* 461 */ +#endif +#ifndef Tcl_FSEqualPaths +#define Tcl_FSEqualPaths \ + (tclStubsPtr->tcl_FSEqualPaths) /* 462 */ +#endif +#ifndef Tcl_FSGetNormalizedPath +#define Tcl_FSGetNormalizedPath \ + (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */ +#endif +#ifndef Tcl_FSJoinToPath +#define Tcl_FSJoinToPath \ + (tclStubsPtr->tcl_FSJoinToPath) /* 464 */ +#endif +#ifndef Tcl_FSGetInternalRep +#define Tcl_FSGetInternalRep \ + (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */ +#endif +#ifndef Tcl_FSGetTranslatedPath +#define Tcl_FSGetTranslatedPath \ + (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */ +#endif +#ifndef Tcl_FSEvalFile +#define Tcl_FSEvalFile \ + (tclStubsPtr->tcl_FSEvalFile) /* 467 */ +#endif +#ifndef Tcl_FSNewNativePath +#define Tcl_FSNewNativePath \ + (tclStubsPtr->tcl_FSNewNativePath) /* 468 */ +#endif +#ifndef Tcl_FSGetNativePath +#define Tcl_FSGetNativePath \ + (tclStubsPtr->tcl_FSGetNativePath) /* 469 */ +#endif +#ifndef Tcl_FSFileSystemInfo +#define Tcl_FSFileSystemInfo \ + (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */ +#endif +#ifndef Tcl_FSPathSeparator +#define Tcl_FSPathSeparator \ + (tclStubsPtr->tcl_FSPathSeparator) /* 471 */ +#endif +#ifndef Tcl_FSListVolumes +#define Tcl_FSListVolumes \ + (tclStubsPtr->tcl_FSListVolumes) /* 472 */ +#endif +#ifndef Tcl_FSRegister +#define Tcl_FSRegister \ + (tclStubsPtr->tcl_FSRegister) /* 473 */ +#endif +#ifndef Tcl_FSUnregister +#define Tcl_FSUnregister \ + (tclStubsPtr->tcl_FSUnregister) /* 474 */ +#endif +#ifndef Tcl_FSData +#define Tcl_FSData \ + (tclStubsPtr->tcl_FSData) /* 475 */ +#endif +#ifndef Tcl_FSGetTranslatedStringPath +#define Tcl_FSGetTranslatedStringPath \ + (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */ +#endif +#ifndef Tcl_FSGetFileSystemForPath +#define Tcl_FSGetFileSystemForPath \ + (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */ +#endif +#ifndef Tcl_FSGetPathType +#define Tcl_FSGetPathType \ + (tclStubsPtr->tcl_FSGetPathType) /* 478 */ +#endif +#ifndef Tcl_OutputBuffered +#define Tcl_OutputBuffered \ + (tclStubsPtr->tcl_OutputBuffered) /* 479 */ +#endif +#ifndef Tcl_FSMountsChanged +#define Tcl_FSMountsChanged \ + (tclStubsPtr->tcl_FSMountsChanged) /* 480 */ +#endif +#ifndef Tcl_EvalTokensStandard +#define Tcl_EvalTokensStandard \ + (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */ +#endif +#ifndef Tcl_GetTime +#define Tcl_GetTime \ + (tclStubsPtr->tcl_GetTime) /* 482 */ +#endif +#ifndef Tcl_CreateObjTrace +#define Tcl_CreateObjTrace \ + (tclStubsPtr->tcl_CreateObjTrace) /* 483 */ +#endif +#ifndef Tcl_GetCommandInfoFromToken +#define Tcl_GetCommandInfoFromToken \ + (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */ +#endif +#ifndef Tcl_SetCommandInfoFromToken +#define Tcl_SetCommandInfoFromToken \ + (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */ +#endif +#ifndef Tcl_DbNewWideIntObj +#define Tcl_DbNewWideIntObj \ + (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */ +#endif +#ifndef Tcl_GetWideIntFromObj +#define Tcl_GetWideIntFromObj \ + (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */ +#endif +#ifndef Tcl_NewWideIntObj +#define Tcl_NewWideIntObj \ + (tclStubsPtr->tcl_NewWideIntObj) /* 488 */ +#endif +#ifndef Tcl_SetWideIntObj +#define Tcl_SetWideIntObj \ + (tclStubsPtr->tcl_SetWideIntObj) /* 489 */ +#endif +#ifndef Tcl_AllocStatBuf +#define Tcl_AllocStatBuf \ + (tclStubsPtr->tcl_AllocStatBuf) /* 490 */ +#endif +#ifndef Tcl_Seek +#define Tcl_Seek \ + (tclStubsPtr->tcl_Seek) /* 491 */ +#endif +#ifndef Tcl_Tell +#define Tcl_Tell \ + (tclStubsPtr->tcl_Tell) /* 492 */ +#endif +#ifndef Tcl_ChannelWideSeekProc +#define Tcl_ChannelWideSeekProc \ + (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */ +#endif +/* Slot 494 is reserved */ +/* Slot 495 is reserved */ +/* Slot 496 is reserved */ +/* Slot 497 is reserved */ +/* Slot 498 is reserved */ +/* Slot 499 is reserved */ +/* Slot 500 is reserved */ +/* Slot 501 is reserved */ +/* Slot 502 is reserved */ +/* Slot 503 is reserved */ +/* Slot 504 is reserved */ +/* Slot 505 is reserved */ +/* Slot 506 is reserved */ +/* Slot 507 is reserved */ +/* Slot 508 is reserved */ +/* Slot 509 is reserved */ +/* Slot 510 is reserved */ +/* Slot 511 is reserved */ +/* Slot 512 is reserved */ +/* Slot 513 is reserved */ +/* Slot 514 is reserved */ +/* Slot 515 is reserved */ +/* Slot 516 is reserved */ +/* Slot 517 is reserved */ +/* Slot 518 is reserved */ +/* Slot 519 is reserved */ +/* Slot 520 is reserved */ +/* Slot 521 is reserved */ +/* Slot 522 is reserved */ +/* Slot 523 is reserved */ +/* Slot 524 is reserved */ +/* Slot 525 is reserved */ +/* Slot 526 is reserved */ +/* Slot 527 is reserved */ +/* Slot 528 is reserved */ +/* Slot 529 is reserved */ +/* Slot 530 is reserved */ +/* Slot 531 is reserved */ +/* Slot 532 is reserved */ +/* Slot 533 is reserved */ +/* Slot 534 is reserved */ +/* Slot 535 is reserved */ +/* Slot 536 is reserved */ +/* Slot 537 is reserved */ +/* Slot 538 is reserved */ +/* Slot 539 is reserved */ +/* Slot 540 is reserved */ +/* Slot 541 is reserved */ +/* Slot 542 is reserved */ +/* Slot 543 is reserved */ +/* Slot 544 is reserved */ +/* Slot 545 is reserved */ +/* Slot 546 is reserved */ +/* Slot 547 is reserved */ +/* Slot 548 is reserved */ +/* Slot 549 is reserved */ +/* Slot 550 is reserved */ +/* Slot 551 is reserved */ +/* Slot 552 is reserved */ +/* Slot 553 is reserved */ +#ifndef Tcl_ChannelThreadActionProc +#define Tcl_ChannelThreadActionProc \ + (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */ +#endif +/* Slot 555 is reserved */ +/* Slot 556 is reserved */ +/* Slot 557 is reserved */ +/* Slot 558 is reserved */ +/* Slot 559 is reserved */ +/* Slot 560 is reserved */ +/* Slot 561 is reserved */ +/* Slot 562 is reserved */ +/* Slot 563 is reserved */ +/* Slot 564 is reserved */ +/* Slot 565 is reserved */ +/* Slot 566 is reserved */ +/* Slot 567 is reserved */ +/* Slot 568 is reserved */ +/* Slot 569 is reserved */ +/* Slot 570 is reserved */ +/* Slot 571 is reserved */ +/* Slot 572 is reserved */ +#ifndef Tcl_PkgRequireProc +#define Tcl_PkgRequireProc \ + (tclStubsPtr->tcl_PkgRequireProc) /* 573 */ +#endif +/* Slot 574 is reserved */ +/* Slot 575 is reserved */ +/* Slot 576 is reserved */ +/* Slot 577 is reserved */ +/* Slot 578 is reserved */ +/* Slot 579 is reserved */ +/* Slot 580 is reserved */ +/* Slot 581 is reserved */ +/* Slot 582 is reserved */ +/* Slot 583 is reserved */ +/* Slot 584 is reserved */ +/* Slot 585 is reserved */ +/* Slot 586 is reserved */ +/* Slot 587 is reserved */ +/* Slot 588 is reserved */ +/* Slot 589 is reserved */ +/* Slot 590 is reserved */ +/* Slot 591 is reserved */ +/* Slot 592 is reserved */ +/* Slot 593 is reserved */ +/* Slot 594 is reserved */ +/* Slot 595 is reserved */ +/* Slot 596 is reserved */ +/* Slot 597 is reserved */ +/* Slot 598 is reserved */ +/* Slot 599 is reserved */ +/* Slot 600 is reserved */ +/* Slot 601 is reserved */ +/* Slot 602 is reserved */ +/* Slot 603 is reserved */ +/* Slot 604 is reserved */ +/* Slot 605 is reserved */ +/* Slot 606 is reserved */ +/* Slot 607 is reserved */ +/* Slot 608 is reserved */ +/* Slot 609 is reserved */ +/* Slot 610 is reserved */ +/* Slot 611 is reserved */ +/* Slot 612 is reserved */ +/* Slot 613 is reserved */ +/* Slot 614 is reserved */ +/* Slot 615 is reserved */ +/* Slot 616 is reserved */ +/* Slot 617 is reserved */ +/* Slot 618 is reserved */ +/* Slot 619 is reserved */ +/* Slot 620 is reserved */ +/* Slot 621 is reserved */ +/* Slot 622 is reserved */ +/* Slot 623 is reserved */ +/* Slot 624 is reserved */ +/* Slot 625 is reserved */ +/* Slot 626 is reserved */ +/* Slot 627 is reserved */ +/* Slot 628 is reserved */ +/* Slot 629 is reserved */ +#ifndef TclUnusedStubEntry +#define TclUnusedStubEntry \ + (tclStubsPtr->tclUnusedStubEntry) /* 630 */ +#endif + +#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#undef TclUnusedStubEntry + +#undef Tcl_PkgPresent +#define Tcl_PkgPresent(interp, name, version, exact) \ + Tcl_PkgPresentEx(interp, name, version, exact, NULL) +#undef Tcl_PkgProvide +#define Tcl_PkgProvide(interp, name, version) \ + Tcl_PkgProvideEx(interp, name, version, NULL) +#undef Tcl_PkgRequire +#define Tcl_PkgRequire(interp, name, version, exact) \ + Tcl_PkgRequireEx(interp, name, version, exact, NULL) +#undef Tcl_GetIndexFromObj +#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \ + Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \ + sizeof(char *), msg, flags, indexPtr) +#undef Tcl_SetVar +#define Tcl_SetVar(interp, varName, newValue, flags) \ + Tcl_SetVar2(interp, varName, NULL, newValue, flags) +#undef Tcl_UnsetVar +#define Tcl_UnsetVar(interp, varName, flags) \ + Tcl_UnsetVar2(interp, varName, NULL, flags) +#undef Tcl_GetVar +#define Tcl_GetVar(interp, varName, flags) \ + Tcl_GetVar2(interp, varName, NULL, flags) +#undef Tcl_TraceVar +#define Tcl_TraceVar(interp, varName, flags, proc, clientData) \ + Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData) +#undef Tcl_UntraceVar +#define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \ + Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData) +#undef Tcl_VarTraceInfo +#define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \ + Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData) +#undef Tcl_UpVar +#define Tcl_UpVar(interp, frameName, varName, localName, flags) \ + Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags) + +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) +# if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG) +/* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore + * we have to make sure that all stub entries on Cygwin64 follow the + * Win64 signature. Cygwin64 stubbed extensions cannot use those stub + * entries any more, they should use the 64-bit alternatives where + * possible. Tcl 9 must find a better solution, but that cannot be done + * without introducing a binary incompatibility. + */ +# undef Tcl_DbNewLongObj +# undef Tcl_GetLongFromObj +# undef Tcl_NewLongObj +# undef Tcl_SetLongObj +# undef Tcl_ExprLong +# undef Tcl_ExprLongObj +# undef Tcl_UniCharNcmp +# undef Tcl_UtfNcmp +# undef Tcl_UtfNcasecmp +# undef Tcl_UniCharNcasecmp +# define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))Tcl_DbNewWideIntObj) +# define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj) +# define Tcl_NewLongObj ((Tcl_Obj*(*)(long))Tcl_NewWideIntObj) +# define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))Tcl_SetWideIntObj) +# define Tcl_ExprLong TclExprLong + static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){ + int intValue; + int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue); + if (result == TCL_OK) *ptr = (long)intValue; + return result; + } +# define Tcl_ExprLongObj TclExprLongObj + static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){ + int intValue; + int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue); + if (result == TCL_OK) *ptr = (long)intValue; + return result; + } +# define Tcl_UniCharNcmp(ucs,uct,n) \ + ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n)) +# define Tcl_UtfNcmp(s1,s2,n) \ + ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcmp)(s1,s2,(unsigned int)(n)) +# define Tcl_UtfNcasecmp(s1,s2,n) \ + ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n)) +# define Tcl_UniCharNcasecmp(ucs,uct,n) \ + ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n)) +# endif +#endif + +/* + * Deprecated Tcl procedures: + */ +#undef Tcl_EvalObj +#define Tcl_EvalObj(interp,objPtr) \ + Tcl_EvalObjEx((interp),(objPtr),0) +#undef Tcl_GlobalEvalObj +#define Tcl_GlobalEvalObj(interp,objPtr) \ + Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) + +#endif /* _TCLDECLS */ + diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tclPlatDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tclPlatDecls.h new file mode 100644 index 00000000..b3397953 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tclPlatDecls.h @@ -0,0 +1,109 @@ +/* + * tclPlatDecls.h -- + * + * Declarations of platform specific Tcl APIs. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + */ + +#ifndef _TCLPLATDECLS +#define _TCLPLATDECLS + +/* + * TCHAR is needed here for win32, so if it is not defined yet do it here. + * This way, we don't need to include just for one define. + */ +#if (defined(_WIN32) || defined(__CYGWIN__)) && !defined(_TCHAR_DEFINED) +# if defined(_UNICODE) + typedef wchar_t TCHAR; +# else + typedef char TCHAR; +# endif +# define _TCHAR_DEFINED +#endif + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported function declarations: + */ + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ +/* 0 */ +EXTERN TCHAR * Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char *str, + int len, Tcl_DString *dsPtr)); +/* 1 */ +EXTERN char * Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR *str, + int len, Tcl_DString *dsPtr)); +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ +/* 0 */ +EXTERN int Tcl_MacOSXOpenBundleResources _ANSI_ARGS_(( + Tcl_Interp *interp, CONST char *bundleName, + int hasResourceFile, int maxPathLen, + char *libraryPath)); +/* 1 */ +EXTERN int Tcl_MacOSXOpenVersionedBundleResources _ANSI_ARGS_(( + Tcl_Interp *interp, CONST char *bundleName, + CONST char *bundleVersion, + int hasResourceFile, int maxPathLen, + char *libraryPath)); +#endif /* MACOSX */ + +typedef struct TclPlatStubs { + int magic; + struct TclPlatStubHooks *hooks; + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ + TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char *str, int len, Tcl_DString *dsPtr)); /* 0 */ + char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR *str, int len, Tcl_DString *dsPtr)); /* 1 */ +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ + int (*tcl_MacOSXOpenBundleResources) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPath)); /* 0 */ + int (*tcl_MacOSXOpenVersionedBundleResources) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *bundleName, CONST char *bundleVersion, int hasResourceFile, int maxPathLen, char *libraryPath)); /* 1 */ +#endif /* MACOSX */ +} TclPlatStubs; + +#ifdef __cplusplus +extern "C" { +#endif +extern TclPlatStubs *tclPlatStubsPtr; +#ifdef __cplusplus +} +#endif + +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ +#ifndef Tcl_WinUtfToTChar +#define Tcl_WinUtfToTChar \ + (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */ +#endif +#ifndef Tcl_WinTCharToUtf +#define Tcl_WinTCharToUtf \ + (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */ +#endif +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#ifndef Tcl_MacOSXOpenBundleResources +#define Tcl_MacOSXOpenBundleResources \ + (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */ +#endif +#ifndef Tcl_MacOSXOpenVersionedBundleResources +#define Tcl_MacOSXOpenVersionedBundleResources \ + (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */ +#endif +#endif /* MACOSX */ + +#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#endif /* _TCLPLATDECLS */ + + diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tk.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tk.h new file mode 100644 index 00000000..2ff21b6d --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tk.h @@ -0,0 +1,1600 @@ +/* + * tk.h -- + * + * Declarations for Tk-related things that are visible + * outside of the Tk module itself. + * + * Copyright (c) 1989-1994 The Regents of the University of California. + * Copyright (c) 1994 The Australian National University. + * Copyright (c) 1994-1998 Sun Microsystems, Inc. + * Copyright (c) 1998-2000 Ajuba Solutions. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TK +#define _TK + +#ifndef _TCL +#include +#if (TCL_MAJOR_VERSION != 8) || (TCL_MINOR_VERSION != 4) +# error Tk 8.4 must be compiled with tcl.h from Tcl 8.4 +#endif +#endif + +/* + * For C++ compilers, use extern "C" + */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * When version numbers change here, you must also go into the following files + * and update the version numbers: + * + * library/tk.tcl (only if Major.minor changes, not patchlevel) + * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) + * win/configure.in (as above) + * win/makefile.vc (not patchlevel) + * README (sections 0 and 1) + * mac/README (not patchlevel) + * win/README (not patchlevel) + * unix/README (not patchlevel) + * unix/tk.spec (3 LOC Major/Minor, 2 LOC patch) + * win/tcl.m4 (not patchlevel) + * + * You may also need to update some of these files when the numbers change + * for the version of Tcl that this release of Tk is compiled against. + */ + +#define TK_MAJOR_VERSION 8 +#define TK_MINOR_VERSION 4 +#define TK_RELEASE_LEVEL TCL_FINAL_RELEASE +#define TK_RELEASE_SERIAL 20 + +#define TK_VERSION "8.4" +#define TK_PATCH_LEVEL "8.4.20" + +/* + * A special definition used to allow this header file to be included + * from windows resource files so that they can obtain version + * information. RC_INVOKED is defined by default by the windows RC tool. + * + * Resource compilers don't like all the C stuff, like typedefs and + * procedure declarations, that occur below, so block them out. + */ + +#ifndef RC_INVOKED + +#ifndef _XLIB_H +# if defined(MAC_OSX_TK) +# include +# include +# else +# include +# endif +#endif +#ifdef __STDC__ +# include +#endif + +#ifdef BUILD_tk +# undef TCL_STORAGE_CLASS +# define TCL_STORAGE_CLASS DLLEXPORT +#endif + +/* + * Decide whether or not to use input methods. + */ + +#ifdef XNQueryInputStyle +#define TK_USE_INPUT_METHODS +#endif + +/* + * Dummy types that are used by clients: + */ + +typedef struct Tk_BindingTable_ *Tk_BindingTable; +typedef struct Tk_Canvas_ *Tk_Canvas; +typedef struct Tk_Cursor_ *Tk_Cursor; +typedef struct Tk_ErrorHandler_ *Tk_ErrorHandler; +typedef struct Tk_Font_ *Tk_Font; +typedef struct Tk_Image__ *Tk_Image; +typedef struct Tk_ImageMaster_ *Tk_ImageMaster; +typedef struct Tk_OptionTable_ *Tk_OptionTable; +typedef struct Tk_PostscriptInfo_ *Tk_PostscriptInfo; +typedef struct Tk_TextLayout_ *Tk_TextLayout; +typedef struct Tk_Window_ *Tk_Window; +typedef struct Tk_3DBorder_ *Tk_3DBorder; +typedef struct Tk_Style_ *Tk_Style; +typedef struct Tk_StyleEngine_ *Tk_StyleEngine; +typedef struct Tk_StyledElement_ *Tk_StyledElement; + +/* + * Additional types exported to clients. + */ + +typedef CONST char *Tk_Uid; + +/* + * The enum below defines the valid types for Tk configuration options + * as implemented by Tk_InitOptions, Tk_SetOptions, etc. + */ + +typedef enum { + TK_OPTION_BOOLEAN, + TK_OPTION_INT, + TK_OPTION_DOUBLE, + TK_OPTION_STRING, + TK_OPTION_STRING_TABLE, + TK_OPTION_COLOR, + TK_OPTION_FONT, + TK_OPTION_BITMAP, + TK_OPTION_BORDER, + TK_OPTION_RELIEF, + TK_OPTION_CURSOR, + TK_OPTION_JUSTIFY, + TK_OPTION_ANCHOR, + TK_OPTION_SYNONYM, + TK_OPTION_PIXELS, + TK_OPTION_WINDOW, + TK_OPTION_END, + TK_OPTION_CUSTOM, + TK_OPTION_STYLE +} Tk_OptionType; + +/* + * Structures of the following type are used by widgets to specify + * their configuration options. Typically each widget has a static + * array of these structures, where each element of the array describes + * a single configuration option. The array is passed to + * Tk_CreateOptionTable. + */ + +typedef struct Tk_OptionSpec { + Tk_OptionType type; /* Type of option, such as TK_OPTION_COLOR; + * see definitions above. Last option in + * table must have type TK_OPTION_END. */ + char *optionName; /* Name used to specify option in Tcl + * commands. */ + char *dbName; /* Name for option in option database. */ + char *dbClass; /* Class for option in database. */ + char *defValue; /* Default value for option if not specified + * in command line, the option database, + * or the system. */ + int objOffset; /* Where in record to store a Tcl_Obj * that + * holds the value of this option, specified + * as an offset in bytes from the start of + * the record. Use the Tk_Offset macro to + * generate values for this. -1 means don't + * store the Tcl_Obj in the record. */ + int internalOffset; /* Where in record to store the internal + * representation of the value of this option, + * such as an int or XColor *. This field + * is specified as an offset in bytes + * from the start of the record. Use the + * Tk_Offset macro to generate values for it. + * -1 means don't store the internal + * representation in the record. */ + int flags; /* Any combination of the values defined + * below. */ + ClientData clientData; /* An alternate place to put option-specific + * data. Used for the monochrome default value + * for colors, etc. */ + int typeMask; /* An arbitrary bit mask defined by the + * class manager; typically bits correspond + * to certain kinds of options such as all + * those that require a redisplay when they + * change. Tk_SetOptions returns the bit-wise + * OR of the typeMasks of all options that + * were changed. */ +} Tk_OptionSpec; + +/* + * Flag values for Tk_OptionSpec structures. These flags are shared by + * Tk_ConfigSpec structures, so be sure to coordinate any changes + * carefully. + */ + +#define TK_OPTION_NULL_OK (1 << 0) +#define TK_OPTION_DONT_SET_DEFAULT (1 << 3) + +/* + * The following structure and function types are used by TK_OPTION_CUSTOM + * options; the structure holds pointers to the functions needed by the Tk + * option config code to handle a custom option. + */ + +typedef int (Tk_CustomOptionSetProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj **value, char *widgRec, + int offset, char *saveInternalPtr, int flags)); +typedef Tcl_Obj *(Tk_CustomOptionGetProc) _ANSI_ARGS_((ClientData clientData, + Tk_Window tkwin, char *widgRec, int offset)); +typedef void (Tk_CustomOptionRestoreProc) _ANSI_ARGS_((ClientData clientData, + Tk_Window tkwin, char *internalPtr, char *saveInternalPtr)); +typedef void (Tk_CustomOptionFreeProc) _ANSI_ARGS_((ClientData clientData, + Tk_Window tkwin, char *internalPtr)); + +typedef struct Tk_ObjCustomOption { + char *name; /* Name of the custom option. */ + Tk_CustomOptionSetProc *setProc; /* Function to use to set a record's + * option value from a Tcl_Obj */ + Tk_CustomOptionGetProc *getProc; /* Function to use to get a Tcl_Obj + * representation from an internal + * representation of an option. */ + Tk_CustomOptionRestoreProc *restoreProc; /* Function to use to restore a + * saved value for the internal + * representation. */ + Tk_CustomOptionFreeProc *freeProc; /* Function to use to free the internal + * representation of an option. */ + ClientData clientData; /* Arbitrary one-word value passed to + * the handling procs. */ +} Tk_ObjCustomOption; + + +/* + * Macro to use to fill in "offset" fields of the Tk_OptionSpec. + * struct. Computes number of bytes from beginning of structure + * to a given field. + */ + +#ifdef offsetof +#define Tk_Offset(type, field) ((int) offsetof(type, field)) +#else +#define Tk_Offset(type, field) ((int) ((char *) &((type *) 0)->field)) +#endif + +/* + * The following two structures are used for error handling. When + * configuration options are being modified, the old values are + * saved in a Tk_SavedOptions structure. If an error occurs, then the + * contents of the structure can be used to restore all of the old + * values. The contents of this structure are for the private use + * Tk. No-one outside Tk should ever read or write any of the fields + * of these structures. + */ + +typedef struct Tk_SavedOption { + struct TkOption *optionPtr; /* Points to information that describes + * the option. */ + Tcl_Obj *valuePtr; /* The old value of the option, in + * the form of a Tcl object; may be + * NULL if the value wasn't saved as + * an object. */ + double internalForm; /* The old value of the option, in + * some internal representation such + * as an int or (XColor *). Valid + * only if optionPtr->specPtr->objOffset + * is < 0. The space must be large + * enough to accommodate a double, a + * long, or a pointer; right now it + * looks like a double is big + * enough. Also, using a double + * guarantees that the field is + * properly aligned for storing large + * values. */ +} Tk_SavedOption; + +#ifdef TCL_MEM_DEBUG +# define TK_NUM_SAVED_OPTIONS 2 +#else +# define TK_NUM_SAVED_OPTIONS 20 +#endif + +typedef struct Tk_SavedOptions { + char *recordPtr; /* The data structure in which to + * restore configuration options. */ + Tk_Window tkwin; /* Window associated with recordPtr; + * needed to restore certain options. */ + int numItems; /* The number of valid items in + * items field. */ + Tk_SavedOption items[TK_NUM_SAVED_OPTIONS]; + /* Items used to hold old values. */ + struct Tk_SavedOptions *nextPtr; /* Points to next structure in list; + * needed if too many options changed + * to hold all the old values in a + * single structure. NULL means no + * more structures. */ +} Tk_SavedOptions; + +/* + * Structure used to describe application-specific configuration + * options: indicates procedures to call to parse an option and + * to return a text string describing an option. THESE ARE + * DEPRECATED; PLEASE USE THE NEW STRUCTURES LISTED ABOVE. + */ + +/* + * This is a temporary flag used while tkObjConfig and new widgets + * are in development. + */ + +#ifndef __NO_OLD_CONFIG + +typedef int (Tk_OptionParseProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, Tk_Window tkwin, CONST84 char *value, char *widgRec, + int offset)); +typedef char *(Tk_OptionPrintProc) _ANSI_ARGS_((ClientData clientData, + Tk_Window tkwin, char *widgRec, int offset, + Tcl_FreeProc **freeProcPtr)); + +typedef struct Tk_CustomOption { + Tk_OptionParseProc *parseProc; /* Procedure to call to parse an + * option and store it in converted + * form. */ + Tk_OptionPrintProc *printProc; /* Procedure to return a printable + * string describing an existing + * option. */ + ClientData clientData; /* Arbitrary one-word value used by + * option parser: passed to + * parseProc and printProc. */ +} Tk_CustomOption; + +/* + * Structure used to specify information for Tk_ConfigureWidget. Each + * structure gives complete information for one option, including + * how the option is specified on the command line, where it appears + * in the option database, etc. + */ + +typedef struct Tk_ConfigSpec { + int type; /* Type of option, such as TK_CONFIG_COLOR; + * see definitions below. Last option in + * table must have type TK_CONFIG_END. */ + char *argvName; /* Switch used to specify option in argv. + * NULL means this spec is part of a group. */ + Tk_Uid dbName; /* Name for option in option database. */ + Tk_Uid dbClass; /* Class for option in database. */ + Tk_Uid defValue; /* Default value for option if not + * specified in command line or database. */ + int offset; /* Where in widget record to store value; + * use Tk_Offset macro to generate values + * for this. */ + int specFlags; /* Any combination of the values defined + * below; other bits are used internally + * by tkConfig.c. */ + Tk_CustomOption *customPtr; /* If type is TK_CONFIG_CUSTOM then this is + * a pointer to info about how to parse and + * print the option. Otherwise it is + * irrelevant. */ +} Tk_ConfigSpec; + +/* + * Type values for Tk_ConfigSpec structures. See the user + * documentation for details. + */ + +typedef enum { + TK_CONFIG_BOOLEAN, TK_CONFIG_INT, TK_CONFIG_DOUBLE, TK_CONFIG_STRING, + TK_CONFIG_UID, TK_CONFIG_COLOR, TK_CONFIG_FONT, TK_CONFIG_BITMAP, + TK_CONFIG_BORDER, TK_CONFIG_RELIEF, TK_CONFIG_CURSOR, + TK_CONFIG_ACTIVE_CURSOR, TK_CONFIG_JUSTIFY, TK_CONFIG_ANCHOR, + TK_CONFIG_SYNONYM, TK_CONFIG_CAP_STYLE, TK_CONFIG_JOIN_STYLE, + TK_CONFIG_PIXELS, TK_CONFIG_MM, TK_CONFIG_WINDOW, TK_CONFIG_CUSTOM, + TK_CONFIG_END +} Tk_ConfigTypes; + +/* + * Possible values for flags argument to Tk_ConfigureWidget: + */ + +#define TK_CONFIG_ARGV_ONLY 1 +#define TK_CONFIG_OBJS 0x80 + +/* + * Possible flag values for Tk_ConfigSpec structures. Any bits at + * or above TK_CONFIG_USER_BIT may be used by clients for selecting + * certain entries. Before changing any values here, coordinate with + * tkOldConfig.c (internal-use-only flags are defined there). + */ + +#define TK_CONFIG_NULL_OK (1 << 0) +#define TK_CONFIG_COLOR_ONLY (1 << 1) +#define TK_CONFIG_MONO_ONLY (1 << 2) +#define TK_CONFIG_DONT_SET_DEFAULT (1 << 3) +#define TK_CONFIG_OPTION_SPECIFIED (1 << 4) +#define TK_CONFIG_USER_BIT 0x100 +#endif /* __NO_OLD_CONFIG */ + +/* + * Structure used to specify how to handle argv options. + */ + +typedef struct { + char *key; /* The key string that flags the option in the + * argv array. */ + int type; /* Indicates option type; see below. */ + char *src; /* Value to be used in setting dst; usage + * depends on type. */ + char *dst; /* Address of value to be modified; usage + * depends on type. */ + char *help; /* Documentation message describing this option. */ +} Tk_ArgvInfo; + +/* + * Legal values for the type field of a Tk_ArgvInfo: see the user + * documentation for details. + */ + +#define TK_ARGV_CONSTANT 15 +#define TK_ARGV_INT 16 +#define TK_ARGV_STRING 17 +#define TK_ARGV_UID 18 +#define TK_ARGV_REST 19 +#define TK_ARGV_FLOAT 20 +#define TK_ARGV_FUNC 21 +#define TK_ARGV_GENFUNC 22 +#define TK_ARGV_HELP 23 +#define TK_ARGV_CONST_OPTION 24 +#define TK_ARGV_OPTION_VALUE 25 +#define TK_ARGV_OPTION_NAME_VALUE 26 +#define TK_ARGV_END 27 + +/* + * Flag bits for passing to Tk_ParseArgv: + */ + +#define TK_ARGV_NO_DEFAULTS 0x1 +#define TK_ARGV_NO_LEFTOVERS 0x2 +#define TK_ARGV_NO_ABBREV 0x4 +#define TK_ARGV_DONT_SKIP_FIRST_ARG 0x8 + +/* + * Enumerated type for describing actions to be taken in response + * to a restrictProc established by Tk_RestrictEvents. + */ + +typedef enum { + TK_DEFER_EVENT, TK_PROCESS_EVENT, TK_DISCARD_EVENT +} Tk_RestrictAction; + +/* + * Priority levels to pass to Tk_AddOption: + */ + +#define TK_WIDGET_DEFAULT_PRIO 20 +#define TK_STARTUP_FILE_PRIO 40 +#define TK_USER_DEFAULT_PRIO 60 +#define TK_INTERACTIVE_PRIO 80 +#define TK_MAX_PRIO 100 + +/* + * Relief values returned by Tk_GetRelief: + */ + +#define TK_RELIEF_NULL -1 +#define TK_RELIEF_FLAT 0 +#define TK_RELIEF_GROOVE 1 +#define TK_RELIEF_RAISED 2 +#define TK_RELIEF_RIDGE 3 +#define TK_RELIEF_SOLID 4 +#define TK_RELIEF_SUNKEN 5 + +/* + * "Which" argument values for Tk_3DBorderGC: + */ + +#define TK_3D_FLAT_GC 1 +#define TK_3D_LIGHT_GC 2 +#define TK_3D_DARK_GC 3 + +/* + * Special EnterNotify/LeaveNotify "mode" for use in events + * generated by tkShare.c. Pick a high enough value that it's + * unlikely to conflict with existing values (like NotifyNormal) + * or any new values defined in the future. + */ + +#define TK_NOTIFY_SHARE 20 + +/* + * Enumerated type for describing a point by which to anchor something: + */ + +typedef enum { + TK_ANCHOR_N, TK_ANCHOR_NE, TK_ANCHOR_E, TK_ANCHOR_SE, + TK_ANCHOR_S, TK_ANCHOR_SW, TK_ANCHOR_W, TK_ANCHOR_NW, + TK_ANCHOR_CENTER +} Tk_Anchor; + +/* + * Enumerated type for describing a style of justification: + */ + +typedef enum { + TK_JUSTIFY_LEFT, TK_JUSTIFY_RIGHT, TK_JUSTIFY_CENTER +} Tk_Justify; + +/* + * The following structure is used by Tk_GetFontMetrics() to return + * information about the properties of a Tk_Font. + */ + +typedef struct Tk_FontMetrics { + int ascent; /* The amount in pixels that the tallest + * letter sticks up above the baseline, plus + * any extra blank space added by the designer + * of the font. */ + int descent; /* The largest amount in pixels that any + * letter sticks below the baseline, plus any + * extra blank space added by the designer of + * the font. */ + int linespace; /* The sum of the ascent and descent. How + * far apart two lines of text in the same + * font should be placed so that none of the + * characters in one line overlap any of the + * characters in the other line. */ +} Tk_FontMetrics; + +/* + * Flags passed to Tk_MeasureChars: + */ + +#define TK_WHOLE_WORDS 1 +#define TK_AT_LEAST_ONE 2 +#define TK_PARTIAL_OK 4 + +/* + * Flags passed to Tk_ComputeTextLayout: + */ + +#define TK_IGNORE_TABS 8 +#define TK_IGNORE_NEWLINES 16 + +/* + * Widget class procedures used to implement platform specific widget + * behavior. + */ + +typedef Window (Tk_ClassCreateProc) _ANSI_ARGS_((Tk_Window tkwin, + Window parent, ClientData instanceData)); +typedef void (Tk_ClassWorldChangedProc) _ANSI_ARGS_((ClientData instanceData)); +typedef void (Tk_ClassModalProc) _ANSI_ARGS_((Tk_Window tkwin, + XEvent *eventPtr)); + +typedef struct Tk_ClassProcs { + unsigned int size; + Tk_ClassWorldChangedProc *worldChangedProc; + /* Procedure to invoke when the widget needs to + * respond in some way to a change in the + * world (font changes, etc.) */ + Tk_ClassCreateProc *createProc; + /* Procedure to invoke when the + * platform-dependent window needs to be + * created. */ + Tk_ClassModalProc *modalProc; + /* Procedure to invoke after all bindings on a + * widget have been triggered in order to + * handle a modal loop. */ +} Tk_ClassProcs; + +/* + * Simple accessor for Tk_ClassProcs structure. Checks that the structure + * is not NULL, then checks the size field and returns either the requested + * field, if present, or NULL if the structure is too small to have the field + * (or NULL if the structure is NULL). + * + * A more general version of this function may be useful if other + * size-versioned structure pop up in the future: + * + * #define Tk_GetField(name, who, which) \ + * (((who) == NULL) ? NULL : + * (((who)->size <= Tk_Offset(name, which)) ? NULL :(name)->which)) + */ + +#define Tk_GetClassProc(procs, which) \ + (((procs) == NULL) ? NULL : \ + (((procs)->size <= Tk_Offset(Tk_ClassProcs, which)) ? NULL:(procs)->which)) + +/* + * Each geometry manager (the packer, the placer, etc.) is represented + * by a structure of the following form, which indicates procedures + * to invoke in the geometry manager to carry out certain functions. + */ + +typedef void (Tk_GeomRequestProc) _ANSI_ARGS_((ClientData clientData, + Tk_Window tkwin)); +typedef void (Tk_GeomLostSlaveProc) _ANSI_ARGS_((ClientData clientData, + Tk_Window tkwin)); + +typedef struct Tk_GeomMgr { + char *name; /* Name of the geometry manager (command + * used to invoke it, or name of widget + * class that allows embedded widgets). */ + Tk_GeomRequestProc *requestProc; + /* Procedure to invoke when a slave's + * requested geometry changes. */ + Tk_GeomLostSlaveProc *lostSlaveProc; + /* Procedure to invoke when a slave is + * taken away from one geometry manager + * by another. NULL means geometry manager + * doesn't care when slaves are lost. */ +} Tk_GeomMgr; + +/* + * Result values returned by Tk_GetScrollInfo: + */ + +#define TK_SCROLL_MOVETO 1 +#define TK_SCROLL_PAGES 2 +#define TK_SCROLL_UNITS 3 +#define TK_SCROLL_ERROR 4 + +/* + *--------------------------------------------------------------------------- + * + * Extensions to the X event set + * + *--------------------------------------------------------------------------- + */ + +#define VirtualEvent (MappingNotify + 1) +#define ActivateNotify (MappingNotify + 2) +#define DeactivateNotify (MappingNotify + 3) +#define MouseWheelEvent (MappingNotify + 4) +#define TK_LASTEVENT (MappingNotify + 5) + +#define MouseWheelMask (1L << 28) +#define ActivateMask (1L << 29) +#define VirtualEventMask (1L << 30) + +/* + * A virtual event shares most of its fields with the XKeyEvent and + * XButtonEvent structures. 99% of the time a virtual event will be + * an abstraction of a key or button event, so this structure provides + * the most information to the user. The only difference is the changing + * of the detail field for a virtual event so that it holds the name of the + * virtual event being triggered. + * + * When using this structure, if you want your code to work correctly + * in Tk 8.5 as well, you should ensure that you zero out all the + * fields first using memset() or bzero(). + */ + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* True if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; /* Window on which event was requested. */ + Window root; /* root window that the event occured on */ + Window subwindow; /* child window */ + Time time; /* milliseconds */ + int x, y; /* pointer x, y coordinates in event window */ + int x_root, y_root; /* coordinates relative to root */ + unsigned int state; /* key or button mask */ + Tk_Uid name; /* Name of virtual event. */ + Bool same_screen; /* same screen flag */ + Tcl_Obj *user_data; /* not used in Tk 8.4 */ +} XVirtualEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* True if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* Window in which event occurred. */ +} XActivateDeactivateEvent; +typedef XActivateDeactivateEvent XActivateEvent; +typedef XActivateDeactivateEvent XDeactivateEvent; + +/* + *-------------------------------------------------------------- + * + * Macros for querying Tk_Window structures. See the + * manual entries for documentation. + * + *-------------------------------------------------------------- + */ + +#define Tk_Display(tkwin) (((Tk_FakeWin *) (tkwin))->display) +#define Tk_ScreenNumber(tkwin) (((Tk_FakeWin *) (tkwin))->screenNum) +#define Tk_Screen(tkwin) (ScreenOfDisplay(Tk_Display(tkwin), \ + Tk_ScreenNumber(tkwin))) +#define Tk_Depth(tkwin) (((Tk_FakeWin *) (tkwin))->depth) +#define Tk_Visual(tkwin) (((Tk_FakeWin *) (tkwin))->visual) +#define Tk_WindowId(tkwin) (((Tk_FakeWin *) (tkwin))->window) +#define Tk_PathName(tkwin) (((Tk_FakeWin *) (tkwin))->pathName) +#define Tk_Name(tkwin) (((Tk_FakeWin *) (tkwin))->nameUid) +#define Tk_Class(tkwin) (((Tk_FakeWin *) (tkwin))->classUid) +#define Tk_X(tkwin) (((Tk_FakeWin *) (tkwin))->changes.x) +#define Tk_Y(tkwin) (((Tk_FakeWin *) (tkwin))->changes.y) +#define Tk_Width(tkwin) (((Tk_FakeWin *) (tkwin))->changes.width) +#define Tk_Height(tkwin) \ + (((Tk_FakeWin *) (tkwin))->changes.height) +#define Tk_Changes(tkwin) (&((Tk_FakeWin *) (tkwin))->changes) +#define Tk_Attributes(tkwin) (&((Tk_FakeWin *) (tkwin))->atts) +#define Tk_IsEmbedded(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_EMBEDDED) +#define Tk_IsContainer(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_CONTAINER) +#define Tk_IsMapped(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_MAPPED) +#define Tk_IsTopLevel(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_LEVEL) +#define Tk_HasWrapper(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_HAS_WRAPPER) +#define Tk_WinManaged(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_WIN_MANAGED) +#define Tk_TopWinHierarchy(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_HIERARCHY) +#define Tk_ReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->reqWidth) +#define Tk_ReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->reqHeight) +/* Tk_InternalBorderWidth is deprecated */ +#define Tk_InternalBorderWidth(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderLeft) +#define Tk_InternalBorderLeft(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderLeft) +#define Tk_InternalBorderRight(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderRight) +#define Tk_InternalBorderTop(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderTop) +#define Tk_InternalBorderBottom(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderBottom) +#define Tk_MinReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->minReqWidth) +#define Tk_MinReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->minReqHeight) +#define Tk_Parent(tkwin) (((Tk_FakeWin *) (tkwin))->parentPtr) +#define Tk_Colormap(tkwin) (((Tk_FakeWin *) (tkwin))->atts.colormap) + +/* + * The structure below is needed by the macros above so that they can + * access the fields of a Tk_Window. The fields not needed by the macros + * are declared as "dummyX". The structure has its own type in order to + * prevent applications from accessing Tk_Window fields except using + * official macros. WARNING!! The structure definition must be kept + * consistent with the TkWindow structure in tkInt.h. If you change one, + * then change the other. See the declaration in tkInt.h for + * documentation on what the fields are used for internally. + */ + +typedef struct Tk_FakeWin { + Display *display; + char *dummy1; /* dispPtr */ + int screenNum; + Visual *visual; + int depth; + Window window; + char *dummy2; /* childList */ + char *dummy3; /* lastChildPtr */ + Tk_Window parentPtr; /* parentPtr */ + char *dummy4; /* nextPtr */ + char *dummy5; /* mainPtr */ + char *pathName; + Tk_Uid nameUid; + Tk_Uid classUid; + XWindowChanges changes; + unsigned int dummy6; /* dirtyChanges */ + XSetWindowAttributes atts; + unsigned long dummy7; /* dirtyAtts */ + unsigned int flags; + char *dummy8; /* handlerList */ +#ifdef TK_USE_INPUT_METHODS + XIC dummy9; /* inputContext */ +#endif /* TK_USE_INPUT_METHODS */ + ClientData *dummy10; /* tagPtr */ + int dummy11; /* numTags */ + int dummy12; /* optionLevel */ + char *dummy13; /* selHandlerList */ + char *dummy14; /* geomMgrPtr */ + ClientData dummy15; /* geomData */ + int reqWidth, reqHeight; + int internalBorderLeft; + char *dummy16; /* wmInfoPtr */ + char *dummy17; /* classProcPtr */ + ClientData dummy18; /* instanceData */ + char *dummy19; /* privatePtr */ + int internalBorderRight; + int internalBorderTop; + int internalBorderBottom; + int minReqWidth; + int minReqHeight; +} Tk_FakeWin; + +/* + * Flag values for TkWindow (and Tk_FakeWin) structures are: + * + * TK_MAPPED: 1 means window is currently mapped, + * 0 means unmapped. + * TK_TOP_LEVEL: 1 means this is a top-level widget. + * TK_ALREADY_DEAD: 1 means the window is in the process of + * being destroyed already. + * TK_NEED_CONFIG_NOTIFY: 1 means that the window has been reconfigured + * before it was made to exist. At the time of + * making it exist a ConfigureNotify event needs + * to be generated. + * TK_GRAB_FLAG: Used to manage grabs. See tkGrab.c for + * details. + * TK_CHECKED_IC: 1 means we've already tried to get an input + * context for this window; if the ic field + * is NULL it means that there isn't a context + * for the field. + * TK_DONT_DESTROY_WINDOW: 1 means that Tk_DestroyWindow should not + * invoke XDestroyWindow to destroy this widget's + * X window. The flag is set when the window + * has already been destroyed elsewhere (e.g. + * by another application) or when it will be + * destroyed later (e.g. by destroying its + * parent). + * TK_WM_COLORMAP_WINDOW: 1 means that this window has at some time + * appeared in the WM_COLORMAP_WINDOWS property + * for its toplevel, so we have to remove it + * from that property if the window is + * deleted and the toplevel isn't. + * TK_EMBEDDED: 1 means that this window (which must be a + * toplevel) is not a free-standing window but + * rather is embedded in some other application. + * TK_CONTAINER: 1 means that this window is a container, and + * that some other application (either in + * this process or elsewhere) may be + * embedding itself inside the window. + * TK_BOTH_HALVES: 1 means that this window is used for + * application embedding (either as + * container or embedded application), and + * both the containing and embedded halves + * are associated with windows in this + * particular process. + * TK_DEFER_MODAL: 1 means that this window has deferred a modal + * loop until all of the bindings for the current + * event have been invoked. + * TK_WRAPPER: 1 means that this window is the extra + * wrapper window created around a toplevel + * to hold the menubar under Unix. See + * tkUnixWm.c for more information. + * TK_REPARENTED: 1 means that this window has been reparented + * so that as far as the window system is + * concerned it isn't a child of its Tk + * parent. Initially this is used only for + * special Unix menubar windows. + * TK_ANONYMOUS_WINDOW: 1 means that this window has no name, and is + * thus not accessible from Tk. + * TK_HAS_WRAPPER 1 means that this window has a wrapper window + * TK_WIN_MANAGED 1 means that this window is a child of the + * root window, and is managed by the window + * manager. + * TK_TOP_HIERARCHY 1 means this window is at the top of a + * physical window hierarchy within this + * process, i.e. the window's parent + * either doesn't exist or is not owned by + * this Tk application. + * TK_PROP_PROPCHANGE 1 means that PropertyNotify events in + * this window's children should propagate + * up to this window. + */ + + +#define TK_MAPPED 1 +#define TK_TOP_LEVEL 2 +#define TK_ALREADY_DEAD 4 +#define TK_NEED_CONFIG_NOTIFY 8 +#define TK_GRAB_FLAG 0x10 +#define TK_CHECKED_IC 0x20 +#define TK_DONT_DESTROY_WINDOW 0x40 +#define TK_WM_COLORMAP_WINDOW 0x80 +#define TK_EMBEDDED 0x100 +#define TK_CONTAINER 0x200 +#define TK_BOTH_HALVES 0x400 +#define TK_DEFER_MODAL 0x800 +#define TK_WRAPPER 0x1000 +#define TK_REPARENTED 0x2000 +#define TK_ANONYMOUS_WINDOW 0x4000 +#define TK_HAS_WRAPPER 0x8000 +#define TK_WIN_MANAGED 0x10000 +#define TK_TOP_HIERARCHY 0x20000 +#define TK_PROP_PROPCHANGE 0x40000 + +/* + *-------------------------------------------------------------- + * + * Procedure prototypes and structures used for defining new canvas + * items: + * + *-------------------------------------------------------------- + */ + +typedef enum { + TK_STATE_NULL = -1, TK_STATE_ACTIVE, TK_STATE_DISABLED, + TK_STATE_NORMAL, TK_STATE_HIDDEN +} Tk_State; + +typedef struct Tk_SmoothMethod { + char *name; + int (*coordProc) _ANSI_ARGS_((Tk_Canvas canvas, + double *pointPtr, int numPoints, int numSteps, + XPoint xPoints[], double dblPoints[])); + void (*postscriptProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, double *coordPtr, + int numPoints, int numSteps)); +} Tk_SmoothMethod; + +/* + * For each item in a canvas widget there exists one record with + * the following structure. Each actual item is represented by + * a record with the following stuff at its beginning, plus additional + * type-specific stuff after that. + */ + +#define TK_TAG_SPACE 3 + +typedef struct Tk_Item { + int id; /* Unique identifier for this item + * (also serves as first tag for + * item). */ + struct Tk_Item *nextPtr; /* Next in display list of all + * items in this canvas. Later items + * in list are drawn on top of earlier + * ones. */ + Tk_Uid staticTagSpace[TK_TAG_SPACE];/* Built-in space for limited # of + * tags. */ + Tk_Uid *tagPtr; /* Pointer to array of tags. Usually + * points to staticTagSpace, but + * may point to malloc-ed space if + * there are lots of tags. */ + int tagSpace; /* Total amount of tag space available + * at tagPtr. */ + int numTags; /* Number of tag slots actually used + * at *tagPtr. */ + struct Tk_ItemType *typePtr; /* Table of procedures that implement + * this type of item. */ + int x1, y1, x2, y2; /* Bounding box for item, in integer + * canvas units. Set by item-specific + * code and guaranteed to contain every + * pixel drawn in item. Item area + * includes x1 and y1 but not x2 + * and y2. */ + struct Tk_Item *prevPtr; /* Previous in display list of all + * items in this canvas. Later items + * in list are drawn just below earlier + * ones. */ + Tk_State state; /* state of item */ + char *reserved1; /* reserved for future use */ + int redraw_flags; /* some flags used in the canvas */ + + /* + *------------------------------------------------------------------ + * Starting here is additional type-specific stuff; see the + * declarations for individual types to see what is part of + * each type. The actual space below is determined by the + * "itemInfoSize" of the type's Tk_ItemType record. + *------------------------------------------------------------------ + */ +} Tk_Item; + +/* + * Flag bits for canvases (redraw_flags): + * + * TK_ITEM_STATE_DEPENDANT - 1 means that object needs to be + * redrawn if the canvas state changes. + * TK_ITEM_DONT_REDRAW - 1 means that the object redraw is already + * been prepared, so the general canvas code + * doesn't need to do that any more. + */ + +#define TK_ITEM_STATE_DEPENDANT 1 +#define TK_ITEM_DONT_REDRAW 2 + +/* + * Records of the following type are used to describe a type of + * item (e.g. lines, circles, etc.) that can form part of a + * canvas widget. + */ + +#ifdef USE_OLD_CANVAS +typedef int Tk_ItemCreateProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int argc, + char **argv)); +typedef int Tk_ItemConfigureProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int argc, + char **argv, int flags)); +typedef int Tk_ItemCoordProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int argc, + char **argv)); +#else +typedef int Tk_ItemCreateProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int argc, + Tcl_Obj *CONST objv[])); +typedef int Tk_ItemConfigureProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int argc, + Tcl_Obj *CONST objv[], int flags)); +typedef int Tk_ItemCoordProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int argc, + Tcl_Obj *CONST argv[])); +#endif +typedef void Tk_ItemDeleteProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, Display *display)); +typedef void Tk_ItemDisplayProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, Display *display, Drawable dst, + int x, int y, int width, int height)); +typedef double Tk_ItemPointProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, double *pointPtr)); +typedef int Tk_ItemAreaProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, double *rectPtr)); +typedef int Tk_ItemPostscriptProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int prepass)); +typedef void Tk_ItemScaleProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, double originX, double originY, + double scaleX, double scaleY)); +typedef void Tk_ItemTranslateProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, double deltaX, double deltaY)); +typedef int Tk_ItemIndexProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, char *indexString, + int *indexPtr)); +typedef void Tk_ItemCursorProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, int index)); +typedef int Tk_ItemSelectionProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, int offset, char *buffer, + int maxBytes)); +typedef void Tk_ItemInsertProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, int beforeThis, char *string)); +typedef void Tk_ItemDCharsProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, int first, int last)); + +#ifndef __NO_OLD_CONFIG + +typedef struct Tk_ItemType { + char *name; /* The name of this type of item, such + * as "line". */ + int itemSize; /* Total amount of space needed for + * item's record. */ + Tk_ItemCreateProc *createProc; /* Procedure to create a new item of + * this type. */ + Tk_ConfigSpec *configSpecs; /* Pointer to array of configuration + * specs for this type. Used for + * returning configuration info. */ + Tk_ItemConfigureProc *configProc; /* Procedure to call to change + * configuration options. */ + Tk_ItemCoordProc *coordProc; /* Procedure to call to get and set + * the item's coordinates. */ + Tk_ItemDeleteProc *deleteProc; /* Procedure to delete existing item of + * this type. */ + Tk_ItemDisplayProc *displayProc; /* Procedure to display items of + * this type. */ + int alwaysRedraw; /* Non-zero means displayProc should + * be called even when the item has + * been moved off-screen. */ + Tk_ItemPointProc *pointProc; /* Computes distance from item to + * a given point. */ + Tk_ItemAreaProc *areaProc; /* Computes whether item is inside, + * outside, or overlapping an area. */ + Tk_ItemPostscriptProc *postscriptProc; + /* Procedure to write a Postscript + * description for items of this + * type. */ + Tk_ItemScaleProc *scaleProc; /* Procedure to rescale items of + * this type. */ + Tk_ItemTranslateProc *translateProc;/* Procedure to translate items of + * this type. */ + Tk_ItemIndexProc *indexProc; /* Procedure to determine index of + * indicated character. NULL if + * item doesn't support indexing. */ + Tk_ItemCursorProc *icursorProc; /* Procedure to set insert cursor pos. + * to just before a given position. */ + Tk_ItemSelectionProc *selectionProc;/* Procedure to return selection (in + * STRING format) when it is in this + * item. */ + Tk_ItemInsertProc *insertProc; /* Procedure to insert something into + * an item. */ + Tk_ItemDCharsProc *dCharsProc; /* Procedure to delete characters + * from an item. */ + struct Tk_ItemType *nextPtr; /* Used to link types together into + * a list. */ + char *reserved1; /* Reserved for future extension. */ + int reserved2; /* Carefully compatible with */ + char *reserved3; /* Jan Nijtmans dash patch */ + char *reserved4; +} Tk_ItemType; + +#endif + +/* + * The following structure provides information about the selection and + * the insertion cursor. It is needed by only a few items, such as + * those that display text. It is shared by the generic canvas code + * and the item-specific code, but most of the fields should be written + * only by the canvas generic code. + */ + +typedef struct Tk_CanvasTextInfo { + Tk_3DBorder selBorder; /* Border and background for selected + * characters. Read-only to items.*/ + int selBorderWidth; /* Width of border around selection. + * Read-only to items. */ + XColor *selFgColorPtr; /* Foreground color for selected text. + * Read-only to items. */ + Tk_Item *selItemPtr; /* Pointer to selected item. NULL means + * selection isn't in this canvas. + * Writable by items. */ + int selectFirst; /* Character index of first selected + * character. Writable by items. */ + int selectLast; /* Character index of last selected + * character. Writable by items. */ + Tk_Item *anchorItemPtr; /* Item corresponding to "selectAnchor": + * not necessarily selItemPtr. Read-only + * to items. */ + int selectAnchor; /* Character index of fixed end of + * selection (i.e. "select to" operation will + * use this as one end of the selection). + * Writable by items. */ + Tk_3DBorder insertBorder; /* Used to draw vertical bar for insertion + * cursor. Read-only to items. */ + int insertWidth; /* Total width of insertion cursor. Read-only + * to items. */ + int insertBorderWidth; /* Width of 3-D border around insert cursor. + * Read-only to items. */ + Tk_Item *focusItemPtr; /* Item that currently has the input focus, + * or NULL if no such item. Read-only to + * items. */ + int gotFocus; /* Non-zero means that the canvas widget has + * the input focus. Read-only to items.*/ + int cursorOn; /* Non-zero means that an insertion cursor + * should be displayed in focusItemPtr. + * Read-only to items.*/ +} Tk_CanvasTextInfo; + +/* + * Structures used for Dashing and Outline. + */ + +typedef struct Tk_Dash { + int number; + union { + char *pt; + char array[sizeof(char *)]; + } pattern; +} Tk_Dash; + +typedef struct Tk_TSOffset { + int flags; /* flags; see below for possible values */ + int xoffset; /* x offset */ + int yoffset; /* y offset */ +} Tk_TSOffset; + +/* + * Bit fields in Tk_Offset->flags: + */ + +#define TK_OFFSET_INDEX 1 +#define TK_OFFSET_RELATIVE 2 +#define TK_OFFSET_LEFT 4 +#define TK_OFFSET_CENTER 8 +#define TK_OFFSET_RIGHT 16 +#define TK_OFFSET_TOP 32 +#define TK_OFFSET_MIDDLE 64 +#define TK_OFFSET_BOTTOM 128 + +typedef struct Tk_Outline { + GC gc; /* Graphics context. */ + double width; /* Width of outline. */ + double activeWidth; /* Width of outline. */ + double disabledWidth; /* Width of outline. */ + int offset; /* Dash offset */ + Tk_Dash dash; /* Dash pattern */ + Tk_Dash activeDash; /* Dash pattern if state is active*/ + Tk_Dash disabledDash; /* Dash pattern if state is disabled*/ + VOID *reserved1; /* reserved for future expansion */ + VOID *reserved2; + VOID *reserved3; + Tk_TSOffset tsoffset; /* stipple offset for outline*/ + XColor *color; /* Outline color. */ + XColor *activeColor; /* Outline color if state is active. */ + XColor *disabledColor; /* Outline color if state is disabled. */ + Pixmap stipple; /* Outline Stipple pattern. */ + Pixmap activeStipple; /* Outline Stipple pattern if state is active. */ + Pixmap disabledStipple; /* Outline Stipple pattern if state is disabled. */ +} Tk_Outline; + + +/* + *-------------------------------------------------------------- + * + * Procedure prototypes and structures used for managing images: + * + *-------------------------------------------------------------- + */ + +typedef struct Tk_ImageType Tk_ImageType; +#ifdef USE_OLD_IMAGE +typedef int (Tk_ImageCreateProc) _ANSI_ARGS_((Tcl_Interp *interp, + char *name, int argc, char **argv, Tk_ImageType *typePtr, + Tk_ImageMaster master, ClientData *masterDataPtr)); +#else +typedef int (Tk_ImageCreateProc) _ANSI_ARGS_((Tcl_Interp *interp, + char *name, int objc, Tcl_Obj *CONST objv[], Tk_ImageType *typePtr, + Tk_ImageMaster master, ClientData *masterDataPtr)); +#endif +typedef ClientData (Tk_ImageGetProc) _ANSI_ARGS_((Tk_Window tkwin, + ClientData masterData)); +typedef void (Tk_ImageDisplayProc) _ANSI_ARGS_((ClientData instanceData, + Display *display, Drawable drawable, int imageX, int imageY, + int width, int height, int drawableX, int drawableY)); +typedef void (Tk_ImageFreeProc) _ANSI_ARGS_((ClientData instanceData, + Display *display)); +typedef void (Tk_ImageDeleteProc) _ANSI_ARGS_((ClientData masterData)); +typedef void (Tk_ImageChangedProc) _ANSI_ARGS_((ClientData clientData, + int x, int y, int width, int height, int imageWidth, + int imageHeight)); +typedef int (Tk_ImagePostscriptProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, + int x, int y, int width, int height, int prepass)); + +/* + * The following structure represents a particular type of image + * (bitmap, xpm image, etc.). It provides information common to + * all images of that type, such as the type name and a collection + * of procedures in the image manager that respond to various + * events. Each image manager is represented by one of these + * structures. + */ + +struct Tk_ImageType { + char *name; /* Name of image type. */ + Tk_ImageCreateProc *createProc; + /* Procedure to call to create a new image + * of this type. */ + Tk_ImageGetProc *getProc; /* Procedure to call the first time + * Tk_GetImage is called in a new way + * (new visual or screen). */ + Tk_ImageDisplayProc *displayProc; + /* Call to draw image, in response to + * Tk_RedrawImage calls. */ + Tk_ImageFreeProc *freeProc; /* Procedure to call whenever Tk_FreeImage + * is called to release an instance of an + * image. */ + Tk_ImageDeleteProc *deleteProc; + /* Procedure to call to delete image. It + * will not be called until after freeProc + * has been called for each instance of the + * image. */ + Tk_ImagePostscriptProc *postscriptProc; + /* Procedure to call to produce postscript + * output for the image. */ + struct Tk_ImageType *nextPtr; + /* Next in list of all image types currently + * known. Filled in by Tk, not by image + * manager. */ + char *reserved; /* reserved for future expansion */ +}; + +/* + *-------------------------------------------------------------- + * + * Additional definitions used to manage images of type "photo". + * + *-------------------------------------------------------------- + */ + +/* + * The following type is used to identify a particular photo image + * to be manipulated: + */ + +typedef void *Tk_PhotoHandle; + +/* + * The following structure describes a block of pixels in memory: + */ + +typedef struct Tk_PhotoImageBlock { + unsigned char *pixelPtr; /* Pointer to the first pixel. */ + int width; /* Width of block, in pixels. */ + int height; /* Height of block, in pixels. */ + int pitch; /* Address difference between corresponding + * pixels in successive lines. */ + int pixelSize; /* Address difference between successive + * pixels in the same line. */ + int offset[4]; /* Address differences between the red, green, + * blue and alpha components of the pixel and + * the pixel as a whole. */ +} Tk_PhotoImageBlock; + +/* + * The following values control how blocks are combined into photo + * images when the alpha component of a pixel is not 255, a.k.a. the + * compositing rule. + */ + +#define TK_PHOTO_COMPOSITE_OVERLAY 0 +#define TK_PHOTO_COMPOSITE_SET 1 + +/* + * Procedure prototypes and structures used in reading and + * writing photo images: + */ + +typedef struct Tk_PhotoImageFormat Tk_PhotoImageFormat; +#ifdef USE_OLD_IMAGE +typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((Tcl_Channel chan, + char *fileName, char *formatString, int *widthPtr, int *heightPtr)); +typedef int (Tk_ImageStringMatchProc) _ANSI_ARGS_((char *string, + char *formatString, int *widthPtr, int *heightPtr)); +typedef int (Tk_ImageFileReadProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Channel chan, char *fileName, char *formatString, + Tk_PhotoHandle imageHandle, int destX, int destY, + int width, int height, int srcX, int srcY)); +typedef int (Tk_ImageStringReadProc) _ANSI_ARGS_((Tcl_Interp *interp, + char *string, char *formatString, Tk_PhotoHandle imageHandle, + int destX, int destY, int width, int height, int srcX, int srcY)); +typedef int (Tk_ImageFileWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, + char *fileName, char *formatString, Tk_PhotoImageBlock *blockPtr)); +typedef int (Tk_ImageStringWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_DString *dataPtr, char *formatString, + Tk_PhotoImageBlock *blockPtr)); +#else +typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((Tcl_Channel chan, + CONST char *fileName, Tcl_Obj *format, int *widthPtr, + int *heightPtr, Tcl_Interp *interp)); +typedef int (Tk_ImageStringMatchProc) _ANSI_ARGS_((Tcl_Obj *dataObj, + Tcl_Obj *format, int *widthPtr, int *heightPtr, + Tcl_Interp *interp)); +typedef int (Tk_ImageFileReadProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Channel chan, CONST char *fileName, Tcl_Obj *format, + Tk_PhotoHandle imageHandle, int destX, int destY, + int width, int height, int srcX, int srcY)); +typedef int (Tk_ImageStringReadProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *dataObj, Tcl_Obj *format, Tk_PhotoHandle imageHandle, + int destX, int destY, int width, int height, int srcX, int srcY)); +typedef int (Tk_ImageFileWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *fileName, Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr)); +typedef int (Tk_ImageStringWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr)); +#endif + +/* + * The following structure represents a particular file format for + * storing images (e.g., PPM, GIF, JPEG, etc.). It provides information + * to allow image files of that format to be recognized and read into + * a photo image. + */ + +struct Tk_PhotoImageFormat { + char *name; /* Name of image file format */ + Tk_ImageFileMatchProc *fileMatchProc; + /* Procedure to call to determine whether + * an image file matches this format. */ + Tk_ImageStringMatchProc *stringMatchProc; + /* Procedure to call to determine whether + * the data in a string matches this format. */ + Tk_ImageFileReadProc *fileReadProc; + /* Procedure to call to read data from + * an image file into a photo image. */ + Tk_ImageStringReadProc *stringReadProc; + /* Procedure to call to read data from + * a string into a photo image. */ + Tk_ImageFileWriteProc *fileWriteProc; + /* Procedure to call to write data from + * a photo image to a file. */ + Tk_ImageStringWriteProc *stringWriteProc; + /* Procedure to call to obtain a string + * representation of the data in a photo + * image.*/ + struct Tk_PhotoImageFormat *nextPtr; + /* Next in list of all photo image formats + * currently known. Filled in by Tk, not + * by image format handler. */ +}; + +EXTERN void Tk_CreateOldImageType _ANSI_ARGS_(( + Tk_ImageType *typePtr)); +EXTERN void Tk_CreateOldPhotoImageFormat _ANSI_ARGS_(( + Tk_PhotoImageFormat *formatPtr)); + +#if !defined(USE_TK_STUBS) && defined(USE_OLD_IMAGE) +#define Tk_CreateImageType Tk_CreateOldImageType +#define Tk_CreatePhotoImageFormat Tk_CreateOldPhotoImageFormat +#endif + + +/* + *-------------------------------------------------------------- + * + * Procedure prototypes and structures used for managing styles: + * + *-------------------------------------------------------------- + */ + +/* + * Style support version tag. + */ +#define TK_STYLE_VERSION_1 0x1 +#define TK_STYLE_VERSION TK_STYLE_VERSION_1 + +/* + * The following structures and prototypes are used as static templates to + * declare widget elements. + */ + +typedef void (Tk_GetElementSizeProc) _ANSI_ARGS_((ClientData clientData, + char *recordPtr, CONST Tk_OptionSpec **optionsPtr, Tk_Window tkwin, + int width, int height, int inner, int *widthPtr, int *heightPtr)); +typedef void (Tk_GetElementBoxProc) _ANSI_ARGS_((ClientData clientData, + char *recordPtr, CONST Tk_OptionSpec **optionsPtr, Tk_Window tkwin, + int x, int y, int width, int height, int inner, int *xPtr, int *yPtr, + int *widthPtr, int *heightPtr)); +typedef int (Tk_GetElementBorderWidthProc) _ANSI_ARGS_((ClientData clientData, + char *recordPtr, CONST Tk_OptionSpec **optionsPtr, Tk_Window tkwin)); +typedef void (Tk_DrawElementProc) _ANSI_ARGS_((ClientData clientData, + char *recordPtr, CONST Tk_OptionSpec **optionsPtr, Tk_Window tkwin, + Drawable d, int x, int y, int width, int height, int state)); + +typedef struct Tk_ElementOptionSpec { + char *name; /* Name of the required option. */ + Tk_OptionType type; /* Accepted option type. TK_OPTION_END means + * any. */ +} Tk_ElementOptionSpec; + +typedef struct Tk_ElementSpec { + int version; /* Version of the style support. */ + char *name; /* Name of element. */ + Tk_ElementOptionSpec *options; + /* List of required options. Last one's name + * must be NULL. */ + + /* + * Hooks + */ + + Tk_GetElementSizeProc *getSize; + /* Compute the external (resp. internal) size of + * the element from its desired internal (resp. + * external) size. */ + Tk_GetElementBoxProc *getBox; + /* Compute the inscribed or bounding boxes + * within a given area. */ + Tk_GetElementBorderWidthProc *getBorderWidth; + /* Return the element's internal border width. + * Mostly useful for widgets. */ + Tk_DrawElementProc *draw; /* Draw the element in the given bounding box.*/ +} Tk_ElementSpec; + +/* + * Element state flags. Can be OR'ed. + */ + +#define TK_ELEMENT_STATE_ACTIVE 1<<0 +#define TK_ELEMENT_STATE_DISABLED 1<<1 +#define TK_ELEMENT_STATE_FOCUS 1<<2 +#define TK_ELEMENT_STATE_PRESSED 1<<3 + +/* + *-------------------------------------------------------------- + * + * The definitions below provide backward compatibility for + * functions and types related to event handling that used to + * be in Tk but have moved to Tcl. + * + *-------------------------------------------------------------- + */ + +#define TK_READABLE TCL_READABLE +#define TK_WRITABLE TCL_WRITABLE +#define TK_EXCEPTION TCL_EXCEPTION + +#define TK_DONT_WAIT TCL_DONT_WAIT +#define TK_X_EVENTS TCL_WINDOW_EVENTS +#define TK_WINDOW_EVENTS TCL_WINDOW_EVENTS +#define TK_FILE_EVENTS TCL_FILE_EVENTS +#define TK_TIMER_EVENTS TCL_TIMER_EVENTS +#define TK_IDLE_EVENTS TCL_IDLE_EVENTS +#define TK_ALL_EVENTS TCL_ALL_EVENTS + +#define Tk_IdleProc Tcl_IdleProc +#define Tk_FileProc Tcl_FileProc +#define Tk_TimerProc Tcl_TimerProc +#define Tk_TimerToken Tcl_TimerToken + +#define Tk_BackgroundError Tcl_BackgroundError +#define Tk_CancelIdleCall Tcl_CancelIdleCall +#define Tk_CreateFileHandler Tcl_CreateFileHandler +#define Tk_CreateTimerHandler Tcl_CreateTimerHandler +#define Tk_DeleteFileHandler Tcl_DeleteFileHandler +#define Tk_DeleteTimerHandler Tcl_DeleteTimerHandler +#define Tk_DoOneEvent Tcl_DoOneEvent +#define Tk_DoWhenIdle Tcl_DoWhenIdle +#define Tk_Sleep Tcl_Sleep + +/* Additional stuff that has moved to Tcl: */ + +#define Tk_EventuallyFree Tcl_EventuallyFree +#define Tk_FreeProc Tcl_FreeProc +#define Tk_Preserve Tcl_Preserve +#define Tk_Release Tcl_Release + +/* Removed Tk_Main, use macro instead */ +#define Tk_Main(argc, argv, proc) \ + Tk_MainEx(argc, argv, proc, Tcl_CreateInterp()) + +CONST char *Tk_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, char *version, int exact)); + +#ifndef USE_TK_STUBS + +#define Tk_InitStubs(interp, version, exact) \ + Tcl_PkgRequire(interp, "Tk", version, exact) + +#endif + +void Tk_InitImageArgs _ANSI_ARGS_((Tcl_Interp *interp, int argc, char ***argv)); + +#if !defined(USE_TK_STUBS) || !defined(USE_OLD_IMAGE) + +#define Tk_InitImageArgs(interp, argc, argv) /**/ + +#endif + + +/* + *-------------------------------------------------------------- + * + * Additional procedure types defined by Tk. + * + *-------------------------------------------------------------- + */ + +typedef int (Tk_ErrorProc) _ANSI_ARGS_((ClientData clientData, + XErrorEvent *errEventPtr)); +typedef void (Tk_EventProc) _ANSI_ARGS_((ClientData clientData, + XEvent *eventPtr)); +typedef int (Tk_GenericProc) _ANSI_ARGS_((ClientData clientData, + XEvent *eventPtr)); +typedef int (Tk_ClientMessageProc) _ANSI_ARGS_((Tk_Window tkwin, + XEvent *eventPtr)); +typedef int (Tk_GetSelProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, char *portion)); +typedef void (Tk_LostSelProc) _ANSI_ARGS_((ClientData clientData)); +typedef Tk_RestrictAction (Tk_RestrictProc) _ANSI_ARGS_(( + ClientData clientData, XEvent *eventPtr)); +typedef int (Tk_SelectionProc) _ANSI_ARGS_((ClientData clientData, + int offset, char *buffer, int maxBytes)); + + +/* + *-------------------------------------------------------------- + * + * Platform independant exported procedures and variables. + * + *-------------------------------------------------------------- + */ + +#include "tkDecls.h" + +/* + * Allow users to say that they don't want to alter their source to + * add the extra argument to Tk_PhotoPutBlock(); DO NOT DEFINE THIS + * WHEN BUILDING TK. + * + * This goes after the inclusion of the stubbed-decls so that the + * declarations of what is actually there can be correct. + */ + +#ifdef USE_COMPOSITELESS_PHOTO_PUT_BLOCK +# ifdef Tk_PhotoPutBlock +# undef Tk_PhotoPutBlock +# endif +# define Tk_PhotoPutBlock Tk_PhotoPutBlock_NoComposite +# ifdef Tk_PhotoPutZoomedBlock +# undef Tk_PhotoPutZoomedBlock +# endif +# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_NoComposite +#endif /* USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ + +/* + * Tcl commands exported by Tk: + */ + + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* RC_INVOKED */ + +/* + * end block for C++ + */ + +#ifdef __cplusplus +} +#endif + +#endif /* _TK */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tkDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tkDecls.h new file mode 100644 index 00000000..3c92ffbb --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tkDecls.h @@ -0,0 +1,2303 @@ +/* + * tkDecls.h -- + * + * Declarations of functions in the platform independent public Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TKDECLS +#define _TKDECLS + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tk.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported function declarations: + */ + +/* 0 */ +EXTERN void Tk_MainLoop _ANSI_ARGS_((void)); +/* 1 */ +EXTERN XColor * Tk_3DBorderColor _ANSI_ARGS_((Tk_3DBorder border)); +/* 2 */ +EXTERN GC Tk_3DBorderGC _ANSI_ARGS_((Tk_Window tkwin, + Tk_3DBorder border, int which)); +/* 3 */ +EXTERN void Tk_3DHorizontalBevel _ANSI_ARGS_((Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, int leftIn, + int rightIn, int topBevel, int relief)); +/* 4 */ +EXTERN void Tk_3DVerticalBevel _ANSI_ARGS_((Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, int leftBevel, + int relief)); +/* 5 */ +EXTERN void Tk_AddOption _ANSI_ARGS_((Tk_Window tkwin, + CONST char *name, CONST char *value, + int priority)); +/* 6 */ +EXTERN void Tk_BindEvent _ANSI_ARGS_(( + Tk_BindingTable bindingTable, + XEvent *eventPtr, Tk_Window tkwin, + int numObjects, ClientData *objectPtr)); +/* 7 */ +EXTERN void Tk_CanvasDrawableCoords _ANSI_ARGS_(( + Tk_Canvas canvas, double x, double y, + short *drawableXPtr, short *drawableYPtr)); +/* 8 */ +EXTERN void Tk_CanvasEventuallyRedraw _ANSI_ARGS_(( + Tk_Canvas canvas, int x1, int y1, int x2, + int y2)); +/* 9 */ +EXTERN int Tk_CanvasGetCoord _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, CONST char *str, + double *doublePtr)); +/* 10 */ +EXTERN Tk_CanvasTextInfo * Tk_CanvasGetTextInfo _ANSI_ARGS_(( + Tk_Canvas canvas)); +/* 11 */ +EXTERN int Tk_CanvasPsBitmap _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Pixmap bitmap, int x, + int y, int width, int height)); +/* 12 */ +EXTERN int Tk_CanvasPsColor _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, XColor *colorPtr)); +/* 13 */ +EXTERN int Tk_CanvasPsFont _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Font font)); +/* 14 */ +EXTERN void Tk_CanvasPsPath _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, double *coordPtr, + int numPoints)); +/* 15 */ +EXTERN int Tk_CanvasPsStipple _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Pixmap bitmap)); +/* 16 */ +EXTERN double Tk_CanvasPsY _ANSI_ARGS_((Tk_Canvas canvas, double y)); +/* 17 */ +EXTERN void Tk_CanvasSetStippleOrigin _ANSI_ARGS_(( + Tk_Canvas canvas, GC gc)); +/* 18 */ +EXTERN int Tk_CanvasTagsParseProc _ANSI_ARGS_(( + ClientData clientData, Tcl_Interp *interp, + Tk_Window tkwin, CONST char *value, + char *widgRec, int offset)); +/* 19 */ +EXTERN char * Tk_CanvasTagsPrintProc _ANSI_ARGS_(( + ClientData clientData, Tk_Window tkwin, + char *widgRec, int offset, + Tcl_FreeProc **freeProcPtr)); +/* 20 */ +EXTERN Tk_Window Tk_CanvasTkwin _ANSI_ARGS_((Tk_Canvas canvas)); +/* 21 */ +EXTERN void Tk_CanvasWindowCoords _ANSI_ARGS_((Tk_Canvas canvas, + double x, double y, short *screenXPtr, + short *screenYPtr)); +/* 22 */ +EXTERN void Tk_ChangeWindowAttributes _ANSI_ARGS_(( + Tk_Window tkwin, unsigned long valueMask, + XSetWindowAttributes *attsPtr)); +/* 23 */ +EXTERN int Tk_CharBbox _ANSI_ARGS_((Tk_TextLayout layout, + int index, int *xPtr, int *yPtr, + int *widthPtr, int *heightPtr)); +/* 24 */ +EXTERN void Tk_ClearSelection _ANSI_ARGS_((Tk_Window tkwin, + Atom selection)); +/* 25 */ +EXTERN int Tk_ClipboardAppend _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Atom target, Atom format, + char *buffer)); +/* 26 */ +EXTERN int Tk_ClipboardClear _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin)); +/* 27 */ +EXTERN int Tk_ConfigureInfo _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Tk_ConfigSpec *specs, + char *widgRec, CONST char *argvName, + int flags)); +/* 28 */ +EXTERN int Tk_ConfigureValue _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Tk_ConfigSpec *specs, + char *widgRec, CONST char *argvName, + int flags)); +/* 29 */ +EXTERN int Tk_ConfigureWidget _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Tk_ConfigSpec *specs, + int argc, CONST84 char **argv, char *widgRec, + int flags)); +/* 30 */ +EXTERN void Tk_ConfigureWindow _ANSI_ARGS_((Tk_Window tkwin, + unsigned int valueMask, + XWindowChanges *valuePtr)); +/* 31 */ +EXTERN Tk_TextLayout Tk_ComputeTextLayout _ANSI_ARGS_((Tk_Font font, + CONST char *str, int numChars, + int wrapLength, Tk_Justify justify, + int flags, int *widthPtr, int *heightPtr)); +/* 32 */ +EXTERN Tk_Window Tk_CoordsToWindow _ANSI_ARGS_((int rootX, int rootY, + Tk_Window tkwin)); +/* 33 */ +EXTERN unsigned long Tk_CreateBinding _ANSI_ARGS_((Tcl_Interp *interp, + Tk_BindingTable bindingTable, + ClientData object, CONST char *eventStr, + CONST char *script, int append)); +/* 34 */ +EXTERN Tk_BindingTable Tk_CreateBindingTable _ANSI_ARGS_(( + Tcl_Interp *interp)); +/* 35 */ +EXTERN Tk_ErrorHandler Tk_CreateErrorHandler _ANSI_ARGS_((Display *display, + int errNum, int request, int minorCode, + Tk_ErrorProc *errorProc, + ClientData clientData)); +/* 36 */ +EXTERN void Tk_CreateEventHandler _ANSI_ARGS_((Tk_Window token, + unsigned long mask, Tk_EventProc *proc, + ClientData clientData)); +/* 37 */ +EXTERN void Tk_CreateGenericHandler _ANSI_ARGS_(( + Tk_GenericProc *proc, ClientData clientData)); +/* 38 */ +EXTERN void Tk_CreateImageType _ANSI_ARGS_(( + Tk_ImageType *typePtr)); +/* 39 */ +EXTERN void Tk_CreateItemType _ANSI_ARGS_((Tk_ItemType *typePtr)); +/* 40 */ +EXTERN void Tk_CreatePhotoImageFormat _ANSI_ARGS_(( + Tk_PhotoImageFormat *formatPtr)); +/* 41 */ +EXTERN void Tk_CreateSelHandler _ANSI_ARGS_((Tk_Window tkwin, + Atom selection, Atom target, + Tk_SelectionProc *proc, + ClientData clientData, Atom format)); +/* 42 */ +EXTERN Tk_Window Tk_CreateWindow _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window parent, CONST char *name, + CONST char *screenName)); +/* 43 */ +EXTERN Tk_Window Tk_CreateWindowFromPath _ANSI_ARGS_(( + Tcl_Interp *interp, Tk_Window tkwin, + CONST char *pathName, CONST char *screenName)); +/* 44 */ +EXTERN int Tk_DefineBitmap _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name, CONST char *source, + int width, int height)); +/* 45 */ +EXTERN void Tk_DefineCursor _ANSI_ARGS_((Tk_Window window, + Tk_Cursor cursor)); +/* 46 */ +EXTERN void Tk_DeleteAllBindings _ANSI_ARGS_(( + Tk_BindingTable bindingTable, + ClientData object)); +/* 47 */ +EXTERN int Tk_DeleteBinding _ANSI_ARGS_((Tcl_Interp *interp, + Tk_BindingTable bindingTable, + ClientData object, CONST char *eventStr)); +/* 48 */ +EXTERN void Tk_DeleteBindingTable _ANSI_ARGS_(( + Tk_BindingTable bindingTable)); +/* 49 */ +EXTERN void Tk_DeleteErrorHandler _ANSI_ARGS_(( + Tk_ErrorHandler handler)); +/* 50 */ +EXTERN void Tk_DeleteEventHandler _ANSI_ARGS_((Tk_Window token, + unsigned long mask, Tk_EventProc *proc, + ClientData clientData)); +/* 51 */ +EXTERN void Tk_DeleteGenericHandler _ANSI_ARGS_(( + Tk_GenericProc *proc, ClientData clientData)); +/* 52 */ +EXTERN void Tk_DeleteImage _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name)); +/* 53 */ +EXTERN void Tk_DeleteSelHandler _ANSI_ARGS_((Tk_Window tkwin, + Atom selection, Atom target)); +/* 54 */ +EXTERN void Tk_DestroyWindow _ANSI_ARGS_((Tk_Window tkwin)); +/* 55 */ +EXTERN CONST84_RETURN char * Tk_DisplayName _ANSI_ARGS_((Tk_Window tkwin)); +/* 56 */ +EXTERN int Tk_DistanceToTextLayout _ANSI_ARGS_(( + Tk_TextLayout layout, int x, int y)); +/* 57 */ +EXTERN void Tk_Draw3DPolygon _ANSI_ARGS_((Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, + XPoint *pointPtr, int numPoints, + int borderWidth, int leftRelief)); +/* 58 */ +EXTERN void Tk_Draw3DRectangle _ANSI_ARGS_((Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, + int borderWidth, int relief)); +/* 59 */ +EXTERN void Tk_DrawChars _ANSI_ARGS_((Display *display, + Drawable drawable, GC gc, Tk_Font tkfont, + CONST char *source, int numBytes, int x, + int y)); +/* 60 */ +EXTERN void Tk_DrawFocusHighlight _ANSI_ARGS_((Tk_Window tkwin, + GC gc, int width, Drawable drawable)); +/* 61 */ +EXTERN void Tk_DrawTextLayout _ANSI_ARGS_((Display *display, + Drawable drawable, GC gc, + Tk_TextLayout layout, int x, int y, + int firstChar, int lastChar)); +/* 62 */ +EXTERN void Tk_Fill3DPolygon _ANSI_ARGS_((Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, + XPoint *pointPtr, int numPoints, + int borderWidth, int leftRelief)); +/* 63 */ +EXTERN void Tk_Fill3DRectangle _ANSI_ARGS_((Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, + int borderWidth, int relief)); +/* 64 */ +EXTERN Tk_PhotoHandle Tk_FindPhoto _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *imageName)); +/* 65 */ +EXTERN Font Tk_FontId _ANSI_ARGS_((Tk_Font font)); +/* 66 */ +EXTERN void Tk_Free3DBorder _ANSI_ARGS_((Tk_3DBorder border)); +/* 67 */ +EXTERN void Tk_FreeBitmap _ANSI_ARGS_((Display *display, + Pixmap bitmap)); +/* 68 */ +EXTERN void Tk_FreeColor _ANSI_ARGS_((XColor *colorPtr)); +/* 69 */ +EXTERN void Tk_FreeColormap _ANSI_ARGS_((Display *display, + Colormap colormap)); +/* 70 */ +EXTERN void Tk_FreeCursor _ANSI_ARGS_((Display *display, + Tk_Cursor cursor)); +/* 71 */ +EXTERN void Tk_FreeFont _ANSI_ARGS_((Tk_Font f)); +/* 72 */ +EXTERN void Tk_FreeGC _ANSI_ARGS_((Display *display, GC gc)); +/* 73 */ +EXTERN void Tk_FreeImage _ANSI_ARGS_((Tk_Image image)); +/* 74 */ +EXTERN void Tk_FreeOptions _ANSI_ARGS_((Tk_ConfigSpec *specs, + char *widgRec, Display *display, + int needFlags)); +/* 75 */ +EXTERN void Tk_FreePixmap _ANSI_ARGS_((Display *display, + Pixmap pixmap)); +/* 76 */ +EXTERN void Tk_FreeTextLayout _ANSI_ARGS_(( + Tk_TextLayout textLayout)); +/* 77 */ +EXTERN void Tk_FreeXId _ANSI_ARGS_((Display *display, XID xid)); +/* 78 */ +EXTERN GC Tk_GCForColor _ANSI_ARGS_((XColor *colorPtr, + Drawable drawable)); +/* 79 */ +EXTERN void Tk_GeometryRequest _ANSI_ARGS_((Tk_Window tkwin, + int reqWidth, int reqHeight)); +/* 80 */ +EXTERN Tk_3DBorder Tk_Get3DBorder _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Tk_Uid colorName)); +/* 81 */ +EXTERN void Tk_GetAllBindings _ANSI_ARGS_((Tcl_Interp *interp, + Tk_BindingTable bindingTable, + ClientData object)); +/* 82 */ +EXTERN int Tk_GetAnchor _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *str, Tk_Anchor *anchorPtr)); +/* 83 */ +EXTERN CONST84_RETURN char * Tk_GetAtomName _ANSI_ARGS_((Tk_Window tkwin, + Atom atom)); +/* 84 */ +EXTERN CONST84_RETURN char * Tk_GetBinding _ANSI_ARGS_((Tcl_Interp *interp, + Tk_BindingTable bindingTable, + ClientData object, CONST char *eventStr)); +/* 85 */ +EXTERN Pixmap Tk_GetBitmap _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, CONST char *str)); +/* 86 */ +EXTERN Pixmap Tk_GetBitmapFromData _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, CONST char *source, + int width, int height)); +/* 87 */ +EXTERN int Tk_GetCapStyle _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *str, int *capPtr)); +/* 88 */ +EXTERN XColor * Tk_GetColor _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Tk_Uid name)); +/* 89 */ +EXTERN XColor * Tk_GetColorByValue _ANSI_ARGS_((Tk_Window tkwin, + XColor *colorPtr)); +/* 90 */ +EXTERN Colormap Tk_GetColormap _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, CONST char *str)); +/* 91 */ +EXTERN Tk_Cursor Tk_GetCursor _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Tk_Uid str)); +/* 92 */ +EXTERN Tk_Cursor Tk_GetCursorFromData _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, CONST char *source, + CONST char *mask, int width, int height, + int xHot, int yHot, Tk_Uid fg, Tk_Uid bg)); +/* 93 */ +EXTERN Tk_Font Tk_GetFont _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, CONST char *str)); +/* 94 */ +EXTERN Tk_Font Tk_GetFontFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj *objPtr)); +/* 95 */ +EXTERN void Tk_GetFontMetrics _ANSI_ARGS_((Tk_Font font, + Tk_FontMetrics *fmPtr)); +/* 96 */ +EXTERN GC Tk_GetGC _ANSI_ARGS_((Tk_Window tkwin, + unsigned long valueMask, XGCValues *valuePtr)); +/* 97 */ +EXTERN Tk_Image Tk_GetImage _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, CONST char *name, + Tk_ImageChangedProc *changeProc, + ClientData clientData)); +/* 98 */ +EXTERN ClientData Tk_GetImageMasterData _ANSI_ARGS_(( + Tcl_Interp *interp, CONST char *name, + Tk_ImageType **typePtrPtr)); +/* 99 */ +EXTERN Tk_ItemType * Tk_GetItemTypes _ANSI_ARGS_((void)); +/* 100 */ +EXTERN int Tk_GetJoinStyle _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *str, int *joinPtr)); +/* 101 */ +EXTERN int Tk_GetJustify _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *str, Tk_Justify *justifyPtr)); +/* 102 */ +EXTERN int Tk_GetNumMainWindows _ANSI_ARGS_((void)); +/* 103 */ +EXTERN Tk_Uid Tk_GetOption _ANSI_ARGS_((Tk_Window tkwin, + CONST char *name, CONST char *className)); +/* 104 */ +EXTERN int Tk_GetPixels _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, CONST char *str, + int *intPtr)); +/* 105 */ +EXTERN Pixmap Tk_GetPixmap _ANSI_ARGS_((Display *display, + Drawable d, int width, int height, int depth)); +/* 106 */ +EXTERN int Tk_GetRelief _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name, int *reliefPtr)); +/* 107 */ +EXTERN void Tk_GetRootCoords _ANSI_ARGS_((Tk_Window tkwin, + int *xPtr, int *yPtr)); +/* 108 */ +EXTERN int Tk_GetScrollInfo _ANSI_ARGS_((Tcl_Interp *interp, + int argc, CONST84 char **argv, + double *dblPtr, int *intPtr)); +/* 109 */ +EXTERN int Tk_GetScreenMM _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, CONST char *str, + double *doublePtr)); +/* 110 */ +EXTERN int Tk_GetSelection _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Atom selection, Atom target, + Tk_GetSelProc *proc, ClientData clientData)); +/* 111 */ +EXTERN Tk_Uid Tk_GetUid _ANSI_ARGS_((CONST char *str)); +/* 112 */ +EXTERN Visual * Tk_GetVisual _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, CONST char *str, + int *depthPtr, Colormap *colormapPtr)); +/* 113 */ +EXTERN void Tk_GetVRootGeometry _ANSI_ARGS_((Tk_Window tkwin, + int *xPtr, int *yPtr, int *widthPtr, + int *heightPtr)); +/* 114 */ +EXTERN int Tk_Grab _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, int grabGlobal)); +/* 115 */ +EXTERN void Tk_HandleEvent _ANSI_ARGS_((XEvent *eventPtr)); +/* 116 */ +EXTERN Tk_Window Tk_IdToWindow _ANSI_ARGS_((Display *display, + Window window)); +/* 117 */ +EXTERN void Tk_ImageChanged _ANSI_ARGS_((Tk_ImageMaster master, + int x, int y, int width, int height, + int imageWidth, int imageHeight)); +/* 118 */ +EXTERN int Tk_Init _ANSI_ARGS_((Tcl_Interp *interp)); +/* 119 */ +EXTERN Atom Tk_InternAtom _ANSI_ARGS_((Tk_Window tkwin, + CONST char *name)); +/* 120 */ +EXTERN int Tk_IntersectTextLayout _ANSI_ARGS_(( + Tk_TextLayout layout, int x, int y, + int width, int height)); +/* 121 */ +EXTERN void Tk_MaintainGeometry _ANSI_ARGS_((Tk_Window slave, + Tk_Window master, int x, int y, int width, + int height)); +/* 122 */ +EXTERN Tk_Window Tk_MainWindow _ANSI_ARGS_((Tcl_Interp *interp)); +/* 123 */ +EXTERN void Tk_MakeWindowExist _ANSI_ARGS_((Tk_Window tkwin)); +/* 124 */ +EXTERN void Tk_ManageGeometry _ANSI_ARGS_((Tk_Window tkwin, + Tk_GeomMgr *mgrPtr, ClientData clientData)); +/* 125 */ +EXTERN void Tk_MapWindow _ANSI_ARGS_((Tk_Window tkwin)); +/* 126 */ +EXTERN int Tk_MeasureChars _ANSI_ARGS_((Tk_Font tkfont, + CONST char *source, int numBytes, + int maxPixels, int flags, int *lengthPtr)); +/* 127 */ +EXTERN void Tk_MoveResizeWindow _ANSI_ARGS_((Tk_Window tkwin, + int x, int y, int width, int height)); +/* 128 */ +EXTERN void Tk_MoveWindow _ANSI_ARGS_((Tk_Window tkwin, int x, + int y)); +/* 129 */ +EXTERN void Tk_MoveToplevelWindow _ANSI_ARGS_((Tk_Window tkwin, + int x, int y)); +/* 130 */ +EXTERN CONST84_RETURN char * Tk_NameOf3DBorder _ANSI_ARGS_(( + Tk_3DBorder border)); +/* 131 */ +EXTERN CONST84_RETURN char * Tk_NameOfAnchor _ANSI_ARGS_((Tk_Anchor anchor)); +/* 132 */ +EXTERN CONST84_RETURN char * Tk_NameOfBitmap _ANSI_ARGS_((Display *display, + Pixmap bitmap)); +/* 133 */ +EXTERN CONST84_RETURN char * Tk_NameOfCapStyle _ANSI_ARGS_((int cap)); +/* 134 */ +EXTERN CONST84_RETURN char * Tk_NameOfColor _ANSI_ARGS_((XColor *colorPtr)); +/* 135 */ +EXTERN CONST84_RETURN char * Tk_NameOfCursor _ANSI_ARGS_((Display *display, + Tk_Cursor cursor)); +/* 136 */ +EXTERN CONST84_RETURN char * Tk_NameOfFont _ANSI_ARGS_((Tk_Font font)); +/* 137 */ +EXTERN CONST84_RETURN char * Tk_NameOfImage _ANSI_ARGS_(( + Tk_ImageMaster imageMaster)); +/* 138 */ +EXTERN CONST84_RETURN char * Tk_NameOfJoinStyle _ANSI_ARGS_((int join)); +/* 139 */ +EXTERN CONST84_RETURN char * Tk_NameOfJustify _ANSI_ARGS_(( + Tk_Justify justify)); +/* 140 */ +EXTERN CONST84_RETURN char * Tk_NameOfRelief _ANSI_ARGS_((int relief)); +/* 141 */ +EXTERN Tk_Window Tk_NameToWindow _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *pathName, Tk_Window tkwin)); +/* 142 */ +EXTERN void Tk_OwnSelection _ANSI_ARGS_((Tk_Window tkwin, + Atom selection, Tk_LostSelProc *proc, + ClientData clientData)); +/* 143 */ +EXTERN int Tk_ParseArgv _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, int *argcPtr, + CONST84 char **argv, Tk_ArgvInfo *argTable, + int flags)); +/* 144 */ +EXTERN void Tk_PhotoPutBlock_NoComposite _ANSI_ARGS_(( + Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height)); +/* 145 */ +EXTERN void Tk_PhotoPutZoomedBlock_NoComposite _ANSI_ARGS_(( + Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height, int zoomX, int zoomY, + int subsampleX, int subsampleY)); +/* 146 */ +EXTERN int Tk_PhotoGetImage _ANSI_ARGS_((Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr)); +/* 147 */ +EXTERN void Tk_PhotoBlank _ANSI_ARGS_((Tk_PhotoHandle handle)); +/* 148 */ +EXTERN void Tk_PhotoExpand _ANSI_ARGS_((Tk_PhotoHandle handle, + int width, int height)); +/* 149 */ +EXTERN void Tk_PhotoGetSize _ANSI_ARGS_((Tk_PhotoHandle handle, + int *widthPtr, int *heightPtr)); +/* 150 */ +EXTERN void Tk_PhotoSetSize _ANSI_ARGS_((Tk_PhotoHandle handle, + int width, int height)); +/* 151 */ +EXTERN int Tk_PointToChar _ANSI_ARGS_((Tk_TextLayout layout, + int x, int y)); +/* 152 */ +EXTERN int Tk_PostscriptFontName _ANSI_ARGS_((Tk_Font tkfont, + Tcl_DString *dsPtr)); +/* 153 */ +EXTERN void Tk_PreserveColormap _ANSI_ARGS_((Display *display, + Colormap colormap)); +/* 154 */ +EXTERN void Tk_QueueWindowEvent _ANSI_ARGS_((XEvent *eventPtr, + Tcl_QueuePosition position)); +/* 155 */ +EXTERN void Tk_RedrawImage _ANSI_ARGS_((Tk_Image image, + int imageX, int imageY, int width, + int height, Drawable drawable, int drawableX, + int drawableY)); +/* 156 */ +EXTERN void Tk_ResizeWindow _ANSI_ARGS_((Tk_Window tkwin, + int width, int height)); +/* 157 */ +EXTERN int Tk_RestackWindow _ANSI_ARGS_((Tk_Window tkwin, + int aboveBelow, Tk_Window other)); +/* 158 */ +EXTERN Tk_RestrictProc * Tk_RestrictEvents _ANSI_ARGS_(( + Tk_RestrictProc *proc, ClientData arg, + ClientData *prevArgPtr)); +/* 159 */ +EXTERN int Tk_SafeInit _ANSI_ARGS_((Tcl_Interp *interp)); +/* 160 */ +EXTERN CONST char * Tk_SetAppName _ANSI_ARGS_((Tk_Window tkwin, + CONST char *name)); +/* 161 */ +EXTERN void Tk_SetBackgroundFromBorder _ANSI_ARGS_(( + Tk_Window tkwin, Tk_3DBorder border)); +/* 162 */ +EXTERN void Tk_SetClass _ANSI_ARGS_((Tk_Window tkwin, + CONST char *className)); +/* 163 */ +EXTERN void Tk_SetGrid _ANSI_ARGS_((Tk_Window tkwin, + int reqWidth, int reqHeight, int gridWidth, + int gridHeight)); +/* 164 */ +EXTERN void Tk_SetInternalBorder _ANSI_ARGS_((Tk_Window tkwin, + int width)); +/* 165 */ +EXTERN void Tk_SetWindowBackground _ANSI_ARGS_((Tk_Window tkwin, + unsigned long pixel)); +/* 166 */ +EXTERN void Tk_SetWindowBackgroundPixmap _ANSI_ARGS_(( + Tk_Window tkwin, Pixmap pixmap)); +/* 167 */ +EXTERN void Tk_SetWindowBorder _ANSI_ARGS_((Tk_Window tkwin, + unsigned long pixel)); +/* 168 */ +EXTERN void Tk_SetWindowBorderWidth _ANSI_ARGS_((Tk_Window tkwin, + int width)); +/* 169 */ +EXTERN void Tk_SetWindowBorderPixmap _ANSI_ARGS_(( + Tk_Window tkwin, Pixmap pixmap)); +/* 170 */ +EXTERN void Tk_SetWindowColormap _ANSI_ARGS_((Tk_Window tkwin, + Colormap colormap)); +/* 171 */ +EXTERN int Tk_SetWindowVisual _ANSI_ARGS_((Tk_Window tkwin, + Visual *visual, int depth, Colormap colormap)); +/* 172 */ +EXTERN void Tk_SizeOfBitmap _ANSI_ARGS_((Display *display, + Pixmap bitmap, int *widthPtr, int *heightPtr)); +/* 173 */ +EXTERN void Tk_SizeOfImage _ANSI_ARGS_((Tk_Image image, + int *widthPtr, int *heightPtr)); +/* 174 */ +EXTERN int Tk_StrictMotif _ANSI_ARGS_((Tk_Window tkwin)); +/* 175 */ +EXTERN void Tk_TextLayoutToPostscript _ANSI_ARGS_(( + Tcl_Interp *interp, Tk_TextLayout layout)); +/* 176 */ +EXTERN int Tk_TextWidth _ANSI_ARGS_((Tk_Font font, + CONST char *str, int numBytes)); +/* 177 */ +EXTERN void Tk_UndefineCursor _ANSI_ARGS_((Tk_Window window)); +/* 178 */ +EXTERN void Tk_UnderlineChars _ANSI_ARGS_((Display *display, + Drawable drawable, GC gc, Tk_Font tkfont, + CONST char *source, int x, int y, + int firstByte, int lastByte)); +/* 179 */ +EXTERN void Tk_UnderlineTextLayout _ANSI_ARGS_((Display *display, + Drawable drawable, GC gc, + Tk_TextLayout layout, int x, int y, + int underline)); +/* 180 */ +EXTERN void Tk_Ungrab _ANSI_ARGS_((Tk_Window tkwin)); +/* 181 */ +EXTERN void Tk_UnmaintainGeometry _ANSI_ARGS_((Tk_Window slave, + Tk_Window master)); +/* 182 */ +EXTERN void Tk_UnmapWindow _ANSI_ARGS_((Tk_Window tkwin)); +/* 183 */ +EXTERN void Tk_UnsetGrid _ANSI_ARGS_((Tk_Window tkwin)); +/* 184 */ +EXTERN void Tk_UpdatePointer _ANSI_ARGS_((Tk_Window tkwin, int x, + int y, int state)); +/* 185 */ +EXTERN Pixmap Tk_AllocBitmapFromObj _ANSI_ARGS_(( + Tcl_Interp *interp, Tk_Window tkwin, + Tcl_Obj *objPtr)); +/* 186 */ +EXTERN Tk_3DBorder Tk_Alloc3DBorderFromObj _ANSI_ARGS_(( + Tcl_Interp *interp, Tk_Window tkwin, + Tcl_Obj *objPtr)); +/* 187 */ +EXTERN XColor * Tk_AllocColorFromObj _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr)); +/* 188 */ +EXTERN Tk_Cursor Tk_AllocCursorFromObj _ANSI_ARGS_(( + Tcl_Interp *interp, Tk_Window tkwin, + Tcl_Obj *objPtr)); +/* 189 */ +EXTERN Tk_Font Tk_AllocFontFromObj _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr)); +/* 190 */ +EXTERN Tk_OptionTable Tk_CreateOptionTable _ANSI_ARGS_((Tcl_Interp *interp, + CONST Tk_OptionSpec *templatePtr)); +/* 191 */ +EXTERN void Tk_DeleteOptionTable _ANSI_ARGS_(( + Tk_OptionTable optionTable)); +/* 192 */ +EXTERN void Tk_Free3DBorderFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj *objPtr)); +/* 193 */ +EXTERN void Tk_FreeBitmapFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj *objPtr)); +/* 194 */ +EXTERN void Tk_FreeColorFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj *objPtr)); +/* 195 */ +EXTERN void Tk_FreeConfigOptions _ANSI_ARGS_((char *recordPtr, + Tk_OptionTable optionToken, Tk_Window tkwin)); +/* 196 */ +EXTERN void Tk_FreeSavedOptions _ANSI_ARGS_(( + Tk_SavedOptions *savePtr)); +/* 197 */ +EXTERN void Tk_FreeCursorFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj *objPtr)); +/* 198 */ +EXTERN void Tk_FreeFontFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj *objPtr)); +/* 199 */ +EXTERN Tk_3DBorder Tk_Get3DBorderFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj *objPtr)); +/* 200 */ +EXTERN int Tk_GetAnchorFromObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, Tk_Anchor *anchorPtr)); +/* 201 */ +EXTERN Pixmap Tk_GetBitmapFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj *objPtr)); +/* 202 */ +EXTERN XColor * Tk_GetColorFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj *objPtr)); +/* 203 */ +EXTERN Tk_Cursor Tk_GetCursorFromObj _ANSI_ARGS_((Tk_Window tkwin, + Tcl_Obj *objPtr)); +/* 204 */ +EXTERN Tcl_Obj * Tk_GetOptionInfo _ANSI_ARGS_((Tcl_Interp *interp, + char *recordPtr, Tk_OptionTable optionTable, + Tcl_Obj *namePtr, Tk_Window tkwin)); +/* 205 */ +EXTERN Tcl_Obj * Tk_GetOptionValue _ANSI_ARGS_((Tcl_Interp *interp, + char *recordPtr, Tk_OptionTable optionTable, + Tcl_Obj *namePtr, Tk_Window tkwin)); +/* 206 */ +EXTERN int Tk_GetJustifyFromObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, Tk_Justify *justifyPtr)); +/* 207 */ +EXTERN int Tk_GetMMFromObj _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr, + double *doublePtr)); +/* 208 */ +EXTERN int Tk_GetPixelsFromObj _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr, + int *intPtr)); +/* 209 */ +EXTERN int Tk_GetReliefFromObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr, int *resultPtr)); +/* 210 */ +EXTERN int Tk_GetScrollInfoObj _ANSI_ARGS_((Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[], + double *dblPtr, int *intPtr)); +/* 211 */ +EXTERN int Tk_InitOptions _ANSI_ARGS_((Tcl_Interp *interp, + char *recordPtr, Tk_OptionTable optionToken, + Tk_Window tkwin)); +/* 212 */ +EXTERN void Tk_MainEx _ANSI_ARGS_((int argc, char **argv, + Tcl_AppInitProc *appInitProc, + Tcl_Interp *interp)); +/* 213 */ +EXTERN void Tk_RestoreSavedOptions _ANSI_ARGS_(( + Tk_SavedOptions *savePtr)); +/* 214 */ +EXTERN int Tk_SetOptions _ANSI_ARGS_((Tcl_Interp *interp, + char *recordPtr, Tk_OptionTable optionTable, + int objc, Tcl_Obj *CONST objv[], + Tk_Window tkwin, Tk_SavedOptions *savePtr, + int *maskPtr)); +/* 215 */ +EXTERN void Tk_InitConsoleChannels _ANSI_ARGS_(( + Tcl_Interp *interp)); +/* 216 */ +EXTERN int Tk_CreateConsoleWindow _ANSI_ARGS_(( + Tcl_Interp *interp)); +/* 217 */ +EXTERN void Tk_CreateSmoothMethod _ANSI_ARGS_(( + Tcl_Interp *interp, Tk_SmoothMethod *method)); +/* Slot 218 is reserved */ +/* Slot 219 is reserved */ +/* 220 */ +EXTERN int Tk_GetDash _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *value, Tk_Dash *dash)); +/* 221 */ +EXTERN void Tk_CreateOutline _ANSI_ARGS_((Tk_Outline *outline)); +/* 222 */ +EXTERN void Tk_DeleteOutline _ANSI_ARGS_((Display *display, + Tk_Outline *outline)); +/* 223 */ +EXTERN int Tk_ConfigOutlineGC _ANSI_ARGS_((XGCValues *gcValues, + Tk_Canvas canvas, Tk_Item *item, + Tk_Outline *outline)); +/* 224 */ +EXTERN int Tk_ChangeOutlineGC _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *item, Tk_Outline *outline)); +/* 225 */ +EXTERN int Tk_ResetOutlineGC _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *item, Tk_Outline *outline)); +/* 226 */ +EXTERN int Tk_CanvasPsOutline _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *item, Tk_Outline *outline)); +/* 227 */ +EXTERN void Tk_SetTSOrigin _ANSI_ARGS_((Tk_Window tkwin, GC gc, + int x, int y)); +/* 228 */ +EXTERN int Tk_CanvasGetCoordFromObj _ANSI_ARGS_(( + Tcl_Interp *interp, Tk_Canvas canvas, + Tcl_Obj *obj, double *doublePtr)); +/* 229 */ +EXTERN void Tk_CanvasSetOffset _ANSI_ARGS_((Tk_Canvas canvas, + GC gc, Tk_TSOffset *offset)); +/* 230 */ +EXTERN void Tk_DitherPhoto _ANSI_ARGS_((Tk_PhotoHandle handle, + int x, int y, int width, int height)); +/* 231 */ +EXTERN int Tk_PostscriptBitmap _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Tk_PostscriptInfo psInfo, + Pixmap bitmap, int startX, int startY, + int width, int height)); +/* 232 */ +EXTERN int Tk_PostscriptColor _ANSI_ARGS_((Tcl_Interp *interp, + Tk_PostscriptInfo psInfo, XColor *colorPtr)); +/* 233 */ +EXTERN int Tk_PostscriptFont _ANSI_ARGS_((Tcl_Interp *interp, + Tk_PostscriptInfo psInfo, Tk_Font font)); +/* 234 */ +EXTERN int Tk_PostscriptImage _ANSI_ARGS_((Tk_Image image, + Tcl_Interp *interp, Tk_Window tkwin, + Tk_PostscriptInfo psinfo, int x, int y, + int width, int height, int prepass)); +/* 235 */ +EXTERN void Tk_PostscriptPath _ANSI_ARGS_((Tcl_Interp *interp, + Tk_PostscriptInfo psInfo, double *coordPtr, + int numPoints)); +/* 236 */ +EXTERN int Tk_PostscriptStipple _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin, Tk_PostscriptInfo psInfo, + Pixmap bitmap)); +/* 237 */ +EXTERN double Tk_PostscriptY _ANSI_ARGS_((double y, + Tk_PostscriptInfo psInfo)); +/* 238 */ +EXTERN int Tk_PostscriptPhoto _ANSI_ARGS_((Tcl_Interp *interp, + Tk_PhotoImageBlock *blockPtr, + Tk_PostscriptInfo psInfo, int width, + int height)); +/* 239 */ +EXTERN void Tk_CreateClientMessageHandler _ANSI_ARGS_(( + Tk_ClientMessageProc *proc)); +/* 240 */ +EXTERN void Tk_DeleteClientMessageHandler _ANSI_ARGS_(( + Tk_ClientMessageProc *proc)); +/* 241 */ +EXTERN Tk_Window Tk_CreateAnonymousWindow _ANSI_ARGS_(( + Tcl_Interp *interp, Tk_Window parent, + CONST char *screenName)); +/* 242 */ +EXTERN void Tk_SetClassProcs _ANSI_ARGS_((Tk_Window tkwin, + Tk_ClassProcs *procs, + ClientData instanceData)); +/* 243 */ +EXTERN void Tk_SetInternalBorderEx _ANSI_ARGS_((Tk_Window tkwin, + int left, int right, int top, int bottom)); +/* 244 */ +EXTERN void Tk_SetMinimumRequestSize _ANSI_ARGS_(( + Tk_Window tkwin, int minWidth, int minHeight)); +/* 245 */ +EXTERN void Tk_SetCaretPos _ANSI_ARGS_((Tk_Window tkwin, int x, + int y, int height)); +/* 246 */ +EXTERN void Tk_PhotoPutBlock _ANSI_ARGS_((Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height, int compRule)); +/* 247 */ +EXTERN void Tk_PhotoPutZoomedBlock _ANSI_ARGS_(( + Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height, int zoomX, int zoomY, + int subsampleX, int subsampleY, int compRule)); +/* 248 */ +EXTERN int Tk_CollapseMotionEvents _ANSI_ARGS_(( + Display *display, int collapse)); +/* 249 */ +EXTERN Tk_StyleEngine Tk_RegisterStyleEngine _ANSI_ARGS_((CONST char *name, + Tk_StyleEngine parent)); +/* 250 */ +EXTERN Tk_StyleEngine Tk_GetStyleEngine _ANSI_ARGS_((CONST char *name)); +/* 251 */ +EXTERN int Tk_RegisterStyledElement _ANSI_ARGS_(( + Tk_StyleEngine engine, + Tk_ElementSpec *templatePtr)); +/* 252 */ +EXTERN int Tk_GetElementId _ANSI_ARGS_((CONST char *name)); +/* 253 */ +EXTERN Tk_Style Tk_CreateStyle _ANSI_ARGS_((CONST char *name, + Tk_StyleEngine engine, ClientData clientData)); +/* 254 */ +EXTERN Tk_Style Tk_GetStyle _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *name)); +/* 255 */ +EXTERN void Tk_FreeStyle _ANSI_ARGS_((Tk_Style style)); +/* 256 */ +EXTERN CONST char * Tk_NameOfStyle _ANSI_ARGS_((Tk_Style style)); +/* 257 */ +EXTERN Tk_Style Tk_AllocStyleFromObj _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *objPtr)); +/* 258 */ +EXTERN Tk_Style Tk_GetStyleFromObj _ANSI_ARGS_((Tcl_Obj *objPtr)); +/* 259 */ +EXTERN void Tk_FreeStyleFromObj _ANSI_ARGS_((Tcl_Obj *objPtr)); +/* 260 */ +EXTERN Tk_StyledElement Tk_GetStyledElement _ANSI_ARGS_((Tk_Style style, + int elementId, Tk_OptionTable optionTable)); +/* 261 */ +EXTERN void Tk_GetElementSize _ANSI_ARGS_((Tk_Style style, + Tk_StyledElement element, char *recordPtr, + Tk_Window tkwin, int width, int height, + int inner, int *widthPtr, int *heightPtr)); +/* 262 */ +EXTERN void Tk_GetElementBox _ANSI_ARGS_((Tk_Style style, + Tk_StyledElement element, char *recordPtr, + Tk_Window tkwin, int x, int y, int width, + int height, int inner, int *xPtr, int *yPtr, + int *widthPtr, int *heightPtr)); +/* 263 */ +EXTERN int Tk_GetElementBorderWidth _ANSI_ARGS_((Tk_Style style, + Tk_StyledElement element, char *recordPtr, + Tk_Window tkwin)); +/* 264 */ +EXTERN void Tk_DrawElement _ANSI_ARGS_((Tk_Style style, + Tk_StyledElement element, char *recordPtr, + Tk_Window tkwin, Drawable d, int x, int y, + int width, int height, int state)); +/* Slot 265 is reserved */ +/* Slot 266 is reserved */ +/* Slot 267 is reserved */ +/* Slot 268 is reserved */ +/* Slot 269 is reserved */ +/* Slot 270 is reserved */ +/* Slot 271 is reserved */ +/* Slot 272 is reserved */ +/* Slot 273 is reserved */ +/* Slot 274 is reserved */ +/* 275 */ +EXTERN void TkUnusedStubEntry _ANSI_ARGS_((void)); + +typedef struct TkStubHooks { + struct TkPlatStubs *tkPlatStubs; + struct TkIntStubs *tkIntStubs; + struct TkIntPlatStubs *tkIntPlatStubs; + struct TkIntXlibStubs *tkIntXlibStubs; +} TkStubHooks; + +typedef struct TkStubs { + int magic; + struct TkStubHooks *hooks; + + void (*tk_MainLoop) _ANSI_ARGS_((void)); /* 0 */ + XColor * (*tk_3DBorderColor) _ANSI_ARGS_((Tk_3DBorder border)); /* 1 */ + GC (*tk_3DBorderGC) _ANSI_ARGS_((Tk_Window tkwin, Tk_3DBorder border, int which)); /* 2 */ + void (*tk_3DHorizontalBevel) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftIn, int rightIn, int topBevel, int relief)); /* 3 */ + void (*tk_3DVerticalBevel) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftBevel, int relief)); /* 4 */ + void (*tk_AddOption) _ANSI_ARGS_((Tk_Window tkwin, CONST char *name, CONST char *value, int priority)); /* 5 */ + void (*tk_BindEvent) _ANSI_ARGS_((Tk_BindingTable bindingTable, XEvent *eventPtr, Tk_Window tkwin, int numObjects, ClientData *objectPtr)); /* 6 */ + void (*tk_CanvasDrawableCoords) _ANSI_ARGS_((Tk_Canvas canvas, double x, double y, short *drawableXPtr, short *drawableYPtr)); /* 7 */ + void (*tk_CanvasEventuallyRedraw) _ANSI_ARGS_((Tk_Canvas canvas, int x1, int y1, int x2, int y2)); /* 8 */ + int (*tk_CanvasGetCoord) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Canvas canvas, CONST char *str, double *doublePtr)); /* 9 */ + Tk_CanvasTextInfo * (*tk_CanvasGetTextInfo) _ANSI_ARGS_((Tk_Canvas canvas)); /* 10 */ + int (*tk_CanvasPsBitmap) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap, int x, int y, int width, int height)); /* 11 */ + int (*tk_CanvasPsColor) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Canvas canvas, XColor *colorPtr)); /* 12 */ + int (*tk_CanvasPsFont) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Canvas canvas, Tk_Font font)); /* 13 */ + void (*tk_CanvasPsPath) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Canvas canvas, double *coordPtr, int numPoints)); /* 14 */ + int (*tk_CanvasPsStipple) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap)); /* 15 */ + double (*tk_CanvasPsY) _ANSI_ARGS_((Tk_Canvas canvas, double y)); /* 16 */ + void (*tk_CanvasSetStippleOrigin) _ANSI_ARGS_((Tk_Canvas canvas, GC gc)); /* 17 */ + int (*tk_CanvasTagsParseProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset)); /* 18 */ + char * (*tk_CanvasTagsPrintProc) _ANSI_ARGS_((ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr)); /* 19 */ + Tk_Window (*tk_CanvasTkwin) _ANSI_ARGS_((Tk_Canvas canvas)); /* 20 */ + void (*tk_CanvasWindowCoords) _ANSI_ARGS_((Tk_Canvas canvas, double x, double y, short *screenXPtr, short *screenYPtr)); /* 21 */ + void (*tk_ChangeWindowAttributes) _ANSI_ARGS_((Tk_Window tkwin, unsigned long valueMask, XSetWindowAttributes *attsPtr)); /* 22 */ + int (*tk_CharBbox) _ANSI_ARGS_((Tk_TextLayout layout, int index, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr)); /* 23 */ + void (*tk_ClearSelection) _ANSI_ARGS_((Tk_Window tkwin, Atom selection)); /* 24 */ + int (*tk_ClipboardAppend) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Atom target, Atom format, char *buffer)); /* 25 */ + int (*tk_ClipboardClear) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin)); /* 26 */ + int (*tk_ConfigureInfo) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tk_ConfigSpec *specs, char *widgRec, CONST char *argvName, int flags)); /* 27 */ + int (*tk_ConfigureValue) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tk_ConfigSpec *specs, char *widgRec, CONST char *argvName, int flags)); /* 28 */ + int (*tk_ConfigureWidget) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tk_ConfigSpec *specs, int argc, CONST84 char **argv, char *widgRec, int flags)); /* 29 */ + void (*tk_ConfigureWindow) _ANSI_ARGS_((Tk_Window tkwin, unsigned int valueMask, XWindowChanges *valuePtr)); /* 30 */ + Tk_TextLayout (*tk_ComputeTextLayout) _ANSI_ARGS_((Tk_Font font, CONST char *str, int numChars, int wrapLength, Tk_Justify justify, int flags, int *widthPtr, int *heightPtr)); /* 31 */ + Tk_Window (*tk_CoordsToWindow) _ANSI_ARGS_((int rootX, int rootY, Tk_Window tkwin)); /* 32 */ + unsigned long (*tk_CreateBinding) _ANSI_ARGS_((Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventStr, CONST char *script, int append)); /* 33 */ + Tk_BindingTable (*tk_CreateBindingTable) _ANSI_ARGS_((Tcl_Interp *interp)); /* 34 */ + Tk_ErrorHandler (*tk_CreateErrorHandler) _ANSI_ARGS_((Display *display, int errNum, int request, int minorCode, Tk_ErrorProc *errorProc, ClientData clientData)); /* 35 */ + void (*tk_CreateEventHandler) _ANSI_ARGS_((Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData)); /* 36 */ + void (*tk_CreateGenericHandler) _ANSI_ARGS_((Tk_GenericProc *proc, ClientData clientData)); /* 37 */ + void (*tk_CreateImageType) _ANSI_ARGS_((Tk_ImageType *typePtr)); /* 38 */ + void (*tk_CreateItemType) _ANSI_ARGS_((Tk_ItemType *typePtr)); /* 39 */ + void (*tk_CreatePhotoImageFormat) _ANSI_ARGS_((Tk_PhotoImageFormat *formatPtr)); /* 40 */ + void (*tk_CreateSelHandler) _ANSI_ARGS_((Tk_Window tkwin, Atom selection, Atom target, Tk_SelectionProc *proc, ClientData clientData, Atom format)); /* 41 */ + Tk_Window (*tk_CreateWindow) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window parent, CONST char *name, CONST char *screenName)); /* 42 */ + Tk_Window (*tk_CreateWindowFromPath) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, CONST char *pathName, CONST char *screenName)); /* 43 */ + int (*tk_DefineBitmap) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, CONST char *source, int width, int height)); /* 44 */ + void (*tk_DefineCursor) _ANSI_ARGS_((Tk_Window window, Tk_Cursor cursor)); /* 45 */ + void (*tk_DeleteAllBindings) _ANSI_ARGS_((Tk_BindingTable bindingTable, ClientData object)); /* 46 */ + int (*tk_DeleteBinding) _ANSI_ARGS_((Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventStr)); /* 47 */ + void (*tk_DeleteBindingTable) _ANSI_ARGS_((Tk_BindingTable bindingTable)); /* 48 */ + void (*tk_DeleteErrorHandler) _ANSI_ARGS_((Tk_ErrorHandler handler)); /* 49 */ + void (*tk_DeleteEventHandler) _ANSI_ARGS_((Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData)); /* 50 */ + void (*tk_DeleteGenericHandler) _ANSI_ARGS_((Tk_GenericProc *proc, ClientData clientData)); /* 51 */ + void (*tk_DeleteImage) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name)); /* 52 */ + void (*tk_DeleteSelHandler) _ANSI_ARGS_((Tk_Window tkwin, Atom selection, Atom target)); /* 53 */ + void (*tk_DestroyWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 54 */ + CONST84_RETURN char * (*tk_DisplayName) _ANSI_ARGS_((Tk_Window tkwin)); /* 55 */ + int (*tk_DistanceToTextLayout) _ANSI_ARGS_((Tk_TextLayout layout, int x, int y)); /* 56 */ + void (*tk_Draw3DPolygon) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief)); /* 57 */ + void (*tk_Draw3DRectangle) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief)); /* 58 */ + void (*tk_DrawChars) _ANSI_ARGS_((Display *display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char *source, int numBytes, int x, int y)); /* 59 */ + void (*tk_DrawFocusHighlight) _ANSI_ARGS_((Tk_Window tkwin, GC gc, int width, Drawable drawable)); /* 60 */ + void (*tk_DrawTextLayout) _ANSI_ARGS_((Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int firstChar, int lastChar)); /* 61 */ + void (*tk_Fill3DPolygon) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief)); /* 62 */ + void (*tk_Fill3DRectangle) _ANSI_ARGS_((Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief)); /* 63 */ + Tk_PhotoHandle (*tk_FindPhoto) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *imageName)); /* 64 */ + Font (*tk_FontId) _ANSI_ARGS_((Tk_Font font)); /* 65 */ + void (*tk_Free3DBorder) _ANSI_ARGS_((Tk_3DBorder border)); /* 66 */ + void (*tk_FreeBitmap) _ANSI_ARGS_((Display *display, Pixmap bitmap)); /* 67 */ + void (*tk_FreeColor) _ANSI_ARGS_((XColor *colorPtr)); /* 68 */ + void (*tk_FreeColormap) _ANSI_ARGS_((Display *display, Colormap colormap)); /* 69 */ + void (*tk_FreeCursor) _ANSI_ARGS_((Display *display, Tk_Cursor cursor)); /* 70 */ + void (*tk_FreeFont) _ANSI_ARGS_((Tk_Font f)); /* 71 */ + void (*tk_FreeGC) _ANSI_ARGS_((Display *display, GC gc)); /* 72 */ + void (*tk_FreeImage) _ANSI_ARGS_((Tk_Image image)); /* 73 */ + void (*tk_FreeOptions) _ANSI_ARGS_((Tk_ConfigSpec *specs, char *widgRec, Display *display, int needFlags)); /* 74 */ + void (*tk_FreePixmap) _ANSI_ARGS_((Display *display, Pixmap pixmap)); /* 75 */ + void (*tk_FreeTextLayout) _ANSI_ARGS_((Tk_TextLayout textLayout)); /* 76 */ + void (*tk_FreeXId) _ANSI_ARGS_((Display *display, XID xid)); /* 77 */ + GC (*tk_GCForColor) _ANSI_ARGS_((XColor *colorPtr, Drawable drawable)); /* 78 */ + void (*tk_GeometryRequest) _ANSI_ARGS_((Tk_Window tkwin, int reqWidth, int reqHeight)); /* 79 */ + Tk_3DBorder (*tk_Get3DBorder) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid colorName)); /* 80 */ + void (*tk_GetAllBindings) _ANSI_ARGS_((Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object)); /* 81 */ + int (*tk_GetAnchor) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *str, Tk_Anchor *anchorPtr)); /* 82 */ + CONST84_RETURN char * (*tk_GetAtomName) _ANSI_ARGS_((Tk_Window tkwin, Atom atom)); /* 83 */ + CONST84_RETURN char * (*tk_GetBinding) _ANSI_ARGS_((Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventStr)); /* 84 */ + Pixmap (*tk_GetBitmap) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, CONST char *str)); /* 85 */ + Pixmap (*tk_GetBitmapFromData) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, CONST char *source, int width, int height)); /* 86 */ + int (*tk_GetCapStyle) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *str, int *capPtr)); /* 87 */ + XColor * (*tk_GetColor) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid name)); /* 88 */ + XColor * (*tk_GetColorByValue) _ANSI_ARGS_((Tk_Window tkwin, XColor *colorPtr)); /* 89 */ + Colormap (*tk_GetColormap) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, CONST char *str)); /* 90 */ + Tk_Cursor (*tk_GetCursor) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid str)); /* 91 */ + Tk_Cursor (*tk_GetCursorFromData) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, CONST char *source, CONST char *mask, int width, int height, int xHot, int yHot, Tk_Uid fg, Tk_Uid bg)); /* 92 */ + Tk_Font (*tk_GetFont) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, CONST char *str)); /* 93 */ + Tk_Font (*tk_GetFontFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj *objPtr)); /* 94 */ + void (*tk_GetFontMetrics) _ANSI_ARGS_((Tk_Font font, Tk_FontMetrics *fmPtr)); /* 95 */ + GC (*tk_GetGC) _ANSI_ARGS_((Tk_Window tkwin, unsigned long valueMask, XGCValues *valuePtr)); /* 96 */ + Tk_Image (*tk_GetImage) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, CONST char *name, Tk_ImageChangedProc *changeProc, ClientData clientData)); /* 97 */ + ClientData (*tk_GetImageMasterData) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, Tk_ImageType **typePtrPtr)); /* 98 */ + Tk_ItemType * (*tk_GetItemTypes) _ANSI_ARGS_((void)); /* 99 */ + int (*tk_GetJoinStyle) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *str, int *joinPtr)); /* 100 */ + int (*tk_GetJustify) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *str, Tk_Justify *justifyPtr)); /* 101 */ + int (*tk_GetNumMainWindows) _ANSI_ARGS_((void)); /* 102 */ + Tk_Uid (*tk_GetOption) _ANSI_ARGS_((Tk_Window tkwin, CONST char *name, CONST char *className)); /* 103 */ + int (*tk_GetPixels) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, CONST char *str, int *intPtr)); /* 104 */ + Pixmap (*tk_GetPixmap) _ANSI_ARGS_((Display *display, Drawable d, int width, int height, int depth)); /* 105 */ + int (*tk_GetRelief) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, int *reliefPtr)); /* 106 */ + void (*tk_GetRootCoords) _ANSI_ARGS_((Tk_Window tkwin, int *xPtr, int *yPtr)); /* 107 */ + int (*tk_GetScrollInfo) _ANSI_ARGS_((Tcl_Interp *interp, int argc, CONST84 char **argv, double *dblPtr, int *intPtr)); /* 108 */ + int (*tk_GetScreenMM) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, CONST char *str, double *doublePtr)); /* 109 */ + int (*tk_GetSelection) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Atom selection, Atom target, Tk_GetSelProc *proc, ClientData clientData)); /* 110 */ + Tk_Uid (*tk_GetUid) _ANSI_ARGS_((CONST char *str)); /* 111 */ + Visual * (*tk_GetVisual) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, CONST char *str, int *depthPtr, Colormap *colormapPtr)); /* 112 */ + void (*tk_GetVRootGeometry) _ANSI_ARGS_((Tk_Window tkwin, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr)); /* 113 */ + int (*tk_Grab) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, int grabGlobal)); /* 114 */ + void (*tk_HandleEvent) _ANSI_ARGS_((XEvent *eventPtr)); /* 115 */ + Tk_Window (*tk_IdToWindow) _ANSI_ARGS_((Display *display, Window window)); /* 116 */ + void (*tk_ImageChanged) _ANSI_ARGS_((Tk_ImageMaster master, int x, int y, int width, int height, int imageWidth, int imageHeight)); /* 117 */ + int (*tk_Init) _ANSI_ARGS_((Tcl_Interp *interp)); /* 118 */ + Atom (*tk_InternAtom) _ANSI_ARGS_((Tk_Window tkwin, CONST char *name)); /* 119 */ + int (*tk_IntersectTextLayout) _ANSI_ARGS_((Tk_TextLayout layout, int x, int y, int width, int height)); /* 120 */ + void (*tk_MaintainGeometry) _ANSI_ARGS_((Tk_Window slave, Tk_Window master, int x, int y, int width, int height)); /* 121 */ + Tk_Window (*tk_MainWindow) _ANSI_ARGS_((Tcl_Interp *interp)); /* 122 */ + void (*tk_MakeWindowExist) _ANSI_ARGS_((Tk_Window tkwin)); /* 123 */ + void (*tk_ManageGeometry) _ANSI_ARGS_((Tk_Window tkwin, Tk_GeomMgr *mgrPtr, ClientData clientData)); /* 124 */ + void (*tk_MapWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 125 */ + int (*tk_MeasureChars) _ANSI_ARGS_((Tk_Font tkfont, CONST char *source, int numBytes, int maxPixels, int flags, int *lengthPtr)); /* 126 */ + void (*tk_MoveResizeWindow) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int width, int height)); /* 127 */ + void (*tk_MoveWindow) _ANSI_ARGS_((Tk_Window tkwin, int x, int y)); /* 128 */ + void (*tk_MoveToplevelWindow) _ANSI_ARGS_((Tk_Window tkwin, int x, int y)); /* 129 */ + CONST84_RETURN char * (*tk_NameOf3DBorder) _ANSI_ARGS_((Tk_3DBorder border)); /* 130 */ + CONST84_RETURN char * (*tk_NameOfAnchor) _ANSI_ARGS_((Tk_Anchor anchor)); /* 131 */ + CONST84_RETURN char * (*tk_NameOfBitmap) _ANSI_ARGS_((Display *display, Pixmap bitmap)); /* 132 */ + CONST84_RETURN char * (*tk_NameOfCapStyle) _ANSI_ARGS_((int cap)); /* 133 */ + CONST84_RETURN char * (*tk_NameOfColor) _ANSI_ARGS_((XColor *colorPtr)); /* 134 */ + CONST84_RETURN char * (*tk_NameOfCursor) _ANSI_ARGS_((Display *display, Tk_Cursor cursor)); /* 135 */ + CONST84_RETURN char * (*tk_NameOfFont) _ANSI_ARGS_((Tk_Font font)); /* 136 */ + CONST84_RETURN char * (*tk_NameOfImage) _ANSI_ARGS_((Tk_ImageMaster imageMaster)); /* 137 */ + CONST84_RETURN char * (*tk_NameOfJoinStyle) _ANSI_ARGS_((int join)); /* 138 */ + CONST84_RETURN char * (*tk_NameOfJustify) _ANSI_ARGS_((Tk_Justify justify)); /* 139 */ + CONST84_RETURN char * (*tk_NameOfRelief) _ANSI_ARGS_((int relief)); /* 140 */ + Tk_Window (*tk_NameToWindow) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *pathName, Tk_Window tkwin)); /* 141 */ + void (*tk_OwnSelection) _ANSI_ARGS_((Tk_Window tkwin, Atom selection, Tk_LostSelProc *proc, ClientData clientData)); /* 142 */ + int (*tk_ParseArgv) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, int *argcPtr, CONST84 char **argv, Tk_ArgvInfo *argTable, int flags)); /* 143 */ + void (*tk_PhotoPutBlock_NoComposite) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height)); /* 144 */ + void (*tk_PhotoPutZoomedBlock_NoComposite) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY)); /* 145 */ + int (*tk_PhotoGetImage) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr)); /* 146 */ + void (*tk_PhotoBlank) _ANSI_ARGS_((Tk_PhotoHandle handle)); /* 147 */ + void (*tk_PhotoExpand) _ANSI_ARGS_((Tk_PhotoHandle handle, int width, int height)); /* 148 */ + void (*tk_PhotoGetSize) _ANSI_ARGS_((Tk_PhotoHandle handle, int *widthPtr, int *heightPtr)); /* 149 */ + void (*tk_PhotoSetSize) _ANSI_ARGS_((Tk_PhotoHandle handle, int width, int height)); /* 150 */ + int (*tk_PointToChar) _ANSI_ARGS_((Tk_TextLayout layout, int x, int y)); /* 151 */ + int (*tk_PostscriptFontName) _ANSI_ARGS_((Tk_Font tkfont, Tcl_DString *dsPtr)); /* 152 */ + void (*tk_PreserveColormap) _ANSI_ARGS_((Display *display, Colormap colormap)); /* 153 */ + void (*tk_QueueWindowEvent) _ANSI_ARGS_((XEvent *eventPtr, Tcl_QueuePosition position)); /* 154 */ + void (*tk_RedrawImage) _ANSI_ARGS_((Tk_Image image, int imageX, int imageY, int width, int height, Drawable drawable, int drawableX, int drawableY)); /* 155 */ + void (*tk_ResizeWindow) _ANSI_ARGS_((Tk_Window tkwin, int width, int height)); /* 156 */ + int (*tk_RestackWindow) _ANSI_ARGS_((Tk_Window tkwin, int aboveBelow, Tk_Window other)); /* 157 */ + Tk_RestrictProc * (*tk_RestrictEvents) _ANSI_ARGS_((Tk_RestrictProc *proc, ClientData arg, ClientData *prevArgPtr)); /* 158 */ + int (*tk_SafeInit) _ANSI_ARGS_((Tcl_Interp *interp)); /* 159 */ + CONST char * (*tk_SetAppName) _ANSI_ARGS_((Tk_Window tkwin, CONST char *name)); /* 160 */ + void (*tk_SetBackgroundFromBorder) _ANSI_ARGS_((Tk_Window tkwin, Tk_3DBorder border)); /* 161 */ + void (*tk_SetClass) _ANSI_ARGS_((Tk_Window tkwin, CONST char *className)); /* 162 */ + void (*tk_SetGrid) _ANSI_ARGS_((Tk_Window tkwin, int reqWidth, int reqHeight, int gridWidth, int gridHeight)); /* 163 */ + void (*tk_SetInternalBorder) _ANSI_ARGS_((Tk_Window tkwin, int width)); /* 164 */ + void (*tk_SetWindowBackground) _ANSI_ARGS_((Tk_Window tkwin, unsigned long pixel)); /* 165 */ + void (*tk_SetWindowBackgroundPixmap) _ANSI_ARGS_((Tk_Window tkwin, Pixmap pixmap)); /* 166 */ + void (*tk_SetWindowBorder) _ANSI_ARGS_((Tk_Window tkwin, unsigned long pixel)); /* 167 */ + void (*tk_SetWindowBorderWidth) _ANSI_ARGS_((Tk_Window tkwin, int width)); /* 168 */ + void (*tk_SetWindowBorderPixmap) _ANSI_ARGS_((Tk_Window tkwin, Pixmap pixmap)); /* 169 */ + void (*tk_SetWindowColormap) _ANSI_ARGS_((Tk_Window tkwin, Colormap colormap)); /* 170 */ + int (*tk_SetWindowVisual) _ANSI_ARGS_((Tk_Window tkwin, Visual *visual, int depth, Colormap colormap)); /* 171 */ + void (*tk_SizeOfBitmap) _ANSI_ARGS_((Display *display, Pixmap bitmap, int *widthPtr, int *heightPtr)); /* 172 */ + void (*tk_SizeOfImage) _ANSI_ARGS_((Tk_Image image, int *widthPtr, int *heightPtr)); /* 173 */ + int (*tk_StrictMotif) _ANSI_ARGS_((Tk_Window tkwin)); /* 174 */ + void (*tk_TextLayoutToPostscript) _ANSI_ARGS_((Tcl_Interp *interp, Tk_TextLayout layout)); /* 175 */ + int (*tk_TextWidth) _ANSI_ARGS_((Tk_Font font, CONST char *str, int numBytes)); /* 176 */ + void (*tk_UndefineCursor) _ANSI_ARGS_((Tk_Window window)); /* 177 */ + void (*tk_UnderlineChars) _ANSI_ARGS_((Display *display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char *source, int x, int y, int firstByte, int lastByte)); /* 178 */ + void (*tk_UnderlineTextLayout) _ANSI_ARGS_((Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int underline)); /* 179 */ + void (*tk_Ungrab) _ANSI_ARGS_((Tk_Window tkwin)); /* 180 */ + void (*tk_UnmaintainGeometry) _ANSI_ARGS_((Tk_Window slave, Tk_Window master)); /* 181 */ + void (*tk_UnmapWindow) _ANSI_ARGS_((Tk_Window tkwin)); /* 182 */ + void (*tk_UnsetGrid) _ANSI_ARGS_((Tk_Window tkwin)); /* 183 */ + void (*tk_UpdatePointer) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int state)); /* 184 */ + Pixmap (*tk_AllocBitmapFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr)); /* 185 */ + Tk_3DBorder (*tk_Alloc3DBorderFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr)); /* 186 */ + XColor * (*tk_AllocColorFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr)); /* 187 */ + Tk_Cursor (*tk_AllocCursorFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr)); /* 188 */ + Tk_Font (*tk_AllocFontFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr)); /* 189 */ + Tk_OptionTable (*tk_CreateOptionTable) _ANSI_ARGS_((Tcl_Interp *interp, CONST Tk_OptionSpec *templatePtr)); /* 190 */ + void (*tk_DeleteOptionTable) _ANSI_ARGS_((Tk_OptionTable optionTable)); /* 191 */ + void (*tk_Free3DBorderFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj *objPtr)); /* 192 */ + void (*tk_FreeBitmapFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj *objPtr)); /* 193 */ + void (*tk_FreeColorFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj *objPtr)); /* 194 */ + void (*tk_FreeConfigOptions) _ANSI_ARGS_((char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin)); /* 195 */ + void (*tk_FreeSavedOptions) _ANSI_ARGS_((Tk_SavedOptions *savePtr)); /* 196 */ + void (*tk_FreeCursorFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj *objPtr)); /* 197 */ + void (*tk_FreeFontFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj *objPtr)); /* 198 */ + Tk_3DBorder (*tk_Get3DBorderFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj *objPtr)); /* 199 */ + int (*tk_GetAnchorFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Anchor *anchorPtr)); /* 200 */ + Pixmap (*tk_GetBitmapFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj *objPtr)); /* 201 */ + XColor * (*tk_GetColorFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj *objPtr)); /* 202 */ + Tk_Cursor (*tk_GetCursorFromObj) _ANSI_ARGS_((Tk_Window tkwin, Tcl_Obj *objPtr)); /* 203 */ + Tcl_Obj * (*tk_GetOptionInfo) _ANSI_ARGS_((Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin)); /* 204 */ + Tcl_Obj * (*tk_GetOptionValue) _ANSI_ARGS_((Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin)); /* 205 */ + int (*tk_GetJustifyFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Justify *justifyPtr)); /* 206 */ + int (*tk_GetMMFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, double *doublePtr)); /* 207 */ + int (*tk_GetPixelsFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, int *intPtr)); /* 208 */ + int (*tk_GetReliefFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, int *resultPtr)); /* 209 */ + int (*tk_GetScrollInfoObj) _ANSI_ARGS_((Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], double *dblPtr, int *intPtr)); /* 210 */ + int (*tk_InitOptions) _ANSI_ARGS_((Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin)); /* 211 */ + void (*tk_MainEx) _ANSI_ARGS_((int argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp)); /* 212 */ + void (*tk_RestoreSavedOptions) _ANSI_ARGS_((Tk_SavedOptions *savePtr)); /* 213 */ + int (*tk_SetOptions) _ANSI_ARGS_((Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, int objc, Tcl_Obj *CONST objv[], Tk_Window tkwin, Tk_SavedOptions *savePtr, int *maskPtr)); /* 214 */ + void (*tk_InitConsoleChannels) _ANSI_ARGS_((Tcl_Interp *interp)); /* 215 */ + int (*tk_CreateConsoleWindow) _ANSI_ARGS_((Tcl_Interp *interp)); /* 216 */ + void (*tk_CreateSmoothMethod) _ANSI_ARGS_((Tcl_Interp *interp, Tk_SmoothMethod *method)); /* 217 */ + VOID *reserved218; + VOID *reserved219; + int (*tk_GetDash) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *value, Tk_Dash *dash)); /* 220 */ + void (*tk_CreateOutline) _ANSI_ARGS_((Tk_Outline *outline)); /* 221 */ + void (*tk_DeleteOutline) _ANSI_ARGS_((Display *display, Tk_Outline *outline)); /* 222 */ + int (*tk_ConfigOutlineGC) _ANSI_ARGS_((XGCValues *gcValues, Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline)); /* 223 */ + int (*tk_ChangeOutlineGC) _ANSI_ARGS_((Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline)); /* 224 */ + int (*tk_ResetOutlineGC) _ANSI_ARGS_((Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline)); /* 225 */ + int (*tk_CanvasPsOutline) _ANSI_ARGS_((Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline)); /* 226 */ + void (*tk_SetTSOrigin) _ANSI_ARGS_((Tk_Window tkwin, GC gc, int x, int y)); /* 227 */ + int (*tk_CanvasGetCoordFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Canvas canvas, Tcl_Obj *obj, double *doublePtr)); /* 228 */ + void (*tk_CanvasSetOffset) _ANSI_ARGS_((Tk_Canvas canvas, GC gc, Tk_TSOffset *offset)); /* 229 */ + void (*tk_DitherPhoto) _ANSI_ARGS_((Tk_PhotoHandle handle, int x, int y, int width, int height)); /* 230 */ + int (*tk_PostscriptBitmap) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap, int startX, int startY, int width, int height)); /* 231 */ + int (*tk_PostscriptColor) _ANSI_ARGS_((Tcl_Interp *interp, Tk_PostscriptInfo psInfo, XColor *colorPtr)); /* 232 */ + int (*tk_PostscriptFont) _ANSI_ARGS_((Tcl_Interp *interp, Tk_PostscriptInfo psInfo, Tk_Font font)); /* 233 */ + int (*tk_PostscriptImage) _ANSI_ARGS_((Tk_Image image, Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, int x, int y, int width, int height, int prepass)); /* 234 */ + void (*tk_PostscriptPath) _ANSI_ARGS_((Tcl_Interp *interp, Tk_PostscriptInfo psInfo, double *coordPtr, int numPoints)); /* 235 */ + int (*tk_PostscriptStipple) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap)); /* 236 */ + double (*tk_PostscriptY) _ANSI_ARGS_((double y, Tk_PostscriptInfo psInfo)); /* 237 */ + int (*tk_PostscriptPhoto) _ANSI_ARGS_((Tcl_Interp *interp, Tk_PhotoImageBlock *blockPtr, Tk_PostscriptInfo psInfo, int width, int height)); /* 238 */ + void (*tk_CreateClientMessageHandler) _ANSI_ARGS_((Tk_ClientMessageProc *proc)); /* 239 */ + void (*tk_DeleteClientMessageHandler) _ANSI_ARGS_((Tk_ClientMessageProc *proc)); /* 240 */ + Tk_Window (*tk_CreateAnonymousWindow) _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window parent, CONST char *screenName)); /* 241 */ + void (*tk_SetClassProcs) _ANSI_ARGS_((Tk_Window tkwin, Tk_ClassProcs *procs, ClientData instanceData)); /* 242 */ + void (*tk_SetInternalBorderEx) _ANSI_ARGS_((Tk_Window tkwin, int left, int right, int top, int bottom)); /* 243 */ + void (*tk_SetMinimumRequestSize) _ANSI_ARGS_((Tk_Window tkwin, int minWidth, int minHeight)); /* 244 */ + void (*tk_SetCaretPos) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int height)); /* 245 */ + void (*tk_PhotoPutBlock) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule)); /* 246 */ + void (*tk_PhotoPutZoomedBlock) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule)); /* 247 */ + int (*tk_CollapseMotionEvents) _ANSI_ARGS_((Display *display, int collapse)); /* 248 */ + Tk_StyleEngine (*tk_RegisterStyleEngine) _ANSI_ARGS_((CONST char *name, Tk_StyleEngine parent)); /* 249 */ + Tk_StyleEngine (*tk_GetStyleEngine) _ANSI_ARGS_((CONST char *name)); /* 250 */ + int (*tk_RegisterStyledElement) _ANSI_ARGS_((Tk_StyleEngine engine, Tk_ElementSpec *templatePtr)); /* 251 */ + int (*tk_GetElementId) _ANSI_ARGS_((CONST char *name)); /* 252 */ + Tk_Style (*tk_CreateStyle) _ANSI_ARGS_((CONST char *name, Tk_StyleEngine engine, ClientData clientData)); /* 253 */ + Tk_Style (*tk_GetStyle) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name)); /* 254 */ + void (*tk_FreeStyle) _ANSI_ARGS_((Tk_Style style)); /* 255 */ + CONST char * (*tk_NameOfStyle) _ANSI_ARGS_((Tk_Style style)); /* 256 */ + Tk_Style (*tk_AllocStyleFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr)); /* 257 */ + Tk_Style (*tk_GetStyleFromObj) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 258 */ + void (*tk_FreeStyleFromObj) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 259 */ + Tk_StyledElement (*tk_GetStyledElement) _ANSI_ARGS_((Tk_Style style, int elementId, Tk_OptionTable optionTable)); /* 260 */ + void (*tk_GetElementSize) _ANSI_ARGS_((Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int width, int height, int inner, int *widthPtr, int *heightPtr)); /* 261 */ + void (*tk_GetElementBox) _ANSI_ARGS_((Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int x, int y, int width, int height, int inner, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr)); /* 262 */ + int (*tk_GetElementBorderWidth) _ANSI_ARGS_((Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin)); /* 263 */ + void (*tk_DrawElement) _ANSI_ARGS_((Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, Drawable d, int x, int y, int width, int height, int state)); /* 264 */ + VOID *reserved265; + VOID *reserved266; + VOID *reserved267; + VOID *reserved268; + VOID *reserved269; + VOID *reserved270; + VOID *reserved271; + VOID *reserved272; + VOID *reserved273; + VOID *reserved274; + void (*tkUnusedStubEntry) _ANSI_ARGS_((void)); /* 275 */ +} TkStubs; + +#ifdef __cplusplus +extern "C" { +#endif +extern TkStubs *tkStubsPtr; +#ifdef __cplusplus +} +#endif + +#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#ifndef Tk_MainLoop +#define Tk_MainLoop \ + (tkStubsPtr->tk_MainLoop) /* 0 */ +#endif +#ifndef Tk_3DBorderColor +#define Tk_3DBorderColor \ + (tkStubsPtr->tk_3DBorderColor) /* 1 */ +#endif +#ifndef Tk_3DBorderGC +#define Tk_3DBorderGC \ + (tkStubsPtr->tk_3DBorderGC) /* 2 */ +#endif +#ifndef Tk_3DHorizontalBevel +#define Tk_3DHorizontalBevel \ + (tkStubsPtr->tk_3DHorizontalBevel) /* 3 */ +#endif +#ifndef Tk_3DVerticalBevel +#define Tk_3DVerticalBevel \ + (tkStubsPtr->tk_3DVerticalBevel) /* 4 */ +#endif +#ifndef Tk_AddOption +#define Tk_AddOption \ + (tkStubsPtr->tk_AddOption) /* 5 */ +#endif +#ifndef Tk_BindEvent +#define Tk_BindEvent \ + (tkStubsPtr->tk_BindEvent) /* 6 */ +#endif +#ifndef Tk_CanvasDrawableCoords +#define Tk_CanvasDrawableCoords \ + (tkStubsPtr->tk_CanvasDrawableCoords) /* 7 */ +#endif +#ifndef Tk_CanvasEventuallyRedraw +#define Tk_CanvasEventuallyRedraw \ + (tkStubsPtr->tk_CanvasEventuallyRedraw) /* 8 */ +#endif +#ifndef Tk_CanvasGetCoord +#define Tk_CanvasGetCoord \ + (tkStubsPtr->tk_CanvasGetCoord) /* 9 */ +#endif +#ifndef Tk_CanvasGetTextInfo +#define Tk_CanvasGetTextInfo \ + (tkStubsPtr->tk_CanvasGetTextInfo) /* 10 */ +#endif +#ifndef Tk_CanvasPsBitmap +#define Tk_CanvasPsBitmap \ + (tkStubsPtr->tk_CanvasPsBitmap) /* 11 */ +#endif +#ifndef Tk_CanvasPsColor +#define Tk_CanvasPsColor \ + (tkStubsPtr->tk_CanvasPsColor) /* 12 */ +#endif +#ifndef Tk_CanvasPsFont +#define Tk_CanvasPsFont \ + (tkStubsPtr->tk_CanvasPsFont) /* 13 */ +#endif +#ifndef Tk_CanvasPsPath +#define Tk_CanvasPsPath \ + (tkStubsPtr->tk_CanvasPsPath) /* 14 */ +#endif +#ifndef Tk_CanvasPsStipple +#define Tk_CanvasPsStipple \ + (tkStubsPtr->tk_CanvasPsStipple) /* 15 */ +#endif +#ifndef Tk_CanvasPsY +#define Tk_CanvasPsY \ + (tkStubsPtr->tk_CanvasPsY) /* 16 */ +#endif +#ifndef Tk_CanvasSetStippleOrigin +#define Tk_CanvasSetStippleOrigin \ + (tkStubsPtr->tk_CanvasSetStippleOrigin) /* 17 */ +#endif +#ifndef Tk_CanvasTagsParseProc +#define Tk_CanvasTagsParseProc \ + (tkStubsPtr->tk_CanvasTagsParseProc) /* 18 */ +#endif +#ifndef Tk_CanvasTagsPrintProc +#define Tk_CanvasTagsPrintProc \ + (tkStubsPtr->tk_CanvasTagsPrintProc) /* 19 */ +#endif +#ifndef Tk_CanvasTkwin +#define Tk_CanvasTkwin \ + (tkStubsPtr->tk_CanvasTkwin) /* 20 */ +#endif +#ifndef Tk_CanvasWindowCoords +#define Tk_CanvasWindowCoords \ + (tkStubsPtr->tk_CanvasWindowCoords) /* 21 */ +#endif +#ifndef Tk_ChangeWindowAttributes +#define Tk_ChangeWindowAttributes \ + (tkStubsPtr->tk_ChangeWindowAttributes) /* 22 */ +#endif +#ifndef Tk_CharBbox +#define Tk_CharBbox \ + (tkStubsPtr->tk_CharBbox) /* 23 */ +#endif +#ifndef Tk_ClearSelection +#define Tk_ClearSelection \ + (tkStubsPtr->tk_ClearSelection) /* 24 */ +#endif +#ifndef Tk_ClipboardAppend +#define Tk_ClipboardAppend \ + (tkStubsPtr->tk_ClipboardAppend) /* 25 */ +#endif +#ifndef Tk_ClipboardClear +#define Tk_ClipboardClear \ + (tkStubsPtr->tk_ClipboardClear) /* 26 */ +#endif +#ifndef Tk_ConfigureInfo +#define Tk_ConfigureInfo \ + (tkStubsPtr->tk_ConfigureInfo) /* 27 */ +#endif +#ifndef Tk_ConfigureValue +#define Tk_ConfigureValue \ + (tkStubsPtr->tk_ConfigureValue) /* 28 */ +#endif +#ifndef Tk_ConfigureWidget +#define Tk_ConfigureWidget \ + (tkStubsPtr->tk_ConfigureWidget) /* 29 */ +#endif +#ifndef Tk_ConfigureWindow +#define Tk_ConfigureWindow \ + (tkStubsPtr->tk_ConfigureWindow) /* 30 */ +#endif +#ifndef Tk_ComputeTextLayout +#define Tk_ComputeTextLayout \ + (tkStubsPtr->tk_ComputeTextLayout) /* 31 */ +#endif +#ifndef Tk_CoordsToWindow +#define Tk_CoordsToWindow \ + (tkStubsPtr->tk_CoordsToWindow) /* 32 */ +#endif +#ifndef Tk_CreateBinding +#define Tk_CreateBinding \ + (tkStubsPtr->tk_CreateBinding) /* 33 */ +#endif +#ifndef Tk_CreateBindingTable +#define Tk_CreateBindingTable \ + (tkStubsPtr->tk_CreateBindingTable) /* 34 */ +#endif +#ifndef Tk_CreateErrorHandler +#define Tk_CreateErrorHandler \ + (tkStubsPtr->tk_CreateErrorHandler) /* 35 */ +#endif +#ifndef Tk_CreateEventHandler +#define Tk_CreateEventHandler \ + (tkStubsPtr->tk_CreateEventHandler) /* 36 */ +#endif +#ifndef Tk_CreateGenericHandler +#define Tk_CreateGenericHandler \ + (tkStubsPtr->tk_CreateGenericHandler) /* 37 */ +#endif +#ifndef Tk_CreateImageType +#define Tk_CreateImageType \ + (tkStubsPtr->tk_CreateImageType) /* 38 */ +#endif +#ifndef Tk_CreateItemType +#define Tk_CreateItemType \ + (tkStubsPtr->tk_CreateItemType) /* 39 */ +#endif +#ifndef Tk_CreatePhotoImageFormat +#define Tk_CreatePhotoImageFormat \ + (tkStubsPtr->tk_CreatePhotoImageFormat) /* 40 */ +#endif +#ifndef Tk_CreateSelHandler +#define Tk_CreateSelHandler \ + (tkStubsPtr->tk_CreateSelHandler) /* 41 */ +#endif +#ifndef Tk_CreateWindow +#define Tk_CreateWindow \ + (tkStubsPtr->tk_CreateWindow) /* 42 */ +#endif +#ifndef Tk_CreateWindowFromPath +#define Tk_CreateWindowFromPath \ + (tkStubsPtr->tk_CreateWindowFromPath) /* 43 */ +#endif +#ifndef Tk_DefineBitmap +#define Tk_DefineBitmap \ + (tkStubsPtr->tk_DefineBitmap) /* 44 */ +#endif +#ifndef Tk_DefineCursor +#define Tk_DefineCursor \ + (tkStubsPtr->tk_DefineCursor) /* 45 */ +#endif +#ifndef Tk_DeleteAllBindings +#define Tk_DeleteAllBindings \ + (tkStubsPtr->tk_DeleteAllBindings) /* 46 */ +#endif +#ifndef Tk_DeleteBinding +#define Tk_DeleteBinding \ + (tkStubsPtr->tk_DeleteBinding) /* 47 */ +#endif +#ifndef Tk_DeleteBindingTable +#define Tk_DeleteBindingTable \ + (tkStubsPtr->tk_DeleteBindingTable) /* 48 */ +#endif +#ifndef Tk_DeleteErrorHandler +#define Tk_DeleteErrorHandler \ + (tkStubsPtr->tk_DeleteErrorHandler) /* 49 */ +#endif +#ifndef Tk_DeleteEventHandler +#define Tk_DeleteEventHandler \ + (tkStubsPtr->tk_DeleteEventHandler) /* 50 */ +#endif +#ifndef Tk_DeleteGenericHandler +#define Tk_DeleteGenericHandler \ + (tkStubsPtr->tk_DeleteGenericHandler) /* 51 */ +#endif +#ifndef Tk_DeleteImage +#define Tk_DeleteImage \ + (tkStubsPtr->tk_DeleteImage) /* 52 */ +#endif +#ifndef Tk_DeleteSelHandler +#define Tk_DeleteSelHandler \ + (tkStubsPtr->tk_DeleteSelHandler) /* 53 */ +#endif +#ifndef Tk_DestroyWindow +#define Tk_DestroyWindow \ + (tkStubsPtr->tk_DestroyWindow) /* 54 */ +#endif +#ifndef Tk_DisplayName +#define Tk_DisplayName \ + (tkStubsPtr->tk_DisplayName) /* 55 */ +#endif +#ifndef Tk_DistanceToTextLayout +#define Tk_DistanceToTextLayout \ + (tkStubsPtr->tk_DistanceToTextLayout) /* 56 */ +#endif +#ifndef Tk_Draw3DPolygon +#define Tk_Draw3DPolygon \ + (tkStubsPtr->tk_Draw3DPolygon) /* 57 */ +#endif +#ifndef Tk_Draw3DRectangle +#define Tk_Draw3DRectangle \ + (tkStubsPtr->tk_Draw3DRectangle) /* 58 */ +#endif +#ifndef Tk_DrawChars +#define Tk_DrawChars \ + (tkStubsPtr->tk_DrawChars) /* 59 */ +#endif +#ifndef Tk_DrawFocusHighlight +#define Tk_DrawFocusHighlight \ + (tkStubsPtr->tk_DrawFocusHighlight) /* 60 */ +#endif +#ifndef Tk_DrawTextLayout +#define Tk_DrawTextLayout \ + (tkStubsPtr->tk_DrawTextLayout) /* 61 */ +#endif +#ifndef Tk_Fill3DPolygon +#define Tk_Fill3DPolygon \ + (tkStubsPtr->tk_Fill3DPolygon) /* 62 */ +#endif +#ifndef Tk_Fill3DRectangle +#define Tk_Fill3DRectangle \ + (tkStubsPtr->tk_Fill3DRectangle) /* 63 */ +#endif +#ifndef Tk_FindPhoto +#define Tk_FindPhoto \ + (tkStubsPtr->tk_FindPhoto) /* 64 */ +#endif +#ifndef Tk_FontId +#define Tk_FontId \ + (tkStubsPtr->tk_FontId) /* 65 */ +#endif +#ifndef Tk_Free3DBorder +#define Tk_Free3DBorder \ + (tkStubsPtr->tk_Free3DBorder) /* 66 */ +#endif +#ifndef Tk_FreeBitmap +#define Tk_FreeBitmap \ + (tkStubsPtr->tk_FreeBitmap) /* 67 */ +#endif +#ifndef Tk_FreeColor +#define Tk_FreeColor \ + (tkStubsPtr->tk_FreeColor) /* 68 */ +#endif +#ifndef Tk_FreeColormap +#define Tk_FreeColormap \ + (tkStubsPtr->tk_FreeColormap) /* 69 */ +#endif +#ifndef Tk_FreeCursor +#define Tk_FreeCursor \ + (tkStubsPtr->tk_FreeCursor) /* 70 */ +#endif +#ifndef Tk_FreeFont +#define Tk_FreeFont \ + (tkStubsPtr->tk_FreeFont) /* 71 */ +#endif +#ifndef Tk_FreeGC +#define Tk_FreeGC \ + (tkStubsPtr->tk_FreeGC) /* 72 */ +#endif +#ifndef Tk_FreeImage +#define Tk_FreeImage \ + (tkStubsPtr->tk_FreeImage) /* 73 */ +#endif +#ifndef Tk_FreeOptions +#define Tk_FreeOptions \ + (tkStubsPtr->tk_FreeOptions) /* 74 */ +#endif +#ifndef Tk_FreePixmap +#define Tk_FreePixmap \ + (tkStubsPtr->tk_FreePixmap) /* 75 */ +#endif +#ifndef Tk_FreeTextLayout +#define Tk_FreeTextLayout \ + (tkStubsPtr->tk_FreeTextLayout) /* 76 */ +#endif +#ifndef Tk_FreeXId +#define Tk_FreeXId \ + (tkStubsPtr->tk_FreeXId) /* 77 */ +#endif +#ifndef Tk_GCForColor +#define Tk_GCForColor \ + (tkStubsPtr->tk_GCForColor) /* 78 */ +#endif +#ifndef Tk_GeometryRequest +#define Tk_GeometryRequest \ + (tkStubsPtr->tk_GeometryRequest) /* 79 */ +#endif +#ifndef Tk_Get3DBorder +#define Tk_Get3DBorder \ + (tkStubsPtr->tk_Get3DBorder) /* 80 */ +#endif +#ifndef Tk_GetAllBindings +#define Tk_GetAllBindings \ + (tkStubsPtr->tk_GetAllBindings) /* 81 */ +#endif +#ifndef Tk_GetAnchor +#define Tk_GetAnchor \ + (tkStubsPtr->tk_GetAnchor) /* 82 */ +#endif +#ifndef Tk_GetAtomName +#define Tk_GetAtomName \ + (tkStubsPtr->tk_GetAtomName) /* 83 */ +#endif +#ifndef Tk_GetBinding +#define Tk_GetBinding \ + (tkStubsPtr->tk_GetBinding) /* 84 */ +#endif +#ifndef Tk_GetBitmap +#define Tk_GetBitmap \ + (tkStubsPtr->tk_GetBitmap) /* 85 */ +#endif +#ifndef Tk_GetBitmapFromData +#define Tk_GetBitmapFromData \ + (tkStubsPtr->tk_GetBitmapFromData) /* 86 */ +#endif +#ifndef Tk_GetCapStyle +#define Tk_GetCapStyle \ + (tkStubsPtr->tk_GetCapStyle) /* 87 */ +#endif +#ifndef Tk_GetColor +#define Tk_GetColor \ + (tkStubsPtr->tk_GetColor) /* 88 */ +#endif +#ifndef Tk_GetColorByValue +#define Tk_GetColorByValue \ + (tkStubsPtr->tk_GetColorByValue) /* 89 */ +#endif +#ifndef Tk_GetColormap +#define Tk_GetColormap \ + (tkStubsPtr->tk_GetColormap) /* 90 */ +#endif +#ifndef Tk_GetCursor +#define Tk_GetCursor \ + (tkStubsPtr->tk_GetCursor) /* 91 */ +#endif +#ifndef Tk_GetCursorFromData +#define Tk_GetCursorFromData \ + (tkStubsPtr->tk_GetCursorFromData) /* 92 */ +#endif +#ifndef Tk_GetFont +#define Tk_GetFont \ + (tkStubsPtr->tk_GetFont) /* 93 */ +#endif +#ifndef Tk_GetFontFromObj +#define Tk_GetFontFromObj \ + (tkStubsPtr->tk_GetFontFromObj) /* 94 */ +#endif +#ifndef Tk_GetFontMetrics +#define Tk_GetFontMetrics \ + (tkStubsPtr->tk_GetFontMetrics) /* 95 */ +#endif +#ifndef Tk_GetGC +#define Tk_GetGC \ + (tkStubsPtr->tk_GetGC) /* 96 */ +#endif +#ifndef Tk_GetImage +#define Tk_GetImage \ + (tkStubsPtr->tk_GetImage) /* 97 */ +#endif +#ifndef Tk_GetImageMasterData +#define Tk_GetImageMasterData \ + (tkStubsPtr->tk_GetImageMasterData) /* 98 */ +#endif +#ifndef Tk_GetItemTypes +#define Tk_GetItemTypes \ + (tkStubsPtr->tk_GetItemTypes) /* 99 */ +#endif +#ifndef Tk_GetJoinStyle +#define Tk_GetJoinStyle \ + (tkStubsPtr->tk_GetJoinStyle) /* 100 */ +#endif +#ifndef Tk_GetJustify +#define Tk_GetJustify \ + (tkStubsPtr->tk_GetJustify) /* 101 */ +#endif +#ifndef Tk_GetNumMainWindows +#define Tk_GetNumMainWindows \ + (tkStubsPtr->tk_GetNumMainWindows) /* 102 */ +#endif +#ifndef Tk_GetOption +#define Tk_GetOption \ + (tkStubsPtr->tk_GetOption) /* 103 */ +#endif +#ifndef Tk_GetPixels +#define Tk_GetPixels \ + (tkStubsPtr->tk_GetPixels) /* 104 */ +#endif +#ifndef Tk_GetPixmap +#define Tk_GetPixmap \ + (tkStubsPtr->tk_GetPixmap) /* 105 */ +#endif +#ifndef Tk_GetRelief +#define Tk_GetRelief \ + (tkStubsPtr->tk_GetRelief) /* 106 */ +#endif +#ifndef Tk_GetRootCoords +#define Tk_GetRootCoords \ + (tkStubsPtr->tk_GetRootCoords) /* 107 */ +#endif +#ifndef Tk_GetScrollInfo +#define Tk_GetScrollInfo \ + (tkStubsPtr->tk_GetScrollInfo) /* 108 */ +#endif +#ifndef Tk_GetScreenMM +#define Tk_GetScreenMM \ + (tkStubsPtr->tk_GetScreenMM) /* 109 */ +#endif +#ifndef Tk_GetSelection +#define Tk_GetSelection \ + (tkStubsPtr->tk_GetSelection) /* 110 */ +#endif +#ifndef Tk_GetUid +#define Tk_GetUid \ + (tkStubsPtr->tk_GetUid) /* 111 */ +#endif +#ifndef Tk_GetVisual +#define Tk_GetVisual \ + (tkStubsPtr->tk_GetVisual) /* 112 */ +#endif +#ifndef Tk_GetVRootGeometry +#define Tk_GetVRootGeometry \ + (tkStubsPtr->tk_GetVRootGeometry) /* 113 */ +#endif +#ifndef Tk_Grab +#define Tk_Grab \ + (tkStubsPtr->tk_Grab) /* 114 */ +#endif +#ifndef Tk_HandleEvent +#define Tk_HandleEvent \ + (tkStubsPtr->tk_HandleEvent) /* 115 */ +#endif +#ifndef Tk_IdToWindow +#define Tk_IdToWindow \ + (tkStubsPtr->tk_IdToWindow) /* 116 */ +#endif +#ifndef Tk_ImageChanged +#define Tk_ImageChanged \ + (tkStubsPtr->tk_ImageChanged) /* 117 */ +#endif +#ifndef Tk_Init +#define Tk_Init \ + (tkStubsPtr->tk_Init) /* 118 */ +#endif +#ifndef Tk_InternAtom +#define Tk_InternAtom \ + (tkStubsPtr->tk_InternAtom) /* 119 */ +#endif +#ifndef Tk_IntersectTextLayout +#define Tk_IntersectTextLayout \ + (tkStubsPtr->tk_IntersectTextLayout) /* 120 */ +#endif +#ifndef Tk_MaintainGeometry +#define Tk_MaintainGeometry \ + (tkStubsPtr->tk_MaintainGeometry) /* 121 */ +#endif +#ifndef Tk_MainWindow +#define Tk_MainWindow \ + (tkStubsPtr->tk_MainWindow) /* 122 */ +#endif +#ifndef Tk_MakeWindowExist +#define Tk_MakeWindowExist \ + (tkStubsPtr->tk_MakeWindowExist) /* 123 */ +#endif +#ifndef Tk_ManageGeometry +#define Tk_ManageGeometry \ + (tkStubsPtr->tk_ManageGeometry) /* 124 */ +#endif +#ifndef Tk_MapWindow +#define Tk_MapWindow \ + (tkStubsPtr->tk_MapWindow) /* 125 */ +#endif +#ifndef Tk_MeasureChars +#define Tk_MeasureChars \ + (tkStubsPtr->tk_MeasureChars) /* 126 */ +#endif +#ifndef Tk_MoveResizeWindow +#define Tk_MoveResizeWindow \ + (tkStubsPtr->tk_MoveResizeWindow) /* 127 */ +#endif +#ifndef Tk_MoveWindow +#define Tk_MoveWindow \ + (tkStubsPtr->tk_MoveWindow) /* 128 */ +#endif +#ifndef Tk_MoveToplevelWindow +#define Tk_MoveToplevelWindow \ + (tkStubsPtr->tk_MoveToplevelWindow) /* 129 */ +#endif +#ifndef Tk_NameOf3DBorder +#define Tk_NameOf3DBorder \ + (tkStubsPtr->tk_NameOf3DBorder) /* 130 */ +#endif +#ifndef Tk_NameOfAnchor +#define Tk_NameOfAnchor \ + (tkStubsPtr->tk_NameOfAnchor) /* 131 */ +#endif +#ifndef Tk_NameOfBitmap +#define Tk_NameOfBitmap \ + (tkStubsPtr->tk_NameOfBitmap) /* 132 */ +#endif +#ifndef Tk_NameOfCapStyle +#define Tk_NameOfCapStyle \ + (tkStubsPtr->tk_NameOfCapStyle) /* 133 */ +#endif +#ifndef Tk_NameOfColor +#define Tk_NameOfColor \ + (tkStubsPtr->tk_NameOfColor) /* 134 */ +#endif +#ifndef Tk_NameOfCursor +#define Tk_NameOfCursor \ + (tkStubsPtr->tk_NameOfCursor) /* 135 */ +#endif +#ifndef Tk_NameOfFont +#define Tk_NameOfFont \ + (tkStubsPtr->tk_NameOfFont) /* 136 */ +#endif +#ifndef Tk_NameOfImage +#define Tk_NameOfImage \ + (tkStubsPtr->tk_NameOfImage) /* 137 */ +#endif +#ifndef Tk_NameOfJoinStyle +#define Tk_NameOfJoinStyle \ + (tkStubsPtr->tk_NameOfJoinStyle) /* 138 */ +#endif +#ifndef Tk_NameOfJustify +#define Tk_NameOfJustify \ + (tkStubsPtr->tk_NameOfJustify) /* 139 */ +#endif +#ifndef Tk_NameOfRelief +#define Tk_NameOfRelief \ + (tkStubsPtr->tk_NameOfRelief) /* 140 */ +#endif +#ifndef Tk_NameToWindow +#define Tk_NameToWindow \ + (tkStubsPtr->tk_NameToWindow) /* 141 */ +#endif +#ifndef Tk_OwnSelection +#define Tk_OwnSelection \ + (tkStubsPtr->tk_OwnSelection) /* 142 */ +#endif +#ifndef Tk_ParseArgv +#define Tk_ParseArgv \ + (tkStubsPtr->tk_ParseArgv) /* 143 */ +#endif +#ifndef Tk_PhotoPutBlock_NoComposite +#define Tk_PhotoPutBlock_NoComposite \ + (tkStubsPtr->tk_PhotoPutBlock_NoComposite) /* 144 */ +#endif +#ifndef Tk_PhotoPutZoomedBlock_NoComposite +#define Tk_PhotoPutZoomedBlock_NoComposite \ + (tkStubsPtr->tk_PhotoPutZoomedBlock_NoComposite) /* 145 */ +#endif +#ifndef Tk_PhotoGetImage +#define Tk_PhotoGetImage \ + (tkStubsPtr->tk_PhotoGetImage) /* 146 */ +#endif +#ifndef Tk_PhotoBlank +#define Tk_PhotoBlank \ + (tkStubsPtr->tk_PhotoBlank) /* 147 */ +#endif +#ifndef Tk_PhotoExpand +#define Tk_PhotoExpand \ + (tkStubsPtr->tk_PhotoExpand) /* 148 */ +#endif +#ifndef Tk_PhotoGetSize +#define Tk_PhotoGetSize \ + (tkStubsPtr->tk_PhotoGetSize) /* 149 */ +#endif +#ifndef Tk_PhotoSetSize +#define Tk_PhotoSetSize \ + (tkStubsPtr->tk_PhotoSetSize) /* 150 */ +#endif +#ifndef Tk_PointToChar +#define Tk_PointToChar \ + (tkStubsPtr->tk_PointToChar) /* 151 */ +#endif +#ifndef Tk_PostscriptFontName +#define Tk_PostscriptFontName \ + (tkStubsPtr->tk_PostscriptFontName) /* 152 */ +#endif +#ifndef Tk_PreserveColormap +#define Tk_PreserveColormap \ + (tkStubsPtr->tk_PreserveColormap) /* 153 */ +#endif +#ifndef Tk_QueueWindowEvent +#define Tk_QueueWindowEvent \ + (tkStubsPtr->tk_QueueWindowEvent) /* 154 */ +#endif +#ifndef Tk_RedrawImage +#define Tk_RedrawImage \ + (tkStubsPtr->tk_RedrawImage) /* 155 */ +#endif +#ifndef Tk_ResizeWindow +#define Tk_ResizeWindow \ + (tkStubsPtr->tk_ResizeWindow) /* 156 */ +#endif +#ifndef Tk_RestackWindow +#define Tk_RestackWindow \ + (tkStubsPtr->tk_RestackWindow) /* 157 */ +#endif +#ifndef Tk_RestrictEvents +#define Tk_RestrictEvents \ + (tkStubsPtr->tk_RestrictEvents) /* 158 */ +#endif +#ifndef Tk_SafeInit +#define Tk_SafeInit \ + (tkStubsPtr->tk_SafeInit) /* 159 */ +#endif +#ifndef Tk_SetAppName +#define Tk_SetAppName \ + (tkStubsPtr->tk_SetAppName) /* 160 */ +#endif +#ifndef Tk_SetBackgroundFromBorder +#define Tk_SetBackgroundFromBorder \ + (tkStubsPtr->tk_SetBackgroundFromBorder) /* 161 */ +#endif +#ifndef Tk_SetClass +#define Tk_SetClass \ + (tkStubsPtr->tk_SetClass) /* 162 */ +#endif +#ifndef Tk_SetGrid +#define Tk_SetGrid \ + (tkStubsPtr->tk_SetGrid) /* 163 */ +#endif +#ifndef Tk_SetInternalBorder +#define Tk_SetInternalBorder \ + (tkStubsPtr->tk_SetInternalBorder) /* 164 */ +#endif +#ifndef Tk_SetWindowBackground +#define Tk_SetWindowBackground \ + (tkStubsPtr->tk_SetWindowBackground) /* 165 */ +#endif +#ifndef Tk_SetWindowBackgroundPixmap +#define Tk_SetWindowBackgroundPixmap \ + (tkStubsPtr->tk_SetWindowBackgroundPixmap) /* 166 */ +#endif +#ifndef Tk_SetWindowBorder +#define Tk_SetWindowBorder \ + (tkStubsPtr->tk_SetWindowBorder) /* 167 */ +#endif +#ifndef Tk_SetWindowBorderWidth +#define Tk_SetWindowBorderWidth \ + (tkStubsPtr->tk_SetWindowBorderWidth) /* 168 */ +#endif +#ifndef Tk_SetWindowBorderPixmap +#define Tk_SetWindowBorderPixmap \ + (tkStubsPtr->tk_SetWindowBorderPixmap) /* 169 */ +#endif +#ifndef Tk_SetWindowColormap +#define Tk_SetWindowColormap \ + (tkStubsPtr->tk_SetWindowColormap) /* 170 */ +#endif +#ifndef Tk_SetWindowVisual +#define Tk_SetWindowVisual \ + (tkStubsPtr->tk_SetWindowVisual) /* 171 */ +#endif +#ifndef Tk_SizeOfBitmap +#define Tk_SizeOfBitmap \ + (tkStubsPtr->tk_SizeOfBitmap) /* 172 */ +#endif +#ifndef Tk_SizeOfImage +#define Tk_SizeOfImage \ + (tkStubsPtr->tk_SizeOfImage) /* 173 */ +#endif +#ifndef Tk_StrictMotif +#define Tk_StrictMotif \ + (tkStubsPtr->tk_StrictMotif) /* 174 */ +#endif +#ifndef Tk_TextLayoutToPostscript +#define Tk_TextLayoutToPostscript \ + (tkStubsPtr->tk_TextLayoutToPostscript) /* 175 */ +#endif +#ifndef Tk_TextWidth +#define Tk_TextWidth \ + (tkStubsPtr->tk_TextWidth) /* 176 */ +#endif +#ifndef Tk_UndefineCursor +#define Tk_UndefineCursor \ + (tkStubsPtr->tk_UndefineCursor) /* 177 */ +#endif +#ifndef Tk_UnderlineChars +#define Tk_UnderlineChars \ + (tkStubsPtr->tk_UnderlineChars) /* 178 */ +#endif +#ifndef Tk_UnderlineTextLayout +#define Tk_UnderlineTextLayout \ + (tkStubsPtr->tk_UnderlineTextLayout) /* 179 */ +#endif +#ifndef Tk_Ungrab +#define Tk_Ungrab \ + (tkStubsPtr->tk_Ungrab) /* 180 */ +#endif +#ifndef Tk_UnmaintainGeometry +#define Tk_UnmaintainGeometry \ + (tkStubsPtr->tk_UnmaintainGeometry) /* 181 */ +#endif +#ifndef Tk_UnmapWindow +#define Tk_UnmapWindow \ + (tkStubsPtr->tk_UnmapWindow) /* 182 */ +#endif +#ifndef Tk_UnsetGrid +#define Tk_UnsetGrid \ + (tkStubsPtr->tk_UnsetGrid) /* 183 */ +#endif +#ifndef Tk_UpdatePointer +#define Tk_UpdatePointer \ + (tkStubsPtr->tk_UpdatePointer) /* 184 */ +#endif +#ifndef Tk_AllocBitmapFromObj +#define Tk_AllocBitmapFromObj \ + (tkStubsPtr->tk_AllocBitmapFromObj) /* 185 */ +#endif +#ifndef Tk_Alloc3DBorderFromObj +#define Tk_Alloc3DBorderFromObj \ + (tkStubsPtr->tk_Alloc3DBorderFromObj) /* 186 */ +#endif +#ifndef Tk_AllocColorFromObj +#define Tk_AllocColorFromObj \ + (tkStubsPtr->tk_AllocColorFromObj) /* 187 */ +#endif +#ifndef Tk_AllocCursorFromObj +#define Tk_AllocCursorFromObj \ + (tkStubsPtr->tk_AllocCursorFromObj) /* 188 */ +#endif +#ifndef Tk_AllocFontFromObj +#define Tk_AllocFontFromObj \ + (tkStubsPtr->tk_AllocFontFromObj) /* 189 */ +#endif +#ifndef Tk_CreateOptionTable +#define Tk_CreateOptionTable \ + (tkStubsPtr->tk_CreateOptionTable) /* 190 */ +#endif +#ifndef Tk_DeleteOptionTable +#define Tk_DeleteOptionTable \ + (tkStubsPtr->tk_DeleteOptionTable) /* 191 */ +#endif +#ifndef Tk_Free3DBorderFromObj +#define Tk_Free3DBorderFromObj \ + (tkStubsPtr->tk_Free3DBorderFromObj) /* 192 */ +#endif +#ifndef Tk_FreeBitmapFromObj +#define Tk_FreeBitmapFromObj \ + (tkStubsPtr->tk_FreeBitmapFromObj) /* 193 */ +#endif +#ifndef Tk_FreeColorFromObj +#define Tk_FreeColorFromObj \ + (tkStubsPtr->tk_FreeColorFromObj) /* 194 */ +#endif +#ifndef Tk_FreeConfigOptions +#define Tk_FreeConfigOptions \ + (tkStubsPtr->tk_FreeConfigOptions) /* 195 */ +#endif +#ifndef Tk_FreeSavedOptions +#define Tk_FreeSavedOptions \ + (tkStubsPtr->tk_FreeSavedOptions) /* 196 */ +#endif +#ifndef Tk_FreeCursorFromObj +#define Tk_FreeCursorFromObj \ + (tkStubsPtr->tk_FreeCursorFromObj) /* 197 */ +#endif +#ifndef Tk_FreeFontFromObj +#define Tk_FreeFontFromObj \ + (tkStubsPtr->tk_FreeFontFromObj) /* 198 */ +#endif +#ifndef Tk_Get3DBorderFromObj +#define Tk_Get3DBorderFromObj \ + (tkStubsPtr->tk_Get3DBorderFromObj) /* 199 */ +#endif +#ifndef Tk_GetAnchorFromObj +#define Tk_GetAnchorFromObj \ + (tkStubsPtr->tk_GetAnchorFromObj) /* 200 */ +#endif +#ifndef Tk_GetBitmapFromObj +#define Tk_GetBitmapFromObj \ + (tkStubsPtr->tk_GetBitmapFromObj) /* 201 */ +#endif +#ifndef Tk_GetColorFromObj +#define Tk_GetColorFromObj \ + (tkStubsPtr->tk_GetColorFromObj) /* 202 */ +#endif +#ifndef Tk_GetCursorFromObj +#define Tk_GetCursorFromObj \ + (tkStubsPtr->tk_GetCursorFromObj) /* 203 */ +#endif +#ifndef Tk_GetOptionInfo +#define Tk_GetOptionInfo \ + (tkStubsPtr->tk_GetOptionInfo) /* 204 */ +#endif +#ifndef Tk_GetOptionValue +#define Tk_GetOptionValue \ + (tkStubsPtr->tk_GetOptionValue) /* 205 */ +#endif +#ifndef Tk_GetJustifyFromObj +#define Tk_GetJustifyFromObj \ + (tkStubsPtr->tk_GetJustifyFromObj) /* 206 */ +#endif +#ifndef Tk_GetMMFromObj +#define Tk_GetMMFromObj \ + (tkStubsPtr->tk_GetMMFromObj) /* 207 */ +#endif +#ifndef Tk_GetPixelsFromObj +#define Tk_GetPixelsFromObj \ + (tkStubsPtr->tk_GetPixelsFromObj) /* 208 */ +#endif +#ifndef Tk_GetReliefFromObj +#define Tk_GetReliefFromObj \ + (tkStubsPtr->tk_GetReliefFromObj) /* 209 */ +#endif +#ifndef Tk_GetScrollInfoObj +#define Tk_GetScrollInfoObj \ + (tkStubsPtr->tk_GetScrollInfoObj) /* 210 */ +#endif +#ifndef Tk_InitOptions +#define Tk_InitOptions \ + (tkStubsPtr->tk_InitOptions) /* 211 */ +#endif +#ifndef Tk_MainEx +#define Tk_MainEx \ + (tkStubsPtr->tk_MainEx) /* 212 */ +#endif +#ifndef Tk_RestoreSavedOptions +#define Tk_RestoreSavedOptions \ + (tkStubsPtr->tk_RestoreSavedOptions) /* 213 */ +#endif +#ifndef Tk_SetOptions +#define Tk_SetOptions \ + (tkStubsPtr->tk_SetOptions) /* 214 */ +#endif +#ifndef Tk_InitConsoleChannels +#define Tk_InitConsoleChannels \ + (tkStubsPtr->tk_InitConsoleChannels) /* 215 */ +#endif +#ifndef Tk_CreateConsoleWindow +#define Tk_CreateConsoleWindow \ + (tkStubsPtr->tk_CreateConsoleWindow) /* 216 */ +#endif +#ifndef Tk_CreateSmoothMethod +#define Tk_CreateSmoothMethod \ + (tkStubsPtr->tk_CreateSmoothMethod) /* 217 */ +#endif +/* Slot 218 is reserved */ +/* Slot 219 is reserved */ +#ifndef Tk_GetDash +#define Tk_GetDash \ + (tkStubsPtr->tk_GetDash) /* 220 */ +#endif +#ifndef Tk_CreateOutline +#define Tk_CreateOutline \ + (tkStubsPtr->tk_CreateOutline) /* 221 */ +#endif +#ifndef Tk_DeleteOutline +#define Tk_DeleteOutline \ + (tkStubsPtr->tk_DeleteOutline) /* 222 */ +#endif +#ifndef Tk_ConfigOutlineGC +#define Tk_ConfigOutlineGC \ + (tkStubsPtr->tk_ConfigOutlineGC) /* 223 */ +#endif +#ifndef Tk_ChangeOutlineGC +#define Tk_ChangeOutlineGC \ + (tkStubsPtr->tk_ChangeOutlineGC) /* 224 */ +#endif +#ifndef Tk_ResetOutlineGC +#define Tk_ResetOutlineGC \ + (tkStubsPtr->tk_ResetOutlineGC) /* 225 */ +#endif +#ifndef Tk_CanvasPsOutline +#define Tk_CanvasPsOutline \ + (tkStubsPtr->tk_CanvasPsOutline) /* 226 */ +#endif +#ifndef Tk_SetTSOrigin +#define Tk_SetTSOrigin \ + (tkStubsPtr->tk_SetTSOrigin) /* 227 */ +#endif +#ifndef Tk_CanvasGetCoordFromObj +#define Tk_CanvasGetCoordFromObj \ + (tkStubsPtr->tk_CanvasGetCoordFromObj) /* 228 */ +#endif +#ifndef Tk_CanvasSetOffset +#define Tk_CanvasSetOffset \ + (tkStubsPtr->tk_CanvasSetOffset) /* 229 */ +#endif +#ifndef Tk_DitherPhoto +#define Tk_DitherPhoto \ + (tkStubsPtr->tk_DitherPhoto) /* 230 */ +#endif +#ifndef Tk_PostscriptBitmap +#define Tk_PostscriptBitmap \ + (tkStubsPtr->tk_PostscriptBitmap) /* 231 */ +#endif +#ifndef Tk_PostscriptColor +#define Tk_PostscriptColor \ + (tkStubsPtr->tk_PostscriptColor) /* 232 */ +#endif +#ifndef Tk_PostscriptFont +#define Tk_PostscriptFont \ + (tkStubsPtr->tk_PostscriptFont) /* 233 */ +#endif +#ifndef Tk_PostscriptImage +#define Tk_PostscriptImage \ + (tkStubsPtr->tk_PostscriptImage) /* 234 */ +#endif +#ifndef Tk_PostscriptPath +#define Tk_PostscriptPath \ + (tkStubsPtr->tk_PostscriptPath) /* 235 */ +#endif +#ifndef Tk_PostscriptStipple +#define Tk_PostscriptStipple \ + (tkStubsPtr->tk_PostscriptStipple) /* 236 */ +#endif +#ifndef Tk_PostscriptY +#define Tk_PostscriptY \ + (tkStubsPtr->tk_PostscriptY) /* 237 */ +#endif +#ifndef Tk_PostscriptPhoto +#define Tk_PostscriptPhoto \ + (tkStubsPtr->tk_PostscriptPhoto) /* 238 */ +#endif +#ifndef Tk_CreateClientMessageHandler +#define Tk_CreateClientMessageHandler \ + (tkStubsPtr->tk_CreateClientMessageHandler) /* 239 */ +#endif +#ifndef Tk_DeleteClientMessageHandler +#define Tk_DeleteClientMessageHandler \ + (tkStubsPtr->tk_DeleteClientMessageHandler) /* 240 */ +#endif +#ifndef Tk_CreateAnonymousWindow +#define Tk_CreateAnonymousWindow \ + (tkStubsPtr->tk_CreateAnonymousWindow) /* 241 */ +#endif +#ifndef Tk_SetClassProcs +#define Tk_SetClassProcs \ + (tkStubsPtr->tk_SetClassProcs) /* 242 */ +#endif +#ifndef Tk_SetInternalBorderEx +#define Tk_SetInternalBorderEx \ + (tkStubsPtr->tk_SetInternalBorderEx) /* 243 */ +#endif +#ifndef Tk_SetMinimumRequestSize +#define Tk_SetMinimumRequestSize \ + (tkStubsPtr->tk_SetMinimumRequestSize) /* 244 */ +#endif +#ifndef Tk_SetCaretPos +#define Tk_SetCaretPos \ + (tkStubsPtr->tk_SetCaretPos) /* 245 */ +#endif +#ifndef Tk_PhotoPutBlock +#define Tk_PhotoPutBlock \ + (tkStubsPtr->tk_PhotoPutBlock) /* 246 */ +#endif +#ifndef Tk_PhotoPutZoomedBlock +#define Tk_PhotoPutZoomedBlock \ + (tkStubsPtr->tk_PhotoPutZoomedBlock) /* 247 */ +#endif +#ifndef Tk_CollapseMotionEvents +#define Tk_CollapseMotionEvents \ + (tkStubsPtr->tk_CollapseMotionEvents) /* 248 */ +#endif +#ifndef Tk_RegisterStyleEngine +#define Tk_RegisterStyleEngine \ + (tkStubsPtr->tk_RegisterStyleEngine) /* 249 */ +#endif +#ifndef Tk_GetStyleEngine +#define Tk_GetStyleEngine \ + (tkStubsPtr->tk_GetStyleEngine) /* 250 */ +#endif +#ifndef Tk_RegisterStyledElement +#define Tk_RegisterStyledElement \ + (tkStubsPtr->tk_RegisterStyledElement) /* 251 */ +#endif +#ifndef Tk_GetElementId +#define Tk_GetElementId \ + (tkStubsPtr->tk_GetElementId) /* 252 */ +#endif +#ifndef Tk_CreateStyle +#define Tk_CreateStyle \ + (tkStubsPtr->tk_CreateStyle) /* 253 */ +#endif +#ifndef Tk_GetStyle +#define Tk_GetStyle \ + (tkStubsPtr->tk_GetStyle) /* 254 */ +#endif +#ifndef Tk_FreeStyle +#define Tk_FreeStyle \ + (tkStubsPtr->tk_FreeStyle) /* 255 */ +#endif +#ifndef Tk_NameOfStyle +#define Tk_NameOfStyle \ + (tkStubsPtr->tk_NameOfStyle) /* 256 */ +#endif +#ifndef Tk_AllocStyleFromObj +#define Tk_AllocStyleFromObj \ + (tkStubsPtr->tk_AllocStyleFromObj) /* 257 */ +#endif +#ifndef Tk_GetStyleFromObj +#define Tk_GetStyleFromObj \ + (tkStubsPtr->tk_GetStyleFromObj) /* 258 */ +#endif +#ifndef Tk_FreeStyleFromObj +#define Tk_FreeStyleFromObj \ + (tkStubsPtr->tk_FreeStyleFromObj) /* 259 */ +#endif +#ifndef Tk_GetStyledElement +#define Tk_GetStyledElement \ + (tkStubsPtr->tk_GetStyledElement) /* 260 */ +#endif +#ifndef Tk_GetElementSize +#define Tk_GetElementSize \ + (tkStubsPtr->tk_GetElementSize) /* 261 */ +#endif +#ifndef Tk_GetElementBox +#define Tk_GetElementBox \ + (tkStubsPtr->tk_GetElementBox) /* 262 */ +#endif +#ifndef Tk_GetElementBorderWidth +#define Tk_GetElementBorderWidth \ + (tkStubsPtr->tk_GetElementBorderWidth) /* 263 */ +#endif +#ifndef Tk_DrawElement +#define Tk_DrawElement \ + (tkStubsPtr->tk_DrawElement) /* 264 */ +#endif +/* Slot 265 is reserved */ +/* Slot 266 is reserved */ +/* Slot 267 is reserved */ +/* Slot 268 is reserved */ +/* Slot 269 is reserved */ +/* Slot 270 is reserved */ +/* Slot 271 is reserved */ +/* Slot 272 is reserved */ +/* Slot 273 is reserved */ +/* Slot 274 is reserved */ +#ifndef TkUnusedStubEntry +#define TkUnusedStubEntry \ + (tkStubsPtr->tkUnusedStubEntry) /* 275 */ +#endif + +#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#undef TkUnusedStubEntry + +#endif /* _TKDECLS */ + diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tkPlatDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tkPlatDecls.h new file mode 100644 index 00000000..509b4f55 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.4/tkPlatDecls.h @@ -0,0 +1,205 @@ +/* + * tkPlatDecls.h -- + * + * Declarations of functions in the platform-specific public Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TKPLATDECLS +#define _TKPLATDECLS + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tk.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported function declarations: + */ + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ +/* 0 */ +EXTERN Window Tk_AttachHWND _ANSI_ARGS_((Tk_Window tkwin, + HWND hwnd)); +/* 1 */ +EXTERN HINSTANCE Tk_GetHINSTANCE _ANSI_ARGS_((void)); +/* 2 */ +EXTERN HWND Tk_GetHWND _ANSI_ARGS_((Window window)); +/* 3 */ +EXTERN Tk_Window Tk_HWNDToWindow _ANSI_ARGS_((HWND hwnd)); +/* 4 */ +EXTERN void Tk_PointerEvent _ANSI_ARGS_((HWND hwnd, int x, int y)); +/* 5 */ +EXTERN int Tk_TranslateWinEvent _ANSI_ARGS_((HWND hwnd, + UINT message, WPARAM wParam, LPARAM lParam, + LRESULT *result)); +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ +/* 0 */ +EXTERN void Tk_MacOSXSetEmbedHandler _ANSI_ARGS_(( + Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, + Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, + Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, + Tk_MacOSXEmbedGetClipProc *getClipProc, + Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc)); +/* 1 */ +EXTERN void Tk_MacOSXTurnOffMenus _ANSI_ARGS_((void)); +/* 2 */ +EXTERN void Tk_MacOSXTkOwnsCursor _ANSI_ARGS_((int tkOwnsIt)); +/* 3 */ +EXTERN void TkMacOSXInitMenus _ANSI_ARGS_((Tcl_Interp *interp)); +/* 4 */ +EXTERN void TkMacOSXInitAppleEvents _ANSI_ARGS_(( + Tcl_Interp *interp)); +/* 5 */ +EXTERN void TkGenWMConfigureEvent _ANSI_ARGS_((Tk_Window tkwin, + int x, int y, int width, int height, + int flags)); +/* 6 */ +EXTERN void TkMacOSXInvalClipRgns _ANSI_ARGS_((Tk_Window tkwin)); +/* 7 */ +EXTERN GWorldPtr TkMacOSXGetDrawablePort _ANSI_ARGS_(( + Drawable drawable)); +/* 8 */ +EXTERN ControlRef TkMacOSXGetRootControl _ANSI_ARGS_(( + Drawable drawable)); +/* 9 */ +EXTERN void Tk_MacOSXSetupTkNotifier _ANSI_ARGS_((void)); +/* 10 */ +EXTERN int Tk_MacOSXIsAppInFront _ANSI_ARGS_((void)); +#endif /* AQUA */ + +typedef struct TkPlatStubs { + int magic; + struct TkPlatStubHooks *hooks; + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ + Window (*tk_AttachHWND) _ANSI_ARGS_((Tk_Window tkwin, HWND hwnd)); /* 0 */ + HINSTANCE (*tk_GetHINSTANCE) _ANSI_ARGS_((void)); /* 1 */ + HWND (*tk_GetHWND) _ANSI_ARGS_((Window window)); /* 2 */ + Tk_Window (*tk_HWNDToWindow) _ANSI_ARGS_((HWND hwnd)); /* 3 */ + void (*tk_PointerEvent) _ANSI_ARGS_((HWND hwnd, int x, int y)); /* 4 */ + int (*tk_TranslateWinEvent) _ANSI_ARGS_((HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam, LRESULT *result)); /* 5 */ +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ + void (*tk_MacOSXSetEmbedHandler) _ANSI_ARGS_((Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, Tk_MacOSXEmbedGetClipProc *getClipProc, Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc)); /* 0 */ + void (*tk_MacOSXTurnOffMenus) _ANSI_ARGS_((void)); /* 1 */ + void (*tk_MacOSXTkOwnsCursor) _ANSI_ARGS_((int tkOwnsIt)); /* 2 */ + void (*tkMacOSXInitMenus) _ANSI_ARGS_((Tcl_Interp *interp)); /* 3 */ + void (*tkMacOSXInitAppleEvents) _ANSI_ARGS_((Tcl_Interp *interp)); /* 4 */ + void (*tkGenWMConfigureEvent) _ANSI_ARGS_((Tk_Window tkwin, int x, int y, int width, int height, int flags)); /* 5 */ + void (*tkMacOSXInvalClipRgns) _ANSI_ARGS_((Tk_Window tkwin)); /* 6 */ + GWorldPtr (*tkMacOSXGetDrawablePort) _ANSI_ARGS_((Drawable drawable)); /* 7 */ + ControlRef (*tkMacOSXGetRootControl) _ANSI_ARGS_((Drawable drawable)); /* 8 */ + void (*tk_MacOSXSetupTkNotifier) _ANSI_ARGS_((void)); /* 9 */ + int (*tk_MacOSXIsAppInFront) _ANSI_ARGS_((void)); /* 10 */ +#endif /* AQUA */ +} TkPlatStubs; + +#ifdef __cplusplus +extern "C" { +#endif +extern TkPlatStubs *tkPlatStubsPtr; +#ifdef __cplusplus +} +#endif + +#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ +#ifndef Tk_AttachHWND +#define Tk_AttachHWND \ + (tkPlatStubsPtr->tk_AttachHWND) /* 0 */ +#endif +#ifndef Tk_GetHINSTANCE +#define Tk_GetHINSTANCE \ + (tkPlatStubsPtr->tk_GetHINSTANCE) /* 1 */ +#endif +#ifndef Tk_GetHWND +#define Tk_GetHWND \ + (tkPlatStubsPtr->tk_GetHWND) /* 2 */ +#endif +#ifndef Tk_HWNDToWindow +#define Tk_HWNDToWindow \ + (tkPlatStubsPtr->tk_HWNDToWindow) /* 3 */ +#endif +#ifndef Tk_PointerEvent +#define Tk_PointerEvent \ + (tkPlatStubsPtr->tk_PointerEvent) /* 4 */ +#endif +#ifndef Tk_TranslateWinEvent +#define Tk_TranslateWinEvent \ + (tkPlatStubsPtr->tk_TranslateWinEvent) /* 5 */ +#endif +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ +#ifndef Tk_MacOSXSetEmbedHandler +#define Tk_MacOSXSetEmbedHandler \ + (tkPlatStubsPtr->tk_MacOSXSetEmbedHandler) /* 0 */ +#endif +#ifndef Tk_MacOSXTurnOffMenus +#define Tk_MacOSXTurnOffMenus \ + (tkPlatStubsPtr->tk_MacOSXTurnOffMenus) /* 1 */ +#endif +#ifndef Tk_MacOSXTkOwnsCursor +#define Tk_MacOSXTkOwnsCursor \ + (tkPlatStubsPtr->tk_MacOSXTkOwnsCursor) /* 2 */ +#endif +#ifndef TkMacOSXInitMenus +#define TkMacOSXInitMenus \ + (tkPlatStubsPtr->tkMacOSXInitMenus) /* 3 */ +#endif +#ifndef TkMacOSXInitAppleEvents +#define TkMacOSXInitAppleEvents \ + (tkPlatStubsPtr->tkMacOSXInitAppleEvents) /* 4 */ +#endif +#ifndef TkGenWMConfigureEvent +#define TkGenWMConfigureEvent \ + (tkPlatStubsPtr->tkGenWMConfigureEvent) /* 5 */ +#endif +#ifndef TkMacOSXInvalClipRgns +#define TkMacOSXInvalClipRgns \ + (tkPlatStubsPtr->tkMacOSXInvalClipRgns) /* 6 */ +#endif +#ifndef TkMacOSXGetDrawablePort +#define TkMacOSXGetDrawablePort \ + (tkPlatStubsPtr->tkMacOSXGetDrawablePort) /* 7 */ +#endif +#ifndef TkMacOSXGetRootControl +#define TkMacOSXGetRootControl \ + (tkPlatStubsPtr->tkMacOSXGetRootControl) /* 8 */ +#endif +#ifndef Tk_MacOSXSetupTkNotifier +#define Tk_MacOSXSetupTkNotifier \ + (tkPlatStubsPtr->tk_MacOSXSetupTkNotifier) /* 9 */ +#endif +#ifndef Tk_MacOSXIsAppInFront +#define Tk_MacOSXIsAppInFront \ + (tkPlatStubsPtr->tk_MacOSXIsAppInFront) /* 10 */ +#endif +#endif /* AQUA */ + +#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* _TKPLATDECLS */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/X.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/X.h new file mode 100644 index 00000000..daf22830 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/X.h @@ -0,0 +1,677 @@ +/* + * $XConsortium: X.h,v 1.66 88/09/06 15:55:56 jim Exp $ + */ + +/* Definitions for the X window system likely to be used by applications */ + +#ifndef X_H +#define X_H + +/*********************************************************** +Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, +and the Massachusetts Institute of Technology, Cambridge, Massachusetts. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Digital or MIT not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. + +DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING +ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL +DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR +ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, +WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, +ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS +SOFTWARE. + +******************************************************************/ +#define X_PROTOCOL 11 /* current protocol version */ +#define X_PROTOCOL_REVISION 0 /* current minor version */ + +#if defined(MAC_OSX_TK) +# define Cursor XCursor +# define Region XRegion +#endif + +/* Resources */ + +#ifdef _WIN64 +typedef __int64 XID; +#else +typedef unsigned long XID; +#endif + +typedef XID Window; +typedef XID Drawable; +typedef XID Font; +typedef XID Pixmap; +typedef XID Cursor; +typedef XID Colormap; +typedef XID GContext; +typedef XID KeySym; + +typedef unsigned long Mask; + +typedef unsigned long Atom; + +typedef unsigned long VisualID; + +typedef unsigned long Time; + +typedef unsigned long KeyCode; /* In order to use IME, the Macintosh needs + * to pack 3 bytes into the keyCode field in + * the XEvent. In the real X.h, a KeyCode is + * defined as a short, which wouldn't be big + * enough. */ + +/***************************************************************** + * RESERVED RESOURCE AND CONSTANT DEFINITIONS + *****************************************************************/ + +#define None 0L /* universal null resource or null atom */ + +#define ParentRelative 1L /* background pixmap in CreateWindow + and ChangeWindowAttributes */ + +#define CopyFromParent 0L /* border pixmap in CreateWindow + and ChangeWindowAttributes + special VisualID and special window + class passed to CreateWindow */ + +#define PointerWindow 0L /* destination window in SendEvent */ +#define InputFocus 1L /* destination window in SendEvent */ + +#define PointerRoot 1L /* focus window in SetInputFocus */ + +#define AnyPropertyType 0L /* special Atom, passed to GetProperty */ + +#define AnyKey 0L /* special Key Code, passed to GrabKey */ + +#define AnyButton 0L /* special Button Code, passed to GrabButton */ + +#define AllTemporary 0L /* special Resource ID passed to KillClient */ + +#define CurrentTime 0L /* special Time */ + +#define NoSymbol 0L /* special KeySym */ + +/***************************************************************** + * EVENT DEFINITIONS + *****************************************************************/ + +/* Input Event Masks. Used as event-mask window attribute and as arguments + to Grab requests. Not to be confused with event names. */ + +#define NoEventMask 0L +#define KeyPressMask (1L<<0) +#define KeyReleaseMask (1L<<1) +#define ButtonPressMask (1L<<2) +#define ButtonReleaseMask (1L<<3) +#define EnterWindowMask (1L<<4) +#define LeaveWindowMask (1L<<5) +#define PointerMotionMask (1L<<6) +#define PointerMotionHintMask (1L<<7) +#define Button1MotionMask (1L<<8) +#define Button2MotionMask (1L<<9) +#define Button3MotionMask (1L<<10) +#define Button4MotionMask (1L<<11) +#define Button5MotionMask (1L<<12) +#define ButtonMotionMask (1L<<13) +#define KeymapStateMask (1L<<14) +#define ExposureMask (1L<<15) +#define VisibilityChangeMask (1L<<16) +#define StructureNotifyMask (1L<<17) +#define ResizeRedirectMask (1L<<18) +#define SubstructureNotifyMask (1L<<19) +#define SubstructureRedirectMask (1L<<20) +#define FocusChangeMask (1L<<21) +#define PropertyChangeMask (1L<<22) +#define ColormapChangeMask (1L<<23) +#define OwnerGrabButtonMask (1L<<24) + +/* Event names. Used in "type" field in XEvent structures. Not to be +confused with event masks above. They start from 2 because 0 and 1 +are reserved in the protocol for errors and replies. */ + +#define KeyPress 2 +#define KeyRelease 3 +#define ButtonPress 4 +#define ButtonRelease 5 +#define MotionNotify 6 +#define EnterNotify 7 +#define LeaveNotify 8 +#define FocusIn 9 +#define FocusOut 10 +#define KeymapNotify 11 +#define Expose 12 +#define GraphicsExpose 13 +#define NoExpose 14 +#define VisibilityNotify 15 +#define CreateNotify 16 +#define DestroyNotify 17 +#define UnmapNotify 18 +#define MapNotify 19 +#define MapRequest 20 +#define ReparentNotify 21 +#define ConfigureNotify 22 +#define ConfigureRequest 23 +#define GravityNotify 24 +#define ResizeRequest 25 +#define CirculateNotify 26 +#define CirculateRequest 27 +#define PropertyNotify 28 +#define SelectionClear 29 +#define SelectionRequest 30 +#define SelectionNotify 31 +#define ColormapNotify 32 +#define ClientMessage 33 +#define MappingNotify 34 +#define LASTEvent 35 /* must be bigger than any event # */ + + +/* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer, + state in various key-, mouse-, and button-related events. */ + +#define ShiftMask (1<<0) +#define LockMask (1<<1) +#define ControlMask (1<<2) +#define Mod1Mask (1<<3) +#define Mod2Mask (1<<4) +#define Mod3Mask (1<<5) +#define Mod4Mask (1<<6) +#define Mod5Mask (1<<7) + +/* modifier names. Used to build a SetModifierMapping request or + to read a GetModifierMapping request. These correspond to the + masks defined above. */ +#define ShiftMapIndex 0 +#define LockMapIndex 1 +#define ControlMapIndex 2 +#define Mod1MapIndex 3 +#define Mod2MapIndex 4 +#define Mod3MapIndex 5 +#define Mod4MapIndex 6 +#define Mod5MapIndex 7 + + +/* button masks. Used in same manner as Key masks above. Not to be confused + with button names below. */ + +#define Button1Mask (1<<8) +#define Button2Mask (1<<9) +#define Button3Mask (1<<10) +#define Button4Mask (1<<11) +#define Button5Mask (1<<12) + +#define AnyModifier (1<<15) /* used in GrabButton, GrabKey */ + + +/* button names. Used as arguments to GrabButton and as detail in ButtonPress + and ButtonRelease events. Not to be confused with button masks above. + Note that 0 is already defined above as "AnyButton". */ + +#define Button1 1 +#define Button2 2 +#define Button3 3 +#define Button4 4 +#define Button5 5 + +/* Notify modes */ + +#define NotifyNormal 0 +#define NotifyGrab 1 +#define NotifyUngrab 2 +#define NotifyWhileGrabbed 3 + +#define NotifyHint 1 /* for MotionNotify events */ + +/* Notify detail */ + +#define NotifyAncestor 0 +#define NotifyVirtual 1 +#define NotifyInferior 2 +#define NotifyNonlinear 3 +#define NotifyNonlinearVirtual 4 +#define NotifyPointer 5 +#define NotifyPointerRoot 6 +#define NotifyDetailNone 7 + +/* Visibility notify */ + +#define VisibilityUnobscured 0 +#define VisibilityPartiallyObscured 1 +#define VisibilityFullyObscured 2 + +/* Circulation request */ + +#define PlaceOnTop 0 +#define PlaceOnBottom 1 + +/* protocol families */ + +#define FamilyInternet 0 +#define FamilyDECnet 1 +#define FamilyChaos 2 + +/* Property notification */ + +#define PropertyNewValue 0 +#define PropertyDelete 1 + +/* Color Map notification */ + +#define ColormapUninstalled 0 +#define ColormapInstalled 1 + +/* GrabPointer, GrabButton, GrabKeyboard, GrabKey Modes */ + +#define GrabModeSync 0 +#define GrabModeAsync 1 + +/* GrabPointer, GrabKeyboard reply status */ + +#define GrabSuccess 0 +#define AlreadyGrabbed 1 +#define GrabInvalidTime 2 +#define GrabNotViewable 3 +#define GrabFrozen 4 + +/* AllowEvents modes */ + +#define AsyncPointer 0 +#define SyncPointer 1 +#define ReplayPointer 2 +#define AsyncKeyboard 3 +#define SyncKeyboard 4 +#define ReplayKeyboard 5 +#define AsyncBoth 6 +#define SyncBoth 7 + +/* Used in SetInputFocus, GetInputFocus */ + +#define RevertToNone (int)None +#define RevertToPointerRoot (int)PointerRoot +#define RevertToParent 2 + +/***************************************************************** + * ERROR CODES + *****************************************************************/ + +#define Success 0 /* everything's okay */ +#define BadRequest 1 /* bad request code */ +#define BadValue 2 /* int parameter out of range */ +#define BadWindow 3 /* parameter not a Window */ +#define BadPixmap 4 /* parameter not a Pixmap */ +#define BadAtom 5 /* parameter not an Atom */ +#define BadCursor 6 /* parameter not a Cursor */ +#define BadFont 7 /* parameter not a Font */ +#define BadMatch 8 /* parameter mismatch */ +#define BadDrawable 9 /* parameter not a Pixmap or Window */ +#define BadAccess 10 /* depending on context: + - key/button already grabbed + - attempt to free an illegal + cmap entry + - attempt to store into a read-only + color map entry. + - attempt to modify the access control + list from other than the local host. + */ +#define BadAlloc 11 /* insufficient resources */ +#define BadColor 12 /* no such colormap */ +#define BadGC 13 /* parameter not a GC */ +#define BadIDChoice 14 /* choice not in range or already used */ +#define BadName 15 /* font or color name doesn't exist */ +#define BadLength 16 /* Request length incorrect */ +#define BadImplementation 17 /* server is defective */ + +#define FirstExtensionError 128 +#define LastExtensionError 255 + +/***************************************************************** + * WINDOW DEFINITIONS + *****************************************************************/ + +/* Window classes used by CreateWindow */ +/* Note that CopyFromParent is already defined as 0 above */ + +#define InputOutput 1 +#define InputOnly 2 + +/* Window attributes for CreateWindow and ChangeWindowAttributes */ + +#define CWBackPixmap (1L<<0) +#define CWBackPixel (1L<<1) +#define CWBorderPixmap (1L<<2) +#define CWBorderPixel (1L<<3) +#define CWBitGravity (1L<<4) +#define CWWinGravity (1L<<5) +#define CWBackingStore (1L<<6) +#define CWBackingPlanes (1L<<7) +#define CWBackingPixel (1L<<8) +#define CWOverrideRedirect (1L<<9) +#define CWSaveUnder (1L<<10) +#define CWEventMask (1L<<11) +#define CWDontPropagate (1L<<12) +#define CWColormap (1L<<13) +#define CWCursor (1L<<14) + +/* ConfigureWindow structure */ + +#define CWX (1<<0) +#define CWY (1<<1) +#define CWWidth (1<<2) +#define CWHeight (1<<3) +#define CWBorderWidth (1<<4) +#define CWSibling (1<<5) +#define CWStackMode (1<<6) + + +/* Bit Gravity */ + +#define ForgetGravity 0 +#define NorthWestGravity 1 +#define NorthGravity 2 +#define NorthEastGravity 3 +#define WestGravity 4 +#define CenterGravity 5 +#define EastGravity 6 +#define SouthWestGravity 7 +#define SouthGravity 8 +#define SouthEastGravity 9 +#define StaticGravity 10 + +/* Window gravity + bit gravity above */ + +#define UnmapGravity 0 + +/* Used in CreateWindow for backing-store hint */ + +#define NotUseful 0 +#define WhenMapped 1 +#define Always 2 + +/* Used in GetWindowAttributes reply */ + +#define IsUnmapped 0 +#define IsUnviewable 1 +#define IsViewable 2 + +/* Used in ChangeSaveSet */ + +#define SetModeInsert 0 +#define SetModeDelete 1 + +/* Used in ChangeCloseDownMode */ + +#define DestroyAll 0 +#define RetainPermanent 1 +#define RetainTemporary 2 + +/* Window stacking method (in configureWindow) */ + +#define Above 0 +#define Below 1 +#define TopIf 2 +#define BottomIf 3 +#define Opposite 4 + +/* Circulation direction */ + +#define RaiseLowest 0 +#define LowerHighest 1 + +/* Property modes */ + +#define PropModeReplace 0 +#define PropModePrepend 1 +#define PropModeAppend 2 + +/***************************************************************** + * GRAPHICS DEFINITIONS + *****************************************************************/ + +/* graphics functions, as in GC.alu */ + +#define GXclear 0x0 /* 0 */ +#define GXand 0x1 /* src AND dst */ +#define GXandReverse 0x2 /* src AND NOT dst */ +#define GXcopy 0x3 /* src */ +#define GXandInverted 0x4 /* NOT src AND dst */ +#define GXnoop 0x5 /* dst */ +#define GXxor 0x6 /* src XOR dst */ +#define GXor 0x7 /* src OR dst */ +#define GXnor 0x8 /* NOT src AND NOT dst */ +#define GXequiv 0x9 /* NOT src XOR dst */ +#define GXinvert 0xa /* NOT dst */ +#define GXorReverse 0xb /* src OR NOT dst */ +#define GXcopyInverted 0xc /* NOT src */ +#define GXorInverted 0xd /* NOT src OR dst */ +#define GXnand 0xe /* NOT src OR NOT dst */ +#define GXset 0xf /* 1 */ + +/* LineStyle */ + +#define LineSolid 0 +#define LineOnOffDash 1 +#define LineDoubleDash 2 + +/* capStyle */ + +#define CapNotLast 0 +#define CapButt 1 +#define CapRound 2 +#define CapProjecting 3 + +/* joinStyle */ + +#define JoinMiter 0 +#define JoinRound 1 +#define JoinBevel 2 + +/* fillStyle */ + +#define FillSolid 0 +#define FillTiled 1 +#define FillStippled 2 +#define FillOpaqueStippled 3 + +/* fillRule */ + +#define EvenOddRule 0 +#define WindingRule 1 + +/* subwindow mode */ + +#define ClipByChildren 0 +#define IncludeInferiors 1 + +/* SetClipRectangles ordering */ + +#define Unsorted 0 +#define YSorted 1 +#define YXSorted 2 +#define YXBanded 3 + +/* CoordinateMode for drawing routines */ + +#define CoordModeOrigin 0 /* relative to the origin */ +#define CoordModePrevious 1 /* relative to previous point */ + +/* Polygon shapes */ + +#define Complex 0 /* paths may intersect */ +#define Nonconvex 1 /* no paths intersect, but not convex */ +#define Convex 2 /* wholly convex */ + +/* Arc modes for PolyFillArc */ + +#define ArcChord 0 /* join endpoints of arc */ +#define ArcPieSlice 1 /* join endpoints to center of arc */ + +/* GC components: masks used in CreateGC, CopyGC, ChangeGC, OR'ed into + GC.stateChanges */ + +#define GCFunction (1L<<0) +#define GCPlaneMask (1L<<1) +#define GCForeground (1L<<2) +#define GCBackground (1L<<3) +#define GCLineWidth (1L<<4) +#define GCLineStyle (1L<<5) +#define GCCapStyle (1L<<6) +#define GCJoinStyle (1L<<7) +#define GCFillStyle (1L<<8) +#define GCFillRule (1L<<9) +#define GCTile (1L<<10) +#define GCStipple (1L<<11) +#define GCTileStipXOrigin (1L<<12) +#define GCTileStipYOrigin (1L<<13) +#define GCFont (1L<<14) +#define GCSubwindowMode (1L<<15) +#define GCGraphicsExposures (1L<<16) +#define GCClipXOrigin (1L<<17) +#define GCClipYOrigin (1L<<18) +#define GCClipMask (1L<<19) +#define GCDashOffset (1L<<20) +#define GCDashList (1L<<21) +#define GCArcMode (1L<<22) + +#define GCLastBit 22 +/***************************************************************** + * FONTS + *****************************************************************/ + +/* used in QueryFont -- draw direction */ + +#define FontLeftToRight 0 +#define FontRightToLeft 1 + +#define FontChange 255 + +/***************************************************************** + * IMAGING + *****************************************************************/ + +/* ImageFormat -- PutImage, GetImage */ + +#define XYBitmap 0 /* depth 1, XYFormat */ +#define XYPixmap 1 /* depth == drawable depth */ +#define ZPixmap 2 /* depth == drawable depth */ + +/***************************************************************** + * COLOR MAP STUFF + *****************************************************************/ + +/* For CreateColormap */ + +#define AllocNone 0 /* create map with no entries */ +#define AllocAll 1 /* allocate entire map writeable */ + + +/* Flags used in StoreNamedColor, StoreColors */ + +#define DoRed (1<<0) +#define DoGreen (1<<1) +#define DoBlue (1<<2) + +/***************************************************************** + * CURSOR STUFF + *****************************************************************/ + +/* QueryBestSize Class */ + +#define CursorShape 0 /* largest size that can be displayed */ +#define TileShape 1 /* size tiled fastest */ +#define StippleShape 2 /* size stippled fastest */ + +/***************************************************************** + * KEYBOARD/POINTER STUFF + *****************************************************************/ + +#define AutoRepeatModeOff 0 +#define AutoRepeatModeOn 1 +#define AutoRepeatModeDefault 2 + +#define LedModeOff 0 +#define LedModeOn 1 + +/* masks for ChangeKeyboardControl */ + +#define KBKeyClickPercent (1L<<0) +#define KBBellPercent (1L<<1) +#define KBBellPitch (1L<<2) +#define KBBellDuration (1L<<3) +#define KBLed (1L<<4) +#define KBLedMode (1L<<5) +#define KBKey (1L<<6) +#define KBAutoRepeatMode (1L<<7) + +#define MappingSuccess 0 +#define MappingBusy 1 +#define MappingFailed 2 + +#define MappingModifier 0 +#define MappingKeyboard 1 +#define MappingPointer 2 + +/***************************************************************** + * SCREEN SAVER STUFF + *****************************************************************/ + +#define DontPreferBlanking 0 +#define PreferBlanking 1 +#define DefaultBlanking 2 + +#define DisableScreenSaver 0 +#define DisableScreenInterval 0 + +#define DontAllowExposures 0 +#define AllowExposures 1 +#define DefaultExposures 2 + +/* for ForceScreenSaver */ + +#define ScreenSaverReset 0 +#define ScreenSaverActive 1 + +/***************************************************************** + * HOSTS AND CONNECTIONS + *****************************************************************/ + +/* for ChangeHosts */ + +#define HostInsert 0 +#define HostDelete 1 + +/* for ChangeAccessControl */ + +#define EnableAccess 1 +#define DisableAccess 0 + +/* Display classes used in opening the connection + * Note that the statically allocated ones are even numbered and the + * dynamically changeable ones are odd numbered */ + +#define StaticGray 0 +#define GrayScale 1 +#define StaticColor 2 +#define PseudoColor 3 +#define TrueColor 4 +#define DirectColor 5 + + +/* Byte order used in imageByteOrder and bitmapBitOrder */ + +#define LSBFirst 0 +#define MSBFirst 1 + +#if defined(MAC_OSX_TK) +# undef Cursor +# undef Region +#endif + +#endif /* X_H */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xatom.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xatom.h new file mode 100644 index 00000000..485a4236 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xatom.h @@ -0,0 +1,79 @@ +#ifndef XATOM_H +#define XATOM_H 1 + +/* THIS IS A GENERATED FILE + * + * Do not change! Changing this file implies a protocol change! + */ + +#define XA_PRIMARY ((Atom) 1) +#define XA_SECONDARY ((Atom) 2) +#define XA_ARC ((Atom) 3) +#define XA_ATOM ((Atom) 4) +#define XA_BITMAP ((Atom) 5) +#define XA_CARDINAL ((Atom) 6) +#define XA_COLORMAP ((Atom) 7) +#define XA_CURSOR ((Atom) 8) +#define XA_CUT_BUFFER0 ((Atom) 9) +#define XA_CUT_BUFFER1 ((Atom) 10) +#define XA_CUT_BUFFER2 ((Atom) 11) +#define XA_CUT_BUFFER3 ((Atom) 12) +#define XA_CUT_BUFFER4 ((Atom) 13) +#define XA_CUT_BUFFER5 ((Atom) 14) +#define XA_CUT_BUFFER6 ((Atom) 15) +#define XA_CUT_BUFFER7 ((Atom) 16) +#define XA_DRAWABLE ((Atom) 17) +#define XA_FONT ((Atom) 18) +#define XA_INTEGER ((Atom) 19) +#define XA_PIXMAP ((Atom) 20) +#define XA_POINT ((Atom) 21) +#define XA_RECTANGLE ((Atom) 22) +#define XA_RESOURCE_MANAGER ((Atom) 23) +#define XA_RGB_COLOR_MAP ((Atom) 24) +#define XA_RGB_BEST_MAP ((Atom) 25) +#define XA_RGB_BLUE_MAP ((Atom) 26) +#define XA_RGB_DEFAULT_MAP ((Atom) 27) +#define XA_RGB_GRAY_MAP ((Atom) 28) +#define XA_RGB_GREEN_MAP ((Atom) 29) +#define XA_RGB_RED_MAP ((Atom) 30) +#define XA_STRING ((Atom) 31) +#define XA_VISUALID ((Atom) 32) +#define XA_WINDOW ((Atom) 33) +#define XA_WM_COMMAND ((Atom) 34) +#define XA_WM_HINTS ((Atom) 35) +#define XA_WM_CLIENT_MACHINE ((Atom) 36) +#define XA_WM_ICON_NAME ((Atom) 37) +#define XA_WM_ICON_SIZE ((Atom) 38) +#define XA_WM_NAME ((Atom) 39) +#define XA_WM_NORMAL_HINTS ((Atom) 40) +#define XA_WM_SIZE_HINTS ((Atom) 41) +#define XA_WM_ZOOM_HINTS ((Atom) 42) +#define XA_MIN_SPACE ((Atom) 43) +#define XA_NORM_SPACE ((Atom) 44) +#define XA_MAX_SPACE ((Atom) 45) +#define XA_END_SPACE ((Atom) 46) +#define XA_SUPERSCRIPT_X ((Atom) 47) +#define XA_SUPERSCRIPT_Y ((Atom) 48) +#define XA_SUBSCRIPT_X ((Atom) 49) +#define XA_SUBSCRIPT_Y ((Atom) 50) +#define XA_UNDERLINE_POSITION ((Atom) 51) +#define XA_UNDERLINE_THICKNESS ((Atom) 52) +#define XA_STRIKEOUT_ASCENT ((Atom) 53) +#define XA_STRIKEOUT_DESCENT ((Atom) 54) +#define XA_ITALIC_ANGLE ((Atom) 55) +#define XA_X_HEIGHT ((Atom) 56) +#define XA_QUAD_WIDTH ((Atom) 57) +#define XA_WEIGHT ((Atom) 58) +#define XA_POINT_SIZE ((Atom) 59) +#define XA_RESOLUTION ((Atom) 60) +#define XA_COPYRIGHT ((Atom) 61) +#define XA_NOTICE ((Atom) 62) +#define XA_FONT_NAME ((Atom) 63) +#define XA_FAMILY_NAME ((Atom) 64) +#define XA_FULL_NAME ((Atom) 65) +#define XA_CAP_HEIGHT ((Atom) 66) +#define XA_WM_CLASS ((Atom) 67) +#define XA_WM_TRANSIENT_FOR ((Atom) 68) + +#define XA_LAST_PREDEFINED ((Atom) 68) +#endif /* XATOM_H */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xfuncproto.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xfuncproto.h new file mode 100644 index 00000000..6d63002e --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xfuncproto.h @@ -0,0 +1,60 @@ +/* $XConsortium: Xfuncproto.h,v 1.7 91/05/13 20:49:21 rws Exp $ */ +/* + * Copyright 1989, 1991 by the Massachusetts Institute of Technology + * + * Permission to use, copy, modify, and distribute this software and its + * documentation for any purpose and without fee is hereby granted, provided + * that the above copyright notice appear in all copies and that both that + * copyright notice and this permission notice appear in supporting + * documentation, and that the name of M.I.T. not be used in advertising + * or publicity pertaining to distribution of the software without specific, + * written prior permission. M.I.T. makes no representations about the + * suitability of this software for any purpose. It is provided "as is" + * without express or implied warranty. + * + */ + +/* Definitions to make function prototypes manageable */ + +#ifndef _XFUNCPROTO_H_ +#define _XFUNCPROTO_H_ + +#ifndef NeedFunctionPrototypes +#define NeedFunctionPrototypes 1 +#endif /* NeedFunctionPrototypes */ + +#ifndef NeedVarargsPrototypes +#define NeedVarargsPrototypes 0 +#endif /* NeedVarargsPrototypes */ + +#if NeedFunctionPrototypes + +#ifndef NeedNestedPrototypes +#define NeedNestedPrototypes 1 +#endif /* NeedNestedPrototypes */ + +#ifndef _Xconst +#define _Xconst const +#endif /* _Xconst */ + +#ifndef NeedWidePrototypes +#ifdef NARROWPROTO +#define NeedWidePrototypes 0 +#else +#define NeedWidePrototypes 1 /* default to make interropt. easier */ +#endif +#endif /* NeedWidePrototypes */ + +#endif /* NeedFunctionPrototypes */ + +#ifdef __cplusplus +#define _XFUNCPROTOBEGIN extern "C" { +#define _XFUNCPROTOEND } +#endif + +#ifndef _XFUNCPROTOBEGIN +#define _XFUNCPROTOBEGIN +#define _XFUNCPROTOEND +#endif /* _XFUNCPROTOBEGIN */ + +#endif /* _XFUNCPROTO_H_ */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xlib.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xlib.h new file mode 100644 index 00000000..667bdc77 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xlib.h @@ -0,0 +1,1205 @@ +/* $XConsortium: Xlib.h,v 11.221 93/07/02 14:13:28 gildea Exp $ */ +/* + * Copyright 1985, 1986, 1987, 1991 by the Massachusetts Institute of Technology + * + * Permission to use, copy, modify, and distribute this software and its + * documentation for any purpose and without fee is hereby granted, provided + * that the above copyright notice appear in all copies and that both that + * copyright notice and this permission notice appear in supporting + * documentation, and that the name of M.I.T. not be used in advertising + * or publicity pertaining to distribution of the software without specific, + * written prior permission. M.I.T. makes no representations about the + * suitability of this software for any purpose. It is provided "as is" + * without express or implied warranty. + * + * X Window System is a Trademark of MIT. + * + */ + + +/* + * Xlib.h - Header definition and support file for the C subroutine + * interface library (Xlib) to the X Window System Protocol (V11). + * Structures and symbols starting with "_" are private to the library. + */ +#ifndef _XLIB_H_ +#define _XLIB_H_ + +#define XlibSpecificationRelease 5 + +#if !defined(MAC_OSX_TK) +# include +#endif +#ifdef MAC_OSX_TK +# include +# define Cursor XCursor +# define Region XRegion +#endif + +/* applications should not depend on these two headers being included! */ +#include + +#ifndef X_WCHAR +#ifdef X_NOT_STDC_ENV +#define X_WCHAR +#endif +#endif + +#ifndef X_WCHAR +#include +#else +/* replace this with #include or typedef appropriate for your system */ +typedef unsigned long wchar_t; +#endif + +typedef char *XPointer; + +#define Bool int +#if defined(MAC_OSX_TK) +/* Use define rather than typedef, since may need to undefine this later */ +#define Status int +#else +typedef int Status; +#endif +#define True 1 +#define False 0 + +#define QueuedAlready 0 +#define QueuedAfterReading 1 +#define QueuedAfterFlush 2 + +#define ConnectionNumber(dpy) ((dpy)->fd) +#define RootWindow(dpy, scr) (((dpy)->screens[(scr)]).root) +#define DefaultScreen(dpy) ((dpy)->default_screen) +#define DefaultRootWindow(dpy) (((dpy)->screens[(dpy)->default_screen]).root) +#define DefaultVisual(dpy, scr) (((dpy)->screens[(scr)]).root_visual) +#define DefaultGC(dpy, scr) (((dpy)->screens[(scr)]).default_gc) +#define BlackPixel(dpy, scr) (((dpy)->screens[(scr)]).black_pixel) +#define WhitePixel(dpy, scr) (((dpy)->screens[(scr)]).white_pixel) +#define AllPlanes ((unsigned long)~0L) +#define QLength(dpy) ((dpy)->qlen) +#define DisplayWidth(dpy, scr) (((dpy)->screens[(scr)]).width) +#define DisplayHeight(dpy, scr) (((dpy)->screens[(scr)]).height) +#define DisplayWidthMM(dpy, scr)(((dpy)->screens[(scr)]).mwidth) +#define DisplayHeightMM(dpy, scr)(((dpy)->screens[(scr)]).mheight) +#define DisplayPlanes(dpy, scr) (((dpy)->screens[(scr)]).root_depth) +#define DisplayCells(dpy, scr) (DefaultVisual((dpy), (scr))->map_entries) +#define ScreenCount(dpy) ((dpy)->nscreens) +#define ServerVendor(dpy) ((dpy)->vendor) +#define ProtocolVersion(dpy) ((dpy)->proto_major_version) +#define ProtocolRevision(dpy) ((dpy)->proto_minor_version) +#define VendorRelease(dpy) ((dpy)->release) +#define DisplayString(dpy) ((dpy)->display_name) +#define DefaultDepth(dpy, scr) (((dpy)->screens[(scr)]).root_depth) +#define DefaultColormap(dpy, scr)(((dpy)->screens[(scr)]).cmap) +#define BitmapUnit(dpy) ((dpy)->bitmap_unit) +#define BitmapBitOrder(dpy) ((dpy)->bitmap_bit_order) +#define BitmapPad(dpy) ((dpy)->bitmap_pad) +#define ImageByteOrder(dpy) ((dpy)->byte_order) +#define NextRequest(dpy) ((dpy)->request + 1) +#define LastKnownRequestProcessed(dpy) ((dpy)->request) + +/* macros for screen oriented applications (toolkit) */ +#define ScreenOfDisplay(dpy, scr)(&((dpy)->screens[(scr)])) +#define DefaultScreenOfDisplay(dpy) (&((dpy)->screens[(dpy)->default_screen])) +#define DisplayOfScreen(s) ((s)->display) +#define RootWindowOfScreen(s) ((s)->root) +#define BlackPixelOfScreen(s) ((s)->black_pixel) +#define WhitePixelOfScreen(s) ((s)->white_pixel) +#define DefaultColormapOfScreen(s)((s)->cmap) +#define DefaultDepthOfScreen(s) ((s)->root_depth) +#define DefaultGCOfScreen(s) ((s)->default_gc) +#define DefaultVisualOfScreen(s)((s)->root_visual) +#define WidthOfScreen(s) ((s)->width) +#define HeightOfScreen(s) ((s)->height) +#define WidthMMOfScreen(s) ((s)->mwidth) +#define HeightMMOfScreen(s) ((s)->mheight) +#define PlanesOfScreen(s) ((s)->root_depth) +#define CellsOfScreen(s) (DefaultVisualOfScreen((s))->map_entries) +#define MinCmapsOfScreen(s) ((s)->min_maps) +#define MaxCmapsOfScreen(s) ((s)->max_maps) +#define DoesSaveUnders(s) ((s)->save_unders) +#define DoesBackingStore(s) ((s)->backing_store) +#define EventMaskOfScreen(s) ((s)->root_input_mask) + +/* + * Extensions need a way to hang private data on some structures. + */ +typedef struct _XExtData { + int number; /* number returned by XRegisterExtension */ + struct _XExtData *next; /* next item on list of data for structure */ + int (*free_private)(); /* called to free private storage */ + XPointer private_data; /* data private to this extension. */ +} XExtData; + +/* + * This file contains structures used by the extension mechanism. + */ +typedef struct { /* public to extension, cannot be changed */ + int extension; /* extension number */ + int major_opcode; /* major op-code assigned by server */ + int first_event; /* first event number for the extension */ + int first_error; /* first error number for the extension */ +} XExtCodes; + +/* + * Data structure for retrieving info about pixmap formats. + */ + +typedef struct { + int depth; + int bits_per_pixel; + int scanline_pad; +} XPixmapFormatValues; + + +/* + * Data structure for setting graphics context. + */ +typedef struct { + int function; /* logical operation */ + unsigned long plane_mask;/* plane mask */ + unsigned long foreground;/* foreground pixel */ + unsigned long background;/* background pixel */ + int line_width; /* line width */ + int line_style; /* LineSolid, LineOnOffDash, LineDoubleDash */ + int cap_style; /* CapNotLast, CapButt, + CapRound, CapProjecting */ + int join_style; /* JoinMiter, JoinRound, JoinBevel */ + int fill_style; /* FillSolid, FillTiled, + FillStippled, FillOpaeueStippled */ + int fill_rule; /* EvenOddRule, WindingRule */ + int arc_mode; /* ArcChord, ArcPieSlice */ + Pixmap tile; /* tile pixmap for tiling operations */ + Pixmap stipple; /* stipple 1 plane pixmap for stipping */ + int ts_x_origin; /* offset for tile or stipple operations */ + int ts_y_origin; + Font font; /* default text font for text operations */ + int subwindow_mode; /* ClipByChildren, IncludeInferiors */ + Bool graphics_exposures;/* boolean, should exposures be generated */ + int clip_x_origin; /* origin for clipping */ + int clip_y_origin; + Pixmap clip_mask; /* bitmap clipping; other calls for rects */ + int dash_offset; /* patterned/dashed line information */ + char dashes; +} XGCValues; + +/* + * Graphics context. The contents of this structure are implementation + * dependent. A GC should be treated as opaque by application code. + */ + +typedef XGCValues *GC; + +/* + * Visual structure; contains information about colormapping possible. + */ +typedef struct { + XExtData *ext_data; /* hook for extension to hang data */ + VisualID visualid; /* visual id of this visual */ +#if defined(__cplusplus) || defined(c_plusplus) + int c_class; /* C++ class of screen (monochrome, etc.) */ +#else + int class; /* class of screen (monochrome, etc.) */ +#endif + unsigned long red_mask, green_mask, blue_mask; /* mask values */ + int bits_per_rgb; /* log base 2 of distinct color values */ + int map_entries; /* color map entries */ +} Visual; + +/* + * Depth structure; contains information for each possible depth. + */ +typedef struct { + int depth; /* this depth (Z) of the depth */ + int nvisuals; /* number of Visual types at this depth */ + Visual *visuals; /* list of visuals possible at this depth */ +} Depth; + +/* + * Information about the screen. The contents of this structure are + * implementation dependent. A Screen should be treated as opaque + * by application code. + */ +typedef struct { + XExtData *ext_data; /* hook for extension to hang data */ + struct _XDisplay *display;/* back pointer to display structure */ + Window root; /* Root window id. */ + int width, height; /* width and height of screen */ + int mwidth, mheight; /* width and height of in millimeters */ + int ndepths; /* number of depths possible */ + Depth *depths; /* list of allowable depths on the screen */ + int root_depth; /* bits per pixel */ + Visual *root_visual; /* root visual */ + GC default_gc; /* GC for the root root visual */ + Colormap cmap; /* default color map */ + unsigned long white_pixel; + unsigned long black_pixel; /* White and Black pixel values */ + int max_maps, min_maps; /* max and min color maps */ + int backing_store; /* Never, WhenMapped, Always */ + Bool save_unders; + long root_input_mask; /* initial root input mask */ +} Screen; + +/* + * Format structure; describes ZFormat data the screen will understand. + */ +typedef struct { + XExtData *ext_data; /* hook for extension to hang data */ + int depth; /* depth of this image format */ + int bits_per_pixel; /* bits/pixel at this depth */ + int scanline_pad; /* scanline must padded to this multiple */ +} ScreenFormat; + +/* + * Data structure for setting window attributes. + */ +typedef struct { + Pixmap background_pixmap; /* background or None or ParentRelative */ + unsigned long background_pixel; /* background pixel */ + Pixmap border_pixmap; /* border of the window */ + unsigned long border_pixel; /* border pixel value */ + int bit_gravity; /* one of bit gravity values */ + int win_gravity; /* one of the window gravity values */ + int backing_store; /* NotUseful, WhenMapped, Always */ + unsigned long backing_planes;/* planes to be preseved if possible */ + unsigned long backing_pixel;/* value to use in restoring planes */ + Bool save_under; /* should bits under be saved? (popups) */ + long event_mask; /* set of events that should be saved */ + long do_not_propagate_mask; /* set of events that should not propagate */ + Bool override_redirect; /* boolean value for override-redirect */ + Colormap colormap; /* color map to be associated with window */ + Cursor cursor; /* cursor to be displayed (or None) */ +} XSetWindowAttributes; + +typedef struct { + int x, y; /* location of window */ + int width, height; /* width and height of window */ + int border_width; /* border width of window */ + int depth; /* depth of window */ + Visual *visual; /* the associated visual structure */ + Window root; /* root of screen containing window */ +#if defined(__cplusplus) || defined(c_plusplus) + int c_class; /* C++ InputOutput, InputOnly*/ +#else + int class; /* InputOutput, InputOnly*/ +#endif + int bit_gravity; /* one of bit gravity values */ + int win_gravity; /* one of the window gravity values */ + int backing_store; /* NotUseful, WhenMapped, Always */ + unsigned long backing_planes;/* planes to be preserved if possible */ + unsigned long backing_pixel;/* value to be used when restoring planes */ + Bool save_under; /* boolean, should bits under be saved? */ + Colormap colormap; /* color map to be associated with window */ + Bool map_installed; /* boolean, is color map currently installed*/ + int map_state; /* IsUnmapped, IsUnviewable, IsViewable */ + long all_event_masks; /* set of events all people have interest in*/ + long your_event_mask; /* my event mask */ + long do_not_propagate_mask; /* set of events that should not propagate */ + Bool override_redirect; /* boolean value for override-redirect */ + Screen *screen; /* back pointer to correct screen */ +} XWindowAttributes; + +/* + * Data structure for host setting; getting routines. + * + */ + +typedef struct { + int family; /* for example FamilyInternet */ + int length; /* length of address, in bytes */ + char *address; /* pointer to where to find the bytes */ +} XHostAddress; + +/* + * Data structure for "image" data, used by image manipulation routines. + */ +typedef struct _XImage { + int width, height; /* size of image */ + int xoffset; /* number of pixels offset in X direction */ + int format; /* XYBitmap, XYPixmap, ZPixmap */ + char *data; /* pointer to image data */ + int byte_order; /* data byte order, LSBFirst, MSBFirst */ + int bitmap_unit; /* quant. of scanline 8, 16, 32 */ + int bitmap_bit_order; /* LSBFirst, MSBFirst */ + int bitmap_pad; /* 8, 16, 32 either XY or ZPixmap */ + int depth; /* depth of image */ + int bytes_per_line; /* accelarator to next line */ + int bits_per_pixel; /* bits per pixel (ZPixmap) */ + unsigned long red_mask; /* bits in z arrangment */ + unsigned long green_mask; + unsigned long blue_mask; + XPointer obdata; /* hook for the object routines to hang on */ + struct funcs { /* image manipulation routines */ + struct _XImage *(*create_image)(); +#if NeedFunctionPrototypes + int (*destroy_image) (struct _XImage *); + unsigned long (*get_pixel) (struct _XImage *, int, int); + int (*put_pixel) (struct _XImage *, int, int, unsigned long); + struct _XImage *(*sub_image)(struct _XImage *, int, int, unsigned int, unsigned int); + int (*add_pixel) (struct _XImage *, long); +#else + int (*destroy_image)(); + unsigned long (*get_pixel)(); + int (*put_pixel)(); + struct _XImage *(*sub_image)(); + int (*add_pixel)(); +#endif + } f; +} XImage; + +/* + * Data structure for XReconfigureWindow + */ +typedef struct { + int x, y; + int width, height; + int border_width; + Window sibling; + int stack_mode; +} XWindowChanges; + +/* + * Data structure used by color operations + */ +typedef struct { + unsigned long pixel; + unsigned short red, green, blue; + char flags; /* do_red, do_green, do_blue */ + char pad; +} XColor; + +/* + * Data structures for graphics operations. On most machines, these are + * congruent with the wire protocol structures, so reformatting the data + * can be avoided on these architectures. + */ +typedef struct { + short x1, y1, x2, y2; +} XSegment; + +typedef struct { + short x, y; +} XPoint; + +typedef struct { + short x, y; + unsigned short width, height; +} XRectangle; + +typedef struct { + short x, y; + unsigned short width, height; + short angle1, angle2; +} XArc; + + +/* Data structure for XChangeKeyboardControl */ + +typedef struct { + int key_click_percent; + int bell_percent; + int bell_pitch; + int bell_duration; + int led; + int led_mode; + int key; + int auto_repeat_mode; /* On, Off, Default */ +} XKeyboardControl; + +/* Data structure for XGetKeyboardControl */ + +typedef struct { + int key_click_percent; + int bell_percent; + unsigned int bell_pitch, bell_duration; + unsigned long led_mask; + int global_auto_repeat; + char auto_repeats[32]; +} XKeyboardState; + +/* Data structure for XGetMotionEvents. */ + +typedef struct { + Time time; + short x, y; +} XTimeCoord; + +/* Data structure for X{Set,Get}ModifierMapping */ + +typedef struct { + int max_keypermod; /* The server's max # of keys per modifier */ + KeyCode *modifiermap; /* An 8 by max_keypermod array of modifiers */ +} XModifierKeymap; + + +/* + * Display datatype maintaining display specific data. + * The contents of this structure are implementation dependent. + * A Display should be treated as opaque by application code. + */ +typedef struct _XDisplay { + XExtData *ext_data; /* hook for extension to hang data */ + struct _XFreeFuncs *free_funcs; /* internal free functions */ + int fd; /* Network socket. */ + int conn_checker; /* ugly thing used by _XEventsQueued */ + int proto_major_version;/* maj. version of server's X protocol */ + int proto_minor_version;/* minor version of servers X protocol */ + char *vendor; /* vendor of the server hardware */ + XID resource_base; /* resource ID base */ + XID resource_mask; /* resource ID mask bits */ + XID resource_id; /* allocator current ID */ + int resource_shift; /* allocator shift to correct bits */ + XID (*resource_alloc)(); /* allocator function */ + int byte_order; /* screen byte order, LSBFirst, MSBFirst */ + int bitmap_unit; /* padding and data requirements */ + int bitmap_pad; /* padding requirements on bitmaps */ + int bitmap_bit_order; /* LeastSignificant or MostSignificant */ + int nformats; /* number of pixmap formats in list */ + ScreenFormat *pixmap_format; /* pixmap format list */ + int vnumber; /* Xlib's X protocol version number. */ + int release; /* release of the server */ + struct _XSQEvent *head, *tail; /* Input event queue. */ + int qlen; /* Length of input event queue */ + unsigned long request; /* sequence number of last request. */ + char *last_req; /* beginning of last request, or dummy */ + char *buffer; /* Output buffer starting address. */ + char *bufptr; /* Output buffer index pointer. */ + char *bufmax; /* Output buffer maximum+1 address. */ + unsigned max_request_size; /* maximum number 32 bit words in request*/ + struct _XrmHashBucketRec *db; + int (*synchandler)(); /* Synchronization handler */ + char *display_name; /* "host:display" string used on this connect*/ + int default_screen; /* default screen for operations */ + int nscreens; /* number of screens on this server*/ + Screen *screens; /* pointer to list of screens */ + unsigned long motion_buffer; /* size of motion buffer */ + unsigned long flags; /* internal connection flags */ + int min_keycode; /* minimum defined keycode */ + int max_keycode; /* maximum defined keycode */ + KeySym *keysyms; /* This server's keysyms */ + XModifierKeymap *modifiermap; /* This server's modifier keymap */ + int keysyms_per_keycode;/* number of rows */ + char *xdefaults; /* contents of defaults from server */ + char *scratch_buffer; /* place to hang scratch buffer */ + unsigned long scratch_length; /* length of scratch buffer */ + int ext_number; /* extension number on this display */ + struct _XExten *ext_procs; /* extensions initialized on this display */ + /* + * the following can be fixed size, as the protocol defines how + * much address space is available. + * While this could be done using the extension vector, there + * may be MANY events processed, so a search through the extension + * list to find the right procedure for each event might be + * expensive if many extensions are being used. + */ + Bool (*event_vec[128])(); /* vector for wire to event */ + Status (*wire_vec[128])(); /* vector for event to wire */ + KeySym lock_meaning; /* for XLookupString */ + struct _XLockInfo *lock; /* multi-thread state, display lock */ + struct _XInternalAsync *async_handlers; /* for internal async */ + unsigned long bigreq_size; /* max size of big requests */ + struct _XLockPtrs *lock_fns; /* pointers to threads functions */ + /* things above this line should not move, for binary compatibility */ + struct _XKeytrans *key_bindings; /* for XLookupString */ + Font cursor_font; /* for XCreateFontCursor */ + struct _XDisplayAtoms *atoms; /* for XInternAtom */ + unsigned int mode_switch; /* keyboard group modifiers */ + struct _XContextDB *context_db; /* context database */ + Bool (**error_vec)(); /* vector for wire to error */ + /* + * Xcms information + */ + struct { + XPointer defaultCCCs; /* pointer to an array of default XcmsCCC */ + XPointer clientCmaps; /* pointer to linked list of XcmsCmapRec */ + XPointer perVisualIntensityMaps; + /* linked list of XcmsIntensityMap */ + } cms; + struct _XIMFilter *im_filters; + struct _XSQEvent *qfree; /* unallocated event queue elements */ + unsigned long next_event_serial_num; /* inserted into next queue elt */ + int (*savedsynchandler)(); /* user synchandler when Xlib usurps */ +} Display; + +#if NeedFunctionPrototypes /* prototypes require event type definitions */ +#undef _XEVENT_ +#endif +#ifndef _XEVENT_ + +#define XMaxTransChars 4 + +/* + * Definitions of specific events. + */ +typedef struct { + int type; /* of event */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* "event" window it is reported relative to */ + Window root; /* root window that the event occured on */ + Window subwindow; /* child window */ + Time time; /* milliseconds */ + int x, y; /* pointer x, y coordinates in event window */ + int x_root, y_root; /* coordinates relative to root */ + unsigned int state; /* key or button mask */ + unsigned int keycode; /* detail */ + Bool same_screen; /* same screen flag */ + char trans_chars[XMaxTransChars]; + /* translated characters */ + int nbytes; +} XKeyEvent; +typedef XKeyEvent XKeyPressedEvent; +typedef XKeyEvent XKeyReleasedEvent; + +typedef struct { + int type; /* of event */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* "event" window it is reported relative to */ + Window root; /* root window that the event occured on */ + Window subwindow; /* child window */ + Time time; /* milliseconds */ + int x, y; /* pointer x, y coordinates in event window */ + int x_root, y_root; /* coordinates relative to root */ + unsigned int state; /* key or button mask */ + unsigned int button; /* detail */ + Bool same_screen; /* same screen flag */ +} XButtonEvent; +typedef XButtonEvent XButtonPressedEvent; +typedef XButtonEvent XButtonReleasedEvent; + +typedef struct { + int type; /* of event */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* "event" window reported relative to */ + Window root; /* root window that the event occured on */ + Window subwindow; /* child window */ + Time time; /* milliseconds */ + int x, y; /* pointer x, y coordinates in event window */ + int x_root, y_root; /* coordinates relative to root */ + unsigned int state; /* key or button mask */ + char is_hint; /* detail */ + Bool same_screen; /* same screen flag */ +} XMotionEvent; +typedef XMotionEvent XPointerMovedEvent; + +typedef struct { + int type; /* of event */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* "event" window reported relative to */ + Window root; /* root window that the event occured on */ + Window subwindow; /* child window */ + Time time; /* milliseconds */ + int x, y; /* pointer x, y coordinates in event window */ + int x_root, y_root; /* coordinates relative to root */ + int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ + int detail; + /* + * NotifyAncestor, NotifyVirtual, NotifyInferior, + * NotifyNonlinear,NotifyNonlinearVirtual + */ + Bool same_screen; /* same screen flag */ + Bool focus; /* boolean focus */ + unsigned int state; /* key or button mask */ +} XCrossingEvent; +typedef XCrossingEvent XEnterWindowEvent; +typedef XCrossingEvent XLeaveWindowEvent; + +typedef struct { + int type; /* FocusIn or FocusOut */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* window of event */ + int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ + int detail; + /* + * NotifyAncestor, NotifyVirtual, NotifyInferior, + * NotifyNonlinear,NotifyNonlinearVirtual, NotifyPointer, + * NotifyPointerRoot, NotifyDetailNone + */ +} XFocusChangeEvent; +typedef XFocusChangeEvent XFocusInEvent; +typedef XFocusChangeEvent XFocusOutEvent; + +/* generated on EnterWindow and FocusIn when KeyMapState selected */ +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + char key_vector[32]; +} XKeymapEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + int x, y; + int width, height; + int count; /* if non-zero, at least this many more */ +} XExposeEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Drawable drawable; + int x, y; + int width, height; + int count; /* if non-zero, at least this many more */ + int major_code; /* core is CopyArea or CopyPlane */ + int minor_code; /* not defined in the core */ +} XGraphicsExposeEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Drawable drawable; + int major_code; /* core is CopyArea or CopyPlane */ + int minor_code; /* not defined in the core */ +} XNoExposeEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + int state; /* Visibility state */ +} XVisibilityEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window parent; /* parent of the window */ + Window window; /* window id of window created */ + int x, y; /* window location */ + int width, height; /* size of window */ + int border_width; /* border width */ + Bool override_redirect; /* creation should be overridden */ +} XCreateWindowEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; +} XDestroyWindowEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + Bool from_configure; +} XUnmapEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + Bool override_redirect; /* boolean, is override set... */ +} XMapEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window parent; + Window window; +} XMapRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + Window parent; + int x, y; + Bool override_redirect; +} XReparentEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + int x, y; + int width, height; + int border_width; + Window above; + Bool override_redirect; +} XConfigureEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + int x, y; +} XGravityEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + int width, height; +} XResizeRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window parent; + Window window; + int x, y; + int width, height; + int border_width; + Window above; + int detail; /* Above, Below, TopIf, BottomIf, Opposite */ + unsigned long value_mask; +} XConfigureRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + int place; /* PlaceOnTop, PlaceOnBottom */ +} XCirculateEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window parent; + Window window; + int place; /* PlaceOnTop, PlaceOnBottom */ +} XCirculateRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + Atom atom; + Time time; + int state; /* NewValue, Deleted */ +} XPropertyEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + Atom selection; + Time time; +} XSelectionClearEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window owner; + Window requestor; + Atom selection; + Atom target; + Atom property; + Time time; +} XSelectionRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window requestor; + Atom selection; + Atom target; + Atom property; /* ATOM or None */ + Time time; +} XSelectionEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + Colormap colormap; /* COLORMAP or None */ +#if defined(__cplusplus) || defined(c_plusplus) + Bool c_new; /* C++ */ +#else + Bool new; +#endif + int state; /* ColormapInstalled, ColormapUninstalled */ +} XColormapEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + Atom message_type; + int format; + union { + char b[20]; + short s[10]; + long l[5]; + } data; +} XClientMessageEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* unused */ + int request; /* one of MappingModifier, MappingKeyboard, + MappingPointer */ + int first_keycode; /* first keycode */ + int count; /* defines range of change w. first_keycode*/ +} XMappingEvent; + +typedef struct { + int type; + Display *display; /* Display the event was read from */ + XID resourceid; /* resource id */ + unsigned long serial; /* serial number of failed request */ + unsigned char error_code; /* error code of failed request */ + unsigned char request_code; /* Major op-code of failed request */ + unsigned char minor_code; /* Minor op-code of failed request */ +} XErrorEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display;/* Display the event was read from */ + Window window; /* window on which event was requested in event mask */ +} XAnyEvent; + +/* + * this union is defined so Xlib can always use the same sized + * event structure internally, to avoid memory fragmentation. + */ +typedef union _XEvent { + int type; /* must not be changed; first element */ + XAnyEvent xany; + XKeyEvent xkey; + XButtonEvent xbutton; + XMotionEvent xmotion; + XCrossingEvent xcrossing; + XFocusChangeEvent xfocus; + XExposeEvent xexpose; + XGraphicsExposeEvent xgraphicsexpose; + XNoExposeEvent xnoexpose; + XVisibilityEvent xvisibility; + XCreateWindowEvent xcreatewindow; + XDestroyWindowEvent xdestroywindow; + XUnmapEvent xunmap; + XMapEvent xmap; + XMapRequestEvent xmaprequest; + XReparentEvent xreparent; + XConfigureEvent xconfigure; + XGravityEvent xgravity; + XResizeRequestEvent xresizerequest; + XConfigureRequestEvent xconfigurerequest; + XCirculateEvent xcirculate; + XCirculateRequestEvent xcirculaterequest; + XPropertyEvent xproperty; + XSelectionClearEvent xselectionclear; + XSelectionRequestEvent xselectionrequest; + XSelectionEvent xselection; + XColormapEvent xcolormap; + XClientMessageEvent xclient; + XMappingEvent xmapping; + XErrorEvent xerror; + XKeymapEvent xkeymap; + long pad[24]; +} XEvent; +#endif + +#define XAllocID(dpy) ((*(dpy)->resource_alloc)((dpy))) + +/* + * per character font metric information. + */ +typedef struct { + short lbearing; /* origin to left edge of raster */ + short rbearing; /* origin to right edge of raster */ + short width; /* advance to next char's origin */ + short ascent; /* baseline to top edge of raster */ + short descent; /* baseline to bottom edge of raster */ + unsigned short attributes; /* per char flags (not predefined) */ +} XCharStruct; + +/* + * To allow arbitrary information with fonts, there are additional properties + * returned. + */ +typedef struct { + Atom name; + unsigned long card32; +} XFontProp; + +typedef struct { + XExtData *ext_data; /* hook for extension to hang data */ + Font fid; /* Font id for this font */ + unsigned direction; /* hint about direction the font is painted */ + unsigned min_char_or_byte2;/* first character */ + unsigned max_char_or_byte2;/* last character */ + unsigned min_byte1; /* first row that exists */ + unsigned max_byte1; /* last row that exists */ + Bool all_chars_exist;/* flag if all characters have non-zero size*/ + unsigned default_char; /* char to print for undefined character */ + int n_properties; /* how many properties there are */ + XFontProp *properties; /* pointer to array of additional properties*/ + XCharStruct min_bounds; /* minimum bounds over all existing char*/ + XCharStruct max_bounds; /* maximum bounds over all existing char*/ + XCharStruct *per_char; /* first_char to last_char information */ + int ascent; /* log. extent above baseline for spacing */ + int descent; /* log. descent below baseline for spacing */ +} XFontStruct; + +/* + * PolyText routines take these as arguments. + */ +typedef struct { + char *chars; /* pointer to string */ + int nchars; /* number of characters */ + int delta; /* delta between strings */ + Font font; /* font to print it in, None don't change */ +} XTextItem; + +typedef struct { /* normal 16 bit characters are two bytes */ + unsigned char byte1; + unsigned char byte2; +} XChar2b; + +typedef struct { + XChar2b *chars; /* two byte characters */ + int nchars; /* number of characters */ + int delta; /* delta between strings */ + Font font; /* font to print it in, None don't change */ +} XTextItem16; + + +typedef union { Display *display; + GC gc; + Visual *visual; + Screen *screen; + ScreenFormat *pixmap_format; + XFontStruct *font; } XEDataObject; + +typedef struct { + XRectangle max_ink_extent; + XRectangle max_logical_extent; +} XFontSetExtents; + +typedef struct _XFontSet *XFontSet; + +typedef struct { + char *chars; + int nchars; + int delta; + XFontSet font_set; +} XmbTextItem; + +typedef struct { + wchar_t *chars; + int nchars; + int delta; + XFontSet font_set; +} XwcTextItem; + +typedef void (*XIMProc)(); + +typedef struct _XIM *XIM; +typedef struct _XIC *XIC; + +typedef unsigned long XIMStyle; + +typedef struct { + unsigned short count_styles; + XIMStyle *supported_styles; +} XIMStyles; + +#define XIMPreeditArea 0x0001L +#define XIMPreeditCallbacks 0x0002L +#define XIMPreeditPosition 0x0004L +#define XIMPreeditNothing 0x0008L +#define XIMPreeditNone 0x0010L +#define XIMStatusArea 0x0100L +#define XIMStatusCallbacks 0x0200L +#define XIMStatusNothing 0x0400L +#define XIMStatusNone 0x0800L + +#define XNVaNestedList "XNVaNestedList" +#define XNClientWindow "clientWindow" +#define XNInputStyle "inputStyle" +#define XNFocusWindow "focusWindow" +#define XNResourceName "resourceName" +#define XNResourceClass "resourceClass" +#define XNGeometryCallback "geometryCallback" +#define XNFilterEvents "filterEvents" +#define XNPreeditStartCallback "preeditStartCallback" +#define XNPreeditDoneCallback "preeditDoneCallback" +#define XNPreeditDrawCallback "preeditDrawCallback" +#define XNPreeditCaretCallback "preeditCaretCallback" +#define XNPreeditAttributes "preeditAttributes" +#define XNStatusStartCallback "statusStartCallback" +#define XNStatusDoneCallback "statusDoneCallback" +#define XNStatusDrawCallback "statusDrawCallback" +#define XNStatusAttributes "statusAttributes" +#define XNArea "area" +#define XNAreaNeeded "areaNeeded" +#define XNSpotLocation "spotLocation" +#define XNColormap "colorMap" +#define XNStdColormap "stdColorMap" +#define XNForeground "foreground" +#define XNBackground "background" +#define XNBackgroundPixmap "backgroundPixmap" +#define XNFontSet "fontSet" +#define XNLineSpace "lineSpace" +#define XNCursor "cursor" + +#define XBufferOverflow -1 +#define XLookupNone 1 +#define XLookupChars 2 +#define XLookupKeySym 3 +#define XLookupBoth 4 + +#if NeedFunctionPrototypes +typedef void *XVaNestedList; +#else +typedef XPointer XVaNestedList; +#endif + +typedef struct { + XPointer client_data; + XIMProc callback; +} XIMCallback; + +typedef unsigned long XIMFeedback; + +#define XIMReverse 1 +#define XIMUnderline (1<<1) +#define XIMHighlight (1<<2) +#define XIMPrimary (1<<5) +#define XIMSecondary (1<<6) +#define XIMTertiary (1<<7) + +typedef struct _XIMText { + unsigned short length; + XIMFeedback *feedback; + Bool encoding_is_wchar; + union { + char *multi_byte; + wchar_t *wide_char; + } string; +} XIMText; + +typedef struct _XIMPreeditDrawCallbackStruct { + int caret; /* Cursor offset within pre-edit string */ + int chg_first; /* Starting change position */ + int chg_length; /* Length of the change in character count */ + XIMText *text; +} XIMPreeditDrawCallbackStruct; + +typedef enum { + XIMForwardChar, XIMBackwardChar, + XIMForwardWord, XIMBackwardWord, + XIMCaretUp, XIMCaretDown, + XIMNextLine, XIMPreviousLine, + XIMLineStart, XIMLineEnd, + XIMAbsolutePosition, + XIMDontChange +} XIMCaretDirection; + +typedef enum { + XIMIsInvisible, /* Disable caret feedback */ + XIMIsPrimary, /* UI defined caret feedback */ + XIMIsSecondary /* UI defined caret feedback */ +} XIMCaretStyle; + +typedef struct _XIMPreeditCaretCallbackStruct { + int position; /* Caret offset within pre-edit string */ + XIMCaretDirection direction; /* Caret moves direction */ + XIMCaretStyle style; /* Feedback of the caret */ +} XIMPreeditCaretCallbackStruct; + +typedef enum { + XIMTextType, + XIMBitmapType +} XIMStatusDataType; + +typedef struct _XIMStatusDrawCallbackStruct { + XIMStatusDataType type; + union { + XIMText *text; + Pixmap bitmap; + } data; +} XIMStatusDrawCallbackStruct; + +typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ +#if NeedFunctionPrototypes + Display* /* display */, + XErrorEvent* /* error_event */ +#endif +); + +_XFUNCPROTOBEGIN + + + +#include "tkIntXlibDecls.h" + +_XFUNCPROTOEND + +#if defined(MAC_OSX_TK) +# undef Cursor +# undef Region +#endif + +#endif /* _XLIB_H_ */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xutil.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xutil.h new file mode 100644 index 00000000..58124b04 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/Xutil.h @@ -0,0 +1,855 @@ +/* $XConsortium: Xutil.h,v 11.73 91/07/30 16:21:37 rws Exp $ */ + +/*********************************************************** +Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, +and the Massachusetts Institute of Technology, Cambridge, Massachusetts. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Digital or MIT not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. + +DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING +ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL +DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR +ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, +WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, +ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS +SOFTWARE. + +******************************************************************/ + +#ifndef _XUTIL_H_ +#define _XUTIL_H_ + +/* You must include before including this file */ + +#if defined(MAC_OSX_TK) +# define Region XRegion +#endif + +/* + * Bitmask returned by XParseGeometry(). Each bit tells if the corresponding + * value (x, y, width, height) was found in the parsed string. + */ +#define NoValue 0x0000 +#define XValue 0x0001 +#define YValue 0x0002 +#define WidthValue 0x0004 +#define HeightValue 0x0008 +#define AllValues 0x000F +#define XNegative 0x0010 +#define YNegative 0x0020 + +/* + * new version containing base_width, base_height, and win_gravity fields; + * used with WM_NORMAL_HINTS. + */ +typedef struct { + long flags; /* marks which fields in this structure are defined */ + int x, y; /* obsolete for new window mgrs, but clients */ + int width, height; /* should set so old wm's don't mess up */ + int min_width, min_height; + int max_width, max_height; + int width_inc, height_inc; + struct { + int x; /* numerator */ + int y; /* denominator */ + } min_aspect, max_aspect; + int base_width, base_height; /* added by ICCCM version 1 */ + int win_gravity; /* added by ICCCM version 1 */ +} XSizeHints; + +/* + * The next block of definitions are for window manager properties that + * clients and applications use for communication. + */ + +/* flags argument in size hints */ +#define USPosition (1L << 0) /* user specified x, y */ +#define USSize (1L << 1) /* user specified width, height */ + +#define PPosition (1L << 2) /* program specified position */ +#define PSize (1L << 3) /* program specified size */ +#define PMinSize (1L << 4) /* program specified minimum size */ +#define PMaxSize (1L << 5) /* program specified maximum size */ +#define PResizeInc (1L << 6) /* program specified resize increments */ +#define PAspect (1L << 7) /* program specified min and max aspect ratios */ +#define PBaseSize (1L << 8) /* program specified base for incrementing */ +#define PWinGravity (1L << 9) /* program specified window gravity */ + +/* obsolete */ +#define PAllHints (PPosition|PSize|PMinSize|PMaxSize|PResizeInc|PAspect) + + + +typedef struct { + long flags; /* marks which fields in this structure are defined */ + Bool input; /* does this application rely on the window manager to + get keyboard input? */ + int initial_state; /* see below */ + Pixmap icon_pixmap; /* pixmap to be used as icon */ + Window icon_window; /* window to be used as icon */ + int icon_x, icon_y; /* initial position of icon */ + Pixmap icon_mask; /* icon mask bitmap */ + XID window_group; /* id of related window group */ + /* this structure may be extended in the future */ +} XWMHints; + +/* definition for flags of XWMHints */ + +#define InputHint (1L << 0) +#define StateHint (1L << 1) +#define IconPixmapHint (1L << 2) +#define IconWindowHint (1L << 3) +#define IconPositionHint (1L << 4) +#define IconMaskHint (1L << 5) +#define WindowGroupHint (1L << 6) +#define AllHints (InputHint|StateHint|IconPixmapHint|IconWindowHint| \ +IconPositionHint|IconMaskHint|WindowGroupHint) + +/* definitions for initial window state */ +#define WithdrawnState 0 /* for windows that are not mapped */ +#define NormalState 1 /* most applications want to start this way */ +#define IconicState 3 /* application wants to start as an icon */ + +/* + * Obsolete states no longer defined by ICCCM + */ +#define DontCareState 0 /* don't know or care */ +#define ZoomState 2 /* application wants to start zoomed */ +#define InactiveState 4 /* application believes it is seldom used; */ + /* some wm's may put it on inactive menu */ + + +/* + * new structure for manipulating TEXT properties; used with WM_NAME, + * WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND. + */ +typedef struct { + unsigned char *value; /* same as Property routines */ + Atom encoding; /* prop type */ + int format; /* prop data format: 8, 16, or 32 */ + unsigned long nitems; /* number of data items in value */ +} XTextProperty; + +#define XNoMemory -1 +#define XLocaleNotSupported -2 +#define XConverterNotFound -3 + +typedef enum { + XStringStyle, /* STRING */ + XCompoundTextStyle, /* COMPOUND_TEXT */ + XTextStyle, /* text in owner's encoding (current locale)*/ + XStdICCTextStyle /* STRING, else COMPOUND_TEXT */ +} XICCEncodingStyle; + +typedef struct { + int min_width, min_height; + int max_width, max_height; + int width_inc, height_inc; +} XIconSize; + +typedef struct { + char *res_name; + char *res_class; +} XClassHint; + +/* + * These macros are used to give some sugar to the image routines so that + * naive people are more comfortable with them. + */ +#define XDestroyImage(ximage) \ + ((*((ximage)->f.destroy_image))((ximage))) +#define XGetPixel(ximage, x, y) \ + ((*((ximage)->f.get_pixel))((ximage), (x), (y))) +#define XPutPixel(ximage, x, y, pixel) \ + ((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel))) +#define XSubImage(ximage, x, y, width, height) \ + ((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height))) +#define XAddPixel(ximage, value) \ + ((*((ximage)->f.add_pixel))((ximage), (value))) + +/* + * Compose sequence status structure, used in calling XLookupString. + */ +typedef struct _XComposeStatus { + XPointer compose_ptr; /* state table pointer */ + int chars_matched; /* match state */ +} XComposeStatus; + +/* + * Keysym macros, used on Keysyms to test for classes of symbols + */ +#define IsKeypadKey(keysym) \ + (((unsigned)(keysym) >= XK_KP_Space) && ((unsigned)(keysym) <= XK_KP_Equal)) + +#define IsCursorKey(keysym) \ + (((unsigned)(keysym) >= XK_Home) && ((unsigned)(keysym) < XK_Select)) + +#define IsPFKey(keysym) \ + (((unsigned)(keysym) >= XK_KP_F1) && ((unsigned)(keysym) <= XK_KP_F4)) + +#define IsFunctionKey(keysym) \ + (((unsigned)(keysym) >= XK_F1) && ((unsigned)(keysym) <= XK_F35)) + +#define IsMiscFunctionKey(keysym) \ + (((unsigned)(keysym) >= XK_Select) && ((unsigned)(keysym) <= XK_Break)) + +#define IsModifierKey(keysym) \ + ((((unsigned)(keysym) >= XK_Shift_L) && ((unsigned)(keysym) <= XK_Hyper_R)) \ + || ((unsigned)(keysym) == XK_Mode_switch) \ + || ((unsigned)(keysym) == XK_Num_Lock)) +/* + * opaque reference to Region data type + */ +typedef struct _XRegion *Region; + +/* Return values from XRectInRegion() */ + +#define RectangleOut 0 +#define RectangleIn 1 +#define RectanglePart 2 + + +/* + * Information used by the visual utility routines to find desired visual + * type from the many visuals a display may support. + */ + +typedef struct { + Visual *visual; + VisualID visualid; + int screen; + int depth; +#if defined(__cplusplus) || defined(c_plusplus) + int c_class; /* C++ */ +#else + int class; +#endif + unsigned long red_mask; + unsigned long green_mask; + unsigned long blue_mask; + int colormap_size; + int bits_per_rgb; +} XVisualInfo; + +#define VisualNoMask 0x0 +#define VisualIDMask 0x1 +#define VisualScreenMask 0x2 +#define VisualDepthMask 0x4 +#define VisualClassMask 0x8 +#define VisualRedMaskMask 0x10 +#define VisualGreenMaskMask 0x20 +#define VisualBlueMaskMask 0x40 +#define VisualColormapSizeMask 0x80 +#define VisualBitsPerRGBMask 0x100 +#define VisualAllMask 0x1FF + +/* + * This defines a window manager property that clients may use to + * share standard color maps of type RGB_COLOR_MAP: + */ +typedef struct { + Colormap colormap; + unsigned long red_max; + unsigned long red_mult; + unsigned long green_max; + unsigned long green_mult; + unsigned long blue_max; + unsigned long blue_mult; + unsigned long base_pixel; + VisualID visualid; /* added by ICCCM version 1 */ + XID killid; /* added by ICCCM version 1 */ +} XStandardColormap; + +#define ReleaseByFreeingColormap ((XID) 1L) /* for killid field above */ + + +/* + * return codes for XReadBitmapFile and XWriteBitmapFile + */ +#define BitmapSuccess 0 +#define BitmapOpenFailed 1 +#define BitmapFileInvalid 2 +#define BitmapNoMemory 3 + +/**************************************************************** + * + * Context Management + * + ****************************************************************/ + + +/* Associative lookup table return codes */ + +#define XCSUCCESS 0 /* No error. */ +#define XCNOMEM 1 /* Out of memory */ +#define XCNOENT 2 /* No entry in table */ + +typedef int XContext; + +#define XUniqueContext() ((XContext) XrmUniqueQuark()) +#define XStringToContext(string) ((XContext) XrmStringToQuark(string)) + +_XFUNCPROTOBEGIN + +/* The following declarations are alphabetized. */ + +extern XClassHint *XAllocClassHint ( +#if NeedFunctionPrototypes + void +#endif +); + +extern XIconSize *XAllocIconSize ( +#if NeedFunctionPrototypes + void +#endif +); + +extern XSizeHints *XAllocSizeHints ( +#if NeedFunctionPrototypes + void +#endif +); + +extern XStandardColormap *XAllocStandardColormap ( +#if NeedFunctionPrototypes + void +#endif +); + +extern XWMHints *XAllocWMHints ( +#if NeedFunctionPrototypes + void +#endif +); + +extern void XClipBox( +#if NeedFunctionPrototypes + Region /* r */, + XRectangle* /* rect_return */ +#endif +); + +extern Region XCreateRegion( +#if NeedFunctionPrototypes + void +#endif +); + +extern char *XDefaultString( +#if NeedFunctionPrototypes + void +#endif +); + +extern int XDeleteContext( +#if NeedFunctionPrototypes + Display* /* display */, + XID /* rid */, + XContext /* context */ +#endif +); + +extern void XDestroyRegion( +#if NeedFunctionPrototypes + Region /* r */ +#endif +); + +extern Bool XEmptyRegion( +#if NeedFunctionPrototypes + Region /* r */ +#endif +); + +extern Bool XEqualRegion( +#if NeedFunctionPrototypes + Region /* r1 */, + Region /* r2 */ +#endif +); + +extern int XFindContext( +#if NeedFunctionPrototypes + Display* /* display */, + XID /* rid */, + XContext /* context */, + XPointer* /* data_return */ +#endif +); + +extern Status XGetClassHint( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XClassHint* /* class_hints_return */ +#endif +); + +extern Status XGetIconSizes( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XIconSize** /* size_list_return */, + int* /* count_return */ +#endif +); + +extern Status XGetNormalHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints_return */ +#endif +); + +extern Status XGetRGBColormaps( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XStandardColormap** /* stdcmap_return */, + int* /* count_return */, + Atom /* property */ +#endif +); + +extern Status XGetSizeHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints_return */, + Atom /* property */ +#endif +); + +extern Status XGetStandardColormap( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XStandardColormap* /* colormap_return */, + Atom /* property */ +#endif +); + +extern Status XGetTextProperty( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* window */, + XTextProperty* /* text_prop_return */, + Atom /* property */ +#endif +); + + +extern Status XGetWMClientMachine( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern XWMHints *XGetWMHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */ +#endif +); + +extern Status XGetWMIconName( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern Status XGetWMName( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern Status XGetWMNormalHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints_return */, + long* /* supplied_return */ +#endif +); + +extern Status XGetWMSizeHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints_return */, + long* /* supplied_return */, + Atom /* property */ +#endif +); + +extern Status XGetZoomHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* zhints_return */ +#endif +); + +extern void XIntersectRegion( +#if NeedFunctionPrototypes + Region /* sra */, + Region /* srb */, + Region /* dr_return */ +#endif +); + +extern int XLookupString( +#if NeedFunctionPrototypes + XKeyEvent* /* event_struct */, + char* /* buffer_return */, + int /* bytes_buffer */, + KeySym* /* keysym_return */, + XComposeStatus* /* status_in_out */ +#endif +); + +extern Status XMatchVisualInfo( +#if NeedFunctionPrototypes + Display* /* display */, + int /* screen */, + int /* depth */, + int /* class */, + XVisualInfo* /* vinfo_return */ +#endif +); + +extern void XOffsetRegion( +#if NeedFunctionPrototypes + Region /* r */, + int /* dx */, + int /* dy */ +#endif +); + +extern Bool XPointInRegion( +#if NeedFunctionPrototypes + Region /* r */, + int /* x */, + int /* y */ +#endif +); + +extern Region XPolygonRegion( +#if NeedFunctionPrototypes + XPoint* /* points */, + int /* n */, + int /* fill_rule */ +#endif +); + +extern int XRectInRegion( +#if NeedFunctionPrototypes + Region /* r */, + int /* x */, + int /* y */, + unsigned int /* width */, + unsigned int /* height */ +#endif +); + +extern int XSaveContext( +#if NeedFunctionPrototypes + Display* /* display */, + XID /* rid */, + XContext /* context */, + _Xconst char* /* data */ +#endif +); + +extern void XSetClassHint( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XClassHint* /* class_hints */ +#endif +); + +extern void XSetIconSizes( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XIconSize* /* size_list */, + int /* count */ +#endif +); + +extern void XSetNormalHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints */ +#endif +); + +extern void XSetRGBColormaps( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XStandardColormap* /* stdcmaps */, + int /* count */, + Atom /* property */ +#endif +); + +extern void XSetSizeHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints */, + Atom /* property */ +#endif +); + +extern void XSetStandardProperties( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + _Xconst char* /* window_name */, + _Xconst char* /* icon_name */, + Pixmap /* icon_pixmap */, + char** /* argv */, + int /* argc */, + XSizeHints* /* hints */ +#endif +); + +extern void XSetTextProperty( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop */, + Atom /* property */ +#endif +); + +extern void XSetWMHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XWMHints* /* wm_hints */ +#endif +); + +extern void XSetWMIconName( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop */ +#endif +); + +extern void XSetWMName( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop */ +#endif +); + +extern void XSetWMNormalHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints */ +#endif +); + +extern void XSetWMProperties( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* window_name */, + XTextProperty* /* icon_name */, + char** /* argv */, + int /* argc */, + XSizeHints* /* normal_hints */, + XWMHints* /* wm_hints */, + XClassHint* /* class_hints */ +#endif +); + +extern void XmbSetWMProperties( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + _Xconst char* /* window_name */, + _Xconst char* /* icon_name */, + char** /* argv */, + int /* argc */, + XSizeHints* /* normal_hints */, + XWMHints* /* wm_hints */, + XClassHint* /* class_hints */ +#endif +); + +extern void XSetWMSizeHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints */, + Atom /* property */ +#endif +); + +extern void XSetRegion( +#if NeedFunctionPrototypes + Display* /* display */, + GC /* gc */, + Region /* r */ +#endif +); + +extern void XSetStandardColormap( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XStandardColormap* /* colormap */, + Atom /* property */ +#endif +); + +extern void XSetZoomHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* zhints */ +#endif +); + +extern void XShrinkRegion( +#if NeedFunctionPrototypes + Region /* r */, + int /* dx */, + int /* dy */ +#endif +); + +extern void XSubtractRegion( +#if NeedFunctionPrototypes + Region /* sra */, + Region /* srb */, + Region /* dr_return */ +#endif +); + +extern int XmbTextListToTextProperty( +#if NeedFunctionPrototypes + Display* /* display */, + char** /* list */, + int /* count */, + XICCEncodingStyle /* style */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern int XwcTextListToTextProperty( +#if NeedFunctionPrototypes + Display* /* display */, + wchar_t** /* list */, + int /* count */, + XICCEncodingStyle /* style */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern void XwcFreeStringList( +#if NeedFunctionPrototypes + wchar_t** /* list */ +#endif +); + +extern Status XTextPropertyToStringList( +#if NeedFunctionPrototypes + XTextProperty* /* text_prop */, + char*** /* list_return */, + int* /* count_return */ +#endif +); + +extern int XmbTextPropertyToTextList( +#if NeedFunctionPrototypes + Display* /* display */, + XTextProperty* /* text_prop */, + char*** /* list_return */, + int* /* count_return */ +#endif +); + +extern int XwcTextPropertyToTextList( +#if NeedFunctionPrototypes + Display* /* display */, + XTextProperty* /* text_prop */, + wchar_t*** /* list_return */, + int* /* count_return */ +#endif +); + +extern void XUnionRectWithRegion( +#if NeedFunctionPrototypes + XRectangle* /* rectangle */, + Region /* src_region */, + Region /* dest_region_return */ +#endif +); + +extern void XUnionRegion( +#if NeedFunctionPrototypes + Region /* sra */, + Region /* srb */, + Region /* dr_return */ +#endif +); + +extern int XWMGeometry( +#if NeedFunctionPrototypes + Display* /* display */, + int /* screen_number */, + _Xconst char* /* user_geometry */, + _Xconst char* /* default_geometry */, + unsigned int /* border_width */, + XSizeHints* /* hints */, + int* /* x_return */, + int* /* y_return */, + int* /* width_return */, + int* /* height_return */, + int* /* gravity_return */ +#endif +); + +extern void XXorRegion( +#if NeedFunctionPrototypes + Region /* sra */, + Region /* srb */, + Region /* dr_return */ +#endif +); + +_XFUNCPROTOEND + +#if defined(MAC_OSX_TK) +# undef Region +#endif + +#endif /* _XUTIL_H_ */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/cursorfont.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/cursorfont.h new file mode 100644 index 00000000..617274fa --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/cursorfont.h @@ -0,0 +1,79 @@ +/* $XConsortium: cursorfont.h,v 1.2 88/09/06 16:44:27 jim Exp $ */ +#define XC_num_glyphs 154 +#define XC_X_cursor 0 +#define XC_arrow 2 +#define XC_based_arrow_down 4 +#define XC_based_arrow_up 6 +#define XC_boat 8 +#define XC_bogosity 10 +#define XC_bottom_left_corner 12 +#define XC_bottom_right_corner 14 +#define XC_bottom_side 16 +#define XC_bottom_tee 18 +#define XC_box_spiral 20 +#define XC_center_ptr 22 +#define XC_circle 24 +#define XC_clock 26 +#define XC_coffee_mug 28 +#define XC_cross 30 +#define XC_cross_reverse 32 +#define XC_crosshair 34 +#define XC_diamond_cross 36 +#define XC_dot 38 +#define XC_dotbox 40 +#define XC_double_arrow 42 +#define XC_draft_large 44 +#define XC_draft_small 46 +#define XC_draped_box 48 +#define XC_exchange 50 +#define XC_fleur 52 +#define XC_gobbler 54 +#define XC_gumby 56 +#define XC_hand1 58 +#define XC_hand2 60 +#define XC_heart 62 +#define XC_icon 64 +#define XC_iron_cross 66 +#define XC_left_ptr 68 +#define XC_left_side 70 +#define XC_left_tee 72 +#define XC_leftbutton 74 +#define XC_ll_angle 76 +#define XC_lr_angle 78 +#define XC_man 80 +#define XC_middlebutton 82 +#define XC_mouse 84 +#define XC_pencil 86 +#define XC_pirate 88 +#define XC_plus 90 +#define XC_question_arrow 92 +#define XC_right_ptr 94 +#define XC_right_side 96 +#define XC_right_tee 98 +#define XC_rightbutton 100 +#define XC_rtl_logo 102 +#define XC_sailboat 104 +#define XC_sb_down_arrow 106 +#define XC_sb_h_double_arrow 108 +#define XC_sb_left_arrow 110 +#define XC_sb_right_arrow 112 +#define XC_sb_up_arrow 114 +#define XC_sb_v_double_arrow 116 +#define XC_shuttle 118 +#define XC_sizing 120 +#define XC_spider 122 +#define XC_spraycan 124 +#define XC_star 126 +#define XC_target 128 +#define XC_tcross 130 +#define XC_top_left_arrow 132 +#define XC_top_left_corner 134 +#define XC_top_right_corner 136 +#define XC_top_side 138 +#define XC_top_tee 140 +#define XC_trek 142 +#define XC_ul_angle 144 +#define XC_umbrella 146 +#define XC_ur_angle 148 +#define XC_watch 150 +#define XC_xterm 152 diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/keysym.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/keysym.h new file mode 100644 index 00000000..550b76db --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/keysym.h @@ -0,0 +1,35 @@ +/* $XConsortium: keysym.h,v 1.13 91/03/13 20:09:49 rws Exp $ */ + +/*********************************************************** +Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, +and the Massachusetts Institute of Technology, Cambridge, Massachusetts. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Digital or MIT not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. + +DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING +ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL +DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR +ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, +WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, +ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS +SOFTWARE. + +******************************************************************/ + +/* default keysyms */ +#define XK_MISCELLANY +#define XK_LATIN1 +#define XK_LATIN2 +#define XK_LATIN3 +#define XK_LATIN4 +#define XK_GREEK + +#include diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/keysymdef.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/keysymdef.h new file mode 100644 index 00000000..b22d41b3 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/keysymdef.h @@ -0,0 +1,1169 @@ +/* $XConsortium: keysymdef.h,v 1.15 93/04/02 10:57:36 rws Exp $ */ + +/*********************************************************** +Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, +and the Massachusetts Institute of Technology, Cambridge, Massachusetts. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Digital or MIT not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. + +DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING +ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL +DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR +ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, +WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, +ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS +SOFTWARE. + +******************************************************************/ + +#define XK_VoidSymbol 0xFFFFFF /* void symbol */ + +#ifdef XK_MISCELLANY +/* + * TTY Functions, cleverly chosen to map to ascii, for convenience of + * programming, but could have been arbitrary (at the cost of lookup + * tables in client code. + */ + +#define XK_BackSpace 0xFF08 /* back space, back char */ +#define XK_Tab 0xFF09 +#define XK_Linefeed 0xFF0A /* Linefeed, LF */ +#define XK_Clear 0xFF0B +#define XK_Return 0xFF0D /* Return, enter */ +#define XK_Pause 0xFF13 /* Pause, hold */ +#define XK_Scroll_Lock 0xFF14 +#define XK_Sys_Req 0xFF15 +#define XK_Escape 0xFF1B +#define XK_Delete 0xFFFF /* Delete, rubout */ + + + +/* International & multi-key character composition */ + +#define XK_Multi_key 0xFF20 /* Multi-key character compose */ + +/* Japanese keyboard support */ + +#define XK_Kanji 0xFF21 /* Kanji, Kanji convert */ +#define XK_Muhenkan 0xFF22 /* Cancel Conversion */ +#define XK_Henkan_Mode 0xFF23 /* Start/Stop Conversion */ +#define XK_Henkan 0xFF23 /* Alias for Henkan_Mode */ +#define XK_Romaji 0xFF24 /* to Romaji */ +#define XK_Hiragana 0xFF25 /* to Hiragana */ +#define XK_Katakana 0xFF26 /* to Katakana */ +#define XK_Hiragana_Katakana 0xFF27 /* Hiragana/Katakana toggle */ +#define XK_Zenkaku 0xFF28 /* to Zenkaku */ +#define XK_Hankaku 0xFF29 /* to Hankaku */ +#define XK_Zenkaku_Hankaku 0xFF2A /* Zenkaku/Hankaku toggle */ +#define XK_Touroku 0xFF2B /* Add to Dictionary */ +#define XK_Massyo 0xFF2C /* Delete from Dictionary */ +#define XK_Kana_Lock 0xFF2D /* Kana Lock */ +#define XK_Kana_Shift 0xFF2E /* Kana Shift */ +#define XK_Eisu_Shift 0xFF2F /* Alphanumeric Shift */ +#define XK_Eisu_toggle 0xFF30 /* Alphanumeric toggle */ + +/* Cursor control & motion */ + +#define XK_Home 0xFF50 +#define XK_Left 0xFF51 /* Move left, left arrow */ +#define XK_Up 0xFF52 /* Move up, up arrow */ +#define XK_Right 0xFF53 /* Move right, right arrow */ +#define XK_Down 0xFF54 /* Move down, down arrow */ +#define XK_Prior 0xFF55 /* Prior, previous */ +#define XK_Page_Up 0xFF55 +#define XK_Next 0xFF56 /* Next */ +#define XK_Page_Down 0xFF56 +#define XK_End 0xFF57 /* EOL */ +#define XK_Begin 0xFF58 /* BOL */ + +/* Special Windows keyboard keys */ + +#define XK_Win_L 0xFF5B /* Left-hand Windows */ +#define XK_Win_R 0xFF5C /* Right-hand Windows */ +#define XK_App 0xFF5D /* Menu key */ + +/* Misc Functions */ + +#define XK_Select 0xFF60 /* Select, mark */ +#define XK_Print 0xFF61 +#define XK_Execute 0xFF62 /* Execute, run, do */ +#define XK_Insert 0xFF63 /* Insert, insert here */ +#define XK_Undo 0xFF65 /* Undo, oops */ +#define XK_Redo 0xFF66 /* redo, again */ +#define XK_Menu 0xFF67 +#define XK_Find 0xFF68 /* Find, search */ +#define XK_Cancel 0xFF69 /* Cancel, stop, abort, exit */ +#define XK_Help 0xFF6A /* Help, ? */ +#define XK_Break 0xFF6B +#define XK_Mode_switch 0xFF7E /* Character set switch */ +#define XK_script_switch 0xFF7E /* Alias for mode_switch */ +#define XK_Num_Lock 0xFF7F + +/* Keypad Functions, keypad numbers cleverly chosen to map to ascii */ + +#define XK_KP_Space 0xFF80 /* space */ +#define XK_KP_Tab 0xFF89 +#define XK_KP_Enter 0xFF8D /* enter */ +#define XK_KP_F1 0xFF91 /* PF1, KP_A, ... */ +#define XK_KP_F2 0xFF92 +#define XK_KP_F3 0xFF93 +#define XK_KP_F4 0xFF94 +#define XK_KP_Home 0xFF95 +#define XK_KP_Left 0xFF96 +#define XK_KP_Up 0xFF97 +#define XK_KP_Right 0xFF98 +#define XK_KP_Down 0xFF99 +#define XK_KP_Prior 0xFF9A +#define XK_KP_Page_Up 0xFF9A +#define XK_KP_Next 0xFF9B +#define XK_KP_Page_Down 0xFF9B +#define XK_KP_End 0xFF9C +#define XK_KP_Begin 0xFF9D +#define XK_KP_Insert 0xFF9E +#define XK_KP_Delete 0xFF9F +#define XK_KP_Equal 0xFFBD /* equals */ +#define XK_KP_Multiply 0xFFAA +#define XK_KP_Add 0xFFAB +#define XK_KP_Separator 0xFFAC /* separator, often comma */ +#define XK_KP_Subtract 0xFFAD +#define XK_KP_Decimal 0xFFAE +#define XK_KP_Divide 0xFFAF + +#define XK_KP_0 0xFFB0 +#define XK_KP_1 0xFFB1 +#define XK_KP_2 0xFFB2 +#define XK_KP_3 0xFFB3 +#define XK_KP_4 0xFFB4 +#define XK_KP_5 0xFFB5 +#define XK_KP_6 0xFFB6 +#define XK_KP_7 0xFFB7 +#define XK_KP_8 0xFFB8 +#define XK_KP_9 0xFFB9 + + + +/* + * Auxilliary Functions; note the duplicate definitions for left and right + * function keys; Sun keyboards and a few other manufactures have such + * function key groups on the left and/or right sides of the keyboard. + * We've not found a keyboard with more than 35 function keys total. + */ + +#define XK_F1 0xFFBE +#define XK_F2 0xFFBF +#define XK_F3 0xFFC0 +#define XK_F4 0xFFC1 +#define XK_F5 0xFFC2 +#define XK_F6 0xFFC3 +#define XK_F7 0xFFC4 +#define XK_F8 0xFFC5 +#define XK_F9 0xFFC6 +#define XK_F10 0xFFC7 +#define XK_F11 0xFFC8 +#define XK_L1 0xFFC8 +#define XK_F12 0xFFC9 +#define XK_L2 0xFFC9 +#define XK_F13 0xFFCA +#define XK_L3 0xFFCA +#define XK_F14 0xFFCB +#define XK_L4 0xFFCB +#define XK_F15 0xFFCC +#define XK_L5 0xFFCC +#define XK_F16 0xFFCD +#define XK_L6 0xFFCD +#define XK_F17 0xFFCE +#define XK_L7 0xFFCE +#define XK_F18 0xFFCF +#define XK_L8 0xFFCF +#define XK_F19 0xFFD0 +#define XK_L9 0xFFD0 +#define XK_F20 0xFFD1 +#define XK_L10 0xFFD1 +#define XK_F21 0xFFD2 +#define XK_R1 0xFFD2 +#define XK_F22 0xFFD3 +#define XK_R2 0xFFD3 +#define XK_F23 0xFFD4 +#define XK_R3 0xFFD4 +#define XK_F24 0xFFD5 +#define XK_R4 0xFFD5 +#define XK_F25 0xFFD6 +#define XK_R5 0xFFD6 +#define XK_F26 0xFFD7 +#define XK_R6 0xFFD7 +#define XK_F27 0xFFD8 +#define XK_R7 0xFFD8 +#define XK_F28 0xFFD9 +#define XK_R8 0xFFD9 +#define XK_F29 0xFFDA +#define XK_R9 0xFFDA +#define XK_F30 0xFFDB +#define XK_R10 0xFFDB +#define XK_F31 0xFFDC +#define XK_R11 0xFFDC +#define XK_F32 0xFFDD +#define XK_R12 0xFFDD +#define XK_F33 0xFFDE +#define XK_R13 0xFFDE +#define XK_F34 0xFFDF +#define XK_R14 0xFFDF +#define XK_F35 0xFFE0 +#define XK_R15 0xFFE0 + +/* Modifiers */ + +#define XK_Shift_L 0xFFE1 /* Left shift */ +#define XK_Shift_R 0xFFE2 /* Right shift */ +#define XK_Control_L 0xFFE3 /* Left control */ +#define XK_Control_R 0xFFE4 /* Right control */ +#define XK_Caps_Lock 0xFFE5 /* Caps lock */ +#define XK_Shift_Lock 0xFFE6 /* Shift lock */ + +#define XK_Meta_L 0xFFE7 /* Left meta */ +#define XK_Meta_R 0xFFE8 /* Right meta */ +#define XK_Alt_L 0xFFE9 /* Left alt */ +#define XK_Alt_R 0xFFEA /* Right alt */ +#define XK_Super_L 0xFFEB /* Left super */ +#define XK_Super_R 0xFFEC /* Right super */ +#define XK_Hyper_L 0xFFED /* Left hyper */ +#define XK_Hyper_R 0xFFEE /* Right hyper */ +#endif /* XK_MISCELLANY */ + +/* + * Latin 1 + * Byte 3 = 0 + */ +#ifdef XK_LATIN1 +#define XK_space 0x020 +#define XK_exclam 0x021 +#define XK_quotedbl 0x022 +#define XK_numbersign 0x023 +#define XK_dollar 0x024 +#define XK_percent 0x025 +#define XK_ampersand 0x026 +#define XK_apostrophe 0x027 +#define XK_quoteright 0x027 /* deprecated */ +#define XK_parenleft 0x028 +#define XK_parenright 0x029 +#define XK_asterisk 0x02a +#define XK_plus 0x02b +#define XK_comma 0x02c +#define XK_minus 0x02d +#define XK_period 0x02e +#define XK_slash 0x02f +#define XK_0 0x030 +#define XK_1 0x031 +#define XK_2 0x032 +#define XK_3 0x033 +#define XK_4 0x034 +#define XK_5 0x035 +#define XK_6 0x036 +#define XK_7 0x037 +#define XK_8 0x038 +#define XK_9 0x039 +#define XK_colon 0x03a +#define XK_semicolon 0x03b +#define XK_less 0x03c +#define XK_equal 0x03d +#define XK_greater 0x03e +#define XK_question 0x03f +#define XK_at 0x040 +#define XK_A 0x041 +#define XK_B 0x042 +#define XK_C 0x043 +#define XK_D 0x044 +#define XK_E 0x045 +#define XK_F 0x046 +#define XK_G 0x047 +#define XK_H 0x048 +#define XK_I 0x049 +#define XK_J 0x04a +#define XK_K 0x04b +#define XK_L 0x04c +#define XK_M 0x04d +#define XK_N 0x04e +#define XK_O 0x04f +#define XK_P 0x050 +#define XK_Q 0x051 +#define XK_R 0x052 +#define XK_S 0x053 +#define XK_T 0x054 +#define XK_U 0x055 +#define XK_V 0x056 +#define XK_W 0x057 +#define XK_X 0x058 +#define XK_Y 0x059 +#define XK_Z 0x05a +#define XK_bracketleft 0x05b +#define XK_backslash 0x05c +#define XK_bracketright 0x05d +#define XK_asciicircum 0x05e +#define XK_underscore 0x05f +#define XK_grave 0x060 +#define XK_quoteleft 0x060 /* deprecated */ +#define XK_a 0x061 +#define XK_b 0x062 +#define XK_c 0x063 +#define XK_d 0x064 +#define XK_e 0x065 +#define XK_f 0x066 +#define XK_g 0x067 +#define XK_h 0x068 +#define XK_i 0x069 +#define XK_j 0x06a +#define XK_k 0x06b +#define XK_l 0x06c +#define XK_m 0x06d +#define XK_n 0x06e +#define XK_o 0x06f +#define XK_p 0x070 +#define XK_q 0x071 +#define XK_r 0x072 +#define XK_s 0x073 +#define XK_t 0x074 +#define XK_u 0x075 +#define XK_v 0x076 +#define XK_w 0x077 +#define XK_x 0x078 +#define XK_y 0x079 +#define XK_z 0x07a +#define XK_braceleft 0x07b +#define XK_bar 0x07c +#define XK_braceright 0x07d +#define XK_asciitilde 0x07e + +#define XK_nobreakspace 0x0a0 +#define XK_exclamdown 0x0a1 +#define XK_cent 0x0a2 +#define XK_sterling 0x0a3 +#define XK_currency 0x0a4 +#define XK_yen 0x0a5 +#define XK_brokenbar 0x0a6 +#define XK_section 0x0a7 +#define XK_diaeresis 0x0a8 +#define XK_copyright 0x0a9 +#define XK_ordfeminine 0x0aa +#define XK_guillemotleft 0x0ab /* left angle quotation mark */ +#define XK_notsign 0x0ac +#define XK_hyphen 0x0ad +#define XK_registered 0x0ae +#define XK_macron 0x0af +#define XK_degree 0x0b0 +#define XK_plusminus 0x0b1 +#define XK_twosuperior 0x0b2 +#define XK_threesuperior 0x0b3 +#define XK_acute 0x0b4 +#define XK_mu 0x0b5 +#define XK_paragraph 0x0b6 +#define XK_periodcentered 0x0b7 +#define XK_cedilla 0x0b8 +#define XK_onesuperior 0x0b9 +#define XK_masculine 0x0ba +#define XK_guillemotright 0x0bb /* right angle quotation mark */ +#define XK_onequarter 0x0bc +#define XK_onehalf 0x0bd +#define XK_threequarters 0x0be +#define XK_questiondown 0x0bf +#define XK_Agrave 0x0c0 +#define XK_Aacute 0x0c1 +#define XK_Acircumflex 0x0c2 +#define XK_Atilde 0x0c3 +#define XK_Adiaeresis 0x0c4 +#define XK_Aring 0x0c5 +#define XK_AE 0x0c6 +#define XK_Ccedilla 0x0c7 +#define XK_Egrave 0x0c8 +#define XK_Eacute 0x0c9 +#define XK_Ecircumflex 0x0ca +#define XK_Ediaeresis 0x0cb +#define XK_Igrave 0x0cc +#define XK_Iacute 0x0cd +#define XK_Icircumflex 0x0ce +#define XK_Idiaeresis 0x0cf +#define XK_ETH 0x0d0 +#define XK_Eth 0x0d0 /* deprecated */ +#define XK_Ntilde 0x0d1 +#define XK_Ograve 0x0d2 +#define XK_Oacute 0x0d3 +#define XK_Ocircumflex 0x0d4 +#define XK_Otilde 0x0d5 +#define XK_Odiaeresis 0x0d6 +#define XK_multiply 0x0d7 +#define XK_Ooblique 0x0d8 +#define XK_Ugrave 0x0d9 +#define XK_Uacute 0x0da +#define XK_Ucircumflex 0x0db +#define XK_Udiaeresis 0x0dc +#define XK_Yacute 0x0dd +#define XK_THORN 0x0de +#define XK_Thorn 0x0de /* deprecated */ +#define XK_ssharp 0x0df +#define XK_agrave 0x0e0 +#define XK_aacute 0x0e1 +#define XK_acircumflex 0x0e2 +#define XK_atilde 0x0e3 +#define XK_adiaeresis 0x0e4 +#define XK_aring 0x0e5 +#define XK_ae 0x0e6 +#define XK_ccedilla 0x0e7 +#define XK_egrave 0x0e8 +#define XK_eacute 0x0e9 +#define XK_ecircumflex 0x0ea +#define XK_ediaeresis 0x0eb +#define XK_igrave 0x0ec +#define XK_iacute 0x0ed +#define XK_icircumflex 0x0ee +#define XK_idiaeresis 0x0ef +#define XK_eth 0x0f0 +#define XK_ntilde 0x0f1 +#define XK_ograve 0x0f2 +#define XK_oacute 0x0f3 +#define XK_ocircumflex 0x0f4 +#define XK_otilde 0x0f5 +#define XK_odiaeresis 0x0f6 +#define XK_division 0x0f7 +#define XK_oslash 0x0f8 +#define XK_ugrave 0x0f9 +#define XK_uacute 0x0fa +#define XK_ucircumflex 0x0fb +#define XK_udiaeresis 0x0fc +#define XK_yacute 0x0fd +#define XK_thorn 0x0fe +#define XK_ydiaeresis 0x0ff +#endif /* XK_LATIN1 */ + +/* + * Latin 2 + * Byte 3 = 1 + */ + +#ifdef XK_LATIN2 +#define XK_Aogonek 0x1a1 +#define XK_breve 0x1a2 +#define XK_Lstroke 0x1a3 +#define XK_Lcaron 0x1a5 +#define XK_Sacute 0x1a6 +#define XK_Scaron 0x1a9 +#define XK_Scedilla 0x1aa +#define XK_Tcaron 0x1ab +#define XK_Zacute 0x1ac +#define XK_Zcaron 0x1ae +#define XK_Zabovedot 0x1af +#define XK_aogonek 0x1b1 +#define XK_ogonek 0x1b2 +#define XK_lstroke 0x1b3 +#define XK_lcaron 0x1b5 +#define XK_sacute 0x1b6 +#define XK_caron 0x1b7 +#define XK_scaron 0x1b9 +#define XK_scedilla 0x1ba +#define XK_tcaron 0x1bb +#define XK_zacute 0x1bc +#define XK_doubleacute 0x1bd +#define XK_zcaron 0x1be +#define XK_zabovedot 0x1bf +#define XK_Racute 0x1c0 +#define XK_Abreve 0x1c3 +#define XK_Lacute 0x1c5 +#define XK_Cacute 0x1c6 +#define XK_Ccaron 0x1c8 +#define XK_Eogonek 0x1ca +#define XK_Ecaron 0x1cc +#define XK_Dcaron 0x1cf +#define XK_Dstroke 0x1d0 +#define XK_Nacute 0x1d1 +#define XK_Ncaron 0x1d2 +#define XK_Odoubleacute 0x1d5 +#define XK_Rcaron 0x1d8 +#define XK_Uring 0x1d9 +#define XK_Udoubleacute 0x1db +#define XK_Tcedilla 0x1de +#define XK_racute 0x1e0 +#define XK_abreve 0x1e3 +#define XK_lacute 0x1e5 +#define XK_cacute 0x1e6 +#define XK_ccaron 0x1e8 +#define XK_eogonek 0x1ea +#define XK_ecaron 0x1ec +#define XK_dcaron 0x1ef +#define XK_dstroke 0x1f0 +#define XK_nacute 0x1f1 +#define XK_ncaron 0x1f2 +#define XK_odoubleacute 0x1f5 +#define XK_udoubleacute 0x1fb +#define XK_rcaron 0x1f8 +#define XK_uring 0x1f9 +#define XK_tcedilla 0x1fe +#define XK_abovedot 0x1ff +#endif /* XK_LATIN2 */ + +/* + * Latin 3 + * Byte 3 = 2 + */ + +#ifdef XK_LATIN3 +#define XK_Hstroke 0x2a1 +#define XK_Hcircumflex 0x2a6 +#define XK_Iabovedot 0x2a9 +#define XK_Gbreve 0x2ab +#define XK_Jcircumflex 0x2ac +#define XK_hstroke 0x2b1 +#define XK_hcircumflex 0x2b6 +#define XK_idotless 0x2b9 +#define XK_gbreve 0x2bb +#define XK_jcircumflex 0x2bc +#define XK_Cabovedot 0x2c5 +#define XK_Ccircumflex 0x2c6 +#define XK_Gabovedot 0x2d5 +#define XK_Gcircumflex 0x2d8 +#define XK_Ubreve 0x2dd +#define XK_Scircumflex 0x2de +#define XK_cabovedot 0x2e5 +#define XK_ccircumflex 0x2e6 +#define XK_gabovedot 0x2f5 +#define XK_gcircumflex 0x2f8 +#define XK_ubreve 0x2fd +#define XK_scircumflex 0x2fe +#endif /* XK_LATIN3 */ + + +/* + * Latin 4 + * Byte 3 = 3 + */ + +#ifdef XK_LATIN4 +#define XK_kra 0x3a2 +#define XK_kappa 0x3a2 /* deprecated */ +#define XK_Rcedilla 0x3a3 +#define XK_Itilde 0x3a5 +#define XK_Lcedilla 0x3a6 +#define XK_Emacron 0x3aa +#define XK_Gcedilla 0x3ab +#define XK_Tslash 0x3ac +#define XK_rcedilla 0x3b3 +#define XK_itilde 0x3b5 +#define XK_lcedilla 0x3b6 +#define XK_emacron 0x3ba +#define XK_gcedilla 0x3bb +#define XK_tslash 0x3bc +#define XK_ENG 0x3bd +#define XK_eng 0x3bf +#define XK_Amacron 0x3c0 +#define XK_Iogonek 0x3c7 +#define XK_Eabovedot 0x3cc +#define XK_Imacron 0x3cf +#define XK_Ncedilla 0x3d1 +#define XK_Omacron 0x3d2 +#define XK_Kcedilla 0x3d3 +#define XK_Uogonek 0x3d9 +#define XK_Utilde 0x3dd +#define XK_Umacron 0x3de +#define XK_amacron 0x3e0 +#define XK_iogonek 0x3e7 +#define XK_eabovedot 0x3ec +#define XK_imacron 0x3ef +#define XK_ncedilla 0x3f1 +#define XK_omacron 0x3f2 +#define XK_kcedilla 0x3f3 +#define XK_uogonek 0x3f9 +#define XK_utilde 0x3fd +#define XK_umacron 0x3fe +#endif /* XK_LATIN4 */ + +/* + * Katakana + * Byte 3 = 4 + */ + +#ifdef XK_KATAKANA +#define XK_overline 0x47e +#define XK_kana_fullstop 0x4a1 +#define XK_kana_openingbracket 0x4a2 +#define XK_kana_closingbracket 0x4a3 +#define XK_kana_comma 0x4a4 +#define XK_kana_conjunctive 0x4a5 +#define XK_kana_middledot 0x4a5 /* deprecated */ +#define XK_kana_WO 0x4a6 +#define XK_kana_a 0x4a7 +#define XK_kana_i 0x4a8 +#define XK_kana_u 0x4a9 +#define XK_kana_e 0x4aa +#define XK_kana_o 0x4ab +#define XK_kana_ya 0x4ac +#define XK_kana_yu 0x4ad +#define XK_kana_yo 0x4ae +#define XK_kana_tsu 0x4af +#define XK_kana_tu 0x4af /* deprecated */ +#define XK_prolongedsound 0x4b0 +#define XK_kana_A 0x4b1 +#define XK_kana_I 0x4b2 +#define XK_kana_U 0x4b3 +#define XK_kana_E 0x4b4 +#define XK_kana_O 0x4b5 +#define XK_kana_KA 0x4b6 +#define XK_kana_KI 0x4b7 +#define XK_kana_KU 0x4b8 +#define XK_kana_KE 0x4b9 +#define XK_kana_KO 0x4ba +#define XK_kana_SA 0x4bb +#define XK_kana_SHI 0x4bc +#define XK_kana_SU 0x4bd +#define XK_kana_SE 0x4be +#define XK_kana_SO 0x4bf +#define XK_kana_TA 0x4c0 +#define XK_kana_CHI 0x4c1 +#define XK_kana_TI 0x4c1 /* deprecated */ +#define XK_kana_TSU 0x4c2 +#define XK_kana_TU 0x4c2 /* deprecated */ +#define XK_kana_TE 0x4c3 +#define XK_kana_TO 0x4c4 +#define XK_kana_NA 0x4c5 +#define XK_kana_NI 0x4c6 +#define XK_kana_NU 0x4c7 +#define XK_kana_NE 0x4c8 +#define XK_kana_NO 0x4c9 +#define XK_kana_HA 0x4ca +#define XK_kana_HI 0x4cb +#define XK_kana_FU 0x4cc +#define XK_kana_HU 0x4cc /* deprecated */ +#define XK_kana_HE 0x4cd +#define XK_kana_HO 0x4ce +#define XK_kana_MA 0x4cf +#define XK_kana_MI 0x4d0 +#define XK_kana_MU 0x4d1 +#define XK_kana_ME 0x4d2 +#define XK_kana_MO 0x4d3 +#define XK_kana_YA 0x4d4 +#define XK_kana_YU 0x4d5 +#define XK_kana_YO 0x4d6 +#define XK_kana_RA 0x4d7 +#define XK_kana_RI 0x4d8 +#define XK_kana_RU 0x4d9 +#define XK_kana_RE 0x4da +#define XK_kana_RO 0x4db +#define XK_kana_WA 0x4dc +#define XK_kana_N 0x4dd +#define XK_voicedsound 0x4de +#define XK_semivoicedsound 0x4df +#define XK_kana_switch 0xFF7E /* Alias for mode_switch */ +#endif /* XK_KATAKANA */ + +/* + * Arabic + * Byte 3 = 5 + */ + +#ifdef XK_ARABIC +#define XK_Arabic_comma 0x5ac +#define XK_Arabic_semicolon 0x5bb +#define XK_Arabic_question_mark 0x5bf +#define XK_Arabic_hamza 0x5c1 +#define XK_Arabic_maddaonalef 0x5c2 +#define XK_Arabic_hamzaonalef 0x5c3 +#define XK_Arabic_hamzaonwaw 0x5c4 +#define XK_Arabic_hamzaunderalef 0x5c5 +#define XK_Arabic_hamzaonyeh 0x5c6 +#define XK_Arabic_alef 0x5c7 +#define XK_Arabic_beh 0x5c8 +#define XK_Arabic_tehmarbuta 0x5c9 +#define XK_Arabic_teh 0x5ca +#define XK_Arabic_theh 0x5cb +#define XK_Arabic_jeem 0x5cc +#define XK_Arabic_hah 0x5cd +#define XK_Arabic_khah 0x5ce +#define XK_Arabic_dal 0x5cf +#define XK_Arabic_thal 0x5d0 +#define XK_Arabic_ra 0x5d1 +#define XK_Arabic_zain 0x5d2 +#define XK_Arabic_seen 0x5d3 +#define XK_Arabic_sheen 0x5d4 +#define XK_Arabic_sad 0x5d5 +#define XK_Arabic_dad 0x5d6 +#define XK_Arabic_tah 0x5d7 +#define XK_Arabic_zah 0x5d8 +#define XK_Arabic_ain 0x5d9 +#define XK_Arabic_ghain 0x5da +#define XK_Arabic_tatweel 0x5e0 +#define XK_Arabic_feh 0x5e1 +#define XK_Arabic_qaf 0x5e2 +#define XK_Arabic_kaf 0x5e3 +#define XK_Arabic_lam 0x5e4 +#define XK_Arabic_meem 0x5e5 +#define XK_Arabic_noon 0x5e6 +#define XK_Arabic_ha 0x5e7 +#define XK_Arabic_heh 0x5e7 /* deprecated */ +#define XK_Arabic_waw 0x5e8 +#define XK_Arabic_alefmaksura 0x5e9 +#define XK_Arabic_yeh 0x5ea +#define XK_Arabic_fathatan 0x5eb +#define XK_Arabic_dammatan 0x5ec +#define XK_Arabic_kasratan 0x5ed +#define XK_Arabic_fatha 0x5ee +#define XK_Arabic_damma 0x5ef +#define XK_Arabic_kasra 0x5f0 +#define XK_Arabic_shadda 0x5f1 +#define XK_Arabic_sukun 0x5f2 +#define XK_Arabic_switch 0xFF7E /* Alias for mode_switch */ +#endif /* XK_ARABIC */ + +/* + * Cyrillic + * Byte 3 = 6 + */ +#ifdef XK_CYRILLIC +#define XK_Serbian_dje 0x6a1 +#define XK_Macedonia_gje 0x6a2 +#define XK_Cyrillic_io 0x6a3 +#define XK_Ukrainian_ie 0x6a4 +#define XK_Ukranian_je 0x6a4 /* deprecated */ +#define XK_Macedonia_dse 0x6a5 +#define XK_Ukrainian_i 0x6a6 +#define XK_Ukranian_i 0x6a6 /* deprecated */ +#define XK_Ukrainian_yi 0x6a7 +#define XK_Ukranian_yi 0x6a7 /* deprecated */ +#define XK_Cyrillic_je 0x6a8 +#define XK_Serbian_je 0x6a8 /* deprecated */ +#define XK_Cyrillic_lje 0x6a9 +#define XK_Serbian_lje 0x6a9 /* deprecated */ +#define XK_Cyrillic_nje 0x6aa +#define XK_Serbian_nje 0x6aa /* deprecated */ +#define XK_Serbian_tshe 0x6ab +#define XK_Macedonia_kje 0x6ac +#define XK_Byelorussian_shortu 0x6ae +#define XK_Cyrillic_dzhe 0x6af +#define XK_Serbian_dze 0x6af /* deprecated */ +#define XK_numerosign 0x6b0 +#define XK_Serbian_DJE 0x6b1 +#define XK_Macedonia_GJE 0x6b2 +#define XK_Cyrillic_IO 0x6b3 +#define XK_Ukrainian_IE 0x6b4 +#define XK_Ukranian_JE 0x6b4 /* deprecated */ +#define XK_Macedonia_DSE 0x6b5 +#define XK_Ukrainian_I 0x6b6 +#define XK_Ukranian_I 0x6b6 /* deprecated */ +#define XK_Ukrainian_YI 0x6b7 +#define XK_Ukranian_YI 0x6b7 /* deprecated */ +#define XK_Cyrillic_JE 0x6b8 +#define XK_Serbian_JE 0x6b8 /* deprecated */ +#define XK_Cyrillic_LJE 0x6b9 +#define XK_Serbian_LJE 0x6b9 /* deprecated */ +#define XK_Cyrillic_NJE 0x6ba +#define XK_Serbian_NJE 0x6ba /* deprecated */ +#define XK_Serbian_TSHE 0x6bb +#define XK_Macedonia_KJE 0x6bc +#define XK_Byelorussian_SHORTU 0x6be +#define XK_Cyrillic_DZHE 0x6bf +#define XK_Serbian_DZE 0x6bf /* deprecated */ +#define XK_Cyrillic_yu 0x6c0 +#define XK_Cyrillic_a 0x6c1 +#define XK_Cyrillic_be 0x6c2 +#define XK_Cyrillic_tse 0x6c3 +#define XK_Cyrillic_de 0x6c4 +#define XK_Cyrillic_ie 0x6c5 +#define XK_Cyrillic_ef 0x6c6 +#define XK_Cyrillic_ghe 0x6c7 +#define XK_Cyrillic_ha 0x6c8 +#define XK_Cyrillic_i 0x6c9 +#define XK_Cyrillic_shorti 0x6ca +#define XK_Cyrillic_ka 0x6cb +#define XK_Cyrillic_el 0x6cc +#define XK_Cyrillic_em 0x6cd +#define XK_Cyrillic_en 0x6ce +#define XK_Cyrillic_o 0x6cf +#define XK_Cyrillic_pe 0x6d0 +#define XK_Cyrillic_ya 0x6d1 +#define XK_Cyrillic_er 0x6d2 +#define XK_Cyrillic_es 0x6d3 +#define XK_Cyrillic_te 0x6d4 +#define XK_Cyrillic_u 0x6d5 +#define XK_Cyrillic_zhe 0x6d6 +#define XK_Cyrillic_ve 0x6d7 +#define XK_Cyrillic_softsign 0x6d8 +#define XK_Cyrillic_yeru 0x6d9 +#define XK_Cyrillic_ze 0x6da +#define XK_Cyrillic_sha 0x6db +#define XK_Cyrillic_e 0x6dc +#define XK_Cyrillic_shcha 0x6dd +#define XK_Cyrillic_che 0x6de +#define XK_Cyrillic_hardsign 0x6df +#define XK_Cyrillic_YU 0x6e0 +#define XK_Cyrillic_A 0x6e1 +#define XK_Cyrillic_BE 0x6e2 +#define XK_Cyrillic_TSE 0x6e3 +#define XK_Cyrillic_DE 0x6e4 +#define XK_Cyrillic_IE 0x6e5 +#define XK_Cyrillic_EF 0x6e6 +#define XK_Cyrillic_GHE 0x6e7 +#define XK_Cyrillic_HA 0x6e8 +#define XK_Cyrillic_I 0x6e9 +#define XK_Cyrillic_SHORTI 0x6ea +#define XK_Cyrillic_KA 0x6eb +#define XK_Cyrillic_EL 0x6ec +#define XK_Cyrillic_EM 0x6ed +#define XK_Cyrillic_EN 0x6ee +#define XK_Cyrillic_O 0x6ef +#define XK_Cyrillic_PE 0x6f0 +#define XK_Cyrillic_YA 0x6f1 +#define XK_Cyrillic_ER 0x6f2 +#define XK_Cyrillic_ES 0x6f3 +#define XK_Cyrillic_TE 0x6f4 +#define XK_Cyrillic_U 0x6f5 +#define XK_Cyrillic_ZHE 0x6f6 +#define XK_Cyrillic_VE 0x6f7 +#define XK_Cyrillic_SOFTSIGN 0x6f8 +#define XK_Cyrillic_YERU 0x6f9 +#define XK_Cyrillic_ZE 0x6fa +#define XK_Cyrillic_SHA 0x6fb +#define XK_Cyrillic_E 0x6fc +#define XK_Cyrillic_SHCHA 0x6fd +#define XK_Cyrillic_CHE 0x6fe +#define XK_Cyrillic_HARDSIGN 0x6ff +#endif /* XK_CYRILLIC */ + +/* + * Greek + * Byte 3 = 7 + */ + +#ifdef XK_GREEK +#define XK_Greek_ALPHAaccent 0x7a1 +#define XK_Greek_EPSILONaccent 0x7a2 +#define XK_Greek_ETAaccent 0x7a3 +#define XK_Greek_IOTAaccent 0x7a4 +#define XK_Greek_IOTAdiaeresis 0x7a5 +#define XK_Greek_OMICRONaccent 0x7a7 +#define XK_Greek_UPSILONaccent 0x7a8 +#define XK_Greek_UPSILONdieresis 0x7a9 +#define XK_Greek_OMEGAaccent 0x7ab +#define XK_Greek_accentdieresis 0x7ae +#define XK_Greek_horizbar 0x7af +#define XK_Greek_alphaaccent 0x7b1 +#define XK_Greek_epsilonaccent 0x7b2 +#define XK_Greek_etaaccent 0x7b3 +#define XK_Greek_iotaaccent 0x7b4 +#define XK_Greek_iotadieresis 0x7b5 +#define XK_Greek_iotaaccentdieresis 0x7b6 +#define XK_Greek_omicronaccent 0x7b7 +#define XK_Greek_upsilonaccent 0x7b8 +#define XK_Greek_upsilondieresis 0x7b9 +#define XK_Greek_upsilonaccentdieresis 0x7ba +#define XK_Greek_omegaaccent 0x7bb +#define XK_Greek_ALPHA 0x7c1 +#define XK_Greek_BETA 0x7c2 +#define XK_Greek_GAMMA 0x7c3 +#define XK_Greek_DELTA 0x7c4 +#define XK_Greek_EPSILON 0x7c5 +#define XK_Greek_ZETA 0x7c6 +#define XK_Greek_ETA 0x7c7 +#define XK_Greek_THETA 0x7c8 +#define XK_Greek_IOTA 0x7c9 +#define XK_Greek_KAPPA 0x7ca +#define XK_Greek_LAMDA 0x7cb +#define XK_Greek_LAMBDA 0x7cb +#define XK_Greek_MU 0x7cc +#define XK_Greek_NU 0x7cd +#define XK_Greek_XI 0x7ce +#define XK_Greek_OMICRON 0x7cf +#define XK_Greek_PI 0x7d0 +#define XK_Greek_RHO 0x7d1 +#define XK_Greek_SIGMA 0x7d2 +#define XK_Greek_TAU 0x7d4 +#define XK_Greek_UPSILON 0x7d5 +#define XK_Greek_PHI 0x7d6 +#define XK_Greek_CHI 0x7d7 +#define XK_Greek_PSI 0x7d8 +#define XK_Greek_OMEGA 0x7d9 +#define XK_Greek_alpha 0x7e1 +#define XK_Greek_beta 0x7e2 +#define XK_Greek_gamma 0x7e3 +#define XK_Greek_delta 0x7e4 +#define XK_Greek_epsilon 0x7e5 +#define XK_Greek_zeta 0x7e6 +#define XK_Greek_eta 0x7e7 +#define XK_Greek_theta 0x7e8 +#define XK_Greek_iota 0x7e9 +#define XK_Greek_kappa 0x7ea +#define XK_Greek_lamda 0x7eb +#define XK_Greek_lambda 0x7eb +#define XK_Greek_mu 0x7ec +#define XK_Greek_nu 0x7ed +#define XK_Greek_xi 0x7ee +#define XK_Greek_omicron 0x7ef +#define XK_Greek_pi 0x7f0 +#define XK_Greek_rho 0x7f1 +#define XK_Greek_sigma 0x7f2 +#define XK_Greek_finalsmallsigma 0x7f3 +#define XK_Greek_tau 0x7f4 +#define XK_Greek_upsilon 0x7f5 +#define XK_Greek_phi 0x7f6 +#define XK_Greek_chi 0x7f7 +#define XK_Greek_psi 0x7f8 +#define XK_Greek_omega 0x7f9 +#define XK_Greek_switch 0xFF7E /* Alias for mode_switch */ +#endif /* XK_GREEK */ + +/* + * Technical + * Byte 3 = 8 + */ + +#ifdef XK_TECHNICAL +#define XK_leftradical 0x8a1 +#define XK_topleftradical 0x8a2 +#define XK_horizconnector 0x8a3 +#define XK_topintegral 0x8a4 +#define XK_botintegral 0x8a5 +#define XK_vertconnector 0x8a6 +#define XK_topleftsqbracket 0x8a7 +#define XK_botleftsqbracket 0x8a8 +#define XK_toprightsqbracket 0x8a9 +#define XK_botrightsqbracket 0x8aa +#define XK_topleftparens 0x8ab +#define XK_botleftparens 0x8ac +#define XK_toprightparens 0x8ad +#define XK_botrightparens 0x8ae +#define XK_leftmiddlecurlybrace 0x8af +#define XK_rightmiddlecurlybrace 0x8b0 +#define XK_topleftsummation 0x8b1 +#define XK_botleftsummation 0x8b2 +#define XK_topvertsummationconnector 0x8b3 +#define XK_botvertsummationconnector 0x8b4 +#define XK_toprightsummation 0x8b5 +#define XK_botrightsummation 0x8b6 +#define XK_rightmiddlesummation 0x8b7 +#define XK_lessthanequal 0x8bc +#define XK_notequal 0x8bd +#define XK_greaterthanequal 0x8be +#define XK_integral 0x8bf +#define XK_therefore 0x8c0 +#define XK_variation 0x8c1 +#define XK_infinity 0x8c2 +#define XK_nabla 0x8c5 +#define XK_approximate 0x8c8 +#define XK_similarequal 0x8c9 +#define XK_ifonlyif 0x8cd +#define XK_implies 0x8ce +#define XK_identical 0x8cf +#define XK_radical 0x8d6 +#define XK_includedin 0x8da +#define XK_includes 0x8db +#define XK_intersection 0x8dc +#define XK_union 0x8dd +#define XK_logicaland 0x8de +#define XK_logicalor 0x8df +#define XK_partialderivative 0x8ef +#define XK_function 0x8f6 +#define XK_leftarrow 0x8fb +#define XK_uparrow 0x8fc +#define XK_rightarrow 0x8fd +#define XK_downarrow 0x8fe +#endif /* XK_TECHNICAL */ + +/* + * Special + * Byte 3 = 9 + */ + +#ifdef XK_SPECIAL +#define XK_blank 0x9df +#define XK_soliddiamond 0x9e0 +#define XK_checkerboard 0x9e1 +#define XK_ht 0x9e2 +#define XK_ff 0x9e3 +#define XK_cr 0x9e4 +#define XK_lf 0x9e5 +#define XK_nl 0x9e8 +#define XK_vt 0x9e9 +#define XK_lowrightcorner 0x9ea +#define XK_uprightcorner 0x9eb +#define XK_upleftcorner 0x9ec +#define XK_lowleftcorner 0x9ed +#define XK_crossinglines 0x9ee +#define XK_horizlinescan1 0x9ef +#define XK_horizlinescan3 0x9f0 +#define XK_horizlinescan5 0x9f1 +#define XK_horizlinescan7 0x9f2 +#define XK_horizlinescan9 0x9f3 +#define XK_leftt 0x9f4 +#define XK_rightt 0x9f5 +#define XK_bott 0x9f6 +#define XK_topt 0x9f7 +#define XK_vertbar 0x9f8 +#endif /* XK_SPECIAL */ + +/* + * Publishing + * Byte 3 = a + */ + +#ifdef XK_PUBLISHING +#define XK_emspace 0xaa1 +#define XK_enspace 0xaa2 +#define XK_em3space 0xaa3 +#define XK_em4space 0xaa4 +#define XK_digitspace 0xaa5 +#define XK_punctspace 0xaa6 +#define XK_thinspace 0xaa7 +#define XK_hairspace 0xaa8 +#define XK_emdash 0xaa9 +#define XK_endash 0xaaa +#define XK_signifblank 0xaac +#define XK_ellipsis 0xaae +#define XK_doubbaselinedot 0xaaf +#define XK_onethird 0xab0 +#define XK_twothirds 0xab1 +#define XK_onefifth 0xab2 +#define XK_twofifths 0xab3 +#define XK_threefifths 0xab4 +#define XK_fourfifths 0xab5 +#define XK_onesixth 0xab6 +#define XK_fivesixths 0xab7 +#define XK_careof 0xab8 +#define XK_figdash 0xabb +#define XK_leftanglebracket 0xabc +#define XK_decimalpoint 0xabd +#define XK_rightanglebracket 0xabe +#define XK_marker 0xabf +#define XK_oneeighth 0xac3 +#define XK_threeeighths 0xac4 +#define XK_fiveeighths 0xac5 +#define XK_seveneighths 0xac6 +#define XK_trademark 0xac9 +#define XK_signaturemark 0xaca +#define XK_trademarkincircle 0xacb +#define XK_leftopentriangle 0xacc +#define XK_rightopentriangle 0xacd +#define XK_emopencircle 0xace +#define XK_emopenrectangle 0xacf +#define XK_leftsinglequotemark 0xad0 +#define XK_rightsinglequotemark 0xad1 +#define XK_leftdoublequotemark 0xad2 +#define XK_rightdoublequotemark 0xad3 +#define XK_prescription 0xad4 +#define XK_minutes 0xad6 +#define XK_seconds 0xad7 +#define XK_latincross 0xad9 +#define XK_hexagram 0xada +#define XK_filledrectbullet 0xadb +#define XK_filledlefttribullet 0xadc +#define XK_filledrighttribullet 0xadd +#define XK_emfilledcircle 0xade +#define XK_emfilledrect 0xadf +#define XK_enopencircbullet 0xae0 +#define XK_enopensquarebullet 0xae1 +#define XK_openrectbullet 0xae2 +#define XK_opentribulletup 0xae3 +#define XK_opentribulletdown 0xae4 +#define XK_openstar 0xae5 +#define XK_enfilledcircbullet 0xae6 +#define XK_enfilledsqbullet 0xae7 +#define XK_filledtribulletup 0xae8 +#define XK_filledtribulletdown 0xae9 +#define XK_leftpointer 0xaea +#define XK_rightpointer 0xaeb +#define XK_club 0xaec +#define XK_diamond 0xaed +#define XK_heart 0xaee +#define XK_maltesecross 0xaf0 +#define XK_dagger 0xaf1 +#define XK_doubledagger 0xaf2 +#define XK_checkmark 0xaf3 +#define XK_ballotcross 0xaf4 +#define XK_musicalsharp 0xaf5 +#define XK_musicalflat 0xaf6 +#define XK_malesymbol 0xaf7 +#define XK_femalesymbol 0xaf8 +#define XK_telephone 0xaf9 +#define XK_telephonerecorder 0xafa +#define XK_phonographcopyright 0xafb +#define XK_caret 0xafc +#define XK_singlelowquotemark 0xafd +#define XK_doublelowquotemark 0xafe +#define XK_cursor 0xaff +#endif /* XK_PUBLISHING */ + +/* + * APL + * Byte 3 = b + */ + +#ifdef XK_APL +#define XK_leftcaret 0xba3 +#define XK_rightcaret 0xba6 +#define XK_downcaret 0xba8 +#define XK_upcaret 0xba9 +#define XK_overbar 0xbc0 +#define XK_downtack 0xbc2 +#define XK_upshoe 0xbc3 +#define XK_downstile 0xbc4 +#define XK_underbar 0xbc6 +#define XK_jot 0xbca +#define XK_quad 0xbcc +#define XK_uptack 0xbce +#define XK_circle 0xbcf +#define XK_upstile 0xbd3 +#define XK_downshoe 0xbd6 +#define XK_rightshoe 0xbd8 +#define XK_leftshoe 0xbda +#define XK_lefttack 0xbdc +#define XK_righttack 0xbfc +#endif /* XK_APL */ + +/* + * Hebrew + * Byte 3 = c + */ + +#ifdef XK_HEBREW +#define XK_hebrew_doublelowline 0xcdf +#define XK_hebrew_aleph 0xce0 +#define XK_hebrew_bet 0xce1 +#define XK_hebrew_beth 0xce1 /* deprecated */ +#define XK_hebrew_gimel 0xce2 +#define XK_hebrew_gimmel 0xce2 /* deprecated */ +#define XK_hebrew_dalet 0xce3 +#define XK_hebrew_daleth 0xce3 /* deprecated */ +#define XK_hebrew_he 0xce4 +#define XK_hebrew_waw 0xce5 +#define XK_hebrew_zain 0xce6 +#define XK_hebrew_zayin 0xce6 /* deprecated */ +#define XK_hebrew_chet 0xce7 +#define XK_hebrew_het 0xce7 /* deprecated */ +#define XK_hebrew_tet 0xce8 +#define XK_hebrew_teth 0xce8 /* deprecated */ +#define XK_hebrew_yod 0xce9 +#define XK_hebrew_finalkaph 0xcea +#define XK_hebrew_kaph 0xceb +#define XK_hebrew_lamed 0xcec +#define XK_hebrew_finalmem 0xced +#define XK_hebrew_mem 0xcee +#define XK_hebrew_finalnun 0xcef +#define XK_hebrew_nun 0xcf0 +#define XK_hebrew_samech 0xcf1 +#define XK_hebrew_samekh 0xcf1 /* deprecated */ +#define XK_hebrew_ayin 0xcf2 +#define XK_hebrew_finalpe 0xcf3 +#define XK_hebrew_pe 0xcf4 +#define XK_hebrew_finalzade 0xcf5 +#define XK_hebrew_finalzadi 0xcf5 /* deprecated */ +#define XK_hebrew_zade 0xcf6 +#define XK_hebrew_zadi 0xcf6 /* deprecated */ +#define XK_hebrew_qoph 0xcf7 +#define XK_hebrew_kuf 0xcf7 /* deprecated */ +#define XK_hebrew_resh 0xcf8 +#define XK_hebrew_shin 0xcf9 +#define XK_hebrew_taw 0xcfa +#define XK_hebrew_taf 0xcfa /* deprecated */ +#define XK_Hebrew_switch 0xFF7E /* Alias for mode_switch */ +#endif /* XK_HEBREW */ + diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/tkIntXlibDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/tkIntXlibDecls.h new file mode 100644 index 00000000..b9785613 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/X11/tkIntXlibDecls.h @@ -0,0 +1,2370 @@ +/* + * tkIntXlibDecls.h -- + * + * This file contains the declarations for all platform dependent + * unsupported functions that are exported by the Tk library. These + * interfaces are not guaranteed to remain the same between + * versions. Use at your own risk. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + */ + +#ifndef _TKINTXLIBDECLS +#define _TKINTXLIBDECLS + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tkInt.decls script. + */ + +#ifdef MAC_TCL +#include "Xutil.h" +#else +#include "X11/Xutil.h" +#endif + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +typedef int (*XAfterFunction) ( /* WARNING, this type not in Xlib spec */ + Display* /* display */ +); + +/* !BEGIN!: Do not edit below this line. */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * Exported function declarations: + */ + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ +#ifndef XSetDashes_TCL_DECLARED +#define XSetDashes_TCL_DECLARED +/* 0 */ +EXTERN int XSetDashes(Display *display, GC gc, int dash_offset, + _Xconst char *dash_list, int n); +#endif +#ifndef XGetModifierMapping_TCL_DECLARED +#define XGetModifierMapping_TCL_DECLARED +/* 1 */ +EXTERN XModifierKeymap * XGetModifierMapping(Display *d); +#endif +#ifndef XCreateImage_TCL_DECLARED +#define XCreateImage_TCL_DECLARED +/* 2 */ +EXTERN XImage * XCreateImage(Display *d, Visual *v, unsigned int ui1, + int i1, int i2, char *cp, unsigned int ui2, + unsigned int ui3, int i3, int i4); +#endif +#ifndef XGetImage_TCL_DECLARED +#define XGetImage_TCL_DECLARED +/* 3 */ +EXTERN XImage * XGetImage(Display *d, Drawable dr, int i1, int i2, + unsigned int ui1, unsigned int ui2, + unsigned long ul, int i3); +#endif +#ifndef XGetAtomName_TCL_DECLARED +#define XGetAtomName_TCL_DECLARED +/* 4 */ +EXTERN char * XGetAtomName(Display *d, Atom a); +#endif +#ifndef XKeysymToString_TCL_DECLARED +#define XKeysymToString_TCL_DECLARED +/* 5 */ +EXTERN char * XKeysymToString(KeySym k); +#endif +#ifndef XCreateColormap_TCL_DECLARED +#define XCreateColormap_TCL_DECLARED +/* 6 */ +EXTERN Colormap XCreateColormap(Display *d, Window w, Visual *v, + int i); +#endif +#ifndef XCreatePixmapCursor_TCL_DECLARED +#define XCreatePixmapCursor_TCL_DECLARED +/* 7 */ +EXTERN Cursor XCreatePixmapCursor(Display *d, Pixmap p1, Pixmap p2, + XColor *x1, XColor *x2, unsigned int ui1, + unsigned int ui2); +#endif +#ifndef XCreateGlyphCursor_TCL_DECLARED +#define XCreateGlyphCursor_TCL_DECLARED +/* 8 */ +EXTERN Cursor XCreateGlyphCursor(Display *d, Font f1, Font f2, + unsigned int ui1, unsigned int ui2, + XColor _Xconst *x1, XColor _Xconst *x2); +#endif +#ifndef XGContextFromGC_TCL_DECLARED +#define XGContextFromGC_TCL_DECLARED +/* 9 */ +EXTERN GContext XGContextFromGC(GC g); +#endif +#ifndef XListHosts_TCL_DECLARED +#define XListHosts_TCL_DECLARED +/* 10 */ +EXTERN XHostAddress * XListHosts(Display *d, int *i, Bool *b); +#endif +#ifndef XKeycodeToKeysym_TCL_DECLARED +#define XKeycodeToKeysym_TCL_DECLARED +/* 11 */ +EXTERN KeySym XKeycodeToKeysym(Display *d, unsigned int k, int i); +#endif +#ifndef XStringToKeysym_TCL_DECLARED +#define XStringToKeysym_TCL_DECLARED +/* 12 */ +EXTERN KeySym XStringToKeysym(_Xconst char *c); +#endif +#ifndef XRootWindow_TCL_DECLARED +#define XRootWindow_TCL_DECLARED +/* 13 */ +EXTERN Window XRootWindow(Display *d, int i); +#endif +#ifndef XSetErrorHandler_TCL_DECLARED +#define XSetErrorHandler_TCL_DECLARED +/* 14 */ +EXTERN XErrorHandler XSetErrorHandler(XErrorHandler x); +#endif +#ifndef XIconifyWindow_TCL_DECLARED +#define XIconifyWindow_TCL_DECLARED +/* 15 */ +EXTERN Status XIconifyWindow(Display *d, Window w, int i); +#endif +#ifndef XWithdrawWindow_TCL_DECLARED +#define XWithdrawWindow_TCL_DECLARED +/* 16 */ +EXTERN Status XWithdrawWindow(Display *d, Window w, int i); +#endif +#ifndef XGetWMColormapWindows_TCL_DECLARED +#define XGetWMColormapWindows_TCL_DECLARED +/* 17 */ +EXTERN Status XGetWMColormapWindows(Display *d, Window w, + Window **wpp, int *ip); +#endif +#ifndef XAllocColor_TCL_DECLARED +#define XAllocColor_TCL_DECLARED +/* 18 */ +EXTERN Status XAllocColor(Display *d, Colormap c, XColor *xp); +#endif +#ifndef XBell_TCL_DECLARED +#define XBell_TCL_DECLARED +/* 19 */ +EXTERN int XBell(Display *d, int i); +#endif +#ifndef XChangeProperty_TCL_DECLARED +#define XChangeProperty_TCL_DECLARED +/* 20 */ +EXTERN int XChangeProperty(Display *d, Window w, Atom a1, + Atom a2, int i1, int i2, + _Xconst unsigned char *c, int i3); +#endif +#ifndef XChangeWindowAttributes_TCL_DECLARED +#define XChangeWindowAttributes_TCL_DECLARED +/* 21 */ +EXTERN int XChangeWindowAttributes(Display *d, Window w, + unsigned long ul, XSetWindowAttributes *x); +#endif +#ifndef XClearWindow_TCL_DECLARED +#define XClearWindow_TCL_DECLARED +/* 22 */ +EXTERN int XClearWindow(Display *d, Window w); +#endif +#ifndef XConfigureWindow_TCL_DECLARED +#define XConfigureWindow_TCL_DECLARED +/* 23 */ +EXTERN int XConfigureWindow(Display *d, Window w, + unsigned int i, XWindowChanges *x); +#endif +#ifndef XCopyArea_TCL_DECLARED +#define XCopyArea_TCL_DECLARED +/* 24 */ +EXTERN int XCopyArea(Display *d, Drawable dr1, Drawable dr2, + GC g, int i1, int i2, unsigned int ui1, + unsigned int ui2, int i3, int i4); +#endif +#ifndef XCopyPlane_TCL_DECLARED +#define XCopyPlane_TCL_DECLARED +/* 25 */ +EXTERN int XCopyPlane(Display *d, Drawable dr1, Drawable dr2, + GC g, int i1, int i2, unsigned int ui1, + unsigned int ui2, int i3, int i4, + unsigned long ul); +#endif +#ifndef XCreateBitmapFromData_TCL_DECLARED +#define XCreateBitmapFromData_TCL_DECLARED +/* 26 */ +EXTERN Pixmap XCreateBitmapFromData(Display *display, Drawable d, + _Xconst char *data, unsigned int width, + unsigned int height); +#endif +#ifndef XDefineCursor_TCL_DECLARED +#define XDefineCursor_TCL_DECLARED +/* 27 */ +EXTERN int XDefineCursor(Display *d, Window w, Cursor c); +#endif +#ifndef XDeleteProperty_TCL_DECLARED +#define XDeleteProperty_TCL_DECLARED +/* 28 */ +EXTERN int XDeleteProperty(Display *d, Window w, Atom a); +#endif +#ifndef XDestroyWindow_TCL_DECLARED +#define XDestroyWindow_TCL_DECLARED +/* 29 */ +EXTERN int XDestroyWindow(Display *d, Window w); +#endif +#ifndef XDrawArc_TCL_DECLARED +#define XDrawArc_TCL_DECLARED +/* 30 */ +EXTERN int XDrawArc(Display *d, Drawable dr, GC g, int i1, + int i2, unsigned int ui1, unsigned int ui2, + int i3, int i4); +#endif +#ifndef XDrawLines_TCL_DECLARED +#define XDrawLines_TCL_DECLARED +/* 31 */ +EXTERN int XDrawLines(Display *d, Drawable dr, GC g, XPoint *x, + int i1, int i2); +#endif +#ifndef XDrawRectangle_TCL_DECLARED +#define XDrawRectangle_TCL_DECLARED +/* 32 */ +EXTERN int XDrawRectangle(Display *d, Drawable dr, GC g, int i1, + int i2, unsigned int ui1, unsigned int ui2); +#endif +#ifndef XFillArc_TCL_DECLARED +#define XFillArc_TCL_DECLARED +/* 33 */ +EXTERN int XFillArc(Display *d, Drawable dr, GC g, int i1, + int i2, unsigned int ui1, unsigned int ui2, + int i3, int i4); +#endif +#ifndef XFillPolygon_TCL_DECLARED +#define XFillPolygon_TCL_DECLARED +/* 34 */ +EXTERN int XFillPolygon(Display *d, Drawable dr, GC g, + XPoint *x, int i1, int i2, int i3); +#endif +#ifndef XFillRectangles_TCL_DECLARED +#define XFillRectangles_TCL_DECLARED +/* 35 */ +EXTERN int XFillRectangles(Display *d, Drawable dr, GC g, + XRectangle *x, int i); +#endif +#ifndef XForceScreenSaver_TCL_DECLARED +#define XForceScreenSaver_TCL_DECLARED +/* 36 */ +EXTERN int XForceScreenSaver(Display *d, int i); +#endif +#ifndef XFreeColormap_TCL_DECLARED +#define XFreeColormap_TCL_DECLARED +/* 37 */ +EXTERN int XFreeColormap(Display *d, Colormap c); +#endif +#ifndef XFreeColors_TCL_DECLARED +#define XFreeColors_TCL_DECLARED +/* 38 */ +EXTERN int XFreeColors(Display *d, Colormap c, + unsigned long *ulp, int i, unsigned long ul); +#endif +#ifndef XFreeCursor_TCL_DECLARED +#define XFreeCursor_TCL_DECLARED +/* 39 */ +EXTERN int XFreeCursor(Display *d, Cursor c); +#endif +#ifndef XFreeModifiermap_TCL_DECLARED +#define XFreeModifiermap_TCL_DECLARED +/* 40 */ +EXTERN int XFreeModifiermap(XModifierKeymap *x); +#endif +#ifndef XGetGeometry_TCL_DECLARED +#define XGetGeometry_TCL_DECLARED +/* 41 */ +EXTERN Status XGetGeometry(Display *d, Drawable dr, Window *w, + int *i1, int *i2, unsigned int *ui1, + unsigned int *ui2, unsigned int *ui3, + unsigned int *ui4); +#endif +#ifndef XGetInputFocus_TCL_DECLARED +#define XGetInputFocus_TCL_DECLARED +/* 42 */ +EXTERN int XGetInputFocus(Display *d, Window *w, int *i); +#endif +#ifndef XGetWindowProperty_TCL_DECLARED +#define XGetWindowProperty_TCL_DECLARED +/* 43 */ +EXTERN int XGetWindowProperty(Display *d, Window w, Atom a1, + long l1, long l2, Bool b, Atom a2, Atom *ap, + int *ip, unsigned long *ulp1, + unsigned long *ulp2, unsigned char **cpp); +#endif +#ifndef XGetWindowAttributes_TCL_DECLARED +#define XGetWindowAttributes_TCL_DECLARED +/* 44 */ +EXTERN Status XGetWindowAttributes(Display *d, Window w, + XWindowAttributes *x); +#endif +#ifndef XGrabKeyboard_TCL_DECLARED +#define XGrabKeyboard_TCL_DECLARED +/* 45 */ +EXTERN int XGrabKeyboard(Display *d, Window w, Bool b, int i1, + int i2, Time t); +#endif +#ifndef XGrabPointer_TCL_DECLARED +#define XGrabPointer_TCL_DECLARED +/* 46 */ +EXTERN int XGrabPointer(Display *d, Window w1, Bool b, + unsigned int ui, int i1, int i2, Window w2, + Cursor c, Time t); +#endif +#ifndef XKeysymToKeycode_TCL_DECLARED +#define XKeysymToKeycode_TCL_DECLARED +/* 47 */ +EXTERN KeyCode XKeysymToKeycode(Display *d, KeySym k); +#endif +#ifndef XLookupColor_TCL_DECLARED +#define XLookupColor_TCL_DECLARED +/* 48 */ +EXTERN Status XLookupColor(Display *d, Colormap c1, + _Xconst char *c2, XColor *x1, XColor *x2); +#endif +#ifndef XMapWindow_TCL_DECLARED +#define XMapWindow_TCL_DECLARED +/* 49 */ +EXTERN int XMapWindow(Display *d, Window w); +#endif +#ifndef XMoveResizeWindow_TCL_DECLARED +#define XMoveResizeWindow_TCL_DECLARED +/* 50 */ +EXTERN int XMoveResizeWindow(Display *d, Window w, int i1, + int i2, unsigned int ui1, unsigned int ui2); +#endif +#ifndef XMoveWindow_TCL_DECLARED +#define XMoveWindow_TCL_DECLARED +/* 51 */ +EXTERN int XMoveWindow(Display *d, Window w, int i1, int i2); +#endif +#ifndef XNextEvent_TCL_DECLARED +#define XNextEvent_TCL_DECLARED +/* 52 */ +EXTERN int XNextEvent(Display *d, XEvent *x); +#endif +#ifndef XPutBackEvent_TCL_DECLARED +#define XPutBackEvent_TCL_DECLARED +/* 53 */ +EXTERN int XPutBackEvent(Display *d, XEvent *x); +#endif +#ifndef XQueryColors_TCL_DECLARED +#define XQueryColors_TCL_DECLARED +/* 54 */ +EXTERN int XQueryColors(Display *d, Colormap c, XColor *x, + int i); +#endif +#ifndef XQueryPointer_TCL_DECLARED +#define XQueryPointer_TCL_DECLARED +/* 55 */ +EXTERN Bool XQueryPointer(Display *d, Window w1, Window *w2, + Window *w3, int *i1, int *i2, int *i3, + int *i4, unsigned int *ui); +#endif +#ifndef XQueryTree_TCL_DECLARED +#define XQueryTree_TCL_DECLARED +/* 56 */ +EXTERN Status XQueryTree(Display *d, Window w1, Window *w2, + Window *w3, Window **w4, unsigned int *ui); +#endif +#ifndef XRaiseWindow_TCL_DECLARED +#define XRaiseWindow_TCL_DECLARED +/* 57 */ +EXTERN int XRaiseWindow(Display *d, Window w); +#endif +#ifndef XRefreshKeyboardMapping_TCL_DECLARED +#define XRefreshKeyboardMapping_TCL_DECLARED +/* 58 */ +EXTERN int XRefreshKeyboardMapping(XMappingEvent *x); +#endif +#ifndef XResizeWindow_TCL_DECLARED +#define XResizeWindow_TCL_DECLARED +/* 59 */ +EXTERN int XResizeWindow(Display *d, Window w, unsigned int ui1, + unsigned int ui2); +#endif +#ifndef XSelectInput_TCL_DECLARED +#define XSelectInput_TCL_DECLARED +/* 60 */ +EXTERN int XSelectInput(Display *d, Window w, long l); +#endif +#ifndef XSendEvent_TCL_DECLARED +#define XSendEvent_TCL_DECLARED +/* 61 */ +EXTERN Status XSendEvent(Display *d, Window w, Bool b, long l, + XEvent *x); +#endif +#ifndef XSetCommand_TCL_DECLARED +#define XSetCommand_TCL_DECLARED +/* 62 */ +EXTERN int XSetCommand(Display *d, Window w, char **c, int i); +#endif +#ifndef XSetIconName_TCL_DECLARED +#define XSetIconName_TCL_DECLARED +/* 63 */ +EXTERN int XSetIconName(Display *d, Window w, _Xconst char *c); +#endif +#ifndef XSetInputFocus_TCL_DECLARED +#define XSetInputFocus_TCL_DECLARED +/* 64 */ +EXTERN int XSetInputFocus(Display *d, Window w, int i, Time t); +#endif +#ifndef XSetSelectionOwner_TCL_DECLARED +#define XSetSelectionOwner_TCL_DECLARED +/* 65 */ +EXTERN int XSetSelectionOwner(Display *d, Atom a, Window w, + Time t); +#endif +#ifndef XSetWindowBackground_TCL_DECLARED +#define XSetWindowBackground_TCL_DECLARED +/* 66 */ +EXTERN int XSetWindowBackground(Display *d, Window w, + unsigned long ul); +#endif +#ifndef XSetWindowBackgroundPixmap_TCL_DECLARED +#define XSetWindowBackgroundPixmap_TCL_DECLARED +/* 67 */ +EXTERN int XSetWindowBackgroundPixmap(Display *d, Window w, + Pixmap p); +#endif +#ifndef XSetWindowBorder_TCL_DECLARED +#define XSetWindowBorder_TCL_DECLARED +/* 68 */ +EXTERN int XSetWindowBorder(Display *d, Window w, + unsigned long ul); +#endif +#ifndef XSetWindowBorderPixmap_TCL_DECLARED +#define XSetWindowBorderPixmap_TCL_DECLARED +/* 69 */ +EXTERN int XSetWindowBorderPixmap(Display *d, Window w, + Pixmap p); +#endif +#ifndef XSetWindowBorderWidth_TCL_DECLARED +#define XSetWindowBorderWidth_TCL_DECLARED +/* 70 */ +EXTERN int XSetWindowBorderWidth(Display *d, Window w, + unsigned int ui); +#endif +#ifndef XSetWindowColormap_TCL_DECLARED +#define XSetWindowColormap_TCL_DECLARED +/* 71 */ +EXTERN int XSetWindowColormap(Display *d, Window w, Colormap c); +#endif +#ifndef XTranslateCoordinates_TCL_DECLARED +#define XTranslateCoordinates_TCL_DECLARED +/* 72 */ +EXTERN Bool XTranslateCoordinates(Display *d, Window w1, + Window w2, int i1, int i2, int *i3, int *i4, + Window *w3); +#endif +#ifndef XUngrabKeyboard_TCL_DECLARED +#define XUngrabKeyboard_TCL_DECLARED +/* 73 */ +EXTERN int XUngrabKeyboard(Display *d, Time t); +#endif +#ifndef XUngrabPointer_TCL_DECLARED +#define XUngrabPointer_TCL_DECLARED +/* 74 */ +EXTERN int XUngrabPointer(Display *d, Time t); +#endif +#ifndef XUnmapWindow_TCL_DECLARED +#define XUnmapWindow_TCL_DECLARED +/* 75 */ +EXTERN int XUnmapWindow(Display *d, Window w); +#endif +#ifndef XWindowEvent_TCL_DECLARED +#define XWindowEvent_TCL_DECLARED +/* 76 */ +EXTERN int XWindowEvent(Display *d, Window w, long l, XEvent *x); +#endif +#ifndef XDestroyIC_TCL_DECLARED +#define XDestroyIC_TCL_DECLARED +/* 77 */ +EXTERN void XDestroyIC(XIC x); +#endif +#ifndef XFilterEvent_TCL_DECLARED +#define XFilterEvent_TCL_DECLARED +/* 78 */ +EXTERN Bool XFilterEvent(XEvent *x, Window w); +#endif +#ifndef XmbLookupString_TCL_DECLARED +#define XmbLookupString_TCL_DECLARED +/* 79 */ +EXTERN int XmbLookupString(XIC xi, XKeyPressedEvent *xk, + char *c, int i, KeySym *k, Status *s); +#endif +#ifndef TkPutImage_TCL_DECLARED +#define TkPutImage_TCL_DECLARED +/* 80 */ +EXTERN int TkPutImage(unsigned long *colors, int ncolors, + Display *display, Drawable d, GC gc, + XImage *image, int src_x, int src_y, + int dest_x, int dest_y, unsigned int width, + unsigned int height); +#endif +/* Slot 81 is reserved */ +#ifndef XParseColor_TCL_DECLARED +#define XParseColor_TCL_DECLARED +/* 82 */ +EXTERN Status XParseColor(Display *display, Colormap map, + _Xconst char *spec, XColor *colorPtr); +#endif +#ifndef XCreateGC_TCL_DECLARED +#define XCreateGC_TCL_DECLARED +/* 83 */ +EXTERN GC XCreateGC(Display *display, Drawable d, + unsigned long valuemask, XGCValues *values); +#endif +#ifndef XFreeGC_TCL_DECLARED +#define XFreeGC_TCL_DECLARED +/* 84 */ +EXTERN int XFreeGC(Display *display, GC gc); +#endif +#ifndef XInternAtom_TCL_DECLARED +#define XInternAtom_TCL_DECLARED +/* 85 */ +EXTERN Atom XInternAtom(Display *display, + _Xconst char *atom_name, Bool only_if_exists); +#endif +#ifndef XSetBackground_TCL_DECLARED +#define XSetBackground_TCL_DECLARED +/* 86 */ +EXTERN int XSetBackground(Display *display, GC gc, + unsigned long foreground); +#endif +#ifndef XSetForeground_TCL_DECLARED +#define XSetForeground_TCL_DECLARED +/* 87 */ +EXTERN int XSetForeground(Display *display, GC gc, + unsigned long foreground); +#endif +#ifndef XSetClipMask_TCL_DECLARED +#define XSetClipMask_TCL_DECLARED +/* 88 */ +EXTERN int XSetClipMask(Display *display, GC gc, Pixmap pixmap); +#endif +#ifndef XSetClipOrigin_TCL_DECLARED +#define XSetClipOrigin_TCL_DECLARED +/* 89 */ +EXTERN int XSetClipOrigin(Display *display, GC gc, + int clip_x_origin, int clip_y_origin); +#endif +#ifndef XSetTSOrigin_TCL_DECLARED +#define XSetTSOrigin_TCL_DECLARED +/* 90 */ +EXTERN int XSetTSOrigin(Display *display, GC gc, + int ts_x_origin, int ts_y_origin); +#endif +#ifndef XChangeGC_TCL_DECLARED +#define XChangeGC_TCL_DECLARED +/* 91 */ +EXTERN int XChangeGC(Display *d, GC gc, unsigned long mask, + XGCValues *values); +#endif +#ifndef XSetFont_TCL_DECLARED +#define XSetFont_TCL_DECLARED +/* 92 */ +EXTERN int XSetFont(Display *display, GC gc, Font font); +#endif +#ifndef XSetArcMode_TCL_DECLARED +#define XSetArcMode_TCL_DECLARED +/* 93 */ +EXTERN int XSetArcMode(Display *display, GC gc, int arc_mode); +#endif +#ifndef XSetStipple_TCL_DECLARED +#define XSetStipple_TCL_DECLARED +/* 94 */ +EXTERN int XSetStipple(Display *display, GC gc, Pixmap stipple); +#endif +#ifndef XSetFillRule_TCL_DECLARED +#define XSetFillRule_TCL_DECLARED +/* 95 */ +EXTERN int XSetFillRule(Display *display, GC gc, int fill_rule); +#endif +#ifndef XSetFillStyle_TCL_DECLARED +#define XSetFillStyle_TCL_DECLARED +/* 96 */ +EXTERN int XSetFillStyle(Display *display, GC gc, + int fill_style); +#endif +#ifndef XSetFunction_TCL_DECLARED +#define XSetFunction_TCL_DECLARED +/* 97 */ +EXTERN int XSetFunction(Display *display, GC gc, int function); +#endif +#ifndef XSetLineAttributes_TCL_DECLARED +#define XSetLineAttributes_TCL_DECLARED +/* 98 */ +EXTERN int XSetLineAttributes(Display *display, GC gc, + unsigned int line_width, int line_style, + int cap_style, int join_style); +#endif +#ifndef _XInitImageFuncPtrs_TCL_DECLARED +#define _XInitImageFuncPtrs_TCL_DECLARED +/* 99 */ +EXTERN int _XInitImageFuncPtrs(XImage *image); +#endif +#ifndef XCreateIC_TCL_DECLARED +#define XCreateIC_TCL_DECLARED +/* 100 */ +EXTERN XIC XCreateIC(XIM xim, ...); +#endif +#ifndef XGetVisualInfo_TCL_DECLARED +#define XGetVisualInfo_TCL_DECLARED +/* 101 */ +EXTERN XVisualInfo * XGetVisualInfo(Display *display, long vinfo_mask, + XVisualInfo *vinfo_template, + int *nitems_return); +#endif +#ifndef XSetWMClientMachine_TCL_DECLARED +#define XSetWMClientMachine_TCL_DECLARED +/* 102 */ +EXTERN void XSetWMClientMachine(Display *display, Window w, + XTextProperty *text_prop); +#endif +#ifndef XStringListToTextProperty_TCL_DECLARED +#define XStringListToTextProperty_TCL_DECLARED +/* 103 */ +EXTERN Status XStringListToTextProperty(char **list, int count, + XTextProperty *text_prop_return); +#endif +#ifndef XDrawLine_TCL_DECLARED +#define XDrawLine_TCL_DECLARED +/* 104 */ +EXTERN int XDrawLine(Display *d, Drawable dr, GC g, int x1, + int y1, int x2, int y2); +#endif +#ifndef XWarpPointer_TCL_DECLARED +#define XWarpPointer_TCL_DECLARED +/* 105 */ +EXTERN int XWarpPointer(Display *d, Window s, Window dw, int sx, + int sy, unsigned int sw, unsigned int sh, + int dx, int dy); +#endif +#ifndef XFillRectangle_TCL_DECLARED +#define XFillRectangle_TCL_DECLARED +/* 106 */ +EXTERN int XFillRectangle(Display *display, Drawable d, GC gc, + int x, int y, unsigned int width, + unsigned int height); +#endif +#ifndef XFlush_TCL_DECLARED +#define XFlush_TCL_DECLARED +/* 107 */ +EXTERN int XFlush(Display *display); +#endif +#ifndef XGrabServer_TCL_DECLARED +#define XGrabServer_TCL_DECLARED +/* 108 */ +EXTERN int XGrabServer(Display *display); +#endif +#ifndef XUngrabServer_TCL_DECLARED +#define XUngrabServer_TCL_DECLARED +/* 109 */ +EXTERN int XUngrabServer(Display *display); +#endif +#ifndef XFree_TCL_DECLARED +#define XFree_TCL_DECLARED +/* 110 */ +EXTERN int XFree(VOID *data); +#endif +#ifndef XNoOp_TCL_DECLARED +#define XNoOp_TCL_DECLARED +/* 111 */ +EXTERN int XNoOp(Display *display); +#endif +#ifndef XSynchronize_TCL_DECLARED +#define XSynchronize_TCL_DECLARED +/* 112 */ +EXTERN XAfterFunction XSynchronize(Display *display, Bool onoff); +#endif +#ifndef XSync_TCL_DECLARED +#define XSync_TCL_DECLARED +/* 113 */ +EXTERN int XSync(Display *display, Bool discard); +#endif +#ifndef XVisualIDFromVisual_TCL_DECLARED +#define XVisualIDFromVisual_TCL_DECLARED +/* 114 */ +EXTERN VisualID XVisualIDFromVisual(Visual *visual); +#endif +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ +#ifndef XSetDashes_TCL_DECLARED +#define XSetDashes_TCL_DECLARED +/* 0 */ +EXTERN int XSetDashes(Display *display, GC gc, int dash_offset, + _Xconst char *dash_list, int n); +#endif +#ifndef XGetModifierMapping_TCL_DECLARED +#define XGetModifierMapping_TCL_DECLARED +/* 1 */ +EXTERN XModifierKeymap * XGetModifierMapping(Display *d); +#endif +#ifndef XCreateImage_TCL_DECLARED +#define XCreateImage_TCL_DECLARED +/* 2 */ +EXTERN XImage * XCreateImage(Display *d, Visual *v, unsigned int ui1, + int i1, int i2, char *cp, unsigned int ui2, + unsigned int ui3, int i3, int i4); +#endif +#ifndef XGetImage_TCL_DECLARED +#define XGetImage_TCL_DECLARED +/* 3 */ +EXTERN XImage * XGetImage(Display *d, Drawable dr, int i1, int i2, + unsigned int ui1, unsigned int ui2, + unsigned long ul, int i3); +#endif +#ifndef XGetAtomName_TCL_DECLARED +#define XGetAtomName_TCL_DECLARED +/* 4 */ +EXTERN char * XGetAtomName(Display *d, Atom a); +#endif +#ifndef XKeysymToString_TCL_DECLARED +#define XKeysymToString_TCL_DECLARED +/* 5 */ +EXTERN char * XKeysymToString(KeySym k); +#endif +#ifndef XCreateColormap_TCL_DECLARED +#define XCreateColormap_TCL_DECLARED +/* 6 */ +EXTERN Colormap XCreateColormap(Display *d, Window w, Visual *v, + int i); +#endif +#ifndef XGContextFromGC_TCL_DECLARED +#define XGContextFromGC_TCL_DECLARED +/* 7 */ +EXTERN GContext XGContextFromGC(GC g); +#endif +#ifndef XKeycodeToKeysym_TCL_DECLARED +#define XKeycodeToKeysym_TCL_DECLARED +/* 8 */ +EXTERN KeySym XKeycodeToKeysym(Display *d, KeyCode k, int i); +#endif +#ifndef XStringToKeysym_TCL_DECLARED +#define XStringToKeysym_TCL_DECLARED +/* 9 */ +EXTERN KeySym XStringToKeysym(_Xconst char *c); +#endif +#ifndef XRootWindow_TCL_DECLARED +#define XRootWindow_TCL_DECLARED +/* 10 */ +EXTERN Window XRootWindow(Display *d, int i); +#endif +#ifndef XSetErrorHandler_TCL_DECLARED +#define XSetErrorHandler_TCL_DECLARED +/* 11 */ +EXTERN XErrorHandler XSetErrorHandler(XErrorHandler x); +#endif +#ifndef XAllocColor_TCL_DECLARED +#define XAllocColor_TCL_DECLARED +/* 12 */ +EXTERN Status XAllocColor(Display *d, Colormap c, XColor *xp); +#endif +#ifndef XBell_TCL_DECLARED +#define XBell_TCL_DECLARED +/* 13 */ +EXTERN int XBell(Display *d, int i); +#endif +#ifndef XChangeProperty_TCL_DECLARED +#define XChangeProperty_TCL_DECLARED +/* 14 */ +EXTERN void XChangeProperty(Display *d, Window w, Atom a1, + Atom a2, int i1, int i2, + _Xconst unsigned char *c, int i3); +#endif +#ifndef XChangeWindowAttributes_TCL_DECLARED +#define XChangeWindowAttributes_TCL_DECLARED +/* 15 */ +EXTERN void XChangeWindowAttributes(Display *d, Window w, + unsigned long ul, XSetWindowAttributes *x); +#endif +#ifndef XConfigureWindow_TCL_DECLARED +#define XConfigureWindow_TCL_DECLARED +/* 16 */ +EXTERN void XConfigureWindow(Display *d, Window w, + unsigned int i, XWindowChanges *x); +#endif +#ifndef XCopyArea_TCL_DECLARED +#define XCopyArea_TCL_DECLARED +/* 17 */ +EXTERN void XCopyArea(Display *d, Drawable dr1, Drawable dr2, + GC g, int i1, int i2, unsigned int ui1, + unsigned int ui2, int i3, int i4); +#endif +#ifndef XCopyPlane_TCL_DECLARED +#define XCopyPlane_TCL_DECLARED +/* 18 */ +EXTERN void XCopyPlane(Display *d, Drawable dr1, Drawable dr2, + GC g, int i1, int i2, unsigned int ui1, + unsigned int ui2, int i3, int i4, + unsigned long ul); +#endif +#ifndef XCreateBitmapFromData_TCL_DECLARED +#define XCreateBitmapFromData_TCL_DECLARED +/* 19 */ +EXTERN Pixmap XCreateBitmapFromData(Display *display, Drawable d, + _Xconst char *data, unsigned int width, + unsigned int height); +#endif +#ifndef XDefineCursor_TCL_DECLARED +#define XDefineCursor_TCL_DECLARED +/* 20 */ +EXTERN int XDefineCursor(Display *d, Window w, Cursor c); +#endif +#ifndef XDestroyWindow_TCL_DECLARED +#define XDestroyWindow_TCL_DECLARED +/* 21 */ +EXTERN void XDestroyWindow(Display *d, Window w); +#endif +#ifndef XDrawArc_TCL_DECLARED +#define XDrawArc_TCL_DECLARED +/* 22 */ +EXTERN void XDrawArc(Display *d, Drawable dr, GC g, int i1, + int i2, unsigned int ui1, unsigned int ui2, + int i3, int i4); +#endif +#ifndef XDrawLines_TCL_DECLARED +#define XDrawLines_TCL_DECLARED +/* 23 */ +EXTERN int XDrawLines(Display *d, Drawable dr, GC g, XPoint *x, + int i1, int i2); +#endif +#ifndef XDrawRectangle_TCL_DECLARED +#define XDrawRectangle_TCL_DECLARED +/* 24 */ +EXTERN void XDrawRectangle(Display *d, Drawable dr, GC g, int i1, + int i2, unsigned int ui1, unsigned int ui2); +#endif +#ifndef XFillArc_TCL_DECLARED +#define XFillArc_TCL_DECLARED +/* 25 */ +EXTERN void XFillArc(Display *d, Drawable dr, GC g, int i1, + int i2, unsigned int ui1, unsigned int ui2, + int i3, int i4); +#endif +#ifndef XFillPolygon_TCL_DECLARED +#define XFillPolygon_TCL_DECLARED +/* 26 */ +EXTERN void XFillPolygon(Display *d, Drawable dr, GC g, + XPoint *x, int i1, int i2, int i3); +#endif +#ifndef XFillRectangles_TCL_DECLARED +#define XFillRectangles_TCL_DECLARED +/* 27 */ +EXTERN int XFillRectangles(Display *d, Drawable dr, GC g, + XRectangle *x, int i); +#endif +#ifndef XFreeColormap_TCL_DECLARED +#define XFreeColormap_TCL_DECLARED +/* 28 */ +EXTERN int XFreeColormap(Display *d, Colormap c); +#endif +#ifndef XFreeColors_TCL_DECLARED +#define XFreeColors_TCL_DECLARED +/* 29 */ +EXTERN int XFreeColors(Display *d, Colormap c, + unsigned long *ulp, int i, unsigned long ul); +#endif +#ifndef XFreeModifiermap_TCL_DECLARED +#define XFreeModifiermap_TCL_DECLARED +/* 30 */ +EXTERN int XFreeModifiermap(XModifierKeymap *x); +#endif +#ifndef XGetGeometry_TCL_DECLARED +#define XGetGeometry_TCL_DECLARED +/* 31 */ +EXTERN Status XGetGeometry(Display *d, Drawable dr, Window *w, + int *i1, int *i2, unsigned int *ui1, + unsigned int *ui2, unsigned int *ui3, + unsigned int *ui4); +#endif +#ifndef XGetWindowProperty_TCL_DECLARED +#define XGetWindowProperty_TCL_DECLARED +/* 32 */ +EXTERN int XGetWindowProperty(Display *d, Window w, Atom a1, + long l1, long l2, Bool b, Atom a2, Atom *ap, + int *ip, unsigned long *ulp1, + unsigned long *ulp2, unsigned char **cpp); +#endif +#ifndef XGrabKeyboard_TCL_DECLARED +#define XGrabKeyboard_TCL_DECLARED +/* 33 */ +EXTERN int XGrabKeyboard(Display *d, Window w, Bool b, int i1, + int i2, Time t); +#endif +#ifndef XGrabPointer_TCL_DECLARED +#define XGrabPointer_TCL_DECLARED +/* 34 */ +EXTERN int XGrabPointer(Display *d, Window w1, Bool b, + unsigned int ui, int i1, int i2, Window w2, + Cursor c, Time t); +#endif +#ifndef XKeysymToKeycode_TCL_DECLARED +#define XKeysymToKeycode_TCL_DECLARED +/* 35 */ +EXTERN KeyCode XKeysymToKeycode(Display *d, KeySym k); +#endif +#ifndef XMapWindow_TCL_DECLARED +#define XMapWindow_TCL_DECLARED +/* 36 */ +EXTERN void XMapWindow(Display *d, Window w); +#endif +#ifndef XMoveResizeWindow_TCL_DECLARED +#define XMoveResizeWindow_TCL_DECLARED +/* 37 */ +EXTERN void XMoveResizeWindow(Display *d, Window w, int i1, + int i2, unsigned int ui1, unsigned int ui2); +#endif +#ifndef XMoveWindow_TCL_DECLARED +#define XMoveWindow_TCL_DECLARED +/* 38 */ +EXTERN void XMoveWindow(Display *d, Window w, int i1, int i2); +#endif +#ifndef XQueryPointer_TCL_DECLARED +#define XQueryPointer_TCL_DECLARED +/* 39 */ +EXTERN Bool XQueryPointer(Display *d, Window w1, Window *w2, + Window *w3, int *i1, int *i2, int *i3, + int *i4, unsigned int *ui); +#endif +#ifndef XRaiseWindow_TCL_DECLARED +#define XRaiseWindow_TCL_DECLARED +/* 40 */ +EXTERN void XRaiseWindow(Display *d, Window w); +#endif +#ifndef XRefreshKeyboardMapping_TCL_DECLARED +#define XRefreshKeyboardMapping_TCL_DECLARED +/* 41 */ +EXTERN void XRefreshKeyboardMapping(XMappingEvent *x); +#endif +#ifndef XResizeWindow_TCL_DECLARED +#define XResizeWindow_TCL_DECLARED +/* 42 */ +EXTERN void XResizeWindow(Display *d, Window w, unsigned int ui1, + unsigned int ui2); +#endif +#ifndef XSelectInput_TCL_DECLARED +#define XSelectInput_TCL_DECLARED +/* 43 */ +EXTERN void XSelectInput(Display *d, Window w, long l); +#endif +#ifndef XSendEvent_TCL_DECLARED +#define XSendEvent_TCL_DECLARED +/* 44 */ +EXTERN Status XSendEvent(Display *d, Window w, Bool b, long l, + XEvent *x); +#endif +#ifndef XSetIconName_TCL_DECLARED +#define XSetIconName_TCL_DECLARED +/* 45 */ +EXTERN void XSetIconName(Display *d, Window w, _Xconst char *c); +#endif +#ifndef XSetInputFocus_TCL_DECLARED +#define XSetInputFocus_TCL_DECLARED +/* 46 */ +EXTERN void XSetInputFocus(Display *d, Window w, int i, Time t); +#endif +#ifndef XSetSelectionOwner_TCL_DECLARED +#define XSetSelectionOwner_TCL_DECLARED +/* 47 */ +EXTERN int XSetSelectionOwner(Display *d, Atom a, Window w, + Time t); +#endif +#ifndef XSetWindowBackground_TCL_DECLARED +#define XSetWindowBackground_TCL_DECLARED +/* 48 */ +EXTERN void XSetWindowBackground(Display *d, Window w, + unsigned long ul); +#endif +#ifndef XSetWindowBackgroundPixmap_TCL_DECLARED +#define XSetWindowBackgroundPixmap_TCL_DECLARED +/* 49 */ +EXTERN void XSetWindowBackgroundPixmap(Display *d, Window w, + Pixmap p); +#endif +#ifndef XSetWindowBorder_TCL_DECLARED +#define XSetWindowBorder_TCL_DECLARED +/* 50 */ +EXTERN void XSetWindowBorder(Display *d, Window w, + unsigned long ul); +#endif +#ifndef XSetWindowBorderPixmap_TCL_DECLARED +#define XSetWindowBorderPixmap_TCL_DECLARED +/* 51 */ +EXTERN void XSetWindowBorderPixmap(Display *d, Window w, + Pixmap p); +#endif +#ifndef XSetWindowBorderWidth_TCL_DECLARED +#define XSetWindowBorderWidth_TCL_DECLARED +/* 52 */ +EXTERN void XSetWindowBorderWidth(Display *d, Window w, + unsigned int ui); +#endif +#ifndef XSetWindowColormap_TCL_DECLARED +#define XSetWindowColormap_TCL_DECLARED +/* 53 */ +EXTERN void XSetWindowColormap(Display *d, Window w, Colormap c); +#endif +#ifndef XUngrabKeyboard_TCL_DECLARED +#define XUngrabKeyboard_TCL_DECLARED +/* 54 */ +EXTERN void XUngrabKeyboard(Display *d, Time t); +#endif +#ifndef XUngrabPointer_TCL_DECLARED +#define XUngrabPointer_TCL_DECLARED +/* 55 */ +EXTERN int XUngrabPointer(Display *d, Time t); +#endif +#ifndef XUnmapWindow_TCL_DECLARED +#define XUnmapWindow_TCL_DECLARED +/* 56 */ +EXTERN void XUnmapWindow(Display *d, Window w); +#endif +#ifndef TkPutImage_TCL_DECLARED +#define TkPutImage_TCL_DECLARED +/* 57 */ +EXTERN int TkPutImage(unsigned long *colors, int ncolors, + Display *display, Drawable d, GC gc, + XImage *image, int src_x, int src_y, + int dest_x, int dest_y, unsigned int width, + unsigned int height); +#endif +#ifndef XParseColor_TCL_DECLARED +#define XParseColor_TCL_DECLARED +/* 58 */ +EXTERN Status XParseColor(Display *display, Colormap map, + _Xconst char *spec, XColor *colorPtr); +#endif +#ifndef XCreateGC_TCL_DECLARED +#define XCreateGC_TCL_DECLARED +/* 59 */ +EXTERN GC XCreateGC(Display *display, Drawable d, + unsigned long valuemask, XGCValues *values); +#endif +#ifndef XFreeGC_TCL_DECLARED +#define XFreeGC_TCL_DECLARED +/* 60 */ +EXTERN int XFreeGC(Display *display, GC gc); +#endif +#ifndef XInternAtom_TCL_DECLARED +#define XInternAtom_TCL_DECLARED +/* 61 */ +EXTERN Atom XInternAtom(Display *display, + _Xconst char *atom_name, Bool only_if_exists); +#endif +#ifndef XSetBackground_TCL_DECLARED +#define XSetBackground_TCL_DECLARED +/* 62 */ +EXTERN int XSetBackground(Display *display, GC gc, + unsigned long foreground); +#endif +#ifndef XSetForeground_TCL_DECLARED +#define XSetForeground_TCL_DECLARED +/* 63 */ +EXTERN int XSetForeground(Display *display, GC gc, + unsigned long foreground); +#endif +#ifndef XSetClipMask_TCL_DECLARED +#define XSetClipMask_TCL_DECLARED +/* 64 */ +EXTERN int XSetClipMask(Display *display, GC gc, Pixmap pixmap); +#endif +#ifndef XSetClipOrigin_TCL_DECLARED +#define XSetClipOrigin_TCL_DECLARED +/* 65 */ +EXTERN int XSetClipOrigin(Display *display, GC gc, + int clip_x_origin, int clip_y_origin); +#endif +#ifndef XSetTSOrigin_TCL_DECLARED +#define XSetTSOrigin_TCL_DECLARED +/* 66 */ +EXTERN int XSetTSOrigin(Display *display, GC gc, + int ts_x_origin, int ts_y_origin); +#endif +#ifndef XChangeGC_TCL_DECLARED +#define XChangeGC_TCL_DECLARED +/* 67 */ +EXTERN int XChangeGC(Display *d, GC gc, unsigned long mask, + XGCValues *values); +#endif +#ifndef XSetFont_TCL_DECLARED +#define XSetFont_TCL_DECLARED +/* 68 */ +EXTERN int XSetFont(Display *display, GC gc, Font font); +#endif +#ifndef XSetArcMode_TCL_DECLARED +#define XSetArcMode_TCL_DECLARED +/* 69 */ +EXTERN int XSetArcMode(Display *display, GC gc, int arc_mode); +#endif +#ifndef XSetStipple_TCL_DECLARED +#define XSetStipple_TCL_DECLARED +/* 70 */ +EXTERN int XSetStipple(Display *display, GC gc, Pixmap stipple); +#endif +#ifndef XSetFillRule_TCL_DECLARED +#define XSetFillRule_TCL_DECLARED +/* 71 */ +EXTERN int XSetFillRule(Display *display, GC gc, int fill_rule); +#endif +#ifndef XSetFillStyle_TCL_DECLARED +#define XSetFillStyle_TCL_DECLARED +/* 72 */ +EXTERN int XSetFillStyle(Display *display, GC gc, + int fill_style); +#endif +#ifndef XSetFunction_TCL_DECLARED +#define XSetFunction_TCL_DECLARED +/* 73 */ +EXTERN int XSetFunction(Display *display, GC gc, int function); +#endif +#ifndef XSetLineAttributes_TCL_DECLARED +#define XSetLineAttributes_TCL_DECLARED +/* 74 */ +EXTERN int XSetLineAttributes(Display *display, GC gc, + unsigned int line_width, int line_style, + int cap_style, int join_style); +#endif +#ifndef _XInitImageFuncPtrs_TCL_DECLARED +#define _XInitImageFuncPtrs_TCL_DECLARED +/* 75 */ +EXTERN int _XInitImageFuncPtrs(XImage *image); +#endif +#ifndef XCreateIC_TCL_DECLARED +#define XCreateIC_TCL_DECLARED +/* 76 */ +EXTERN XIC XCreateIC(void); +#endif +#ifndef XGetVisualInfo_TCL_DECLARED +#define XGetVisualInfo_TCL_DECLARED +/* 77 */ +EXTERN XVisualInfo * XGetVisualInfo(Display *display, long vinfo_mask, + XVisualInfo *vinfo_template, + int *nitems_return); +#endif +#ifndef XSetWMClientMachine_TCL_DECLARED +#define XSetWMClientMachine_TCL_DECLARED +/* 78 */ +EXTERN void XSetWMClientMachine(Display *display, Window w, + XTextProperty *text_prop); +#endif +#ifndef XStringListToTextProperty_TCL_DECLARED +#define XStringListToTextProperty_TCL_DECLARED +/* 79 */ +EXTERN Status XStringListToTextProperty(char **list, int count, + XTextProperty *text_prop_return); +#endif +#ifndef XDrawSegments_TCL_DECLARED +#define XDrawSegments_TCL_DECLARED +/* 80 */ +EXTERN void XDrawSegments(Display *display, Drawable d, GC gc, + XSegment *segments, int nsegments); +#endif +#ifndef XForceScreenSaver_TCL_DECLARED +#define XForceScreenSaver_TCL_DECLARED +/* 81 */ +EXTERN void XForceScreenSaver(Display *display, int mode); +#endif +#ifndef XDrawLine_TCL_DECLARED +#define XDrawLine_TCL_DECLARED +/* 82 */ +EXTERN int XDrawLine(Display *d, Drawable dr, GC g, int x1, + int y1, int x2, int y2); +#endif +#ifndef XFillRectangle_TCL_DECLARED +#define XFillRectangle_TCL_DECLARED +/* 83 */ +EXTERN int XFillRectangle(Display *display, Drawable d, GC gc, + int x, int y, unsigned int width, + unsigned int height); +#endif +#ifndef XClearWindow_TCL_DECLARED +#define XClearWindow_TCL_DECLARED +/* 84 */ +EXTERN void XClearWindow(Display *d, Window w); +#endif +#ifndef XDrawPoint_TCL_DECLARED +#define XDrawPoint_TCL_DECLARED +/* 85 */ +EXTERN void XDrawPoint(Display *display, Drawable d, GC gc, + int x, int y); +#endif +#ifndef XDrawPoints_TCL_DECLARED +#define XDrawPoints_TCL_DECLARED +/* 86 */ +EXTERN void XDrawPoints(Display *display, Drawable d, GC gc, + XPoint *points, int npoints, int mode); +#endif +#ifndef XWarpPointer_TCL_DECLARED +#define XWarpPointer_TCL_DECLARED +/* 87 */ +EXTERN int XWarpPointer(Display *display, Window src_w, + Window dest_w, int src_x, int src_y, + unsigned int src_width, + unsigned int src_height, int dest_x, + int dest_y); +#endif +#ifndef XQueryColor_TCL_DECLARED +#define XQueryColor_TCL_DECLARED +/* 88 */ +EXTERN void XQueryColor(Display *display, Colormap colormap, + XColor *def_in_out); +#endif +#ifndef XQueryColors_TCL_DECLARED +#define XQueryColors_TCL_DECLARED +/* 89 */ +EXTERN void XQueryColors(Display *display, Colormap colormap, + XColor *defs_in_out, int ncolors); +#endif +#ifndef XQueryTree_TCL_DECLARED +#define XQueryTree_TCL_DECLARED +/* 90 */ +EXTERN Status XQueryTree(Display *d, Window w1, Window *w2, + Window *w3, Window **w4, unsigned int *ui); +#endif +#ifndef XSync_TCL_DECLARED +#define XSync_TCL_DECLARED +/* 91 */ +EXTERN int XSync(Display *display, Bool flag); +#endif +#endif /* AQUA */ + +typedef struct TkIntXlibStubs { + int magic; + struct TkIntXlibStubHooks *hooks; + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ + int (*xSetDashes) (Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n); /* 0 */ + XModifierKeymap * (*xGetModifierMapping) (Display *d); /* 1 */ + XImage * (*xCreateImage) (Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ + XImage * (*xGetImage) (Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ + char * (*xGetAtomName) (Display *d, Atom a); /* 4 */ + char * (*xKeysymToString) (KeySym k); /* 5 */ + Colormap (*xCreateColormap) (Display *d, Window w, Visual *v, int i); /* 6 */ + Cursor (*xCreatePixmapCursor) (Display *d, Pixmap p1, Pixmap p2, XColor *x1, XColor *x2, unsigned int ui1, unsigned int ui2); /* 7 */ + Cursor (*xCreateGlyphCursor) (Display *d, Font f1, Font f2, unsigned int ui1, unsigned int ui2, XColor _Xconst *x1, XColor _Xconst *x2); /* 8 */ + GContext (*xGContextFromGC) (GC g); /* 9 */ + XHostAddress * (*xListHosts) (Display *d, int *i, Bool *b); /* 10 */ + KeySym (*xKeycodeToKeysym) (Display *d, unsigned int k, int i); /* 11 */ + KeySym (*xStringToKeysym) (_Xconst char *c); /* 12 */ + Window (*xRootWindow) (Display *d, int i); /* 13 */ + XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 14 */ + Status (*xIconifyWindow) (Display *d, Window w, int i); /* 15 */ + Status (*xWithdrawWindow) (Display *d, Window w, int i); /* 16 */ + Status (*xGetWMColormapWindows) (Display *d, Window w, Window **wpp, int *ip); /* 17 */ + Status (*xAllocColor) (Display *d, Colormap c, XColor *xp); /* 18 */ + int (*xBell) (Display *d, int i); /* 19 */ + int (*xChangeProperty) (Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3); /* 20 */ + int (*xChangeWindowAttributes) (Display *d, Window w, unsigned long ul, XSetWindowAttributes *x); /* 21 */ + int (*xClearWindow) (Display *d, Window w); /* 22 */ + int (*xConfigureWindow) (Display *d, Window w, unsigned int i, XWindowChanges *x); /* 23 */ + int (*xCopyArea) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 24 */ + int (*xCopyPlane) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 25 */ + Pixmap (*xCreateBitmapFromData) (Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height); /* 26 */ + int (*xDefineCursor) (Display *d, Window w, Cursor c); /* 27 */ + int (*xDeleteProperty) (Display *d, Window w, Atom a); /* 28 */ + int (*xDestroyWindow) (Display *d, Window w); /* 29 */ + int (*xDrawArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 30 */ + int (*xDrawLines) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2); /* 31 */ + int (*xDrawRectangle) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 32 */ + int (*xFillArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 33 */ + int (*xFillPolygon) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3); /* 34 */ + int (*xFillRectangles) (Display *d, Drawable dr, GC g, XRectangle *x, int i); /* 35 */ + int (*xForceScreenSaver) (Display *d, int i); /* 36 */ + int (*xFreeColormap) (Display *d, Colormap c); /* 37 */ + int (*xFreeColors) (Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul); /* 38 */ + int (*xFreeCursor) (Display *d, Cursor c); /* 39 */ + int (*xFreeModifiermap) (XModifierKeymap *x); /* 40 */ + Status (*xGetGeometry) (Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4); /* 41 */ + int (*xGetInputFocus) (Display *d, Window *w, int *i); /* 42 */ + int (*xGetWindowProperty) (Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp); /* 43 */ + Status (*xGetWindowAttributes) (Display *d, Window w, XWindowAttributes *x); /* 44 */ + int (*xGrabKeyboard) (Display *d, Window w, Bool b, int i1, int i2, Time t); /* 45 */ + int (*xGrabPointer) (Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 46 */ + KeyCode (*xKeysymToKeycode) (Display *d, KeySym k); /* 47 */ + Status (*xLookupColor) (Display *d, Colormap c1, _Xconst char *c2, XColor *x1, XColor *x2); /* 48 */ + int (*xMapWindow) (Display *d, Window w); /* 49 */ + int (*xMoveResizeWindow) (Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 50 */ + int (*xMoveWindow) (Display *d, Window w, int i1, int i2); /* 51 */ + int (*xNextEvent) (Display *d, XEvent *x); /* 52 */ + int (*xPutBackEvent) (Display *d, XEvent *x); /* 53 */ + int (*xQueryColors) (Display *d, Colormap c, XColor *x, int i); /* 54 */ + Bool (*xQueryPointer) (Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui); /* 55 */ + Status (*xQueryTree) (Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui); /* 56 */ + int (*xRaiseWindow) (Display *d, Window w); /* 57 */ + int (*xRefreshKeyboardMapping) (XMappingEvent *x); /* 58 */ + int (*xResizeWindow) (Display *d, Window w, unsigned int ui1, unsigned int ui2); /* 59 */ + int (*xSelectInput) (Display *d, Window w, long l); /* 60 */ + Status (*xSendEvent) (Display *d, Window w, Bool b, long l, XEvent *x); /* 61 */ + int (*xSetCommand) (Display *d, Window w, char **c, int i); /* 62 */ + int (*xSetIconName) (Display *d, Window w, _Xconst char *c); /* 63 */ + int (*xSetInputFocus) (Display *d, Window w, int i, Time t); /* 64 */ + int (*xSetSelectionOwner) (Display *d, Atom a, Window w, Time t); /* 65 */ + int (*xSetWindowBackground) (Display *d, Window w, unsigned long ul); /* 66 */ + int (*xSetWindowBackgroundPixmap) (Display *d, Window w, Pixmap p); /* 67 */ + int (*xSetWindowBorder) (Display *d, Window w, unsigned long ul); /* 68 */ + int (*xSetWindowBorderPixmap) (Display *d, Window w, Pixmap p); /* 69 */ + int (*xSetWindowBorderWidth) (Display *d, Window w, unsigned int ui); /* 70 */ + int (*xSetWindowColormap) (Display *d, Window w, Colormap c); /* 71 */ + Bool (*xTranslateCoordinates) (Display *d, Window w1, Window w2, int i1, int i2, int *i3, int *i4, Window *w3); /* 72 */ + int (*xUngrabKeyboard) (Display *d, Time t); /* 73 */ + int (*xUngrabPointer) (Display *d, Time t); /* 74 */ + int (*xUnmapWindow) (Display *d, Window w); /* 75 */ + int (*xWindowEvent) (Display *d, Window w, long l, XEvent *x); /* 76 */ + void (*xDestroyIC) (XIC x); /* 77 */ + Bool (*xFilterEvent) (XEvent *x, Window w); /* 78 */ + int (*xmbLookupString) (XIC xi, XKeyPressedEvent *xk, char *c, int i, KeySym *k, Status *s); /* 79 */ + int (*tkPutImage) (unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 80 */ + VOID *reserved81; + Status (*xParseColor) (Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr); /* 82 */ + GC (*xCreateGC) (Display *display, Drawable d, unsigned long valuemask, XGCValues *values); /* 83 */ + int (*xFreeGC) (Display *display, GC gc); /* 84 */ + Atom (*xInternAtom) (Display *display, _Xconst char *atom_name, Bool only_if_exists); /* 85 */ + int (*xSetBackground) (Display *display, GC gc, unsigned long foreground); /* 86 */ + int (*xSetForeground) (Display *display, GC gc, unsigned long foreground); /* 87 */ + int (*xSetClipMask) (Display *display, GC gc, Pixmap pixmap); /* 88 */ + int (*xSetClipOrigin) (Display *display, GC gc, int clip_x_origin, int clip_y_origin); /* 89 */ + int (*xSetTSOrigin) (Display *display, GC gc, int ts_x_origin, int ts_y_origin); /* 90 */ + int (*xChangeGC) (Display *d, GC gc, unsigned long mask, XGCValues *values); /* 91 */ + int (*xSetFont) (Display *display, GC gc, Font font); /* 92 */ + int (*xSetArcMode) (Display *display, GC gc, int arc_mode); /* 93 */ + int (*xSetStipple) (Display *display, GC gc, Pixmap stipple); /* 94 */ + int (*xSetFillRule) (Display *display, GC gc, int fill_rule); /* 95 */ + int (*xSetFillStyle) (Display *display, GC gc, int fill_style); /* 96 */ + int (*xSetFunction) (Display *display, GC gc, int function); /* 97 */ + int (*xSetLineAttributes) (Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 98 */ + int (*_XInitImageFuncPtrs) (XImage *image); /* 99 */ + XIC (*xCreateIC) (XIM xim, ...); /* 100 */ + XVisualInfo * (*xGetVisualInfo) (Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return); /* 101 */ + void (*xSetWMClientMachine) (Display *display, Window w, XTextProperty *text_prop); /* 102 */ + Status (*xStringListToTextProperty) (char **list, int count, XTextProperty *text_prop_return); /* 103 */ + int (*xDrawLine) (Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 104 */ + int (*xWarpPointer) (Display *d, Window s, Window dw, int sx, int sy, unsigned int sw, unsigned int sh, int dx, int dy); /* 105 */ + int (*xFillRectangle) (Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 106 */ + int (*xFlush) (Display *display); /* 107 */ + int (*xGrabServer) (Display *display); /* 108 */ + int (*xUngrabServer) (Display *display); /* 109 */ + int (*xFree) (VOID *data); /* 110 */ + int (*xNoOp) (Display *display); /* 111 */ + XAfterFunction (*xSynchronize) (Display *display, Bool onoff); /* 112 */ + int (*xSync) (Display *display, Bool discard); /* 113 */ + VisualID (*xVisualIDFromVisual) (Visual *visual); /* 114 */ +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ + int (*xSetDashes) (Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n); /* 0 */ + XModifierKeymap * (*xGetModifierMapping) (Display *d); /* 1 */ + XImage * (*xCreateImage) (Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ + XImage * (*xGetImage) (Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ + char * (*xGetAtomName) (Display *d, Atom a); /* 4 */ + char * (*xKeysymToString) (KeySym k); /* 5 */ + Colormap (*xCreateColormap) (Display *d, Window w, Visual *v, int i); /* 6 */ + GContext (*xGContextFromGC) (GC g); /* 7 */ + KeySym (*xKeycodeToKeysym) (Display *d, KeyCode k, int i); /* 8 */ + KeySym (*xStringToKeysym) (_Xconst char *c); /* 9 */ + Window (*xRootWindow) (Display *d, int i); /* 10 */ + XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 11 */ + Status (*xAllocColor) (Display *d, Colormap c, XColor *xp); /* 12 */ + int (*xBell) (Display *d, int i); /* 13 */ + void (*xChangeProperty) (Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3); /* 14 */ + void (*xChangeWindowAttributes) (Display *d, Window w, unsigned long ul, XSetWindowAttributes *x); /* 15 */ + void (*xConfigureWindow) (Display *d, Window w, unsigned int i, XWindowChanges *x); /* 16 */ + void (*xCopyArea) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 17 */ + void (*xCopyPlane) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 18 */ + Pixmap (*xCreateBitmapFromData) (Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height); /* 19 */ + int (*xDefineCursor) (Display *d, Window w, Cursor c); /* 20 */ + void (*xDestroyWindow) (Display *d, Window w); /* 21 */ + void (*xDrawArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 22 */ + int (*xDrawLines) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2); /* 23 */ + void (*xDrawRectangle) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 24 */ + void (*xFillArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 25 */ + void (*xFillPolygon) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3); /* 26 */ + int (*xFillRectangles) (Display *d, Drawable dr, GC g, XRectangle *x, int i); /* 27 */ + int (*xFreeColormap) (Display *d, Colormap c); /* 28 */ + int (*xFreeColors) (Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul); /* 29 */ + int (*xFreeModifiermap) (XModifierKeymap *x); /* 30 */ + Status (*xGetGeometry) (Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4); /* 31 */ + int (*xGetWindowProperty) (Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp); /* 32 */ + int (*xGrabKeyboard) (Display *d, Window w, Bool b, int i1, int i2, Time t); /* 33 */ + int (*xGrabPointer) (Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 34 */ + KeyCode (*xKeysymToKeycode) (Display *d, KeySym k); /* 35 */ + void (*xMapWindow) (Display *d, Window w); /* 36 */ + void (*xMoveResizeWindow) (Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 37 */ + void (*xMoveWindow) (Display *d, Window w, int i1, int i2); /* 38 */ + Bool (*xQueryPointer) (Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui); /* 39 */ + void (*xRaiseWindow) (Display *d, Window w); /* 40 */ + void (*xRefreshKeyboardMapping) (XMappingEvent *x); /* 41 */ + void (*xResizeWindow) (Display *d, Window w, unsigned int ui1, unsigned int ui2); /* 42 */ + void (*xSelectInput) (Display *d, Window w, long l); /* 43 */ + Status (*xSendEvent) (Display *d, Window w, Bool b, long l, XEvent *x); /* 44 */ + void (*xSetIconName) (Display *d, Window w, _Xconst char *c); /* 45 */ + void (*xSetInputFocus) (Display *d, Window w, int i, Time t); /* 46 */ + int (*xSetSelectionOwner) (Display *d, Atom a, Window w, Time t); /* 47 */ + void (*xSetWindowBackground) (Display *d, Window w, unsigned long ul); /* 48 */ + void (*xSetWindowBackgroundPixmap) (Display *d, Window w, Pixmap p); /* 49 */ + void (*xSetWindowBorder) (Display *d, Window w, unsigned long ul); /* 50 */ + void (*xSetWindowBorderPixmap) (Display *d, Window w, Pixmap p); /* 51 */ + void (*xSetWindowBorderWidth) (Display *d, Window w, unsigned int ui); /* 52 */ + void (*xSetWindowColormap) (Display *d, Window w, Colormap c); /* 53 */ + void (*xUngrabKeyboard) (Display *d, Time t); /* 54 */ + int (*xUngrabPointer) (Display *d, Time t); /* 55 */ + void (*xUnmapWindow) (Display *d, Window w); /* 56 */ + int (*tkPutImage) (unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 57 */ + Status (*xParseColor) (Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr); /* 58 */ + GC (*xCreateGC) (Display *display, Drawable d, unsigned long valuemask, XGCValues *values); /* 59 */ + int (*xFreeGC) (Display *display, GC gc); /* 60 */ + Atom (*xInternAtom) (Display *display, _Xconst char *atom_name, Bool only_if_exists); /* 61 */ + int (*xSetBackground) (Display *display, GC gc, unsigned long foreground); /* 62 */ + int (*xSetForeground) (Display *display, GC gc, unsigned long foreground); /* 63 */ + int (*xSetClipMask) (Display *display, GC gc, Pixmap pixmap); /* 64 */ + int (*xSetClipOrigin) (Display *display, GC gc, int clip_x_origin, int clip_y_origin); /* 65 */ + int (*xSetTSOrigin) (Display *display, GC gc, int ts_x_origin, int ts_y_origin); /* 66 */ + int (*xChangeGC) (Display *d, GC gc, unsigned long mask, XGCValues *values); /* 67 */ + int (*xSetFont) (Display *display, GC gc, Font font); /* 68 */ + int (*xSetArcMode) (Display *display, GC gc, int arc_mode); /* 69 */ + int (*xSetStipple) (Display *display, GC gc, Pixmap stipple); /* 70 */ + int (*xSetFillRule) (Display *display, GC gc, int fill_rule); /* 71 */ + int (*xSetFillStyle) (Display *display, GC gc, int fill_style); /* 72 */ + int (*xSetFunction) (Display *display, GC gc, int function); /* 73 */ + int (*xSetLineAttributes) (Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 74 */ + int (*_XInitImageFuncPtrs) (XImage *image); /* 75 */ + XIC (*xCreateIC) (void); /* 76 */ + XVisualInfo * (*xGetVisualInfo) (Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return); /* 77 */ + void (*xSetWMClientMachine) (Display *display, Window w, XTextProperty *text_prop); /* 78 */ + Status (*xStringListToTextProperty) (char **list, int count, XTextProperty *text_prop_return); /* 79 */ + void (*xDrawSegments) (Display *display, Drawable d, GC gc, XSegment *segments, int nsegments); /* 80 */ + void (*xForceScreenSaver) (Display *display, int mode); /* 81 */ + int (*xDrawLine) (Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 82 */ + int (*xFillRectangle) (Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 83 */ + void (*xClearWindow) (Display *d, Window w); /* 84 */ + void (*xDrawPoint) (Display *display, Drawable d, GC gc, int x, int y); /* 85 */ + void (*xDrawPoints) (Display *display, Drawable d, GC gc, XPoint *points, int npoints, int mode); /* 86 */ + int (*xWarpPointer) (Display *display, Window src_w, Window dest_w, int src_x, int src_y, unsigned int src_width, unsigned int src_height, int dest_x, int dest_y); /* 87 */ + void (*xQueryColor) (Display *display, Colormap colormap, XColor *def_in_out); /* 88 */ + void (*xQueryColors) (Display *display, Colormap colormap, XColor *defs_in_out, int ncolors); /* 89 */ + Status (*xQueryTree) (Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui); /* 90 */ + int (*xSync) (Display *display, Bool flag); /* 91 */ +#endif /* AQUA */ +} TkIntXlibStubs; + +extern TkIntXlibStubs *tkIntXlibStubsPtr; + +#ifdef __cplusplus +} +#endif + +#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ +#ifndef XSetDashes +#define XSetDashes \ + (tkIntXlibStubsPtr->xSetDashes) /* 0 */ +#endif +#ifndef XGetModifierMapping +#define XGetModifierMapping \ + (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ +#endif +#ifndef XCreateImage +#define XCreateImage \ + (tkIntXlibStubsPtr->xCreateImage) /* 2 */ +#endif +#ifndef XGetImage +#define XGetImage \ + (tkIntXlibStubsPtr->xGetImage) /* 3 */ +#endif +#ifndef XGetAtomName +#define XGetAtomName \ + (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ +#endif +#ifndef XKeysymToString +#define XKeysymToString \ + (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ +#endif +#ifndef XCreateColormap +#define XCreateColormap \ + (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ +#endif +#ifndef XCreatePixmapCursor +#define XCreatePixmapCursor \ + (tkIntXlibStubsPtr->xCreatePixmapCursor) /* 7 */ +#endif +#ifndef XCreateGlyphCursor +#define XCreateGlyphCursor \ + (tkIntXlibStubsPtr->xCreateGlyphCursor) /* 8 */ +#endif +#ifndef XGContextFromGC +#define XGContextFromGC \ + (tkIntXlibStubsPtr->xGContextFromGC) /* 9 */ +#endif +#ifndef XListHosts +#define XListHosts \ + (tkIntXlibStubsPtr->xListHosts) /* 10 */ +#endif +#ifndef XKeycodeToKeysym +#define XKeycodeToKeysym \ + (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 11 */ +#endif +#ifndef XStringToKeysym +#define XStringToKeysym \ + (tkIntXlibStubsPtr->xStringToKeysym) /* 12 */ +#endif +#ifndef XRootWindow +#define XRootWindow \ + (tkIntXlibStubsPtr->xRootWindow) /* 13 */ +#endif +#ifndef XSetErrorHandler +#define XSetErrorHandler \ + (tkIntXlibStubsPtr->xSetErrorHandler) /* 14 */ +#endif +#ifndef XIconifyWindow +#define XIconifyWindow \ + (tkIntXlibStubsPtr->xIconifyWindow) /* 15 */ +#endif +#ifndef XWithdrawWindow +#define XWithdrawWindow \ + (tkIntXlibStubsPtr->xWithdrawWindow) /* 16 */ +#endif +#ifndef XGetWMColormapWindows +#define XGetWMColormapWindows \ + (tkIntXlibStubsPtr->xGetWMColormapWindows) /* 17 */ +#endif +#ifndef XAllocColor +#define XAllocColor \ + (tkIntXlibStubsPtr->xAllocColor) /* 18 */ +#endif +#ifndef XBell +#define XBell \ + (tkIntXlibStubsPtr->xBell) /* 19 */ +#endif +#ifndef XChangeProperty +#define XChangeProperty \ + (tkIntXlibStubsPtr->xChangeProperty) /* 20 */ +#endif +#ifndef XChangeWindowAttributes +#define XChangeWindowAttributes \ + (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 21 */ +#endif +#ifndef XClearWindow +#define XClearWindow \ + (tkIntXlibStubsPtr->xClearWindow) /* 22 */ +#endif +#ifndef XConfigureWindow +#define XConfigureWindow \ + (tkIntXlibStubsPtr->xConfigureWindow) /* 23 */ +#endif +#ifndef XCopyArea +#define XCopyArea \ + (tkIntXlibStubsPtr->xCopyArea) /* 24 */ +#endif +#ifndef XCopyPlane +#define XCopyPlane \ + (tkIntXlibStubsPtr->xCopyPlane) /* 25 */ +#endif +#ifndef XCreateBitmapFromData +#define XCreateBitmapFromData \ + (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 26 */ +#endif +#ifndef XDefineCursor +#define XDefineCursor \ + (tkIntXlibStubsPtr->xDefineCursor) /* 27 */ +#endif +#ifndef XDeleteProperty +#define XDeleteProperty \ + (tkIntXlibStubsPtr->xDeleteProperty) /* 28 */ +#endif +#ifndef XDestroyWindow +#define XDestroyWindow \ + (tkIntXlibStubsPtr->xDestroyWindow) /* 29 */ +#endif +#ifndef XDrawArc +#define XDrawArc \ + (tkIntXlibStubsPtr->xDrawArc) /* 30 */ +#endif +#ifndef XDrawLines +#define XDrawLines \ + (tkIntXlibStubsPtr->xDrawLines) /* 31 */ +#endif +#ifndef XDrawRectangle +#define XDrawRectangle \ + (tkIntXlibStubsPtr->xDrawRectangle) /* 32 */ +#endif +#ifndef XFillArc +#define XFillArc \ + (tkIntXlibStubsPtr->xFillArc) /* 33 */ +#endif +#ifndef XFillPolygon +#define XFillPolygon \ + (tkIntXlibStubsPtr->xFillPolygon) /* 34 */ +#endif +#ifndef XFillRectangles +#define XFillRectangles \ + (tkIntXlibStubsPtr->xFillRectangles) /* 35 */ +#endif +#ifndef XForceScreenSaver +#define XForceScreenSaver \ + (tkIntXlibStubsPtr->xForceScreenSaver) /* 36 */ +#endif +#ifndef XFreeColormap +#define XFreeColormap \ + (tkIntXlibStubsPtr->xFreeColormap) /* 37 */ +#endif +#ifndef XFreeColors +#define XFreeColors \ + (tkIntXlibStubsPtr->xFreeColors) /* 38 */ +#endif +#ifndef XFreeCursor +#define XFreeCursor \ + (tkIntXlibStubsPtr->xFreeCursor) /* 39 */ +#endif +#ifndef XFreeModifiermap +#define XFreeModifiermap \ + (tkIntXlibStubsPtr->xFreeModifiermap) /* 40 */ +#endif +#ifndef XGetGeometry +#define XGetGeometry \ + (tkIntXlibStubsPtr->xGetGeometry) /* 41 */ +#endif +#ifndef XGetInputFocus +#define XGetInputFocus \ + (tkIntXlibStubsPtr->xGetInputFocus) /* 42 */ +#endif +#ifndef XGetWindowProperty +#define XGetWindowProperty \ + (tkIntXlibStubsPtr->xGetWindowProperty) /* 43 */ +#endif +#ifndef XGetWindowAttributes +#define XGetWindowAttributes \ + (tkIntXlibStubsPtr->xGetWindowAttributes) /* 44 */ +#endif +#ifndef XGrabKeyboard +#define XGrabKeyboard \ + (tkIntXlibStubsPtr->xGrabKeyboard) /* 45 */ +#endif +#ifndef XGrabPointer +#define XGrabPointer \ + (tkIntXlibStubsPtr->xGrabPointer) /* 46 */ +#endif +#ifndef XKeysymToKeycode +#define XKeysymToKeycode \ + (tkIntXlibStubsPtr->xKeysymToKeycode) /* 47 */ +#endif +#ifndef XLookupColor +#define XLookupColor \ + (tkIntXlibStubsPtr->xLookupColor) /* 48 */ +#endif +#ifndef XMapWindow +#define XMapWindow \ + (tkIntXlibStubsPtr->xMapWindow) /* 49 */ +#endif +#ifndef XMoveResizeWindow +#define XMoveResizeWindow \ + (tkIntXlibStubsPtr->xMoveResizeWindow) /* 50 */ +#endif +#ifndef XMoveWindow +#define XMoveWindow \ + (tkIntXlibStubsPtr->xMoveWindow) /* 51 */ +#endif +#ifndef XNextEvent +#define XNextEvent \ + (tkIntXlibStubsPtr->xNextEvent) /* 52 */ +#endif +#ifndef XPutBackEvent +#define XPutBackEvent \ + (tkIntXlibStubsPtr->xPutBackEvent) /* 53 */ +#endif +#ifndef XQueryColors +#define XQueryColors \ + (tkIntXlibStubsPtr->xQueryColors) /* 54 */ +#endif +#ifndef XQueryPointer +#define XQueryPointer \ + (tkIntXlibStubsPtr->xQueryPointer) /* 55 */ +#endif +#ifndef XQueryTree +#define XQueryTree \ + (tkIntXlibStubsPtr->xQueryTree) /* 56 */ +#endif +#ifndef XRaiseWindow +#define XRaiseWindow \ + (tkIntXlibStubsPtr->xRaiseWindow) /* 57 */ +#endif +#ifndef XRefreshKeyboardMapping +#define XRefreshKeyboardMapping \ + (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 58 */ +#endif +#ifndef XResizeWindow +#define XResizeWindow \ + (tkIntXlibStubsPtr->xResizeWindow) /* 59 */ +#endif +#ifndef XSelectInput +#define XSelectInput \ + (tkIntXlibStubsPtr->xSelectInput) /* 60 */ +#endif +#ifndef XSendEvent +#define XSendEvent \ + (tkIntXlibStubsPtr->xSendEvent) /* 61 */ +#endif +#ifndef XSetCommand +#define XSetCommand \ + (tkIntXlibStubsPtr->xSetCommand) /* 62 */ +#endif +#ifndef XSetIconName +#define XSetIconName \ + (tkIntXlibStubsPtr->xSetIconName) /* 63 */ +#endif +#ifndef XSetInputFocus +#define XSetInputFocus \ + (tkIntXlibStubsPtr->xSetInputFocus) /* 64 */ +#endif +#ifndef XSetSelectionOwner +#define XSetSelectionOwner \ + (tkIntXlibStubsPtr->xSetSelectionOwner) /* 65 */ +#endif +#ifndef XSetWindowBackground +#define XSetWindowBackground \ + (tkIntXlibStubsPtr->xSetWindowBackground) /* 66 */ +#endif +#ifndef XSetWindowBackgroundPixmap +#define XSetWindowBackgroundPixmap \ + (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 67 */ +#endif +#ifndef XSetWindowBorder +#define XSetWindowBorder \ + (tkIntXlibStubsPtr->xSetWindowBorder) /* 68 */ +#endif +#ifndef XSetWindowBorderPixmap +#define XSetWindowBorderPixmap \ + (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 69 */ +#endif +#ifndef XSetWindowBorderWidth +#define XSetWindowBorderWidth \ + (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 70 */ +#endif +#ifndef XSetWindowColormap +#define XSetWindowColormap \ + (tkIntXlibStubsPtr->xSetWindowColormap) /* 71 */ +#endif +#ifndef XTranslateCoordinates +#define XTranslateCoordinates \ + (tkIntXlibStubsPtr->xTranslateCoordinates) /* 72 */ +#endif +#ifndef XUngrabKeyboard +#define XUngrabKeyboard \ + (tkIntXlibStubsPtr->xUngrabKeyboard) /* 73 */ +#endif +#ifndef XUngrabPointer +#define XUngrabPointer \ + (tkIntXlibStubsPtr->xUngrabPointer) /* 74 */ +#endif +#ifndef XUnmapWindow +#define XUnmapWindow \ + (tkIntXlibStubsPtr->xUnmapWindow) /* 75 */ +#endif +#ifndef XWindowEvent +#define XWindowEvent \ + (tkIntXlibStubsPtr->xWindowEvent) /* 76 */ +#endif +#ifndef XDestroyIC +#define XDestroyIC \ + (tkIntXlibStubsPtr->xDestroyIC) /* 77 */ +#endif +#ifndef XFilterEvent +#define XFilterEvent \ + (tkIntXlibStubsPtr->xFilterEvent) /* 78 */ +#endif +#ifndef XmbLookupString +#define XmbLookupString \ + (tkIntXlibStubsPtr->xmbLookupString) /* 79 */ +#endif +#ifndef TkPutImage +#define TkPutImage \ + (tkIntXlibStubsPtr->tkPutImage) /* 80 */ +#endif +/* Slot 81 is reserved */ +#ifndef XParseColor +#define XParseColor \ + (tkIntXlibStubsPtr->xParseColor) /* 82 */ +#endif +#ifndef XCreateGC +#define XCreateGC \ + (tkIntXlibStubsPtr->xCreateGC) /* 83 */ +#endif +#ifndef XFreeGC +#define XFreeGC \ + (tkIntXlibStubsPtr->xFreeGC) /* 84 */ +#endif +#ifndef XInternAtom +#define XInternAtom \ + (tkIntXlibStubsPtr->xInternAtom) /* 85 */ +#endif +#ifndef XSetBackground +#define XSetBackground \ + (tkIntXlibStubsPtr->xSetBackground) /* 86 */ +#endif +#ifndef XSetForeground +#define XSetForeground \ + (tkIntXlibStubsPtr->xSetForeground) /* 87 */ +#endif +#ifndef XSetClipMask +#define XSetClipMask \ + (tkIntXlibStubsPtr->xSetClipMask) /* 88 */ +#endif +#ifndef XSetClipOrigin +#define XSetClipOrigin \ + (tkIntXlibStubsPtr->xSetClipOrigin) /* 89 */ +#endif +#ifndef XSetTSOrigin +#define XSetTSOrigin \ + (tkIntXlibStubsPtr->xSetTSOrigin) /* 90 */ +#endif +#ifndef XChangeGC +#define XChangeGC \ + (tkIntXlibStubsPtr->xChangeGC) /* 91 */ +#endif +#ifndef XSetFont +#define XSetFont \ + (tkIntXlibStubsPtr->xSetFont) /* 92 */ +#endif +#ifndef XSetArcMode +#define XSetArcMode \ + (tkIntXlibStubsPtr->xSetArcMode) /* 93 */ +#endif +#ifndef XSetStipple +#define XSetStipple \ + (tkIntXlibStubsPtr->xSetStipple) /* 94 */ +#endif +#ifndef XSetFillRule +#define XSetFillRule \ + (tkIntXlibStubsPtr->xSetFillRule) /* 95 */ +#endif +#ifndef XSetFillStyle +#define XSetFillStyle \ + (tkIntXlibStubsPtr->xSetFillStyle) /* 96 */ +#endif +#ifndef XSetFunction +#define XSetFunction \ + (tkIntXlibStubsPtr->xSetFunction) /* 97 */ +#endif +#ifndef XSetLineAttributes +#define XSetLineAttributes \ + (tkIntXlibStubsPtr->xSetLineAttributes) /* 98 */ +#endif +#ifndef _XInitImageFuncPtrs +#define _XInitImageFuncPtrs \ + (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 99 */ +#endif +#ifndef XCreateIC +#define XCreateIC \ + (tkIntXlibStubsPtr->xCreateIC) /* 100 */ +#endif +#ifndef XGetVisualInfo +#define XGetVisualInfo \ + (tkIntXlibStubsPtr->xGetVisualInfo) /* 101 */ +#endif +#ifndef XSetWMClientMachine +#define XSetWMClientMachine \ + (tkIntXlibStubsPtr->xSetWMClientMachine) /* 102 */ +#endif +#ifndef XStringListToTextProperty +#define XStringListToTextProperty \ + (tkIntXlibStubsPtr->xStringListToTextProperty) /* 103 */ +#endif +#ifndef XDrawLine +#define XDrawLine \ + (tkIntXlibStubsPtr->xDrawLine) /* 104 */ +#endif +#ifndef XWarpPointer +#define XWarpPointer \ + (tkIntXlibStubsPtr->xWarpPointer) /* 105 */ +#endif +#ifndef XFillRectangle +#define XFillRectangle \ + (tkIntXlibStubsPtr->xFillRectangle) /* 106 */ +#endif +#ifndef XFlush +#define XFlush \ + (tkIntXlibStubsPtr->xFlush) /* 107 */ +#endif +#ifndef XGrabServer +#define XGrabServer \ + (tkIntXlibStubsPtr->xGrabServer) /* 108 */ +#endif +#ifndef XUngrabServer +#define XUngrabServer \ + (tkIntXlibStubsPtr->xUngrabServer) /* 109 */ +#endif +#ifndef XFree +#define XFree \ + (tkIntXlibStubsPtr->xFree) /* 110 */ +#endif +#ifndef XNoOp +#define XNoOp \ + (tkIntXlibStubsPtr->xNoOp) /* 111 */ +#endif +#ifndef XSynchronize +#define XSynchronize \ + (tkIntXlibStubsPtr->xSynchronize) /* 112 */ +#endif +#ifndef XSync +#define XSync \ + (tkIntXlibStubsPtr->xSync) /* 113 */ +#endif +#ifndef XVisualIDFromVisual +#define XVisualIDFromVisual \ + (tkIntXlibStubsPtr->xVisualIDFromVisual) /* 114 */ +#endif +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ +#ifndef XSetDashes +#define XSetDashes \ + (tkIntXlibStubsPtr->xSetDashes) /* 0 */ +#endif +#ifndef XGetModifierMapping +#define XGetModifierMapping \ + (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ +#endif +#ifndef XCreateImage +#define XCreateImage \ + (tkIntXlibStubsPtr->xCreateImage) /* 2 */ +#endif +#ifndef XGetImage +#define XGetImage \ + (tkIntXlibStubsPtr->xGetImage) /* 3 */ +#endif +#ifndef XGetAtomName +#define XGetAtomName \ + (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ +#endif +#ifndef XKeysymToString +#define XKeysymToString \ + (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ +#endif +#ifndef XCreateColormap +#define XCreateColormap \ + (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ +#endif +#ifndef XGContextFromGC +#define XGContextFromGC \ + (tkIntXlibStubsPtr->xGContextFromGC) /* 7 */ +#endif +#ifndef XKeycodeToKeysym +#define XKeycodeToKeysym \ + (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 8 */ +#endif +#ifndef XStringToKeysym +#define XStringToKeysym \ + (tkIntXlibStubsPtr->xStringToKeysym) /* 9 */ +#endif +#ifndef XRootWindow +#define XRootWindow \ + (tkIntXlibStubsPtr->xRootWindow) /* 10 */ +#endif +#ifndef XSetErrorHandler +#define XSetErrorHandler \ + (tkIntXlibStubsPtr->xSetErrorHandler) /* 11 */ +#endif +#ifndef XAllocColor +#define XAllocColor \ + (tkIntXlibStubsPtr->xAllocColor) /* 12 */ +#endif +#ifndef XBell +#define XBell \ + (tkIntXlibStubsPtr->xBell) /* 13 */ +#endif +#ifndef XChangeProperty +#define XChangeProperty \ + (tkIntXlibStubsPtr->xChangeProperty) /* 14 */ +#endif +#ifndef XChangeWindowAttributes +#define XChangeWindowAttributes \ + (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 15 */ +#endif +#ifndef XConfigureWindow +#define XConfigureWindow \ + (tkIntXlibStubsPtr->xConfigureWindow) /* 16 */ +#endif +#ifndef XCopyArea +#define XCopyArea \ + (tkIntXlibStubsPtr->xCopyArea) /* 17 */ +#endif +#ifndef XCopyPlane +#define XCopyPlane \ + (tkIntXlibStubsPtr->xCopyPlane) /* 18 */ +#endif +#ifndef XCreateBitmapFromData +#define XCreateBitmapFromData \ + (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 19 */ +#endif +#ifndef XDefineCursor +#define XDefineCursor \ + (tkIntXlibStubsPtr->xDefineCursor) /* 20 */ +#endif +#ifndef XDestroyWindow +#define XDestroyWindow \ + (tkIntXlibStubsPtr->xDestroyWindow) /* 21 */ +#endif +#ifndef XDrawArc +#define XDrawArc \ + (tkIntXlibStubsPtr->xDrawArc) /* 22 */ +#endif +#ifndef XDrawLines +#define XDrawLines \ + (tkIntXlibStubsPtr->xDrawLines) /* 23 */ +#endif +#ifndef XDrawRectangle +#define XDrawRectangle \ + (tkIntXlibStubsPtr->xDrawRectangle) /* 24 */ +#endif +#ifndef XFillArc +#define XFillArc \ + (tkIntXlibStubsPtr->xFillArc) /* 25 */ +#endif +#ifndef XFillPolygon +#define XFillPolygon \ + (tkIntXlibStubsPtr->xFillPolygon) /* 26 */ +#endif +#ifndef XFillRectangles +#define XFillRectangles \ + (tkIntXlibStubsPtr->xFillRectangles) /* 27 */ +#endif +#ifndef XFreeColormap +#define XFreeColormap \ + (tkIntXlibStubsPtr->xFreeColormap) /* 28 */ +#endif +#ifndef XFreeColors +#define XFreeColors \ + (tkIntXlibStubsPtr->xFreeColors) /* 29 */ +#endif +#ifndef XFreeModifiermap +#define XFreeModifiermap \ + (tkIntXlibStubsPtr->xFreeModifiermap) /* 30 */ +#endif +#ifndef XGetGeometry +#define XGetGeometry \ + (tkIntXlibStubsPtr->xGetGeometry) /* 31 */ +#endif +#ifndef XGetWindowProperty +#define XGetWindowProperty \ + (tkIntXlibStubsPtr->xGetWindowProperty) /* 32 */ +#endif +#ifndef XGrabKeyboard +#define XGrabKeyboard \ + (tkIntXlibStubsPtr->xGrabKeyboard) /* 33 */ +#endif +#ifndef XGrabPointer +#define XGrabPointer \ + (tkIntXlibStubsPtr->xGrabPointer) /* 34 */ +#endif +#ifndef XKeysymToKeycode +#define XKeysymToKeycode \ + (tkIntXlibStubsPtr->xKeysymToKeycode) /* 35 */ +#endif +#ifndef XMapWindow +#define XMapWindow \ + (tkIntXlibStubsPtr->xMapWindow) /* 36 */ +#endif +#ifndef XMoveResizeWindow +#define XMoveResizeWindow \ + (tkIntXlibStubsPtr->xMoveResizeWindow) /* 37 */ +#endif +#ifndef XMoveWindow +#define XMoveWindow \ + (tkIntXlibStubsPtr->xMoveWindow) /* 38 */ +#endif +#ifndef XQueryPointer +#define XQueryPointer \ + (tkIntXlibStubsPtr->xQueryPointer) /* 39 */ +#endif +#ifndef XRaiseWindow +#define XRaiseWindow \ + (tkIntXlibStubsPtr->xRaiseWindow) /* 40 */ +#endif +#ifndef XRefreshKeyboardMapping +#define XRefreshKeyboardMapping \ + (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 41 */ +#endif +#ifndef XResizeWindow +#define XResizeWindow \ + (tkIntXlibStubsPtr->xResizeWindow) /* 42 */ +#endif +#ifndef XSelectInput +#define XSelectInput \ + (tkIntXlibStubsPtr->xSelectInput) /* 43 */ +#endif +#ifndef XSendEvent +#define XSendEvent \ + (tkIntXlibStubsPtr->xSendEvent) /* 44 */ +#endif +#ifndef XSetIconName +#define XSetIconName \ + (tkIntXlibStubsPtr->xSetIconName) /* 45 */ +#endif +#ifndef XSetInputFocus +#define XSetInputFocus \ + (tkIntXlibStubsPtr->xSetInputFocus) /* 46 */ +#endif +#ifndef XSetSelectionOwner +#define XSetSelectionOwner \ + (tkIntXlibStubsPtr->xSetSelectionOwner) /* 47 */ +#endif +#ifndef XSetWindowBackground +#define XSetWindowBackground \ + (tkIntXlibStubsPtr->xSetWindowBackground) /* 48 */ +#endif +#ifndef XSetWindowBackgroundPixmap +#define XSetWindowBackgroundPixmap \ + (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 49 */ +#endif +#ifndef XSetWindowBorder +#define XSetWindowBorder \ + (tkIntXlibStubsPtr->xSetWindowBorder) /* 50 */ +#endif +#ifndef XSetWindowBorderPixmap +#define XSetWindowBorderPixmap \ + (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 51 */ +#endif +#ifndef XSetWindowBorderWidth +#define XSetWindowBorderWidth \ + (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 52 */ +#endif +#ifndef XSetWindowColormap +#define XSetWindowColormap \ + (tkIntXlibStubsPtr->xSetWindowColormap) /* 53 */ +#endif +#ifndef XUngrabKeyboard +#define XUngrabKeyboard \ + (tkIntXlibStubsPtr->xUngrabKeyboard) /* 54 */ +#endif +#ifndef XUngrabPointer +#define XUngrabPointer \ + (tkIntXlibStubsPtr->xUngrabPointer) /* 55 */ +#endif +#ifndef XUnmapWindow +#define XUnmapWindow \ + (tkIntXlibStubsPtr->xUnmapWindow) /* 56 */ +#endif +#ifndef TkPutImage +#define TkPutImage \ + (tkIntXlibStubsPtr->tkPutImage) /* 57 */ +#endif +#ifndef XParseColor +#define XParseColor \ + (tkIntXlibStubsPtr->xParseColor) /* 58 */ +#endif +#ifndef XCreateGC +#define XCreateGC \ + (tkIntXlibStubsPtr->xCreateGC) /* 59 */ +#endif +#ifndef XFreeGC +#define XFreeGC \ + (tkIntXlibStubsPtr->xFreeGC) /* 60 */ +#endif +#ifndef XInternAtom +#define XInternAtom \ + (tkIntXlibStubsPtr->xInternAtom) /* 61 */ +#endif +#ifndef XSetBackground +#define XSetBackground \ + (tkIntXlibStubsPtr->xSetBackground) /* 62 */ +#endif +#ifndef XSetForeground +#define XSetForeground \ + (tkIntXlibStubsPtr->xSetForeground) /* 63 */ +#endif +#ifndef XSetClipMask +#define XSetClipMask \ + (tkIntXlibStubsPtr->xSetClipMask) /* 64 */ +#endif +#ifndef XSetClipOrigin +#define XSetClipOrigin \ + (tkIntXlibStubsPtr->xSetClipOrigin) /* 65 */ +#endif +#ifndef XSetTSOrigin +#define XSetTSOrigin \ + (tkIntXlibStubsPtr->xSetTSOrigin) /* 66 */ +#endif +#ifndef XChangeGC +#define XChangeGC \ + (tkIntXlibStubsPtr->xChangeGC) /* 67 */ +#endif +#ifndef XSetFont +#define XSetFont \ + (tkIntXlibStubsPtr->xSetFont) /* 68 */ +#endif +#ifndef XSetArcMode +#define XSetArcMode \ + (tkIntXlibStubsPtr->xSetArcMode) /* 69 */ +#endif +#ifndef XSetStipple +#define XSetStipple \ + (tkIntXlibStubsPtr->xSetStipple) /* 70 */ +#endif +#ifndef XSetFillRule +#define XSetFillRule \ + (tkIntXlibStubsPtr->xSetFillRule) /* 71 */ +#endif +#ifndef XSetFillStyle +#define XSetFillStyle \ + (tkIntXlibStubsPtr->xSetFillStyle) /* 72 */ +#endif +#ifndef XSetFunction +#define XSetFunction \ + (tkIntXlibStubsPtr->xSetFunction) /* 73 */ +#endif +#ifndef XSetLineAttributes +#define XSetLineAttributes \ + (tkIntXlibStubsPtr->xSetLineAttributes) /* 74 */ +#endif +#ifndef _XInitImageFuncPtrs +#define _XInitImageFuncPtrs \ + (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 75 */ +#endif +#ifndef XCreateIC +#define XCreateIC \ + (tkIntXlibStubsPtr->xCreateIC) /* 76 */ +#endif +#ifndef XGetVisualInfo +#define XGetVisualInfo \ + (tkIntXlibStubsPtr->xGetVisualInfo) /* 77 */ +#endif +#ifndef XSetWMClientMachine +#define XSetWMClientMachine \ + (tkIntXlibStubsPtr->xSetWMClientMachine) /* 78 */ +#endif +#ifndef XStringListToTextProperty +#define XStringListToTextProperty \ + (tkIntXlibStubsPtr->xStringListToTextProperty) /* 79 */ +#endif +#ifndef XDrawSegments +#define XDrawSegments \ + (tkIntXlibStubsPtr->xDrawSegments) /* 80 */ +#endif +#ifndef XForceScreenSaver +#define XForceScreenSaver \ + (tkIntXlibStubsPtr->xForceScreenSaver) /* 81 */ +#endif +#ifndef XDrawLine +#define XDrawLine \ + (tkIntXlibStubsPtr->xDrawLine) /* 82 */ +#endif +#ifndef XFillRectangle +#define XFillRectangle \ + (tkIntXlibStubsPtr->xFillRectangle) /* 83 */ +#endif +#ifndef XClearWindow +#define XClearWindow \ + (tkIntXlibStubsPtr->xClearWindow) /* 84 */ +#endif +#ifndef XDrawPoint +#define XDrawPoint \ + (tkIntXlibStubsPtr->xDrawPoint) /* 85 */ +#endif +#ifndef XDrawPoints +#define XDrawPoints \ + (tkIntXlibStubsPtr->xDrawPoints) /* 86 */ +#endif +#ifndef XWarpPointer +#define XWarpPointer \ + (tkIntXlibStubsPtr->xWarpPointer) /* 87 */ +#endif +#ifndef XQueryColor +#define XQueryColor \ + (tkIntXlibStubsPtr->xQueryColor) /* 88 */ +#endif +#ifndef XQueryColors +#define XQueryColors \ + (tkIntXlibStubsPtr->xQueryColors) /* 89 */ +#endif +#ifndef XQueryTree +#define XQueryTree \ + (tkIntXlibStubsPtr->xQueryTree) /* 90 */ +#endif +#ifndef XSync +#define XSync \ + (tkIntXlibStubsPtr->xSync) /* 91 */ +#endif +#endif /* AQUA */ + +#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#if defined(__WIN32__) + +#undef XFlush +#undef XGrabServer +#undef XUngrabServer +#undef XFree +#undef XNoOp +#undef XSynchronize +#undef XSync +#undef XVisualIDFromVisual + +#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) +/* + * The following stubs implement various calls that don't do anything + * under Windows. In win32 tclsh 8.4 and 8.5 holds: + * tkIntStubsPtr->tkBindDeadWindow != NULL + * Then the following macros don't do anything. But when running Tcl win32 + * version 8.6 or Cygwin (8.4, 8.5 or 8.6) then the functions are available in + * the stub table. The real function from the stub table will be called, + * even though it might be doing nothing. + */ + +#define XFlush(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xFlush(display)) +#define XGrabServer(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xGrabServer(display)) +#define XUngrabServer(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xUngrabServer(display)) + +/* + * The following functions are implemented as macros under Windows. + */ + + +#define XFree(data) (tkIntStubsPtr->tkBindDeadWindow? ((data)? (ckfree((char *) (data)), 0): 0): tkIntXlibStubsPtr->xFree(data)) +#define XNoOp(display) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xNoOp(display)) +#define XSynchronize(display, bool) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xSynchronize(display, bool)) +#define XSync(display, bool) (tkIntStubsPtr->tkBindDeadWindow? 0: tkIntXlibStubsPtr->xSync(display, bool)) +#define XVisualIDFromVisual(visual) (tkIntStubsPtr->tkBindDeadWindow? ((visual)->visualid): tkIntXlibStubsPtr->xVisualIDFromVisual(visual)) + +#else /* !USE_TK_STUBS */ +/* + * The following stubs implement various calls that don't do anything + * under Windows. + */ + +#define XFlush(display) +#define XGrabServer(display) +#define XUngrabServer(display) + +/* + * The following functions are implemented as macros under Windows. + */ + +#define XFree(data) {if ((data) != NULL) ckfree((char *) (data));} +#define XNoOp(display) {display->request++;} +#define XSynchronize(display, bool) {display->request++;} +#define XSync(display, bool) {display->request++;} +#define XVisualIDFromVisual(visual) (visual->visualid) + +#endif /* !USE_TK_STUBS */ + +#endif /* __WIN32__ */ + +#endif /* _TKINTXLIBDECLS */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tcl.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tcl.h new file mode 100644 index 00000000..5fde9dc6 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tcl.h @@ -0,0 +1,2455 @@ +/* + * tcl.h -- + * + * This header file describes the externally-visible facilities of the + * Tcl interpreter. + * + * Copyright (c) 1987-1994 The Regents of the University of California. + * Copyright (c) 1993-1996 Lucent Technologies. + * Copyright (c) 1994-1998 Sun Microsystems, Inc. + * Copyright (c) 1998-2000 by Scriptics Corporation. + * Copyright (c) 2002 by Kevin B. Kenny. All rights reserved. + * + * See the file "license.terms" for information on usage and redistribution of + * this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TCL +#define _TCL + +/* + * For C++ compilers, use extern "C" + */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * The following defines are used to indicate the various release levels. + */ + +#define TCL_ALPHA_RELEASE 0 +#define TCL_BETA_RELEASE 1 +#define TCL_FINAL_RELEASE 2 + +/* + * When version numbers change here, must also go into the following files and + * update the version numbers: + * + * library/init.tcl (1 LOC patch) + * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) + * win/configure.in (as above) + * win/tcl.m4 (not patchlevel) + * win/makefile.bc (not patchlevel) 2 LOC + * README (sections 0 and 2, with and without separator) + * macosx/Tcl.pbproj/project.pbxproj (not patchlevel) 1 LOC + * macosx/Tcl.pbproj/default.pbxuser (not patchlevel) 1 LOC + * macosx/Tcl.xcode/project.pbxproj (not patchlevel) 2 LOC + * macosx/Tcl.xcode/default.pbxuser (not patchlevel) 1 LOC + * macosx/Tcl-Common.xcconfig (not patchlevel) 1 LOC + * win/README (not patchlevel) (sections 0 and 2) + * unix/tcl.spec (1 LOC patch) + * tools/tcl.hpj.in (not patchlevel, for windows installer) + * tools/tcl.wse.in (for windows installer) + * tools/tclSplash.bmp (not patchlevel) + */ + +#define TCL_MAJOR_VERSION 8 +#define TCL_MINOR_VERSION 5 +#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE +#define TCL_RELEASE_SERIAL 13 + +#define TCL_VERSION "8.5" +#define TCL_PATCH_LEVEL "8.5.13" + +/* + * The following definitions set up the proper options for Windows compilers. + * We use this method because there is no autoconf equivalent. + */ + +#ifndef __WIN32__ +# if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined(__BORLANDC__) || (defined(__WATCOMC__) && defined(__WINDOWS_386__)) +# define __WIN32__ +# ifndef WIN32 +# define WIN32 +# endif +# ifndef _WIN32 +# define _WIN32 +# endif +# endif +#endif + +/* + * STRICT: See MSDN Article Q83456 + */ + +#ifdef __WIN32__ +# ifndef STRICT +# define STRICT +# endif +#endif /* __WIN32__ */ + +/* + * Utility macros: STRINGIFY takes an argument and wraps it in "" (double + * quotation marks), JOIN joins two arguments. + */ + +#ifndef STRINGIFY +# define STRINGIFY(x) STRINGIFY1(x) +# define STRINGIFY1(x) #x +#endif +#ifndef JOIN +# define JOIN(a,b) JOIN1(a,b) +# define JOIN1(a,b) a##b +#endif + +/* + * A special definition used to allow this header file to be included from + * windows resource files so that they can obtain version information. + * RC_INVOKED is defined by default by the windows RC tool. + * + * Resource compilers don't like all the C stuff, like typedefs and function + * declarations, that occur below, so block them out. + */ + +#ifndef RC_INVOKED + +/* + * Special macro to define mutexes, that doesn't do anything if we are not + * using threads. + */ + +#ifdef TCL_THREADS +#define TCL_DECLARE_MUTEX(name) static Tcl_Mutex name; +#else +#define TCL_DECLARE_MUTEX(name) +#endif + +/* + * Tcl's public routine Tcl_FSSeek() uses the values SEEK_SET, SEEK_CUR, and + * SEEK_END, all #define'd by stdio.h . + * + * Also, many extensions need stdio.h, and they've grown accustomed to tcl.h + * providing it for them rather than #include-ing it themselves as they + * should, so also for their sake, we keep the #include to be consistent with + * prior Tcl releases. + */ + +#include + +/* + * Support for functions with a variable number of arguments. + * + * The following TCL_VARARGS* macros are to support old extensions + * written for older versions of Tcl where the macros permitted + * support for the varargs.h system as well as stdarg.h . + * + * New code should just directly be written to use stdarg.h conventions. + */ + +#include +#ifndef TCL_NO_DEPRECATED +# define TCL_VARARGS(type, name) (type name, ...) +# define TCL_VARARGS_DEF(type, name) (type name, ...) +# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name) +#endif + +/* + * Macros used to declare a function to be exported by a DLL. Used by Windows, + * maps to no-op declarations on non-Windows systems. The default build on + * windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to be + * nonempty. To build a static library, the macro STATIC_BUILD should be + * defined. + * + * Note: when building static but linking dynamically to MSVCRT we must still + * correctly decorate the C library imported function. Use CRTIMPORT + * for this purpose. _DLL is defined by the compiler when linking to + * MSVCRT. + */ + +#if (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550) || defined(__LCC__) || defined(__WATCOMC__) || (defined(__GNUC__) && defined(__declspec)))) +# define HAVE_DECLSPEC 1 +# ifdef STATIC_BUILD +# define DLLIMPORT +# define DLLEXPORT +# ifdef _DLL +# define CRTIMPORT __declspec(dllimport) +# else +# define CRTIMPORT +# endif +# else +# define DLLIMPORT __declspec(dllimport) +# define DLLEXPORT __declspec(dllexport) +# define CRTIMPORT __declspec(dllimport) +# endif +#else +# define DLLIMPORT +# if defined(__GNUC__) && __GNUC__ > 3 +# define DLLEXPORT __attribute__ ((visibility("default"))) +# else +# define DLLEXPORT +# endif +# define CRTIMPORT +#endif + +/* + * These macros are used to control whether functions are being declared for + * import or export. If a function is being declared while it is being built + * to be included in a shared library, then it should have the DLLEXPORT + * storage class. If is being declared for use by a module that is going to + * link against the shared library, then it should have the DLLIMPORT storage + * class. If the symbol is beind declared for a static build or for use from a + * stub library, then the storage class should be empty. + * + * The convention is that a macro called BUILD_xxxx, where xxxx is the name of + * a library we are building, is set on the compile line for sources that are + * to be placed in the library. When this macro is set, the storage class will + * be set to DLLEXPORT. At the end of the header file, the storage class will + * be reset to DLLIMPORT. + */ + +#undef TCL_STORAGE_CLASS +#ifdef BUILD_tcl +# define TCL_STORAGE_CLASS DLLEXPORT +#else +# ifdef USE_TCL_STUBS +# define TCL_STORAGE_CLASS +# else +# define TCL_STORAGE_CLASS DLLIMPORT +# endif +#endif + +/* + * Definitions that allow this header file to be used either with or without + * ANSI C features like function prototypes. + */ + +#undef _ANSI_ARGS_ +#undef CONST +#ifndef INLINE +# define INLINE +#endif + +#ifndef NO_CONST +# define CONST const +#else +# define CONST +#endif + +#ifndef NO_PROTOTYPES +# define _ANSI_ARGS_(x) x +#else +# define _ANSI_ARGS_(x) () +#endif + +#ifdef USE_NON_CONST +# ifdef USE_COMPAT_CONST +# error define at most one of USE_NON_CONST and USE_COMPAT_CONST +# endif +# define CONST84 +# define CONST84_RETURN +#else +# ifdef USE_COMPAT_CONST +# define CONST84 +# define CONST84_RETURN CONST +# else +# define CONST84 CONST +# define CONST84_RETURN CONST +# endif +#endif + +/* + * Make sure EXTERN isn't defined elsewhere. + */ + +#ifdef EXTERN +# undef EXTERN +#endif /* EXTERN */ + +#ifdef __cplusplus +# define EXTERN extern "C" TCL_STORAGE_CLASS +#else +# define EXTERN extern TCL_STORAGE_CLASS +#endif + +/* + * The following code is copied from winnt.h. If we don't replicate it here, + * then can't be included after tcl.h, since tcl.h also defines + * VOID. This block is skipped under Cygwin and Mingw. + */ + +#if defined(__WIN32__) && !defined(HAVE_WINNT_IGNORE_VOID) +#ifndef VOID +#define VOID void +typedef char CHAR; +typedef short SHORT; +typedef long LONG; +#endif +#endif /* __WIN32__ && !HAVE_WINNT_IGNORE_VOID */ + +/* + * Macro to use instead of "void" for arguments that must have type "void *" + * in ANSI C; maps them to type "char *" in non-ANSI systems. + */ + +#ifndef NO_VOID +#define VOID void +#else +#define VOID char +#endif + +/* + * Miscellaneous declarations. + */ + +#ifndef _CLIENTDATA +# ifndef NO_VOID + typedef void *ClientData; +# else + typedef int *ClientData; +# endif +# define _CLIENTDATA +#endif + +/* + * Darwin specific configure overrides (to support fat compiles, where + * configure runs only once for multiple architectures): + */ + +#ifdef __APPLE__ +# ifdef __LP64__ +# undef TCL_WIDE_INT_TYPE +# define TCL_WIDE_INT_IS_LONG 1 +# define TCL_CFG_DO64BIT 1 +# else /* !__LP64__ */ +# define TCL_WIDE_INT_TYPE long long +# undef TCL_WIDE_INT_IS_LONG +# undef TCL_CFG_DO64BIT +# endif /* __LP64__ */ +# undef HAVE_STRUCT_STAT64 +#endif /* __APPLE__ */ + +/* + * Define Tcl_WideInt to be a type that is (at least) 64-bits wide, and define + * Tcl_WideUInt to be the unsigned variant of that type (assuming that where + * we have one, we can have the other.) + * + * Also defines the following macros: + * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on a real + * 64-bit system.) + * Tcl_WideAsLong - forgetful converter from wideInt to long. + * Tcl_LongAsWide - sign-extending converter from long to wideInt. + * Tcl_WideAsDouble - converter from wideInt to double. + * Tcl_DoubleAsWide - converter from double to wideInt. + * + * The following invariant should hold for any long value 'longVal': + * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal)) + * + * Note on converting between Tcl_WideInt and strings. This implementation (in + * tclObj.c) depends on the function + * sprintf(...,"%" TCL_LL_MODIFIER "d",...). + */ + +#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG) +# if defined(__WIN32__) +# define TCL_WIDE_INT_TYPE __int64 +# ifdef __BORLANDC__ +# define TCL_LL_MODIFIER "L" +# else /* __BORLANDC__ */ +# define TCL_LL_MODIFIER "I64" +# endif /* __BORLANDC__ */ +# elif defined(__GNUC__) +# define TCL_WIDE_INT_TYPE long long +# define TCL_LL_MODIFIER "ll" +# else /* ! __WIN32__ && ! __GNUC__ */ +/* + * Don't know what platform it is and configure hasn't discovered what is + * going on for us. Try to guess... + */ +# ifdef NO_LIMITS_H +# error please define either TCL_WIDE_INT_TYPE or TCL_WIDE_INT_IS_LONG +# else /* !NO_LIMITS_H */ +# include +# if (INT_MAX < LONG_MAX) +# define TCL_WIDE_INT_IS_LONG 1 +# else +# define TCL_WIDE_INT_TYPE long long +# endif +# endif /* NO_LIMITS_H */ +# endif /* __WIN32__ */ +#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */ +#ifdef TCL_WIDE_INT_IS_LONG +# undef TCL_WIDE_INT_TYPE +# define TCL_WIDE_INT_TYPE long +#endif /* TCL_WIDE_INT_IS_LONG */ + +typedef TCL_WIDE_INT_TYPE Tcl_WideInt; +typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt; + +#ifdef TCL_WIDE_INT_IS_LONG +# define Tcl_WideAsLong(val) ((long)(val)) +# define Tcl_LongAsWide(val) ((long)(val)) +# define Tcl_WideAsDouble(val) ((double)((long)(val))) +# define Tcl_DoubleAsWide(val) ((long)((double)(val))) +# ifndef TCL_LL_MODIFIER +# define TCL_LL_MODIFIER "l" +# endif /* !TCL_LL_MODIFIER */ +#else /* TCL_WIDE_INT_IS_LONG */ +/* + * The next short section of defines are only done when not running on Windows + * or some other strange platform. + */ +# ifndef TCL_LL_MODIFIER +# define TCL_LL_MODIFIER "ll" +# endif /* !TCL_LL_MODIFIER */ +# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val))) +# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val))) +# define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val))) +# define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val))) +#endif /* TCL_WIDE_INT_IS_LONG */ + +#if defined(__WIN32__) +# ifdef __BORLANDC__ + typedef struct stati64 Tcl_StatBuf; +# elif defined(_WIN64) + typedef struct __stat64 Tcl_StatBuf; +# elif (defined(_MSC_VER) && (_MSC_VER < 1400)) || defined(_USE_32BIT_TIME_T) + typedef struct _stati64 Tcl_StatBuf; +# else + typedef struct _stat32i64 Tcl_StatBuf; +# endif /* _MSC_VER < 1400 */ +#elif defined(__CYGWIN__) + typedef struct _stat32i64 { + dev_t st_dev; + unsigned short st_ino; + unsigned short st_mode; + short st_nlink; + short st_uid; + short st_gid; + /* Here is a 2-byte gap */ + dev_t st_rdev; + /* Here is a 4-byte gap */ + long long st_size; + struct {long tv_sec;} st_atim; + struct {long tv_sec;} st_mtim; + struct {long tv_sec;} st_ctim; + /* Here is a 4-byte gap */ + } Tcl_StatBuf; +#elif defined(HAVE_STRUCT_STAT64) && !defined(__APPLE__) + typedef struct stat64 Tcl_StatBuf; +#else + typedef struct stat Tcl_StatBuf; +#endif + +/* + * Data structures defined opaquely in this module. The definitions below just + * provide dummy types. A few fields are made visible in Tcl_Interp + * structures, namely those used for returning a string result from commands. + * Direct access to the result field is discouraged in Tcl 8.0. The + * interpreter result is either an object or a string, and the two values are + * kept consistent unless some C code sets interp->result directly. + * Programmers should use either the function Tcl_GetObjResult() or + * Tcl_GetStringResult() to read the interpreter's result. See the SetResult + * man page for details. + * + * Note: any change to the Tcl_Interp definition below must be mirrored in the + * "real" definition in tclInt.h. + * + * Note: Tcl_ObjCmdProc functions do not directly set result and freeProc. + * Instead, they set a Tcl_Obj member in the "real" structure that can be + * accessed with Tcl_GetObjResult() and Tcl_SetObjResult(). + */ + +typedef struct Tcl_Interp { + char *result; /* If the last command returned a string + * result, this points to it. */ + void (*freeProc) _ANSI_ARGS_((char *blockPtr)); + /* Zero means the string result is statically + * allocated. TCL_DYNAMIC means it was + * allocated with ckalloc and should be freed + * with ckfree. Other values give the address + * of function to invoke to free the result. + * Tcl_Eval must free it before executing next + * command. */ + int errorLine; /* When TCL_ERROR is returned, this gives the + * line number within the command where the + * error occurred (1 if first line). */ +} Tcl_Interp; + +typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; +typedef struct Tcl_Channel_ *Tcl_Channel; +typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; +typedef struct Tcl_Command_ *Tcl_Command; +typedef struct Tcl_Condition_ *Tcl_Condition; +typedef struct Tcl_Dict_ *Tcl_Dict; +typedef struct Tcl_EncodingState_ *Tcl_EncodingState; +typedef struct Tcl_Encoding_ *Tcl_Encoding; +typedef struct Tcl_Event Tcl_Event; +typedef struct Tcl_InterpState_ *Tcl_InterpState; +typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; +typedef struct Tcl_Mutex_ *Tcl_Mutex; +typedef struct Tcl_Pid_ *Tcl_Pid; +typedef struct Tcl_RegExp_ *Tcl_RegExp; +typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey; +typedef struct Tcl_ThreadId_ *Tcl_ThreadId; +typedef struct Tcl_TimerToken_ *Tcl_TimerToken; +typedef struct Tcl_Trace_ *Tcl_Trace; +typedef struct Tcl_Var_ *Tcl_Var; + +/* + * Definition of the interface to functions implementing threads. A function + * following this definition is given to each call of 'Tcl_CreateThread' and + * will be called as the main fuction of the new thread created by that call. + */ + +#if defined __WIN32__ +typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); +#else +typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); +#endif + +/* + * Threading function return types used for abstracting away platform + * differences when writing a Tcl_ThreadCreateProc. See the NewThread function + * in generic/tclThreadTest.c for it's usage. + */ + +#if defined __WIN32__ +# define Tcl_ThreadCreateType unsigned __stdcall +# define TCL_THREAD_CREATE_RETURN return 0 +#else +# define Tcl_ThreadCreateType void +# define TCL_THREAD_CREATE_RETURN +#endif + +/* + * Definition of values for default stacksize and the possible flags to be + * given to Tcl_CreateThread. + */ + +#define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack. */ +#define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default + * behaviour. */ +#define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable. */ + +/* + * Flag values passed to Tcl_StringCaseMatch. + */ + +#define TCL_MATCH_NOCASE (1<<0) + +/* + * Flag values passed to Tcl_GetRegExpFromObj. + */ + +#define TCL_REG_BASIC 000000 /* BREs (convenience). */ +#define TCL_REG_EXTENDED 000001 /* EREs. */ +#define TCL_REG_ADVF 000002 /* Advanced features in EREs. */ +#define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs). */ +#define TCL_REG_QUOTE 000004 /* No special characters, none. */ +#define TCL_REG_NOCASE 000010 /* Ignore case. */ +#define TCL_REG_NOSUB 000020 /* Don't care about subexpressions. */ +#define TCL_REG_EXPANDED 000040 /* Expanded format, white space & + * comments. */ +#define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */ +#define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ before. */ +#define TCL_REG_NEWLINE 000300 /* Newlines are line terminators. */ +#define TCL_REG_CANMATCH 001000 /* Report details on partial/limited + * matches. */ + +/* + * Flags values passed to Tcl_RegExpExecObj. + */ + +#define TCL_REG_NOTBOL 0001 /* Beginning of string does not match ^. */ +#define TCL_REG_NOTEOL 0002 /* End of string does not match $. */ + +/* + * Structures filled in by Tcl_RegExpInfo. Note that all offset values are + * relative to the start of the match string, not the beginning of the entire + * string. + */ + +typedef struct Tcl_RegExpIndices { + long start; /* Character offset of first character in + * match. */ + long end; /* Character offset of first character after + * the match. */ +} Tcl_RegExpIndices; + +typedef struct Tcl_RegExpInfo { + int nsubs; /* Number of subexpressions in the compiled + * expression. */ + Tcl_RegExpIndices *matches; /* Array of nsubs match offset pairs. */ + long extendStart; /* The offset at which a subsequent match + * might begin. */ + long reserved; /* Reserved for later use. */ +} Tcl_RegExpInfo; + +/* + * Picky compilers complain if this typdef doesn't appear before the struct's + * reference in tclDecls.h. + */ + +typedef Tcl_StatBuf *Tcl_Stat_; +typedef struct stat *Tcl_OldStat_; + +/* + * When a TCL command returns, the interpreter contains a result from the + * command. Programmers are strongly encouraged to use one of the functions + * Tcl_GetObjResult() or Tcl_GetStringResult() to read the interpreter's + * result. See the SetResult man page for details. Besides this result, the + * command function returns an integer code, which is one of the following: + * + * TCL_OK Command completed normally; the interpreter's result + * contains the command's result. + * TCL_ERROR The command couldn't be completed successfully; the + * interpreter's result describes what went wrong. + * TCL_RETURN The command requests that the current function return; + * the interpreter's result contains the function's + * return value. + * TCL_BREAK The command requests that the innermost loop be + * exited; the interpreter's result is meaningless. + * TCL_CONTINUE Go on to the next iteration of the current loop; the + * interpreter's result is meaningless. + */ + +#define TCL_OK 0 +#define TCL_ERROR 1 +#define TCL_RETURN 2 +#define TCL_BREAK 3 +#define TCL_CONTINUE 4 + +#define TCL_RESULT_SIZE 200 + +/* + * Flags to control what substitutions are performed by Tcl_SubstObj(): + */ + +#define TCL_SUBST_COMMANDS 001 +#define TCL_SUBST_VARIABLES 002 +#define TCL_SUBST_BACKSLASHES 004 +#define TCL_SUBST_ALL 007 + +/* + * Argument descriptors for math function callbacks in expressions: + */ + +typedef enum { + TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT +} Tcl_ValueType; + +typedef struct Tcl_Value { + Tcl_ValueType type; /* Indicates intValue or doubleValue is valid, + * or both. */ + long intValue; /* Integer value. */ + double doubleValue; /* Double-precision floating value. */ + Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */ +} Tcl_Value; + +/* + * Forward declaration of Tcl_Obj to prevent an error when the forward + * reference to Tcl_Obj is encountered in the function types declared below. + */ + +struct Tcl_Obj; + +/* + * Function types defined by Tcl: + */ + +typedef int (Tcl_AppInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); +typedef int (Tcl_AsyncProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int code)); +typedef void (Tcl_ChannelProc) _ANSI_ARGS_((ClientData clientData, int mask)); +typedef void (Tcl_CloseProc) _ANSI_ARGS_((ClientData data)); +typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData)); +typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, CONST84 char *argv[])); +typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc, + ClientData cmdClientData, int argc, CONST84 char *argv[])); +typedef int (Tcl_CmdObjTraceProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int level, CONST char *command, + Tcl_Command commandInfo, int objc, struct Tcl_Obj * CONST * objv)); +typedef void (Tcl_CmdObjTraceDeleteProc) _ANSI_ARGS_((ClientData clientData)); +typedef void (Tcl_DupInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *srcPtr, + struct Tcl_Obj *dupPtr)); +typedef int (Tcl_EncodingConvertProc)_ANSI_ARGS_((ClientData clientData, + CONST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, + char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, + int *dstCharsPtr)); +typedef void (Tcl_EncodingFreeProc)_ANSI_ARGS_((ClientData clientData)); +typedef int (Tcl_EventProc) _ANSI_ARGS_((Tcl_Event *evPtr, int flags)); +typedef void (Tcl_EventCheckProc) _ANSI_ARGS_((ClientData clientData, + int flags)); +typedef int (Tcl_EventDeleteProc) _ANSI_ARGS_((Tcl_Event *evPtr, + ClientData clientData)); +typedef void (Tcl_EventSetupProc) _ANSI_ARGS_((ClientData clientData, + int flags)); +typedef void (Tcl_ExitProc) _ANSI_ARGS_((ClientData clientData)); +typedef void (Tcl_FileProc) _ANSI_ARGS_((ClientData clientData, int mask)); +typedef void (Tcl_FileFreeProc) _ANSI_ARGS_((ClientData clientData)); +typedef void (Tcl_FreeInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); +typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr)); +typedef void (Tcl_IdleProc) _ANSI_ARGS_((ClientData clientData)); +typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp)); +typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr)); +typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_((ClientData clientData)); +typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST * objv)); +typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); +typedef int (Tcl_PackageUnloadProc) _ANSI_ARGS_((Tcl_Interp *interp, + int flags)); +typedef void (Tcl_PanicProc) _ANSI_ARGS_((CONST char *format, ...)); +typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData, + Tcl_Channel chan, char *address, int port)); +typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData)); +typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp, + struct Tcl_Obj *objPtr)); +typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); +typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, CONST84 char *part1, CONST84 char *part2, + int flags)); +typedef void (Tcl_CommandTraceProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, CONST char *oldName, CONST char *newName, + int flags)); +typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask, + Tcl_FileProc *proc, ClientData clientData)); +typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd)); +typedef void (Tcl_AlertNotifierProc) _ANSI_ARGS_((ClientData clientData)); +typedef void (Tcl_ServiceModeHookProc) _ANSI_ARGS_((int mode)); +typedef ClientData (Tcl_InitNotifierProc) _ANSI_ARGS_((VOID)); +typedef void (Tcl_FinalizeNotifierProc) _ANSI_ARGS_((ClientData clientData)); +typedef void (Tcl_MainLoopProc) _ANSI_ARGS_((void)); + +/* + * The following structure represents a type of object, which is a particular + * internal representation for an object plus a set of functions that provide + * standard operations on objects of that type. + */ + +typedef struct Tcl_ObjType { + char *name; /* Name of the type, e.g. "int". */ + Tcl_FreeInternalRepProc *freeIntRepProc; + /* Called to free any storage for the type's + * internal rep. NULL if the internal rep does + * not need freeing. */ + Tcl_DupInternalRepProc *dupIntRepProc; + /* Called to create a new object as a copy of + * an existing object. */ + Tcl_UpdateStringProc *updateStringProc; + /* Called to update the string rep from the + * type's internal representation. */ + Tcl_SetFromAnyProc *setFromAnyProc; + /* Called to convert the object's internal rep + * to this type. Frees the internal rep of the + * old type. Returns TCL_ERROR on failure. */ +} Tcl_ObjType; + +/* + * One of the following structures exists for each object in the Tcl system. + * An object stores a value as either a string, some internal representation, + * or both. + */ + +typedef struct Tcl_Obj { + int refCount; /* When 0 the object will be freed. */ + char *bytes; /* This points to the first byte of the + * object's string representation. The array + * must be followed by a null byte (i.e., at + * offset length) but may also contain + * embedded null characters. The array's + * storage is allocated by ckalloc. NULL means + * the string rep is invalid and must be + * regenerated from the internal rep. Clients + * should use Tcl_GetStringFromObj or + * Tcl_GetString to get a pointer to the byte + * array as a readonly value. */ + int length; /* The number of bytes at *bytes, not + * including the terminating null. */ + Tcl_ObjType *typePtr; /* Denotes the object's type. Always + * corresponds to the type of the object's + * internal rep. NULL indicates the object has + * no internal rep (has no type). */ + union { /* The internal representation: */ + long longValue; /* - an long integer value. */ + double doubleValue; /* - a double-precision floating value. */ + VOID *otherValuePtr; /* - another, type-specific value. */ + Tcl_WideInt wideValue; /* - a long long value. */ + struct { /* - internal rep as two pointers. */ + VOID *ptr1; + VOID *ptr2; + } twoPtrValue; + struct { /* - internal rep as a wide int, tightly + * packed fields. */ + VOID *ptr; /* Pointer to digits. */ + unsigned long value;/* Alloc, used, and signum packed into a + * single word. */ + } ptrAndLongRep; + } internalRep; +} Tcl_Obj; + +/* + * Macros to increment and decrement a Tcl_Obj's reference count, and to test + * whether an object is shared (i.e. has reference count > 1). Note: clients + * should use Tcl_DecrRefCount() when they are finished using an object, and + * should never call TclFreeObj() directly. TclFreeObj() is only defined and + * made public in tcl.h to support Tcl_DecrRefCount's macro definition. + */ + +void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); +void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); +int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr)); + +/* + * The following structure contains the state needed by Tcl_SaveResult. No-one + * outside of Tcl should access any of these fields. This structure is + * typically allocated on the stack. + */ + +typedef struct Tcl_SavedResult { + char *result; + Tcl_FreeProc *freeProc; + Tcl_Obj *objResultPtr; + char *appendResult; + int appendAvl; + int appendUsed; + char resultSpace[TCL_RESULT_SIZE+1]; +} Tcl_SavedResult; + +/* + * The following definitions support Tcl's namespace facility. Note: the first + * five fields must match exactly the fields in a Namespace structure (see + * tclInt.h). + */ + +typedef struct Tcl_Namespace { + char *name; /* The namespace's name within its parent + * namespace. This contains no ::'s. The name + * of the global namespace is "" although "::" + * is an synonym. */ + char *fullName; /* The namespace's fully qualified name. This + * starts with ::. */ + ClientData clientData; /* Arbitrary value associated with this + * namespace. */ + Tcl_NamespaceDeleteProc *deleteProc; + /* Function invoked when deleting the + * namespace to, e.g., free clientData. */ + struct Tcl_Namespace *parentPtr; + /* Points to the namespace that contains this + * one. NULL if this is the global + * namespace. */ +} Tcl_Namespace; + +/* + * The following structure represents a call frame, or activation record. A + * call frame defines a naming context for a procedure call: its local scope + * (for local variables) and its namespace scope (used for non-local + * variables; often the global :: namespace). A call frame can also define the + * naming context for a namespace eval or namespace inscope command: the + * namespace in which the command's code should execute. The Tcl_CallFrame + * structures exist only while procedures or namespace eval/inscope's are + * being executed, and provide a Tcl call stack. + * + * A call frame is initialized and pushed using Tcl_PushCallFrame and popped + * using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be provided by the + * Tcl_PushCallFrame caller, and callers typically allocate them on the C call + * stack for efficiency. For this reason, Tcl_CallFrame is defined as a + * structure and not as an opaque token. However, most Tcl_CallFrame fields + * are hidden since applications should not access them directly; others are + * declared as "dummyX". + * + * WARNING!! The structure definition must be kept consistent with the + * CallFrame structure in tclInt.h. If you change one, change the other. + */ + +typedef struct Tcl_CallFrame { + Tcl_Namespace *nsPtr; + int dummy1; + int dummy2; + VOID *dummy3; + VOID *dummy4; + VOID *dummy5; + int dummy6; + VOID *dummy7; + VOID *dummy8; + int dummy9; + VOID *dummy10; + VOID *dummy11; + VOID *dummy12; + VOID *dummy13; +} Tcl_CallFrame; + +/* + * Information about commands that is returned by Tcl_GetCommandInfo and + * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based command + * function while proc is a traditional Tcl argc/argv string-based function. + * Tcl_CreateObjCommand and Tcl_CreateCommand ensure that both objProc and + * proc are non-NULL and can be called to execute the command. However, it may + * be faster to call one instead of the other. The member isNativeObjectProc + * is set to 1 if an object-based function was registered by + * Tcl_CreateObjCommand, and to 0 if a string-based function was registered by + * Tcl_CreateCommand. The other function is typically set to a compatibility + * wrapper that does string-to-object or object-to-string argument conversions + * then calls the other function. + */ + +typedef struct Tcl_CmdInfo { + int isNativeObjectProc; /* 1 if objProc was registered by a call to + * Tcl_CreateObjCommand; 0 otherwise. + * Tcl_SetCmdInfo does not modify this + * field. */ + Tcl_ObjCmdProc *objProc; /* Command's object-based function. */ + ClientData objClientData; /* ClientData for object proc. */ + Tcl_CmdProc *proc; /* Command's string-based function. */ + ClientData clientData; /* ClientData for string proc. */ + Tcl_CmdDeleteProc *deleteProc; + /* Function to call when command is + * deleted. */ + ClientData deleteData; /* Value to pass to deleteProc (usually the + * same as clientData). */ + Tcl_Namespace *namespacePtr;/* Points to the namespace that contains this + * command. Note that Tcl_SetCmdInfo will not + * change a command's namespace; use + * TclRenameCommand or Tcl_Eval (of 'rename') + * to do that. */ +} Tcl_CmdInfo; + +/* + * The structure defined below is used to hold dynamic strings. The only + * fields that clients should use are string and length, accessible via the + * macros Tcl_DStringValue and Tcl_DStringLength. + */ + +#define TCL_DSTRING_STATIC_SIZE 200 +typedef struct Tcl_DString { + char *string; /* Points to beginning of string: either + * staticSpace below or a malloced array. */ + int length; /* Number of non-NULL characters in the + * string. */ + int spaceAvl; /* Total number of bytes available for the + * string and its terminating NULL char. */ + char staticSpace[TCL_DSTRING_STATIC_SIZE]; + /* Space to use in common case where string is + * small. */ +} Tcl_DString; + +#define Tcl_DStringLength(dsPtr) ((dsPtr)->length) +#define Tcl_DStringValue(dsPtr) ((dsPtr)->string) +#define Tcl_DStringTrunc Tcl_DStringSetLength + +/* + * Definitions for the maximum number of digits of precision that may be + * specified in the "tcl_precision" variable, and the number of bytes of + * buffer space required by Tcl_PrintDouble. + */ + +#define TCL_MAX_PREC 17 +#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) + +/* + * Definition for a number of bytes of buffer space sufficient to hold the + * string representation of an integer in base 10 (assuming the existence of + * 64-bit integers). + */ + +#define TCL_INTEGER_SPACE 24 + +/* + * Flag values passed to Tcl_ConvertElement. + * TCL_DONT_USE_BRACES forces it not to enclose the element in braces, but to + * use backslash quoting instead. + * TCL_DONT_QUOTE_HASH disables the default quoting of the '#' character. It + * is safe to leave the hash unquoted when the element is not the first + * element of a list, and this flag can be used by the caller to indicate + * that condition. + */ + +#define TCL_DONT_USE_BRACES 1 +#define TCL_DONT_QUOTE_HASH 8 + +/* + * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow + * abbreviated strings. + */ + +#define TCL_EXACT 1 + +/* + * Flag values passed to Tcl_RecordAndEval, Tcl_EvalObj, Tcl_EvalObjv. + * WARNING: these bit choices must not conflict with the bit choices for + * evalFlag bits in tclInt.h! + * + * Meanings: + * TCL_NO_EVAL: Just record this command + * TCL_EVAL_GLOBAL: Execute script in global namespace + * TCL_EVAL_DIRECT: Do not compile this script + * TCL_EVAL_INVOKE: Magical Tcl_EvalObjv mode for aliases/ensembles + * o Run in iPtr->lookupNsPtr or global namespace + * o Cut out of error traces + * o Don't reset the flags controlling ensemble + * error message rewriting. + */ +#define TCL_NO_EVAL 0x10000 +#define TCL_EVAL_GLOBAL 0x20000 +#define TCL_EVAL_DIRECT 0x40000 +#define TCL_EVAL_INVOKE 0x80000 + +/* + * Special freeProc values that may be passed to Tcl_SetResult (see the man + * page for details): + */ + +#define TCL_VOLATILE ((Tcl_FreeProc *) 1) +#define TCL_STATIC ((Tcl_FreeProc *) 0) +#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) + +/* + * Flag values passed to variable-related functions. + */ + +#define TCL_GLOBAL_ONLY 1 +#define TCL_NAMESPACE_ONLY 2 +#define TCL_APPEND_VALUE 4 +#define TCL_LIST_ELEMENT 8 +#define TCL_TRACE_READS 0x10 +#define TCL_TRACE_WRITES 0x20 +#define TCL_TRACE_UNSETS 0x40 +#define TCL_TRACE_DESTROYED 0x80 +#define TCL_INTERP_DESTROYED 0x100 +#define TCL_LEAVE_ERR_MSG 0x200 +#define TCL_TRACE_ARRAY 0x800 +#ifndef TCL_REMOVE_OBSOLETE_TRACES +/* Required to support old variable/vdelete/vinfo traces */ +#define TCL_TRACE_OLD_STYLE 0x1000 +#endif +/* Indicate the semantics of the result of a trace */ +#define TCL_TRACE_RESULT_DYNAMIC 0x8000 +#define TCL_TRACE_RESULT_OBJECT 0x10000 + +/* + * Flag values for ensemble commands. + */ + +#define TCL_ENSEMBLE_PREFIX 0x02/* Flag value to say whether to allow + * unambiguous prefixes of commands or to + * require exact matches for command names. */ + +/* + * Flag values passed to command-related functions. + */ + +#define TCL_TRACE_RENAME 0x2000 +#define TCL_TRACE_DELETE 0x4000 + +#define TCL_ALLOW_INLINE_COMPILATION 0x20000 + +/* + * The TCL_PARSE_PART1 flag is deprecated and has no effect. The part1 is now + * always parsed whenever the part2 is NULL. (This is to avoid a common error + * when converting code to use the new object based APIs and forgetting to + * give the flag) + */ + +#ifndef TCL_NO_DEPRECATED +# define TCL_PARSE_PART1 0x400 +#endif + +/* + * Types for linked variables: + */ + +#define TCL_LINK_INT 1 +#define TCL_LINK_DOUBLE 2 +#define TCL_LINK_BOOLEAN 3 +#define TCL_LINK_STRING 4 +#define TCL_LINK_WIDE_INT 5 +#define TCL_LINK_CHAR 6 +#define TCL_LINK_UCHAR 7 +#define TCL_LINK_SHORT 8 +#define TCL_LINK_USHORT 9 +#define TCL_LINK_UINT 10 +#define TCL_LINK_LONG 11 +#define TCL_LINK_ULONG 12 +#define TCL_LINK_FLOAT 13 +#define TCL_LINK_WIDE_UINT 14 +#define TCL_LINK_READ_ONLY 0x80 + +/* + * Forward declarations of Tcl_HashTable and related types. + */ + +typedef struct Tcl_HashKeyType Tcl_HashKeyType; +typedef struct Tcl_HashTable Tcl_HashTable; +typedef struct Tcl_HashEntry Tcl_HashEntry; + +typedef unsigned int (Tcl_HashKeyProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, + VOID *keyPtr)); +typedef int (Tcl_CompareHashKeysProc) _ANSI_ARGS_((VOID *keyPtr, + Tcl_HashEntry *hPtr)); +typedef Tcl_HashEntry *(Tcl_AllocHashEntryProc) _ANSI_ARGS_(( + Tcl_HashTable *tablePtr, VOID *keyPtr)); +typedef void (Tcl_FreeHashEntryProc) _ANSI_ARGS_((Tcl_HashEntry *hPtr)); + +/* + * This flag controls whether the hash table stores the hash of a key, or + * recalculates it. There should be no reason for turning this flag off as it + * is completely binary and source compatible unless you directly access the + * bucketPtr member of the Tcl_HashTableEntry structure. This member has been + * removed and the space used to store the hash value. + */ + +#ifndef TCL_HASH_KEY_STORE_HASH +# define TCL_HASH_KEY_STORE_HASH 1 +#endif + +/* + * Structure definition for an entry in a hash table. No-one outside Tcl + * should access any of these fields directly; use the macros defined below. + */ + +struct Tcl_HashEntry { + Tcl_HashEntry *nextPtr; /* Pointer to next entry in this hash bucket, + * or NULL for end of chain. */ + Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */ +#if TCL_HASH_KEY_STORE_HASH + VOID *hash; /* Hash value, stored as pointer to ensure + * that the offsets of the fields in this + * structure are not changed. */ +#else + Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to first + * entry in this entry's chain: used for + * deleting the entry. */ +#endif + ClientData clientData; /* Application stores something here with + * Tcl_SetHashValue. */ + union { /* Key has one of these forms: */ + char *oneWordValue; /* One-word value for key. */ + Tcl_Obj *objPtr; /* Tcl_Obj * key value. */ + int words[1]; /* Multiple integer words for key. The actual + * size will be as large as necessary for this + * table's keys. */ + char string[4]; /* String for key. The actual size will be as + * large as needed to hold the key. */ + } key; /* MUST BE LAST FIELD IN RECORD!! */ +}; + +/* + * Flags used in Tcl_HashKeyType. + * + * TCL_HASH_KEY_RANDOMIZE_HASH - + * There are some things, pointers for example + * which don't hash well because they do not use + * the lower bits. If this flag is set then the + * hash table will attempt to rectify this by + * randomising the bits and then using the upper + * N bits as the index into the table. + * TCL_HASH_KEY_SYSTEM_HASH - If this flag is set then all memory internally + * allocated for the hash table that is not for an + * entry will use the system heap. + */ + +#define TCL_HASH_KEY_RANDOMIZE_HASH 0x1 +#define TCL_HASH_KEY_SYSTEM_HASH 0x2 + +/* + * Structure definition for the methods associated with a hash table key type. + */ + +#define TCL_HASH_KEY_TYPE_VERSION 1 +struct Tcl_HashKeyType { + int version; /* Version of the table. If this structure is + * extended in future then the version can be + * used to distinguish between different + * structures. */ + int flags; /* Flags, see above for details. */ + Tcl_HashKeyProc *hashKeyProc; + /* Calculates a hash value for the key. If + * this is NULL then the pointer itself is + * used as a hash value. */ + Tcl_CompareHashKeysProc *compareKeysProc; + /* Compares two keys and returns zero if they + * do not match, and non-zero if they do. If + * this is NULL then the pointers are + * compared. */ + Tcl_AllocHashEntryProc *allocEntryProc; + /* Called to allocate memory for a new entry, + * i.e. if the key is a string then this could + * allocate a single block which contains + * enough space for both the entry and the + * string. Only the key field of the allocated + * Tcl_HashEntry structure needs to be filled + * in. If something else needs to be done to + * the key, i.e. incrementing a reference + * count then that should be done by this + * function. If this is NULL then Tcl_Alloc is + * used to allocate enough space for a + * Tcl_HashEntry and the key pointer is + * assigned to key.oneWordValue. */ + Tcl_FreeHashEntryProc *freeEntryProc; + /* Called to free memory associated with an + * entry. If something else needs to be done + * to the key, i.e. decrementing a reference + * count then that should be done by this + * function. If this is NULL then Tcl_Free is + * used to free the Tcl_HashEntry. */ +}; + +/* + * Structure definition for a hash table. Must be in tcl.h so clients can + * allocate space for these structures, but clients should never access any + * fields in this structure. + */ + +#define TCL_SMALL_HASH_TABLE 4 +struct Tcl_HashTable { + Tcl_HashEntry **buckets; /* Pointer to bucket array. Each element + * points to first entry in bucket's hash + * chain, or NULL. */ + Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; + /* Bucket array used for small tables (to + * avoid mallocs and frees). */ + int numBuckets; /* Total number of buckets allocated at + * **bucketPtr. */ + int numEntries; /* Total number of entries present in + * table. */ + int rebuildSize; /* Enlarge table when numEntries gets to be + * this large. */ + int downShift; /* Shift count used in hashing function. + * Designed to use high-order bits of + * randomized keys. */ + int mask; /* Mask value used in hashing function. */ + int keyType; /* Type of keys used in this table. It's + * either TCL_CUSTOM_KEYS, TCL_STRING_KEYS, + * TCL_ONE_WORD_KEYS, or an integer giving the + * number of ints that is the size of the + * key. */ + Tcl_HashEntry *(*findProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, + CONST char *key)); + Tcl_HashEntry *(*createProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, + CONST char *key, int *newPtr)); + Tcl_HashKeyType *typePtr; /* Type of the keys used in the + * Tcl_HashTable. */ +}; + +/* + * Structure definition for information used to keep track of searches through + * hash tables: + */ + +typedef struct Tcl_HashSearch { + Tcl_HashTable *tablePtr; /* Table being searched. */ + int nextIndex; /* Index of next bucket to be enumerated after + * present one. */ + Tcl_HashEntry *nextEntryPtr;/* Next entry to be enumerated in the current + * bucket. */ +} Tcl_HashSearch; + +/* + * Acceptable key types for hash tables: + * + * TCL_STRING_KEYS: The keys are strings, they are copied into the + * entry. + * TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored + * in the entry. + * TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copied + * into the entry. + * TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary types, the + * pointer is stored in the entry. + * + * While maintaining binary compatability the above have to be distinct values + * as they are used to differentiate between old versions of the hash table + * which don't have a typePtr and new ones which do. Once binary compatability + * is discarded in favour of making more wide spread changes TCL_STRING_KEYS + * can be the same as TCL_CUSTOM_TYPE_KEYS, and TCL_ONE_WORD_KEYS can be the + * same as TCL_CUSTOM_PTR_KEYS because they simply determine how the key is + * accessed from the entry and not the behaviour. + */ + +#define TCL_STRING_KEYS 0 +#define TCL_ONE_WORD_KEYS 1 +#define TCL_CUSTOM_TYPE_KEYS -2 +#define TCL_CUSTOM_PTR_KEYS -1 + +/* + * Structure definition for information used to keep track of searches through + * dictionaries. These fields should not be accessed by code outside + * tclDictObj.c + */ + +typedef struct { + void *next; /* Search position for underlying hash + * table. */ + int epoch; /* Epoch marker for dictionary being searched, + * or -1 if search has terminated. */ + Tcl_Dict dictionaryPtr; /* Reference to dictionary being searched. */ +} Tcl_DictSearch; + +/* + * Flag values to pass to Tcl_DoOneEvent to disable searches for some kinds of + * events: + */ + +#define TCL_DONT_WAIT (1<<1) +#define TCL_WINDOW_EVENTS (1<<2) +#define TCL_FILE_EVENTS (1<<3) +#define TCL_TIMER_EVENTS (1<<4) +#define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */ +#define TCL_ALL_EVENTS (~TCL_DONT_WAIT) + +/* + * The following structure defines a generic event for the Tcl event system. + * These are the things that are queued in calls to Tcl_QueueEvent and + * serviced later by Tcl_DoOneEvent. There can be many different kinds of + * events with different fields, corresponding to window events, timer events, + * etc. The structure for a particular event consists of a Tcl_Event header + * followed by additional information specific to that event. + */ + +struct Tcl_Event { + Tcl_EventProc *proc; /* Function to call to service this event. */ + struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */ +}; + +/* + * Positions to pass to Tcl_QueueEvent: + */ + +typedef enum { + TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK +} Tcl_QueuePosition; + +/* + * Values to pass to Tcl_SetServiceMode to specify the behavior of notifier + * event routines. + */ + +#define TCL_SERVICE_NONE 0 +#define TCL_SERVICE_ALL 1 + +/* + * The following structure keeps is used to hold a time value, either as an + * absolute time (the number of seconds from the epoch) or as an elapsed time. + * On Unix systems the epoch is Midnight Jan 1, 1970 GMT. + */ + +typedef struct Tcl_Time { + long sec; /* Seconds. */ + long usec; /* Microseconds. */ +} Tcl_Time; + +typedef void (Tcl_SetTimerProc) _ANSI_ARGS_((Tcl_Time *timePtr)); +typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr)); + +/* + * TIP #233 (Virtualized Time) + */ + +typedef void (Tcl_GetTimeProc) _ANSI_ARGS_((Tcl_Time *timebuf, + ClientData clientData)); +typedef void (Tcl_ScaleTimeProc) _ANSI_ARGS_((Tcl_Time *timebuf, + ClientData clientData)); + +/* + * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler to + * indicate what sorts of events are of interest: + */ + +#define TCL_READABLE (1<<1) +#define TCL_WRITABLE (1<<2) +#define TCL_EXCEPTION (1<<3) + +/* + * Flag values to pass to Tcl_OpenCommandChannel to indicate the disposition + * of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, are also used in + * Tcl_GetStdChannel. + */ + +#define TCL_STDIN (1<<1) +#define TCL_STDOUT (1<<2) +#define TCL_STDERR (1<<3) +#define TCL_ENFORCE_MODE (1<<4) + +/* + * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel + * should be closed. + */ + +#define TCL_CLOSE_READ (1<<1) +#define TCL_CLOSE_WRITE (1<<2) + +/* + * Value to use as the closeProc for a channel that supports the close2Proc + * interface. + */ + +#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *) 1) + +/* + * Channel version tag. This was introduced in 8.3.2/8.4. + */ + +#define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1) +#define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2) +#define TCL_CHANNEL_VERSION_3 ((Tcl_ChannelTypeVersion) 0x3) +#define TCL_CHANNEL_VERSION_4 ((Tcl_ChannelTypeVersion) 0x4) +#define TCL_CHANNEL_VERSION_5 ((Tcl_ChannelTypeVersion) 0x5) + +/* + * TIP #218: Channel Actions, Ids for Tcl_DriverThreadActionProc. + */ + +#define TCL_CHANNEL_THREAD_INSERT (0) +#define TCL_CHANNEL_THREAD_REMOVE (1) + +/* + * Typedefs for the various operations in a channel type: + */ + +typedef int (Tcl_DriverBlockModeProc) _ANSI_ARGS_(( + ClientData instanceData, int mode)); +typedef int (Tcl_DriverCloseProc) _ANSI_ARGS_((ClientData instanceData, + Tcl_Interp *interp)); +typedef int (Tcl_DriverClose2Proc) _ANSI_ARGS_((ClientData instanceData, + Tcl_Interp *interp, int flags)); +typedef int (Tcl_DriverInputProc) _ANSI_ARGS_((ClientData instanceData, + char *buf, int toRead, int *errorCodePtr)); +typedef int (Tcl_DriverOutputProc) _ANSI_ARGS_((ClientData instanceData, + CONST84 char *buf, int toWrite, int *errorCodePtr)); +typedef int (Tcl_DriverSeekProc) _ANSI_ARGS_((ClientData instanceData, + long offset, int mode, int *errorCodePtr)); +typedef int (Tcl_DriverSetOptionProc) _ANSI_ARGS_(( + ClientData instanceData, Tcl_Interp *interp, + CONST char *optionName, CONST char *value)); +typedef int (Tcl_DriverGetOptionProc) _ANSI_ARGS_(( + ClientData instanceData, Tcl_Interp *interp, + CONST84 char *optionName, Tcl_DString *dsPtr)); +typedef void (Tcl_DriverWatchProc) _ANSI_ARGS_(( + ClientData instanceData, int mask)); +typedef int (Tcl_DriverGetHandleProc) _ANSI_ARGS_(( + ClientData instanceData, int direction, + ClientData *handlePtr)); +typedef int (Tcl_DriverFlushProc) _ANSI_ARGS_((ClientData instanceData)); +typedef int (Tcl_DriverHandlerProc) _ANSI_ARGS_(( + ClientData instanceData, int interestMask)); +typedef Tcl_WideInt (Tcl_DriverWideSeekProc) _ANSI_ARGS_(( + ClientData instanceData, Tcl_WideInt offset, + int mode, int *errorCodePtr)); +/* + * TIP #218, Channel Thread Actions + */ +typedef void (Tcl_DriverThreadActionProc) _ANSI_ARGS_ (( + ClientData instanceData, int action)); +/* + * TIP #208, File Truncation (etc.) + */ +typedef int (Tcl_DriverTruncateProc) _ANSI_ARGS_(( + ClientData instanceData, Tcl_WideInt length)); + +/* + * struct Tcl_ChannelType: + * + * One such structure exists for each type (kind) of channel. It collects + * together in one place all the functions that are part of the specific + * channel type. + * + * It is recommend that the Tcl_Channel* functions are used to access elements + * of this structure, instead of direct accessing. + */ + +typedef struct Tcl_ChannelType { + char *typeName; /* The name of the channel type in Tcl + * commands. This storage is owned by channel + * type. */ + Tcl_ChannelTypeVersion version; + /* Version of the channel type. */ + Tcl_DriverCloseProc *closeProc; + /* Function to call to close the channel, or + * TCL_CLOSE2PROC if the close2Proc should be + * used instead. */ + Tcl_DriverInputProc *inputProc; + /* Function to call for input on channel. */ + Tcl_DriverOutputProc *outputProc; + /* Function to call for output on channel. */ + Tcl_DriverSeekProc *seekProc; + /* Function to call to seek on the channel. + * May be NULL. */ + Tcl_DriverSetOptionProc *setOptionProc; + /* Set an option on a channel. */ + Tcl_DriverGetOptionProc *getOptionProc; + /* Get an option from a channel. */ + Tcl_DriverWatchProc *watchProc; + /* Set up the notifier to watch for events on + * this channel. */ + Tcl_DriverGetHandleProc *getHandleProc; + /* Get an OS handle from the channel or NULL + * if not supported. */ + Tcl_DriverClose2Proc *close2Proc; + /* Function to call to close the channel if + * the device supports closing the read & + * write sides independently. */ + Tcl_DriverBlockModeProc *blockModeProc; + /* Set blocking mode for the raw channel. May + * be NULL. */ + /* + * Only valid in TCL_CHANNEL_VERSION_2 channels or later. + */ + Tcl_DriverFlushProc *flushProc; + /* Function to call to flush a channel. May be + * NULL. */ + Tcl_DriverHandlerProc *handlerProc; + /* Function to call to handle a channel event. + * This will be passed up the stacked channel + * chain. */ + /* + * Only valid in TCL_CHANNEL_VERSION_3 channels or later. + */ + Tcl_DriverWideSeekProc *wideSeekProc; + /* Function to call to seek on the channel + * which can handle 64-bit offsets. May be + * NULL, and must be NULL if seekProc is + * NULL. */ + /* + * Only valid in TCL_CHANNEL_VERSION_4 channels or later. + * TIP #218, Channel Thread Actions. + */ + Tcl_DriverThreadActionProc *threadActionProc; + /* Function to call to notify the driver of + * thread specific activity for a channel. May + * be NULL. */ + + /* + * Only valid in TCL_CHANNEL_VERSION_5 channels or later. + * TIP #208, File Truncation. + */ + Tcl_DriverTruncateProc *truncateProc; + /* Function to call to truncate the underlying + * file to a particular length. May be NULL if + * the channel does not support truncation. */ +} Tcl_ChannelType; + +/* + * The following flags determine whether the blockModeProc above should set + * the channel into blocking or nonblocking mode. They are passed as arguments + * to the blockModeProc function in the above structure. + */ + +#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. */ +#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking + * mode. */ + +/* + * Enum for different types of file paths. + */ + +typedef enum Tcl_PathType { + TCL_PATH_ABSOLUTE, + TCL_PATH_RELATIVE, + TCL_PATH_VOLUME_RELATIVE +} Tcl_PathType; + +/* + * The following structure is used to pass glob type data amongst the various + * glob routines and Tcl_FSMatchInDirectory. + */ + +typedef struct Tcl_GlobTypeData { + int type; /* Corresponds to bcdpfls as in 'find -t'. */ + int perm; /* Corresponds to file permissions. */ + Tcl_Obj *macType; /* Acceptable Mac type. */ + Tcl_Obj *macCreator; /* Acceptable Mac creator. */ +} Tcl_GlobTypeData; + +/* + * Type and permission definitions for glob command. + */ + +#define TCL_GLOB_TYPE_BLOCK (1<<0) +#define TCL_GLOB_TYPE_CHAR (1<<1) +#define TCL_GLOB_TYPE_DIR (1<<2) +#define TCL_GLOB_TYPE_PIPE (1<<3) +#define TCL_GLOB_TYPE_FILE (1<<4) +#define TCL_GLOB_TYPE_LINK (1<<5) +#define TCL_GLOB_TYPE_SOCK (1<<6) +#define TCL_GLOB_TYPE_MOUNT (1<<7) + +#define TCL_GLOB_PERM_RONLY (1<<0) +#define TCL_GLOB_PERM_HIDDEN (1<<1) +#define TCL_GLOB_PERM_R (1<<2) +#define TCL_GLOB_PERM_W (1<<3) +#define TCL_GLOB_PERM_X (1<<4) + +/* + * Flags for the unload callback function. + */ + +#define TCL_UNLOAD_DETACH_FROM_INTERPRETER (1<<0) +#define TCL_UNLOAD_DETACH_FROM_PROCESS (1<<1) + +/* + * Typedefs for the various filesystem operations: + */ + +typedef int (Tcl_FSStatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *buf)); +typedef int (Tcl_FSAccessProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode)); +typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions)); +typedef int (Tcl_FSMatchInDirectoryProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern, + Tcl_GlobTypeData * types)); +typedef Tcl_Obj * (Tcl_FSGetCwdProc) _ANSI_ARGS_((Tcl_Interp *interp)); +typedef int (Tcl_FSChdirProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); +typedef int (Tcl_FSLstatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, + Tcl_StatBuf *buf)); +typedef int (Tcl_FSCreateDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); +typedef int (Tcl_FSDeleteFileProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); +typedef int (Tcl_FSCopyDirectoryProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr)); +typedef int (Tcl_FSCopyFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr)); +typedef int (Tcl_FSRemoveDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, + int recursive, Tcl_Obj **errorPtr)); +typedef int (Tcl_FSRenameFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr)); +typedef void (Tcl_FSUnloadFileProc) _ANSI_ARGS_((Tcl_LoadHandle loadHandle)); +typedef Tcl_Obj * (Tcl_FSListVolumesProc) _ANSI_ARGS_((void)); +/* We have to declare the utime structure here. */ +struct utimbuf; +typedef int (Tcl_FSUtimeProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, + struct utimbuf *tval)); +typedef int (Tcl_FSNormalizePathProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *pathPtr, int nextCheckpoint)); +typedef int (Tcl_FSFileAttrsGetProc) _ANSI_ARGS_((Tcl_Interp *interp, + int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)); +typedef CONST char ** (Tcl_FSFileAttrStringsProc) _ANSI_ARGS_(( + Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)); +typedef int (Tcl_FSFileAttrsSetProc) _ANSI_ARGS_((Tcl_Interp *interp, + int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr)); +typedef Tcl_Obj * (Tcl_FSLinkProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, + Tcl_Obj *toPtr, int linkType)); +typedef int (Tcl_FSLoadFileProc) _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj *pathPtr, Tcl_LoadHandle *handlePtr, + Tcl_FSUnloadFileProc **unloadProcPtr)); +typedef int (Tcl_FSPathInFilesystemProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, + ClientData *clientDataPtr)); +typedef Tcl_Obj * (Tcl_FSFilesystemPathTypeProc) _ANSI_ARGS_(( + Tcl_Obj *pathPtr)); +typedef Tcl_Obj * (Tcl_FSFilesystemSeparatorProc) _ANSI_ARGS_(( + Tcl_Obj *pathPtr)); +typedef void (Tcl_FSFreeInternalRepProc) _ANSI_ARGS_((ClientData clientData)); +typedef ClientData (Tcl_FSDupInternalRepProc) _ANSI_ARGS_(( + ClientData clientData)); +typedef Tcl_Obj * (Tcl_FSInternalToNormalizedProc) _ANSI_ARGS_(( + ClientData clientData)); +typedef ClientData (Tcl_FSCreateInternalRepProc) _ANSI_ARGS_(( + Tcl_Obj *pathPtr)); + +typedef struct Tcl_FSVersion_ *Tcl_FSVersion; + +/* + *---------------------------------------------------------------- + * Data structures related to hooking into the filesystem + *---------------------------------------------------------------- + */ + +/* + * Filesystem version tag. This was introduced in 8.4. + */ +#define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1) + +/* + * struct Tcl_Filesystem: + * + * One such structure exists for each type (kind) of filesystem. It collects + * together in one place all the functions that are part of the specific + * filesystem. Tcl always accesses the filesystem through one of these + * structures. + * + * Not all entries need be non-NULL; any which are NULL are simply ignored. + * However, a complete filesystem should provide all of these functions. The + * explanations in the structure show the importance of each function. + */ + +typedef struct Tcl_Filesystem { + CONST char *typeName; /* The name of the filesystem. */ + int structureLength; /* Length of this structure, so future binary + * compatibility can be assured. */ + Tcl_FSVersion version; /* Version of the filesystem type. */ + Tcl_FSPathInFilesystemProc *pathInFilesystemProc; + /* Function to check whether a path is in this + * filesystem. This is the most important + * filesystem function. */ + Tcl_FSDupInternalRepProc *dupInternalRepProc; + /* Function to duplicate internal fs rep. May + * be NULL (but then fs is less efficient). */ + Tcl_FSFreeInternalRepProc *freeInternalRepProc; + /* Function to free internal fs rep. Must be + * implemented if internal representations + * need freeing, otherwise it can be NULL. */ + Tcl_FSInternalToNormalizedProc *internalToNormalizedProc; + /* Function to convert internal representation + * to a normalized path. Only required if the + * fs creates pure path objects with no + * string/path representation. */ + Tcl_FSCreateInternalRepProc *createInternalRepProc; + /* Function to create a filesystem-specific + * internal representation. May be NULL if + * paths have no internal representation, or + * if the Tcl_FSPathInFilesystemProc for this + * filesystem always immediately creates an + * internal representation for paths it + * accepts. */ + Tcl_FSNormalizePathProc *normalizePathProc; + /* Function to normalize a path. Should be + * implemented for all filesystems which can + * have multiple string representations for + * the same path object. */ + Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc; + /* Function to determine the type of a path in + * this filesystem. May be NULL. */ + Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc; + /* Function to return the separator + * character(s) for this filesystem. Must be + * implemented. */ + Tcl_FSStatProc *statProc; /* Function to process a 'Tcl_FSStat()' call. + * Must be implemented for any reasonable + * filesystem. */ + Tcl_FSAccessProc *accessProc; + /* Function to process a 'Tcl_FSAccess()' + * call. Must be implemented for any + * reasonable filesystem. */ + Tcl_FSOpenFileChannelProc *openFileChannelProc; + /* Function to process a + * 'Tcl_FSOpenFileChannel()' call. Must be + * implemented for any reasonable + * filesystem. */ + Tcl_FSMatchInDirectoryProc *matchInDirectoryProc; + /* Function to process a + * 'Tcl_FSMatchInDirectory()'. If not + * implemented, then glob and recursive copy + * functionality will be lacking in the + * filesystem. */ + Tcl_FSUtimeProc *utimeProc; /* Function to process a 'Tcl_FSUtime()' call. + * Required to allow setting (not reading) of + * times with 'file mtime', 'file atime' and + * the open-r/open-w/fcopy implementation of + * 'file copy'. */ + Tcl_FSLinkProc *linkProc; /* Function to process a 'Tcl_FSLink()' call. + * Should be implemented only if the + * filesystem supports links (reading or + * creating). */ + Tcl_FSListVolumesProc *listVolumesProc; + /* Function to list any filesystem volumes + * added by this filesystem. Should be + * implemented only if the filesystem adds + * volumes at the head of the filesystem. */ + Tcl_FSFileAttrStringsProc *fileAttrStringsProc; + /* Function to list all attributes strings + * which are valid for this filesystem. If not + * implemented the filesystem will not support + * the 'file attributes' command. This allows + * arbitrary additional information to be + * attached to files in the filesystem. */ + Tcl_FSFileAttrsGetProc *fileAttrsGetProc; + /* Function to process a + * 'Tcl_FSFileAttrsGet()' call, used by 'file + * attributes'. */ + Tcl_FSFileAttrsSetProc *fileAttrsSetProc; + /* Function to process a + * 'Tcl_FSFileAttrsSet()' call, used by 'file + * attributes'. */ + Tcl_FSCreateDirectoryProc *createDirectoryProc; + /* Function to process a + * 'Tcl_FSCreateDirectory()' call. Should be + * implemented unless the FS is read-only. */ + Tcl_FSRemoveDirectoryProc *removeDirectoryProc; + /* Function to process a + * 'Tcl_FSRemoveDirectory()' call. Should be + * implemented unless the FS is read-only. */ + Tcl_FSDeleteFileProc *deleteFileProc; + /* Function to process a 'Tcl_FSDeleteFile()' + * call. Should be implemented unless the FS + * is read-only. */ + Tcl_FSCopyFileProc *copyFileProc; + /* Function to process a 'Tcl_FSCopyFile()' + * call. If not implemented Tcl will fall back + * on open-r, open-w and fcopy as a copying + * mechanism, for copying actions initiated in + * Tcl (not C). */ + Tcl_FSRenameFileProc *renameFileProc; + /* Function to process a 'Tcl_FSRenameFile()' + * call. If not implemented, Tcl will fall + * back on a copy and delete mechanism, for + * rename actions initiated in Tcl (not C). */ + Tcl_FSCopyDirectoryProc *copyDirectoryProc; + /* Function to process a + * 'Tcl_FSCopyDirectory()' call. If not + * implemented, Tcl will fall back on a + * recursive create-dir, file copy mechanism, + * for copying actions initiated in Tcl (not + * C). */ + Tcl_FSLstatProc *lstatProc; /* Function to process a 'Tcl_FSLstat()' call. + * If not implemented, Tcl will attempt to use + * the 'statProc' defined above instead. */ + Tcl_FSLoadFileProc *loadFileProc; + /* Function to process a 'Tcl_FSLoadFile()' + * call. If not implemented, Tcl will fall + * back on a copy to native-temp followed by a + * Tcl_FSLoadFile on that temporary copy. */ + Tcl_FSGetCwdProc *getCwdProc; + /* Function to process a 'Tcl_FSGetCwd()' + * call. Most filesystems need not implement + * this. It will usually only be called once, + * if 'getcwd' is called before 'chdir'. May + * be NULL. */ + Tcl_FSChdirProc *chdirProc; /* Function to process a 'Tcl_FSChdir()' call. + * If filesystems do not implement this, it + * will be emulated by a series of directory + * access checks. Otherwise, virtual + * filesystems which do implement it need only + * respond with a positive return result if + * the dirName is a valid directory in their + * filesystem. They need not remember the + * result, since that will be automatically + * remembered for use by GetCwd. Real + * filesystems should carry out the correct + * action (i.e. call the correct system + * 'chdir' api). If not implemented, then 'cd' + * and 'pwd' will fail inside the + * filesystem. */ +} Tcl_Filesystem; + +/* + * The following definitions are used as values for the 'linkAction' flag to + * Tcl_FSLink, or the linkProc of any filesystem. Any combination of flags can + * be given. For link creation, the linkProc should create a link which + * matches any of the types given. + * + * TCL_CREATE_SYMBOLIC_LINK - Create a symbolic or soft link. + * TCL_CREATE_HARD_LINK - Create a hard link. + */ + +#define TCL_CREATE_SYMBOLIC_LINK 0x01 +#define TCL_CREATE_HARD_LINK 0x02 + +/* + * The following structure represents the Notifier functions that you can + * override with the Tcl_SetNotifier call. + */ + +typedef struct Tcl_NotifierProcs { + Tcl_SetTimerProc *setTimerProc; + Tcl_WaitForEventProc *waitForEventProc; + Tcl_CreateFileHandlerProc *createFileHandlerProc; + Tcl_DeleteFileHandlerProc *deleteFileHandlerProc; + Tcl_InitNotifierProc *initNotifierProc; + Tcl_FinalizeNotifierProc *finalizeNotifierProc; + Tcl_AlertNotifierProc *alertNotifierProc; + Tcl_ServiceModeHookProc *serviceModeHookProc; +} Tcl_NotifierProcs; + +/* + * The following structure represents a user-defined encoding. It collects + * together all the functions that are used by the specific encoding. + */ + +typedef struct Tcl_EncodingType { + CONST char *encodingName; /* The name of the encoding, e.g. "euc-jp". + * This name is the unique key for this + * encoding type. */ + Tcl_EncodingConvertProc *toUtfProc; + /* Function to convert from external encoding + * into UTF-8. */ + Tcl_EncodingConvertProc *fromUtfProc; + /* Function to convert from UTF-8 into + * external encoding. */ + Tcl_EncodingFreeProc *freeProc; + /* If non-NULL, function to call when this + * encoding is deleted. */ + ClientData clientData; /* Arbitrary value associated with encoding + * type. Passed to conversion functions. */ + int nullSize; /* Number of zero bytes that signify + * end-of-string in this encoding. This number + * is used to determine the source string + * length when the srcLen argument is + * negative. Must be 1 or 2. */ +} Tcl_EncodingType; + +/* + * The following definitions are used as values for the conversion control + * flags argument when converting text from one character set to another: + * + * TCL_ENCODING_START - Signifies that the source buffer is the first + * block in a (potentially multi-block) input + * stream. Tells the conversion function to reset + * to an initial state and perform any + * initialization that needs to occur before the + * first byte is converted. If the source buffer + * contains the entire input stream to be + * converted, this flag should be set. + * TCL_ENCODING_END - Signifies that the source buffer is the last + * block in a (potentially multi-block) input + * stream. Tells the conversion routine to + * perform any finalization that needs to occur + * after the last byte is converted and then to + * reset to an initial state. If the source + * buffer contains the entire input stream to be + * converted, this flag should be set. + * TCL_ENCODING_STOPONERROR - If set, then the converter will return + * immediately upon encountering an invalid byte + * sequence or a source character that has no + * mapping in the target encoding. If clear, then + * the converter will skip the problem, + * substituting one or more "close" characters in + * the destination buffer and then continue to + * convert the source. + */ + +#define TCL_ENCODING_START 0x01 +#define TCL_ENCODING_END 0x02 +#define TCL_ENCODING_STOPONERROR 0x04 + +/* + * The following data structures and declarations are for the new Tcl parser. + */ + +/* + * For each word of a command, and for each piece of a word such as a variable + * reference, one of the following structures is created to describe the + * token. + */ + +typedef struct Tcl_Token { + int type; /* Type of token, such as TCL_TOKEN_WORD; see + * below for valid types. */ + CONST char *start; /* First character in token. */ + int size; /* Number of bytes in token. */ + int numComponents; /* If this token is composed of other tokens, + * this field tells how many of them there are + * (including components of components, etc.). + * The component tokens immediately follow + * this one. */ +} Tcl_Token; + +/* + * Type values defined for Tcl_Token structures. These values are defined as + * mask bits so that it's easy to check for collections of types. + * + * TCL_TOKEN_WORD - The token describes one word of a command, + * from the first non-blank character of the word + * (which may be " or {) up to but not including + * the space, semicolon, or bracket that + * terminates the word. NumComponents counts the + * total number of sub-tokens that make up the + * word. This includes, for example, sub-tokens + * of TCL_TOKEN_VARIABLE tokens. + * TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD except + * that the word is guaranteed to consist of a + * single TCL_TOKEN_TEXT sub-token. + * TCL_TOKEN_TEXT - The token describes a range of literal text + * that is part of a word. NumComponents is + * always 0. + * TCL_TOKEN_BS - The token describes a backslash sequence that + * must be collapsed. NumComponents is always 0. + * TCL_TOKEN_COMMAND - The token describes a command whose result + * must be substituted into the word. The token + * includes the enclosing brackets. NumComponents + * is always 0. + * TCL_TOKEN_VARIABLE - The token describes a variable substitution, + * including the dollar sign, variable name, and + * array index (if there is one) up through the + * right parentheses. NumComponents tells how + * many additional tokens follow to represent the + * variable name. The first token will be a + * TCL_TOKEN_TEXT token that describes the + * variable name. If the variable is an array + * reference then there will be one or more + * additional tokens, of type TCL_TOKEN_TEXT, + * TCL_TOKEN_BS, TCL_TOKEN_COMMAND, and + * TCL_TOKEN_VARIABLE, that describe the array + * index; numComponents counts the total number + * of nested tokens that make up the variable + * reference, including sub-tokens of + * TCL_TOKEN_VARIABLE tokens. + * TCL_TOKEN_SUB_EXPR - The token describes one subexpression of an + * expression, from the first non-blank character + * of the subexpression up to but not including + * the space, brace, or bracket that terminates + * the subexpression. NumComponents counts the + * total number of following subtokens that make + * up the subexpression; this includes all + * subtokens for any nested TCL_TOKEN_SUB_EXPR + * tokens. For example, a numeric value used as a + * primitive operand is described by a + * TCL_TOKEN_SUB_EXPR token followed by a + * TCL_TOKEN_TEXT token. A binary subexpression + * is described by a TCL_TOKEN_SUB_EXPR token + * followed by the TCL_TOKEN_OPERATOR token for + * the operator, then TCL_TOKEN_SUB_EXPR tokens + * for the left then the right operands. + * TCL_TOKEN_OPERATOR - The token describes one expression operator. + * An operator might be the name of a math + * function such as "abs". A TCL_TOKEN_OPERATOR + * token is always preceeded by one + * TCL_TOKEN_SUB_EXPR token for the operator's + * subexpression, and is followed by zero or more + * TCL_TOKEN_SUB_EXPR tokens for the operator's + * operands. NumComponents is always 0. + * TCL_TOKEN_EXPAND_WORD - This token is just like TCL_TOKEN_WORD except + * that it marks a word that began with the + * literal character prefix "{*}". This word is + * marked to be expanded - that is, broken into + * words after substitution is complete. + */ + +#define TCL_TOKEN_WORD 1 +#define TCL_TOKEN_SIMPLE_WORD 2 +#define TCL_TOKEN_TEXT 4 +#define TCL_TOKEN_BS 8 +#define TCL_TOKEN_COMMAND 16 +#define TCL_TOKEN_VARIABLE 32 +#define TCL_TOKEN_SUB_EXPR 64 +#define TCL_TOKEN_OPERATOR 128 +#define TCL_TOKEN_EXPAND_WORD 256 + +/* + * Parsing error types. On any parsing error, one of these values will be + * stored in the error field of the Tcl_Parse structure defined below. + */ + +#define TCL_PARSE_SUCCESS 0 +#define TCL_PARSE_QUOTE_EXTRA 1 +#define TCL_PARSE_BRACE_EXTRA 2 +#define TCL_PARSE_MISSING_BRACE 3 +#define TCL_PARSE_MISSING_BRACKET 4 +#define TCL_PARSE_MISSING_PAREN 5 +#define TCL_PARSE_MISSING_QUOTE 6 +#define TCL_PARSE_MISSING_VAR_BRACE 7 +#define TCL_PARSE_SYNTAX 8 +#define TCL_PARSE_BAD_NUMBER 9 + +/* + * A structure of the following type is filled in by Tcl_ParseCommand. It + * describes a single command parsed from an input string. + */ + +#define NUM_STATIC_TOKENS 20 + +typedef struct Tcl_Parse { + CONST char *commentStart; /* Pointer to # that begins the first of one + * or more comments preceding the command. */ + int commentSize; /* Number of bytes in comments (up through + * newline character that terminates the last + * comment). If there were no comments, this + * field is 0. */ + CONST char *commandStart; /* First character in first word of + * command. */ + int commandSize; /* Number of bytes in command, including first + * character of first word, up through the + * terminating newline, close bracket, or + * semicolon. */ + int numWords; /* Total number of words in command. May be + * 0. */ + Tcl_Token *tokenPtr; /* Pointer to first token representing the + * words of the command. Initially points to + * staticTokens, but may change to point to + * malloc-ed space if command exceeds space in + * staticTokens. */ + int numTokens; /* Total number of tokens in command. */ + int tokensAvailable; /* Total number of tokens available at + * *tokenPtr. */ + int errorType; /* One of the parsing error types defined + * above. */ + + /* + * The fields below are intended only for the private use of the parser. + * They should not be used by functions that invoke Tcl_ParseCommand. + */ + + CONST char *string; /* The original command string passed to + * Tcl_ParseCommand. */ + CONST char *end; /* Points to the character just after the last + * one in the command string. */ + Tcl_Interp *interp; /* Interpreter to use for error reporting, or + * NULL. */ + CONST char *term; /* Points to character in string that + * terminated most recent token. Filled in by + * ParseTokens. If an error occurs, points to + * beginning of region where the error + * occurred (e.g. the open brace if the close + * brace is missing). */ + int incomplete; /* This field is set to 1 by Tcl_ParseCommand + * if the command appears to be incomplete. + * This information is used by + * Tcl_CommandComplete. */ + Tcl_Token staticTokens[NUM_STATIC_TOKENS]; + /* Initial space for tokens for command. This + * space should be large enough to accommodate + * most commands; dynamic space is allocated + * for very large commands that don't fit + * here. */ +} Tcl_Parse; + +/* + * The following definitions are the error codes returned by the conversion + * routines: + * + * TCL_OK - All characters were converted. + * TCL_CONVERT_NOSPACE - The output buffer would not have been large + * enough for all of the converted data; as many + * characters as could fit were converted though. + * TCL_CONVERT_MULTIBYTE - The last few bytes in the source string were + * the beginning of a multibyte sequence, but + * more bytes were needed to complete this + * sequence. A subsequent call to the conversion + * routine should pass the beginning of this + * unconverted sequence plus additional bytes + * from the source stream to properly convert the + * formerly split-up multibyte sequence. + * TCL_CONVERT_SYNTAX - The source stream contained an invalid + * character sequence. This may occur if the + * input stream has been damaged or if the input + * encoding method was misidentified. This error + * is reported only if TCL_ENCODING_STOPONERROR + * was specified. + * TCL_CONVERT_UNKNOWN - The source string contained a character that + * could not be represented in the target + * encoding. This error is reported only if + * TCL_ENCODING_STOPONERROR was specified. + */ + +#define TCL_CONVERT_MULTIBYTE -1 +#define TCL_CONVERT_SYNTAX -2 +#define TCL_CONVERT_UNKNOWN -3 +#define TCL_CONVERT_NOSPACE -4 + +/* + * The maximum number of bytes that are necessary to represent a single + * Unicode character in UTF-8. The valid values should be 3 or 6 (or perhaps 1 + * if we want to support a non-unicode enabled core). If 3, then Tcl_UniChar + * must be 2-bytes in size (UCS-2) (the default). If 6, then Tcl_UniChar must + * be 4-bytes in size (UCS-4). At this time UCS-2 mode is the default and + * recommended mode. UCS-4 is experimental and not recommended. It works for + * the core, but most extensions expect UCS-2. + */ + +#ifndef TCL_UTF_MAX +#define TCL_UTF_MAX 3 +#endif + +/* + * This represents a Unicode character. Any changes to this should also be + * reflected in regcustom.h. + */ + +#if TCL_UTF_MAX > 4 + /* + * unsigned int isn't 100% accurate as it should be a strict 4-byte value + * (perhaps wchar_t). 64-bit systems may have troubles. The size of this + * value must be reflected correctly in regcustom.h and + * in tclEncoding.c. + * XXX: Tcl is currently UCS-2 and planning UTF-16 for the Unicode + * XXX: string rep that Tcl_UniChar represents. Changing the size + * XXX: of Tcl_UniChar is /not/ supported. + */ +typedef unsigned int Tcl_UniChar; +#else +typedef unsigned short Tcl_UniChar; +#endif + +/* + * TIP #59: The following structure is used in calls 'Tcl_RegisterConfig' to + * provide the system with the embedded configuration data. + */ + +typedef struct Tcl_Config { + CONST char *key; /* Configuration key to register. ASCII + * encoded, thus UTF-8. */ + CONST char *value; /* The value associated with the key. System + * encoding. */ +} Tcl_Config; + +/* + * Flags for TIP#143 limits, detailing which limits are active in an + * interpreter. Used for Tcl_{Add,Remove}LimitHandler type argument. + */ + +#define TCL_LIMIT_COMMANDS 0x01 +#define TCL_LIMIT_TIME 0x02 + +/* + * Structure containing information about a limit handler to be called when a + * command- or time-limit is exceeded by an interpreter. + */ + +typedef void (Tcl_LimitHandlerProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp)); +typedef void (Tcl_LimitHandlerDeleteProc) _ANSI_ARGS_((ClientData clientData)); + +typedef struct mp_int mp_int; +#define MP_INT_DECLARED +typedef unsigned int mp_digit; +#define MP_DIGIT_DECLARED + +/* + * The following constant is used to test for older versions of Tcl in the + * stubs tables. + * + * Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different + * value since the stubs tables don't match. + */ + +#define TCL_STUB_MAGIC ((int) 0xFCA3BACF) + +/* + * The following function is required to be defined in all stubs aware + * extensions. The function is actually implemented in the stub library, not + * the main Tcl library, although there is a trivial implementation in the + * main library in case an extension is statically linked into an application. + */ + +EXTERN CONST char * Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *version, int exact)); +EXTERN CONST char * TclTomMathInitializeStubs _ANSI_ARGS_(( + Tcl_Interp *interp, CONST char *version, + int epoch, int revision)); + +#ifndef USE_TCL_STUBS + +/* + * When not using stubs, make it a macro. + */ + +#define Tcl_InitStubs(interp, version, exact) \ + Tcl_PkgInitStubsCheck(interp, version, exact) + +#endif + + /* + * TODO - tommath stubs export goes here! + */ + + +/* + * Public functions that are not accessible via the stubs table. + * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171] + */ + +EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, + Tcl_AppInitProc *appInitProc)); +EXTERN CONST char * Tcl_PkgInitStubsCheck _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *version, int exact)); +#if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) +EXTERN void Tcl_GetMemoryInfo _ANSI_ARGS_((Tcl_DString *dsPtr)); +#endif + +/* + * Include the public function declarations that are accessible via the stubs + * table. + */ + +#include "tclDecls.h" + +/* + * Include platform specific public function declarations that are accessible + * via the stubs table. + */ + +#include "tclPlatDecls.h" + +/* + * The following declarations either map ckalloc and ckfree to malloc and + * free, or they map them to functions with all sorts of debugging hooks + * defined in tclCkalloc.c. + */ + +#ifdef TCL_MEM_DEBUG + +# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__) +# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__) +# define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__) +# define attemptckalloc(x) Tcl_AttemptDbCkalloc(x, __FILE__, __LINE__) +# define attemptckrealloc(x,y) Tcl_AttemptDbCkrealloc((x), (y), __FILE__, __LINE__) + +#else /* !TCL_MEM_DEBUG */ + +/* + * If we are not using the debugging allocator, we should call the Tcl_Alloc, + * et al. routines in order to guarantee that every module is using the same + * memory allocator both inside and outside of the Tcl library. + */ + +# define ckalloc(x) Tcl_Alloc(x) +# define ckfree(x) Tcl_Free(x) +# define ckrealloc(x,y) Tcl_Realloc(x,y) +# define attemptckalloc(x) Tcl_AttemptAlloc(x) +# define attemptckrealloc(x,y) Tcl_AttemptRealloc(x,y) +# undef Tcl_InitMemory +# define Tcl_InitMemory(x) +# undef Tcl_DumpActiveMemory +# define Tcl_DumpActiveMemory(x) +# undef Tcl_ValidateAllMemory +# define Tcl_ValidateAllMemory(x,y) + +#endif /* !TCL_MEM_DEBUG */ + +#ifdef TCL_MEM_DEBUG +# define Tcl_IncrRefCount(objPtr) \ + Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__) +# define Tcl_DecrRefCount(objPtr) \ + Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) +# define Tcl_IsShared(objPtr) \ + Tcl_DbIsShared(objPtr, __FILE__, __LINE__) +#else +# define Tcl_IncrRefCount(objPtr) \ + ++(objPtr)->refCount + /* + * Use do/while0 idiom for optimum correctness without compiler warnings. + * http://c2.com/cgi/wiki?TrivialDoWhileLoop + */ +# define Tcl_DecrRefCount(objPtr) \ + do { \ + Tcl_Obj *_objPtr = (objPtr); \ + if (--(_objPtr)->refCount <= 0) { \ + TclFreeObj(_objPtr); \ + } \ + } while(0) +# define Tcl_IsShared(objPtr) \ + ((objPtr)->refCount > 1) +#endif + +/* + * Macros and definitions that help to debug the use of Tcl objects. When + * TCL_MEM_DEBUG is defined, the Tcl_New declarations are overridden to call + * debugging versions of the object creation functions. + */ + +#ifdef TCL_MEM_DEBUG +# undef Tcl_NewBignumObj +# define Tcl_NewBignumObj(val) \ + Tcl_DbNewBignumObj(val, __FILE__, __LINE__) +# undef Tcl_NewBooleanObj +# define Tcl_NewBooleanObj(val) \ + Tcl_DbNewBooleanObj(val, __FILE__, __LINE__) +# undef Tcl_NewByteArrayObj +# define Tcl_NewByteArrayObj(bytes, len) \ + Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__) +# undef Tcl_NewDoubleObj +# define Tcl_NewDoubleObj(val) \ + Tcl_DbNewDoubleObj(val, __FILE__, __LINE__) +# undef Tcl_NewIntObj +# define Tcl_NewIntObj(val) \ + Tcl_DbNewLongObj(val, __FILE__, __LINE__) +# undef Tcl_NewListObj +# define Tcl_NewListObj(objc, objv) \ + Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__) +# undef Tcl_NewLongObj +# define Tcl_NewLongObj(val) \ + Tcl_DbNewLongObj(val, __FILE__, __LINE__) +# undef Tcl_NewObj +# define Tcl_NewObj() \ + Tcl_DbNewObj(__FILE__, __LINE__) +# undef Tcl_NewStringObj +# define Tcl_NewStringObj(bytes, len) \ + Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__) +# undef Tcl_NewWideIntObj +# define Tcl_NewWideIntObj(val) \ + Tcl_DbNewWideIntObj(val, __FILE__, __LINE__) +#endif /* TCL_MEM_DEBUG */ + +/* + * Macros for clients to use to access fields of hash entries: + */ + +#define Tcl_GetHashValue(h) ((h)->clientData) +#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) +#define Tcl_GetHashKey(tablePtr, h) \ + ((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \ + (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \ + ? (h)->key.oneWordValue \ + : (h)->key.string)) + +/* + * Macros to use for clients to use to invoke find and create functions for + * hash tables: + */ + +#undef Tcl_FindHashEntry +#define Tcl_FindHashEntry(tablePtr, key) \ + (*((tablePtr)->findProc))(tablePtr, key) +#undef Tcl_CreateHashEntry +#define Tcl_CreateHashEntry(tablePtr, key, newPtr) \ + (*((tablePtr)->createProc))(tablePtr, key, newPtr) + +/* + * Macros that eliminate the overhead of the thread synchronization functions + * when compiling without thread support. + */ + +#ifndef TCL_THREADS +#undef Tcl_MutexLock +#define Tcl_MutexLock(mutexPtr) +#undef Tcl_MutexUnlock +#define Tcl_MutexUnlock(mutexPtr) +#undef Tcl_MutexFinalize +#define Tcl_MutexFinalize(mutexPtr) +#undef Tcl_ConditionNotify +#define Tcl_ConditionNotify(condPtr) +#undef Tcl_ConditionWait +#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) +#undef Tcl_ConditionFinalize +#define Tcl_ConditionFinalize(condPtr) +#endif /* TCL_THREADS */ + +#ifndef TCL_NO_DEPRECATED + /* + * These function have been renamed. The old names are deprecated, but we + * define these macros for backwards compatibilty. + */ + +# define Tcl_Ckalloc Tcl_Alloc +# define Tcl_Ckfree Tcl_Free +# define Tcl_Ckrealloc Tcl_Realloc +# define Tcl_Return Tcl_SetResult +# define Tcl_TildeSubst Tcl_TranslateFileName +# define panic Tcl_Panic +# define panicVA Tcl_PanicVA +#endif + +/* + * Convenience declaration of Tcl_AppInit for backwards compatibility. This + * function is not *implemented* by the tcl library, so the storage class is + * neither DLLEXPORT nor DLLIMPORT. + */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS + +EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp)); + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* RC_INVOKED */ + +/* + * end block for C++ + */ + +#ifdef __cplusplus +} +#endif + +#endif /* _TCL */ + +/* + * Local Variables: + * mode: c + * c-basic-offset: 4 + * fill-column: 78 + * End: + */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tclDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tclDecls.h new file mode 100644 index 00000000..20ec35d4 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tclDecls.h @@ -0,0 +1,6563 @@ +/* + * tclDecls.h -- + * + * Declarations of functions in the platform independent public Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TCLDECLS +#define _TCLDECLS + +#undef TCL_STORAGE_CLASS +#ifdef BUILD_tcl +# define TCL_STORAGE_CLASS DLLEXPORT +#else +# ifdef USE_TCL_STUBS +# define TCL_STORAGE_CLASS +# else +# define TCL_STORAGE_CLASS DLLIMPORT +# endif +#endif + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tcl.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported function declarations: + */ + +#ifndef Tcl_PkgProvideEx_TCL_DECLARED +#define Tcl_PkgProvideEx_TCL_DECLARED +/* 0 */ +EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp, + CONST char *name, CONST char *version, + ClientData clientData); +#endif +#ifndef Tcl_PkgRequireEx_TCL_DECLARED +#define Tcl_PkgRequireEx_TCL_DECLARED +/* 1 */ +EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, + CONST char *name, CONST char *version, + int exact, ClientData *clientDataPtr); +#endif +#ifndef Tcl_Panic_TCL_DECLARED +#define Tcl_Panic_TCL_DECLARED +/* 2 */ +EXTERN void Tcl_Panic(CONST char *format, ...); +#endif +#ifndef Tcl_Alloc_TCL_DECLARED +#define Tcl_Alloc_TCL_DECLARED +/* 3 */ +EXTERN char * Tcl_Alloc(unsigned int size); +#endif +#ifndef Tcl_Free_TCL_DECLARED +#define Tcl_Free_TCL_DECLARED +/* 4 */ +EXTERN void Tcl_Free(char *ptr); +#endif +#ifndef Tcl_Realloc_TCL_DECLARED +#define Tcl_Realloc_TCL_DECLARED +/* 5 */ +EXTERN char * Tcl_Realloc(char *ptr, unsigned int size); +#endif +#ifndef Tcl_DbCkalloc_TCL_DECLARED +#define Tcl_DbCkalloc_TCL_DECLARED +/* 6 */ +EXTERN char * Tcl_DbCkalloc(unsigned int size, CONST char *file, + int line); +#endif +#ifndef Tcl_DbCkfree_TCL_DECLARED +#define Tcl_DbCkfree_TCL_DECLARED +/* 7 */ +EXTERN void Tcl_DbCkfree(char *ptr, CONST char *file, int line); +#endif +#ifndef Tcl_DbCkrealloc_TCL_DECLARED +#define Tcl_DbCkrealloc_TCL_DECLARED +/* 8 */ +EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size, + CONST char *file, int line); +#endif +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ +#ifndef Tcl_CreateFileHandler_TCL_DECLARED +#define Tcl_CreateFileHandler_TCL_DECLARED +/* 9 */ +EXTERN void Tcl_CreateFileHandler(int fd, int mask, + Tcl_FileProc *proc, ClientData clientData); +#endif +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#ifndef Tcl_CreateFileHandler_TCL_DECLARED +#define Tcl_CreateFileHandler_TCL_DECLARED +/* 9 */ +EXTERN void Tcl_CreateFileHandler(int fd, int mask, + Tcl_FileProc *proc, ClientData clientData); +#endif +#endif /* MACOSX */ +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ +#ifndef Tcl_DeleteFileHandler_TCL_DECLARED +#define Tcl_DeleteFileHandler_TCL_DECLARED +/* 10 */ +EXTERN void Tcl_DeleteFileHandler(int fd); +#endif +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#ifndef Tcl_DeleteFileHandler_TCL_DECLARED +#define Tcl_DeleteFileHandler_TCL_DECLARED +/* 10 */ +EXTERN void Tcl_DeleteFileHandler(int fd); +#endif +#endif /* MACOSX */ +#ifndef Tcl_SetTimer_TCL_DECLARED +#define Tcl_SetTimer_TCL_DECLARED +/* 11 */ +EXTERN void Tcl_SetTimer(Tcl_Time *timePtr); +#endif +#ifndef Tcl_Sleep_TCL_DECLARED +#define Tcl_Sleep_TCL_DECLARED +/* 12 */ +EXTERN void Tcl_Sleep(int ms); +#endif +#ifndef Tcl_WaitForEvent_TCL_DECLARED +#define Tcl_WaitForEvent_TCL_DECLARED +/* 13 */ +EXTERN int Tcl_WaitForEvent(Tcl_Time *timePtr); +#endif +#ifndef Tcl_AppendAllObjTypes_TCL_DECLARED +#define Tcl_AppendAllObjTypes_TCL_DECLARED +/* 14 */ +EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp, + Tcl_Obj *objPtr); +#endif +#ifndef Tcl_AppendStringsToObj_TCL_DECLARED +#define Tcl_AppendStringsToObj_TCL_DECLARED +/* 15 */ +EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...); +#endif +#ifndef Tcl_AppendToObj_TCL_DECLARED +#define Tcl_AppendToObj_TCL_DECLARED +/* 16 */ +EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, CONST char *bytes, + int length); +#endif +#ifndef Tcl_ConcatObj_TCL_DECLARED +#define Tcl_ConcatObj_TCL_DECLARED +/* 17 */ +EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *CONST objv[]); +#endif +#ifndef Tcl_ConvertToType_TCL_DECLARED +#define Tcl_ConvertToType_TCL_DECLARED +/* 18 */ +EXTERN int Tcl_ConvertToType(Tcl_Interp *interp, + Tcl_Obj *objPtr, Tcl_ObjType *typePtr); +#endif +#ifndef Tcl_DbDecrRefCount_TCL_DECLARED +#define Tcl_DbDecrRefCount_TCL_DECLARED +/* 19 */ +EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, CONST char *file, + int line); +#endif +#ifndef Tcl_DbIncrRefCount_TCL_DECLARED +#define Tcl_DbIncrRefCount_TCL_DECLARED +/* 20 */ +EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, CONST char *file, + int line); +#endif +#ifndef Tcl_DbIsShared_TCL_DECLARED +#define Tcl_DbIsShared_TCL_DECLARED +/* 21 */ +EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, CONST char *file, + int line); +#endif +#ifndef Tcl_DbNewBooleanObj_TCL_DECLARED +#define Tcl_DbNewBooleanObj_TCL_DECLARED +/* 22 */ +EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, CONST char *file, + int line); +#endif +#ifndef Tcl_DbNewByteArrayObj_TCL_DECLARED +#define Tcl_DbNewByteArrayObj_TCL_DECLARED +/* 23 */ +EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(CONST unsigned char *bytes, + int length, CONST char *file, int line); +#endif +#ifndef Tcl_DbNewDoubleObj_TCL_DECLARED +#define Tcl_DbNewDoubleObj_TCL_DECLARED +/* 24 */ +EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, + CONST char *file, int line); +#endif +#ifndef Tcl_DbNewListObj_TCL_DECLARED +#define Tcl_DbNewListObj_TCL_DECLARED +/* 25 */ +EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST *objv, + CONST char *file, int line); +#endif +#ifndef Tcl_DbNewLongObj_TCL_DECLARED +#define Tcl_DbNewLongObj_TCL_DECLARED +/* 26 */ +EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, CONST char *file, + int line); +#endif +#ifndef Tcl_DbNewObj_TCL_DECLARED +#define Tcl_DbNewObj_TCL_DECLARED +/* 27 */ +EXTERN Tcl_Obj * Tcl_DbNewObj(CONST char *file, int line); +#endif +#ifndef Tcl_DbNewStringObj_TCL_DECLARED +#define Tcl_DbNewStringObj_TCL_DECLARED +/* 28 */ +EXTERN Tcl_Obj * Tcl_DbNewStringObj(CONST char *bytes, int length, + CONST char *file, int line); +#endif +#ifndef Tcl_DuplicateObj_TCL_DECLARED +#define Tcl_DuplicateObj_TCL_DECLARED +/* 29 */ +EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr); +#endif +#ifndef TclFreeObj_TCL_DECLARED +#define TclFreeObj_TCL_DECLARED +/* 30 */ +EXTERN void TclFreeObj(Tcl_Obj *objPtr); +#endif +#ifndef Tcl_GetBoolean_TCL_DECLARED +#define Tcl_GetBoolean_TCL_DECLARED +/* 31 */ +EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, CONST char *src, + int *boolPtr); +#endif +#ifndef Tcl_GetBooleanFromObj_TCL_DECLARED +#define Tcl_GetBooleanFromObj_TCL_DECLARED +/* 32 */ +EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, int *boolPtr); +#endif +#ifndef Tcl_GetByteArrayFromObj_TCL_DECLARED +#define Tcl_GetByteArrayFromObj_TCL_DECLARED +/* 33 */ +EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, + int *lengthPtr); +#endif +#ifndef Tcl_GetDouble_TCL_DECLARED +#define Tcl_GetDouble_TCL_DECLARED +/* 34 */ +EXTERN int Tcl_GetDouble(Tcl_Interp *interp, CONST char *src, + double *doublePtr); +#endif +#ifndef Tcl_GetDoubleFromObj_TCL_DECLARED +#define Tcl_GetDoubleFromObj_TCL_DECLARED +/* 35 */ +EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, double *doublePtr); +#endif +#ifndef Tcl_GetIndexFromObj_TCL_DECLARED +#define Tcl_GetIndexFromObj_TCL_DECLARED +/* 36 */ +EXTERN int Tcl_GetIndexFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, CONST84 char **tablePtr, + CONST char *msg, int flags, int *indexPtr); +#endif +#ifndef Tcl_GetInt_TCL_DECLARED +#define Tcl_GetInt_TCL_DECLARED +/* 37 */ +EXTERN int Tcl_GetInt(Tcl_Interp *interp, CONST char *src, + int *intPtr); +#endif +#ifndef Tcl_GetIntFromObj_TCL_DECLARED +#define Tcl_GetIntFromObj_TCL_DECLARED +/* 38 */ +EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, int *intPtr); +#endif +#ifndef Tcl_GetLongFromObj_TCL_DECLARED +#define Tcl_GetLongFromObj_TCL_DECLARED +/* 39 */ +EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, long *longPtr); +#endif +#ifndef Tcl_GetObjType_TCL_DECLARED +#define Tcl_GetObjType_TCL_DECLARED +/* 40 */ +EXTERN Tcl_ObjType * Tcl_GetObjType(CONST char *typeName); +#endif +#ifndef Tcl_GetStringFromObj_TCL_DECLARED +#define Tcl_GetStringFromObj_TCL_DECLARED +/* 41 */ +EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr); +#endif +#ifndef Tcl_InvalidateStringRep_TCL_DECLARED +#define Tcl_InvalidateStringRep_TCL_DECLARED +/* 42 */ +EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr); +#endif +#ifndef Tcl_ListObjAppendList_TCL_DECLARED +#define Tcl_ListObjAppendList_TCL_DECLARED +/* 43 */ +EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp, + Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); +#endif +#ifndef Tcl_ListObjAppendElement_TCL_DECLARED +#define Tcl_ListObjAppendElement_TCL_DECLARED +/* 44 */ +EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp, + Tcl_Obj *listPtr, Tcl_Obj *objPtr); +#endif +#ifndef Tcl_ListObjGetElements_TCL_DECLARED +#define Tcl_ListObjGetElements_TCL_DECLARED +/* 45 */ +EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp, + Tcl_Obj *listPtr, int *objcPtr, + Tcl_Obj ***objvPtr); +#endif +#ifndef Tcl_ListObjIndex_TCL_DECLARED +#define Tcl_ListObjIndex_TCL_DECLARED +/* 46 */ +EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp, + Tcl_Obj *listPtr, int index, + Tcl_Obj **objPtrPtr); +#endif +#ifndef Tcl_ListObjLength_TCL_DECLARED +#define Tcl_ListObjLength_TCL_DECLARED +/* 47 */ +EXTERN int Tcl_ListObjLength(Tcl_Interp *interp, + Tcl_Obj *listPtr, int *lengthPtr); +#endif +#ifndef Tcl_ListObjReplace_TCL_DECLARED +#define Tcl_ListObjReplace_TCL_DECLARED +/* 48 */ +EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp, + Tcl_Obj *listPtr, int first, int count, + int objc, Tcl_Obj *CONST objv[]); +#endif +#ifndef Tcl_NewBooleanObj_TCL_DECLARED +#define Tcl_NewBooleanObj_TCL_DECLARED +/* 49 */ +EXTERN Tcl_Obj * Tcl_NewBooleanObj(int boolValue); +#endif +#ifndef Tcl_NewByteArrayObj_TCL_DECLARED +#define Tcl_NewByteArrayObj_TCL_DECLARED +/* 50 */ +EXTERN Tcl_Obj * Tcl_NewByteArrayObj(CONST unsigned char *bytes, + int length); +#endif +#ifndef Tcl_NewDoubleObj_TCL_DECLARED +#define Tcl_NewDoubleObj_TCL_DECLARED +/* 51 */ +EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue); +#endif +#ifndef Tcl_NewIntObj_TCL_DECLARED +#define Tcl_NewIntObj_TCL_DECLARED +/* 52 */ +EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue); +#endif +#ifndef Tcl_NewListObj_TCL_DECLARED +#define Tcl_NewListObj_TCL_DECLARED +/* 53 */ +EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *CONST objv[]); +#endif +#ifndef Tcl_NewLongObj_TCL_DECLARED +#define Tcl_NewLongObj_TCL_DECLARED +/* 54 */ +EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue); +#endif +#ifndef Tcl_NewObj_TCL_DECLARED +#define Tcl_NewObj_TCL_DECLARED +/* 55 */ +EXTERN Tcl_Obj * Tcl_NewObj(void); +#endif +#ifndef Tcl_NewStringObj_TCL_DECLARED +#define Tcl_NewStringObj_TCL_DECLARED +/* 56 */ +EXTERN Tcl_Obj * Tcl_NewStringObj(CONST char *bytes, int length); +#endif +#ifndef Tcl_SetBooleanObj_TCL_DECLARED +#define Tcl_SetBooleanObj_TCL_DECLARED +/* 57 */ +EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue); +#endif +#ifndef Tcl_SetByteArrayLength_TCL_DECLARED +#define Tcl_SetByteArrayLength_TCL_DECLARED +/* 58 */ +EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length); +#endif +#ifndef Tcl_SetByteArrayObj_TCL_DECLARED +#define Tcl_SetByteArrayObj_TCL_DECLARED +/* 59 */ +EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, + CONST unsigned char *bytes, int length); +#endif +#ifndef Tcl_SetDoubleObj_TCL_DECLARED +#define Tcl_SetDoubleObj_TCL_DECLARED +/* 60 */ +EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue); +#endif +#ifndef Tcl_SetIntObj_TCL_DECLARED +#define Tcl_SetIntObj_TCL_DECLARED +/* 61 */ +EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue); +#endif +#ifndef Tcl_SetListObj_TCL_DECLARED +#define Tcl_SetListObj_TCL_DECLARED +/* 62 */ +EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, + Tcl_Obj *CONST objv[]); +#endif +#ifndef Tcl_SetLongObj_TCL_DECLARED +#define Tcl_SetLongObj_TCL_DECLARED +/* 63 */ +EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue); +#endif +#ifndef Tcl_SetObjLength_TCL_DECLARED +#define Tcl_SetObjLength_TCL_DECLARED +/* 64 */ +EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length); +#endif +#ifndef Tcl_SetStringObj_TCL_DECLARED +#define Tcl_SetStringObj_TCL_DECLARED +/* 65 */ +EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, CONST char *bytes, + int length); +#endif +#ifndef Tcl_AddErrorInfo_TCL_DECLARED +#define Tcl_AddErrorInfo_TCL_DECLARED +/* 66 */ +EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp, + CONST char *message); +#endif +#ifndef Tcl_AddObjErrorInfo_TCL_DECLARED +#define Tcl_AddObjErrorInfo_TCL_DECLARED +/* 67 */ +EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp, + CONST char *message, int length); +#endif +#ifndef Tcl_AllowExceptions_TCL_DECLARED +#define Tcl_AllowExceptions_TCL_DECLARED +/* 68 */ +EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp); +#endif +#ifndef Tcl_AppendElement_TCL_DECLARED +#define Tcl_AppendElement_TCL_DECLARED +/* 69 */ +EXTERN void Tcl_AppendElement(Tcl_Interp *interp, + CONST char *element); +#endif +#ifndef Tcl_AppendResult_TCL_DECLARED +#define Tcl_AppendResult_TCL_DECLARED +/* 70 */ +EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...); +#endif +#ifndef Tcl_AsyncCreate_TCL_DECLARED +#define Tcl_AsyncCreate_TCL_DECLARED +/* 71 */ +EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_AsyncDelete_TCL_DECLARED +#define Tcl_AsyncDelete_TCL_DECLARED +/* 72 */ +EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async); +#endif +#ifndef Tcl_AsyncInvoke_TCL_DECLARED +#define Tcl_AsyncInvoke_TCL_DECLARED +/* 73 */ +EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code); +#endif +#ifndef Tcl_AsyncMark_TCL_DECLARED +#define Tcl_AsyncMark_TCL_DECLARED +/* 74 */ +EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async); +#endif +#ifndef Tcl_AsyncReady_TCL_DECLARED +#define Tcl_AsyncReady_TCL_DECLARED +/* 75 */ +EXTERN int Tcl_AsyncReady(void); +#endif +#ifndef Tcl_BackgroundError_TCL_DECLARED +#define Tcl_BackgroundError_TCL_DECLARED +/* 76 */ +EXTERN void Tcl_BackgroundError(Tcl_Interp *interp); +#endif +#ifndef Tcl_Backslash_TCL_DECLARED +#define Tcl_Backslash_TCL_DECLARED +/* 77 */ +EXTERN char Tcl_Backslash(CONST char *src, int *readPtr); +#endif +#ifndef Tcl_BadChannelOption_TCL_DECLARED +#define Tcl_BadChannelOption_TCL_DECLARED +/* 78 */ +EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp, + CONST char *optionName, + CONST char *optionList); +#endif +#ifndef Tcl_CallWhenDeleted_TCL_DECLARED +#define Tcl_CallWhenDeleted_TCL_DECLARED +/* 79 */ +EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp, + Tcl_InterpDeleteProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_CancelIdleCall_TCL_DECLARED +#define Tcl_CancelIdleCall_TCL_DECLARED +/* 80 */ +EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, + ClientData clientData); +#endif +#ifndef Tcl_Close_TCL_DECLARED +#define Tcl_Close_TCL_DECLARED +/* 81 */ +EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan); +#endif +#ifndef Tcl_CommandComplete_TCL_DECLARED +#define Tcl_CommandComplete_TCL_DECLARED +/* 82 */ +EXTERN int Tcl_CommandComplete(CONST char *cmd); +#endif +#ifndef Tcl_Concat_TCL_DECLARED +#define Tcl_Concat_TCL_DECLARED +/* 83 */ +EXTERN char * Tcl_Concat(int argc, CONST84 char *CONST *argv); +#endif +#ifndef Tcl_ConvertElement_TCL_DECLARED +#define Tcl_ConvertElement_TCL_DECLARED +/* 84 */ +EXTERN int Tcl_ConvertElement(CONST char *src, char *dst, + int flags); +#endif +#ifndef Tcl_ConvertCountedElement_TCL_DECLARED +#define Tcl_ConvertCountedElement_TCL_DECLARED +/* 85 */ +EXTERN int Tcl_ConvertCountedElement(CONST char *src, + int length, char *dst, int flags); +#endif +#ifndef Tcl_CreateAlias_TCL_DECLARED +#define Tcl_CreateAlias_TCL_DECLARED +/* 86 */ +EXTERN int Tcl_CreateAlias(Tcl_Interp *slave, + CONST char *slaveCmd, Tcl_Interp *target, + CONST char *targetCmd, int argc, + CONST84 char *CONST *argv); +#endif +#ifndef Tcl_CreateAliasObj_TCL_DECLARED +#define Tcl_CreateAliasObj_TCL_DECLARED +/* 87 */ +EXTERN int Tcl_CreateAliasObj(Tcl_Interp *slave, + CONST char *slaveCmd, Tcl_Interp *target, + CONST char *targetCmd, int objc, + Tcl_Obj *CONST objv[]); +#endif +#ifndef Tcl_CreateChannel_TCL_DECLARED +#define Tcl_CreateChannel_TCL_DECLARED +/* 88 */ +EXTERN Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr, + CONST char *chanName, + ClientData instanceData, int mask); +#endif +#ifndef Tcl_CreateChannelHandler_TCL_DECLARED +#define Tcl_CreateChannelHandler_TCL_DECLARED +/* 89 */ +EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, + Tcl_ChannelProc *proc, ClientData clientData); +#endif +#ifndef Tcl_CreateCloseHandler_TCL_DECLARED +#define Tcl_CreateCloseHandler_TCL_DECLARED +/* 90 */ +EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan, + Tcl_CloseProc *proc, ClientData clientData); +#endif +#ifndef Tcl_CreateCommand_TCL_DECLARED +#define Tcl_CreateCommand_TCL_DECLARED +/* 91 */ +EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, + CONST char *cmdName, Tcl_CmdProc *proc, + ClientData clientData, + Tcl_CmdDeleteProc *deleteProc); +#endif +#ifndef Tcl_CreateEventSource_TCL_DECLARED +#define Tcl_CreateEventSource_TCL_DECLARED +/* 92 */ +EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, + Tcl_EventCheckProc *checkProc, + ClientData clientData); +#endif +#ifndef Tcl_CreateExitHandler_TCL_DECLARED +#define Tcl_CreateExitHandler_TCL_DECLARED +/* 93 */ +EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_CreateInterp_TCL_DECLARED +#define Tcl_CreateInterp_TCL_DECLARED +/* 94 */ +EXTERN Tcl_Interp * Tcl_CreateInterp(void); +#endif +#ifndef Tcl_CreateMathFunc_TCL_DECLARED +#define Tcl_CreateMathFunc_TCL_DECLARED +/* 95 */ +EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp, + CONST char *name, int numArgs, + Tcl_ValueType *argTypes, Tcl_MathProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_CreateObjCommand_TCL_DECLARED +#define Tcl_CreateObjCommand_TCL_DECLARED +/* 96 */ +EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, + CONST char *cmdName, Tcl_ObjCmdProc *proc, + ClientData clientData, + Tcl_CmdDeleteProc *deleteProc); +#endif +#ifndef Tcl_CreateSlave_TCL_DECLARED +#define Tcl_CreateSlave_TCL_DECLARED +/* 97 */ +EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, + CONST char *slaveName, int isSafe); +#endif +#ifndef Tcl_CreateTimerHandler_TCL_DECLARED +#define Tcl_CreateTimerHandler_TCL_DECLARED +/* 98 */ +EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, + Tcl_TimerProc *proc, ClientData clientData); +#endif +#ifndef Tcl_CreateTrace_TCL_DECLARED +#define Tcl_CreateTrace_TCL_DECLARED +/* 99 */ +EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, + Tcl_CmdTraceProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_DeleteAssocData_TCL_DECLARED +#define Tcl_DeleteAssocData_TCL_DECLARED +/* 100 */ +EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp, + CONST char *name); +#endif +#ifndef Tcl_DeleteChannelHandler_TCL_DECLARED +#define Tcl_DeleteChannelHandler_TCL_DECLARED +/* 101 */ +EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan, + Tcl_ChannelProc *proc, ClientData clientData); +#endif +#ifndef Tcl_DeleteCloseHandler_TCL_DECLARED +#define Tcl_DeleteCloseHandler_TCL_DECLARED +/* 102 */ +EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan, + Tcl_CloseProc *proc, ClientData clientData); +#endif +#ifndef Tcl_DeleteCommand_TCL_DECLARED +#define Tcl_DeleteCommand_TCL_DECLARED +/* 103 */ +EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp, + CONST char *cmdName); +#endif +#ifndef Tcl_DeleteCommandFromToken_TCL_DECLARED +#define Tcl_DeleteCommandFromToken_TCL_DECLARED +/* 104 */ +EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, + Tcl_Command command); +#endif +#ifndef Tcl_DeleteEvents_TCL_DECLARED +#define Tcl_DeleteEvents_TCL_DECLARED +/* 105 */ +EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_DeleteEventSource_TCL_DECLARED +#define Tcl_DeleteEventSource_TCL_DECLARED +/* 106 */ +EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, + Tcl_EventCheckProc *checkProc, + ClientData clientData); +#endif +#ifndef Tcl_DeleteExitHandler_TCL_DECLARED +#define Tcl_DeleteExitHandler_TCL_DECLARED +/* 107 */ +EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_DeleteHashEntry_TCL_DECLARED +#define Tcl_DeleteHashEntry_TCL_DECLARED +/* 108 */ +EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr); +#endif +#ifndef Tcl_DeleteHashTable_TCL_DECLARED +#define Tcl_DeleteHashTable_TCL_DECLARED +/* 109 */ +EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr); +#endif +#ifndef Tcl_DeleteInterp_TCL_DECLARED +#define Tcl_DeleteInterp_TCL_DECLARED +/* 110 */ +EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp); +#endif +#ifndef Tcl_DetachPids_TCL_DECLARED +#define Tcl_DetachPids_TCL_DECLARED +/* 111 */ +EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr); +#endif +#ifndef Tcl_DeleteTimerHandler_TCL_DECLARED +#define Tcl_DeleteTimerHandler_TCL_DECLARED +/* 112 */ +EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token); +#endif +#ifndef Tcl_DeleteTrace_TCL_DECLARED +#define Tcl_DeleteTrace_TCL_DECLARED +/* 113 */ +EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace); +#endif +#ifndef Tcl_DontCallWhenDeleted_TCL_DECLARED +#define Tcl_DontCallWhenDeleted_TCL_DECLARED +/* 114 */ +EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, + Tcl_InterpDeleteProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_DoOneEvent_TCL_DECLARED +#define Tcl_DoOneEvent_TCL_DECLARED +/* 115 */ +EXTERN int Tcl_DoOneEvent(int flags); +#endif +#ifndef Tcl_DoWhenIdle_TCL_DECLARED +#define Tcl_DoWhenIdle_TCL_DECLARED +/* 116 */ +EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_DStringAppend_TCL_DECLARED +#define Tcl_DStringAppend_TCL_DECLARED +/* 117 */ +EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr, + CONST char *bytes, int length); +#endif +#ifndef Tcl_DStringAppendElement_TCL_DECLARED +#define Tcl_DStringAppendElement_TCL_DECLARED +/* 118 */ +EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, + CONST char *element); +#endif +#ifndef Tcl_DStringEndSublist_TCL_DECLARED +#define Tcl_DStringEndSublist_TCL_DECLARED +/* 119 */ +EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr); +#endif +#ifndef Tcl_DStringFree_TCL_DECLARED +#define Tcl_DStringFree_TCL_DECLARED +/* 120 */ +EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr); +#endif +#ifndef Tcl_DStringGetResult_TCL_DECLARED +#define Tcl_DStringGetResult_TCL_DECLARED +/* 121 */ +EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp, + Tcl_DString *dsPtr); +#endif +#ifndef Tcl_DStringInit_TCL_DECLARED +#define Tcl_DStringInit_TCL_DECLARED +/* 122 */ +EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr); +#endif +#ifndef Tcl_DStringResult_TCL_DECLARED +#define Tcl_DStringResult_TCL_DECLARED +/* 123 */ +EXTERN void Tcl_DStringResult(Tcl_Interp *interp, + Tcl_DString *dsPtr); +#endif +#ifndef Tcl_DStringSetLength_TCL_DECLARED +#define Tcl_DStringSetLength_TCL_DECLARED +/* 124 */ +EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length); +#endif +#ifndef Tcl_DStringStartSublist_TCL_DECLARED +#define Tcl_DStringStartSublist_TCL_DECLARED +/* 125 */ +EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr); +#endif +#ifndef Tcl_Eof_TCL_DECLARED +#define Tcl_Eof_TCL_DECLARED +/* 126 */ +EXTERN int Tcl_Eof(Tcl_Channel chan); +#endif +#ifndef Tcl_ErrnoId_TCL_DECLARED +#define Tcl_ErrnoId_TCL_DECLARED +/* 127 */ +EXTERN CONST84_RETURN char * Tcl_ErrnoId(void); +#endif +#ifndef Tcl_ErrnoMsg_TCL_DECLARED +#define Tcl_ErrnoMsg_TCL_DECLARED +/* 128 */ +EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err); +#endif +#ifndef Tcl_Eval_TCL_DECLARED +#define Tcl_Eval_TCL_DECLARED +/* 129 */ +EXTERN int Tcl_Eval(Tcl_Interp *interp, CONST char *script); +#endif +#ifndef Tcl_EvalFile_TCL_DECLARED +#define Tcl_EvalFile_TCL_DECLARED +/* 130 */ +EXTERN int Tcl_EvalFile(Tcl_Interp *interp, + CONST char *fileName); +#endif +#ifndef Tcl_EvalObj_TCL_DECLARED +#define Tcl_EvalObj_TCL_DECLARED +/* 131 */ +EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr); +#endif +#ifndef Tcl_EventuallyFree_TCL_DECLARED +#define Tcl_EventuallyFree_TCL_DECLARED +/* 132 */ +EXTERN void Tcl_EventuallyFree(ClientData clientData, + Tcl_FreeProc *freeProc); +#endif +#ifndef Tcl_Exit_TCL_DECLARED +#define Tcl_Exit_TCL_DECLARED +/* 133 */ +EXTERN void Tcl_Exit(int status); +#endif +#ifndef Tcl_ExposeCommand_TCL_DECLARED +#define Tcl_ExposeCommand_TCL_DECLARED +/* 134 */ +EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp, + CONST char *hiddenCmdToken, + CONST char *cmdName); +#endif +#ifndef Tcl_ExprBoolean_TCL_DECLARED +#define Tcl_ExprBoolean_TCL_DECLARED +/* 135 */ +EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, CONST char *expr, + int *ptr); +#endif +#ifndef Tcl_ExprBooleanObj_TCL_DECLARED +#define Tcl_ExprBooleanObj_TCL_DECLARED +/* 136 */ +EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, int *ptr); +#endif +#ifndef Tcl_ExprDouble_TCL_DECLARED +#define Tcl_ExprDouble_TCL_DECLARED +/* 137 */ +EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, CONST char *expr, + double *ptr); +#endif +#ifndef Tcl_ExprDoubleObj_TCL_DECLARED +#define Tcl_ExprDoubleObj_TCL_DECLARED +/* 138 */ +EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, double *ptr); +#endif +#ifndef Tcl_ExprLong_TCL_DECLARED +#define Tcl_ExprLong_TCL_DECLARED +/* 139 */ +EXTERN int Tcl_ExprLong(Tcl_Interp *interp, CONST char *expr, + long *ptr); +#endif +#ifndef Tcl_ExprLongObj_TCL_DECLARED +#define Tcl_ExprLongObj_TCL_DECLARED +/* 140 */ +EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, + long *ptr); +#endif +#ifndef Tcl_ExprObj_TCL_DECLARED +#define Tcl_ExprObj_TCL_DECLARED +/* 141 */ +EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, + Tcl_Obj **resultPtrPtr); +#endif +#ifndef Tcl_ExprString_TCL_DECLARED +#define Tcl_ExprString_TCL_DECLARED +/* 142 */ +EXTERN int Tcl_ExprString(Tcl_Interp *interp, CONST char *expr); +#endif +#ifndef Tcl_Finalize_TCL_DECLARED +#define Tcl_Finalize_TCL_DECLARED +/* 143 */ +EXTERN void Tcl_Finalize(void); +#endif +#ifndef Tcl_FindExecutable_TCL_DECLARED +#define Tcl_FindExecutable_TCL_DECLARED +/* 144 */ +EXTERN void Tcl_FindExecutable(CONST char *argv0); +#endif +#ifndef Tcl_FirstHashEntry_TCL_DECLARED +#define Tcl_FirstHashEntry_TCL_DECLARED +/* 145 */ +EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, + Tcl_HashSearch *searchPtr); +#endif +#ifndef Tcl_Flush_TCL_DECLARED +#define Tcl_Flush_TCL_DECLARED +/* 146 */ +EXTERN int Tcl_Flush(Tcl_Channel chan); +#endif +#ifndef Tcl_FreeResult_TCL_DECLARED +#define Tcl_FreeResult_TCL_DECLARED +/* 147 */ +EXTERN void Tcl_FreeResult(Tcl_Interp *interp); +#endif +#ifndef Tcl_GetAlias_TCL_DECLARED +#define Tcl_GetAlias_TCL_DECLARED +/* 148 */ +EXTERN int Tcl_GetAlias(Tcl_Interp *interp, + CONST char *slaveCmd, + Tcl_Interp **targetInterpPtr, + CONST84 char **targetCmdPtr, int *argcPtr, + CONST84 char ***argvPtr); +#endif +#ifndef Tcl_GetAliasObj_TCL_DECLARED +#define Tcl_GetAliasObj_TCL_DECLARED +/* 149 */ +EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp, + CONST char *slaveCmd, + Tcl_Interp **targetInterpPtr, + CONST84 char **targetCmdPtr, int *objcPtr, + Tcl_Obj ***objv); +#endif +#ifndef Tcl_GetAssocData_TCL_DECLARED +#define Tcl_GetAssocData_TCL_DECLARED +/* 150 */ +EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp, + CONST char *name, + Tcl_InterpDeleteProc **procPtr); +#endif +#ifndef Tcl_GetChannel_TCL_DECLARED +#define Tcl_GetChannel_TCL_DECLARED +/* 151 */ +EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, + CONST char *chanName, int *modePtr); +#endif +#ifndef Tcl_GetChannelBufferSize_TCL_DECLARED +#define Tcl_GetChannelBufferSize_TCL_DECLARED +/* 152 */ +EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan); +#endif +#ifndef Tcl_GetChannelHandle_TCL_DECLARED +#define Tcl_GetChannelHandle_TCL_DECLARED +/* 153 */ +EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction, + ClientData *handlePtr); +#endif +#ifndef Tcl_GetChannelInstanceData_TCL_DECLARED +#define Tcl_GetChannelInstanceData_TCL_DECLARED +/* 154 */ +EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan); +#endif +#ifndef Tcl_GetChannelMode_TCL_DECLARED +#define Tcl_GetChannelMode_TCL_DECLARED +/* 155 */ +EXTERN int Tcl_GetChannelMode(Tcl_Channel chan); +#endif +#ifndef Tcl_GetChannelName_TCL_DECLARED +#define Tcl_GetChannelName_TCL_DECLARED +/* 156 */ +EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan); +#endif +#ifndef Tcl_GetChannelOption_TCL_DECLARED +#define Tcl_GetChannelOption_TCL_DECLARED +/* 157 */ +EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp, + Tcl_Channel chan, CONST char *optionName, + Tcl_DString *dsPtr); +#endif +#ifndef Tcl_GetChannelType_TCL_DECLARED +#define Tcl_GetChannelType_TCL_DECLARED +/* 158 */ +EXTERN Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan); +#endif +#ifndef Tcl_GetCommandInfo_TCL_DECLARED +#define Tcl_GetCommandInfo_TCL_DECLARED +/* 159 */ +EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp, + CONST char *cmdName, Tcl_CmdInfo *infoPtr); +#endif +#ifndef Tcl_GetCommandName_TCL_DECLARED +#define Tcl_GetCommandName_TCL_DECLARED +/* 160 */ +EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp, + Tcl_Command command); +#endif +#ifndef Tcl_GetErrno_TCL_DECLARED +#define Tcl_GetErrno_TCL_DECLARED +/* 161 */ +EXTERN int Tcl_GetErrno(void); +#endif +#ifndef Tcl_GetHostName_TCL_DECLARED +#define Tcl_GetHostName_TCL_DECLARED +/* 162 */ +EXTERN CONST84_RETURN char * Tcl_GetHostName(void); +#endif +#ifndef Tcl_GetInterpPath_TCL_DECLARED +#define Tcl_GetInterpPath_TCL_DECLARED +/* 163 */ +EXTERN int Tcl_GetInterpPath(Tcl_Interp *askInterp, + Tcl_Interp *slaveInterp); +#endif +#ifndef Tcl_GetMaster_TCL_DECLARED +#define Tcl_GetMaster_TCL_DECLARED +/* 164 */ +EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp); +#endif +#ifndef Tcl_GetNameOfExecutable_TCL_DECLARED +#define Tcl_GetNameOfExecutable_TCL_DECLARED +/* 165 */ +EXTERN CONST char * Tcl_GetNameOfExecutable(void); +#endif +#ifndef Tcl_GetObjResult_TCL_DECLARED +#define Tcl_GetObjResult_TCL_DECLARED +/* 166 */ +EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp); +#endif +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ +#ifndef Tcl_GetOpenFile_TCL_DECLARED +#define Tcl_GetOpenFile_TCL_DECLARED +/* 167 */ +EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, + CONST char *chanID, int forWriting, + int checkUsage, ClientData *filePtr); +#endif +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#ifndef Tcl_GetOpenFile_TCL_DECLARED +#define Tcl_GetOpenFile_TCL_DECLARED +/* 167 */ +EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, + CONST char *chanID, int forWriting, + int checkUsage, ClientData *filePtr); +#endif +#endif /* MACOSX */ +#ifndef Tcl_GetPathType_TCL_DECLARED +#define Tcl_GetPathType_TCL_DECLARED +/* 168 */ +EXTERN Tcl_PathType Tcl_GetPathType(CONST char *path); +#endif +#ifndef Tcl_Gets_TCL_DECLARED +#define Tcl_Gets_TCL_DECLARED +/* 169 */ +EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr); +#endif +#ifndef Tcl_GetsObj_TCL_DECLARED +#define Tcl_GetsObj_TCL_DECLARED +/* 170 */ +EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr); +#endif +#ifndef Tcl_GetServiceMode_TCL_DECLARED +#define Tcl_GetServiceMode_TCL_DECLARED +/* 171 */ +EXTERN int Tcl_GetServiceMode(void); +#endif +#ifndef Tcl_GetSlave_TCL_DECLARED +#define Tcl_GetSlave_TCL_DECLARED +/* 172 */ +EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, + CONST char *slaveName); +#endif +#ifndef Tcl_GetStdChannel_TCL_DECLARED +#define Tcl_GetStdChannel_TCL_DECLARED +/* 173 */ +EXTERN Tcl_Channel Tcl_GetStdChannel(int type); +#endif +#ifndef Tcl_GetStringResult_TCL_DECLARED +#define Tcl_GetStringResult_TCL_DECLARED +/* 174 */ +EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp); +#endif +#ifndef Tcl_GetVar_TCL_DECLARED +#define Tcl_GetVar_TCL_DECLARED +/* 175 */ +EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp, + CONST char *varName, int flags); +#endif +#ifndef Tcl_GetVar2_TCL_DECLARED +#define Tcl_GetVar2_TCL_DECLARED +/* 176 */ +EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp, + CONST char *part1, CONST char *part2, + int flags); +#endif +#ifndef Tcl_GlobalEval_TCL_DECLARED +#define Tcl_GlobalEval_TCL_DECLARED +/* 177 */ +EXTERN int Tcl_GlobalEval(Tcl_Interp *interp, + CONST char *command); +#endif +#ifndef Tcl_GlobalEvalObj_TCL_DECLARED +#define Tcl_GlobalEvalObj_TCL_DECLARED +/* 178 */ +EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp, + Tcl_Obj *objPtr); +#endif +#ifndef Tcl_HideCommand_TCL_DECLARED +#define Tcl_HideCommand_TCL_DECLARED +/* 179 */ +EXTERN int Tcl_HideCommand(Tcl_Interp *interp, + CONST char *cmdName, + CONST char *hiddenCmdToken); +#endif +#ifndef Tcl_Init_TCL_DECLARED +#define Tcl_Init_TCL_DECLARED +/* 180 */ +EXTERN int Tcl_Init(Tcl_Interp *interp); +#endif +#ifndef Tcl_InitHashTable_TCL_DECLARED +#define Tcl_InitHashTable_TCL_DECLARED +/* 181 */ +EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr, + int keyType); +#endif +#ifndef Tcl_InputBlocked_TCL_DECLARED +#define Tcl_InputBlocked_TCL_DECLARED +/* 182 */ +EXTERN int Tcl_InputBlocked(Tcl_Channel chan); +#endif +#ifndef Tcl_InputBuffered_TCL_DECLARED +#define Tcl_InputBuffered_TCL_DECLARED +/* 183 */ +EXTERN int Tcl_InputBuffered(Tcl_Channel chan); +#endif +#ifndef Tcl_InterpDeleted_TCL_DECLARED +#define Tcl_InterpDeleted_TCL_DECLARED +/* 184 */ +EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp); +#endif +#ifndef Tcl_IsSafe_TCL_DECLARED +#define Tcl_IsSafe_TCL_DECLARED +/* 185 */ +EXTERN int Tcl_IsSafe(Tcl_Interp *interp); +#endif +#ifndef Tcl_JoinPath_TCL_DECLARED +#define Tcl_JoinPath_TCL_DECLARED +/* 186 */ +EXTERN char * Tcl_JoinPath(int argc, CONST84 char *CONST *argv, + Tcl_DString *resultPtr); +#endif +#ifndef Tcl_LinkVar_TCL_DECLARED +#define Tcl_LinkVar_TCL_DECLARED +/* 187 */ +EXTERN int Tcl_LinkVar(Tcl_Interp *interp, CONST char *varName, + char *addr, int type); +#endif +/* Slot 188 is reserved */ +#ifndef Tcl_MakeFileChannel_TCL_DECLARED +#define Tcl_MakeFileChannel_TCL_DECLARED +/* 189 */ +EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode); +#endif +#ifndef Tcl_MakeSafe_TCL_DECLARED +#define Tcl_MakeSafe_TCL_DECLARED +/* 190 */ +EXTERN int Tcl_MakeSafe(Tcl_Interp *interp); +#endif +#ifndef Tcl_MakeTcpClientChannel_TCL_DECLARED +#define Tcl_MakeTcpClientChannel_TCL_DECLARED +/* 191 */ +EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket); +#endif +#ifndef Tcl_Merge_TCL_DECLARED +#define Tcl_Merge_TCL_DECLARED +/* 192 */ +EXTERN char * Tcl_Merge(int argc, CONST84 char *CONST *argv); +#endif +#ifndef Tcl_NextHashEntry_TCL_DECLARED +#define Tcl_NextHashEntry_TCL_DECLARED +/* 193 */ +EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr); +#endif +#ifndef Tcl_NotifyChannel_TCL_DECLARED +#define Tcl_NotifyChannel_TCL_DECLARED +/* 194 */ +EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask); +#endif +#ifndef Tcl_ObjGetVar2_TCL_DECLARED +#define Tcl_ObjGetVar2_TCL_DECLARED +/* 195 */ +EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, + Tcl_Obj *part2Ptr, int flags); +#endif +#ifndef Tcl_ObjSetVar2_TCL_DECLARED +#define Tcl_ObjSetVar2_TCL_DECLARED +/* 196 */ +EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, + Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, + int flags); +#endif +#ifndef Tcl_OpenCommandChannel_TCL_DECLARED +#define Tcl_OpenCommandChannel_TCL_DECLARED +/* 197 */ +EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, + CONST84 char **argv, int flags); +#endif +#ifndef Tcl_OpenFileChannel_TCL_DECLARED +#define Tcl_OpenFileChannel_TCL_DECLARED +/* 198 */ +EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, + CONST char *fileName, CONST char *modeString, + int permissions); +#endif +#ifndef Tcl_OpenTcpClient_TCL_DECLARED +#define Tcl_OpenTcpClient_TCL_DECLARED +/* 199 */ +EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, + CONST char *address, CONST char *myaddr, + int myport, int async); +#endif +#ifndef Tcl_OpenTcpServer_TCL_DECLARED +#define Tcl_OpenTcpServer_TCL_DECLARED +/* 200 */ +EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, + CONST char *host, + Tcl_TcpAcceptProc *acceptProc, + ClientData callbackData); +#endif +#ifndef Tcl_Preserve_TCL_DECLARED +#define Tcl_Preserve_TCL_DECLARED +/* 201 */ +EXTERN void Tcl_Preserve(ClientData data); +#endif +#ifndef Tcl_PrintDouble_TCL_DECLARED +#define Tcl_PrintDouble_TCL_DECLARED +/* 202 */ +EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value, + char *dst); +#endif +#ifndef Tcl_PutEnv_TCL_DECLARED +#define Tcl_PutEnv_TCL_DECLARED +/* 203 */ +EXTERN int Tcl_PutEnv(CONST char *assignment); +#endif +#ifndef Tcl_PosixError_TCL_DECLARED +#define Tcl_PosixError_TCL_DECLARED +/* 204 */ +EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp); +#endif +#ifndef Tcl_QueueEvent_TCL_DECLARED +#define Tcl_QueueEvent_TCL_DECLARED +/* 205 */ +EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr, + Tcl_QueuePosition position); +#endif +#ifndef Tcl_Read_TCL_DECLARED +#define Tcl_Read_TCL_DECLARED +/* 206 */ +EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead); +#endif +#ifndef Tcl_ReapDetachedProcs_TCL_DECLARED +#define Tcl_ReapDetachedProcs_TCL_DECLARED +/* 207 */ +EXTERN void Tcl_ReapDetachedProcs(void); +#endif +#ifndef Tcl_RecordAndEval_TCL_DECLARED +#define Tcl_RecordAndEval_TCL_DECLARED +/* 208 */ +EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp, + CONST char *cmd, int flags); +#endif +#ifndef Tcl_RecordAndEvalObj_TCL_DECLARED +#define Tcl_RecordAndEvalObj_TCL_DECLARED +/* 209 */ +EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp, + Tcl_Obj *cmdPtr, int flags); +#endif +#ifndef Tcl_RegisterChannel_TCL_DECLARED +#define Tcl_RegisterChannel_TCL_DECLARED +/* 210 */ +EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp, + Tcl_Channel chan); +#endif +#ifndef Tcl_RegisterObjType_TCL_DECLARED +#define Tcl_RegisterObjType_TCL_DECLARED +/* 211 */ +EXTERN void Tcl_RegisterObjType(Tcl_ObjType *typePtr); +#endif +#ifndef Tcl_RegExpCompile_TCL_DECLARED +#define Tcl_RegExpCompile_TCL_DECLARED +/* 212 */ +EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, + CONST char *pattern); +#endif +#ifndef Tcl_RegExpExec_TCL_DECLARED +#define Tcl_RegExpExec_TCL_DECLARED +/* 213 */ +EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp, + CONST char *text, CONST char *start); +#endif +#ifndef Tcl_RegExpMatch_TCL_DECLARED +#define Tcl_RegExpMatch_TCL_DECLARED +/* 214 */ +EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, CONST char *text, + CONST char *pattern); +#endif +#ifndef Tcl_RegExpRange_TCL_DECLARED +#define Tcl_RegExpRange_TCL_DECLARED +/* 215 */ +EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index, + CONST84 char **startPtr, + CONST84 char **endPtr); +#endif +#ifndef Tcl_Release_TCL_DECLARED +#define Tcl_Release_TCL_DECLARED +/* 216 */ +EXTERN void Tcl_Release(ClientData clientData); +#endif +#ifndef Tcl_ResetResult_TCL_DECLARED +#define Tcl_ResetResult_TCL_DECLARED +/* 217 */ +EXTERN void Tcl_ResetResult(Tcl_Interp *interp); +#endif +#ifndef Tcl_ScanElement_TCL_DECLARED +#define Tcl_ScanElement_TCL_DECLARED +/* 218 */ +EXTERN int Tcl_ScanElement(CONST char *src, int *flagPtr); +#endif +#ifndef Tcl_ScanCountedElement_TCL_DECLARED +#define Tcl_ScanCountedElement_TCL_DECLARED +/* 219 */ +EXTERN int Tcl_ScanCountedElement(CONST char *src, int length, + int *flagPtr); +#endif +#ifndef Tcl_SeekOld_TCL_DECLARED +#define Tcl_SeekOld_TCL_DECLARED +/* 220 */ +EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode); +#endif +#ifndef Tcl_ServiceAll_TCL_DECLARED +#define Tcl_ServiceAll_TCL_DECLARED +/* 221 */ +EXTERN int Tcl_ServiceAll(void); +#endif +#ifndef Tcl_ServiceEvent_TCL_DECLARED +#define Tcl_ServiceEvent_TCL_DECLARED +/* 222 */ +EXTERN int Tcl_ServiceEvent(int flags); +#endif +#ifndef Tcl_SetAssocData_TCL_DECLARED +#define Tcl_SetAssocData_TCL_DECLARED +/* 223 */ +EXTERN void Tcl_SetAssocData(Tcl_Interp *interp, + CONST char *name, Tcl_InterpDeleteProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_SetChannelBufferSize_TCL_DECLARED +#define Tcl_SetChannelBufferSize_TCL_DECLARED +/* 224 */ +EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz); +#endif +#ifndef Tcl_SetChannelOption_TCL_DECLARED +#define Tcl_SetChannelOption_TCL_DECLARED +/* 225 */ +EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp, + Tcl_Channel chan, CONST char *optionName, + CONST char *newValue); +#endif +#ifndef Tcl_SetCommandInfo_TCL_DECLARED +#define Tcl_SetCommandInfo_TCL_DECLARED +/* 226 */ +EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp, + CONST char *cmdName, + CONST Tcl_CmdInfo *infoPtr); +#endif +#ifndef Tcl_SetErrno_TCL_DECLARED +#define Tcl_SetErrno_TCL_DECLARED +/* 227 */ +EXTERN void Tcl_SetErrno(int err); +#endif +#ifndef Tcl_SetErrorCode_TCL_DECLARED +#define Tcl_SetErrorCode_TCL_DECLARED +/* 228 */ +EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...); +#endif +#ifndef Tcl_SetMaxBlockTime_TCL_DECLARED +#define Tcl_SetMaxBlockTime_TCL_DECLARED +/* 229 */ +EXTERN void Tcl_SetMaxBlockTime(Tcl_Time *timePtr); +#endif +#ifndef Tcl_SetPanicProc_TCL_DECLARED +#define Tcl_SetPanicProc_TCL_DECLARED +/* 230 */ +EXTERN void Tcl_SetPanicProc(Tcl_PanicProc *panicProc); +#endif +#ifndef Tcl_SetRecursionLimit_TCL_DECLARED +#define Tcl_SetRecursionLimit_TCL_DECLARED +/* 231 */ +EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth); +#endif +#ifndef Tcl_SetResult_TCL_DECLARED +#define Tcl_SetResult_TCL_DECLARED +/* 232 */ +EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result, + Tcl_FreeProc *freeProc); +#endif +#ifndef Tcl_SetServiceMode_TCL_DECLARED +#define Tcl_SetServiceMode_TCL_DECLARED +/* 233 */ +EXTERN int Tcl_SetServiceMode(int mode); +#endif +#ifndef Tcl_SetObjErrorCode_TCL_DECLARED +#define Tcl_SetObjErrorCode_TCL_DECLARED +/* 234 */ +EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp, + Tcl_Obj *errorObjPtr); +#endif +#ifndef Tcl_SetObjResult_TCL_DECLARED +#define Tcl_SetObjResult_TCL_DECLARED +/* 235 */ +EXTERN void Tcl_SetObjResult(Tcl_Interp *interp, + Tcl_Obj *resultObjPtr); +#endif +#ifndef Tcl_SetStdChannel_TCL_DECLARED +#define Tcl_SetStdChannel_TCL_DECLARED +/* 236 */ +EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type); +#endif +#ifndef Tcl_SetVar_TCL_DECLARED +#define Tcl_SetVar_TCL_DECLARED +/* 237 */ +EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp, + CONST char *varName, CONST char *newValue, + int flags); +#endif +#ifndef Tcl_SetVar2_TCL_DECLARED +#define Tcl_SetVar2_TCL_DECLARED +/* 238 */ +EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp, + CONST char *part1, CONST char *part2, + CONST char *newValue, int flags); +#endif +#ifndef Tcl_SignalId_TCL_DECLARED +#define Tcl_SignalId_TCL_DECLARED +/* 239 */ +EXTERN CONST84_RETURN char * Tcl_SignalId(int sig); +#endif +#ifndef Tcl_SignalMsg_TCL_DECLARED +#define Tcl_SignalMsg_TCL_DECLARED +/* 240 */ +EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig); +#endif +#ifndef Tcl_SourceRCFile_TCL_DECLARED +#define Tcl_SourceRCFile_TCL_DECLARED +/* 241 */ +EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp); +#endif +#ifndef Tcl_SplitList_TCL_DECLARED +#define Tcl_SplitList_TCL_DECLARED +/* 242 */ +EXTERN int Tcl_SplitList(Tcl_Interp *interp, + CONST char *listStr, int *argcPtr, + CONST84 char ***argvPtr); +#endif +#ifndef Tcl_SplitPath_TCL_DECLARED +#define Tcl_SplitPath_TCL_DECLARED +/* 243 */ +EXTERN void Tcl_SplitPath(CONST char *path, int *argcPtr, + CONST84 char ***argvPtr); +#endif +#ifndef Tcl_StaticPackage_TCL_DECLARED +#define Tcl_StaticPackage_TCL_DECLARED +/* 244 */ +EXTERN void Tcl_StaticPackage(Tcl_Interp *interp, + CONST char *pkgName, + Tcl_PackageInitProc *initProc, + Tcl_PackageInitProc *safeInitProc); +#endif +#ifndef Tcl_StringMatch_TCL_DECLARED +#define Tcl_StringMatch_TCL_DECLARED +/* 245 */ +EXTERN int Tcl_StringMatch(CONST char *str, CONST char *pattern); +#endif +#ifndef Tcl_TellOld_TCL_DECLARED +#define Tcl_TellOld_TCL_DECLARED +/* 246 */ +EXTERN int Tcl_TellOld(Tcl_Channel chan); +#endif +#ifndef Tcl_TraceVar_TCL_DECLARED +#define Tcl_TraceVar_TCL_DECLARED +/* 247 */ +EXTERN int Tcl_TraceVar(Tcl_Interp *interp, CONST char *varName, + int flags, Tcl_VarTraceProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_TraceVar2_TCL_DECLARED +#define Tcl_TraceVar2_TCL_DECLARED +/* 248 */ +EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, CONST char *part1, + CONST char *part2, int flags, + Tcl_VarTraceProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_TranslateFileName_TCL_DECLARED +#define Tcl_TranslateFileName_TCL_DECLARED +/* 249 */ +EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp, + CONST char *name, Tcl_DString *bufferPtr); +#endif +#ifndef Tcl_Ungets_TCL_DECLARED +#define Tcl_Ungets_TCL_DECLARED +/* 250 */ +EXTERN int Tcl_Ungets(Tcl_Channel chan, CONST char *str, + int len, int atHead); +#endif +#ifndef Tcl_UnlinkVar_TCL_DECLARED +#define Tcl_UnlinkVar_TCL_DECLARED +/* 251 */ +EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp, + CONST char *varName); +#endif +#ifndef Tcl_UnregisterChannel_TCL_DECLARED +#define Tcl_UnregisterChannel_TCL_DECLARED +/* 252 */ +EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp, + Tcl_Channel chan); +#endif +#ifndef Tcl_UnsetVar_TCL_DECLARED +#define Tcl_UnsetVar_TCL_DECLARED +/* 253 */ +EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, CONST char *varName, + int flags); +#endif +#ifndef Tcl_UnsetVar2_TCL_DECLARED +#define Tcl_UnsetVar2_TCL_DECLARED +/* 254 */ +EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, CONST char *part1, + CONST char *part2, int flags); +#endif +#ifndef Tcl_UntraceVar_TCL_DECLARED +#define Tcl_UntraceVar_TCL_DECLARED +/* 255 */ +EXTERN void Tcl_UntraceVar(Tcl_Interp *interp, + CONST char *varName, int flags, + Tcl_VarTraceProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_UntraceVar2_TCL_DECLARED +#define Tcl_UntraceVar2_TCL_DECLARED +/* 256 */ +EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp, + CONST char *part1, CONST char *part2, + int flags, Tcl_VarTraceProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_UpdateLinkedVar_TCL_DECLARED +#define Tcl_UpdateLinkedVar_TCL_DECLARED +/* 257 */ +EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp, + CONST char *varName); +#endif +#ifndef Tcl_UpVar_TCL_DECLARED +#define Tcl_UpVar_TCL_DECLARED +/* 258 */ +EXTERN int Tcl_UpVar(Tcl_Interp *interp, CONST char *frameName, + CONST char *varName, CONST char *localName, + int flags); +#endif +#ifndef Tcl_UpVar2_TCL_DECLARED +#define Tcl_UpVar2_TCL_DECLARED +/* 259 */ +EXTERN int Tcl_UpVar2(Tcl_Interp *interp, CONST char *frameName, + CONST char *part1, CONST char *part2, + CONST char *localName, int flags); +#endif +#ifndef Tcl_VarEval_TCL_DECLARED +#define Tcl_VarEval_TCL_DECLARED +/* 260 */ +EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...); +#endif +#ifndef Tcl_VarTraceInfo_TCL_DECLARED +#define Tcl_VarTraceInfo_TCL_DECLARED +/* 261 */ +EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, + CONST char *varName, int flags, + Tcl_VarTraceProc *procPtr, + ClientData prevClientData); +#endif +#ifndef Tcl_VarTraceInfo2_TCL_DECLARED +#define Tcl_VarTraceInfo2_TCL_DECLARED +/* 262 */ +EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, + CONST char *part1, CONST char *part2, + int flags, Tcl_VarTraceProc *procPtr, + ClientData prevClientData); +#endif +#ifndef Tcl_Write_TCL_DECLARED +#define Tcl_Write_TCL_DECLARED +/* 263 */ +EXTERN int Tcl_Write(Tcl_Channel chan, CONST char *s, int slen); +#endif +#ifndef Tcl_WrongNumArgs_TCL_DECLARED +#define Tcl_WrongNumArgs_TCL_DECLARED +/* 264 */ +EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[], CONST char *message); +#endif +#ifndef Tcl_DumpActiveMemory_TCL_DECLARED +#define Tcl_DumpActiveMemory_TCL_DECLARED +/* 265 */ +EXTERN int Tcl_DumpActiveMemory(CONST char *fileName); +#endif +#ifndef Tcl_ValidateAllMemory_TCL_DECLARED +#define Tcl_ValidateAllMemory_TCL_DECLARED +/* 266 */ +EXTERN void Tcl_ValidateAllMemory(CONST char *file, int line); +#endif +#ifndef Tcl_AppendResultVA_TCL_DECLARED +#define Tcl_AppendResultVA_TCL_DECLARED +/* 267 */ +EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp, + va_list argList); +#endif +#ifndef Tcl_AppendStringsToObjVA_TCL_DECLARED +#define Tcl_AppendStringsToObjVA_TCL_DECLARED +/* 268 */ +EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, + va_list argList); +#endif +#ifndef Tcl_HashStats_TCL_DECLARED +#define Tcl_HashStats_TCL_DECLARED +/* 269 */ +EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr); +#endif +#ifndef Tcl_ParseVar_TCL_DECLARED +#define Tcl_ParseVar_TCL_DECLARED +/* 270 */ +EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp, + CONST char *start, CONST84 char **termPtr); +#endif +#ifndef Tcl_PkgPresent_TCL_DECLARED +#define Tcl_PkgPresent_TCL_DECLARED +/* 271 */ +EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp, + CONST char *name, CONST char *version, + int exact); +#endif +#ifndef Tcl_PkgPresentEx_TCL_DECLARED +#define Tcl_PkgPresentEx_TCL_DECLARED +/* 272 */ +EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp, + CONST char *name, CONST char *version, + int exact, ClientData *clientDataPtr); +#endif +#ifndef Tcl_PkgProvide_TCL_DECLARED +#define Tcl_PkgProvide_TCL_DECLARED +/* 273 */ +EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, CONST char *name, + CONST char *version); +#endif +#ifndef Tcl_PkgRequire_TCL_DECLARED +#define Tcl_PkgRequire_TCL_DECLARED +/* 274 */ +EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp, + CONST char *name, CONST char *version, + int exact); +#endif +#ifndef Tcl_SetErrorCodeVA_TCL_DECLARED +#define Tcl_SetErrorCodeVA_TCL_DECLARED +/* 275 */ +EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp, + va_list argList); +#endif +#ifndef Tcl_VarEvalVA_TCL_DECLARED +#define Tcl_VarEvalVA_TCL_DECLARED +/* 276 */ +EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList); +#endif +#ifndef Tcl_WaitPid_TCL_DECLARED +#define Tcl_WaitPid_TCL_DECLARED +/* 277 */ +EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options); +#endif +#ifndef Tcl_PanicVA_TCL_DECLARED +#define Tcl_PanicVA_TCL_DECLARED +/* 278 */ +EXTERN void Tcl_PanicVA(CONST char *format, va_list argList); +#endif +#ifndef Tcl_GetVersion_TCL_DECLARED +#define Tcl_GetVersion_TCL_DECLARED +/* 279 */ +EXTERN void Tcl_GetVersion(int *major, int *minor, + int *patchLevel, int *type); +#endif +#ifndef Tcl_InitMemory_TCL_DECLARED +#define Tcl_InitMemory_TCL_DECLARED +/* 280 */ +EXTERN void Tcl_InitMemory(Tcl_Interp *interp); +#endif +#ifndef Tcl_StackChannel_TCL_DECLARED +#define Tcl_StackChannel_TCL_DECLARED +/* 281 */ +EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, + Tcl_ChannelType *typePtr, + ClientData instanceData, int mask, + Tcl_Channel prevChan); +#endif +#ifndef Tcl_UnstackChannel_TCL_DECLARED +#define Tcl_UnstackChannel_TCL_DECLARED +/* 282 */ +EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp, + Tcl_Channel chan); +#endif +#ifndef Tcl_GetStackedChannel_TCL_DECLARED +#define Tcl_GetStackedChannel_TCL_DECLARED +/* 283 */ +EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan); +#endif +#ifndef Tcl_SetMainLoop_TCL_DECLARED +#define Tcl_SetMainLoop_TCL_DECLARED +/* 284 */ +EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc); +#endif +/* Slot 285 is reserved */ +#ifndef Tcl_AppendObjToObj_TCL_DECLARED +#define Tcl_AppendObjToObj_TCL_DECLARED +/* 286 */ +EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr, + Tcl_Obj *appendObjPtr); +#endif +#ifndef Tcl_CreateEncoding_TCL_DECLARED +#define Tcl_CreateEncoding_TCL_DECLARED +/* 287 */ +EXTERN Tcl_Encoding Tcl_CreateEncoding(CONST Tcl_EncodingType *typePtr); +#endif +#ifndef Tcl_CreateThreadExitHandler_TCL_DECLARED +#define Tcl_CreateThreadExitHandler_TCL_DECLARED +/* 288 */ +EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_DeleteThreadExitHandler_TCL_DECLARED +#define Tcl_DeleteThreadExitHandler_TCL_DECLARED +/* 289 */ +EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_DiscardResult_TCL_DECLARED +#define Tcl_DiscardResult_TCL_DECLARED +/* 290 */ +EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr); +#endif +#ifndef Tcl_EvalEx_TCL_DECLARED +#define Tcl_EvalEx_TCL_DECLARED +/* 291 */ +EXTERN int Tcl_EvalEx(Tcl_Interp *interp, CONST char *script, + int numBytes, int flags); +#endif +#ifndef Tcl_EvalObjv_TCL_DECLARED +#define Tcl_EvalObjv_TCL_DECLARED +/* 292 */ +EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[], int flags); +#endif +#ifndef Tcl_EvalObjEx_TCL_DECLARED +#define Tcl_EvalObjEx_TCL_DECLARED +/* 293 */ +EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, + int flags); +#endif +#ifndef Tcl_ExitThread_TCL_DECLARED +#define Tcl_ExitThread_TCL_DECLARED +/* 294 */ +EXTERN void Tcl_ExitThread(int status); +#endif +#ifndef Tcl_ExternalToUtf_TCL_DECLARED +#define Tcl_ExternalToUtf_TCL_DECLARED +/* 295 */ +EXTERN int Tcl_ExternalToUtf(Tcl_Interp *interp, + Tcl_Encoding encoding, CONST char *src, + int srcLen, int flags, + Tcl_EncodingState *statePtr, char *dst, + int dstLen, int *srcReadPtr, + int *dstWrotePtr, int *dstCharsPtr); +#endif +#ifndef Tcl_ExternalToUtfDString_TCL_DECLARED +#define Tcl_ExternalToUtfDString_TCL_DECLARED +/* 296 */ +EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding, + CONST char *src, int srcLen, + Tcl_DString *dsPtr); +#endif +#ifndef Tcl_FinalizeThread_TCL_DECLARED +#define Tcl_FinalizeThread_TCL_DECLARED +/* 297 */ +EXTERN void Tcl_FinalizeThread(void); +#endif +#ifndef Tcl_FinalizeNotifier_TCL_DECLARED +#define Tcl_FinalizeNotifier_TCL_DECLARED +/* 298 */ +EXTERN void Tcl_FinalizeNotifier(ClientData clientData); +#endif +#ifndef Tcl_FreeEncoding_TCL_DECLARED +#define Tcl_FreeEncoding_TCL_DECLARED +/* 299 */ +EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding); +#endif +#ifndef Tcl_GetCurrentThread_TCL_DECLARED +#define Tcl_GetCurrentThread_TCL_DECLARED +/* 300 */ +EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void); +#endif +#ifndef Tcl_GetEncoding_TCL_DECLARED +#define Tcl_GetEncoding_TCL_DECLARED +/* 301 */ +EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, CONST char *name); +#endif +#ifndef Tcl_GetEncodingName_TCL_DECLARED +#define Tcl_GetEncodingName_TCL_DECLARED +/* 302 */ +EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding); +#endif +#ifndef Tcl_GetEncodingNames_TCL_DECLARED +#define Tcl_GetEncodingNames_TCL_DECLARED +/* 303 */ +EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp); +#endif +#ifndef Tcl_GetIndexFromObjStruct_TCL_DECLARED +#define Tcl_GetIndexFromObjStruct_TCL_DECLARED +/* 304 */ +EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp, + Tcl_Obj *objPtr, CONST VOID *tablePtr, + int offset, CONST char *msg, int flags, + int *indexPtr); +#endif +#ifndef Tcl_GetThreadData_TCL_DECLARED +#define Tcl_GetThreadData_TCL_DECLARED +/* 305 */ +EXTERN VOID * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr, + int size); +#endif +#ifndef Tcl_GetVar2Ex_TCL_DECLARED +#define Tcl_GetVar2Ex_TCL_DECLARED +/* 306 */ +EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, CONST char *part1, + CONST char *part2, int flags); +#endif +#ifndef Tcl_InitNotifier_TCL_DECLARED +#define Tcl_InitNotifier_TCL_DECLARED +/* 307 */ +EXTERN ClientData Tcl_InitNotifier(void); +#endif +#ifndef Tcl_MutexLock_TCL_DECLARED +#define Tcl_MutexLock_TCL_DECLARED +/* 308 */ +EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr); +#endif +#ifndef Tcl_MutexUnlock_TCL_DECLARED +#define Tcl_MutexUnlock_TCL_DECLARED +/* 309 */ +EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr); +#endif +#ifndef Tcl_ConditionNotify_TCL_DECLARED +#define Tcl_ConditionNotify_TCL_DECLARED +/* 310 */ +EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr); +#endif +#ifndef Tcl_ConditionWait_TCL_DECLARED +#define Tcl_ConditionWait_TCL_DECLARED +/* 311 */ +EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr, + Tcl_Mutex *mutexPtr, Tcl_Time *timePtr); +#endif +#ifndef Tcl_NumUtfChars_TCL_DECLARED +#define Tcl_NumUtfChars_TCL_DECLARED +/* 312 */ +EXTERN int Tcl_NumUtfChars(CONST char *src, int length); +#endif +#ifndef Tcl_ReadChars_TCL_DECLARED +#define Tcl_ReadChars_TCL_DECLARED +/* 313 */ +EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr, + int charsToRead, int appendFlag); +#endif +#ifndef Tcl_RestoreResult_TCL_DECLARED +#define Tcl_RestoreResult_TCL_DECLARED +/* 314 */ +EXTERN void Tcl_RestoreResult(Tcl_Interp *interp, + Tcl_SavedResult *statePtr); +#endif +#ifndef Tcl_SaveResult_TCL_DECLARED +#define Tcl_SaveResult_TCL_DECLARED +/* 315 */ +EXTERN void Tcl_SaveResult(Tcl_Interp *interp, + Tcl_SavedResult *statePtr); +#endif +#ifndef Tcl_SetSystemEncoding_TCL_DECLARED +#define Tcl_SetSystemEncoding_TCL_DECLARED +/* 316 */ +EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp, + CONST char *name); +#endif +#ifndef Tcl_SetVar2Ex_TCL_DECLARED +#define Tcl_SetVar2Ex_TCL_DECLARED +/* 317 */ +EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, CONST char *part1, + CONST char *part2, Tcl_Obj *newValuePtr, + int flags); +#endif +#ifndef Tcl_ThreadAlert_TCL_DECLARED +#define Tcl_ThreadAlert_TCL_DECLARED +/* 318 */ +EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId); +#endif +#ifndef Tcl_ThreadQueueEvent_TCL_DECLARED +#define Tcl_ThreadQueueEvent_TCL_DECLARED +/* 319 */ +EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId, + Tcl_Event *evPtr, Tcl_QueuePosition position); +#endif +#ifndef Tcl_UniCharAtIndex_TCL_DECLARED +#define Tcl_UniCharAtIndex_TCL_DECLARED +/* 320 */ +EXTERN Tcl_UniChar Tcl_UniCharAtIndex(CONST char *src, int index); +#endif +#ifndef Tcl_UniCharToLower_TCL_DECLARED +#define Tcl_UniCharToLower_TCL_DECLARED +/* 321 */ +EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch); +#endif +#ifndef Tcl_UniCharToTitle_TCL_DECLARED +#define Tcl_UniCharToTitle_TCL_DECLARED +/* 322 */ +EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch); +#endif +#ifndef Tcl_UniCharToUpper_TCL_DECLARED +#define Tcl_UniCharToUpper_TCL_DECLARED +/* 323 */ +EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch); +#endif +#ifndef Tcl_UniCharToUtf_TCL_DECLARED +#define Tcl_UniCharToUtf_TCL_DECLARED +/* 324 */ +EXTERN int Tcl_UniCharToUtf(int ch, char *buf); +#endif +#ifndef Tcl_UtfAtIndex_TCL_DECLARED +#define Tcl_UtfAtIndex_TCL_DECLARED +/* 325 */ +EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(CONST char *src, int index); +#endif +#ifndef Tcl_UtfCharComplete_TCL_DECLARED +#define Tcl_UtfCharComplete_TCL_DECLARED +/* 326 */ +EXTERN int Tcl_UtfCharComplete(CONST char *src, int length); +#endif +#ifndef Tcl_UtfBackslash_TCL_DECLARED +#define Tcl_UtfBackslash_TCL_DECLARED +/* 327 */ +EXTERN int Tcl_UtfBackslash(CONST char *src, int *readPtr, + char *dst); +#endif +#ifndef Tcl_UtfFindFirst_TCL_DECLARED +#define Tcl_UtfFindFirst_TCL_DECLARED +/* 328 */ +EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(CONST char *src, int ch); +#endif +#ifndef Tcl_UtfFindLast_TCL_DECLARED +#define Tcl_UtfFindLast_TCL_DECLARED +/* 329 */ +EXTERN CONST84_RETURN char * Tcl_UtfFindLast(CONST char *src, int ch); +#endif +#ifndef Tcl_UtfNext_TCL_DECLARED +#define Tcl_UtfNext_TCL_DECLARED +/* 330 */ +EXTERN CONST84_RETURN char * Tcl_UtfNext(CONST char *src); +#endif +#ifndef Tcl_UtfPrev_TCL_DECLARED +#define Tcl_UtfPrev_TCL_DECLARED +/* 331 */ +EXTERN CONST84_RETURN char * Tcl_UtfPrev(CONST char *src, CONST char *start); +#endif +#ifndef Tcl_UtfToExternal_TCL_DECLARED +#define Tcl_UtfToExternal_TCL_DECLARED +/* 332 */ +EXTERN int Tcl_UtfToExternal(Tcl_Interp *interp, + Tcl_Encoding encoding, CONST char *src, + int srcLen, int flags, + Tcl_EncodingState *statePtr, char *dst, + int dstLen, int *srcReadPtr, + int *dstWrotePtr, int *dstCharsPtr); +#endif +#ifndef Tcl_UtfToExternalDString_TCL_DECLARED +#define Tcl_UtfToExternalDString_TCL_DECLARED +/* 333 */ +EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding, + CONST char *src, int srcLen, + Tcl_DString *dsPtr); +#endif +#ifndef Tcl_UtfToLower_TCL_DECLARED +#define Tcl_UtfToLower_TCL_DECLARED +/* 334 */ +EXTERN int Tcl_UtfToLower(char *src); +#endif +#ifndef Tcl_UtfToTitle_TCL_DECLARED +#define Tcl_UtfToTitle_TCL_DECLARED +/* 335 */ +EXTERN int Tcl_UtfToTitle(char *src); +#endif +#ifndef Tcl_UtfToUniChar_TCL_DECLARED +#define Tcl_UtfToUniChar_TCL_DECLARED +/* 336 */ +EXTERN int Tcl_UtfToUniChar(CONST char *src, Tcl_UniChar *chPtr); +#endif +#ifndef Tcl_UtfToUpper_TCL_DECLARED +#define Tcl_UtfToUpper_TCL_DECLARED +/* 337 */ +EXTERN int Tcl_UtfToUpper(char *src); +#endif +#ifndef Tcl_WriteChars_TCL_DECLARED +#define Tcl_WriteChars_TCL_DECLARED +/* 338 */ +EXTERN int Tcl_WriteChars(Tcl_Channel chan, CONST char *src, + int srcLen); +#endif +#ifndef Tcl_WriteObj_TCL_DECLARED +#define Tcl_WriteObj_TCL_DECLARED +/* 339 */ +EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr); +#endif +#ifndef Tcl_GetString_TCL_DECLARED +#define Tcl_GetString_TCL_DECLARED +/* 340 */ +EXTERN char * Tcl_GetString(Tcl_Obj *objPtr); +#endif +#ifndef Tcl_GetDefaultEncodingDir_TCL_DECLARED +#define Tcl_GetDefaultEncodingDir_TCL_DECLARED +/* 341 */ +EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void); +#endif +#ifndef Tcl_SetDefaultEncodingDir_TCL_DECLARED +#define Tcl_SetDefaultEncodingDir_TCL_DECLARED +/* 342 */ +EXTERN void Tcl_SetDefaultEncodingDir(CONST char *path); +#endif +#ifndef Tcl_AlertNotifier_TCL_DECLARED +#define Tcl_AlertNotifier_TCL_DECLARED +/* 343 */ +EXTERN void Tcl_AlertNotifier(ClientData clientData); +#endif +#ifndef Tcl_ServiceModeHook_TCL_DECLARED +#define Tcl_ServiceModeHook_TCL_DECLARED +/* 344 */ +EXTERN void Tcl_ServiceModeHook(int mode); +#endif +#ifndef Tcl_UniCharIsAlnum_TCL_DECLARED +#define Tcl_UniCharIsAlnum_TCL_DECLARED +/* 345 */ +EXTERN int Tcl_UniCharIsAlnum(int ch); +#endif +#ifndef Tcl_UniCharIsAlpha_TCL_DECLARED +#define Tcl_UniCharIsAlpha_TCL_DECLARED +/* 346 */ +EXTERN int Tcl_UniCharIsAlpha(int ch); +#endif +#ifndef Tcl_UniCharIsDigit_TCL_DECLARED +#define Tcl_UniCharIsDigit_TCL_DECLARED +/* 347 */ +EXTERN int Tcl_UniCharIsDigit(int ch); +#endif +#ifndef Tcl_UniCharIsLower_TCL_DECLARED +#define Tcl_UniCharIsLower_TCL_DECLARED +/* 348 */ +EXTERN int Tcl_UniCharIsLower(int ch); +#endif +#ifndef Tcl_UniCharIsSpace_TCL_DECLARED +#define Tcl_UniCharIsSpace_TCL_DECLARED +/* 349 */ +EXTERN int Tcl_UniCharIsSpace(int ch); +#endif +#ifndef Tcl_UniCharIsUpper_TCL_DECLARED +#define Tcl_UniCharIsUpper_TCL_DECLARED +/* 350 */ +EXTERN int Tcl_UniCharIsUpper(int ch); +#endif +#ifndef Tcl_UniCharIsWordChar_TCL_DECLARED +#define Tcl_UniCharIsWordChar_TCL_DECLARED +/* 351 */ +EXTERN int Tcl_UniCharIsWordChar(int ch); +#endif +#ifndef Tcl_UniCharLen_TCL_DECLARED +#define Tcl_UniCharLen_TCL_DECLARED +/* 352 */ +EXTERN int Tcl_UniCharLen(CONST Tcl_UniChar *uniStr); +#endif +#ifndef Tcl_UniCharNcmp_TCL_DECLARED +#define Tcl_UniCharNcmp_TCL_DECLARED +/* 353 */ +EXTERN int Tcl_UniCharNcmp(CONST Tcl_UniChar *ucs, + CONST Tcl_UniChar *uct, + unsigned long numChars); +#endif +#ifndef Tcl_UniCharToUtfDString_TCL_DECLARED +#define Tcl_UniCharToUtfDString_TCL_DECLARED +/* 354 */ +EXTERN char * Tcl_UniCharToUtfDString(CONST Tcl_UniChar *uniStr, + int uniLength, Tcl_DString *dsPtr); +#endif +#ifndef Tcl_UtfToUniCharDString_TCL_DECLARED +#define Tcl_UtfToUniCharDString_TCL_DECLARED +/* 355 */ +EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(CONST char *src, int length, + Tcl_DString *dsPtr); +#endif +#ifndef Tcl_GetRegExpFromObj_TCL_DECLARED +#define Tcl_GetRegExpFromObj_TCL_DECLARED +/* 356 */ +EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp, + Tcl_Obj *patObj, int flags); +#endif +#ifndef Tcl_EvalTokens_TCL_DECLARED +#define Tcl_EvalTokens_TCL_DECLARED +/* 357 */ +EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp, + Tcl_Token *tokenPtr, int count); +#endif +#ifndef Tcl_FreeParse_TCL_DECLARED +#define Tcl_FreeParse_TCL_DECLARED +/* 358 */ +EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr); +#endif +#ifndef Tcl_LogCommandInfo_TCL_DECLARED +#define Tcl_LogCommandInfo_TCL_DECLARED +/* 359 */ +EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp, + CONST char *script, CONST char *command, + int length); +#endif +#ifndef Tcl_ParseBraces_TCL_DECLARED +#define Tcl_ParseBraces_TCL_DECLARED +/* 360 */ +EXTERN int Tcl_ParseBraces(Tcl_Interp *interp, + CONST char *start, int numBytes, + Tcl_Parse *parsePtr, int append, + CONST84 char **termPtr); +#endif +#ifndef Tcl_ParseCommand_TCL_DECLARED +#define Tcl_ParseCommand_TCL_DECLARED +/* 361 */ +EXTERN int Tcl_ParseCommand(Tcl_Interp *interp, + CONST char *start, int numBytes, int nested, + Tcl_Parse *parsePtr); +#endif +#ifndef Tcl_ParseExpr_TCL_DECLARED +#define Tcl_ParseExpr_TCL_DECLARED +/* 362 */ +EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, CONST char *start, + int numBytes, Tcl_Parse *parsePtr); +#endif +#ifndef Tcl_ParseQuotedString_TCL_DECLARED +#define Tcl_ParseQuotedString_TCL_DECLARED +/* 363 */ +EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp, + CONST char *start, int numBytes, + Tcl_Parse *parsePtr, int append, + CONST84 char **termPtr); +#endif +#ifndef Tcl_ParseVarName_TCL_DECLARED +#define Tcl_ParseVarName_TCL_DECLARED +/* 364 */ +EXTERN int Tcl_ParseVarName(Tcl_Interp *interp, + CONST char *start, int numBytes, + Tcl_Parse *parsePtr, int append); +#endif +#ifndef Tcl_GetCwd_TCL_DECLARED +#define Tcl_GetCwd_TCL_DECLARED +/* 365 */ +EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr); +#endif +#ifndef Tcl_Chdir_TCL_DECLARED +#define Tcl_Chdir_TCL_DECLARED +/* 366 */ +EXTERN int Tcl_Chdir(CONST char *dirName); +#endif +#ifndef Tcl_Access_TCL_DECLARED +#define Tcl_Access_TCL_DECLARED +/* 367 */ +EXTERN int Tcl_Access(CONST char *path, int mode); +#endif +#ifndef Tcl_Stat_TCL_DECLARED +#define Tcl_Stat_TCL_DECLARED +/* 368 */ +EXTERN int Tcl_Stat(CONST char *path, struct stat *bufPtr); +#endif +#ifndef Tcl_UtfNcmp_TCL_DECLARED +#define Tcl_UtfNcmp_TCL_DECLARED +/* 369 */ +EXTERN int Tcl_UtfNcmp(CONST char *s1, CONST char *s2, + unsigned long n); +#endif +#ifndef Tcl_UtfNcasecmp_TCL_DECLARED +#define Tcl_UtfNcasecmp_TCL_DECLARED +/* 370 */ +EXTERN int Tcl_UtfNcasecmp(CONST char *s1, CONST char *s2, + unsigned long n); +#endif +#ifndef Tcl_StringCaseMatch_TCL_DECLARED +#define Tcl_StringCaseMatch_TCL_DECLARED +/* 371 */ +EXTERN int Tcl_StringCaseMatch(CONST char *str, + CONST char *pattern, int nocase); +#endif +#ifndef Tcl_UniCharIsControl_TCL_DECLARED +#define Tcl_UniCharIsControl_TCL_DECLARED +/* 372 */ +EXTERN int Tcl_UniCharIsControl(int ch); +#endif +#ifndef Tcl_UniCharIsGraph_TCL_DECLARED +#define Tcl_UniCharIsGraph_TCL_DECLARED +/* 373 */ +EXTERN int Tcl_UniCharIsGraph(int ch); +#endif +#ifndef Tcl_UniCharIsPrint_TCL_DECLARED +#define Tcl_UniCharIsPrint_TCL_DECLARED +/* 374 */ +EXTERN int Tcl_UniCharIsPrint(int ch); +#endif +#ifndef Tcl_UniCharIsPunct_TCL_DECLARED +#define Tcl_UniCharIsPunct_TCL_DECLARED +/* 375 */ +EXTERN int Tcl_UniCharIsPunct(int ch); +#endif +#ifndef Tcl_RegExpExecObj_TCL_DECLARED +#define Tcl_RegExpExecObj_TCL_DECLARED +/* 376 */ +EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp, + Tcl_RegExp regexp, Tcl_Obj *textObj, + int offset, int nmatches, int flags); +#endif +#ifndef Tcl_RegExpGetInfo_TCL_DECLARED +#define Tcl_RegExpGetInfo_TCL_DECLARED +/* 377 */ +EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp, + Tcl_RegExpInfo *infoPtr); +#endif +#ifndef Tcl_NewUnicodeObj_TCL_DECLARED +#define Tcl_NewUnicodeObj_TCL_DECLARED +/* 378 */ +EXTERN Tcl_Obj * Tcl_NewUnicodeObj(CONST Tcl_UniChar *unicode, + int numChars); +#endif +#ifndef Tcl_SetUnicodeObj_TCL_DECLARED +#define Tcl_SetUnicodeObj_TCL_DECLARED +/* 379 */ +EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr, + CONST Tcl_UniChar *unicode, int numChars); +#endif +#ifndef Tcl_GetCharLength_TCL_DECLARED +#define Tcl_GetCharLength_TCL_DECLARED +/* 380 */ +EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr); +#endif +#ifndef Tcl_GetUniChar_TCL_DECLARED +#define Tcl_GetUniChar_TCL_DECLARED +/* 381 */ +EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index); +#endif +#ifndef Tcl_GetUnicode_TCL_DECLARED +#define Tcl_GetUnicode_TCL_DECLARED +/* 382 */ +EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr); +#endif +#ifndef Tcl_GetRange_TCL_DECLARED +#define Tcl_GetRange_TCL_DECLARED +/* 383 */ +EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last); +#endif +#ifndef Tcl_AppendUnicodeToObj_TCL_DECLARED +#define Tcl_AppendUnicodeToObj_TCL_DECLARED +/* 384 */ +EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr, + CONST Tcl_UniChar *unicode, int length); +#endif +#ifndef Tcl_RegExpMatchObj_TCL_DECLARED +#define Tcl_RegExpMatchObj_TCL_DECLARED +/* 385 */ +EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp, + Tcl_Obj *textObj, Tcl_Obj *patternObj); +#endif +#ifndef Tcl_SetNotifier_TCL_DECLARED +#define Tcl_SetNotifier_TCL_DECLARED +/* 386 */ +EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr); +#endif +#ifndef Tcl_GetAllocMutex_TCL_DECLARED +#define Tcl_GetAllocMutex_TCL_DECLARED +/* 387 */ +EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void); +#endif +#ifndef Tcl_GetChannelNames_TCL_DECLARED +#define Tcl_GetChannelNames_TCL_DECLARED +/* 388 */ +EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp); +#endif +#ifndef Tcl_GetChannelNamesEx_TCL_DECLARED +#define Tcl_GetChannelNamesEx_TCL_DECLARED +/* 389 */ +EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp, + CONST char *pattern); +#endif +#ifndef Tcl_ProcObjCmd_TCL_DECLARED +#define Tcl_ProcObjCmd_TCL_DECLARED +/* 390 */ +EXTERN int Tcl_ProcObjCmd(ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[]); +#endif +#ifndef Tcl_ConditionFinalize_TCL_DECLARED +#define Tcl_ConditionFinalize_TCL_DECLARED +/* 391 */ +EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr); +#endif +#ifndef Tcl_MutexFinalize_TCL_DECLARED +#define Tcl_MutexFinalize_TCL_DECLARED +/* 392 */ +EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex); +#endif +#ifndef Tcl_CreateThread_TCL_DECLARED +#define Tcl_CreateThread_TCL_DECLARED +/* 393 */ +EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr, + Tcl_ThreadCreateProc proc, + ClientData clientData, int stackSize, + int flags); +#endif +#ifndef Tcl_ReadRaw_TCL_DECLARED +#define Tcl_ReadRaw_TCL_DECLARED +/* 394 */ +EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst, + int bytesToRead); +#endif +#ifndef Tcl_WriteRaw_TCL_DECLARED +#define Tcl_WriteRaw_TCL_DECLARED +/* 395 */ +EXTERN int Tcl_WriteRaw(Tcl_Channel chan, CONST char *src, + int srcLen); +#endif +#ifndef Tcl_GetTopChannel_TCL_DECLARED +#define Tcl_GetTopChannel_TCL_DECLARED +/* 396 */ +EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan); +#endif +#ifndef Tcl_ChannelBuffered_TCL_DECLARED +#define Tcl_ChannelBuffered_TCL_DECLARED +/* 397 */ +EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan); +#endif +#ifndef Tcl_ChannelName_TCL_DECLARED +#define Tcl_ChannelName_TCL_DECLARED +/* 398 */ +EXTERN CONST84_RETURN char * Tcl_ChannelName( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_ChannelVersion_TCL_DECLARED +#define Tcl_ChannelVersion_TCL_DECLARED +/* 399 */ +EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_ChannelBlockModeProc_TCL_DECLARED +#define Tcl_ChannelBlockModeProc_TCL_DECLARED +/* 400 */ +EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_ChannelCloseProc_TCL_DECLARED +#define Tcl_ChannelCloseProc_TCL_DECLARED +/* 401 */ +EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_ChannelClose2Proc_TCL_DECLARED +#define Tcl_ChannelClose2Proc_TCL_DECLARED +/* 402 */ +EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_ChannelInputProc_TCL_DECLARED +#define Tcl_ChannelInputProc_TCL_DECLARED +/* 403 */ +EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_ChannelOutputProc_TCL_DECLARED +#define Tcl_ChannelOutputProc_TCL_DECLARED +/* 404 */ +EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_ChannelSeekProc_TCL_DECLARED +#define Tcl_ChannelSeekProc_TCL_DECLARED +/* 405 */ +EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_ChannelSetOptionProc_TCL_DECLARED +#define Tcl_ChannelSetOptionProc_TCL_DECLARED +/* 406 */ +EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_ChannelGetOptionProc_TCL_DECLARED +#define Tcl_ChannelGetOptionProc_TCL_DECLARED +/* 407 */ +EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_ChannelWatchProc_TCL_DECLARED +#define Tcl_ChannelWatchProc_TCL_DECLARED +/* 408 */ +EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_ChannelGetHandleProc_TCL_DECLARED +#define Tcl_ChannelGetHandleProc_TCL_DECLARED +/* 409 */ +EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_ChannelFlushProc_TCL_DECLARED +#define Tcl_ChannelFlushProc_TCL_DECLARED +/* 410 */ +EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_ChannelHandlerProc_TCL_DECLARED +#define Tcl_ChannelHandlerProc_TCL_DECLARED +/* 411 */ +EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_JoinThread_TCL_DECLARED +#define Tcl_JoinThread_TCL_DECLARED +/* 412 */ +EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result); +#endif +#ifndef Tcl_IsChannelShared_TCL_DECLARED +#define Tcl_IsChannelShared_TCL_DECLARED +/* 413 */ +EXTERN int Tcl_IsChannelShared(Tcl_Channel channel); +#endif +#ifndef Tcl_IsChannelRegistered_TCL_DECLARED +#define Tcl_IsChannelRegistered_TCL_DECLARED +/* 414 */ +EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp, + Tcl_Channel channel); +#endif +#ifndef Tcl_CutChannel_TCL_DECLARED +#define Tcl_CutChannel_TCL_DECLARED +/* 415 */ +EXTERN void Tcl_CutChannel(Tcl_Channel channel); +#endif +#ifndef Tcl_SpliceChannel_TCL_DECLARED +#define Tcl_SpliceChannel_TCL_DECLARED +/* 416 */ +EXTERN void Tcl_SpliceChannel(Tcl_Channel channel); +#endif +#ifndef Tcl_ClearChannelHandlers_TCL_DECLARED +#define Tcl_ClearChannelHandlers_TCL_DECLARED +/* 417 */ +EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel); +#endif +#ifndef Tcl_IsChannelExisting_TCL_DECLARED +#define Tcl_IsChannelExisting_TCL_DECLARED +/* 418 */ +EXTERN int Tcl_IsChannelExisting(CONST char *channelName); +#endif +#ifndef Tcl_UniCharNcasecmp_TCL_DECLARED +#define Tcl_UniCharNcasecmp_TCL_DECLARED +/* 419 */ +EXTERN int Tcl_UniCharNcasecmp(CONST Tcl_UniChar *ucs, + CONST Tcl_UniChar *uct, + unsigned long numChars); +#endif +#ifndef Tcl_UniCharCaseMatch_TCL_DECLARED +#define Tcl_UniCharCaseMatch_TCL_DECLARED +/* 420 */ +EXTERN int Tcl_UniCharCaseMatch(CONST Tcl_UniChar *uniStr, + CONST Tcl_UniChar *uniPattern, int nocase); +#endif +#ifndef Tcl_FindHashEntry_TCL_DECLARED +#define Tcl_FindHashEntry_TCL_DECLARED +/* 421 */ +EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr, + CONST char *key); +#endif +#ifndef Tcl_CreateHashEntry_TCL_DECLARED +#define Tcl_CreateHashEntry_TCL_DECLARED +/* 422 */ +EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr, + CONST char *key, int *newPtr); +#endif +#ifndef Tcl_InitCustomHashTable_TCL_DECLARED +#define Tcl_InitCustomHashTable_TCL_DECLARED +/* 423 */ +EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, + int keyType, Tcl_HashKeyType *typePtr); +#endif +#ifndef Tcl_InitObjHashTable_TCL_DECLARED +#define Tcl_InitObjHashTable_TCL_DECLARED +/* 424 */ +EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr); +#endif +#ifndef Tcl_CommandTraceInfo_TCL_DECLARED +#define Tcl_CommandTraceInfo_TCL_DECLARED +/* 425 */ +EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp, + CONST char *varName, int flags, + Tcl_CommandTraceProc *procPtr, + ClientData prevClientData); +#endif +#ifndef Tcl_TraceCommand_TCL_DECLARED +#define Tcl_TraceCommand_TCL_DECLARED +/* 426 */ +EXTERN int Tcl_TraceCommand(Tcl_Interp *interp, + CONST char *varName, int flags, + Tcl_CommandTraceProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_UntraceCommand_TCL_DECLARED +#define Tcl_UntraceCommand_TCL_DECLARED +/* 427 */ +EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp, + CONST char *varName, int flags, + Tcl_CommandTraceProc *proc, + ClientData clientData); +#endif +#ifndef Tcl_AttemptAlloc_TCL_DECLARED +#define Tcl_AttemptAlloc_TCL_DECLARED +/* 428 */ +EXTERN char * Tcl_AttemptAlloc(unsigned int size); +#endif +#ifndef Tcl_AttemptDbCkalloc_TCL_DECLARED +#define Tcl_AttemptDbCkalloc_TCL_DECLARED +/* 429 */ +EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size, + CONST char *file, int line); +#endif +#ifndef Tcl_AttemptRealloc_TCL_DECLARED +#define Tcl_AttemptRealloc_TCL_DECLARED +/* 430 */ +EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size); +#endif +#ifndef Tcl_AttemptDbCkrealloc_TCL_DECLARED +#define Tcl_AttemptDbCkrealloc_TCL_DECLARED +/* 431 */ +EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size, + CONST char *file, int line); +#endif +#ifndef Tcl_AttemptSetObjLength_TCL_DECLARED +#define Tcl_AttemptSetObjLength_TCL_DECLARED +/* 432 */ +EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length); +#endif +#ifndef Tcl_GetChannelThread_TCL_DECLARED +#define Tcl_GetChannelThread_TCL_DECLARED +/* 433 */ +EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel); +#endif +#ifndef Tcl_GetUnicodeFromObj_TCL_DECLARED +#define Tcl_GetUnicodeFromObj_TCL_DECLARED +/* 434 */ +EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr, + int *lengthPtr); +#endif +#ifndef Tcl_GetMathFuncInfo_TCL_DECLARED +#define Tcl_GetMathFuncInfo_TCL_DECLARED +/* 435 */ +EXTERN int Tcl_GetMathFuncInfo(Tcl_Interp *interp, + CONST char *name, int *numArgsPtr, + Tcl_ValueType **argTypesPtr, + Tcl_MathProc **procPtr, + ClientData *clientDataPtr); +#endif +#ifndef Tcl_ListMathFuncs_TCL_DECLARED +#define Tcl_ListMathFuncs_TCL_DECLARED +/* 436 */ +EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp, + CONST char *pattern); +#endif +#ifndef Tcl_SubstObj_TCL_DECLARED +#define Tcl_SubstObj_TCL_DECLARED +/* 437 */ +EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, + int flags); +#endif +#ifndef Tcl_DetachChannel_TCL_DECLARED +#define Tcl_DetachChannel_TCL_DECLARED +/* 438 */ +EXTERN int Tcl_DetachChannel(Tcl_Interp *interp, + Tcl_Channel channel); +#endif +#ifndef Tcl_IsStandardChannel_TCL_DECLARED +#define Tcl_IsStandardChannel_TCL_DECLARED +/* 439 */ +EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel); +#endif +#ifndef Tcl_FSCopyFile_TCL_DECLARED +#define Tcl_FSCopyFile_TCL_DECLARED +/* 440 */ +EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr); +#endif +#ifndef Tcl_FSCopyDirectory_TCL_DECLARED +#define Tcl_FSCopyDirectory_TCL_DECLARED +/* 441 */ +EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); +#endif +#ifndef Tcl_FSCreateDirectory_TCL_DECLARED +#define Tcl_FSCreateDirectory_TCL_DECLARED +/* 442 */ +EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr); +#endif +#ifndef Tcl_FSDeleteFile_TCL_DECLARED +#define Tcl_FSDeleteFile_TCL_DECLARED +/* 443 */ +EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr); +#endif +#ifndef Tcl_FSLoadFile_TCL_DECLARED +#define Tcl_FSLoadFile_TCL_DECLARED +/* 444 */ +EXTERN int Tcl_FSLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, + CONST char *sym1, CONST char *sym2, + Tcl_PackageInitProc **proc1Ptr, + Tcl_PackageInitProc **proc2Ptr, + Tcl_LoadHandle *handlePtr, + Tcl_FSUnloadFileProc **unloadProcPtr); +#endif +#ifndef Tcl_FSMatchInDirectory_TCL_DECLARED +#define Tcl_FSMatchInDirectory_TCL_DECLARED +/* 445 */ +EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp, + Tcl_Obj *result, Tcl_Obj *pathPtr, + CONST char *pattern, Tcl_GlobTypeData *types); +#endif +#ifndef Tcl_FSLink_TCL_DECLARED +#define Tcl_FSLink_TCL_DECLARED +/* 446 */ +EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, + int linkAction); +#endif +#ifndef Tcl_FSRemoveDirectory_TCL_DECLARED +#define Tcl_FSRemoveDirectory_TCL_DECLARED +/* 447 */ +EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr, + int recursive, Tcl_Obj **errorPtr); +#endif +#ifndef Tcl_FSRenameFile_TCL_DECLARED +#define Tcl_FSRenameFile_TCL_DECLARED +/* 448 */ +EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr); +#endif +#ifndef Tcl_FSLstat_TCL_DECLARED +#define Tcl_FSLstat_TCL_DECLARED +/* 449 */ +EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); +#endif +#ifndef Tcl_FSUtime_TCL_DECLARED +#define Tcl_FSUtime_TCL_DECLARED +/* 450 */ +EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval); +#endif +#ifndef Tcl_FSFileAttrsGet_TCL_DECLARED +#define Tcl_FSFileAttrsGet_TCL_DECLARED +/* 451 */ +EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index, + Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); +#endif +#ifndef Tcl_FSFileAttrsSet_TCL_DECLARED +#define Tcl_FSFileAttrsSet_TCL_DECLARED +/* 452 */ +EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index, + Tcl_Obj *pathPtr, Tcl_Obj *objPtr); +#endif +#ifndef Tcl_FSFileAttrStrings_TCL_DECLARED +#define Tcl_FSFileAttrStrings_TCL_DECLARED +/* 453 */ +EXTERN CONST char ** Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, + Tcl_Obj **objPtrRef); +#endif +#ifndef Tcl_FSStat_TCL_DECLARED +#define Tcl_FSStat_TCL_DECLARED +/* 454 */ +EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); +#endif +#ifndef Tcl_FSAccess_TCL_DECLARED +#define Tcl_FSAccess_TCL_DECLARED +/* 455 */ +EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode); +#endif +#ifndef Tcl_FSOpenFileChannel_TCL_DECLARED +#define Tcl_FSOpenFileChannel_TCL_DECLARED +/* 456 */ +EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp, + Tcl_Obj *pathPtr, CONST char *modeString, + int permissions); +#endif +#ifndef Tcl_FSGetCwd_TCL_DECLARED +#define Tcl_FSGetCwd_TCL_DECLARED +/* 457 */ +EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp); +#endif +#ifndef Tcl_FSChdir_TCL_DECLARED +#define Tcl_FSChdir_TCL_DECLARED +/* 458 */ +EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr); +#endif +#ifndef Tcl_FSConvertToPathType_TCL_DECLARED +#define Tcl_FSConvertToPathType_TCL_DECLARED +/* 459 */ +EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp, + Tcl_Obj *pathPtr); +#endif +#ifndef Tcl_FSJoinPath_TCL_DECLARED +#define Tcl_FSJoinPath_TCL_DECLARED +/* 460 */ +EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements); +#endif +#ifndef Tcl_FSSplitPath_TCL_DECLARED +#define Tcl_FSSplitPath_TCL_DECLARED +/* 461 */ +EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr); +#endif +#ifndef Tcl_FSEqualPaths_TCL_DECLARED +#define Tcl_FSEqualPaths_TCL_DECLARED +/* 462 */ +EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr, + Tcl_Obj *secondPtr); +#endif +#ifndef Tcl_FSGetNormalizedPath_TCL_DECLARED +#define Tcl_FSGetNormalizedPath_TCL_DECLARED +/* 463 */ +EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp, + Tcl_Obj *pathPtr); +#endif +#ifndef Tcl_FSJoinToPath_TCL_DECLARED +#define Tcl_FSJoinToPath_TCL_DECLARED +/* 464 */ +EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc, + Tcl_Obj *CONST objv[]); +#endif +#ifndef Tcl_FSGetInternalRep_TCL_DECLARED +#define Tcl_FSGetInternalRep_TCL_DECLARED +/* 465 */ +EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr, + Tcl_Filesystem *fsPtr); +#endif +#ifndef Tcl_FSGetTranslatedPath_TCL_DECLARED +#define Tcl_FSGetTranslatedPath_TCL_DECLARED +/* 466 */ +EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp, + Tcl_Obj *pathPtr); +#endif +#ifndef Tcl_FSEvalFile_TCL_DECLARED +#define Tcl_FSEvalFile_TCL_DECLARED +/* 467 */ +EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName); +#endif +#ifndef Tcl_FSNewNativePath_TCL_DECLARED +#define Tcl_FSNewNativePath_TCL_DECLARED +/* 468 */ +EXTERN Tcl_Obj * Tcl_FSNewNativePath(Tcl_Filesystem *fromFilesystem, + ClientData clientData); +#endif +#ifndef Tcl_FSGetNativePath_TCL_DECLARED +#define Tcl_FSGetNativePath_TCL_DECLARED +/* 469 */ +EXTERN CONST char * Tcl_FSGetNativePath(Tcl_Obj *pathPtr); +#endif +#ifndef Tcl_FSFileSystemInfo_TCL_DECLARED +#define Tcl_FSFileSystemInfo_TCL_DECLARED +/* 470 */ +EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr); +#endif +#ifndef Tcl_FSPathSeparator_TCL_DECLARED +#define Tcl_FSPathSeparator_TCL_DECLARED +/* 471 */ +EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr); +#endif +#ifndef Tcl_FSListVolumes_TCL_DECLARED +#define Tcl_FSListVolumes_TCL_DECLARED +/* 472 */ +EXTERN Tcl_Obj * Tcl_FSListVolumes(void); +#endif +#ifndef Tcl_FSRegister_TCL_DECLARED +#define Tcl_FSRegister_TCL_DECLARED +/* 473 */ +EXTERN int Tcl_FSRegister(ClientData clientData, + Tcl_Filesystem *fsPtr); +#endif +#ifndef Tcl_FSUnregister_TCL_DECLARED +#define Tcl_FSUnregister_TCL_DECLARED +/* 474 */ +EXTERN int Tcl_FSUnregister(Tcl_Filesystem *fsPtr); +#endif +#ifndef Tcl_FSData_TCL_DECLARED +#define Tcl_FSData_TCL_DECLARED +/* 475 */ +EXTERN ClientData Tcl_FSData(Tcl_Filesystem *fsPtr); +#endif +#ifndef Tcl_FSGetTranslatedStringPath_TCL_DECLARED +#define Tcl_FSGetTranslatedStringPath_TCL_DECLARED +/* 476 */ +EXTERN CONST char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp, + Tcl_Obj *pathPtr); +#endif +#ifndef Tcl_FSGetFileSystemForPath_TCL_DECLARED +#define Tcl_FSGetFileSystemForPath_TCL_DECLARED +/* 477 */ +EXTERN Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr); +#endif +#ifndef Tcl_FSGetPathType_TCL_DECLARED +#define Tcl_FSGetPathType_TCL_DECLARED +/* 478 */ +EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr); +#endif +#ifndef Tcl_OutputBuffered_TCL_DECLARED +#define Tcl_OutputBuffered_TCL_DECLARED +/* 479 */ +EXTERN int Tcl_OutputBuffered(Tcl_Channel chan); +#endif +#ifndef Tcl_FSMountsChanged_TCL_DECLARED +#define Tcl_FSMountsChanged_TCL_DECLARED +/* 480 */ +EXTERN void Tcl_FSMountsChanged(Tcl_Filesystem *fsPtr); +#endif +#ifndef Tcl_EvalTokensStandard_TCL_DECLARED +#define Tcl_EvalTokensStandard_TCL_DECLARED +/* 481 */ +EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp, + Tcl_Token *tokenPtr, int count); +#endif +#ifndef Tcl_GetTime_TCL_DECLARED +#define Tcl_GetTime_TCL_DECLARED +/* 482 */ +EXTERN void Tcl_GetTime(Tcl_Time *timeBuf); +#endif +#ifndef Tcl_CreateObjTrace_TCL_DECLARED +#define Tcl_CreateObjTrace_TCL_DECLARED +/* 483 */ +EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level, + int flags, Tcl_CmdObjTraceProc *objProc, + ClientData clientData, + Tcl_CmdObjTraceDeleteProc *delProc); +#endif +#ifndef Tcl_GetCommandInfoFromToken_TCL_DECLARED +#define Tcl_GetCommandInfoFromToken_TCL_DECLARED +/* 484 */ +EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token, + Tcl_CmdInfo *infoPtr); +#endif +#ifndef Tcl_SetCommandInfoFromToken_TCL_DECLARED +#define Tcl_SetCommandInfoFromToken_TCL_DECLARED +/* 485 */ +EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token, + CONST Tcl_CmdInfo *infoPtr); +#endif +#ifndef Tcl_DbNewWideIntObj_TCL_DECLARED +#define Tcl_DbNewWideIntObj_TCL_DECLARED +/* 486 */ +EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue, + CONST char *file, int line); +#endif +#ifndef Tcl_GetWideIntFromObj_TCL_DECLARED +#define Tcl_GetWideIntFromObj_TCL_DECLARED +/* 487 */ +EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, Tcl_WideInt *widePtr); +#endif +#ifndef Tcl_NewWideIntObj_TCL_DECLARED +#define Tcl_NewWideIntObj_TCL_DECLARED +/* 488 */ +EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue); +#endif +#ifndef Tcl_SetWideIntObj_TCL_DECLARED +#define Tcl_SetWideIntObj_TCL_DECLARED +/* 489 */ +EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr, + Tcl_WideInt wideValue); +#endif +#ifndef Tcl_AllocStatBuf_TCL_DECLARED +#define Tcl_AllocStatBuf_TCL_DECLARED +/* 490 */ +EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void); +#endif +#ifndef Tcl_Seek_TCL_DECLARED +#define Tcl_Seek_TCL_DECLARED +/* 491 */ +EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset, + int mode); +#endif +#ifndef Tcl_Tell_TCL_DECLARED +#define Tcl_Tell_TCL_DECLARED +/* 492 */ +EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan); +#endif +#ifndef Tcl_ChannelWideSeekProc_TCL_DECLARED +#define Tcl_ChannelWideSeekProc_TCL_DECLARED +/* 493 */ +EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_DictObjPut_TCL_DECLARED +#define Tcl_DictObjPut_TCL_DECLARED +/* 494 */ +EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr, + Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); +#endif +#ifndef Tcl_DictObjGet_TCL_DECLARED +#define Tcl_DictObjGet_TCL_DECLARED +/* 495 */ +EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr, + Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); +#endif +#ifndef Tcl_DictObjRemove_TCL_DECLARED +#define Tcl_DictObjRemove_TCL_DECLARED +/* 496 */ +EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp, + Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); +#endif +#ifndef Tcl_DictObjSize_TCL_DECLARED +#define Tcl_DictObjSize_TCL_DECLARED +/* 497 */ +EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr, + int *sizePtr); +#endif +#ifndef Tcl_DictObjFirst_TCL_DECLARED +#define Tcl_DictObjFirst_TCL_DECLARED +/* 498 */ +EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp, + Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, + Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, + int *donePtr); +#endif +#ifndef Tcl_DictObjNext_TCL_DECLARED +#define Tcl_DictObjNext_TCL_DECLARED +/* 499 */ +EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr, + Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, + int *donePtr); +#endif +#ifndef Tcl_DictObjDone_TCL_DECLARED +#define Tcl_DictObjDone_TCL_DECLARED +/* 500 */ +EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr); +#endif +#ifndef Tcl_DictObjPutKeyList_TCL_DECLARED +#define Tcl_DictObjPutKeyList_TCL_DECLARED +/* 501 */ +EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp, + Tcl_Obj *dictPtr, int keyc, + Tcl_Obj *CONST *keyv, Tcl_Obj *valuePtr); +#endif +#ifndef Tcl_DictObjRemoveKeyList_TCL_DECLARED +#define Tcl_DictObjRemoveKeyList_TCL_DECLARED +/* 502 */ +EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp, + Tcl_Obj *dictPtr, int keyc, + Tcl_Obj *CONST *keyv); +#endif +#ifndef Tcl_NewDictObj_TCL_DECLARED +#define Tcl_NewDictObj_TCL_DECLARED +/* 503 */ +EXTERN Tcl_Obj * Tcl_NewDictObj(void); +#endif +#ifndef Tcl_DbNewDictObj_TCL_DECLARED +#define Tcl_DbNewDictObj_TCL_DECLARED +/* 504 */ +EXTERN Tcl_Obj * Tcl_DbNewDictObj(CONST char *file, int line); +#endif +#ifndef Tcl_RegisterConfig_TCL_DECLARED +#define Tcl_RegisterConfig_TCL_DECLARED +/* 505 */ +EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp, + CONST char *pkgName, + Tcl_Config *configuration, + CONST char *valEncoding); +#endif +#ifndef Tcl_CreateNamespace_TCL_DECLARED +#define Tcl_CreateNamespace_TCL_DECLARED +/* 506 */ +EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, + CONST char *name, ClientData clientData, + Tcl_NamespaceDeleteProc *deleteProc); +#endif +#ifndef Tcl_DeleteNamespace_TCL_DECLARED +#define Tcl_DeleteNamespace_TCL_DECLARED +/* 507 */ +EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); +#endif +#ifndef Tcl_AppendExportList_TCL_DECLARED +#define Tcl_AppendExportList_TCL_DECLARED +/* 508 */ +EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, + Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); +#endif +#ifndef Tcl_Export_TCL_DECLARED +#define Tcl_Export_TCL_DECLARED +/* 509 */ +EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, + CONST char *pattern, int resetListFirst); +#endif +#ifndef Tcl_Import_TCL_DECLARED +#define Tcl_Import_TCL_DECLARED +/* 510 */ +EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, + CONST char *pattern, int allowOverwrite); +#endif +#ifndef Tcl_ForgetImport_TCL_DECLARED +#define Tcl_ForgetImport_TCL_DECLARED +/* 511 */ +EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, + Tcl_Namespace *nsPtr, CONST char *pattern); +#endif +#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED +#define Tcl_GetCurrentNamespace_TCL_DECLARED +/* 512 */ +EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); +#endif +#ifndef Tcl_GetGlobalNamespace_TCL_DECLARED +#define Tcl_GetGlobalNamespace_TCL_DECLARED +/* 513 */ +EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); +#endif +#ifndef Tcl_FindNamespace_TCL_DECLARED +#define Tcl_FindNamespace_TCL_DECLARED +/* 514 */ +EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, + CONST char *name, + Tcl_Namespace *contextNsPtr, int flags); +#endif +#ifndef Tcl_FindCommand_TCL_DECLARED +#define Tcl_FindCommand_TCL_DECLARED +/* 515 */ +EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name, + Tcl_Namespace *contextNsPtr, int flags); +#endif +#ifndef Tcl_GetCommandFromObj_TCL_DECLARED +#define Tcl_GetCommandFromObj_TCL_DECLARED +/* 516 */ +EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr); +#endif +#ifndef Tcl_GetCommandFullName_TCL_DECLARED +#define Tcl_GetCommandFullName_TCL_DECLARED +/* 517 */ +EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, + Tcl_Command command, Tcl_Obj *objPtr); +#endif +#ifndef Tcl_FSEvalFileEx_TCL_DECLARED +#define Tcl_FSEvalFileEx_TCL_DECLARED +/* 518 */ +EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp, + Tcl_Obj *fileName, CONST char *encodingName); +#endif +#ifndef Tcl_SetExitProc_TCL_DECLARED +#define Tcl_SetExitProc_TCL_DECLARED +/* 519 */ +EXTERN Tcl_ExitProc * Tcl_SetExitProc(Tcl_ExitProc *proc); +#endif +#ifndef Tcl_LimitAddHandler_TCL_DECLARED +#define Tcl_LimitAddHandler_TCL_DECLARED +/* 520 */ +EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type, + Tcl_LimitHandlerProc *handlerProc, + ClientData clientData, + Tcl_LimitHandlerDeleteProc *deleteProc); +#endif +#ifndef Tcl_LimitRemoveHandler_TCL_DECLARED +#define Tcl_LimitRemoveHandler_TCL_DECLARED +/* 521 */ +EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type, + Tcl_LimitHandlerProc *handlerProc, + ClientData clientData); +#endif +#ifndef Tcl_LimitReady_TCL_DECLARED +#define Tcl_LimitReady_TCL_DECLARED +/* 522 */ +EXTERN int Tcl_LimitReady(Tcl_Interp *interp); +#endif +#ifndef Tcl_LimitCheck_TCL_DECLARED +#define Tcl_LimitCheck_TCL_DECLARED +/* 523 */ +EXTERN int Tcl_LimitCheck(Tcl_Interp *interp); +#endif +#ifndef Tcl_LimitExceeded_TCL_DECLARED +#define Tcl_LimitExceeded_TCL_DECLARED +/* 524 */ +EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp); +#endif +#ifndef Tcl_LimitSetCommands_TCL_DECLARED +#define Tcl_LimitSetCommands_TCL_DECLARED +/* 525 */ +EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp, + int commandLimit); +#endif +#ifndef Tcl_LimitSetTime_TCL_DECLARED +#define Tcl_LimitSetTime_TCL_DECLARED +/* 526 */ +EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp, + Tcl_Time *timeLimitPtr); +#endif +#ifndef Tcl_LimitSetGranularity_TCL_DECLARED +#define Tcl_LimitSetGranularity_TCL_DECLARED +/* 527 */ +EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type, + int granularity); +#endif +#ifndef Tcl_LimitTypeEnabled_TCL_DECLARED +#define Tcl_LimitTypeEnabled_TCL_DECLARED +/* 528 */ +EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type); +#endif +#ifndef Tcl_LimitTypeExceeded_TCL_DECLARED +#define Tcl_LimitTypeExceeded_TCL_DECLARED +/* 529 */ +EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type); +#endif +#ifndef Tcl_LimitTypeSet_TCL_DECLARED +#define Tcl_LimitTypeSet_TCL_DECLARED +/* 530 */ +EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type); +#endif +#ifndef Tcl_LimitTypeReset_TCL_DECLARED +#define Tcl_LimitTypeReset_TCL_DECLARED +/* 531 */ +EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type); +#endif +#ifndef Tcl_LimitGetCommands_TCL_DECLARED +#define Tcl_LimitGetCommands_TCL_DECLARED +/* 532 */ +EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp); +#endif +#ifndef Tcl_LimitGetTime_TCL_DECLARED +#define Tcl_LimitGetTime_TCL_DECLARED +/* 533 */ +EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp, + Tcl_Time *timeLimitPtr); +#endif +#ifndef Tcl_LimitGetGranularity_TCL_DECLARED +#define Tcl_LimitGetGranularity_TCL_DECLARED +/* 534 */ +EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type); +#endif +#ifndef Tcl_SaveInterpState_TCL_DECLARED +#define Tcl_SaveInterpState_TCL_DECLARED +/* 535 */ +EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status); +#endif +#ifndef Tcl_RestoreInterpState_TCL_DECLARED +#define Tcl_RestoreInterpState_TCL_DECLARED +/* 536 */ +EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp, + Tcl_InterpState state); +#endif +#ifndef Tcl_DiscardInterpState_TCL_DECLARED +#define Tcl_DiscardInterpState_TCL_DECLARED +/* 537 */ +EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state); +#endif +#ifndef Tcl_SetReturnOptions_TCL_DECLARED +#define Tcl_SetReturnOptions_TCL_DECLARED +/* 538 */ +EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp, + Tcl_Obj *options); +#endif +#ifndef Tcl_GetReturnOptions_TCL_DECLARED +#define Tcl_GetReturnOptions_TCL_DECLARED +/* 539 */ +EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result); +#endif +#ifndef Tcl_IsEnsemble_TCL_DECLARED +#define Tcl_IsEnsemble_TCL_DECLARED +/* 540 */ +EXTERN int Tcl_IsEnsemble(Tcl_Command token); +#endif +#ifndef Tcl_CreateEnsemble_TCL_DECLARED +#define Tcl_CreateEnsemble_TCL_DECLARED +/* 541 */ +EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp, + CONST char *name, + Tcl_Namespace *namespacePtr, int flags); +#endif +#ifndef Tcl_FindEnsemble_TCL_DECLARED +#define Tcl_FindEnsemble_TCL_DECLARED +/* 542 */ +EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp, + Tcl_Obj *cmdNameObj, int flags); +#endif +#ifndef Tcl_SetEnsembleSubcommandList_TCL_DECLARED +#define Tcl_SetEnsembleSubcommandList_TCL_DECLARED +/* 543 */ +EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj *subcmdList); +#endif +#ifndef Tcl_SetEnsembleMappingDict_TCL_DECLARED +#define Tcl_SetEnsembleMappingDict_TCL_DECLARED +/* 544 */ +EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj *mapDict); +#endif +#ifndef Tcl_SetEnsembleUnknownHandler_TCL_DECLARED +#define Tcl_SetEnsembleUnknownHandler_TCL_DECLARED +/* 545 */ +EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj *unknownList); +#endif +#ifndef Tcl_SetEnsembleFlags_TCL_DECLARED +#define Tcl_SetEnsembleFlags_TCL_DECLARED +/* 546 */ +EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp, + Tcl_Command token, int flags); +#endif +#ifndef Tcl_GetEnsembleSubcommandList_TCL_DECLARED +#define Tcl_GetEnsembleSubcommandList_TCL_DECLARED +/* 547 */ +EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj **subcmdListPtr); +#endif +#ifndef Tcl_GetEnsembleMappingDict_TCL_DECLARED +#define Tcl_GetEnsembleMappingDict_TCL_DECLARED +/* 548 */ +EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj **mapDictPtr); +#endif +#ifndef Tcl_GetEnsembleUnknownHandler_TCL_DECLARED +#define Tcl_GetEnsembleUnknownHandler_TCL_DECLARED +/* 549 */ +EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj **unknownListPtr); +#endif +#ifndef Tcl_GetEnsembleFlags_TCL_DECLARED +#define Tcl_GetEnsembleFlags_TCL_DECLARED +/* 550 */ +EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp, + Tcl_Command token, int *flagsPtr); +#endif +#ifndef Tcl_GetEnsembleNamespace_TCL_DECLARED +#define Tcl_GetEnsembleNamespace_TCL_DECLARED +/* 551 */ +EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp, + Tcl_Command token, + Tcl_Namespace **namespacePtrPtr); +#endif +#ifndef Tcl_SetTimeProc_TCL_DECLARED +#define Tcl_SetTimeProc_TCL_DECLARED +/* 552 */ +EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc, + Tcl_ScaleTimeProc *scaleProc, + ClientData clientData); +#endif +#ifndef Tcl_QueryTimeProc_TCL_DECLARED +#define Tcl_QueryTimeProc_TCL_DECLARED +/* 553 */ +EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc, + Tcl_ScaleTimeProc **scaleProc, + ClientData *clientData); +#endif +#ifndef Tcl_ChannelThreadActionProc_TCL_DECLARED +#define Tcl_ChannelThreadActionProc_TCL_DECLARED +/* 554 */ +EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_NewBignumObj_TCL_DECLARED +#define Tcl_NewBignumObj_TCL_DECLARED +/* 555 */ +EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value); +#endif +#ifndef Tcl_DbNewBignumObj_TCL_DECLARED +#define Tcl_DbNewBignumObj_TCL_DECLARED +/* 556 */ +EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, CONST char *file, + int line); +#endif +#ifndef Tcl_SetBignumObj_TCL_DECLARED +#define Tcl_SetBignumObj_TCL_DECLARED +/* 557 */ +EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value); +#endif +#ifndef Tcl_GetBignumFromObj_TCL_DECLARED +#define Tcl_GetBignumFromObj_TCL_DECLARED +/* 558 */ +EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp, + Tcl_Obj *obj, mp_int *value); +#endif +#ifndef Tcl_TakeBignumFromObj_TCL_DECLARED +#define Tcl_TakeBignumFromObj_TCL_DECLARED +/* 559 */ +EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp, + Tcl_Obj *obj, mp_int *value); +#endif +#ifndef Tcl_TruncateChannel_TCL_DECLARED +#define Tcl_TruncateChannel_TCL_DECLARED +/* 560 */ +EXTERN int Tcl_TruncateChannel(Tcl_Channel chan, + Tcl_WideInt length); +#endif +#ifndef Tcl_ChannelTruncateProc_TCL_DECLARED +#define Tcl_ChannelTruncateProc_TCL_DECLARED +/* 561 */ +EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc( + CONST Tcl_ChannelType *chanTypePtr); +#endif +#ifndef Tcl_SetChannelErrorInterp_TCL_DECLARED +#define Tcl_SetChannelErrorInterp_TCL_DECLARED +/* 562 */ +EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp, + Tcl_Obj *msg); +#endif +#ifndef Tcl_GetChannelErrorInterp_TCL_DECLARED +#define Tcl_GetChannelErrorInterp_TCL_DECLARED +/* 563 */ +EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp, + Tcl_Obj **msg); +#endif +#ifndef Tcl_SetChannelError_TCL_DECLARED +#define Tcl_SetChannelError_TCL_DECLARED +/* 564 */ +EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg); +#endif +#ifndef Tcl_GetChannelError_TCL_DECLARED +#define Tcl_GetChannelError_TCL_DECLARED +/* 565 */ +EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg); +#endif +#ifndef Tcl_InitBignumFromDouble_TCL_DECLARED +#define Tcl_InitBignumFromDouble_TCL_DECLARED +/* 566 */ +EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp, + double initval, mp_int *toInit); +#endif +#ifndef Tcl_GetNamespaceUnknownHandler_TCL_DECLARED +#define Tcl_GetNamespaceUnknownHandler_TCL_DECLARED +/* 567 */ +EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp, + Tcl_Namespace *nsPtr); +#endif +#ifndef Tcl_SetNamespaceUnknownHandler_TCL_DECLARED +#define Tcl_SetNamespaceUnknownHandler_TCL_DECLARED +/* 568 */ +EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp, + Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); +#endif +#ifndef Tcl_GetEncodingFromObj_TCL_DECLARED +#define Tcl_GetEncodingFromObj_TCL_DECLARED +/* 569 */ +EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); +#endif +#ifndef Tcl_GetEncodingSearchPath_TCL_DECLARED +#define Tcl_GetEncodingSearchPath_TCL_DECLARED +/* 570 */ +EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void); +#endif +#ifndef Tcl_SetEncodingSearchPath_TCL_DECLARED +#define Tcl_SetEncodingSearchPath_TCL_DECLARED +/* 571 */ +EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath); +#endif +#ifndef Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED +#define Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED +/* 572 */ +EXTERN CONST char * Tcl_GetEncodingNameFromEnvironment( + Tcl_DString *bufPtr); +#endif +#ifndef Tcl_PkgRequireProc_TCL_DECLARED +#define Tcl_PkgRequireProc_TCL_DECLARED +/* 573 */ +EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp, + CONST char *name, int objc, + Tcl_Obj *CONST objv[], + ClientData *clientDataPtr); +#endif +#ifndef Tcl_AppendObjToErrorInfo_TCL_DECLARED +#define Tcl_AppendObjToErrorInfo_TCL_DECLARED +/* 574 */ +EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp, + Tcl_Obj *objPtr); +#endif +#ifndef Tcl_AppendLimitedToObj_TCL_DECLARED +#define Tcl_AppendLimitedToObj_TCL_DECLARED +/* 575 */ +EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr, + CONST char *bytes, int length, int limit, + CONST char *ellipsis); +#endif +#ifndef Tcl_Format_TCL_DECLARED +#define Tcl_Format_TCL_DECLARED +/* 576 */ +EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, CONST char *format, + int objc, Tcl_Obj *CONST objv[]); +#endif +#ifndef Tcl_AppendFormatToObj_TCL_DECLARED +#define Tcl_AppendFormatToObj_TCL_DECLARED +/* 577 */ +EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, CONST char *format, + int objc, Tcl_Obj *CONST objv[]); +#endif +#ifndef Tcl_ObjPrintf_TCL_DECLARED +#define Tcl_ObjPrintf_TCL_DECLARED +/* 578 */ +EXTERN Tcl_Obj * Tcl_ObjPrintf(CONST char *format, ...); +#endif +#ifndef Tcl_AppendPrintfToObj_TCL_DECLARED +#define Tcl_AppendPrintfToObj_TCL_DECLARED +/* 579 */ +EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, + CONST char *format, ...); +#endif +/* Slot 580 is reserved */ +/* Slot 581 is reserved */ +/* Slot 582 is reserved */ +/* Slot 583 is reserved */ +/* Slot 584 is reserved */ +/* Slot 585 is reserved */ +/* Slot 586 is reserved */ +/* Slot 587 is reserved */ +/* Slot 588 is reserved */ +/* Slot 589 is reserved */ +/* Slot 590 is reserved */ +/* Slot 591 is reserved */ +/* Slot 592 is reserved */ +/* Slot 593 is reserved */ +/* Slot 594 is reserved */ +/* Slot 595 is reserved */ +/* Slot 596 is reserved */ +/* Slot 597 is reserved */ +/* Slot 598 is reserved */ +/* Slot 599 is reserved */ +/* Slot 600 is reserved */ +/* Slot 601 is reserved */ +/* Slot 602 is reserved */ +/* Slot 603 is reserved */ +/* Slot 604 is reserved */ +/* Slot 605 is reserved */ +/* Slot 606 is reserved */ +/* Slot 607 is reserved */ +/* Slot 608 is reserved */ +/* Slot 609 is reserved */ +/* Slot 610 is reserved */ +/* Slot 611 is reserved */ +/* Slot 612 is reserved */ +/* Slot 613 is reserved */ +/* Slot 614 is reserved */ +/* Slot 615 is reserved */ +/* Slot 616 is reserved */ +/* Slot 617 is reserved */ +/* Slot 618 is reserved */ +/* Slot 619 is reserved */ +/* Slot 620 is reserved */ +/* Slot 621 is reserved */ +/* Slot 622 is reserved */ +/* Slot 623 is reserved */ +/* Slot 624 is reserved */ +/* Slot 625 is reserved */ +/* Slot 626 is reserved */ +/* Slot 627 is reserved */ +/* Slot 628 is reserved */ +/* Slot 629 is reserved */ +#ifndef TclUnusedStubEntry_TCL_DECLARED +#define TclUnusedStubEntry_TCL_DECLARED +/* 630 */ +EXTERN void TclUnusedStubEntry(void); +#endif + +typedef struct TclStubHooks { + struct TclPlatStubs *tclPlatStubs; + struct TclIntStubs *tclIntStubs; + struct TclIntPlatStubs *tclIntPlatStubs; +} TclStubHooks; + +typedef struct TclStubs { + int magic; + struct TclStubHooks *hooks; + + int (*tcl_PkgProvideEx) (Tcl_Interp *interp, CONST char *name, CONST char *version, ClientData clientData); /* 0 */ + CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, CONST char *name, CONST char *version, int exact, ClientData *clientDataPtr); /* 1 */ + void (*tcl_Panic) (CONST char *format, ...); /* 2 */ + char * (*tcl_Alloc) (unsigned int size); /* 3 */ + void (*tcl_Free) (char *ptr); /* 4 */ + char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */ + char * (*tcl_DbCkalloc) (unsigned int size, CONST char *file, int line); /* 6 */ + void (*tcl_DbCkfree) (char *ptr, CONST char *file, int line); /* 7 */ + char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, CONST char *file, int line); /* 8 */ +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ + void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */ +#endif /* UNIX */ +#if defined(__WIN32__) /* WIN */ + VOID *reserved9; +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ + void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */ +#endif /* MACOSX */ +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ + void (*tcl_DeleteFileHandler) (int fd); /* 10 */ +#endif /* UNIX */ +#if defined(__WIN32__) /* WIN */ + VOID *reserved10; +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ + void (*tcl_DeleteFileHandler) (int fd); /* 10 */ +#endif /* MACOSX */ + void (*tcl_SetTimer) (Tcl_Time *timePtr); /* 11 */ + void (*tcl_Sleep) (int ms); /* 12 */ + int (*tcl_WaitForEvent) (Tcl_Time *timePtr); /* 13 */ + int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */ + void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */ + void (*tcl_AppendToObj) (Tcl_Obj *objPtr, CONST char *bytes, int length); /* 16 */ + Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *CONST objv[]); /* 17 */ + int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_ObjType *typePtr); /* 18 */ + void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, CONST char *file, int line); /* 19 */ + void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, CONST char *file, int line); /* 20 */ + int (*tcl_DbIsShared) (Tcl_Obj *objPtr, CONST char *file, int line); /* 21 */ + Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, CONST char *file, int line); /* 22 */ + Tcl_Obj * (*tcl_DbNewByteArrayObj) (CONST unsigned char *bytes, int length, CONST char *file, int line); /* 23 */ + Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, CONST char *file, int line); /* 24 */ + Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *CONST *objv, CONST char *file, int line); /* 25 */ + Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, CONST char *file, int line); /* 26 */ + Tcl_Obj * (*tcl_DbNewObj) (CONST char *file, int line); /* 27 */ + Tcl_Obj * (*tcl_DbNewStringObj) (CONST char *bytes, int length, CONST char *file, int line); /* 28 */ + Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */ + void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */ + int (*tcl_GetBoolean) (Tcl_Interp *interp, CONST char *src, int *boolPtr); /* 31 */ + int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr); /* 32 */ + unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 33 */ + int (*tcl_GetDouble) (Tcl_Interp *interp, CONST char *src, double *doublePtr); /* 34 */ + int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */ + int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char **tablePtr, CONST char *msg, int flags, int *indexPtr); /* 36 */ + int (*tcl_GetInt) (Tcl_Interp *interp, CONST char *src, int *intPtr); /* 37 */ + int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */ + int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */ + Tcl_ObjType * (*tcl_GetObjType) (CONST char *typeName); /* 40 */ + char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */ + void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */ + int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */ + int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */ + int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 45 */ + int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr); /* 46 */ + int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr); /* 47 */ + int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *CONST objv[]); /* 48 */ + Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */ + Tcl_Obj * (*tcl_NewByteArrayObj) (CONST unsigned char *bytes, int length); /* 50 */ + Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */ + Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */ + Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *CONST objv[]); /* 53 */ + Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */ + Tcl_Obj * (*tcl_NewObj) (void); /* 55 */ + Tcl_Obj * (*tcl_NewStringObj) (CONST char *bytes, int length); /* 56 */ + void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int boolValue); /* 57 */ + unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int length); /* 58 */ + void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, CONST unsigned char *bytes, int length); /* 59 */ + void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */ + void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */ + void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *CONST objv[]); /* 62 */ + void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */ + void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */ + void (*tcl_SetStringObj) (Tcl_Obj *objPtr, CONST char *bytes, int length); /* 65 */ + void (*tcl_AddErrorInfo) (Tcl_Interp *interp, CONST char *message); /* 66 */ + void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, CONST char *message, int length); /* 67 */ + void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */ + void (*tcl_AppendElement) (Tcl_Interp *interp, CONST char *element); /* 69 */ + void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */ + Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData clientData); /* 71 */ + void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */ + int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */ + void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */ + int (*tcl_AsyncReady) (void); /* 75 */ + void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */ + char (*tcl_Backslash) (CONST char *src, int *readPtr); /* 77 */ + int (*tcl_BadChannelOption) (Tcl_Interp *interp, CONST char *optionName, CONST char *optionList); /* 78 */ + void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */ + void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); /* 80 */ + int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */ + int (*tcl_CommandComplete) (CONST char *cmd); /* 82 */ + char * (*tcl_Concat) (int argc, CONST84 char *CONST *argv); /* 83 */ + int (*tcl_ConvertElement) (CONST char *src, char *dst, int flags); /* 84 */ + int (*tcl_ConvertCountedElement) (CONST char *src, int length, char *dst, int flags); /* 85 */ + int (*tcl_CreateAlias) (Tcl_Interp *slave, CONST char *slaveCmd, Tcl_Interp *target, CONST char *targetCmd, int argc, CONST84 char *CONST *argv); /* 86 */ + int (*tcl_CreateAliasObj) (Tcl_Interp *slave, CONST char *slaveCmd, Tcl_Interp *target, CONST char *targetCmd, int objc, Tcl_Obj *CONST objv[]); /* 87 */ + Tcl_Channel (*tcl_CreateChannel) (Tcl_ChannelType *typePtr, CONST char *chanName, ClientData instanceData, int mask); /* 88 */ + void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); /* 89 */ + void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */ + Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, CONST char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */ + void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 92 */ + void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 93 */ + Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */ + void (*tcl_CreateMathFunc) (Tcl_Interp *interp, CONST char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); /* 95 */ + Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, CONST char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */ + Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, CONST char *slaveName, int isSafe); /* 97 */ + Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); /* 98 */ + Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); /* 99 */ + void (*tcl_DeleteAssocData) (Tcl_Interp *interp, CONST char *name); /* 100 */ + void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData); /* 101 */ + void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */ + int (*tcl_DeleteCommand) (Tcl_Interp *interp, CONST char *cmdName); /* 103 */ + int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */ + void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientData); /* 105 */ + void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 106 */ + void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 107 */ + void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */ + void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */ + void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */ + void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */ + void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */ + void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */ + void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 114 */ + int (*tcl_DoOneEvent) (int flags); /* 115 */ + void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */ + char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, CONST char *bytes, int length); /* 117 */ + char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, CONST char *element); /* 118 */ + void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */ + void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */ + void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */ + void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */ + void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */ + void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 */ + void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */ + int (*tcl_Eof) (Tcl_Channel chan); /* 126 */ + CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */ + CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */ + int (*tcl_Eval) (Tcl_Interp *interp, CONST char *script); /* 129 */ + int (*tcl_EvalFile) (Tcl_Interp *interp, CONST char *fileName); /* 130 */ + int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */ + void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freeProc); /* 132 */ + void (*tcl_Exit) (int status); /* 133 */ + int (*tcl_ExposeCommand) (Tcl_Interp *interp, CONST char *hiddenCmdToken, CONST char *cmdName); /* 134 */ + int (*tcl_ExprBoolean) (Tcl_Interp *interp, CONST char *expr, int *ptr); /* 135 */ + int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */ + int (*tcl_ExprDouble) (Tcl_Interp *interp, CONST char *expr, double *ptr); /* 137 */ + int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */ + int (*tcl_ExprLong) (Tcl_Interp *interp, CONST char *expr, long *ptr); /* 139 */ + int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */ + int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */ + int (*tcl_ExprString) (Tcl_Interp *interp, CONST char *expr); /* 142 */ + void (*tcl_Finalize) (void); /* 143 */ + void (*tcl_FindExecutable) (CONST char *argv0); /* 144 */ + Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */ + int (*tcl_Flush) (Tcl_Channel chan); /* 146 */ + void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */ + int (*tcl_GetAlias) (Tcl_Interp *interp, CONST char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */ + int (*tcl_GetAliasObj) (Tcl_Interp *interp, CONST char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */ + ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, CONST char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */ + Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, CONST char *chanName, int *modePtr); /* 151 */ + int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */ + int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData *handlePtr); /* 153 */ + ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */ + int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */ + CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */ + int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, CONST char *optionName, Tcl_DString *dsPtr); /* 157 */ + Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */ + int (*tcl_GetCommandInfo) (Tcl_Interp *interp, CONST char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */ + CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */ + int (*tcl_GetErrno) (void); /* 161 */ + CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */ + int (*tcl_GetInterpPath) (Tcl_Interp *askInterp, Tcl_Interp *slaveInterp); /* 163 */ + Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */ + CONST char * (*tcl_GetNameOfExecutable) (void); /* 165 */ + Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */ +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ + int (*tcl_GetOpenFile) (Tcl_Interp *interp, CONST char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */ +#endif /* UNIX */ +#if defined(__WIN32__) /* WIN */ + VOID *reserved167; +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ + int (*tcl_GetOpenFile) (Tcl_Interp *interp, CONST char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */ +#endif /* MACOSX */ + Tcl_PathType (*tcl_GetPathType) (CONST char *path); /* 168 */ + int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */ + int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */ + int (*tcl_GetServiceMode) (void); /* 171 */ + Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, CONST char *slaveName); /* 172 */ + Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */ + CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 174 */ + CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, CONST char *varName, int flags); /* 175 */ + CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags); /* 176 */ + int (*tcl_GlobalEval) (Tcl_Interp *interp, CONST char *command); /* 177 */ + int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */ + int (*tcl_HideCommand) (Tcl_Interp *interp, CONST char *cmdName, CONST char *hiddenCmdToken); /* 179 */ + int (*tcl_Init) (Tcl_Interp *interp); /* 180 */ + void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */ + int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */ + int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */ + int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */ + int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */ + char * (*tcl_JoinPath) (int argc, CONST84 char *CONST *argv, Tcl_DString *resultPtr); /* 186 */ + int (*tcl_LinkVar) (Tcl_Interp *interp, CONST char *varName, char *addr, int type); /* 187 */ + VOID *reserved188; + Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */ + int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */ + Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */ + char * (*tcl_Merge) (int argc, CONST84 char *CONST *argv); /* 192 */ + Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */ + void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */ + Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */ + Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */ + Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CONST84 char **argv, int flags); /* 197 */ + Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, CONST char *fileName, CONST char *modeString, int permissions); /* 198 */ + Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, CONST char *address, CONST char *myaddr, int myport, int async); /* 199 */ + Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, CONST char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200 */ + void (*tcl_Preserve) (ClientData data); /* 201 */ + void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */ + int (*tcl_PutEnv) (CONST char *assignment); /* 203 */ + CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */ + void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */ + int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */ + void (*tcl_ReapDetachedProcs) (void); /* 207 */ + int (*tcl_RecordAndEval) (Tcl_Interp *interp, CONST char *cmd, int flags); /* 208 */ + int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */ + void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */ + void (*tcl_RegisterObjType) (Tcl_ObjType *typePtr); /* 211 */ + Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, CONST char *pattern); /* 212 */ + int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, CONST char *text, CONST char *start); /* 213 */ + int (*tcl_RegExpMatch) (Tcl_Interp *interp, CONST char *text, CONST char *pattern); /* 214 */ + void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */ + void (*tcl_Release) (ClientData clientData); /* 216 */ + void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */ + int (*tcl_ScanElement) (CONST char *src, int *flagPtr); /* 218 */ + int (*tcl_ScanCountedElement) (CONST char *src, int length, int *flagPtr); /* 219 */ + int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */ + int (*tcl_ServiceAll) (void); /* 221 */ + int (*tcl_ServiceEvent) (int flags); /* 222 */ + void (*tcl_SetAssocData) (Tcl_Interp *interp, CONST char *name, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 223 */ + void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */ + int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, CONST char *optionName, CONST char *newValue); /* 225 */ + int (*tcl_SetCommandInfo) (Tcl_Interp *interp, CONST char *cmdName, CONST Tcl_CmdInfo *infoPtr); /* 226 */ + void (*tcl_SetErrno) (int err); /* 227 */ + void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */ + void (*tcl_SetMaxBlockTime) (Tcl_Time *timePtr); /* 229 */ + void (*tcl_SetPanicProc) (Tcl_PanicProc *panicProc); /* 230 */ + int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */ + void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc); /* 232 */ + int (*tcl_SetServiceMode) (int mode); /* 233 */ + void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */ + void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */ + void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */ + CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, CONST char *varName, CONST char *newValue, int flags); /* 237 */ + CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, CONST char *newValue, int flags); /* 238 */ + CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */ + CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */ + void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */ + int (*tcl_SplitList) (Tcl_Interp *interp, CONST char *listStr, int *argcPtr, CONST84 char ***argvPtr); /* 242 */ + void (*tcl_SplitPath) (CONST char *path, int *argcPtr, CONST84 char ***argvPtr); /* 243 */ + void (*tcl_StaticPackage) (Tcl_Interp *interp, CONST char *pkgName, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */ + int (*tcl_StringMatch) (CONST char *str, CONST char *pattern); /* 245 */ + int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */ + int (*tcl_TraceVar) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */ + int (*tcl_TraceVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248 */ + char * (*tcl_TranslateFileName) (Tcl_Interp *interp, CONST char *name, Tcl_DString *bufferPtr); /* 249 */ + int (*tcl_Ungets) (Tcl_Channel chan, CONST char *str, int len, int atHead); /* 250 */ + void (*tcl_UnlinkVar) (Tcl_Interp *interp, CONST char *varName); /* 251 */ + int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */ + int (*tcl_UnsetVar) (Tcl_Interp *interp, CONST char *varName, int flags); /* 253 */ + int (*tcl_UnsetVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags); /* 254 */ + void (*tcl_UntraceVar) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */ + void (*tcl_UntraceVar2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 256 */ + void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, CONST char *varName); /* 257 */ + int (*tcl_UpVar) (Tcl_Interp *interp, CONST char *frameName, CONST char *varName, CONST char *localName, int flags); /* 258 */ + int (*tcl_UpVar2) (Tcl_Interp *interp, CONST char *frameName, CONST char *part1, CONST char *part2, CONST char *localName, int flags); /* 259 */ + int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */ + ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261 */ + ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 262 */ + int (*tcl_Write) (Tcl_Channel chan, CONST char *s, int slen); /* 263 */ + void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], CONST char *message); /* 264 */ + int (*tcl_DumpActiveMemory) (CONST char *fileName); /* 265 */ + void (*tcl_ValidateAllMemory) (CONST char *file, int line); /* 266 */ + void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 267 */ + void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */ + char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */ + CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, CONST char *start, CONST84 char **termPtr); /* 270 */ + CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, CONST char *name, CONST char *version, int exact); /* 271 */ + CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, CONST char *name, CONST char *version, int exact, ClientData *clientDataPtr); /* 272 */ + int (*tcl_PkgProvide) (Tcl_Interp *interp, CONST char *name, CONST char *version); /* 273 */ + CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, CONST char *name, CONST char *version, int exact); /* 274 */ + void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 275 */ + int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */ + Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */ + void (*tcl_PanicVA) (CONST char *format, va_list argList); /* 278 */ + void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */ + void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */ + Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */ + int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */ + Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */ + void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */ + VOID *reserved285; + void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */ + Tcl_Encoding (*tcl_CreateEncoding) (CONST Tcl_EncodingType *typePtr); /* 287 */ + void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 288 */ + void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 289 */ + void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */ + int (*tcl_EvalEx) (Tcl_Interp *interp, CONST char *script, int numBytes, int flags); /* 291 */ + int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], int flags); /* 292 */ + int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */ + void (*tcl_ExitThread) (int status); /* 294 */ + int (*tcl_ExternalToUtf) (Tcl_Interp *interp, Tcl_Encoding encoding, CONST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 295 */ + char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, CONST char *src, int srcLen, Tcl_DString *dsPtr); /* 296 */ + void (*tcl_FinalizeThread) (void); /* 297 */ + void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */ + void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */ + Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */ + Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, CONST char *name); /* 301 */ + CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */ + void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */ + int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST VOID *tablePtr, int offset, CONST char *msg, int flags, int *indexPtr); /* 304 */ + VOID * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 305 */ + Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags); /* 306 */ + ClientData (*tcl_InitNotifier) (void); /* 307 */ + void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */ + void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */ + void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */ + void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, Tcl_Time *timePtr); /* 311 */ + int (*tcl_NumUtfChars) (CONST char *src, int length); /* 312 */ + int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag); /* 313 */ + void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 314 */ + void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */ + int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, CONST char *name); /* 316 */ + Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */ + void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */ + void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */ + Tcl_UniChar (*tcl_UniCharAtIndex) (CONST char *src, int index); /* 320 */ + Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */ + Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */ + Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */ + int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */ + CONST84_RETURN char * (*tcl_UtfAtIndex) (CONST char *src, int index); /* 325 */ + int (*tcl_UtfCharComplete) (CONST char *src, int length); /* 326 */ + int (*tcl_UtfBackslash) (CONST char *src, int *readPtr, char *dst); /* 327 */ + CONST84_RETURN char * (*tcl_UtfFindFirst) (CONST char *src, int ch); /* 328 */ + CONST84_RETURN char * (*tcl_UtfFindLast) (CONST char *src, int ch); /* 329 */ + CONST84_RETURN char * (*tcl_UtfNext) (CONST char *src); /* 330 */ + CONST84_RETURN char * (*tcl_UtfPrev) (CONST char *src, CONST char *start); /* 331 */ + int (*tcl_UtfToExternal) (Tcl_Interp *interp, Tcl_Encoding encoding, CONST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 332 */ + char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, CONST char *src, int srcLen, Tcl_DString *dsPtr); /* 333 */ + int (*tcl_UtfToLower) (char *src); /* 334 */ + int (*tcl_UtfToTitle) (char *src); /* 335 */ + int (*tcl_UtfToUniChar) (CONST char *src, Tcl_UniChar *chPtr); /* 336 */ + int (*tcl_UtfToUpper) (char *src); /* 337 */ + int (*tcl_WriteChars) (Tcl_Channel chan, CONST char *src, int srcLen); /* 338 */ + int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */ + char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */ + CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */ + void (*tcl_SetDefaultEncodingDir) (CONST char *path); /* 342 */ + void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */ + void (*tcl_ServiceModeHook) (int mode); /* 344 */ + int (*tcl_UniCharIsAlnum) (int ch); /* 345 */ + int (*tcl_UniCharIsAlpha) (int ch); /* 346 */ + int (*tcl_UniCharIsDigit) (int ch); /* 347 */ + int (*tcl_UniCharIsLower) (int ch); /* 348 */ + int (*tcl_UniCharIsSpace) (int ch); /* 349 */ + int (*tcl_UniCharIsUpper) (int ch); /* 350 */ + int (*tcl_UniCharIsWordChar) (int ch); /* 351 */ + int (*tcl_UniCharLen) (CONST Tcl_UniChar *uniStr); /* 352 */ + int (*tcl_UniCharNcmp) (CONST Tcl_UniChar *ucs, CONST Tcl_UniChar *uct, unsigned long numChars); /* 353 */ + char * (*tcl_UniCharToUtfDString) (CONST Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr); /* 354 */ + Tcl_UniChar * (*tcl_UtfToUniCharDString) (CONST char *src, int length, Tcl_DString *dsPtr); /* 355 */ + Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */ + Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 357 */ + void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */ + void (*tcl_LogCommandInfo) (Tcl_Interp *interp, CONST char *script, CONST char *command, int length); /* 359 */ + int (*tcl_ParseBraces) (Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */ + int (*tcl_ParseCommand) (Tcl_Interp *interp, CONST char *start, int numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */ + int (*tcl_ParseExpr) (Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr); /* 362 */ + int (*tcl_ParseQuotedString) (Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 363 */ + int (*tcl_ParseVarName) (Tcl_Interp *interp, CONST char *start, int numBytes, Tcl_Parse *parsePtr, int append); /* 364 */ + char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */ + int (*tcl_Chdir) (CONST char *dirName); /* 366 */ + int (*tcl_Access) (CONST char *path, int mode); /* 367 */ + int (*tcl_Stat) (CONST char *path, struct stat *bufPtr); /* 368 */ + int (*tcl_UtfNcmp) (CONST char *s1, CONST char *s2, unsigned long n); /* 369 */ + int (*tcl_UtfNcasecmp) (CONST char *s1, CONST char *s2, unsigned long n); /* 370 */ + int (*tcl_StringCaseMatch) (CONST char *str, CONST char *pattern, int nocase); /* 371 */ + int (*tcl_UniCharIsControl) (int ch); /* 372 */ + int (*tcl_UniCharIsGraph) (int ch); /* 373 */ + int (*tcl_UniCharIsPrint) (int ch); /* 374 */ + int (*tcl_UniCharIsPunct) (int ch); /* 375 */ + int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags); /* 376 */ + void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */ + Tcl_Obj * (*tcl_NewUnicodeObj) (CONST Tcl_UniChar *unicode, int numChars); /* 378 */ + void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode, int numChars); /* 379 */ + int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */ + Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */ + Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */ + Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 383 */ + void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode, int length); /* 384 */ + int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */ + void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */ + Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */ + int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */ + int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, CONST char *pattern); /* 389 */ + int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 390 */ + void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */ + void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */ + int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc proc, ClientData clientData, int stackSize, int flags); /* 393 */ + int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 394 */ + int (*tcl_WriteRaw) (Tcl_Channel chan, CONST char *src, int srcLen); /* 395 */ + Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */ + int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */ + CONST84_RETURN char * (*tcl_ChannelName) (CONST Tcl_ChannelType *chanTypePtr); /* 398 */ + Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (CONST Tcl_ChannelType *chanTypePtr); /* 399 */ + Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (CONST Tcl_ChannelType *chanTypePtr); /* 400 */ + Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (CONST Tcl_ChannelType *chanTypePtr); /* 401 */ + Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (CONST Tcl_ChannelType *chanTypePtr); /* 402 */ + Tcl_DriverInputProc * (*tcl_ChannelInputProc) (CONST Tcl_ChannelType *chanTypePtr); /* 403 */ + Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (CONST Tcl_ChannelType *chanTypePtr); /* 404 */ + Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (CONST Tcl_ChannelType *chanTypePtr); /* 405 */ + Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (CONST Tcl_ChannelType *chanTypePtr); /* 406 */ + Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (CONST Tcl_ChannelType *chanTypePtr); /* 407 */ + Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (CONST Tcl_ChannelType *chanTypePtr); /* 408 */ + Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (CONST Tcl_ChannelType *chanTypePtr); /* 409 */ + Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (CONST Tcl_ChannelType *chanTypePtr); /* 410 */ + Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (CONST Tcl_ChannelType *chanTypePtr); /* 411 */ + int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */ + int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */ + int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */ + void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */ + void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */ + void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */ + int (*tcl_IsChannelExisting) (CONST char *channelName); /* 418 */ + int (*tcl_UniCharNcasecmp) (CONST Tcl_UniChar *ucs, CONST Tcl_UniChar *uct, unsigned long numChars); /* 419 */ + int (*tcl_UniCharCaseMatch) (CONST Tcl_UniChar *uniStr, CONST Tcl_UniChar *uniPattern, int nocase); /* 420 */ + Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, CONST char *key); /* 421 */ + Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, CONST char *key, int *newPtr); /* 422 */ + void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, Tcl_HashKeyType *typePtr); /* 423 */ + void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */ + ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); /* 425 */ + int (*tcl_TraceCommand) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */ + void (*tcl_UntraceCommand) (Tcl_Interp *interp, CONST char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */ + char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */ + char * (*tcl_AttemptDbCkalloc) (unsigned int size, CONST char *file, int line); /* 429 */ + char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */ + char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, CONST char *file, int line); /* 431 */ + int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */ + Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */ + Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 434 */ + int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, CONST char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr); /* 435 */ + Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, CONST char *pattern); /* 436 */ + Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */ + int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */ + int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */ + int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */ + int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */ + int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */ + int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */ + int (*tcl_FSLoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, CONST char *sym1, CONST char *sym2, Tcl_PackageInitProc **proc1Ptr, Tcl_PackageInitProc **proc2Ptr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr); /* 444 */ + int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern, Tcl_GlobTypeData *types); /* 445 */ + Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */ + int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */ + int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */ + int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */ + int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */ + int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */ + int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */ + CONST char ** (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */ + int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */ + int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */ + Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, CONST char *modeString, int permissions); /* 456 */ + Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */ + int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */ + int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */ + Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */ + Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */ + int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */ + Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */ + Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *CONST objv[]); /* 464 */ + ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, Tcl_Filesystem *fsPtr); /* 465 */ + Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */ + int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */ + Tcl_Obj * (*tcl_FSNewNativePath) (Tcl_Filesystem *fromFilesystem, ClientData clientData); /* 468 */ + CONST char * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */ + Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */ + Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */ + Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */ + int (*tcl_FSRegister) (ClientData clientData, Tcl_Filesystem *fsPtr); /* 473 */ + int (*tcl_FSUnregister) (Tcl_Filesystem *fsPtr); /* 474 */ + ClientData (*tcl_FSData) (Tcl_Filesystem *fsPtr); /* 475 */ + CONST char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */ + Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */ + Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */ + int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */ + void (*tcl_FSMountsChanged) (Tcl_Filesystem *fsPtr); /* 480 */ + int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */ + void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */ + Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */ + int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */ + int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, CONST Tcl_CmdInfo *infoPtr); /* 485 */ + Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, CONST char *file, int line); /* 486 */ + int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */ + Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */ + void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */ + Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */ + Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */ + Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */ + Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (CONST Tcl_ChannelType *chanTypePtr); /* 493 */ + int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */ + int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */ + int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */ + int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr); /* 497 */ + int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */ + void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */ + void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */ + int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *CONST *keyv, Tcl_Obj *valuePtr); /* 501 */ + int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *CONST *keyv); /* 502 */ + Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */ + Tcl_Obj * (*tcl_DbNewDictObj) (CONST char *file, int line); /* 504 */ + void (*tcl_RegisterConfig) (Tcl_Interp *interp, CONST char *pkgName, Tcl_Config *configuration, CONST char *valEncoding); /* 505 */ + Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, CONST char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */ + void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */ + int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */ + int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int resetListFirst); /* 509 */ + int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int allowOverwrite); /* 510 */ + int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern); /* 511 */ + Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */ + Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */ + Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */ + Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */ + Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */ + void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */ + int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, CONST char *encodingName); /* 518 */ + Tcl_ExitProc * (*tcl_SetExitProc) (Tcl_ExitProc *proc); /* 519 */ + void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */ + void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData); /* 521 */ + int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */ + int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */ + int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */ + void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */ + void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */ + void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */ + int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */ + int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */ + void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */ + void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */ + int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */ + void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */ + int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */ + Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */ + int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */ + void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */ + int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */ + Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */ + int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */ + Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */ + Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */ + int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */ + int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */ + int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */ + int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */ + int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */ + int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */ + int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */ + int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */ + int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */ + void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, ClientData clientData); /* 552 */ + void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */ + Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (CONST Tcl_ChannelType *chanTypePtr); /* 554 */ + Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */ + Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, CONST char *file, int line); /* 556 */ + void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */ + int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 558 */ + int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */ + int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */ + Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (CONST Tcl_ChannelType *chanTypePtr); /* 561 */ + void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */ + void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */ + void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */ + void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */ + int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp_int *toInit); /* 566 */ + Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */ + int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */ + int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */ + Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */ + int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */ + CONST char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */ + int (*tcl_PkgRequireProc) (Tcl_Interp *interp, CONST char *name, int objc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr); /* 573 */ + void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */ + void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, CONST char *bytes, int length, int limit, CONST char *ellipsis); /* 575 */ + Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, CONST char *format, int objc, Tcl_Obj *CONST objv[]); /* 576 */ + int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST char *format, int objc, Tcl_Obj *CONST objv[]); /* 577 */ + Tcl_Obj * (*tcl_ObjPrintf) (CONST char *format, ...); /* 578 */ + void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, CONST char *format, ...); /* 579 */ + VOID *reserved580; + VOID *reserved581; + VOID *reserved582; + VOID *reserved583; + VOID *reserved584; + VOID *reserved585; + VOID *reserved586; + VOID *reserved587; + VOID *reserved588; + VOID *reserved589; + VOID *reserved590; + VOID *reserved591; + VOID *reserved592; + VOID *reserved593; + VOID *reserved594; + VOID *reserved595; + VOID *reserved596; + VOID *reserved597; + VOID *reserved598; + VOID *reserved599; + VOID *reserved600; + VOID *reserved601; + VOID *reserved602; + VOID *reserved603; + VOID *reserved604; + VOID *reserved605; + VOID *reserved606; + VOID *reserved607; + VOID *reserved608; + VOID *reserved609; + VOID *reserved610; + VOID *reserved611; + VOID *reserved612; + VOID *reserved613; + VOID *reserved614; + VOID *reserved615; + VOID *reserved616; + VOID *reserved617; + VOID *reserved618; + VOID *reserved619; + VOID *reserved620; + VOID *reserved621; + VOID *reserved622; + VOID *reserved623; + VOID *reserved624; + VOID *reserved625; + VOID *reserved626; + VOID *reserved627; + VOID *reserved628; + VOID *reserved629; + void (*tclUnusedStubEntry) (void); /* 630 */ +} TclStubs; + +#ifdef __cplusplus +extern "C" { +#endif +extern TclStubs *tclStubsPtr; +#ifdef __cplusplus +} +#endif + +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#ifndef Tcl_PkgProvideEx +#define Tcl_PkgProvideEx \ + (tclStubsPtr->tcl_PkgProvideEx) /* 0 */ +#endif +#ifndef Tcl_PkgRequireEx +#define Tcl_PkgRequireEx \ + (tclStubsPtr->tcl_PkgRequireEx) /* 1 */ +#endif +#ifndef Tcl_Panic +#define Tcl_Panic \ + (tclStubsPtr->tcl_Panic) /* 2 */ +#endif +#ifndef Tcl_Alloc +#define Tcl_Alloc \ + (tclStubsPtr->tcl_Alloc) /* 3 */ +#endif +#ifndef Tcl_Free +#define Tcl_Free \ + (tclStubsPtr->tcl_Free) /* 4 */ +#endif +#ifndef Tcl_Realloc +#define Tcl_Realloc \ + (tclStubsPtr->tcl_Realloc) /* 5 */ +#endif +#ifndef Tcl_DbCkalloc +#define Tcl_DbCkalloc \ + (tclStubsPtr->tcl_DbCkalloc) /* 6 */ +#endif +#ifndef Tcl_DbCkfree +#define Tcl_DbCkfree \ + (tclStubsPtr->tcl_DbCkfree) /* 7 */ +#endif +#ifndef Tcl_DbCkrealloc +#define Tcl_DbCkrealloc \ + (tclStubsPtr->tcl_DbCkrealloc) /* 8 */ +#endif +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ +#ifndef Tcl_CreateFileHandler +#define Tcl_CreateFileHandler \ + (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ +#endif +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#ifndef Tcl_CreateFileHandler +#define Tcl_CreateFileHandler \ + (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ +#endif +#endif /* MACOSX */ +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ +#ifndef Tcl_DeleteFileHandler +#define Tcl_DeleteFileHandler \ + (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ +#endif +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#ifndef Tcl_DeleteFileHandler +#define Tcl_DeleteFileHandler \ + (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ +#endif +#endif /* MACOSX */ +#ifndef Tcl_SetTimer +#define Tcl_SetTimer \ + (tclStubsPtr->tcl_SetTimer) /* 11 */ +#endif +#ifndef Tcl_Sleep +#define Tcl_Sleep \ + (tclStubsPtr->tcl_Sleep) /* 12 */ +#endif +#ifndef Tcl_WaitForEvent +#define Tcl_WaitForEvent \ + (tclStubsPtr->tcl_WaitForEvent) /* 13 */ +#endif +#ifndef Tcl_AppendAllObjTypes +#define Tcl_AppendAllObjTypes \ + (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */ +#endif +#ifndef Tcl_AppendStringsToObj +#define Tcl_AppendStringsToObj \ + (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */ +#endif +#ifndef Tcl_AppendToObj +#define Tcl_AppendToObj \ + (tclStubsPtr->tcl_AppendToObj) /* 16 */ +#endif +#ifndef Tcl_ConcatObj +#define Tcl_ConcatObj \ + (tclStubsPtr->tcl_ConcatObj) /* 17 */ +#endif +#ifndef Tcl_ConvertToType +#define Tcl_ConvertToType \ + (tclStubsPtr->tcl_ConvertToType) /* 18 */ +#endif +#ifndef Tcl_DbDecrRefCount +#define Tcl_DbDecrRefCount \ + (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */ +#endif +#ifndef Tcl_DbIncrRefCount +#define Tcl_DbIncrRefCount \ + (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */ +#endif +#ifndef Tcl_DbIsShared +#define Tcl_DbIsShared \ + (tclStubsPtr->tcl_DbIsShared) /* 21 */ +#endif +#ifndef Tcl_DbNewBooleanObj +#define Tcl_DbNewBooleanObj \ + (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */ +#endif +#ifndef Tcl_DbNewByteArrayObj +#define Tcl_DbNewByteArrayObj \ + (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */ +#endif +#ifndef Tcl_DbNewDoubleObj +#define Tcl_DbNewDoubleObj \ + (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */ +#endif +#ifndef Tcl_DbNewListObj +#define Tcl_DbNewListObj \ + (tclStubsPtr->tcl_DbNewListObj) /* 25 */ +#endif +#ifndef Tcl_DbNewLongObj +#define Tcl_DbNewLongObj \ + (tclStubsPtr->tcl_DbNewLongObj) /* 26 */ +#endif +#ifndef Tcl_DbNewObj +#define Tcl_DbNewObj \ + (tclStubsPtr->tcl_DbNewObj) /* 27 */ +#endif +#ifndef Tcl_DbNewStringObj +#define Tcl_DbNewStringObj \ + (tclStubsPtr->tcl_DbNewStringObj) /* 28 */ +#endif +#ifndef Tcl_DuplicateObj +#define Tcl_DuplicateObj \ + (tclStubsPtr->tcl_DuplicateObj) /* 29 */ +#endif +#ifndef TclFreeObj +#define TclFreeObj \ + (tclStubsPtr->tclFreeObj) /* 30 */ +#endif +#ifndef Tcl_GetBoolean +#define Tcl_GetBoolean \ + (tclStubsPtr->tcl_GetBoolean) /* 31 */ +#endif +#ifndef Tcl_GetBooleanFromObj +#define Tcl_GetBooleanFromObj \ + (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */ +#endif +#ifndef Tcl_GetByteArrayFromObj +#define Tcl_GetByteArrayFromObj \ + (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */ +#endif +#ifndef Tcl_GetDouble +#define Tcl_GetDouble \ + (tclStubsPtr->tcl_GetDouble) /* 34 */ +#endif +#ifndef Tcl_GetDoubleFromObj +#define Tcl_GetDoubleFromObj \ + (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */ +#endif +#ifndef Tcl_GetIndexFromObj +#define Tcl_GetIndexFromObj \ + (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */ +#endif +#ifndef Tcl_GetInt +#define Tcl_GetInt \ + (tclStubsPtr->tcl_GetInt) /* 37 */ +#endif +#ifndef Tcl_GetIntFromObj +#define Tcl_GetIntFromObj \ + (tclStubsPtr->tcl_GetIntFromObj) /* 38 */ +#endif +#ifndef Tcl_GetLongFromObj +#define Tcl_GetLongFromObj \ + (tclStubsPtr->tcl_GetLongFromObj) /* 39 */ +#endif +#ifndef Tcl_GetObjType +#define Tcl_GetObjType \ + (tclStubsPtr->tcl_GetObjType) /* 40 */ +#endif +#ifndef Tcl_GetStringFromObj +#define Tcl_GetStringFromObj \ + (tclStubsPtr->tcl_GetStringFromObj) /* 41 */ +#endif +#ifndef Tcl_InvalidateStringRep +#define Tcl_InvalidateStringRep \ + (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */ +#endif +#ifndef Tcl_ListObjAppendList +#define Tcl_ListObjAppendList \ + (tclStubsPtr->tcl_ListObjAppendList) /* 43 */ +#endif +#ifndef Tcl_ListObjAppendElement +#define Tcl_ListObjAppendElement \ + (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */ +#endif +#ifndef Tcl_ListObjGetElements +#define Tcl_ListObjGetElements \ + (tclStubsPtr->tcl_ListObjGetElements) /* 45 */ +#endif +#ifndef Tcl_ListObjIndex +#define Tcl_ListObjIndex \ + (tclStubsPtr->tcl_ListObjIndex) /* 46 */ +#endif +#ifndef Tcl_ListObjLength +#define Tcl_ListObjLength \ + (tclStubsPtr->tcl_ListObjLength) /* 47 */ +#endif +#ifndef Tcl_ListObjReplace +#define Tcl_ListObjReplace \ + (tclStubsPtr->tcl_ListObjReplace) /* 48 */ +#endif +#ifndef Tcl_NewBooleanObj +#define Tcl_NewBooleanObj \ + (tclStubsPtr->tcl_NewBooleanObj) /* 49 */ +#endif +#ifndef Tcl_NewByteArrayObj +#define Tcl_NewByteArrayObj \ + (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */ +#endif +#ifndef Tcl_NewDoubleObj +#define Tcl_NewDoubleObj \ + (tclStubsPtr->tcl_NewDoubleObj) /* 51 */ +#endif +#ifndef Tcl_NewIntObj +#define Tcl_NewIntObj \ + (tclStubsPtr->tcl_NewIntObj) /* 52 */ +#endif +#ifndef Tcl_NewListObj +#define Tcl_NewListObj \ + (tclStubsPtr->tcl_NewListObj) /* 53 */ +#endif +#ifndef Tcl_NewLongObj +#define Tcl_NewLongObj \ + (tclStubsPtr->tcl_NewLongObj) /* 54 */ +#endif +#ifndef Tcl_NewObj +#define Tcl_NewObj \ + (tclStubsPtr->tcl_NewObj) /* 55 */ +#endif +#ifndef Tcl_NewStringObj +#define Tcl_NewStringObj \ + (tclStubsPtr->tcl_NewStringObj) /* 56 */ +#endif +#ifndef Tcl_SetBooleanObj +#define Tcl_SetBooleanObj \ + (tclStubsPtr->tcl_SetBooleanObj) /* 57 */ +#endif +#ifndef Tcl_SetByteArrayLength +#define Tcl_SetByteArrayLength \ + (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */ +#endif +#ifndef Tcl_SetByteArrayObj +#define Tcl_SetByteArrayObj \ + (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */ +#endif +#ifndef Tcl_SetDoubleObj +#define Tcl_SetDoubleObj \ + (tclStubsPtr->tcl_SetDoubleObj) /* 60 */ +#endif +#ifndef Tcl_SetIntObj +#define Tcl_SetIntObj \ + (tclStubsPtr->tcl_SetIntObj) /* 61 */ +#endif +#ifndef Tcl_SetListObj +#define Tcl_SetListObj \ + (tclStubsPtr->tcl_SetListObj) /* 62 */ +#endif +#ifndef Tcl_SetLongObj +#define Tcl_SetLongObj \ + (tclStubsPtr->tcl_SetLongObj) /* 63 */ +#endif +#ifndef Tcl_SetObjLength +#define Tcl_SetObjLength \ + (tclStubsPtr->tcl_SetObjLength) /* 64 */ +#endif +#ifndef Tcl_SetStringObj +#define Tcl_SetStringObj \ + (tclStubsPtr->tcl_SetStringObj) /* 65 */ +#endif +#ifndef Tcl_AddErrorInfo +#define Tcl_AddErrorInfo \ + (tclStubsPtr->tcl_AddErrorInfo) /* 66 */ +#endif +#ifndef Tcl_AddObjErrorInfo +#define Tcl_AddObjErrorInfo \ + (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */ +#endif +#ifndef Tcl_AllowExceptions +#define Tcl_AllowExceptions \ + (tclStubsPtr->tcl_AllowExceptions) /* 68 */ +#endif +#ifndef Tcl_AppendElement +#define Tcl_AppendElement \ + (tclStubsPtr->tcl_AppendElement) /* 69 */ +#endif +#ifndef Tcl_AppendResult +#define Tcl_AppendResult \ + (tclStubsPtr->tcl_AppendResult) /* 70 */ +#endif +#ifndef Tcl_AsyncCreate +#define Tcl_AsyncCreate \ + (tclStubsPtr->tcl_AsyncCreate) /* 71 */ +#endif +#ifndef Tcl_AsyncDelete +#define Tcl_AsyncDelete \ + (tclStubsPtr->tcl_AsyncDelete) /* 72 */ +#endif +#ifndef Tcl_AsyncInvoke +#define Tcl_AsyncInvoke \ + (tclStubsPtr->tcl_AsyncInvoke) /* 73 */ +#endif +#ifndef Tcl_AsyncMark +#define Tcl_AsyncMark \ + (tclStubsPtr->tcl_AsyncMark) /* 74 */ +#endif +#ifndef Tcl_AsyncReady +#define Tcl_AsyncReady \ + (tclStubsPtr->tcl_AsyncReady) /* 75 */ +#endif +#ifndef Tcl_BackgroundError +#define Tcl_BackgroundError \ + (tclStubsPtr->tcl_BackgroundError) /* 76 */ +#endif +#ifndef Tcl_Backslash +#define Tcl_Backslash \ + (tclStubsPtr->tcl_Backslash) /* 77 */ +#endif +#ifndef Tcl_BadChannelOption +#define Tcl_BadChannelOption \ + (tclStubsPtr->tcl_BadChannelOption) /* 78 */ +#endif +#ifndef Tcl_CallWhenDeleted +#define Tcl_CallWhenDeleted \ + (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */ +#endif +#ifndef Tcl_CancelIdleCall +#define Tcl_CancelIdleCall \ + (tclStubsPtr->tcl_CancelIdleCall) /* 80 */ +#endif +#ifndef Tcl_Close +#define Tcl_Close \ + (tclStubsPtr->tcl_Close) /* 81 */ +#endif +#ifndef Tcl_CommandComplete +#define Tcl_CommandComplete \ + (tclStubsPtr->tcl_CommandComplete) /* 82 */ +#endif +#ifndef Tcl_Concat +#define Tcl_Concat \ + (tclStubsPtr->tcl_Concat) /* 83 */ +#endif +#ifndef Tcl_ConvertElement +#define Tcl_ConvertElement \ + (tclStubsPtr->tcl_ConvertElement) /* 84 */ +#endif +#ifndef Tcl_ConvertCountedElement +#define Tcl_ConvertCountedElement \ + (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */ +#endif +#ifndef Tcl_CreateAlias +#define Tcl_CreateAlias \ + (tclStubsPtr->tcl_CreateAlias) /* 86 */ +#endif +#ifndef Tcl_CreateAliasObj +#define Tcl_CreateAliasObj \ + (tclStubsPtr->tcl_CreateAliasObj) /* 87 */ +#endif +#ifndef Tcl_CreateChannel +#define Tcl_CreateChannel \ + (tclStubsPtr->tcl_CreateChannel) /* 88 */ +#endif +#ifndef Tcl_CreateChannelHandler +#define Tcl_CreateChannelHandler \ + (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */ +#endif +#ifndef Tcl_CreateCloseHandler +#define Tcl_CreateCloseHandler \ + (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */ +#endif +#ifndef Tcl_CreateCommand +#define Tcl_CreateCommand \ + (tclStubsPtr->tcl_CreateCommand) /* 91 */ +#endif +#ifndef Tcl_CreateEventSource +#define Tcl_CreateEventSource \ + (tclStubsPtr->tcl_CreateEventSource) /* 92 */ +#endif +#ifndef Tcl_CreateExitHandler +#define Tcl_CreateExitHandler \ + (tclStubsPtr->tcl_CreateExitHandler) /* 93 */ +#endif +#ifndef Tcl_CreateInterp +#define Tcl_CreateInterp \ + (tclStubsPtr->tcl_CreateInterp) /* 94 */ +#endif +#ifndef Tcl_CreateMathFunc +#define Tcl_CreateMathFunc \ + (tclStubsPtr->tcl_CreateMathFunc) /* 95 */ +#endif +#ifndef Tcl_CreateObjCommand +#define Tcl_CreateObjCommand \ + (tclStubsPtr->tcl_CreateObjCommand) /* 96 */ +#endif +#ifndef Tcl_CreateSlave +#define Tcl_CreateSlave \ + (tclStubsPtr->tcl_CreateSlave) /* 97 */ +#endif +#ifndef Tcl_CreateTimerHandler +#define Tcl_CreateTimerHandler \ + (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */ +#endif +#ifndef Tcl_CreateTrace +#define Tcl_CreateTrace \ + (tclStubsPtr->tcl_CreateTrace) /* 99 */ +#endif +#ifndef Tcl_DeleteAssocData +#define Tcl_DeleteAssocData \ + (tclStubsPtr->tcl_DeleteAssocData) /* 100 */ +#endif +#ifndef Tcl_DeleteChannelHandler +#define Tcl_DeleteChannelHandler \ + (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */ +#endif +#ifndef Tcl_DeleteCloseHandler +#define Tcl_DeleteCloseHandler \ + (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */ +#endif +#ifndef Tcl_DeleteCommand +#define Tcl_DeleteCommand \ + (tclStubsPtr->tcl_DeleteCommand) /* 103 */ +#endif +#ifndef Tcl_DeleteCommandFromToken +#define Tcl_DeleteCommandFromToken \ + (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */ +#endif +#ifndef Tcl_DeleteEvents +#define Tcl_DeleteEvents \ + (tclStubsPtr->tcl_DeleteEvents) /* 105 */ +#endif +#ifndef Tcl_DeleteEventSource +#define Tcl_DeleteEventSource \ + (tclStubsPtr->tcl_DeleteEventSource) /* 106 */ +#endif +#ifndef Tcl_DeleteExitHandler +#define Tcl_DeleteExitHandler \ + (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */ +#endif +#ifndef Tcl_DeleteHashEntry +#define Tcl_DeleteHashEntry \ + (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */ +#endif +#ifndef Tcl_DeleteHashTable +#define Tcl_DeleteHashTable \ + (tclStubsPtr->tcl_DeleteHashTable) /* 109 */ +#endif +#ifndef Tcl_DeleteInterp +#define Tcl_DeleteInterp \ + (tclStubsPtr->tcl_DeleteInterp) /* 110 */ +#endif +#ifndef Tcl_DetachPids +#define Tcl_DetachPids \ + (tclStubsPtr->tcl_DetachPids) /* 111 */ +#endif +#ifndef Tcl_DeleteTimerHandler +#define Tcl_DeleteTimerHandler \ + (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */ +#endif +#ifndef Tcl_DeleteTrace +#define Tcl_DeleteTrace \ + (tclStubsPtr->tcl_DeleteTrace) /* 113 */ +#endif +#ifndef Tcl_DontCallWhenDeleted +#define Tcl_DontCallWhenDeleted \ + (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */ +#endif +#ifndef Tcl_DoOneEvent +#define Tcl_DoOneEvent \ + (tclStubsPtr->tcl_DoOneEvent) /* 115 */ +#endif +#ifndef Tcl_DoWhenIdle +#define Tcl_DoWhenIdle \ + (tclStubsPtr->tcl_DoWhenIdle) /* 116 */ +#endif +#ifndef Tcl_DStringAppend +#define Tcl_DStringAppend \ + (tclStubsPtr->tcl_DStringAppend) /* 117 */ +#endif +#ifndef Tcl_DStringAppendElement +#define Tcl_DStringAppendElement \ + (tclStubsPtr->tcl_DStringAppendElement) /* 118 */ +#endif +#ifndef Tcl_DStringEndSublist +#define Tcl_DStringEndSublist \ + (tclStubsPtr->tcl_DStringEndSublist) /* 119 */ +#endif +#ifndef Tcl_DStringFree +#define Tcl_DStringFree \ + (tclStubsPtr->tcl_DStringFree) /* 120 */ +#endif +#ifndef Tcl_DStringGetResult +#define Tcl_DStringGetResult \ + (tclStubsPtr->tcl_DStringGetResult) /* 121 */ +#endif +#ifndef Tcl_DStringInit +#define Tcl_DStringInit \ + (tclStubsPtr->tcl_DStringInit) /* 122 */ +#endif +#ifndef Tcl_DStringResult +#define Tcl_DStringResult \ + (tclStubsPtr->tcl_DStringResult) /* 123 */ +#endif +#ifndef Tcl_DStringSetLength +#define Tcl_DStringSetLength \ + (tclStubsPtr->tcl_DStringSetLength) /* 124 */ +#endif +#ifndef Tcl_DStringStartSublist +#define Tcl_DStringStartSublist \ + (tclStubsPtr->tcl_DStringStartSublist) /* 125 */ +#endif +#ifndef Tcl_Eof +#define Tcl_Eof \ + (tclStubsPtr->tcl_Eof) /* 126 */ +#endif +#ifndef Tcl_ErrnoId +#define Tcl_ErrnoId \ + (tclStubsPtr->tcl_ErrnoId) /* 127 */ +#endif +#ifndef Tcl_ErrnoMsg +#define Tcl_ErrnoMsg \ + (tclStubsPtr->tcl_ErrnoMsg) /* 128 */ +#endif +#ifndef Tcl_Eval +#define Tcl_Eval \ + (tclStubsPtr->tcl_Eval) /* 129 */ +#endif +#ifndef Tcl_EvalFile +#define Tcl_EvalFile \ + (tclStubsPtr->tcl_EvalFile) /* 130 */ +#endif +#ifndef Tcl_EvalObj +#define Tcl_EvalObj \ + (tclStubsPtr->tcl_EvalObj) /* 131 */ +#endif +#ifndef Tcl_EventuallyFree +#define Tcl_EventuallyFree \ + (tclStubsPtr->tcl_EventuallyFree) /* 132 */ +#endif +#ifndef Tcl_Exit +#define Tcl_Exit \ + (tclStubsPtr->tcl_Exit) /* 133 */ +#endif +#ifndef Tcl_ExposeCommand +#define Tcl_ExposeCommand \ + (tclStubsPtr->tcl_ExposeCommand) /* 134 */ +#endif +#ifndef Tcl_ExprBoolean +#define Tcl_ExprBoolean \ + (tclStubsPtr->tcl_ExprBoolean) /* 135 */ +#endif +#ifndef Tcl_ExprBooleanObj +#define Tcl_ExprBooleanObj \ + (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */ +#endif +#ifndef Tcl_ExprDouble +#define Tcl_ExprDouble \ + (tclStubsPtr->tcl_ExprDouble) /* 137 */ +#endif +#ifndef Tcl_ExprDoubleObj +#define Tcl_ExprDoubleObj \ + (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */ +#endif +#ifndef Tcl_ExprLong +#define Tcl_ExprLong \ + (tclStubsPtr->tcl_ExprLong) /* 139 */ +#endif +#ifndef Tcl_ExprLongObj +#define Tcl_ExprLongObj \ + (tclStubsPtr->tcl_ExprLongObj) /* 140 */ +#endif +#ifndef Tcl_ExprObj +#define Tcl_ExprObj \ + (tclStubsPtr->tcl_ExprObj) /* 141 */ +#endif +#ifndef Tcl_ExprString +#define Tcl_ExprString \ + (tclStubsPtr->tcl_ExprString) /* 142 */ +#endif +#ifndef Tcl_Finalize +#define Tcl_Finalize \ + (tclStubsPtr->tcl_Finalize) /* 143 */ +#endif +#ifndef Tcl_FindExecutable +#define Tcl_FindExecutable \ + (tclStubsPtr->tcl_FindExecutable) /* 144 */ +#endif +#ifndef Tcl_FirstHashEntry +#define Tcl_FirstHashEntry \ + (tclStubsPtr->tcl_FirstHashEntry) /* 145 */ +#endif +#ifndef Tcl_Flush +#define Tcl_Flush \ + (tclStubsPtr->tcl_Flush) /* 146 */ +#endif +#ifndef Tcl_FreeResult +#define Tcl_FreeResult \ + (tclStubsPtr->tcl_FreeResult) /* 147 */ +#endif +#ifndef Tcl_GetAlias +#define Tcl_GetAlias \ + (tclStubsPtr->tcl_GetAlias) /* 148 */ +#endif +#ifndef Tcl_GetAliasObj +#define Tcl_GetAliasObj \ + (tclStubsPtr->tcl_GetAliasObj) /* 149 */ +#endif +#ifndef Tcl_GetAssocData +#define Tcl_GetAssocData \ + (tclStubsPtr->tcl_GetAssocData) /* 150 */ +#endif +#ifndef Tcl_GetChannel +#define Tcl_GetChannel \ + (tclStubsPtr->tcl_GetChannel) /* 151 */ +#endif +#ifndef Tcl_GetChannelBufferSize +#define Tcl_GetChannelBufferSize \ + (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */ +#endif +#ifndef Tcl_GetChannelHandle +#define Tcl_GetChannelHandle \ + (tclStubsPtr->tcl_GetChannelHandle) /* 153 */ +#endif +#ifndef Tcl_GetChannelInstanceData +#define Tcl_GetChannelInstanceData \ + (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */ +#endif +#ifndef Tcl_GetChannelMode +#define Tcl_GetChannelMode \ + (tclStubsPtr->tcl_GetChannelMode) /* 155 */ +#endif +#ifndef Tcl_GetChannelName +#define Tcl_GetChannelName \ + (tclStubsPtr->tcl_GetChannelName) /* 156 */ +#endif +#ifndef Tcl_GetChannelOption +#define Tcl_GetChannelOption \ + (tclStubsPtr->tcl_GetChannelOption) /* 157 */ +#endif +#ifndef Tcl_GetChannelType +#define Tcl_GetChannelType \ + (tclStubsPtr->tcl_GetChannelType) /* 158 */ +#endif +#ifndef Tcl_GetCommandInfo +#define Tcl_GetCommandInfo \ + (tclStubsPtr->tcl_GetCommandInfo) /* 159 */ +#endif +#ifndef Tcl_GetCommandName +#define Tcl_GetCommandName \ + (tclStubsPtr->tcl_GetCommandName) /* 160 */ +#endif +#ifndef Tcl_GetErrno +#define Tcl_GetErrno \ + (tclStubsPtr->tcl_GetErrno) /* 161 */ +#endif +#ifndef Tcl_GetHostName +#define Tcl_GetHostName \ + (tclStubsPtr->tcl_GetHostName) /* 162 */ +#endif +#ifndef Tcl_GetInterpPath +#define Tcl_GetInterpPath \ + (tclStubsPtr->tcl_GetInterpPath) /* 163 */ +#endif +#ifndef Tcl_GetMaster +#define Tcl_GetMaster \ + (tclStubsPtr->tcl_GetMaster) /* 164 */ +#endif +#ifndef Tcl_GetNameOfExecutable +#define Tcl_GetNameOfExecutable \ + (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */ +#endif +#ifndef Tcl_GetObjResult +#define Tcl_GetObjResult \ + (tclStubsPtr->tcl_GetObjResult) /* 166 */ +#endif +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ +#ifndef Tcl_GetOpenFile +#define Tcl_GetOpenFile \ + (tclStubsPtr->tcl_GetOpenFile) /* 167 */ +#endif +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#ifndef Tcl_GetOpenFile +#define Tcl_GetOpenFile \ + (tclStubsPtr->tcl_GetOpenFile) /* 167 */ +#endif +#endif /* MACOSX */ +#ifndef Tcl_GetPathType +#define Tcl_GetPathType \ + (tclStubsPtr->tcl_GetPathType) /* 168 */ +#endif +#ifndef Tcl_Gets +#define Tcl_Gets \ + (tclStubsPtr->tcl_Gets) /* 169 */ +#endif +#ifndef Tcl_GetsObj +#define Tcl_GetsObj \ + (tclStubsPtr->tcl_GetsObj) /* 170 */ +#endif +#ifndef Tcl_GetServiceMode +#define Tcl_GetServiceMode \ + (tclStubsPtr->tcl_GetServiceMode) /* 171 */ +#endif +#ifndef Tcl_GetSlave +#define Tcl_GetSlave \ + (tclStubsPtr->tcl_GetSlave) /* 172 */ +#endif +#ifndef Tcl_GetStdChannel +#define Tcl_GetStdChannel \ + (tclStubsPtr->tcl_GetStdChannel) /* 173 */ +#endif +#ifndef Tcl_GetStringResult +#define Tcl_GetStringResult \ + (tclStubsPtr->tcl_GetStringResult) /* 174 */ +#endif +#ifndef Tcl_GetVar +#define Tcl_GetVar \ + (tclStubsPtr->tcl_GetVar) /* 175 */ +#endif +#ifndef Tcl_GetVar2 +#define Tcl_GetVar2 \ + (tclStubsPtr->tcl_GetVar2) /* 176 */ +#endif +#ifndef Tcl_GlobalEval +#define Tcl_GlobalEval \ + (tclStubsPtr->tcl_GlobalEval) /* 177 */ +#endif +#ifndef Tcl_GlobalEvalObj +#define Tcl_GlobalEvalObj \ + (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */ +#endif +#ifndef Tcl_HideCommand +#define Tcl_HideCommand \ + (tclStubsPtr->tcl_HideCommand) /* 179 */ +#endif +#ifndef Tcl_Init +#define Tcl_Init \ + (tclStubsPtr->tcl_Init) /* 180 */ +#endif +#ifndef Tcl_InitHashTable +#define Tcl_InitHashTable \ + (tclStubsPtr->tcl_InitHashTable) /* 181 */ +#endif +#ifndef Tcl_InputBlocked +#define Tcl_InputBlocked \ + (tclStubsPtr->tcl_InputBlocked) /* 182 */ +#endif +#ifndef Tcl_InputBuffered +#define Tcl_InputBuffered \ + (tclStubsPtr->tcl_InputBuffered) /* 183 */ +#endif +#ifndef Tcl_InterpDeleted +#define Tcl_InterpDeleted \ + (tclStubsPtr->tcl_InterpDeleted) /* 184 */ +#endif +#ifndef Tcl_IsSafe +#define Tcl_IsSafe \ + (tclStubsPtr->tcl_IsSafe) /* 185 */ +#endif +#ifndef Tcl_JoinPath +#define Tcl_JoinPath \ + (tclStubsPtr->tcl_JoinPath) /* 186 */ +#endif +#ifndef Tcl_LinkVar +#define Tcl_LinkVar \ + (tclStubsPtr->tcl_LinkVar) /* 187 */ +#endif +/* Slot 188 is reserved */ +#ifndef Tcl_MakeFileChannel +#define Tcl_MakeFileChannel \ + (tclStubsPtr->tcl_MakeFileChannel) /* 189 */ +#endif +#ifndef Tcl_MakeSafe +#define Tcl_MakeSafe \ + (tclStubsPtr->tcl_MakeSafe) /* 190 */ +#endif +#ifndef Tcl_MakeTcpClientChannel +#define Tcl_MakeTcpClientChannel \ + (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */ +#endif +#ifndef Tcl_Merge +#define Tcl_Merge \ + (tclStubsPtr->tcl_Merge) /* 192 */ +#endif +#ifndef Tcl_NextHashEntry +#define Tcl_NextHashEntry \ + (tclStubsPtr->tcl_NextHashEntry) /* 193 */ +#endif +#ifndef Tcl_NotifyChannel +#define Tcl_NotifyChannel \ + (tclStubsPtr->tcl_NotifyChannel) /* 194 */ +#endif +#ifndef Tcl_ObjGetVar2 +#define Tcl_ObjGetVar2 \ + (tclStubsPtr->tcl_ObjGetVar2) /* 195 */ +#endif +#ifndef Tcl_ObjSetVar2 +#define Tcl_ObjSetVar2 \ + (tclStubsPtr->tcl_ObjSetVar2) /* 196 */ +#endif +#ifndef Tcl_OpenCommandChannel +#define Tcl_OpenCommandChannel \ + (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ +#endif +#ifndef Tcl_OpenFileChannel +#define Tcl_OpenFileChannel \ + (tclStubsPtr->tcl_OpenFileChannel) /* 198 */ +#endif +#ifndef Tcl_OpenTcpClient +#define Tcl_OpenTcpClient \ + (tclStubsPtr->tcl_OpenTcpClient) /* 199 */ +#endif +#ifndef Tcl_OpenTcpServer +#define Tcl_OpenTcpServer \ + (tclStubsPtr->tcl_OpenTcpServer) /* 200 */ +#endif +#ifndef Tcl_Preserve +#define Tcl_Preserve \ + (tclStubsPtr->tcl_Preserve) /* 201 */ +#endif +#ifndef Tcl_PrintDouble +#define Tcl_PrintDouble \ + (tclStubsPtr->tcl_PrintDouble) /* 202 */ +#endif +#ifndef Tcl_PutEnv +#define Tcl_PutEnv \ + (tclStubsPtr->tcl_PutEnv) /* 203 */ +#endif +#ifndef Tcl_PosixError +#define Tcl_PosixError \ + (tclStubsPtr->tcl_PosixError) /* 204 */ +#endif +#ifndef Tcl_QueueEvent +#define Tcl_QueueEvent \ + (tclStubsPtr->tcl_QueueEvent) /* 205 */ +#endif +#ifndef Tcl_Read +#define Tcl_Read \ + (tclStubsPtr->tcl_Read) /* 206 */ +#endif +#ifndef Tcl_ReapDetachedProcs +#define Tcl_ReapDetachedProcs \ + (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ +#endif +#ifndef Tcl_RecordAndEval +#define Tcl_RecordAndEval \ + (tclStubsPtr->tcl_RecordAndEval) /* 208 */ +#endif +#ifndef Tcl_RecordAndEvalObj +#define Tcl_RecordAndEvalObj \ + (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */ +#endif +#ifndef Tcl_RegisterChannel +#define Tcl_RegisterChannel \ + (tclStubsPtr->tcl_RegisterChannel) /* 210 */ +#endif +#ifndef Tcl_RegisterObjType +#define Tcl_RegisterObjType \ + (tclStubsPtr->tcl_RegisterObjType) /* 211 */ +#endif +#ifndef Tcl_RegExpCompile +#define Tcl_RegExpCompile \ + (tclStubsPtr->tcl_RegExpCompile) /* 212 */ +#endif +#ifndef Tcl_RegExpExec +#define Tcl_RegExpExec \ + (tclStubsPtr->tcl_RegExpExec) /* 213 */ +#endif +#ifndef Tcl_RegExpMatch +#define Tcl_RegExpMatch \ + (tclStubsPtr->tcl_RegExpMatch) /* 214 */ +#endif +#ifndef Tcl_RegExpRange +#define Tcl_RegExpRange \ + (tclStubsPtr->tcl_RegExpRange) /* 215 */ +#endif +#ifndef Tcl_Release +#define Tcl_Release \ + (tclStubsPtr->tcl_Release) /* 216 */ +#endif +#ifndef Tcl_ResetResult +#define Tcl_ResetResult \ + (tclStubsPtr->tcl_ResetResult) /* 217 */ +#endif +#ifndef Tcl_ScanElement +#define Tcl_ScanElement \ + (tclStubsPtr->tcl_ScanElement) /* 218 */ +#endif +#ifndef Tcl_ScanCountedElement +#define Tcl_ScanCountedElement \ + (tclStubsPtr->tcl_ScanCountedElement) /* 219 */ +#endif +#ifndef Tcl_SeekOld +#define Tcl_SeekOld \ + (tclStubsPtr->tcl_SeekOld) /* 220 */ +#endif +#ifndef Tcl_ServiceAll +#define Tcl_ServiceAll \ + (tclStubsPtr->tcl_ServiceAll) /* 221 */ +#endif +#ifndef Tcl_ServiceEvent +#define Tcl_ServiceEvent \ + (tclStubsPtr->tcl_ServiceEvent) /* 222 */ +#endif +#ifndef Tcl_SetAssocData +#define Tcl_SetAssocData \ + (tclStubsPtr->tcl_SetAssocData) /* 223 */ +#endif +#ifndef Tcl_SetChannelBufferSize +#define Tcl_SetChannelBufferSize \ + (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */ +#endif +#ifndef Tcl_SetChannelOption +#define Tcl_SetChannelOption \ + (tclStubsPtr->tcl_SetChannelOption) /* 225 */ +#endif +#ifndef Tcl_SetCommandInfo +#define Tcl_SetCommandInfo \ + (tclStubsPtr->tcl_SetCommandInfo) /* 226 */ +#endif +#ifndef Tcl_SetErrno +#define Tcl_SetErrno \ + (tclStubsPtr->tcl_SetErrno) /* 227 */ +#endif +#ifndef Tcl_SetErrorCode +#define Tcl_SetErrorCode \ + (tclStubsPtr->tcl_SetErrorCode) /* 228 */ +#endif +#ifndef Tcl_SetMaxBlockTime +#define Tcl_SetMaxBlockTime \ + (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */ +#endif +#ifndef Tcl_SetPanicProc +#define Tcl_SetPanicProc \ + (tclStubsPtr->tcl_SetPanicProc) /* 230 */ +#endif +#ifndef Tcl_SetRecursionLimit +#define Tcl_SetRecursionLimit \ + (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */ +#endif +#ifndef Tcl_SetResult +#define Tcl_SetResult \ + (tclStubsPtr->tcl_SetResult) /* 232 */ +#endif +#ifndef Tcl_SetServiceMode +#define Tcl_SetServiceMode \ + (tclStubsPtr->tcl_SetServiceMode) /* 233 */ +#endif +#ifndef Tcl_SetObjErrorCode +#define Tcl_SetObjErrorCode \ + (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */ +#endif +#ifndef Tcl_SetObjResult +#define Tcl_SetObjResult \ + (tclStubsPtr->tcl_SetObjResult) /* 235 */ +#endif +#ifndef Tcl_SetStdChannel +#define Tcl_SetStdChannel \ + (tclStubsPtr->tcl_SetStdChannel) /* 236 */ +#endif +#ifndef Tcl_SetVar +#define Tcl_SetVar \ + (tclStubsPtr->tcl_SetVar) /* 237 */ +#endif +#ifndef Tcl_SetVar2 +#define Tcl_SetVar2 \ + (tclStubsPtr->tcl_SetVar2) /* 238 */ +#endif +#ifndef Tcl_SignalId +#define Tcl_SignalId \ + (tclStubsPtr->tcl_SignalId) /* 239 */ +#endif +#ifndef Tcl_SignalMsg +#define Tcl_SignalMsg \ + (tclStubsPtr->tcl_SignalMsg) /* 240 */ +#endif +#ifndef Tcl_SourceRCFile +#define Tcl_SourceRCFile \ + (tclStubsPtr->tcl_SourceRCFile) /* 241 */ +#endif +#ifndef Tcl_SplitList +#define Tcl_SplitList \ + (tclStubsPtr->tcl_SplitList) /* 242 */ +#endif +#ifndef Tcl_SplitPath +#define Tcl_SplitPath \ + (tclStubsPtr->tcl_SplitPath) /* 243 */ +#endif +#ifndef Tcl_StaticPackage +#define Tcl_StaticPackage \ + (tclStubsPtr->tcl_StaticPackage) /* 244 */ +#endif +#ifndef Tcl_StringMatch +#define Tcl_StringMatch \ + (tclStubsPtr->tcl_StringMatch) /* 245 */ +#endif +#ifndef Tcl_TellOld +#define Tcl_TellOld \ + (tclStubsPtr->tcl_TellOld) /* 246 */ +#endif +#ifndef Tcl_TraceVar +#define Tcl_TraceVar \ + (tclStubsPtr->tcl_TraceVar) /* 247 */ +#endif +#ifndef Tcl_TraceVar2 +#define Tcl_TraceVar2 \ + (tclStubsPtr->tcl_TraceVar2) /* 248 */ +#endif +#ifndef Tcl_TranslateFileName +#define Tcl_TranslateFileName \ + (tclStubsPtr->tcl_TranslateFileName) /* 249 */ +#endif +#ifndef Tcl_Ungets +#define Tcl_Ungets \ + (tclStubsPtr->tcl_Ungets) /* 250 */ +#endif +#ifndef Tcl_UnlinkVar +#define Tcl_UnlinkVar \ + (tclStubsPtr->tcl_UnlinkVar) /* 251 */ +#endif +#ifndef Tcl_UnregisterChannel +#define Tcl_UnregisterChannel \ + (tclStubsPtr->tcl_UnregisterChannel) /* 252 */ +#endif +#ifndef Tcl_UnsetVar +#define Tcl_UnsetVar \ + (tclStubsPtr->tcl_UnsetVar) /* 253 */ +#endif +#ifndef Tcl_UnsetVar2 +#define Tcl_UnsetVar2 \ + (tclStubsPtr->tcl_UnsetVar2) /* 254 */ +#endif +#ifndef Tcl_UntraceVar +#define Tcl_UntraceVar \ + (tclStubsPtr->tcl_UntraceVar) /* 255 */ +#endif +#ifndef Tcl_UntraceVar2 +#define Tcl_UntraceVar2 \ + (tclStubsPtr->tcl_UntraceVar2) /* 256 */ +#endif +#ifndef Tcl_UpdateLinkedVar +#define Tcl_UpdateLinkedVar \ + (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */ +#endif +#ifndef Tcl_UpVar +#define Tcl_UpVar \ + (tclStubsPtr->tcl_UpVar) /* 258 */ +#endif +#ifndef Tcl_UpVar2 +#define Tcl_UpVar2 \ + (tclStubsPtr->tcl_UpVar2) /* 259 */ +#endif +#ifndef Tcl_VarEval +#define Tcl_VarEval \ + (tclStubsPtr->tcl_VarEval) /* 260 */ +#endif +#ifndef Tcl_VarTraceInfo +#define Tcl_VarTraceInfo \ + (tclStubsPtr->tcl_VarTraceInfo) /* 261 */ +#endif +#ifndef Tcl_VarTraceInfo2 +#define Tcl_VarTraceInfo2 \ + (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */ +#endif +#ifndef Tcl_Write +#define Tcl_Write \ + (tclStubsPtr->tcl_Write) /* 263 */ +#endif +#ifndef Tcl_WrongNumArgs +#define Tcl_WrongNumArgs \ + (tclStubsPtr->tcl_WrongNumArgs) /* 264 */ +#endif +#ifndef Tcl_DumpActiveMemory +#define Tcl_DumpActiveMemory \ + (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */ +#endif +#ifndef Tcl_ValidateAllMemory +#define Tcl_ValidateAllMemory \ + (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */ +#endif +#ifndef Tcl_AppendResultVA +#define Tcl_AppendResultVA \ + (tclStubsPtr->tcl_AppendResultVA) /* 267 */ +#endif +#ifndef Tcl_AppendStringsToObjVA +#define Tcl_AppendStringsToObjVA \ + (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */ +#endif +#ifndef Tcl_HashStats +#define Tcl_HashStats \ + (tclStubsPtr->tcl_HashStats) /* 269 */ +#endif +#ifndef Tcl_ParseVar +#define Tcl_ParseVar \ + (tclStubsPtr->tcl_ParseVar) /* 270 */ +#endif +#ifndef Tcl_PkgPresent +#define Tcl_PkgPresent \ + (tclStubsPtr->tcl_PkgPresent) /* 271 */ +#endif +#ifndef Tcl_PkgPresentEx +#define Tcl_PkgPresentEx \ + (tclStubsPtr->tcl_PkgPresentEx) /* 272 */ +#endif +#ifndef Tcl_PkgProvide +#define Tcl_PkgProvide \ + (tclStubsPtr->tcl_PkgProvide) /* 273 */ +#endif +#ifndef Tcl_PkgRequire +#define Tcl_PkgRequire \ + (tclStubsPtr->tcl_PkgRequire) /* 274 */ +#endif +#ifndef Tcl_SetErrorCodeVA +#define Tcl_SetErrorCodeVA \ + (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */ +#endif +#ifndef Tcl_VarEvalVA +#define Tcl_VarEvalVA \ + (tclStubsPtr->tcl_VarEvalVA) /* 276 */ +#endif +#ifndef Tcl_WaitPid +#define Tcl_WaitPid \ + (tclStubsPtr->tcl_WaitPid) /* 277 */ +#endif +#ifndef Tcl_PanicVA +#define Tcl_PanicVA \ + (tclStubsPtr->tcl_PanicVA) /* 278 */ +#endif +#ifndef Tcl_GetVersion +#define Tcl_GetVersion \ + (tclStubsPtr->tcl_GetVersion) /* 279 */ +#endif +#ifndef Tcl_InitMemory +#define Tcl_InitMemory \ + (tclStubsPtr->tcl_InitMemory) /* 280 */ +#endif +#ifndef Tcl_StackChannel +#define Tcl_StackChannel \ + (tclStubsPtr->tcl_StackChannel) /* 281 */ +#endif +#ifndef Tcl_UnstackChannel +#define Tcl_UnstackChannel \ + (tclStubsPtr->tcl_UnstackChannel) /* 282 */ +#endif +#ifndef Tcl_GetStackedChannel +#define Tcl_GetStackedChannel \ + (tclStubsPtr->tcl_GetStackedChannel) /* 283 */ +#endif +#ifndef Tcl_SetMainLoop +#define Tcl_SetMainLoop \ + (tclStubsPtr->tcl_SetMainLoop) /* 284 */ +#endif +/* Slot 285 is reserved */ +#ifndef Tcl_AppendObjToObj +#define Tcl_AppendObjToObj \ + (tclStubsPtr->tcl_AppendObjToObj) /* 286 */ +#endif +#ifndef Tcl_CreateEncoding +#define Tcl_CreateEncoding \ + (tclStubsPtr->tcl_CreateEncoding) /* 287 */ +#endif +#ifndef Tcl_CreateThreadExitHandler +#define Tcl_CreateThreadExitHandler \ + (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */ +#endif +#ifndef Tcl_DeleteThreadExitHandler +#define Tcl_DeleteThreadExitHandler \ + (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */ +#endif +#ifndef Tcl_DiscardResult +#define Tcl_DiscardResult \ + (tclStubsPtr->tcl_DiscardResult) /* 290 */ +#endif +#ifndef Tcl_EvalEx +#define Tcl_EvalEx \ + (tclStubsPtr->tcl_EvalEx) /* 291 */ +#endif +#ifndef Tcl_EvalObjv +#define Tcl_EvalObjv \ + (tclStubsPtr->tcl_EvalObjv) /* 292 */ +#endif +#ifndef Tcl_EvalObjEx +#define Tcl_EvalObjEx \ + (tclStubsPtr->tcl_EvalObjEx) /* 293 */ +#endif +#ifndef Tcl_ExitThread +#define Tcl_ExitThread \ + (tclStubsPtr->tcl_ExitThread) /* 294 */ +#endif +#ifndef Tcl_ExternalToUtf +#define Tcl_ExternalToUtf \ + (tclStubsPtr->tcl_ExternalToUtf) /* 295 */ +#endif +#ifndef Tcl_ExternalToUtfDString +#define Tcl_ExternalToUtfDString \ + (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */ +#endif +#ifndef Tcl_FinalizeThread +#define Tcl_FinalizeThread \ + (tclStubsPtr->tcl_FinalizeThread) /* 297 */ +#endif +#ifndef Tcl_FinalizeNotifier +#define Tcl_FinalizeNotifier \ + (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */ +#endif +#ifndef Tcl_FreeEncoding +#define Tcl_FreeEncoding \ + (tclStubsPtr->tcl_FreeEncoding) /* 299 */ +#endif +#ifndef Tcl_GetCurrentThread +#define Tcl_GetCurrentThread \ + (tclStubsPtr->tcl_GetCurrentThread) /* 300 */ +#endif +#ifndef Tcl_GetEncoding +#define Tcl_GetEncoding \ + (tclStubsPtr->tcl_GetEncoding) /* 301 */ +#endif +#ifndef Tcl_GetEncodingName +#define Tcl_GetEncodingName \ + (tclStubsPtr->tcl_GetEncodingName) /* 302 */ +#endif +#ifndef Tcl_GetEncodingNames +#define Tcl_GetEncodingNames \ + (tclStubsPtr->tcl_GetEncodingNames) /* 303 */ +#endif +#ifndef Tcl_GetIndexFromObjStruct +#define Tcl_GetIndexFromObjStruct \ + (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */ +#endif +#ifndef Tcl_GetThreadData +#define Tcl_GetThreadData \ + (tclStubsPtr->tcl_GetThreadData) /* 305 */ +#endif +#ifndef Tcl_GetVar2Ex +#define Tcl_GetVar2Ex \ + (tclStubsPtr->tcl_GetVar2Ex) /* 306 */ +#endif +#ifndef Tcl_InitNotifier +#define Tcl_InitNotifier \ + (tclStubsPtr->tcl_InitNotifier) /* 307 */ +#endif +#ifndef Tcl_MutexLock +#define Tcl_MutexLock \ + (tclStubsPtr->tcl_MutexLock) /* 308 */ +#endif +#ifndef Tcl_MutexUnlock +#define Tcl_MutexUnlock \ + (tclStubsPtr->tcl_MutexUnlock) /* 309 */ +#endif +#ifndef Tcl_ConditionNotify +#define Tcl_ConditionNotify \ + (tclStubsPtr->tcl_ConditionNotify) /* 310 */ +#endif +#ifndef Tcl_ConditionWait +#define Tcl_ConditionWait \ + (tclStubsPtr->tcl_ConditionWait) /* 311 */ +#endif +#ifndef Tcl_NumUtfChars +#define Tcl_NumUtfChars \ + (tclStubsPtr->tcl_NumUtfChars) /* 312 */ +#endif +#ifndef Tcl_ReadChars +#define Tcl_ReadChars \ + (tclStubsPtr->tcl_ReadChars) /* 313 */ +#endif +#ifndef Tcl_RestoreResult +#define Tcl_RestoreResult \ + (tclStubsPtr->tcl_RestoreResult) /* 314 */ +#endif +#ifndef Tcl_SaveResult +#define Tcl_SaveResult \ + (tclStubsPtr->tcl_SaveResult) /* 315 */ +#endif +#ifndef Tcl_SetSystemEncoding +#define Tcl_SetSystemEncoding \ + (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */ +#endif +#ifndef Tcl_SetVar2Ex +#define Tcl_SetVar2Ex \ + (tclStubsPtr->tcl_SetVar2Ex) /* 317 */ +#endif +#ifndef Tcl_ThreadAlert +#define Tcl_ThreadAlert \ + (tclStubsPtr->tcl_ThreadAlert) /* 318 */ +#endif +#ifndef Tcl_ThreadQueueEvent +#define Tcl_ThreadQueueEvent \ + (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */ +#endif +#ifndef Tcl_UniCharAtIndex +#define Tcl_UniCharAtIndex \ + (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */ +#endif +#ifndef Tcl_UniCharToLower +#define Tcl_UniCharToLower \ + (tclStubsPtr->tcl_UniCharToLower) /* 321 */ +#endif +#ifndef Tcl_UniCharToTitle +#define Tcl_UniCharToTitle \ + (tclStubsPtr->tcl_UniCharToTitle) /* 322 */ +#endif +#ifndef Tcl_UniCharToUpper +#define Tcl_UniCharToUpper \ + (tclStubsPtr->tcl_UniCharToUpper) /* 323 */ +#endif +#ifndef Tcl_UniCharToUtf +#define Tcl_UniCharToUtf \ + (tclStubsPtr->tcl_UniCharToUtf) /* 324 */ +#endif +#ifndef Tcl_UtfAtIndex +#define Tcl_UtfAtIndex \ + (tclStubsPtr->tcl_UtfAtIndex) /* 325 */ +#endif +#ifndef Tcl_UtfCharComplete +#define Tcl_UtfCharComplete \ + (tclStubsPtr->tcl_UtfCharComplete) /* 326 */ +#endif +#ifndef Tcl_UtfBackslash +#define Tcl_UtfBackslash \ + (tclStubsPtr->tcl_UtfBackslash) /* 327 */ +#endif +#ifndef Tcl_UtfFindFirst +#define Tcl_UtfFindFirst \ + (tclStubsPtr->tcl_UtfFindFirst) /* 328 */ +#endif +#ifndef Tcl_UtfFindLast +#define Tcl_UtfFindLast \ + (tclStubsPtr->tcl_UtfFindLast) /* 329 */ +#endif +#ifndef Tcl_UtfNext +#define Tcl_UtfNext \ + (tclStubsPtr->tcl_UtfNext) /* 330 */ +#endif +#ifndef Tcl_UtfPrev +#define Tcl_UtfPrev \ + (tclStubsPtr->tcl_UtfPrev) /* 331 */ +#endif +#ifndef Tcl_UtfToExternal +#define Tcl_UtfToExternal \ + (tclStubsPtr->tcl_UtfToExternal) /* 332 */ +#endif +#ifndef Tcl_UtfToExternalDString +#define Tcl_UtfToExternalDString \ + (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */ +#endif +#ifndef Tcl_UtfToLower +#define Tcl_UtfToLower \ + (tclStubsPtr->tcl_UtfToLower) /* 334 */ +#endif +#ifndef Tcl_UtfToTitle +#define Tcl_UtfToTitle \ + (tclStubsPtr->tcl_UtfToTitle) /* 335 */ +#endif +#ifndef Tcl_UtfToUniChar +#define Tcl_UtfToUniChar \ + (tclStubsPtr->tcl_UtfToUniChar) /* 336 */ +#endif +#ifndef Tcl_UtfToUpper +#define Tcl_UtfToUpper \ + (tclStubsPtr->tcl_UtfToUpper) /* 337 */ +#endif +#ifndef Tcl_WriteChars +#define Tcl_WriteChars \ + (tclStubsPtr->tcl_WriteChars) /* 338 */ +#endif +#ifndef Tcl_WriteObj +#define Tcl_WriteObj \ + (tclStubsPtr->tcl_WriteObj) /* 339 */ +#endif +#ifndef Tcl_GetString +#define Tcl_GetString \ + (tclStubsPtr->tcl_GetString) /* 340 */ +#endif +#ifndef Tcl_GetDefaultEncodingDir +#define Tcl_GetDefaultEncodingDir \ + (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */ +#endif +#ifndef Tcl_SetDefaultEncodingDir +#define Tcl_SetDefaultEncodingDir \ + (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */ +#endif +#ifndef Tcl_AlertNotifier +#define Tcl_AlertNotifier \ + (tclStubsPtr->tcl_AlertNotifier) /* 343 */ +#endif +#ifndef Tcl_ServiceModeHook +#define Tcl_ServiceModeHook \ + (tclStubsPtr->tcl_ServiceModeHook) /* 344 */ +#endif +#ifndef Tcl_UniCharIsAlnum +#define Tcl_UniCharIsAlnum \ + (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */ +#endif +#ifndef Tcl_UniCharIsAlpha +#define Tcl_UniCharIsAlpha \ + (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */ +#endif +#ifndef Tcl_UniCharIsDigit +#define Tcl_UniCharIsDigit \ + (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */ +#endif +#ifndef Tcl_UniCharIsLower +#define Tcl_UniCharIsLower \ + (tclStubsPtr->tcl_UniCharIsLower) /* 348 */ +#endif +#ifndef Tcl_UniCharIsSpace +#define Tcl_UniCharIsSpace \ + (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */ +#endif +#ifndef Tcl_UniCharIsUpper +#define Tcl_UniCharIsUpper \ + (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */ +#endif +#ifndef Tcl_UniCharIsWordChar +#define Tcl_UniCharIsWordChar \ + (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */ +#endif +#ifndef Tcl_UniCharLen +#define Tcl_UniCharLen \ + (tclStubsPtr->tcl_UniCharLen) /* 352 */ +#endif +#ifndef Tcl_UniCharNcmp +#define Tcl_UniCharNcmp \ + (tclStubsPtr->tcl_UniCharNcmp) /* 353 */ +#endif +#ifndef Tcl_UniCharToUtfDString +#define Tcl_UniCharToUtfDString \ + (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */ +#endif +#ifndef Tcl_UtfToUniCharDString +#define Tcl_UtfToUniCharDString \ + (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */ +#endif +#ifndef Tcl_GetRegExpFromObj +#define Tcl_GetRegExpFromObj \ + (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */ +#endif +#ifndef Tcl_EvalTokens +#define Tcl_EvalTokens \ + (tclStubsPtr->tcl_EvalTokens) /* 357 */ +#endif +#ifndef Tcl_FreeParse +#define Tcl_FreeParse \ + (tclStubsPtr->tcl_FreeParse) /* 358 */ +#endif +#ifndef Tcl_LogCommandInfo +#define Tcl_LogCommandInfo \ + (tclStubsPtr->tcl_LogCommandInfo) /* 359 */ +#endif +#ifndef Tcl_ParseBraces +#define Tcl_ParseBraces \ + (tclStubsPtr->tcl_ParseBraces) /* 360 */ +#endif +#ifndef Tcl_ParseCommand +#define Tcl_ParseCommand \ + (tclStubsPtr->tcl_ParseCommand) /* 361 */ +#endif +#ifndef Tcl_ParseExpr +#define Tcl_ParseExpr \ + (tclStubsPtr->tcl_ParseExpr) /* 362 */ +#endif +#ifndef Tcl_ParseQuotedString +#define Tcl_ParseQuotedString \ + (tclStubsPtr->tcl_ParseQuotedString) /* 363 */ +#endif +#ifndef Tcl_ParseVarName +#define Tcl_ParseVarName \ + (tclStubsPtr->tcl_ParseVarName) /* 364 */ +#endif +#ifndef Tcl_GetCwd +#define Tcl_GetCwd \ + (tclStubsPtr->tcl_GetCwd) /* 365 */ +#endif +#ifndef Tcl_Chdir +#define Tcl_Chdir \ + (tclStubsPtr->tcl_Chdir) /* 366 */ +#endif +#ifndef Tcl_Access +#define Tcl_Access \ + (tclStubsPtr->tcl_Access) /* 367 */ +#endif +#ifndef Tcl_Stat +#define Tcl_Stat \ + (tclStubsPtr->tcl_Stat) /* 368 */ +#endif +#ifndef Tcl_UtfNcmp +#define Tcl_UtfNcmp \ + (tclStubsPtr->tcl_UtfNcmp) /* 369 */ +#endif +#ifndef Tcl_UtfNcasecmp +#define Tcl_UtfNcasecmp \ + (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */ +#endif +#ifndef Tcl_StringCaseMatch +#define Tcl_StringCaseMatch \ + (tclStubsPtr->tcl_StringCaseMatch) /* 371 */ +#endif +#ifndef Tcl_UniCharIsControl +#define Tcl_UniCharIsControl \ + (tclStubsPtr->tcl_UniCharIsControl) /* 372 */ +#endif +#ifndef Tcl_UniCharIsGraph +#define Tcl_UniCharIsGraph \ + (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */ +#endif +#ifndef Tcl_UniCharIsPrint +#define Tcl_UniCharIsPrint \ + (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */ +#endif +#ifndef Tcl_UniCharIsPunct +#define Tcl_UniCharIsPunct \ + (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */ +#endif +#ifndef Tcl_RegExpExecObj +#define Tcl_RegExpExecObj \ + (tclStubsPtr->tcl_RegExpExecObj) /* 376 */ +#endif +#ifndef Tcl_RegExpGetInfo +#define Tcl_RegExpGetInfo \ + (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */ +#endif +#ifndef Tcl_NewUnicodeObj +#define Tcl_NewUnicodeObj \ + (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */ +#endif +#ifndef Tcl_SetUnicodeObj +#define Tcl_SetUnicodeObj \ + (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */ +#endif +#ifndef Tcl_GetCharLength +#define Tcl_GetCharLength \ + (tclStubsPtr->tcl_GetCharLength) /* 380 */ +#endif +#ifndef Tcl_GetUniChar +#define Tcl_GetUniChar \ + (tclStubsPtr->tcl_GetUniChar) /* 381 */ +#endif +#ifndef Tcl_GetUnicode +#define Tcl_GetUnicode \ + (tclStubsPtr->tcl_GetUnicode) /* 382 */ +#endif +#ifndef Tcl_GetRange +#define Tcl_GetRange \ + (tclStubsPtr->tcl_GetRange) /* 383 */ +#endif +#ifndef Tcl_AppendUnicodeToObj +#define Tcl_AppendUnicodeToObj \ + (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */ +#endif +#ifndef Tcl_RegExpMatchObj +#define Tcl_RegExpMatchObj \ + (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */ +#endif +#ifndef Tcl_SetNotifier +#define Tcl_SetNotifier \ + (tclStubsPtr->tcl_SetNotifier) /* 386 */ +#endif +#ifndef Tcl_GetAllocMutex +#define Tcl_GetAllocMutex \ + (tclStubsPtr->tcl_GetAllocMutex) /* 387 */ +#endif +#ifndef Tcl_GetChannelNames +#define Tcl_GetChannelNames \ + (tclStubsPtr->tcl_GetChannelNames) /* 388 */ +#endif +#ifndef Tcl_GetChannelNamesEx +#define Tcl_GetChannelNamesEx \ + (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */ +#endif +#ifndef Tcl_ProcObjCmd +#define Tcl_ProcObjCmd \ + (tclStubsPtr->tcl_ProcObjCmd) /* 390 */ +#endif +#ifndef Tcl_ConditionFinalize +#define Tcl_ConditionFinalize \ + (tclStubsPtr->tcl_ConditionFinalize) /* 391 */ +#endif +#ifndef Tcl_MutexFinalize +#define Tcl_MutexFinalize \ + (tclStubsPtr->tcl_MutexFinalize) /* 392 */ +#endif +#ifndef Tcl_CreateThread +#define Tcl_CreateThread \ + (tclStubsPtr->tcl_CreateThread) /* 393 */ +#endif +#ifndef Tcl_ReadRaw +#define Tcl_ReadRaw \ + (tclStubsPtr->tcl_ReadRaw) /* 394 */ +#endif +#ifndef Tcl_WriteRaw +#define Tcl_WriteRaw \ + (tclStubsPtr->tcl_WriteRaw) /* 395 */ +#endif +#ifndef Tcl_GetTopChannel +#define Tcl_GetTopChannel \ + (tclStubsPtr->tcl_GetTopChannel) /* 396 */ +#endif +#ifndef Tcl_ChannelBuffered +#define Tcl_ChannelBuffered \ + (tclStubsPtr->tcl_ChannelBuffered) /* 397 */ +#endif +#ifndef Tcl_ChannelName +#define Tcl_ChannelName \ + (tclStubsPtr->tcl_ChannelName) /* 398 */ +#endif +#ifndef Tcl_ChannelVersion +#define Tcl_ChannelVersion \ + (tclStubsPtr->tcl_ChannelVersion) /* 399 */ +#endif +#ifndef Tcl_ChannelBlockModeProc +#define Tcl_ChannelBlockModeProc \ + (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */ +#endif +#ifndef Tcl_ChannelCloseProc +#define Tcl_ChannelCloseProc \ + (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */ +#endif +#ifndef Tcl_ChannelClose2Proc +#define Tcl_ChannelClose2Proc \ + (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */ +#endif +#ifndef Tcl_ChannelInputProc +#define Tcl_ChannelInputProc \ + (tclStubsPtr->tcl_ChannelInputProc) /* 403 */ +#endif +#ifndef Tcl_ChannelOutputProc +#define Tcl_ChannelOutputProc \ + (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */ +#endif +#ifndef Tcl_ChannelSeekProc +#define Tcl_ChannelSeekProc \ + (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */ +#endif +#ifndef Tcl_ChannelSetOptionProc +#define Tcl_ChannelSetOptionProc \ + (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */ +#endif +#ifndef Tcl_ChannelGetOptionProc +#define Tcl_ChannelGetOptionProc \ + (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */ +#endif +#ifndef Tcl_ChannelWatchProc +#define Tcl_ChannelWatchProc \ + (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */ +#endif +#ifndef Tcl_ChannelGetHandleProc +#define Tcl_ChannelGetHandleProc \ + (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */ +#endif +#ifndef Tcl_ChannelFlushProc +#define Tcl_ChannelFlushProc \ + (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */ +#endif +#ifndef Tcl_ChannelHandlerProc +#define Tcl_ChannelHandlerProc \ + (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */ +#endif +#ifndef Tcl_JoinThread +#define Tcl_JoinThread \ + (tclStubsPtr->tcl_JoinThread) /* 412 */ +#endif +#ifndef Tcl_IsChannelShared +#define Tcl_IsChannelShared \ + (tclStubsPtr->tcl_IsChannelShared) /* 413 */ +#endif +#ifndef Tcl_IsChannelRegistered +#define Tcl_IsChannelRegistered \ + (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */ +#endif +#ifndef Tcl_CutChannel +#define Tcl_CutChannel \ + (tclStubsPtr->tcl_CutChannel) /* 415 */ +#endif +#ifndef Tcl_SpliceChannel +#define Tcl_SpliceChannel \ + (tclStubsPtr->tcl_SpliceChannel) /* 416 */ +#endif +#ifndef Tcl_ClearChannelHandlers +#define Tcl_ClearChannelHandlers \ + (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */ +#endif +#ifndef Tcl_IsChannelExisting +#define Tcl_IsChannelExisting \ + (tclStubsPtr->tcl_IsChannelExisting) /* 418 */ +#endif +#ifndef Tcl_UniCharNcasecmp +#define Tcl_UniCharNcasecmp \ + (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */ +#endif +#ifndef Tcl_UniCharCaseMatch +#define Tcl_UniCharCaseMatch \ + (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */ +#endif +#ifndef Tcl_FindHashEntry +#define Tcl_FindHashEntry \ + (tclStubsPtr->tcl_FindHashEntry) /* 421 */ +#endif +#ifndef Tcl_CreateHashEntry +#define Tcl_CreateHashEntry \ + (tclStubsPtr->tcl_CreateHashEntry) /* 422 */ +#endif +#ifndef Tcl_InitCustomHashTable +#define Tcl_InitCustomHashTable \ + (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */ +#endif +#ifndef Tcl_InitObjHashTable +#define Tcl_InitObjHashTable \ + (tclStubsPtr->tcl_InitObjHashTable) /* 424 */ +#endif +#ifndef Tcl_CommandTraceInfo +#define Tcl_CommandTraceInfo \ + (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */ +#endif +#ifndef Tcl_TraceCommand +#define Tcl_TraceCommand \ + (tclStubsPtr->tcl_TraceCommand) /* 426 */ +#endif +#ifndef Tcl_UntraceCommand +#define Tcl_UntraceCommand \ + (tclStubsPtr->tcl_UntraceCommand) /* 427 */ +#endif +#ifndef Tcl_AttemptAlloc +#define Tcl_AttemptAlloc \ + (tclStubsPtr->tcl_AttemptAlloc) /* 428 */ +#endif +#ifndef Tcl_AttemptDbCkalloc +#define Tcl_AttemptDbCkalloc \ + (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */ +#endif +#ifndef Tcl_AttemptRealloc +#define Tcl_AttemptRealloc \ + (tclStubsPtr->tcl_AttemptRealloc) /* 430 */ +#endif +#ifndef Tcl_AttemptDbCkrealloc +#define Tcl_AttemptDbCkrealloc \ + (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */ +#endif +#ifndef Tcl_AttemptSetObjLength +#define Tcl_AttemptSetObjLength \ + (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */ +#endif +#ifndef Tcl_GetChannelThread +#define Tcl_GetChannelThread \ + (tclStubsPtr->tcl_GetChannelThread) /* 433 */ +#endif +#ifndef Tcl_GetUnicodeFromObj +#define Tcl_GetUnicodeFromObj \ + (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */ +#endif +#ifndef Tcl_GetMathFuncInfo +#define Tcl_GetMathFuncInfo \ + (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */ +#endif +#ifndef Tcl_ListMathFuncs +#define Tcl_ListMathFuncs \ + (tclStubsPtr->tcl_ListMathFuncs) /* 436 */ +#endif +#ifndef Tcl_SubstObj +#define Tcl_SubstObj \ + (tclStubsPtr->tcl_SubstObj) /* 437 */ +#endif +#ifndef Tcl_DetachChannel +#define Tcl_DetachChannel \ + (tclStubsPtr->tcl_DetachChannel) /* 438 */ +#endif +#ifndef Tcl_IsStandardChannel +#define Tcl_IsStandardChannel \ + (tclStubsPtr->tcl_IsStandardChannel) /* 439 */ +#endif +#ifndef Tcl_FSCopyFile +#define Tcl_FSCopyFile \ + (tclStubsPtr->tcl_FSCopyFile) /* 440 */ +#endif +#ifndef Tcl_FSCopyDirectory +#define Tcl_FSCopyDirectory \ + (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */ +#endif +#ifndef Tcl_FSCreateDirectory +#define Tcl_FSCreateDirectory \ + (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */ +#endif +#ifndef Tcl_FSDeleteFile +#define Tcl_FSDeleteFile \ + (tclStubsPtr->tcl_FSDeleteFile) /* 443 */ +#endif +#ifndef Tcl_FSLoadFile +#define Tcl_FSLoadFile \ + (tclStubsPtr->tcl_FSLoadFile) /* 444 */ +#endif +#ifndef Tcl_FSMatchInDirectory +#define Tcl_FSMatchInDirectory \ + (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */ +#endif +#ifndef Tcl_FSLink +#define Tcl_FSLink \ + (tclStubsPtr->tcl_FSLink) /* 446 */ +#endif +#ifndef Tcl_FSRemoveDirectory +#define Tcl_FSRemoveDirectory \ + (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */ +#endif +#ifndef Tcl_FSRenameFile +#define Tcl_FSRenameFile \ + (tclStubsPtr->tcl_FSRenameFile) /* 448 */ +#endif +#ifndef Tcl_FSLstat +#define Tcl_FSLstat \ + (tclStubsPtr->tcl_FSLstat) /* 449 */ +#endif +#ifndef Tcl_FSUtime +#define Tcl_FSUtime \ + (tclStubsPtr->tcl_FSUtime) /* 450 */ +#endif +#ifndef Tcl_FSFileAttrsGet +#define Tcl_FSFileAttrsGet \ + (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */ +#endif +#ifndef Tcl_FSFileAttrsSet +#define Tcl_FSFileAttrsSet \ + (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */ +#endif +#ifndef Tcl_FSFileAttrStrings +#define Tcl_FSFileAttrStrings \ + (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */ +#endif +#ifndef Tcl_FSStat +#define Tcl_FSStat \ + (tclStubsPtr->tcl_FSStat) /* 454 */ +#endif +#ifndef Tcl_FSAccess +#define Tcl_FSAccess \ + (tclStubsPtr->tcl_FSAccess) /* 455 */ +#endif +#ifndef Tcl_FSOpenFileChannel +#define Tcl_FSOpenFileChannel \ + (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */ +#endif +#ifndef Tcl_FSGetCwd +#define Tcl_FSGetCwd \ + (tclStubsPtr->tcl_FSGetCwd) /* 457 */ +#endif +#ifndef Tcl_FSChdir +#define Tcl_FSChdir \ + (tclStubsPtr->tcl_FSChdir) /* 458 */ +#endif +#ifndef Tcl_FSConvertToPathType +#define Tcl_FSConvertToPathType \ + (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */ +#endif +#ifndef Tcl_FSJoinPath +#define Tcl_FSJoinPath \ + (tclStubsPtr->tcl_FSJoinPath) /* 460 */ +#endif +#ifndef Tcl_FSSplitPath +#define Tcl_FSSplitPath \ + (tclStubsPtr->tcl_FSSplitPath) /* 461 */ +#endif +#ifndef Tcl_FSEqualPaths +#define Tcl_FSEqualPaths \ + (tclStubsPtr->tcl_FSEqualPaths) /* 462 */ +#endif +#ifndef Tcl_FSGetNormalizedPath +#define Tcl_FSGetNormalizedPath \ + (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */ +#endif +#ifndef Tcl_FSJoinToPath +#define Tcl_FSJoinToPath \ + (tclStubsPtr->tcl_FSJoinToPath) /* 464 */ +#endif +#ifndef Tcl_FSGetInternalRep +#define Tcl_FSGetInternalRep \ + (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */ +#endif +#ifndef Tcl_FSGetTranslatedPath +#define Tcl_FSGetTranslatedPath \ + (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */ +#endif +#ifndef Tcl_FSEvalFile +#define Tcl_FSEvalFile \ + (tclStubsPtr->tcl_FSEvalFile) /* 467 */ +#endif +#ifndef Tcl_FSNewNativePath +#define Tcl_FSNewNativePath \ + (tclStubsPtr->tcl_FSNewNativePath) /* 468 */ +#endif +#ifndef Tcl_FSGetNativePath +#define Tcl_FSGetNativePath \ + (tclStubsPtr->tcl_FSGetNativePath) /* 469 */ +#endif +#ifndef Tcl_FSFileSystemInfo +#define Tcl_FSFileSystemInfo \ + (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */ +#endif +#ifndef Tcl_FSPathSeparator +#define Tcl_FSPathSeparator \ + (tclStubsPtr->tcl_FSPathSeparator) /* 471 */ +#endif +#ifndef Tcl_FSListVolumes +#define Tcl_FSListVolumes \ + (tclStubsPtr->tcl_FSListVolumes) /* 472 */ +#endif +#ifndef Tcl_FSRegister +#define Tcl_FSRegister \ + (tclStubsPtr->tcl_FSRegister) /* 473 */ +#endif +#ifndef Tcl_FSUnregister +#define Tcl_FSUnregister \ + (tclStubsPtr->tcl_FSUnregister) /* 474 */ +#endif +#ifndef Tcl_FSData +#define Tcl_FSData \ + (tclStubsPtr->tcl_FSData) /* 475 */ +#endif +#ifndef Tcl_FSGetTranslatedStringPath +#define Tcl_FSGetTranslatedStringPath \ + (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */ +#endif +#ifndef Tcl_FSGetFileSystemForPath +#define Tcl_FSGetFileSystemForPath \ + (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */ +#endif +#ifndef Tcl_FSGetPathType +#define Tcl_FSGetPathType \ + (tclStubsPtr->tcl_FSGetPathType) /* 478 */ +#endif +#ifndef Tcl_OutputBuffered +#define Tcl_OutputBuffered \ + (tclStubsPtr->tcl_OutputBuffered) /* 479 */ +#endif +#ifndef Tcl_FSMountsChanged +#define Tcl_FSMountsChanged \ + (tclStubsPtr->tcl_FSMountsChanged) /* 480 */ +#endif +#ifndef Tcl_EvalTokensStandard +#define Tcl_EvalTokensStandard \ + (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */ +#endif +#ifndef Tcl_GetTime +#define Tcl_GetTime \ + (tclStubsPtr->tcl_GetTime) /* 482 */ +#endif +#ifndef Tcl_CreateObjTrace +#define Tcl_CreateObjTrace \ + (tclStubsPtr->tcl_CreateObjTrace) /* 483 */ +#endif +#ifndef Tcl_GetCommandInfoFromToken +#define Tcl_GetCommandInfoFromToken \ + (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */ +#endif +#ifndef Tcl_SetCommandInfoFromToken +#define Tcl_SetCommandInfoFromToken \ + (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */ +#endif +#ifndef Tcl_DbNewWideIntObj +#define Tcl_DbNewWideIntObj \ + (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */ +#endif +#ifndef Tcl_GetWideIntFromObj +#define Tcl_GetWideIntFromObj \ + (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */ +#endif +#ifndef Tcl_NewWideIntObj +#define Tcl_NewWideIntObj \ + (tclStubsPtr->tcl_NewWideIntObj) /* 488 */ +#endif +#ifndef Tcl_SetWideIntObj +#define Tcl_SetWideIntObj \ + (tclStubsPtr->tcl_SetWideIntObj) /* 489 */ +#endif +#ifndef Tcl_AllocStatBuf +#define Tcl_AllocStatBuf \ + (tclStubsPtr->tcl_AllocStatBuf) /* 490 */ +#endif +#ifndef Tcl_Seek +#define Tcl_Seek \ + (tclStubsPtr->tcl_Seek) /* 491 */ +#endif +#ifndef Tcl_Tell +#define Tcl_Tell \ + (tclStubsPtr->tcl_Tell) /* 492 */ +#endif +#ifndef Tcl_ChannelWideSeekProc +#define Tcl_ChannelWideSeekProc \ + (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */ +#endif +#ifndef Tcl_DictObjPut +#define Tcl_DictObjPut \ + (tclStubsPtr->tcl_DictObjPut) /* 494 */ +#endif +#ifndef Tcl_DictObjGet +#define Tcl_DictObjGet \ + (tclStubsPtr->tcl_DictObjGet) /* 495 */ +#endif +#ifndef Tcl_DictObjRemove +#define Tcl_DictObjRemove \ + (tclStubsPtr->tcl_DictObjRemove) /* 496 */ +#endif +#ifndef Tcl_DictObjSize +#define Tcl_DictObjSize \ + (tclStubsPtr->tcl_DictObjSize) /* 497 */ +#endif +#ifndef Tcl_DictObjFirst +#define Tcl_DictObjFirst \ + (tclStubsPtr->tcl_DictObjFirst) /* 498 */ +#endif +#ifndef Tcl_DictObjNext +#define Tcl_DictObjNext \ + (tclStubsPtr->tcl_DictObjNext) /* 499 */ +#endif +#ifndef Tcl_DictObjDone +#define Tcl_DictObjDone \ + (tclStubsPtr->tcl_DictObjDone) /* 500 */ +#endif +#ifndef Tcl_DictObjPutKeyList +#define Tcl_DictObjPutKeyList \ + (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */ +#endif +#ifndef Tcl_DictObjRemoveKeyList +#define Tcl_DictObjRemoveKeyList \ + (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */ +#endif +#ifndef Tcl_NewDictObj +#define Tcl_NewDictObj \ + (tclStubsPtr->tcl_NewDictObj) /* 503 */ +#endif +#ifndef Tcl_DbNewDictObj +#define Tcl_DbNewDictObj \ + (tclStubsPtr->tcl_DbNewDictObj) /* 504 */ +#endif +#ifndef Tcl_RegisterConfig +#define Tcl_RegisterConfig \ + (tclStubsPtr->tcl_RegisterConfig) /* 505 */ +#endif +#ifndef Tcl_CreateNamespace +#define Tcl_CreateNamespace \ + (tclStubsPtr->tcl_CreateNamespace) /* 506 */ +#endif +#ifndef Tcl_DeleteNamespace +#define Tcl_DeleteNamespace \ + (tclStubsPtr->tcl_DeleteNamespace) /* 507 */ +#endif +#ifndef Tcl_AppendExportList +#define Tcl_AppendExportList \ + (tclStubsPtr->tcl_AppendExportList) /* 508 */ +#endif +#ifndef Tcl_Export +#define Tcl_Export \ + (tclStubsPtr->tcl_Export) /* 509 */ +#endif +#ifndef Tcl_Import +#define Tcl_Import \ + (tclStubsPtr->tcl_Import) /* 510 */ +#endif +#ifndef Tcl_ForgetImport +#define Tcl_ForgetImport \ + (tclStubsPtr->tcl_ForgetImport) /* 511 */ +#endif +#ifndef Tcl_GetCurrentNamespace +#define Tcl_GetCurrentNamespace \ + (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */ +#endif +#ifndef Tcl_GetGlobalNamespace +#define Tcl_GetGlobalNamespace \ + (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */ +#endif +#ifndef Tcl_FindNamespace +#define Tcl_FindNamespace \ + (tclStubsPtr->tcl_FindNamespace) /* 514 */ +#endif +#ifndef Tcl_FindCommand +#define Tcl_FindCommand \ + (tclStubsPtr->tcl_FindCommand) /* 515 */ +#endif +#ifndef Tcl_GetCommandFromObj +#define Tcl_GetCommandFromObj \ + (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */ +#endif +#ifndef Tcl_GetCommandFullName +#define Tcl_GetCommandFullName \ + (tclStubsPtr->tcl_GetCommandFullName) /* 517 */ +#endif +#ifndef Tcl_FSEvalFileEx +#define Tcl_FSEvalFileEx \ + (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */ +#endif +#ifndef Tcl_SetExitProc +#define Tcl_SetExitProc \ + (tclStubsPtr->tcl_SetExitProc) /* 519 */ +#endif +#ifndef Tcl_LimitAddHandler +#define Tcl_LimitAddHandler \ + (tclStubsPtr->tcl_LimitAddHandler) /* 520 */ +#endif +#ifndef Tcl_LimitRemoveHandler +#define Tcl_LimitRemoveHandler \ + (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */ +#endif +#ifndef Tcl_LimitReady +#define Tcl_LimitReady \ + (tclStubsPtr->tcl_LimitReady) /* 522 */ +#endif +#ifndef Tcl_LimitCheck +#define Tcl_LimitCheck \ + (tclStubsPtr->tcl_LimitCheck) /* 523 */ +#endif +#ifndef Tcl_LimitExceeded +#define Tcl_LimitExceeded \ + (tclStubsPtr->tcl_LimitExceeded) /* 524 */ +#endif +#ifndef Tcl_LimitSetCommands +#define Tcl_LimitSetCommands \ + (tclStubsPtr->tcl_LimitSetCommands) /* 525 */ +#endif +#ifndef Tcl_LimitSetTime +#define Tcl_LimitSetTime \ + (tclStubsPtr->tcl_LimitSetTime) /* 526 */ +#endif +#ifndef Tcl_LimitSetGranularity +#define Tcl_LimitSetGranularity \ + (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */ +#endif +#ifndef Tcl_LimitTypeEnabled +#define Tcl_LimitTypeEnabled \ + (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */ +#endif +#ifndef Tcl_LimitTypeExceeded +#define Tcl_LimitTypeExceeded \ + (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */ +#endif +#ifndef Tcl_LimitTypeSet +#define Tcl_LimitTypeSet \ + (tclStubsPtr->tcl_LimitTypeSet) /* 530 */ +#endif +#ifndef Tcl_LimitTypeReset +#define Tcl_LimitTypeReset \ + (tclStubsPtr->tcl_LimitTypeReset) /* 531 */ +#endif +#ifndef Tcl_LimitGetCommands +#define Tcl_LimitGetCommands \ + (tclStubsPtr->tcl_LimitGetCommands) /* 532 */ +#endif +#ifndef Tcl_LimitGetTime +#define Tcl_LimitGetTime \ + (tclStubsPtr->tcl_LimitGetTime) /* 533 */ +#endif +#ifndef Tcl_LimitGetGranularity +#define Tcl_LimitGetGranularity \ + (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */ +#endif +#ifndef Tcl_SaveInterpState +#define Tcl_SaveInterpState \ + (tclStubsPtr->tcl_SaveInterpState) /* 535 */ +#endif +#ifndef Tcl_RestoreInterpState +#define Tcl_RestoreInterpState \ + (tclStubsPtr->tcl_RestoreInterpState) /* 536 */ +#endif +#ifndef Tcl_DiscardInterpState +#define Tcl_DiscardInterpState \ + (tclStubsPtr->tcl_DiscardInterpState) /* 537 */ +#endif +#ifndef Tcl_SetReturnOptions +#define Tcl_SetReturnOptions \ + (tclStubsPtr->tcl_SetReturnOptions) /* 538 */ +#endif +#ifndef Tcl_GetReturnOptions +#define Tcl_GetReturnOptions \ + (tclStubsPtr->tcl_GetReturnOptions) /* 539 */ +#endif +#ifndef Tcl_IsEnsemble +#define Tcl_IsEnsemble \ + (tclStubsPtr->tcl_IsEnsemble) /* 540 */ +#endif +#ifndef Tcl_CreateEnsemble +#define Tcl_CreateEnsemble \ + (tclStubsPtr->tcl_CreateEnsemble) /* 541 */ +#endif +#ifndef Tcl_FindEnsemble +#define Tcl_FindEnsemble \ + (tclStubsPtr->tcl_FindEnsemble) /* 542 */ +#endif +#ifndef Tcl_SetEnsembleSubcommandList +#define Tcl_SetEnsembleSubcommandList \ + (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */ +#endif +#ifndef Tcl_SetEnsembleMappingDict +#define Tcl_SetEnsembleMappingDict \ + (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */ +#endif +#ifndef Tcl_SetEnsembleUnknownHandler +#define Tcl_SetEnsembleUnknownHandler \ + (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */ +#endif +#ifndef Tcl_SetEnsembleFlags +#define Tcl_SetEnsembleFlags \ + (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */ +#endif +#ifndef Tcl_GetEnsembleSubcommandList +#define Tcl_GetEnsembleSubcommandList \ + (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */ +#endif +#ifndef Tcl_GetEnsembleMappingDict +#define Tcl_GetEnsembleMappingDict \ + (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */ +#endif +#ifndef Tcl_GetEnsembleUnknownHandler +#define Tcl_GetEnsembleUnknownHandler \ + (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */ +#endif +#ifndef Tcl_GetEnsembleFlags +#define Tcl_GetEnsembleFlags \ + (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */ +#endif +#ifndef Tcl_GetEnsembleNamespace +#define Tcl_GetEnsembleNamespace \ + (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */ +#endif +#ifndef Tcl_SetTimeProc +#define Tcl_SetTimeProc \ + (tclStubsPtr->tcl_SetTimeProc) /* 552 */ +#endif +#ifndef Tcl_QueryTimeProc +#define Tcl_QueryTimeProc \ + (tclStubsPtr->tcl_QueryTimeProc) /* 553 */ +#endif +#ifndef Tcl_ChannelThreadActionProc +#define Tcl_ChannelThreadActionProc \ + (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */ +#endif +#ifndef Tcl_NewBignumObj +#define Tcl_NewBignumObj \ + (tclStubsPtr->tcl_NewBignumObj) /* 555 */ +#endif +#ifndef Tcl_DbNewBignumObj +#define Tcl_DbNewBignumObj \ + (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */ +#endif +#ifndef Tcl_SetBignumObj +#define Tcl_SetBignumObj \ + (tclStubsPtr->tcl_SetBignumObj) /* 557 */ +#endif +#ifndef Tcl_GetBignumFromObj +#define Tcl_GetBignumFromObj \ + (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */ +#endif +#ifndef Tcl_TakeBignumFromObj +#define Tcl_TakeBignumFromObj \ + (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */ +#endif +#ifndef Tcl_TruncateChannel +#define Tcl_TruncateChannel \ + (tclStubsPtr->tcl_TruncateChannel) /* 560 */ +#endif +#ifndef Tcl_ChannelTruncateProc +#define Tcl_ChannelTruncateProc \ + (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */ +#endif +#ifndef Tcl_SetChannelErrorInterp +#define Tcl_SetChannelErrorInterp \ + (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */ +#endif +#ifndef Tcl_GetChannelErrorInterp +#define Tcl_GetChannelErrorInterp \ + (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */ +#endif +#ifndef Tcl_SetChannelError +#define Tcl_SetChannelError \ + (tclStubsPtr->tcl_SetChannelError) /* 564 */ +#endif +#ifndef Tcl_GetChannelError +#define Tcl_GetChannelError \ + (tclStubsPtr->tcl_GetChannelError) /* 565 */ +#endif +#ifndef Tcl_InitBignumFromDouble +#define Tcl_InitBignumFromDouble \ + (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */ +#endif +#ifndef Tcl_GetNamespaceUnknownHandler +#define Tcl_GetNamespaceUnknownHandler \ + (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */ +#endif +#ifndef Tcl_SetNamespaceUnknownHandler +#define Tcl_SetNamespaceUnknownHandler \ + (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */ +#endif +#ifndef Tcl_GetEncodingFromObj +#define Tcl_GetEncodingFromObj \ + (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */ +#endif +#ifndef Tcl_GetEncodingSearchPath +#define Tcl_GetEncodingSearchPath \ + (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */ +#endif +#ifndef Tcl_SetEncodingSearchPath +#define Tcl_SetEncodingSearchPath \ + (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */ +#endif +#ifndef Tcl_GetEncodingNameFromEnvironment +#define Tcl_GetEncodingNameFromEnvironment \ + (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */ +#endif +#ifndef Tcl_PkgRequireProc +#define Tcl_PkgRequireProc \ + (tclStubsPtr->tcl_PkgRequireProc) /* 573 */ +#endif +#ifndef Tcl_AppendObjToErrorInfo +#define Tcl_AppendObjToErrorInfo \ + (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */ +#endif +#ifndef Tcl_AppendLimitedToObj +#define Tcl_AppendLimitedToObj \ + (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */ +#endif +#ifndef Tcl_Format +#define Tcl_Format \ + (tclStubsPtr->tcl_Format) /* 576 */ +#endif +#ifndef Tcl_AppendFormatToObj +#define Tcl_AppendFormatToObj \ + (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */ +#endif +#ifndef Tcl_ObjPrintf +#define Tcl_ObjPrintf \ + (tclStubsPtr->tcl_ObjPrintf) /* 578 */ +#endif +#ifndef Tcl_AppendPrintfToObj +#define Tcl_AppendPrintfToObj \ + (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */ +#endif +/* Slot 580 is reserved */ +/* Slot 581 is reserved */ +/* Slot 582 is reserved */ +/* Slot 583 is reserved */ +/* Slot 584 is reserved */ +/* Slot 585 is reserved */ +/* Slot 586 is reserved */ +/* Slot 587 is reserved */ +/* Slot 588 is reserved */ +/* Slot 589 is reserved */ +/* Slot 590 is reserved */ +/* Slot 591 is reserved */ +/* Slot 592 is reserved */ +/* Slot 593 is reserved */ +/* Slot 594 is reserved */ +/* Slot 595 is reserved */ +/* Slot 596 is reserved */ +/* Slot 597 is reserved */ +/* Slot 598 is reserved */ +/* Slot 599 is reserved */ +/* Slot 600 is reserved */ +/* Slot 601 is reserved */ +/* Slot 602 is reserved */ +/* Slot 603 is reserved */ +/* Slot 604 is reserved */ +/* Slot 605 is reserved */ +/* Slot 606 is reserved */ +/* Slot 607 is reserved */ +/* Slot 608 is reserved */ +/* Slot 609 is reserved */ +/* Slot 610 is reserved */ +/* Slot 611 is reserved */ +/* Slot 612 is reserved */ +/* Slot 613 is reserved */ +/* Slot 614 is reserved */ +/* Slot 615 is reserved */ +/* Slot 616 is reserved */ +/* Slot 617 is reserved */ +/* Slot 618 is reserved */ +/* Slot 619 is reserved */ +/* Slot 620 is reserved */ +/* Slot 621 is reserved */ +/* Slot 622 is reserved */ +/* Slot 623 is reserved */ +/* Slot 624 is reserved */ +/* Slot 625 is reserved */ +/* Slot 626 is reserved */ +/* Slot 627 is reserved */ +/* Slot 628 is reserved */ +/* Slot 629 is reserved */ +#ifndef TclUnusedStubEntry +#define TclUnusedStubEntry \ + (tclStubsPtr->tclUnusedStubEntry) /* 630 */ +#endif + +#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#undef TclUnusedStubEntry + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +/* + * Deprecated Tcl procedures: + */ +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) +# undef Tcl_EvalObj +# define Tcl_EvalObj(interp,objPtr) \ + Tcl_EvalObjEx((interp),(objPtr),0) +# undef Tcl_GlobalEvalObj +# define Tcl_GlobalEvalObj(interp,objPtr) \ + Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) +#endif + +#endif /* _TCLDECLS */ + diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tclPlatDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tclPlatDecls.h new file mode 100644 index 00000000..8652e8d7 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tclPlatDecls.h @@ -0,0 +1,134 @@ +/* + * tclPlatDecls.h -- + * + * Declarations of platform specific Tcl APIs. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + */ + +#ifndef _TCLPLATDECLS +#define _TCLPLATDECLS + +#undef TCL_STORAGE_CLASS +#ifdef BUILD_tcl +# define TCL_STORAGE_CLASS DLLEXPORT +#else +# ifdef USE_TCL_STUBS +# define TCL_STORAGE_CLASS +# else +# define TCL_STORAGE_CLASS DLLIMPORT +# endif +#endif + +/* + * TCHAR is needed here for win32, so if it is not defined yet do it here. + * This way, we don't need to include just for one define. + */ +#if (defined(_WIN32) || defined(__CYGWIN__)) && !defined(_TCHAR_DEFINED) +# if defined(_UNICODE) + typedef wchar_t TCHAR; +# else + typedef char TCHAR; +# endif +# define _TCHAR_DEFINED +#endif + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported function declarations: + */ + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ +#ifndef Tcl_WinUtfToTChar_TCL_DECLARED +#define Tcl_WinUtfToTChar_TCL_DECLARED +/* 0 */ +EXTERN TCHAR * Tcl_WinUtfToTChar(CONST char *str, int len, + Tcl_DString *dsPtr); +#endif +#ifndef Tcl_WinTCharToUtf_TCL_DECLARED +#define Tcl_WinTCharToUtf_TCL_DECLARED +/* 1 */ +EXTERN char * Tcl_WinTCharToUtf(CONST TCHAR *str, int len, + Tcl_DString *dsPtr); +#endif +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#ifndef Tcl_MacOSXOpenBundleResources_TCL_DECLARED +#define Tcl_MacOSXOpenBundleResources_TCL_DECLARED +/* 0 */ +EXTERN int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp, + CONST char *bundleName, int hasResourceFile, + int maxPathLen, char *libraryPath); +#endif +#ifndef Tcl_MacOSXOpenVersionedBundleResources_TCL_DECLARED +#define Tcl_MacOSXOpenVersionedBundleResources_TCL_DECLARED +/* 1 */ +EXTERN int Tcl_MacOSXOpenVersionedBundleResources( + Tcl_Interp *interp, CONST char *bundleName, + CONST char *bundleVersion, + int hasResourceFile, int maxPathLen, + char *libraryPath); +#endif +#endif /* MACOSX */ + +typedef struct TclPlatStubs { + int magic; + struct TclPlatStubHooks *hooks; + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ + TCHAR * (*tcl_WinUtfToTChar) (CONST char *str, int len, Tcl_DString *dsPtr); /* 0 */ + char * (*tcl_WinTCharToUtf) (CONST TCHAR *str, int len, Tcl_DString *dsPtr); /* 1 */ +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ + int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp *interp, CONST char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPath); /* 0 */ + int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp *interp, CONST char *bundleName, CONST char *bundleVersion, int hasResourceFile, int maxPathLen, char *libraryPath); /* 1 */ +#endif /* MACOSX */ +} TclPlatStubs; + +#ifdef __cplusplus +extern "C" { +#endif +extern TclPlatStubs *tclPlatStubsPtr; +#ifdef __cplusplus +} +#endif + +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ +#ifndef Tcl_WinUtfToTChar +#define Tcl_WinUtfToTChar \ + (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */ +#endif +#ifndef Tcl_WinTCharToUtf +#define Tcl_WinTCharToUtf \ + (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */ +#endif +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#ifndef Tcl_MacOSXOpenBundleResources +#define Tcl_MacOSXOpenBundleResources \ + (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */ +#endif +#ifndef Tcl_MacOSXOpenVersionedBundleResources +#define Tcl_MacOSXOpenVersionedBundleResources \ + (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */ +#endif +#endif /* MACOSX */ + +#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* _TCLPLATDECLS */ + + diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tk.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tk.h new file mode 100644 index 00000000..e356ce5d --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tk.h @@ -0,0 +1,1610 @@ +/* + * tk.h -- + * + * Declarations for Tk-related things that are visible outside of the Tk + * module itself. + * + * Copyright (c) 1989-1994 The Regents of the University of California. + * Copyright (c) 1994 The Australian National University. + * Copyright (c) 1994-1998 Sun Microsystems, Inc. + * Copyright (c) 1998-2000 Ajuba Solutions. + * + * See the file "license.terms" for information on usage and redistribution of + * this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TK +#define _TK + +#include +#if (TCL_MAJOR_VERSION != 8) || (TCL_MINOR_VERSION < 5) +# error Tk 8.5 must be compiled with tcl.h from Tcl 8.5 or better +#endif + +#ifndef _ANSI_ARGS_ +# ifndef NO_PROTOTYPES +# define _ANSI_ARGS_(x) x +# else +# define _ANSI_ARGS_(x) () +# endif +#endif + +/* + * For C++ compilers, use extern "C" + */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * When version numbers change here, you must also go into the following files + * and update the version numbers: + * + * library/tk.tcl (1 LOC patch) + * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) + * win/configure.in (as above) + * README (sections 0 and 1) + * macosx/Wish.xcode/project.pbxproj (not patchlevel) 1 LOC + * macosx/Wish-Common.xcconfig (not patchlevel) 1 LOC + * win/README (not patchlevel) + * unix/README (not patchlevel) + * unix/tk.spec (1 LOC patch) + * win/tcl.m4 (not patchlevel) + * + * You may also need to update some of these files when the numbers change for + * the version of Tcl that this release of Tk is compiled against. + */ + +#define TK_MAJOR_VERSION 8 +#define TK_MINOR_VERSION 5 +#define TK_RELEASE_LEVEL TCL_FINAL_RELEASE +#define TK_RELEASE_SERIAL 18 + +#define TK_VERSION "8.5" +#define TK_PATCH_LEVEL "8.5.18" + +/* + * A special definition used to allow this header file to be included from + * windows or mac resource files so that they can obtain version information. + * RC_INVOKED is defined by default by the windows RC tool and manually set + * for macintosh. + * + * Resource compilers don't like all the C stuff, like typedefs and procedure + * declarations, that occur below, so block them out. + */ + +#ifndef RC_INVOKED + +#ifndef _XLIB_H +# include +# ifdef MAC_OSX_TK +# include +# endif +#endif +#ifdef __STDC__ +# include +#endif + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +/* + *---------------------------------------------------------------------- + * + * Decide whether or not to use input methods. + */ + +#ifdef XNQueryInputStyle +#define TK_USE_INPUT_METHODS +#endif + +/* + * Dummy types that are used by clients: + */ + +typedef struct Tk_BindingTable_ *Tk_BindingTable; +typedef struct Tk_Canvas_ *Tk_Canvas; +typedef struct Tk_Cursor_ *Tk_Cursor; +typedef struct Tk_ErrorHandler_ *Tk_ErrorHandler; +typedef struct Tk_Font_ *Tk_Font; +typedef struct Tk_Image__ *Tk_Image; +typedef struct Tk_ImageMaster_ *Tk_ImageMaster; +typedef struct Tk_OptionTable_ *Tk_OptionTable; +typedef struct Tk_PostscriptInfo_ *Tk_PostscriptInfo; +typedef struct Tk_TextLayout_ *Tk_TextLayout; +typedef struct Tk_Window_ *Tk_Window; +typedef struct Tk_3DBorder_ *Tk_3DBorder; +typedef struct Tk_Style_ *Tk_Style; +typedef struct Tk_StyleEngine_ *Tk_StyleEngine; +typedef struct Tk_StyledElement_ *Tk_StyledElement; + +/* + * Additional types exported to clients. + */ + +typedef const char *Tk_Uid; + +/* + *---------------------------------------------------------------------- + * + * The enum below defines the valid types for Tk configuration options as + * implemented by Tk_InitOptions, Tk_SetOptions, etc. + */ + +typedef enum { + TK_OPTION_BOOLEAN, + TK_OPTION_INT, + TK_OPTION_DOUBLE, + TK_OPTION_STRING, + TK_OPTION_STRING_TABLE, + TK_OPTION_COLOR, + TK_OPTION_FONT, + TK_OPTION_BITMAP, + TK_OPTION_BORDER, + TK_OPTION_RELIEF, + TK_OPTION_CURSOR, + TK_OPTION_JUSTIFY, + TK_OPTION_ANCHOR, + TK_OPTION_SYNONYM, + TK_OPTION_PIXELS, + TK_OPTION_WINDOW, + TK_OPTION_END, + TK_OPTION_CUSTOM, + TK_OPTION_STYLE +} Tk_OptionType; + +/* + * Structures of the following type are used by widgets to specify their + * configuration options. Typically each widget has a static array of these + * structures, where each element of the array describes a single + * configuration option. The array is passed to Tk_CreateOptionTable. + */ + +typedef struct Tk_OptionSpec { + Tk_OptionType type; /* Type of option, such as TK_OPTION_COLOR; + * see definitions above. Last option in table + * must have type TK_OPTION_END. */ + const char *optionName; /* Name used to specify option in Tcl + * commands. */ + const char *dbName; /* Name for option in option database. */ + const char *dbClass; /* Class for option in database. */ + const char *defValue; /* Default value for option if not specified + * in command line, the option database, or + * the system. */ + int objOffset; /* Where in record to store a Tcl_Obj * that + * holds the value of this option, specified + * as an offset in bytes from the start of the + * record. Use the Tk_Offset macro to generate + * values for this. -1 means don't store the + * Tcl_Obj in the record. */ + int internalOffset; /* Where in record to store the internal + * representation of the value of this option, + * such as an int or XColor *. This field is + * specified as an offset in bytes from the + * start of the record. Use the Tk_Offset + * macro to generate values for it. -1 means + * don't store the internal representation in + * the record. */ + int flags; /* Any combination of the values defined + * below. */ + ClientData clientData; /* An alternate place to put option-specific + * data. Used for the monochrome default value + * for colors, etc. */ + int typeMask; /* An arbitrary bit mask defined by the class + * manager; typically bits correspond to + * certain kinds of options such as all those + * that require a redisplay when they change. + * Tk_SetOptions returns the bit-wise OR of + * the typeMasks of all options that were + * changed. */ +} Tk_OptionSpec; + +/* + * Flag values for Tk_OptionSpec structures. These flags are shared by + * Tk_ConfigSpec structures, so be sure to coordinate any changes carefully. + */ + +#define TK_OPTION_NULL_OK (1 << 0) +#define TK_OPTION_DONT_SET_DEFAULT (1 << 3) + +/* + * The following structure and function types are used by TK_OPTION_CUSTOM + * options; the structure holds pointers to the functions needed by the Tk + * option config code to handle a custom option. + */ + +typedef int (Tk_CustomOptionSetProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj **value, char *widgRec, + int offset, char *saveInternalPtr, int flags)); +typedef Tcl_Obj *(Tk_CustomOptionGetProc) _ANSI_ARGS_((ClientData clientData, + Tk_Window tkwin, char *widgRec, int offset)); +typedef void (Tk_CustomOptionRestoreProc) _ANSI_ARGS_((ClientData clientData, + Tk_Window tkwin, char *internalPtr, char *saveInternalPtr)); +typedef void (Tk_CustomOptionFreeProc) _ANSI_ARGS_((ClientData clientData, + Tk_Window tkwin, char *internalPtr)); + +typedef struct Tk_ObjCustomOption { + const char *name; /* Name of the custom option. */ + Tk_CustomOptionSetProc *setProc; + /* Function to use to set a record's option + * value from a Tcl_Obj */ + Tk_CustomOptionGetProc *getProc; + /* Function to use to get a Tcl_Obj + * representation from an internal + * representation of an option. */ + Tk_CustomOptionRestoreProc *restoreProc; + /* Function to use to restore a saved value + * for the internal representation. */ + Tk_CustomOptionFreeProc *freeProc; + /* Function to use to free the internal + * representation of an option. */ + ClientData clientData; /* Arbitrary one-word value passed to the + * handling procs. */ +} Tk_ObjCustomOption; + +/* + * Macro to use to fill in "offset" fields of the Tk_OptionSpec structure. + * Computes number of bytes from beginning of structure to a given field. + */ + +#ifdef offsetof +#define Tk_Offset(type, field) ((int) offsetof(type, field)) +#else +#define Tk_Offset(type, field) ((int) ((char *) &((type *) 0)->field)) +#endif + +/* + * The following two structures are used for error handling. When config + * options are being modified, the old values are saved in a Tk_SavedOptions + * structure. If an error occurs, then the contents of the structure can be + * used to restore all of the old values. The contents of this structure are + * for the private use Tk. No-one outside Tk should ever read or write any of + * the fields of these structures. + */ + +typedef struct Tk_SavedOption { + struct TkOption *optionPtr; /* Points to information that describes the + * option. */ + Tcl_Obj *valuePtr; /* The old value of the option, in the form of + * a Tcl object; may be NULL if the value was + * not saved as an object. */ + double internalForm; /* The old value of the option, in some + * internal representation such as an int or + * (XColor *). Valid only if the field + * optionPtr->specPtr->objOffset is < 0. The + * space must be large enough to accommodate a + * double, a long, or a pointer; right now it + * looks like a double (i.e., 8 bytes) is big + * enough. Also, using a double guarantees + * that the field is properly aligned for + * storing large values. */ +} Tk_SavedOption; + +#ifdef TCL_MEM_DEBUG +# define TK_NUM_SAVED_OPTIONS 2 +#else +# define TK_NUM_SAVED_OPTIONS 20 +#endif + +typedef struct Tk_SavedOptions { + char *recordPtr; /* The data structure in which to restore + * configuration options. */ + Tk_Window tkwin; /* Window associated with recordPtr; needed to + * restore certain options. */ + int numItems; /* The number of valid items in items field. */ + Tk_SavedOption items[TK_NUM_SAVED_OPTIONS]; + /* Items used to hold old values. */ + struct Tk_SavedOptions *nextPtr; + /* Points to next structure in list; needed if + * too many options changed to hold all the + * old values in a single structure. NULL + * means no more structures. */ +} Tk_SavedOptions; + +/* + * Structure used to describe application-specific configuration options: + * indicates procedures to call to parse an option and to return a text string + * describing an option. THESE ARE DEPRECATED; PLEASE USE THE NEW STRUCTURES + * LISTED ABOVE. + */ + +/* + * This is a temporary flag used while tkObjConfig and new widgets are in + * development. + */ + +#ifndef __NO_OLD_CONFIG + +typedef int (Tk_OptionParseProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, Tk_Window tkwin, CONST84 char *value, char *widgRec, + int offset)); +typedef char *(Tk_OptionPrintProc) _ANSI_ARGS_((ClientData clientData, + Tk_Window tkwin, char *widgRec, int offset, + Tcl_FreeProc **freeProcPtr)); + +typedef struct Tk_CustomOption { + Tk_OptionParseProc *parseProc; + /* Procedure to call to parse an option and + * store it in converted form. */ + Tk_OptionPrintProc *printProc; + /* Procedure to return a printable string + * describing an existing option. */ + ClientData clientData; /* Arbitrary one-word value used by option + * parser: passed to parseProc and + * printProc. */ +} Tk_CustomOption; + +/* + * Structure used to specify information for Tk_ConfigureWidget. Each + * structure gives complete information for one option, including how the + * option is specified on the command line, where it appears in the option + * database, etc. + */ + +typedef struct Tk_ConfigSpec { + int type; /* Type of option, such as TK_CONFIG_COLOR; + * see definitions below. Last option in table + * must have type TK_CONFIG_END. */ + char *argvName; /* Switch used to specify option in argv. NULL + * means this spec is part of a group. */ + Tk_Uid dbName; /* Name for option in option database. */ + Tk_Uid dbClass; /* Class for option in database. */ + Tk_Uid defValue; /* Default value for option if not specified + * in command line or database. */ + int offset; /* Where in widget record to store value; use + * Tk_Offset macro to generate values for + * this. */ + int specFlags; /* Any combination of the values defined + * below; other bits are used internally by + * tkConfig.c. */ + Tk_CustomOption *customPtr; /* If type is TK_CONFIG_CUSTOM then this is a + * pointer to info about how to parse and + * print the option. Otherwise it is + * irrelevant. */ +} Tk_ConfigSpec; + +/* + * Type values for Tk_ConfigSpec structures. See the user documentation for + * details. + */ + +typedef enum { + TK_CONFIG_BOOLEAN, TK_CONFIG_INT, TK_CONFIG_DOUBLE, TK_CONFIG_STRING, + TK_CONFIG_UID, TK_CONFIG_COLOR, TK_CONFIG_FONT, TK_CONFIG_BITMAP, + TK_CONFIG_BORDER, TK_CONFIG_RELIEF, TK_CONFIG_CURSOR, + TK_CONFIG_ACTIVE_CURSOR, TK_CONFIG_JUSTIFY, TK_CONFIG_ANCHOR, + TK_CONFIG_SYNONYM, TK_CONFIG_CAP_STYLE, TK_CONFIG_JOIN_STYLE, + TK_CONFIG_PIXELS, TK_CONFIG_MM, TK_CONFIG_WINDOW, TK_CONFIG_CUSTOM, + TK_CONFIG_END +} Tk_ConfigTypes; + +/* + * Possible values for flags argument to Tk_ConfigureWidget: + */ + +#define TK_CONFIG_ARGV_ONLY 1 +#define TK_CONFIG_OBJS 0x80 + +/* + * Possible flag values for Tk_ConfigSpec structures. Any bits at or above + * TK_CONFIG_USER_BIT may be used by clients for selecting certain entries. + * Before changing any values here, coordinate with tkOldConfig.c + * (internal-use-only flags are defined there). + */ + +#define TK_CONFIG_NULL_OK (1 << 0) +#define TK_CONFIG_COLOR_ONLY (1 << 1) +#define TK_CONFIG_MONO_ONLY (1 << 2) +#define TK_CONFIG_DONT_SET_DEFAULT (1 << 3) +#define TK_CONFIG_OPTION_SPECIFIED (1 << 4) +#define TK_CONFIG_USER_BIT 0x100 +#endif /* __NO_OLD_CONFIG */ + +/* + * Structure used to specify how to handle argv options. + */ + +typedef struct { + char *key; /* The key string that flags the option in the + * argv array. */ + int type; /* Indicates option type; see below. */ + char *src; /* Value to be used in setting dst; usage + * depends on type. */ + char *dst; /* Address of value to be modified; usage + * depends on type. */ + char *help; /* Documentation message describing this + * option. */ +} Tk_ArgvInfo; + +/* + * Legal values for the type field of a Tk_ArgvInfo: see the user + * documentation for details. + */ + +#define TK_ARGV_CONSTANT 15 +#define TK_ARGV_INT 16 +#define TK_ARGV_STRING 17 +#define TK_ARGV_UID 18 +#define TK_ARGV_REST 19 +#define TK_ARGV_FLOAT 20 +#define TK_ARGV_FUNC 21 +#define TK_ARGV_GENFUNC 22 +#define TK_ARGV_HELP 23 +#define TK_ARGV_CONST_OPTION 24 +#define TK_ARGV_OPTION_VALUE 25 +#define TK_ARGV_OPTION_NAME_VALUE 26 +#define TK_ARGV_END 27 + +/* + * Flag bits for passing to Tk_ParseArgv: + */ + +#define TK_ARGV_NO_DEFAULTS 0x1 +#define TK_ARGV_NO_LEFTOVERS 0x2 +#define TK_ARGV_NO_ABBREV 0x4 +#define TK_ARGV_DONT_SKIP_FIRST_ARG 0x8 + +/* + * Enumerated type for describing actions to be taken in response to a + * restrictProc established by Tk_RestrictEvents. + */ + +typedef enum { + TK_DEFER_EVENT, TK_PROCESS_EVENT, TK_DISCARD_EVENT +} Tk_RestrictAction; + +/* + * Priority levels to pass to Tk_AddOption: + */ + +#define TK_WIDGET_DEFAULT_PRIO 20 +#define TK_STARTUP_FILE_PRIO 40 +#define TK_USER_DEFAULT_PRIO 60 +#define TK_INTERACTIVE_PRIO 80 +#define TK_MAX_PRIO 100 + +/* + * Relief values returned by Tk_GetRelief: + */ + +#define TK_RELIEF_NULL -1 +#define TK_RELIEF_FLAT 0 +#define TK_RELIEF_GROOVE 1 +#define TK_RELIEF_RAISED 2 +#define TK_RELIEF_RIDGE 3 +#define TK_RELIEF_SOLID 4 +#define TK_RELIEF_SUNKEN 5 + +/* + * "Which" argument values for Tk_3DBorderGC: + */ + +#define TK_3D_FLAT_GC 1 +#define TK_3D_LIGHT_GC 2 +#define TK_3D_DARK_GC 3 + +/* + * Special EnterNotify/LeaveNotify "mode" for use in events generated by + * tkShare.c. Pick a high enough value that it's unlikely to conflict with + * existing values (like NotifyNormal) or any new values defined in the + * future. + */ + +#define TK_NOTIFY_SHARE 20 + +/* + * Enumerated type for describing a point by which to anchor something: + */ + +typedef enum { + TK_ANCHOR_N, TK_ANCHOR_NE, TK_ANCHOR_E, TK_ANCHOR_SE, + TK_ANCHOR_S, TK_ANCHOR_SW, TK_ANCHOR_W, TK_ANCHOR_NW, + TK_ANCHOR_CENTER +} Tk_Anchor; + +/* + * Enumerated type for describing a style of justification: + */ + +typedef enum { + TK_JUSTIFY_LEFT, TK_JUSTIFY_RIGHT, TK_JUSTIFY_CENTER +} Tk_Justify; + +/* + * The following structure is used by Tk_GetFontMetrics() to return + * information about the properties of a Tk_Font. + */ + +typedef struct Tk_FontMetrics { + int ascent; /* The amount in pixels that the tallest + * letter sticks up above the baseline, plus + * any extra blank space added by the designer + * of the font. */ + int descent; /* The largest amount in pixels that any + * letter sticks below the baseline, plus any + * extra blank space added by the designer of + * the font. */ + int linespace; /* The sum of the ascent and descent. How far + * apart two lines of text in the same font + * should be placed so that none of the + * characters in one line overlap any of the + * characters in the other line. */ +} Tk_FontMetrics; + +/* + * Flags passed to Tk_MeasureChars: + */ + +#define TK_WHOLE_WORDS 1 +#define TK_AT_LEAST_ONE 2 +#define TK_PARTIAL_OK 4 + +/* + * Flags passed to Tk_ComputeTextLayout: + */ + +#define TK_IGNORE_TABS 8 +#define TK_IGNORE_NEWLINES 16 + +/* + * Widget class procedures used to implement platform specific widget + * behavior. + */ + +typedef Window (Tk_ClassCreateProc) _ANSI_ARGS_((Tk_Window tkwin, + Window parent, ClientData instanceData)); +typedef void (Tk_ClassWorldChangedProc) _ANSI_ARGS_((ClientData instanceData)); +typedef void (Tk_ClassModalProc) _ANSI_ARGS_((Tk_Window tkwin, + XEvent *eventPtr)); + +typedef struct Tk_ClassProcs { + unsigned int size; + Tk_ClassWorldChangedProc *worldChangedProc; + /* Procedure to invoke when the widget needs + * to respond in some way to a change in the + * world (font changes, etc.) */ + Tk_ClassCreateProc *createProc; + /* Procedure to invoke when the platform- + * dependent window needs to be created. */ + Tk_ClassModalProc *modalProc; + /* Procedure to invoke after all bindings on a + * widget have been triggered in order to + * handle a modal loop. */ +} Tk_ClassProcs; + +/* + * Simple accessor for Tk_ClassProcs structure. Checks that the structure is + * not NULL, then checks the size field and returns either the requested + * field, if present, or NULL if the structure is too small to have the field + * (or NULL if the structure is NULL). + * + * A more general version of this function may be useful if other + * size-versioned structure pop up in the future: + * + * #define Tk_GetField(name, who, which) \ + * (((who) == NULL) ? NULL : + * (((who)->size <= Tk_Offset(name, which)) ? NULL :(name)->which)) + */ + +#define Tk_GetClassProc(procs, which) \ + (((procs) == NULL) ? NULL : \ + (((procs)->size <= Tk_Offset(Tk_ClassProcs, which)) ? NULL:(procs)->which)) + +/* + * Each geometry manager (the packer, the placer, etc.) is represented by a + * structure of the following form, which indicates procedures to invoke in + * the geometry manager to carry out certain functions. + */ + +typedef void (Tk_GeomRequestProc) _ANSI_ARGS_((ClientData clientData, + Tk_Window tkwin)); +typedef void (Tk_GeomLostSlaveProc) _ANSI_ARGS_((ClientData clientData, + Tk_Window tkwin)); + +typedef struct Tk_GeomMgr { + const char *name; /* Name of the geometry manager (command used + * to invoke it, or name of widget class that + * allows embedded widgets). */ + Tk_GeomRequestProc *requestProc; + /* Procedure to invoke when a slave's + * requested geometry changes. */ + Tk_GeomLostSlaveProc *lostSlaveProc; + /* Procedure to invoke when a slave is taken + * away from one geometry manager by another. + * NULL means geometry manager doesn't care + * when slaves are lost. */ +} Tk_GeomMgr; + +/* + * Result values returned by Tk_GetScrollInfo: + */ + +#define TK_SCROLL_MOVETO 1 +#define TK_SCROLL_PAGES 2 +#define TK_SCROLL_UNITS 3 +#define TK_SCROLL_ERROR 4 + +/* + *---------------------------------------------------------------------- + * + * Extensions to the X event set + * + *---------------------------------------------------------------------- + */ + +#define VirtualEvent (MappingNotify + 1) +#define ActivateNotify (MappingNotify + 2) +#define DeactivateNotify (MappingNotify + 3) +#define MouseWheelEvent (MappingNotify + 4) +#define TK_LASTEVENT (MappingNotify + 5) + +#define MouseWheelMask (1L << 28) +#define ActivateMask (1L << 29) +#define VirtualEventMask (1L << 30) + +/* + * A virtual event shares most of its fields with the XKeyEvent and + * XButtonEvent structures. 99% of the time a virtual event will be an + * abstraction of a key or button event, so this structure provides the most + * information to the user. The only difference is the changing of the detail + * field for a virtual event so that it holds the name of the virtual event + * being triggered. + * + * When using this structure, you should ensure that you zero out all the + * fields first using memset() or bzero(). + */ + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server. */ + Bool send_event; /* True if this came from a SendEvent + * request. */ + Display *display; /* Display the event was read from. */ + Window event; /* Window on which event was requested. */ + Window root; /* Root window that the event occured on. */ + Window subwindow; /* Child window. */ + Time time; /* Milliseconds. */ + int x, y; /* Pointer x, y coordinates in event + * window. */ + int x_root, y_root; /* Coordinates relative to root. */ + unsigned int state; /* Key or button mask */ + Tk_Uid name; /* Name of virtual event. */ + Bool same_screen; /* Same screen flag. */ + Tcl_Obj *user_data; /* Application-specific data reference; Tk + * will decrement the reference count *once* + * when it has finished processing the + * event. */ +} XVirtualEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server. */ + Bool send_event; /* True if this came from a SendEvent + * request. */ + Display *display; /* Display the event was read from. */ + Window window; /* Window in which event occurred. */ +} XActivateDeactivateEvent; +typedef XActivateDeactivateEvent XActivateEvent; +typedef XActivateDeactivateEvent XDeactivateEvent; + +/* + *---------------------------------------------------------------------- + * + * Macros for querying Tk_Window structures. See the manual entries for + * documentation. + * + *---------------------------------------------------------------------- + */ + +#define Tk_Display(tkwin) (((Tk_FakeWin *) (tkwin))->display) +#define Tk_ScreenNumber(tkwin) (((Tk_FakeWin *) (tkwin))->screenNum) +#define Tk_Screen(tkwin) \ + (ScreenOfDisplay(Tk_Display(tkwin), Tk_ScreenNumber(tkwin))) +#define Tk_Depth(tkwin) (((Tk_FakeWin *) (tkwin))->depth) +#define Tk_Visual(tkwin) (((Tk_FakeWin *) (tkwin))->visual) +#define Tk_WindowId(tkwin) (((Tk_FakeWin *) (tkwin))->window) +#define Tk_PathName(tkwin) (((Tk_FakeWin *) (tkwin))->pathName) +#define Tk_Name(tkwin) (((Tk_FakeWin *) (tkwin))->nameUid) +#define Tk_Class(tkwin) (((Tk_FakeWin *) (tkwin))->classUid) +#define Tk_X(tkwin) (((Tk_FakeWin *) (tkwin))->changes.x) +#define Tk_Y(tkwin) (((Tk_FakeWin *) (tkwin))->changes.y) +#define Tk_Width(tkwin) (((Tk_FakeWin *) (tkwin))->changes.width) +#define Tk_Height(tkwin) \ + (((Tk_FakeWin *) (tkwin))->changes.height) +#define Tk_Changes(tkwin) (&((Tk_FakeWin *) (tkwin))->changes) +#define Tk_Attributes(tkwin) (&((Tk_FakeWin *) (tkwin))->atts) +#define Tk_IsEmbedded(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_EMBEDDED) +#define Tk_IsContainer(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_CONTAINER) +#define Tk_IsMapped(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_MAPPED) +#define Tk_IsTopLevel(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_LEVEL) +#define Tk_HasWrapper(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_HAS_WRAPPER) +#define Tk_WinManaged(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_WIN_MANAGED) +#define Tk_TopWinHierarchy(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_HIERARCHY) +#define Tk_IsManageable(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_WM_MANAGEABLE) +#define Tk_ReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->reqWidth) +#define Tk_ReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->reqHeight) +/* Tk_InternalBorderWidth is deprecated */ +#define Tk_InternalBorderWidth(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderLeft) +#define Tk_InternalBorderLeft(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderLeft) +#define Tk_InternalBorderRight(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderRight) +#define Tk_InternalBorderTop(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderTop) +#define Tk_InternalBorderBottom(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderBottom) +#define Tk_MinReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->minReqWidth) +#define Tk_MinReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->minReqHeight) +#define Tk_Parent(tkwin) (((Tk_FakeWin *) (tkwin))->parentPtr) +#define Tk_Colormap(tkwin) (((Tk_FakeWin *) (tkwin))->atts.colormap) + +/* + * The structure below is needed by the macros above so that they can access + * the fields of a Tk_Window. The fields not needed by the macros are declared + * as "dummyX". The structure has its own type in order to prevent apps from + * accessing Tk_Window fields except using official macros. WARNING!! The + * structure definition must be kept consistent with the TkWindow structure in + * tkInt.h. If you change one, then change the other. See the declaration in + * tkInt.h for documentation on what the fields are used for internally. + */ + +typedef struct Tk_FakeWin { + Display *display; + char *dummy1; /* dispPtr */ + int screenNum; + Visual *visual; + int depth; + Window window; + char *dummy2; /* childList */ + char *dummy3; /* lastChildPtr */ + Tk_Window parentPtr; /* parentPtr */ + char *dummy4; /* nextPtr */ + char *dummy5; /* mainPtr */ + char *pathName; + Tk_Uid nameUid; + Tk_Uid classUid; + XWindowChanges changes; + unsigned int dummy6; /* dirtyChanges */ + XSetWindowAttributes atts; + unsigned long dummy7; /* dirtyAtts */ + unsigned int flags; + char *dummy8; /* handlerList */ +#ifdef TK_USE_INPUT_METHODS + XIC dummy9; /* inputContext */ +#endif /* TK_USE_INPUT_METHODS */ + ClientData *dummy10; /* tagPtr */ + int dummy11; /* numTags */ + int dummy12; /* optionLevel */ + char *dummy13; /* selHandlerList */ + char *dummy14; /* geomMgrPtr */ + ClientData dummy15; /* geomData */ + int reqWidth, reqHeight; + int internalBorderLeft; + char *dummy16; /* wmInfoPtr */ + char *dummy17; /* classProcPtr */ + ClientData dummy18; /* instanceData */ + char *dummy19; /* privatePtr */ + int internalBorderRight; + int internalBorderTop; + int internalBorderBottom; + int minReqWidth; + int minReqHeight; +} Tk_FakeWin; + +/* + * Flag values for TkWindow (and Tk_FakeWin) structures are: + * + * TK_MAPPED: 1 means window is currently mapped, + * 0 means unmapped. + * TK_TOP_LEVEL: 1 means this is a top-level widget. + * TK_ALREADY_DEAD: 1 means the window is in the process of + * being destroyed already. + * TK_NEED_CONFIG_NOTIFY: 1 means that the window has been reconfigured + * before it was made to exist. At the time of + * making it exist a ConfigureNotify event needs + * to be generated. + * TK_GRAB_FLAG: Used to manage grabs. See tkGrab.c for details + * TK_CHECKED_IC: 1 means we've already tried to get an input + * context for this window; if the ic field is + * NULL it means that there isn't a context for + * the field. + * TK_DONT_DESTROY_WINDOW: 1 means that Tk_DestroyWindow should not + * invoke XDestroyWindow to destroy this widget's + * X window. The flag is set when the window has + * already been destroyed elsewhere (e.g. by + * another application) or when it will be + * destroyed later (e.g. by destroying its parent) + * TK_WM_COLORMAP_WINDOW: 1 means that this window has at some time + * appeared in the WM_COLORMAP_WINDOWS property + * for its toplevel, so we have to remove it from + * that property if the window is deleted and the + * toplevel isn't. + * TK_EMBEDDED: 1 means that this window (which must be a + * toplevel) is not a free-standing window but + * rather is embedded in some other application. + * TK_CONTAINER: 1 means that this window is a container, and + * that some other application (either in this + * process or elsewhere) may be embedding itself + * inside the window. + * TK_BOTH_HALVES: 1 means that this window is used for + * application embedding (either as container or + * embedded application), and both the containing + * and embedded halves are associated with + * windows in this particular process. + * TK_DEFER_MODAL: 1 means that this window has deferred a modal + * loop until all of the bindings for the current + * event have been invoked. + * TK_WRAPPER: 1 means that this window is the extra wrapper + * window created around a toplevel to hold the + * menubar under Unix. See tkUnixWm.c for more + * information. + * TK_REPARENTED: 1 means that this window has been reparented + * so that as far as the window system is + * concerned it isn't a child of its Tk parent. + * Initially this is used only for special Unix + * menubar windows. + * TK_ANONYMOUS_WINDOW: 1 means that this window has no name, and is + * thus not accessible from Tk. + * TK_HAS_WRAPPER 1 means that this window has a wrapper window + * TK_WIN_MANAGED 1 means that this window is a child of the root + * window, and is managed by the window manager. + * TK_TOP_HIERARCHY 1 means this window is at the top of a physical + * window hierarchy within this process, i.e. the + * window's parent either doesn't exist or is not + * owned by this Tk application. + * TK_PROP_PROPCHANGE 1 means that PropertyNotify events in the + * window's children should propagate up to this + * window. + * TK_WM_MANAGEABLE 1 marks a window as capable of being converted + * into a toplevel using [wm manage]. + */ + +#define TK_MAPPED 1 +#define TK_TOP_LEVEL 2 +#define TK_ALREADY_DEAD 4 +#define TK_NEED_CONFIG_NOTIFY 8 +#define TK_GRAB_FLAG 0x10 +#define TK_CHECKED_IC 0x20 +#define TK_DONT_DESTROY_WINDOW 0x40 +#define TK_WM_COLORMAP_WINDOW 0x80 +#define TK_EMBEDDED 0x100 +#define TK_CONTAINER 0x200 +#define TK_BOTH_HALVES 0x400 +#define TK_DEFER_MODAL 0x800 +#define TK_WRAPPER 0x1000 +#define TK_REPARENTED 0x2000 +#define TK_ANONYMOUS_WINDOW 0x4000 +#define TK_HAS_WRAPPER 0x8000 +#define TK_WIN_MANAGED 0x10000 +#define TK_TOP_HIERARCHY 0x20000 +#define TK_PROP_PROPCHANGE 0x40000 +#define TK_WM_MANAGEABLE 0x80000 + +/* + *---------------------------------------------------------------------- + * + * Procedure prototypes and structures used for defining new canvas items: + * + *---------------------------------------------------------------------- + */ + +typedef enum { + TK_STATE_NULL = -1, TK_STATE_ACTIVE, TK_STATE_DISABLED, + TK_STATE_NORMAL, TK_STATE_HIDDEN +} Tk_State; + +typedef struct Tk_SmoothMethod { + char *name; + int (*coordProc) _ANSI_ARGS_((Tk_Canvas canvas, + double *pointPtr, int numPoints, int numSteps, + XPoint xPoints[], double dblPoints[])); + void (*postscriptProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, double *coordPtr, + int numPoints, int numSteps)); +} Tk_SmoothMethod; + +/* + * For each item in a canvas widget there exists one record with the following + * structure. Each actual item is represented by a record with the following + * stuff at its beginning, plus additional type-specific stuff after that. + */ + +#define TK_TAG_SPACE 3 + +typedef struct Tk_Item { + int id; /* Unique identifier for this item (also + * serves as first tag for item). */ + struct Tk_Item *nextPtr; /* Next in display list of all items in this + * canvas. Later items in list are drawn on + * top of earlier ones. */ + Tk_Uid staticTagSpace[TK_TAG_SPACE]; + /* Built-in space for limited # of tags. */ + Tk_Uid *tagPtr; /* Pointer to array of tags. Usually points to + * staticTagSpace, but may point to malloc-ed + * space if there are lots of tags. */ + int tagSpace; /* Total amount of tag space available at + * tagPtr. */ + int numTags; /* Number of tag slots actually used at + * *tagPtr. */ + struct Tk_ItemType *typePtr;/* Table of procedures that implement this + * type of item. */ + int x1, y1, x2, y2; /* Bounding box for item, in integer canvas + * units. Set by item-specific code and + * guaranteed to contain every pixel drawn in + * item. Item area includes x1 and y1 but not + * x2 and y2. */ + struct Tk_Item *prevPtr; /* Previous in display list of all items in + * this canvas. Later items in list are drawn + * just below earlier ones. */ + Tk_State state; /* State of item. */ + char *reserved1; /* reserved for future use */ + int redraw_flags; /* Some flags used in the canvas */ + + /* + *------------------------------------------------------------------ + * Starting here is additional type-specific stuff; see the declarations + * for individual types to see what is part of each type. The actual space + * below is determined by the "itemInfoSize" of the type's Tk_ItemType + * record. + *------------------------------------------------------------------ + */ +} Tk_Item; + +/* + * Flag bits for canvases (redraw_flags): + * + * TK_ITEM_STATE_DEPENDANT - 1 means that object needs to be redrawn if the + * canvas state changes. + * TK_ITEM_DONT_REDRAW - 1 means that the object redraw is already been + * prepared, so the general canvas code doesn't + * need to do that any more. + */ + +#define TK_ITEM_STATE_DEPENDANT 1 +#define TK_ITEM_DONT_REDRAW 2 + +/* + * Records of the following type are used to describe a type of item (e.g. + * lines, circles, etc.) that can form part of a canvas widget. + */ + +#ifdef USE_OLD_CANVAS +typedef int Tk_ItemCreateProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int argc, + char **argv)); +typedef int Tk_ItemConfigureProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int argc, + char **argv, int flags)); +typedef int Tk_ItemCoordProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int argc, + char **argv)); +#else +typedef int Tk_ItemCreateProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int argc, + Tcl_Obj *const objv[])); +typedef int Tk_ItemConfigureProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int argc, + Tcl_Obj *const objv[], int flags)); +typedef int Tk_ItemCoordProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int argc, + Tcl_Obj *const argv[])); +#endif +typedef void Tk_ItemDeleteProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, Display *display)); +typedef void Tk_ItemDisplayProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, Display *display, Drawable dst, + int x, int y, int width, int height)); +typedef double Tk_ItemPointProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, double *pointPtr)); +typedef int Tk_ItemAreaProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, double *rectPtr)); +typedef int Tk_ItemPostscriptProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, int prepass)); +typedef void Tk_ItemScaleProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, double originX, double originY, + double scaleX, double scaleY)); +typedef void Tk_ItemTranslateProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, double deltaX, double deltaY)); +typedef int Tk_ItemIndexProc _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Canvas canvas, Tk_Item *itemPtr, char *indexString, + int *indexPtr)); +typedef void Tk_ItemCursorProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, int index)); +typedef int Tk_ItemSelectionProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, int offset, char *buffer, + int maxBytes)); +typedef void Tk_ItemInsertProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, int beforeThis, char *string)); +typedef void Tk_ItemDCharsProc _ANSI_ARGS_((Tk_Canvas canvas, + Tk_Item *itemPtr, int first, int last)); + +#ifndef __NO_OLD_CONFIG + +typedef struct Tk_ItemType { + char *name; /* The name of this type of item, such as + * "line". */ + int itemSize; /* Total amount of space needed for item's + * record. */ + Tk_ItemCreateProc *createProc; + /* Procedure to create a new item of this + * type. */ + Tk_ConfigSpec *configSpecs; /* Pointer to array of configuration specs for + * this type. Used for returning configuration + * info. */ + Tk_ItemConfigureProc *configProc; + /* Procedure to call to change configuration + * options. */ + Tk_ItemCoordProc *coordProc;/* Procedure to call to get and set the item's + * coordinates. */ + Tk_ItemDeleteProc *deleteProc; + /* Procedure to delete existing item of this + * type. */ + Tk_ItemDisplayProc *displayProc; + /* Procedure to display items of this type. */ + int alwaysRedraw; /* Non-zero means displayProc should be called + * even when the item has been moved + * off-screen. */ + Tk_ItemPointProc *pointProc;/* Computes distance from item to a given + * point. */ + Tk_ItemAreaProc *areaProc; /* Computes whether item is inside, outside, + * or overlapping an area. */ + Tk_ItemPostscriptProc *postscriptProc; + /* Procedure to write a Postscript description + * for items of this type. */ + Tk_ItemScaleProc *scaleProc;/* Procedure to rescale items of this type. */ + Tk_ItemTranslateProc *translateProc; + /* Procedure to translate items of this + * type. */ + Tk_ItemIndexProc *indexProc;/* Procedure to determine index of indicated + * character. NULL if item doesn't support + * indexing. */ + Tk_ItemCursorProc *icursorProc; + /* Procedure to set insert cursor posn to just + * before a given position. */ + Tk_ItemSelectionProc *selectionProc; + /* Procedure to return selection (in STRING + * format) when it is in this item. */ + Tk_ItemInsertProc *insertProc; + /* Procedure to insert something into an + * item. */ + Tk_ItemDCharsProc *dCharsProc; + /* Procedure to delete characters from an + * item. */ + struct Tk_ItemType *nextPtr;/* Used to link types together into a list. */ + char *reserved1; /* Reserved for future extension. */ + int reserved2; /* Carefully compatible with */ + char *reserved3; /* Jan Nijtmans dash patch */ + char *reserved4; +} Tk_ItemType; + +#endif + +/* + * The following structure provides information about the selection and the + * insertion cursor. It is needed by only a few items, such as those that + * display text. It is shared by the generic canvas code and the item-specific + * code, but most of the fields should be written only by the canvas generic + * code. + */ + +typedef struct Tk_CanvasTextInfo { + Tk_3DBorder selBorder; /* Border and background for selected + * characters. Read-only to items.*/ + int selBorderWidth; /* Width of border around selection. Read-only + * to items. */ + XColor *selFgColorPtr; /* Foreground color for selected text. + * Read-only to items. */ + Tk_Item *selItemPtr; /* Pointer to selected item. NULL means + * selection isn't in this canvas. Writable by + * items. */ + int selectFirst; /* Character index of first selected + * character. Writable by items. */ + int selectLast; /* Character index of last selected character. + * Writable by items. */ + Tk_Item *anchorItemPtr; /* Item corresponding to "selectAnchor": not + * necessarily selItemPtr. Read-only to + * items. */ + int selectAnchor; /* Character index of fixed end of selection + * (i.e. "select to" operation will use this + * as one end of the selection). Writable by + * items. */ + Tk_3DBorder insertBorder; /* Used to draw vertical bar for insertion + * cursor. Read-only to items. */ + int insertWidth; /* Total width of insertion cursor. Read-only + * to items. */ + int insertBorderWidth; /* Width of 3-D border around insert cursor. + * Read-only to items. */ + Tk_Item *focusItemPtr; /* Item that currently has the input focus, or + * NULL if no such item. Read-only to items. */ + int gotFocus; /* Non-zero means that the canvas widget has + * the input focus. Read-only to items.*/ + int cursorOn; /* Non-zero means that an insertion cursor + * should be displayed in focusItemPtr. + * Read-only to items.*/ +} Tk_CanvasTextInfo; + +/* + * Structures used for Dashing and Outline. + */ + +typedef struct Tk_Dash { + int number; + union { + char *pt; + char array[sizeof(char *)]; + } pattern; +} Tk_Dash; + +typedef struct Tk_TSOffset { + int flags; /* Flags; see below for possible values */ + int xoffset; /* x offset */ + int yoffset; /* y offset */ +} Tk_TSOffset; + +/* + * Bit fields in Tk_Offset->flags: + */ + +#define TK_OFFSET_INDEX 1 +#define TK_OFFSET_RELATIVE 2 +#define TK_OFFSET_LEFT 4 +#define TK_OFFSET_CENTER 8 +#define TK_OFFSET_RIGHT 16 +#define TK_OFFSET_TOP 32 +#define TK_OFFSET_MIDDLE 64 +#define TK_OFFSET_BOTTOM 128 + +typedef struct Tk_Outline { + GC gc; /* Graphics context. */ + double width; /* Width of outline. */ + double activeWidth; /* Width of outline. */ + double disabledWidth; /* Width of outline. */ + int offset; /* Dash offset. */ + Tk_Dash dash; /* Dash pattern. */ + Tk_Dash activeDash; /* Dash pattern if state is active. */ + Tk_Dash disabledDash; /* Dash pattern if state is disabled. */ + VOID *reserved1; /* Reserved for future expansion. */ + VOID *reserved2; + VOID *reserved3; + Tk_TSOffset tsoffset; /* Stipple offset for outline. */ + XColor *color; /* Outline color. */ + XColor *activeColor; /* Outline color if state is active. */ + XColor *disabledColor; /* Outline color if state is disabled. */ + Pixmap stipple; /* Outline Stipple pattern. */ + Pixmap activeStipple; /* Outline Stipple pattern if state is + * active. */ + Pixmap disabledStipple; /* Outline Stipple pattern if state is + * disabled. */ +} Tk_Outline; + +/* + *---------------------------------------------------------------------- + * + * Procedure prototypes and structures used for managing images: + * + *---------------------------------------------------------------------- + */ + +typedef struct Tk_ImageType Tk_ImageType; +#ifdef USE_OLD_IMAGE +typedef int (Tk_ImageCreateProc) _ANSI_ARGS_((Tcl_Interp *interp, + char *name, int argc, char **argv, Tk_ImageType *typePtr, + Tk_ImageMaster master, ClientData *masterDataPtr)); +#else +typedef int (Tk_ImageCreateProc) _ANSI_ARGS_((Tcl_Interp *interp, + char *name, int objc, Tcl_Obj *const objv[], Tk_ImageType *typePtr, + Tk_ImageMaster master, ClientData *masterDataPtr)); +#endif +typedef ClientData (Tk_ImageGetProc) _ANSI_ARGS_((Tk_Window tkwin, + ClientData masterData)); +typedef void (Tk_ImageDisplayProc) _ANSI_ARGS_((ClientData instanceData, + Display *display, Drawable drawable, int imageX, int imageY, + int width, int height, int drawableX, int drawableY)); +typedef void (Tk_ImageFreeProc) _ANSI_ARGS_((ClientData instanceData, + Display *display)); +typedef void (Tk_ImageDeleteProc) _ANSI_ARGS_((ClientData masterData)); +typedef void (Tk_ImageChangedProc) _ANSI_ARGS_((ClientData clientData, + int x, int y, int width, int height, int imageWidth, + int imageHeight)); +typedef int (Tk_ImagePostscriptProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, + int x, int y, int width, int height, int prepass)); + +/* + * The following structure represents a particular type of image (bitmap, xpm + * image, etc.). It provides information common to all images of that type, + * such as the type name and a collection of procedures in the image manager + * that respond to various events. Each image manager is represented by one of + * these structures. + */ + +struct Tk_ImageType { + char *name; /* Name of image type. */ + Tk_ImageCreateProc *createProc; + /* Procedure to call to create a new image of + * this type. */ + Tk_ImageGetProc *getProc; /* Procedure to call the first time + * Tk_GetImage is called in a new way (new + * visual or screen). */ + Tk_ImageDisplayProc *displayProc; + /* Call to draw image, in response to + * Tk_RedrawImage calls. */ + Tk_ImageFreeProc *freeProc; /* Procedure to call whenever Tk_FreeImage is + * called to release an instance of an + * image. */ + Tk_ImageDeleteProc *deleteProc; + /* Procedure to call to delete image. It will + * not be called until after freeProc has been + * called for each instance of the image. */ + Tk_ImagePostscriptProc *postscriptProc; + /* Procedure to call to produce postscript + * output for the image. */ + struct Tk_ImageType *nextPtr; + /* Next in list of all image types currently + * known. Filled in by Tk, not by image + * manager. */ + char *reserved; /* reserved for future expansion */ +}; + +/* + *---------------------------------------------------------------------- + * + * Additional definitions used to manage images of type "photo". + * + *---------------------------------------------------------------------- + */ + +/* + * The following type is used to identify a particular photo image to be + * manipulated: + */ + +typedef void *Tk_PhotoHandle; + +/* + * The following structure describes a block of pixels in memory: + */ + +typedef struct Tk_PhotoImageBlock { + unsigned char *pixelPtr; /* Pointer to the first pixel. */ + int width; /* Width of block, in pixels. */ + int height; /* Height of block, in pixels. */ + int pitch; /* Address difference between corresponding + * pixels in successive lines. */ + int pixelSize; /* Address difference between successive + * pixels in the same line. */ + int offset[4]; /* Address differences between the red, green, + * blue and alpha components of the pixel and + * the pixel as a whole. */ +} Tk_PhotoImageBlock; + +/* + * The following values control how blocks are combined into photo images when + * the alpha component of a pixel is not 255, a.k.a. the compositing rule. + */ + +#define TK_PHOTO_COMPOSITE_OVERLAY 0 +#define TK_PHOTO_COMPOSITE_SET 1 + +/* + * Procedure prototypes and structures used in reading and writing photo + * images: + */ + +typedef struct Tk_PhotoImageFormat Tk_PhotoImageFormat; +#ifdef USE_OLD_IMAGE +typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((Tcl_Channel chan, + char *fileName, char *formatString, int *widthPtr, int *heightPtr)); +typedef int (Tk_ImageStringMatchProc) _ANSI_ARGS_((char *string, + char *formatString, int *widthPtr, int *heightPtr)); +typedef int (Tk_ImageFileReadProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Channel chan, char *fileName, char *formatString, + Tk_PhotoHandle imageHandle, int destX, int destY, + int width, int height, int srcX, int srcY)); +typedef int (Tk_ImageStringReadProc) _ANSI_ARGS_((Tcl_Interp *interp, + char *string, char *formatString, Tk_PhotoHandle imageHandle, + int destX, int destY, int width, int height, int srcX, int srcY)); +typedef int (Tk_ImageFileWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, + char *fileName, char *formatString, Tk_PhotoImageBlock *blockPtr)); +typedef int (Tk_ImageStringWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_DString *dataPtr, char *formatString, + Tk_PhotoImageBlock *blockPtr)); +#else +typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((Tcl_Channel chan, + const char *fileName, Tcl_Obj *format, int *widthPtr, + int *heightPtr, Tcl_Interp *interp)); +typedef int (Tk_ImageStringMatchProc) _ANSI_ARGS_((Tcl_Obj *dataObj, + Tcl_Obj *format, int *widthPtr, int *heightPtr, + Tcl_Interp *interp)); +typedef int (Tk_ImageFileReadProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Channel chan, const char *fileName, Tcl_Obj *format, + Tk_PhotoHandle imageHandle, int destX, int destY, + int width, int height, int srcX, int srcY)); +typedef int (Tk_ImageStringReadProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *dataObj, Tcl_Obj *format, Tk_PhotoHandle imageHandle, + int destX, int destY, int width, int height, int srcX, int srcY)); +typedef int (Tk_ImageFileWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, + const char *fileName, Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr)); +typedef int (Tk_ImageStringWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr)); +#endif + +/* + * The following structure represents a particular file format for storing + * images (e.g., PPM, GIF, JPEG, etc.). It provides information to allow image + * files of that format to be recognized and read into a photo image. + */ + +struct Tk_PhotoImageFormat { + char *name; /* Name of image file format */ + Tk_ImageFileMatchProc *fileMatchProc; + /* Procedure to call to determine whether an + * image file matches this format. */ + Tk_ImageStringMatchProc *stringMatchProc; + /* Procedure to call to determine whether the + * data in a string matches this format. */ + Tk_ImageFileReadProc *fileReadProc; + /* Procedure to call to read data from an + * image file into a photo image. */ + Tk_ImageStringReadProc *stringReadProc; + /* Procedure to call to read data from a + * string into a photo image. */ + Tk_ImageFileWriteProc *fileWriteProc; + /* Procedure to call to write data from a + * photo image to a file. */ + Tk_ImageStringWriteProc *stringWriteProc; + /* Procedure to call to obtain a string + * representation of the data in a photo + * image.*/ + struct Tk_PhotoImageFormat *nextPtr; + /* Next in list of all photo image formats + * currently known. Filled in by Tk, not by + * image format handler. */ +}; + +/* + *---------------------------------------------------------------------- + * + * Procedure prototypes and structures used for managing styles: + * + *---------------------------------------------------------------------- + */ + +/* + * Style support version tag. + */ + +#define TK_STYLE_VERSION_1 0x1 +#define TK_STYLE_VERSION TK_STYLE_VERSION_1 + +/* + * The following structures and prototypes are used as static templates to + * declare widget elements. + */ + +typedef void (Tk_GetElementSizeProc) _ANSI_ARGS_((ClientData clientData, + char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, + int width, int height, int inner, int *widthPtr, int *heightPtr)); +typedef void (Tk_GetElementBoxProc) _ANSI_ARGS_((ClientData clientData, + char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, + int x, int y, int width, int height, int inner, int *xPtr, int *yPtr, + int *widthPtr, int *heightPtr)); +typedef int (Tk_GetElementBorderWidthProc) _ANSI_ARGS_((ClientData clientData, + char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin)); +typedef void (Tk_DrawElementProc) _ANSI_ARGS_((ClientData clientData, + char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, + Drawable d, int x, int y, int width, int height, int state)); + +typedef struct Tk_ElementOptionSpec { + char *name; /* Name of the required option. */ + Tk_OptionType type; /* Accepted option type. TK_OPTION_END means + * any. */ +} Tk_ElementOptionSpec; + +typedef struct Tk_ElementSpec { + int version; /* Version of the style support. */ + char *name; /* Name of element. */ + Tk_ElementOptionSpec *options; + /* List of required options. Last one's name + * must be NULL. */ + Tk_GetElementSizeProc *getSize; + /* Compute the external (resp. internal) size + * of the element from its desired internal + * (resp. external) size. */ + Tk_GetElementBoxProc *getBox; + /* Compute the inscribed or bounding boxes + * within a given area. */ + Tk_GetElementBorderWidthProc *getBorderWidth; + /* Return the element's internal border width. + * Mostly useful for widgets. */ + Tk_DrawElementProc *draw; /* Draw the element in the given bounding + * box. */ +} Tk_ElementSpec; + +/* + * Element state flags. Can be OR'ed. + */ + +#define TK_ELEMENT_STATE_ACTIVE 1<<0 +#define TK_ELEMENT_STATE_DISABLED 1<<1 +#define TK_ELEMENT_STATE_FOCUS 1<<2 +#define TK_ELEMENT_STATE_PRESSED 1<<3 + +/* + *---------------------------------------------------------------------- + * + * The definitions below provide backward compatibility for functions and + * types related to event handling that used to be in Tk but have moved to + * Tcl. + * + *---------------------------------------------------------------------- + */ + +#define TK_READABLE TCL_READABLE +#define TK_WRITABLE TCL_WRITABLE +#define TK_EXCEPTION TCL_EXCEPTION + +#define TK_DONT_WAIT TCL_DONT_WAIT +#define TK_X_EVENTS TCL_WINDOW_EVENTS +#define TK_WINDOW_EVENTS TCL_WINDOW_EVENTS +#define TK_FILE_EVENTS TCL_FILE_EVENTS +#define TK_TIMER_EVENTS TCL_TIMER_EVENTS +#define TK_IDLE_EVENTS TCL_IDLE_EVENTS +#define TK_ALL_EVENTS TCL_ALL_EVENTS + +#define Tk_IdleProc Tcl_IdleProc +#define Tk_FileProc Tcl_FileProc +#define Tk_TimerProc Tcl_TimerProc +#define Tk_TimerToken Tcl_TimerToken + +#define Tk_BackgroundError Tcl_BackgroundError +#define Tk_CancelIdleCall Tcl_CancelIdleCall +#define Tk_CreateFileHandler Tcl_CreateFileHandler +#define Tk_CreateTimerHandler Tcl_CreateTimerHandler +#define Tk_DeleteFileHandler Tcl_DeleteFileHandler +#define Tk_DeleteTimerHandler Tcl_DeleteTimerHandler +#define Tk_DoOneEvent Tcl_DoOneEvent +#define Tk_DoWhenIdle Tcl_DoWhenIdle +#define Tk_Sleep Tcl_Sleep + +/* Additional stuff that has moved to Tcl: */ + +#define Tk_EventuallyFree Tcl_EventuallyFree +#define Tk_FreeProc Tcl_FreeProc +#define Tk_Preserve Tcl_Preserve +#define Tk_Release Tcl_Release + +/* Removed Tk_Main, use macro instead */ +#define Tk_Main(argc, argv, proc) \ + Tk_MainEx(argc, argv, proc, Tcl_CreateInterp()) + +const char * Tk_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, + const char *version, int exact)); +EXTERN const char * Tk_PkgInitStubsCheck _ANSI_ARGS_((Tcl_Interp *interp, + const char *version, int exact)); + +#ifndef USE_TK_STUBS +#define Tk_InitStubs(interp, version, exact) \ + Tk_PkgInitStubsCheck(interp, version, exact) +#endif /* USE_TK_STUBS */ + +#define Tk_InitImageArgs(interp, argc, argv) /**/ + +/* + *---------------------------------------------------------------------- + * + * Additional procedure types defined by Tk. + * + *---------------------------------------------------------------------- + */ + +typedef int (Tk_ErrorProc) _ANSI_ARGS_((ClientData clientData, + XErrorEvent *errEventPtr)); +typedef void (Tk_EventProc) _ANSI_ARGS_((ClientData clientData, + XEvent *eventPtr)); +typedef int (Tk_GenericProc) _ANSI_ARGS_((ClientData clientData, + XEvent *eventPtr)); +typedef int (Tk_ClientMessageProc) _ANSI_ARGS_((Tk_Window tkwin, + XEvent *eventPtr)); +typedef int (Tk_GetSelProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, char *portion)); +typedef void (Tk_LostSelProc) _ANSI_ARGS_((ClientData clientData)); +typedef Tk_RestrictAction (Tk_RestrictProc) _ANSI_ARGS_(( + ClientData clientData, XEvent *eventPtr)); +typedef int (Tk_SelectionProc) _ANSI_ARGS_((ClientData clientData, + int offset, char *buffer, int maxBytes)); + +/* + *---------------------------------------------------------------------- + * + * Platform independent exported procedures and variables. + * + *---------------------------------------------------------------------- + */ + +#include "tkDecls.h" + +#ifdef USE_OLD_IMAGE +#undef Tk_CreateImageType +#define Tk_CreateImageType Tk_CreateOldImageType +#undef Tk_CreatePhotoImageFormat +#define Tk_CreatePhotoImageFormat Tk_CreateOldPhotoImageFormat +#endif /* USE_OLD_IMAGE */ + +/* + *---------------------------------------------------------------------- + * + * Allow users to say that they don't want to alter their source to add extra + * arguments to Tk_PhotoPutBlock() et al; DO NOT DEFINE THIS WHEN BUILDING TK. + * + * This goes after the inclusion of the stubbed-decls so that the declarations + * of what is actually there can be correct. + */ + +#ifdef USE_COMPOSITELESS_PHOTO_PUT_BLOCK +# ifdef Tk_PhotoPutBlock +# undef Tk_PhotoPutBlock +# endif +# define Tk_PhotoPutBlock Tk_PhotoPutBlock_NoComposite +# ifdef Tk_PhotoPutZoomedBlock +# undef Tk_PhotoPutZoomedBlock +# endif +# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_NoComposite +# define USE_PANIC_ON_PHOTO_ALLOC_FAILURE +#else /* !USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ +# ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE +# ifdef Tk_PhotoPutBlock +# undef Tk_PhotoPutBlock +# endif +# define Tk_PhotoPutBlock Tk_PhotoPutBlock_Panic +# ifdef Tk_PhotoPutZoomedBlock +# undef Tk_PhotoPutZoomedBlock +# endif +# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_Panic +# endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ +#endif /* USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ +#ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE +# ifdef Tk_PhotoExpand +# undef Tk_PhotoExpand +# endif +# define Tk_PhotoExpand Tk_PhotoExpand_Panic +# ifdef Tk_PhotoSetSize +# undef Tk_PhotoSetSize +# endif +# define Tk_PhotoSetSize Tk_PhotoSetSize_Panic +#endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* RC_INVOKED */ + +/* + * end block for C++ + */ + +#ifdef __cplusplus +} +#endif + +#endif /* _TK */ + +/* + * Local Variables: + * mode: c + * c-basic-offset: 4 + * fill-column: 78 + * End: + */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tkDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tkDecls.h new file mode 100644 index 00000000..00a3dde6 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tkDecls.h @@ -0,0 +1,3095 @@ +/* + * tkDecls.h -- + * + * Declarations of functions in the platform independent public Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TKDECLS +#define _TKDECLS + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tk.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * Exported function declarations: + */ + +#ifndef Tk_MainLoop_TCL_DECLARED +#define Tk_MainLoop_TCL_DECLARED +/* 0 */ +EXTERN void Tk_MainLoop(void); +#endif +#ifndef Tk_3DBorderColor_TCL_DECLARED +#define Tk_3DBorderColor_TCL_DECLARED +/* 1 */ +EXTERN XColor * Tk_3DBorderColor(Tk_3DBorder border); +#endif +#ifndef Tk_3DBorderGC_TCL_DECLARED +#define Tk_3DBorderGC_TCL_DECLARED +/* 2 */ +EXTERN GC Tk_3DBorderGC(Tk_Window tkwin, Tk_3DBorder border, + int which); +#endif +#ifndef Tk_3DHorizontalBevel_TCL_DECLARED +#define Tk_3DHorizontalBevel_TCL_DECLARED +/* 3 */ +EXTERN void Tk_3DHorizontalBevel(Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, int leftIn, + int rightIn, int topBevel, int relief); +#endif +#ifndef Tk_3DVerticalBevel_TCL_DECLARED +#define Tk_3DVerticalBevel_TCL_DECLARED +/* 4 */ +EXTERN void Tk_3DVerticalBevel(Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, int leftBevel, + int relief); +#endif +#ifndef Tk_AddOption_TCL_DECLARED +#define Tk_AddOption_TCL_DECLARED +/* 5 */ +EXTERN void Tk_AddOption(Tk_Window tkwin, CONST char *name, + CONST char *value, int priority); +#endif +#ifndef Tk_BindEvent_TCL_DECLARED +#define Tk_BindEvent_TCL_DECLARED +/* 6 */ +EXTERN void Tk_BindEvent(Tk_BindingTable bindingTable, + XEvent *eventPtr, Tk_Window tkwin, + int numObjects, ClientData *objectPtr); +#endif +#ifndef Tk_CanvasDrawableCoords_TCL_DECLARED +#define Tk_CanvasDrawableCoords_TCL_DECLARED +/* 7 */ +EXTERN void Tk_CanvasDrawableCoords(Tk_Canvas canvas, double x, + double y, short *drawableXPtr, + short *drawableYPtr); +#endif +#ifndef Tk_CanvasEventuallyRedraw_TCL_DECLARED +#define Tk_CanvasEventuallyRedraw_TCL_DECLARED +/* 8 */ +EXTERN void Tk_CanvasEventuallyRedraw(Tk_Canvas canvas, int x1, + int y1, int x2, int y2); +#endif +#ifndef Tk_CanvasGetCoord_TCL_DECLARED +#define Tk_CanvasGetCoord_TCL_DECLARED +/* 9 */ +EXTERN int Tk_CanvasGetCoord(Tcl_Interp *interp, + Tk_Canvas canvas, CONST char *str, + double *doublePtr); +#endif +#ifndef Tk_CanvasGetTextInfo_TCL_DECLARED +#define Tk_CanvasGetTextInfo_TCL_DECLARED +/* 10 */ +EXTERN Tk_CanvasTextInfo * Tk_CanvasGetTextInfo(Tk_Canvas canvas); +#endif +#ifndef Tk_CanvasPsBitmap_TCL_DECLARED +#define Tk_CanvasPsBitmap_TCL_DECLARED +/* 11 */ +EXTERN int Tk_CanvasPsBitmap(Tcl_Interp *interp, + Tk_Canvas canvas, Pixmap bitmap, int x, + int y, int width, int height); +#endif +#ifndef Tk_CanvasPsColor_TCL_DECLARED +#define Tk_CanvasPsColor_TCL_DECLARED +/* 12 */ +EXTERN int Tk_CanvasPsColor(Tcl_Interp *interp, + Tk_Canvas canvas, XColor *colorPtr); +#endif +#ifndef Tk_CanvasPsFont_TCL_DECLARED +#define Tk_CanvasPsFont_TCL_DECLARED +/* 13 */ +EXTERN int Tk_CanvasPsFont(Tcl_Interp *interp, Tk_Canvas canvas, + Tk_Font font); +#endif +#ifndef Tk_CanvasPsPath_TCL_DECLARED +#define Tk_CanvasPsPath_TCL_DECLARED +/* 14 */ +EXTERN void Tk_CanvasPsPath(Tcl_Interp *interp, Tk_Canvas canvas, + double *coordPtr, int numPoints); +#endif +#ifndef Tk_CanvasPsStipple_TCL_DECLARED +#define Tk_CanvasPsStipple_TCL_DECLARED +/* 15 */ +EXTERN int Tk_CanvasPsStipple(Tcl_Interp *interp, + Tk_Canvas canvas, Pixmap bitmap); +#endif +#ifndef Tk_CanvasPsY_TCL_DECLARED +#define Tk_CanvasPsY_TCL_DECLARED +/* 16 */ +EXTERN double Tk_CanvasPsY(Tk_Canvas canvas, double y); +#endif +#ifndef Tk_CanvasSetStippleOrigin_TCL_DECLARED +#define Tk_CanvasSetStippleOrigin_TCL_DECLARED +/* 17 */ +EXTERN void Tk_CanvasSetStippleOrigin(Tk_Canvas canvas, GC gc); +#endif +#ifndef Tk_CanvasTagsParseProc_TCL_DECLARED +#define Tk_CanvasTagsParseProc_TCL_DECLARED +/* 18 */ +EXTERN int Tk_CanvasTagsParseProc(ClientData clientData, + Tcl_Interp *interp, Tk_Window tkwin, + CONST char *value, char *widgRec, int offset); +#endif +#ifndef Tk_CanvasTagsPrintProc_TCL_DECLARED +#define Tk_CanvasTagsPrintProc_TCL_DECLARED +/* 19 */ +EXTERN char * Tk_CanvasTagsPrintProc(ClientData clientData, + Tk_Window tkwin, char *widgRec, int offset, + Tcl_FreeProc **freeProcPtr); +#endif +#ifndef Tk_CanvasTkwin_TCL_DECLARED +#define Tk_CanvasTkwin_TCL_DECLARED +/* 20 */ +EXTERN Tk_Window Tk_CanvasTkwin(Tk_Canvas canvas); +#endif +#ifndef Tk_CanvasWindowCoords_TCL_DECLARED +#define Tk_CanvasWindowCoords_TCL_DECLARED +/* 21 */ +EXTERN void Tk_CanvasWindowCoords(Tk_Canvas canvas, double x, + double y, short *screenXPtr, + short *screenYPtr); +#endif +#ifndef Tk_ChangeWindowAttributes_TCL_DECLARED +#define Tk_ChangeWindowAttributes_TCL_DECLARED +/* 22 */ +EXTERN void Tk_ChangeWindowAttributes(Tk_Window tkwin, + unsigned long valueMask, + XSetWindowAttributes *attsPtr); +#endif +#ifndef Tk_CharBbox_TCL_DECLARED +#define Tk_CharBbox_TCL_DECLARED +/* 23 */ +EXTERN int Tk_CharBbox(Tk_TextLayout layout, int index, + int *xPtr, int *yPtr, int *widthPtr, + int *heightPtr); +#endif +#ifndef Tk_ClearSelection_TCL_DECLARED +#define Tk_ClearSelection_TCL_DECLARED +/* 24 */ +EXTERN void Tk_ClearSelection(Tk_Window tkwin, Atom selection); +#endif +#ifndef Tk_ClipboardAppend_TCL_DECLARED +#define Tk_ClipboardAppend_TCL_DECLARED +/* 25 */ +EXTERN int Tk_ClipboardAppend(Tcl_Interp *interp, + Tk_Window tkwin, Atom target, Atom format, + char *buffer); +#endif +#ifndef Tk_ClipboardClear_TCL_DECLARED +#define Tk_ClipboardClear_TCL_DECLARED +/* 26 */ +EXTERN int Tk_ClipboardClear(Tcl_Interp *interp, + Tk_Window tkwin); +#endif +#ifndef Tk_ConfigureInfo_TCL_DECLARED +#define Tk_ConfigureInfo_TCL_DECLARED +/* 27 */ +EXTERN int Tk_ConfigureInfo(Tcl_Interp *interp, Tk_Window tkwin, + Tk_ConfigSpec *specs, char *widgRec, + CONST char *argvName, int flags); +#endif +#ifndef Tk_ConfigureValue_TCL_DECLARED +#define Tk_ConfigureValue_TCL_DECLARED +/* 28 */ +EXTERN int Tk_ConfigureValue(Tcl_Interp *interp, + Tk_Window tkwin, Tk_ConfigSpec *specs, + char *widgRec, CONST char *argvName, + int flags); +#endif +#ifndef Tk_ConfigureWidget_TCL_DECLARED +#define Tk_ConfigureWidget_TCL_DECLARED +/* 29 */ +EXTERN int Tk_ConfigureWidget(Tcl_Interp *interp, + Tk_Window tkwin, Tk_ConfigSpec *specs, + int argc, CONST84 char **argv, char *widgRec, + int flags); +#endif +#ifndef Tk_ConfigureWindow_TCL_DECLARED +#define Tk_ConfigureWindow_TCL_DECLARED +/* 30 */ +EXTERN void Tk_ConfigureWindow(Tk_Window tkwin, + unsigned int valueMask, + XWindowChanges *valuePtr); +#endif +#ifndef Tk_ComputeTextLayout_TCL_DECLARED +#define Tk_ComputeTextLayout_TCL_DECLARED +/* 31 */ +EXTERN Tk_TextLayout Tk_ComputeTextLayout(Tk_Font font, CONST char *str, + int numChars, int wrapLength, + Tk_Justify justify, int flags, int *widthPtr, + int *heightPtr); +#endif +#ifndef Tk_CoordsToWindow_TCL_DECLARED +#define Tk_CoordsToWindow_TCL_DECLARED +/* 32 */ +EXTERN Tk_Window Tk_CoordsToWindow(int rootX, int rootY, + Tk_Window tkwin); +#endif +#ifndef Tk_CreateBinding_TCL_DECLARED +#define Tk_CreateBinding_TCL_DECLARED +/* 33 */ +EXTERN unsigned long Tk_CreateBinding(Tcl_Interp *interp, + Tk_BindingTable bindingTable, + ClientData object, CONST char *eventStr, + CONST char *command, int append); +#endif +#ifndef Tk_CreateBindingTable_TCL_DECLARED +#define Tk_CreateBindingTable_TCL_DECLARED +/* 34 */ +EXTERN Tk_BindingTable Tk_CreateBindingTable(Tcl_Interp *interp); +#endif +#ifndef Tk_CreateErrorHandler_TCL_DECLARED +#define Tk_CreateErrorHandler_TCL_DECLARED +/* 35 */ +EXTERN Tk_ErrorHandler Tk_CreateErrorHandler(Display *display, int errNum, + int request, int minorCode, + Tk_ErrorProc *errorProc, + ClientData clientData); +#endif +#ifndef Tk_CreateEventHandler_TCL_DECLARED +#define Tk_CreateEventHandler_TCL_DECLARED +/* 36 */ +EXTERN void Tk_CreateEventHandler(Tk_Window token, + unsigned long mask, Tk_EventProc *proc, + ClientData clientData); +#endif +#ifndef Tk_CreateGenericHandler_TCL_DECLARED +#define Tk_CreateGenericHandler_TCL_DECLARED +/* 37 */ +EXTERN void Tk_CreateGenericHandler(Tk_GenericProc *proc, + ClientData clientData); +#endif +#ifndef Tk_CreateImageType_TCL_DECLARED +#define Tk_CreateImageType_TCL_DECLARED +/* 38 */ +EXTERN void Tk_CreateImageType(Tk_ImageType *typePtr); +#endif +#ifndef Tk_CreateItemType_TCL_DECLARED +#define Tk_CreateItemType_TCL_DECLARED +/* 39 */ +EXTERN void Tk_CreateItemType(Tk_ItemType *typePtr); +#endif +#ifndef Tk_CreatePhotoImageFormat_TCL_DECLARED +#define Tk_CreatePhotoImageFormat_TCL_DECLARED +/* 40 */ +EXTERN void Tk_CreatePhotoImageFormat( + Tk_PhotoImageFormat *formatPtr); +#endif +#ifndef Tk_CreateSelHandler_TCL_DECLARED +#define Tk_CreateSelHandler_TCL_DECLARED +/* 41 */ +EXTERN void Tk_CreateSelHandler(Tk_Window tkwin, Atom selection, + Atom target, Tk_SelectionProc *proc, + ClientData clientData, Atom format); +#endif +#ifndef Tk_CreateWindow_TCL_DECLARED +#define Tk_CreateWindow_TCL_DECLARED +/* 42 */ +EXTERN Tk_Window Tk_CreateWindow(Tcl_Interp *interp, Tk_Window parent, + CONST char *name, CONST char *screenName); +#endif +#ifndef Tk_CreateWindowFromPath_TCL_DECLARED +#define Tk_CreateWindowFromPath_TCL_DECLARED +/* 43 */ +EXTERN Tk_Window Tk_CreateWindowFromPath(Tcl_Interp *interp, + Tk_Window tkwin, CONST char *pathName, + CONST char *screenName); +#endif +#ifndef Tk_DefineBitmap_TCL_DECLARED +#define Tk_DefineBitmap_TCL_DECLARED +/* 44 */ +EXTERN int Tk_DefineBitmap(Tcl_Interp *interp, CONST char *name, + CONST char *source, int width, int height); +#endif +#ifndef Tk_DefineCursor_TCL_DECLARED +#define Tk_DefineCursor_TCL_DECLARED +/* 45 */ +EXTERN void Tk_DefineCursor(Tk_Window window, Tk_Cursor cursor); +#endif +#ifndef Tk_DeleteAllBindings_TCL_DECLARED +#define Tk_DeleteAllBindings_TCL_DECLARED +/* 46 */ +EXTERN void Tk_DeleteAllBindings(Tk_BindingTable bindingTable, + ClientData object); +#endif +#ifndef Tk_DeleteBinding_TCL_DECLARED +#define Tk_DeleteBinding_TCL_DECLARED +/* 47 */ +EXTERN int Tk_DeleteBinding(Tcl_Interp *interp, + Tk_BindingTable bindingTable, + ClientData object, CONST char *eventStr); +#endif +#ifndef Tk_DeleteBindingTable_TCL_DECLARED +#define Tk_DeleteBindingTable_TCL_DECLARED +/* 48 */ +EXTERN void Tk_DeleteBindingTable(Tk_BindingTable bindingTable); +#endif +#ifndef Tk_DeleteErrorHandler_TCL_DECLARED +#define Tk_DeleteErrorHandler_TCL_DECLARED +/* 49 */ +EXTERN void Tk_DeleteErrorHandler(Tk_ErrorHandler handler); +#endif +#ifndef Tk_DeleteEventHandler_TCL_DECLARED +#define Tk_DeleteEventHandler_TCL_DECLARED +/* 50 */ +EXTERN void Tk_DeleteEventHandler(Tk_Window token, + unsigned long mask, Tk_EventProc *proc, + ClientData clientData); +#endif +#ifndef Tk_DeleteGenericHandler_TCL_DECLARED +#define Tk_DeleteGenericHandler_TCL_DECLARED +/* 51 */ +EXTERN void Tk_DeleteGenericHandler(Tk_GenericProc *proc, + ClientData clientData); +#endif +#ifndef Tk_DeleteImage_TCL_DECLARED +#define Tk_DeleteImage_TCL_DECLARED +/* 52 */ +EXTERN void Tk_DeleteImage(Tcl_Interp *interp, CONST char *name); +#endif +#ifndef Tk_DeleteSelHandler_TCL_DECLARED +#define Tk_DeleteSelHandler_TCL_DECLARED +/* 53 */ +EXTERN void Tk_DeleteSelHandler(Tk_Window tkwin, Atom selection, + Atom target); +#endif +#ifndef Tk_DestroyWindow_TCL_DECLARED +#define Tk_DestroyWindow_TCL_DECLARED +/* 54 */ +EXTERN void Tk_DestroyWindow(Tk_Window tkwin); +#endif +#ifndef Tk_DisplayName_TCL_DECLARED +#define Tk_DisplayName_TCL_DECLARED +/* 55 */ +EXTERN CONST84_RETURN char * Tk_DisplayName(Tk_Window tkwin); +#endif +#ifndef Tk_DistanceToTextLayout_TCL_DECLARED +#define Tk_DistanceToTextLayout_TCL_DECLARED +/* 56 */ +EXTERN int Tk_DistanceToTextLayout(Tk_TextLayout layout, int x, + int y); +#endif +#ifndef Tk_Draw3DPolygon_TCL_DECLARED +#define Tk_Draw3DPolygon_TCL_DECLARED +/* 57 */ +EXTERN void Tk_Draw3DPolygon(Tk_Window tkwin, Drawable drawable, + Tk_3DBorder border, XPoint *pointPtr, + int numPoints, int borderWidth, + int leftRelief); +#endif +#ifndef Tk_Draw3DRectangle_TCL_DECLARED +#define Tk_Draw3DRectangle_TCL_DECLARED +/* 58 */ +EXTERN void Tk_Draw3DRectangle(Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, + int borderWidth, int relief); +#endif +#ifndef Tk_DrawChars_TCL_DECLARED +#define Tk_DrawChars_TCL_DECLARED +/* 59 */ +EXTERN void Tk_DrawChars(Display *display, Drawable drawable, + GC gc, Tk_Font tkfont, CONST char *source, + int numBytes, int x, int y); +#endif +#ifndef Tk_DrawFocusHighlight_TCL_DECLARED +#define Tk_DrawFocusHighlight_TCL_DECLARED +/* 60 */ +EXTERN void Tk_DrawFocusHighlight(Tk_Window tkwin, GC gc, + int width, Drawable drawable); +#endif +#ifndef Tk_DrawTextLayout_TCL_DECLARED +#define Tk_DrawTextLayout_TCL_DECLARED +/* 61 */ +EXTERN void Tk_DrawTextLayout(Display *display, + Drawable drawable, GC gc, + Tk_TextLayout layout, int x, int y, + int firstChar, int lastChar); +#endif +#ifndef Tk_Fill3DPolygon_TCL_DECLARED +#define Tk_Fill3DPolygon_TCL_DECLARED +/* 62 */ +EXTERN void Tk_Fill3DPolygon(Tk_Window tkwin, Drawable drawable, + Tk_3DBorder border, XPoint *pointPtr, + int numPoints, int borderWidth, + int leftRelief); +#endif +#ifndef Tk_Fill3DRectangle_TCL_DECLARED +#define Tk_Fill3DRectangle_TCL_DECLARED +/* 63 */ +EXTERN void Tk_Fill3DRectangle(Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, + int borderWidth, int relief); +#endif +#ifndef Tk_FindPhoto_TCL_DECLARED +#define Tk_FindPhoto_TCL_DECLARED +/* 64 */ +EXTERN Tk_PhotoHandle Tk_FindPhoto(Tcl_Interp *interp, + CONST char *imageName); +#endif +#ifndef Tk_FontId_TCL_DECLARED +#define Tk_FontId_TCL_DECLARED +/* 65 */ +EXTERN Font Tk_FontId(Tk_Font font); +#endif +#ifndef Tk_Free3DBorder_TCL_DECLARED +#define Tk_Free3DBorder_TCL_DECLARED +/* 66 */ +EXTERN void Tk_Free3DBorder(Tk_3DBorder border); +#endif +#ifndef Tk_FreeBitmap_TCL_DECLARED +#define Tk_FreeBitmap_TCL_DECLARED +/* 67 */ +EXTERN void Tk_FreeBitmap(Display *display, Pixmap bitmap); +#endif +#ifndef Tk_FreeColor_TCL_DECLARED +#define Tk_FreeColor_TCL_DECLARED +/* 68 */ +EXTERN void Tk_FreeColor(XColor *colorPtr); +#endif +#ifndef Tk_FreeColormap_TCL_DECLARED +#define Tk_FreeColormap_TCL_DECLARED +/* 69 */ +EXTERN void Tk_FreeColormap(Display *display, Colormap colormap); +#endif +#ifndef Tk_FreeCursor_TCL_DECLARED +#define Tk_FreeCursor_TCL_DECLARED +/* 70 */ +EXTERN void Tk_FreeCursor(Display *display, Tk_Cursor cursor); +#endif +#ifndef Tk_FreeFont_TCL_DECLARED +#define Tk_FreeFont_TCL_DECLARED +/* 71 */ +EXTERN void Tk_FreeFont(Tk_Font f); +#endif +#ifndef Tk_FreeGC_TCL_DECLARED +#define Tk_FreeGC_TCL_DECLARED +/* 72 */ +EXTERN void Tk_FreeGC(Display *display, GC gc); +#endif +#ifndef Tk_FreeImage_TCL_DECLARED +#define Tk_FreeImage_TCL_DECLARED +/* 73 */ +EXTERN void Tk_FreeImage(Tk_Image image); +#endif +#ifndef Tk_FreeOptions_TCL_DECLARED +#define Tk_FreeOptions_TCL_DECLARED +/* 74 */ +EXTERN void Tk_FreeOptions(Tk_ConfigSpec *specs, char *widgRec, + Display *display, int needFlags); +#endif +#ifndef Tk_FreePixmap_TCL_DECLARED +#define Tk_FreePixmap_TCL_DECLARED +/* 75 */ +EXTERN void Tk_FreePixmap(Display *display, Pixmap pixmap); +#endif +#ifndef Tk_FreeTextLayout_TCL_DECLARED +#define Tk_FreeTextLayout_TCL_DECLARED +/* 76 */ +EXTERN void Tk_FreeTextLayout(Tk_TextLayout textLayout); +#endif +#ifndef Tk_FreeXId_TCL_DECLARED +#define Tk_FreeXId_TCL_DECLARED +/* 77 */ +EXTERN void Tk_FreeXId(Display *display, XID xid); +#endif +#ifndef Tk_GCForColor_TCL_DECLARED +#define Tk_GCForColor_TCL_DECLARED +/* 78 */ +EXTERN GC Tk_GCForColor(XColor *colorPtr, Drawable drawable); +#endif +#ifndef Tk_GeometryRequest_TCL_DECLARED +#define Tk_GeometryRequest_TCL_DECLARED +/* 79 */ +EXTERN void Tk_GeometryRequest(Tk_Window tkwin, int reqWidth, + int reqHeight); +#endif +#ifndef Tk_Get3DBorder_TCL_DECLARED +#define Tk_Get3DBorder_TCL_DECLARED +/* 80 */ +EXTERN Tk_3DBorder Tk_Get3DBorder(Tcl_Interp *interp, Tk_Window tkwin, + Tk_Uid colorName); +#endif +#ifndef Tk_GetAllBindings_TCL_DECLARED +#define Tk_GetAllBindings_TCL_DECLARED +/* 81 */ +EXTERN void Tk_GetAllBindings(Tcl_Interp *interp, + Tk_BindingTable bindingTable, + ClientData object); +#endif +#ifndef Tk_GetAnchor_TCL_DECLARED +#define Tk_GetAnchor_TCL_DECLARED +/* 82 */ +EXTERN int Tk_GetAnchor(Tcl_Interp *interp, CONST char *str, + Tk_Anchor *anchorPtr); +#endif +#ifndef Tk_GetAtomName_TCL_DECLARED +#define Tk_GetAtomName_TCL_DECLARED +/* 83 */ +EXTERN CONST84_RETURN char * Tk_GetAtomName(Tk_Window tkwin, Atom atom); +#endif +#ifndef Tk_GetBinding_TCL_DECLARED +#define Tk_GetBinding_TCL_DECLARED +/* 84 */ +EXTERN CONST84_RETURN char * Tk_GetBinding(Tcl_Interp *interp, + Tk_BindingTable bindingTable, + ClientData object, CONST char *eventStr); +#endif +#ifndef Tk_GetBitmap_TCL_DECLARED +#define Tk_GetBitmap_TCL_DECLARED +/* 85 */ +EXTERN Pixmap Tk_GetBitmap(Tcl_Interp *interp, Tk_Window tkwin, + CONST char *str); +#endif +#ifndef Tk_GetBitmapFromData_TCL_DECLARED +#define Tk_GetBitmapFromData_TCL_DECLARED +/* 86 */ +EXTERN Pixmap Tk_GetBitmapFromData(Tcl_Interp *interp, + Tk_Window tkwin, CONST char *source, + int width, int height); +#endif +#ifndef Tk_GetCapStyle_TCL_DECLARED +#define Tk_GetCapStyle_TCL_DECLARED +/* 87 */ +EXTERN int Tk_GetCapStyle(Tcl_Interp *interp, CONST char *str, + int *capPtr); +#endif +#ifndef Tk_GetColor_TCL_DECLARED +#define Tk_GetColor_TCL_DECLARED +/* 88 */ +EXTERN XColor * Tk_GetColor(Tcl_Interp *interp, Tk_Window tkwin, + Tk_Uid name); +#endif +#ifndef Tk_GetColorByValue_TCL_DECLARED +#define Tk_GetColorByValue_TCL_DECLARED +/* 89 */ +EXTERN XColor * Tk_GetColorByValue(Tk_Window tkwin, XColor *colorPtr); +#endif +#ifndef Tk_GetColormap_TCL_DECLARED +#define Tk_GetColormap_TCL_DECLARED +/* 90 */ +EXTERN Colormap Tk_GetColormap(Tcl_Interp *interp, Tk_Window tkwin, + CONST char *str); +#endif +#ifndef Tk_GetCursor_TCL_DECLARED +#define Tk_GetCursor_TCL_DECLARED +/* 91 */ +EXTERN Tk_Cursor Tk_GetCursor(Tcl_Interp *interp, Tk_Window tkwin, + Tk_Uid str); +#endif +#ifndef Tk_GetCursorFromData_TCL_DECLARED +#define Tk_GetCursorFromData_TCL_DECLARED +/* 92 */ +EXTERN Tk_Cursor Tk_GetCursorFromData(Tcl_Interp *interp, + Tk_Window tkwin, CONST char *source, + CONST char *mask, int width, int height, + int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); +#endif +#ifndef Tk_GetFont_TCL_DECLARED +#define Tk_GetFont_TCL_DECLARED +/* 93 */ +EXTERN Tk_Font Tk_GetFont(Tcl_Interp *interp, Tk_Window tkwin, + CONST char *str); +#endif +#ifndef Tk_GetFontFromObj_TCL_DECLARED +#define Tk_GetFontFromObj_TCL_DECLARED +/* 94 */ +EXTERN Tk_Font Tk_GetFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); +#endif +#ifndef Tk_GetFontMetrics_TCL_DECLARED +#define Tk_GetFontMetrics_TCL_DECLARED +/* 95 */ +EXTERN void Tk_GetFontMetrics(Tk_Font font, + Tk_FontMetrics *fmPtr); +#endif +#ifndef Tk_GetGC_TCL_DECLARED +#define Tk_GetGC_TCL_DECLARED +/* 96 */ +EXTERN GC Tk_GetGC(Tk_Window tkwin, unsigned long valueMask, + XGCValues *valuePtr); +#endif +#ifndef Tk_GetImage_TCL_DECLARED +#define Tk_GetImage_TCL_DECLARED +/* 97 */ +EXTERN Tk_Image Tk_GetImage(Tcl_Interp *interp, Tk_Window tkwin, + CONST char *name, + Tk_ImageChangedProc *changeProc, + ClientData clientData); +#endif +#ifndef Tk_GetImageMasterData_TCL_DECLARED +#define Tk_GetImageMasterData_TCL_DECLARED +/* 98 */ +EXTERN ClientData Tk_GetImageMasterData(Tcl_Interp *interp, + CONST char *name, Tk_ImageType **typePtrPtr); +#endif +#ifndef Tk_GetItemTypes_TCL_DECLARED +#define Tk_GetItemTypes_TCL_DECLARED +/* 99 */ +EXTERN Tk_ItemType * Tk_GetItemTypes(void); +#endif +#ifndef Tk_GetJoinStyle_TCL_DECLARED +#define Tk_GetJoinStyle_TCL_DECLARED +/* 100 */ +EXTERN int Tk_GetJoinStyle(Tcl_Interp *interp, CONST char *str, + int *joinPtr); +#endif +#ifndef Tk_GetJustify_TCL_DECLARED +#define Tk_GetJustify_TCL_DECLARED +/* 101 */ +EXTERN int Tk_GetJustify(Tcl_Interp *interp, CONST char *str, + Tk_Justify *justifyPtr); +#endif +#ifndef Tk_GetNumMainWindows_TCL_DECLARED +#define Tk_GetNumMainWindows_TCL_DECLARED +/* 102 */ +EXTERN int Tk_GetNumMainWindows(void); +#endif +#ifndef Tk_GetOption_TCL_DECLARED +#define Tk_GetOption_TCL_DECLARED +/* 103 */ +EXTERN Tk_Uid Tk_GetOption(Tk_Window tkwin, CONST char *name, + CONST char *className); +#endif +#ifndef Tk_GetPixels_TCL_DECLARED +#define Tk_GetPixels_TCL_DECLARED +/* 104 */ +EXTERN int Tk_GetPixels(Tcl_Interp *interp, Tk_Window tkwin, + CONST char *str, int *intPtr); +#endif +#ifndef Tk_GetPixmap_TCL_DECLARED +#define Tk_GetPixmap_TCL_DECLARED +/* 105 */ +EXTERN Pixmap Tk_GetPixmap(Display *display, Drawable d, int width, + int height, int depth); +#endif +#ifndef Tk_GetRelief_TCL_DECLARED +#define Tk_GetRelief_TCL_DECLARED +/* 106 */ +EXTERN int Tk_GetRelief(Tcl_Interp *interp, CONST char *name, + int *reliefPtr); +#endif +#ifndef Tk_GetRootCoords_TCL_DECLARED +#define Tk_GetRootCoords_TCL_DECLARED +/* 107 */ +EXTERN void Tk_GetRootCoords(Tk_Window tkwin, int *xPtr, + int *yPtr); +#endif +#ifndef Tk_GetScrollInfo_TCL_DECLARED +#define Tk_GetScrollInfo_TCL_DECLARED +/* 108 */ +EXTERN int Tk_GetScrollInfo(Tcl_Interp *interp, int argc, + CONST84 char **argv, double *dblPtr, + int *intPtr); +#endif +#ifndef Tk_GetScreenMM_TCL_DECLARED +#define Tk_GetScreenMM_TCL_DECLARED +/* 109 */ +EXTERN int Tk_GetScreenMM(Tcl_Interp *interp, Tk_Window tkwin, + CONST char *str, double *doublePtr); +#endif +#ifndef Tk_GetSelection_TCL_DECLARED +#define Tk_GetSelection_TCL_DECLARED +/* 110 */ +EXTERN int Tk_GetSelection(Tcl_Interp *interp, Tk_Window tkwin, + Atom selection, Atom target, + Tk_GetSelProc *proc, ClientData clientData); +#endif +#ifndef Tk_GetUid_TCL_DECLARED +#define Tk_GetUid_TCL_DECLARED +/* 111 */ +EXTERN Tk_Uid Tk_GetUid(CONST char *str); +#endif +#ifndef Tk_GetVisual_TCL_DECLARED +#define Tk_GetVisual_TCL_DECLARED +/* 112 */ +EXTERN Visual * Tk_GetVisual(Tcl_Interp *interp, Tk_Window tkwin, + CONST char *str, int *depthPtr, + Colormap *colormapPtr); +#endif +#ifndef Tk_GetVRootGeometry_TCL_DECLARED +#define Tk_GetVRootGeometry_TCL_DECLARED +/* 113 */ +EXTERN void Tk_GetVRootGeometry(Tk_Window tkwin, int *xPtr, + int *yPtr, int *widthPtr, int *heightPtr); +#endif +#ifndef Tk_Grab_TCL_DECLARED +#define Tk_Grab_TCL_DECLARED +/* 114 */ +EXTERN int Tk_Grab(Tcl_Interp *interp, Tk_Window tkwin, + int grabGlobal); +#endif +#ifndef Tk_HandleEvent_TCL_DECLARED +#define Tk_HandleEvent_TCL_DECLARED +/* 115 */ +EXTERN void Tk_HandleEvent(XEvent *eventPtr); +#endif +#ifndef Tk_IdToWindow_TCL_DECLARED +#define Tk_IdToWindow_TCL_DECLARED +/* 116 */ +EXTERN Tk_Window Tk_IdToWindow(Display *display, Window window); +#endif +#ifndef Tk_ImageChanged_TCL_DECLARED +#define Tk_ImageChanged_TCL_DECLARED +/* 117 */ +EXTERN void Tk_ImageChanged(Tk_ImageMaster master, int x, int y, + int width, int height, int imageWidth, + int imageHeight); +#endif +#ifndef Tk_Init_TCL_DECLARED +#define Tk_Init_TCL_DECLARED +/* 118 */ +EXTERN int Tk_Init(Tcl_Interp *interp); +#endif +#ifndef Tk_InternAtom_TCL_DECLARED +#define Tk_InternAtom_TCL_DECLARED +/* 119 */ +EXTERN Atom Tk_InternAtom(Tk_Window tkwin, CONST char *name); +#endif +#ifndef Tk_IntersectTextLayout_TCL_DECLARED +#define Tk_IntersectTextLayout_TCL_DECLARED +/* 120 */ +EXTERN int Tk_IntersectTextLayout(Tk_TextLayout layout, int x, + int y, int width, int height); +#endif +#ifndef Tk_MaintainGeometry_TCL_DECLARED +#define Tk_MaintainGeometry_TCL_DECLARED +/* 121 */ +EXTERN void Tk_MaintainGeometry(Tk_Window slave, + Tk_Window master, int x, int y, int width, + int height); +#endif +#ifndef Tk_MainWindow_TCL_DECLARED +#define Tk_MainWindow_TCL_DECLARED +/* 122 */ +EXTERN Tk_Window Tk_MainWindow(Tcl_Interp *interp); +#endif +#ifndef Tk_MakeWindowExist_TCL_DECLARED +#define Tk_MakeWindowExist_TCL_DECLARED +/* 123 */ +EXTERN void Tk_MakeWindowExist(Tk_Window tkwin); +#endif +#ifndef Tk_ManageGeometry_TCL_DECLARED +#define Tk_ManageGeometry_TCL_DECLARED +/* 124 */ +EXTERN void Tk_ManageGeometry(Tk_Window tkwin, + CONST Tk_GeomMgr *mgrPtr, + ClientData clientData); +#endif +#ifndef Tk_MapWindow_TCL_DECLARED +#define Tk_MapWindow_TCL_DECLARED +/* 125 */ +EXTERN void Tk_MapWindow(Tk_Window tkwin); +#endif +#ifndef Tk_MeasureChars_TCL_DECLARED +#define Tk_MeasureChars_TCL_DECLARED +/* 126 */ +EXTERN int Tk_MeasureChars(Tk_Font tkfont, CONST char *source, + int numBytes, int maxPixels, int flags, + int *lengthPtr); +#endif +#ifndef Tk_MoveResizeWindow_TCL_DECLARED +#define Tk_MoveResizeWindow_TCL_DECLARED +/* 127 */ +EXTERN void Tk_MoveResizeWindow(Tk_Window tkwin, int x, int y, + int width, int height); +#endif +#ifndef Tk_MoveWindow_TCL_DECLARED +#define Tk_MoveWindow_TCL_DECLARED +/* 128 */ +EXTERN void Tk_MoveWindow(Tk_Window tkwin, int x, int y); +#endif +#ifndef Tk_MoveToplevelWindow_TCL_DECLARED +#define Tk_MoveToplevelWindow_TCL_DECLARED +/* 129 */ +EXTERN void Tk_MoveToplevelWindow(Tk_Window tkwin, int x, int y); +#endif +#ifndef Tk_NameOf3DBorder_TCL_DECLARED +#define Tk_NameOf3DBorder_TCL_DECLARED +/* 130 */ +EXTERN CONST84_RETURN char * Tk_NameOf3DBorder(Tk_3DBorder border); +#endif +#ifndef Tk_NameOfAnchor_TCL_DECLARED +#define Tk_NameOfAnchor_TCL_DECLARED +/* 131 */ +EXTERN CONST84_RETURN char * Tk_NameOfAnchor(Tk_Anchor anchor); +#endif +#ifndef Tk_NameOfBitmap_TCL_DECLARED +#define Tk_NameOfBitmap_TCL_DECLARED +/* 132 */ +EXTERN CONST84_RETURN char * Tk_NameOfBitmap(Display *display, Pixmap bitmap); +#endif +#ifndef Tk_NameOfCapStyle_TCL_DECLARED +#define Tk_NameOfCapStyle_TCL_DECLARED +/* 133 */ +EXTERN CONST84_RETURN char * Tk_NameOfCapStyle(int cap); +#endif +#ifndef Tk_NameOfColor_TCL_DECLARED +#define Tk_NameOfColor_TCL_DECLARED +/* 134 */ +EXTERN CONST84_RETURN char * Tk_NameOfColor(XColor *colorPtr); +#endif +#ifndef Tk_NameOfCursor_TCL_DECLARED +#define Tk_NameOfCursor_TCL_DECLARED +/* 135 */ +EXTERN CONST84_RETURN char * Tk_NameOfCursor(Display *display, + Tk_Cursor cursor); +#endif +#ifndef Tk_NameOfFont_TCL_DECLARED +#define Tk_NameOfFont_TCL_DECLARED +/* 136 */ +EXTERN CONST84_RETURN char * Tk_NameOfFont(Tk_Font font); +#endif +#ifndef Tk_NameOfImage_TCL_DECLARED +#define Tk_NameOfImage_TCL_DECLARED +/* 137 */ +EXTERN CONST84_RETURN char * Tk_NameOfImage(Tk_ImageMaster imageMaster); +#endif +#ifndef Tk_NameOfJoinStyle_TCL_DECLARED +#define Tk_NameOfJoinStyle_TCL_DECLARED +/* 138 */ +EXTERN CONST84_RETURN char * Tk_NameOfJoinStyle(int join); +#endif +#ifndef Tk_NameOfJustify_TCL_DECLARED +#define Tk_NameOfJustify_TCL_DECLARED +/* 139 */ +EXTERN CONST84_RETURN char * Tk_NameOfJustify(Tk_Justify justify); +#endif +#ifndef Tk_NameOfRelief_TCL_DECLARED +#define Tk_NameOfRelief_TCL_DECLARED +/* 140 */ +EXTERN CONST84_RETURN char * Tk_NameOfRelief(int relief); +#endif +#ifndef Tk_NameToWindow_TCL_DECLARED +#define Tk_NameToWindow_TCL_DECLARED +/* 141 */ +EXTERN Tk_Window Tk_NameToWindow(Tcl_Interp *interp, + CONST char *pathName, Tk_Window tkwin); +#endif +#ifndef Tk_OwnSelection_TCL_DECLARED +#define Tk_OwnSelection_TCL_DECLARED +/* 142 */ +EXTERN void Tk_OwnSelection(Tk_Window tkwin, Atom selection, + Tk_LostSelProc *proc, ClientData clientData); +#endif +#ifndef Tk_ParseArgv_TCL_DECLARED +#define Tk_ParseArgv_TCL_DECLARED +/* 143 */ +EXTERN int Tk_ParseArgv(Tcl_Interp *interp, Tk_Window tkwin, + int *argcPtr, CONST84 char **argv, + Tk_ArgvInfo *argTable, int flags); +#endif +#ifndef Tk_PhotoPutBlock_NoComposite_TCL_DECLARED +#define Tk_PhotoPutBlock_NoComposite_TCL_DECLARED +/* 144 */ +EXTERN void Tk_PhotoPutBlock_NoComposite(Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height); +#endif +#ifndef Tk_PhotoPutZoomedBlock_NoComposite_TCL_DECLARED +#define Tk_PhotoPutZoomedBlock_NoComposite_TCL_DECLARED +/* 145 */ +EXTERN void Tk_PhotoPutZoomedBlock_NoComposite( + Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height, int zoomX, int zoomY, + int subsampleX, int subsampleY); +#endif +#ifndef Tk_PhotoGetImage_TCL_DECLARED +#define Tk_PhotoGetImage_TCL_DECLARED +/* 146 */ +EXTERN int Tk_PhotoGetImage(Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr); +#endif +#ifndef Tk_PhotoBlank_TCL_DECLARED +#define Tk_PhotoBlank_TCL_DECLARED +/* 147 */ +EXTERN void Tk_PhotoBlank(Tk_PhotoHandle handle); +#endif +#ifndef Tk_PhotoExpand_Panic_TCL_DECLARED +#define Tk_PhotoExpand_Panic_TCL_DECLARED +/* 148 */ +EXTERN void Tk_PhotoExpand_Panic(Tk_PhotoHandle handle, + int width, int height); +#endif +#ifndef Tk_PhotoGetSize_TCL_DECLARED +#define Tk_PhotoGetSize_TCL_DECLARED +/* 149 */ +EXTERN void Tk_PhotoGetSize(Tk_PhotoHandle handle, int *widthPtr, + int *heightPtr); +#endif +#ifndef Tk_PhotoSetSize_Panic_TCL_DECLARED +#define Tk_PhotoSetSize_Panic_TCL_DECLARED +/* 150 */ +EXTERN void Tk_PhotoSetSize_Panic(Tk_PhotoHandle handle, + int width, int height); +#endif +#ifndef Tk_PointToChar_TCL_DECLARED +#define Tk_PointToChar_TCL_DECLARED +/* 151 */ +EXTERN int Tk_PointToChar(Tk_TextLayout layout, int x, int y); +#endif +#ifndef Tk_PostscriptFontName_TCL_DECLARED +#define Tk_PostscriptFontName_TCL_DECLARED +/* 152 */ +EXTERN int Tk_PostscriptFontName(Tk_Font tkfont, + Tcl_DString *dsPtr); +#endif +#ifndef Tk_PreserveColormap_TCL_DECLARED +#define Tk_PreserveColormap_TCL_DECLARED +/* 153 */ +EXTERN void Tk_PreserveColormap(Display *display, + Colormap colormap); +#endif +#ifndef Tk_QueueWindowEvent_TCL_DECLARED +#define Tk_QueueWindowEvent_TCL_DECLARED +/* 154 */ +EXTERN void Tk_QueueWindowEvent(XEvent *eventPtr, + Tcl_QueuePosition position); +#endif +#ifndef Tk_RedrawImage_TCL_DECLARED +#define Tk_RedrawImage_TCL_DECLARED +/* 155 */ +EXTERN void Tk_RedrawImage(Tk_Image image, int imageX, + int imageY, int width, int height, + Drawable drawable, int drawableX, + int drawableY); +#endif +#ifndef Tk_ResizeWindow_TCL_DECLARED +#define Tk_ResizeWindow_TCL_DECLARED +/* 156 */ +EXTERN void Tk_ResizeWindow(Tk_Window tkwin, int width, + int height); +#endif +#ifndef Tk_RestackWindow_TCL_DECLARED +#define Tk_RestackWindow_TCL_DECLARED +/* 157 */ +EXTERN int Tk_RestackWindow(Tk_Window tkwin, int aboveBelow, + Tk_Window other); +#endif +#ifndef Tk_RestrictEvents_TCL_DECLARED +#define Tk_RestrictEvents_TCL_DECLARED +/* 158 */ +EXTERN Tk_RestrictProc * Tk_RestrictEvents(Tk_RestrictProc *proc, + ClientData arg, ClientData *prevArgPtr); +#endif +#ifndef Tk_SafeInit_TCL_DECLARED +#define Tk_SafeInit_TCL_DECLARED +/* 159 */ +EXTERN int Tk_SafeInit(Tcl_Interp *interp); +#endif +#ifndef Tk_SetAppName_TCL_DECLARED +#define Tk_SetAppName_TCL_DECLARED +/* 160 */ +EXTERN CONST char * Tk_SetAppName(Tk_Window tkwin, CONST char *name); +#endif +#ifndef Tk_SetBackgroundFromBorder_TCL_DECLARED +#define Tk_SetBackgroundFromBorder_TCL_DECLARED +/* 161 */ +EXTERN void Tk_SetBackgroundFromBorder(Tk_Window tkwin, + Tk_3DBorder border); +#endif +#ifndef Tk_SetClass_TCL_DECLARED +#define Tk_SetClass_TCL_DECLARED +/* 162 */ +EXTERN void Tk_SetClass(Tk_Window tkwin, CONST char *className); +#endif +#ifndef Tk_SetGrid_TCL_DECLARED +#define Tk_SetGrid_TCL_DECLARED +/* 163 */ +EXTERN void Tk_SetGrid(Tk_Window tkwin, int reqWidth, + int reqHeight, int gridWidth, int gridHeight); +#endif +#ifndef Tk_SetInternalBorder_TCL_DECLARED +#define Tk_SetInternalBorder_TCL_DECLARED +/* 164 */ +EXTERN void Tk_SetInternalBorder(Tk_Window tkwin, int width); +#endif +#ifndef Tk_SetWindowBackground_TCL_DECLARED +#define Tk_SetWindowBackground_TCL_DECLARED +/* 165 */ +EXTERN void Tk_SetWindowBackground(Tk_Window tkwin, + unsigned long pixel); +#endif +#ifndef Tk_SetWindowBackgroundPixmap_TCL_DECLARED +#define Tk_SetWindowBackgroundPixmap_TCL_DECLARED +/* 166 */ +EXTERN void Tk_SetWindowBackgroundPixmap(Tk_Window tkwin, + Pixmap pixmap); +#endif +#ifndef Tk_SetWindowBorder_TCL_DECLARED +#define Tk_SetWindowBorder_TCL_DECLARED +/* 167 */ +EXTERN void Tk_SetWindowBorder(Tk_Window tkwin, + unsigned long pixel); +#endif +#ifndef Tk_SetWindowBorderWidth_TCL_DECLARED +#define Tk_SetWindowBorderWidth_TCL_DECLARED +/* 168 */ +EXTERN void Tk_SetWindowBorderWidth(Tk_Window tkwin, int width); +#endif +#ifndef Tk_SetWindowBorderPixmap_TCL_DECLARED +#define Tk_SetWindowBorderPixmap_TCL_DECLARED +/* 169 */ +EXTERN void Tk_SetWindowBorderPixmap(Tk_Window tkwin, + Pixmap pixmap); +#endif +#ifndef Tk_SetWindowColormap_TCL_DECLARED +#define Tk_SetWindowColormap_TCL_DECLARED +/* 170 */ +EXTERN void Tk_SetWindowColormap(Tk_Window tkwin, + Colormap colormap); +#endif +#ifndef Tk_SetWindowVisual_TCL_DECLARED +#define Tk_SetWindowVisual_TCL_DECLARED +/* 171 */ +EXTERN int Tk_SetWindowVisual(Tk_Window tkwin, Visual *visual, + int depth, Colormap colormap); +#endif +#ifndef Tk_SizeOfBitmap_TCL_DECLARED +#define Tk_SizeOfBitmap_TCL_DECLARED +/* 172 */ +EXTERN void Tk_SizeOfBitmap(Display *display, Pixmap bitmap, + int *widthPtr, int *heightPtr); +#endif +#ifndef Tk_SizeOfImage_TCL_DECLARED +#define Tk_SizeOfImage_TCL_DECLARED +/* 173 */ +EXTERN void Tk_SizeOfImage(Tk_Image image, int *widthPtr, + int *heightPtr); +#endif +#ifndef Tk_StrictMotif_TCL_DECLARED +#define Tk_StrictMotif_TCL_DECLARED +/* 174 */ +EXTERN int Tk_StrictMotif(Tk_Window tkwin); +#endif +#ifndef Tk_TextLayoutToPostscript_TCL_DECLARED +#define Tk_TextLayoutToPostscript_TCL_DECLARED +/* 175 */ +EXTERN void Tk_TextLayoutToPostscript(Tcl_Interp *interp, + Tk_TextLayout layout); +#endif +#ifndef Tk_TextWidth_TCL_DECLARED +#define Tk_TextWidth_TCL_DECLARED +/* 176 */ +EXTERN int Tk_TextWidth(Tk_Font font, CONST char *str, + int numBytes); +#endif +#ifndef Tk_UndefineCursor_TCL_DECLARED +#define Tk_UndefineCursor_TCL_DECLARED +/* 177 */ +EXTERN void Tk_UndefineCursor(Tk_Window window); +#endif +#ifndef Tk_UnderlineChars_TCL_DECLARED +#define Tk_UnderlineChars_TCL_DECLARED +/* 178 */ +EXTERN void Tk_UnderlineChars(Display *display, + Drawable drawable, GC gc, Tk_Font tkfont, + CONST char *source, int x, int y, + int firstByte, int lastByte); +#endif +#ifndef Tk_UnderlineTextLayout_TCL_DECLARED +#define Tk_UnderlineTextLayout_TCL_DECLARED +/* 179 */ +EXTERN void Tk_UnderlineTextLayout(Display *display, + Drawable drawable, GC gc, + Tk_TextLayout layout, int x, int y, + int underline); +#endif +#ifndef Tk_Ungrab_TCL_DECLARED +#define Tk_Ungrab_TCL_DECLARED +/* 180 */ +EXTERN void Tk_Ungrab(Tk_Window tkwin); +#endif +#ifndef Tk_UnmaintainGeometry_TCL_DECLARED +#define Tk_UnmaintainGeometry_TCL_DECLARED +/* 181 */ +EXTERN void Tk_UnmaintainGeometry(Tk_Window slave, + Tk_Window master); +#endif +#ifndef Tk_UnmapWindow_TCL_DECLARED +#define Tk_UnmapWindow_TCL_DECLARED +/* 182 */ +EXTERN void Tk_UnmapWindow(Tk_Window tkwin); +#endif +#ifndef Tk_UnsetGrid_TCL_DECLARED +#define Tk_UnsetGrid_TCL_DECLARED +/* 183 */ +EXTERN void Tk_UnsetGrid(Tk_Window tkwin); +#endif +#ifndef Tk_UpdatePointer_TCL_DECLARED +#define Tk_UpdatePointer_TCL_DECLARED +/* 184 */ +EXTERN void Tk_UpdatePointer(Tk_Window tkwin, int x, int y, + int state); +#endif +#ifndef Tk_AllocBitmapFromObj_TCL_DECLARED +#define Tk_AllocBitmapFromObj_TCL_DECLARED +/* 185 */ +EXTERN Pixmap Tk_AllocBitmapFromObj(Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr); +#endif +#ifndef Tk_Alloc3DBorderFromObj_TCL_DECLARED +#define Tk_Alloc3DBorderFromObj_TCL_DECLARED +/* 186 */ +EXTERN Tk_3DBorder Tk_Alloc3DBorderFromObj(Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr); +#endif +#ifndef Tk_AllocColorFromObj_TCL_DECLARED +#define Tk_AllocColorFromObj_TCL_DECLARED +/* 187 */ +EXTERN XColor * Tk_AllocColorFromObj(Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr); +#endif +#ifndef Tk_AllocCursorFromObj_TCL_DECLARED +#define Tk_AllocCursorFromObj_TCL_DECLARED +/* 188 */ +EXTERN Tk_Cursor Tk_AllocCursorFromObj(Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr); +#endif +#ifndef Tk_AllocFontFromObj_TCL_DECLARED +#define Tk_AllocFontFromObj_TCL_DECLARED +/* 189 */ +EXTERN Tk_Font Tk_AllocFontFromObj(Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr); +#endif +#ifndef Tk_CreateOptionTable_TCL_DECLARED +#define Tk_CreateOptionTable_TCL_DECLARED +/* 190 */ +EXTERN Tk_OptionTable Tk_CreateOptionTable(Tcl_Interp *interp, + CONST Tk_OptionSpec *templatePtr); +#endif +#ifndef Tk_DeleteOptionTable_TCL_DECLARED +#define Tk_DeleteOptionTable_TCL_DECLARED +/* 191 */ +EXTERN void Tk_DeleteOptionTable(Tk_OptionTable optionTable); +#endif +#ifndef Tk_Free3DBorderFromObj_TCL_DECLARED +#define Tk_Free3DBorderFromObj_TCL_DECLARED +/* 192 */ +EXTERN void Tk_Free3DBorderFromObj(Tk_Window tkwin, + Tcl_Obj *objPtr); +#endif +#ifndef Tk_FreeBitmapFromObj_TCL_DECLARED +#define Tk_FreeBitmapFromObj_TCL_DECLARED +/* 193 */ +EXTERN void Tk_FreeBitmapFromObj(Tk_Window tkwin, + Tcl_Obj *objPtr); +#endif +#ifndef Tk_FreeColorFromObj_TCL_DECLARED +#define Tk_FreeColorFromObj_TCL_DECLARED +/* 194 */ +EXTERN void Tk_FreeColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); +#endif +#ifndef Tk_FreeConfigOptions_TCL_DECLARED +#define Tk_FreeConfigOptions_TCL_DECLARED +/* 195 */ +EXTERN void Tk_FreeConfigOptions(char *recordPtr, + Tk_OptionTable optionToken, Tk_Window tkwin); +#endif +#ifndef Tk_FreeSavedOptions_TCL_DECLARED +#define Tk_FreeSavedOptions_TCL_DECLARED +/* 196 */ +EXTERN void Tk_FreeSavedOptions(Tk_SavedOptions *savePtr); +#endif +#ifndef Tk_FreeCursorFromObj_TCL_DECLARED +#define Tk_FreeCursorFromObj_TCL_DECLARED +/* 197 */ +EXTERN void Tk_FreeCursorFromObj(Tk_Window tkwin, + Tcl_Obj *objPtr); +#endif +#ifndef Tk_FreeFontFromObj_TCL_DECLARED +#define Tk_FreeFontFromObj_TCL_DECLARED +/* 198 */ +EXTERN void Tk_FreeFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); +#endif +#ifndef Tk_Get3DBorderFromObj_TCL_DECLARED +#define Tk_Get3DBorderFromObj_TCL_DECLARED +/* 199 */ +EXTERN Tk_3DBorder Tk_Get3DBorderFromObj(Tk_Window tkwin, + Tcl_Obj *objPtr); +#endif +#ifndef Tk_GetAnchorFromObj_TCL_DECLARED +#define Tk_GetAnchorFromObj_TCL_DECLARED +/* 200 */ +EXTERN int Tk_GetAnchorFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, Tk_Anchor *anchorPtr); +#endif +#ifndef Tk_GetBitmapFromObj_TCL_DECLARED +#define Tk_GetBitmapFromObj_TCL_DECLARED +/* 201 */ +EXTERN Pixmap Tk_GetBitmapFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); +#endif +#ifndef Tk_GetColorFromObj_TCL_DECLARED +#define Tk_GetColorFromObj_TCL_DECLARED +/* 202 */ +EXTERN XColor * Tk_GetColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); +#endif +#ifndef Tk_GetCursorFromObj_TCL_DECLARED +#define Tk_GetCursorFromObj_TCL_DECLARED +/* 203 */ +EXTERN Tk_Cursor Tk_GetCursorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); +#endif +#ifndef Tk_GetOptionInfo_TCL_DECLARED +#define Tk_GetOptionInfo_TCL_DECLARED +/* 204 */ +EXTERN Tcl_Obj * Tk_GetOptionInfo(Tcl_Interp *interp, char *recordPtr, + Tk_OptionTable optionTable, Tcl_Obj *namePtr, + Tk_Window tkwin); +#endif +#ifndef Tk_GetOptionValue_TCL_DECLARED +#define Tk_GetOptionValue_TCL_DECLARED +/* 205 */ +EXTERN Tcl_Obj * Tk_GetOptionValue(Tcl_Interp *interp, + char *recordPtr, Tk_OptionTable optionTable, + Tcl_Obj *namePtr, Tk_Window tkwin); +#endif +#ifndef Tk_GetJustifyFromObj_TCL_DECLARED +#define Tk_GetJustifyFromObj_TCL_DECLARED +/* 206 */ +EXTERN int Tk_GetJustifyFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, Tk_Justify *justifyPtr); +#endif +#ifndef Tk_GetMMFromObj_TCL_DECLARED +#define Tk_GetMMFromObj_TCL_DECLARED +/* 207 */ +EXTERN int Tk_GetMMFromObj(Tcl_Interp *interp, Tk_Window tkwin, + Tcl_Obj *objPtr, double *doublePtr); +#endif +#ifndef Tk_GetPixelsFromObj_TCL_DECLARED +#define Tk_GetPixelsFromObj_TCL_DECLARED +/* 208 */ +EXTERN int Tk_GetPixelsFromObj(Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr, + int *intPtr); +#endif +#ifndef Tk_GetReliefFromObj_TCL_DECLARED +#define Tk_GetReliefFromObj_TCL_DECLARED +/* 209 */ +EXTERN int Tk_GetReliefFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, int *resultPtr); +#endif +#ifndef Tk_GetScrollInfoObj_TCL_DECLARED +#define Tk_GetScrollInfoObj_TCL_DECLARED +/* 210 */ +EXTERN int Tk_GetScrollInfoObj(Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[], double *dblPtr, + int *intPtr); +#endif +#ifndef Tk_InitOptions_TCL_DECLARED +#define Tk_InitOptions_TCL_DECLARED +/* 211 */ +EXTERN int Tk_InitOptions(Tcl_Interp *interp, char *recordPtr, + Tk_OptionTable optionToken, Tk_Window tkwin); +#endif +#ifndef Tk_MainEx_TCL_DECLARED +#define Tk_MainEx_TCL_DECLARED +/* 212 */ +EXTERN void Tk_MainEx(int argc, char **argv, + Tcl_AppInitProc *appInitProc, + Tcl_Interp *interp); +#endif +#ifndef Tk_RestoreSavedOptions_TCL_DECLARED +#define Tk_RestoreSavedOptions_TCL_DECLARED +/* 213 */ +EXTERN void Tk_RestoreSavedOptions(Tk_SavedOptions *savePtr); +#endif +#ifndef Tk_SetOptions_TCL_DECLARED +#define Tk_SetOptions_TCL_DECLARED +/* 214 */ +EXTERN int Tk_SetOptions(Tcl_Interp *interp, char *recordPtr, + Tk_OptionTable optionTable, int objc, + Tcl_Obj *CONST objv[], Tk_Window tkwin, + Tk_SavedOptions *savePtr, int *maskPtr); +#endif +#ifndef Tk_InitConsoleChannels_TCL_DECLARED +#define Tk_InitConsoleChannels_TCL_DECLARED +/* 215 */ +EXTERN void Tk_InitConsoleChannels(Tcl_Interp *interp); +#endif +#ifndef Tk_CreateConsoleWindow_TCL_DECLARED +#define Tk_CreateConsoleWindow_TCL_DECLARED +/* 216 */ +EXTERN int Tk_CreateConsoleWindow(Tcl_Interp *interp); +#endif +#ifndef Tk_CreateSmoothMethod_TCL_DECLARED +#define Tk_CreateSmoothMethod_TCL_DECLARED +/* 217 */ +EXTERN void Tk_CreateSmoothMethod(Tcl_Interp *interp, + Tk_SmoothMethod *method); +#endif +/* Slot 218 is reserved */ +/* Slot 219 is reserved */ +#ifndef Tk_GetDash_TCL_DECLARED +#define Tk_GetDash_TCL_DECLARED +/* 220 */ +EXTERN int Tk_GetDash(Tcl_Interp *interp, CONST char *value, + Tk_Dash *dash); +#endif +#ifndef Tk_CreateOutline_TCL_DECLARED +#define Tk_CreateOutline_TCL_DECLARED +/* 221 */ +EXTERN void Tk_CreateOutline(Tk_Outline *outline); +#endif +#ifndef Tk_DeleteOutline_TCL_DECLARED +#define Tk_DeleteOutline_TCL_DECLARED +/* 222 */ +EXTERN void Tk_DeleteOutline(Display *display, + Tk_Outline *outline); +#endif +#ifndef Tk_ConfigOutlineGC_TCL_DECLARED +#define Tk_ConfigOutlineGC_TCL_DECLARED +/* 223 */ +EXTERN int Tk_ConfigOutlineGC(XGCValues *gcValues, + Tk_Canvas canvas, Tk_Item *item, + Tk_Outline *outline); +#endif +#ifndef Tk_ChangeOutlineGC_TCL_DECLARED +#define Tk_ChangeOutlineGC_TCL_DECLARED +/* 224 */ +EXTERN int Tk_ChangeOutlineGC(Tk_Canvas canvas, Tk_Item *item, + Tk_Outline *outline); +#endif +#ifndef Tk_ResetOutlineGC_TCL_DECLARED +#define Tk_ResetOutlineGC_TCL_DECLARED +/* 225 */ +EXTERN int Tk_ResetOutlineGC(Tk_Canvas canvas, Tk_Item *item, + Tk_Outline *outline); +#endif +#ifndef Tk_CanvasPsOutline_TCL_DECLARED +#define Tk_CanvasPsOutline_TCL_DECLARED +/* 226 */ +EXTERN int Tk_CanvasPsOutline(Tk_Canvas canvas, Tk_Item *item, + Tk_Outline *outline); +#endif +#ifndef Tk_SetTSOrigin_TCL_DECLARED +#define Tk_SetTSOrigin_TCL_DECLARED +/* 227 */ +EXTERN void Tk_SetTSOrigin(Tk_Window tkwin, GC gc, int x, int y); +#endif +#ifndef Tk_CanvasGetCoordFromObj_TCL_DECLARED +#define Tk_CanvasGetCoordFromObj_TCL_DECLARED +/* 228 */ +EXTERN int Tk_CanvasGetCoordFromObj(Tcl_Interp *interp, + Tk_Canvas canvas, Tcl_Obj *obj, + double *doublePtr); +#endif +#ifndef Tk_CanvasSetOffset_TCL_DECLARED +#define Tk_CanvasSetOffset_TCL_DECLARED +/* 229 */ +EXTERN void Tk_CanvasSetOffset(Tk_Canvas canvas, GC gc, + Tk_TSOffset *offset); +#endif +#ifndef Tk_DitherPhoto_TCL_DECLARED +#define Tk_DitherPhoto_TCL_DECLARED +/* 230 */ +EXTERN void Tk_DitherPhoto(Tk_PhotoHandle handle, int x, int y, + int width, int height); +#endif +#ifndef Tk_PostscriptBitmap_TCL_DECLARED +#define Tk_PostscriptBitmap_TCL_DECLARED +/* 231 */ +EXTERN int Tk_PostscriptBitmap(Tcl_Interp *interp, + Tk_Window tkwin, Tk_PostscriptInfo psInfo, + Pixmap bitmap, int startX, int startY, + int width, int height); +#endif +#ifndef Tk_PostscriptColor_TCL_DECLARED +#define Tk_PostscriptColor_TCL_DECLARED +/* 232 */ +EXTERN int Tk_PostscriptColor(Tcl_Interp *interp, + Tk_PostscriptInfo psInfo, XColor *colorPtr); +#endif +#ifndef Tk_PostscriptFont_TCL_DECLARED +#define Tk_PostscriptFont_TCL_DECLARED +/* 233 */ +EXTERN int Tk_PostscriptFont(Tcl_Interp *interp, + Tk_PostscriptInfo psInfo, Tk_Font font); +#endif +#ifndef Tk_PostscriptImage_TCL_DECLARED +#define Tk_PostscriptImage_TCL_DECLARED +/* 234 */ +EXTERN int Tk_PostscriptImage(Tk_Image image, + Tcl_Interp *interp, Tk_Window tkwin, + Tk_PostscriptInfo psinfo, int x, int y, + int width, int height, int prepass); +#endif +#ifndef Tk_PostscriptPath_TCL_DECLARED +#define Tk_PostscriptPath_TCL_DECLARED +/* 235 */ +EXTERN void Tk_PostscriptPath(Tcl_Interp *interp, + Tk_PostscriptInfo psInfo, double *coordPtr, + int numPoints); +#endif +#ifndef Tk_PostscriptStipple_TCL_DECLARED +#define Tk_PostscriptStipple_TCL_DECLARED +/* 236 */ +EXTERN int Tk_PostscriptStipple(Tcl_Interp *interp, + Tk_Window tkwin, Tk_PostscriptInfo psInfo, + Pixmap bitmap); +#endif +#ifndef Tk_PostscriptY_TCL_DECLARED +#define Tk_PostscriptY_TCL_DECLARED +/* 237 */ +EXTERN double Tk_PostscriptY(double y, Tk_PostscriptInfo psInfo); +#endif +#ifndef Tk_PostscriptPhoto_TCL_DECLARED +#define Tk_PostscriptPhoto_TCL_DECLARED +/* 238 */ +EXTERN int Tk_PostscriptPhoto(Tcl_Interp *interp, + Tk_PhotoImageBlock *blockPtr, + Tk_PostscriptInfo psInfo, int width, + int height); +#endif +#ifndef Tk_CreateClientMessageHandler_TCL_DECLARED +#define Tk_CreateClientMessageHandler_TCL_DECLARED +/* 239 */ +EXTERN void Tk_CreateClientMessageHandler( + Tk_ClientMessageProc *proc); +#endif +#ifndef Tk_DeleteClientMessageHandler_TCL_DECLARED +#define Tk_DeleteClientMessageHandler_TCL_DECLARED +/* 240 */ +EXTERN void Tk_DeleteClientMessageHandler( + Tk_ClientMessageProc *proc); +#endif +#ifndef Tk_CreateAnonymousWindow_TCL_DECLARED +#define Tk_CreateAnonymousWindow_TCL_DECLARED +/* 241 */ +EXTERN Tk_Window Tk_CreateAnonymousWindow(Tcl_Interp *interp, + Tk_Window parent, CONST char *screenName); +#endif +#ifndef Tk_SetClassProcs_TCL_DECLARED +#define Tk_SetClassProcs_TCL_DECLARED +/* 242 */ +EXTERN void Tk_SetClassProcs(Tk_Window tkwin, + Tk_ClassProcs *procs, + ClientData instanceData); +#endif +#ifndef Tk_SetInternalBorderEx_TCL_DECLARED +#define Tk_SetInternalBorderEx_TCL_DECLARED +/* 243 */ +EXTERN void Tk_SetInternalBorderEx(Tk_Window tkwin, int left, + int right, int top, int bottom); +#endif +#ifndef Tk_SetMinimumRequestSize_TCL_DECLARED +#define Tk_SetMinimumRequestSize_TCL_DECLARED +/* 244 */ +EXTERN void Tk_SetMinimumRequestSize(Tk_Window tkwin, + int minWidth, int minHeight); +#endif +#ifndef Tk_SetCaretPos_TCL_DECLARED +#define Tk_SetCaretPos_TCL_DECLARED +/* 245 */ +EXTERN void Tk_SetCaretPos(Tk_Window tkwin, int x, int y, + int height); +#endif +#ifndef Tk_PhotoPutBlock_Panic_TCL_DECLARED +#define Tk_PhotoPutBlock_Panic_TCL_DECLARED +/* 246 */ +EXTERN void Tk_PhotoPutBlock_Panic(Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height, int compRule); +#endif +#ifndef Tk_PhotoPutZoomedBlock_Panic_TCL_DECLARED +#define Tk_PhotoPutZoomedBlock_Panic_TCL_DECLARED +/* 247 */ +EXTERN void Tk_PhotoPutZoomedBlock_Panic(Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height, int zoomX, int zoomY, + int subsampleX, int subsampleY, int compRule); +#endif +#ifndef Tk_CollapseMotionEvents_TCL_DECLARED +#define Tk_CollapseMotionEvents_TCL_DECLARED +/* 248 */ +EXTERN int Tk_CollapseMotionEvents(Display *display, + int collapse); +#endif +#ifndef Tk_RegisterStyleEngine_TCL_DECLARED +#define Tk_RegisterStyleEngine_TCL_DECLARED +/* 249 */ +EXTERN Tk_StyleEngine Tk_RegisterStyleEngine(CONST char *name, + Tk_StyleEngine parent); +#endif +#ifndef Tk_GetStyleEngine_TCL_DECLARED +#define Tk_GetStyleEngine_TCL_DECLARED +/* 250 */ +EXTERN Tk_StyleEngine Tk_GetStyleEngine(CONST char *name); +#endif +#ifndef Tk_RegisterStyledElement_TCL_DECLARED +#define Tk_RegisterStyledElement_TCL_DECLARED +/* 251 */ +EXTERN int Tk_RegisterStyledElement(Tk_StyleEngine engine, + Tk_ElementSpec *templatePtr); +#endif +#ifndef Tk_GetElementId_TCL_DECLARED +#define Tk_GetElementId_TCL_DECLARED +/* 252 */ +EXTERN int Tk_GetElementId(CONST char *name); +#endif +#ifndef Tk_CreateStyle_TCL_DECLARED +#define Tk_CreateStyle_TCL_DECLARED +/* 253 */ +EXTERN Tk_Style Tk_CreateStyle(CONST char *name, + Tk_StyleEngine engine, ClientData clientData); +#endif +#ifndef Tk_GetStyle_TCL_DECLARED +#define Tk_GetStyle_TCL_DECLARED +/* 254 */ +EXTERN Tk_Style Tk_GetStyle(Tcl_Interp *interp, CONST char *name); +#endif +#ifndef Tk_FreeStyle_TCL_DECLARED +#define Tk_FreeStyle_TCL_DECLARED +/* 255 */ +EXTERN void Tk_FreeStyle(Tk_Style style); +#endif +#ifndef Tk_NameOfStyle_TCL_DECLARED +#define Tk_NameOfStyle_TCL_DECLARED +/* 256 */ +EXTERN CONST char * Tk_NameOfStyle(Tk_Style style); +#endif +#ifndef Tk_AllocStyleFromObj_TCL_DECLARED +#define Tk_AllocStyleFromObj_TCL_DECLARED +/* 257 */ +EXTERN Tk_Style Tk_AllocStyleFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr); +#endif +#ifndef Tk_GetStyleFromObj_TCL_DECLARED +#define Tk_GetStyleFromObj_TCL_DECLARED +/* 258 */ +EXTERN Tk_Style Tk_GetStyleFromObj(Tcl_Obj *objPtr); +#endif +#ifndef Tk_FreeStyleFromObj_TCL_DECLARED +#define Tk_FreeStyleFromObj_TCL_DECLARED +/* 259 */ +EXTERN void Tk_FreeStyleFromObj(Tcl_Obj *objPtr); +#endif +#ifndef Tk_GetStyledElement_TCL_DECLARED +#define Tk_GetStyledElement_TCL_DECLARED +/* 260 */ +EXTERN Tk_StyledElement Tk_GetStyledElement(Tk_Style style, int elementId, + Tk_OptionTable optionTable); +#endif +#ifndef Tk_GetElementSize_TCL_DECLARED +#define Tk_GetElementSize_TCL_DECLARED +/* 261 */ +EXTERN void Tk_GetElementSize(Tk_Style style, + Tk_StyledElement element, char *recordPtr, + Tk_Window tkwin, int width, int height, + int inner, int *widthPtr, int *heightPtr); +#endif +#ifndef Tk_GetElementBox_TCL_DECLARED +#define Tk_GetElementBox_TCL_DECLARED +/* 262 */ +EXTERN void Tk_GetElementBox(Tk_Style style, + Tk_StyledElement element, char *recordPtr, + Tk_Window tkwin, int x, int y, int width, + int height, int inner, int *xPtr, int *yPtr, + int *widthPtr, int *heightPtr); +#endif +#ifndef Tk_GetElementBorderWidth_TCL_DECLARED +#define Tk_GetElementBorderWidth_TCL_DECLARED +/* 263 */ +EXTERN int Tk_GetElementBorderWidth(Tk_Style style, + Tk_StyledElement element, char *recordPtr, + Tk_Window tkwin); +#endif +#ifndef Tk_DrawElement_TCL_DECLARED +#define Tk_DrawElement_TCL_DECLARED +/* 264 */ +EXTERN void Tk_DrawElement(Tk_Style style, + Tk_StyledElement element, char *recordPtr, + Tk_Window tkwin, Drawable d, int x, int y, + int width, int height, int state); +#endif +#ifndef Tk_PhotoExpand_TCL_DECLARED +#define Tk_PhotoExpand_TCL_DECLARED +/* 265 */ +EXTERN int Tk_PhotoExpand(Tcl_Interp *interp, + Tk_PhotoHandle handle, int width, int height); +#endif +#ifndef Tk_PhotoPutBlock_TCL_DECLARED +#define Tk_PhotoPutBlock_TCL_DECLARED +/* 266 */ +EXTERN int Tk_PhotoPutBlock(Tcl_Interp *interp, + Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height, int compRule); +#endif +#ifndef Tk_PhotoPutZoomedBlock_TCL_DECLARED +#define Tk_PhotoPutZoomedBlock_TCL_DECLARED +/* 267 */ +EXTERN int Tk_PhotoPutZoomedBlock(Tcl_Interp *interp, + Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height, int zoomX, int zoomY, + int subsampleX, int subsampleY, int compRule); +#endif +#ifndef Tk_PhotoSetSize_TCL_DECLARED +#define Tk_PhotoSetSize_TCL_DECLARED +/* 268 */ +EXTERN int Tk_PhotoSetSize(Tcl_Interp *interp, + Tk_PhotoHandle handle, int width, int height); +#endif +#ifndef Tk_GetUserInactiveTime_TCL_DECLARED +#define Tk_GetUserInactiveTime_TCL_DECLARED +/* 269 */ +EXTERN long Tk_GetUserInactiveTime(Display *dpy); +#endif +#ifndef Tk_ResetUserInactiveTime_TCL_DECLARED +#define Tk_ResetUserInactiveTime_TCL_DECLARED +/* 270 */ +EXTERN void Tk_ResetUserInactiveTime(Display *dpy); +#endif +#ifndef Tk_Interp_TCL_DECLARED +#define Tk_Interp_TCL_DECLARED +/* 271 */ +EXTERN Tcl_Interp * Tk_Interp(Tk_Window tkwin); +#endif +#ifndef Tk_CreateOldImageType_TCL_DECLARED +#define Tk_CreateOldImageType_TCL_DECLARED +/* 272 */ +EXTERN void Tk_CreateOldImageType(Tk_ImageType *typePtr); +#endif +#ifndef Tk_CreateOldPhotoImageFormat_TCL_DECLARED +#define Tk_CreateOldPhotoImageFormat_TCL_DECLARED +/* 273 */ +EXTERN void Tk_CreateOldPhotoImageFormat( + Tk_PhotoImageFormat *formatPtr); +#endif +/* Slot 274 is reserved */ +#ifndef TkUnusedStubEntry_TCL_DECLARED +#define TkUnusedStubEntry_TCL_DECLARED +/* 275 */ +EXTERN void TkUnusedStubEntry(void); +#endif + +typedef struct TkStubHooks { + struct TkPlatStubs *tkPlatStubs; + struct TkIntStubs *tkIntStubs; + struct TkIntPlatStubs *tkIntPlatStubs; + struct TkIntXlibStubs *tkIntXlibStubs; +} TkStubHooks; + +typedef struct TkStubs { + int magic; + struct TkStubHooks *hooks; + + void (*tk_MainLoop) (void); /* 0 */ + XColor * (*tk_3DBorderColor) (Tk_3DBorder border); /* 1 */ + GC (*tk_3DBorderGC) (Tk_Window tkwin, Tk_3DBorder border, int which); /* 2 */ + void (*tk_3DHorizontalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftIn, int rightIn, int topBevel, int relief); /* 3 */ + void (*tk_3DVerticalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftBevel, int relief); /* 4 */ + void (*tk_AddOption) (Tk_Window tkwin, CONST char *name, CONST char *value, int priority); /* 5 */ + void (*tk_BindEvent) (Tk_BindingTable bindingTable, XEvent *eventPtr, Tk_Window tkwin, int numObjects, ClientData *objectPtr); /* 6 */ + void (*tk_CanvasDrawableCoords) (Tk_Canvas canvas, double x, double y, short *drawableXPtr, short *drawableYPtr); /* 7 */ + void (*tk_CanvasEventuallyRedraw) (Tk_Canvas canvas, int x1, int y1, int x2, int y2); /* 8 */ + int (*tk_CanvasGetCoord) (Tcl_Interp *interp, Tk_Canvas canvas, CONST char *str, double *doublePtr); /* 9 */ + Tk_CanvasTextInfo * (*tk_CanvasGetTextInfo) (Tk_Canvas canvas); /* 10 */ + int (*tk_CanvasPsBitmap) (Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap, int x, int y, int width, int height); /* 11 */ + int (*tk_CanvasPsColor) (Tcl_Interp *interp, Tk_Canvas canvas, XColor *colorPtr); /* 12 */ + int (*tk_CanvasPsFont) (Tcl_Interp *interp, Tk_Canvas canvas, Tk_Font font); /* 13 */ + void (*tk_CanvasPsPath) (Tcl_Interp *interp, Tk_Canvas canvas, double *coordPtr, int numPoints); /* 14 */ + int (*tk_CanvasPsStipple) (Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap); /* 15 */ + double (*tk_CanvasPsY) (Tk_Canvas canvas, double y); /* 16 */ + void (*tk_CanvasSetStippleOrigin) (Tk_Canvas canvas, GC gc); /* 17 */ + int (*tk_CanvasTagsParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, CONST char *value, char *widgRec, int offset); /* 18 */ + char * (*tk_CanvasTagsPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 19 */ + Tk_Window (*tk_CanvasTkwin) (Tk_Canvas canvas); /* 20 */ + void (*tk_CanvasWindowCoords) (Tk_Canvas canvas, double x, double y, short *screenXPtr, short *screenYPtr); /* 21 */ + void (*tk_ChangeWindowAttributes) (Tk_Window tkwin, unsigned long valueMask, XSetWindowAttributes *attsPtr); /* 22 */ + int (*tk_CharBbox) (Tk_TextLayout layout, int index, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 23 */ + void (*tk_ClearSelection) (Tk_Window tkwin, Atom selection); /* 24 */ + int (*tk_ClipboardAppend) (Tcl_Interp *interp, Tk_Window tkwin, Atom target, Atom format, char *buffer); /* 25 */ + int (*tk_ClipboardClear) (Tcl_Interp *interp, Tk_Window tkwin); /* 26 */ + int (*tk_ConfigureInfo) (Tcl_Interp *interp, Tk_Window tkwin, Tk_ConfigSpec *specs, char *widgRec, CONST char *argvName, int flags); /* 27 */ + int (*tk_ConfigureValue) (Tcl_Interp *interp, Tk_Window tkwin, Tk_ConfigSpec *specs, char *widgRec, CONST char *argvName, int flags); /* 28 */ + int (*tk_ConfigureWidget) (Tcl_Interp *interp, Tk_Window tkwin, Tk_ConfigSpec *specs, int argc, CONST84 char **argv, char *widgRec, int flags); /* 29 */ + void (*tk_ConfigureWindow) (Tk_Window tkwin, unsigned int valueMask, XWindowChanges *valuePtr); /* 30 */ + Tk_TextLayout (*tk_ComputeTextLayout) (Tk_Font font, CONST char *str, int numChars, int wrapLength, Tk_Justify justify, int flags, int *widthPtr, int *heightPtr); /* 31 */ + Tk_Window (*tk_CoordsToWindow) (int rootX, int rootY, Tk_Window tkwin); /* 32 */ + unsigned long (*tk_CreateBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventStr, CONST char *command, int append); /* 33 */ + Tk_BindingTable (*tk_CreateBindingTable) (Tcl_Interp *interp); /* 34 */ + Tk_ErrorHandler (*tk_CreateErrorHandler) (Display *display, int errNum, int request, int minorCode, Tk_ErrorProc *errorProc, ClientData clientData); /* 35 */ + void (*tk_CreateEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData); /* 36 */ + void (*tk_CreateGenericHandler) (Tk_GenericProc *proc, ClientData clientData); /* 37 */ + void (*tk_CreateImageType) (Tk_ImageType *typePtr); /* 38 */ + void (*tk_CreateItemType) (Tk_ItemType *typePtr); /* 39 */ + void (*tk_CreatePhotoImageFormat) (Tk_PhotoImageFormat *formatPtr); /* 40 */ + void (*tk_CreateSelHandler) (Tk_Window tkwin, Atom selection, Atom target, Tk_SelectionProc *proc, ClientData clientData, Atom format); /* 41 */ + Tk_Window (*tk_CreateWindow) (Tcl_Interp *interp, Tk_Window parent, CONST char *name, CONST char *screenName); /* 42 */ + Tk_Window (*tk_CreateWindowFromPath) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *pathName, CONST char *screenName); /* 43 */ + int (*tk_DefineBitmap) (Tcl_Interp *interp, CONST char *name, CONST char *source, int width, int height); /* 44 */ + void (*tk_DefineCursor) (Tk_Window window, Tk_Cursor cursor); /* 45 */ + void (*tk_DeleteAllBindings) (Tk_BindingTable bindingTable, ClientData object); /* 46 */ + int (*tk_DeleteBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventStr); /* 47 */ + void (*tk_DeleteBindingTable) (Tk_BindingTable bindingTable); /* 48 */ + void (*tk_DeleteErrorHandler) (Tk_ErrorHandler handler); /* 49 */ + void (*tk_DeleteEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData); /* 50 */ + void (*tk_DeleteGenericHandler) (Tk_GenericProc *proc, ClientData clientData); /* 51 */ + void (*tk_DeleteImage) (Tcl_Interp *interp, CONST char *name); /* 52 */ + void (*tk_DeleteSelHandler) (Tk_Window tkwin, Atom selection, Atom target); /* 53 */ + void (*tk_DestroyWindow) (Tk_Window tkwin); /* 54 */ + CONST84_RETURN char * (*tk_DisplayName) (Tk_Window tkwin); /* 55 */ + int (*tk_DistanceToTextLayout) (Tk_TextLayout layout, int x, int y); /* 56 */ + void (*tk_Draw3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief); /* 57 */ + void (*tk_Draw3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 58 */ + void (*tk_DrawChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char *source, int numBytes, int x, int y); /* 59 */ + void (*tk_DrawFocusHighlight) (Tk_Window tkwin, GC gc, int width, Drawable drawable); /* 60 */ + void (*tk_DrawTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int firstChar, int lastChar); /* 61 */ + void (*tk_Fill3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief); /* 62 */ + void (*tk_Fill3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 63 */ + Tk_PhotoHandle (*tk_FindPhoto) (Tcl_Interp *interp, CONST char *imageName); /* 64 */ + Font (*tk_FontId) (Tk_Font font); /* 65 */ + void (*tk_Free3DBorder) (Tk_3DBorder border); /* 66 */ + void (*tk_FreeBitmap) (Display *display, Pixmap bitmap); /* 67 */ + void (*tk_FreeColor) (XColor *colorPtr); /* 68 */ + void (*tk_FreeColormap) (Display *display, Colormap colormap); /* 69 */ + void (*tk_FreeCursor) (Display *display, Tk_Cursor cursor); /* 70 */ + void (*tk_FreeFont) (Tk_Font f); /* 71 */ + void (*tk_FreeGC) (Display *display, GC gc); /* 72 */ + void (*tk_FreeImage) (Tk_Image image); /* 73 */ + void (*tk_FreeOptions) (Tk_ConfigSpec *specs, char *widgRec, Display *display, int needFlags); /* 74 */ + void (*tk_FreePixmap) (Display *display, Pixmap pixmap); /* 75 */ + void (*tk_FreeTextLayout) (Tk_TextLayout textLayout); /* 76 */ + void (*tk_FreeXId) (Display *display, XID xid); /* 77 */ + GC (*tk_GCForColor) (XColor *colorPtr, Drawable drawable); /* 78 */ + void (*tk_GeometryRequest) (Tk_Window tkwin, int reqWidth, int reqHeight); /* 79 */ + Tk_3DBorder (*tk_Get3DBorder) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid colorName); /* 80 */ + void (*tk_GetAllBindings) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object); /* 81 */ + int (*tk_GetAnchor) (Tcl_Interp *interp, CONST char *str, Tk_Anchor *anchorPtr); /* 82 */ + CONST84_RETURN char * (*tk_GetAtomName) (Tk_Window tkwin, Atom atom); /* 83 */ + CONST84_RETURN char * (*tk_GetBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, CONST char *eventStr); /* 84 */ + Pixmap (*tk_GetBitmap) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str); /* 85 */ + Pixmap (*tk_GetBitmapFromData) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *source, int width, int height); /* 86 */ + int (*tk_GetCapStyle) (Tcl_Interp *interp, CONST char *str, int *capPtr); /* 87 */ + XColor * (*tk_GetColor) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid name); /* 88 */ + XColor * (*tk_GetColorByValue) (Tk_Window tkwin, XColor *colorPtr); /* 89 */ + Colormap (*tk_GetColormap) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str); /* 90 */ + Tk_Cursor (*tk_GetCursor) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid str); /* 91 */ + Tk_Cursor (*tk_GetCursorFromData) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *source, CONST char *mask, int width, int height, int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); /* 92 */ + Tk_Font (*tk_GetFont) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str); /* 93 */ + Tk_Font (*tk_GetFontFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 94 */ + void (*tk_GetFontMetrics) (Tk_Font font, Tk_FontMetrics *fmPtr); /* 95 */ + GC (*tk_GetGC) (Tk_Window tkwin, unsigned long valueMask, XGCValues *valuePtr); /* 96 */ + Tk_Image (*tk_GetImage) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *name, Tk_ImageChangedProc *changeProc, ClientData clientData); /* 97 */ + ClientData (*tk_GetImageMasterData) (Tcl_Interp *interp, CONST char *name, Tk_ImageType **typePtrPtr); /* 98 */ + Tk_ItemType * (*tk_GetItemTypes) (void); /* 99 */ + int (*tk_GetJoinStyle) (Tcl_Interp *interp, CONST char *str, int *joinPtr); /* 100 */ + int (*tk_GetJustify) (Tcl_Interp *interp, CONST char *str, Tk_Justify *justifyPtr); /* 101 */ + int (*tk_GetNumMainWindows) (void); /* 102 */ + Tk_Uid (*tk_GetOption) (Tk_Window tkwin, CONST char *name, CONST char *className); /* 103 */ + int (*tk_GetPixels) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str, int *intPtr); /* 104 */ + Pixmap (*tk_GetPixmap) (Display *display, Drawable d, int width, int height, int depth); /* 105 */ + int (*tk_GetRelief) (Tcl_Interp *interp, CONST char *name, int *reliefPtr); /* 106 */ + void (*tk_GetRootCoords) (Tk_Window tkwin, int *xPtr, int *yPtr); /* 107 */ + int (*tk_GetScrollInfo) (Tcl_Interp *interp, int argc, CONST84 char **argv, double *dblPtr, int *intPtr); /* 108 */ + int (*tk_GetScreenMM) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str, double *doublePtr); /* 109 */ + int (*tk_GetSelection) (Tcl_Interp *interp, Tk_Window tkwin, Atom selection, Atom target, Tk_GetSelProc *proc, ClientData clientData); /* 110 */ + Tk_Uid (*tk_GetUid) (CONST char *str); /* 111 */ + Visual * (*tk_GetVisual) (Tcl_Interp *interp, Tk_Window tkwin, CONST char *str, int *depthPtr, Colormap *colormapPtr); /* 112 */ + void (*tk_GetVRootGeometry) (Tk_Window tkwin, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 113 */ + int (*tk_Grab) (Tcl_Interp *interp, Tk_Window tkwin, int grabGlobal); /* 114 */ + void (*tk_HandleEvent) (XEvent *eventPtr); /* 115 */ + Tk_Window (*tk_IdToWindow) (Display *display, Window window); /* 116 */ + void (*tk_ImageChanged) (Tk_ImageMaster master, int x, int y, int width, int height, int imageWidth, int imageHeight); /* 117 */ + int (*tk_Init) (Tcl_Interp *interp); /* 118 */ + Atom (*tk_InternAtom) (Tk_Window tkwin, CONST char *name); /* 119 */ + int (*tk_IntersectTextLayout) (Tk_TextLayout layout, int x, int y, int width, int height); /* 120 */ + void (*tk_MaintainGeometry) (Tk_Window slave, Tk_Window master, int x, int y, int width, int height); /* 121 */ + Tk_Window (*tk_MainWindow) (Tcl_Interp *interp); /* 122 */ + void (*tk_MakeWindowExist) (Tk_Window tkwin); /* 123 */ + void (*tk_ManageGeometry) (Tk_Window tkwin, CONST Tk_GeomMgr *mgrPtr, ClientData clientData); /* 124 */ + void (*tk_MapWindow) (Tk_Window tkwin); /* 125 */ + int (*tk_MeasureChars) (Tk_Font tkfont, CONST char *source, int numBytes, int maxPixels, int flags, int *lengthPtr); /* 126 */ + void (*tk_MoveResizeWindow) (Tk_Window tkwin, int x, int y, int width, int height); /* 127 */ + void (*tk_MoveWindow) (Tk_Window tkwin, int x, int y); /* 128 */ + void (*tk_MoveToplevelWindow) (Tk_Window tkwin, int x, int y); /* 129 */ + CONST84_RETURN char * (*tk_NameOf3DBorder) (Tk_3DBorder border); /* 130 */ + CONST84_RETURN char * (*tk_NameOfAnchor) (Tk_Anchor anchor); /* 131 */ + CONST84_RETURN char * (*tk_NameOfBitmap) (Display *display, Pixmap bitmap); /* 132 */ + CONST84_RETURN char * (*tk_NameOfCapStyle) (int cap); /* 133 */ + CONST84_RETURN char * (*tk_NameOfColor) (XColor *colorPtr); /* 134 */ + CONST84_RETURN char * (*tk_NameOfCursor) (Display *display, Tk_Cursor cursor); /* 135 */ + CONST84_RETURN char * (*tk_NameOfFont) (Tk_Font font); /* 136 */ + CONST84_RETURN char * (*tk_NameOfImage) (Tk_ImageMaster imageMaster); /* 137 */ + CONST84_RETURN char * (*tk_NameOfJoinStyle) (int join); /* 138 */ + CONST84_RETURN char * (*tk_NameOfJustify) (Tk_Justify justify); /* 139 */ + CONST84_RETURN char * (*tk_NameOfRelief) (int relief); /* 140 */ + Tk_Window (*tk_NameToWindow) (Tcl_Interp *interp, CONST char *pathName, Tk_Window tkwin); /* 141 */ + void (*tk_OwnSelection) (Tk_Window tkwin, Atom selection, Tk_LostSelProc *proc, ClientData clientData); /* 142 */ + int (*tk_ParseArgv) (Tcl_Interp *interp, Tk_Window tkwin, int *argcPtr, CONST84 char **argv, Tk_ArgvInfo *argTable, int flags); /* 143 */ + void (*tk_PhotoPutBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height); /* 144 */ + void (*tk_PhotoPutZoomedBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY); /* 145 */ + int (*tk_PhotoGetImage) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr); /* 146 */ + void (*tk_PhotoBlank) (Tk_PhotoHandle handle); /* 147 */ + void (*tk_PhotoExpand_Panic) (Tk_PhotoHandle handle, int width, int height); /* 148 */ + void (*tk_PhotoGetSize) (Tk_PhotoHandle handle, int *widthPtr, int *heightPtr); /* 149 */ + void (*tk_PhotoSetSize_Panic) (Tk_PhotoHandle handle, int width, int height); /* 150 */ + int (*tk_PointToChar) (Tk_TextLayout layout, int x, int y); /* 151 */ + int (*tk_PostscriptFontName) (Tk_Font tkfont, Tcl_DString *dsPtr); /* 152 */ + void (*tk_PreserveColormap) (Display *display, Colormap colormap); /* 153 */ + void (*tk_QueueWindowEvent) (XEvent *eventPtr, Tcl_QueuePosition position); /* 154 */ + void (*tk_RedrawImage) (Tk_Image image, int imageX, int imageY, int width, int height, Drawable drawable, int drawableX, int drawableY); /* 155 */ + void (*tk_ResizeWindow) (Tk_Window tkwin, int width, int height); /* 156 */ + int (*tk_RestackWindow) (Tk_Window tkwin, int aboveBelow, Tk_Window other); /* 157 */ + Tk_RestrictProc * (*tk_RestrictEvents) (Tk_RestrictProc *proc, ClientData arg, ClientData *prevArgPtr); /* 158 */ + int (*tk_SafeInit) (Tcl_Interp *interp); /* 159 */ + CONST char * (*tk_SetAppName) (Tk_Window tkwin, CONST char *name); /* 160 */ + void (*tk_SetBackgroundFromBorder) (Tk_Window tkwin, Tk_3DBorder border); /* 161 */ + void (*tk_SetClass) (Tk_Window tkwin, CONST char *className); /* 162 */ + void (*tk_SetGrid) (Tk_Window tkwin, int reqWidth, int reqHeight, int gridWidth, int gridHeight); /* 163 */ + void (*tk_SetInternalBorder) (Tk_Window tkwin, int width); /* 164 */ + void (*tk_SetWindowBackground) (Tk_Window tkwin, unsigned long pixel); /* 165 */ + void (*tk_SetWindowBackgroundPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 166 */ + void (*tk_SetWindowBorder) (Tk_Window tkwin, unsigned long pixel); /* 167 */ + void (*tk_SetWindowBorderWidth) (Tk_Window tkwin, int width); /* 168 */ + void (*tk_SetWindowBorderPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 169 */ + void (*tk_SetWindowColormap) (Tk_Window tkwin, Colormap colormap); /* 170 */ + int (*tk_SetWindowVisual) (Tk_Window tkwin, Visual *visual, int depth, Colormap colormap); /* 171 */ + void (*tk_SizeOfBitmap) (Display *display, Pixmap bitmap, int *widthPtr, int *heightPtr); /* 172 */ + void (*tk_SizeOfImage) (Tk_Image image, int *widthPtr, int *heightPtr); /* 173 */ + int (*tk_StrictMotif) (Tk_Window tkwin); /* 174 */ + void (*tk_TextLayoutToPostscript) (Tcl_Interp *interp, Tk_TextLayout layout); /* 175 */ + int (*tk_TextWidth) (Tk_Font font, CONST char *str, int numBytes); /* 176 */ + void (*tk_UndefineCursor) (Tk_Window window); /* 177 */ + void (*tk_UnderlineChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char *source, int x, int y, int firstByte, int lastByte); /* 178 */ + void (*tk_UnderlineTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int underline); /* 179 */ + void (*tk_Ungrab) (Tk_Window tkwin); /* 180 */ + void (*tk_UnmaintainGeometry) (Tk_Window slave, Tk_Window master); /* 181 */ + void (*tk_UnmapWindow) (Tk_Window tkwin); /* 182 */ + void (*tk_UnsetGrid) (Tk_Window tkwin); /* 183 */ + void (*tk_UpdatePointer) (Tk_Window tkwin, int x, int y, int state); /* 184 */ + Pixmap (*tk_AllocBitmapFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 185 */ + Tk_3DBorder (*tk_Alloc3DBorderFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 186 */ + XColor * (*tk_AllocColorFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 187 */ + Tk_Cursor (*tk_AllocCursorFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 188 */ + Tk_Font (*tk_AllocFontFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 189 */ + Tk_OptionTable (*tk_CreateOptionTable) (Tcl_Interp *interp, CONST Tk_OptionSpec *templatePtr); /* 190 */ + void (*tk_DeleteOptionTable) (Tk_OptionTable optionTable); /* 191 */ + void (*tk_Free3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 192 */ + void (*tk_FreeBitmapFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 193 */ + void (*tk_FreeColorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 194 */ + void (*tk_FreeConfigOptions) (char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 195 */ + void (*tk_FreeSavedOptions) (Tk_SavedOptions *savePtr); /* 196 */ + void (*tk_FreeCursorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 197 */ + void (*tk_FreeFontFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 198 */ + Tk_3DBorder (*tk_Get3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 199 */ + int (*tk_GetAnchorFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Anchor *anchorPtr); /* 200 */ + Pixmap (*tk_GetBitmapFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 201 */ + XColor * (*tk_GetColorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 202 */ + Tk_Cursor (*tk_GetCursorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 203 */ + Tcl_Obj * (*tk_GetOptionInfo) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin); /* 204 */ + Tcl_Obj * (*tk_GetOptionValue) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin); /* 205 */ + int (*tk_GetJustifyFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Justify *justifyPtr); /* 206 */ + int (*tk_GetMMFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, double *doublePtr); /* 207 */ + int (*tk_GetPixelsFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, int *intPtr); /* 208 */ + int (*tk_GetReliefFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *resultPtr); /* 209 */ + int (*tk_GetScrollInfoObj) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], double *dblPtr, int *intPtr); /* 210 */ + int (*tk_InitOptions) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 211 */ + void (*tk_MainEx) (int argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); /* 212 */ + void (*tk_RestoreSavedOptions) (Tk_SavedOptions *savePtr); /* 213 */ + int (*tk_SetOptions) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, int objc, Tcl_Obj *CONST objv[], Tk_Window tkwin, Tk_SavedOptions *savePtr, int *maskPtr); /* 214 */ + void (*tk_InitConsoleChannels) (Tcl_Interp *interp); /* 215 */ + int (*tk_CreateConsoleWindow) (Tcl_Interp *interp); /* 216 */ + void (*tk_CreateSmoothMethod) (Tcl_Interp *interp, Tk_SmoothMethod *method); /* 217 */ + VOID *reserved218; + VOID *reserved219; + int (*tk_GetDash) (Tcl_Interp *interp, CONST char *value, Tk_Dash *dash); /* 220 */ + void (*tk_CreateOutline) (Tk_Outline *outline); /* 221 */ + void (*tk_DeleteOutline) (Display *display, Tk_Outline *outline); /* 222 */ + int (*tk_ConfigOutlineGC) (XGCValues *gcValues, Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 223 */ + int (*tk_ChangeOutlineGC) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 224 */ + int (*tk_ResetOutlineGC) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 225 */ + int (*tk_CanvasPsOutline) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 226 */ + void (*tk_SetTSOrigin) (Tk_Window tkwin, GC gc, int x, int y); /* 227 */ + int (*tk_CanvasGetCoordFromObj) (Tcl_Interp *interp, Tk_Canvas canvas, Tcl_Obj *obj, double *doublePtr); /* 228 */ + void (*tk_CanvasSetOffset) (Tk_Canvas canvas, GC gc, Tk_TSOffset *offset); /* 229 */ + void (*tk_DitherPhoto) (Tk_PhotoHandle handle, int x, int y, int width, int height); /* 230 */ + int (*tk_PostscriptBitmap) (Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap, int startX, int startY, int width, int height); /* 231 */ + int (*tk_PostscriptColor) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, XColor *colorPtr); /* 232 */ + int (*tk_PostscriptFont) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, Tk_Font font); /* 233 */ + int (*tk_PostscriptImage) (Tk_Image image, Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, int x, int y, int width, int height, int prepass); /* 234 */ + void (*tk_PostscriptPath) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, double *coordPtr, int numPoints); /* 235 */ + int (*tk_PostscriptStipple) (Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap); /* 236 */ + double (*tk_PostscriptY) (double y, Tk_PostscriptInfo psInfo); /* 237 */ + int (*tk_PostscriptPhoto) (Tcl_Interp *interp, Tk_PhotoImageBlock *blockPtr, Tk_PostscriptInfo psInfo, int width, int height); /* 238 */ + void (*tk_CreateClientMessageHandler) (Tk_ClientMessageProc *proc); /* 239 */ + void (*tk_DeleteClientMessageHandler) (Tk_ClientMessageProc *proc); /* 240 */ + Tk_Window (*tk_CreateAnonymousWindow) (Tcl_Interp *interp, Tk_Window parent, CONST char *screenName); /* 241 */ + void (*tk_SetClassProcs) (Tk_Window tkwin, Tk_ClassProcs *procs, ClientData instanceData); /* 242 */ + void (*tk_SetInternalBorderEx) (Tk_Window tkwin, int left, int right, int top, int bottom); /* 243 */ + void (*tk_SetMinimumRequestSize) (Tk_Window tkwin, int minWidth, int minHeight); /* 244 */ + void (*tk_SetCaretPos) (Tk_Window tkwin, int x, int y, int height); /* 245 */ + void (*tk_PhotoPutBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule); /* 246 */ + void (*tk_PhotoPutZoomedBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 247 */ + int (*tk_CollapseMotionEvents) (Display *display, int collapse); /* 248 */ + Tk_StyleEngine (*tk_RegisterStyleEngine) (CONST char *name, Tk_StyleEngine parent); /* 249 */ + Tk_StyleEngine (*tk_GetStyleEngine) (CONST char *name); /* 250 */ + int (*tk_RegisterStyledElement) (Tk_StyleEngine engine, Tk_ElementSpec *templatePtr); /* 251 */ + int (*tk_GetElementId) (CONST char *name); /* 252 */ + Tk_Style (*tk_CreateStyle) (CONST char *name, Tk_StyleEngine engine, ClientData clientData); /* 253 */ + Tk_Style (*tk_GetStyle) (Tcl_Interp *interp, CONST char *name); /* 254 */ + void (*tk_FreeStyle) (Tk_Style style); /* 255 */ + CONST char * (*tk_NameOfStyle) (Tk_Style style); /* 256 */ + Tk_Style (*tk_AllocStyleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 257 */ + Tk_Style (*tk_GetStyleFromObj) (Tcl_Obj *objPtr); /* 258 */ + void (*tk_FreeStyleFromObj) (Tcl_Obj *objPtr); /* 259 */ + Tk_StyledElement (*tk_GetStyledElement) (Tk_Style style, int elementId, Tk_OptionTable optionTable); /* 260 */ + void (*tk_GetElementSize) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int width, int height, int inner, int *widthPtr, int *heightPtr); /* 261 */ + void (*tk_GetElementBox) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int x, int y, int width, int height, int inner, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 262 */ + int (*tk_GetElementBorderWidth) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin); /* 263 */ + void (*tk_DrawElement) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, Drawable d, int x, int y, int width, int height, int state); /* 264 */ + int (*tk_PhotoExpand) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 265 */ + int (*tk_PhotoPutBlock) (Tcl_Interp *interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule); /* 266 */ + int (*tk_PhotoPutZoomedBlock) (Tcl_Interp *interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 267 */ + int (*tk_PhotoSetSize) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 268 */ + long (*tk_GetUserInactiveTime) (Display *dpy); /* 269 */ + void (*tk_ResetUserInactiveTime) (Display *dpy); /* 270 */ + Tcl_Interp * (*tk_Interp) (Tk_Window tkwin); /* 271 */ + void (*tk_CreateOldImageType) (Tk_ImageType *typePtr); /* 272 */ + void (*tk_CreateOldPhotoImageFormat) (Tk_PhotoImageFormat *formatPtr); /* 273 */ + VOID *reserved274; + void (*tkUnusedStubEntry) (void); /* 275 */ +} TkStubs; + +extern TkStubs *tkStubsPtr; + +#ifdef __cplusplus +} +#endif + +#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#ifndef Tk_MainLoop +#define Tk_MainLoop \ + (tkStubsPtr->tk_MainLoop) /* 0 */ +#endif +#ifndef Tk_3DBorderColor +#define Tk_3DBorderColor \ + (tkStubsPtr->tk_3DBorderColor) /* 1 */ +#endif +#ifndef Tk_3DBorderGC +#define Tk_3DBorderGC \ + (tkStubsPtr->tk_3DBorderGC) /* 2 */ +#endif +#ifndef Tk_3DHorizontalBevel +#define Tk_3DHorizontalBevel \ + (tkStubsPtr->tk_3DHorizontalBevel) /* 3 */ +#endif +#ifndef Tk_3DVerticalBevel +#define Tk_3DVerticalBevel \ + (tkStubsPtr->tk_3DVerticalBevel) /* 4 */ +#endif +#ifndef Tk_AddOption +#define Tk_AddOption \ + (tkStubsPtr->tk_AddOption) /* 5 */ +#endif +#ifndef Tk_BindEvent +#define Tk_BindEvent \ + (tkStubsPtr->tk_BindEvent) /* 6 */ +#endif +#ifndef Tk_CanvasDrawableCoords +#define Tk_CanvasDrawableCoords \ + (tkStubsPtr->tk_CanvasDrawableCoords) /* 7 */ +#endif +#ifndef Tk_CanvasEventuallyRedraw +#define Tk_CanvasEventuallyRedraw \ + (tkStubsPtr->tk_CanvasEventuallyRedraw) /* 8 */ +#endif +#ifndef Tk_CanvasGetCoord +#define Tk_CanvasGetCoord \ + (tkStubsPtr->tk_CanvasGetCoord) /* 9 */ +#endif +#ifndef Tk_CanvasGetTextInfo +#define Tk_CanvasGetTextInfo \ + (tkStubsPtr->tk_CanvasGetTextInfo) /* 10 */ +#endif +#ifndef Tk_CanvasPsBitmap +#define Tk_CanvasPsBitmap \ + (tkStubsPtr->tk_CanvasPsBitmap) /* 11 */ +#endif +#ifndef Tk_CanvasPsColor +#define Tk_CanvasPsColor \ + (tkStubsPtr->tk_CanvasPsColor) /* 12 */ +#endif +#ifndef Tk_CanvasPsFont +#define Tk_CanvasPsFont \ + (tkStubsPtr->tk_CanvasPsFont) /* 13 */ +#endif +#ifndef Tk_CanvasPsPath +#define Tk_CanvasPsPath \ + (tkStubsPtr->tk_CanvasPsPath) /* 14 */ +#endif +#ifndef Tk_CanvasPsStipple +#define Tk_CanvasPsStipple \ + (tkStubsPtr->tk_CanvasPsStipple) /* 15 */ +#endif +#ifndef Tk_CanvasPsY +#define Tk_CanvasPsY \ + (tkStubsPtr->tk_CanvasPsY) /* 16 */ +#endif +#ifndef Tk_CanvasSetStippleOrigin +#define Tk_CanvasSetStippleOrigin \ + (tkStubsPtr->tk_CanvasSetStippleOrigin) /* 17 */ +#endif +#ifndef Tk_CanvasTagsParseProc +#define Tk_CanvasTagsParseProc \ + (tkStubsPtr->tk_CanvasTagsParseProc) /* 18 */ +#endif +#ifndef Tk_CanvasTagsPrintProc +#define Tk_CanvasTagsPrintProc \ + (tkStubsPtr->tk_CanvasTagsPrintProc) /* 19 */ +#endif +#ifndef Tk_CanvasTkwin +#define Tk_CanvasTkwin \ + (tkStubsPtr->tk_CanvasTkwin) /* 20 */ +#endif +#ifndef Tk_CanvasWindowCoords +#define Tk_CanvasWindowCoords \ + (tkStubsPtr->tk_CanvasWindowCoords) /* 21 */ +#endif +#ifndef Tk_ChangeWindowAttributes +#define Tk_ChangeWindowAttributes \ + (tkStubsPtr->tk_ChangeWindowAttributes) /* 22 */ +#endif +#ifndef Tk_CharBbox +#define Tk_CharBbox \ + (tkStubsPtr->tk_CharBbox) /* 23 */ +#endif +#ifndef Tk_ClearSelection +#define Tk_ClearSelection \ + (tkStubsPtr->tk_ClearSelection) /* 24 */ +#endif +#ifndef Tk_ClipboardAppend +#define Tk_ClipboardAppend \ + (tkStubsPtr->tk_ClipboardAppend) /* 25 */ +#endif +#ifndef Tk_ClipboardClear +#define Tk_ClipboardClear \ + (tkStubsPtr->tk_ClipboardClear) /* 26 */ +#endif +#ifndef Tk_ConfigureInfo +#define Tk_ConfigureInfo \ + (tkStubsPtr->tk_ConfigureInfo) /* 27 */ +#endif +#ifndef Tk_ConfigureValue +#define Tk_ConfigureValue \ + (tkStubsPtr->tk_ConfigureValue) /* 28 */ +#endif +#ifndef Tk_ConfigureWidget +#define Tk_ConfigureWidget \ + (tkStubsPtr->tk_ConfigureWidget) /* 29 */ +#endif +#ifndef Tk_ConfigureWindow +#define Tk_ConfigureWindow \ + (tkStubsPtr->tk_ConfigureWindow) /* 30 */ +#endif +#ifndef Tk_ComputeTextLayout +#define Tk_ComputeTextLayout \ + (tkStubsPtr->tk_ComputeTextLayout) /* 31 */ +#endif +#ifndef Tk_CoordsToWindow +#define Tk_CoordsToWindow \ + (tkStubsPtr->tk_CoordsToWindow) /* 32 */ +#endif +#ifndef Tk_CreateBinding +#define Tk_CreateBinding \ + (tkStubsPtr->tk_CreateBinding) /* 33 */ +#endif +#ifndef Tk_CreateBindingTable +#define Tk_CreateBindingTable \ + (tkStubsPtr->tk_CreateBindingTable) /* 34 */ +#endif +#ifndef Tk_CreateErrorHandler +#define Tk_CreateErrorHandler \ + (tkStubsPtr->tk_CreateErrorHandler) /* 35 */ +#endif +#ifndef Tk_CreateEventHandler +#define Tk_CreateEventHandler \ + (tkStubsPtr->tk_CreateEventHandler) /* 36 */ +#endif +#ifndef Tk_CreateGenericHandler +#define Tk_CreateGenericHandler \ + (tkStubsPtr->tk_CreateGenericHandler) /* 37 */ +#endif +#ifndef Tk_CreateImageType +#define Tk_CreateImageType \ + (tkStubsPtr->tk_CreateImageType) /* 38 */ +#endif +#ifndef Tk_CreateItemType +#define Tk_CreateItemType \ + (tkStubsPtr->tk_CreateItemType) /* 39 */ +#endif +#ifndef Tk_CreatePhotoImageFormat +#define Tk_CreatePhotoImageFormat \ + (tkStubsPtr->tk_CreatePhotoImageFormat) /* 40 */ +#endif +#ifndef Tk_CreateSelHandler +#define Tk_CreateSelHandler \ + (tkStubsPtr->tk_CreateSelHandler) /* 41 */ +#endif +#ifndef Tk_CreateWindow +#define Tk_CreateWindow \ + (tkStubsPtr->tk_CreateWindow) /* 42 */ +#endif +#ifndef Tk_CreateWindowFromPath +#define Tk_CreateWindowFromPath \ + (tkStubsPtr->tk_CreateWindowFromPath) /* 43 */ +#endif +#ifndef Tk_DefineBitmap +#define Tk_DefineBitmap \ + (tkStubsPtr->tk_DefineBitmap) /* 44 */ +#endif +#ifndef Tk_DefineCursor +#define Tk_DefineCursor \ + (tkStubsPtr->tk_DefineCursor) /* 45 */ +#endif +#ifndef Tk_DeleteAllBindings +#define Tk_DeleteAllBindings \ + (tkStubsPtr->tk_DeleteAllBindings) /* 46 */ +#endif +#ifndef Tk_DeleteBinding +#define Tk_DeleteBinding \ + (tkStubsPtr->tk_DeleteBinding) /* 47 */ +#endif +#ifndef Tk_DeleteBindingTable +#define Tk_DeleteBindingTable \ + (tkStubsPtr->tk_DeleteBindingTable) /* 48 */ +#endif +#ifndef Tk_DeleteErrorHandler +#define Tk_DeleteErrorHandler \ + (tkStubsPtr->tk_DeleteErrorHandler) /* 49 */ +#endif +#ifndef Tk_DeleteEventHandler +#define Tk_DeleteEventHandler \ + (tkStubsPtr->tk_DeleteEventHandler) /* 50 */ +#endif +#ifndef Tk_DeleteGenericHandler +#define Tk_DeleteGenericHandler \ + (tkStubsPtr->tk_DeleteGenericHandler) /* 51 */ +#endif +#ifndef Tk_DeleteImage +#define Tk_DeleteImage \ + (tkStubsPtr->tk_DeleteImage) /* 52 */ +#endif +#ifndef Tk_DeleteSelHandler +#define Tk_DeleteSelHandler \ + (tkStubsPtr->tk_DeleteSelHandler) /* 53 */ +#endif +#ifndef Tk_DestroyWindow +#define Tk_DestroyWindow \ + (tkStubsPtr->tk_DestroyWindow) /* 54 */ +#endif +#ifndef Tk_DisplayName +#define Tk_DisplayName \ + (tkStubsPtr->tk_DisplayName) /* 55 */ +#endif +#ifndef Tk_DistanceToTextLayout +#define Tk_DistanceToTextLayout \ + (tkStubsPtr->tk_DistanceToTextLayout) /* 56 */ +#endif +#ifndef Tk_Draw3DPolygon +#define Tk_Draw3DPolygon \ + (tkStubsPtr->tk_Draw3DPolygon) /* 57 */ +#endif +#ifndef Tk_Draw3DRectangle +#define Tk_Draw3DRectangle \ + (tkStubsPtr->tk_Draw3DRectangle) /* 58 */ +#endif +#ifndef Tk_DrawChars +#define Tk_DrawChars \ + (tkStubsPtr->tk_DrawChars) /* 59 */ +#endif +#ifndef Tk_DrawFocusHighlight +#define Tk_DrawFocusHighlight \ + (tkStubsPtr->tk_DrawFocusHighlight) /* 60 */ +#endif +#ifndef Tk_DrawTextLayout +#define Tk_DrawTextLayout \ + (tkStubsPtr->tk_DrawTextLayout) /* 61 */ +#endif +#ifndef Tk_Fill3DPolygon +#define Tk_Fill3DPolygon \ + (tkStubsPtr->tk_Fill3DPolygon) /* 62 */ +#endif +#ifndef Tk_Fill3DRectangle +#define Tk_Fill3DRectangle \ + (tkStubsPtr->tk_Fill3DRectangle) /* 63 */ +#endif +#ifndef Tk_FindPhoto +#define Tk_FindPhoto \ + (tkStubsPtr->tk_FindPhoto) /* 64 */ +#endif +#ifndef Tk_FontId +#define Tk_FontId \ + (tkStubsPtr->tk_FontId) /* 65 */ +#endif +#ifndef Tk_Free3DBorder +#define Tk_Free3DBorder \ + (tkStubsPtr->tk_Free3DBorder) /* 66 */ +#endif +#ifndef Tk_FreeBitmap +#define Tk_FreeBitmap \ + (tkStubsPtr->tk_FreeBitmap) /* 67 */ +#endif +#ifndef Tk_FreeColor +#define Tk_FreeColor \ + (tkStubsPtr->tk_FreeColor) /* 68 */ +#endif +#ifndef Tk_FreeColormap +#define Tk_FreeColormap \ + (tkStubsPtr->tk_FreeColormap) /* 69 */ +#endif +#ifndef Tk_FreeCursor +#define Tk_FreeCursor \ + (tkStubsPtr->tk_FreeCursor) /* 70 */ +#endif +#ifndef Tk_FreeFont +#define Tk_FreeFont \ + (tkStubsPtr->tk_FreeFont) /* 71 */ +#endif +#ifndef Tk_FreeGC +#define Tk_FreeGC \ + (tkStubsPtr->tk_FreeGC) /* 72 */ +#endif +#ifndef Tk_FreeImage +#define Tk_FreeImage \ + (tkStubsPtr->tk_FreeImage) /* 73 */ +#endif +#ifndef Tk_FreeOptions +#define Tk_FreeOptions \ + (tkStubsPtr->tk_FreeOptions) /* 74 */ +#endif +#ifndef Tk_FreePixmap +#define Tk_FreePixmap \ + (tkStubsPtr->tk_FreePixmap) /* 75 */ +#endif +#ifndef Tk_FreeTextLayout +#define Tk_FreeTextLayout \ + (tkStubsPtr->tk_FreeTextLayout) /* 76 */ +#endif +#ifndef Tk_FreeXId +#define Tk_FreeXId \ + (tkStubsPtr->tk_FreeXId) /* 77 */ +#endif +#ifndef Tk_GCForColor +#define Tk_GCForColor \ + (tkStubsPtr->tk_GCForColor) /* 78 */ +#endif +#ifndef Tk_GeometryRequest +#define Tk_GeometryRequest \ + (tkStubsPtr->tk_GeometryRequest) /* 79 */ +#endif +#ifndef Tk_Get3DBorder +#define Tk_Get3DBorder \ + (tkStubsPtr->tk_Get3DBorder) /* 80 */ +#endif +#ifndef Tk_GetAllBindings +#define Tk_GetAllBindings \ + (tkStubsPtr->tk_GetAllBindings) /* 81 */ +#endif +#ifndef Tk_GetAnchor +#define Tk_GetAnchor \ + (tkStubsPtr->tk_GetAnchor) /* 82 */ +#endif +#ifndef Tk_GetAtomName +#define Tk_GetAtomName \ + (tkStubsPtr->tk_GetAtomName) /* 83 */ +#endif +#ifndef Tk_GetBinding +#define Tk_GetBinding \ + (tkStubsPtr->tk_GetBinding) /* 84 */ +#endif +#ifndef Tk_GetBitmap +#define Tk_GetBitmap \ + (tkStubsPtr->tk_GetBitmap) /* 85 */ +#endif +#ifndef Tk_GetBitmapFromData +#define Tk_GetBitmapFromData \ + (tkStubsPtr->tk_GetBitmapFromData) /* 86 */ +#endif +#ifndef Tk_GetCapStyle +#define Tk_GetCapStyle \ + (tkStubsPtr->tk_GetCapStyle) /* 87 */ +#endif +#ifndef Tk_GetColor +#define Tk_GetColor \ + (tkStubsPtr->tk_GetColor) /* 88 */ +#endif +#ifndef Tk_GetColorByValue +#define Tk_GetColorByValue \ + (tkStubsPtr->tk_GetColorByValue) /* 89 */ +#endif +#ifndef Tk_GetColormap +#define Tk_GetColormap \ + (tkStubsPtr->tk_GetColormap) /* 90 */ +#endif +#ifndef Tk_GetCursor +#define Tk_GetCursor \ + (tkStubsPtr->tk_GetCursor) /* 91 */ +#endif +#ifndef Tk_GetCursorFromData +#define Tk_GetCursorFromData \ + (tkStubsPtr->tk_GetCursorFromData) /* 92 */ +#endif +#ifndef Tk_GetFont +#define Tk_GetFont \ + (tkStubsPtr->tk_GetFont) /* 93 */ +#endif +#ifndef Tk_GetFontFromObj +#define Tk_GetFontFromObj \ + (tkStubsPtr->tk_GetFontFromObj) /* 94 */ +#endif +#ifndef Tk_GetFontMetrics +#define Tk_GetFontMetrics \ + (tkStubsPtr->tk_GetFontMetrics) /* 95 */ +#endif +#ifndef Tk_GetGC +#define Tk_GetGC \ + (tkStubsPtr->tk_GetGC) /* 96 */ +#endif +#ifndef Tk_GetImage +#define Tk_GetImage \ + (tkStubsPtr->tk_GetImage) /* 97 */ +#endif +#ifndef Tk_GetImageMasterData +#define Tk_GetImageMasterData \ + (tkStubsPtr->tk_GetImageMasterData) /* 98 */ +#endif +#ifndef Tk_GetItemTypes +#define Tk_GetItemTypes \ + (tkStubsPtr->tk_GetItemTypes) /* 99 */ +#endif +#ifndef Tk_GetJoinStyle +#define Tk_GetJoinStyle \ + (tkStubsPtr->tk_GetJoinStyle) /* 100 */ +#endif +#ifndef Tk_GetJustify +#define Tk_GetJustify \ + (tkStubsPtr->tk_GetJustify) /* 101 */ +#endif +#ifndef Tk_GetNumMainWindows +#define Tk_GetNumMainWindows \ + (tkStubsPtr->tk_GetNumMainWindows) /* 102 */ +#endif +#ifndef Tk_GetOption +#define Tk_GetOption \ + (tkStubsPtr->tk_GetOption) /* 103 */ +#endif +#ifndef Tk_GetPixels +#define Tk_GetPixels \ + (tkStubsPtr->tk_GetPixels) /* 104 */ +#endif +#ifndef Tk_GetPixmap +#define Tk_GetPixmap \ + (tkStubsPtr->tk_GetPixmap) /* 105 */ +#endif +#ifndef Tk_GetRelief +#define Tk_GetRelief \ + (tkStubsPtr->tk_GetRelief) /* 106 */ +#endif +#ifndef Tk_GetRootCoords +#define Tk_GetRootCoords \ + (tkStubsPtr->tk_GetRootCoords) /* 107 */ +#endif +#ifndef Tk_GetScrollInfo +#define Tk_GetScrollInfo \ + (tkStubsPtr->tk_GetScrollInfo) /* 108 */ +#endif +#ifndef Tk_GetScreenMM +#define Tk_GetScreenMM \ + (tkStubsPtr->tk_GetScreenMM) /* 109 */ +#endif +#ifndef Tk_GetSelection +#define Tk_GetSelection \ + (tkStubsPtr->tk_GetSelection) /* 110 */ +#endif +#ifndef Tk_GetUid +#define Tk_GetUid \ + (tkStubsPtr->tk_GetUid) /* 111 */ +#endif +#ifndef Tk_GetVisual +#define Tk_GetVisual \ + (tkStubsPtr->tk_GetVisual) /* 112 */ +#endif +#ifndef Tk_GetVRootGeometry +#define Tk_GetVRootGeometry \ + (tkStubsPtr->tk_GetVRootGeometry) /* 113 */ +#endif +#ifndef Tk_Grab +#define Tk_Grab \ + (tkStubsPtr->tk_Grab) /* 114 */ +#endif +#ifndef Tk_HandleEvent +#define Tk_HandleEvent \ + (tkStubsPtr->tk_HandleEvent) /* 115 */ +#endif +#ifndef Tk_IdToWindow +#define Tk_IdToWindow \ + (tkStubsPtr->tk_IdToWindow) /* 116 */ +#endif +#ifndef Tk_ImageChanged +#define Tk_ImageChanged \ + (tkStubsPtr->tk_ImageChanged) /* 117 */ +#endif +#ifndef Tk_Init +#define Tk_Init \ + (tkStubsPtr->tk_Init) /* 118 */ +#endif +#ifndef Tk_InternAtom +#define Tk_InternAtom \ + (tkStubsPtr->tk_InternAtom) /* 119 */ +#endif +#ifndef Tk_IntersectTextLayout +#define Tk_IntersectTextLayout \ + (tkStubsPtr->tk_IntersectTextLayout) /* 120 */ +#endif +#ifndef Tk_MaintainGeometry +#define Tk_MaintainGeometry \ + (tkStubsPtr->tk_MaintainGeometry) /* 121 */ +#endif +#ifndef Tk_MainWindow +#define Tk_MainWindow \ + (tkStubsPtr->tk_MainWindow) /* 122 */ +#endif +#ifndef Tk_MakeWindowExist +#define Tk_MakeWindowExist \ + (tkStubsPtr->tk_MakeWindowExist) /* 123 */ +#endif +#ifndef Tk_ManageGeometry +#define Tk_ManageGeometry \ + (tkStubsPtr->tk_ManageGeometry) /* 124 */ +#endif +#ifndef Tk_MapWindow +#define Tk_MapWindow \ + (tkStubsPtr->tk_MapWindow) /* 125 */ +#endif +#ifndef Tk_MeasureChars +#define Tk_MeasureChars \ + (tkStubsPtr->tk_MeasureChars) /* 126 */ +#endif +#ifndef Tk_MoveResizeWindow +#define Tk_MoveResizeWindow \ + (tkStubsPtr->tk_MoveResizeWindow) /* 127 */ +#endif +#ifndef Tk_MoveWindow +#define Tk_MoveWindow \ + (tkStubsPtr->tk_MoveWindow) /* 128 */ +#endif +#ifndef Tk_MoveToplevelWindow +#define Tk_MoveToplevelWindow \ + (tkStubsPtr->tk_MoveToplevelWindow) /* 129 */ +#endif +#ifndef Tk_NameOf3DBorder +#define Tk_NameOf3DBorder \ + (tkStubsPtr->tk_NameOf3DBorder) /* 130 */ +#endif +#ifndef Tk_NameOfAnchor +#define Tk_NameOfAnchor \ + (tkStubsPtr->tk_NameOfAnchor) /* 131 */ +#endif +#ifndef Tk_NameOfBitmap +#define Tk_NameOfBitmap \ + (tkStubsPtr->tk_NameOfBitmap) /* 132 */ +#endif +#ifndef Tk_NameOfCapStyle +#define Tk_NameOfCapStyle \ + (tkStubsPtr->tk_NameOfCapStyle) /* 133 */ +#endif +#ifndef Tk_NameOfColor +#define Tk_NameOfColor \ + (tkStubsPtr->tk_NameOfColor) /* 134 */ +#endif +#ifndef Tk_NameOfCursor +#define Tk_NameOfCursor \ + (tkStubsPtr->tk_NameOfCursor) /* 135 */ +#endif +#ifndef Tk_NameOfFont +#define Tk_NameOfFont \ + (tkStubsPtr->tk_NameOfFont) /* 136 */ +#endif +#ifndef Tk_NameOfImage +#define Tk_NameOfImage \ + (tkStubsPtr->tk_NameOfImage) /* 137 */ +#endif +#ifndef Tk_NameOfJoinStyle +#define Tk_NameOfJoinStyle \ + (tkStubsPtr->tk_NameOfJoinStyle) /* 138 */ +#endif +#ifndef Tk_NameOfJustify +#define Tk_NameOfJustify \ + (tkStubsPtr->tk_NameOfJustify) /* 139 */ +#endif +#ifndef Tk_NameOfRelief +#define Tk_NameOfRelief \ + (tkStubsPtr->tk_NameOfRelief) /* 140 */ +#endif +#ifndef Tk_NameToWindow +#define Tk_NameToWindow \ + (tkStubsPtr->tk_NameToWindow) /* 141 */ +#endif +#ifndef Tk_OwnSelection +#define Tk_OwnSelection \ + (tkStubsPtr->tk_OwnSelection) /* 142 */ +#endif +#ifndef Tk_ParseArgv +#define Tk_ParseArgv \ + (tkStubsPtr->tk_ParseArgv) /* 143 */ +#endif +#ifndef Tk_PhotoPutBlock_NoComposite +#define Tk_PhotoPutBlock_NoComposite \ + (tkStubsPtr->tk_PhotoPutBlock_NoComposite) /* 144 */ +#endif +#ifndef Tk_PhotoPutZoomedBlock_NoComposite +#define Tk_PhotoPutZoomedBlock_NoComposite \ + (tkStubsPtr->tk_PhotoPutZoomedBlock_NoComposite) /* 145 */ +#endif +#ifndef Tk_PhotoGetImage +#define Tk_PhotoGetImage \ + (tkStubsPtr->tk_PhotoGetImage) /* 146 */ +#endif +#ifndef Tk_PhotoBlank +#define Tk_PhotoBlank \ + (tkStubsPtr->tk_PhotoBlank) /* 147 */ +#endif +#ifndef Tk_PhotoExpand_Panic +#define Tk_PhotoExpand_Panic \ + (tkStubsPtr->tk_PhotoExpand_Panic) /* 148 */ +#endif +#ifndef Tk_PhotoGetSize +#define Tk_PhotoGetSize \ + (tkStubsPtr->tk_PhotoGetSize) /* 149 */ +#endif +#ifndef Tk_PhotoSetSize_Panic +#define Tk_PhotoSetSize_Panic \ + (tkStubsPtr->tk_PhotoSetSize_Panic) /* 150 */ +#endif +#ifndef Tk_PointToChar +#define Tk_PointToChar \ + (tkStubsPtr->tk_PointToChar) /* 151 */ +#endif +#ifndef Tk_PostscriptFontName +#define Tk_PostscriptFontName \ + (tkStubsPtr->tk_PostscriptFontName) /* 152 */ +#endif +#ifndef Tk_PreserveColormap +#define Tk_PreserveColormap \ + (tkStubsPtr->tk_PreserveColormap) /* 153 */ +#endif +#ifndef Tk_QueueWindowEvent +#define Tk_QueueWindowEvent \ + (tkStubsPtr->tk_QueueWindowEvent) /* 154 */ +#endif +#ifndef Tk_RedrawImage +#define Tk_RedrawImage \ + (tkStubsPtr->tk_RedrawImage) /* 155 */ +#endif +#ifndef Tk_ResizeWindow +#define Tk_ResizeWindow \ + (tkStubsPtr->tk_ResizeWindow) /* 156 */ +#endif +#ifndef Tk_RestackWindow +#define Tk_RestackWindow \ + (tkStubsPtr->tk_RestackWindow) /* 157 */ +#endif +#ifndef Tk_RestrictEvents +#define Tk_RestrictEvents \ + (tkStubsPtr->tk_RestrictEvents) /* 158 */ +#endif +#ifndef Tk_SafeInit +#define Tk_SafeInit \ + (tkStubsPtr->tk_SafeInit) /* 159 */ +#endif +#ifndef Tk_SetAppName +#define Tk_SetAppName \ + (tkStubsPtr->tk_SetAppName) /* 160 */ +#endif +#ifndef Tk_SetBackgroundFromBorder +#define Tk_SetBackgroundFromBorder \ + (tkStubsPtr->tk_SetBackgroundFromBorder) /* 161 */ +#endif +#ifndef Tk_SetClass +#define Tk_SetClass \ + (tkStubsPtr->tk_SetClass) /* 162 */ +#endif +#ifndef Tk_SetGrid +#define Tk_SetGrid \ + (tkStubsPtr->tk_SetGrid) /* 163 */ +#endif +#ifndef Tk_SetInternalBorder +#define Tk_SetInternalBorder \ + (tkStubsPtr->tk_SetInternalBorder) /* 164 */ +#endif +#ifndef Tk_SetWindowBackground +#define Tk_SetWindowBackground \ + (tkStubsPtr->tk_SetWindowBackground) /* 165 */ +#endif +#ifndef Tk_SetWindowBackgroundPixmap +#define Tk_SetWindowBackgroundPixmap \ + (tkStubsPtr->tk_SetWindowBackgroundPixmap) /* 166 */ +#endif +#ifndef Tk_SetWindowBorder +#define Tk_SetWindowBorder \ + (tkStubsPtr->tk_SetWindowBorder) /* 167 */ +#endif +#ifndef Tk_SetWindowBorderWidth +#define Tk_SetWindowBorderWidth \ + (tkStubsPtr->tk_SetWindowBorderWidth) /* 168 */ +#endif +#ifndef Tk_SetWindowBorderPixmap +#define Tk_SetWindowBorderPixmap \ + (tkStubsPtr->tk_SetWindowBorderPixmap) /* 169 */ +#endif +#ifndef Tk_SetWindowColormap +#define Tk_SetWindowColormap \ + (tkStubsPtr->tk_SetWindowColormap) /* 170 */ +#endif +#ifndef Tk_SetWindowVisual +#define Tk_SetWindowVisual \ + (tkStubsPtr->tk_SetWindowVisual) /* 171 */ +#endif +#ifndef Tk_SizeOfBitmap +#define Tk_SizeOfBitmap \ + (tkStubsPtr->tk_SizeOfBitmap) /* 172 */ +#endif +#ifndef Tk_SizeOfImage +#define Tk_SizeOfImage \ + (tkStubsPtr->tk_SizeOfImage) /* 173 */ +#endif +#ifndef Tk_StrictMotif +#define Tk_StrictMotif \ + (tkStubsPtr->tk_StrictMotif) /* 174 */ +#endif +#ifndef Tk_TextLayoutToPostscript +#define Tk_TextLayoutToPostscript \ + (tkStubsPtr->tk_TextLayoutToPostscript) /* 175 */ +#endif +#ifndef Tk_TextWidth +#define Tk_TextWidth \ + (tkStubsPtr->tk_TextWidth) /* 176 */ +#endif +#ifndef Tk_UndefineCursor +#define Tk_UndefineCursor \ + (tkStubsPtr->tk_UndefineCursor) /* 177 */ +#endif +#ifndef Tk_UnderlineChars +#define Tk_UnderlineChars \ + (tkStubsPtr->tk_UnderlineChars) /* 178 */ +#endif +#ifndef Tk_UnderlineTextLayout +#define Tk_UnderlineTextLayout \ + (tkStubsPtr->tk_UnderlineTextLayout) /* 179 */ +#endif +#ifndef Tk_Ungrab +#define Tk_Ungrab \ + (tkStubsPtr->tk_Ungrab) /* 180 */ +#endif +#ifndef Tk_UnmaintainGeometry +#define Tk_UnmaintainGeometry \ + (tkStubsPtr->tk_UnmaintainGeometry) /* 181 */ +#endif +#ifndef Tk_UnmapWindow +#define Tk_UnmapWindow \ + (tkStubsPtr->tk_UnmapWindow) /* 182 */ +#endif +#ifndef Tk_UnsetGrid +#define Tk_UnsetGrid \ + (tkStubsPtr->tk_UnsetGrid) /* 183 */ +#endif +#ifndef Tk_UpdatePointer +#define Tk_UpdatePointer \ + (tkStubsPtr->tk_UpdatePointer) /* 184 */ +#endif +#ifndef Tk_AllocBitmapFromObj +#define Tk_AllocBitmapFromObj \ + (tkStubsPtr->tk_AllocBitmapFromObj) /* 185 */ +#endif +#ifndef Tk_Alloc3DBorderFromObj +#define Tk_Alloc3DBorderFromObj \ + (tkStubsPtr->tk_Alloc3DBorderFromObj) /* 186 */ +#endif +#ifndef Tk_AllocColorFromObj +#define Tk_AllocColorFromObj \ + (tkStubsPtr->tk_AllocColorFromObj) /* 187 */ +#endif +#ifndef Tk_AllocCursorFromObj +#define Tk_AllocCursorFromObj \ + (tkStubsPtr->tk_AllocCursorFromObj) /* 188 */ +#endif +#ifndef Tk_AllocFontFromObj +#define Tk_AllocFontFromObj \ + (tkStubsPtr->tk_AllocFontFromObj) /* 189 */ +#endif +#ifndef Tk_CreateOptionTable +#define Tk_CreateOptionTable \ + (tkStubsPtr->tk_CreateOptionTable) /* 190 */ +#endif +#ifndef Tk_DeleteOptionTable +#define Tk_DeleteOptionTable \ + (tkStubsPtr->tk_DeleteOptionTable) /* 191 */ +#endif +#ifndef Tk_Free3DBorderFromObj +#define Tk_Free3DBorderFromObj \ + (tkStubsPtr->tk_Free3DBorderFromObj) /* 192 */ +#endif +#ifndef Tk_FreeBitmapFromObj +#define Tk_FreeBitmapFromObj \ + (tkStubsPtr->tk_FreeBitmapFromObj) /* 193 */ +#endif +#ifndef Tk_FreeColorFromObj +#define Tk_FreeColorFromObj \ + (tkStubsPtr->tk_FreeColorFromObj) /* 194 */ +#endif +#ifndef Tk_FreeConfigOptions +#define Tk_FreeConfigOptions \ + (tkStubsPtr->tk_FreeConfigOptions) /* 195 */ +#endif +#ifndef Tk_FreeSavedOptions +#define Tk_FreeSavedOptions \ + (tkStubsPtr->tk_FreeSavedOptions) /* 196 */ +#endif +#ifndef Tk_FreeCursorFromObj +#define Tk_FreeCursorFromObj \ + (tkStubsPtr->tk_FreeCursorFromObj) /* 197 */ +#endif +#ifndef Tk_FreeFontFromObj +#define Tk_FreeFontFromObj \ + (tkStubsPtr->tk_FreeFontFromObj) /* 198 */ +#endif +#ifndef Tk_Get3DBorderFromObj +#define Tk_Get3DBorderFromObj \ + (tkStubsPtr->tk_Get3DBorderFromObj) /* 199 */ +#endif +#ifndef Tk_GetAnchorFromObj +#define Tk_GetAnchorFromObj \ + (tkStubsPtr->tk_GetAnchorFromObj) /* 200 */ +#endif +#ifndef Tk_GetBitmapFromObj +#define Tk_GetBitmapFromObj \ + (tkStubsPtr->tk_GetBitmapFromObj) /* 201 */ +#endif +#ifndef Tk_GetColorFromObj +#define Tk_GetColorFromObj \ + (tkStubsPtr->tk_GetColorFromObj) /* 202 */ +#endif +#ifndef Tk_GetCursorFromObj +#define Tk_GetCursorFromObj \ + (tkStubsPtr->tk_GetCursorFromObj) /* 203 */ +#endif +#ifndef Tk_GetOptionInfo +#define Tk_GetOptionInfo \ + (tkStubsPtr->tk_GetOptionInfo) /* 204 */ +#endif +#ifndef Tk_GetOptionValue +#define Tk_GetOptionValue \ + (tkStubsPtr->tk_GetOptionValue) /* 205 */ +#endif +#ifndef Tk_GetJustifyFromObj +#define Tk_GetJustifyFromObj \ + (tkStubsPtr->tk_GetJustifyFromObj) /* 206 */ +#endif +#ifndef Tk_GetMMFromObj +#define Tk_GetMMFromObj \ + (tkStubsPtr->tk_GetMMFromObj) /* 207 */ +#endif +#ifndef Tk_GetPixelsFromObj +#define Tk_GetPixelsFromObj \ + (tkStubsPtr->tk_GetPixelsFromObj) /* 208 */ +#endif +#ifndef Tk_GetReliefFromObj +#define Tk_GetReliefFromObj \ + (tkStubsPtr->tk_GetReliefFromObj) /* 209 */ +#endif +#ifndef Tk_GetScrollInfoObj +#define Tk_GetScrollInfoObj \ + (tkStubsPtr->tk_GetScrollInfoObj) /* 210 */ +#endif +#ifndef Tk_InitOptions +#define Tk_InitOptions \ + (tkStubsPtr->tk_InitOptions) /* 211 */ +#endif +#ifndef Tk_MainEx +#define Tk_MainEx \ + (tkStubsPtr->tk_MainEx) /* 212 */ +#endif +#ifndef Tk_RestoreSavedOptions +#define Tk_RestoreSavedOptions \ + (tkStubsPtr->tk_RestoreSavedOptions) /* 213 */ +#endif +#ifndef Tk_SetOptions +#define Tk_SetOptions \ + (tkStubsPtr->tk_SetOptions) /* 214 */ +#endif +#ifndef Tk_InitConsoleChannels +#define Tk_InitConsoleChannels \ + (tkStubsPtr->tk_InitConsoleChannels) /* 215 */ +#endif +#ifndef Tk_CreateConsoleWindow +#define Tk_CreateConsoleWindow \ + (tkStubsPtr->tk_CreateConsoleWindow) /* 216 */ +#endif +#ifndef Tk_CreateSmoothMethod +#define Tk_CreateSmoothMethod \ + (tkStubsPtr->tk_CreateSmoothMethod) /* 217 */ +#endif +/* Slot 218 is reserved */ +/* Slot 219 is reserved */ +#ifndef Tk_GetDash +#define Tk_GetDash \ + (tkStubsPtr->tk_GetDash) /* 220 */ +#endif +#ifndef Tk_CreateOutline +#define Tk_CreateOutline \ + (tkStubsPtr->tk_CreateOutline) /* 221 */ +#endif +#ifndef Tk_DeleteOutline +#define Tk_DeleteOutline \ + (tkStubsPtr->tk_DeleteOutline) /* 222 */ +#endif +#ifndef Tk_ConfigOutlineGC +#define Tk_ConfigOutlineGC \ + (tkStubsPtr->tk_ConfigOutlineGC) /* 223 */ +#endif +#ifndef Tk_ChangeOutlineGC +#define Tk_ChangeOutlineGC \ + (tkStubsPtr->tk_ChangeOutlineGC) /* 224 */ +#endif +#ifndef Tk_ResetOutlineGC +#define Tk_ResetOutlineGC \ + (tkStubsPtr->tk_ResetOutlineGC) /* 225 */ +#endif +#ifndef Tk_CanvasPsOutline +#define Tk_CanvasPsOutline \ + (tkStubsPtr->tk_CanvasPsOutline) /* 226 */ +#endif +#ifndef Tk_SetTSOrigin +#define Tk_SetTSOrigin \ + (tkStubsPtr->tk_SetTSOrigin) /* 227 */ +#endif +#ifndef Tk_CanvasGetCoordFromObj +#define Tk_CanvasGetCoordFromObj \ + (tkStubsPtr->tk_CanvasGetCoordFromObj) /* 228 */ +#endif +#ifndef Tk_CanvasSetOffset +#define Tk_CanvasSetOffset \ + (tkStubsPtr->tk_CanvasSetOffset) /* 229 */ +#endif +#ifndef Tk_DitherPhoto +#define Tk_DitherPhoto \ + (tkStubsPtr->tk_DitherPhoto) /* 230 */ +#endif +#ifndef Tk_PostscriptBitmap +#define Tk_PostscriptBitmap \ + (tkStubsPtr->tk_PostscriptBitmap) /* 231 */ +#endif +#ifndef Tk_PostscriptColor +#define Tk_PostscriptColor \ + (tkStubsPtr->tk_PostscriptColor) /* 232 */ +#endif +#ifndef Tk_PostscriptFont +#define Tk_PostscriptFont \ + (tkStubsPtr->tk_PostscriptFont) /* 233 */ +#endif +#ifndef Tk_PostscriptImage +#define Tk_PostscriptImage \ + (tkStubsPtr->tk_PostscriptImage) /* 234 */ +#endif +#ifndef Tk_PostscriptPath +#define Tk_PostscriptPath \ + (tkStubsPtr->tk_PostscriptPath) /* 235 */ +#endif +#ifndef Tk_PostscriptStipple +#define Tk_PostscriptStipple \ + (tkStubsPtr->tk_PostscriptStipple) /* 236 */ +#endif +#ifndef Tk_PostscriptY +#define Tk_PostscriptY \ + (tkStubsPtr->tk_PostscriptY) /* 237 */ +#endif +#ifndef Tk_PostscriptPhoto +#define Tk_PostscriptPhoto \ + (tkStubsPtr->tk_PostscriptPhoto) /* 238 */ +#endif +#ifndef Tk_CreateClientMessageHandler +#define Tk_CreateClientMessageHandler \ + (tkStubsPtr->tk_CreateClientMessageHandler) /* 239 */ +#endif +#ifndef Tk_DeleteClientMessageHandler +#define Tk_DeleteClientMessageHandler \ + (tkStubsPtr->tk_DeleteClientMessageHandler) /* 240 */ +#endif +#ifndef Tk_CreateAnonymousWindow +#define Tk_CreateAnonymousWindow \ + (tkStubsPtr->tk_CreateAnonymousWindow) /* 241 */ +#endif +#ifndef Tk_SetClassProcs +#define Tk_SetClassProcs \ + (tkStubsPtr->tk_SetClassProcs) /* 242 */ +#endif +#ifndef Tk_SetInternalBorderEx +#define Tk_SetInternalBorderEx \ + (tkStubsPtr->tk_SetInternalBorderEx) /* 243 */ +#endif +#ifndef Tk_SetMinimumRequestSize +#define Tk_SetMinimumRequestSize \ + (tkStubsPtr->tk_SetMinimumRequestSize) /* 244 */ +#endif +#ifndef Tk_SetCaretPos +#define Tk_SetCaretPos \ + (tkStubsPtr->tk_SetCaretPos) /* 245 */ +#endif +#ifndef Tk_PhotoPutBlock_Panic +#define Tk_PhotoPutBlock_Panic \ + (tkStubsPtr->tk_PhotoPutBlock_Panic) /* 246 */ +#endif +#ifndef Tk_PhotoPutZoomedBlock_Panic +#define Tk_PhotoPutZoomedBlock_Panic \ + (tkStubsPtr->tk_PhotoPutZoomedBlock_Panic) /* 247 */ +#endif +#ifndef Tk_CollapseMotionEvents +#define Tk_CollapseMotionEvents \ + (tkStubsPtr->tk_CollapseMotionEvents) /* 248 */ +#endif +#ifndef Tk_RegisterStyleEngine +#define Tk_RegisterStyleEngine \ + (tkStubsPtr->tk_RegisterStyleEngine) /* 249 */ +#endif +#ifndef Tk_GetStyleEngine +#define Tk_GetStyleEngine \ + (tkStubsPtr->tk_GetStyleEngine) /* 250 */ +#endif +#ifndef Tk_RegisterStyledElement +#define Tk_RegisterStyledElement \ + (tkStubsPtr->tk_RegisterStyledElement) /* 251 */ +#endif +#ifndef Tk_GetElementId +#define Tk_GetElementId \ + (tkStubsPtr->tk_GetElementId) /* 252 */ +#endif +#ifndef Tk_CreateStyle +#define Tk_CreateStyle \ + (tkStubsPtr->tk_CreateStyle) /* 253 */ +#endif +#ifndef Tk_GetStyle +#define Tk_GetStyle \ + (tkStubsPtr->tk_GetStyle) /* 254 */ +#endif +#ifndef Tk_FreeStyle +#define Tk_FreeStyle \ + (tkStubsPtr->tk_FreeStyle) /* 255 */ +#endif +#ifndef Tk_NameOfStyle +#define Tk_NameOfStyle \ + (tkStubsPtr->tk_NameOfStyle) /* 256 */ +#endif +#ifndef Tk_AllocStyleFromObj +#define Tk_AllocStyleFromObj \ + (tkStubsPtr->tk_AllocStyleFromObj) /* 257 */ +#endif +#ifndef Tk_GetStyleFromObj +#define Tk_GetStyleFromObj \ + (tkStubsPtr->tk_GetStyleFromObj) /* 258 */ +#endif +#ifndef Tk_FreeStyleFromObj +#define Tk_FreeStyleFromObj \ + (tkStubsPtr->tk_FreeStyleFromObj) /* 259 */ +#endif +#ifndef Tk_GetStyledElement +#define Tk_GetStyledElement \ + (tkStubsPtr->tk_GetStyledElement) /* 260 */ +#endif +#ifndef Tk_GetElementSize +#define Tk_GetElementSize \ + (tkStubsPtr->tk_GetElementSize) /* 261 */ +#endif +#ifndef Tk_GetElementBox +#define Tk_GetElementBox \ + (tkStubsPtr->tk_GetElementBox) /* 262 */ +#endif +#ifndef Tk_GetElementBorderWidth +#define Tk_GetElementBorderWidth \ + (tkStubsPtr->tk_GetElementBorderWidth) /* 263 */ +#endif +#ifndef Tk_DrawElement +#define Tk_DrawElement \ + (tkStubsPtr->tk_DrawElement) /* 264 */ +#endif +#ifndef Tk_PhotoExpand +#define Tk_PhotoExpand \ + (tkStubsPtr->tk_PhotoExpand) /* 265 */ +#endif +#ifndef Tk_PhotoPutBlock +#define Tk_PhotoPutBlock \ + (tkStubsPtr->tk_PhotoPutBlock) /* 266 */ +#endif +#ifndef Tk_PhotoPutZoomedBlock +#define Tk_PhotoPutZoomedBlock \ + (tkStubsPtr->tk_PhotoPutZoomedBlock) /* 267 */ +#endif +#ifndef Tk_PhotoSetSize +#define Tk_PhotoSetSize \ + (tkStubsPtr->tk_PhotoSetSize) /* 268 */ +#endif +#ifndef Tk_GetUserInactiveTime +#define Tk_GetUserInactiveTime \ + (tkStubsPtr->tk_GetUserInactiveTime) /* 269 */ +#endif +#ifndef Tk_ResetUserInactiveTime +#define Tk_ResetUserInactiveTime \ + (tkStubsPtr->tk_ResetUserInactiveTime) /* 270 */ +#endif +#ifndef Tk_Interp +#define Tk_Interp \ + (tkStubsPtr->tk_Interp) /* 271 */ +#endif +#ifndef Tk_CreateOldImageType +#define Tk_CreateOldImageType \ + (tkStubsPtr->tk_CreateOldImageType) /* 272 */ +#endif +#ifndef Tk_CreateOldPhotoImageFormat +#define Tk_CreateOldPhotoImageFormat \ + (tkStubsPtr->tk_CreateOldPhotoImageFormat) /* 273 */ +#endif +/* Slot 274 is reserved */ +#ifndef TkUnusedStubEntry +#define TkUnusedStubEntry \ + (tkStubsPtr->tkUnusedStubEntry) /* 275 */ +#endif + +#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#undef TkUnusedStubEntry + +#endif /* _TKDECLS */ + diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tkPlatDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tkPlatDecls.h new file mode 100644 index 00000000..eb3d74da --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.5/tkPlatDecls.h @@ -0,0 +1,253 @@ +/* + * tkPlatDecls.h -- + * + * Declarations of functions in the platform-specific public Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TKPLATDECLS +#define _TKPLATDECLS + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tk.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * Exported function declarations: + */ + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ +#ifndef Tk_AttachHWND_TCL_DECLARED +#define Tk_AttachHWND_TCL_DECLARED +/* 0 */ +EXTERN Window Tk_AttachHWND(Tk_Window tkwin, HWND hwnd); +#endif +#ifndef Tk_GetHINSTANCE_TCL_DECLARED +#define Tk_GetHINSTANCE_TCL_DECLARED +/* 1 */ +EXTERN HINSTANCE Tk_GetHINSTANCE(void); +#endif +#ifndef Tk_GetHWND_TCL_DECLARED +#define Tk_GetHWND_TCL_DECLARED +/* 2 */ +EXTERN HWND Tk_GetHWND(Window window); +#endif +#ifndef Tk_HWNDToWindow_TCL_DECLARED +#define Tk_HWNDToWindow_TCL_DECLARED +/* 3 */ +EXTERN Tk_Window Tk_HWNDToWindow(HWND hwnd); +#endif +#ifndef Tk_PointerEvent_TCL_DECLARED +#define Tk_PointerEvent_TCL_DECLARED +/* 4 */ +EXTERN void Tk_PointerEvent(HWND hwnd, int x, int y); +#endif +#ifndef Tk_TranslateWinEvent_TCL_DECLARED +#define Tk_TranslateWinEvent_TCL_DECLARED +/* 5 */ +EXTERN int Tk_TranslateWinEvent(HWND hwnd, UINT message, + WPARAM wParam, LPARAM lParam, + LRESULT *result); +#endif +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ +#ifndef Tk_MacOSXSetEmbedHandler_TCL_DECLARED +#define Tk_MacOSXSetEmbedHandler_TCL_DECLARED +/* 0 */ +EXTERN void Tk_MacOSXSetEmbedHandler( + Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, + Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, + Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, + Tk_MacOSXEmbedGetClipProc *getClipProc, + Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc); +#endif +#ifndef Tk_MacOSXTurnOffMenus_TCL_DECLARED +#define Tk_MacOSXTurnOffMenus_TCL_DECLARED +/* 1 */ +EXTERN void Tk_MacOSXTurnOffMenus(void); +#endif +#ifndef Tk_MacOSXTkOwnsCursor_TCL_DECLARED +#define Tk_MacOSXTkOwnsCursor_TCL_DECLARED +/* 2 */ +EXTERN void Tk_MacOSXTkOwnsCursor(int tkOwnsIt); +#endif +#ifndef TkMacOSXInitMenus_TCL_DECLARED +#define TkMacOSXInitMenus_TCL_DECLARED +/* 3 */ +EXTERN void TkMacOSXInitMenus(Tcl_Interp *interp); +#endif +#ifndef TkMacOSXInitAppleEvents_TCL_DECLARED +#define TkMacOSXInitAppleEvents_TCL_DECLARED +/* 4 */ +EXTERN void TkMacOSXInitAppleEvents(Tcl_Interp *interp); +#endif +#ifndef TkGenWMConfigureEvent_TCL_DECLARED +#define TkGenWMConfigureEvent_TCL_DECLARED +/* 5 */ +EXTERN void TkGenWMConfigureEvent(Tk_Window tkwin, int x, int y, + int width, int height, int flags); +#endif +#ifndef TkMacOSXInvalClipRgns_TCL_DECLARED +#define TkMacOSXInvalClipRgns_TCL_DECLARED +/* 6 */ +EXTERN void TkMacOSXInvalClipRgns(Tk_Window tkwin); +#endif +#ifndef TkMacOSXGetDrawablePort_TCL_DECLARED +#define TkMacOSXGetDrawablePort_TCL_DECLARED +/* 7 */ +EXTERN VOID * TkMacOSXGetDrawablePort(Drawable drawable); +#endif +#ifndef TkMacOSXGetRootControl_TCL_DECLARED +#define TkMacOSXGetRootControl_TCL_DECLARED +/* 8 */ +EXTERN VOID * TkMacOSXGetRootControl(Drawable drawable); +#endif +#ifndef Tk_MacOSXSetupTkNotifier_TCL_DECLARED +#define Tk_MacOSXSetupTkNotifier_TCL_DECLARED +/* 9 */ +EXTERN void Tk_MacOSXSetupTkNotifier(void); +#endif +#ifndef Tk_MacOSXIsAppInFront_TCL_DECLARED +#define Tk_MacOSXIsAppInFront_TCL_DECLARED +/* 10 */ +EXTERN int Tk_MacOSXIsAppInFront(void); +#endif +#endif /* AQUA */ + +typedef struct TkPlatStubs { + int magic; + struct TkPlatStubHooks *hooks; + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ + Window (*tk_AttachHWND) (Tk_Window tkwin, HWND hwnd); /* 0 */ + HINSTANCE (*tk_GetHINSTANCE) (void); /* 1 */ + HWND (*tk_GetHWND) (Window window); /* 2 */ + Tk_Window (*tk_HWNDToWindow) (HWND hwnd); /* 3 */ + void (*tk_PointerEvent) (HWND hwnd, int x, int y); /* 4 */ + int (*tk_TranslateWinEvent) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam, LRESULT *result); /* 5 */ +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ + void (*tk_MacOSXSetEmbedHandler) (Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, Tk_MacOSXEmbedGetClipProc *getClipProc, Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc); /* 0 */ + void (*tk_MacOSXTurnOffMenus) (void); /* 1 */ + void (*tk_MacOSXTkOwnsCursor) (int tkOwnsIt); /* 2 */ + void (*tkMacOSXInitMenus) (Tcl_Interp *interp); /* 3 */ + void (*tkMacOSXInitAppleEvents) (Tcl_Interp *interp); /* 4 */ + void (*tkGenWMConfigureEvent) (Tk_Window tkwin, int x, int y, int width, int height, int flags); /* 5 */ + void (*tkMacOSXInvalClipRgns) (Tk_Window tkwin); /* 6 */ + VOID * (*tkMacOSXGetDrawablePort) (Drawable drawable); /* 7 */ + VOID * (*tkMacOSXGetRootControl) (Drawable drawable); /* 8 */ + void (*tk_MacOSXSetupTkNotifier) (void); /* 9 */ + int (*tk_MacOSXIsAppInFront) (void); /* 10 */ +#endif /* AQUA */ +} TkPlatStubs; + +extern TkPlatStubs *tkPlatStubsPtr; + +#ifdef __cplusplus +} +#endif + +#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ +#ifndef Tk_AttachHWND +#define Tk_AttachHWND \ + (tkPlatStubsPtr->tk_AttachHWND) /* 0 */ +#endif +#ifndef Tk_GetHINSTANCE +#define Tk_GetHINSTANCE \ + (tkPlatStubsPtr->tk_GetHINSTANCE) /* 1 */ +#endif +#ifndef Tk_GetHWND +#define Tk_GetHWND \ + (tkPlatStubsPtr->tk_GetHWND) /* 2 */ +#endif +#ifndef Tk_HWNDToWindow +#define Tk_HWNDToWindow \ + (tkPlatStubsPtr->tk_HWNDToWindow) /* 3 */ +#endif +#ifndef Tk_PointerEvent +#define Tk_PointerEvent \ + (tkPlatStubsPtr->tk_PointerEvent) /* 4 */ +#endif +#ifndef Tk_TranslateWinEvent +#define Tk_TranslateWinEvent \ + (tkPlatStubsPtr->tk_TranslateWinEvent) /* 5 */ +#endif +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ +#ifndef Tk_MacOSXSetEmbedHandler +#define Tk_MacOSXSetEmbedHandler \ + (tkPlatStubsPtr->tk_MacOSXSetEmbedHandler) /* 0 */ +#endif +#ifndef Tk_MacOSXTurnOffMenus +#define Tk_MacOSXTurnOffMenus \ + (tkPlatStubsPtr->tk_MacOSXTurnOffMenus) /* 1 */ +#endif +#ifndef Tk_MacOSXTkOwnsCursor +#define Tk_MacOSXTkOwnsCursor \ + (tkPlatStubsPtr->tk_MacOSXTkOwnsCursor) /* 2 */ +#endif +#ifndef TkMacOSXInitMenus +#define TkMacOSXInitMenus \ + (tkPlatStubsPtr->tkMacOSXInitMenus) /* 3 */ +#endif +#ifndef TkMacOSXInitAppleEvents +#define TkMacOSXInitAppleEvents \ + (tkPlatStubsPtr->tkMacOSXInitAppleEvents) /* 4 */ +#endif +#ifndef TkGenWMConfigureEvent +#define TkGenWMConfigureEvent \ + (tkPlatStubsPtr->tkGenWMConfigureEvent) /* 5 */ +#endif +#ifndef TkMacOSXInvalClipRgns +#define TkMacOSXInvalClipRgns \ + (tkPlatStubsPtr->tkMacOSXInvalClipRgns) /* 6 */ +#endif +#ifndef TkMacOSXGetDrawablePort +#define TkMacOSXGetDrawablePort \ + (tkPlatStubsPtr->tkMacOSXGetDrawablePort) /* 7 */ +#endif +#ifndef TkMacOSXGetRootControl +#define TkMacOSXGetRootControl \ + (tkPlatStubsPtr->tkMacOSXGetRootControl) /* 8 */ +#endif +#ifndef Tk_MacOSXSetupTkNotifier +#define Tk_MacOSXSetupTkNotifier \ + (tkPlatStubsPtr->tk_MacOSXSetupTkNotifier) /* 9 */ +#endif +#ifndef Tk_MacOSXIsAppInFront +#define Tk_MacOSXIsAppInFront \ + (tkPlatStubsPtr->tk_MacOSXIsAppInFront) /* 10 */ +#endif +#endif /* AQUA */ + +#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* _TKPLATDECLS */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/X.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/X.h new file mode 100644 index 00000000..daf22830 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/X.h @@ -0,0 +1,677 @@ +/* + * $XConsortium: X.h,v 1.66 88/09/06 15:55:56 jim Exp $ + */ + +/* Definitions for the X window system likely to be used by applications */ + +#ifndef X_H +#define X_H + +/*********************************************************** +Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, +and the Massachusetts Institute of Technology, Cambridge, Massachusetts. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Digital or MIT not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. + +DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING +ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL +DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR +ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, +WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, +ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS +SOFTWARE. + +******************************************************************/ +#define X_PROTOCOL 11 /* current protocol version */ +#define X_PROTOCOL_REVISION 0 /* current minor version */ + +#if defined(MAC_OSX_TK) +# define Cursor XCursor +# define Region XRegion +#endif + +/* Resources */ + +#ifdef _WIN64 +typedef __int64 XID; +#else +typedef unsigned long XID; +#endif + +typedef XID Window; +typedef XID Drawable; +typedef XID Font; +typedef XID Pixmap; +typedef XID Cursor; +typedef XID Colormap; +typedef XID GContext; +typedef XID KeySym; + +typedef unsigned long Mask; + +typedef unsigned long Atom; + +typedef unsigned long VisualID; + +typedef unsigned long Time; + +typedef unsigned long KeyCode; /* In order to use IME, the Macintosh needs + * to pack 3 bytes into the keyCode field in + * the XEvent. In the real X.h, a KeyCode is + * defined as a short, which wouldn't be big + * enough. */ + +/***************************************************************** + * RESERVED RESOURCE AND CONSTANT DEFINITIONS + *****************************************************************/ + +#define None 0L /* universal null resource or null atom */ + +#define ParentRelative 1L /* background pixmap in CreateWindow + and ChangeWindowAttributes */ + +#define CopyFromParent 0L /* border pixmap in CreateWindow + and ChangeWindowAttributes + special VisualID and special window + class passed to CreateWindow */ + +#define PointerWindow 0L /* destination window in SendEvent */ +#define InputFocus 1L /* destination window in SendEvent */ + +#define PointerRoot 1L /* focus window in SetInputFocus */ + +#define AnyPropertyType 0L /* special Atom, passed to GetProperty */ + +#define AnyKey 0L /* special Key Code, passed to GrabKey */ + +#define AnyButton 0L /* special Button Code, passed to GrabButton */ + +#define AllTemporary 0L /* special Resource ID passed to KillClient */ + +#define CurrentTime 0L /* special Time */ + +#define NoSymbol 0L /* special KeySym */ + +/***************************************************************** + * EVENT DEFINITIONS + *****************************************************************/ + +/* Input Event Masks. Used as event-mask window attribute and as arguments + to Grab requests. Not to be confused with event names. */ + +#define NoEventMask 0L +#define KeyPressMask (1L<<0) +#define KeyReleaseMask (1L<<1) +#define ButtonPressMask (1L<<2) +#define ButtonReleaseMask (1L<<3) +#define EnterWindowMask (1L<<4) +#define LeaveWindowMask (1L<<5) +#define PointerMotionMask (1L<<6) +#define PointerMotionHintMask (1L<<7) +#define Button1MotionMask (1L<<8) +#define Button2MotionMask (1L<<9) +#define Button3MotionMask (1L<<10) +#define Button4MotionMask (1L<<11) +#define Button5MotionMask (1L<<12) +#define ButtonMotionMask (1L<<13) +#define KeymapStateMask (1L<<14) +#define ExposureMask (1L<<15) +#define VisibilityChangeMask (1L<<16) +#define StructureNotifyMask (1L<<17) +#define ResizeRedirectMask (1L<<18) +#define SubstructureNotifyMask (1L<<19) +#define SubstructureRedirectMask (1L<<20) +#define FocusChangeMask (1L<<21) +#define PropertyChangeMask (1L<<22) +#define ColormapChangeMask (1L<<23) +#define OwnerGrabButtonMask (1L<<24) + +/* Event names. Used in "type" field in XEvent structures. Not to be +confused with event masks above. They start from 2 because 0 and 1 +are reserved in the protocol for errors and replies. */ + +#define KeyPress 2 +#define KeyRelease 3 +#define ButtonPress 4 +#define ButtonRelease 5 +#define MotionNotify 6 +#define EnterNotify 7 +#define LeaveNotify 8 +#define FocusIn 9 +#define FocusOut 10 +#define KeymapNotify 11 +#define Expose 12 +#define GraphicsExpose 13 +#define NoExpose 14 +#define VisibilityNotify 15 +#define CreateNotify 16 +#define DestroyNotify 17 +#define UnmapNotify 18 +#define MapNotify 19 +#define MapRequest 20 +#define ReparentNotify 21 +#define ConfigureNotify 22 +#define ConfigureRequest 23 +#define GravityNotify 24 +#define ResizeRequest 25 +#define CirculateNotify 26 +#define CirculateRequest 27 +#define PropertyNotify 28 +#define SelectionClear 29 +#define SelectionRequest 30 +#define SelectionNotify 31 +#define ColormapNotify 32 +#define ClientMessage 33 +#define MappingNotify 34 +#define LASTEvent 35 /* must be bigger than any event # */ + + +/* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer, + state in various key-, mouse-, and button-related events. */ + +#define ShiftMask (1<<0) +#define LockMask (1<<1) +#define ControlMask (1<<2) +#define Mod1Mask (1<<3) +#define Mod2Mask (1<<4) +#define Mod3Mask (1<<5) +#define Mod4Mask (1<<6) +#define Mod5Mask (1<<7) + +/* modifier names. Used to build a SetModifierMapping request or + to read a GetModifierMapping request. These correspond to the + masks defined above. */ +#define ShiftMapIndex 0 +#define LockMapIndex 1 +#define ControlMapIndex 2 +#define Mod1MapIndex 3 +#define Mod2MapIndex 4 +#define Mod3MapIndex 5 +#define Mod4MapIndex 6 +#define Mod5MapIndex 7 + + +/* button masks. Used in same manner as Key masks above. Not to be confused + with button names below. */ + +#define Button1Mask (1<<8) +#define Button2Mask (1<<9) +#define Button3Mask (1<<10) +#define Button4Mask (1<<11) +#define Button5Mask (1<<12) + +#define AnyModifier (1<<15) /* used in GrabButton, GrabKey */ + + +/* button names. Used as arguments to GrabButton and as detail in ButtonPress + and ButtonRelease events. Not to be confused with button masks above. + Note that 0 is already defined above as "AnyButton". */ + +#define Button1 1 +#define Button2 2 +#define Button3 3 +#define Button4 4 +#define Button5 5 + +/* Notify modes */ + +#define NotifyNormal 0 +#define NotifyGrab 1 +#define NotifyUngrab 2 +#define NotifyWhileGrabbed 3 + +#define NotifyHint 1 /* for MotionNotify events */ + +/* Notify detail */ + +#define NotifyAncestor 0 +#define NotifyVirtual 1 +#define NotifyInferior 2 +#define NotifyNonlinear 3 +#define NotifyNonlinearVirtual 4 +#define NotifyPointer 5 +#define NotifyPointerRoot 6 +#define NotifyDetailNone 7 + +/* Visibility notify */ + +#define VisibilityUnobscured 0 +#define VisibilityPartiallyObscured 1 +#define VisibilityFullyObscured 2 + +/* Circulation request */ + +#define PlaceOnTop 0 +#define PlaceOnBottom 1 + +/* protocol families */ + +#define FamilyInternet 0 +#define FamilyDECnet 1 +#define FamilyChaos 2 + +/* Property notification */ + +#define PropertyNewValue 0 +#define PropertyDelete 1 + +/* Color Map notification */ + +#define ColormapUninstalled 0 +#define ColormapInstalled 1 + +/* GrabPointer, GrabButton, GrabKeyboard, GrabKey Modes */ + +#define GrabModeSync 0 +#define GrabModeAsync 1 + +/* GrabPointer, GrabKeyboard reply status */ + +#define GrabSuccess 0 +#define AlreadyGrabbed 1 +#define GrabInvalidTime 2 +#define GrabNotViewable 3 +#define GrabFrozen 4 + +/* AllowEvents modes */ + +#define AsyncPointer 0 +#define SyncPointer 1 +#define ReplayPointer 2 +#define AsyncKeyboard 3 +#define SyncKeyboard 4 +#define ReplayKeyboard 5 +#define AsyncBoth 6 +#define SyncBoth 7 + +/* Used in SetInputFocus, GetInputFocus */ + +#define RevertToNone (int)None +#define RevertToPointerRoot (int)PointerRoot +#define RevertToParent 2 + +/***************************************************************** + * ERROR CODES + *****************************************************************/ + +#define Success 0 /* everything's okay */ +#define BadRequest 1 /* bad request code */ +#define BadValue 2 /* int parameter out of range */ +#define BadWindow 3 /* parameter not a Window */ +#define BadPixmap 4 /* parameter not a Pixmap */ +#define BadAtom 5 /* parameter not an Atom */ +#define BadCursor 6 /* parameter not a Cursor */ +#define BadFont 7 /* parameter not a Font */ +#define BadMatch 8 /* parameter mismatch */ +#define BadDrawable 9 /* parameter not a Pixmap or Window */ +#define BadAccess 10 /* depending on context: + - key/button already grabbed + - attempt to free an illegal + cmap entry + - attempt to store into a read-only + color map entry. + - attempt to modify the access control + list from other than the local host. + */ +#define BadAlloc 11 /* insufficient resources */ +#define BadColor 12 /* no such colormap */ +#define BadGC 13 /* parameter not a GC */ +#define BadIDChoice 14 /* choice not in range or already used */ +#define BadName 15 /* font or color name doesn't exist */ +#define BadLength 16 /* Request length incorrect */ +#define BadImplementation 17 /* server is defective */ + +#define FirstExtensionError 128 +#define LastExtensionError 255 + +/***************************************************************** + * WINDOW DEFINITIONS + *****************************************************************/ + +/* Window classes used by CreateWindow */ +/* Note that CopyFromParent is already defined as 0 above */ + +#define InputOutput 1 +#define InputOnly 2 + +/* Window attributes for CreateWindow and ChangeWindowAttributes */ + +#define CWBackPixmap (1L<<0) +#define CWBackPixel (1L<<1) +#define CWBorderPixmap (1L<<2) +#define CWBorderPixel (1L<<3) +#define CWBitGravity (1L<<4) +#define CWWinGravity (1L<<5) +#define CWBackingStore (1L<<6) +#define CWBackingPlanes (1L<<7) +#define CWBackingPixel (1L<<8) +#define CWOverrideRedirect (1L<<9) +#define CWSaveUnder (1L<<10) +#define CWEventMask (1L<<11) +#define CWDontPropagate (1L<<12) +#define CWColormap (1L<<13) +#define CWCursor (1L<<14) + +/* ConfigureWindow structure */ + +#define CWX (1<<0) +#define CWY (1<<1) +#define CWWidth (1<<2) +#define CWHeight (1<<3) +#define CWBorderWidth (1<<4) +#define CWSibling (1<<5) +#define CWStackMode (1<<6) + + +/* Bit Gravity */ + +#define ForgetGravity 0 +#define NorthWestGravity 1 +#define NorthGravity 2 +#define NorthEastGravity 3 +#define WestGravity 4 +#define CenterGravity 5 +#define EastGravity 6 +#define SouthWestGravity 7 +#define SouthGravity 8 +#define SouthEastGravity 9 +#define StaticGravity 10 + +/* Window gravity + bit gravity above */ + +#define UnmapGravity 0 + +/* Used in CreateWindow for backing-store hint */ + +#define NotUseful 0 +#define WhenMapped 1 +#define Always 2 + +/* Used in GetWindowAttributes reply */ + +#define IsUnmapped 0 +#define IsUnviewable 1 +#define IsViewable 2 + +/* Used in ChangeSaveSet */ + +#define SetModeInsert 0 +#define SetModeDelete 1 + +/* Used in ChangeCloseDownMode */ + +#define DestroyAll 0 +#define RetainPermanent 1 +#define RetainTemporary 2 + +/* Window stacking method (in configureWindow) */ + +#define Above 0 +#define Below 1 +#define TopIf 2 +#define BottomIf 3 +#define Opposite 4 + +/* Circulation direction */ + +#define RaiseLowest 0 +#define LowerHighest 1 + +/* Property modes */ + +#define PropModeReplace 0 +#define PropModePrepend 1 +#define PropModeAppend 2 + +/***************************************************************** + * GRAPHICS DEFINITIONS + *****************************************************************/ + +/* graphics functions, as in GC.alu */ + +#define GXclear 0x0 /* 0 */ +#define GXand 0x1 /* src AND dst */ +#define GXandReverse 0x2 /* src AND NOT dst */ +#define GXcopy 0x3 /* src */ +#define GXandInverted 0x4 /* NOT src AND dst */ +#define GXnoop 0x5 /* dst */ +#define GXxor 0x6 /* src XOR dst */ +#define GXor 0x7 /* src OR dst */ +#define GXnor 0x8 /* NOT src AND NOT dst */ +#define GXequiv 0x9 /* NOT src XOR dst */ +#define GXinvert 0xa /* NOT dst */ +#define GXorReverse 0xb /* src OR NOT dst */ +#define GXcopyInverted 0xc /* NOT src */ +#define GXorInverted 0xd /* NOT src OR dst */ +#define GXnand 0xe /* NOT src OR NOT dst */ +#define GXset 0xf /* 1 */ + +/* LineStyle */ + +#define LineSolid 0 +#define LineOnOffDash 1 +#define LineDoubleDash 2 + +/* capStyle */ + +#define CapNotLast 0 +#define CapButt 1 +#define CapRound 2 +#define CapProjecting 3 + +/* joinStyle */ + +#define JoinMiter 0 +#define JoinRound 1 +#define JoinBevel 2 + +/* fillStyle */ + +#define FillSolid 0 +#define FillTiled 1 +#define FillStippled 2 +#define FillOpaqueStippled 3 + +/* fillRule */ + +#define EvenOddRule 0 +#define WindingRule 1 + +/* subwindow mode */ + +#define ClipByChildren 0 +#define IncludeInferiors 1 + +/* SetClipRectangles ordering */ + +#define Unsorted 0 +#define YSorted 1 +#define YXSorted 2 +#define YXBanded 3 + +/* CoordinateMode for drawing routines */ + +#define CoordModeOrigin 0 /* relative to the origin */ +#define CoordModePrevious 1 /* relative to previous point */ + +/* Polygon shapes */ + +#define Complex 0 /* paths may intersect */ +#define Nonconvex 1 /* no paths intersect, but not convex */ +#define Convex 2 /* wholly convex */ + +/* Arc modes for PolyFillArc */ + +#define ArcChord 0 /* join endpoints of arc */ +#define ArcPieSlice 1 /* join endpoints to center of arc */ + +/* GC components: masks used in CreateGC, CopyGC, ChangeGC, OR'ed into + GC.stateChanges */ + +#define GCFunction (1L<<0) +#define GCPlaneMask (1L<<1) +#define GCForeground (1L<<2) +#define GCBackground (1L<<3) +#define GCLineWidth (1L<<4) +#define GCLineStyle (1L<<5) +#define GCCapStyle (1L<<6) +#define GCJoinStyle (1L<<7) +#define GCFillStyle (1L<<8) +#define GCFillRule (1L<<9) +#define GCTile (1L<<10) +#define GCStipple (1L<<11) +#define GCTileStipXOrigin (1L<<12) +#define GCTileStipYOrigin (1L<<13) +#define GCFont (1L<<14) +#define GCSubwindowMode (1L<<15) +#define GCGraphicsExposures (1L<<16) +#define GCClipXOrigin (1L<<17) +#define GCClipYOrigin (1L<<18) +#define GCClipMask (1L<<19) +#define GCDashOffset (1L<<20) +#define GCDashList (1L<<21) +#define GCArcMode (1L<<22) + +#define GCLastBit 22 +/***************************************************************** + * FONTS + *****************************************************************/ + +/* used in QueryFont -- draw direction */ + +#define FontLeftToRight 0 +#define FontRightToLeft 1 + +#define FontChange 255 + +/***************************************************************** + * IMAGING + *****************************************************************/ + +/* ImageFormat -- PutImage, GetImage */ + +#define XYBitmap 0 /* depth 1, XYFormat */ +#define XYPixmap 1 /* depth == drawable depth */ +#define ZPixmap 2 /* depth == drawable depth */ + +/***************************************************************** + * COLOR MAP STUFF + *****************************************************************/ + +/* For CreateColormap */ + +#define AllocNone 0 /* create map with no entries */ +#define AllocAll 1 /* allocate entire map writeable */ + + +/* Flags used in StoreNamedColor, StoreColors */ + +#define DoRed (1<<0) +#define DoGreen (1<<1) +#define DoBlue (1<<2) + +/***************************************************************** + * CURSOR STUFF + *****************************************************************/ + +/* QueryBestSize Class */ + +#define CursorShape 0 /* largest size that can be displayed */ +#define TileShape 1 /* size tiled fastest */ +#define StippleShape 2 /* size stippled fastest */ + +/***************************************************************** + * KEYBOARD/POINTER STUFF + *****************************************************************/ + +#define AutoRepeatModeOff 0 +#define AutoRepeatModeOn 1 +#define AutoRepeatModeDefault 2 + +#define LedModeOff 0 +#define LedModeOn 1 + +/* masks for ChangeKeyboardControl */ + +#define KBKeyClickPercent (1L<<0) +#define KBBellPercent (1L<<1) +#define KBBellPitch (1L<<2) +#define KBBellDuration (1L<<3) +#define KBLed (1L<<4) +#define KBLedMode (1L<<5) +#define KBKey (1L<<6) +#define KBAutoRepeatMode (1L<<7) + +#define MappingSuccess 0 +#define MappingBusy 1 +#define MappingFailed 2 + +#define MappingModifier 0 +#define MappingKeyboard 1 +#define MappingPointer 2 + +/***************************************************************** + * SCREEN SAVER STUFF + *****************************************************************/ + +#define DontPreferBlanking 0 +#define PreferBlanking 1 +#define DefaultBlanking 2 + +#define DisableScreenSaver 0 +#define DisableScreenInterval 0 + +#define DontAllowExposures 0 +#define AllowExposures 1 +#define DefaultExposures 2 + +/* for ForceScreenSaver */ + +#define ScreenSaverReset 0 +#define ScreenSaverActive 1 + +/***************************************************************** + * HOSTS AND CONNECTIONS + *****************************************************************/ + +/* for ChangeHosts */ + +#define HostInsert 0 +#define HostDelete 1 + +/* for ChangeAccessControl */ + +#define EnableAccess 1 +#define DisableAccess 0 + +/* Display classes used in opening the connection + * Note that the statically allocated ones are even numbered and the + * dynamically changeable ones are odd numbered */ + +#define StaticGray 0 +#define GrayScale 1 +#define StaticColor 2 +#define PseudoColor 3 +#define TrueColor 4 +#define DirectColor 5 + + +/* Byte order used in imageByteOrder and bitmapBitOrder */ + +#define LSBFirst 0 +#define MSBFirst 1 + +#if defined(MAC_OSX_TK) +# undef Cursor +# undef Region +#endif + +#endif /* X_H */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xatom.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xatom.h new file mode 100644 index 00000000..485a4236 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xatom.h @@ -0,0 +1,79 @@ +#ifndef XATOM_H +#define XATOM_H 1 + +/* THIS IS A GENERATED FILE + * + * Do not change! Changing this file implies a protocol change! + */ + +#define XA_PRIMARY ((Atom) 1) +#define XA_SECONDARY ((Atom) 2) +#define XA_ARC ((Atom) 3) +#define XA_ATOM ((Atom) 4) +#define XA_BITMAP ((Atom) 5) +#define XA_CARDINAL ((Atom) 6) +#define XA_COLORMAP ((Atom) 7) +#define XA_CURSOR ((Atom) 8) +#define XA_CUT_BUFFER0 ((Atom) 9) +#define XA_CUT_BUFFER1 ((Atom) 10) +#define XA_CUT_BUFFER2 ((Atom) 11) +#define XA_CUT_BUFFER3 ((Atom) 12) +#define XA_CUT_BUFFER4 ((Atom) 13) +#define XA_CUT_BUFFER5 ((Atom) 14) +#define XA_CUT_BUFFER6 ((Atom) 15) +#define XA_CUT_BUFFER7 ((Atom) 16) +#define XA_DRAWABLE ((Atom) 17) +#define XA_FONT ((Atom) 18) +#define XA_INTEGER ((Atom) 19) +#define XA_PIXMAP ((Atom) 20) +#define XA_POINT ((Atom) 21) +#define XA_RECTANGLE ((Atom) 22) +#define XA_RESOURCE_MANAGER ((Atom) 23) +#define XA_RGB_COLOR_MAP ((Atom) 24) +#define XA_RGB_BEST_MAP ((Atom) 25) +#define XA_RGB_BLUE_MAP ((Atom) 26) +#define XA_RGB_DEFAULT_MAP ((Atom) 27) +#define XA_RGB_GRAY_MAP ((Atom) 28) +#define XA_RGB_GREEN_MAP ((Atom) 29) +#define XA_RGB_RED_MAP ((Atom) 30) +#define XA_STRING ((Atom) 31) +#define XA_VISUALID ((Atom) 32) +#define XA_WINDOW ((Atom) 33) +#define XA_WM_COMMAND ((Atom) 34) +#define XA_WM_HINTS ((Atom) 35) +#define XA_WM_CLIENT_MACHINE ((Atom) 36) +#define XA_WM_ICON_NAME ((Atom) 37) +#define XA_WM_ICON_SIZE ((Atom) 38) +#define XA_WM_NAME ((Atom) 39) +#define XA_WM_NORMAL_HINTS ((Atom) 40) +#define XA_WM_SIZE_HINTS ((Atom) 41) +#define XA_WM_ZOOM_HINTS ((Atom) 42) +#define XA_MIN_SPACE ((Atom) 43) +#define XA_NORM_SPACE ((Atom) 44) +#define XA_MAX_SPACE ((Atom) 45) +#define XA_END_SPACE ((Atom) 46) +#define XA_SUPERSCRIPT_X ((Atom) 47) +#define XA_SUPERSCRIPT_Y ((Atom) 48) +#define XA_SUBSCRIPT_X ((Atom) 49) +#define XA_SUBSCRIPT_Y ((Atom) 50) +#define XA_UNDERLINE_POSITION ((Atom) 51) +#define XA_UNDERLINE_THICKNESS ((Atom) 52) +#define XA_STRIKEOUT_ASCENT ((Atom) 53) +#define XA_STRIKEOUT_DESCENT ((Atom) 54) +#define XA_ITALIC_ANGLE ((Atom) 55) +#define XA_X_HEIGHT ((Atom) 56) +#define XA_QUAD_WIDTH ((Atom) 57) +#define XA_WEIGHT ((Atom) 58) +#define XA_POINT_SIZE ((Atom) 59) +#define XA_RESOLUTION ((Atom) 60) +#define XA_COPYRIGHT ((Atom) 61) +#define XA_NOTICE ((Atom) 62) +#define XA_FONT_NAME ((Atom) 63) +#define XA_FAMILY_NAME ((Atom) 64) +#define XA_FULL_NAME ((Atom) 65) +#define XA_CAP_HEIGHT ((Atom) 66) +#define XA_WM_CLASS ((Atom) 67) +#define XA_WM_TRANSIENT_FOR ((Atom) 68) + +#define XA_LAST_PREDEFINED ((Atom) 68) +#endif /* XATOM_H */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xfuncproto.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xfuncproto.h new file mode 100644 index 00000000..6d63002e --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xfuncproto.h @@ -0,0 +1,60 @@ +/* $XConsortium: Xfuncproto.h,v 1.7 91/05/13 20:49:21 rws Exp $ */ +/* + * Copyright 1989, 1991 by the Massachusetts Institute of Technology + * + * Permission to use, copy, modify, and distribute this software and its + * documentation for any purpose and without fee is hereby granted, provided + * that the above copyright notice appear in all copies and that both that + * copyright notice and this permission notice appear in supporting + * documentation, and that the name of M.I.T. not be used in advertising + * or publicity pertaining to distribution of the software without specific, + * written prior permission. M.I.T. makes no representations about the + * suitability of this software for any purpose. It is provided "as is" + * without express or implied warranty. + * + */ + +/* Definitions to make function prototypes manageable */ + +#ifndef _XFUNCPROTO_H_ +#define _XFUNCPROTO_H_ + +#ifndef NeedFunctionPrototypes +#define NeedFunctionPrototypes 1 +#endif /* NeedFunctionPrototypes */ + +#ifndef NeedVarargsPrototypes +#define NeedVarargsPrototypes 0 +#endif /* NeedVarargsPrototypes */ + +#if NeedFunctionPrototypes + +#ifndef NeedNestedPrototypes +#define NeedNestedPrototypes 1 +#endif /* NeedNestedPrototypes */ + +#ifndef _Xconst +#define _Xconst const +#endif /* _Xconst */ + +#ifndef NeedWidePrototypes +#ifdef NARROWPROTO +#define NeedWidePrototypes 0 +#else +#define NeedWidePrototypes 1 /* default to make interropt. easier */ +#endif +#endif /* NeedWidePrototypes */ + +#endif /* NeedFunctionPrototypes */ + +#ifdef __cplusplus +#define _XFUNCPROTOBEGIN extern "C" { +#define _XFUNCPROTOEND } +#endif + +#ifndef _XFUNCPROTOBEGIN +#define _XFUNCPROTOBEGIN +#define _XFUNCPROTOEND +#endif /* _XFUNCPROTOBEGIN */ + +#endif /* _XFUNCPROTO_H_ */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xlib.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xlib.h new file mode 100644 index 00000000..667bdc77 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xlib.h @@ -0,0 +1,1205 @@ +/* $XConsortium: Xlib.h,v 11.221 93/07/02 14:13:28 gildea Exp $ */ +/* + * Copyright 1985, 1986, 1987, 1991 by the Massachusetts Institute of Technology + * + * Permission to use, copy, modify, and distribute this software and its + * documentation for any purpose and without fee is hereby granted, provided + * that the above copyright notice appear in all copies and that both that + * copyright notice and this permission notice appear in supporting + * documentation, and that the name of M.I.T. not be used in advertising + * or publicity pertaining to distribution of the software without specific, + * written prior permission. M.I.T. makes no representations about the + * suitability of this software for any purpose. It is provided "as is" + * without express or implied warranty. + * + * X Window System is a Trademark of MIT. + * + */ + + +/* + * Xlib.h - Header definition and support file for the C subroutine + * interface library (Xlib) to the X Window System Protocol (V11). + * Structures and symbols starting with "_" are private to the library. + */ +#ifndef _XLIB_H_ +#define _XLIB_H_ + +#define XlibSpecificationRelease 5 + +#if !defined(MAC_OSX_TK) +# include +#endif +#ifdef MAC_OSX_TK +# include +# define Cursor XCursor +# define Region XRegion +#endif + +/* applications should not depend on these two headers being included! */ +#include + +#ifndef X_WCHAR +#ifdef X_NOT_STDC_ENV +#define X_WCHAR +#endif +#endif + +#ifndef X_WCHAR +#include +#else +/* replace this with #include or typedef appropriate for your system */ +typedef unsigned long wchar_t; +#endif + +typedef char *XPointer; + +#define Bool int +#if defined(MAC_OSX_TK) +/* Use define rather than typedef, since may need to undefine this later */ +#define Status int +#else +typedef int Status; +#endif +#define True 1 +#define False 0 + +#define QueuedAlready 0 +#define QueuedAfterReading 1 +#define QueuedAfterFlush 2 + +#define ConnectionNumber(dpy) ((dpy)->fd) +#define RootWindow(dpy, scr) (((dpy)->screens[(scr)]).root) +#define DefaultScreen(dpy) ((dpy)->default_screen) +#define DefaultRootWindow(dpy) (((dpy)->screens[(dpy)->default_screen]).root) +#define DefaultVisual(dpy, scr) (((dpy)->screens[(scr)]).root_visual) +#define DefaultGC(dpy, scr) (((dpy)->screens[(scr)]).default_gc) +#define BlackPixel(dpy, scr) (((dpy)->screens[(scr)]).black_pixel) +#define WhitePixel(dpy, scr) (((dpy)->screens[(scr)]).white_pixel) +#define AllPlanes ((unsigned long)~0L) +#define QLength(dpy) ((dpy)->qlen) +#define DisplayWidth(dpy, scr) (((dpy)->screens[(scr)]).width) +#define DisplayHeight(dpy, scr) (((dpy)->screens[(scr)]).height) +#define DisplayWidthMM(dpy, scr)(((dpy)->screens[(scr)]).mwidth) +#define DisplayHeightMM(dpy, scr)(((dpy)->screens[(scr)]).mheight) +#define DisplayPlanes(dpy, scr) (((dpy)->screens[(scr)]).root_depth) +#define DisplayCells(dpy, scr) (DefaultVisual((dpy), (scr))->map_entries) +#define ScreenCount(dpy) ((dpy)->nscreens) +#define ServerVendor(dpy) ((dpy)->vendor) +#define ProtocolVersion(dpy) ((dpy)->proto_major_version) +#define ProtocolRevision(dpy) ((dpy)->proto_minor_version) +#define VendorRelease(dpy) ((dpy)->release) +#define DisplayString(dpy) ((dpy)->display_name) +#define DefaultDepth(dpy, scr) (((dpy)->screens[(scr)]).root_depth) +#define DefaultColormap(dpy, scr)(((dpy)->screens[(scr)]).cmap) +#define BitmapUnit(dpy) ((dpy)->bitmap_unit) +#define BitmapBitOrder(dpy) ((dpy)->bitmap_bit_order) +#define BitmapPad(dpy) ((dpy)->bitmap_pad) +#define ImageByteOrder(dpy) ((dpy)->byte_order) +#define NextRequest(dpy) ((dpy)->request + 1) +#define LastKnownRequestProcessed(dpy) ((dpy)->request) + +/* macros for screen oriented applications (toolkit) */ +#define ScreenOfDisplay(dpy, scr)(&((dpy)->screens[(scr)])) +#define DefaultScreenOfDisplay(dpy) (&((dpy)->screens[(dpy)->default_screen])) +#define DisplayOfScreen(s) ((s)->display) +#define RootWindowOfScreen(s) ((s)->root) +#define BlackPixelOfScreen(s) ((s)->black_pixel) +#define WhitePixelOfScreen(s) ((s)->white_pixel) +#define DefaultColormapOfScreen(s)((s)->cmap) +#define DefaultDepthOfScreen(s) ((s)->root_depth) +#define DefaultGCOfScreen(s) ((s)->default_gc) +#define DefaultVisualOfScreen(s)((s)->root_visual) +#define WidthOfScreen(s) ((s)->width) +#define HeightOfScreen(s) ((s)->height) +#define WidthMMOfScreen(s) ((s)->mwidth) +#define HeightMMOfScreen(s) ((s)->mheight) +#define PlanesOfScreen(s) ((s)->root_depth) +#define CellsOfScreen(s) (DefaultVisualOfScreen((s))->map_entries) +#define MinCmapsOfScreen(s) ((s)->min_maps) +#define MaxCmapsOfScreen(s) ((s)->max_maps) +#define DoesSaveUnders(s) ((s)->save_unders) +#define DoesBackingStore(s) ((s)->backing_store) +#define EventMaskOfScreen(s) ((s)->root_input_mask) + +/* + * Extensions need a way to hang private data on some structures. + */ +typedef struct _XExtData { + int number; /* number returned by XRegisterExtension */ + struct _XExtData *next; /* next item on list of data for structure */ + int (*free_private)(); /* called to free private storage */ + XPointer private_data; /* data private to this extension. */ +} XExtData; + +/* + * This file contains structures used by the extension mechanism. + */ +typedef struct { /* public to extension, cannot be changed */ + int extension; /* extension number */ + int major_opcode; /* major op-code assigned by server */ + int first_event; /* first event number for the extension */ + int first_error; /* first error number for the extension */ +} XExtCodes; + +/* + * Data structure for retrieving info about pixmap formats. + */ + +typedef struct { + int depth; + int bits_per_pixel; + int scanline_pad; +} XPixmapFormatValues; + + +/* + * Data structure for setting graphics context. + */ +typedef struct { + int function; /* logical operation */ + unsigned long plane_mask;/* plane mask */ + unsigned long foreground;/* foreground pixel */ + unsigned long background;/* background pixel */ + int line_width; /* line width */ + int line_style; /* LineSolid, LineOnOffDash, LineDoubleDash */ + int cap_style; /* CapNotLast, CapButt, + CapRound, CapProjecting */ + int join_style; /* JoinMiter, JoinRound, JoinBevel */ + int fill_style; /* FillSolid, FillTiled, + FillStippled, FillOpaeueStippled */ + int fill_rule; /* EvenOddRule, WindingRule */ + int arc_mode; /* ArcChord, ArcPieSlice */ + Pixmap tile; /* tile pixmap for tiling operations */ + Pixmap stipple; /* stipple 1 plane pixmap for stipping */ + int ts_x_origin; /* offset for tile or stipple operations */ + int ts_y_origin; + Font font; /* default text font for text operations */ + int subwindow_mode; /* ClipByChildren, IncludeInferiors */ + Bool graphics_exposures;/* boolean, should exposures be generated */ + int clip_x_origin; /* origin for clipping */ + int clip_y_origin; + Pixmap clip_mask; /* bitmap clipping; other calls for rects */ + int dash_offset; /* patterned/dashed line information */ + char dashes; +} XGCValues; + +/* + * Graphics context. The contents of this structure are implementation + * dependent. A GC should be treated as opaque by application code. + */ + +typedef XGCValues *GC; + +/* + * Visual structure; contains information about colormapping possible. + */ +typedef struct { + XExtData *ext_data; /* hook for extension to hang data */ + VisualID visualid; /* visual id of this visual */ +#if defined(__cplusplus) || defined(c_plusplus) + int c_class; /* C++ class of screen (monochrome, etc.) */ +#else + int class; /* class of screen (monochrome, etc.) */ +#endif + unsigned long red_mask, green_mask, blue_mask; /* mask values */ + int bits_per_rgb; /* log base 2 of distinct color values */ + int map_entries; /* color map entries */ +} Visual; + +/* + * Depth structure; contains information for each possible depth. + */ +typedef struct { + int depth; /* this depth (Z) of the depth */ + int nvisuals; /* number of Visual types at this depth */ + Visual *visuals; /* list of visuals possible at this depth */ +} Depth; + +/* + * Information about the screen. The contents of this structure are + * implementation dependent. A Screen should be treated as opaque + * by application code. + */ +typedef struct { + XExtData *ext_data; /* hook for extension to hang data */ + struct _XDisplay *display;/* back pointer to display structure */ + Window root; /* Root window id. */ + int width, height; /* width and height of screen */ + int mwidth, mheight; /* width and height of in millimeters */ + int ndepths; /* number of depths possible */ + Depth *depths; /* list of allowable depths on the screen */ + int root_depth; /* bits per pixel */ + Visual *root_visual; /* root visual */ + GC default_gc; /* GC for the root root visual */ + Colormap cmap; /* default color map */ + unsigned long white_pixel; + unsigned long black_pixel; /* White and Black pixel values */ + int max_maps, min_maps; /* max and min color maps */ + int backing_store; /* Never, WhenMapped, Always */ + Bool save_unders; + long root_input_mask; /* initial root input mask */ +} Screen; + +/* + * Format structure; describes ZFormat data the screen will understand. + */ +typedef struct { + XExtData *ext_data; /* hook for extension to hang data */ + int depth; /* depth of this image format */ + int bits_per_pixel; /* bits/pixel at this depth */ + int scanline_pad; /* scanline must padded to this multiple */ +} ScreenFormat; + +/* + * Data structure for setting window attributes. + */ +typedef struct { + Pixmap background_pixmap; /* background or None or ParentRelative */ + unsigned long background_pixel; /* background pixel */ + Pixmap border_pixmap; /* border of the window */ + unsigned long border_pixel; /* border pixel value */ + int bit_gravity; /* one of bit gravity values */ + int win_gravity; /* one of the window gravity values */ + int backing_store; /* NotUseful, WhenMapped, Always */ + unsigned long backing_planes;/* planes to be preseved if possible */ + unsigned long backing_pixel;/* value to use in restoring planes */ + Bool save_under; /* should bits under be saved? (popups) */ + long event_mask; /* set of events that should be saved */ + long do_not_propagate_mask; /* set of events that should not propagate */ + Bool override_redirect; /* boolean value for override-redirect */ + Colormap colormap; /* color map to be associated with window */ + Cursor cursor; /* cursor to be displayed (or None) */ +} XSetWindowAttributes; + +typedef struct { + int x, y; /* location of window */ + int width, height; /* width and height of window */ + int border_width; /* border width of window */ + int depth; /* depth of window */ + Visual *visual; /* the associated visual structure */ + Window root; /* root of screen containing window */ +#if defined(__cplusplus) || defined(c_plusplus) + int c_class; /* C++ InputOutput, InputOnly*/ +#else + int class; /* InputOutput, InputOnly*/ +#endif + int bit_gravity; /* one of bit gravity values */ + int win_gravity; /* one of the window gravity values */ + int backing_store; /* NotUseful, WhenMapped, Always */ + unsigned long backing_planes;/* planes to be preserved if possible */ + unsigned long backing_pixel;/* value to be used when restoring planes */ + Bool save_under; /* boolean, should bits under be saved? */ + Colormap colormap; /* color map to be associated with window */ + Bool map_installed; /* boolean, is color map currently installed*/ + int map_state; /* IsUnmapped, IsUnviewable, IsViewable */ + long all_event_masks; /* set of events all people have interest in*/ + long your_event_mask; /* my event mask */ + long do_not_propagate_mask; /* set of events that should not propagate */ + Bool override_redirect; /* boolean value for override-redirect */ + Screen *screen; /* back pointer to correct screen */ +} XWindowAttributes; + +/* + * Data structure for host setting; getting routines. + * + */ + +typedef struct { + int family; /* for example FamilyInternet */ + int length; /* length of address, in bytes */ + char *address; /* pointer to where to find the bytes */ +} XHostAddress; + +/* + * Data structure for "image" data, used by image manipulation routines. + */ +typedef struct _XImage { + int width, height; /* size of image */ + int xoffset; /* number of pixels offset in X direction */ + int format; /* XYBitmap, XYPixmap, ZPixmap */ + char *data; /* pointer to image data */ + int byte_order; /* data byte order, LSBFirst, MSBFirst */ + int bitmap_unit; /* quant. of scanline 8, 16, 32 */ + int bitmap_bit_order; /* LSBFirst, MSBFirst */ + int bitmap_pad; /* 8, 16, 32 either XY or ZPixmap */ + int depth; /* depth of image */ + int bytes_per_line; /* accelarator to next line */ + int bits_per_pixel; /* bits per pixel (ZPixmap) */ + unsigned long red_mask; /* bits in z arrangment */ + unsigned long green_mask; + unsigned long blue_mask; + XPointer obdata; /* hook for the object routines to hang on */ + struct funcs { /* image manipulation routines */ + struct _XImage *(*create_image)(); +#if NeedFunctionPrototypes + int (*destroy_image) (struct _XImage *); + unsigned long (*get_pixel) (struct _XImage *, int, int); + int (*put_pixel) (struct _XImage *, int, int, unsigned long); + struct _XImage *(*sub_image)(struct _XImage *, int, int, unsigned int, unsigned int); + int (*add_pixel) (struct _XImage *, long); +#else + int (*destroy_image)(); + unsigned long (*get_pixel)(); + int (*put_pixel)(); + struct _XImage *(*sub_image)(); + int (*add_pixel)(); +#endif + } f; +} XImage; + +/* + * Data structure for XReconfigureWindow + */ +typedef struct { + int x, y; + int width, height; + int border_width; + Window sibling; + int stack_mode; +} XWindowChanges; + +/* + * Data structure used by color operations + */ +typedef struct { + unsigned long pixel; + unsigned short red, green, blue; + char flags; /* do_red, do_green, do_blue */ + char pad; +} XColor; + +/* + * Data structures for graphics operations. On most machines, these are + * congruent with the wire protocol structures, so reformatting the data + * can be avoided on these architectures. + */ +typedef struct { + short x1, y1, x2, y2; +} XSegment; + +typedef struct { + short x, y; +} XPoint; + +typedef struct { + short x, y; + unsigned short width, height; +} XRectangle; + +typedef struct { + short x, y; + unsigned short width, height; + short angle1, angle2; +} XArc; + + +/* Data structure for XChangeKeyboardControl */ + +typedef struct { + int key_click_percent; + int bell_percent; + int bell_pitch; + int bell_duration; + int led; + int led_mode; + int key; + int auto_repeat_mode; /* On, Off, Default */ +} XKeyboardControl; + +/* Data structure for XGetKeyboardControl */ + +typedef struct { + int key_click_percent; + int bell_percent; + unsigned int bell_pitch, bell_duration; + unsigned long led_mask; + int global_auto_repeat; + char auto_repeats[32]; +} XKeyboardState; + +/* Data structure for XGetMotionEvents. */ + +typedef struct { + Time time; + short x, y; +} XTimeCoord; + +/* Data structure for X{Set,Get}ModifierMapping */ + +typedef struct { + int max_keypermod; /* The server's max # of keys per modifier */ + KeyCode *modifiermap; /* An 8 by max_keypermod array of modifiers */ +} XModifierKeymap; + + +/* + * Display datatype maintaining display specific data. + * The contents of this structure are implementation dependent. + * A Display should be treated as opaque by application code. + */ +typedef struct _XDisplay { + XExtData *ext_data; /* hook for extension to hang data */ + struct _XFreeFuncs *free_funcs; /* internal free functions */ + int fd; /* Network socket. */ + int conn_checker; /* ugly thing used by _XEventsQueued */ + int proto_major_version;/* maj. version of server's X protocol */ + int proto_minor_version;/* minor version of servers X protocol */ + char *vendor; /* vendor of the server hardware */ + XID resource_base; /* resource ID base */ + XID resource_mask; /* resource ID mask bits */ + XID resource_id; /* allocator current ID */ + int resource_shift; /* allocator shift to correct bits */ + XID (*resource_alloc)(); /* allocator function */ + int byte_order; /* screen byte order, LSBFirst, MSBFirst */ + int bitmap_unit; /* padding and data requirements */ + int bitmap_pad; /* padding requirements on bitmaps */ + int bitmap_bit_order; /* LeastSignificant or MostSignificant */ + int nformats; /* number of pixmap formats in list */ + ScreenFormat *pixmap_format; /* pixmap format list */ + int vnumber; /* Xlib's X protocol version number. */ + int release; /* release of the server */ + struct _XSQEvent *head, *tail; /* Input event queue. */ + int qlen; /* Length of input event queue */ + unsigned long request; /* sequence number of last request. */ + char *last_req; /* beginning of last request, or dummy */ + char *buffer; /* Output buffer starting address. */ + char *bufptr; /* Output buffer index pointer. */ + char *bufmax; /* Output buffer maximum+1 address. */ + unsigned max_request_size; /* maximum number 32 bit words in request*/ + struct _XrmHashBucketRec *db; + int (*synchandler)(); /* Synchronization handler */ + char *display_name; /* "host:display" string used on this connect*/ + int default_screen; /* default screen for operations */ + int nscreens; /* number of screens on this server*/ + Screen *screens; /* pointer to list of screens */ + unsigned long motion_buffer; /* size of motion buffer */ + unsigned long flags; /* internal connection flags */ + int min_keycode; /* minimum defined keycode */ + int max_keycode; /* maximum defined keycode */ + KeySym *keysyms; /* This server's keysyms */ + XModifierKeymap *modifiermap; /* This server's modifier keymap */ + int keysyms_per_keycode;/* number of rows */ + char *xdefaults; /* contents of defaults from server */ + char *scratch_buffer; /* place to hang scratch buffer */ + unsigned long scratch_length; /* length of scratch buffer */ + int ext_number; /* extension number on this display */ + struct _XExten *ext_procs; /* extensions initialized on this display */ + /* + * the following can be fixed size, as the protocol defines how + * much address space is available. + * While this could be done using the extension vector, there + * may be MANY events processed, so a search through the extension + * list to find the right procedure for each event might be + * expensive if many extensions are being used. + */ + Bool (*event_vec[128])(); /* vector for wire to event */ + Status (*wire_vec[128])(); /* vector for event to wire */ + KeySym lock_meaning; /* for XLookupString */ + struct _XLockInfo *lock; /* multi-thread state, display lock */ + struct _XInternalAsync *async_handlers; /* for internal async */ + unsigned long bigreq_size; /* max size of big requests */ + struct _XLockPtrs *lock_fns; /* pointers to threads functions */ + /* things above this line should not move, for binary compatibility */ + struct _XKeytrans *key_bindings; /* for XLookupString */ + Font cursor_font; /* for XCreateFontCursor */ + struct _XDisplayAtoms *atoms; /* for XInternAtom */ + unsigned int mode_switch; /* keyboard group modifiers */ + struct _XContextDB *context_db; /* context database */ + Bool (**error_vec)(); /* vector for wire to error */ + /* + * Xcms information + */ + struct { + XPointer defaultCCCs; /* pointer to an array of default XcmsCCC */ + XPointer clientCmaps; /* pointer to linked list of XcmsCmapRec */ + XPointer perVisualIntensityMaps; + /* linked list of XcmsIntensityMap */ + } cms; + struct _XIMFilter *im_filters; + struct _XSQEvent *qfree; /* unallocated event queue elements */ + unsigned long next_event_serial_num; /* inserted into next queue elt */ + int (*savedsynchandler)(); /* user synchandler when Xlib usurps */ +} Display; + +#if NeedFunctionPrototypes /* prototypes require event type definitions */ +#undef _XEVENT_ +#endif +#ifndef _XEVENT_ + +#define XMaxTransChars 4 + +/* + * Definitions of specific events. + */ +typedef struct { + int type; /* of event */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* "event" window it is reported relative to */ + Window root; /* root window that the event occured on */ + Window subwindow; /* child window */ + Time time; /* milliseconds */ + int x, y; /* pointer x, y coordinates in event window */ + int x_root, y_root; /* coordinates relative to root */ + unsigned int state; /* key or button mask */ + unsigned int keycode; /* detail */ + Bool same_screen; /* same screen flag */ + char trans_chars[XMaxTransChars]; + /* translated characters */ + int nbytes; +} XKeyEvent; +typedef XKeyEvent XKeyPressedEvent; +typedef XKeyEvent XKeyReleasedEvent; + +typedef struct { + int type; /* of event */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* "event" window it is reported relative to */ + Window root; /* root window that the event occured on */ + Window subwindow; /* child window */ + Time time; /* milliseconds */ + int x, y; /* pointer x, y coordinates in event window */ + int x_root, y_root; /* coordinates relative to root */ + unsigned int state; /* key or button mask */ + unsigned int button; /* detail */ + Bool same_screen; /* same screen flag */ +} XButtonEvent; +typedef XButtonEvent XButtonPressedEvent; +typedef XButtonEvent XButtonReleasedEvent; + +typedef struct { + int type; /* of event */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* "event" window reported relative to */ + Window root; /* root window that the event occured on */ + Window subwindow; /* child window */ + Time time; /* milliseconds */ + int x, y; /* pointer x, y coordinates in event window */ + int x_root, y_root; /* coordinates relative to root */ + unsigned int state; /* key or button mask */ + char is_hint; /* detail */ + Bool same_screen; /* same screen flag */ +} XMotionEvent; +typedef XMotionEvent XPointerMovedEvent; + +typedef struct { + int type; /* of event */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* "event" window reported relative to */ + Window root; /* root window that the event occured on */ + Window subwindow; /* child window */ + Time time; /* milliseconds */ + int x, y; /* pointer x, y coordinates in event window */ + int x_root, y_root; /* coordinates relative to root */ + int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ + int detail; + /* + * NotifyAncestor, NotifyVirtual, NotifyInferior, + * NotifyNonlinear,NotifyNonlinearVirtual + */ + Bool same_screen; /* same screen flag */ + Bool focus; /* boolean focus */ + unsigned int state; /* key or button mask */ +} XCrossingEvent; +typedef XCrossingEvent XEnterWindowEvent; +typedef XCrossingEvent XLeaveWindowEvent; + +typedef struct { + int type; /* FocusIn or FocusOut */ + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* window of event */ + int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ + int detail; + /* + * NotifyAncestor, NotifyVirtual, NotifyInferior, + * NotifyNonlinear,NotifyNonlinearVirtual, NotifyPointer, + * NotifyPointerRoot, NotifyDetailNone + */ +} XFocusChangeEvent; +typedef XFocusChangeEvent XFocusInEvent; +typedef XFocusChangeEvent XFocusOutEvent; + +/* generated on EnterWindow and FocusIn when KeyMapState selected */ +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + char key_vector[32]; +} XKeymapEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + int x, y; + int width, height; + int count; /* if non-zero, at least this many more */ +} XExposeEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Drawable drawable; + int x, y; + int width, height; + int count; /* if non-zero, at least this many more */ + int major_code; /* core is CopyArea or CopyPlane */ + int minor_code; /* not defined in the core */ +} XGraphicsExposeEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Drawable drawable; + int major_code; /* core is CopyArea or CopyPlane */ + int minor_code; /* not defined in the core */ +} XNoExposeEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + int state; /* Visibility state */ +} XVisibilityEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window parent; /* parent of the window */ + Window window; /* window id of window created */ + int x, y; /* window location */ + int width, height; /* size of window */ + int border_width; /* border width */ + Bool override_redirect; /* creation should be overridden */ +} XCreateWindowEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; +} XDestroyWindowEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + Bool from_configure; +} XUnmapEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + Bool override_redirect; /* boolean, is override set... */ +} XMapEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window parent; + Window window; +} XMapRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + Window parent; + int x, y; + Bool override_redirect; +} XReparentEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + int x, y; + int width, height; + int border_width; + Window above; + Bool override_redirect; +} XConfigureEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + int x, y; +} XGravityEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + int width, height; +} XResizeRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window parent; + Window window; + int x, y; + int width, height; + int border_width; + Window above; + int detail; /* Above, Below, TopIf, BottomIf, Opposite */ + unsigned long value_mask; +} XConfigureRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window event; + Window window; + int place; /* PlaceOnTop, PlaceOnBottom */ +} XCirculateEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window parent; + Window window; + int place; /* PlaceOnTop, PlaceOnBottom */ +} XCirculateRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + Atom atom; + Time time; + int state; /* NewValue, Deleted */ +} XPropertyEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + Atom selection; + Time time; +} XSelectionClearEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window owner; + Window requestor; + Atom selection; + Atom target; + Atom property; + Time time; +} XSelectionRequestEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window requestor; + Atom selection; + Atom target; + Atom property; /* ATOM or None */ + Time time; +} XSelectionEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + Colormap colormap; /* COLORMAP or None */ +#if defined(__cplusplus) || defined(c_plusplus) + Bool c_new; /* C++ */ +#else + Bool new; +#endif + int state; /* ColormapInstalled, ColormapUninstalled */ +} XColormapEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; + Atom message_type; + int format; + union { + char b[20]; + short s[10]; + long l[5]; + } data; +} XClientMessageEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display; /* Display the event was read from */ + Window window; /* unused */ + int request; /* one of MappingModifier, MappingKeyboard, + MappingPointer */ + int first_keycode; /* first keycode */ + int count; /* defines range of change w. first_keycode*/ +} XMappingEvent; + +typedef struct { + int type; + Display *display; /* Display the event was read from */ + XID resourceid; /* resource id */ + unsigned long serial; /* serial number of failed request */ + unsigned char error_code; /* error code of failed request */ + unsigned char request_code; /* Major op-code of failed request */ + unsigned char minor_code; /* Minor op-code of failed request */ +} XErrorEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server */ + Bool send_event; /* true if this came from a SendEvent request */ + Display *display;/* Display the event was read from */ + Window window; /* window on which event was requested in event mask */ +} XAnyEvent; + +/* + * this union is defined so Xlib can always use the same sized + * event structure internally, to avoid memory fragmentation. + */ +typedef union _XEvent { + int type; /* must not be changed; first element */ + XAnyEvent xany; + XKeyEvent xkey; + XButtonEvent xbutton; + XMotionEvent xmotion; + XCrossingEvent xcrossing; + XFocusChangeEvent xfocus; + XExposeEvent xexpose; + XGraphicsExposeEvent xgraphicsexpose; + XNoExposeEvent xnoexpose; + XVisibilityEvent xvisibility; + XCreateWindowEvent xcreatewindow; + XDestroyWindowEvent xdestroywindow; + XUnmapEvent xunmap; + XMapEvent xmap; + XMapRequestEvent xmaprequest; + XReparentEvent xreparent; + XConfigureEvent xconfigure; + XGravityEvent xgravity; + XResizeRequestEvent xresizerequest; + XConfigureRequestEvent xconfigurerequest; + XCirculateEvent xcirculate; + XCirculateRequestEvent xcirculaterequest; + XPropertyEvent xproperty; + XSelectionClearEvent xselectionclear; + XSelectionRequestEvent xselectionrequest; + XSelectionEvent xselection; + XColormapEvent xcolormap; + XClientMessageEvent xclient; + XMappingEvent xmapping; + XErrorEvent xerror; + XKeymapEvent xkeymap; + long pad[24]; +} XEvent; +#endif + +#define XAllocID(dpy) ((*(dpy)->resource_alloc)((dpy))) + +/* + * per character font metric information. + */ +typedef struct { + short lbearing; /* origin to left edge of raster */ + short rbearing; /* origin to right edge of raster */ + short width; /* advance to next char's origin */ + short ascent; /* baseline to top edge of raster */ + short descent; /* baseline to bottom edge of raster */ + unsigned short attributes; /* per char flags (not predefined) */ +} XCharStruct; + +/* + * To allow arbitrary information with fonts, there are additional properties + * returned. + */ +typedef struct { + Atom name; + unsigned long card32; +} XFontProp; + +typedef struct { + XExtData *ext_data; /* hook for extension to hang data */ + Font fid; /* Font id for this font */ + unsigned direction; /* hint about direction the font is painted */ + unsigned min_char_or_byte2;/* first character */ + unsigned max_char_or_byte2;/* last character */ + unsigned min_byte1; /* first row that exists */ + unsigned max_byte1; /* last row that exists */ + Bool all_chars_exist;/* flag if all characters have non-zero size*/ + unsigned default_char; /* char to print for undefined character */ + int n_properties; /* how many properties there are */ + XFontProp *properties; /* pointer to array of additional properties*/ + XCharStruct min_bounds; /* minimum bounds over all existing char*/ + XCharStruct max_bounds; /* maximum bounds over all existing char*/ + XCharStruct *per_char; /* first_char to last_char information */ + int ascent; /* log. extent above baseline for spacing */ + int descent; /* log. descent below baseline for spacing */ +} XFontStruct; + +/* + * PolyText routines take these as arguments. + */ +typedef struct { + char *chars; /* pointer to string */ + int nchars; /* number of characters */ + int delta; /* delta between strings */ + Font font; /* font to print it in, None don't change */ +} XTextItem; + +typedef struct { /* normal 16 bit characters are two bytes */ + unsigned char byte1; + unsigned char byte2; +} XChar2b; + +typedef struct { + XChar2b *chars; /* two byte characters */ + int nchars; /* number of characters */ + int delta; /* delta between strings */ + Font font; /* font to print it in, None don't change */ +} XTextItem16; + + +typedef union { Display *display; + GC gc; + Visual *visual; + Screen *screen; + ScreenFormat *pixmap_format; + XFontStruct *font; } XEDataObject; + +typedef struct { + XRectangle max_ink_extent; + XRectangle max_logical_extent; +} XFontSetExtents; + +typedef struct _XFontSet *XFontSet; + +typedef struct { + char *chars; + int nchars; + int delta; + XFontSet font_set; +} XmbTextItem; + +typedef struct { + wchar_t *chars; + int nchars; + int delta; + XFontSet font_set; +} XwcTextItem; + +typedef void (*XIMProc)(); + +typedef struct _XIM *XIM; +typedef struct _XIC *XIC; + +typedef unsigned long XIMStyle; + +typedef struct { + unsigned short count_styles; + XIMStyle *supported_styles; +} XIMStyles; + +#define XIMPreeditArea 0x0001L +#define XIMPreeditCallbacks 0x0002L +#define XIMPreeditPosition 0x0004L +#define XIMPreeditNothing 0x0008L +#define XIMPreeditNone 0x0010L +#define XIMStatusArea 0x0100L +#define XIMStatusCallbacks 0x0200L +#define XIMStatusNothing 0x0400L +#define XIMStatusNone 0x0800L + +#define XNVaNestedList "XNVaNestedList" +#define XNClientWindow "clientWindow" +#define XNInputStyle "inputStyle" +#define XNFocusWindow "focusWindow" +#define XNResourceName "resourceName" +#define XNResourceClass "resourceClass" +#define XNGeometryCallback "geometryCallback" +#define XNFilterEvents "filterEvents" +#define XNPreeditStartCallback "preeditStartCallback" +#define XNPreeditDoneCallback "preeditDoneCallback" +#define XNPreeditDrawCallback "preeditDrawCallback" +#define XNPreeditCaretCallback "preeditCaretCallback" +#define XNPreeditAttributes "preeditAttributes" +#define XNStatusStartCallback "statusStartCallback" +#define XNStatusDoneCallback "statusDoneCallback" +#define XNStatusDrawCallback "statusDrawCallback" +#define XNStatusAttributes "statusAttributes" +#define XNArea "area" +#define XNAreaNeeded "areaNeeded" +#define XNSpotLocation "spotLocation" +#define XNColormap "colorMap" +#define XNStdColormap "stdColorMap" +#define XNForeground "foreground" +#define XNBackground "background" +#define XNBackgroundPixmap "backgroundPixmap" +#define XNFontSet "fontSet" +#define XNLineSpace "lineSpace" +#define XNCursor "cursor" + +#define XBufferOverflow -1 +#define XLookupNone 1 +#define XLookupChars 2 +#define XLookupKeySym 3 +#define XLookupBoth 4 + +#if NeedFunctionPrototypes +typedef void *XVaNestedList; +#else +typedef XPointer XVaNestedList; +#endif + +typedef struct { + XPointer client_data; + XIMProc callback; +} XIMCallback; + +typedef unsigned long XIMFeedback; + +#define XIMReverse 1 +#define XIMUnderline (1<<1) +#define XIMHighlight (1<<2) +#define XIMPrimary (1<<5) +#define XIMSecondary (1<<6) +#define XIMTertiary (1<<7) + +typedef struct _XIMText { + unsigned short length; + XIMFeedback *feedback; + Bool encoding_is_wchar; + union { + char *multi_byte; + wchar_t *wide_char; + } string; +} XIMText; + +typedef struct _XIMPreeditDrawCallbackStruct { + int caret; /* Cursor offset within pre-edit string */ + int chg_first; /* Starting change position */ + int chg_length; /* Length of the change in character count */ + XIMText *text; +} XIMPreeditDrawCallbackStruct; + +typedef enum { + XIMForwardChar, XIMBackwardChar, + XIMForwardWord, XIMBackwardWord, + XIMCaretUp, XIMCaretDown, + XIMNextLine, XIMPreviousLine, + XIMLineStart, XIMLineEnd, + XIMAbsolutePosition, + XIMDontChange +} XIMCaretDirection; + +typedef enum { + XIMIsInvisible, /* Disable caret feedback */ + XIMIsPrimary, /* UI defined caret feedback */ + XIMIsSecondary /* UI defined caret feedback */ +} XIMCaretStyle; + +typedef struct _XIMPreeditCaretCallbackStruct { + int position; /* Caret offset within pre-edit string */ + XIMCaretDirection direction; /* Caret moves direction */ + XIMCaretStyle style; /* Feedback of the caret */ +} XIMPreeditCaretCallbackStruct; + +typedef enum { + XIMTextType, + XIMBitmapType +} XIMStatusDataType; + +typedef struct _XIMStatusDrawCallbackStruct { + XIMStatusDataType type; + union { + XIMText *text; + Pixmap bitmap; + } data; +} XIMStatusDrawCallbackStruct; + +typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ +#if NeedFunctionPrototypes + Display* /* display */, + XErrorEvent* /* error_event */ +#endif +); + +_XFUNCPROTOBEGIN + + + +#include "tkIntXlibDecls.h" + +_XFUNCPROTOEND + +#if defined(MAC_OSX_TK) +# undef Cursor +# undef Region +#endif + +#endif /* _XLIB_H_ */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xutil.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xutil.h new file mode 100644 index 00000000..58124b04 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/Xutil.h @@ -0,0 +1,855 @@ +/* $XConsortium: Xutil.h,v 11.73 91/07/30 16:21:37 rws Exp $ */ + +/*********************************************************** +Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, +and the Massachusetts Institute of Technology, Cambridge, Massachusetts. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Digital or MIT not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. + +DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING +ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL +DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR +ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, +WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, +ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS +SOFTWARE. + +******************************************************************/ + +#ifndef _XUTIL_H_ +#define _XUTIL_H_ + +/* You must include before including this file */ + +#if defined(MAC_OSX_TK) +# define Region XRegion +#endif + +/* + * Bitmask returned by XParseGeometry(). Each bit tells if the corresponding + * value (x, y, width, height) was found in the parsed string. + */ +#define NoValue 0x0000 +#define XValue 0x0001 +#define YValue 0x0002 +#define WidthValue 0x0004 +#define HeightValue 0x0008 +#define AllValues 0x000F +#define XNegative 0x0010 +#define YNegative 0x0020 + +/* + * new version containing base_width, base_height, and win_gravity fields; + * used with WM_NORMAL_HINTS. + */ +typedef struct { + long flags; /* marks which fields in this structure are defined */ + int x, y; /* obsolete for new window mgrs, but clients */ + int width, height; /* should set so old wm's don't mess up */ + int min_width, min_height; + int max_width, max_height; + int width_inc, height_inc; + struct { + int x; /* numerator */ + int y; /* denominator */ + } min_aspect, max_aspect; + int base_width, base_height; /* added by ICCCM version 1 */ + int win_gravity; /* added by ICCCM version 1 */ +} XSizeHints; + +/* + * The next block of definitions are for window manager properties that + * clients and applications use for communication. + */ + +/* flags argument in size hints */ +#define USPosition (1L << 0) /* user specified x, y */ +#define USSize (1L << 1) /* user specified width, height */ + +#define PPosition (1L << 2) /* program specified position */ +#define PSize (1L << 3) /* program specified size */ +#define PMinSize (1L << 4) /* program specified minimum size */ +#define PMaxSize (1L << 5) /* program specified maximum size */ +#define PResizeInc (1L << 6) /* program specified resize increments */ +#define PAspect (1L << 7) /* program specified min and max aspect ratios */ +#define PBaseSize (1L << 8) /* program specified base for incrementing */ +#define PWinGravity (1L << 9) /* program specified window gravity */ + +/* obsolete */ +#define PAllHints (PPosition|PSize|PMinSize|PMaxSize|PResizeInc|PAspect) + + + +typedef struct { + long flags; /* marks which fields in this structure are defined */ + Bool input; /* does this application rely on the window manager to + get keyboard input? */ + int initial_state; /* see below */ + Pixmap icon_pixmap; /* pixmap to be used as icon */ + Window icon_window; /* window to be used as icon */ + int icon_x, icon_y; /* initial position of icon */ + Pixmap icon_mask; /* icon mask bitmap */ + XID window_group; /* id of related window group */ + /* this structure may be extended in the future */ +} XWMHints; + +/* definition for flags of XWMHints */ + +#define InputHint (1L << 0) +#define StateHint (1L << 1) +#define IconPixmapHint (1L << 2) +#define IconWindowHint (1L << 3) +#define IconPositionHint (1L << 4) +#define IconMaskHint (1L << 5) +#define WindowGroupHint (1L << 6) +#define AllHints (InputHint|StateHint|IconPixmapHint|IconWindowHint| \ +IconPositionHint|IconMaskHint|WindowGroupHint) + +/* definitions for initial window state */ +#define WithdrawnState 0 /* for windows that are not mapped */ +#define NormalState 1 /* most applications want to start this way */ +#define IconicState 3 /* application wants to start as an icon */ + +/* + * Obsolete states no longer defined by ICCCM + */ +#define DontCareState 0 /* don't know or care */ +#define ZoomState 2 /* application wants to start zoomed */ +#define InactiveState 4 /* application believes it is seldom used; */ + /* some wm's may put it on inactive menu */ + + +/* + * new structure for manipulating TEXT properties; used with WM_NAME, + * WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND. + */ +typedef struct { + unsigned char *value; /* same as Property routines */ + Atom encoding; /* prop type */ + int format; /* prop data format: 8, 16, or 32 */ + unsigned long nitems; /* number of data items in value */ +} XTextProperty; + +#define XNoMemory -1 +#define XLocaleNotSupported -2 +#define XConverterNotFound -3 + +typedef enum { + XStringStyle, /* STRING */ + XCompoundTextStyle, /* COMPOUND_TEXT */ + XTextStyle, /* text in owner's encoding (current locale)*/ + XStdICCTextStyle /* STRING, else COMPOUND_TEXT */ +} XICCEncodingStyle; + +typedef struct { + int min_width, min_height; + int max_width, max_height; + int width_inc, height_inc; +} XIconSize; + +typedef struct { + char *res_name; + char *res_class; +} XClassHint; + +/* + * These macros are used to give some sugar to the image routines so that + * naive people are more comfortable with them. + */ +#define XDestroyImage(ximage) \ + ((*((ximage)->f.destroy_image))((ximage))) +#define XGetPixel(ximage, x, y) \ + ((*((ximage)->f.get_pixel))((ximage), (x), (y))) +#define XPutPixel(ximage, x, y, pixel) \ + ((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel))) +#define XSubImage(ximage, x, y, width, height) \ + ((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height))) +#define XAddPixel(ximage, value) \ + ((*((ximage)->f.add_pixel))((ximage), (value))) + +/* + * Compose sequence status structure, used in calling XLookupString. + */ +typedef struct _XComposeStatus { + XPointer compose_ptr; /* state table pointer */ + int chars_matched; /* match state */ +} XComposeStatus; + +/* + * Keysym macros, used on Keysyms to test for classes of symbols + */ +#define IsKeypadKey(keysym) \ + (((unsigned)(keysym) >= XK_KP_Space) && ((unsigned)(keysym) <= XK_KP_Equal)) + +#define IsCursorKey(keysym) \ + (((unsigned)(keysym) >= XK_Home) && ((unsigned)(keysym) < XK_Select)) + +#define IsPFKey(keysym) \ + (((unsigned)(keysym) >= XK_KP_F1) && ((unsigned)(keysym) <= XK_KP_F4)) + +#define IsFunctionKey(keysym) \ + (((unsigned)(keysym) >= XK_F1) && ((unsigned)(keysym) <= XK_F35)) + +#define IsMiscFunctionKey(keysym) \ + (((unsigned)(keysym) >= XK_Select) && ((unsigned)(keysym) <= XK_Break)) + +#define IsModifierKey(keysym) \ + ((((unsigned)(keysym) >= XK_Shift_L) && ((unsigned)(keysym) <= XK_Hyper_R)) \ + || ((unsigned)(keysym) == XK_Mode_switch) \ + || ((unsigned)(keysym) == XK_Num_Lock)) +/* + * opaque reference to Region data type + */ +typedef struct _XRegion *Region; + +/* Return values from XRectInRegion() */ + +#define RectangleOut 0 +#define RectangleIn 1 +#define RectanglePart 2 + + +/* + * Information used by the visual utility routines to find desired visual + * type from the many visuals a display may support. + */ + +typedef struct { + Visual *visual; + VisualID visualid; + int screen; + int depth; +#if defined(__cplusplus) || defined(c_plusplus) + int c_class; /* C++ */ +#else + int class; +#endif + unsigned long red_mask; + unsigned long green_mask; + unsigned long blue_mask; + int colormap_size; + int bits_per_rgb; +} XVisualInfo; + +#define VisualNoMask 0x0 +#define VisualIDMask 0x1 +#define VisualScreenMask 0x2 +#define VisualDepthMask 0x4 +#define VisualClassMask 0x8 +#define VisualRedMaskMask 0x10 +#define VisualGreenMaskMask 0x20 +#define VisualBlueMaskMask 0x40 +#define VisualColormapSizeMask 0x80 +#define VisualBitsPerRGBMask 0x100 +#define VisualAllMask 0x1FF + +/* + * This defines a window manager property that clients may use to + * share standard color maps of type RGB_COLOR_MAP: + */ +typedef struct { + Colormap colormap; + unsigned long red_max; + unsigned long red_mult; + unsigned long green_max; + unsigned long green_mult; + unsigned long blue_max; + unsigned long blue_mult; + unsigned long base_pixel; + VisualID visualid; /* added by ICCCM version 1 */ + XID killid; /* added by ICCCM version 1 */ +} XStandardColormap; + +#define ReleaseByFreeingColormap ((XID) 1L) /* for killid field above */ + + +/* + * return codes for XReadBitmapFile and XWriteBitmapFile + */ +#define BitmapSuccess 0 +#define BitmapOpenFailed 1 +#define BitmapFileInvalid 2 +#define BitmapNoMemory 3 + +/**************************************************************** + * + * Context Management + * + ****************************************************************/ + + +/* Associative lookup table return codes */ + +#define XCSUCCESS 0 /* No error. */ +#define XCNOMEM 1 /* Out of memory */ +#define XCNOENT 2 /* No entry in table */ + +typedef int XContext; + +#define XUniqueContext() ((XContext) XrmUniqueQuark()) +#define XStringToContext(string) ((XContext) XrmStringToQuark(string)) + +_XFUNCPROTOBEGIN + +/* The following declarations are alphabetized. */ + +extern XClassHint *XAllocClassHint ( +#if NeedFunctionPrototypes + void +#endif +); + +extern XIconSize *XAllocIconSize ( +#if NeedFunctionPrototypes + void +#endif +); + +extern XSizeHints *XAllocSizeHints ( +#if NeedFunctionPrototypes + void +#endif +); + +extern XStandardColormap *XAllocStandardColormap ( +#if NeedFunctionPrototypes + void +#endif +); + +extern XWMHints *XAllocWMHints ( +#if NeedFunctionPrototypes + void +#endif +); + +extern void XClipBox( +#if NeedFunctionPrototypes + Region /* r */, + XRectangle* /* rect_return */ +#endif +); + +extern Region XCreateRegion( +#if NeedFunctionPrototypes + void +#endif +); + +extern char *XDefaultString( +#if NeedFunctionPrototypes + void +#endif +); + +extern int XDeleteContext( +#if NeedFunctionPrototypes + Display* /* display */, + XID /* rid */, + XContext /* context */ +#endif +); + +extern void XDestroyRegion( +#if NeedFunctionPrototypes + Region /* r */ +#endif +); + +extern Bool XEmptyRegion( +#if NeedFunctionPrototypes + Region /* r */ +#endif +); + +extern Bool XEqualRegion( +#if NeedFunctionPrototypes + Region /* r1 */, + Region /* r2 */ +#endif +); + +extern int XFindContext( +#if NeedFunctionPrototypes + Display* /* display */, + XID /* rid */, + XContext /* context */, + XPointer* /* data_return */ +#endif +); + +extern Status XGetClassHint( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XClassHint* /* class_hints_return */ +#endif +); + +extern Status XGetIconSizes( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XIconSize** /* size_list_return */, + int* /* count_return */ +#endif +); + +extern Status XGetNormalHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints_return */ +#endif +); + +extern Status XGetRGBColormaps( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XStandardColormap** /* stdcmap_return */, + int* /* count_return */, + Atom /* property */ +#endif +); + +extern Status XGetSizeHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints_return */, + Atom /* property */ +#endif +); + +extern Status XGetStandardColormap( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XStandardColormap* /* colormap_return */, + Atom /* property */ +#endif +); + +extern Status XGetTextProperty( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* window */, + XTextProperty* /* text_prop_return */, + Atom /* property */ +#endif +); + + +extern Status XGetWMClientMachine( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern XWMHints *XGetWMHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */ +#endif +); + +extern Status XGetWMIconName( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern Status XGetWMName( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern Status XGetWMNormalHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints_return */, + long* /* supplied_return */ +#endif +); + +extern Status XGetWMSizeHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints_return */, + long* /* supplied_return */, + Atom /* property */ +#endif +); + +extern Status XGetZoomHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* zhints_return */ +#endif +); + +extern void XIntersectRegion( +#if NeedFunctionPrototypes + Region /* sra */, + Region /* srb */, + Region /* dr_return */ +#endif +); + +extern int XLookupString( +#if NeedFunctionPrototypes + XKeyEvent* /* event_struct */, + char* /* buffer_return */, + int /* bytes_buffer */, + KeySym* /* keysym_return */, + XComposeStatus* /* status_in_out */ +#endif +); + +extern Status XMatchVisualInfo( +#if NeedFunctionPrototypes + Display* /* display */, + int /* screen */, + int /* depth */, + int /* class */, + XVisualInfo* /* vinfo_return */ +#endif +); + +extern void XOffsetRegion( +#if NeedFunctionPrototypes + Region /* r */, + int /* dx */, + int /* dy */ +#endif +); + +extern Bool XPointInRegion( +#if NeedFunctionPrototypes + Region /* r */, + int /* x */, + int /* y */ +#endif +); + +extern Region XPolygonRegion( +#if NeedFunctionPrototypes + XPoint* /* points */, + int /* n */, + int /* fill_rule */ +#endif +); + +extern int XRectInRegion( +#if NeedFunctionPrototypes + Region /* r */, + int /* x */, + int /* y */, + unsigned int /* width */, + unsigned int /* height */ +#endif +); + +extern int XSaveContext( +#if NeedFunctionPrototypes + Display* /* display */, + XID /* rid */, + XContext /* context */, + _Xconst char* /* data */ +#endif +); + +extern void XSetClassHint( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XClassHint* /* class_hints */ +#endif +); + +extern void XSetIconSizes( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XIconSize* /* size_list */, + int /* count */ +#endif +); + +extern void XSetNormalHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints */ +#endif +); + +extern void XSetRGBColormaps( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XStandardColormap* /* stdcmaps */, + int /* count */, + Atom /* property */ +#endif +); + +extern void XSetSizeHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints */, + Atom /* property */ +#endif +); + +extern void XSetStandardProperties( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + _Xconst char* /* window_name */, + _Xconst char* /* icon_name */, + Pixmap /* icon_pixmap */, + char** /* argv */, + int /* argc */, + XSizeHints* /* hints */ +#endif +); + +extern void XSetTextProperty( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop */, + Atom /* property */ +#endif +); + +extern void XSetWMHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XWMHints* /* wm_hints */ +#endif +); + +extern void XSetWMIconName( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop */ +#endif +); + +extern void XSetWMName( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* text_prop */ +#endif +); + +extern void XSetWMNormalHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints */ +#endif +); + +extern void XSetWMProperties( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XTextProperty* /* window_name */, + XTextProperty* /* icon_name */, + char** /* argv */, + int /* argc */, + XSizeHints* /* normal_hints */, + XWMHints* /* wm_hints */, + XClassHint* /* class_hints */ +#endif +); + +extern void XmbSetWMProperties( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + _Xconst char* /* window_name */, + _Xconst char* /* icon_name */, + char** /* argv */, + int /* argc */, + XSizeHints* /* normal_hints */, + XWMHints* /* wm_hints */, + XClassHint* /* class_hints */ +#endif +); + +extern void XSetWMSizeHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* hints */, + Atom /* property */ +#endif +); + +extern void XSetRegion( +#if NeedFunctionPrototypes + Display* /* display */, + GC /* gc */, + Region /* r */ +#endif +); + +extern void XSetStandardColormap( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XStandardColormap* /* colormap */, + Atom /* property */ +#endif +); + +extern void XSetZoomHints( +#if NeedFunctionPrototypes + Display* /* display */, + Window /* w */, + XSizeHints* /* zhints */ +#endif +); + +extern void XShrinkRegion( +#if NeedFunctionPrototypes + Region /* r */, + int /* dx */, + int /* dy */ +#endif +); + +extern void XSubtractRegion( +#if NeedFunctionPrototypes + Region /* sra */, + Region /* srb */, + Region /* dr_return */ +#endif +); + +extern int XmbTextListToTextProperty( +#if NeedFunctionPrototypes + Display* /* display */, + char** /* list */, + int /* count */, + XICCEncodingStyle /* style */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern int XwcTextListToTextProperty( +#if NeedFunctionPrototypes + Display* /* display */, + wchar_t** /* list */, + int /* count */, + XICCEncodingStyle /* style */, + XTextProperty* /* text_prop_return */ +#endif +); + +extern void XwcFreeStringList( +#if NeedFunctionPrototypes + wchar_t** /* list */ +#endif +); + +extern Status XTextPropertyToStringList( +#if NeedFunctionPrototypes + XTextProperty* /* text_prop */, + char*** /* list_return */, + int* /* count_return */ +#endif +); + +extern int XmbTextPropertyToTextList( +#if NeedFunctionPrototypes + Display* /* display */, + XTextProperty* /* text_prop */, + char*** /* list_return */, + int* /* count_return */ +#endif +); + +extern int XwcTextPropertyToTextList( +#if NeedFunctionPrototypes + Display* /* display */, + XTextProperty* /* text_prop */, + wchar_t*** /* list_return */, + int* /* count_return */ +#endif +); + +extern void XUnionRectWithRegion( +#if NeedFunctionPrototypes + XRectangle* /* rectangle */, + Region /* src_region */, + Region /* dest_region_return */ +#endif +); + +extern void XUnionRegion( +#if NeedFunctionPrototypes + Region /* sra */, + Region /* srb */, + Region /* dr_return */ +#endif +); + +extern int XWMGeometry( +#if NeedFunctionPrototypes + Display* /* display */, + int /* screen_number */, + _Xconst char* /* user_geometry */, + _Xconst char* /* default_geometry */, + unsigned int /* border_width */, + XSizeHints* /* hints */, + int* /* x_return */, + int* /* y_return */, + int* /* width_return */, + int* /* height_return */, + int* /* gravity_return */ +#endif +); + +extern void XXorRegion( +#if NeedFunctionPrototypes + Region /* sra */, + Region /* srb */, + Region /* dr_return */ +#endif +); + +_XFUNCPROTOEND + +#if defined(MAC_OSX_TK) +# undef Region +#endif + +#endif /* _XUTIL_H_ */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/cursorfont.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/cursorfont.h new file mode 100644 index 00000000..617274fa --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/cursorfont.h @@ -0,0 +1,79 @@ +/* $XConsortium: cursorfont.h,v 1.2 88/09/06 16:44:27 jim Exp $ */ +#define XC_num_glyphs 154 +#define XC_X_cursor 0 +#define XC_arrow 2 +#define XC_based_arrow_down 4 +#define XC_based_arrow_up 6 +#define XC_boat 8 +#define XC_bogosity 10 +#define XC_bottom_left_corner 12 +#define XC_bottom_right_corner 14 +#define XC_bottom_side 16 +#define XC_bottom_tee 18 +#define XC_box_spiral 20 +#define XC_center_ptr 22 +#define XC_circle 24 +#define XC_clock 26 +#define XC_coffee_mug 28 +#define XC_cross 30 +#define XC_cross_reverse 32 +#define XC_crosshair 34 +#define XC_diamond_cross 36 +#define XC_dot 38 +#define XC_dotbox 40 +#define XC_double_arrow 42 +#define XC_draft_large 44 +#define XC_draft_small 46 +#define XC_draped_box 48 +#define XC_exchange 50 +#define XC_fleur 52 +#define XC_gobbler 54 +#define XC_gumby 56 +#define XC_hand1 58 +#define XC_hand2 60 +#define XC_heart 62 +#define XC_icon 64 +#define XC_iron_cross 66 +#define XC_left_ptr 68 +#define XC_left_side 70 +#define XC_left_tee 72 +#define XC_leftbutton 74 +#define XC_ll_angle 76 +#define XC_lr_angle 78 +#define XC_man 80 +#define XC_middlebutton 82 +#define XC_mouse 84 +#define XC_pencil 86 +#define XC_pirate 88 +#define XC_plus 90 +#define XC_question_arrow 92 +#define XC_right_ptr 94 +#define XC_right_side 96 +#define XC_right_tee 98 +#define XC_rightbutton 100 +#define XC_rtl_logo 102 +#define XC_sailboat 104 +#define XC_sb_down_arrow 106 +#define XC_sb_h_double_arrow 108 +#define XC_sb_left_arrow 110 +#define XC_sb_right_arrow 112 +#define XC_sb_up_arrow 114 +#define XC_sb_v_double_arrow 116 +#define XC_shuttle 118 +#define XC_sizing 120 +#define XC_spider 122 +#define XC_spraycan 124 +#define XC_star 126 +#define XC_target 128 +#define XC_tcross 130 +#define XC_top_left_arrow 132 +#define XC_top_left_corner 134 +#define XC_top_right_corner 136 +#define XC_top_side 138 +#define XC_top_tee 140 +#define XC_trek 142 +#define XC_ul_angle 144 +#define XC_umbrella 146 +#define XC_ur_angle 148 +#define XC_watch 150 +#define XC_xterm 152 diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/keysym.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/keysym.h new file mode 100644 index 00000000..550b76db --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/keysym.h @@ -0,0 +1,35 @@ +/* $XConsortium: keysym.h,v 1.13 91/03/13 20:09:49 rws Exp $ */ + +/*********************************************************** +Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, +and the Massachusetts Institute of Technology, Cambridge, Massachusetts. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Digital or MIT not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. + +DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING +ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL +DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR +ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, +WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, +ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS +SOFTWARE. + +******************************************************************/ + +/* default keysyms */ +#define XK_MISCELLANY +#define XK_LATIN1 +#define XK_LATIN2 +#define XK_LATIN3 +#define XK_LATIN4 +#define XK_GREEK + +#include diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/keysymdef.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/keysymdef.h new file mode 100644 index 00000000..b22d41b3 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/keysymdef.h @@ -0,0 +1,1169 @@ +/* $XConsortium: keysymdef.h,v 1.15 93/04/02 10:57:36 rws Exp $ */ + +/*********************************************************** +Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, +and the Massachusetts Institute of Technology, Cambridge, Massachusetts. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Digital or MIT not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. + +DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING +ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL +DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR +ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, +WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, +ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS +SOFTWARE. + +******************************************************************/ + +#define XK_VoidSymbol 0xFFFFFF /* void symbol */ + +#ifdef XK_MISCELLANY +/* + * TTY Functions, cleverly chosen to map to ascii, for convenience of + * programming, but could have been arbitrary (at the cost of lookup + * tables in client code. + */ + +#define XK_BackSpace 0xFF08 /* back space, back char */ +#define XK_Tab 0xFF09 +#define XK_Linefeed 0xFF0A /* Linefeed, LF */ +#define XK_Clear 0xFF0B +#define XK_Return 0xFF0D /* Return, enter */ +#define XK_Pause 0xFF13 /* Pause, hold */ +#define XK_Scroll_Lock 0xFF14 +#define XK_Sys_Req 0xFF15 +#define XK_Escape 0xFF1B +#define XK_Delete 0xFFFF /* Delete, rubout */ + + + +/* International & multi-key character composition */ + +#define XK_Multi_key 0xFF20 /* Multi-key character compose */ + +/* Japanese keyboard support */ + +#define XK_Kanji 0xFF21 /* Kanji, Kanji convert */ +#define XK_Muhenkan 0xFF22 /* Cancel Conversion */ +#define XK_Henkan_Mode 0xFF23 /* Start/Stop Conversion */ +#define XK_Henkan 0xFF23 /* Alias for Henkan_Mode */ +#define XK_Romaji 0xFF24 /* to Romaji */ +#define XK_Hiragana 0xFF25 /* to Hiragana */ +#define XK_Katakana 0xFF26 /* to Katakana */ +#define XK_Hiragana_Katakana 0xFF27 /* Hiragana/Katakana toggle */ +#define XK_Zenkaku 0xFF28 /* to Zenkaku */ +#define XK_Hankaku 0xFF29 /* to Hankaku */ +#define XK_Zenkaku_Hankaku 0xFF2A /* Zenkaku/Hankaku toggle */ +#define XK_Touroku 0xFF2B /* Add to Dictionary */ +#define XK_Massyo 0xFF2C /* Delete from Dictionary */ +#define XK_Kana_Lock 0xFF2D /* Kana Lock */ +#define XK_Kana_Shift 0xFF2E /* Kana Shift */ +#define XK_Eisu_Shift 0xFF2F /* Alphanumeric Shift */ +#define XK_Eisu_toggle 0xFF30 /* Alphanumeric toggle */ + +/* Cursor control & motion */ + +#define XK_Home 0xFF50 +#define XK_Left 0xFF51 /* Move left, left arrow */ +#define XK_Up 0xFF52 /* Move up, up arrow */ +#define XK_Right 0xFF53 /* Move right, right arrow */ +#define XK_Down 0xFF54 /* Move down, down arrow */ +#define XK_Prior 0xFF55 /* Prior, previous */ +#define XK_Page_Up 0xFF55 +#define XK_Next 0xFF56 /* Next */ +#define XK_Page_Down 0xFF56 +#define XK_End 0xFF57 /* EOL */ +#define XK_Begin 0xFF58 /* BOL */ + +/* Special Windows keyboard keys */ + +#define XK_Win_L 0xFF5B /* Left-hand Windows */ +#define XK_Win_R 0xFF5C /* Right-hand Windows */ +#define XK_App 0xFF5D /* Menu key */ + +/* Misc Functions */ + +#define XK_Select 0xFF60 /* Select, mark */ +#define XK_Print 0xFF61 +#define XK_Execute 0xFF62 /* Execute, run, do */ +#define XK_Insert 0xFF63 /* Insert, insert here */ +#define XK_Undo 0xFF65 /* Undo, oops */ +#define XK_Redo 0xFF66 /* redo, again */ +#define XK_Menu 0xFF67 +#define XK_Find 0xFF68 /* Find, search */ +#define XK_Cancel 0xFF69 /* Cancel, stop, abort, exit */ +#define XK_Help 0xFF6A /* Help, ? */ +#define XK_Break 0xFF6B +#define XK_Mode_switch 0xFF7E /* Character set switch */ +#define XK_script_switch 0xFF7E /* Alias for mode_switch */ +#define XK_Num_Lock 0xFF7F + +/* Keypad Functions, keypad numbers cleverly chosen to map to ascii */ + +#define XK_KP_Space 0xFF80 /* space */ +#define XK_KP_Tab 0xFF89 +#define XK_KP_Enter 0xFF8D /* enter */ +#define XK_KP_F1 0xFF91 /* PF1, KP_A, ... */ +#define XK_KP_F2 0xFF92 +#define XK_KP_F3 0xFF93 +#define XK_KP_F4 0xFF94 +#define XK_KP_Home 0xFF95 +#define XK_KP_Left 0xFF96 +#define XK_KP_Up 0xFF97 +#define XK_KP_Right 0xFF98 +#define XK_KP_Down 0xFF99 +#define XK_KP_Prior 0xFF9A +#define XK_KP_Page_Up 0xFF9A +#define XK_KP_Next 0xFF9B +#define XK_KP_Page_Down 0xFF9B +#define XK_KP_End 0xFF9C +#define XK_KP_Begin 0xFF9D +#define XK_KP_Insert 0xFF9E +#define XK_KP_Delete 0xFF9F +#define XK_KP_Equal 0xFFBD /* equals */ +#define XK_KP_Multiply 0xFFAA +#define XK_KP_Add 0xFFAB +#define XK_KP_Separator 0xFFAC /* separator, often comma */ +#define XK_KP_Subtract 0xFFAD +#define XK_KP_Decimal 0xFFAE +#define XK_KP_Divide 0xFFAF + +#define XK_KP_0 0xFFB0 +#define XK_KP_1 0xFFB1 +#define XK_KP_2 0xFFB2 +#define XK_KP_3 0xFFB3 +#define XK_KP_4 0xFFB4 +#define XK_KP_5 0xFFB5 +#define XK_KP_6 0xFFB6 +#define XK_KP_7 0xFFB7 +#define XK_KP_8 0xFFB8 +#define XK_KP_9 0xFFB9 + + + +/* + * Auxilliary Functions; note the duplicate definitions for left and right + * function keys; Sun keyboards and a few other manufactures have such + * function key groups on the left and/or right sides of the keyboard. + * We've not found a keyboard with more than 35 function keys total. + */ + +#define XK_F1 0xFFBE +#define XK_F2 0xFFBF +#define XK_F3 0xFFC0 +#define XK_F4 0xFFC1 +#define XK_F5 0xFFC2 +#define XK_F6 0xFFC3 +#define XK_F7 0xFFC4 +#define XK_F8 0xFFC5 +#define XK_F9 0xFFC6 +#define XK_F10 0xFFC7 +#define XK_F11 0xFFC8 +#define XK_L1 0xFFC8 +#define XK_F12 0xFFC9 +#define XK_L2 0xFFC9 +#define XK_F13 0xFFCA +#define XK_L3 0xFFCA +#define XK_F14 0xFFCB +#define XK_L4 0xFFCB +#define XK_F15 0xFFCC +#define XK_L5 0xFFCC +#define XK_F16 0xFFCD +#define XK_L6 0xFFCD +#define XK_F17 0xFFCE +#define XK_L7 0xFFCE +#define XK_F18 0xFFCF +#define XK_L8 0xFFCF +#define XK_F19 0xFFD0 +#define XK_L9 0xFFD0 +#define XK_F20 0xFFD1 +#define XK_L10 0xFFD1 +#define XK_F21 0xFFD2 +#define XK_R1 0xFFD2 +#define XK_F22 0xFFD3 +#define XK_R2 0xFFD3 +#define XK_F23 0xFFD4 +#define XK_R3 0xFFD4 +#define XK_F24 0xFFD5 +#define XK_R4 0xFFD5 +#define XK_F25 0xFFD6 +#define XK_R5 0xFFD6 +#define XK_F26 0xFFD7 +#define XK_R6 0xFFD7 +#define XK_F27 0xFFD8 +#define XK_R7 0xFFD8 +#define XK_F28 0xFFD9 +#define XK_R8 0xFFD9 +#define XK_F29 0xFFDA +#define XK_R9 0xFFDA +#define XK_F30 0xFFDB +#define XK_R10 0xFFDB +#define XK_F31 0xFFDC +#define XK_R11 0xFFDC +#define XK_F32 0xFFDD +#define XK_R12 0xFFDD +#define XK_F33 0xFFDE +#define XK_R13 0xFFDE +#define XK_F34 0xFFDF +#define XK_R14 0xFFDF +#define XK_F35 0xFFE0 +#define XK_R15 0xFFE0 + +/* Modifiers */ + +#define XK_Shift_L 0xFFE1 /* Left shift */ +#define XK_Shift_R 0xFFE2 /* Right shift */ +#define XK_Control_L 0xFFE3 /* Left control */ +#define XK_Control_R 0xFFE4 /* Right control */ +#define XK_Caps_Lock 0xFFE5 /* Caps lock */ +#define XK_Shift_Lock 0xFFE6 /* Shift lock */ + +#define XK_Meta_L 0xFFE7 /* Left meta */ +#define XK_Meta_R 0xFFE8 /* Right meta */ +#define XK_Alt_L 0xFFE9 /* Left alt */ +#define XK_Alt_R 0xFFEA /* Right alt */ +#define XK_Super_L 0xFFEB /* Left super */ +#define XK_Super_R 0xFFEC /* Right super */ +#define XK_Hyper_L 0xFFED /* Left hyper */ +#define XK_Hyper_R 0xFFEE /* Right hyper */ +#endif /* XK_MISCELLANY */ + +/* + * Latin 1 + * Byte 3 = 0 + */ +#ifdef XK_LATIN1 +#define XK_space 0x020 +#define XK_exclam 0x021 +#define XK_quotedbl 0x022 +#define XK_numbersign 0x023 +#define XK_dollar 0x024 +#define XK_percent 0x025 +#define XK_ampersand 0x026 +#define XK_apostrophe 0x027 +#define XK_quoteright 0x027 /* deprecated */ +#define XK_parenleft 0x028 +#define XK_parenright 0x029 +#define XK_asterisk 0x02a +#define XK_plus 0x02b +#define XK_comma 0x02c +#define XK_minus 0x02d +#define XK_period 0x02e +#define XK_slash 0x02f +#define XK_0 0x030 +#define XK_1 0x031 +#define XK_2 0x032 +#define XK_3 0x033 +#define XK_4 0x034 +#define XK_5 0x035 +#define XK_6 0x036 +#define XK_7 0x037 +#define XK_8 0x038 +#define XK_9 0x039 +#define XK_colon 0x03a +#define XK_semicolon 0x03b +#define XK_less 0x03c +#define XK_equal 0x03d +#define XK_greater 0x03e +#define XK_question 0x03f +#define XK_at 0x040 +#define XK_A 0x041 +#define XK_B 0x042 +#define XK_C 0x043 +#define XK_D 0x044 +#define XK_E 0x045 +#define XK_F 0x046 +#define XK_G 0x047 +#define XK_H 0x048 +#define XK_I 0x049 +#define XK_J 0x04a +#define XK_K 0x04b +#define XK_L 0x04c +#define XK_M 0x04d +#define XK_N 0x04e +#define XK_O 0x04f +#define XK_P 0x050 +#define XK_Q 0x051 +#define XK_R 0x052 +#define XK_S 0x053 +#define XK_T 0x054 +#define XK_U 0x055 +#define XK_V 0x056 +#define XK_W 0x057 +#define XK_X 0x058 +#define XK_Y 0x059 +#define XK_Z 0x05a +#define XK_bracketleft 0x05b +#define XK_backslash 0x05c +#define XK_bracketright 0x05d +#define XK_asciicircum 0x05e +#define XK_underscore 0x05f +#define XK_grave 0x060 +#define XK_quoteleft 0x060 /* deprecated */ +#define XK_a 0x061 +#define XK_b 0x062 +#define XK_c 0x063 +#define XK_d 0x064 +#define XK_e 0x065 +#define XK_f 0x066 +#define XK_g 0x067 +#define XK_h 0x068 +#define XK_i 0x069 +#define XK_j 0x06a +#define XK_k 0x06b +#define XK_l 0x06c +#define XK_m 0x06d +#define XK_n 0x06e +#define XK_o 0x06f +#define XK_p 0x070 +#define XK_q 0x071 +#define XK_r 0x072 +#define XK_s 0x073 +#define XK_t 0x074 +#define XK_u 0x075 +#define XK_v 0x076 +#define XK_w 0x077 +#define XK_x 0x078 +#define XK_y 0x079 +#define XK_z 0x07a +#define XK_braceleft 0x07b +#define XK_bar 0x07c +#define XK_braceright 0x07d +#define XK_asciitilde 0x07e + +#define XK_nobreakspace 0x0a0 +#define XK_exclamdown 0x0a1 +#define XK_cent 0x0a2 +#define XK_sterling 0x0a3 +#define XK_currency 0x0a4 +#define XK_yen 0x0a5 +#define XK_brokenbar 0x0a6 +#define XK_section 0x0a7 +#define XK_diaeresis 0x0a8 +#define XK_copyright 0x0a9 +#define XK_ordfeminine 0x0aa +#define XK_guillemotleft 0x0ab /* left angle quotation mark */ +#define XK_notsign 0x0ac +#define XK_hyphen 0x0ad +#define XK_registered 0x0ae +#define XK_macron 0x0af +#define XK_degree 0x0b0 +#define XK_plusminus 0x0b1 +#define XK_twosuperior 0x0b2 +#define XK_threesuperior 0x0b3 +#define XK_acute 0x0b4 +#define XK_mu 0x0b5 +#define XK_paragraph 0x0b6 +#define XK_periodcentered 0x0b7 +#define XK_cedilla 0x0b8 +#define XK_onesuperior 0x0b9 +#define XK_masculine 0x0ba +#define XK_guillemotright 0x0bb /* right angle quotation mark */ +#define XK_onequarter 0x0bc +#define XK_onehalf 0x0bd +#define XK_threequarters 0x0be +#define XK_questiondown 0x0bf +#define XK_Agrave 0x0c0 +#define XK_Aacute 0x0c1 +#define XK_Acircumflex 0x0c2 +#define XK_Atilde 0x0c3 +#define XK_Adiaeresis 0x0c4 +#define XK_Aring 0x0c5 +#define XK_AE 0x0c6 +#define XK_Ccedilla 0x0c7 +#define XK_Egrave 0x0c8 +#define XK_Eacute 0x0c9 +#define XK_Ecircumflex 0x0ca +#define XK_Ediaeresis 0x0cb +#define XK_Igrave 0x0cc +#define XK_Iacute 0x0cd +#define XK_Icircumflex 0x0ce +#define XK_Idiaeresis 0x0cf +#define XK_ETH 0x0d0 +#define XK_Eth 0x0d0 /* deprecated */ +#define XK_Ntilde 0x0d1 +#define XK_Ograve 0x0d2 +#define XK_Oacute 0x0d3 +#define XK_Ocircumflex 0x0d4 +#define XK_Otilde 0x0d5 +#define XK_Odiaeresis 0x0d6 +#define XK_multiply 0x0d7 +#define XK_Ooblique 0x0d8 +#define XK_Ugrave 0x0d9 +#define XK_Uacute 0x0da +#define XK_Ucircumflex 0x0db +#define XK_Udiaeresis 0x0dc +#define XK_Yacute 0x0dd +#define XK_THORN 0x0de +#define XK_Thorn 0x0de /* deprecated */ +#define XK_ssharp 0x0df +#define XK_agrave 0x0e0 +#define XK_aacute 0x0e1 +#define XK_acircumflex 0x0e2 +#define XK_atilde 0x0e3 +#define XK_adiaeresis 0x0e4 +#define XK_aring 0x0e5 +#define XK_ae 0x0e6 +#define XK_ccedilla 0x0e7 +#define XK_egrave 0x0e8 +#define XK_eacute 0x0e9 +#define XK_ecircumflex 0x0ea +#define XK_ediaeresis 0x0eb +#define XK_igrave 0x0ec +#define XK_iacute 0x0ed +#define XK_icircumflex 0x0ee +#define XK_idiaeresis 0x0ef +#define XK_eth 0x0f0 +#define XK_ntilde 0x0f1 +#define XK_ograve 0x0f2 +#define XK_oacute 0x0f3 +#define XK_ocircumflex 0x0f4 +#define XK_otilde 0x0f5 +#define XK_odiaeresis 0x0f6 +#define XK_division 0x0f7 +#define XK_oslash 0x0f8 +#define XK_ugrave 0x0f9 +#define XK_uacute 0x0fa +#define XK_ucircumflex 0x0fb +#define XK_udiaeresis 0x0fc +#define XK_yacute 0x0fd +#define XK_thorn 0x0fe +#define XK_ydiaeresis 0x0ff +#endif /* XK_LATIN1 */ + +/* + * Latin 2 + * Byte 3 = 1 + */ + +#ifdef XK_LATIN2 +#define XK_Aogonek 0x1a1 +#define XK_breve 0x1a2 +#define XK_Lstroke 0x1a3 +#define XK_Lcaron 0x1a5 +#define XK_Sacute 0x1a6 +#define XK_Scaron 0x1a9 +#define XK_Scedilla 0x1aa +#define XK_Tcaron 0x1ab +#define XK_Zacute 0x1ac +#define XK_Zcaron 0x1ae +#define XK_Zabovedot 0x1af +#define XK_aogonek 0x1b1 +#define XK_ogonek 0x1b2 +#define XK_lstroke 0x1b3 +#define XK_lcaron 0x1b5 +#define XK_sacute 0x1b6 +#define XK_caron 0x1b7 +#define XK_scaron 0x1b9 +#define XK_scedilla 0x1ba +#define XK_tcaron 0x1bb +#define XK_zacute 0x1bc +#define XK_doubleacute 0x1bd +#define XK_zcaron 0x1be +#define XK_zabovedot 0x1bf +#define XK_Racute 0x1c0 +#define XK_Abreve 0x1c3 +#define XK_Lacute 0x1c5 +#define XK_Cacute 0x1c6 +#define XK_Ccaron 0x1c8 +#define XK_Eogonek 0x1ca +#define XK_Ecaron 0x1cc +#define XK_Dcaron 0x1cf +#define XK_Dstroke 0x1d0 +#define XK_Nacute 0x1d1 +#define XK_Ncaron 0x1d2 +#define XK_Odoubleacute 0x1d5 +#define XK_Rcaron 0x1d8 +#define XK_Uring 0x1d9 +#define XK_Udoubleacute 0x1db +#define XK_Tcedilla 0x1de +#define XK_racute 0x1e0 +#define XK_abreve 0x1e3 +#define XK_lacute 0x1e5 +#define XK_cacute 0x1e6 +#define XK_ccaron 0x1e8 +#define XK_eogonek 0x1ea +#define XK_ecaron 0x1ec +#define XK_dcaron 0x1ef +#define XK_dstroke 0x1f0 +#define XK_nacute 0x1f1 +#define XK_ncaron 0x1f2 +#define XK_odoubleacute 0x1f5 +#define XK_udoubleacute 0x1fb +#define XK_rcaron 0x1f8 +#define XK_uring 0x1f9 +#define XK_tcedilla 0x1fe +#define XK_abovedot 0x1ff +#endif /* XK_LATIN2 */ + +/* + * Latin 3 + * Byte 3 = 2 + */ + +#ifdef XK_LATIN3 +#define XK_Hstroke 0x2a1 +#define XK_Hcircumflex 0x2a6 +#define XK_Iabovedot 0x2a9 +#define XK_Gbreve 0x2ab +#define XK_Jcircumflex 0x2ac +#define XK_hstroke 0x2b1 +#define XK_hcircumflex 0x2b6 +#define XK_idotless 0x2b9 +#define XK_gbreve 0x2bb +#define XK_jcircumflex 0x2bc +#define XK_Cabovedot 0x2c5 +#define XK_Ccircumflex 0x2c6 +#define XK_Gabovedot 0x2d5 +#define XK_Gcircumflex 0x2d8 +#define XK_Ubreve 0x2dd +#define XK_Scircumflex 0x2de +#define XK_cabovedot 0x2e5 +#define XK_ccircumflex 0x2e6 +#define XK_gabovedot 0x2f5 +#define XK_gcircumflex 0x2f8 +#define XK_ubreve 0x2fd +#define XK_scircumflex 0x2fe +#endif /* XK_LATIN3 */ + + +/* + * Latin 4 + * Byte 3 = 3 + */ + +#ifdef XK_LATIN4 +#define XK_kra 0x3a2 +#define XK_kappa 0x3a2 /* deprecated */ +#define XK_Rcedilla 0x3a3 +#define XK_Itilde 0x3a5 +#define XK_Lcedilla 0x3a6 +#define XK_Emacron 0x3aa +#define XK_Gcedilla 0x3ab +#define XK_Tslash 0x3ac +#define XK_rcedilla 0x3b3 +#define XK_itilde 0x3b5 +#define XK_lcedilla 0x3b6 +#define XK_emacron 0x3ba +#define XK_gcedilla 0x3bb +#define XK_tslash 0x3bc +#define XK_ENG 0x3bd +#define XK_eng 0x3bf +#define XK_Amacron 0x3c0 +#define XK_Iogonek 0x3c7 +#define XK_Eabovedot 0x3cc +#define XK_Imacron 0x3cf +#define XK_Ncedilla 0x3d1 +#define XK_Omacron 0x3d2 +#define XK_Kcedilla 0x3d3 +#define XK_Uogonek 0x3d9 +#define XK_Utilde 0x3dd +#define XK_Umacron 0x3de +#define XK_amacron 0x3e0 +#define XK_iogonek 0x3e7 +#define XK_eabovedot 0x3ec +#define XK_imacron 0x3ef +#define XK_ncedilla 0x3f1 +#define XK_omacron 0x3f2 +#define XK_kcedilla 0x3f3 +#define XK_uogonek 0x3f9 +#define XK_utilde 0x3fd +#define XK_umacron 0x3fe +#endif /* XK_LATIN4 */ + +/* + * Katakana + * Byte 3 = 4 + */ + +#ifdef XK_KATAKANA +#define XK_overline 0x47e +#define XK_kana_fullstop 0x4a1 +#define XK_kana_openingbracket 0x4a2 +#define XK_kana_closingbracket 0x4a3 +#define XK_kana_comma 0x4a4 +#define XK_kana_conjunctive 0x4a5 +#define XK_kana_middledot 0x4a5 /* deprecated */ +#define XK_kana_WO 0x4a6 +#define XK_kana_a 0x4a7 +#define XK_kana_i 0x4a8 +#define XK_kana_u 0x4a9 +#define XK_kana_e 0x4aa +#define XK_kana_o 0x4ab +#define XK_kana_ya 0x4ac +#define XK_kana_yu 0x4ad +#define XK_kana_yo 0x4ae +#define XK_kana_tsu 0x4af +#define XK_kana_tu 0x4af /* deprecated */ +#define XK_prolongedsound 0x4b0 +#define XK_kana_A 0x4b1 +#define XK_kana_I 0x4b2 +#define XK_kana_U 0x4b3 +#define XK_kana_E 0x4b4 +#define XK_kana_O 0x4b5 +#define XK_kana_KA 0x4b6 +#define XK_kana_KI 0x4b7 +#define XK_kana_KU 0x4b8 +#define XK_kana_KE 0x4b9 +#define XK_kana_KO 0x4ba +#define XK_kana_SA 0x4bb +#define XK_kana_SHI 0x4bc +#define XK_kana_SU 0x4bd +#define XK_kana_SE 0x4be +#define XK_kana_SO 0x4bf +#define XK_kana_TA 0x4c0 +#define XK_kana_CHI 0x4c1 +#define XK_kana_TI 0x4c1 /* deprecated */ +#define XK_kana_TSU 0x4c2 +#define XK_kana_TU 0x4c2 /* deprecated */ +#define XK_kana_TE 0x4c3 +#define XK_kana_TO 0x4c4 +#define XK_kana_NA 0x4c5 +#define XK_kana_NI 0x4c6 +#define XK_kana_NU 0x4c7 +#define XK_kana_NE 0x4c8 +#define XK_kana_NO 0x4c9 +#define XK_kana_HA 0x4ca +#define XK_kana_HI 0x4cb +#define XK_kana_FU 0x4cc +#define XK_kana_HU 0x4cc /* deprecated */ +#define XK_kana_HE 0x4cd +#define XK_kana_HO 0x4ce +#define XK_kana_MA 0x4cf +#define XK_kana_MI 0x4d0 +#define XK_kana_MU 0x4d1 +#define XK_kana_ME 0x4d2 +#define XK_kana_MO 0x4d3 +#define XK_kana_YA 0x4d4 +#define XK_kana_YU 0x4d5 +#define XK_kana_YO 0x4d6 +#define XK_kana_RA 0x4d7 +#define XK_kana_RI 0x4d8 +#define XK_kana_RU 0x4d9 +#define XK_kana_RE 0x4da +#define XK_kana_RO 0x4db +#define XK_kana_WA 0x4dc +#define XK_kana_N 0x4dd +#define XK_voicedsound 0x4de +#define XK_semivoicedsound 0x4df +#define XK_kana_switch 0xFF7E /* Alias for mode_switch */ +#endif /* XK_KATAKANA */ + +/* + * Arabic + * Byte 3 = 5 + */ + +#ifdef XK_ARABIC +#define XK_Arabic_comma 0x5ac +#define XK_Arabic_semicolon 0x5bb +#define XK_Arabic_question_mark 0x5bf +#define XK_Arabic_hamza 0x5c1 +#define XK_Arabic_maddaonalef 0x5c2 +#define XK_Arabic_hamzaonalef 0x5c3 +#define XK_Arabic_hamzaonwaw 0x5c4 +#define XK_Arabic_hamzaunderalef 0x5c5 +#define XK_Arabic_hamzaonyeh 0x5c6 +#define XK_Arabic_alef 0x5c7 +#define XK_Arabic_beh 0x5c8 +#define XK_Arabic_tehmarbuta 0x5c9 +#define XK_Arabic_teh 0x5ca +#define XK_Arabic_theh 0x5cb +#define XK_Arabic_jeem 0x5cc +#define XK_Arabic_hah 0x5cd +#define XK_Arabic_khah 0x5ce +#define XK_Arabic_dal 0x5cf +#define XK_Arabic_thal 0x5d0 +#define XK_Arabic_ra 0x5d1 +#define XK_Arabic_zain 0x5d2 +#define XK_Arabic_seen 0x5d3 +#define XK_Arabic_sheen 0x5d4 +#define XK_Arabic_sad 0x5d5 +#define XK_Arabic_dad 0x5d6 +#define XK_Arabic_tah 0x5d7 +#define XK_Arabic_zah 0x5d8 +#define XK_Arabic_ain 0x5d9 +#define XK_Arabic_ghain 0x5da +#define XK_Arabic_tatweel 0x5e0 +#define XK_Arabic_feh 0x5e1 +#define XK_Arabic_qaf 0x5e2 +#define XK_Arabic_kaf 0x5e3 +#define XK_Arabic_lam 0x5e4 +#define XK_Arabic_meem 0x5e5 +#define XK_Arabic_noon 0x5e6 +#define XK_Arabic_ha 0x5e7 +#define XK_Arabic_heh 0x5e7 /* deprecated */ +#define XK_Arabic_waw 0x5e8 +#define XK_Arabic_alefmaksura 0x5e9 +#define XK_Arabic_yeh 0x5ea +#define XK_Arabic_fathatan 0x5eb +#define XK_Arabic_dammatan 0x5ec +#define XK_Arabic_kasratan 0x5ed +#define XK_Arabic_fatha 0x5ee +#define XK_Arabic_damma 0x5ef +#define XK_Arabic_kasra 0x5f0 +#define XK_Arabic_shadda 0x5f1 +#define XK_Arabic_sukun 0x5f2 +#define XK_Arabic_switch 0xFF7E /* Alias for mode_switch */ +#endif /* XK_ARABIC */ + +/* + * Cyrillic + * Byte 3 = 6 + */ +#ifdef XK_CYRILLIC +#define XK_Serbian_dje 0x6a1 +#define XK_Macedonia_gje 0x6a2 +#define XK_Cyrillic_io 0x6a3 +#define XK_Ukrainian_ie 0x6a4 +#define XK_Ukranian_je 0x6a4 /* deprecated */ +#define XK_Macedonia_dse 0x6a5 +#define XK_Ukrainian_i 0x6a6 +#define XK_Ukranian_i 0x6a6 /* deprecated */ +#define XK_Ukrainian_yi 0x6a7 +#define XK_Ukranian_yi 0x6a7 /* deprecated */ +#define XK_Cyrillic_je 0x6a8 +#define XK_Serbian_je 0x6a8 /* deprecated */ +#define XK_Cyrillic_lje 0x6a9 +#define XK_Serbian_lje 0x6a9 /* deprecated */ +#define XK_Cyrillic_nje 0x6aa +#define XK_Serbian_nje 0x6aa /* deprecated */ +#define XK_Serbian_tshe 0x6ab +#define XK_Macedonia_kje 0x6ac +#define XK_Byelorussian_shortu 0x6ae +#define XK_Cyrillic_dzhe 0x6af +#define XK_Serbian_dze 0x6af /* deprecated */ +#define XK_numerosign 0x6b0 +#define XK_Serbian_DJE 0x6b1 +#define XK_Macedonia_GJE 0x6b2 +#define XK_Cyrillic_IO 0x6b3 +#define XK_Ukrainian_IE 0x6b4 +#define XK_Ukranian_JE 0x6b4 /* deprecated */ +#define XK_Macedonia_DSE 0x6b5 +#define XK_Ukrainian_I 0x6b6 +#define XK_Ukranian_I 0x6b6 /* deprecated */ +#define XK_Ukrainian_YI 0x6b7 +#define XK_Ukranian_YI 0x6b7 /* deprecated */ +#define XK_Cyrillic_JE 0x6b8 +#define XK_Serbian_JE 0x6b8 /* deprecated */ +#define XK_Cyrillic_LJE 0x6b9 +#define XK_Serbian_LJE 0x6b9 /* deprecated */ +#define XK_Cyrillic_NJE 0x6ba +#define XK_Serbian_NJE 0x6ba /* deprecated */ +#define XK_Serbian_TSHE 0x6bb +#define XK_Macedonia_KJE 0x6bc +#define XK_Byelorussian_SHORTU 0x6be +#define XK_Cyrillic_DZHE 0x6bf +#define XK_Serbian_DZE 0x6bf /* deprecated */ +#define XK_Cyrillic_yu 0x6c0 +#define XK_Cyrillic_a 0x6c1 +#define XK_Cyrillic_be 0x6c2 +#define XK_Cyrillic_tse 0x6c3 +#define XK_Cyrillic_de 0x6c4 +#define XK_Cyrillic_ie 0x6c5 +#define XK_Cyrillic_ef 0x6c6 +#define XK_Cyrillic_ghe 0x6c7 +#define XK_Cyrillic_ha 0x6c8 +#define XK_Cyrillic_i 0x6c9 +#define XK_Cyrillic_shorti 0x6ca +#define XK_Cyrillic_ka 0x6cb +#define XK_Cyrillic_el 0x6cc +#define XK_Cyrillic_em 0x6cd +#define XK_Cyrillic_en 0x6ce +#define XK_Cyrillic_o 0x6cf +#define XK_Cyrillic_pe 0x6d0 +#define XK_Cyrillic_ya 0x6d1 +#define XK_Cyrillic_er 0x6d2 +#define XK_Cyrillic_es 0x6d3 +#define XK_Cyrillic_te 0x6d4 +#define XK_Cyrillic_u 0x6d5 +#define XK_Cyrillic_zhe 0x6d6 +#define XK_Cyrillic_ve 0x6d7 +#define XK_Cyrillic_softsign 0x6d8 +#define XK_Cyrillic_yeru 0x6d9 +#define XK_Cyrillic_ze 0x6da +#define XK_Cyrillic_sha 0x6db +#define XK_Cyrillic_e 0x6dc +#define XK_Cyrillic_shcha 0x6dd +#define XK_Cyrillic_che 0x6de +#define XK_Cyrillic_hardsign 0x6df +#define XK_Cyrillic_YU 0x6e0 +#define XK_Cyrillic_A 0x6e1 +#define XK_Cyrillic_BE 0x6e2 +#define XK_Cyrillic_TSE 0x6e3 +#define XK_Cyrillic_DE 0x6e4 +#define XK_Cyrillic_IE 0x6e5 +#define XK_Cyrillic_EF 0x6e6 +#define XK_Cyrillic_GHE 0x6e7 +#define XK_Cyrillic_HA 0x6e8 +#define XK_Cyrillic_I 0x6e9 +#define XK_Cyrillic_SHORTI 0x6ea +#define XK_Cyrillic_KA 0x6eb +#define XK_Cyrillic_EL 0x6ec +#define XK_Cyrillic_EM 0x6ed +#define XK_Cyrillic_EN 0x6ee +#define XK_Cyrillic_O 0x6ef +#define XK_Cyrillic_PE 0x6f0 +#define XK_Cyrillic_YA 0x6f1 +#define XK_Cyrillic_ER 0x6f2 +#define XK_Cyrillic_ES 0x6f3 +#define XK_Cyrillic_TE 0x6f4 +#define XK_Cyrillic_U 0x6f5 +#define XK_Cyrillic_ZHE 0x6f6 +#define XK_Cyrillic_VE 0x6f7 +#define XK_Cyrillic_SOFTSIGN 0x6f8 +#define XK_Cyrillic_YERU 0x6f9 +#define XK_Cyrillic_ZE 0x6fa +#define XK_Cyrillic_SHA 0x6fb +#define XK_Cyrillic_E 0x6fc +#define XK_Cyrillic_SHCHA 0x6fd +#define XK_Cyrillic_CHE 0x6fe +#define XK_Cyrillic_HARDSIGN 0x6ff +#endif /* XK_CYRILLIC */ + +/* + * Greek + * Byte 3 = 7 + */ + +#ifdef XK_GREEK +#define XK_Greek_ALPHAaccent 0x7a1 +#define XK_Greek_EPSILONaccent 0x7a2 +#define XK_Greek_ETAaccent 0x7a3 +#define XK_Greek_IOTAaccent 0x7a4 +#define XK_Greek_IOTAdiaeresis 0x7a5 +#define XK_Greek_OMICRONaccent 0x7a7 +#define XK_Greek_UPSILONaccent 0x7a8 +#define XK_Greek_UPSILONdieresis 0x7a9 +#define XK_Greek_OMEGAaccent 0x7ab +#define XK_Greek_accentdieresis 0x7ae +#define XK_Greek_horizbar 0x7af +#define XK_Greek_alphaaccent 0x7b1 +#define XK_Greek_epsilonaccent 0x7b2 +#define XK_Greek_etaaccent 0x7b3 +#define XK_Greek_iotaaccent 0x7b4 +#define XK_Greek_iotadieresis 0x7b5 +#define XK_Greek_iotaaccentdieresis 0x7b6 +#define XK_Greek_omicronaccent 0x7b7 +#define XK_Greek_upsilonaccent 0x7b8 +#define XK_Greek_upsilondieresis 0x7b9 +#define XK_Greek_upsilonaccentdieresis 0x7ba +#define XK_Greek_omegaaccent 0x7bb +#define XK_Greek_ALPHA 0x7c1 +#define XK_Greek_BETA 0x7c2 +#define XK_Greek_GAMMA 0x7c3 +#define XK_Greek_DELTA 0x7c4 +#define XK_Greek_EPSILON 0x7c5 +#define XK_Greek_ZETA 0x7c6 +#define XK_Greek_ETA 0x7c7 +#define XK_Greek_THETA 0x7c8 +#define XK_Greek_IOTA 0x7c9 +#define XK_Greek_KAPPA 0x7ca +#define XK_Greek_LAMDA 0x7cb +#define XK_Greek_LAMBDA 0x7cb +#define XK_Greek_MU 0x7cc +#define XK_Greek_NU 0x7cd +#define XK_Greek_XI 0x7ce +#define XK_Greek_OMICRON 0x7cf +#define XK_Greek_PI 0x7d0 +#define XK_Greek_RHO 0x7d1 +#define XK_Greek_SIGMA 0x7d2 +#define XK_Greek_TAU 0x7d4 +#define XK_Greek_UPSILON 0x7d5 +#define XK_Greek_PHI 0x7d6 +#define XK_Greek_CHI 0x7d7 +#define XK_Greek_PSI 0x7d8 +#define XK_Greek_OMEGA 0x7d9 +#define XK_Greek_alpha 0x7e1 +#define XK_Greek_beta 0x7e2 +#define XK_Greek_gamma 0x7e3 +#define XK_Greek_delta 0x7e4 +#define XK_Greek_epsilon 0x7e5 +#define XK_Greek_zeta 0x7e6 +#define XK_Greek_eta 0x7e7 +#define XK_Greek_theta 0x7e8 +#define XK_Greek_iota 0x7e9 +#define XK_Greek_kappa 0x7ea +#define XK_Greek_lamda 0x7eb +#define XK_Greek_lambda 0x7eb +#define XK_Greek_mu 0x7ec +#define XK_Greek_nu 0x7ed +#define XK_Greek_xi 0x7ee +#define XK_Greek_omicron 0x7ef +#define XK_Greek_pi 0x7f0 +#define XK_Greek_rho 0x7f1 +#define XK_Greek_sigma 0x7f2 +#define XK_Greek_finalsmallsigma 0x7f3 +#define XK_Greek_tau 0x7f4 +#define XK_Greek_upsilon 0x7f5 +#define XK_Greek_phi 0x7f6 +#define XK_Greek_chi 0x7f7 +#define XK_Greek_psi 0x7f8 +#define XK_Greek_omega 0x7f9 +#define XK_Greek_switch 0xFF7E /* Alias for mode_switch */ +#endif /* XK_GREEK */ + +/* + * Technical + * Byte 3 = 8 + */ + +#ifdef XK_TECHNICAL +#define XK_leftradical 0x8a1 +#define XK_topleftradical 0x8a2 +#define XK_horizconnector 0x8a3 +#define XK_topintegral 0x8a4 +#define XK_botintegral 0x8a5 +#define XK_vertconnector 0x8a6 +#define XK_topleftsqbracket 0x8a7 +#define XK_botleftsqbracket 0x8a8 +#define XK_toprightsqbracket 0x8a9 +#define XK_botrightsqbracket 0x8aa +#define XK_topleftparens 0x8ab +#define XK_botleftparens 0x8ac +#define XK_toprightparens 0x8ad +#define XK_botrightparens 0x8ae +#define XK_leftmiddlecurlybrace 0x8af +#define XK_rightmiddlecurlybrace 0x8b0 +#define XK_topleftsummation 0x8b1 +#define XK_botleftsummation 0x8b2 +#define XK_topvertsummationconnector 0x8b3 +#define XK_botvertsummationconnector 0x8b4 +#define XK_toprightsummation 0x8b5 +#define XK_botrightsummation 0x8b6 +#define XK_rightmiddlesummation 0x8b7 +#define XK_lessthanequal 0x8bc +#define XK_notequal 0x8bd +#define XK_greaterthanequal 0x8be +#define XK_integral 0x8bf +#define XK_therefore 0x8c0 +#define XK_variation 0x8c1 +#define XK_infinity 0x8c2 +#define XK_nabla 0x8c5 +#define XK_approximate 0x8c8 +#define XK_similarequal 0x8c9 +#define XK_ifonlyif 0x8cd +#define XK_implies 0x8ce +#define XK_identical 0x8cf +#define XK_radical 0x8d6 +#define XK_includedin 0x8da +#define XK_includes 0x8db +#define XK_intersection 0x8dc +#define XK_union 0x8dd +#define XK_logicaland 0x8de +#define XK_logicalor 0x8df +#define XK_partialderivative 0x8ef +#define XK_function 0x8f6 +#define XK_leftarrow 0x8fb +#define XK_uparrow 0x8fc +#define XK_rightarrow 0x8fd +#define XK_downarrow 0x8fe +#endif /* XK_TECHNICAL */ + +/* + * Special + * Byte 3 = 9 + */ + +#ifdef XK_SPECIAL +#define XK_blank 0x9df +#define XK_soliddiamond 0x9e0 +#define XK_checkerboard 0x9e1 +#define XK_ht 0x9e2 +#define XK_ff 0x9e3 +#define XK_cr 0x9e4 +#define XK_lf 0x9e5 +#define XK_nl 0x9e8 +#define XK_vt 0x9e9 +#define XK_lowrightcorner 0x9ea +#define XK_uprightcorner 0x9eb +#define XK_upleftcorner 0x9ec +#define XK_lowleftcorner 0x9ed +#define XK_crossinglines 0x9ee +#define XK_horizlinescan1 0x9ef +#define XK_horizlinescan3 0x9f0 +#define XK_horizlinescan5 0x9f1 +#define XK_horizlinescan7 0x9f2 +#define XK_horizlinescan9 0x9f3 +#define XK_leftt 0x9f4 +#define XK_rightt 0x9f5 +#define XK_bott 0x9f6 +#define XK_topt 0x9f7 +#define XK_vertbar 0x9f8 +#endif /* XK_SPECIAL */ + +/* + * Publishing + * Byte 3 = a + */ + +#ifdef XK_PUBLISHING +#define XK_emspace 0xaa1 +#define XK_enspace 0xaa2 +#define XK_em3space 0xaa3 +#define XK_em4space 0xaa4 +#define XK_digitspace 0xaa5 +#define XK_punctspace 0xaa6 +#define XK_thinspace 0xaa7 +#define XK_hairspace 0xaa8 +#define XK_emdash 0xaa9 +#define XK_endash 0xaaa +#define XK_signifblank 0xaac +#define XK_ellipsis 0xaae +#define XK_doubbaselinedot 0xaaf +#define XK_onethird 0xab0 +#define XK_twothirds 0xab1 +#define XK_onefifth 0xab2 +#define XK_twofifths 0xab3 +#define XK_threefifths 0xab4 +#define XK_fourfifths 0xab5 +#define XK_onesixth 0xab6 +#define XK_fivesixths 0xab7 +#define XK_careof 0xab8 +#define XK_figdash 0xabb +#define XK_leftanglebracket 0xabc +#define XK_decimalpoint 0xabd +#define XK_rightanglebracket 0xabe +#define XK_marker 0xabf +#define XK_oneeighth 0xac3 +#define XK_threeeighths 0xac4 +#define XK_fiveeighths 0xac5 +#define XK_seveneighths 0xac6 +#define XK_trademark 0xac9 +#define XK_signaturemark 0xaca +#define XK_trademarkincircle 0xacb +#define XK_leftopentriangle 0xacc +#define XK_rightopentriangle 0xacd +#define XK_emopencircle 0xace +#define XK_emopenrectangle 0xacf +#define XK_leftsinglequotemark 0xad0 +#define XK_rightsinglequotemark 0xad1 +#define XK_leftdoublequotemark 0xad2 +#define XK_rightdoublequotemark 0xad3 +#define XK_prescription 0xad4 +#define XK_minutes 0xad6 +#define XK_seconds 0xad7 +#define XK_latincross 0xad9 +#define XK_hexagram 0xada +#define XK_filledrectbullet 0xadb +#define XK_filledlefttribullet 0xadc +#define XK_filledrighttribullet 0xadd +#define XK_emfilledcircle 0xade +#define XK_emfilledrect 0xadf +#define XK_enopencircbullet 0xae0 +#define XK_enopensquarebullet 0xae1 +#define XK_openrectbullet 0xae2 +#define XK_opentribulletup 0xae3 +#define XK_opentribulletdown 0xae4 +#define XK_openstar 0xae5 +#define XK_enfilledcircbullet 0xae6 +#define XK_enfilledsqbullet 0xae7 +#define XK_filledtribulletup 0xae8 +#define XK_filledtribulletdown 0xae9 +#define XK_leftpointer 0xaea +#define XK_rightpointer 0xaeb +#define XK_club 0xaec +#define XK_diamond 0xaed +#define XK_heart 0xaee +#define XK_maltesecross 0xaf0 +#define XK_dagger 0xaf1 +#define XK_doubledagger 0xaf2 +#define XK_checkmark 0xaf3 +#define XK_ballotcross 0xaf4 +#define XK_musicalsharp 0xaf5 +#define XK_musicalflat 0xaf6 +#define XK_malesymbol 0xaf7 +#define XK_femalesymbol 0xaf8 +#define XK_telephone 0xaf9 +#define XK_telephonerecorder 0xafa +#define XK_phonographcopyright 0xafb +#define XK_caret 0xafc +#define XK_singlelowquotemark 0xafd +#define XK_doublelowquotemark 0xafe +#define XK_cursor 0xaff +#endif /* XK_PUBLISHING */ + +/* + * APL + * Byte 3 = b + */ + +#ifdef XK_APL +#define XK_leftcaret 0xba3 +#define XK_rightcaret 0xba6 +#define XK_downcaret 0xba8 +#define XK_upcaret 0xba9 +#define XK_overbar 0xbc0 +#define XK_downtack 0xbc2 +#define XK_upshoe 0xbc3 +#define XK_downstile 0xbc4 +#define XK_underbar 0xbc6 +#define XK_jot 0xbca +#define XK_quad 0xbcc +#define XK_uptack 0xbce +#define XK_circle 0xbcf +#define XK_upstile 0xbd3 +#define XK_downshoe 0xbd6 +#define XK_rightshoe 0xbd8 +#define XK_leftshoe 0xbda +#define XK_lefttack 0xbdc +#define XK_righttack 0xbfc +#endif /* XK_APL */ + +/* + * Hebrew + * Byte 3 = c + */ + +#ifdef XK_HEBREW +#define XK_hebrew_doublelowline 0xcdf +#define XK_hebrew_aleph 0xce0 +#define XK_hebrew_bet 0xce1 +#define XK_hebrew_beth 0xce1 /* deprecated */ +#define XK_hebrew_gimel 0xce2 +#define XK_hebrew_gimmel 0xce2 /* deprecated */ +#define XK_hebrew_dalet 0xce3 +#define XK_hebrew_daleth 0xce3 /* deprecated */ +#define XK_hebrew_he 0xce4 +#define XK_hebrew_waw 0xce5 +#define XK_hebrew_zain 0xce6 +#define XK_hebrew_zayin 0xce6 /* deprecated */ +#define XK_hebrew_chet 0xce7 +#define XK_hebrew_het 0xce7 /* deprecated */ +#define XK_hebrew_tet 0xce8 +#define XK_hebrew_teth 0xce8 /* deprecated */ +#define XK_hebrew_yod 0xce9 +#define XK_hebrew_finalkaph 0xcea +#define XK_hebrew_kaph 0xceb +#define XK_hebrew_lamed 0xcec +#define XK_hebrew_finalmem 0xced +#define XK_hebrew_mem 0xcee +#define XK_hebrew_finalnun 0xcef +#define XK_hebrew_nun 0xcf0 +#define XK_hebrew_samech 0xcf1 +#define XK_hebrew_samekh 0xcf1 /* deprecated */ +#define XK_hebrew_ayin 0xcf2 +#define XK_hebrew_finalpe 0xcf3 +#define XK_hebrew_pe 0xcf4 +#define XK_hebrew_finalzade 0xcf5 +#define XK_hebrew_finalzadi 0xcf5 /* deprecated */ +#define XK_hebrew_zade 0xcf6 +#define XK_hebrew_zadi 0xcf6 /* deprecated */ +#define XK_hebrew_qoph 0xcf7 +#define XK_hebrew_kuf 0xcf7 /* deprecated */ +#define XK_hebrew_resh 0xcf8 +#define XK_hebrew_shin 0xcf9 +#define XK_hebrew_taw 0xcfa +#define XK_hebrew_taf 0xcfa /* deprecated */ +#define XK_Hebrew_switch 0xFF7E /* Alias for mode_switch */ +#endif /* XK_HEBREW */ + diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/tkIntXlibDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/tkIntXlibDecls.h new file mode 100644 index 00000000..6ac7ccbd --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/X11/tkIntXlibDecls.h @@ -0,0 +1,1279 @@ +/* + * tkIntXlibDecls.h -- + * + * This file contains the declarations for all platform dependent + * unsupported functions that are exported by the Tk library. These + * interfaces are not guaranteed to remain the same between + * versions. Use at your own risk. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + */ + +#ifndef _TKINTXLIBDECLS +#define _TKINTXLIBDECLS + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tkInt.decls script. + */ + +#ifndef _TCL +# include +#endif + +#include "X11/Xutil.h" + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +typedef int (*XAfterFunction) ( /* WARNING, this type not in Xlib spec */ + Display* /* display */ +); + +/* !BEGIN!: Do not edit below this line. */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * Exported function declarations: + */ + +#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ +/* 0 */ +EXTERN int XSetDashes(Display *display, GC gc, int dash_offset, + _Xconst char *dash_list, int n); +/* 1 */ +EXTERN XModifierKeymap * XGetModifierMapping(Display *d); +/* 2 */ +EXTERN XImage * XCreateImage(Display *d, Visual *v, unsigned int ui1, + int i1, int i2, char *cp, unsigned int ui2, + unsigned int ui3, int i3, int i4); +/* 3 */ +EXTERN XImage * XGetImage(Display *d, Drawable dr, int i1, int i2, + unsigned int ui1, unsigned int ui2, + unsigned long ul, int i3); +/* 4 */ +EXTERN char * XGetAtomName(Display *d, Atom a); +/* 5 */ +EXTERN char * XKeysymToString(KeySym k); +/* 6 */ +EXTERN Colormap XCreateColormap(Display *d, Window w, Visual *v, + int i); +/* 7 */ +EXTERN Cursor XCreatePixmapCursor(Display *d, Pixmap p1, Pixmap p2, + XColor *x1, XColor *x2, unsigned int ui1, + unsigned int ui2); +/* 8 */ +EXTERN Cursor XCreateGlyphCursor(Display *d, Font f1, Font f2, + unsigned int ui1, unsigned int ui2, + XColor _Xconst *x1, XColor _Xconst *x2); +/* 9 */ +EXTERN GContext XGContextFromGC(GC g); +/* 10 */ +EXTERN XHostAddress * XListHosts(Display *d, int *i, Bool *b); +/* 11 */ +EXTERN KeySym XKeycodeToKeysym(Display *d, unsigned int k, int i); +/* 12 */ +EXTERN KeySym XStringToKeysym(_Xconst char *c); +/* 13 */ +EXTERN Window XRootWindow(Display *d, int i); +/* 14 */ +EXTERN XErrorHandler XSetErrorHandler(XErrorHandler x); +/* 15 */ +EXTERN Status XIconifyWindow(Display *d, Window w, int i); +/* 16 */ +EXTERN Status XWithdrawWindow(Display *d, Window w, int i); +/* 17 */ +EXTERN Status XGetWMColormapWindows(Display *d, Window w, + Window **wpp, int *ip); +/* 18 */ +EXTERN Status XAllocColor(Display *d, Colormap c, XColor *xp); +/* 19 */ +EXTERN int XBell(Display *d, int i); +/* 20 */ +EXTERN int XChangeProperty(Display *d, Window w, Atom a1, + Atom a2, int i1, int i2, + _Xconst unsigned char *c, int i3); +/* 21 */ +EXTERN int XChangeWindowAttributes(Display *d, Window w, + unsigned long ul, XSetWindowAttributes *x); +/* 22 */ +EXTERN int XClearWindow(Display *d, Window w); +/* 23 */ +EXTERN int XConfigureWindow(Display *d, Window w, + unsigned int i, XWindowChanges *x); +/* 24 */ +EXTERN int XCopyArea(Display *d, Drawable dr1, Drawable dr2, + GC g, int i1, int i2, unsigned int ui1, + unsigned int ui2, int i3, int i4); +/* 25 */ +EXTERN int XCopyPlane(Display *d, Drawable dr1, Drawable dr2, + GC g, int i1, int i2, unsigned int ui1, + unsigned int ui2, int i3, int i4, + unsigned long ul); +/* 26 */ +EXTERN Pixmap XCreateBitmapFromData(Display *display, Drawable d, + _Xconst char *data, unsigned int width, + unsigned int height); +/* 27 */ +EXTERN int XDefineCursor(Display *d, Window w, Cursor c); +/* 28 */ +EXTERN int XDeleteProperty(Display *d, Window w, Atom a); +/* 29 */ +EXTERN int XDestroyWindow(Display *d, Window w); +/* 30 */ +EXTERN int XDrawArc(Display *d, Drawable dr, GC g, int i1, + int i2, unsigned int ui1, unsigned int ui2, + int i3, int i4); +/* 31 */ +EXTERN int XDrawLines(Display *d, Drawable dr, GC g, XPoint *x, + int i1, int i2); +/* 32 */ +EXTERN int XDrawRectangle(Display *d, Drawable dr, GC g, int i1, + int i2, unsigned int ui1, unsigned int ui2); +/* 33 */ +EXTERN int XFillArc(Display *d, Drawable dr, GC g, int i1, + int i2, unsigned int ui1, unsigned int ui2, + int i3, int i4); +/* 34 */ +EXTERN int XFillPolygon(Display *d, Drawable dr, GC g, + XPoint *x, int i1, int i2, int i3); +/* 35 */ +EXTERN int XFillRectangles(Display *d, Drawable dr, GC g, + XRectangle *x, int i); +/* 36 */ +EXTERN int XForceScreenSaver(Display *d, int i); +/* 37 */ +EXTERN int XFreeColormap(Display *d, Colormap c); +/* 38 */ +EXTERN int XFreeColors(Display *d, Colormap c, + unsigned long *ulp, int i, unsigned long ul); +/* 39 */ +EXTERN int XFreeCursor(Display *d, Cursor c); +/* 40 */ +EXTERN int XFreeModifiermap(XModifierKeymap *x); +/* 41 */ +EXTERN Status XGetGeometry(Display *d, Drawable dr, Window *w, + int *i1, int *i2, unsigned int *ui1, + unsigned int *ui2, unsigned int *ui3, + unsigned int *ui4); +/* 42 */ +EXTERN int XGetInputFocus(Display *d, Window *w, int *i); +/* 43 */ +EXTERN int XGetWindowProperty(Display *d, Window w, Atom a1, + long l1, long l2, Bool b, Atom a2, Atom *ap, + int *ip, unsigned long *ulp1, + unsigned long *ulp2, unsigned char **cpp); +/* 44 */ +EXTERN Status XGetWindowAttributes(Display *d, Window w, + XWindowAttributes *x); +/* 45 */ +EXTERN int XGrabKeyboard(Display *d, Window w, Bool b, int i1, + int i2, Time t); +/* 46 */ +EXTERN int XGrabPointer(Display *d, Window w1, Bool b, + unsigned int ui, int i1, int i2, Window w2, + Cursor c, Time t); +/* 47 */ +EXTERN KeyCode XKeysymToKeycode(Display *d, KeySym k); +/* 48 */ +EXTERN Status XLookupColor(Display *d, Colormap c1, + _Xconst char *c2, XColor *x1, XColor *x2); +/* 49 */ +EXTERN int XMapWindow(Display *d, Window w); +/* 50 */ +EXTERN int XMoveResizeWindow(Display *d, Window w, int i1, + int i2, unsigned int ui1, unsigned int ui2); +/* 51 */ +EXTERN int XMoveWindow(Display *d, Window w, int i1, int i2); +/* 52 */ +EXTERN int XNextEvent(Display *d, XEvent *x); +/* 53 */ +EXTERN int XPutBackEvent(Display *d, XEvent *x); +/* 54 */ +EXTERN int XQueryColors(Display *d, Colormap c, XColor *x, + int i); +/* 55 */ +EXTERN Bool XQueryPointer(Display *d, Window w1, Window *w2, + Window *w3, int *i1, int *i2, int *i3, + int *i4, unsigned int *ui); +/* 56 */ +EXTERN Status XQueryTree(Display *d, Window w1, Window *w2, + Window *w3, Window **w4, unsigned int *ui); +/* 57 */ +EXTERN int XRaiseWindow(Display *d, Window w); +/* 58 */ +EXTERN int XRefreshKeyboardMapping(XMappingEvent *x); +/* 59 */ +EXTERN int XResizeWindow(Display *d, Window w, unsigned int ui1, + unsigned int ui2); +/* 60 */ +EXTERN int XSelectInput(Display *d, Window w, long l); +/* 61 */ +EXTERN Status XSendEvent(Display *d, Window w, Bool b, long l, + XEvent *x); +/* 62 */ +EXTERN int XSetCommand(Display *d, Window w, char **c, int i); +/* 63 */ +EXTERN int XSetIconName(Display *d, Window w, _Xconst char *c); +/* 64 */ +EXTERN int XSetInputFocus(Display *d, Window w, int i, Time t); +/* 65 */ +EXTERN int XSetSelectionOwner(Display *d, Atom a, Window w, + Time t); +/* 66 */ +EXTERN int XSetWindowBackground(Display *d, Window w, + unsigned long ul); +/* 67 */ +EXTERN int XSetWindowBackgroundPixmap(Display *d, Window w, + Pixmap p); +/* 68 */ +EXTERN int XSetWindowBorder(Display *d, Window w, + unsigned long ul); +/* 69 */ +EXTERN int XSetWindowBorderPixmap(Display *d, Window w, + Pixmap p); +/* 70 */ +EXTERN int XSetWindowBorderWidth(Display *d, Window w, + unsigned int ui); +/* 71 */ +EXTERN int XSetWindowColormap(Display *d, Window w, Colormap c); +/* 72 */ +EXTERN Bool XTranslateCoordinates(Display *d, Window w1, + Window w2, int i1, int i2, int *i3, int *i4, + Window *w3); +/* 73 */ +EXTERN int XUngrabKeyboard(Display *d, Time t); +/* 74 */ +EXTERN int XUngrabPointer(Display *d, Time t); +/* 75 */ +EXTERN int XUnmapWindow(Display *d, Window w); +/* 76 */ +EXTERN int XWindowEvent(Display *d, Window w, long l, XEvent *x); +/* 77 */ +EXTERN void XDestroyIC(XIC x); +/* 78 */ +EXTERN Bool XFilterEvent(XEvent *x, Window w); +/* 79 */ +EXTERN int XmbLookupString(XIC xi, XKeyPressedEvent *xk, + char *c, int i, KeySym *k, Status *s); +/* 80 */ +EXTERN int TkPutImage(unsigned long *colors, int ncolors, + Display *display, Drawable d, GC gc, + XImage *image, int src_x, int src_y, + int dest_x, int dest_y, unsigned int width, + unsigned int height); +/* Slot 81 is reserved */ +/* 82 */ +EXTERN Status XParseColor(Display *display, Colormap map, + _Xconst char *spec, XColor *colorPtr); +/* 83 */ +EXTERN GC XCreateGC(Display *display, Drawable d, + unsigned long valuemask, XGCValues *values); +/* 84 */ +EXTERN int XFreeGC(Display *display, GC gc); +/* 85 */ +EXTERN Atom XInternAtom(Display *display, + _Xconst char *atom_name, Bool only_if_exists); +/* 86 */ +EXTERN int XSetBackground(Display *display, GC gc, + unsigned long foreground); +/* 87 */ +EXTERN int XSetForeground(Display *display, GC gc, + unsigned long foreground); +/* 88 */ +EXTERN int XSetClipMask(Display *display, GC gc, Pixmap pixmap); +/* 89 */ +EXTERN int XSetClipOrigin(Display *display, GC gc, + int clip_x_origin, int clip_y_origin); +/* 90 */ +EXTERN int XSetTSOrigin(Display *display, GC gc, + int ts_x_origin, int ts_y_origin); +/* 91 */ +EXTERN int XChangeGC(Display *d, GC gc, unsigned long mask, + XGCValues *values); +/* 92 */ +EXTERN int XSetFont(Display *display, GC gc, Font font); +/* 93 */ +EXTERN int XSetArcMode(Display *display, GC gc, int arc_mode); +/* 94 */ +EXTERN int XSetStipple(Display *display, GC gc, Pixmap stipple); +/* 95 */ +EXTERN int XSetFillRule(Display *display, GC gc, int fill_rule); +/* 96 */ +EXTERN int XSetFillStyle(Display *display, GC gc, + int fill_style); +/* 97 */ +EXTERN int XSetFunction(Display *display, GC gc, int function); +/* 98 */ +EXTERN int XSetLineAttributes(Display *display, GC gc, + unsigned int line_width, int line_style, + int cap_style, int join_style); +/* 99 */ +EXTERN int _XInitImageFuncPtrs(XImage *image); +/* 100 */ +EXTERN XIC XCreateIC(XIM xim, ...); +/* 101 */ +EXTERN XVisualInfo * XGetVisualInfo(Display *display, long vinfo_mask, + XVisualInfo *vinfo_template, + int *nitems_return); +/* 102 */ +EXTERN void XSetWMClientMachine(Display *display, Window w, + XTextProperty *text_prop); +/* 103 */ +EXTERN Status XStringListToTextProperty(char **list, int count, + XTextProperty *text_prop_return); +/* 104 */ +EXTERN int XDrawLine(Display *d, Drawable dr, GC g, int x1, + int y1, int x2, int y2); +/* 105 */ +EXTERN int XWarpPointer(Display *d, Window s, Window dw, int sx, + int sy, unsigned int sw, unsigned int sh, + int dx, int dy); +/* 106 */ +EXTERN int XFillRectangle(Display *display, Drawable d, GC gc, + int x, int y, unsigned int width, + unsigned int height); +/* 107 */ +EXTERN int XFlush(Display *display); +/* 108 */ +EXTERN int XGrabServer(Display *display); +/* 109 */ +EXTERN int XUngrabServer(Display *display); +/* 110 */ +EXTERN int XFree(void *data); +/* 111 */ +EXTERN int XNoOp(Display *display); +/* 112 */ +EXTERN XAfterFunction XSynchronize(Display *display, Bool onoff); +/* 113 */ +EXTERN int XSync(Display *display, Bool discard); +/* 114 */ +EXTERN VisualID XVisualIDFromVisual(Visual *visual); +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ +/* 0 */ +EXTERN int XSetDashes(Display *display, GC gc, int dash_offset, + _Xconst char *dash_list, int n); +/* 1 */ +EXTERN XModifierKeymap * XGetModifierMapping(Display *d); +/* 2 */ +EXTERN XImage * XCreateImage(Display *d, Visual *v, unsigned int ui1, + int i1, int i2, char *cp, unsigned int ui2, + unsigned int ui3, int i3, int i4); +/* 3 */ +EXTERN XImage * XGetImage(Display *d, Drawable dr, int i1, int i2, + unsigned int ui1, unsigned int ui2, + unsigned long ul, int i3); +/* 4 */ +EXTERN char * XGetAtomName(Display *d, Atom a); +/* 5 */ +EXTERN char * XKeysymToString(KeySym k); +/* 6 */ +EXTERN Colormap XCreateColormap(Display *d, Window w, Visual *v, + int i); +/* 7 */ +EXTERN GContext XGContextFromGC(GC g); +/* 8 */ +EXTERN KeySym XKeycodeToKeysym(Display *d, KeyCode k, int i); +/* 9 */ +EXTERN KeySym XStringToKeysym(_Xconst char *c); +/* 10 */ +EXTERN Window XRootWindow(Display *d, int i); +/* 11 */ +EXTERN XErrorHandler XSetErrorHandler(XErrorHandler x); +/* 12 */ +EXTERN Status XAllocColor(Display *d, Colormap c, XColor *xp); +/* 13 */ +EXTERN int XBell(Display *d, int i); +/* 14 */ +EXTERN void XChangeProperty(Display *d, Window w, Atom a1, + Atom a2, int i1, int i2, + _Xconst unsigned char *c, int i3); +/* 15 */ +EXTERN void XChangeWindowAttributes(Display *d, Window w, + unsigned long ul, XSetWindowAttributes *x); +/* 16 */ +EXTERN void XConfigureWindow(Display *d, Window w, + unsigned int i, XWindowChanges *x); +/* 17 */ +EXTERN void XCopyArea(Display *d, Drawable dr1, Drawable dr2, + GC g, int i1, int i2, unsigned int ui1, + unsigned int ui2, int i3, int i4); +/* 18 */ +EXTERN void XCopyPlane(Display *d, Drawable dr1, Drawable dr2, + GC g, int i1, int i2, unsigned int ui1, + unsigned int ui2, int i3, int i4, + unsigned long ul); +/* 19 */ +EXTERN Pixmap XCreateBitmapFromData(Display *display, Drawable d, + _Xconst char *data, unsigned int width, + unsigned int height); +/* 20 */ +EXTERN int XDefineCursor(Display *d, Window w, Cursor c); +/* 21 */ +EXTERN void XDestroyWindow(Display *d, Window w); +/* 22 */ +EXTERN void XDrawArc(Display *d, Drawable dr, GC g, int i1, + int i2, unsigned int ui1, unsigned int ui2, + int i3, int i4); +/* 23 */ +EXTERN int XDrawLines(Display *d, Drawable dr, GC g, XPoint *x, + int i1, int i2); +/* 24 */ +EXTERN void XDrawRectangle(Display *d, Drawable dr, GC g, int i1, + int i2, unsigned int ui1, unsigned int ui2); +/* 25 */ +EXTERN void XFillArc(Display *d, Drawable dr, GC g, int i1, + int i2, unsigned int ui1, unsigned int ui2, + int i3, int i4); +/* 26 */ +EXTERN void XFillPolygon(Display *d, Drawable dr, GC g, + XPoint *x, int i1, int i2, int i3); +/* 27 */ +EXTERN int XFillRectangles(Display *d, Drawable dr, GC g, + XRectangle *x, int i); +/* 28 */ +EXTERN int XFreeColormap(Display *d, Colormap c); +/* 29 */ +EXTERN int XFreeColors(Display *d, Colormap c, + unsigned long *ulp, int i, unsigned long ul); +/* 30 */ +EXTERN int XFreeModifiermap(XModifierKeymap *x); +/* 31 */ +EXTERN Status XGetGeometry(Display *d, Drawable dr, Window *w, + int *i1, int *i2, unsigned int *ui1, + unsigned int *ui2, unsigned int *ui3, + unsigned int *ui4); +/* 32 */ +EXTERN int XGetWindowProperty(Display *d, Window w, Atom a1, + long l1, long l2, Bool b, Atom a2, Atom *ap, + int *ip, unsigned long *ulp1, + unsigned long *ulp2, unsigned char **cpp); +/* 33 */ +EXTERN int XGrabKeyboard(Display *d, Window w, Bool b, int i1, + int i2, Time t); +/* 34 */ +EXTERN int XGrabPointer(Display *d, Window w1, Bool b, + unsigned int ui, int i1, int i2, Window w2, + Cursor c, Time t); +/* 35 */ +EXTERN KeyCode XKeysymToKeycode(Display *d, KeySym k); +/* 36 */ +EXTERN void XMapWindow(Display *d, Window w); +/* 37 */ +EXTERN void XMoveResizeWindow(Display *d, Window w, int i1, + int i2, unsigned int ui1, unsigned int ui2); +/* 38 */ +EXTERN void XMoveWindow(Display *d, Window w, int i1, int i2); +/* 39 */ +EXTERN Bool XQueryPointer(Display *d, Window w1, Window *w2, + Window *w3, int *i1, int *i2, int *i3, + int *i4, unsigned int *ui); +/* 40 */ +EXTERN void XRaiseWindow(Display *d, Window w); +/* 41 */ +EXTERN void XRefreshKeyboardMapping(XMappingEvent *x); +/* 42 */ +EXTERN void XResizeWindow(Display *d, Window w, unsigned int ui1, + unsigned int ui2); +/* 43 */ +EXTERN void XSelectInput(Display *d, Window w, long l); +/* 44 */ +EXTERN Status XSendEvent(Display *d, Window w, Bool b, long l, + XEvent *x); +/* 45 */ +EXTERN void XSetIconName(Display *d, Window w, _Xconst char *c); +/* 46 */ +EXTERN void XSetInputFocus(Display *d, Window w, int i, Time t); +/* 47 */ +EXTERN int XSetSelectionOwner(Display *d, Atom a, Window w, + Time t); +/* 48 */ +EXTERN void XSetWindowBackground(Display *d, Window w, + unsigned long ul); +/* 49 */ +EXTERN void XSetWindowBackgroundPixmap(Display *d, Window w, + Pixmap p); +/* 50 */ +EXTERN void XSetWindowBorder(Display *d, Window w, + unsigned long ul); +/* 51 */ +EXTERN void XSetWindowBorderPixmap(Display *d, Window w, + Pixmap p); +/* 52 */ +EXTERN void XSetWindowBorderWidth(Display *d, Window w, + unsigned int ui); +/* 53 */ +EXTERN void XSetWindowColormap(Display *d, Window w, Colormap c); +/* 54 */ +EXTERN void XUngrabKeyboard(Display *d, Time t); +/* 55 */ +EXTERN int XUngrabPointer(Display *d, Time t); +/* 56 */ +EXTERN void XUnmapWindow(Display *d, Window w); +/* 57 */ +EXTERN int TkPutImage(unsigned long *colors, int ncolors, + Display *display, Drawable d, GC gc, + XImage *image, int src_x, int src_y, + int dest_x, int dest_y, unsigned int width, + unsigned int height); +/* 58 */ +EXTERN Status XParseColor(Display *display, Colormap map, + _Xconst char *spec, XColor *colorPtr); +/* 59 */ +EXTERN GC XCreateGC(Display *display, Drawable d, + unsigned long valuemask, XGCValues *values); +/* 60 */ +EXTERN int XFreeGC(Display *display, GC gc); +/* 61 */ +EXTERN Atom XInternAtom(Display *display, + _Xconst char *atom_name, Bool only_if_exists); +/* 62 */ +EXTERN int XSetBackground(Display *display, GC gc, + unsigned long foreground); +/* 63 */ +EXTERN int XSetForeground(Display *display, GC gc, + unsigned long foreground); +/* 64 */ +EXTERN int XSetClipMask(Display *display, GC gc, Pixmap pixmap); +/* 65 */ +EXTERN int XSetClipOrigin(Display *display, GC gc, + int clip_x_origin, int clip_y_origin); +/* 66 */ +EXTERN int XSetTSOrigin(Display *display, GC gc, + int ts_x_origin, int ts_y_origin); +/* 67 */ +EXTERN int XChangeGC(Display *d, GC gc, unsigned long mask, + XGCValues *values); +/* 68 */ +EXTERN int XSetFont(Display *display, GC gc, Font font); +/* 69 */ +EXTERN int XSetArcMode(Display *display, GC gc, int arc_mode); +/* 70 */ +EXTERN int XSetStipple(Display *display, GC gc, Pixmap stipple); +/* 71 */ +EXTERN int XSetFillRule(Display *display, GC gc, int fill_rule); +/* 72 */ +EXTERN int XSetFillStyle(Display *display, GC gc, + int fill_style); +/* 73 */ +EXTERN int XSetFunction(Display *display, GC gc, int function); +/* 74 */ +EXTERN int XSetLineAttributes(Display *display, GC gc, + unsigned int line_width, int line_style, + int cap_style, int join_style); +/* 75 */ +EXTERN int _XInitImageFuncPtrs(XImage *image); +/* 76 */ +EXTERN XIC XCreateIC(void); +/* 77 */ +EXTERN XVisualInfo * XGetVisualInfo(Display *display, long vinfo_mask, + XVisualInfo *vinfo_template, + int *nitems_return); +/* 78 */ +EXTERN void XSetWMClientMachine(Display *display, Window w, + XTextProperty *text_prop); +/* 79 */ +EXTERN Status XStringListToTextProperty(char **list, int count, + XTextProperty *text_prop_return); +/* 80 */ +EXTERN void XDrawSegments(Display *display, Drawable d, GC gc, + XSegment *segments, int nsegments); +/* 81 */ +EXTERN void XForceScreenSaver(Display *display, int mode); +/* 82 */ +EXTERN int XDrawLine(Display *d, Drawable dr, GC g, int x1, + int y1, int x2, int y2); +/* 83 */ +EXTERN int XFillRectangle(Display *display, Drawable d, GC gc, + int x, int y, unsigned int width, + unsigned int height); +/* 84 */ +EXTERN void XClearWindow(Display *d, Window w); +/* 85 */ +EXTERN void XDrawPoint(Display *display, Drawable d, GC gc, + int x, int y); +/* 86 */ +EXTERN void XDrawPoints(Display *display, Drawable d, GC gc, + XPoint *points, int npoints, int mode); +/* 87 */ +EXTERN int XWarpPointer(Display *display, Window src_w, + Window dest_w, int src_x, int src_y, + unsigned int src_width, + unsigned int src_height, int dest_x, + int dest_y); +/* 88 */ +EXTERN void XQueryColor(Display *display, Colormap colormap, + XColor *def_in_out); +/* 89 */ +EXTERN void XQueryColors(Display *display, Colormap colormap, + XColor *defs_in_out, int ncolors); +/* 90 */ +EXTERN Status XQueryTree(Display *d, Window w1, Window *w2, + Window *w3, Window **w4, unsigned int *ui); +/* 91 */ +EXTERN int XSync(Display *display, Bool flag); +#endif /* AQUA */ + +typedef struct TkIntXlibStubs { + int magic; + void *hooks; + +#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ + int (*xSetDashes) (Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n); /* 0 */ + XModifierKeymap * (*xGetModifierMapping) (Display *d); /* 1 */ + XImage * (*xCreateImage) (Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ + XImage * (*xGetImage) (Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ + char * (*xGetAtomName) (Display *d, Atom a); /* 4 */ + char * (*xKeysymToString) (KeySym k); /* 5 */ + Colormap (*xCreateColormap) (Display *d, Window w, Visual *v, int i); /* 6 */ + Cursor (*xCreatePixmapCursor) (Display *d, Pixmap p1, Pixmap p2, XColor *x1, XColor *x2, unsigned int ui1, unsigned int ui2); /* 7 */ + Cursor (*xCreateGlyphCursor) (Display *d, Font f1, Font f2, unsigned int ui1, unsigned int ui2, XColor _Xconst *x1, XColor _Xconst *x2); /* 8 */ + GContext (*xGContextFromGC) (GC g); /* 9 */ + XHostAddress * (*xListHosts) (Display *d, int *i, Bool *b); /* 10 */ + KeySym (*xKeycodeToKeysym) (Display *d, unsigned int k, int i); /* 11 */ + KeySym (*xStringToKeysym) (_Xconst char *c); /* 12 */ + Window (*xRootWindow) (Display *d, int i); /* 13 */ + XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 14 */ + Status (*xIconifyWindow) (Display *d, Window w, int i); /* 15 */ + Status (*xWithdrawWindow) (Display *d, Window w, int i); /* 16 */ + Status (*xGetWMColormapWindows) (Display *d, Window w, Window **wpp, int *ip); /* 17 */ + Status (*xAllocColor) (Display *d, Colormap c, XColor *xp); /* 18 */ + int (*xBell) (Display *d, int i); /* 19 */ + int (*xChangeProperty) (Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3); /* 20 */ + int (*xChangeWindowAttributes) (Display *d, Window w, unsigned long ul, XSetWindowAttributes *x); /* 21 */ + int (*xClearWindow) (Display *d, Window w); /* 22 */ + int (*xConfigureWindow) (Display *d, Window w, unsigned int i, XWindowChanges *x); /* 23 */ + int (*xCopyArea) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 24 */ + int (*xCopyPlane) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 25 */ + Pixmap (*xCreateBitmapFromData) (Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height); /* 26 */ + int (*xDefineCursor) (Display *d, Window w, Cursor c); /* 27 */ + int (*xDeleteProperty) (Display *d, Window w, Atom a); /* 28 */ + int (*xDestroyWindow) (Display *d, Window w); /* 29 */ + int (*xDrawArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 30 */ + int (*xDrawLines) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2); /* 31 */ + int (*xDrawRectangle) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 32 */ + int (*xFillArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 33 */ + int (*xFillPolygon) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3); /* 34 */ + int (*xFillRectangles) (Display *d, Drawable dr, GC g, XRectangle *x, int i); /* 35 */ + int (*xForceScreenSaver) (Display *d, int i); /* 36 */ + int (*xFreeColormap) (Display *d, Colormap c); /* 37 */ + int (*xFreeColors) (Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul); /* 38 */ + int (*xFreeCursor) (Display *d, Cursor c); /* 39 */ + int (*xFreeModifiermap) (XModifierKeymap *x); /* 40 */ + Status (*xGetGeometry) (Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4); /* 41 */ + int (*xGetInputFocus) (Display *d, Window *w, int *i); /* 42 */ + int (*xGetWindowProperty) (Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp); /* 43 */ + Status (*xGetWindowAttributes) (Display *d, Window w, XWindowAttributes *x); /* 44 */ + int (*xGrabKeyboard) (Display *d, Window w, Bool b, int i1, int i2, Time t); /* 45 */ + int (*xGrabPointer) (Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 46 */ + KeyCode (*xKeysymToKeycode) (Display *d, KeySym k); /* 47 */ + Status (*xLookupColor) (Display *d, Colormap c1, _Xconst char *c2, XColor *x1, XColor *x2); /* 48 */ + int (*xMapWindow) (Display *d, Window w); /* 49 */ + int (*xMoveResizeWindow) (Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 50 */ + int (*xMoveWindow) (Display *d, Window w, int i1, int i2); /* 51 */ + int (*xNextEvent) (Display *d, XEvent *x); /* 52 */ + int (*xPutBackEvent) (Display *d, XEvent *x); /* 53 */ + int (*xQueryColors) (Display *d, Colormap c, XColor *x, int i); /* 54 */ + Bool (*xQueryPointer) (Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui); /* 55 */ + Status (*xQueryTree) (Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui); /* 56 */ + int (*xRaiseWindow) (Display *d, Window w); /* 57 */ + int (*xRefreshKeyboardMapping) (XMappingEvent *x); /* 58 */ + int (*xResizeWindow) (Display *d, Window w, unsigned int ui1, unsigned int ui2); /* 59 */ + int (*xSelectInput) (Display *d, Window w, long l); /* 60 */ + Status (*xSendEvent) (Display *d, Window w, Bool b, long l, XEvent *x); /* 61 */ + int (*xSetCommand) (Display *d, Window w, char **c, int i); /* 62 */ + int (*xSetIconName) (Display *d, Window w, _Xconst char *c); /* 63 */ + int (*xSetInputFocus) (Display *d, Window w, int i, Time t); /* 64 */ + int (*xSetSelectionOwner) (Display *d, Atom a, Window w, Time t); /* 65 */ + int (*xSetWindowBackground) (Display *d, Window w, unsigned long ul); /* 66 */ + int (*xSetWindowBackgroundPixmap) (Display *d, Window w, Pixmap p); /* 67 */ + int (*xSetWindowBorder) (Display *d, Window w, unsigned long ul); /* 68 */ + int (*xSetWindowBorderPixmap) (Display *d, Window w, Pixmap p); /* 69 */ + int (*xSetWindowBorderWidth) (Display *d, Window w, unsigned int ui); /* 70 */ + int (*xSetWindowColormap) (Display *d, Window w, Colormap c); /* 71 */ + Bool (*xTranslateCoordinates) (Display *d, Window w1, Window w2, int i1, int i2, int *i3, int *i4, Window *w3); /* 72 */ + int (*xUngrabKeyboard) (Display *d, Time t); /* 73 */ + int (*xUngrabPointer) (Display *d, Time t); /* 74 */ + int (*xUnmapWindow) (Display *d, Window w); /* 75 */ + int (*xWindowEvent) (Display *d, Window w, long l, XEvent *x); /* 76 */ + void (*xDestroyIC) (XIC x); /* 77 */ + Bool (*xFilterEvent) (XEvent *x, Window w); /* 78 */ + int (*xmbLookupString) (XIC xi, XKeyPressedEvent *xk, char *c, int i, KeySym *k, Status *s); /* 79 */ + int (*tkPutImage) (unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 80 */ + void (*reserved81)(void); + Status (*xParseColor) (Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr); /* 82 */ + GC (*xCreateGC) (Display *display, Drawable d, unsigned long valuemask, XGCValues *values); /* 83 */ + int (*xFreeGC) (Display *display, GC gc); /* 84 */ + Atom (*xInternAtom) (Display *display, _Xconst char *atom_name, Bool only_if_exists); /* 85 */ + int (*xSetBackground) (Display *display, GC gc, unsigned long foreground); /* 86 */ + int (*xSetForeground) (Display *display, GC gc, unsigned long foreground); /* 87 */ + int (*xSetClipMask) (Display *display, GC gc, Pixmap pixmap); /* 88 */ + int (*xSetClipOrigin) (Display *display, GC gc, int clip_x_origin, int clip_y_origin); /* 89 */ + int (*xSetTSOrigin) (Display *display, GC gc, int ts_x_origin, int ts_y_origin); /* 90 */ + int (*xChangeGC) (Display *d, GC gc, unsigned long mask, XGCValues *values); /* 91 */ + int (*xSetFont) (Display *display, GC gc, Font font); /* 92 */ + int (*xSetArcMode) (Display *display, GC gc, int arc_mode); /* 93 */ + int (*xSetStipple) (Display *display, GC gc, Pixmap stipple); /* 94 */ + int (*xSetFillRule) (Display *display, GC gc, int fill_rule); /* 95 */ + int (*xSetFillStyle) (Display *display, GC gc, int fill_style); /* 96 */ + int (*xSetFunction) (Display *display, GC gc, int function); /* 97 */ + int (*xSetLineAttributes) (Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 98 */ + int (*_XInitImageFuncPtrs) (XImage *image); /* 99 */ + XIC (*xCreateIC) (XIM xim, ...); /* 100 */ + XVisualInfo * (*xGetVisualInfo) (Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return); /* 101 */ + void (*xSetWMClientMachine) (Display *display, Window w, XTextProperty *text_prop); /* 102 */ + Status (*xStringListToTextProperty) (char **list, int count, XTextProperty *text_prop_return); /* 103 */ + int (*xDrawLine) (Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 104 */ + int (*xWarpPointer) (Display *d, Window s, Window dw, int sx, int sy, unsigned int sw, unsigned int sh, int dx, int dy); /* 105 */ + int (*xFillRectangle) (Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 106 */ + int (*xFlush) (Display *display); /* 107 */ + int (*xGrabServer) (Display *display); /* 108 */ + int (*xUngrabServer) (Display *display); /* 109 */ + int (*xFree) (void *data); /* 110 */ + int (*xNoOp) (Display *display); /* 111 */ + XAfterFunction (*xSynchronize) (Display *display, Bool onoff); /* 112 */ + int (*xSync) (Display *display, Bool discard); /* 113 */ + VisualID (*xVisualIDFromVisual) (Visual *visual); /* 114 */ +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ + int (*xSetDashes) (Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n); /* 0 */ + XModifierKeymap * (*xGetModifierMapping) (Display *d); /* 1 */ + XImage * (*xCreateImage) (Display *d, Visual *v, unsigned int ui1, int i1, int i2, char *cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ + XImage * (*xGetImage) (Display *d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ + char * (*xGetAtomName) (Display *d, Atom a); /* 4 */ + char * (*xKeysymToString) (KeySym k); /* 5 */ + Colormap (*xCreateColormap) (Display *d, Window w, Visual *v, int i); /* 6 */ + GContext (*xGContextFromGC) (GC g); /* 7 */ + KeySym (*xKeycodeToKeysym) (Display *d, KeyCode k, int i); /* 8 */ + KeySym (*xStringToKeysym) (_Xconst char *c); /* 9 */ + Window (*xRootWindow) (Display *d, int i); /* 10 */ + XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 11 */ + Status (*xAllocColor) (Display *d, Colormap c, XColor *xp); /* 12 */ + int (*xBell) (Display *d, int i); /* 13 */ + void (*xChangeProperty) (Display *d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char *c, int i3); /* 14 */ + void (*xChangeWindowAttributes) (Display *d, Window w, unsigned long ul, XSetWindowAttributes *x); /* 15 */ + void (*xConfigureWindow) (Display *d, Window w, unsigned int i, XWindowChanges *x); /* 16 */ + void (*xCopyArea) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 17 */ + void (*xCopyPlane) (Display *d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 18 */ + Pixmap (*xCreateBitmapFromData) (Display *display, Drawable d, _Xconst char *data, unsigned int width, unsigned int height); /* 19 */ + int (*xDefineCursor) (Display *d, Window w, Cursor c); /* 20 */ + void (*xDestroyWindow) (Display *d, Window w); /* 21 */ + void (*xDrawArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 22 */ + int (*xDrawLines) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2); /* 23 */ + void (*xDrawRectangle) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 24 */ + void (*xFillArc) (Display *d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 25 */ + void (*xFillPolygon) (Display *d, Drawable dr, GC g, XPoint *x, int i1, int i2, int i3); /* 26 */ + int (*xFillRectangles) (Display *d, Drawable dr, GC g, XRectangle *x, int i); /* 27 */ + int (*xFreeColormap) (Display *d, Colormap c); /* 28 */ + int (*xFreeColors) (Display *d, Colormap c, unsigned long *ulp, int i, unsigned long ul); /* 29 */ + int (*xFreeModifiermap) (XModifierKeymap *x); /* 30 */ + Status (*xGetGeometry) (Display *d, Drawable dr, Window *w, int *i1, int *i2, unsigned int *ui1, unsigned int *ui2, unsigned int *ui3, unsigned int *ui4); /* 31 */ + int (*xGetWindowProperty) (Display *d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom *ap, int *ip, unsigned long *ulp1, unsigned long *ulp2, unsigned char **cpp); /* 32 */ + int (*xGrabKeyboard) (Display *d, Window w, Bool b, int i1, int i2, Time t); /* 33 */ + int (*xGrabPointer) (Display *d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 34 */ + KeyCode (*xKeysymToKeycode) (Display *d, KeySym k); /* 35 */ + void (*xMapWindow) (Display *d, Window w); /* 36 */ + void (*xMoveResizeWindow) (Display *d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 37 */ + void (*xMoveWindow) (Display *d, Window w, int i1, int i2); /* 38 */ + Bool (*xQueryPointer) (Display *d, Window w1, Window *w2, Window *w3, int *i1, int *i2, int *i3, int *i4, unsigned int *ui); /* 39 */ + void (*xRaiseWindow) (Display *d, Window w); /* 40 */ + void (*xRefreshKeyboardMapping) (XMappingEvent *x); /* 41 */ + void (*xResizeWindow) (Display *d, Window w, unsigned int ui1, unsigned int ui2); /* 42 */ + void (*xSelectInput) (Display *d, Window w, long l); /* 43 */ + Status (*xSendEvent) (Display *d, Window w, Bool b, long l, XEvent *x); /* 44 */ + void (*xSetIconName) (Display *d, Window w, _Xconst char *c); /* 45 */ + void (*xSetInputFocus) (Display *d, Window w, int i, Time t); /* 46 */ + int (*xSetSelectionOwner) (Display *d, Atom a, Window w, Time t); /* 47 */ + void (*xSetWindowBackground) (Display *d, Window w, unsigned long ul); /* 48 */ + void (*xSetWindowBackgroundPixmap) (Display *d, Window w, Pixmap p); /* 49 */ + void (*xSetWindowBorder) (Display *d, Window w, unsigned long ul); /* 50 */ + void (*xSetWindowBorderPixmap) (Display *d, Window w, Pixmap p); /* 51 */ + void (*xSetWindowBorderWidth) (Display *d, Window w, unsigned int ui); /* 52 */ + void (*xSetWindowColormap) (Display *d, Window w, Colormap c); /* 53 */ + void (*xUngrabKeyboard) (Display *d, Time t); /* 54 */ + int (*xUngrabPointer) (Display *d, Time t); /* 55 */ + void (*xUnmapWindow) (Display *d, Window w); /* 56 */ + int (*tkPutImage) (unsigned long *colors, int ncolors, Display *display, Drawable d, GC gc, XImage *image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 57 */ + Status (*xParseColor) (Display *display, Colormap map, _Xconst char *spec, XColor *colorPtr); /* 58 */ + GC (*xCreateGC) (Display *display, Drawable d, unsigned long valuemask, XGCValues *values); /* 59 */ + int (*xFreeGC) (Display *display, GC gc); /* 60 */ + Atom (*xInternAtom) (Display *display, _Xconst char *atom_name, Bool only_if_exists); /* 61 */ + int (*xSetBackground) (Display *display, GC gc, unsigned long foreground); /* 62 */ + int (*xSetForeground) (Display *display, GC gc, unsigned long foreground); /* 63 */ + int (*xSetClipMask) (Display *display, GC gc, Pixmap pixmap); /* 64 */ + int (*xSetClipOrigin) (Display *display, GC gc, int clip_x_origin, int clip_y_origin); /* 65 */ + int (*xSetTSOrigin) (Display *display, GC gc, int ts_x_origin, int ts_y_origin); /* 66 */ + int (*xChangeGC) (Display *d, GC gc, unsigned long mask, XGCValues *values); /* 67 */ + int (*xSetFont) (Display *display, GC gc, Font font); /* 68 */ + int (*xSetArcMode) (Display *display, GC gc, int arc_mode); /* 69 */ + int (*xSetStipple) (Display *display, GC gc, Pixmap stipple); /* 70 */ + int (*xSetFillRule) (Display *display, GC gc, int fill_rule); /* 71 */ + int (*xSetFillStyle) (Display *display, GC gc, int fill_style); /* 72 */ + int (*xSetFunction) (Display *display, GC gc, int function); /* 73 */ + int (*xSetLineAttributes) (Display *display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 74 */ + int (*_XInitImageFuncPtrs) (XImage *image); /* 75 */ + XIC (*xCreateIC) (void); /* 76 */ + XVisualInfo * (*xGetVisualInfo) (Display *display, long vinfo_mask, XVisualInfo *vinfo_template, int *nitems_return); /* 77 */ + void (*xSetWMClientMachine) (Display *display, Window w, XTextProperty *text_prop); /* 78 */ + Status (*xStringListToTextProperty) (char **list, int count, XTextProperty *text_prop_return); /* 79 */ + void (*xDrawSegments) (Display *display, Drawable d, GC gc, XSegment *segments, int nsegments); /* 80 */ + void (*xForceScreenSaver) (Display *display, int mode); /* 81 */ + int (*xDrawLine) (Display *d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 82 */ + int (*xFillRectangle) (Display *display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 83 */ + void (*xClearWindow) (Display *d, Window w); /* 84 */ + void (*xDrawPoint) (Display *display, Drawable d, GC gc, int x, int y); /* 85 */ + void (*xDrawPoints) (Display *display, Drawable d, GC gc, XPoint *points, int npoints, int mode); /* 86 */ + int (*xWarpPointer) (Display *display, Window src_w, Window dest_w, int src_x, int src_y, unsigned int src_width, unsigned int src_height, int dest_x, int dest_y); /* 87 */ + void (*xQueryColor) (Display *display, Colormap colormap, XColor *def_in_out); /* 88 */ + void (*xQueryColors) (Display *display, Colormap colormap, XColor *defs_in_out, int ncolors); /* 89 */ + Status (*xQueryTree) (Display *d, Window w1, Window *w2, Window *w3, Window **w4, unsigned int *ui); /* 90 */ + int (*xSync) (Display *display, Bool flag); /* 91 */ +#endif /* AQUA */ +} TkIntXlibStubs; + +extern const TkIntXlibStubs *tkIntXlibStubsPtr; + +#ifdef __cplusplus +} +#endif + +#if defined(USE_TK_STUBS) + +/* + * Inline function declarations: + */ + +#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ +#define XSetDashes \ + (tkIntXlibStubsPtr->xSetDashes) /* 0 */ +#define XGetModifierMapping \ + (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ +#define XCreateImage \ + (tkIntXlibStubsPtr->xCreateImage) /* 2 */ +#define XGetImage \ + (tkIntXlibStubsPtr->xGetImage) /* 3 */ +#define XGetAtomName \ + (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ +#define XKeysymToString \ + (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ +#define XCreateColormap \ + (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ +#define XCreatePixmapCursor \ + (tkIntXlibStubsPtr->xCreatePixmapCursor) /* 7 */ +#define XCreateGlyphCursor \ + (tkIntXlibStubsPtr->xCreateGlyphCursor) /* 8 */ +#define XGContextFromGC \ + (tkIntXlibStubsPtr->xGContextFromGC) /* 9 */ +#define XListHosts \ + (tkIntXlibStubsPtr->xListHosts) /* 10 */ +#define XKeycodeToKeysym \ + (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 11 */ +#define XStringToKeysym \ + (tkIntXlibStubsPtr->xStringToKeysym) /* 12 */ +#define XRootWindow \ + (tkIntXlibStubsPtr->xRootWindow) /* 13 */ +#define XSetErrorHandler \ + (tkIntXlibStubsPtr->xSetErrorHandler) /* 14 */ +#define XIconifyWindow \ + (tkIntXlibStubsPtr->xIconifyWindow) /* 15 */ +#define XWithdrawWindow \ + (tkIntXlibStubsPtr->xWithdrawWindow) /* 16 */ +#define XGetWMColormapWindows \ + (tkIntXlibStubsPtr->xGetWMColormapWindows) /* 17 */ +#define XAllocColor \ + (tkIntXlibStubsPtr->xAllocColor) /* 18 */ +#define XBell \ + (tkIntXlibStubsPtr->xBell) /* 19 */ +#define XChangeProperty \ + (tkIntXlibStubsPtr->xChangeProperty) /* 20 */ +#define XChangeWindowAttributes \ + (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 21 */ +#define XClearWindow \ + (tkIntXlibStubsPtr->xClearWindow) /* 22 */ +#define XConfigureWindow \ + (tkIntXlibStubsPtr->xConfigureWindow) /* 23 */ +#define XCopyArea \ + (tkIntXlibStubsPtr->xCopyArea) /* 24 */ +#define XCopyPlane \ + (tkIntXlibStubsPtr->xCopyPlane) /* 25 */ +#define XCreateBitmapFromData \ + (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 26 */ +#define XDefineCursor \ + (tkIntXlibStubsPtr->xDefineCursor) /* 27 */ +#define XDeleteProperty \ + (tkIntXlibStubsPtr->xDeleteProperty) /* 28 */ +#define XDestroyWindow \ + (tkIntXlibStubsPtr->xDestroyWindow) /* 29 */ +#define XDrawArc \ + (tkIntXlibStubsPtr->xDrawArc) /* 30 */ +#define XDrawLines \ + (tkIntXlibStubsPtr->xDrawLines) /* 31 */ +#define XDrawRectangle \ + (tkIntXlibStubsPtr->xDrawRectangle) /* 32 */ +#define XFillArc \ + (tkIntXlibStubsPtr->xFillArc) /* 33 */ +#define XFillPolygon \ + (tkIntXlibStubsPtr->xFillPolygon) /* 34 */ +#define XFillRectangles \ + (tkIntXlibStubsPtr->xFillRectangles) /* 35 */ +#define XForceScreenSaver \ + (tkIntXlibStubsPtr->xForceScreenSaver) /* 36 */ +#define XFreeColormap \ + (tkIntXlibStubsPtr->xFreeColormap) /* 37 */ +#define XFreeColors \ + (tkIntXlibStubsPtr->xFreeColors) /* 38 */ +#define XFreeCursor \ + (tkIntXlibStubsPtr->xFreeCursor) /* 39 */ +#define XFreeModifiermap \ + (tkIntXlibStubsPtr->xFreeModifiermap) /* 40 */ +#define XGetGeometry \ + (tkIntXlibStubsPtr->xGetGeometry) /* 41 */ +#define XGetInputFocus \ + (tkIntXlibStubsPtr->xGetInputFocus) /* 42 */ +#define XGetWindowProperty \ + (tkIntXlibStubsPtr->xGetWindowProperty) /* 43 */ +#define XGetWindowAttributes \ + (tkIntXlibStubsPtr->xGetWindowAttributes) /* 44 */ +#define XGrabKeyboard \ + (tkIntXlibStubsPtr->xGrabKeyboard) /* 45 */ +#define XGrabPointer \ + (tkIntXlibStubsPtr->xGrabPointer) /* 46 */ +#define XKeysymToKeycode \ + (tkIntXlibStubsPtr->xKeysymToKeycode) /* 47 */ +#define XLookupColor \ + (tkIntXlibStubsPtr->xLookupColor) /* 48 */ +#define XMapWindow \ + (tkIntXlibStubsPtr->xMapWindow) /* 49 */ +#define XMoveResizeWindow \ + (tkIntXlibStubsPtr->xMoveResizeWindow) /* 50 */ +#define XMoveWindow \ + (tkIntXlibStubsPtr->xMoveWindow) /* 51 */ +#define XNextEvent \ + (tkIntXlibStubsPtr->xNextEvent) /* 52 */ +#define XPutBackEvent \ + (tkIntXlibStubsPtr->xPutBackEvent) /* 53 */ +#define XQueryColors \ + (tkIntXlibStubsPtr->xQueryColors) /* 54 */ +#define XQueryPointer \ + (tkIntXlibStubsPtr->xQueryPointer) /* 55 */ +#define XQueryTree \ + (tkIntXlibStubsPtr->xQueryTree) /* 56 */ +#define XRaiseWindow \ + (tkIntXlibStubsPtr->xRaiseWindow) /* 57 */ +#define XRefreshKeyboardMapping \ + (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 58 */ +#define XResizeWindow \ + (tkIntXlibStubsPtr->xResizeWindow) /* 59 */ +#define XSelectInput \ + (tkIntXlibStubsPtr->xSelectInput) /* 60 */ +#define XSendEvent \ + (tkIntXlibStubsPtr->xSendEvent) /* 61 */ +#define XSetCommand \ + (tkIntXlibStubsPtr->xSetCommand) /* 62 */ +#define XSetIconName \ + (tkIntXlibStubsPtr->xSetIconName) /* 63 */ +#define XSetInputFocus \ + (tkIntXlibStubsPtr->xSetInputFocus) /* 64 */ +#define XSetSelectionOwner \ + (tkIntXlibStubsPtr->xSetSelectionOwner) /* 65 */ +#define XSetWindowBackground \ + (tkIntXlibStubsPtr->xSetWindowBackground) /* 66 */ +#define XSetWindowBackgroundPixmap \ + (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 67 */ +#define XSetWindowBorder \ + (tkIntXlibStubsPtr->xSetWindowBorder) /* 68 */ +#define XSetWindowBorderPixmap \ + (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 69 */ +#define XSetWindowBorderWidth \ + (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 70 */ +#define XSetWindowColormap \ + (tkIntXlibStubsPtr->xSetWindowColormap) /* 71 */ +#define XTranslateCoordinates \ + (tkIntXlibStubsPtr->xTranslateCoordinates) /* 72 */ +#define XUngrabKeyboard \ + (tkIntXlibStubsPtr->xUngrabKeyboard) /* 73 */ +#define XUngrabPointer \ + (tkIntXlibStubsPtr->xUngrabPointer) /* 74 */ +#define XUnmapWindow \ + (tkIntXlibStubsPtr->xUnmapWindow) /* 75 */ +#define XWindowEvent \ + (tkIntXlibStubsPtr->xWindowEvent) /* 76 */ +#define XDestroyIC \ + (tkIntXlibStubsPtr->xDestroyIC) /* 77 */ +#define XFilterEvent \ + (tkIntXlibStubsPtr->xFilterEvent) /* 78 */ +#define XmbLookupString \ + (tkIntXlibStubsPtr->xmbLookupString) /* 79 */ +#define TkPutImage \ + (tkIntXlibStubsPtr->tkPutImage) /* 80 */ +/* Slot 81 is reserved */ +#define XParseColor \ + (tkIntXlibStubsPtr->xParseColor) /* 82 */ +#define XCreateGC \ + (tkIntXlibStubsPtr->xCreateGC) /* 83 */ +#define XFreeGC \ + (tkIntXlibStubsPtr->xFreeGC) /* 84 */ +#define XInternAtom \ + (tkIntXlibStubsPtr->xInternAtom) /* 85 */ +#define XSetBackground \ + (tkIntXlibStubsPtr->xSetBackground) /* 86 */ +#define XSetForeground \ + (tkIntXlibStubsPtr->xSetForeground) /* 87 */ +#define XSetClipMask \ + (tkIntXlibStubsPtr->xSetClipMask) /* 88 */ +#define XSetClipOrigin \ + (tkIntXlibStubsPtr->xSetClipOrigin) /* 89 */ +#define XSetTSOrigin \ + (tkIntXlibStubsPtr->xSetTSOrigin) /* 90 */ +#define XChangeGC \ + (tkIntXlibStubsPtr->xChangeGC) /* 91 */ +#define XSetFont \ + (tkIntXlibStubsPtr->xSetFont) /* 92 */ +#define XSetArcMode \ + (tkIntXlibStubsPtr->xSetArcMode) /* 93 */ +#define XSetStipple \ + (tkIntXlibStubsPtr->xSetStipple) /* 94 */ +#define XSetFillRule \ + (tkIntXlibStubsPtr->xSetFillRule) /* 95 */ +#define XSetFillStyle \ + (tkIntXlibStubsPtr->xSetFillStyle) /* 96 */ +#define XSetFunction \ + (tkIntXlibStubsPtr->xSetFunction) /* 97 */ +#define XSetLineAttributes \ + (tkIntXlibStubsPtr->xSetLineAttributes) /* 98 */ +#define _XInitImageFuncPtrs \ + (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 99 */ +#define XCreateIC \ + (tkIntXlibStubsPtr->xCreateIC) /* 100 */ +#define XGetVisualInfo \ + (tkIntXlibStubsPtr->xGetVisualInfo) /* 101 */ +#define XSetWMClientMachine \ + (tkIntXlibStubsPtr->xSetWMClientMachine) /* 102 */ +#define XStringListToTextProperty \ + (tkIntXlibStubsPtr->xStringListToTextProperty) /* 103 */ +#define XDrawLine \ + (tkIntXlibStubsPtr->xDrawLine) /* 104 */ +#define XWarpPointer \ + (tkIntXlibStubsPtr->xWarpPointer) /* 105 */ +#define XFillRectangle \ + (tkIntXlibStubsPtr->xFillRectangle) /* 106 */ +#define XFlush \ + (tkIntXlibStubsPtr->xFlush) /* 107 */ +#define XGrabServer \ + (tkIntXlibStubsPtr->xGrabServer) /* 108 */ +#define XUngrabServer \ + (tkIntXlibStubsPtr->xUngrabServer) /* 109 */ +#define XFree \ + (tkIntXlibStubsPtr->xFree) /* 110 */ +#define XNoOp \ + (tkIntXlibStubsPtr->xNoOp) /* 111 */ +#define XSynchronize \ + (tkIntXlibStubsPtr->xSynchronize) /* 112 */ +#define XSync \ + (tkIntXlibStubsPtr->xSync) /* 113 */ +#define XVisualIDFromVisual \ + (tkIntXlibStubsPtr->xVisualIDFromVisual) /* 114 */ +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ +#define XSetDashes \ + (tkIntXlibStubsPtr->xSetDashes) /* 0 */ +#define XGetModifierMapping \ + (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ +#define XCreateImage \ + (tkIntXlibStubsPtr->xCreateImage) /* 2 */ +#define XGetImage \ + (tkIntXlibStubsPtr->xGetImage) /* 3 */ +#define XGetAtomName \ + (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ +#define XKeysymToString \ + (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ +#define XCreateColormap \ + (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ +#define XGContextFromGC \ + (tkIntXlibStubsPtr->xGContextFromGC) /* 7 */ +#define XKeycodeToKeysym \ + (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 8 */ +#define XStringToKeysym \ + (tkIntXlibStubsPtr->xStringToKeysym) /* 9 */ +#define XRootWindow \ + (tkIntXlibStubsPtr->xRootWindow) /* 10 */ +#define XSetErrorHandler \ + (tkIntXlibStubsPtr->xSetErrorHandler) /* 11 */ +#define XAllocColor \ + (tkIntXlibStubsPtr->xAllocColor) /* 12 */ +#define XBell \ + (tkIntXlibStubsPtr->xBell) /* 13 */ +#define XChangeProperty \ + (tkIntXlibStubsPtr->xChangeProperty) /* 14 */ +#define XChangeWindowAttributes \ + (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 15 */ +#define XConfigureWindow \ + (tkIntXlibStubsPtr->xConfigureWindow) /* 16 */ +#define XCopyArea \ + (tkIntXlibStubsPtr->xCopyArea) /* 17 */ +#define XCopyPlane \ + (tkIntXlibStubsPtr->xCopyPlane) /* 18 */ +#define XCreateBitmapFromData \ + (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 19 */ +#define XDefineCursor \ + (tkIntXlibStubsPtr->xDefineCursor) /* 20 */ +#define XDestroyWindow \ + (tkIntXlibStubsPtr->xDestroyWindow) /* 21 */ +#define XDrawArc \ + (tkIntXlibStubsPtr->xDrawArc) /* 22 */ +#define XDrawLines \ + (tkIntXlibStubsPtr->xDrawLines) /* 23 */ +#define XDrawRectangle \ + (tkIntXlibStubsPtr->xDrawRectangle) /* 24 */ +#define XFillArc \ + (tkIntXlibStubsPtr->xFillArc) /* 25 */ +#define XFillPolygon \ + (tkIntXlibStubsPtr->xFillPolygon) /* 26 */ +#define XFillRectangles \ + (tkIntXlibStubsPtr->xFillRectangles) /* 27 */ +#define XFreeColormap \ + (tkIntXlibStubsPtr->xFreeColormap) /* 28 */ +#define XFreeColors \ + (tkIntXlibStubsPtr->xFreeColors) /* 29 */ +#define XFreeModifiermap \ + (tkIntXlibStubsPtr->xFreeModifiermap) /* 30 */ +#define XGetGeometry \ + (tkIntXlibStubsPtr->xGetGeometry) /* 31 */ +#define XGetWindowProperty \ + (tkIntXlibStubsPtr->xGetWindowProperty) /* 32 */ +#define XGrabKeyboard \ + (tkIntXlibStubsPtr->xGrabKeyboard) /* 33 */ +#define XGrabPointer \ + (tkIntXlibStubsPtr->xGrabPointer) /* 34 */ +#define XKeysymToKeycode \ + (tkIntXlibStubsPtr->xKeysymToKeycode) /* 35 */ +#define XMapWindow \ + (tkIntXlibStubsPtr->xMapWindow) /* 36 */ +#define XMoveResizeWindow \ + (tkIntXlibStubsPtr->xMoveResizeWindow) /* 37 */ +#define XMoveWindow \ + (tkIntXlibStubsPtr->xMoveWindow) /* 38 */ +#define XQueryPointer \ + (tkIntXlibStubsPtr->xQueryPointer) /* 39 */ +#define XRaiseWindow \ + (tkIntXlibStubsPtr->xRaiseWindow) /* 40 */ +#define XRefreshKeyboardMapping \ + (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 41 */ +#define XResizeWindow \ + (tkIntXlibStubsPtr->xResizeWindow) /* 42 */ +#define XSelectInput \ + (tkIntXlibStubsPtr->xSelectInput) /* 43 */ +#define XSendEvent \ + (tkIntXlibStubsPtr->xSendEvent) /* 44 */ +#define XSetIconName \ + (tkIntXlibStubsPtr->xSetIconName) /* 45 */ +#define XSetInputFocus \ + (tkIntXlibStubsPtr->xSetInputFocus) /* 46 */ +#define XSetSelectionOwner \ + (tkIntXlibStubsPtr->xSetSelectionOwner) /* 47 */ +#define XSetWindowBackground \ + (tkIntXlibStubsPtr->xSetWindowBackground) /* 48 */ +#define XSetWindowBackgroundPixmap \ + (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 49 */ +#define XSetWindowBorder \ + (tkIntXlibStubsPtr->xSetWindowBorder) /* 50 */ +#define XSetWindowBorderPixmap \ + (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 51 */ +#define XSetWindowBorderWidth \ + (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 52 */ +#define XSetWindowColormap \ + (tkIntXlibStubsPtr->xSetWindowColormap) /* 53 */ +#define XUngrabKeyboard \ + (tkIntXlibStubsPtr->xUngrabKeyboard) /* 54 */ +#define XUngrabPointer \ + (tkIntXlibStubsPtr->xUngrabPointer) /* 55 */ +#define XUnmapWindow \ + (tkIntXlibStubsPtr->xUnmapWindow) /* 56 */ +#define TkPutImage \ + (tkIntXlibStubsPtr->tkPutImage) /* 57 */ +#define XParseColor \ + (tkIntXlibStubsPtr->xParseColor) /* 58 */ +#define XCreateGC \ + (tkIntXlibStubsPtr->xCreateGC) /* 59 */ +#define XFreeGC \ + (tkIntXlibStubsPtr->xFreeGC) /* 60 */ +#define XInternAtom \ + (tkIntXlibStubsPtr->xInternAtom) /* 61 */ +#define XSetBackground \ + (tkIntXlibStubsPtr->xSetBackground) /* 62 */ +#define XSetForeground \ + (tkIntXlibStubsPtr->xSetForeground) /* 63 */ +#define XSetClipMask \ + (tkIntXlibStubsPtr->xSetClipMask) /* 64 */ +#define XSetClipOrigin \ + (tkIntXlibStubsPtr->xSetClipOrigin) /* 65 */ +#define XSetTSOrigin \ + (tkIntXlibStubsPtr->xSetTSOrigin) /* 66 */ +#define XChangeGC \ + (tkIntXlibStubsPtr->xChangeGC) /* 67 */ +#define XSetFont \ + (tkIntXlibStubsPtr->xSetFont) /* 68 */ +#define XSetArcMode \ + (tkIntXlibStubsPtr->xSetArcMode) /* 69 */ +#define XSetStipple \ + (tkIntXlibStubsPtr->xSetStipple) /* 70 */ +#define XSetFillRule \ + (tkIntXlibStubsPtr->xSetFillRule) /* 71 */ +#define XSetFillStyle \ + (tkIntXlibStubsPtr->xSetFillStyle) /* 72 */ +#define XSetFunction \ + (tkIntXlibStubsPtr->xSetFunction) /* 73 */ +#define XSetLineAttributes \ + (tkIntXlibStubsPtr->xSetLineAttributes) /* 74 */ +#define _XInitImageFuncPtrs \ + (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 75 */ +#define XCreateIC \ + (tkIntXlibStubsPtr->xCreateIC) /* 76 */ +#define XGetVisualInfo \ + (tkIntXlibStubsPtr->xGetVisualInfo) /* 77 */ +#define XSetWMClientMachine \ + (tkIntXlibStubsPtr->xSetWMClientMachine) /* 78 */ +#define XStringListToTextProperty \ + (tkIntXlibStubsPtr->xStringListToTextProperty) /* 79 */ +#define XDrawSegments \ + (tkIntXlibStubsPtr->xDrawSegments) /* 80 */ +#define XForceScreenSaver \ + (tkIntXlibStubsPtr->xForceScreenSaver) /* 81 */ +#define XDrawLine \ + (tkIntXlibStubsPtr->xDrawLine) /* 82 */ +#define XFillRectangle \ + (tkIntXlibStubsPtr->xFillRectangle) /* 83 */ +#define XClearWindow \ + (tkIntXlibStubsPtr->xClearWindow) /* 84 */ +#define XDrawPoint \ + (tkIntXlibStubsPtr->xDrawPoint) /* 85 */ +#define XDrawPoints \ + (tkIntXlibStubsPtr->xDrawPoints) /* 86 */ +#define XWarpPointer \ + (tkIntXlibStubsPtr->xWarpPointer) /* 87 */ +#define XQueryColor \ + (tkIntXlibStubsPtr->xQueryColor) /* 88 */ +#define XQueryColors \ + (tkIntXlibStubsPtr->xQueryColors) /* 89 */ +#define XQueryTree \ + (tkIntXlibStubsPtr->xQueryTree) /* 90 */ +#define XSync \ + (tkIntXlibStubsPtr->xSync) /* 91 */ +#endif /* AQUA */ + +#endif /* defined(USE_TK_STUBS) */ + +/* !END!: Do not edit above this line. */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* _TKINTXLIBDECLS */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tcl.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tcl.h new file mode 100644 index 00000000..297b42c1 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tcl.h @@ -0,0 +1,2652 @@ +/* + * tcl.h -- + * + * This header file describes the externally-visible facilities of the + * Tcl interpreter. + * + * Copyright (c) 1987-1994 The Regents of the University of California. + * Copyright (c) 1993-1996 Lucent Technologies. + * Copyright (c) 1994-1998 Sun Microsystems, Inc. + * Copyright (c) 1998-2000 by Scriptics Corporation. + * Copyright (c) 2002 by Kevin B. Kenny. All rights reserved. + * + * See the file "license.terms" for information on usage and redistribution of + * this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TCL +#define _TCL + +/* + * For C++ compilers, use extern "C" + */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * The following defines are used to indicate the various release levels. + */ + +#define TCL_ALPHA_RELEASE 0 +#define TCL_BETA_RELEASE 1 +#define TCL_FINAL_RELEASE 2 + +/* + * When version numbers change here, must also go into the following files and + * update the version numbers: + * + * library/init.tcl (1 LOC patch) + * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) + * win/configure.in (as above) + * win/tcl.m4 (not patchlevel) + * win/makefile.bc (not patchlevel) 2 LOC + * README (sections 0 and 2, with and without separator) + * macosx/Tcl.pbproj/project.pbxproj (not patchlevel) 1 LOC + * macosx/Tcl.pbproj/default.pbxuser (not patchlevel) 1 LOC + * macosx/Tcl.xcode/project.pbxproj (not patchlevel) 2 LOC + * macosx/Tcl.xcode/default.pbxuser (not patchlevel) 1 LOC + * macosx/Tcl-Common.xcconfig (not patchlevel) 1 LOC + * win/README (not patchlevel) (sections 0 and 2) + * unix/tcl.spec (1 LOC patch) + * tools/tcl.hpj.in (not patchlevel, for windows installer) + */ + +#define TCL_MAJOR_VERSION 8 +#define TCL_MINOR_VERSION 6 +#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE +#define TCL_RELEASE_SERIAL 4 + +#define TCL_VERSION "8.6" +#define TCL_PATCH_LEVEL "8.6.4" + +/* + *---------------------------------------------------------------------------- + * The following definitions set up the proper options for Windows compilers. + * We use this method because there is no autoconf equivalent. + */ + +#ifdef _WIN32 +# ifndef __WIN32__ +# define __WIN32__ +# endif +# ifndef WIN32 +# define WIN32 +# endif +#endif + +/* + * Utility macros: STRINGIFY takes an argument and wraps it in "" (double + * quotation marks), JOIN joins two arguments. + */ + +#ifndef STRINGIFY +# define STRINGIFY(x) STRINGIFY1(x) +# define STRINGIFY1(x) #x +#endif +#ifndef JOIN +# define JOIN(a,b) JOIN1(a,b) +# define JOIN1(a,b) a##b +#endif + +/* + * A special definition used to allow this header file to be included from + * windows resource files so that they can obtain version information. + * RC_INVOKED is defined by default by the windows RC tool. + * + * Resource compilers don't like all the C stuff, like typedefs and function + * declarations, that occur below, so block them out. + */ + +#ifndef RC_INVOKED + +/* + * Special macro to define mutexes, that doesn't do anything if we are not + * using threads. + */ + +#ifdef TCL_THREADS +#define TCL_DECLARE_MUTEX(name) static Tcl_Mutex name; +#else +#define TCL_DECLARE_MUTEX(name) +#endif + +/* + * Tcl's public routine Tcl_FSSeek() uses the values SEEK_SET, SEEK_CUR, and + * SEEK_END, all #define'd by stdio.h . + * + * Also, many extensions need stdio.h, and they've grown accustomed to tcl.h + * providing it for them rather than #include-ing it themselves as they + * should, so also for their sake, we keep the #include to be consistent with + * prior Tcl releases. + */ + +#include + +/* + *---------------------------------------------------------------------------- + * Support for functions with a variable number of arguments. + * + * The following TCL_VARARGS* macros are to support old extensions + * written for older versions of Tcl where the macros permitted + * support for the varargs.h system as well as stdarg.h . + * + * New code should just directly be written to use stdarg.h conventions. + */ + +#include +#ifndef TCL_NO_DEPRECATED +# define TCL_VARARGS(type, name) (type name, ...) +# define TCL_VARARGS_DEF(type, name) (type name, ...) +# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name) +#endif +#if defined(__GNUC__) && (__GNUC__ > 2) +# define TCL_FORMAT_PRINTF(a,b) __attribute__ ((__format__ (__printf__, a, b))) +#else +# define TCL_FORMAT_PRINTF(a,b) +#endif + +/* + * Allow a part of Tcl's API to be explicitly marked as deprecated. + * + * Used to make TIP 330/336 generate moans even if people use the + * compatibility macros. Change your code, guys! We won't support you forever. + */ + +#if defined(__GNUC__) && ((__GNUC__ >= 4) || ((__GNUC__ == 3) && (__GNUC_MINOR__ >= 1))) +# if (__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ >= 5)) +# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__ (msg))) +# else +# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__)) +# endif +#else +# define TCL_DEPRECATED_API(msg) /* nothing portable */ +#endif + +/* + *---------------------------------------------------------------------------- + * Macros used to declare a function to be exported by a DLL. Used by Windows, + * maps to no-op declarations on non-Windows systems. The default build on + * windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to be + * nonempty. To build a static library, the macro STATIC_BUILD should be + * defined. + * + * Note: when building static but linking dynamically to MSVCRT we must still + * correctly decorate the C library imported function. Use CRTIMPORT + * for this purpose. _DLL is defined by the compiler when linking to + * MSVCRT. + */ + +#if (defined(_WIN32) && (defined(_MSC_VER) || (defined(__BORLANDC__) && (__BORLANDC__ >= 0x0550)) || defined(__LCC__) || defined(__WATCOMC__) || (defined(__GNUC__) && defined(__declspec)))) +# define HAVE_DECLSPEC 1 +# ifdef STATIC_BUILD +# define DLLIMPORT +# define DLLEXPORT +# ifdef _DLL +# define CRTIMPORT __declspec(dllimport) +# else +# define CRTIMPORT +# endif +# else +# define DLLIMPORT __declspec(dllimport) +# define DLLEXPORT __declspec(dllexport) +# define CRTIMPORT __declspec(dllimport) +# endif +#else +# define DLLIMPORT +# if defined(__GNUC__) && __GNUC__ > 3 +# define DLLEXPORT __attribute__ ((visibility("default"))) +# else +# define DLLEXPORT +# endif +# define CRTIMPORT +#endif + +/* + * These macros are used to control whether functions are being declared for + * import or export. If a function is being declared while it is being built + * to be included in a shared library, then it should have the DLLEXPORT + * storage class. If is being declared for use by a module that is going to + * link against the shared library, then it should have the DLLIMPORT storage + * class. If the symbol is beind declared for a static build or for use from a + * stub library, then the storage class should be empty. + * + * The convention is that a macro called BUILD_xxxx, where xxxx is the name of + * a library we are building, is set on the compile line for sources that are + * to be placed in the library. When this macro is set, the storage class will + * be set to DLLEXPORT. At the end of the header file, the storage class will + * be reset to DLLIMPORT. + */ + +#undef TCL_STORAGE_CLASS +#ifdef BUILD_tcl +# define TCL_STORAGE_CLASS DLLEXPORT +#else +# ifdef USE_TCL_STUBS +# define TCL_STORAGE_CLASS +# else +# define TCL_STORAGE_CLASS DLLIMPORT +# endif +#endif + +/* + * The following _ANSI_ARGS_ macro is to support old extensions + * written for older versions of Tcl where it permitted support + * for compilers written in the pre-prototype era of C. + * + * New code should use prototypes. + */ + +#ifndef TCL_NO_DEPRECATED +# undef _ANSI_ARGS_ +# define _ANSI_ARGS_(x) x +#endif + +/* + * Definitions that allow this header file to be used either with or without + * ANSI C features. + */ + +#ifndef INLINE +# define INLINE +#endif + +#ifdef NO_CONST +# ifndef const +# define const +# endif +#endif +#ifndef CONST +# define CONST const +#endif + +#ifdef USE_NON_CONST +# ifdef USE_COMPAT_CONST +# error define at most one of USE_NON_CONST and USE_COMPAT_CONST +# endif +# define CONST84 +# define CONST84_RETURN +#else +# ifdef USE_COMPAT_CONST +# define CONST84 +# define CONST84_RETURN const +# else +# define CONST84 const +# define CONST84_RETURN const +# endif +#endif + +#ifndef CONST86 +# define CONST86 CONST84 +#endif + +/* + * Make sure EXTERN isn't defined elsewhere. + */ + +#ifdef EXTERN +# undef EXTERN +#endif /* EXTERN */ + +#ifdef __cplusplus +# define EXTERN extern "C" TCL_STORAGE_CLASS +#else +# define EXTERN extern TCL_STORAGE_CLASS +#endif + +/* + *---------------------------------------------------------------------------- + * The following code is copied from winnt.h. If we don't replicate it here, + * then can't be included after tcl.h, since tcl.h also defines + * VOID. This block is skipped under Cygwin and Mingw. + */ + +#if defined(_WIN32) && !defined(HAVE_WINNT_IGNORE_VOID) +#ifndef VOID +#define VOID void +typedef char CHAR; +typedef short SHORT; +typedef long LONG; +#endif +#endif /* _WIN32 && !HAVE_WINNT_IGNORE_VOID */ + +/* + * Macro to use instead of "void" for arguments that must have type "void *" + * in ANSI C; maps them to type "char *" in non-ANSI systems. + */ + +#ifndef __VXWORKS__ +# ifndef NO_VOID +# define VOID void +# else +# define VOID char +# endif +#endif + +/* + * Miscellaneous declarations. + */ + +#ifndef _CLIENTDATA +# ifndef NO_VOID + typedef void *ClientData; +# else + typedef int *ClientData; +# endif +# define _CLIENTDATA +#endif + +/* + * Darwin specific configure overrides (to support fat compiles, where + * configure runs only once for multiple architectures): + */ + +#ifdef __APPLE__ +# ifdef __LP64__ +# undef TCL_WIDE_INT_TYPE +# define TCL_WIDE_INT_IS_LONG 1 +# define TCL_CFG_DO64BIT 1 +# else /* !__LP64__ */ +# define TCL_WIDE_INT_TYPE long long +# undef TCL_WIDE_INT_IS_LONG +# undef TCL_CFG_DO64BIT +# endif /* __LP64__ */ +# undef HAVE_STRUCT_STAT64 +#endif /* __APPLE__ */ + +/* + * Define Tcl_WideInt to be a type that is (at least) 64-bits wide, and define + * Tcl_WideUInt to be the unsigned variant of that type (assuming that where + * we have one, we can have the other.) + * + * Also defines the following macros: + * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on a real + * 64-bit system.) + * Tcl_WideAsLong - forgetful converter from wideInt to long. + * Tcl_LongAsWide - sign-extending converter from long to wideInt. + * Tcl_WideAsDouble - converter from wideInt to double. + * Tcl_DoubleAsWide - converter from double to wideInt. + * + * The following invariant should hold for any long value 'longVal': + * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal)) + * + * Note on converting between Tcl_WideInt and strings. This implementation (in + * tclObj.c) depends on the function + * sprintf(...,"%" TCL_LL_MODIFIER "d",...). + */ + +#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG) +# if defined(_WIN32) +# define TCL_WIDE_INT_TYPE __int64 +# ifdef __BORLANDC__ +# define TCL_LL_MODIFIER "L" +# else /* __BORLANDC__ */ +# define TCL_LL_MODIFIER "I64" +# endif /* __BORLANDC__ */ +# elif defined(__GNUC__) +# define TCL_WIDE_INT_TYPE long long +# define TCL_LL_MODIFIER "ll" +# else /* ! _WIN32 && ! __GNUC__ */ +/* + * Don't know what platform it is and configure hasn't discovered what is + * going on for us. Try to guess... + */ +# include +# if (INT_MAX < LONG_MAX) +# define TCL_WIDE_INT_IS_LONG 1 +# else +# define TCL_WIDE_INT_TYPE long long +# endif +# endif /* _WIN32 */ +#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */ +#ifdef TCL_WIDE_INT_IS_LONG +# undef TCL_WIDE_INT_TYPE +# define TCL_WIDE_INT_TYPE long +#endif /* TCL_WIDE_INT_IS_LONG */ + +typedef TCL_WIDE_INT_TYPE Tcl_WideInt; +typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt; + +#ifdef TCL_WIDE_INT_IS_LONG +# define Tcl_WideAsLong(val) ((long)(val)) +# define Tcl_LongAsWide(val) ((long)(val)) +# define Tcl_WideAsDouble(val) ((double)((long)(val))) +# define Tcl_DoubleAsWide(val) ((long)((double)(val))) +# ifndef TCL_LL_MODIFIER +# define TCL_LL_MODIFIER "l" +# endif /* !TCL_LL_MODIFIER */ +#else /* TCL_WIDE_INT_IS_LONG */ +/* + * The next short section of defines are only done when not running on Windows + * or some other strange platform. + */ +# ifndef TCL_LL_MODIFIER +# define TCL_LL_MODIFIER "ll" +# endif /* !TCL_LL_MODIFIER */ +# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val))) +# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val))) +# define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val))) +# define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val))) +#endif /* TCL_WIDE_INT_IS_LONG */ + +#if defined(_WIN32) +# ifdef __BORLANDC__ + typedef struct stati64 Tcl_StatBuf; +# elif defined(_WIN64) + typedef struct __stat64 Tcl_StatBuf; +# elif (defined(_MSC_VER) && (_MSC_VER < 1400)) || defined(_USE_32BIT_TIME_T) + typedef struct _stati64 Tcl_StatBuf; +# else + typedef struct _stat32i64 Tcl_StatBuf; +# endif /* _MSC_VER < 1400 */ +#elif defined(__CYGWIN__) + typedef struct { + dev_t st_dev; + unsigned short st_ino; + unsigned short st_mode; + short st_nlink; + short st_uid; + short st_gid; + /* Here is a 2-byte gap */ + dev_t st_rdev; + /* Here is a 4-byte gap */ + long long st_size; + struct {long tv_sec;} st_atim; + struct {long tv_sec;} st_mtim; + struct {long tv_sec;} st_ctim; + /* Here is a 4-byte gap */ + } Tcl_StatBuf; +#elif defined(HAVE_STRUCT_STAT64) && !defined(__APPLE__) + typedef struct stat64 Tcl_StatBuf; +#else + typedef struct stat Tcl_StatBuf; +#endif + +/* + *---------------------------------------------------------------------------- + * Data structures defined opaquely in this module. The definitions below just + * provide dummy types. A few fields are made visible in Tcl_Interp + * structures, namely those used for returning a string result from commands. + * Direct access to the result field is discouraged in Tcl 8.0. The + * interpreter result is either an object or a string, and the two values are + * kept consistent unless some C code sets interp->result directly. + * Programmers should use either the function Tcl_GetObjResult() or + * Tcl_GetStringResult() to read the interpreter's result. See the SetResult + * man page for details. + * + * Note: any change to the Tcl_Interp definition below must be mirrored in the + * "real" definition in tclInt.h. + * + * Note: Tcl_ObjCmdProc functions do not directly set result and freeProc. + * Instead, they set a Tcl_Obj member in the "real" structure that can be + * accessed with Tcl_GetObjResult() and Tcl_SetObjResult(). + */ + +typedef struct Tcl_Interp +#ifndef TCL_NO_DEPRECATED +{ + /* TIP #330: Strongly discourage extensions from using the string + * result. */ +#ifdef USE_INTERP_RESULT + char *result TCL_DEPRECATED_API("use Tcl_GetStringResult/Tcl_SetResult"); + /* If the last command returned a string + * result, this points to it. */ + void (*freeProc) (char *blockPtr) + TCL_DEPRECATED_API("use Tcl_GetStringResult/Tcl_SetResult"); + /* Zero means the string result is statically + * allocated. TCL_DYNAMIC means it was + * allocated with ckalloc and should be freed + * with ckfree. Other values give the address + * of function to invoke to free the result. + * Tcl_Eval must free it before executing next + * command. */ +#else + char *resultDontUse; /* Don't use in extensions! */ + void (*freeProcDontUse) (char *); /* Don't use in extensions! */ +#endif +#ifdef USE_INTERP_ERRORLINE + int errorLine TCL_DEPRECATED_API("use Tcl_GetErrorLine/Tcl_SetErrorLine"); + /* When TCL_ERROR is returned, this gives the + * line number within the command where the + * error occurred (1 if first line). */ +#else + int errorLineDontUse; /* Don't use in extensions! */ +#endif +} +#endif /* TCL_NO_DEPRECATED */ +Tcl_Interp; + +typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; +typedef struct Tcl_Channel_ *Tcl_Channel; +typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; +typedef struct Tcl_Command_ *Tcl_Command; +typedef struct Tcl_Condition_ *Tcl_Condition; +typedef struct Tcl_Dict_ *Tcl_Dict; +typedef struct Tcl_EncodingState_ *Tcl_EncodingState; +typedef struct Tcl_Encoding_ *Tcl_Encoding; +typedef struct Tcl_Event Tcl_Event; +typedef struct Tcl_InterpState_ *Tcl_InterpState; +typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; +typedef struct Tcl_Mutex_ *Tcl_Mutex; +typedef struct Tcl_Pid_ *Tcl_Pid; +typedef struct Tcl_RegExp_ *Tcl_RegExp; +typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey; +typedef struct Tcl_ThreadId_ *Tcl_ThreadId; +typedef struct Tcl_TimerToken_ *Tcl_TimerToken; +typedef struct Tcl_Trace_ *Tcl_Trace; +typedef struct Tcl_Var_ *Tcl_Var; +typedef struct Tcl_ZLibStream_ *Tcl_ZlibStream; + +/* + *---------------------------------------------------------------------------- + * Definition of the interface to functions implementing threads. A function + * following this definition is given to each call of 'Tcl_CreateThread' and + * will be called as the main fuction of the new thread created by that call. + */ + +#if defined _WIN32 +typedef unsigned (__stdcall Tcl_ThreadCreateProc) (ClientData clientData); +#else +typedef void (Tcl_ThreadCreateProc) (ClientData clientData); +#endif + +/* + * Threading function return types used for abstracting away platform + * differences when writing a Tcl_ThreadCreateProc. See the NewThread function + * in generic/tclThreadTest.c for it's usage. + */ + +#if defined _WIN32 +# define Tcl_ThreadCreateType unsigned __stdcall +# define TCL_THREAD_CREATE_RETURN return 0 +#else +# define Tcl_ThreadCreateType void +# define TCL_THREAD_CREATE_RETURN +#endif + +/* + * Definition of values for default stacksize and the possible flags to be + * given to Tcl_CreateThread. + */ + +#define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack. */ +#define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default + * behaviour. */ +#define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable. */ + +/* + * Flag values passed to Tcl_StringCaseMatch. + */ + +#define TCL_MATCH_NOCASE (1<<0) + +/* + * Flag values passed to Tcl_GetRegExpFromObj. + */ + +#define TCL_REG_BASIC 000000 /* BREs (convenience). */ +#define TCL_REG_EXTENDED 000001 /* EREs. */ +#define TCL_REG_ADVF 000002 /* Advanced features in EREs. */ +#define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs). */ +#define TCL_REG_QUOTE 000004 /* No special characters, none. */ +#define TCL_REG_NOCASE 000010 /* Ignore case. */ +#define TCL_REG_NOSUB 000020 /* Don't care about subexpressions. */ +#define TCL_REG_EXPANDED 000040 /* Expanded format, white space & + * comments. */ +#define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */ +#define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ before. */ +#define TCL_REG_NEWLINE 000300 /* Newlines are line terminators. */ +#define TCL_REG_CANMATCH 001000 /* Report details on partial/limited + * matches. */ + +/* + * Flags values passed to Tcl_RegExpExecObj. + */ + +#define TCL_REG_NOTBOL 0001 /* Beginning of string does not match ^. */ +#define TCL_REG_NOTEOL 0002 /* End of string does not match $. */ + +/* + * Structures filled in by Tcl_RegExpInfo. Note that all offset values are + * relative to the start of the match string, not the beginning of the entire + * string. + */ + +typedef struct Tcl_RegExpIndices { + long start; /* Character offset of first character in + * match. */ + long end; /* Character offset of first character after + * the match. */ +} Tcl_RegExpIndices; + +typedef struct Tcl_RegExpInfo { + int nsubs; /* Number of subexpressions in the compiled + * expression. */ + Tcl_RegExpIndices *matches; /* Array of nsubs match offset pairs. */ + long extendStart; /* The offset at which a subsequent match + * might begin. */ + long reserved; /* Reserved for later use. */ +} Tcl_RegExpInfo; + +/* + * Picky compilers complain if this typdef doesn't appear before the struct's + * reference in tclDecls.h. + */ + +typedef Tcl_StatBuf *Tcl_Stat_; +typedef struct stat *Tcl_OldStat_; + +/* + *---------------------------------------------------------------------------- + * When a TCL command returns, the interpreter contains a result from the + * command. Programmers are strongly encouraged to use one of the functions + * Tcl_GetObjResult() or Tcl_GetStringResult() to read the interpreter's + * result. See the SetResult man page for details. Besides this result, the + * command function returns an integer code, which is one of the following: + * + * TCL_OK Command completed normally; the interpreter's result + * contains the command's result. + * TCL_ERROR The command couldn't be completed successfully; the + * interpreter's result describes what went wrong. + * TCL_RETURN The command requests that the current function return; + * the interpreter's result contains the function's + * return value. + * TCL_BREAK The command requests that the innermost loop be + * exited; the interpreter's result is meaningless. + * TCL_CONTINUE Go on to the next iteration of the current loop; the + * interpreter's result is meaningless. + */ + +#define TCL_OK 0 +#define TCL_ERROR 1 +#define TCL_RETURN 2 +#define TCL_BREAK 3 +#define TCL_CONTINUE 4 + +#define TCL_RESULT_SIZE 200 + +/* + *---------------------------------------------------------------------------- + * Flags to control what substitutions are performed by Tcl_SubstObj(): + */ + +#define TCL_SUBST_COMMANDS 001 +#define TCL_SUBST_VARIABLES 002 +#define TCL_SUBST_BACKSLASHES 004 +#define TCL_SUBST_ALL 007 + +/* + * Argument descriptors for math function callbacks in expressions: + */ + +typedef enum { + TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT +} Tcl_ValueType; + +typedef struct Tcl_Value { + Tcl_ValueType type; /* Indicates intValue or doubleValue is valid, + * or both. */ + long intValue; /* Integer value. */ + double doubleValue; /* Double-precision floating value. */ + Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */ +} Tcl_Value; + +/* + * Forward declaration of Tcl_Obj to prevent an error when the forward + * reference to Tcl_Obj is encountered in the function types declared below. + */ + +struct Tcl_Obj; + +/* + *---------------------------------------------------------------------------- + * Function types defined by Tcl: + */ + +typedef int (Tcl_AppInitProc) (Tcl_Interp *interp); +typedef int (Tcl_AsyncProc) (ClientData clientData, Tcl_Interp *interp, + int code); +typedef void (Tcl_ChannelProc) (ClientData clientData, int mask); +typedef void (Tcl_CloseProc) (ClientData data); +typedef void (Tcl_CmdDeleteProc) (ClientData clientData); +typedef int (Tcl_CmdProc) (ClientData clientData, Tcl_Interp *interp, + int argc, CONST84 char *argv[]); +typedef void (Tcl_CmdTraceProc) (ClientData clientData, Tcl_Interp *interp, + int level, char *command, Tcl_CmdProc *proc, + ClientData cmdClientData, int argc, CONST84 char *argv[]); +typedef int (Tcl_CmdObjTraceProc) (ClientData clientData, Tcl_Interp *interp, + int level, const char *command, Tcl_Command commandInfo, int objc, + struct Tcl_Obj *const *objv); +typedef void (Tcl_CmdObjTraceDeleteProc) (ClientData clientData); +typedef void (Tcl_DupInternalRepProc) (struct Tcl_Obj *srcPtr, + struct Tcl_Obj *dupPtr); +typedef int (Tcl_EncodingConvertProc) (ClientData clientData, const char *src, + int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, + int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); +typedef void (Tcl_EncodingFreeProc) (ClientData clientData); +typedef int (Tcl_EventProc) (Tcl_Event *evPtr, int flags); +typedef void (Tcl_EventCheckProc) (ClientData clientData, int flags); +typedef int (Tcl_EventDeleteProc) (Tcl_Event *evPtr, ClientData clientData); +typedef void (Tcl_EventSetupProc) (ClientData clientData, int flags); +typedef void (Tcl_ExitProc) (ClientData clientData); +typedef void (Tcl_FileProc) (ClientData clientData, int mask); +typedef void (Tcl_FileFreeProc) (ClientData clientData); +typedef void (Tcl_FreeInternalRepProc) (struct Tcl_Obj *objPtr); +typedef void (Tcl_FreeProc) (char *blockPtr); +typedef void (Tcl_IdleProc) (ClientData clientData); +typedef void (Tcl_InterpDeleteProc) (ClientData clientData, + Tcl_Interp *interp); +typedef int (Tcl_MathProc) (ClientData clientData, Tcl_Interp *interp, + Tcl_Value *args, Tcl_Value *resultPtr); +typedef void (Tcl_NamespaceDeleteProc) (ClientData clientData); +typedef int (Tcl_ObjCmdProc) (ClientData clientData, Tcl_Interp *interp, + int objc, struct Tcl_Obj *const *objv); +typedef int (Tcl_PackageInitProc) (Tcl_Interp *interp); +typedef int (Tcl_PackageUnloadProc) (Tcl_Interp *interp, int flags); +typedef void (Tcl_PanicProc) (const char *format, ...); +typedef void (Tcl_TcpAcceptProc) (ClientData callbackData, Tcl_Channel chan, + char *address, int port); +typedef void (Tcl_TimerProc) (ClientData clientData); +typedef int (Tcl_SetFromAnyProc) (Tcl_Interp *interp, struct Tcl_Obj *objPtr); +typedef void (Tcl_UpdateStringProc) (struct Tcl_Obj *objPtr); +typedef char * (Tcl_VarTraceProc) (ClientData clientData, Tcl_Interp *interp, + CONST84 char *part1, CONST84 char *part2, int flags); +typedef void (Tcl_CommandTraceProc) (ClientData clientData, Tcl_Interp *interp, + const char *oldName, const char *newName, int flags); +typedef void (Tcl_CreateFileHandlerProc) (int fd, int mask, Tcl_FileProc *proc, + ClientData clientData); +typedef void (Tcl_DeleteFileHandlerProc) (int fd); +typedef void (Tcl_AlertNotifierProc) (ClientData clientData); +typedef void (Tcl_ServiceModeHookProc) (int mode); +typedef ClientData (Tcl_InitNotifierProc) (void); +typedef void (Tcl_FinalizeNotifierProc) (ClientData clientData); +typedef void (Tcl_MainLoopProc) (void); + +/* + *---------------------------------------------------------------------------- + * The following structure represents a type of object, which is a particular + * internal representation for an object plus a set of functions that provide + * standard operations on objects of that type. + */ + +typedef struct Tcl_ObjType { + const char *name; /* Name of the type, e.g. "int". */ + Tcl_FreeInternalRepProc *freeIntRepProc; + /* Called to free any storage for the type's + * internal rep. NULL if the internal rep does + * not need freeing. */ + Tcl_DupInternalRepProc *dupIntRepProc; + /* Called to create a new object as a copy of + * an existing object. */ + Tcl_UpdateStringProc *updateStringProc; + /* Called to update the string rep from the + * type's internal representation. */ + Tcl_SetFromAnyProc *setFromAnyProc; + /* Called to convert the object's internal rep + * to this type. Frees the internal rep of the + * old type. Returns TCL_ERROR on failure. */ +} Tcl_ObjType; + +/* + * One of the following structures exists for each object in the Tcl system. + * An object stores a value as either a string, some internal representation, + * or both. + */ + +typedef struct Tcl_Obj { + int refCount; /* When 0 the object will be freed. */ + char *bytes; /* This points to the first byte of the + * object's string representation. The array + * must be followed by a null byte (i.e., at + * offset length) but may also contain + * embedded null characters. The array's + * storage is allocated by ckalloc. NULL means + * the string rep is invalid and must be + * regenerated from the internal rep. Clients + * should use Tcl_GetStringFromObj or + * Tcl_GetString to get a pointer to the byte + * array as a readonly value. */ + int length; /* The number of bytes at *bytes, not + * including the terminating null. */ + const Tcl_ObjType *typePtr; /* Denotes the object's type. Always + * corresponds to the type of the object's + * internal rep. NULL indicates the object has + * no internal rep (has no type). */ + union { /* The internal representation: */ + long longValue; /* - an long integer value. */ + double doubleValue; /* - a double-precision floating value. */ + void *otherValuePtr; /* - another, type-specific value. */ + Tcl_WideInt wideValue; /* - a long long value. */ + struct { /* - internal rep as two pointers. */ + void *ptr1; + void *ptr2; + } twoPtrValue; + struct { /* - internal rep as a pointer and a long, + * the main use of which is a bignum's + * tightly packed fields, where the alloc, + * used and signum flags are packed into a + * single word with everything else hung + * off the pointer. */ + void *ptr; + unsigned long value; + } ptrAndLongRep; + } internalRep; +} Tcl_Obj; + +/* + * Macros to increment and decrement a Tcl_Obj's reference count, and to test + * whether an object is shared (i.e. has reference count > 1). Note: clients + * should use Tcl_DecrRefCount() when they are finished using an object, and + * should never call TclFreeObj() directly. TclFreeObj() is only defined and + * made public in tcl.h to support Tcl_DecrRefCount's macro definition. + */ + +void Tcl_IncrRefCount(Tcl_Obj *objPtr); +void Tcl_DecrRefCount(Tcl_Obj *objPtr); +int Tcl_IsShared(Tcl_Obj *objPtr); + +/* + *---------------------------------------------------------------------------- + * The following structure contains the state needed by Tcl_SaveResult. No-one + * outside of Tcl should access any of these fields. This structure is + * typically allocated on the stack. + */ + +typedef struct Tcl_SavedResult { + char *result; + Tcl_FreeProc *freeProc; + Tcl_Obj *objResultPtr; + char *appendResult; + int appendAvl; + int appendUsed; + char resultSpace[TCL_RESULT_SIZE+1]; +} Tcl_SavedResult; + +/* + *---------------------------------------------------------------------------- + * The following definitions support Tcl's namespace facility. Note: the first + * five fields must match exactly the fields in a Namespace structure (see + * tclInt.h). + */ + +typedef struct Tcl_Namespace { + char *name; /* The namespace's name within its parent + * namespace. This contains no ::'s. The name + * of the global namespace is "" although "::" + * is an synonym. */ + char *fullName; /* The namespace's fully qualified name. This + * starts with ::. */ + ClientData clientData; /* Arbitrary value associated with this + * namespace. */ + Tcl_NamespaceDeleteProc *deleteProc; + /* Function invoked when deleting the + * namespace to, e.g., free clientData. */ + struct Tcl_Namespace *parentPtr; + /* Points to the namespace that contains this + * one. NULL if this is the global + * namespace. */ +} Tcl_Namespace; + +/* + *---------------------------------------------------------------------------- + * The following structure represents a call frame, or activation record. A + * call frame defines a naming context for a procedure call: its local scope + * (for local variables) and its namespace scope (used for non-local + * variables; often the global :: namespace). A call frame can also define the + * naming context for a namespace eval or namespace inscope command: the + * namespace in which the command's code should execute. The Tcl_CallFrame + * structures exist only while procedures or namespace eval/inscope's are + * being executed, and provide a Tcl call stack. + * + * A call frame is initialized and pushed using Tcl_PushCallFrame and popped + * using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be provided by the + * Tcl_PushCallFrame caller, and callers typically allocate them on the C call + * stack for efficiency. For this reason, Tcl_CallFrame is defined as a + * structure and not as an opaque token. However, most Tcl_CallFrame fields + * are hidden since applications should not access them directly; others are + * declared as "dummyX". + * + * WARNING!! The structure definition must be kept consistent with the + * CallFrame structure in tclInt.h. If you change one, change the other. + */ + +typedef struct Tcl_CallFrame { + Tcl_Namespace *nsPtr; + int dummy1; + int dummy2; + void *dummy3; + void *dummy4; + void *dummy5; + int dummy6; + void *dummy7; + void *dummy8; + int dummy9; + void *dummy10; + void *dummy11; + void *dummy12; + void *dummy13; +} Tcl_CallFrame; + +/* + *---------------------------------------------------------------------------- + * Information about commands that is returned by Tcl_GetCommandInfo and + * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based command + * function while proc is a traditional Tcl argc/argv string-based function. + * Tcl_CreateObjCommand and Tcl_CreateCommand ensure that both objProc and + * proc are non-NULL and can be called to execute the command. However, it may + * be faster to call one instead of the other. The member isNativeObjectProc + * is set to 1 if an object-based function was registered by + * Tcl_CreateObjCommand, and to 0 if a string-based function was registered by + * Tcl_CreateCommand. The other function is typically set to a compatibility + * wrapper that does string-to-object or object-to-string argument conversions + * then calls the other function. + */ + +typedef struct Tcl_CmdInfo { + int isNativeObjectProc; /* 1 if objProc was registered by a call to + * Tcl_CreateObjCommand; 0 otherwise. + * Tcl_SetCmdInfo does not modify this + * field. */ + Tcl_ObjCmdProc *objProc; /* Command's object-based function. */ + ClientData objClientData; /* ClientData for object proc. */ + Tcl_CmdProc *proc; /* Command's string-based function. */ + ClientData clientData; /* ClientData for string proc. */ + Tcl_CmdDeleteProc *deleteProc; + /* Function to call when command is + * deleted. */ + ClientData deleteData; /* Value to pass to deleteProc (usually the + * same as clientData). */ + Tcl_Namespace *namespacePtr;/* Points to the namespace that contains this + * command. Note that Tcl_SetCmdInfo will not + * change a command's namespace; use + * TclRenameCommand or Tcl_Eval (of 'rename') + * to do that. */ +} Tcl_CmdInfo; + +/* + *---------------------------------------------------------------------------- + * The structure defined below is used to hold dynamic strings. The only + * fields that clients should use are string and length, accessible via the + * macros Tcl_DStringValue and Tcl_DStringLength. + */ + +#define TCL_DSTRING_STATIC_SIZE 200 +typedef struct Tcl_DString { + char *string; /* Points to beginning of string: either + * staticSpace below or a malloced array. */ + int length; /* Number of non-NULL characters in the + * string. */ + int spaceAvl; /* Total number of bytes available for the + * string and its terminating NULL char. */ + char staticSpace[TCL_DSTRING_STATIC_SIZE]; + /* Space to use in common case where string is + * small. */ +} Tcl_DString; + +#define Tcl_DStringLength(dsPtr) ((dsPtr)->length) +#define Tcl_DStringValue(dsPtr) ((dsPtr)->string) +#define Tcl_DStringTrunc Tcl_DStringSetLength + +/* + * Definitions for the maximum number of digits of precision that may be + * specified in the "tcl_precision" variable, and the number of bytes of + * buffer space required by Tcl_PrintDouble. + */ + +#define TCL_MAX_PREC 17 +#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) + +/* + * Definition for a number of bytes of buffer space sufficient to hold the + * string representation of an integer in base 10 (assuming the existence of + * 64-bit integers). + */ + +#define TCL_INTEGER_SPACE 24 + +/* + * Flag values passed to Tcl_ConvertElement. + * TCL_DONT_USE_BRACES forces it not to enclose the element in braces, but to + * use backslash quoting instead. + * TCL_DONT_QUOTE_HASH disables the default quoting of the '#' character. It + * is safe to leave the hash unquoted when the element is not the first + * element of a list, and this flag can be used by the caller to indicate + * that condition. + */ + +#define TCL_DONT_USE_BRACES 1 +#define TCL_DONT_QUOTE_HASH 8 + +/* + * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow + * abbreviated strings. + */ + +#define TCL_EXACT 1 + +/* + *---------------------------------------------------------------------------- + * Flag values passed to Tcl_RecordAndEval, Tcl_EvalObj, Tcl_EvalObjv. + * WARNING: these bit choices must not conflict with the bit choices for + * evalFlag bits in tclInt.h! + * + * Meanings: + * TCL_NO_EVAL: Just record this command + * TCL_EVAL_GLOBAL: Execute script in global namespace + * TCL_EVAL_DIRECT: Do not compile this script + * TCL_EVAL_INVOKE: Magical Tcl_EvalObjv mode for aliases/ensembles + * o Run in iPtr->lookupNsPtr or global namespace + * o Cut out of error traces + * o Don't reset the flags controlling ensemble + * error message rewriting. + * TCL_CANCEL_UNWIND: Magical Tcl_CancelEval mode that causes the + * stack for the script in progress to be + * completely unwound. + * TCL_EVAL_NOERR: Do no exception reporting at all, just return + * as the caller will report. + */ + +#define TCL_NO_EVAL 0x010000 +#define TCL_EVAL_GLOBAL 0x020000 +#define TCL_EVAL_DIRECT 0x040000 +#define TCL_EVAL_INVOKE 0x080000 +#define TCL_CANCEL_UNWIND 0x100000 +#define TCL_EVAL_NOERR 0x200000 + +/* + * Special freeProc values that may be passed to Tcl_SetResult (see the man + * page for details): + */ + +#define TCL_VOLATILE ((Tcl_FreeProc *) 1) +#define TCL_STATIC ((Tcl_FreeProc *) 0) +#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) + +/* + * Flag values passed to variable-related functions. + * WARNING: these bit choices must not conflict with the bit choice for + * TCL_CANCEL_UNWIND, above. + */ + +#define TCL_GLOBAL_ONLY 1 +#define TCL_NAMESPACE_ONLY 2 +#define TCL_APPEND_VALUE 4 +#define TCL_LIST_ELEMENT 8 +#define TCL_TRACE_READS 0x10 +#define TCL_TRACE_WRITES 0x20 +#define TCL_TRACE_UNSETS 0x40 +#define TCL_TRACE_DESTROYED 0x80 +#define TCL_INTERP_DESTROYED 0x100 +#define TCL_LEAVE_ERR_MSG 0x200 +#define TCL_TRACE_ARRAY 0x800 +#ifndef TCL_REMOVE_OBSOLETE_TRACES +/* Required to support old variable/vdelete/vinfo traces. */ +#define TCL_TRACE_OLD_STYLE 0x1000 +#endif +/* Indicate the semantics of the result of a trace. */ +#define TCL_TRACE_RESULT_DYNAMIC 0x8000 +#define TCL_TRACE_RESULT_OBJECT 0x10000 + +/* + * Flag values for ensemble commands. + */ + +#define TCL_ENSEMBLE_PREFIX 0x02/* Flag value to say whether to allow + * unambiguous prefixes of commands or to + * require exact matches for command names. */ + +/* + * Flag values passed to command-related functions. + */ + +#define TCL_TRACE_RENAME 0x2000 +#define TCL_TRACE_DELETE 0x4000 + +#define TCL_ALLOW_INLINE_COMPILATION 0x20000 + +/* + * The TCL_PARSE_PART1 flag is deprecated and has no effect. The part1 is now + * always parsed whenever the part2 is NULL. (This is to avoid a common error + * when converting code to use the new object based APIs and forgetting to + * give the flag) + */ + +#ifndef TCL_NO_DEPRECATED +# define TCL_PARSE_PART1 0x400 +#endif + +/* + * Types for linked variables: + */ + +#define TCL_LINK_INT 1 +#define TCL_LINK_DOUBLE 2 +#define TCL_LINK_BOOLEAN 3 +#define TCL_LINK_STRING 4 +#define TCL_LINK_WIDE_INT 5 +#define TCL_LINK_CHAR 6 +#define TCL_LINK_UCHAR 7 +#define TCL_LINK_SHORT 8 +#define TCL_LINK_USHORT 9 +#define TCL_LINK_UINT 10 +#define TCL_LINK_LONG 11 +#define TCL_LINK_ULONG 12 +#define TCL_LINK_FLOAT 13 +#define TCL_LINK_WIDE_UINT 14 +#define TCL_LINK_READ_ONLY 0x80 + +/* + *---------------------------------------------------------------------------- + * Forward declarations of Tcl_HashTable and related types. + */ + +typedef struct Tcl_HashKeyType Tcl_HashKeyType; +typedef struct Tcl_HashTable Tcl_HashTable; +typedef struct Tcl_HashEntry Tcl_HashEntry; + +typedef unsigned (Tcl_HashKeyProc) (Tcl_HashTable *tablePtr, void *keyPtr); +typedef int (Tcl_CompareHashKeysProc) (void *keyPtr, Tcl_HashEntry *hPtr); +typedef Tcl_HashEntry * (Tcl_AllocHashEntryProc) (Tcl_HashTable *tablePtr, + void *keyPtr); +typedef void (Tcl_FreeHashEntryProc) (Tcl_HashEntry *hPtr); + +/* + * This flag controls whether the hash table stores the hash of a key, or + * recalculates it. There should be no reason for turning this flag off as it + * is completely binary and source compatible unless you directly access the + * bucketPtr member of the Tcl_HashTableEntry structure. This member has been + * removed and the space used to store the hash value. + */ + +#ifndef TCL_HASH_KEY_STORE_HASH +# define TCL_HASH_KEY_STORE_HASH 1 +#endif + +/* + * Structure definition for an entry in a hash table. No-one outside Tcl + * should access any of these fields directly; use the macros defined below. + */ + +struct Tcl_HashEntry { + Tcl_HashEntry *nextPtr; /* Pointer to next entry in this hash bucket, + * or NULL for end of chain. */ + Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */ +#if TCL_HASH_KEY_STORE_HASH + void *hash; /* Hash value, stored as pointer to ensure + * that the offsets of the fields in this + * structure are not changed. */ +#else + Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to first + * entry in this entry's chain: used for + * deleting the entry. */ +#endif + ClientData clientData; /* Application stores something here with + * Tcl_SetHashValue. */ + union { /* Key has one of these forms: */ + char *oneWordValue; /* One-word value for key. */ + Tcl_Obj *objPtr; /* Tcl_Obj * key value. */ + int words[1]; /* Multiple integer words for key. The actual + * size will be as large as necessary for this + * table's keys. */ + char string[1]; /* String for key. The actual size will be as + * large as needed to hold the key. */ + } key; /* MUST BE LAST FIELD IN RECORD!! */ +}; + +/* + * Flags used in Tcl_HashKeyType. + * + * TCL_HASH_KEY_RANDOMIZE_HASH - + * There are some things, pointers for example + * which don't hash well because they do not use + * the lower bits. If this flag is set then the + * hash table will attempt to rectify this by + * randomising the bits and then using the upper + * N bits as the index into the table. + * TCL_HASH_KEY_SYSTEM_HASH - If this flag is set then all memory internally + * allocated for the hash table that is not for an + * entry will use the system heap. + */ + +#define TCL_HASH_KEY_RANDOMIZE_HASH 0x1 +#define TCL_HASH_KEY_SYSTEM_HASH 0x2 + +/* + * Structure definition for the methods associated with a hash table key type. + */ + +#define TCL_HASH_KEY_TYPE_VERSION 1 +struct Tcl_HashKeyType { + int version; /* Version of the table. If this structure is + * extended in future then the version can be + * used to distinguish between different + * structures. */ + int flags; /* Flags, see above for details. */ + Tcl_HashKeyProc *hashKeyProc; + /* Calculates a hash value for the key. If + * this is NULL then the pointer itself is + * used as a hash value. */ + Tcl_CompareHashKeysProc *compareKeysProc; + /* Compares two keys and returns zero if they + * do not match, and non-zero if they do. If + * this is NULL then the pointers are + * compared. */ + Tcl_AllocHashEntryProc *allocEntryProc; + /* Called to allocate memory for a new entry, + * i.e. if the key is a string then this could + * allocate a single block which contains + * enough space for both the entry and the + * string. Only the key field of the allocated + * Tcl_HashEntry structure needs to be filled + * in. If something else needs to be done to + * the key, i.e. incrementing a reference + * count then that should be done by this + * function. If this is NULL then Tcl_Alloc is + * used to allocate enough space for a + * Tcl_HashEntry and the key pointer is + * assigned to key.oneWordValue. */ + Tcl_FreeHashEntryProc *freeEntryProc; + /* Called to free memory associated with an + * entry. If something else needs to be done + * to the key, i.e. decrementing a reference + * count then that should be done by this + * function. If this is NULL then Tcl_Free is + * used to free the Tcl_HashEntry. */ +}; + +/* + * Structure definition for a hash table. Must be in tcl.h so clients can + * allocate space for these structures, but clients should never access any + * fields in this structure. + */ + +#define TCL_SMALL_HASH_TABLE 4 +struct Tcl_HashTable { + Tcl_HashEntry **buckets; /* Pointer to bucket array. Each element + * points to first entry in bucket's hash + * chain, or NULL. */ + Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; + /* Bucket array used for small tables (to + * avoid mallocs and frees). */ + int numBuckets; /* Total number of buckets allocated at + * **bucketPtr. */ + int numEntries; /* Total number of entries present in + * table. */ + int rebuildSize; /* Enlarge table when numEntries gets to be + * this large. */ + int downShift; /* Shift count used in hashing function. + * Designed to use high-order bits of + * randomized keys. */ + int mask; /* Mask value used in hashing function. */ + int keyType; /* Type of keys used in this table. It's + * either TCL_CUSTOM_KEYS, TCL_STRING_KEYS, + * TCL_ONE_WORD_KEYS, or an integer giving the + * number of ints that is the size of the + * key. */ + Tcl_HashEntry *(*findProc) (Tcl_HashTable *tablePtr, const char *key); + Tcl_HashEntry *(*createProc) (Tcl_HashTable *tablePtr, const char *key, + int *newPtr); + const Tcl_HashKeyType *typePtr; + /* Type of the keys used in the + * Tcl_HashTable. */ +}; + +/* + * Structure definition for information used to keep track of searches through + * hash tables: + */ + +typedef struct Tcl_HashSearch { + Tcl_HashTable *tablePtr; /* Table being searched. */ + int nextIndex; /* Index of next bucket to be enumerated after + * present one. */ + Tcl_HashEntry *nextEntryPtr;/* Next entry to be enumerated in the current + * bucket. */ +} Tcl_HashSearch; + +/* + * Acceptable key types for hash tables: + * + * TCL_STRING_KEYS: The keys are strings, they are copied into the + * entry. + * TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored + * in the entry. + * TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copied + * into the entry. + * TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary types, the + * pointer is stored in the entry. + * + * While maintaining binary compatability the above have to be distinct values + * as they are used to differentiate between old versions of the hash table + * which don't have a typePtr and new ones which do. Once binary compatability + * is discarded in favour of making more wide spread changes TCL_STRING_KEYS + * can be the same as TCL_CUSTOM_TYPE_KEYS, and TCL_ONE_WORD_KEYS can be the + * same as TCL_CUSTOM_PTR_KEYS because they simply determine how the key is + * accessed from the entry and not the behaviour. + */ + +#define TCL_STRING_KEYS (0) +#define TCL_ONE_WORD_KEYS (1) +#define TCL_CUSTOM_TYPE_KEYS (-2) +#define TCL_CUSTOM_PTR_KEYS (-1) + +/* + * Structure definition for information used to keep track of searches through + * dictionaries. These fields should not be accessed by code outside + * tclDictObj.c + */ + +typedef struct { + void *next; /* Search position for underlying hash + * table. */ + int epoch; /* Epoch marker for dictionary being searched, + * or -1 if search has terminated. */ + Tcl_Dict dictionaryPtr; /* Reference to dictionary being searched. */ +} Tcl_DictSearch; + +/* + *---------------------------------------------------------------------------- + * Flag values to pass to Tcl_DoOneEvent to disable searches for some kinds of + * events: + */ + +#define TCL_DONT_WAIT (1<<1) +#define TCL_WINDOW_EVENTS (1<<2) +#define TCL_FILE_EVENTS (1<<3) +#define TCL_TIMER_EVENTS (1<<4) +#define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */ +#define TCL_ALL_EVENTS (~TCL_DONT_WAIT) + +/* + * The following structure defines a generic event for the Tcl event system. + * These are the things that are queued in calls to Tcl_QueueEvent and + * serviced later by Tcl_DoOneEvent. There can be many different kinds of + * events with different fields, corresponding to window events, timer events, + * etc. The structure for a particular event consists of a Tcl_Event header + * followed by additional information specific to that event. + */ + +struct Tcl_Event { + Tcl_EventProc *proc; /* Function to call to service this event. */ + struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */ +}; + +/* + * Positions to pass to Tcl_QueueEvent: + */ + +typedef enum { + TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK +} Tcl_QueuePosition; + +/* + * Values to pass to Tcl_SetServiceMode to specify the behavior of notifier + * event routines. + */ + +#define TCL_SERVICE_NONE 0 +#define TCL_SERVICE_ALL 1 + +/* + * The following structure keeps is used to hold a time value, either as an + * absolute time (the number of seconds from the epoch) or as an elapsed time. + * On Unix systems the epoch is Midnight Jan 1, 1970 GMT. + */ + +typedef struct Tcl_Time { + long sec; /* Seconds. */ + long usec; /* Microseconds. */ +} Tcl_Time; + +typedef void (Tcl_SetTimerProc) (CONST86 Tcl_Time *timePtr); +typedef int (Tcl_WaitForEventProc) (CONST86 Tcl_Time *timePtr); + +/* + * TIP #233 (Virtualized Time) + */ + +typedef void (Tcl_GetTimeProc) (Tcl_Time *timebuf, ClientData clientData); +typedef void (Tcl_ScaleTimeProc) (Tcl_Time *timebuf, ClientData clientData); + +/* + *---------------------------------------------------------------------------- + * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler to + * indicate what sorts of events are of interest: + */ + +#define TCL_READABLE (1<<1) +#define TCL_WRITABLE (1<<2) +#define TCL_EXCEPTION (1<<3) + +/* + * Flag values to pass to Tcl_OpenCommandChannel to indicate the disposition + * of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, are also used in + * Tcl_GetStdChannel. + */ + +#define TCL_STDIN (1<<1) +#define TCL_STDOUT (1<<2) +#define TCL_STDERR (1<<3) +#define TCL_ENFORCE_MODE (1<<4) + +/* + * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel + * should be closed. + */ + +#define TCL_CLOSE_READ (1<<1) +#define TCL_CLOSE_WRITE (1<<2) + +/* + * Value to use as the closeProc for a channel that supports the close2Proc + * interface. + */ + +#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *) 1) + +/* + * Channel version tag. This was introduced in 8.3.2/8.4. + */ + +#define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1) +#define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2) +#define TCL_CHANNEL_VERSION_3 ((Tcl_ChannelTypeVersion) 0x3) +#define TCL_CHANNEL_VERSION_4 ((Tcl_ChannelTypeVersion) 0x4) +#define TCL_CHANNEL_VERSION_5 ((Tcl_ChannelTypeVersion) 0x5) + +/* + * TIP #218: Channel Actions, Ids for Tcl_DriverThreadActionProc. + */ + +#define TCL_CHANNEL_THREAD_INSERT (0) +#define TCL_CHANNEL_THREAD_REMOVE (1) + +/* + * Typedefs for the various operations in a channel type: + */ + +typedef int (Tcl_DriverBlockModeProc) (ClientData instanceData, int mode); +typedef int (Tcl_DriverCloseProc) (ClientData instanceData, + Tcl_Interp *interp); +typedef int (Tcl_DriverClose2Proc) (ClientData instanceData, + Tcl_Interp *interp, int flags); +typedef int (Tcl_DriverInputProc) (ClientData instanceData, char *buf, + int toRead, int *errorCodePtr); +typedef int (Tcl_DriverOutputProc) (ClientData instanceData, + CONST84 char *buf, int toWrite, int *errorCodePtr); +typedef int (Tcl_DriverSeekProc) (ClientData instanceData, long offset, + int mode, int *errorCodePtr); +typedef int (Tcl_DriverSetOptionProc) (ClientData instanceData, + Tcl_Interp *interp, const char *optionName, + const char *value); +typedef int (Tcl_DriverGetOptionProc) (ClientData instanceData, + Tcl_Interp *interp, CONST84 char *optionName, + Tcl_DString *dsPtr); +typedef void (Tcl_DriverWatchProc) (ClientData instanceData, int mask); +typedef int (Tcl_DriverGetHandleProc) (ClientData instanceData, + int direction, ClientData *handlePtr); +typedef int (Tcl_DriverFlushProc) (ClientData instanceData); +typedef int (Tcl_DriverHandlerProc) (ClientData instanceData, + int interestMask); +typedef Tcl_WideInt (Tcl_DriverWideSeekProc) (ClientData instanceData, + Tcl_WideInt offset, int mode, int *errorCodePtr); +/* + * TIP #218, Channel Thread Actions + */ +typedef void (Tcl_DriverThreadActionProc) (ClientData instanceData, + int action); +/* + * TIP #208, File Truncation (etc.) + */ +typedef int (Tcl_DriverTruncateProc) (ClientData instanceData, + Tcl_WideInt length); + +/* + * struct Tcl_ChannelType: + * + * One such structure exists for each type (kind) of channel. It collects + * together in one place all the functions that are part of the specific + * channel type. + * + * It is recommend that the Tcl_Channel* functions are used to access elements + * of this structure, instead of direct accessing. + */ + +typedef struct Tcl_ChannelType { + const char *typeName; /* The name of the channel type in Tcl + * commands. This storage is owned by channel + * type. */ + Tcl_ChannelTypeVersion version; + /* Version of the channel type. */ + Tcl_DriverCloseProc *closeProc; + /* Function to call to close the channel, or + * TCL_CLOSE2PROC if the close2Proc should be + * used instead. */ + Tcl_DriverInputProc *inputProc; + /* Function to call for input on channel. */ + Tcl_DriverOutputProc *outputProc; + /* Function to call for output on channel. */ + Tcl_DriverSeekProc *seekProc; + /* Function to call to seek on the channel. + * May be NULL. */ + Tcl_DriverSetOptionProc *setOptionProc; + /* Set an option on a channel. */ + Tcl_DriverGetOptionProc *getOptionProc; + /* Get an option from a channel. */ + Tcl_DriverWatchProc *watchProc; + /* Set up the notifier to watch for events on + * this channel. */ + Tcl_DriverGetHandleProc *getHandleProc; + /* Get an OS handle from the channel or NULL + * if not supported. */ + Tcl_DriverClose2Proc *close2Proc; + /* Function to call to close the channel if + * the device supports closing the read & + * write sides independently. */ + Tcl_DriverBlockModeProc *blockModeProc; + /* Set blocking mode for the raw channel. May + * be NULL. */ + /* + * Only valid in TCL_CHANNEL_VERSION_2 channels or later. + */ + Tcl_DriverFlushProc *flushProc; + /* Function to call to flush a channel. May be + * NULL. */ + Tcl_DriverHandlerProc *handlerProc; + /* Function to call to handle a channel event. + * This will be passed up the stacked channel + * chain. */ + /* + * Only valid in TCL_CHANNEL_VERSION_3 channels or later. + */ + Tcl_DriverWideSeekProc *wideSeekProc; + /* Function to call to seek on the channel + * which can handle 64-bit offsets. May be + * NULL, and must be NULL if seekProc is + * NULL. */ + /* + * Only valid in TCL_CHANNEL_VERSION_4 channels or later. + * TIP #218, Channel Thread Actions. + */ + Tcl_DriverThreadActionProc *threadActionProc; + /* Function to call to notify the driver of + * thread specific activity for a channel. May + * be NULL. */ + /* + * Only valid in TCL_CHANNEL_VERSION_5 channels or later. + * TIP #208, File Truncation. + */ + Tcl_DriverTruncateProc *truncateProc; + /* Function to call to truncate the underlying + * file to a particular length. May be NULL if + * the channel does not support truncation. */ +} Tcl_ChannelType; + +/* + * The following flags determine whether the blockModeProc above should set + * the channel into blocking or nonblocking mode. They are passed as arguments + * to the blockModeProc function in the above structure. + */ + +#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. */ +#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking + * mode. */ + +/* + *---------------------------------------------------------------------------- + * Enum for different types of file paths. + */ + +typedef enum Tcl_PathType { + TCL_PATH_ABSOLUTE, + TCL_PATH_RELATIVE, + TCL_PATH_VOLUME_RELATIVE +} Tcl_PathType; + +/* + * The following structure is used to pass glob type data amongst the various + * glob routines and Tcl_FSMatchInDirectory. + */ + +typedef struct Tcl_GlobTypeData { + int type; /* Corresponds to bcdpfls as in 'find -t'. */ + int perm; /* Corresponds to file permissions. */ + Tcl_Obj *macType; /* Acceptable Mac type. */ + Tcl_Obj *macCreator; /* Acceptable Mac creator. */ +} Tcl_GlobTypeData; + +/* + * Type and permission definitions for glob command. + */ + +#define TCL_GLOB_TYPE_BLOCK (1<<0) +#define TCL_GLOB_TYPE_CHAR (1<<1) +#define TCL_GLOB_TYPE_DIR (1<<2) +#define TCL_GLOB_TYPE_PIPE (1<<3) +#define TCL_GLOB_TYPE_FILE (1<<4) +#define TCL_GLOB_TYPE_LINK (1<<5) +#define TCL_GLOB_TYPE_SOCK (1<<6) +#define TCL_GLOB_TYPE_MOUNT (1<<7) + +#define TCL_GLOB_PERM_RONLY (1<<0) +#define TCL_GLOB_PERM_HIDDEN (1<<1) +#define TCL_GLOB_PERM_R (1<<2) +#define TCL_GLOB_PERM_W (1<<3) +#define TCL_GLOB_PERM_X (1<<4) + +/* + * Flags for the unload callback function. + */ + +#define TCL_UNLOAD_DETACH_FROM_INTERPRETER (1<<0) +#define TCL_UNLOAD_DETACH_FROM_PROCESS (1<<1) + +/* + * Typedefs for the various filesystem operations: + */ + +typedef int (Tcl_FSStatProc) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); +typedef int (Tcl_FSAccessProc) (Tcl_Obj *pathPtr, int mode); +typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) (Tcl_Interp *interp, + Tcl_Obj *pathPtr, int mode, int permissions); +typedef int (Tcl_FSMatchInDirectoryProc) (Tcl_Interp *interp, Tcl_Obj *result, + Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); +typedef Tcl_Obj * (Tcl_FSGetCwdProc) (Tcl_Interp *interp); +typedef int (Tcl_FSChdirProc) (Tcl_Obj *pathPtr); +typedef int (Tcl_FSLstatProc) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); +typedef int (Tcl_FSCreateDirectoryProc) (Tcl_Obj *pathPtr); +typedef int (Tcl_FSDeleteFileProc) (Tcl_Obj *pathPtr); +typedef int (Tcl_FSCopyDirectoryProc) (Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); +typedef int (Tcl_FSCopyFileProc) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); +typedef int (Tcl_FSRemoveDirectoryProc) (Tcl_Obj *pathPtr, int recursive, + Tcl_Obj **errorPtr); +typedef int (Tcl_FSRenameFileProc) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); +typedef void (Tcl_FSUnloadFileProc) (Tcl_LoadHandle loadHandle); +typedef Tcl_Obj * (Tcl_FSListVolumesProc) (void); +/* We have to declare the utime structure here. */ +struct utimbuf; +typedef int (Tcl_FSUtimeProc) (Tcl_Obj *pathPtr, struct utimbuf *tval); +typedef int (Tcl_FSNormalizePathProc) (Tcl_Interp *interp, Tcl_Obj *pathPtr, + int nextCheckpoint); +typedef int (Tcl_FSFileAttrsGetProc) (Tcl_Interp *interp, int index, + Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); +typedef const char *CONST86 * (Tcl_FSFileAttrStringsProc) (Tcl_Obj *pathPtr, + Tcl_Obj **objPtrRef); +typedef int (Tcl_FSFileAttrsSetProc) (Tcl_Interp *interp, int index, + Tcl_Obj *pathPtr, Tcl_Obj *objPtr); +typedef Tcl_Obj * (Tcl_FSLinkProc) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, + int linkType); +typedef int (Tcl_FSLoadFileProc) (Tcl_Interp *interp, Tcl_Obj *pathPtr, + Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr); +typedef int (Tcl_FSPathInFilesystemProc) (Tcl_Obj *pathPtr, + ClientData *clientDataPtr); +typedef Tcl_Obj * (Tcl_FSFilesystemPathTypeProc) (Tcl_Obj *pathPtr); +typedef Tcl_Obj * (Tcl_FSFilesystemSeparatorProc) (Tcl_Obj *pathPtr); +typedef void (Tcl_FSFreeInternalRepProc) (ClientData clientData); +typedef ClientData (Tcl_FSDupInternalRepProc) (ClientData clientData); +typedef Tcl_Obj * (Tcl_FSInternalToNormalizedProc) (ClientData clientData); +typedef ClientData (Tcl_FSCreateInternalRepProc) (Tcl_Obj *pathPtr); + +typedef struct Tcl_FSVersion_ *Tcl_FSVersion; + +/* + *---------------------------------------------------------------------------- + * Data structures related to hooking into the filesystem + */ + +/* + * Filesystem version tag. This was introduced in 8.4. + */ + +#define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1) + +/* + * struct Tcl_Filesystem: + * + * One such structure exists for each type (kind) of filesystem. It collects + * together in one place all the functions that are part of the specific + * filesystem. Tcl always accesses the filesystem through one of these + * structures. + * + * Not all entries need be non-NULL; any which are NULL are simply ignored. + * However, a complete filesystem should provide all of these functions. The + * explanations in the structure show the importance of each function. + */ + +typedef struct Tcl_Filesystem { + const char *typeName; /* The name of the filesystem. */ + int structureLength; /* Length of this structure, so future binary + * compatibility can be assured. */ + Tcl_FSVersion version; /* Version of the filesystem type. */ + Tcl_FSPathInFilesystemProc *pathInFilesystemProc; + /* Function to check whether a path is in this + * filesystem. This is the most important + * filesystem function. */ + Tcl_FSDupInternalRepProc *dupInternalRepProc; + /* Function to duplicate internal fs rep. May + * be NULL (but then fs is less efficient). */ + Tcl_FSFreeInternalRepProc *freeInternalRepProc; + /* Function to free internal fs rep. Must be + * implemented if internal representations + * need freeing, otherwise it can be NULL. */ + Tcl_FSInternalToNormalizedProc *internalToNormalizedProc; + /* Function to convert internal representation + * to a normalized path. Only required if the + * fs creates pure path objects with no + * string/path representation. */ + Tcl_FSCreateInternalRepProc *createInternalRepProc; + /* Function to create a filesystem-specific + * internal representation. May be NULL if + * paths have no internal representation, or + * if the Tcl_FSPathInFilesystemProc for this + * filesystem always immediately creates an + * internal representation for paths it + * accepts. */ + Tcl_FSNormalizePathProc *normalizePathProc; + /* Function to normalize a path. Should be + * implemented for all filesystems which can + * have multiple string representations for + * the same path object. */ + Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc; + /* Function to determine the type of a path in + * this filesystem. May be NULL. */ + Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc; + /* Function to return the separator + * character(s) for this filesystem. Must be + * implemented. */ + Tcl_FSStatProc *statProc; /* Function to process a 'Tcl_FSStat()' call. + * Must be implemented for any reasonable + * filesystem. */ + Tcl_FSAccessProc *accessProc; + /* Function to process a 'Tcl_FSAccess()' + * call. Must be implemented for any + * reasonable filesystem. */ + Tcl_FSOpenFileChannelProc *openFileChannelProc; + /* Function to process a + * 'Tcl_FSOpenFileChannel()' call. Must be + * implemented for any reasonable + * filesystem. */ + Tcl_FSMatchInDirectoryProc *matchInDirectoryProc; + /* Function to process a + * 'Tcl_FSMatchInDirectory()'. If not + * implemented, then glob and recursive copy + * functionality will be lacking in the + * filesystem. */ + Tcl_FSUtimeProc *utimeProc; /* Function to process a 'Tcl_FSUtime()' call. + * Required to allow setting (not reading) of + * times with 'file mtime', 'file atime' and + * the open-r/open-w/fcopy implementation of + * 'file copy'. */ + Tcl_FSLinkProc *linkProc; /* Function to process a 'Tcl_FSLink()' call. + * Should be implemented only if the + * filesystem supports links (reading or + * creating). */ + Tcl_FSListVolumesProc *listVolumesProc; + /* Function to list any filesystem volumes + * added by this filesystem. Should be + * implemented only if the filesystem adds + * volumes at the head of the filesystem. */ + Tcl_FSFileAttrStringsProc *fileAttrStringsProc; + /* Function to list all attributes strings + * which are valid for this filesystem. If not + * implemented the filesystem will not support + * the 'file attributes' command. This allows + * arbitrary additional information to be + * attached to files in the filesystem. */ + Tcl_FSFileAttrsGetProc *fileAttrsGetProc; + /* Function to process a + * 'Tcl_FSFileAttrsGet()' call, used by 'file + * attributes'. */ + Tcl_FSFileAttrsSetProc *fileAttrsSetProc; + /* Function to process a + * 'Tcl_FSFileAttrsSet()' call, used by 'file + * attributes'. */ + Tcl_FSCreateDirectoryProc *createDirectoryProc; + /* Function to process a + * 'Tcl_FSCreateDirectory()' call. Should be + * implemented unless the FS is read-only. */ + Tcl_FSRemoveDirectoryProc *removeDirectoryProc; + /* Function to process a + * 'Tcl_FSRemoveDirectory()' call. Should be + * implemented unless the FS is read-only. */ + Tcl_FSDeleteFileProc *deleteFileProc; + /* Function to process a 'Tcl_FSDeleteFile()' + * call. Should be implemented unless the FS + * is read-only. */ + Tcl_FSCopyFileProc *copyFileProc; + /* Function to process a 'Tcl_FSCopyFile()' + * call. If not implemented Tcl will fall back + * on open-r, open-w and fcopy as a copying + * mechanism, for copying actions initiated in + * Tcl (not C). */ + Tcl_FSRenameFileProc *renameFileProc; + /* Function to process a 'Tcl_FSRenameFile()' + * call. If not implemented, Tcl will fall + * back on a copy and delete mechanism, for + * rename actions initiated in Tcl (not C). */ + Tcl_FSCopyDirectoryProc *copyDirectoryProc; + /* Function to process a + * 'Tcl_FSCopyDirectory()' call. If not + * implemented, Tcl will fall back on a + * recursive create-dir, file copy mechanism, + * for copying actions initiated in Tcl (not + * C). */ + Tcl_FSLstatProc *lstatProc; /* Function to process a 'Tcl_FSLstat()' call. + * If not implemented, Tcl will attempt to use + * the 'statProc' defined above instead. */ + Tcl_FSLoadFileProc *loadFileProc; + /* Function to process a 'Tcl_FSLoadFile()' + * call. If not implemented, Tcl will fall + * back on a copy to native-temp followed by a + * Tcl_FSLoadFile on that temporary copy. */ + Tcl_FSGetCwdProc *getCwdProc; + /* Function to process a 'Tcl_FSGetCwd()' + * call. Most filesystems need not implement + * this. It will usually only be called once, + * if 'getcwd' is called before 'chdir'. May + * be NULL. */ + Tcl_FSChdirProc *chdirProc; /* Function to process a 'Tcl_FSChdir()' call. + * If filesystems do not implement this, it + * will be emulated by a series of directory + * access checks. Otherwise, virtual + * filesystems which do implement it need only + * respond with a positive return result if + * the dirName is a valid directory in their + * filesystem. They need not remember the + * result, since that will be automatically + * remembered for use by GetCwd. Real + * filesystems should carry out the correct + * action (i.e. call the correct system + * 'chdir' api). If not implemented, then 'cd' + * and 'pwd' will fail inside the + * filesystem. */ +} Tcl_Filesystem; + +/* + * The following definitions are used as values for the 'linkAction' flag to + * Tcl_FSLink, or the linkProc of any filesystem. Any combination of flags can + * be given. For link creation, the linkProc should create a link which + * matches any of the types given. + * + * TCL_CREATE_SYMBOLIC_LINK - Create a symbolic or soft link. + * TCL_CREATE_HARD_LINK - Create a hard link. + */ + +#define TCL_CREATE_SYMBOLIC_LINK 0x01 +#define TCL_CREATE_HARD_LINK 0x02 + +/* + *---------------------------------------------------------------------------- + * The following structure represents the Notifier functions that you can + * override with the Tcl_SetNotifier call. + */ + +typedef struct Tcl_NotifierProcs { + Tcl_SetTimerProc *setTimerProc; + Tcl_WaitForEventProc *waitForEventProc; + Tcl_CreateFileHandlerProc *createFileHandlerProc; + Tcl_DeleteFileHandlerProc *deleteFileHandlerProc; + Tcl_InitNotifierProc *initNotifierProc; + Tcl_FinalizeNotifierProc *finalizeNotifierProc; + Tcl_AlertNotifierProc *alertNotifierProc; + Tcl_ServiceModeHookProc *serviceModeHookProc; +} Tcl_NotifierProcs; + +/* + *---------------------------------------------------------------------------- + * The following data structures and declarations are for the new Tcl parser. + * + * For each word of a command, and for each piece of a word such as a variable + * reference, one of the following structures is created to describe the + * token. + */ + +typedef struct Tcl_Token { + int type; /* Type of token, such as TCL_TOKEN_WORD; see + * below for valid types. */ + const char *start; /* First character in token. */ + int size; /* Number of bytes in token. */ + int numComponents; /* If this token is composed of other tokens, + * this field tells how many of them there are + * (including components of components, etc.). + * The component tokens immediately follow + * this one. */ +} Tcl_Token; + +/* + * Type values defined for Tcl_Token structures. These values are defined as + * mask bits so that it's easy to check for collections of types. + * + * TCL_TOKEN_WORD - The token describes one word of a command, + * from the first non-blank character of the word + * (which may be " or {) up to but not including + * the space, semicolon, or bracket that + * terminates the word. NumComponents counts the + * total number of sub-tokens that make up the + * word. This includes, for example, sub-tokens + * of TCL_TOKEN_VARIABLE tokens. + * TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD except + * that the word is guaranteed to consist of a + * single TCL_TOKEN_TEXT sub-token. + * TCL_TOKEN_TEXT - The token describes a range of literal text + * that is part of a word. NumComponents is + * always 0. + * TCL_TOKEN_BS - The token describes a backslash sequence that + * must be collapsed. NumComponents is always 0. + * TCL_TOKEN_COMMAND - The token describes a command whose result + * must be substituted into the word. The token + * includes the enclosing brackets. NumComponents + * is always 0. + * TCL_TOKEN_VARIABLE - The token describes a variable substitution, + * including the dollar sign, variable name, and + * array index (if there is one) up through the + * right parentheses. NumComponents tells how + * many additional tokens follow to represent the + * variable name. The first token will be a + * TCL_TOKEN_TEXT token that describes the + * variable name. If the variable is an array + * reference then there will be one or more + * additional tokens, of type TCL_TOKEN_TEXT, + * TCL_TOKEN_BS, TCL_TOKEN_COMMAND, and + * TCL_TOKEN_VARIABLE, that describe the array + * index; numComponents counts the total number + * of nested tokens that make up the variable + * reference, including sub-tokens of + * TCL_TOKEN_VARIABLE tokens. + * TCL_TOKEN_SUB_EXPR - The token describes one subexpression of an + * expression, from the first non-blank character + * of the subexpression up to but not including + * the space, brace, or bracket that terminates + * the subexpression. NumComponents counts the + * total number of following subtokens that make + * up the subexpression; this includes all + * subtokens for any nested TCL_TOKEN_SUB_EXPR + * tokens. For example, a numeric value used as a + * primitive operand is described by a + * TCL_TOKEN_SUB_EXPR token followed by a + * TCL_TOKEN_TEXT token. A binary subexpression + * is described by a TCL_TOKEN_SUB_EXPR token + * followed by the TCL_TOKEN_OPERATOR token for + * the operator, then TCL_TOKEN_SUB_EXPR tokens + * for the left then the right operands. + * TCL_TOKEN_OPERATOR - The token describes one expression operator. + * An operator might be the name of a math + * function such as "abs". A TCL_TOKEN_OPERATOR + * token is always preceeded by one + * TCL_TOKEN_SUB_EXPR token for the operator's + * subexpression, and is followed by zero or more + * TCL_TOKEN_SUB_EXPR tokens for the operator's + * operands. NumComponents is always 0. + * TCL_TOKEN_EXPAND_WORD - This token is just like TCL_TOKEN_WORD except + * that it marks a word that began with the + * literal character prefix "{*}". This word is + * marked to be expanded - that is, broken into + * words after substitution is complete. + */ + +#define TCL_TOKEN_WORD 1 +#define TCL_TOKEN_SIMPLE_WORD 2 +#define TCL_TOKEN_TEXT 4 +#define TCL_TOKEN_BS 8 +#define TCL_TOKEN_COMMAND 16 +#define TCL_TOKEN_VARIABLE 32 +#define TCL_TOKEN_SUB_EXPR 64 +#define TCL_TOKEN_OPERATOR 128 +#define TCL_TOKEN_EXPAND_WORD 256 + +/* + * Parsing error types. On any parsing error, one of these values will be + * stored in the error field of the Tcl_Parse structure defined below. + */ + +#define TCL_PARSE_SUCCESS 0 +#define TCL_PARSE_QUOTE_EXTRA 1 +#define TCL_PARSE_BRACE_EXTRA 2 +#define TCL_PARSE_MISSING_BRACE 3 +#define TCL_PARSE_MISSING_BRACKET 4 +#define TCL_PARSE_MISSING_PAREN 5 +#define TCL_PARSE_MISSING_QUOTE 6 +#define TCL_PARSE_MISSING_VAR_BRACE 7 +#define TCL_PARSE_SYNTAX 8 +#define TCL_PARSE_BAD_NUMBER 9 + +/* + * A structure of the following type is filled in by Tcl_ParseCommand. It + * describes a single command parsed from an input string. + */ + +#define NUM_STATIC_TOKENS 20 + +typedef struct Tcl_Parse { + const char *commentStart; /* Pointer to # that begins the first of one + * or more comments preceding the command. */ + int commentSize; /* Number of bytes in comments (up through + * newline character that terminates the last + * comment). If there were no comments, this + * field is 0. */ + const char *commandStart; /* First character in first word of + * command. */ + int commandSize; /* Number of bytes in command, including first + * character of first word, up through the + * terminating newline, close bracket, or + * semicolon. */ + int numWords; /* Total number of words in command. May be + * 0. */ + Tcl_Token *tokenPtr; /* Pointer to first token representing the + * words of the command. Initially points to + * staticTokens, but may change to point to + * malloc-ed space if command exceeds space in + * staticTokens. */ + int numTokens; /* Total number of tokens in command. */ + int tokensAvailable; /* Total number of tokens available at + * *tokenPtr. */ + int errorType; /* One of the parsing error types defined + * above. */ + + /* + * The fields below are intended only for the private use of the parser. + * They should not be used by functions that invoke Tcl_ParseCommand. + */ + + const char *string; /* The original command string passed to + * Tcl_ParseCommand. */ + const char *end; /* Points to the character just after the last + * one in the command string. */ + Tcl_Interp *interp; /* Interpreter to use for error reporting, or + * NULL. */ + const char *term; /* Points to character in string that + * terminated most recent token. Filled in by + * ParseTokens. If an error occurs, points to + * beginning of region where the error + * occurred (e.g. the open brace if the close + * brace is missing). */ + int incomplete; /* This field is set to 1 by Tcl_ParseCommand + * if the command appears to be incomplete. + * This information is used by + * Tcl_CommandComplete. */ + Tcl_Token staticTokens[NUM_STATIC_TOKENS]; + /* Initial space for tokens for command. This + * space should be large enough to accommodate + * most commands; dynamic space is allocated + * for very large commands that don't fit + * here. */ +} Tcl_Parse; + +/* + *---------------------------------------------------------------------------- + * The following structure represents a user-defined encoding. It collects + * together all the functions that are used by the specific encoding. + */ + +typedef struct Tcl_EncodingType { + const char *encodingName; /* The name of the encoding, e.g. "euc-jp". + * This name is the unique key for this + * encoding type. */ + Tcl_EncodingConvertProc *toUtfProc; + /* Function to convert from external encoding + * into UTF-8. */ + Tcl_EncodingConvertProc *fromUtfProc; + /* Function to convert from UTF-8 into + * external encoding. */ + Tcl_EncodingFreeProc *freeProc; + /* If non-NULL, function to call when this + * encoding is deleted. */ + ClientData clientData; /* Arbitrary value associated with encoding + * type. Passed to conversion functions. */ + int nullSize; /* Number of zero bytes that signify + * end-of-string in this encoding. This number + * is used to determine the source string + * length when the srcLen argument is + * negative. Must be 1 or 2. */ +} Tcl_EncodingType; + +/* + * The following definitions are used as values for the conversion control + * flags argument when converting text from one character set to another: + * + * TCL_ENCODING_START - Signifies that the source buffer is the first + * block in a (potentially multi-block) input + * stream. Tells the conversion function to reset + * to an initial state and perform any + * initialization that needs to occur before the + * first byte is converted. If the source buffer + * contains the entire input stream to be + * converted, this flag should be set. + * TCL_ENCODING_END - Signifies that the source buffer is the last + * block in a (potentially multi-block) input + * stream. Tells the conversion routine to + * perform any finalization that needs to occur + * after the last byte is converted and then to + * reset to an initial state. If the source + * buffer contains the entire input stream to be + * converted, this flag should be set. + * TCL_ENCODING_STOPONERROR - If set, then the converter will return + * immediately upon encountering an invalid byte + * sequence or a source character that has no + * mapping in the target encoding. If clear, then + * the converter will skip the problem, + * substituting one or more "close" characters in + * the destination buffer and then continue to + * convert the source. + * TCL_ENCODING_NO_TERMINATE - If set, Tcl_ExternalToUtf will not append a + * terminating NUL byte. Knowing that it will + * not need space to do so, it will fill all + * dstLen bytes with encoded UTF-8 content, as + * other circumstances permit. If clear, the + * default behavior is to reserve a byte in + * the dst space for NUL termination, and to + * append the NUL byte. + * TCL_ENCODING_CHAR_LIMIT - If set and dstCharsPtr is not NULL, then + * Tcl_ExternalToUtf takes the initial value + * of *dstCharsPtr is taken as a limit of the + * maximum number of chars to produce in the + * encoded UTF-8 content. Otherwise, the + * number of chars produced is controlled only + * by other limiting factors. + */ + +#define TCL_ENCODING_START 0x01 +#define TCL_ENCODING_END 0x02 +#define TCL_ENCODING_STOPONERROR 0x04 +#define TCL_ENCODING_NO_TERMINATE 0x08 +#define TCL_ENCODING_CHAR_LIMIT 0x10 + +/* + * The following definitions are the error codes returned by the conversion + * routines: + * + * TCL_OK - All characters were converted. + * TCL_CONVERT_NOSPACE - The output buffer would not have been large + * enough for all of the converted data; as many + * characters as could fit were converted though. + * TCL_CONVERT_MULTIBYTE - The last few bytes in the source string were + * the beginning of a multibyte sequence, but + * more bytes were needed to complete this + * sequence. A subsequent call to the conversion + * routine should pass the beginning of this + * unconverted sequence plus additional bytes + * from the source stream to properly convert the + * formerly split-up multibyte sequence. + * TCL_CONVERT_SYNTAX - The source stream contained an invalid + * character sequence. This may occur if the + * input stream has been damaged or if the input + * encoding method was misidentified. This error + * is reported only if TCL_ENCODING_STOPONERROR + * was specified. + * TCL_CONVERT_UNKNOWN - The source string contained a character that + * could not be represented in the target + * encoding. This error is reported only if + * TCL_ENCODING_STOPONERROR was specified. + */ + +#define TCL_CONVERT_MULTIBYTE (-1) +#define TCL_CONVERT_SYNTAX (-2) +#define TCL_CONVERT_UNKNOWN (-3) +#define TCL_CONVERT_NOSPACE (-4) + +/* + * The maximum number of bytes that are necessary to represent a single + * Unicode character in UTF-8. The valid values should be 3, 4 or 6 + * (or perhaps 1 if we want to support a non-unicode enabled core). If 3 or + * 4, then Tcl_UniChar must be 2-bytes in size (UCS-2) (the default). If 6, + * then Tcl_UniChar must be 4-bytes in size (UCS-4). At this time UCS-2 mode + * is the default and recommended mode. UCS-4 is experimental and not + * recommended. It works for the core, but most extensions expect UCS-2. + */ + +#ifndef TCL_UTF_MAX +#define TCL_UTF_MAX 3 +#endif + +/* + * This represents a Unicode character. Any changes to this should also be + * reflected in regcustom.h. + */ + +#if TCL_UTF_MAX > 4 + /* + * unsigned int isn't 100% accurate as it should be a strict 4-byte value + * (perhaps wchar_t). 64-bit systems may have troubles. The size of this + * value must be reflected correctly in regcustom.h and + * in tclEncoding.c. + * XXX: Tcl is currently UCS-2 and planning UTF-16 for the Unicode + * XXX: string rep that Tcl_UniChar represents. Changing the size + * XXX: of Tcl_UniChar is /not/ supported. + */ +typedef unsigned int Tcl_UniChar; +#else +typedef unsigned short Tcl_UniChar; +#endif + +/* + *---------------------------------------------------------------------------- + * TIP #59: The following structure is used in calls 'Tcl_RegisterConfig' to + * provide the system with the embedded configuration data. + */ + +typedef struct Tcl_Config { + const char *key; /* Configuration key to register. ASCII + * encoded, thus UTF-8. */ + const char *value; /* The value associated with the key. System + * encoding. */ +} Tcl_Config; + +/* + *---------------------------------------------------------------------------- + * Flags for TIP#143 limits, detailing which limits are active in an + * interpreter. Used for Tcl_{Add,Remove}LimitHandler type argument. + */ + +#define TCL_LIMIT_COMMANDS 0x01 +#define TCL_LIMIT_TIME 0x02 + +/* + * Structure containing information about a limit handler to be called when a + * command- or time-limit is exceeded by an interpreter. + */ + +typedef void (Tcl_LimitHandlerProc) (ClientData clientData, Tcl_Interp *interp); +typedef void (Tcl_LimitHandlerDeleteProc) (ClientData clientData); + +/* + *---------------------------------------------------------------------------- + * Override definitions for libtommath. + */ + +typedef struct mp_int mp_int; +#define MP_INT_DECLARED +typedef unsigned int mp_digit; +#define MP_DIGIT_DECLARED + +/* + *---------------------------------------------------------------------------- + * Definitions needed for Tcl_ParseArgvObj routines. + * Based on tkArgv.c. + * Modifications from the original are copyright (c) Sam Bromley 2006 + */ + +typedef struct { + int type; /* Indicates the option type; see below. */ + const char *keyStr; /* The key string that flags the option in the + * argv array. */ + void *srcPtr; /* Value to be used in setting dst; usage + * depends on type.*/ + void *dstPtr; /* Address of value to be modified; usage + * depends on type.*/ + const char *helpStr; /* Documentation message describing this + * option. */ + ClientData clientData; /* Word to pass to function callbacks. */ +} Tcl_ArgvInfo; + +/* + * Legal values for the type field of a Tcl_ArgInfo: see the user + * documentation for details. + */ + +#define TCL_ARGV_CONSTANT 15 +#define TCL_ARGV_INT 16 +#define TCL_ARGV_STRING 17 +#define TCL_ARGV_REST 18 +#define TCL_ARGV_FLOAT 19 +#define TCL_ARGV_FUNC 20 +#define TCL_ARGV_GENFUNC 21 +#define TCL_ARGV_HELP 22 +#define TCL_ARGV_END 23 + +/* + * Types of callback functions for the TCL_ARGV_FUNC and TCL_ARGV_GENFUNC + * argument types: + */ + +typedef int (Tcl_ArgvFuncProc)(ClientData clientData, Tcl_Obj *objPtr, + void *dstPtr); +typedef int (Tcl_ArgvGenFuncProc)(ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *const *objv, void *dstPtr); + +/* + * Shorthand for commonly used argTable entries. + */ + +#define TCL_ARGV_AUTO_HELP \ + {TCL_ARGV_HELP, "-help", NULL, NULL, \ + "Print summary of command-line options and abort", NULL} +#define TCL_ARGV_AUTO_REST \ + {TCL_ARGV_REST, "--", NULL, NULL, \ + "Marks the end of the options", NULL} +#define TCL_ARGV_TABLE_END \ + {TCL_ARGV_END, NULL, NULL, NULL, NULL, NULL} + +/* + *---------------------------------------------------------------------------- + * Definitions needed for Tcl_Zlib routines. [TIP #234] + * + * Constants for the format flags describing what sort of data format is + * desired/expected for the Tcl_ZlibDeflate, Tcl_ZlibInflate and + * Tcl_ZlibStreamInit functions. + */ + +#define TCL_ZLIB_FORMAT_RAW 1 +#define TCL_ZLIB_FORMAT_ZLIB 2 +#define TCL_ZLIB_FORMAT_GZIP 4 +#define TCL_ZLIB_FORMAT_AUTO 8 + +/* + * Constants that describe whether the stream is to operate in compressing or + * decompressing mode. + */ + +#define TCL_ZLIB_STREAM_DEFLATE 16 +#define TCL_ZLIB_STREAM_INFLATE 32 + +/* + * Constants giving compression levels. Use of TCL_ZLIB_COMPRESS_DEFAULT is + * recommended. + */ + +#define TCL_ZLIB_COMPRESS_NONE 0 +#define TCL_ZLIB_COMPRESS_FAST 1 +#define TCL_ZLIB_COMPRESS_BEST 9 +#define TCL_ZLIB_COMPRESS_DEFAULT (-1) + +/* + * Constants for types of flushing, used with Tcl_ZlibFlush. + */ + +#define TCL_ZLIB_NO_FLUSH 0 +#define TCL_ZLIB_FLUSH 2 +#define TCL_ZLIB_FULLFLUSH 3 +#define TCL_ZLIB_FINALIZE 4 + +/* + *---------------------------------------------------------------------------- + * Definitions needed for the Tcl_LoadFile function. [TIP #416] + */ + +#define TCL_LOAD_GLOBAL 1 +#define TCL_LOAD_LAZY 2 + +/* + *---------------------------------------------------------------------------- + * Single public declaration for NRE. + */ + +typedef int (Tcl_NRPostProc) (ClientData data[], Tcl_Interp *interp, + int result); + +/* + *---------------------------------------------------------------------------- + * The following constant is used to test for older versions of Tcl in the + * stubs tables. + * + * Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different + * value since the stubs tables don't match. + */ + +#define TCL_STUB_MAGIC ((int) 0xFCA3BACF) + +/* + * The following function is required to be defined in all stubs aware + * extensions. The function is actually implemented in the stub library, not + * the main Tcl library, although there is a trivial implementation in the + * main library in case an extension is statically linked into an application. + */ + +const char * Tcl_InitStubs(Tcl_Interp *interp, const char *version, + int exact); +const char * TclTomMathInitializeStubs(Tcl_Interp *interp, + const char *version, int epoch, int revision); + +/* + * When not using stubs, make it a macro. + */ + +#ifndef USE_TCL_STUBS +#define Tcl_InitStubs(interp, version, exact) \ + Tcl_PkgInitStubsCheck(interp, version, exact) +#endif + +/* + * TODO - tommath stubs export goes here! + */ + +/* + * Public functions that are not accessible via the stubs table. + * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171] + */ + +#define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \ + ((Tcl_CreateInterp)())) +EXTERN void Tcl_MainEx(int argc, char **argv, + Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); +EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp, + const char *version, int exact); +EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr); + +/* + *---------------------------------------------------------------------------- + * Include the public function declarations that are accessible via the stubs + * table. + */ + +#include "tclDecls.h" + +/* + * Include platform specific public function declarations that are accessible + * via the stubs table. Make all TclOO symbols MODULE_SCOPE (which only + * has effect on building it as a shared library). See ticket [3010352]. + */ + +#if defined(BUILD_tcl) +# undef TCLAPI +# define TCLAPI MODULE_SCOPE +#endif + +#include "tclPlatDecls.h" + +/* + *---------------------------------------------------------------------------- + * The following declarations either map ckalloc and ckfree to malloc and + * free, or they map them to functions with all sorts of debugging hooks + * defined in tclCkalloc.c. + */ + +#ifdef TCL_MEM_DEBUG + +# define ckalloc(x) \ + ((void *) Tcl_DbCkalloc((unsigned)(x), __FILE__, __LINE__)) +# define ckfree(x) \ + Tcl_DbCkfree((char *)(x), __FILE__, __LINE__) +# define ckrealloc(x,y) \ + ((void *) Tcl_DbCkrealloc((char *)(x), (unsigned)(y), __FILE__, __LINE__)) +# define attemptckalloc(x) \ + ((void *) Tcl_AttemptDbCkalloc((unsigned)(x), __FILE__, __LINE__)) +# define attemptckrealloc(x,y) \ + ((void *) Tcl_AttemptDbCkrealloc((char *)(x), (unsigned)(y), __FILE__, __LINE__)) + +#else /* !TCL_MEM_DEBUG */ + +/* + * If we are not using the debugging allocator, we should call the Tcl_Alloc, + * et al. routines in order to guarantee that every module is using the same + * memory allocator both inside and outside of the Tcl library. + */ + +# define ckalloc(x) \ + ((void *) Tcl_Alloc((unsigned)(x))) +# define ckfree(x) \ + Tcl_Free((char *)(x)) +# define ckrealloc(x,y) \ + ((void *) Tcl_Realloc((char *)(x), (unsigned)(y))) +# define attemptckalloc(x) \ + ((void *) Tcl_AttemptAlloc((unsigned)(x))) +# define attemptckrealloc(x,y) \ + ((void *) Tcl_AttemptRealloc((char *)(x), (unsigned)(y))) +# undef Tcl_InitMemory +# define Tcl_InitMemory(x) +# undef Tcl_DumpActiveMemory +# define Tcl_DumpActiveMemory(x) +# undef Tcl_ValidateAllMemory +# define Tcl_ValidateAllMemory(x,y) + +#endif /* !TCL_MEM_DEBUG */ + +#ifdef TCL_MEM_DEBUG +# define Tcl_IncrRefCount(objPtr) \ + Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__) +# define Tcl_DecrRefCount(objPtr) \ + Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) +# define Tcl_IsShared(objPtr) \ + Tcl_DbIsShared(objPtr, __FILE__, __LINE__) +#else +# define Tcl_IncrRefCount(objPtr) \ + ++(objPtr)->refCount + /* + * Use do/while0 idiom for optimum correctness without compiler warnings. + * http://c2.com/cgi/wiki?TrivialDoWhileLoop + */ +# define Tcl_DecrRefCount(objPtr) \ + do { \ + Tcl_Obj *_objPtr = (objPtr); \ + if (--(_objPtr)->refCount <= 0) { \ + TclFreeObj(_objPtr); \ + } \ + } while(0) +# define Tcl_IsShared(objPtr) \ + ((objPtr)->refCount > 1) +#endif + +/* + * Macros and definitions that help to debug the use of Tcl objects. When + * TCL_MEM_DEBUG is defined, the Tcl_New declarations are overridden to call + * debugging versions of the object creation functions. + */ + +#ifdef TCL_MEM_DEBUG +# undef Tcl_NewBignumObj +# define Tcl_NewBignumObj(val) \ + Tcl_DbNewBignumObj(val, __FILE__, __LINE__) +# undef Tcl_NewBooleanObj +# define Tcl_NewBooleanObj(val) \ + Tcl_DbNewBooleanObj(val, __FILE__, __LINE__) +# undef Tcl_NewByteArrayObj +# define Tcl_NewByteArrayObj(bytes, len) \ + Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__) +# undef Tcl_NewDoubleObj +# define Tcl_NewDoubleObj(val) \ + Tcl_DbNewDoubleObj(val, __FILE__, __LINE__) +# undef Tcl_NewIntObj +# define Tcl_NewIntObj(val) \ + Tcl_DbNewLongObj(val, __FILE__, __LINE__) +# undef Tcl_NewListObj +# define Tcl_NewListObj(objc, objv) \ + Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__) +# undef Tcl_NewLongObj +# define Tcl_NewLongObj(val) \ + Tcl_DbNewLongObj(val, __FILE__, __LINE__) +# undef Tcl_NewObj +# define Tcl_NewObj() \ + Tcl_DbNewObj(__FILE__, __LINE__) +# undef Tcl_NewStringObj +# define Tcl_NewStringObj(bytes, len) \ + Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__) +# undef Tcl_NewWideIntObj +# define Tcl_NewWideIntObj(val) \ + Tcl_DbNewWideIntObj(val, __FILE__, __LINE__) +#endif /* TCL_MEM_DEBUG */ + +/* + *---------------------------------------------------------------------------- + * Macros for clients to use to access fields of hash entries: + */ + +#define Tcl_GetHashValue(h) ((h)->clientData) +#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) +#define Tcl_GetHashKey(tablePtr, h) \ + ((void *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \ + (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \ + ? (h)->key.oneWordValue \ + : (h)->key.string)) + +/* + * Macros to use for clients to use to invoke find and create functions for + * hash tables: + */ + +#undef Tcl_FindHashEntry +#define Tcl_FindHashEntry(tablePtr, key) \ + (*((tablePtr)->findProc))(tablePtr, (const char *)(key)) +#undef Tcl_CreateHashEntry +#define Tcl_CreateHashEntry(tablePtr, key, newPtr) \ + (*((tablePtr)->createProc))(tablePtr, (const char *)(key), newPtr) + +/* + *---------------------------------------------------------------------------- + * Macros that eliminate the overhead of the thread synchronization functions + * when compiling without thread support. + */ + +#ifndef TCL_THREADS +#undef Tcl_MutexLock +#define Tcl_MutexLock(mutexPtr) +#undef Tcl_MutexUnlock +#define Tcl_MutexUnlock(mutexPtr) +#undef Tcl_MutexFinalize +#define Tcl_MutexFinalize(mutexPtr) +#undef Tcl_ConditionNotify +#define Tcl_ConditionNotify(condPtr) +#undef Tcl_ConditionWait +#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) +#undef Tcl_ConditionFinalize +#define Tcl_ConditionFinalize(condPtr) +#endif /* TCL_THREADS */ + +/* + *---------------------------------------------------------------------------- + * Deprecated Tcl functions: + */ + +#ifndef TCL_NO_DEPRECATED +/* + * These function have been renamed. The old names are deprecated, but we + * define these macros for backwards compatibilty. + */ + +# define Tcl_Ckalloc Tcl_Alloc +# define Tcl_Ckfree Tcl_Free +# define Tcl_Ckrealloc Tcl_Realloc +# define Tcl_Return Tcl_SetResult +# define Tcl_TildeSubst Tcl_TranslateFileName +# define panic Tcl_Panic +# define panicVA Tcl_PanicVA +#endif /* !TCL_NO_DEPRECATED */ + +/* + *---------------------------------------------------------------------------- + * Convenience declaration of Tcl_AppInit for backwards compatibility. This + * function is not *implemented* by the tcl library, so the storage class is + * neither DLLEXPORT nor DLLIMPORT. + */ + +extern Tcl_AppInitProc Tcl_AppInit; + +#endif /* RC_INVOKED */ + +/* + * end block for C++ + */ + +#ifdef __cplusplus +} +#endif + +#endif /* _TCL */ + +/* + * Local Variables: + * mode: c + * c-basic-offset: 4 + * fill-column: 78 + * End: + */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tclDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tclDecls.h new file mode 100644 index 00000000..91c0add2 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tclDecls.h @@ -0,0 +1,3917 @@ +/* + * tclDecls.h -- + * + * Declarations of functions in the platform independent public Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TCLDECLS +#define _TCLDECLS + +#undef TCL_STORAGE_CLASS +#ifdef BUILD_tcl +# define TCL_STORAGE_CLASS DLLEXPORT +#else +# ifdef USE_TCL_STUBS +# define TCL_STORAGE_CLASS +# else +# define TCL_STORAGE_CLASS DLLIMPORT +# endif +#endif + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tcl.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * Exported function declarations: + */ + +/* 0 */ +EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp, + const char *name, const char *version, + const void *clientData); +/* 1 */ +EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, + const char *name, const char *version, + int exact, void *clientDataPtr); +/* 2 */ +EXTERN void Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF(1, 2); +/* 3 */ +EXTERN char * Tcl_Alloc(unsigned int size); +/* 4 */ +EXTERN void Tcl_Free(char *ptr); +/* 5 */ +EXTERN char * Tcl_Realloc(char *ptr, unsigned int size); +/* 6 */ +EXTERN char * Tcl_DbCkalloc(unsigned int size, const char *file, + int line); +/* 7 */ +EXTERN void Tcl_DbCkfree(char *ptr, const char *file, int line); +/* 8 */ +EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size, + const char *file, int line); +#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ +/* 9 */ +EXTERN void Tcl_CreateFileHandler(int fd, int mask, + Tcl_FileProc *proc, ClientData clientData); +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +/* 9 */ +EXTERN void Tcl_CreateFileHandler(int fd, int mask, + Tcl_FileProc *proc, ClientData clientData); +#endif /* MACOSX */ +#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ +/* 10 */ +EXTERN void Tcl_DeleteFileHandler(int fd); +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +/* 10 */ +EXTERN void Tcl_DeleteFileHandler(int fd); +#endif /* MACOSX */ +/* 11 */ +EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr); +/* 12 */ +EXTERN void Tcl_Sleep(int ms); +/* 13 */ +EXTERN int Tcl_WaitForEvent(const Tcl_Time *timePtr); +/* 14 */ +EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp, + Tcl_Obj *objPtr); +/* 15 */ +EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...); +/* 16 */ +EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes, + int length); +/* 17 */ +EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *const objv[]); +/* 18 */ +EXTERN int Tcl_ConvertToType(Tcl_Interp *interp, + Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); +/* 19 */ +EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file, + int line); +/* 20 */ +EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file, + int line); +/* 21 */ +EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file, + int line); +/* 22 */ +EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, const char *file, + int line); +/* 23 */ +EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(const unsigned char *bytes, + int length, const char *file, int line); +/* 24 */ +EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, + const char *file, int line); +/* 25 */ +EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *const *objv, + const char *file, int line); +/* 26 */ +EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, const char *file, + int line); +/* 27 */ +EXTERN Tcl_Obj * Tcl_DbNewObj(const char *file, int line); +/* 28 */ +EXTERN Tcl_Obj * Tcl_DbNewStringObj(const char *bytes, int length, + const char *file, int line); +/* 29 */ +EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr); +/* 30 */ +EXTERN void TclFreeObj(Tcl_Obj *objPtr); +/* 31 */ +EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, const char *src, + int *boolPtr); +/* 32 */ +EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, int *boolPtr); +/* 33 */ +EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, + int *lengthPtr); +/* 34 */ +EXTERN int Tcl_GetDouble(Tcl_Interp *interp, const char *src, + double *doublePtr); +/* 35 */ +EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, double *doublePtr); +/* 36 */ +EXTERN int Tcl_GetIndexFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, + CONST84 char *const *tablePtr, + const char *msg, int flags, int *indexPtr); +/* 37 */ +EXTERN int Tcl_GetInt(Tcl_Interp *interp, const char *src, + int *intPtr); +/* 38 */ +EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, int *intPtr); +/* 39 */ +EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, long *longPtr); +/* 40 */ +EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType(const char *typeName); +/* 41 */ +EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr); +/* 42 */ +EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr); +/* 43 */ +EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp, + Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); +/* 44 */ +EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp, + Tcl_Obj *listPtr, Tcl_Obj *objPtr); +/* 45 */ +EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp, + Tcl_Obj *listPtr, int *objcPtr, + Tcl_Obj ***objvPtr); +/* 46 */ +EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp, + Tcl_Obj *listPtr, int index, + Tcl_Obj **objPtrPtr); +/* 47 */ +EXTERN int Tcl_ListObjLength(Tcl_Interp *interp, + Tcl_Obj *listPtr, int *lengthPtr); +/* 48 */ +EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp, + Tcl_Obj *listPtr, int first, int count, + int objc, Tcl_Obj *const objv[]); +/* 49 */ +EXTERN Tcl_Obj * Tcl_NewBooleanObj(int boolValue); +/* 50 */ +EXTERN Tcl_Obj * Tcl_NewByteArrayObj(const unsigned char *bytes, + int length); +/* 51 */ +EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue); +/* 52 */ +EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue); +/* 53 */ +EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *const objv[]); +/* 54 */ +EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue); +/* 55 */ +EXTERN Tcl_Obj * Tcl_NewObj(void); +/* 56 */ +EXTERN Tcl_Obj * Tcl_NewStringObj(const char *bytes, int length); +/* 57 */ +EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue); +/* 58 */ +EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length); +/* 59 */ +EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, + const unsigned char *bytes, int length); +/* 60 */ +EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue); +/* 61 */ +EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue); +/* 62 */ +EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, + Tcl_Obj *const objv[]); +/* 63 */ +EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue); +/* 64 */ +EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length); +/* 65 */ +EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes, + int length); +/* 66 */ +EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp, + const char *message); +/* 67 */ +EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp, + const char *message, int length); +/* 68 */ +EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp); +/* 69 */ +EXTERN void Tcl_AppendElement(Tcl_Interp *interp, + const char *element); +/* 70 */ +EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...); +/* 71 */ +EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, + ClientData clientData); +/* 72 */ +EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async); +/* 73 */ +EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code); +/* 74 */ +EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async); +/* 75 */ +EXTERN int Tcl_AsyncReady(void); +/* 76 */ +EXTERN void Tcl_BackgroundError(Tcl_Interp *interp); +/* 77 */ +EXTERN char Tcl_Backslash(const char *src, int *readPtr); +/* 78 */ +EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp, + const char *optionName, + const char *optionList); +/* 79 */ +EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp, + Tcl_InterpDeleteProc *proc, + ClientData clientData); +/* 80 */ +EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, + ClientData clientData); +/* 81 */ +EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan); +/* 82 */ +EXTERN int Tcl_CommandComplete(const char *cmd); +/* 83 */ +EXTERN char * Tcl_Concat(int argc, CONST84 char *const *argv); +/* 84 */ +EXTERN int Tcl_ConvertElement(const char *src, char *dst, + int flags); +/* 85 */ +EXTERN int Tcl_ConvertCountedElement(const char *src, + int length, char *dst, int flags); +/* 86 */ +EXTERN int Tcl_CreateAlias(Tcl_Interp *slave, + const char *slaveCmd, Tcl_Interp *target, + const char *targetCmd, int argc, + CONST84 char *const *argv); +/* 87 */ +EXTERN int Tcl_CreateAliasObj(Tcl_Interp *slave, + const char *slaveCmd, Tcl_Interp *target, + const char *targetCmd, int objc, + Tcl_Obj *const objv[]); +/* 88 */ +EXTERN Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr, + const char *chanName, + ClientData instanceData, int mask); +/* 89 */ +EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, + Tcl_ChannelProc *proc, ClientData clientData); +/* 90 */ +EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan, + Tcl_CloseProc *proc, ClientData clientData); +/* 91 */ +EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, + const char *cmdName, Tcl_CmdProc *proc, + ClientData clientData, + Tcl_CmdDeleteProc *deleteProc); +/* 92 */ +EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, + Tcl_EventCheckProc *checkProc, + ClientData clientData); +/* 93 */ +EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc, + ClientData clientData); +/* 94 */ +EXTERN Tcl_Interp * Tcl_CreateInterp(void); +/* 95 */ +EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp, + const char *name, int numArgs, + Tcl_ValueType *argTypes, Tcl_MathProc *proc, + ClientData clientData); +/* 96 */ +EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, + const char *cmdName, Tcl_ObjCmdProc *proc, + ClientData clientData, + Tcl_CmdDeleteProc *deleteProc); +/* 97 */ +EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, + const char *slaveName, int isSafe); +/* 98 */ +EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, + Tcl_TimerProc *proc, ClientData clientData); +/* 99 */ +EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, + Tcl_CmdTraceProc *proc, + ClientData clientData); +/* 100 */ +EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp, + const char *name); +/* 101 */ +EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan, + Tcl_ChannelProc *proc, ClientData clientData); +/* 102 */ +EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan, + Tcl_CloseProc *proc, ClientData clientData); +/* 103 */ +EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp, + const char *cmdName); +/* 104 */ +EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, + Tcl_Command command); +/* 105 */ +EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, + ClientData clientData); +/* 106 */ +EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, + Tcl_EventCheckProc *checkProc, + ClientData clientData); +/* 107 */ +EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, + ClientData clientData); +/* 108 */ +EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr); +/* 109 */ +EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr); +/* 110 */ +EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp); +/* 111 */ +EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr); +/* 112 */ +EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token); +/* 113 */ +EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace); +/* 114 */ +EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, + Tcl_InterpDeleteProc *proc, + ClientData clientData); +/* 115 */ +EXTERN int Tcl_DoOneEvent(int flags); +/* 116 */ +EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc, + ClientData clientData); +/* 117 */ +EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr, + const char *bytes, int length); +/* 118 */ +EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, + const char *element); +/* 119 */ +EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr); +/* 120 */ +EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr); +/* 121 */ +EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp, + Tcl_DString *dsPtr); +/* 122 */ +EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr); +/* 123 */ +EXTERN void Tcl_DStringResult(Tcl_Interp *interp, + Tcl_DString *dsPtr); +/* 124 */ +EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length); +/* 125 */ +EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr); +/* 126 */ +EXTERN int Tcl_Eof(Tcl_Channel chan); +/* 127 */ +EXTERN CONST84_RETURN char * Tcl_ErrnoId(void); +/* 128 */ +EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err); +/* 129 */ +EXTERN int Tcl_Eval(Tcl_Interp *interp, const char *script); +/* 130 */ +EXTERN int Tcl_EvalFile(Tcl_Interp *interp, + const char *fileName); +/* 131 */ +EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr); +/* 132 */ +EXTERN void Tcl_EventuallyFree(ClientData clientData, + Tcl_FreeProc *freeProc); +/* 133 */ +EXTERN void Tcl_Exit(int status); +/* 134 */ +EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp, + const char *hiddenCmdToken, + const char *cmdName); +/* 135 */ +EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr, + int *ptr); +/* 136 */ +EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, int *ptr); +/* 137 */ +EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, const char *expr, + double *ptr); +/* 138 */ +EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, double *ptr); +/* 139 */ +EXTERN int Tcl_ExprLong(Tcl_Interp *interp, const char *expr, + long *ptr); +/* 140 */ +EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, + long *ptr); +/* 141 */ +EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, + Tcl_Obj **resultPtrPtr); +/* 142 */ +EXTERN int Tcl_ExprString(Tcl_Interp *interp, const char *expr); +/* 143 */ +EXTERN void Tcl_Finalize(void); +/* 144 */ +EXTERN void Tcl_FindExecutable(const char *argv0); +/* 145 */ +EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, + Tcl_HashSearch *searchPtr); +/* 146 */ +EXTERN int Tcl_Flush(Tcl_Channel chan); +/* 147 */ +EXTERN void Tcl_FreeResult(Tcl_Interp *interp); +/* 148 */ +EXTERN int Tcl_GetAlias(Tcl_Interp *interp, + const char *slaveCmd, + Tcl_Interp **targetInterpPtr, + CONST84 char **targetCmdPtr, int *argcPtr, + CONST84 char ***argvPtr); +/* 149 */ +EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp, + const char *slaveCmd, + Tcl_Interp **targetInterpPtr, + CONST84 char **targetCmdPtr, int *objcPtr, + Tcl_Obj ***objv); +/* 150 */ +EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp, + const char *name, + Tcl_InterpDeleteProc **procPtr); +/* 151 */ +EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, + const char *chanName, int *modePtr); +/* 152 */ +EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan); +/* 153 */ +EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction, + ClientData *handlePtr); +/* 154 */ +EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan); +/* 155 */ +EXTERN int Tcl_GetChannelMode(Tcl_Channel chan); +/* 156 */ +EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan); +/* 157 */ +EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp, + Tcl_Channel chan, const char *optionName, + Tcl_DString *dsPtr); +/* 158 */ +EXTERN CONST86 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan); +/* 159 */ +EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp, + const char *cmdName, Tcl_CmdInfo *infoPtr); +/* 160 */ +EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp, + Tcl_Command command); +/* 161 */ +EXTERN int Tcl_GetErrno(void); +/* 162 */ +EXTERN CONST84_RETURN char * Tcl_GetHostName(void); +/* 163 */ +EXTERN int Tcl_GetInterpPath(Tcl_Interp *askInterp, + Tcl_Interp *slaveInterp); +/* 164 */ +EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp); +/* 165 */ +EXTERN const char * Tcl_GetNameOfExecutable(void); +/* 166 */ +EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp); +#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ +/* 167 */ +EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, + const char *chanID, int forWriting, + int checkUsage, ClientData *filePtr); +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +/* 167 */ +EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, + const char *chanID, int forWriting, + int checkUsage, ClientData *filePtr); +#endif /* MACOSX */ +/* 168 */ +EXTERN Tcl_PathType Tcl_GetPathType(const char *path); +/* 169 */ +EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr); +/* 170 */ +EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr); +/* 171 */ +EXTERN int Tcl_GetServiceMode(void); +/* 172 */ +EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, + const char *slaveName); +/* 173 */ +EXTERN Tcl_Channel Tcl_GetStdChannel(int type); +/* 174 */ +EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp); +/* 175 */ +EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp, + const char *varName, int flags); +/* 176 */ +EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp, + const char *part1, const char *part2, + int flags); +/* 177 */ +EXTERN int Tcl_GlobalEval(Tcl_Interp *interp, + const char *command); +/* 178 */ +EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp, + Tcl_Obj *objPtr); +/* 179 */ +EXTERN int Tcl_HideCommand(Tcl_Interp *interp, + const char *cmdName, + const char *hiddenCmdToken); +/* 180 */ +EXTERN int Tcl_Init(Tcl_Interp *interp); +/* 181 */ +EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr, + int keyType); +/* 182 */ +EXTERN int Tcl_InputBlocked(Tcl_Channel chan); +/* 183 */ +EXTERN int Tcl_InputBuffered(Tcl_Channel chan); +/* 184 */ +EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp); +/* 185 */ +EXTERN int Tcl_IsSafe(Tcl_Interp *interp); +/* 186 */ +EXTERN char * Tcl_JoinPath(int argc, CONST84 char *const *argv, + Tcl_DString *resultPtr); +/* 187 */ +EXTERN int Tcl_LinkVar(Tcl_Interp *interp, const char *varName, + char *addr, int type); +/* Slot 188 is reserved */ +/* 189 */ +EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode); +/* 190 */ +EXTERN int Tcl_MakeSafe(Tcl_Interp *interp); +/* 191 */ +EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket); +/* 192 */ +EXTERN char * Tcl_Merge(int argc, CONST84 char *const *argv); +/* 193 */ +EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr); +/* 194 */ +EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask); +/* 195 */ +EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, + Tcl_Obj *part2Ptr, int flags); +/* 196 */ +EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, + Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, + int flags); +/* 197 */ +EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, + CONST84 char **argv, int flags); +/* 198 */ +EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, + const char *fileName, const char *modeString, + int permissions); +/* 199 */ +EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, + const char *address, const char *myaddr, + int myport, int async); +/* 200 */ +EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, + const char *host, + Tcl_TcpAcceptProc *acceptProc, + ClientData callbackData); +/* 201 */ +EXTERN void Tcl_Preserve(ClientData data); +/* 202 */ +EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value, + char *dst); +/* 203 */ +EXTERN int Tcl_PutEnv(const char *assignment); +/* 204 */ +EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp); +/* 205 */ +EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr, + Tcl_QueuePosition position); +/* 206 */ +EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead); +/* 207 */ +EXTERN void Tcl_ReapDetachedProcs(void); +/* 208 */ +EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp, + const char *cmd, int flags); +/* 209 */ +EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp, + Tcl_Obj *cmdPtr, int flags); +/* 210 */ +EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp, + Tcl_Channel chan); +/* 211 */ +EXTERN void Tcl_RegisterObjType(const Tcl_ObjType *typePtr); +/* 212 */ +EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, + const char *pattern); +/* 213 */ +EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp, + const char *text, const char *start); +/* 214 */ +EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, const char *text, + const char *pattern); +/* 215 */ +EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index, + CONST84 char **startPtr, + CONST84 char **endPtr); +/* 216 */ +EXTERN void Tcl_Release(ClientData clientData); +/* 217 */ +EXTERN void Tcl_ResetResult(Tcl_Interp *interp); +/* 218 */ +EXTERN int Tcl_ScanElement(const char *src, int *flagPtr); +/* 219 */ +EXTERN int Tcl_ScanCountedElement(const char *src, int length, + int *flagPtr); +/* 220 */ +EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode); +/* 221 */ +EXTERN int Tcl_ServiceAll(void); +/* 222 */ +EXTERN int Tcl_ServiceEvent(int flags); +/* 223 */ +EXTERN void Tcl_SetAssocData(Tcl_Interp *interp, + const char *name, Tcl_InterpDeleteProc *proc, + ClientData clientData); +/* 224 */ +EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz); +/* 225 */ +EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp, + Tcl_Channel chan, const char *optionName, + const char *newValue); +/* 226 */ +EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp, + const char *cmdName, + const Tcl_CmdInfo *infoPtr); +/* 227 */ +EXTERN void Tcl_SetErrno(int err); +/* 228 */ +EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...); +/* 229 */ +EXTERN void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr); +/* 230 */ +EXTERN void Tcl_SetPanicProc(Tcl_PanicProc *panicProc); +/* 231 */ +EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth); +/* 232 */ +EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result, + Tcl_FreeProc *freeProc); +/* 233 */ +EXTERN int Tcl_SetServiceMode(int mode); +/* 234 */ +EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp, + Tcl_Obj *errorObjPtr); +/* 235 */ +EXTERN void Tcl_SetObjResult(Tcl_Interp *interp, + Tcl_Obj *resultObjPtr); +/* 236 */ +EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type); +/* 237 */ +EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp, + const char *varName, const char *newValue, + int flags); +/* 238 */ +EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp, + const char *part1, const char *part2, + const char *newValue, int flags); +/* 239 */ +EXTERN CONST84_RETURN char * Tcl_SignalId(int sig); +/* 240 */ +EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig); +/* 241 */ +EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp); +/* 242 */ +EXTERN int Tcl_SplitList(Tcl_Interp *interp, + const char *listStr, int *argcPtr, + CONST84 char ***argvPtr); +/* 243 */ +EXTERN void Tcl_SplitPath(const char *path, int *argcPtr, + CONST84 char ***argvPtr); +/* 244 */ +EXTERN void Tcl_StaticPackage(Tcl_Interp *interp, + const char *pkgName, + Tcl_PackageInitProc *initProc, + Tcl_PackageInitProc *safeInitProc); +/* 245 */ +EXTERN int Tcl_StringMatch(const char *str, const char *pattern); +/* 246 */ +EXTERN int Tcl_TellOld(Tcl_Channel chan); +/* 247 */ +EXTERN int Tcl_TraceVar(Tcl_Interp *interp, const char *varName, + int flags, Tcl_VarTraceProc *proc, + ClientData clientData); +/* 248 */ +EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, const char *part1, + const char *part2, int flags, + Tcl_VarTraceProc *proc, + ClientData clientData); +/* 249 */ +EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp, + const char *name, Tcl_DString *bufferPtr); +/* 250 */ +EXTERN int Tcl_Ungets(Tcl_Channel chan, const char *str, + int len, int atHead); +/* 251 */ +EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp, + const char *varName); +/* 252 */ +EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp, + Tcl_Channel chan); +/* 253 */ +EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, const char *varName, + int flags); +/* 254 */ +EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1, + const char *part2, int flags); +/* 255 */ +EXTERN void Tcl_UntraceVar(Tcl_Interp *interp, + const char *varName, int flags, + Tcl_VarTraceProc *proc, + ClientData clientData); +/* 256 */ +EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp, + const char *part1, const char *part2, + int flags, Tcl_VarTraceProc *proc, + ClientData clientData); +/* 257 */ +EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp, + const char *varName); +/* 258 */ +EXTERN int Tcl_UpVar(Tcl_Interp *interp, const char *frameName, + const char *varName, const char *localName, + int flags); +/* 259 */ +EXTERN int Tcl_UpVar2(Tcl_Interp *interp, const char *frameName, + const char *part1, const char *part2, + const char *localName, int flags); +/* 260 */ +EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...); +/* 261 */ +EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, + const char *varName, int flags, + Tcl_VarTraceProc *procPtr, + ClientData prevClientData); +/* 262 */ +EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, + const char *part1, const char *part2, + int flags, Tcl_VarTraceProc *procPtr, + ClientData prevClientData); +/* 263 */ +EXTERN int Tcl_Write(Tcl_Channel chan, const char *s, int slen); +/* 264 */ +EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[], const char *message); +/* 265 */ +EXTERN int Tcl_DumpActiveMemory(const char *fileName); +/* 266 */ +EXTERN void Tcl_ValidateAllMemory(const char *file, int line); +/* 267 */ +EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp, + va_list argList); +/* 268 */ +EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, + va_list argList); +/* 269 */ +EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr); +/* 270 */ +EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp, + const char *start, CONST84 char **termPtr); +/* 271 */ +EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp, + const char *name, const char *version, + int exact); +/* 272 */ +EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp, + const char *name, const char *version, + int exact, void *clientDataPtr); +/* 273 */ +EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, const char *name, + const char *version); +/* 274 */ +EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp, + const char *name, const char *version, + int exact); +/* 275 */ +EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp, + va_list argList); +/* 276 */ +EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList); +/* 277 */ +EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options); +/* 278 */ +EXTERN void Tcl_PanicVA(const char *format, va_list argList); +/* 279 */ +EXTERN void Tcl_GetVersion(int *major, int *minor, + int *patchLevel, int *type); +/* 280 */ +EXTERN void Tcl_InitMemory(Tcl_Interp *interp); +/* 281 */ +EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, + const Tcl_ChannelType *typePtr, + ClientData instanceData, int mask, + Tcl_Channel prevChan); +/* 282 */ +EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp, + Tcl_Channel chan); +/* 283 */ +EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan); +/* 284 */ +EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc); +/* Slot 285 is reserved */ +/* 286 */ +EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr, + Tcl_Obj *appendObjPtr); +/* 287 */ +EXTERN Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr); +/* 288 */ +EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, + ClientData clientData); +/* 289 */ +EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc, + ClientData clientData); +/* 290 */ +EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr); +/* 291 */ +EXTERN int Tcl_EvalEx(Tcl_Interp *interp, const char *script, + int numBytes, int flags); +/* 292 */ +EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[], int flags); +/* 293 */ +EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, + int flags); +/* 294 */ +EXTERN void Tcl_ExitThread(int status); +/* 295 */ +EXTERN int Tcl_ExternalToUtf(Tcl_Interp *interp, + Tcl_Encoding encoding, const char *src, + int srcLen, int flags, + Tcl_EncodingState *statePtr, char *dst, + int dstLen, int *srcReadPtr, + int *dstWrotePtr, int *dstCharsPtr); +/* 296 */ +EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding, + const char *src, int srcLen, + Tcl_DString *dsPtr); +/* 297 */ +EXTERN void Tcl_FinalizeThread(void); +/* 298 */ +EXTERN void Tcl_FinalizeNotifier(ClientData clientData); +/* 299 */ +EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding); +/* 300 */ +EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void); +/* 301 */ +EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, const char *name); +/* 302 */ +EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding); +/* 303 */ +EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp); +/* 304 */ +EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp, + Tcl_Obj *objPtr, const void *tablePtr, + int offset, const char *msg, int flags, + int *indexPtr); +/* 305 */ +EXTERN void * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr, + int size); +/* 306 */ +EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1, + const char *part2, int flags); +/* 307 */ +EXTERN ClientData Tcl_InitNotifier(void); +/* 308 */ +EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr); +/* 309 */ +EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr); +/* 310 */ +EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr); +/* 311 */ +EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr, + Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); +/* 312 */ +EXTERN int Tcl_NumUtfChars(const char *src, int length); +/* 313 */ +EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr, + int charsToRead, int appendFlag); +/* 314 */ +EXTERN void Tcl_RestoreResult(Tcl_Interp *interp, + Tcl_SavedResult *statePtr); +/* 315 */ +EXTERN void Tcl_SaveResult(Tcl_Interp *interp, + Tcl_SavedResult *statePtr); +/* 316 */ +EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp, + const char *name); +/* 317 */ +EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1, + const char *part2, Tcl_Obj *newValuePtr, + int flags); +/* 318 */ +EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId); +/* 319 */ +EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId, + Tcl_Event *evPtr, Tcl_QueuePosition position); +/* 320 */ +EXTERN Tcl_UniChar Tcl_UniCharAtIndex(const char *src, int index); +/* 321 */ +EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch); +/* 322 */ +EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch); +/* 323 */ +EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch); +/* 324 */ +EXTERN int Tcl_UniCharToUtf(int ch, char *buf); +/* 325 */ +EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(const char *src, int index); +/* 326 */ +EXTERN int Tcl_UtfCharComplete(const char *src, int length); +/* 327 */ +EXTERN int Tcl_UtfBackslash(const char *src, int *readPtr, + char *dst); +/* 328 */ +EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(const char *src, int ch); +/* 329 */ +EXTERN CONST84_RETURN char * Tcl_UtfFindLast(const char *src, int ch); +/* 330 */ +EXTERN CONST84_RETURN char * Tcl_UtfNext(const char *src); +/* 331 */ +EXTERN CONST84_RETURN char * Tcl_UtfPrev(const char *src, const char *start); +/* 332 */ +EXTERN int Tcl_UtfToExternal(Tcl_Interp *interp, + Tcl_Encoding encoding, const char *src, + int srcLen, int flags, + Tcl_EncodingState *statePtr, char *dst, + int dstLen, int *srcReadPtr, + int *dstWrotePtr, int *dstCharsPtr); +/* 333 */ +EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding, + const char *src, int srcLen, + Tcl_DString *dsPtr); +/* 334 */ +EXTERN int Tcl_UtfToLower(char *src); +/* 335 */ +EXTERN int Tcl_UtfToTitle(char *src); +/* 336 */ +EXTERN int Tcl_UtfToUniChar(const char *src, Tcl_UniChar *chPtr); +/* 337 */ +EXTERN int Tcl_UtfToUpper(char *src); +/* 338 */ +EXTERN int Tcl_WriteChars(Tcl_Channel chan, const char *src, + int srcLen); +/* 339 */ +EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr); +/* 340 */ +EXTERN char * Tcl_GetString(Tcl_Obj *objPtr); +/* 341 */ +EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void); +/* 342 */ +EXTERN void Tcl_SetDefaultEncodingDir(const char *path); +/* 343 */ +EXTERN void Tcl_AlertNotifier(ClientData clientData); +/* 344 */ +EXTERN void Tcl_ServiceModeHook(int mode); +/* 345 */ +EXTERN int Tcl_UniCharIsAlnum(int ch); +/* 346 */ +EXTERN int Tcl_UniCharIsAlpha(int ch); +/* 347 */ +EXTERN int Tcl_UniCharIsDigit(int ch); +/* 348 */ +EXTERN int Tcl_UniCharIsLower(int ch); +/* 349 */ +EXTERN int Tcl_UniCharIsSpace(int ch); +/* 350 */ +EXTERN int Tcl_UniCharIsUpper(int ch); +/* 351 */ +EXTERN int Tcl_UniCharIsWordChar(int ch); +/* 352 */ +EXTERN int Tcl_UniCharLen(const Tcl_UniChar *uniStr); +/* 353 */ +EXTERN int Tcl_UniCharNcmp(const Tcl_UniChar *ucs, + const Tcl_UniChar *uct, + unsigned long numChars); +/* 354 */ +EXTERN char * Tcl_UniCharToUtfDString(const Tcl_UniChar *uniStr, + int uniLength, Tcl_DString *dsPtr); +/* 355 */ +EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(const char *src, int length, + Tcl_DString *dsPtr); +/* 356 */ +EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp, + Tcl_Obj *patObj, int flags); +/* 357 */ +EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp, + Tcl_Token *tokenPtr, int count); +/* 358 */ +EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr); +/* 359 */ +EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp, + const char *script, const char *command, + int length); +/* 360 */ +EXTERN int Tcl_ParseBraces(Tcl_Interp *interp, + const char *start, int numBytes, + Tcl_Parse *parsePtr, int append, + CONST84 char **termPtr); +/* 361 */ +EXTERN int Tcl_ParseCommand(Tcl_Interp *interp, + const char *start, int numBytes, int nested, + Tcl_Parse *parsePtr); +/* 362 */ +EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, const char *start, + int numBytes, Tcl_Parse *parsePtr); +/* 363 */ +EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp, + const char *start, int numBytes, + Tcl_Parse *parsePtr, int append, + CONST84 char **termPtr); +/* 364 */ +EXTERN int Tcl_ParseVarName(Tcl_Interp *interp, + const char *start, int numBytes, + Tcl_Parse *parsePtr, int append); +/* 365 */ +EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr); +/* 366 */ +EXTERN int Tcl_Chdir(const char *dirName); +/* 367 */ +EXTERN int Tcl_Access(const char *path, int mode); +/* 368 */ +EXTERN int Tcl_Stat(const char *path, struct stat *bufPtr); +/* 369 */ +EXTERN int Tcl_UtfNcmp(const char *s1, const char *s2, + unsigned long n); +/* 370 */ +EXTERN int Tcl_UtfNcasecmp(const char *s1, const char *s2, + unsigned long n); +/* 371 */ +EXTERN int Tcl_StringCaseMatch(const char *str, + const char *pattern, int nocase); +/* 372 */ +EXTERN int Tcl_UniCharIsControl(int ch); +/* 373 */ +EXTERN int Tcl_UniCharIsGraph(int ch); +/* 374 */ +EXTERN int Tcl_UniCharIsPrint(int ch); +/* 375 */ +EXTERN int Tcl_UniCharIsPunct(int ch); +/* 376 */ +EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp, + Tcl_RegExp regexp, Tcl_Obj *textObj, + int offset, int nmatches, int flags); +/* 377 */ +EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp, + Tcl_RegExpInfo *infoPtr); +/* 378 */ +EXTERN Tcl_Obj * Tcl_NewUnicodeObj(const Tcl_UniChar *unicode, + int numChars); +/* 379 */ +EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr, + const Tcl_UniChar *unicode, int numChars); +/* 380 */ +EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr); +/* 381 */ +EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index); +/* 382 */ +EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr); +/* 383 */ +EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last); +/* 384 */ +EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr, + const Tcl_UniChar *unicode, int length); +/* 385 */ +EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp, + Tcl_Obj *textObj, Tcl_Obj *patternObj); +/* 386 */ +EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr); +/* 387 */ +EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void); +/* 388 */ +EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp); +/* 389 */ +EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp, + const char *pattern); +/* 390 */ +EXTERN int Tcl_ProcObjCmd(ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[]); +/* 391 */ +EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr); +/* 392 */ +EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex); +/* 393 */ +EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr, + Tcl_ThreadCreateProc *proc, + ClientData clientData, int stackSize, + int flags); +/* 394 */ +EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst, + int bytesToRead); +/* 395 */ +EXTERN int Tcl_WriteRaw(Tcl_Channel chan, const char *src, + int srcLen); +/* 396 */ +EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan); +/* 397 */ +EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan); +/* 398 */ +EXTERN CONST84_RETURN char * Tcl_ChannelName( + const Tcl_ChannelType *chanTypePtr); +/* 399 */ +EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion( + const Tcl_ChannelType *chanTypePtr); +/* 400 */ +EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc( + const Tcl_ChannelType *chanTypePtr); +/* 401 */ +EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc( + const Tcl_ChannelType *chanTypePtr); +/* 402 */ +EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc( + const Tcl_ChannelType *chanTypePtr); +/* 403 */ +EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc( + const Tcl_ChannelType *chanTypePtr); +/* 404 */ +EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc( + const Tcl_ChannelType *chanTypePtr); +/* 405 */ +EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc( + const Tcl_ChannelType *chanTypePtr); +/* 406 */ +EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc( + const Tcl_ChannelType *chanTypePtr); +/* 407 */ +EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc( + const Tcl_ChannelType *chanTypePtr); +/* 408 */ +EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc( + const Tcl_ChannelType *chanTypePtr); +/* 409 */ +EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc( + const Tcl_ChannelType *chanTypePtr); +/* 410 */ +EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc( + const Tcl_ChannelType *chanTypePtr); +/* 411 */ +EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc( + const Tcl_ChannelType *chanTypePtr); +/* 412 */ +EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result); +/* 413 */ +EXTERN int Tcl_IsChannelShared(Tcl_Channel channel); +/* 414 */ +EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp, + Tcl_Channel channel); +/* 415 */ +EXTERN void Tcl_CutChannel(Tcl_Channel channel); +/* 416 */ +EXTERN void Tcl_SpliceChannel(Tcl_Channel channel); +/* 417 */ +EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel); +/* 418 */ +EXTERN int Tcl_IsChannelExisting(const char *channelName); +/* 419 */ +EXTERN int Tcl_UniCharNcasecmp(const Tcl_UniChar *ucs, + const Tcl_UniChar *uct, + unsigned long numChars); +/* 420 */ +EXTERN int Tcl_UniCharCaseMatch(const Tcl_UniChar *uniStr, + const Tcl_UniChar *uniPattern, int nocase); +/* 421 */ +EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr, + const void *key); +/* 422 */ +EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr, + const void *key, int *newPtr); +/* 423 */ +EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, + int keyType, const Tcl_HashKeyType *typePtr); +/* 424 */ +EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr); +/* 425 */ +EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp, + const char *varName, int flags, + Tcl_CommandTraceProc *procPtr, + ClientData prevClientData); +/* 426 */ +EXTERN int Tcl_TraceCommand(Tcl_Interp *interp, + const char *varName, int flags, + Tcl_CommandTraceProc *proc, + ClientData clientData); +/* 427 */ +EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp, + const char *varName, int flags, + Tcl_CommandTraceProc *proc, + ClientData clientData); +/* 428 */ +EXTERN char * Tcl_AttemptAlloc(unsigned int size); +/* 429 */ +EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size, + const char *file, int line); +/* 430 */ +EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size); +/* 431 */ +EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size, + const char *file, int line); +/* 432 */ +EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length); +/* 433 */ +EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel); +/* 434 */ +EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr, + int *lengthPtr); +/* 435 */ +EXTERN int Tcl_GetMathFuncInfo(Tcl_Interp *interp, + const char *name, int *numArgsPtr, + Tcl_ValueType **argTypesPtr, + Tcl_MathProc **procPtr, + ClientData *clientDataPtr); +/* 436 */ +EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp, + const char *pattern); +/* 437 */ +EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, + int flags); +/* 438 */ +EXTERN int Tcl_DetachChannel(Tcl_Interp *interp, + Tcl_Channel channel); +/* 439 */ +EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel); +/* 440 */ +EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr); +/* 441 */ +EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); +/* 442 */ +EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr); +/* 443 */ +EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr); +/* 444 */ +EXTERN int Tcl_FSLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, + const char *sym1, const char *sym2, + Tcl_PackageInitProc **proc1Ptr, + Tcl_PackageInitProc **proc2Ptr, + Tcl_LoadHandle *handlePtr, + Tcl_FSUnloadFileProc **unloadProcPtr); +/* 445 */ +EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp, + Tcl_Obj *result, Tcl_Obj *pathPtr, + const char *pattern, Tcl_GlobTypeData *types); +/* 446 */ +EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, + int linkAction); +/* 447 */ +EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr, + int recursive, Tcl_Obj **errorPtr); +/* 448 */ +EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr, + Tcl_Obj *destPathPtr); +/* 449 */ +EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); +/* 450 */ +EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval); +/* 451 */ +EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index, + Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); +/* 452 */ +EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index, + Tcl_Obj *pathPtr, Tcl_Obj *objPtr); +/* 453 */ +EXTERN const char *CONST86 * Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, + Tcl_Obj **objPtrRef); +/* 454 */ +EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); +/* 455 */ +EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode); +/* 456 */ +EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp, + Tcl_Obj *pathPtr, const char *modeString, + int permissions); +/* 457 */ +EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp); +/* 458 */ +EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr); +/* 459 */ +EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp, + Tcl_Obj *pathPtr); +/* 460 */ +EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements); +/* 461 */ +EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr); +/* 462 */ +EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr, + Tcl_Obj *secondPtr); +/* 463 */ +EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp, + Tcl_Obj *pathPtr); +/* 464 */ +EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc, + Tcl_Obj *const objv[]); +/* 465 */ +EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr, + const Tcl_Filesystem *fsPtr); +/* 466 */ +EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp, + Tcl_Obj *pathPtr); +/* 467 */ +EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName); +/* 468 */ +EXTERN Tcl_Obj * Tcl_FSNewNativePath( + const Tcl_Filesystem *fromFilesystem, + ClientData clientData); +/* 469 */ +EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr); +/* 470 */ +EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr); +/* 471 */ +EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr); +/* 472 */ +EXTERN Tcl_Obj * Tcl_FSListVolumes(void); +/* 473 */ +EXTERN int Tcl_FSRegister(ClientData clientData, + const Tcl_Filesystem *fsPtr); +/* 474 */ +EXTERN int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr); +/* 475 */ +EXTERN ClientData Tcl_FSData(const Tcl_Filesystem *fsPtr); +/* 476 */ +EXTERN const char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp, + Tcl_Obj *pathPtr); +/* 477 */ +EXTERN CONST86 Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr); +/* 478 */ +EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr); +/* 479 */ +EXTERN int Tcl_OutputBuffered(Tcl_Channel chan); +/* 480 */ +EXTERN void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr); +/* 481 */ +EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp, + Tcl_Token *tokenPtr, int count); +/* 482 */ +EXTERN void Tcl_GetTime(Tcl_Time *timeBuf); +/* 483 */ +EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level, + int flags, Tcl_CmdObjTraceProc *objProc, + ClientData clientData, + Tcl_CmdObjTraceDeleteProc *delProc); +/* 484 */ +EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token, + Tcl_CmdInfo *infoPtr); +/* 485 */ +EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token, + const Tcl_CmdInfo *infoPtr); +/* 486 */ +EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue, + const char *file, int line); +/* 487 */ +EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, Tcl_WideInt *widePtr); +/* 488 */ +EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue); +/* 489 */ +EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr, + Tcl_WideInt wideValue); +/* 490 */ +EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void); +/* 491 */ +EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset, + int mode); +/* 492 */ +EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan); +/* 493 */ +EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc( + const Tcl_ChannelType *chanTypePtr); +/* 494 */ +EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr, + Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); +/* 495 */ +EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr, + Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); +/* 496 */ +EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp, + Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); +/* 497 */ +EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr, + int *sizePtr); +/* 498 */ +EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp, + Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, + Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, + int *donePtr); +/* 499 */ +EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr, + Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, + int *donePtr); +/* 500 */ +EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr); +/* 501 */ +EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp, + Tcl_Obj *dictPtr, int keyc, + Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); +/* 502 */ +EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp, + Tcl_Obj *dictPtr, int keyc, + Tcl_Obj *const *keyv); +/* 503 */ +EXTERN Tcl_Obj * Tcl_NewDictObj(void); +/* 504 */ +EXTERN Tcl_Obj * Tcl_DbNewDictObj(const char *file, int line); +/* 505 */ +EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp, + const char *pkgName, + const Tcl_Config *configuration, + const char *valEncoding); +/* 506 */ +EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, + const char *name, ClientData clientData, + Tcl_NamespaceDeleteProc *deleteProc); +/* 507 */ +EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); +/* 508 */ +EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, + Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); +/* 509 */ +EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, + const char *pattern, int resetListFirst); +/* 510 */ +EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, + const char *pattern, int allowOverwrite); +/* 511 */ +EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, + Tcl_Namespace *nsPtr, const char *pattern); +/* 512 */ +EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); +/* 513 */ +EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); +/* 514 */ +EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, + const char *name, + Tcl_Namespace *contextNsPtr, int flags); +/* 515 */ +EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name, + Tcl_Namespace *contextNsPtr, int flags); +/* 516 */ +EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr); +/* 517 */ +EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, + Tcl_Command command, Tcl_Obj *objPtr); +/* 518 */ +EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp, + Tcl_Obj *fileName, const char *encodingName); +/* 519 */ +EXTERN Tcl_ExitProc * Tcl_SetExitProc(Tcl_ExitProc *proc); +/* 520 */ +EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type, + Tcl_LimitHandlerProc *handlerProc, + ClientData clientData, + Tcl_LimitHandlerDeleteProc *deleteProc); +/* 521 */ +EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type, + Tcl_LimitHandlerProc *handlerProc, + ClientData clientData); +/* 522 */ +EXTERN int Tcl_LimitReady(Tcl_Interp *interp); +/* 523 */ +EXTERN int Tcl_LimitCheck(Tcl_Interp *interp); +/* 524 */ +EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp); +/* 525 */ +EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp, + int commandLimit); +/* 526 */ +EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp, + Tcl_Time *timeLimitPtr); +/* 527 */ +EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type, + int granularity); +/* 528 */ +EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type); +/* 529 */ +EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type); +/* 530 */ +EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type); +/* 531 */ +EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type); +/* 532 */ +EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp); +/* 533 */ +EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp, + Tcl_Time *timeLimitPtr); +/* 534 */ +EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type); +/* 535 */ +EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status); +/* 536 */ +EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp, + Tcl_InterpState state); +/* 537 */ +EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state); +/* 538 */ +EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp, + Tcl_Obj *options); +/* 539 */ +EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result); +/* 540 */ +EXTERN int Tcl_IsEnsemble(Tcl_Command token); +/* 541 */ +EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp, + const char *name, + Tcl_Namespace *namespacePtr, int flags); +/* 542 */ +EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp, + Tcl_Obj *cmdNameObj, int flags); +/* 543 */ +EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj *subcmdList); +/* 544 */ +EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj *mapDict); +/* 545 */ +EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj *unknownList); +/* 546 */ +EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp, + Tcl_Command token, int flags); +/* 547 */ +EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj **subcmdListPtr); +/* 548 */ +EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj **mapDictPtr); +/* 549 */ +EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj **unknownListPtr); +/* 550 */ +EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp, + Tcl_Command token, int *flagsPtr); +/* 551 */ +EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp, + Tcl_Command token, + Tcl_Namespace **namespacePtrPtr); +/* 552 */ +EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc, + Tcl_ScaleTimeProc *scaleProc, + ClientData clientData); +/* 553 */ +EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc, + Tcl_ScaleTimeProc **scaleProc, + ClientData *clientData); +/* 554 */ +EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc( + const Tcl_ChannelType *chanTypePtr); +/* 555 */ +EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value); +/* 556 */ +EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, const char *file, + int line); +/* 557 */ +EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value); +/* 558 */ +EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp, + Tcl_Obj *obj, mp_int *value); +/* 559 */ +EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp, + Tcl_Obj *obj, mp_int *value); +/* 560 */ +EXTERN int Tcl_TruncateChannel(Tcl_Channel chan, + Tcl_WideInt length); +/* 561 */ +EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc( + const Tcl_ChannelType *chanTypePtr); +/* 562 */ +EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp, + Tcl_Obj *msg); +/* 563 */ +EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp, + Tcl_Obj **msg); +/* 564 */ +EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg); +/* 565 */ +EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg); +/* 566 */ +EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp, + double initval, mp_int *toInit); +/* 567 */ +EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp, + Tcl_Namespace *nsPtr); +/* 568 */ +EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp, + Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); +/* 569 */ +EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); +/* 570 */ +EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void); +/* 571 */ +EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath); +/* 572 */ +EXTERN const char * Tcl_GetEncodingNameFromEnvironment( + Tcl_DString *bufPtr); +/* 573 */ +EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp, + const char *name, int objc, + Tcl_Obj *const objv[], void *clientDataPtr); +/* 574 */ +EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp, + Tcl_Obj *objPtr); +/* 575 */ +EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr, + const char *bytes, int length, int limit, + const char *ellipsis); +/* 576 */ +EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, const char *format, + int objc, Tcl_Obj *const objv[]); +/* 577 */ +EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, const char *format, + int objc, Tcl_Obj *const objv[]); +/* 578 */ +EXTERN Tcl_Obj * Tcl_ObjPrintf(const char *format, ...) TCL_FORMAT_PRINTF(1, 2); +/* 579 */ +EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, + const char *format, ...) TCL_FORMAT_PRINTF(2, 3); +/* 580 */ +EXTERN int Tcl_CancelEval(Tcl_Interp *interp, + Tcl_Obj *resultObjPtr, ClientData clientData, + int flags); +/* 581 */ +EXTERN int Tcl_Canceled(Tcl_Interp *interp, int flags); +/* 582 */ +EXTERN int Tcl_CreatePipe(Tcl_Interp *interp, + Tcl_Channel *rchan, Tcl_Channel *wchan, + int flags); +/* 583 */ +EXTERN Tcl_Command Tcl_NRCreateCommand(Tcl_Interp *interp, + const char *cmdName, Tcl_ObjCmdProc *proc, + Tcl_ObjCmdProc *nreProc, + ClientData clientData, + Tcl_CmdDeleteProc *deleteProc); +/* 584 */ +EXTERN int Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr, + int flags); +/* 585 */ +EXTERN int Tcl_NREvalObjv(Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[], int flags); +/* 586 */ +EXTERN int Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd, + int objc, Tcl_Obj *const objv[], int flags); +/* 587 */ +EXTERN void Tcl_NRAddCallback(Tcl_Interp *interp, + Tcl_NRPostProc *postProcPtr, + ClientData data0, ClientData data1, + ClientData data2, ClientData data3); +/* 588 */ +EXTERN int Tcl_NRCallObjProc(Tcl_Interp *interp, + Tcl_ObjCmdProc *objProc, + ClientData clientData, int objc, + Tcl_Obj *const objv[]); +/* 589 */ +EXTERN unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr); +/* 590 */ +EXTERN unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr); +/* 591 */ +EXTERN unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr); +/* 592 */ +EXTERN int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr); +/* 593 */ +EXTERN int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr); +/* 594 */ +EXTERN int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr); +/* 595 */ +EXTERN int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr); +/* 596 */ +EXTERN Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr); +/* 597 */ +EXTERN Tcl_WideInt Tcl_GetModificationTimeFromStat( + const Tcl_StatBuf *statPtr); +/* 598 */ +EXTERN Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr); +/* 599 */ +EXTERN Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr); +/* 600 */ +EXTERN Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr); +/* 601 */ +EXTERN unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr); +/* 602 */ +EXTERN int Tcl_SetEnsembleParameterList(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj *paramList); +/* 603 */ +EXTERN int Tcl_GetEnsembleParameterList(Tcl_Interp *interp, + Tcl_Command token, Tcl_Obj **paramListPtr); +/* 604 */ +EXTERN int Tcl_ParseArgsObjv(Tcl_Interp *interp, + const Tcl_ArgvInfo *argTable, int *objcPtr, + Tcl_Obj *const *objv, Tcl_Obj ***remObjv); +/* 605 */ +EXTERN int Tcl_GetErrorLine(Tcl_Interp *interp); +/* 606 */ +EXTERN void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum); +/* 607 */ +EXTERN void Tcl_TransferResult(Tcl_Interp *sourceInterp, + int result, Tcl_Interp *targetInterp); +/* 608 */ +EXTERN int Tcl_InterpActive(Tcl_Interp *interp); +/* 609 */ +EXTERN void Tcl_BackgroundException(Tcl_Interp *interp, int code); +/* 610 */ +EXTERN int Tcl_ZlibDeflate(Tcl_Interp *interp, int format, + Tcl_Obj *data, int level, + Tcl_Obj *gzipHeaderDictObj); +/* 611 */ +EXTERN int Tcl_ZlibInflate(Tcl_Interp *interp, int format, + Tcl_Obj *data, int buffersize, + Tcl_Obj *gzipHeaderDictObj); +/* 612 */ +EXTERN unsigned int Tcl_ZlibCRC32(unsigned int crc, + const unsigned char *buf, int len); +/* 613 */ +EXTERN unsigned int Tcl_ZlibAdler32(unsigned int adler, + const unsigned char *buf, int len); +/* 614 */ +EXTERN int Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode, + int format, int level, Tcl_Obj *dictObj, + Tcl_ZlibStream *zshandle); +/* 615 */ +EXTERN Tcl_Obj * Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle); +/* 616 */ +EXTERN int Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle); +/* 617 */ +EXTERN int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle); +/* 618 */ +EXTERN int Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle, + Tcl_Obj *data, int flush); +/* 619 */ +EXTERN int Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle, + Tcl_Obj *data, int count); +/* 620 */ +EXTERN int Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle); +/* 621 */ +EXTERN int Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle); +/* 622 */ +EXTERN void Tcl_SetStartupScript(Tcl_Obj *path, + const char *encoding); +/* 623 */ +EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingPtr); +/* 624 */ +EXTERN int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan, + int flags); +/* 625 */ +EXTERN int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, + Tcl_Obj *resultPtr); +/* 626 */ +EXTERN int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, + int flags); +/* 627 */ +EXTERN int Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, + const char *const symv[], int flags, + void *procPtrs, Tcl_LoadHandle *handlePtr); +/* 628 */ +EXTERN void * Tcl_FindSymbol(Tcl_Interp *interp, + Tcl_LoadHandle handle, const char *symbol); +/* 629 */ +EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp, + Tcl_LoadHandle handlePtr); +/* 630 */ +EXTERN void Tcl_ZlibStreamSetCompressionDictionary( + Tcl_ZlibStream zhandle, + Tcl_Obj *compressionDictionaryObj); + +typedef struct { + const struct TclPlatStubs *tclPlatStubs; + const struct TclIntStubs *tclIntStubs; + const struct TclIntPlatStubs *tclIntPlatStubs; +} TclStubHooks; + +typedef struct TclStubs { + int magic; + const TclStubHooks *hooks; + + int (*tcl_PkgProvideEx) (Tcl_Interp *interp, const char *name, const char *version, const void *clientData); /* 0 */ + CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 1 */ + void (*tcl_Panic) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 2 */ + char * (*tcl_Alloc) (unsigned int size); /* 3 */ + void (*tcl_Free) (char *ptr); /* 4 */ + char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */ + char * (*tcl_DbCkalloc) (unsigned int size, const char *file, int line); /* 6 */ + void (*tcl_DbCkfree) (char *ptr, const char *file, int line); /* 7 */ + char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 8 */ +#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ + void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */ +#endif /* UNIX */ +#if defined(_WIN32) /* WIN */ + void (*reserved9)(void); +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ + void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */ +#endif /* MACOSX */ +#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ + void (*tcl_DeleteFileHandler) (int fd); /* 10 */ +#endif /* UNIX */ +#if defined(_WIN32) /* WIN */ + void (*reserved10)(void); +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ + void (*tcl_DeleteFileHandler) (int fd); /* 10 */ +#endif /* MACOSX */ + void (*tcl_SetTimer) (const Tcl_Time *timePtr); /* 11 */ + void (*tcl_Sleep) (int ms); /* 12 */ + int (*tcl_WaitForEvent) (const Tcl_Time *timePtr); /* 13 */ + int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */ + void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */ + void (*tcl_AppendToObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 16 */ + Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); /* 17 */ + int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); /* 18 */ + void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 19 */ + void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 20 */ + int (*tcl_DbIsShared) (Tcl_Obj *objPtr, const char *file, int line); /* 21 */ + Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, const char *file, int line); /* 22 */ + Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char *bytes, int length, const char *file, int line); /* 23 */ + Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char *file, int line); /* 24 */ + Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *const *objv, const char *file, int line); /* 25 */ + Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, const char *file, int line); /* 26 */ + Tcl_Obj * (*tcl_DbNewObj) (const char *file, int line); /* 27 */ + Tcl_Obj * (*tcl_DbNewStringObj) (const char *bytes, int length, const char *file, int line); /* 28 */ + Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */ + void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */ + int (*tcl_GetBoolean) (Tcl_Interp *interp, const char *src, int *boolPtr); /* 31 */ + int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr); /* 32 */ + unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 33 */ + int (*tcl_GetDouble) (Tcl_Interp *interp, const char *src, double *doublePtr); /* 34 */ + int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */ + int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char *const *tablePtr, const char *msg, int flags, int *indexPtr); /* 36 */ + int (*tcl_GetInt) (Tcl_Interp *interp, const char *src, int *intPtr); /* 37 */ + int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */ + int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */ + CONST86 Tcl_ObjType * (*tcl_GetObjType) (const char *typeName); /* 40 */ + char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */ + void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */ + int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */ + int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */ + int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 45 */ + int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr); /* 46 */ + int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr); /* 47 */ + int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); /* 48 */ + Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */ + Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char *bytes, int length); /* 50 */ + Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */ + Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */ + Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); /* 53 */ + Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */ + Tcl_Obj * (*tcl_NewObj) (void); /* 55 */ + Tcl_Obj * (*tcl_NewStringObj) (const char *bytes, int length); /* 56 */ + void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int boolValue); /* 57 */ + unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int length); /* 58 */ + void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, const unsigned char *bytes, int length); /* 59 */ + void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */ + void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */ + void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *const objv[]); /* 62 */ + void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */ + void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */ + void (*tcl_SetStringObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 65 */ + void (*tcl_AddErrorInfo) (Tcl_Interp *interp, const char *message); /* 66 */ + void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, const char *message, int length); /* 67 */ + void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */ + void (*tcl_AppendElement) (Tcl_Interp *interp, const char *element); /* 69 */ + void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */ + Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData clientData); /* 71 */ + void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */ + int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */ + void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */ + int (*tcl_AsyncReady) (void); /* 75 */ + void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */ + char (*tcl_Backslash) (const char *src, int *readPtr); /* 77 */ + int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); /* 78 */ + void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */ + void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); /* 80 */ + int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */ + int (*tcl_CommandComplete) (const char *cmd); /* 82 */ + char * (*tcl_Concat) (int argc, CONST84 char *const *argv); /* 83 */ + int (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 84 */ + int (*tcl_ConvertCountedElement) (const char *src, int length, char *dst, int flags); /* 85 */ + int (*tcl_CreateAlias) (Tcl_Interp *slave, const char *slaveCmd, Tcl_Interp *target, const char *targetCmd, int argc, CONST84 char *const *argv); /* 86 */ + int (*tcl_CreateAliasObj) (Tcl_Interp *slave, const char *slaveCmd, Tcl_Interp *target, const char *targetCmd, int objc, Tcl_Obj *const objv[]); /* 87 */ + Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const char *chanName, ClientData instanceData, int mask); /* 88 */ + void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); /* 89 */ + void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */ + Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */ + void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 92 */ + void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 93 */ + Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */ + void (*tcl_CreateMathFunc) (Tcl_Interp *interp, const char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); /* 95 */ + Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */ + Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, const char *slaveName, int isSafe); /* 97 */ + Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); /* 98 */ + Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); /* 99 */ + void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); /* 100 */ + void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData); /* 101 */ + void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */ + int (*tcl_DeleteCommand) (Tcl_Interp *interp, const char *cmdName); /* 103 */ + int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */ + void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientData); /* 105 */ + void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 106 */ + void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 107 */ + void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */ + void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */ + void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */ + void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */ + void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */ + void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */ + void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 114 */ + int (*tcl_DoOneEvent) (int flags); /* 115 */ + void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */ + char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, const char *bytes, int length); /* 117 */ + char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, const char *element); /* 118 */ + void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */ + void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */ + void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */ + void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */ + void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */ + void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 */ + void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */ + int (*tcl_Eof) (Tcl_Channel chan); /* 126 */ + CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */ + CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */ + int (*tcl_Eval) (Tcl_Interp *interp, const char *script); /* 129 */ + int (*tcl_EvalFile) (Tcl_Interp *interp, const char *fileName); /* 130 */ + int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */ + void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freeProc); /* 132 */ + void (*tcl_Exit) (int status); /* 133 */ + int (*tcl_ExposeCommand) (Tcl_Interp *interp, const char *hiddenCmdToken, const char *cmdName); /* 134 */ + int (*tcl_ExprBoolean) (Tcl_Interp *interp, const char *expr, int *ptr); /* 135 */ + int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */ + int (*tcl_ExprDouble) (Tcl_Interp *interp, const char *expr, double *ptr); /* 137 */ + int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */ + int (*tcl_ExprLong) (Tcl_Interp *interp, const char *expr, long *ptr); /* 139 */ + int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */ + int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */ + int (*tcl_ExprString) (Tcl_Interp *interp, const char *expr); /* 142 */ + void (*tcl_Finalize) (void); /* 143 */ + void (*tcl_FindExecutable) (const char *argv0); /* 144 */ + Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */ + int (*tcl_Flush) (Tcl_Channel chan); /* 146 */ + void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */ + int (*tcl_GetAlias) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */ + int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */ + ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */ + Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName, int *modePtr); /* 151 */ + int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */ + int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData *handlePtr); /* 153 */ + ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */ + int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */ + CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */ + int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, Tcl_DString *dsPtr); /* 157 */ + CONST86 Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */ + int (*tcl_GetCommandInfo) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */ + CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */ + int (*tcl_GetErrno) (void); /* 161 */ + CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */ + int (*tcl_GetInterpPath) (Tcl_Interp *askInterp, Tcl_Interp *slaveInterp); /* 163 */ + Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */ + const char * (*tcl_GetNameOfExecutable) (void); /* 165 */ + Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */ +#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ + int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */ +#endif /* UNIX */ +#if defined(_WIN32) /* WIN */ + void (*reserved167)(void); +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ + int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */ +#endif /* MACOSX */ + Tcl_PathType (*tcl_GetPathType) (const char *path); /* 168 */ + int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */ + int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */ + int (*tcl_GetServiceMode) (void); /* 171 */ + Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, const char *slaveName); /* 172 */ + Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */ + CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 174 */ + CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 175 */ + CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 176 */ + int (*tcl_GlobalEval) (Tcl_Interp *interp, const char *command); /* 177 */ + int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */ + int (*tcl_HideCommand) (Tcl_Interp *interp, const char *cmdName, const char *hiddenCmdToken); /* 179 */ + int (*tcl_Init) (Tcl_Interp *interp); /* 180 */ + void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */ + int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */ + int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */ + int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */ + int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */ + char * (*tcl_JoinPath) (int argc, CONST84 char *const *argv, Tcl_DString *resultPtr); /* 186 */ + int (*tcl_LinkVar) (Tcl_Interp *interp, const char *varName, char *addr, int type); /* 187 */ + void (*reserved188)(void); + Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */ + int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */ + Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */ + char * (*tcl_Merge) (int argc, CONST84 char *const *argv); /* 192 */ + Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */ + void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */ + Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */ + Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */ + Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CONST84 char **argv, int flags); /* 197 */ + Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, const char *fileName, const char *modeString, int permissions); /* 198 */ + Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, const char *address, const char *myaddr, int myport, int async); /* 199 */ + Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, const char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200 */ + void (*tcl_Preserve) (ClientData data); /* 201 */ + void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */ + int (*tcl_PutEnv) (const char *assignment); /* 203 */ + CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */ + void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */ + int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */ + void (*tcl_ReapDetachedProcs) (void); /* 207 */ + int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flags); /* 208 */ + int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */ + void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */ + void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); /* 211 */ + Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *pattern); /* 212 */ + int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const char *text, const char *start); /* 213 */ + int (*tcl_RegExpMatch) (Tcl_Interp *interp, const char *text, const char *pattern); /* 214 */ + void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */ + void (*tcl_Release) (ClientData clientData); /* 216 */ + void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */ + int (*tcl_ScanElement) (const char *src, int *flagPtr); /* 218 */ + int (*tcl_ScanCountedElement) (const char *src, int length, int *flagPtr); /* 219 */ + int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */ + int (*tcl_ServiceAll) (void); /* 221 */ + int (*tcl_ServiceEvent) (int flags); /* 222 */ + void (*tcl_SetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 223 */ + void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */ + int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, const char *newValue); /* 225 */ + int (*tcl_SetCommandInfo) (Tcl_Interp *interp, const char *cmdName, const Tcl_CmdInfo *infoPtr); /* 226 */ + void (*tcl_SetErrno) (int err); /* 227 */ + void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */ + void (*tcl_SetMaxBlockTime) (const Tcl_Time *timePtr); /* 229 */ + void (*tcl_SetPanicProc) (Tcl_PanicProc *panicProc); /* 230 */ + int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */ + void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc); /* 232 */ + int (*tcl_SetServiceMode) (int mode); /* 233 */ + void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */ + void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */ + void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */ + CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, const char *varName, const char *newValue, int flags); /* 237 */ + CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, const char *newValue, int flags); /* 238 */ + CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */ + CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */ + void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */ + int (*tcl_SplitList) (Tcl_Interp *interp, const char *listStr, int *argcPtr, CONST84 char ***argvPtr); /* 242 */ + void (*tcl_SplitPath) (const char *path, int *argcPtr, CONST84 char ***argvPtr); /* 243 */ + void (*tcl_StaticPackage) (Tcl_Interp *interp, const char *pkgName, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */ + int (*tcl_StringMatch) (const char *str, const char *pattern); /* 245 */ + int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */ + int (*tcl_TraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */ + int (*tcl_TraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248 */ + char * (*tcl_TranslateFileName) (Tcl_Interp *interp, const char *name, Tcl_DString *bufferPtr); /* 249 */ + int (*tcl_Ungets) (Tcl_Channel chan, const char *str, int len, int atHead); /* 250 */ + void (*tcl_UnlinkVar) (Tcl_Interp *interp, const char *varName); /* 251 */ + int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */ + int (*tcl_UnsetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 253 */ + int (*tcl_UnsetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 254 */ + void (*tcl_UntraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */ + void (*tcl_UntraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 256 */ + void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, const char *varName); /* 257 */ + int (*tcl_UpVar) (Tcl_Interp *interp, const char *frameName, const char *varName, const char *localName, int flags); /* 258 */ + int (*tcl_UpVar2) (Tcl_Interp *interp, const char *frameName, const char *part1, const char *part2, const char *localName, int flags); /* 259 */ + int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */ + ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261 */ + ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 262 */ + int (*tcl_Write) (Tcl_Channel chan, const char *s, int slen); /* 263 */ + void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], const char *message); /* 264 */ + int (*tcl_DumpActiveMemory) (const char *fileName); /* 265 */ + void (*tcl_ValidateAllMemory) (const char *file, int line); /* 266 */ + void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 267 */ + void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */ + char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */ + CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, const char *start, CONST84 char **termPtr); /* 270 */ + CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 271 */ + CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 272 */ + int (*tcl_PkgProvide) (Tcl_Interp *interp, const char *name, const char *version); /* 273 */ + CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 274 */ + void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 275 */ + int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */ + Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */ + void (*tcl_PanicVA) (const char *format, va_list argList); /* 278 */ + void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */ + void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */ + Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, const Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */ + int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */ + Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */ + void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */ + void (*reserved285)(void); + void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */ + Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType *typePtr); /* 287 */ + void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 288 */ + void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 289 */ + void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */ + int (*tcl_EvalEx) (Tcl_Interp *interp, const char *script, int numBytes, int flags); /* 291 */ + int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 292 */ + int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */ + void (*tcl_ExitThread) (int status); /* 294 */ + int (*tcl_ExternalToUtf) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 295 */ + char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 296 */ + void (*tcl_FinalizeThread) (void); /* 297 */ + void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */ + void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */ + Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */ + Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, const char *name); /* 301 */ + CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */ + void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */ + int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, const void *tablePtr, int offset, const char *msg, int flags, int *indexPtr); /* 304 */ + void * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 305 */ + Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 306 */ + ClientData (*tcl_InitNotifier) (void); /* 307 */ + void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */ + void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */ + void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */ + void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); /* 311 */ + int (*tcl_NumUtfChars) (const char *src, int length); /* 312 */ + int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag); /* 313 */ + void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 314 */ + void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */ + int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, const char *name); /* 316 */ + Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */ + void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */ + void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */ + Tcl_UniChar (*tcl_UniCharAtIndex) (const char *src, int index); /* 320 */ + Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */ + Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */ + Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */ + int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */ + CONST84_RETURN char * (*tcl_UtfAtIndex) (const char *src, int index); /* 325 */ + int (*tcl_UtfCharComplete) (const char *src, int length); /* 326 */ + int (*tcl_UtfBackslash) (const char *src, int *readPtr, char *dst); /* 327 */ + CONST84_RETURN char * (*tcl_UtfFindFirst) (const char *src, int ch); /* 328 */ + CONST84_RETURN char * (*tcl_UtfFindLast) (const char *src, int ch); /* 329 */ + CONST84_RETURN char * (*tcl_UtfNext) (const char *src); /* 330 */ + CONST84_RETURN char * (*tcl_UtfPrev) (const char *src, const char *start); /* 331 */ + int (*tcl_UtfToExternal) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 332 */ + char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 333 */ + int (*tcl_UtfToLower) (char *src); /* 334 */ + int (*tcl_UtfToTitle) (char *src); /* 335 */ + int (*tcl_UtfToUniChar) (const char *src, Tcl_UniChar *chPtr); /* 336 */ + int (*tcl_UtfToUpper) (char *src); /* 337 */ + int (*tcl_WriteChars) (Tcl_Channel chan, const char *src, int srcLen); /* 338 */ + int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */ + char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */ + CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */ + void (*tcl_SetDefaultEncodingDir) (const char *path); /* 342 */ + void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */ + void (*tcl_ServiceModeHook) (int mode); /* 344 */ + int (*tcl_UniCharIsAlnum) (int ch); /* 345 */ + int (*tcl_UniCharIsAlpha) (int ch); /* 346 */ + int (*tcl_UniCharIsDigit) (int ch); /* 347 */ + int (*tcl_UniCharIsLower) (int ch); /* 348 */ + int (*tcl_UniCharIsSpace) (int ch); /* 349 */ + int (*tcl_UniCharIsUpper) (int ch); /* 350 */ + int (*tcl_UniCharIsWordChar) (int ch); /* 351 */ + int (*tcl_UniCharLen) (const Tcl_UniChar *uniStr); /* 352 */ + int (*tcl_UniCharNcmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 353 */ + char * (*tcl_UniCharToUtfDString) (const Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr); /* 354 */ + Tcl_UniChar * (*tcl_UtfToUniCharDString) (const char *src, int length, Tcl_DString *dsPtr); /* 355 */ + Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */ + Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 357 */ + void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */ + void (*tcl_LogCommandInfo) (Tcl_Interp *interp, const char *script, const char *command, int length); /* 359 */ + int (*tcl_ParseBraces) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */ + int (*tcl_ParseCommand) (Tcl_Interp *interp, const char *start, int numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */ + int (*tcl_ParseExpr) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr); /* 362 */ + int (*tcl_ParseQuotedString) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 363 */ + int (*tcl_ParseVarName) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append); /* 364 */ + char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */ + int (*tcl_Chdir) (const char *dirName); /* 366 */ + int (*tcl_Access) (const char *path, int mode); /* 367 */ + int (*tcl_Stat) (const char *path, struct stat *bufPtr); /* 368 */ + int (*tcl_UtfNcmp) (const char *s1, const char *s2, unsigned long n); /* 369 */ + int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, unsigned long n); /* 370 */ + int (*tcl_StringCaseMatch) (const char *str, const char *pattern, int nocase); /* 371 */ + int (*tcl_UniCharIsControl) (int ch); /* 372 */ + int (*tcl_UniCharIsGraph) (int ch); /* 373 */ + int (*tcl_UniCharIsPrint) (int ch); /* 374 */ + int (*tcl_UniCharIsPunct) (int ch); /* 375 */ + int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags); /* 376 */ + void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */ + Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar *unicode, int numChars); /* 378 */ + void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars); /* 379 */ + int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */ + Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */ + Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */ + Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 383 */ + void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int length); /* 384 */ + int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */ + void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */ + Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */ + int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */ + int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, const char *pattern); /* 389 */ + int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 390 */ + void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */ + void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */ + int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc, ClientData clientData, int stackSize, int flags); /* 393 */ + int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 394 */ + int (*tcl_WriteRaw) (Tcl_Channel chan, const char *src, int srcLen); /* 395 */ + Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */ + int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */ + CONST84_RETURN char * (*tcl_ChannelName) (const Tcl_ChannelType *chanTypePtr); /* 398 */ + Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType *chanTypePtr); /* 399 */ + Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_ChannelType *chanTypePtr); /* 400 */ + Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (const Tcl_ChannelType *chanTypePtr); /* 401 */ + Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType *chanTypePtr); /* 402 */ + Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType *chanTypePtr); /* 403 */ + Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType *chanTypePtr); /* 404 */ + Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 405 */ + Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 406 */ + Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 407 */ + Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType *chanTypePtr); /* 408 */ + Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType *chanTypePtr); /* 409 */ + Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType *chanTypePtr); /* 410 */ + Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType *chanTypePtr); /* 411 */ + int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */ + int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */ + int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */ + void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */ + void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */ + void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */ + int (*tcl_IsChannelExisting) (const char *channelName); /* 418 */ + int (*tcl_UniCharNcasecmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 419 */ + int (*tcl_UniCharCaseMatch) (const Tcl_UniChar *uniStr, const Tcl_UniChar *uniPattern, int nocase); /* 420 */ + Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, const void *key); /* 421 */ + Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, const void *key, int *newPtr); /* 422 */ + void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, const Tcl_HashKeyType *typePtr); /* 423 */ + void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */ + ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); /* 425 */ + int (*tcl_TraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */ + void (*tcl_UntraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */ + char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */ + char * (*tcl_AttemptDbCkalloc) (unsigned int size, const char *file, int line); /* 429 */ + char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */ + char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 431 */ + int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */ + Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */ + Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 434 */ + int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, const char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr); /* 435 */ + Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, const char *pattern); /* 436 */ + Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */ + int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */ + int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */ + int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */ + int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */ + int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */ + int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */ + int (*tcl_FSLoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *sym1, const char *sym2, Tcl_PackageInitProc **proc1Ptr, Tcl_PackageInitProc **proc2Ptr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr); /* 444 */ + int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); /* 445 */ + Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */ + int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */ + int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */ + int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */ + int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */ + int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */ + int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */ + const char *CONST86 * (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */ + int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */ + int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */ + Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *modeString, int permissions); /* 456 */ + Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */ + int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */ + int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */ + Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */ + Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */ + int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */ + Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */ + Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *const objv[]); /* 464 */ + ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, const Tcl_Filesystem *fsPtr); /* 465 */ + Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */ + int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */ + Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem, ClientData clientData); /* 468 */ + const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */ + Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */ + Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */ + Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */ + int (*tcl_FSRegister) (ClientData clientData, const Tcl_Filesystem *fsPtr); /* 473 */ + int (*tcl_FSUnregister) (const Tcl_Filesystem *fsPtr); /* 474 */ + ClientData (*tcl_FSData) (const Tcl_Filesystem *fsPtr); /* 475 */ + const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */ + CONST86 Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */ + Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */ + int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */ + void (*tcl_FSMountsChanged) (const Tcl_Filesystem *fsPtr); /* 480 */ + int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */ + void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */ + Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */ + int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */ + int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo *infoPtr); /* 485 */ + Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char *file, int line); /* 486 */ + int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */ + Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */ + void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */ + Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */ + Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */ + Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */ + Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 493 */ + int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */ + int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */ + int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */ + int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr); /* 497 */ + int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */ + void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */ + void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */ + int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); /* 501 */ + int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv); /* 502 */ + Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */ + Tcl_Obj * (*tcl_DbNewDictObj) (const char *file, int line); /* 504 */ + void (*tcl_RegisterConfig) (Tcl_Interp *interp, const char *pkgName, const Tcl_Config *configuration, const char *valEncoding); /* 505 */ + Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */ + void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */ + int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */ + int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 509 */ + int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 510 */ + int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 511 */ + Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */ + Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */ + Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */ + Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */ + Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */ + void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */ + int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, const char *encodingName); /* 518 */ + Tcl_ExitProc * (*tcl_SetExitProc) (Tcl_ExitProc *proc); /* 519 */ + void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */ + void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData); /* 521 */ + int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */ + int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */ + int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */ + void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */ + void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */ + void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */ + int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */ + int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */ + void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */ + void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */ + int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */ + void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */ + int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */ + Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */ + int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */ + void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */ + int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */ + Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */ + int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */ + Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, const char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */ + Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */ + int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */ + int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */ + int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */ + int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */ + int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */ + int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */ + int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */ + int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */ + int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */ + void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, ClientData clientData); /* 552 */ + void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */ + Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType *chanTypePtr); /* 554 */ + Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */ + Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, const char *file, int line); /* 556 */ + void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */ + int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 558 */ + int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */ + int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */ + Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType *chanTypePtr); /* 561 */ + void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */ + void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */ + void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */ + void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */ + int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp_int *toInit); /* 566 */ + Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */ + int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */ + int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */ + Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */ + int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */ + const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */ + int (*tcl_PkgRequireProc) (Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const objv[], void *clientDataPtr); /* 573 */ + void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */ + void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, const char *bytes, int length, int limit, const char *ellipsis); /* 575 */ + Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, const char *format, int objc, Tcl_Obj *const objv[]); /* 576 */ + int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, const char *format, int objc, Tcl_Obj *const objv[]); /* 577 */ + Tcl_Obj * (*tcl_ObjPrintf) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 578 */ + void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, const char *format, ...) TCL_FORMAT_PRINTF(2, 3); /* 579 */ + int (*tcl_CancelEval) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr, ClientData clientData, int flags); /* 580 */ + int (*tcl_Canceled) (Tcl_Interp *interp, int flags); /* 581 */ + int (*tcl_CreatePipe) (Tcl_Interp *interp, Tcl_Channel *rchan, Tcl_Channel *wchan, int flags); /* 582 */ + Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, Tcl_ObjCmdProc *nreProc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 583 */ + int (*tcl_NREvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 584 */ + int (*tcl_NREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 585 */ + int (*tcl_NRCmdSwap) (Tcl_Interp *interp, Tcl_Command cmd, int objc, Tcl_Obj *const objv[], int flags); /* 586 */ + void (*tcl_NRAddCallback) (Tcl_Interp *interp, Tcl_NRPostProc *postProcPtr, ClientData data0, ClientData data1, ClientData data2, ClientData data3); /* 587 */ + int (*tcl_NRCallObjProc) (Tcl_Interp *interp, Tcl_ObjCmdProc *objProc, ClientData clientData, int objc, Tcl_Obj *const objv[]); /* 588 */ + unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf *statPtr); /* 589 */ + unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf *statPtr); /* 590 */ + unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf *statPtr); /* 591 */ + int (*tcl_GetLinkCountFromStat) (const Tcl_StatBuf *statPtr); /* 592 */ + int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); /* 593 */ + int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); /* 594 */ + int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); /* 595 */ + Tcl_WideInt (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); /* 596 */ + Tcl_WideInt (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); /* 597 */ + Tcl_WideInt (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); /* 598 */ + Tcl_WideUInt (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 599 */ + Tcl_WideUInt (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /* 600 */ + unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); /* 601 */ + int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *paramList); /* 602 */ + int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **paramListPtr); /* 603 */ + int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, int *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 604 */ + int (*tcl_GetErrorLine) (Tcl_Interp *interp); /* 605 */ + void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); /* 606 */ + void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int result, Tcl_Interp *targetInterp); /* 607 */ + int (*tcl_InterpActive) (Tcl_Interp *interp); /* 608 */ + void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 609 */ + int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int level, Tcl_Obj *gzipHeaderDictObj); /* 610 */ + int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int buffersize, Tcl_Obj *gzipHeaderDictObj); /* 611 */ + unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const unsigned char *buf, int len); /* 612 */ + unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const unsigned char *buf, int len); /* 613 */ + int (*tcl_ZlibStreamInit) (Tcl_Interp *interp, int mode, int format, int level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle); /* 614 */ + Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); /* 615 */ + int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); /* 616 */ + int (*tcl_ZlibStreamChecksum) (Tcl_ZlibStream zshandle); /* 617 */ + int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int flush); /* 618 */ + int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int count); /* 619 */ + int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); /* 620 */ + int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); /* 621 */ + void (*tcl_SetStartupScript) (Tcl_Obj *path, const char *encoding); /* 622 */ + Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingPtr); /* 623 */ + int (*tcl_CloseEx) (Tcl_Interp *interp, Tcl_Channel chan, int flags); /* 624 */ + int (*tcl_NRExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr); /* 625 */ + int (*tcl_NRSubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 626 */ + int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); /* 627 */ + void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); /* 628 */ + int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); /* 629 */ + void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); /* 630 */ +} TclStubs; + +extern const TclStubs *tclStubsPtr; + +#ifdef __cplusplus +} +#endif + +#if defined(USE_TCL_STUBS) + +/* + * Inline function declarations: + */ + +#define Tcl_PkgProvideEx \ + (tclStubsPtr->tcl_PkgProvideEx) /* 0 */ +#define Tcl_PkgRequireEx \ + (tclStubsPtr->tcl_PkgRequireEx) /* 1 */ +#define Tcl_Panic \ + (tclStubsPtr->tcl_Panic) /* 2 */ +#define Tcl_Alloc \ + (tclStubsPtr->tcl_Alloc) /* 3 */ +#define Tcl_Free \ + (tclStubsPtr->tcl_Free) /* 4 */ +#define Tcl_Realloc \ + (tclStubsPtr->tcl_Realloc) /* 5 */ +#define Tcl_DbCkalloc \ + (tclStubsPtr->tcl_DbCkalloc) /* 6 */ +#define Tcl_DbCkfree \ + (tclStubsPtr->tcl_DbCkfree) /* 7 */ +#define Tcl_DbCkrealloc \ + (tclStubsPtr->tcl_DbCkrealloc) /* 8 */ +#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ +#define Tcl_CreateFileHandler \ + (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#define Tcl_CreateFileHandler \ + (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ +#endif /* MACOSX */ +#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ +#define Tcl_DeleteFileHandler \ + (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#define Tcl_DeleteFileHandler \ + (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ +#endif /* MACOSX */ +#define Tcl_SetTimer \ + (tclStubsPtr->tcl_SetTimer) /* 11 */ +#define Tcl_Sleep \ + (tclStubsPtr->tcl_Sleep) /* 12 */ +#define Tcl_WaitForEvent \ + (tclStubsPtr->tcl_WaitForEvent) /* 13 */ +#define Tcl_AppendAllObjTypes \ + (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */ +#define Tcl_AppendStringsToObj \ + (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */ +#define Tcl_AppendToObj \ + (tclStubsPtr->tcl_AppendToObj) /* 16 */ +#define Tcl_ConcatObj \ + (tclStubsPtr->tcl_ConcatObj) /* 17 */ +#define Tcl_ConvertToType \ + (tclStubsPtr->tcl_ConvertToType) /* 18 */ +#define Tcl_DbDecrRefCount \ + (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */ +#define Tcl_DbIncrRefCount \ + (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */ +#define Tcl_DbIsShared \ + (tclStubsPtr->tcl_DbIsShared) /* 21 */ +#define Tcl_DbNewBooleanObj \ + (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */ +#define Tcl_DbNewByteArrayObj \ + (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */ +#define Tcl_DbNewDoubleObj \ + (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */ +#define Tcl_DbNewListObj \ + (tclStubsPtr->tcl_DbNewListObj) /* 25 */ +#define Tcl_DbNewLongObj \ + (tclStubsPtr->tcl_DbNewLongObj) /* 26 */ +#define Tcl_DbNewObj \ + (tclStubsPtr->tcl_DbNewObj) /* 27 */ +#define Tcl_DbNewStringObj \ + (tclStubsPtr->tcl_DbNewStringObj) /* 28 */ +#define Tcl_DuplicateObj \ + (tclStubsPtr->tcl_DuplicateObj) /* 29 */ +#define TclFreeObj \ + (tclStubsPtr->tclFreeObj) /* 30 */ +#define Tcl_GetBoolean \ + (tclStubsPtr->tcl_GetBoolean) /* 31 */ +#define Tcl_GetBooleanFromObj \ + (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */ +#define Tcl_GetByteArrayFromObj \ + (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */ +#define Tcl_GetDouble \ + (tclStubsPtr->tcl_GetDouble) /* 34 */ +#define Tcl_GetDoubleFromObj \ + (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */ +#define Tcl_GetIndexFromObj \ + (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */ +#define Tcl_GetInt \ + (tclStubsPtr->tcl_GetInt) /* 37 */ +#define Tcl_GetIntFromObj \ + (tclStubsPtr->tcl_GetIntFromObj) /* 38 */ +#define Tcl_GetLongFromObj \ + (tclStubsPtr->tcl_GetLongFromObj) /* 39 */ +#define Tcl_GetObjType \ + (tclStubsPtr->tcl_GetObjType) /* 40 */ +#define Tcl_GetStringFromObj \ + (tclStubsPtr->tcl_GetStringFromObj) /* 41 */ +#define Tcl_InvalidateStringRep \ + (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */ +#define Tcl_ListObjAppendList \ + (tclStubsPtr->tcl_ListObjAppendList) /* 43 */ +#define Tcl_ListObjAppendElement \ + (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */ +#define Tcl_ListObjGetElements \ + (tclStubsPtr->tcl_ListObjGetElements) /* 45 */ +#define Tcl_ListObjIndex \ + (tclStubsPtr->tcl_ListObjIndex) /* 46 */ +#define Tcl_ListObjLength \ + (tclStubsPtr->tcl_ListObjLength) /* 47 */ +#define Tcl_ListObjReplace \ + (tclStubsPtr->tcl_ListObjReplace) /* 48 */ +#define Tcl_NewBooleanObj \ + (tclStubsPtr->tcl_NewBooleanObj) /* 49 */ +#define Tcl_NewByteArrayObj \ + (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */ +#define Tcl_NewDoubleObj \ + (tclStubsPtr->tcl_NewDoubleObj) /* 51 */ +#define Tcl_NewIntObj \ + (tclStubsPtr->tcl_NewIntObj) /* 52 */ +#define Tcl_NewListObj \ + (tclStubsPtr->tcl_NewListObj) /* 53 */ +#define Tcl_NewLongObj \ + (tclStubsPtr->tcl_NewLongObj) /* 54 */ +#define Tcl_NewObj \ + (tclStubsPtr->tcl_NewObj) /* 55 */ +#define Tcl_NewStringObj \ + (tclStubsPtr->tcl_NewStringObj) /* 56 */ +#define Tcl_SetBooleanObj \ + (tclStubsPtr->tcl_SetBooleanObj) /* 57 */ +#define Tcl_SetByteArrayLength \ + (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */ +#define Tcl_SetByteArrayObj \ + (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */ +#define Tcl_SetDoubleObj \ + (tclStubsPtr->tcl_SetDoubleObj) /* 60 */ +#define Tcl_SetIntObj \ + (tclStubsPtr->tcl_SetIntObj) /* 61 */ +#define Tcl_SetListObj \ + (tclStubsPtr->tcl_SetListObj) /* 62 */ +#define Tcl_SetLongObj \ + (tclStubsPtr->tcl_SetLongObj) /* 63 */ +#define Tcl_SetObjLength \ + (tclStubsPtr->tcl_SetObjLength) /* 64 */ +#define Tcl_SetStringObj \ + (tclStubsPtr->tcl_SetStringObj) /* 65 */ +#define Tcl_AddErrorInfo \ + (tclStubsPtr->tcl_AddErrorInfo) /* 66 */ +#define Tcl_AddObjErrorInfo \ + (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */ +#define Tcl_AllowExceptions \ + (tclStubsPtr->tcl_AllowExceptions) /* 68 */ +#define Tcl_AppendElement \ + (tclStubsPtr->tcl_AppendElement) /* 69 */ +#define Tcl_AppendResult \ + (tclStubsPtr->tcl_AppendResult) /* 70 */ +#define Tcl_AsyncCreate \ + (tclStubsPtr->tcl_AsyncCreate) /* 71 */ +#define Tcl_AsyncDelete \ + (tclStubsPtr->tcl_AsyncDelete) /* 72 */ +#define Tcl_AsyncInvoke \ + (tclStubsPtr->tcl_AsyncInvoke) /* 73 */ +#define Tcl_AsyncMark \ + (tclStubsPtr->tcl_AsyncMark) /* 74 */ +#define Tcl_AsyncReady \ + (tclStubsPtr->tcl_AsyncReady) /* 75 */ +#define Tcl_BackgroundError \ + (tclStubsPtr->tcl_BackgroundError) /* 76 */ +#define Tcl_Backslash \ + (tclStubsPtr->tcl_Backslash) /* 77 */ +#define Tcl_BadChannelOption \ + (tclStubsPtr->tcl_BadChannelOption) /* 78 */ +#define Tcl_CallWhenDeleted \ + (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */ +#define Tcl_CancelIdleCall \ + (tclStubsPtr->tcl_CancelIdleCall) /* 80 */ +#define Tcl_Close \ + (tclStubsPtr->tcl_Close) /* 81 */ +#define Tcl_CommandComplete \ + (tclStubsPtr->tcl_CommandComplete) /* 82 */ +#define Tcl_Concat \ + (tclStubsPtr->tcl_Concat) /* 83 */ +#define Tcl_ConvertElement \ + (tclStubsPtr->tcl_ConvertElement) /* 84 */ +#define Tcl_ConvertCountedElement \ + (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */ +#define Tcl_CreateAlias \ + (tclStubsPtr->tcl_CreateAlias) /* 86 */ +#define Tcl_CreateAliasObj \ + (tclStubsPtr->tcl_CreateAliasObj) /* 87 */ +#define Tcl_CreateChannel \ + (tclStubsPtr->tcl_CreateChannel) /* 88 */ +#define Tcl_CreateChannelHandler \ + (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */ +#define Tcl_CreateCloseHandler \ + (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */ +#define Tcl_CreateCommand \ + (tclStubsPtr->tcl_CreateCommand) /* 91 */ +#define Tcl_CreateEventSource \ + (tclStubsPtr->tcl_CreateEventSource) /* 92 */ +#define Tcl_CreateExitHandler \ + (tclStubsPtr->tcl_CreateExitHandler) /* 93 */ +#define Tcl_CreateInterp \ + (tclStubsPtr->tcl_CreateInterp) /* 94 */ +#define Tcl_CreateMathFunc \ + (tclStubsPtr->tcl_CreateMathFunc) /* 95 */ +#define Tcl_CreateObjCommand \ + (tclStubsPtr->tcl_CreateObjCommand) /* 96 */ +#define Tcl_CreateSlave \ + (tclStubsPtr->tcl_CreateSlave) /* 97 */ +#define Tcl_CreateTimerHandler \ + (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */ +#define Tcl_CreateTrace \ + (tclStubsPtr->tcl_CreateTrace) /* 99 */ +#define Tcl_DeleteAssocData \ + (tclStubsPtr->tcl_DeleteAssocData) /* 100 */ +#define Tcl_DeleteChannelHandler \ + (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */ +#define Tcl_DeleteCloseHandler \ + (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */ +#define Tcl_DeleteCommand \ + (tclStubsPtr->tcl_DeleteCommand) /* 103 */ +#define Tcl_DeleteCommandFromToken \ + (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */ +#define Tcl_DeleteEvents \ + (tclStubsPtr->tcl_DeleteEvents) /* 105 */ +#define Tcl_DeleteEventSource \ + (tclStubsPtr->tcl_DeleteEventSource) /* 106 */ +#define Tcl_DeleteExitHandler \ + (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */ +#define Tcl_DeleteHashEntry \ + (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */ +#define Tcl_DeleteHashTable \ + (tclStubsPtr->tcl_DeleteHashTable) /* 109 */ +#define Tcl_DeleteInterp \ + (tclStubsPtr->tcl_DeleteInterp) /* 110 */ +#define Tcl_DetachPids \ + (tclStubsPtr->tcl_DetachPids) /* 111 */ +#define Tcl_DeleteTimerHandler \ + (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */ +#define Tcl_DeleteTrace \ + (tclStubsPtr->tcl_DeleteTrace) /* 113 */ +#define Tcl_DontCallWhenDeleted \ + (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */ +#define Tcl_DoOneEvent \ + (tclStubsPtr->tcl_DoOneEvent) /* 115 */ +#define Tcl_DoWhenIdle \ + (tclStubsPtr->tcl_DoWhenIdle) /* 116 */ +#define Tcl_DStringAppend \ + (tclStubsPtr->tcl_DStringAppend) /* 117 */ +#define Tcl_DStringAppendElement \ + (tclStubsPtr->tcl_DStringAppendElement) /* 118 */ +#define Tcl_DStringEndSublist \ + (tclStubsPtr->tcl_DStringEndSublist) /* 119 */ +#define Tcl_DStringFree \ + (tclStubsPtr->tcl_DStringFree) /* 120 */ +#define Tcl_DStringGetResult \ + (tclStubsPtr->tcl_DStringGetResult) /* 121 */ +#define Tcl_DStringInit \ + (tclStubsPtr->tcl_DStringInit) /* 122 */ +#define Tcl_DStringResult \ + (tclStubsPtr->tcl_DStringResult) /* 123 */ +#define Tcl_DStringSetLength \ + (tclStubsPtr->tcl_DStringSetLength) /* 124 */ +#define Tcl_DStringStartSublist \ + (tclStubsPtr->tcl_DStringStartSublist) /* 125 */ +#define Tcl_Eof \ + (tclStubsPtr->tcl_Eof) /* 126 */ +#define Tcl_ErrnoId \ + (tclStubsPtr->tcl_ErrnoId) /* 127 */ +#define Tcl_ErrnoMsg \ + (tclStubsPtr->tcl_ErrnoMsg) /* 128 */ +#define Tcl_Eval \ + (tclStubsPtr->tcl_Eval) /* 129 */ +#define Tcl_EvalFile \ + (tclStubsPtr->tcl_EvalFile) /* 130 */ +#define Tcl_EvalObj \ + (tclStubsPtr->tcl_EvalObj) /* 131 */ +#define Tcl_EventuallyFree \ + (tclStubsPtr->tcl_EventuallyFree) /* 132 */ +#define Tcl_Exit \ + (tclStubsPtr->tcl_Exit) /* 133 */ +#define Tcl_ExposeCommand \ + (tclStubsPtr->tcl_ExposeCommand) /* 134 */ +#define Tcl_ExprBoolean \ + (tclStubsPtr->tcl_ExprBoolean) /* 135 */ +#define Tcl_ExprBooleanObj \ + (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */ +#define Tcl_ExprDouble \ + (tclStubsPtr->tcl_ExprDouble) /* 137 */ +#define Tcl_ExprDoubleObj \ + (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */ +#define Tcl_ExprLong \ + (tclStubsPtr->tcl_ExprLong) /* 139 */ +#define Tcl_ExprLongObj \ + (tclStubsPtr->tcl_ExprLongObj) /* 140 */ +#define Tcl_ExprObj \ + (tclStubsPtr->tcl_ExprObj) /* 141 */ +#define Tcl_ExprString \ + (tclStubsPtr->tcl_ExprString) /* 142 */ +#define Tcl_Finalize \ + (tclStubsPtr->tcl_Finalize) /* 143 */ +#define Tcl_FindExecutable \ + (tclStubsPtr->tcl_FindExecutable) /* 144 */ +#define Tcl_FirstHashEntry \ + (tclStubsPtr->tcl_FirstHashEntry) /* 145 */ +#define Tcl_Flush \ + (tclStubsPtr->tcl_Flush) /* 146 */ +#define Tcl_FreeResult \ + (tclStubsPtr->tcl_FreeResult) /* 147 */ +#define Tcl_GetAlias \ + (tclStubsPtr->tcl_GetAlias) /* 148 */ +#define Tcl_GetAliasObj \ + (tclStubsPtr->tcl_GetAliasObj) /* 149 */ +#define Tcl_GetAssocData \ + (tclStubsPtr->tcl_GetAssocData) /* 150 */ +#define Tcl_GetChannel \ + (tclStubsPtr->tcl_GetChannel) /* 151 */ +#define Tcl_GetChannelBufferSize \ + (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */ +#define Tcl_GetChannelHandle \ + (tclStubsPtr->tcl_GetChannelHandle) /* 153 */ +#define Tcl_GetChannelInstanceData \ + (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */ +#define Tcl_GetChannelMode \ + (tclStubsPtr->tcl_GetChannelMode) /* 155 */ +#define Tcl_GetChannelName \ + (tclStubsPtr->tcl_GetChannelName) /* 156 */ +#define Tcl_GetChannelOption \ + (tclStubsPtr->tcl_GetChannelOption) /* 157 */ +#define Tcl_GetChannelType \ + (tclStubsPtr->tcl_GetChannelType) /* 158 */ +#define Tcl_GetCommandInfo \ + (tclStubsPtr->tcl_GetCommandInfo) /* 159 */ +#define Tcl_GetCommandName \ + (tclStubsPtr->tcl_GetCommandName) /* 160 */ +#define Tcl_GetErrno \ + (tclStubsPtr->tcl_GetErrno) /* 161 */ +#define Tcl_GetHostName \ + (tclStubsPtr->tcl_GetHostName) /* 162 */ +#define Tcl_GetInterpPath \ + (tclStubsPtr->tcl_GetInterpPath) /* 163 */ +#define Tcl_GetMaster \ + (tclStubsPtr->tcl_GetMaster) /* 164 */ +#define Tcl_GetNameOfExecutable \ + (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */ +#define Tcl_GetObjResult \ + (tclStubsPtr->tcl_GetObjResult) /* 166 */ +#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ +#define Tcl_GetOpenFile \ + (tclStubsPtr->tcl_GetOpenFile) /* 167 */ +#endif /* UNIX */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#define Tcl_GetOpenFile \ + (tclStubsPtr->tcl_GetOpenFile) /* 167 */ +#endif /* MACOSX */ +#define Tcl_GetPathType \ + (tclStubsPtr->tcl_GetPathType) /* 168 */ +#define Tcl_Gets \ + (tclStubsPtr->tcl_Gets) /* 169 */ +#define Tcl_GetsObj \ + (tclStubsPtr->tcl_GetsObj) /* 170 */ +#define Tcl_GetServiceMode \ + (tclStubsPtr->tcl_GetServiceMode) /* 171 */ +#define Tcl_GetSlave \ + (tclStubsPtr->tcl_GetSlave) /* 172 */ +#define Tcl_GetStdChannel \ + (tclStubsPtr->tcl_GetStdChannel) /* 173 */ +#define Tcl_GetStringResult \ + (tclStubsPtr->tcl_GetStringResult) /* 174 */ +#define Tcl_GetVar \ + (tclStubsPtr->tcl_GetVar) /* 175 */ +#define Tcl_GetVar2 \ + (tclStubsPtr->tcl_GetVar2) /* 176 */ +#define Tcl_GlobalEval \ + (tclStubsPtr->tcl_GlobalEval) /* 177 */ +#define Tcl_GlobalEvalObj \ + (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */ +#define Tcl_HideCommand \ + (tclStubsPtr->tcl_HideCommand) /* 179 */ +#define Tcl_Init \ + (tclStubsPtr->tcl_Init) /* 180 */ +#define Tcl_InitHashTable \ + (tclStubsPtr->tcl_InitHashTable) /* 181 */ +#define Tcl_InputBlocked \ + (tclStubsPtr->tcl_InputBlocked) /* 182 */ +#define Tcl_InputBuffered \ + (tclStubsPtr->tcl_InputBuffered) /* 183 */ +#define Tcl_InterpDeleted \ + (tclStubsPtr->tcl_InterpDeleted) /* 184 */ +#define Tcl_IsSafe \ + (tclStubsPtr->tcl_IsSafe) /* 185 */ +#define Tcl_JoinPath \ + (tclStubsPtr->tcl_JoinPath) /* 186 */ +#define Tcl_LinkVar \ + (tclStubsPtr->tcl_LinkVar) /* 187 */ +/* Slot 188 is reserved */ +#define Tcl_MakeFileChannel \ + (tclStubsPtr->tcl_MakeFileChannel) /* 189 */ +#define Tcl_MakeSafe \ + (tclStubsPtr->tcl_MakeSafe) /* 190 */ +#define Tcl_MakeTcpClientChannel \ + (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */ +#define Tcl_Merge \ + (tclStubsPtr->tcl_Merge) /* 192 */ +#define Tcl_NextHashEntry \ + (tclStubsPtr->tcl_NextHashEntry) /* 193 */ +#define Tcl_NotifyChannel \ + (tclStubsPtr->tcl_NotifyChannel) /* 194 */ +#define Tcl_ObjGetVar2 \ + (tclStubsPtr->tcl_ObjGetVar2) /* 195 */ +#define Tcl_ObjSetVar2 \ + (tclStubsPtr->tcl_ObjSetVar2) /* 196 */ +#define Tcl_OpenCommandChannel \ + (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ +#define Tcl_OpenFileChannel \ + (tclStubsPtr->tcl_OpenFileChannel) /* 198 */ +#define Tcl_OpenTcpClient \ + (tclStubsPtr->tcl_OpenTcpClient) /* 199 */ +#define Tcl_OpenTcpServer \ + (tclStubsPtr->tcl_OpenTcpServer) /* 200 */ +#define Tcl_Preserve \ + (tclStubsPtr->tcl_Preserve) /* 201 */ +#define Tcl_PrintDouble \ + (tclStubsPtr->tcl_PrintDouble) /* 202 */ +#define Tcl_PutEnv \ + (tclStubsPtr->tcl_PutEnv) /* 203 */ +#define Tcl_PosixError \ + (tclStubsPtr->tcl_PosixError) /* 204 */ +#define Tcl_QueueEvent \ + (tclStubsPtr->tcl_QueueEvent) /* 205 */ +#define Tcl_Read \ + (tclStubsPtr->tcl_Read) /* 206 */ +#define Tcl_ReapDetachedProcs \ + (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ +#define Tcl_RecordAndEval \ + (tclStubsPtr->tcl_RecordAndEval) /* 208 */ +#define Tcl_RecordAndEvalObj \ + (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */ +#define Tcl_RegisterChannel \ + (tclStubsPtr->tcl_RegisterChannel) /* 210 */ +#define Tcl_RegisterObjType \ + (tclStubsPtr->tcl_RegisterObjType) /* 211 */ +#define Tcl_RegExpCompile \ + (tclStubsPtr->tcl_RegExpCompile) /* 212 */ +#define Tcl_RegExpExec \ + (tclStubsPtr->tcl_RegExpExec) /* 213 */ +#define Tcl_RegExpMatch \ + (tclStubsPtr->tcl_RegExpMatch) /* 214 */ +#define Tcl_RegExpRange \ + (tclStubsPtr->tcl_RegExpRange) /* 215 */ +#define Tcl_Release \ + (tclStubsPtr->tcl_Release) /* 216 */ +#define Tcl_ResetResult \ + (tclStubsPtr->tcl_ResetResult) /* 217 */ +#define Tcl_ScanElement \ + (tclStubsPtr->tcl_ScanElement) /* 218 */ +#define Tcl_ScanCountedElement \ + (tclStubsPtr->tcl_ScanCountedElement) /* 219 */ +#define Tcl_SeekOld \ + (tclStubsPtr->tcl_SeekOld) /* 220 */ +#define Tcl_ServiceAll \ + (tclStubsPtr->tcl_ServiceAll) /* 221 */ +#define Tcl_ServiceEvent \ + (tclStubsPtr->tcl_ServiceEvent) /* 222 */ +#define Tcl_SetAssocData \ + (tclStubsPtr->tcl_SetAssocData) /* 223 */ +#define Tcl_SetChannelBufferSize \ + (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */ +#define Tcl_SetChannelOption \ + (tclStubsPtr->tcl_SetChannelOption) /* 225 */ +#define Tcl_SetCommandInfo \ + (tclStubsPtr->tcl_SetCommandInfo) /* 226 */ +#define Tcl_SetErrno \ + (tclStubsPtr->tcl_SetErrno) /* 227 */ +#define Tcl_SetErrorCode \ + (tclStubsPtr->tcl_SetErrorCode) /* 228 */ +#define Tcl_SetMaxBlockTime \ + (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */ +#define Tcl_SetPanicProc \ + (tclStubsPtr->tcl_SetPanicProc) /* 230 */ +#define Tcl_SetRecursionLimit \ + (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */ +#define Tcl_SetResult \ + (tclStubsPtr->tcl_SetResult) /* 232 */ +#define Tcl_SetServiceMode \ + (tclStubsPtr->tcl_SetServiceMode) /* 233 */ +#define Tcl_SetObjErrorCode \ + (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */ +#define Tcl_SetObjResult \ + (tclStubsPtr->tcl_SetObjResult) /* 235 */ +#define Tcl_SetStdChannel \ + (tclStubsPtr->tcl_SetStdChannel) /* 236 */ +#define Tcl_SetVar \ + (tclStubsPtr->tcl_SetVar) /* 237 */ +#define Tcl_SetVar2 \ + (tclStubsPtr->tcl_SetVar2) /* 238 */ +#define Tcl_SignalId \ + (tclStubsPtr->tcl_SignalId) /* 239 */ +#define Tcl_SignalMsg \ + (tclStubsPtr->tcl_SignalMsg) /* 240 */ +#define Tcl_SourceRCFile \ + (tclStubsPtr->tcl_SourceRCFile) /* 241 */ +#define Tcl_SplitList \ + (tclStubsPtr->tcl_SplitList) /* 242 */ +#define Tcl_SplitPath \ + (tclStubsPtr->tcl_SplitPath) /* 243 */ +#define Tcl_StaticPackage \ + (tclStubsPtr->tcl_StaticPackage) /* 244 */ +#define Tcl_StringMatch \ + (tclStubsPtr->tcl_StringMatch) /* 245 */ +#define Tcl_TellOld \ + (tclStubsPtr->tcl_TellOld) /* 246 */ +#define Tcl_TraceVar \ + (tclStubsPtr->tcl_TraceVar) /* 247 */ +#define Tcl_TraceVar2 \ + (tclStubsPtr->tcl_TraceVar2) /* 248 */ +#define Tcl_TranslateFileName \ + (tclStubsPtr->tcl_TranslateFileName) /* 249 */ +#define Tcl_Ungets \ + (tclStubsPtr->tcl_Ungets) /* 250 */ +#define Tcl_UnlinkVar \ + (tclStubsPtr->tcl_UnlinkVar) /* 251 */ +#define Tcl_UnregisterChannel \ + (tclStubsPtr->tcl_UnregisterChannel) /* 252 */ +#define Tcl_UnsetVar \ + (tclStubsPtr->tcl_UnsetVar) /* 253 */ +#define Tcl_UnsetVar2 \ + (tclStubsPtr->tcl_UnsetVar2) /* 254 */ +#define Tcl_UntraceVar \ + (tclStubsPtr->tcl_UntraceVar) /* 255 */ +#define Tcl_UntraceVar2 \ + (tclStubsPtr->tcl_UntraceVar2) /* 256 */ +#define Tcl_UpdateLinkedVar \ + (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */ +#define Tcl_UpVar \ + (tclStubsPtr->tcl_UpVar) /* 258 */ +#define Tcl_UpVar2 \ + (tclStubsPtr->tcl_UpVar2) /* 259 */ +#define Tcl_VarEval \ + (tclStubsPtr->tcl_VarEval) /* 260 */ +#define Tcl_VarTraceInfo \ + (tclStubsPtr->tcl_VarTraceInfo) /* 261 */ +#define Tcl_VarTraceInfo2 \ + (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */ +#define Tcl_Write \ + (tclStubsPtr->tcl_Write) /* 263 */ +#define Tcl_WrongNumArgs \ + (tclStubsPtr->tcl_WrongNumArgs) /* 264 */ +#define Tcl_DumpActiveMemory \ + (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */ +#define Tcl_ValidateAllMemory \ + (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */ +#define Tcl_AppendResultVA \ + (tclStubsPtr->tcl_AppendResultVA) /* 267 */ +#define Tcl_AppendStringsToObjVA \ + (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */ +#define Tcl_HashStats \ + (tclStubsPtr->tcl_HashStats) /* 269 */ +#define Tcl_ParseVar \ + (tclStubsPtr->tcl_ParseVar) /* 270 */ +#define Tcl_PkgPresent \ + (tclStubsPtr->tcl_PkgPresent) /* 271 */ +#define Tcl_PkgPresentEx \ + (tclStubsPtr->tcl_PkgPresentEx) /* 272 */ +#define Tcl_PkgProvide \ + (tclStubsPtr->tcl_PkgProvide) /* 273 */ +#define Tcl_PkgRequire \ + (tclStubsPtr->tcl_PkgRequire) /* 274 */ +#define Tcl_SetErrorCodeVA \ + (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */ +#define Tcl_VarEvalVA \ + (tclStubsPtr->tcl_VarEvalVA) /* 276 */ +#define Tcl_WaitPid \ + (tclStubsPtr->tcl_WaitPid) /* 277 */ +#define Tcl_PanicVA \ + (tclStubsPtr->tcl_PanicVA) /* 278 */ +#define Tcl_GetVersion \ + (tclStubsPtr->tcl_GetVersion) /* 279 */ +#define Tcl_InitMemory \ + (tclStubsPtr->tcl_InitMemory) /* 280 */ +#define Tcl_StackChannel \ + (tclStubsPtr->tcl_StackChannel) /* 281 */ +#define Tcl_UnstackChannel \ + (tclStubsPtr->tcl_UnstackChannel) /* 282 */ +#define Tcl_GetStackedChannel \ + (tclStubsPtr->tcl_GetStackedChannel) /* 283 */ +#define Tcl_SetMainLoop \ + (tclStubsPtr->tcl_SetMainLoop) /* 284 */ +/* Slot 285 is reserved */ +#define Tcl_AppendObjToObj \ + (tclStubsPtr->tcl_AppendObjToObj) /* 286 */ +#define Tcl_CreateEncoding \ + (tclStubsPtr->tcl_CreateEncoding) /* 287 */ +#define Tcl_CreateThreadExitHandler \ + (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */ +#define Tcl_DeleteThreadExitHandler \ + (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */ +#define Tcl_DiscardResult \ + (tclStubsPtr->tcl_DiscardResult) /* 290 */ +#define Tcl_EvalEx \ + (tclStubsPtr->tcl_EvalEx) /* 291 */ +#define Tcl_EvalObjv \ + (tclStubsPtr->tcl_EvalObjv) /* 292 */ +#define Tcl_EvalObjEx \ + (tclStubsPtr->tcl_EvalObjEx) /* 293 */ +#define Tcl_ExitThread \ + (tclStubsPtr->tcl_ExitThread) /* 294 */ +#define Tcl_ExternalToUtf \ + (tclStubsPtr->tcl_ExternalToUtf) /* 295 */ +#define Tcl_ExternalToUtfDString \ + (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */ +#define Tcl_FinalizeThread \ + (tclStubsPtr->tcl_FinalizeThread) /* 297 */ +#define Tcl_FinalizeNotifier \ + (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */ +#define Tcl_FreeEncoding \ + (tclStubsPtr->tcl_FreeEncoding) /* 299 */ +#define Tcl_GetCurrentThread \ + (tclStubsPtr->tcl_GetCurrentThread) /* 300 */ +#define Tcl_GetEncoding \ + (tclStubsPtr->tcl_GetEncoding) /* 301 */ +#define Tcl_GetEncodingName \ + (tclStubsPtr->tcl_GetEncodingName) /* 302 */ +#define Tcl_GetEncodingNames \ + (tclStubsPtr->tcl_GetEncodingNames) /* 303 */ +#define Tcl_GetIndexFromObjStruct \ + (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */ +#define Tcl_GetThreadData \ + (tclStubsPtr->tcl_GetThreadData) /* 305 */ +#define Tcl_GetVar2Ex \ + (tclStubsPtr->tcl_GetVar2Ex) /* 306 */ +#define Tcl_InitNotifier \ + (tclStubsPtr->tcl_InitNotifier) /* 307 */ +#define Tcl_MutexLock \ + (tclStubsPtr->tcl_MutexLock) /* 308 */ +#define Tcl_MutexUnlock \ + (tclStubsPtr->tcl_MutexUnlock) /* 309 */ +#define Tcl_ConditionNotify \ + (tclStubsPtr->tcl_ConditionNotify) /* 310 */ +#define Tcl_ConditionWait \ + (tclStubsPtr->tcl_ConditionWait) /* 311 */ +#define Tcl_NumUtfChars \ + (tclStubsPtr->tcl_NumUtfChars) /* 312 */ +#define Tcl_ReadChars \ + (tclStubsPtr->tcl_ReadChars) /* 313 */ +#define Tcl_RestoreResult \ + (tclStubsPtr->tcl_RestoreResult) /* 314 */ +#define Tcl_SaveResult \ + (tclStubsPtr->tcl_SaveResult) /* 315 */ +#define Tcl_SetSystemEncoding \ + (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */ +#define Tcl_SetVar2Ex \ + (tclStubsPtr->tcl_SetVar2Ex) /* 317 */ +#define Tcl_ThreadAlert \ + (tclStubsPtr->tcl_ThreadAlert) /* 318 */ +#define Tcl_ThreadQueueEvent \ + (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */ +#define Tcl_UniCharAtIndex \ + (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */ +#define Tcl_UniCharToLower \ + (tclStubsPtr->tcl_UniCharToLower) /* 321 */ +#define Tcl_UniCharToTitle \ + (tclStubsPtr->tcl_UniCharToTitle) /* 322 */ +#define Tcl_UniCharToUpper \ + (tclStubsPtr->tcl_UniCharToUpper) /* 323 */ +#define Tcl_UniCharToUtf \ + (tclStubsPtr->tcl_UniCharToUtf) /* 324 */ +#define Tcl_UtfAtIndex \ + (tclStubsPtr->tcl_UtfAtIndex) /* 325 */ +#define Tcl_UtfCharComplete \ + (tclStubsPtr->tcl_UtfCharComplete) /* 326 */ +#define Tcl_UtfBackslash \ + (tclStubsPtr->tcl_UtfBackslash) /* 327 */ +#define Tcl_UtfFindFirst \ + (tclStubsPtr->tcl_UtfFindFirst) /* 328 */ +#define Tcl_UtfFindLast \ + (tclStubsPtr->tcl_UtfFindLast) /* 329 */ +#define Tcl_UtfNext \ + (tclStubsPtr->tcl_UtfNext) /* 330 */ +#define Tcl_UtfPrev \ + (tclStubsPtr->tcl_UtfPrev) /* 331 */ +#define Tcl_UtfToExternal \ + (tclStubsPtr->tcl_UtfToExternal) /* 332 */ +#define Tcl_UtfToExternalDString \ + (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */ +#define Tcl_UtfToLower \ + (tclStubsPtr->tcl_UtfToLower) /* 334 */ +#define Tcl_UtfToTitle \ + (tclStubsPtr->tcl_UtfToTitle) /* 335 */ +#define Tcl_UtfToUniChar \ + (tclStubsPtr->tcl_UtfToUniChar) /* 336 */ +#define Tcl_UtfToUpper \ + (tclStubsPtr->tcl_UtfToUpper) /* 337 */ +#define Tcl_WriteChars \ + (tclStubsPtr->tcl_WriteChars) /* 338 */ +#define Tcl_WriteObj \ + (tclStubsPtr->tcl_WriteObj) /* 339 */ +#define Tcl_GetString \ + (tclStubsPtr->tcl_GetString) /* 340 */ +#define Tcl_GetDefaultEncodingDir \ + (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */ +#define Tcl_SetDefaultEncodingDir \ + (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */ +#define Tcl_AlertNotifier \ + (tclStubsPtr->tcl_AlertNotifier) /* 343 */ +#define Tcl_ServiceModeHook \ + (tclStubsPtr->tcl_ServiceModeHook) /* 344 */ +#define Tcl_UniCharIsAlnum \ + (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */ +#define Tcl_UniCharIsAlpha \ + (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */ +#define Tcl_UniCharIsDigit \ + (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */ +#define Tcl_UniCharIsLower \ + (tclStubsPtr->tcl_UniCharIsLower) /* 348 */ +#define Tcl_UniCharIsSpace \ + (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */ +#define Tcl_UniCharIsUpper \ + (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */ +#define Tcl_UniCharIsWordChar \ + (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */ +#define Tcl_UniCharLen \ + (tclStubsPtr->tcl_UniCharLen) /* 352 */ +#define Tcl_UniCharNcmp \ + (tclStubsPtr->tcl_UniCharNcmp) /* 353 */ +#define Tcl_UniCharToUtfDString \ + (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */ +#define Tcl_UtfToUniCharDString \ + (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */ +#define Tcl_GetRegExpFromObj \ + (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */ +#define Tcl_EvalTokens \ + (tclStubsPtr->tcl_EvalTokens) /* 357 */ +#define Tcl_FreeParse \ + (tclStubsPtr->tcl_FreeParse) /* 358 */ +#define Tcl_LogCommandInfo \ + (tclStubsPtr->tcl_LogCommandInfo) /* 359 */ +#define Tcl_ParseBraces \ + (tclStubsPtr->tcl_ParseBraces) /* 360 */ +#define Tcl_ParseCommand \ + (tclStubsPtr->tcl_ParseCommand) /* 361 */ +#define Tcl_ParseExpr \ + (tclStubsPtr->tcl_ParseExpr) /* 362 */ +#define Tcl_ParseQuotedString \ + (tclStubsPtr->tcl_ParseQuotedString) /* 363 */ +#define Tcl_ParseVarName \ + (tclStubsPtr->tcl_ParseVarName) /* 364 */ +#define Tcl_GetCwd \ + (tclStubsPtr->tcl_GetCwd) /* 365 */ +#define Tcl_Chdir \ + (tclStubsPtr->tcl_Chdir) /* 366 */ +#define Tcl_Access \ + (tclStubsPtr->tcl_Access) /* 367 */ +#define Tcl_Stat \ + (tclStubsPtr->tcl_Stat) /* 368 */ +#define Tcl_UtfNcmp \ + (tclStubsPtr->tcl_UtfNcmp) /* 369 */ +#define Tcl_UtfNcasecmp \ + (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */ +#define Tcl_StringCaseMatch \ + (tclStubsPtr->tcl_StringCaseMatch) /* 371 */ +#define Tcl_UniCharIsControl \ + (tclStubsPtr->tcl_UniCharIsControl) /* 372 */ +#define Tcl_UniCharIsGraph \ + (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */ +#define Tcl_UniCharIsPrint \ + (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */ +#define Tcl_UniCharIsPunct \ + (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */ +#define Tcl_RegExpExecObj \ + (tclStubsPtr->tcl_RegExpExecObj) /* 376 */ +#define Tcl_RegExpGetInfo \ + (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */ +#define Tcl_NewUnicodeObj \ + (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */ +#define Tcl_SetUnicodeObj \ + (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */ +#define Tcl_GetCharLength \ + (tclStubsPtr->tcl_GetCharLength) /* 380 */ +#define Tcl_GetUniChar \ + (tclStubsPtr->tcl_GetUniChar) /* 381 */ +#define Tcl_GetUnicode \ + (tclStubsPtr->tcl_GetUnicode) /* 382 */ +#define Tcl_GetRange \ + (tclStubsPtr->tcl_GetRange) /* 383 */ +#define Tcl_AppendUnicodeToObj \ + (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */ +#define Tcl_RegExpMatchObj \ + (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */ +#define Tcl_SetNotifier \ + (tclStubsPtr->tcl_SetNotifier) /* 386 */ +#define Tcl_GetAllocMutex \ + (tclStubsPtr->tcl_GetAllocMutex) /* 387 */ +#define Tcl_GetChannelNames \ + (tclStubsPtr->tcl_GetChannelNames) /* 388 */ +#define Tcl_GetChannelNamesEx \ + (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */ +#define Tcl_ProcObjCmd \ + (tclStubsPtr->tcl_ProcObjCmd) /* 390 */ +#define Tcl_ConditionFinalize \ + (tclStubsPtr->tcl_ConditionFinalize) /* 391 */ +#define Tcl_MutexFinalize \ + (tclStubsPtr->tcl_MutexFinalize) /* 392 */ +#define Tcl_CreateThread \ + (tclStubsPtr->tcl_CreateThread) /* 393 */ +#define Tcl_ReadRaw \ + (tclStubsPtr->tcl_ReadRaw) /* 394 */ +#define Tcl_WriteRaw \ + (tclStubsPtr->tcl_WriteRaw) /* 395 */ +#define Tcl_GetTopChannel \ + (tclStubsPtr->tcl_GetTopChannel) /* 396 */ +#define Tcl_ChannelBuffered \ + (tclStubsPtr->tcl_ChannelBuffered) /* 397 */ +#define Tcl_ChannelName \ + (tclStubsPtr->tcl_ChannelName) /* 398 */ +#define Tcl_ChannelVersion \ + (tclStubsPtr->tcl_ChannelVersion) /* 399 */ +#define Tcl_ChannelBlockModeProc \ + (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */ +#define Tcl_ChannelCloseProc \ + (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */ +#define Tcl_ChannelClose2Proc \ + (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */ +#define Tcl_ChannelInputProc \ + (tclStubsPtr->tcl_ChannelInputProc) /* 403 */ +#define Tcl_ChannelOutputProc \ + (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */ +#define Tcl_ChannelSeekProc \ + (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */ +#define Tcl_ChannelSetOptionProc \ + (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */ +#define Tcl_ChannelGetOptionProc \ + (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */ +#define Tcl_ChannelWatchProc \ + (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */ +#define Tcl_ChannelGetHandleProc \ + (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */ +#define Tcl_ChannelFlushProc \ + (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */ +#define Tcl_ChannelHandlerProc \ + (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */ +#define Tcl_JoinThread \ + (tclStubsPtr->tcl_JoinThread) /* 412 */ +#define Tcl_IsChannelShared \ + (tclStubsPtr->tcl_IsChannelShared) /* 413 */ +#define Tcl_IsChannelRegistered \ + (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */ +#define Tcl_CutChannel \ + (tclStubsPtr->tcl_CutChannel) /* 415 */ +#define Tcl_SpliceChannel \ + (tclStubsPtr->tcl_SpliceChannel) /* 416 */ +#define Tcl_ClearChannelHandlers \ + (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */ +#define Tcl_IsChannelExisting \ + (tclStubsPtr->tcl_IsChannelExisting) /* 418 */ +#define Tcl_UniCharNcasecmp \ + (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */ +#define Tcl_UniCharCaseMatch \ + (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */ +#define Tcl_FindHashEntry \ + (tclStubsPtr->tcl_FindHashEntry) /* 421 */ +#define Tcl_CreateHashEntry \ + (tclStubsPtr->tcl_CreateHashEntry) /* 422 */ +#define Tcl_InitCustomHashTable \ + (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */ +#define Tcl_InitObjHashTable \ + (tclStubsPtr->tcl_InitObjHashTable) /* 424 */ +#define Tcl_CommandTraceInfo \ + (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */ +#define Tcl_TraceCommand \ + (tclStubsPtr->tcl_TraceCommand) /* 426 */ +#define Tcl_UntraceCommand \ + (tclStubsPtr->tcl_UntraceCommand) /* 427 */ +#define Tcl_AttemptAlloc \ + (tclStubsPtr->tcl_AttemptAlloc) /* 428 */ +#define Tcl_AttemptDbCkalloc \ + (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */ +#define Tcl_AttemptRealloc \ + (tclStubsPtr->tcl_AttemptRealloc) /* 430 */ +#define Tcl_AttemptDbCkrealloc \ + (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */ +#define Tcl_AttemptSetObjLength \ + (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */ +#define Tcl_GetChannelThread \ + (tclStubsPtr->tcl_GetChannelThread) /* 433 */ +#define Tcl_GetUnicodeFromObj \ + (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */ +#define Tcl_GetMathFuncInfo \ + (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */ +#define Tcl_ListMathFuncs \ + (tclStubsPtr->tcl_ListMathFuncs) /* 436 */ +#define Tcl_SubstObj \ + (tclStubsPtr->tcl_SubstObj) /* 437 */ +#define Tcl_DetachChannel \ + (tclStubsPtr->tcl_DetachChannel) /* 438 */ +#define Tcl_IsStandardChannel \ + (tclStubsPtr->tcl_IsStandardChannel) /* 439 */ +#define Tcl_FSCopyFile \ + (tclStubsPtr->tcl_FSCopyFile) /* 440 */ +#define Tcl_FSCopyDirectory \ + (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */ +#define Tcl_FSCreateDirectory \ + (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */ +#define Tcl_FSDeleteFile \ + (tclStubsPtr->tcl_FSDeleteFile) /* 443 */ +#define Tcl_FSLoadFile \ + (tclStubsPtr->tcl_FSLoadFile) /* 444 */ +#define Tcl_FSMatchInDirectory \ + (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */ +#define Tcl_FSLink \ + (tclStubsPtr->tcl_FSLink) /* 446 */ +#define Tcl_FSRemoveDirectory \ + (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */ +#define Tcl_FSRenameFile \ + (tclStubsPtr->tcl_FSRenameFile) /* 448 */ +#define Tcl_FSLstat \ + (tclStubsPtr->tcl_FSLstat) /* 449 */ +#define Tcl_FSUtime \ + (tclStubsPtr->tcl_FSUtime) /* 450 */ +#define Tcl_FSFileAttrsGet \ + (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */ +#define Tcl_FSFileAttrsSet \ + (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */ +#define Tcl_FSFileAttrStrings \ + (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */ +#define Tcl_FSStat \ + (tclStubsPtr->tcl_FSStat) /* 454 */ +#define Tcl_FSAccess \ + (tclStubsPtr->tcl_FSAccess) /* 455 */ +#define Tcl_FSOpenFileChannel \ + (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */ +#define Tcl_FSGetCwd \ + (tclStubsPtr->tcl_FSGetCwd) /* 457 */ +#define Tcl_FSChdir \ + (tclStubsPtr->tcl_FSChdir) /* 458 */ +#define Tcl_FSConvertToPathType \ + (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */ +#define Tcl_FSJoinPath \ + (tclStubsPtr->tcl_FSJoinPath) /* 460 */ +#define Tcl_FSSplitPath \ + (tclStubsPtr->tcl_FSSplitPath) /* 461 */ +#define Tcl_FSEqualPaths \ + (tclStubsPtr->tcl_FSEqualPaths) /* 462 */ +#define Tcl_FSGetNormalizedPath \ + (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */ +#define Tcl_FSJoinToPath \ + (tclStubsPtr->tcl_FSJoinToPath) /* 464 */ +#define Tcl_FSGetInternalRep \ + (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */ +#define Tcl_FSGetTranslatedPath \ + (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */ +#define Tcl_FSEvalFile \ + (tclStubsPtr->tcl_FSEvalFile) /* 467 */ +#define Tcl_FSNewNativePath \ + (tclStubsPtr->tcl_FSNewNativePath) /* 468 */ +#define Tcl_FSGetNativePath \ + (tclStubsPtr->tcl_FSGetNativePath) /* 469 */ +#define Tcl_FSFileSystemInfo \ + (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */ +#define Tcl_FSPathSeparator \ + (tclStubsPtr->tcl_FSPathSeparator) /* 471 */ +#define Tcl_FSListVolumes \ + (tclStubsPtr->tcl_FSListVolumes) /* 472 */ +#define Tcl_FSRegister \ + (tclStubsPtr->tcl_FSRegister) /* 473 */ +#define Tcl_FSUnregister \ + (tclStubsPtr->tcl_FSUnregister) /* 474 */ +#define Tcl_FSData \ + (tclStubsPtr->tcl_FSData) /* 475 */ +#define Tcl_FSGetTranslatedStringPath \ + (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */ +#define Tcl_FSGetFileSystemForPath \ + (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */ +#define Tcl_FSGetPathType \ + (tclStubsPtr->tcl_FSGetPathType) /* 478 */ +#define Tcl_OutputBuffered \ + (tclStubsPtr->tcl_OutputBuffered) /* 479 */ +#define Tcl_FSMountsChanged \ + (tclStubsPtr->tcl_FSMountsChanged) /* 480 */ +#define Tcl_EvalTokensStandard \ + (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */ +#define Tcl_GetTime \ + (tclStubsPtr->tcl_GetTime) /* 482 */ +#define Tcl_CreateObjTrace \ + (tclStubsPtr->tcl_CreateObjTrace) /* 483 */ +#define Tcl_GetCommandInfoFromToken \ + (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */ +#define Tcl_SetCommandInfoFromToken \ + (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */ +#define Tcl_DbNewWideIntObj \ + (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */ +#define Tcl_GetWideIntFromObj \ + (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */ +#define Tcl_NewWideIntObj \ + (tclStubsPtr->tcl_NewWideIntObj) /* 488 */ +#define Tcl_SetWideIntObj \ + (tclStubsPtr->tcl_SetWideIntObj) /* 489 */ +#define Tcl_AllocStatBuf \ + (tclStubsPtr->tcl_AllocStatBuf) /* 490 */ +#define Tcl_Seek \ + (tclStubsPtr->tcl_Seek) /* 491 */ +#define Tcl_Tell \ + (tclStubsPtr->tcl_Tell) /* 492 */ +#define Tcl_ChannelWideSeekProc \ + (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */ +#define Tcl_DictObjPut \ + (tclStubsPtr->tcl_DictObjPut) /* 494 */ +#define Tcl_DictObjGet \ + (tclStubsPtr->tcl_DictObjGet) /* 495 */ +#define Tcl_DictObjRemove \ + (tclStubsPtr->tcl_DictObjRemove) /* 496 */ +#define Tcl_DictObjSize \ + (tclStubsPtr->tcl_DictObjSize) /* 497 */ +#define Tcl_DictObjFirst \ + (tclStubsPtr->tcl_DictObjFirst) /* 498 */ +#define Tcl_DictObjNext \ + (tclStubsPtr->tcl_DictObjNext) /* 499 */ +#define Tcl_DictObjDone \ + (tclStubsPtr->tcl_DictObjDone) /* 500 */ +#define Tcl_DictObjPutKeyList \ + (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */ +#define Tcl_DictObjRemoveKeyList \ + (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */ +#define Tcl_NewDictObj \ + (tclStubsPtr->tcl_NewDictObj) /* 503 */ +#define Tcl_DbNewDictObj \ + (tclStubsPtr->tcl_DbNewDictObj) /* 504 */ +#define Tcl_RegisterConfig \ + (tclStubsPtr->tcl_RegisterConfig) /* 505 */ +#define Tcl_CreateNamespace \ + (tclStubsPtr->tcl_CreateNamespace) /* 506 */ +#define Tcl_DeleteNamespace \ + (tclStubsPtr->tcl_DeleteNamespace) /* 507 */ +#define Tcl_AppendExportList \ + (tclStubsPtr->tcl_AppendExportList) /* 508 */ +#define Tcl_Export \ + (tclStubsPtr->tcl_Export) /* 509 */ +#define Tcl_Import \ + (tclStubsPtr->tcl_Import) /* 510 */ +#define Tcl_ForgetImport \ + (tclStubsPtr->tcl_ForgetImport) /* 511 */ +#define Tcl_GetCurrentNamespace \ + (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */ +#define Tcl_GetGlobalNamespace \ + (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */ +#define Tcl_FindNamespace \ + (tclStubsPtr->tcl_FindNamespace) /* 514 */ +#define Tcl_FindCommand \ + (tclStubsPtr->tcl_FindCommand) /* 515 */ +#define Tcl_GetCommandFromObj \ + (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */ +#define Tcl_GetCommandFullName \ + (tclStubsPtr->tcl_GetCommandFullName) /* 517 */ +#define Tcl_FSEvalFileEx \ + (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */ +#define Tcl_SetExitProc \ + (tclStubsPtr->tcl_SetExitProc) /* 519 */ +#define Tcl_LimitAddHandler \ + (tclStubsPtr->tcl_LimitAddHandler) /* 520 */ +#define Tcl_LimitRemoveHandler \ + (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */ +#define Tcl_LimitReady \ + (tclStubsPtr->tcl_LimitReady) /* 522 */ +#define Tcl_LimitCheck \ + (tclStubsPtr->tcl_LimitCheck) /* 523 */ +#define Tcl_LimitExceeded \ + (tclStubsPtr->tcl_LimitExceeded) /* 524 */ +#define Tcl_LimitSetCommands \ + (tclStubsPtr->tcl_LimitSetCommands) /* 525 */ +#define Tcl_LimitSetTime \ + (tclStubsPtr->tcl_LimitSetTime) /* 526 */ +#define Tcl_LimitSetGranularity \ + (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */ +#define Tcl_LimitTypeEnabled \ + (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */ +#define Tcl_LimitTypeExceeded \ + (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */ +#define Tcl_LimitTypeSet \ + (tclStubsPtr->tcl_LimitTypeSet) /* 530 */ +#define Tcl_LimitTypeReset \ + (tclStubsPtr->tcl_LimitTypeReset) /* 531 */ +#define Tcl_LimitGetCommands \ + (tclStubsPtr->tcl_LimitGetCommands) /* 532 */ +#define Tcl_LimitGetTime \ + (tclStubsPtr->tcl_LimitGetTime) /* 533 */ +#define Tcl_LimitGetGranularity \ + (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */ +#define Tcl_SaveInterpState \ + (tclStubsPtr->tcl_SaveInterpState) /* 535 */ +#define Tcl_RestoreInterpState \ + (tclStubsPtr->tcl_RestoreInterpState) /* 536 */ +#define Tcl_DiscardInterpState \ + (tclStubsPtr->tcl_DiscardInterpState) /* 537 */ +#define Tcl_SetReturnOptions \ + (tclStubsPtr->tcl_SetReturnOptions) /* 538 */ +#define Tcl_GetReturnOptions \ + (tclStubsPtr->tcl_GetReturnOptions) /* 539 */ +#define Tcl_IsEnsemble \ + (tclStubsPtr->tcl_IsEnsemble) /* 540 */ +#define Tcl_CreateEnsemble \ + (tclStubsPtr->tcl_CreateEnsemble) /* 541 */ +#define Tcl_FindEnsemble \ + (tclStubsPtr->tcl_FindEnsemble) /* 542 */ +#define Tcl_SetEnsembleSubcommandList \ + (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */ +#define Tcl_SetEnsembleMappingDict \ + (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */ +#define Tcl_SetEnsembleUnknownHandler \ + (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */ +#define Tcl_SetEnsembleFlags \ + (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */ +#define Tcl_GetEnsembleSubcommandList \ + (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */ +#define Tcl_GetEnsembleMappingDict \ + (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */ +#define Tcl_GetEnsembleUnknownHandler \ + (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */ +#define Tcl_GetEnsembleFlags \ + (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */ +#define Tcl_GetEnsembleNamespace \ + (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */ +#define Tcl_SetTimeProc \ + (tclStubsPtr->tcl_SetTimeProc) /* 552 */ +#define Tcl_QueryTimeProc \ + (tclStubsPtr->tcl_QueryTimeProc) /* 553 */ +#define Tcl_ChannelThreadActionProc \ + (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */ +#define Tcl_NewBignumObj \ + (tclStubsPtr->tcl_NewBignumObj) /* 555 */ +#define Tcl_DbNewBignumObj \ + (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */ +#define Tcl_SetBignumObj \ + (tclStubsPtr->tcl_SetBignumObj) /* 557 */ +#define Tcl_GetBignumFromObj \ + (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */ +#define Tcl_TakeBignumFromObj \ + (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */ +#define Tcl_TruncateChannel \ + (tclStubsPtr->tcl_TruncateChannel) /* 560 */ +#define Tcl_ChannelTruncateProc \ + (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */ +#define Tcl_SetChannelErrorInterp \ + (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */ +#define Tcl_GetChannelErrorInterp \ + (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */ +#define Tcl_SetChannelError \ + (tclStubsPtr->tcl_SetChannelError) /* 564 */ +#define Tcl_GetChannelError \ + (tclStubsPtr->tcl_GetChannelError) /* 565 */ +#define Tcl_InitBignumFromDouble \ + (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */ +#define Tcl_GetNamespaceUnknownHandler \ + (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */ +#define Tcl_SetNamespaceUnknownHandler \ + (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */ +#define Tcl_GetEncodingFromObj \ + (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */ +#define Tcl_GetEncodingSearchPath \ + (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */ +#define Tcl_SetEncodingSearchPath \ + (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */ +#define Tcl_GetEncodingNameFromEnvironment \ + (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */ +#define Tcl_PkgRequireProc \ + (tclStubsPtr->tcl_PkgRequireProc) /* 573 */ +#define Tcl_AppendObjToErrorInfo \ + (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */ +#define Tcl_AppendLimitedToObj \ + (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */ +#define Tcl_Format \ + (tclStubsPtr->tcl_Format) /* 576 */ +#define Tcl_AppendFormatToObj \ + (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */ +#define Tcl_ObjPrintf \ + (tclStubsPtr->tcl_ObjPrintf) /* 578 */ +#define Tcl_AppendPrintfToObj \ + (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */ +#define Tcl_CancelEval \ + (tclStubsPtr->tcl_CancelEval) /* 580 */ +#define Tcl_Canceled \ + (tclStubsPtr->tcl_Canceled) /* 581 */ +#define Tcl_CreatePipe \ + (tclStubsPtr->tcl_CreatePipe) /* 582 */ +#define Tcl_NRCreateCommand \ + (tclStubsPtr->tcl_NRCreateCommand) /* 583 */ +#define Tcl_NREvalObj \ + (tclStubsPtr->tcl_NREvalObj) /* 584 */ +#define Tcl_NREvalObjv \ + (tclStubsPtr->tcl_NREvalObjv) /* 585 */ +#define Tcl_NRCmdSwap \ + (tclStubsPtr->tcl_NRCmdSwap) /* 586 */ +#define Tcl_NRAddCallback \ + (tclStubsPtr->tcl_NRAddCallback) /* 587 */ +#define Tcl_NRCallObjProc \ + (tclStubsPtr->tcl_NRCallObjProc) /* 588 */ +#define Tcl_GetFSDeviceFromStat \ + (tclStubsPtr->tcl_GetFSDeviceFromStat) /* 589 */ +#define Tcl_GetFSInodeFromStat \ + (tclStubsPtr->tcl_GetFSInodeFromStat) /* 590 */ +#define Tcl_GetModeFromStat \ + (tclStubsPtr->tcl_GetModeFromStat) /* 591 */ +#define Tcl_GetLinkCountFromStat \ + (tclStubsPtr->tcl_GetLinkCountFromStat) /* 592 */ +#define Tcl_GetUserIdFromStat \ + (tclStubsPtr->tcl_GetUserIdFromStat) /* 593 */ +#define Tcl_GetGroupIdFromStat \ + (tclStubsPtr->tcl_GetGroupIdFromStat) /* 594 */ +#define Tcl_GetDeviceTypeFromStat \ + (tclStubsPtr->tcl_GetDeviceTypeFromStat) /* 595 */ +#define Tcl_GetAccessTimeFromStat \ + (tclStubsPtr->tcl_GetAccessTimeFromStat) /* 596 */ +#define Tcl_GetModificationTimeFromStat \ + (tclStubsPtr->tcl_GetModificationTimeFromStat) /* 597 */ +#define Tcl_GetChangeTimeFromStat \ + (tclStubsPtr->tcl_GetChangeTimeFromStat) /* 598 */ +#define Tcl_GetSizeFromStat \ + (tclStubsPtr->tcl_GetSizeFromStat) /* 599 */ +#define Tcl_GetBlocksFromStat \ + (tclStubsPtr->tcl_GetBlocksFromStat) /* 600 */ +#define Tcl_GetBlockSizeFromStat \ + (tclStubsPtr->tcl_GetBlockSizeFromStat) /* 601 */ +#define Tcl_SetEnsembleParameterList \ + (tclStubsPtr->tcl_SetEnsembleParameterList) /* 602 */ +#define Tcl_GetEnsembleParameterList \ + (tclStubsPtr->tcl_GetEnsembleParameterList) /* 603 */ +#define Tcl_ParseArgsObjv \ + (tclStubsPtr->tcl_ParseArgsObjv) /* 604 */ +#define Tcl_GetErrorLine \ + (tclStubsPtr->tcl_GetErrorLine) /* 605 */ +#define Tcl_SetErrorLine \ + (tclStubsPtr->tcl_SetErrorLine) /* 606 */ +#define Tcl_TransferResult \ + (tclStubsPtr->tcl_TransferResult) /* 607 */ +#define Tcl_InterpActive \ + (tclStubsPtr->tcl_InterpActive) /* 608 */ +#define Tcl_BackgroundException \ + (tclStubsPtr->tcl_BackgroundException) /* 609 */ +#define Tcl_ZlibDeflate \ + (tclStubsPtr->tcl_ZlibDeflate) /* 610 */ +#define Tcl_ZlibInflate \ + (tclStubsPtr->tcl_ZlibInflate) /* 611 */ +#define Tcl_ZlibCRC32 \ + (tclStubsPtr->tcl_ZlibCRC32) /* 612 */ +#define Tcl_ZlibAdler32 \ + (tclStubsPtr->tcl_ZlibAdler32) /* 613 */ +#define Tcl_ZlibStreamInit \ + (tclStubsPtr->tcl_ZlibStreamInit) /* 614 */ +#define Tcl_ZlibStreamGetCommandName \ + (tclStubsPtr->tcl_ZlibStreamGetCommandName) /* 615 */ +#define Tcl_ZlibStreamEof \ + (tclStubsPtr->tcl_ZlibStreamEof) /* 616 */ +#define Tcl_ZlibStreamChecksum \ + (tclStubsPtr->tcl_ZlibStreamChecksum) /* 617 */ +#define Tcl_ZlibStreamPut \ + (tclStubsPtr->tcl_ZlibStreamPut) /* 618 */ +#define Tcl_ZlibStreamGet \ + (tclStubsPtr->tcl_ZlibStreamGet) /* 619 */ +#define Tcl_ZlibStreamClose \ + (tclStubsPtr->tcl_ZlibStreamClose) /* 620 */ +#define Tcl_ZlibStreamReset \ + (tclStubsPtr->tcl_ZlibStreamReset) /* 621 */ +#define Tcl_SetStartupScript \ + (tclStubsPtr->tcl_SetStartupScript) /* 622 */ +#define Tcl_GetStartupScript \ + (tclStubsPtr->tcl_GetStartupScript) /* 623 */ +#define Tcl_CloseEx \ + (tclStubsPtr->tcl_CloseEx) /* 624 */ +#define Tcl_NRExprObj \ + (tclStubsPtr->tcl_NRExprObj) /* 625 */ +#define Tcl_NRSubstObj \ + (tclStubsPtr->tcl_NRSubstObj) /* 626 */ +#define Tcl_LoadFile \ + (tclStubsPtr->tcl_LoadFile) /* 627 */ +#define Tcl_FindSymbol \ + (tclStubsPtr->tcl_FindSymbol) /* 628 */ +#define Tcl_FSUnloadFile \ + (tclStubsPtr->tcl_FSUnloadFile) /* 629 */ +#define Tcl_ZlibStreamSetCompressionDictionary \ + (tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) /* 630 */ + +#endif /* defined(USE_TCL_STUBS) */ + +/* !END!: Do not edit above this line. */ + +#if defined(USE_TCL_STUBS) +# undef Tcl_CreateInterp +# undef Tcl_FindExecutable +# undef Tcl_GetStringResult +# undef Tcl_Init +# undef Tcl_SetPanicProc +# undef Tcl_SetVar +# undef Tcl_ObjSetVar2 +# undef Tcl_StaticPackage +# undef TclFSGetNativePath +# define Tcl_CreateInterp() (tclStubsPtr->tcl_CreateInterp()) +# define Tcl_GetStringResult(interp) (tclStubsPtr->tcl_GetStringResult(interp)) +# define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp)) +# define Tcl_SetPanicProc(proc) (tclStubsPtr->tcl_SetPanicProc(proc)) +# define Tcl_SetVar(interp, varName, newValue, flags) \ + (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags)) +# define Tcl_ObjSetVar2(interp, part1, part2, newValue, flags) \ + (tclStubsPtr->tcl_ObjSetVar2(interp, part1, part2, newValue, flags)) +#endif + +#if defined(_WIN32) && defined(UNICODE) +# define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg))) +# define Tcl_MainEx Tcl_MainExW + EXTERN void Tcl_MainExW(int argc, wchar_t **argv, + Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); +#endif + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#undef Tcl_SeekOld +#undef Tcl_TellOld + +#undef Tcl_PkgPresent +#define Tcl_PkgPresent(interp, name, version, exact) \ + Tcl_PkgPresentEx(interp, name, version, exact, NULL) +#undef Tcl_PkgProvide +#define Tcl_PkgProvide(interp, name, version) \ + Tcl_PkgProvideEx(interp, name, version, NULL) +#undef Tcl_PkgRequire +#define Tcl_PkgRequire(interp, name, version, exact) \ + Tcl_PkgRequireEx(interp, name, version, exact, NULL) +#undef Tcl_GetIndexFromObj +#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \ + Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \ + sizeof(char *), msg, flags, indexPtr) +#undef Tcl_NewBooleanObj +#define Tcl_NewBooleanObj(boolValue) \ + Tcl_NewIntObj((boolValue)!=0) +#undef Tcl_DbNewBooleanObj +#define Tcl_DbNewBooleanObj(boolValue, file, line) \ + Tcl_DbNewLongObj((boolValue)!=0, file, line) +#undef Tcl_SetBooleanObj +#define Tcl_SetBooleanObj(objPtr, boolValue) \ + Tcl_SetIntObj((objPtr), (boolValue)!=0) +#undef Tcl_SetVar +#define Tcl_SetVar(interp, varName, newValue, flags) \ + Tcl_SetVar2(interp, varName, NULL, newValue, flags) +#undef Tcl_UnsetVar +#define Tcl_UnsetVar(interp, varName, flags) \ + Tcl_UnsetVar2(interp, varName, NULL, flags) +#undef Tcl_GetVar +#define Tcl_GetVar(interp, varName, flags) \ + Tcl_GetVar2(interp, varName, NULL, flags) +#undef Tcl_TraceVar +#define Tcl_TraceVar(interp, varName, flags, proc, clientData) \ + Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData) +#undef Tcl_UntraceVar +#define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \ + Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData) +#undef Tcl_VarTraceInfo +#define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \ + Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData) +#undef Tcl_UpVar +#define Tcl_UpVar(interp, frameName, varName, localName, flags) \ + Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags) + +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) +# if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG) +/* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore + * we have to make sure that all stub entries on Cygwin64 follow the + * Win64 signature. Cygwin64 stubbed extensions cannot use those stub + * entries any more, they should use the 64-bit alternatives where + * possible. Tcl 9 must find a better solution, but that cannot be done + * without introducing a binary incompatibility. + */ +# undef Tcl_DbNewLongObj +# undef Tcl_GetLongFromObj +# undef Tcl_NewLongObj +# undef Tcl_SetLongObj +# undef Tcl_ExprLong +# undef Tcl_ExprLongObj +# undef Tcl_UniCharNcmp +# undef Tcl_UtfNcmp +# undef Tcl_UtfNcasecmp +# undef Tcl_UniCharNcasecmp +# define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))Tcl_DbNewWideIntObj) +# define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj) +# define Tcl_NewLongObj ((Tcl_Obj*(*)(long))Tcl_NewWideIntObj) +# define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))Tcl_SetWideIntObj) +# define Tcl_ExprLong TclExprLong + static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){ + int intValue; + int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue); + if (result == TCL_OK) *ptr = (long)intValue; + return result; + } +# define Tcl_ExprLongObj TclExprLongObj + static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){ + int intValue; + int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue); + if (result == TCL_OK) *ptr = (long)intValue; + return result; + } +# define Tcl_UniCharNcmp(ucs,uct,n) \ + ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n)) +# define Tcl_UtfNcmp(s1,s2,n) \ + ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcmp)(s1,s2,(unsigned int)(n)) +# define Tcl_UtfNcasecmp(s1,s2,n) \ + ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n)) +# define Tcl_UniCharNcasecmp(ucs,uct,n) \ + ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n)) +# endif +#endif + +/* + * Deprecated Tcl procedures: + */ + +#undef Tcl_EvalObj +#define Tcl_EvalObj(interp,objPtr) \ + Tcl_EvalObjEx((interp),(objPtr),0) +#undef Tcl_GlobalEvalObj +#define Tcl_GlobalEvalObj(interp,objPtr) \ + Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) + +#endif /* _TCLDECLS */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tclPlatDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tclPlatDecls.h new file mode 100644 index 00000000..abc8ee81 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tclPlatDecls.h @@ -0,0 +1,122 @@ +/* + * tclPlatDecls.h -- + * + * Declarations of platform specific Tcl APIs. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + */ + +#ifndef _TCLPLATDECLS +#define _TCLPLATDECLS + +#undef TCL_STORAGE_CLASS +#ifdef BUILD_tcl +# define TCL_STORAGE_CLASS DLLEXPORT +#else +# ifdef USE_TCL_STUBS +# define TCL_STORAGE_CLASS +# else +# define TCL_STORAGE_CLASS DLLIMPORT +# endif +#endif + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tcl.decls script. + */ + +/* + * TCHAR is needed here for win32, so if it is not defined yet do it here. + * This way, we don't need to include just for one define. + */ +#if (defined(_WIN32) || defined(__CYGWIN__)) && !defined(_TCHAR_DEFINED) +# if defined(_UNICODE) + typedef wchar_t TCHAR; +# else + typedef char TCHAR; +# endif +# define _TCHAR_DEFINED +#endif + +/* !BEGIN!: Do not edit below this line. */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * Exported function declarations: + */ + +#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ +/* 0 */ +EXTERN TCHAR * Tcl_WinUtfToTChar(const char *str, int len, + Tcl_DString *dsPtr); +/* 1 */ +EXTERN char * Tcl_WinTCharToUtf(const TCHAR *str, int len, + Tcl_DString *dsPtr); +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ +/* 0 */ +EXTERN int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp, + const char *bundleName, int hasResourceFile, + int maxPathLen, char *libraryPath); +/* 1 */ +EXTERN int Tcl_MacOSXOpenVersionedBundleResources( + Tcl_Interp *interp, const char *bundleName, + const char *bundleVersion, + int hasResourceFile, int maxPathLen, + char *libraryPath); +#endif /* MACOSX */ + +typedef struct TclPlatStubs { + int magic; + void *hooks; + +#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ + TCHAR * (*tcl_WinUtfToTChar) (const char *str, int len, Tcl_DString *dsPtr); /* 0 */ + char * (*tcl_WinTCharToUtf) (const TCHAR *str, int len, Tcl_DString *dsPtr); /* 1 */ +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ + int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp *interp, const char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPath); /* 0 */ + int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp *interp, const char *bundleName, const char *bundleVersion, int hasResourceFile, int maxPathLen, char *libraryPath); /* 1 */ +#endif /* MACOSX */ +} TclPlatStubs; + +extern const TclPlatStubs *tclPlatStubsPtr; + +#ifdef __cplusplus +} +#endif + +#if defined(USE_TCL_STUBS) + +/* + * Inline function declarations: + */ + +#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ +#define Tcl_WinUtfToTChar \ + (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */ +#define Tcl_WinTCharToUtf \ + (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */ +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#define Tcl_MacOSXOpenBundleResources \ + (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */ +#define Tcl_MacOSXOpenVersionedBundleResources \ + (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */ +#endif /* MACOSX */ + +#endif /* defined(USE_TCL_STUBS) */ + +/* !END!: Do not edit above this line. */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* _TCLPLATDECLS */ + + diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tk.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tk.h new file mode 100644 index 00000000..4a655a49 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tk.h @@ -0,0 +1,1619 @@ +/* + * tk.h -- + * + * Declarations for Tk-related things that are visible outside of the Tk + * module itself. + * + * Copyright (c) 1989-1994 The Regents of the University of California. + * Copyright (c) 1994 The Australian National University. + * Copyright (c) 1994-1998 Sun Microsystems, Inc. + * Copyright (c) 1998-2000 Ajuba Solutions. + * + * See the file "license.terms" for information on usage and redistribution of + * this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TK +#define _TK + +#include +#if (TCL_MAJOR_VERSION != 8) || (TCL_MINOR_VERSION < 6) +# error Tk 8.6 must be compiled with tcl.h from Tcl 8.6 or better +#endif + +#ifndef CONST84 +# define CONST84 const +# define CONST84_RETURN const +#endif +#ifndef CONST86 +# define CONST86 CONST84 +#endif +#ifndef EXTERN +# define EXTERN extern TCL_STORAGE_CLASS +#endif + +/* + * Utility macros: STRINGIFY takes an argument and wraps it in "" (double + * quotation marks), JOIN joins two arguments. + */ + +#ifndef STRINGIFY +# define STRINGIFY(x) STRINGIFY1(x) +# define STRINGIFY1(x) #x +#endif +#ifndef JOIN +# define JOIN(a,b) JOIN1(a,b) +# define JOIN1(a,b) a##b +#endif + +/* + * For C++ compilers, use extern "C" + */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * When version numbers change here, you must also go into the following files + * and update the version numbers: + * + * library/tk.tcl (1 LOC patch) + * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) + * win/configure.in (as above) + * README (sections 0 and 1) + * macosx/Tk-Common.xcconfig (not patchlevel) 1 LOC + * win/README (not patchlevel) + * unix/README (not patchlevel) + * unix/tk.spec (1 LOC patch) + * win/tcl.m4 (not patchlevel) + * + * You may also need to update some of these files when the numbers change for + * the version of Tcl that this release of Tk is compiled against. + */ + +#define TK_MAJOR_VERSION 8 +#define TK_MINOR_VERSION 6 +#define TK_RELEASE_LEVEL TCL_FINAL_RELEASE +#define TK_RELEASE_SERIAL 4 + +#define TK_VERSION "8.6" +#define TK_PATCH_LEVEL "8.6.4" + +/* + * A special definition used to allow this header file to be included from + * windows or mac resource files so that they can obtain version information. + * RC_INVOKED is defined by default by the windows RC tool and manually set + * for macintosh. + * + * Resource compilers don't like all the C stuff, like typedefs and procedure + * declarations, that occur below, so block them out. + */ + +#ifndef RC_INVOKED + +#ifndef _XLIB_H +# include +# ifdef MAC_OSX_TK +# include +# endif +#endif +#ifdef __STDC__ +# include +#endif + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +/* + *---------------------------------------------------------------------- + * + * Decide whether or not to use input methods. + */ + +#ifdef XNQueryInputStyle +#define TK_USE_INPUT_METHODS +#endif + +/* + * Dummy types that are used by clients: + */ + +typedef struct Tk_BindingTable_ *Tk_BindingTable; +typedef struct Tk_Canvas_ *Tk_Canvas; +typedef struct Tk_Cursor_ *Tk_Cursor; +typedef struct Tk_ErrorHandler_ *Tk_ErrorHandler; +typedef struct Tk_Font_ *Tk_Font; +typedef struct Tk_Image__ *Tk_Image; +typedef struct Tk_ImageMaster_ *Tk_ImageMaster; +typedef struct Tk_OptionTable_ *Tk_OptionTable; +typedef struct Tk_PostscriptInfo_ *Tk_PostscriptInfo; +typedef struct Tk_TextLayout_ *Tk_TextLayout; +typedef struct Tk_Window_ *Tk_Window; +typedef struct Tk_3DBorder_ *Tk_3DBorder; +typedef struct Tk_Style_ *Tk_Style; +typedef struct Tk_StyleEngine_ *Tk_StyleEngine; +typedef struct Tk_StyledElement_ *Tk_StyledElement; + +/* + * Additional types exported to clients. + */ + +typedef const char *Tk_Uid; + +/* + *---------------------------------------------------------------------- + * + * The enum below defines the valid types for Tk configuration options as + * implemented by Tk_InitOptions, Tk_SetOptions, etc. + */ + +typedef enum { + TK_OPTION_BOOLEAN, + TK_OPTION_INT, + TK_OPTION_DOUBLE, + TK_OPTION_STRING, + TK_OPTION_STRING_TABLE, + TK_OPTION_COLOR, + TK_OPTION_FONT, + TK_OPTION_BITMAP, + TK_OPTION_BORDER, + TK_OPTION_RELIEF, + TK_OPTION_CURSOR, + TK_OPTION_JUSTIFY, + TK_OPTION_ANCHOR, + TK_OPTION_SYNONYM, + TK_OPTION_PIXELS, + TK_OPTION_WINDOW, + TK_OPTION_END, + TK_OPTION_CUSTOM, + TK_OPTION_STYLE +} Tk_OptionType; + +/* + * Structures of the following type are used by widgets to specify their + * configuration options. Typically each widget has a static array of these + * structures, where each element of the array describes a single + * configuration option. The array is passed to Tk_CreateOptionTable. + */ + +typedef struct Tk_OptionSpec { + Tk_OptionType type; /* Type of option, such as TK_OPTION_COLOR; + * see definitions above. Last option in table + * must have type TK_OPTION_END. */ + const char *optionName; /* Name used to specify option in Tcl + * commands. */ + const char *dbName; /* Name for option in option database. */ + const char *dbClass; /* Class for option in database. */ + const char *defValue; /* Default value for option if not specified + * in command line, the option database, or + * the system. */ + int objOffset; /* Where in record to store a Tcl_Obj * that + * holds the value of this option, specified + * as an offset in bytes from the start of the + * record. Use the Tk_Offset macro to generate + * values for this. -1 means don't store the + * Tcl_Obj in the record. */ + int internalOffset; /* Where in record to store the internal + * representation of the value of this option, + * such as an int or XColor *. This field is + * specified as an offset in bytes from the + * start of the record. Use the Tk_Offset + * macro to generate values for it. -1 means + * don't store the internal representation in + * the record. */ + int flags; /* Any combination of the values defined + * below. */ + const void *clientData; /* An alternate place to put option-specific + * data. Used for the monochrome default value + * for colors, etc. */ + int typeMask; /* An arbitrary bit mask defined by the class + * manager; typically bits correspond to + * certain kinds of options such as all those + * that require a redisplay when they change. + * Tk_SetOptions returns the bit-wise OR of + * the typeMasks of all options that were + * changed. */ +} Tk_OptionSpec; + +/* + * Flag values for Tk_OptionSpec structures. These flags are shared by + * Tk_ConfigSpec structures, so be sure to coordinate any changes carefully. + */ + +#define TK_OPTION_NULL_OK (1 << 0) +#define TK_OPTION_DONT_SET_DEFAULT (1 << 3) + +/* + * The following structure and function types are used by TK_OPTION_CUSTOM + * options; the structure holds pointers to the functions needed by the Tk + * option config code to handle a custom option. + */ + +typedef int (Tk_CustomOptionSetProc) (ClientData clientData, + Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj **value, char *widgRec, + int offset, char *saveInternalPtr, int flags); +typedef Tcl_Obj *(Tk_CustomOptionGetProc) (ClientData clientData, + Tk_Window tkwin, char *widgRec, int offset); +typedef void (Tk_CustomOptionRestoreProc) (ClientData clientData, + Tk_Window tkwin, char *internalPtr, char *saveInternalPtr); +typedef void (Tk_CustomOptionFreeProc) (ClientData clientData, Tk_Window tkwin, + char *internalPtr); + +typedef struct Tk_ObjCustomOption { + const char *name; /* Name of the custom option. */ + Tk_CustomOptionSetProc *setProc; + /* Function to use to set a record's option + * value from a Tcl_Obj */ + Tk_CustomOptionGetProc *getProc; + /* Function to use to get a Tcl_Obj + * representation from an internal + * representation of an option. */ + Tk_CustomOptionRestoreProc *restoreProc; + /* Function to use to restore a saved value + * for the internal representation. */ + Tk_CustomOptionFreeProc *freeProc; + /* Function to use to free the internal + * representation of an option. */ + ClientData clientData; /* Arbitrary one-word value passed to the + * handling procs. */ +} Tk_ObjCustomOption; + +/* + * Macro to use to fill in "offset" fields of the Tk_OptionSpec structure. + * Computes number of bytes from beginning of structure to a given field. + */ + +#ifdef offsetof +#define Tk_Offset(type, field) ((int) offsetof(type, field)) +#else +#define Tk_Offset(type, field) ((int) ((char *) &((type *) 0)->field)) +#endif + +/* + * The following two structures are used for error handling. When config + * options are being modified, the old values are saved in a Tk_SavedOptions + * structure. If an error occurs, then the contents of the structure can be + * used to restore all of the old values. The contents of this structure are + * for the private use Tk. No-one outside Tk should ever read or write any of + * the fields of these structures. + */ + +typedef struct Tk_SavedOption { + struct TkOption *optionPtr; /* Points to information that describes the + * option. */ + Tcl_Obj *valuePtr; /* The old value of the option, in the form of + * a Tcl object; may be NULL if the value was + * not saved as an object. */ + double internalForm; /* The old value of the option, in some + * internal representation such as an int or + * (XColor *). Valid only if the field + * optionPtr->specPtr->objOffset is < 0. The + * space must be large enough to accommodate a + * double, a long, or a pointer; right now it + * looks like a double (i.e., 8 bytes) is big + * enough. Also, using a double guarantees + * that the field is properly aligned for + * storing large values. */ +} Tk_SavedOption; + +#ifdef TCL_MEM_DEBUG +# define TK_NUM_SAVED_OPTIONS 2 +#else +# define TK_NUM_SAVED_OPTIONS 20 +#endif + +typedef struct Tk_SavedOptions { + char *recordPtr; /* The data structure in which to restore + * configuration options. */ + Tk_Window tkwin; /* Window associated with recordPtr; needed to + * restore certain options. */ + int numItems; /* The number of valid items in items field. */ + Tk_SavedOption items[TK_NUM_SAVED_OPTIONS]; + /* Items used to hold old values. */ + struct Tk_SavedOptions *nextPtr; + /* Points to next structure in list; needed if + * too many options changed to hold all the + * old values in a single structure. NULL + * means no more structures. */ +} Tk_SavedOptions; + +/* + * Structure used to describe application-specific configuration options: + * indicates procedures to call to parse an option and to return a text string + * describing an option. THESE ARE DEPRECATED; PLEASE USE THE NEW STRUCTURES + * LISTED ABOVE. + */ + +/* + * This is a temporary flag used while tkObjConfig and new widgets are in + * development. + */ + +#ifndef __NO_OLD_CONFIG + +typedef int (Tk_OptionParseProc) (ClientData clientData, Tcl_Interp *interp, + Tk_Window tkwin, CONST84 char *value, char *widgRec, int offset); +typedef CONST86 char *(Tk_OptionPrintProc) (ClientData clientData, + Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); + +typedef struct Tk_CustomOption { + Tk_OptionParseProc *parseProc; + /* Procedure to call to parse an option and + * store it in converted form. */ + Tk_OptionPrintProc *printProc; + /* Procedure to return a printable string + * describing an existing option. */ + ClientData clientData; /* Arbitrary one-word value used by option + * parser: passed to parseProc and + * printProc. */ +} Tk_CustomOption; + +/* + * Structure used to specify information for Tk_ConfigureWidget. Each + * structure gives complete information for one option, including how the + * option is specified on the command line, where it appears in the option + * database, etc. + */ + +typedef struct Tk_ConfigSpec { + int type; /* Type of option, such as TK_CONFIG_COLOR; + * see definitions below. Last option in table + * must have type TK_CONFIG_END. */ + CONST86 char *argvName; /* Switch used to specify option in argv. NULL + * means this spec is part of a group. */ + Tk_Uid dbName; /* Name for option in option database. */ + Tk_Uid dbClass; /* Class for option in database. */ + Tk_Uid defValue; /* Default value for option if not specified + * in command line or database. */ + int offset; /* Where in widget record to store value; use + * Tk_Offset macro to generate values for + * this. */ + int specFlags; /* Any combination of the values defined + * below; other bits are used internally by + * tkConfig.c. */ + CONST86 Tk_CustomOption *customPtr; + /* If type is TK_CONFIG_CUSTOM then this is a + * pointer to info about how to parse and + * print the option. Otherwise it is + * irrelevant. */ +} Tk_ConfigSpec; + +/* + * Type values for Tk_ConfigSpec structures. See the user documentation for + * details. + */ + +typedef enum { + TK_CONFIG_BOOLEAN, TK_CONFIG_INT, TK_CONFIG_DOUBLE, TK_CONFIG_STRING, + TK_CONFIG_UID, TK_CONFIG_COLOR, TK_CONFIG_FONT, TK_CONFIG_BITMAP, + TK_CONFIG_BORDER, TK_CONFIG_RELIEF, TK_CONFIG_CURSOR, + TK_CONFIG_ACTIVE_CURSOR, TK_CONFIG_JUSTIFY, TK_CONFIG_ANCHOR, + TK_CONFIG_SYNONYM, TK_CONFIG_CAP_STYLE, TK_CONFIG_JOIN_STYLE, + TK_CONFIG_PIXELS, TK_CONFIG_MM, TK_CONFIG_WINDOW, TK_CONFIG_CUSTOM, + TK_CONFIG_END +} Tk_ConfigTypes; + +/* + * Possible values for flags argument to Tk_ConfigureWidget: + */ + +#define TK_CONFIG_ARGV_ONLY 1 +#define TK_CONFIG_OBJS 0x80 + +/* + * Possible flag values for Tk_ConfigSpec structures. Any bits at or above + * TK_CONFIG_USER_BIT may be used by clients for selecting certain entries. + * Before changing any values here, coordinate with tkOldConfig.c + * (internal-use-only flags are defined there). + */ + +#define TK_CONFIG_NULL_OK (1 << 0) +#define TK_CONFIG_COLOR_ONLY (1 << 1) +#define TK_CONFIG_MONO_ONLY (1 << 2) +#define TK_CONFIG_DONT_SET_DEFAULT (1 << 3) +#define TK_CONFIG_OPTION_SPECIFIED (1 << 4) +#define TK_CONFIG_USER_BIT 0x100 +#endif /* __NO_OLD_CONFIG */ + +/* + * Structure used to specify how to handle argv options. + */ + +typedef struct { + CONST86 char *key; /* The key string that flags the option in the + * argv array. */ + int type; /* Indicates option type; see below. */ + char *src; /* Value to be used in setting dst; usage + * depends on type. */ + char *dst; /* Address of value to be modified; usage + * depends on type. */ + CONST86 char *help; /* Documentation message describing this + * option. */ +} Tk_ArgvInfo; + +/* + * Legal values for the type field of a Tk_ArgvInfo: see the user + * documentation for details. + */ + +#define TK_ARGV_CONSTANT 15 +#define TK_ARGV_INT 16 +#define TK_ARGV_STRING 17 +#define TK_ARGV_UID 18 +#define TK_ARGV_REST 19 +#define TK_ARGV_FLOAT 20 +#define TK_ARGV_FUNC 21 +#define TK_ARGV_GENFUNC 22 +#define TK_ARGV_HELP 23 +#define TK_ARGV_CONST_OPTION 24 +#define TK_ARGV_OPTION_VALUE 25 +#define TK_ARGV_OPTION_NAME_VALUE 26 +#define TK_ARGV_END 27 + +/* + * Flag bits for passing to Tk_ParseArgv: + */ + +#define TK_ARGV_NO_DEFAULTS 0x1 +#define TK_ARGV_NO_LEFTOVERS 0x2 +#define TK_ARGV_NO_ABBREV 0x4 +#define TK_ARGV_DONT_SKIP_FIRST_ARG 0x8 + +/* + * Enumerated type for describing actions to be taken in response to a + * restrictProc established by Tk_RestrictEvents. + */ + +typedef enum { + TK_DEFER_EVENT, TK_PROCESS_EVENT, TK_DISCARD_EVENT +} Tk_RestrictAction; + +/* + * Priority levels to pass to Tk_AddOption: + */ + +#define TK_WIDGET_DEFAULT_PRIO 20 +#define TK_STARTUP_FILE_PRIO 40 +#define TK_USER_DEFAULT_PRIO 60 +#define TK_INTERACTIVE_PRIO 80 +#define TK_MAX_PRIO 100 + +/* + * Relief values returned by Tk_GetRelief: + */ + +#define TK_RELIEF_NULL -1 +#define TK_RELIEF_FLAT 0 +#define TK_RELIEF_GROOVE 1 +#define TK_RELIEF_RAISED 2 +#define TK_RELIEF_RIDGE 3 +#define TK_RELIEF_SOLID 4 +#define TK_RELIEF_SUNKEN 5 + +/* + * "Which" argument values for Tk_3DBorderGC: + */ + +#define TK_3D_FLAT_GC 1 +#define TK_3D_LIGHT_GC 2 +#define TK_3D_DARK_GC 3 + +/* + * Special EnterNotify/LeaveNotify "mode" for use in events generated by + * tkShare.c. Pick a high enough value that it's unlikely to conflict with + * existing values (like NotifyNormal) or any new values defined in the + * future. + */ + +#define TK_NOTIFY_SHARE 20 + +/* + * Enumerated type for describing a point by which to anchor something: + */ + +typedef enum { + TK_ANCHOR_N, TK_ANCHOR_NE, TK_ANCHOR_E, TK_ANCHOR_SE, + TK_ANCHOR_S, TK_ANCHOR_SW, TK_ANCHOR_W, TK_ANCHOR_NW, + TK_ANCHOR_CENTER +} Tk_Anchor; + +/* + * Enumerated type for describing a style of justification: + */ + +typedef enum { + TK_JUSTIFY_LEFT, TK_JUSTIFY_RIGHT, TK_JUSTIFY_CENTER +} Tk_Justify; + +/* + * The following structure is used by Tk_GetFontMetrics() to return + * information about the properties of a Tk_Font. + */ + +typedef struct Tk_FontMetrics { + int ascent; /* The amount in pixels that the tallest + * letter sticks up above the baseline, plus + * any extra blank space added by the designer + * of the font. */ + int descent; /* The largest amount in pixels that any + * letter sticks below the baseline, plus any + * extra blank space added by the designer of + * the font. */ + int linespace; /* The sum of the ascent and descent. How far + * apart two lines of text in the same font + * should be placed so that none of the + * characters in one line overlap any of the + * characters in the other line. */ +} Tk_FontMetrics; + +/* + * Flags passed to Tk_MeasureChars: + */ + +#define TK_WHOLE_WORDS 1 +#define TK_AT_LEAST_ONE 2 +#define TK_PARTIAL_OK 4 + +/* + * Flags passed to Tk_ComputeTextLayout: + */ + +#define TK_IGNORE_TABS 8 +#define TK_IGNORE_NEWLINES 16 + +/* + * Widget class procedures used to implement platform specific widget + * behavior. + */ + +typedef Window (Tk_ClassCreateProc) (Tk_Window tkwin, Window parent, + ClientData instanceData); +typedef void (Tk_ClassWorldChangedProc) (ClientData instanceData); +typedef void (Tk_ClassModalProc) (Tk_Window tkwin, XEvent *eventPtr); + +typedef struct Tk_ClassProcs { + unsigned int size; + Tk_ClassWorldChangedProc *worldChangedProc; + /* Procedure to invoke when the widget needs + * to respond in some way to a change in the + * world (font changes, etc.) */ + Tk_ClassCreateProc *createProc; + /* Procedure to invoke when the platform- + * dependent window needs to be created. */ + Tk_ClassModalProc *modalProc; + /* Procedure to invoke after all bindings on a + * widget have been triggered in order to + * handle a modal loop. */ +} Tk_ClassProcs; + +/* + * Simple accessor for Tk_ClassProcs structure. Checks that the structure is + * not NULL, then checks the size field and returns either the requested + * field, if present, or NULL if the structure is too small to have the field + * (or NULL if the structure is NULL). + * + * A more general version of this function may be useful if other + * size-versioned structure pop up in the future: + * + * #define Tk_GetField(name, who, which) \ + * (((who) == NULL) ? NULL : + * (((who)->size <= Tk_Offset(name, which)) ? NULL :(name)->which)) + */ + +#define Tk_GetClassProc(procs, which) \ + (((procs) == NULL) ? NULL : \ + (((procs)->size <= Tk_Offset(Tk_ClassProcs, which)) ? NULL:(procs)->which)) + +/* + * Each geometry manager (the packer, the placer, etc.) is represented by a + * structure of the following form, which indicates procedures to invoke in + * the geometry manager to carry out certain functions. + */ + +typedef void (Tk_GeomRequestProc) (ClientData clientData, Tk_Window tkwin); +typedef void (Tk_GeomLostSlaveProc) (ClientData clientData, Tk_Window tkwin); + +typedef struct Tk_GeomMgr { + const char *name; /* Name of the geometry manager (command used + * to invoke it, or name of widget class that + * allows embedded widgets). */ + Tk_GeomRequestProc *requestProc; + /* Procedure to invoke when a slave's + * requested geometry changes. */ + Tk_GeomLostSlaveProc *lostSlaveProc; + /* Procedure to invoke when a slave is taken + * away from one geometry manager by another. + * NULL means geometry manager doesn't care + * when slaves are lost. */ +} Tk_GeomMgr; + +/* + * Result values returned by Tk_GetScrollInfo: + */ + +#define TK_SCROLL_MOVETO 1 +#define TK_SCROLL_PAGES 2 +#define TK_SCROLL_UNITS 3 +#define TK_SCROLL_ERROR 4 + +/* + *---------------------------------------------------------------------- + * + * Extensions to the X event set + * + *---------------------------------------------------------------------- + */ + +#define VirtualEvent (MappingNotify + 1) +#define ActivateNotify (MappingNotify + 2) +#define DeactivateNotify (MappingNotify + 3) +#define MouseWheelEvent (MappingNotify + 4) +#define TK_LASTEVENT (MappingNotify + 5) + +#define MouseWheelMask (1L << 28) +#define ActivateMask (1L << 29) +#define VirtualEventMask (1L << 30) + +/* + * A virtual event shares most of its fields with the XKeyEvent and + * XButtonEvent structures. 99% of the time a virtual event will be an + * abstraction of a key or button event, so this structure provides the most + * information to the user. The only difference is the changing of the detail + * field for a virtual event so that it holds the name of the virtual event + * being triggered. + * + * When using this structure, you should ensure that you zero out all the + * fields first using memset() or bzero(). + */ + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server. */ + Bool send_event; /* True if this came from a SendEvent + * request. */ + Display *display; /* Display the event was read from. */ + Window event; /* Window on which event was requested. */ + Window root; /* Root window that the event occured on. */ + Window subwindow; /* Child window. */ + Time time; /* Milliseconds. */ + int x, y; /* Pointer x, y coordinates in event + * window. */ + int x_root, y_root; /* Coordinates relative to root. */ + unsigned int state; /* Key or button mask */ + Tk_Uid name; /* Name of virtual event. */ + Bool same_screen; /* Same screen flag. */ + Tcl_Obj *user_data; /* Application-specific data reference; Tk + * will decrement the reference count *once* + * when it has finished processing the + * event. */ +} XVirtualEvent; + +typedef struct { + int type; + unsigned long serial; /* # of last request processed by server. */ + Bool send_event; /* True if this came from a SendEvent + * request. */ + Display *display; /* Display the event was read from. */ + Window window; /* Window in which event occurred. */ +} XActivateDeactivateEvent; +typedef XActivateDeactivateEvent XActivateEvent; +typedef XActivateDeactivateEvent XDeactivateEvent; + +/* + *---------------------------------------------------------------------- + * + * Macros for querying Tk_Window structures. See the manual entries for + * documentation. + * + *---------------------------------------------------------------------- + */ + +#define Tk_Display(tkwin) (((Tk_FakeWin *) (tkwin))->display) +#define Tk_ScreenNumber(tkwin) (((Tk_FakeWin *) (tkwin))->screenNum) +#define Tk_Screen(tkwin) \ + (ScreenOfDisplay(Tk_Display(tkwin), Tk_ScreenNumber(tkwin))) +#define Tk_Depth(tkwin) (((Tk_FakeWin *) (tkwin))->depth) +#define Tk_Visual(tkwin) (((Tk_FakeWin *) (tkwin))->visual) +#define Tk_WindowId(tkwin) (((Tk_FakeWin *) (tkwin))->window) +#define Tk_PathName(tkwin) (((Tk_FakeWin *) (tkwin))->pathName) +#define Tk_Name(tkwin) (((Tk_FakeWin *) (tkwin))->nameUid) +#define Tk_Class(tkwin) (((Tk_FakeWin *) (tkwin))->classUid) +#define Tk_X(tkwin) (((Tk_FakeWin *) (tkwin))->changes.x) +#define Tk_Y(tkwin) (((Tk_FakeWin *) (tkwin))->changes.y) +#define Tk_Width(tkwin) (((Tk_FakeWin *) (tkwin))->changes.width) +#define Tk_Height(tkwin) \ + (((Tk_FakeWin *) (tkwin))->changes.height) +#define Tk_Changes(tkwin) (&((Tk_FakeWin *) (tkwin))->changes) +#define Tk_Attributes(tkwin) (&((Tk_FakeWin *) (tkwin))->atts) +#define Tk_IsEmbedded(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_EMBEDDED) +#define Tk_IsContainer(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_CONTAINER) +#define Tk_IsMapped(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_MAPPED) +#define Tk_IsTopLevel(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_LEVEL) +#define Tk_HasWrapper(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_HAS_WRAPPER) +#define Tk_WinManaged(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_WIN_MANAGED) +#define Tk_TopWinHierarchy(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_HIERARCHY) +#define Tk_IsManageable(tkwin) \ + (((Tk_FakeWin *) (tkwin))->flags & TK_WM_MANAGEABLE) +#define Tk_ReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->reqWidth) +#define Tk_ReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->reqHeight) +/* Tk_InternalBorderWidth is deprecated */ +#define Tk_InternalBorderWidth(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderLeft) +#define Tk_InternalBorderLeft(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderLeft) +#define Tk_InternalBorderRight(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderRight) +#define Tk_InternalBorderTop(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderTop) +#define Tk_InternalBorderBottom(tkwin) \ + (((Tk_FakeWin *) (tkwin))->internalBorderBottom) +#define Tk_MinReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->minReqWidth) +#define Tk_MinReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->minReqHeight) +#define Tk_Parent(tkwin) (((Tk_FakeWin *) (tkwin))->parentPtr) +#define Tk_Colormap(tkwin) (((Tk_FakeWin *) (tkwin))->atts.colormap) + +/* + * The structure below is needed by the macros above so that they can access + * the fields of a Tk_Window. The fields not needed by the macros are declared + * as "dummyX". The structure has its own type in order to prevent apps from + * accessing Tk_Window fields except using official macros. WARNING!! The + * structure definition must be kept consistent with the TkWindow structure in + * tkInt.h. If you change one, then change the other. See the declaration in + * tkInt.h for documentation on what the fields are used for internally. + */ + +typedef struct Tk_FakeWin { + Display *display; + char *dummy1; /* dispPtr */ + int screenNum; + Visual *visual; + int depth; + Window window; + char *dummy2; /* childList */ + char *dummy3; /* lastChildPtr */ + Tk_Window parentPtr; /* parentPtr */ + char *dummy4; /* nextPtr */ + char *dummy5; /* mainPtr */ + char *pathName; + Tk_Uid nameUid; + Tk_Uid classUid; + XWindowChanges changes; + unsigned int dummy6; /* dirtyChanges */ + XSetWindowAttributes atts; + unsigned long dummy7; /* dirtyAtts */ + unsigned int flags; + char *dummy8; /* handlerList */ +#ifdef TK_USE_INPUT_METHODS + XIC dummy9; /* inputContext */ +#endif /* TK_USE_INPUT_METHODS */ + ClientData *dummy10; /* tagPtr */ + int dummy11; /* numTags */ + int dummy12; /* optionLevel */ + char *dummy13; /* selHandlerList */ + char *dummy14; /* geomMgrPtr */ + ClientData dummy15; /* geomData */ + int reqWidth, reqHeight; + int internalBorderLeft; + char *dummy16; /* wmInfoPtr */ + char *dummy17; /* classProcPtr */ + ClientData dummy18; /* instanceData */ + char *dummy19; /* privatePtr */ + int internalBorderRight; + int internalBorderTop; + int internalBorderBottom; + int minReqWidth; + int minReqHeight; + char *dummy20; /* geometryMaster */ +} Tk_FakeWin; + +/* + * Flag values for TkWindow (and Tk_FakeWin) structures are: + * + * TK_MAPPED: 1 means window is currently mapped, + * 0 means unmapped. + * TK_TOP_LEVEL: 1 means this is a top-level widget. + * TK_ALREADY_DEAD: 1 means the window is in the process of + * being destroyed already. + * TK_NEED_CONFIG_NOTIFY: 1 means that the window has been reconfigured + * before it was made to exist. At the time of + * making it exist a ConfigureNotify event needs + * to be generated. + * TK_GRAB_FLAG: Used to manage grabs. See tkGrab.c for details + * TK_CHECKED_IC: 1 means we've already tried to get an input + * context for this window; if the ic field is + * NULL it means that there isn't a context for + * the field. + * TK_DONT_DESTROY_WINDOW: 1 means that Tk_DestroyWindow should not + * invoke XDestroyWindow to destroy this widget's + * X window. The flag is set when the window has + * already been destroyed elsewhere (e.g. by + * another application) or when it will be + * destroyed later (e.g. by destroying its parent) + * TK_WM_COLORMAP_WINDOW: 1 means that this window has at some time + * appeared in the WM_COLORMAP_WINDOWS property + * for its toplevel, so we have to remove it from + * that property if the window is deleted and the + * toplevel isn't. + * TK_EMBEDDED: 1 means that this window (which must be a + * toplevel) is not a free-standing window but + * rather is embedded in some other application. + * TK_CONTAINER: 1 means that this window is a container, and + * that some other application (either in this + * process or elsewhere) may be embedding itself + * inside the window. + * TK_BOTH_HALVES: 1 means that this window is used for + * application embedding (either as container or + * embedded application), and both the containing + * and embedded halves are associated with + * windows in this particular process. + * TK_WRAPPER: 1 means that this window is the extra wrapper + * window created around a toplevel to hold the + * menubar under Unix. See tkUnixWm.c for more + * information. + * TK_REPARENTED: 1 means that this window has been reparented + * so that as far as the window system is + * concerned it isn't a child of its Tk parent. + * Initially this is used only for special Unix + * menubar windows. + * TK_ANONYMOUS_WINDOW: 1 means that this window has no name, and is + * thus not accessible from Tk. + * TK_HAS_WRAPPER 1 means that this window has a wrapper window + * TK_WIN_MANAGED 1 means that this window is a child of the root + * window, and is managed by the window manager. + * TK_TOP_HIERARCHY 1 means this window is at the top of a physical + * window hierarchy within this process, i.e. the + * window's parent either doesn't exist or is not + * owned by this Tk application. + * TK_PROP_PROPCHANGE 1 means that PropertyNotify events in the + * window's children should propagate up to this + * window. + * TK_WM_MANAGEABLE 1 marks a window as capable of being converted + * into a toplevel using [wm manage]. + */ + +#define TK_MAPPED 1 +#define TK_TOP_LEVEL 2 +#define TK_ALREADY_DEAD 4 +#define TK_NEED_CONFIG_NOTIFY 8 +#define TK_GRAB_FLAG 0x10 +#define TK_CHECKED_IC 0x20 +#define TK_DONT_DESTROY_WINDOW 0x40 +#define TK_WM_COLORMAP_WINDOW 0x80 +#define TK_EMBEDDED 0x100 +#define TK_CONTAINER 0x200 +#define TK_BOTH_HALVES 0x400 +#define TK_WRAPPER 0x1000 +#define TK_REPARENTED 0x2000 +#define TK_ANONYMOUS_WINDOW 0x4000 +#define TK_HAS_WRAPPER 0x8000 +#define TK_WIN_MANAGED 0x10000 +#define TK_TOP_HIERARCHY 0x20000 +#define TK_PROP_PROPCHANGE 0x40000 +#define TK_WM_MANAGEABLE 0x80000 + +/* + *---------------------------------------------------------------------- + * + * Procedure prototypes and structures used for defining new canvas items: + * + *---------------------------------------------------------------------- + */ + +typedef enum { + TK_STATE_NULL = -1, TK_STATE_ACTIVE, TK_STATE_DISABLED, + TK_STATE_NORMAL, TK_STATE_HIDDEN +} Tk_State; + +typedef struct Tk_SmoothMethod { + CONST86 char *name; + int (*coordProc) (Tk_Canvas canvas, double *pointPtr, int numPoints, + int numSteps, XPoint xPoints[], double dblPoints[]); + void (*postscriptProc) (Tcl_Interp *interp, Tk_Canvas canvas, + double *coordPtr, int numPoints, int numSteps); +} Tk_SmoothMethod; + +/* + * For each item in a canvas widget there exists one record with the following + * structure. Each actual item is represented by a record with the following + * stuff at its beginning, plus additional type-specific stuff after that. + */ + +#define TK_TAG_SPACE 3 + +typedef struct Tk_Item { + int id; /* Unique identifier for this item (also + * serves as first tag for item). */ + struct Tk_Item *nextPtr; /* Next in display list of all items in this + * canvas. Later items in list are drawn on + * top of earlier ones. */ + Tk_Uid staticTagSpace[TK_TAG_SPACE]; + /* Built-in space for limited # of tags. */ + Tk_Uid *tagPtr; /* Pointer to array of tags. Usually points to + * staticTagSpace, but may point to malloc-ed + * space if there are lots of tags. */ + int tagSpace; /* Total amount of tag space available at + * tagPtr. */ + int numTags; /* Number of tag slots actually used at + * *tagPtr. */ + struct Tk_ItemType *typePtr;/* Table of procedures that implement this + * type of item. */ + int x1, y1, x2, y2; /* Bounding box for item, in integer canvas + * units. Set by item-specific code and + * guaranteed to contain every pixel drawn in + * item. Item area includes x1 and y1 but not + * x2 and y2. */ + struct Tk_Item *prevPtr; /* Previous in display list of all items in + * this canvas. Later items in list are drawn + * just below earlier ones. */ + Tk_State state; /* State of item. */ + char *reserved1; /* reserved for future use */ + int redraw_flags; /* Some flags used in the canvas */ + + /* + *------------------------------------------------------------------ + * Starting here is additional type-specific stuff; see the declarations + * for individual types to see what is part of each type. The actual space + * below is determined by the "itemInfoSize" of the type's Tk_ItemType + * record. + *------------------------------------------------------------------ + */ +} Tk_Item; + +/* + * Flag bits for canvases (redraw_flags): + * + * TK_ITEM_STATE_DEPENDANT - 1 means that object needs to be redrawn if the + * canvas state changes. + * TK_ITEM_DONT_REDRAW - 1 means that the object redraw is already been + * prepared, so the general canvas code doesn't + * need to do that any more. + */ + +#define TK_ITEM_STATE_DEPENDANT 1 +#define TK_ITEM_DONT_REDRAW 2 + +/* + * Records of the following type are used to describe a type of item (e.g. + * lines, circles, etc.) that can form part of a canvas widget. + */ + +#ifdef USE_OLD_CANVAS +typedef int (Tk_ItemCreateProc)(Tcl_Interp *interp, Tk_Canvas canvas, + Tk_Item *itemPtr, int argc, char **argv); +typedef int (Tk_ItemConfigureProc)(Tcl_Interp *interp, Tk_Canvas canvas, + Tk_Item *itemPtr, int argc, char **argv, int flags); +typedef int (Tk_ItemCoordProc)(Tcl_Interp *interp, Tk_Canvas canvas, + Tk_Item *itemPtr, int argc, char **argv); +#else +typedef int (Tk_ItemCreateProc)(Tcl_Interp *interp, Tk_Canvas canvas, + Tk_Item *itemPtr, int argc, Tcl_Obj *const objv[]); +typedef int (Tk_ItemConfigureProc)(Tcl_Interp *interp, Tk_Canvas canvas, + Tk_Item *itemPtr, int argc, Tcl_Obj *const objv[], + int flags); +typedef int (Tk_ItemCoordProc)(Tcl_Interp *interp, Tk_Canvas canvas, + Tk_Item *itemPtr, int argc, Tcl_Obj *const argv[]); +#endif /* USE_OLD_CANVAS */ +typedef void (Tk_ItemDeleteProc)(Tk_Canvas canvas, Tk_Item *itemPtr, + Display *display); +typedef void (Tk_ItemDisplayProc)(Tk_Canvas canvas, Tk_Item *itemPtr, + Display *display, Drawable dst, int x, int y, int width, + int height); +typedef double (Tk_ItemPointProc)(Tk_Canvas canvas, Tk_Item *itemPtr, + double *pointPtr); +typedef int (Tk_ItemAreaProc)(Tk_Canvas canvas, Tk_Item *itemPtr, + double *rectPtr); +typedef int (Tk_ItemPostscriptProc)(Tcl_Interp *interp, Tk_Canvas canvas, + Tk_Item *itemPtr, int prepass); +typedef void (Tk_ItemScaleProc)(Tk_Canvas canvas, Tk_Item *itemPtr, + double originX, double originY, double scaleX, + double scaleY); +typedef void (Tk_ItemTranslateProc)(Tk_Canvas canvas, Tk_Item *itemPtr, + double deltaX, double deltaY); +#ifdef USE_OLD_CANVAS +typedef int (Tk_ItemIndexProc)(Tcl_Interp *interp, Tk_Canvas canvas, + Tk_Item *itemPtr, char *indexString, int *indexPtr); +#else +typedef int (Tk_ItemIndexProc)(Tcl_Interp *interp, Tk_Canvas canvas, + Tk_Item *itemPtr, Tcl_Obj *indexString, int *indexPtr); +#endif /* USE_OLD_CANVAS */ +typedef void (Tk_ItemCursorProc)(Tk_Canvas canvas, Tk_Item *itemPtr, + int index); +typedef int (Tk_ItemSelectionProc)(Tk_Canvas canvas, Tk_Item *itemPtr, + int offset, char *buffer, int maxBytes); +#ifdef USE_OLD_CANVAS +typedef void (Tk_ItemInsertProc)(Tk_Canvas canvas, Tk_Item *itemPtr, + int beforeThis, char *string); +#else +typedef void (Tk_ItemInsertProc)(Tk_Canvas canvas, Tk_Item *itemPtr, + int beforeThis, Tcl_Obj *string); +#endif /* USE_OLD_CANVAS */ +typedef void (Tk_ItemDCharsProc)(Tk_Canvas canvas, Tk_Item *itemPtr, + int first, int last); + +#ifndef __NO_OLD_CONFIG + +typedef struct Tk_ItemType { + CONST86 char *name; /* The name of this type of item, such as + * "line". */ + int itemSize; /* Total amount of space needed for item's + * record. */ + Tk_ItemCreateProc *createProc; + /* Procedure to create a new item of this + * type. */ + CONST86 Tk_ConfigSpec *configSpecs; /* Pointer to array of configuration specs for + * this type. Used for returning configuration + * info. */ + Tk_ItemConfigureProc *configProc; + /* Procedure to call to change configuration + * options. */ + Tk_ItemCoordProc *coordProc;/* Procedure to call to get and set the item's + * coordinates. */ + Tk_ItemDeleteProc *deleteProc; + /* Procedure to delete existing item of this + * type. */ + Tk_ItemDisplayProc *displayProc; + /* Procedure to display items of this type. */ + int alwaysRedraw; /* Non-zero means displayProc should be called + * even when the item has been moved + * off-screen. */ + Tk_ItemPointProc *pointProc;/* Computes distance from item to a given + * point. */ + Tk_ItemAreaProc *areaProc; /* Computes whether item is inside, outside, + * or overlapping an area. */ + Tk_ItemPostscriptProc *postscriptProc; + /* Procedure to write a Postscript description + * for items of this type. */ + Tk_ItemScaleProc *scaleProc;/* Procedure to rescale items of this type. */ + Tk_ItemTranslateProc *translateProc; + /* Procedure to translate items of this + * type. */ + Tk_ItemIndexProc *indexProc;/* Procedure to determine index of indicated + * character. NULL if item doesn't support + * indexing. */ + Tk_ItemCursorProc *icursorProc; + /* Procedure to set insert cursor posn to just + * before a given position. */ + Tk_ItemSelectionProc *selectionProc; + /* Procedure to return selection (in STRING + * format) when it is in this item. */ + Tk_ItemInsertProc *insertProc; + /* Procedure to insert something into an + * item. */ + Tk_ItemDCharsProc *dCharsProc; + /* Procedure to delete characters from an + * item. */ + struct Tk_ItemType *nextPtr;/* Used to link types together into a list. */ + char *reserved1; /* Reserved for future extension. */ + int reserved2; /* Carefully compatible with */ + char *reserved3; /* Jan Nijtmans dash patch */ + char *reserved4; +} Tk_ItemType; + +/* + * Flag (used in the alwaysRedraw field) to say whether an item supports + * point-level manipulation like the line and polygon items. + */ + +#define TK_MOVABLE_POINTS 2 + +#endif /* __NO_OLD_CONFIG */ + +/* + * The following structure provides information about the selection and the + * insertion cursor. It is needed by only a few items, such as those that + * display text. It is shared by the generic canvas code and the item-specific + * code, but most of the fields should be written only by the canvas generic + * code. + */ + +typedef struct Tk_CanvasTextInfo { + Tk_3DBorder selBorder; /* Border and background for selected + * characters. Read-only to items.*/ + int selBorderWidth; /* Width of border around selection. Read-only + * to items. */ + XColor *selFgColorPtr; /* Foreground color for selected text. + * Read-only to items. */ + Tk_Item *selItemPtr; /* Pointer to selected item. NULL means + * selection isn't in this canvas. Writable by + * items. */ + int selectFirst; /* Character index of first selected + * character. Writable by items. */ + int selectLast; /* Character index of last selected character. + * Writable by items. */ + Tk_Item *anchorItemPtr; /* Item corresponding to "selectAnchor": not + * necessarily selItemPtr. Read-only to + * items. */ + int selectAnchor; /* Character index of fixed end of selection + * (i.e. "select to" operation will use this + * as one end of the selection). Writable by + * items. */ + Tk_3DBorder insertBorder; /* Used to draw vertical bar for insertion + * cursor. Read-only to items. */ + int insertWidth; /* Total width of insertion cursor. Read-only + * to items. */ + int insertBorderWidth; /* Width of 3-D border around insert cursor. + * Read-only to items. */ + Tk_Item *focusItemPtr; /* Item that currently has the input focus, or + * NULL if no such item. Read-only to items. */ + int gotFocus; /* Non-zero means that the canvas widget has + * the input focus. Read-only to items.*/ + int cursorOn; /* Non-zero means that an insertion cursor + * should be displayed in focusItemPtr. + * Read-only to items.*/ +} Tk_CanvasTextInfo; + +/* + * Structures used for Dashing and Outline. + */ + +typedef struct Tk_Dash { + int number; + union { + char *pt; + char array[sizeof(char *)]; + } pattern; +} Tk_Dash; + +typedef struct Tk_TSOffset { + int flags; /* Flags; see below for possible values */ + int xoffset; /* x offset */ + int yoffset; /* y offset */ +} Tk_TSOffset; + +/* + * Bit fields in Tk_Offset->flags: + */ + +#define TK_OFFSET_INDEX 1 +#define TK_OFFSET_RELATIVE 2 +#define TK_OFFSET_LEFT 4 +#define TK_OFFSET_CENTER 8 +#define TK_OFFSET_RIGHT 16 +#define TK_OFFSET_TOP 32 +#define TK_OFFSET_MIDDLE 64 +#define TK_OFFSET_BOTTOM 128 + +typedef struct Tk_Outline { + GC gc; /* Graphics context. */ + double width; /* Width of outline. */ + double activeWidth; /* Width of outline. */ + double disabledWidth; /* Width of outline. */ + int offset; /* Dash offset. */ + Tk_Dash dash; /* Dash pattern. */ + Tk_Dash activeDash; /* Dash pattern if state is active. */ + Tk_Dash disabledDash; /* Dash pattern if state is disabled. */ + void *reserved1; /* Reserved for future expansion. */ + void *reserved2; + void *reserved3; + Tk_TSOffset tsoffset; /* Stipple offset for outline. */ + XColor *color; /* Outline color. */ + XColor *activeColor; /* Outline color if state is active. */ + XColor *disabledColor; /* Outline color if state is disabled. */ + Pixmap stipple; /* Outline Stipple pattern. */ + Pixmap activeStipple; /* Outline Stipple pattern if state is + * active. */ + Pixmap disabledStipple; /* Outline Stipple pattern if state is + * disabled. */ +} Tk_Outline; + +/* + *---------------------------------------------------------------------- + * + * Procedure prototypes and structures used for managing images: + * + *---------------------------------------------------------------------- + */ + +typedef struct Tk_ImageType Tk_ImageType; +#ifdef USE_OLD_IMAGE +typedef int (Tk_ImageCreateProc) (Tcl_Interp *interp, char *name, int argc, + char **argv, Tk_ImageType *typePtr, Tk_ImageMaster master, + ClientData *masterDataPtr); +#else +typedef int (Tk_ImageCreateProc) (Tcl_Interp *interp, CONST86 char *name, int objc, + Tcl_Obj *const objv[], CONST86 Tk_ImageType *typePtr, Tk_ImageMaster master, + ClientData *masterDataPtr); +#endif /* USE_OLD_IMAGE */ +typedef ClientData (Tk_ImageGetProc) (Tk_Window tkwin, ClientData masterData); +typedef void (Tk_ImageDisplayProc) (ClientData instanceData, Display *display, + Drawable drawable, int imageX, int imageY, int width, int height, + int drawableX, int drawableY); +typedef void (Tk_ImageFreeProc) (ClientData instanceData, Display *display); +typedef void (Tk_ImageDeleteProc) (ClientData masterData); +typedef void (Tk_ImageChangedProc) (ClientData clientData, int x, int y, + int width, int height, int imageWidth, int imageHeight); +typedef int (Tk_ImagePostscriptProc) (ClientData clientData, + Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, + int x, int y, int width, int height, int prepass); + +/* + * The following structure represents a particular type of image (bitmap, xpm + * image, etc.). It provides information common to all images of that type, + * such as the type name and a collection of procedures in the image manager + * that respond to various events. Each image manager is represented by one of + * these structures. + */ + +struct Tk_ImageType { + CONST86 char *name; /* Name of image type. */ + Tk_ImageCreateProc *createProc; + /* Procedure to call to create a new image of + * this type. */ + Tk_ImageGetProc *getProc; /* Procedure to call the first time + * Tk_GetImage is called in a new way (new + * visual or screen). */ + Tk_ImageDisplayProc *displayProc; + /* Call to draw image, in response to + * Tk_RedrawImage calls. */ + Tk_ImageFreeProc *freeProc; /* Procedure to call whenever Tk_FreeImage is + * called to release an instance of an + * image. */ + Tk_ImageDeleteProc *deleteProc; + /* Procedure to call to delete image. It will + * not be called until after freeProc has been + * called for each instance of the image. */ + Tk_ImagePostscriptProc *postscriptProc; + /* Procedure to call to produce postscript + * output for the image. */ + struct Tk_ImageType *nextPtr; + /* Next in list of all image types currently + * known. Filled in by Tk, not by image + * manager. */ + char *reserved; /* reserved for future expansion */ +}; + +/* + *---------------------------------------------------------------------- + * + * Additional definitions used to manage images of type "photo". + * + *---------------------------------------------------------------------- + */ + +/* + * The following type is used to identify a particular photo image to be + * manipulated: + */ + +typedef void *Tk_PhotoHandle; + +/* + * The following structure describes a block of pixels in memory: + */ + +typedef struct Tk_PhotoImageBlock { + unsigned char *pixelPtr; /* Pointer to the first pixel. */ + int width; /* Width of block, in pixels. */ + int height; /* Height of block, in pixels. */ + int pitch; /* Address difference between corresponding + * pixels in successive lines. */ + int pixelSize; /* Address difference between successive + * pixels in the same line. */ + int offset[4]; /* Address differences between the red, green, + * blue and alpha components of the pixel and + * the pixel as a whole. */ +} Tk_PhotoImageBlock; + +/* + * The following values control how blocks are combined into photo images when + * the alpha component of a pixel is not 255, a.k.a. the compositing rule. + */ + +#define TK_PHOTO_COMPOSITE_OVERLAY 0 +#define TK_PHOTO_COMPOSITE_SET 1 + +/* + * Procedure prototypes and structures used in reading and writing photo + * images: + */ + +typedef struct Tk_PhotoImageFormat Tk_PhotoImageFormat; +#ifdef USE_OLD_IMAGE +typedef int (Tk_ImageFileMatchProc) (Tcl_Channel chan, char *fileName, + char *formatString, int *widthPtr, int *heightPtr); +typedef int (Tk_ImageStringMatchProc) (char *string, char *formatString, + int *widthPtr, int *heightPtr); +typedef int (Tk_ImageFileReadProc) (Tcl_Interp *interp, Tcl_Channel chan, + char *fileName, char *formatString, Tk_PhotoHandle imageHandle, + int destX, int destY, int width, int height, int srcX, int srcY); +typedef int (Tk_ImageStringReadProc) (Tcl_Interp *interp, char *string, + char *formatString, Tk_PhotoHandle imageHandle, int destX, int destY, + int width, int height, int srcX, int srcY); +typedef int (Tk_ImageFileWriteProc) (Tcl_Interp *interp, char *fileName, + char *formatString, Tk_PhotoImageBlock *blockPtr); +typedef int (Tk_ImageStringWriteProc) (Tcl_Interp *interp, + Tcl_DString *dataPtr, char *formatString, Tk_PhotoImageBlock *blockPtr); +#else +typedef int (Tk_ImageFileMatchProc) (Tcl_Channel chan, const char *fileName, + Tcl_Obj *format, int *widthPtr, int *heightPtr, Tcl_Interp *interp); +typedef int (Tk_ImageStringMatchProc) (Tcl_Obj *dataObj, Tcl_Obj *format, + int *widthPtr, int *heightPtr, Tcl_Interp *interp); +typedef int (Tk_ImageFileReadProc) (Tcl_Interp *interp, Tcl_Channel chan, + const char *fileName, Tcl_Obj *format, Tk_PhotoHandle imageHandle, + int destX, int destY, int width, int height, int srcX, int srcY); +typedef int (Tk_ImageStringReadProc) (Tcl_Interp *interp, Tcl_Obj *dataObj, + Tcl_Obj *format, Tk_PhotoHandle imageHandle, int destX, int destY, + int width, int height, int srcX, int srcY); +typedef int (Tk_ImageFileWriteProc) (Tcl_Interp *interp, const char *fileName, + Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr); +typedef int (Tk_ImageStringWriteProc) (Tcl_Interp *interp, Tcl_Obj *format, + Tk_PhotoImageBlock *blockPtr); +#endif /* USE_OLD_IMAGE */ + +/* + * The following structure represents a particular file format for storing + * images (e.g., PPM, GIF, JPEG, etc.). It provides information to allow image + * files of that format to be recognized and read into a photo image. + */ + +struct Tk_PhotoImageFormat { + CONST86 char *name; /* Name of image file format */ + Tk_ImageFileMatchProc *fileMatchProc; + /* Procedure to call to determine whether an + * image file matches this format. */ + Tk_ImageStringMatchProc *stringMatchProc; + /* Procedure to call to determine whether the + * data in a string matches this format. */ + Tk_ImageFileReadProc *fileReadProc; + /* Procedure to call to read data from an + * image file into a photo image. */ + Tk_ImageStringReadProc *stringReadProc; + /* Procedure to call to read data from a + * string into a photo image. */ + Tk_ImageFileWriteProc *fileWriteProc; + /* Procedure to call to write data from a + * photo image to a file. */ + Tk_ImageStringWriteProc *stringWriteProc; + /* Procedure to call to obtain a string + * representation of the data in a photo + * image.*/ + struct Tk_PhotoImageFormat *nextPtr; + /* Next in list of all photo image formats + * currently known. Filled in by Tk, not by + * image format handler. */ +}; + +/* + *---------------------------------------------------------------------- + * + * Procedure prototypes and structures used for managing styles: + * + *---------------------------------------------------------------------- + */ + +/* + * Style support version tag. + */ + +#define TK_STYLE_VERSION_1 0x1 +#define TK_STYLE_VERSION TK_STYLE_VERSION_1 + +/* + * The following structures and prototypes are used as static templates to + * declare widget elements. + */ + +typedef void (Tk_GetElementSizeProc) (ClientData clientData, char *recordPtr, + const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, int width, + int height, int inner, int *widthPtr, int *heightPtr); +typedef void (Tk_GetElementBoxProc) (ClientData clientData, char *recordPtr, + const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, int x, int y, + int width, int height, int inner, int *xPtr, int *yPtr, int *widthPtr, + int *heightPtr); +typedef int (Tk_GetElementBorderWidthProc) (ClientData clientData, + char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin); +typedef void (Tk_DrawElementProc) (ClientData clientData, char *recordPtr, + const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, Drawable d, int x, + int y, int width, int height, int state); + +typedef struct Tk_ElementOptionSpec { + char *name; /* Name of the required option. */ + Tk_OptionType type; /* Accepted option type. TK_OPTION_END means + * any. */ +} Tk_ElementOptionSpec; + +typedef struct Tk_ElementSpec { + int version; /* Version of the style support. */ + char *name; /* Name of element. */ + Tk_ElementOptionSpec *options; + /* List of required options. Last one's name + * must be NULL. */ + Tk_GetElementSizeProc *getSize; + /* Compute the external (resp. internal) size + * of the element from its desired internal + * (resp. external) size. */ + Tk_GetElementBoxProc *getBox; + /* Compute the inscribed or bounding boxes + * within a given area. */ + Tk_GetElementBorderWidthProc *getBorderWidth; + /* Return the element's internal border width. + * Mostly useful for widgets. */ + Tk_DrawElementProc *draw; /* Draw the element in the given bounding + * box. */ +} Tk_ElementSpec; + +/* + * Element state flags. Can be OR'ed. + */ + +#define TK_ELEMENT_STATE_ACTIVE 1<<0 +#define TK_ELEMENT_STATE_DISABLED 1<<1 +#define TK_ELEMENT_STATE_FOCUS 1<<2 +#define TK_ELEMENT_STATE_PRESSED 1<<3 + +/* + *---------------------------------------------------------------------- + * + * The definitions below provide backward compatibility for functions and + * types related to event handling that used to be in Tk but have moved to + * Tcl. + * + *---------------------------------------------------------------------- + */ + +#define TK_READABLE TCL_READABLE +#define TK_WRITABLE TCL_WRITABLE +#define TK_EXCEPTION TCL_EXCEPTION + +#define TK_DONT_WAIT TCL_DONT_WAIT +#define TK_X_EVENTS TCL_WINDOW_EVENTS +#define TK_WINDOW_EVENTS TCL_WINDOW_EVENTS +#define TK_FILE_EVENTS TCL_FILE_EVENTS +#define TK_TIMER_EVENTS TCL_TIMER_EVENTS +#define TK_IDLE_EVENTS TCL_IDLE_EVENTS +#define TK_ALL_EVENTS TCL_ALL_EVENTS + +#define Tk_IdleProc Tcl_IdleProc +#define Tk_FileProc Tcl_FileProc +#define Tk_TimerProc Tcl_TimerProc +#define Tk_TimerToken Tcl_TimerToken + +#define Tk_BackgroundError Tcl_BackgroundError +#define Tk_CancelIdleCall Tcl_CancelIdleCall +#define Tk_CreateFileHandler Tcl_CreateFileHandler +#define Tk_CreateTimerHandler Tcl_CreateTimerHandler +#define Tk_DeleteFileHandler Tcl_DeleteFileHandler +#define Tk_DeleteTimerHandler Tcl_DeleteTimerHandler +#define Tk_DoOneEvent Tcl_DoOneEvent +#define Tk_DoWhenIdle Tcl_DoWhenIdle +#define Tk_Sleep Tcl_Sleep + +/* Additional stuff that has moved to Tcl: */ + +#define Tk_EventuallyFree Tcl_EventuallyFree +#define Tk_FreeProc Tcl_FreeProc +#define Tk_Preserve Tcl_Preserve +#define Tk_Release Tcl_Release + +/* Removed Tk_Main, use macro instead */ +#if defined(_WIN32) || defined(__CYGWIN__) +#define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \ + (Tcl_FindExecutable(0), (Tcl_CreateInterp)())) +#else +#define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \ + (Tcl_FindExecutable(argv[0]), (Tcl_CreateInterp)())) +#endif +const char * Tk_InitStubs(Tcl_Interp *interp, const char *version, + int exact); +EXTERN const char * Tk_PkgInitStubsCheck(Tcl_Interp *interp, + const char *version, int exact); + +#ifndef USE_TK_STUBS +#define Tk_InitStubs(interp, version, exact) \ + Tk_PkgInitStubsCheck(interp, version, exact) +#endif /* USE_TK_STUBS */ + +#define Tk_InitImageArgs(interp, argc, argv) /**/ + +/* + *---------------------------------------------------------------------- + * + * Additional procedure types defined by Tk. + * + *---------------------------------------------------------------------- + */ + +typedef int (Tk_ErrorProc) (ClientData clientData, XErrorEvent *errEventPtr); +typedef void (Tk_EventProc) (ClientData clientData, XEvent *eventPtr); +typedef int (Tk_GenericProc) (ClientData clientData, XEvent *eventPtr); +typedef int (Tk_ClientMessageProc) (Tk_Window tkwin, XEvent *eventPtr); +typedef int (Tk_GetSelProc) (ClientData clientData, Tcl_Interp *interp, + CONST86 char *portion); +typedef void (Tk_LostSelProc) (ClientData clientData); +typedef Tk_RestrictAction (Tk_RestrictProc) (ClientData clientData, + XEvent *eventPtr); +typedef int (Tk_SelectionProc) (ClientData clientData, int offset, + char *buffer, int maxBytes); + +/* + *---------------------------------------------------------------------- + * + * Platform independent exported procedures and variables. + * + *---------------------------------------------------------------------- + */ + +#include "tkDecls.h" + +#ifdef USE_OLD_IMAGE +#undef Tk_CreateImageType +#define Tk_CreateImageType Tk_CreateOldImageType +#undef Tk_CreatePhotoImageFormat +#define Tk_CreatePhotoImageFormat Tk_CreateOldPhotoImageFormat +#endif /* USE_OLD_IMAGE */ + +/* + *---------------------------------------------------------------------- + * + * Allow users to say that they don't want to alter their source to add extra + * arguments to Tk_PhotoPutBlock() et al; DO NOT DEFINE THIS WHEN BUILDING TK. + * + * This goes after the inclusion of the stubbed-decls so that the declarations + * of what is actually there can be correct. + */ + +#ifdef USE_COMPOSITELESS_PHOTO_PUT_BLOCK +# ifdef Tk_PhotoPutBlock +# undef Tk_PhotoPutBlock +# endif +# define Tk_PhotoPutBlock Tk_PhotoPutBlock_NoComposite +# ifdef Tk_PhotoPutZoomedBlock +# undef Tk_PhotoPutZoomedBlock +# endif +# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_NoComposite +# define USE_PANIC_ON_PHOTO_ALLOC_FAILURE +#else /* !USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ +# ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE +# ifdef Tk_PhotoPutBlock +# undef Tk_PhotoPutBlock +# endif +# define Tk_PhotoPutBlock Tk_PhotoPutBlock_Panic +# ifdef Tk_PhotoPutZoomedBlock +# undef Tk_PhotoPutZoomedBlock +# endif +# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_Panic +# endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ +#endif /* USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ +#ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE +# ifdef Tk_PhotoExpand +# undef Tk_PhotoExpand +# endif +# define Tk_PhotoExpand Tk_PhotoExpand_Panic +# ifdef Tk_PhotoSetSize +# undef Tk_PhotoSetSize +# endif +# define Tk_PhotoSetSize Tk_PhotoSetSize_Panic +#endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* RC_INVOKED */ + +/* + * end block for C++ + */ + +#ifdef __cplusplus +} +#endif + +#endif /* _TK */ + +/* + * Local Variables: + * mode: c + * c-basic-offset: 4 + * fill-column: 78 + * End: + */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tkDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tkDecls.h new file mode 100644 index 00000000..64c32cd2 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tkDecls.h @@ -0,0 +1,1733 @@ +/* + * tkDecls.h -- + * + * Declarations of functions in the platform independent public Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TKDECLS +#define _TKDECLS + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tk.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * Exported function declarations: + */ + +/* 0 */ +EXTERN void Tk_MainLoop(void); +/* 1 */ +EXTERN XColor * Tk_3DBorderColor(Tk_3DBorder border); +/* 2 */ +EXTERN GC Tk_3DBorderGC(Tk_Window tkwin, Tk_3DBorder border, + int which); +/* 3 */ +EXTERN void Tk_3DHorizontalBevel(Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, int leftIn, + int rightIn, int topBevel, int relief); +/* 4 */ +EXTERN void Tk_3DVerticalBevel(Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, int leftBevel, + int relief); +/* 5 */ +EXTERN void Tk_AddOption(Tk_Window tkwin, const char *name, + const char *value, int priority); +/* 6 */ +EXTERN void Tk_BindEvent(Tk_BindingTable bindingTable, + XEvent *eventPtr, Tk_Window tkwin, + int numObjects, ClientData *objectPtr); +/* 7 */ +EXTERN void Tk_CanvasDrawableCoords(Tk_Canvas canvas, double x, + double y, short *drawableXPtr, + short *drawableYPtr); +/* 8 */ +EXTERN void Tk_CanvasEventuallyRedraw(Tk_Canvas canvas, int x1, + int y1, int x2, int y2); +/* 9 */ +EXTERN int Tk_CanvasGetCoord(Tcl_Interp *interp, + Tk_Canvas canvas, const char *str, + double *doublePtr); +/* 10 */ +EXTERN Tk_CanvasTextInfo * Tk_CanvasGetTextInfo(Tk_Canvas canvas); +/* 11 */ +EXTERN int Tk_CanvasPsBitmap(Tcl_Interp *interp, + Tk_Canvas canvas, Pixmap bitmap, int x, + int y, int width, int height); +/* 12 */ +EXTERN int Tk_CanvasPsColor(Tcl_Interp *interp, + Tk_Canvas canvas, XColor *colorPtr); +/* 13 */ +EXTERN int Tk_CanvasPsFont(Tcl_Interp *interp, Tk_Canvas canvas, + Tk_Font font); +/* 14 */ +EXTERN void Tk_CanvasPsPath(Tcl_Interp *interp, Tk_Canvas canvas, + double *coordPtr, int numPoints); +/* 15 */ +EXTERN int Tk_CanvasPsStipple(Tcl_Interp *interp, + Tk_Canvas canvas, Pixmap bitmap); +/* 16 */ +EXTERN double Tk_CanvasPsY(Tk_Canvas canvas, double y); +/* 17 */ +EXTERN void Tk_CanvasSetStippleOrigin(Tk_Canvas canvas, GC gc); +/* 18 */ +EXTERN int Tk_CanvasTagsParseProc(ClientData clientData, + Tcl_Interp *interp, Tk_Window tkwin, + const char *value, char *widgRec, int offset); +/* 19 */ +EXTERN CONST86 char * Tk_CanvasTagsPrintProc(ClientData clientData, + Tk_Window tkwin, char *widgRec, int offset, + Tcl_FreeProc **freeProcPtr); +/* 20 */ +EXTERN Tk_Window Tk_CanvasTkwin(Tk_Canvas canvas); +/* 21 */ +EXTERN void Tk_CanvasWindowCoords(Tk_Canvas canvas, double x, + double y, short *screenXPtr, + short *screenYPtr); +/* 22 */ +EXTERN void Tk_ChangeWindowAttributes(Tk_Window tkwin, + unsigned long valueMask, + XSetWindowAttributes *attsPtr); +/* 23 */ +EXTERN int Tk_CharBbox(Tk_TextLayout layout, int index, + int *xPtr, int *yPtr, int *widthPtr, + int *heightPtr); +/* 24 */ +EXTERN void Tk_ClearSelection(Tk_Window tkwin, Atom selection); +/* 25 */ +EXTERN int Tk_ClipboardAppend(Tcl_Interp *interp, + Tk_Window tkwin, Atom target, Atom format, + const char *buffer); +/* 26 */ +EXTERN int Tk_ClipboardClear(Tcl_Interp *interp, + Tk_Window tkwin); +/* 27 */ +EXTERN int Tk_ConfigureInfo(Tcl_Interp *interp, Tk_Window tkwin, + const Tk_ConfigSpec *specs, char *widgRec, + const char *argvName, int flags); +/* 28 */ +EXTERN int Tk_ConfigureValue(Tcl_Interp *interp, + Tk_Window tkwin, const Tk_ConfigSpec *specs, + char *widgRec, const char *argvName, + int flags); +/* 29 */ +EXTERN int Tk_ConfigureWidget(Tcl_Interp *interp, + Tk_Window tkwin, const Tk_ConfigSpec *specs, + int argc, CONST84 char **argv, char *widgRec, + int flags); +/* 30 */ +EXTERN void Tk_ConfigureWindow(Tk_Window tkwin, + unsigned int valueMask, + XWindowChanges *valuePtr); +/* 31 */ +EXTERN Tk_TextLayout Tk_ComputeTextLayout(Tk_Font font, const char *str, + int numChars, int wrapLength, + Tk_Justify justify, int flags, int *widthPtr, + int *heightPtr); +/* 32 */ +EXTERN Tk_Window Tk_CoordsToWindow(int rootX, int rootY, + Tk_Window tkwin); +/* 33 */ +EXTERN unsigned long Tk_CreateBinding(Tcl_Interp *interp, + Tk_BindingTable bindingTable, + ClientData object, const char *eventStr, + const char *script, int append); +/* 34 */ +EXTERN Tk_BindingTable Tk_CreateBindingTable(Tcl_Interp *interp); +/* 35 */ +EXTERN Tk_ErrorHandler Tk_CreateErrorHandler(Display *display, int errNum, + int request, int minorCode, + Tk_ErrorProc *errorProc, + ClientData clientData); +/* 36 */ +EXTERN void Tk_CreateEventHandler(Tk_Window token, + unsigned long mask, Tk_EventProc *proc, + ClientData clientData); +/* 37 */ +EXTERN void Tk_CreateGenericHandler(Tk_GenericProc *proc, + ClientData clientData); +/* 38 */ +EXTERN void Tk_CreateImageType(const Tk_ImageType *typePtr); +/* 39 */ +EXTERN void Tk_CreateItemType(Tk_ItemType *typePtr); +/* 40 */ +EXTERN void Tk_CreatePhotoImageFormat( + const Tk_PhotoImageFormat *formatPtr); +/* 41 */ +EXTERN void Tk_CreateSelHandler(Tk_Window tkwin, Atom selection, + Atom target, Tk_SelectionProc *proc, + ClientData clientData, Atom format); +/* 42 */ +EXTERN Tk_Window Tk_CreateWindow(Tcl_Interp *interp, Tk_Window parent, + const char *name, const char *screenName); +/* 43 */ +EXTERN Tk_Window Tk_CreateWindowFromPath(Tcl_Interp *interp, + Tk_Window tkwin, const char *pathName, + const char *screenName); +/* 44 */ +EXTERN int Tk_DefineBitmap(Tcl_Interp *interp, const char *name, + const void *source, int width, int height); +/* 45 */ +EXTERN void Tk_DefineCursor(Tk_Window window, Tk_Cursor cursor); +/* 46 */ +EXTERN void Tk_DeleteAllBindings(Tk_BindingTable bindingTable, + ClientData object); +/* 47 */ +EXTERN int Tk_DeleteBinding(Tcl_Interp *interp, + Tk_BindingTable bindingTable, + ClientData object, const char *eventStr); +/* 48 */ +EXTERN void Tk_DeleteBindingTable(Tk_BindingTable bindingTable); +/* 49 */ +EXTERN void Tk_DeleteErrorHandler(Tk_ErrorHandler handler); +/* 50 */ +EXTERN void Tk_DeleteEventHandler(Tk_Window token, + unsigned long mask, Tk_EventProc *proc, + ClientData clientData); +/* 51 */ +EXTERN void Tk_DeleteGenericHandler(Tk_GenericProc *proc, + ClientData clientData); +/* 52 */ +EXTERN void Tk_DeleteImage(Tcl_Interp *interp, const char *name); +/* 53 */ +EXTERN void Tk_DeleteSelHandler(Tk_Window tkwin, Atom selection, + Atom target); +/* 54 */ +EXTERN void Tk_DestroyWindow(Tk_Window tkwin); +/* 55 */ +EXTERN CONST84_RETURN char * Tk_DisplayName(Tk_Window tkwin); +/* 56 */ +EXTERN int Tk_DistanceToTextLayout(Tk_TextLayout layout, int x, + int y); +/* 57 */ +EXTERN void Tk_Draw3DPolygon(Tk_Window tkwin, Drawable drawable, + Tk_3DBorder border, XPoint *pointPtr, + int numPoints, int borderWidth, + int leftRelief); +/* 58 */ +EXTERN void Tk_Draw3DRectangle(Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, + int borderWidth, int relief); +/* 59 */ +EXTERN void Tk_DrawChars(Display *display, Drawable drawable, + GC gc, Tk_Font tkfont, const char *source, + int numBytes, int x, int y); +/* 60 */ +EXTERN void Tk_DrawFocusHighlight(Tk_Window tkwin, GC gc, + int width, Drawable drawable); +/* 61 */ +EXTERN void Tk_DrawTextLayout(Display *display, + Drawable drawable, GC gc, + Tk_TextLayout layout, int x, int y, + int firstChar, int lastChar); +/* 62 */ +EXTERN void Tk_Fill3DPolygon(Tk_Window tkwin, Drawable drawable, + Tk_3DBorder border, XPoint *pointPtr, + int numPoints, int borderWidth, + int leftRelief); +/* 63 */ +EXTERN void Tk_Fill3DRectangle(Tk_Window tkwin, + Drawable drawable, Tk_3DBorder border, int x, + int y, int width, int height, + int borderWidth, int relief); +/* 64 */ +EXTERN Tk_PhotoHandle Tk_FindPhoto(Tcl_Interp *interp, + const char *imageName); +/* 65 */ +EXTERN Font Tk_FontId(Tk_Font font); +/* 66 */ +EXTERN void Tk_Free3DBorder(Tk_3DBorder border); +/* 67 */ +EXTERN void Tk_FreeBitmap(Display *display, Pixmap bitmap); +/* 68 */ +EXTERN void Tk_FreeColor(XColor *colorPtr); +/* 69 */ +EXTERN void Tk_FreeColormap(Display *display, Colormap colormap); +/* 70 */ +EXTERN void Tk_FreeCursor(Display *display, Tk_Cursor cursor); +/* 71 */ +EXTERN void Tk_FreeFont(Tk_Font f); +/* 72 */ +EXTERN void Tk_FreeGC(Display *display, GC gc); +/* 73 */ +EXTERN void Tk_FreeImage(Tk_Image image); +/* 74 */ +EXTERN void Tk_FreeOptions(const Tk_ConfigSpec *specs, + char *widgRec, Display *display, + int needFlags); +/* 75 */ +EXTERN void Tk_FreePixmap(Display *display, Pixmap pixmap); +/* 76 */ +EXTERN void Tk_FreeTextLayout(Tk_TextLayout textLayout); +/* 77 */ +EXTERN void Tk_FreeXId(Display *display, XID xid); +/* 78 */ +EXTERN GC Tk_GCForColor(XColor *colorPtr, Drawable drawable); +/* 79 */ +EXTERN void Tk_GeometryRequest(Tk_Window tkwin, int reqWidth, + int reqHeight); +/* 80 */ +EXTERN Tk_3DBorder Tk_Get3DBorder(Tcl_Interp *interp, Tk_Window tkwin, + Tk_Uid colorName); +/* 81 */ +EXTERN void Tk_GetAllBindings(Tcl_Interp *interp, + Tk_BindingTable bindingTable, + ClientData object); +/* 82 */ +EXTERN int Tk_GetAnchor(Tcl_Interp *interp, const char *str, + Tk_Anchor *anchorPtr); +/* 83 */ +EXTERN CONST84_RETURN char * Tk_GetAtomName(Tk_Window tkwin, Atom atom); +/* 84 */ +EXTERN CONST84_RETURN char * Tk_GetBinding(Tcl_Interp *interp, + Tk_BindingTable bindingTable, + ClientData object, const char *eventStr); +/* 85 */ +EXTERN Pixmap Tk_GetBitmap(Tcl_Interp *interp, Tk_Window tkwin, + const char *str); +/* 86 */ +EXTERN Pixmap Tk_GetBitmapFromData(Tcl_Interp *interp, + Tk_Window tkwin, const void *source, + int width, int height); +/* 87 */ +EXTERN int Tk_GetCapStyle(Tcl_Interp *interp, const char *str, + int *capPtr); +/* 88 */ +EXTERN XColor * Tk_GetColor(Tcl_Interp *interp, Tk_Window tkwin, + Tk_Uid name); +/* 89 */ +EXTERN XColor * Tk_GetColorByValue(Tk_Window tkwin, XColor *colorPtr); +/* 90 */ +EXTERN Colormap Tk_GetColormap(Tcl_Interp *interp, Tk_Window tkwin, + const char *str); +/* 91 */ +EXTERN Tk_Cursor Tk_GetCursor(Tcl_Interp *interp, Tk_Window tkwin, + Tk_Uid str); +/* 92 */ +EXTERN Tk_Cursor Tk_GetCursorFromData(Tcl_Interp *interp, + Tk_Window tkwin, const char *source, + const char *mask, int width, int height, + int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); +/* 93 */ +EXTERN Tk_Font Tk_GetFont(Tcl_Interp *interp, Tk_Window tkwin, + const char *str); +/* 94 */ +EXTERN Tk_Font Tk_GetFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); +/* 95 */ +EXTERN void Tk_GetFontMetrics(Tk_Font font, + Tk_FontMetrics *fmPtr); +/* 96 */ +EXTERN GC Tk_GetGC(Tk_Window tkwin, unsigned long valueMask, + XGCValues *valuePtr); +/* 97 */ +EXTERN Tk_Image Tk_GetImage(Tcl_Interp *interp, Tk_Window tkwin, + const char *name, + Tk_ImageChangedProc *changeProc, + ClientData clientData); +/* 98 */ +EXTERN ClientData Tk_GetImageMasterData(Tcl_Interp *interp, + const char *name, + CONST86 Tk_ImageType **typePtrPtr); +/* 99 */ +EXTERN Tk_ItemType * Tk_GetItemTypes(void); +/* 100 */ +EXTERN int Tk_GetJoinStyle(Tcl_Interp *interp, const char *str, + int *joinPtr); +/* 101 */ +EXTERN int Tk_GetJustify(Tcl_Interp *interp, const char *str, + Tk_Justify *justifyPtr); +/* 102 */ +EXTERN int Tk_GetNumMainWindows(void); +/* 103 */ +EXTERN Tk_Uid Tk_GetOption(Tk_Window tkwin, const char *name, + const char *className); +/* 104 */ +EXTERN int Tk_GetPixels(Tcl_Interp *interp, Tk_Window tkwin, + const char *str, int *intPtr); +/* 105 */ +EXTERN Pixmap Tk_GetPixmap(Display *display, Drawable d, int width, + int height, int depth); +/* 106 */ +EXTERN int Tk_GetRelief(Tcl_Interp *interp, const char *name, + int *reliefPtr); +/* 107 */ +EXTERN void Tk_GetRootCoords(Tk_Window tkwin, int *xPtr, + int *yPtr); +/* 108 */ +EXTERN int Tk_GetScrollInfo(Tcl_Interp *interp, int argc, + CONST84 char **argv, double *dblPtr, + int *intPtr); +/* 109 */ +EXTERN int Tk_GetScreenMM(Tcl_Interp *interp, Tk_Window tkwin, + const char *str, double *doublePtr); +/* 110 */ +EXTERN int Tk_GetSelection(Tcl_Interp *interp, Tk_Window tkwin, + Atom selection, Atom target, + Tk_GetSelProc *proc, ClientData clientData); +/* 111 */ +EXTERN Tk_Uid Tk_GetUid(const char *str); +/* 112 */ +EXTERN Visual * Tk_GetVisual(Tcl_Interp *interp, Tk_Window tkwin, + const char *str, int *depthPtr, + Colormap *colormapPtr); +/* 113 */ +EXTERN void Tk_GetVRootGeometry(Tk_Window tkwin, int *xPtr, + int *yPtr, int *widthPtr, int *heightPtr); +/* 114 */ +EXTERN int Tk_Grab(Tcl_Interp *interp, Tk_Window tkwin, + int grabGlobal); +/* 115 */ +EXTERN void Tk_HandleEvent(XEvent *eventPtr); +/* 116 */ +EXTERN Tk_Window Tk_IdToWindow(Display *display, Window window); +/* 117 */ +EXTERN void Tk_ImageChanged(Tk_ImageMaster master, int x, int y, + int width, int height, int imageWidth, + int imageHeight); +/* 118 */ +EXTERN int Tk_Init(Tcl_Interp *interp); +/* 119 */ +EXTERN Atom Tk_InternAtom(Tk_Window tkwin, const char *name); +/* 120 */ +EXTERN int Tk_IntersectTextLayout(Tk_TextLayout layout, int x, + int y, int width, int height); +/* 121 */ +EXTERN void Tk_MaintainGeometry(Tk_Window slave, + Tk_Window master, int x, int y, int width, + int height); +/* 122 */ +EXTERN Tk_Window Tk_MainWindow(Tcl_Interp *interp); +/* 123 */ +EXTERN void Tk_MakeWindowExist(Tk_Window tkwin); +/* 124 */ +EXTERN void Tk_ManageGeometry(Tk_Window tkwin, + const Tk_GeomMgr *mgrPtr, + ClientData clientData); +/* 125 */ +EXTERN void Tk_MapWindow(Tk_Window tkwin); +/* 126 */ +EXTERN int Tk_MeasureChars(Tk_Font tkfont, const char *source, + int numBytes, int maxPixels, int flags, + int *lengthPtr); +/* 127 */ +EXTERN void Tk_MoveResizeWindow(Tk_Window tkwin, int x, int y, + int width, int height); +/* 128 */ +EXTERN void Tk_MoveWindow(Tk_Window tkwin, int x, int y); +/* 129 */ +EXTERN void Tk_MoveToplevelWindow(Tk_Window tkwin, int x, int y); +/* 130 */ +EXTERN CONST84_RETURN char * Tk_NameOf3DBorder(Tk_3DBorder border); +/* 131 */ +EXTERN CONST84_RETURN char * Tk_NameOfAnchor(Tk_Anchor anchor); +/* 132 */ +EXTERN CONST84_RETURN char * Tk_NameOfBitmap(Display *display, Pixmap bitmap); +/* 133 */ +EXTERN CONST84_RETURN char * Tk_NameOfCapStyle(int cap); +/* 134 */ +EXTERN CONST84_RETURN char * Tk_NameOfColor(XColor *colorPtr); +/* 135 */ +EXTERN CONST84_RETURN char * Tk_NameOfCursor(Display *display, + Tk_Cursor cursor); +/* 136 */ +EXTERN CONST84_RETURN char * Tk_NameOfFont(Tk_Font font); +/* 137 */ +EXTERN CONST84_RETURN char * Tk_NameOfImage(Tk_ImageMaster imageMaster); +/* 138 */ +EXTERN CONST84_RETURN char * Tk_NameOfJoinStyle(int join); +/* 139 */ +EXTERN CONST84_RETURN char * Tk_NameOfJustify(Tk_Justify justify); +/* 140 */ +EXTERN CONST84_RETURN char * Tk_NameOfRelief(int relief); +/* 141 */ +EXTERN Tk_Window Tk_NameToWindow(Tcl_Interp *interp, + const char *pathName, Tk_Window tkwin); +/* 142 */ +EXTERN void Tk_OwnSelection(Tk_Window tkwin, Atom selection, + Tk_LostSelProc *proc, ClientData clientData); +/* 143 */ +EXTERN int Tk_ParseArgv(Tcl_Interp *interp, Tk_Window tkwin, + int *argcPtr, CONST84 char **argv, + const Tk_ArgvInfo *argTable, int flags); +/* 144 */ +EXTERN void Tk_PhotoPutBlock_NoComposite(Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height); +/* 145 */ +EXTERN void Tk_PhotoPutZoomedBlock_NoComposite( + Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height, int zoomX, int zoomY, + int subsampleX, int subsampleY); +/* 146 */ +EXTERN int Tk_PhotoGetImage(Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr); +/* 147 */ +EXTERN void Tk_PhotoBlank(Tk_PhotoHandle handle); +/* 148 */ +EXTERN void Tk_PhotoExpand_Panic(Tk_PhotoHandle handle, + int width, int height); +/* 149 */ +EXTERN void Tk_PhotoGetSize(Tk_PhotoHandle handle, int *widthPtr, + int *heightPtr); +/* 150 */ +EXTERN void Tk_PhotoSetSize_Panic(Tk_PhotoHandle handle, + int width, int height); +/* 151 */ +EXTERN int Tk_PointToChar(Tk_TextLayout layout, int x, int y); +/* 152 */ +EXTERN int Tk_PostscriptFontName(Tk_Font tkfont, + Tcl_DString *dsPtr); +/* 153 */ +EXTERN void Tk_PreserveColormap(Display *display, + Colormap colormap); +/* 154 */ +EXTERN void Tk_QueueWindowEvent(XEvent *eventPtr, + Tcl_QueuePosition position); +/* 155 */ +EXTERN void Tk_RedrawImage(Tk_Image image, int imageX, + int imageY, int width, int height, + Drawable drawable, int drawableX, + int drawableY); +/* 156 */ +EXTERN void Tk_ResizeWindow(Tk_Window tkwin, int width, + int height); +/* 157 */ +EXTERN int Tk_RestackWindow(Tk_Window tkwin, int aboveBelow, + Tk_Window other); +/* 158 */ +EXTERN Tk_RestrictProc * Tk_RestrictEvents(Tk_RestrictProc *proc, + ClientData arg, ClientData *prevArgPtr); +/* 159 */ +EXTERN int Tk_SafeInit(Tcl_Interp *interp); +/* 160 */ +EXTERN const char * Tk_SetAppName(Tk_Window tkwin, const char *name); +/* 161 */ +EXTERN void Tk_SetBackgroundFromBorder(Tk_Window tkwin, + Tk_3DBorder border); +/* 162 */ +EXTERN void Tk_SetClass(Tk_Window tkwin, const char *className); +/* 163 */ +EXTERN void Tk_SetGrid(Tk_Window tkwin, int reqWidth, + int reqHeight, int gridWidth, int gridHeight); +/* 164 */ +EXTERN void Tk_SetInternalBorder(Tk_Window tkwin, int width); +/* 165 */ +EXTERN void Tk_SetWindowBackground(Tk_Window tkwin, + unsigned long pixel); +/* 166 */ +EXTERN void Tk_SetWindowBackgroundPixmap(Tk_Window tkwin, + Pixmap pixmap); +/* 167 */ +EXTERN void Tk_SetWindowBorder(Tk_Window tkwin, + unsigned long pixel); +/* 168 */ +EXTERN void Tk_SetWindowBorderWidth(Tk_Window tkwin, int width); +/* 169 */ +EXTERN void Tk_SetWindowBorderPixmap(Tk_Window tkwin, + Pixmap pixmap); +/* 170 */ +EXTERN void Tk_SetWindowColormap(Tk_Window tkwin, + Colormap colormap); +/* 171 */ +EXTERN int Tk_SetWindowVisual(Tk_Window tkwin, Visual *visual, + int depth, Colormap colormap); +/* 172 */ +EXTERN void Tk_SizeOfBitmap(Display *display, Pixmap bitmap, + int *widthPtr, int *heightPtr); +/* 173 */ +EXTERN void Tk_SizeOfImage(Tk_Image image, int *widthPtr, + int *heightPtr); +/* 174 */ +EXTERN int Tk_StrictMotif(Tk_Window tkwin); +/* 175 */ +EXTERN void Tk_TextLayoutToPostscript(Tcl_Interp *interp, + Tk_TextLayout layout); +/* 176 */ +EXTERN int Tk_TextWidth(Tk_Font font, const char *str, + int numBytes); +/* 177 */ +EXTERN void Tk_UndefineCursor(Tk_Window window); +/* 178 */ +EXTERN void Tk_UnderlineChars(Display *display, + Drawable drawable, GC gc, Tk_Font tkfont, + const char *source, int x, int y, + int firstByte, int lastByte); +/* 179 */ +EXTERN void Tk_UnderlineTextLayout(Display *display, + Drawable drawable, GC gc, + Tk_TextLayout layout, int x, int y, + int underline); +/* 180 */ +EXTERN void Tk_Ungrab(Tk_Window tkwin); +/* 181 */ +EXTERN void Tk_UnmaintainGeometry(Tk_Window slave, + Tk_Window master); +/* 182 */ +EXTERN void Tk_UnmapWindow(Tk_Window tkwin); +/* 183 */ +EXTERN void Tk_UnsetGrid(Tk_Window tkwin); +/* 184 */ +EXTERN void Tk_UpdatePointer(Tk_Window tkwin, int x, int y, + int state); +/* 185 */ +EXTERN Pixmap Tk_AllocBitmapFromObj(Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr); +/* 186 */ +EXTERN Tk_3DBorder Tk_Alloc3DBorderFromObj(Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr); +/* 187 */ +EXTERN XColor * Tk_AllocColorFromObj(Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr); +/* 188 */ +EXTERN Tk_Cursor Tk_AllocCursorFromObj(Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr); +/* 189 */ +EXTERN Tk_Font Tk_AllocFontFromObj(Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr); +/* 190 */ +EXTERN Tk_OptionTable Tk_CreateOptionTable(Tcl_Interp *interp, + const Tk_OptionSpec *templatePtr); +/* 191 */ +EXTERN void Tk_DeleteOptionTable(Tk_OptionTable optionTable); +/* 192 */ +EXTERN void Tk_Free3DBorderFromObj(Tk_Window tkwin, + Tcl_Obj *objPtr); +/* 193 */ +EXTERN void Tk_FreeBitmapFromObj(Tk_Window tkwin, + Tcl_Obj *objPtr); +/* 194 */ +EXTERN void Tk_FreeColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); +/* 195 */ +EXTERN void Tk_FreeConfigOptions(char *recordPtr, + Tk_OptionTable optionToken, Tk_Window tkwin); +/* 196 */ +EXTERN void Tk_FreeSavedOptions(Tk_SavedOptions *savePtr); +/* 197 */ +EXTERN void Tk_FreeCursorFromObj(Tk_Window tkwin, + Tcl_Obj *objPtr); +/* 198 */ +EXTERN void Tk_FreeFontFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); +/* 199 */ +EXTERN Tk_3DBorder Tk_Get3DBorderFromObj(Tk_Window tkwin, + Tcl_Obj *objPtr); +/* 200 */ +EXTERN int Tk_GetAnchorFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, Tk_Anchor *anchorPtr); +/* 201 */ +EXTERN Pixmap Tk_GetBitmapFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); +/* 202 */ +EXTERN XColor * Tk_GetColorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); +/* 203 */ +EXTERN Tk_Cursor Tk_GetCursorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); +/* 204 */ +EXTERN Tcl_Obj * Tk_GetOptionInfo(Tcl_Interp *interp, char *recordPtr, + Tk_OptionTable optionTable, Tcl_Obj *namePtr, + Tk_Window tkwin); +/* 205 */ +EXTERN Tcl_Obj * Tk_GetOptionValue(Tcl_Interp *interp, + char *recordPtr, Tk_OptionTable optionTable, + Tcl_Obj *namePtr, Tk_Window tkwin); +/* 206 */ +EXTERN int Tk_GetJustifyFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, Tk_Justify *justifyPtr); +/* 207 */ +EXTERN int Tk_GetMMFromObj(Tcl_Interp *interp, Tk_Window tkwin, + Tcl_Obj *objPtr, double *doublePtr); +/* 208 */ +EXTERN int Tk_GetPixelsFromObj(Tcl_Interp *interp, + Tk_Window tkwin, Tcl_Obj *objPtr, + int *intPtr); +/* 209 */ +EXTERN int Tk_GetReliefFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, int *resultPtr); +/* 210 */ +EXTERN int Tk_GetScrollInfoObj(Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[], double *dblPtr, + int *intPtr); +/* 211 */ +EXTERN int Tk_InitOptions(Tcl_Interp *interp, char *recordPtr, + Tk_OptionTable optionToken, Tk_Window tkwin); +/* 212 */ +EXTERN void Tk_MainEx(int argc, char **argv, + Tcl_AppInitProc *appInitProc, + Tcl_Interp *interp); +/* 213 */ +EXTERN void Tk_RestoreSavedOptions(Tk_SavedOptions *savePtr); +/* 214 */ +EXTERN int Tk_SetOptions(Tcl_Interp *interp, char *recordPtr, + Tk_OptionTable optionTable, int objc, + Tcl_Obj *const objv[], Tk_Window tkwin, + Tk_SavedOptions *savePtr, int *maskPtr); +/* 215 */ +EXTERN void Tk_InitConsoleChannels(Tcl_Interp *interp); +/* 216 */ +EXTERN int Tk_CreateConsoleWindow(Tcl_Interp *interp); +/* 217 */ +EXTERN void Tk_CreateSmoothMethod(Tcl_Interp *interp, + const Tk_SmoothMethod *method); +/* Slot 218 is reserved */ +/* Slot 219 is reserved */ +/* 220 */ +EXTERN int Tk_GetDash(Tcl_Interp *interp, const char *value, + Tk_Dash *dash); +/* 221 */ +EXTERN void Tk_CreateOutline(Tk_Outline *outline); +/* 222 */ +EXTERN void Tk_DeleteOutline(Display *display, + Tk_Outline *outline); +/* 223 */ +EXTERN int Tk_ConfigOutlineGC(XGCValues *gcValues, + Tk_Canvas canvas, Tk_Item *item, + Tk_Outline *outline); +/* 224 */ +EXTERN int Tk_ChangeOutlineGC(Tk_Canvas canvas, Tk_Item *item, + Tk_Outline *outline); +/* 225 */ +EXTERN int Tk_ResetOutlineGC(Tk_Canvas canvas, Tk_Item *item, + Tk_Outline *outline); +/* 226 */ +EXTERN int Tk_CanvasPsOutline(Tk_Canvas canvas, Tk_Item *item, + Tk_Outline *outline); +/* 227 */ +EXTERN void Tk_SetTSOrigin(Tk_Window tkwin, GC gc, int x, int y); +/* 228 */ +EXTERN int Tk_CanvasGetCoordFromObj(Tcl_Interp *interp, + Tk_Canvas canvas, Tcl_Obj *obj, + double *doublePtr); +/* 229 */ +EXTERN void Tk_CanvasSetOffset(Tk_Canvas canvas, GC gc, + Tk_TSOffset *offset); +/* 230 */ +EXTERN void Tk_DitherPhoto(Tk_PhotoHandle handle, int x, int y, + int width, int height); +/* 231 */ +EXTERN int Tk_PostscriptBitmap(Tcl_Interp *interp, + Tk_Window tkwin, Tk_PostscriptInfo psInfo, + Pixmap bitmap, int startX, int startY, + int width, int height); +/* 232 */ +EXTERN int Tk_PostscriptColor(Tcl_Interp *interp, + Tk_PostscriptInfo psInfo, XColor *colorPtr); +/* 233 */ +EXTERN int Tk_PostscriptFont(Tcl_Interp *interp, + Tk_PostscriptInfo psInfo, Tk_Font font); +/* 234 */ +EXTERN int Tk_PostscriptImage(Tk_Image image, + Tcl_Interp *interp, Tk_Window tkwin, + Tk_PostscriptInfo psinfo, int x, int y, + int width, int height, int prepass); +/* 235 */ +EXTERN void Tk_PostscriptPath(Tcl_Interp *interp, + Tk_PostscriptInfo psInfo, double *coordPtr, + int numPoints); +/* 236 */ +EXTERN int Tk_PostscriptStipple(Tcl_Interp *interp, + Tk_Window tkwin, Tk_PostscriptInfo psInfo, + Pixmap bitmap); +/* 237 */ +EXTERN double Tk_PostscriptY(double y, Tk_PostscriptInfo psInfo); +/* 238 */ +EXTERN int Tk_PostscriptPhoto(Tcl_Interp *interp, + Tk_PhotoImageBlock *blockPtr, + Tk_PostscriptInfo psInfo, int width, + int height); +/* 239 */ +EXTERN void Tk_CreateClientMessageHandler( + Tk_ClientMessageProc *proc); +/* 240 */ +EXTERN void Tk_DeleteClientMessageHandler( + Tk_ClientMessageProc *proc); +/* 241 */ +EXTERN Tk_Window Tk_CreateAnonymousWindow(Tcl_Interp *interp, + Tk_Window parent, const char *screenName); +/* 242 */ +EXTERN void Tk_SetClassProcs(Tk_Window tkwin, + const Tk_ClassProcs *procs, + ClientData instanceData); +/* 243 */ +EXTERN void Tk_SetInternalBorderEx(Tk_Window tkwin, int left, + int right, int top, int bottom); +/* 244 */ +EXTERN void Tk_SetMinimumRequestSize(Tk_Window tkwin, + int minWidth, int minHeight); +/* 245 */ +EXTERN void Tk_SetCaretPos(Tk_Window tkwin, int x, int y, + int height); +/* 246 */ +EXTERN void Tk_PhotoPutBlock_Panic(Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height, int compRule); +/* 247 */ +EXTERN void Tk_PhotoPutZoomedBlock_Panic(Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height, int zoomX, int zoomY, + int subsampleX, int subsampleY, int compRule); +/* 248 */ +EXTERN int Tk_CollapseMotionEvents(Display *display, + int collapse); +/* 249 */ +EXTERN Tk_StyleEngine Tk_RegisterStyleEngine(const char *name, + Tk_StyleEngine parent); +/* 250 */ +EXTERN Tk_StyleEngine Tk_GetStyleEngine(const char *name); +/* 251 */ +EXTERN int Tk_RegisterStyledElement(Tk_StyleEngine engine, + Tk_ElementSpec *templatePtr); +/* 252 */ +EXTERN int Tk_GetElementId(const char *name); +/* 253 */ +EXTERN Tk_Style Tk_CreateStyle(const char *name, + Tk_StyleEngine engine, ClientData clientData); +/* 254 */ +EXTERN Tk_Style Tk_GetStyle(Tcl_Interp *interp, const char *name); +/* 255 */ +EXTERN void Tk_FreeStyle(Tk_Style style); +/* 256 */ +EXTERN const char * Tk_NameOfStyle(Tk_Style style); +/* 257 */ +EXTERN Tk_Style Tk_AllocStyleFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr); +/* 258 */ +EXTERN Tk_Style Tk_GetStyleFromObj(Tcl_Obj *objPtr); +/* 259 */ +EXTERN void Tk_FreeStyleFromObj(Tcl_Obj *objPtr); +/* 260 */ +EXTERN Tk_StyledElement Tk_GetStyledElement(Tk_Style style, int elementId, + Tk_OptionTable optionTable); +/* 261 */ +EXTERN void Tk_GetElementSize(Tk_Style style, + Tk_StyledElement element, char *recordPtr, + Tk_Window tkwin, int width, int height, + int inner, int *widthPtr, int *heightPtr); +/* 262 */ +EXTERN void Tk_GetElementBox(Tk_Style style, + Tk_StyledElement element, char *recordPtr, + Tk_Window tkwin, int x, int y, int width, + int height, int inner, int *xPtr, int *yPtr, + int *widthPtr, int *heightPtr); +/* 263 */ +EXTERN int Tk_GetElementBorderWidth(Tk_Style style, + Tk_StyledElement element, char *recordPtr, + Tk_Window tkwin); +/* 264 */ +EXTERN void Tk_DrawElement(Tk_Style style, + Tk_StyledElement element, char *recordPtr, + Tk_Window tkwin, Drawable d, int x, int y, + int width, int height, int state); +/* 265 */ +EXTERN int Tk_PhotoExpand(Tcl_Interp *interp, + Tk_PhotoHandle handle, int width, int height); +/* 266 */ +EXTERN int Tk_PhotoPutBlock(Tcl_Interp *interp, + Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height, int compRule); +/* 267 */ +EXTERN int Tk_PhotoPutZoomedBlock(Tcl_Interp *interp, + Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, + int width, int height, int zoomX, int zoomY, + int subsampleX, int subsampleY, int compRule); +/* 268 */ +EXTERN int Tk_PhotoSetSize(Tcl_Interp *interp, + Tk_PhotoHandle handle, int width, int height); +/* 269 */ +EXTERN long Tk_GetUserInactiveTime(Display *dpy); +/* 270 */ +EXTERN void Tk_ResetUserInactiveTime(Display *dpy); +/* 271 */ +EXTERN Tcl_Interp * Tk_Interp(Tk_Window tkwin); +/* 272 */ +EXTERN void Tk_CreateOldImageType(const Tk_ImageType *typePtr); +/* 273 */ +EXTERN void Tk_CreateOldPhotoImageFormat( + const Tk_PhotoImageFormat *formatPtr); + +typedef struct { + const struct TkPlatStubs *tkPlatStubs; + const struct TkIntStubs *tkIntStubs; + const struct TkIntPlatStubs *tkIntPlatStubs; + const struct TkIntXlibStubs *tkIntXlibStubs; +} TkStubHooks; + +typedef struct TkStubs { + int magic; + const TkStubHooks *hooks; + + void (*tk_MainLoop) (void); /* 0 */ + XColor * (*tk_3DBorderColor) (Tk_3DBorder border); /* 1 */ + GC (*tk_3DBorderGC) (Tk_Window tkwin, Tk_3DBorder border, int which); /* 2 */ + void (*tk_3DHorizontalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftIn, int rightIn, int topBevel, int relief); /* 3 */ + void (*tk_3DVerticalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftBevel, int relief); /* 4 */ + void (*tk_AddOption) (Tk_Window tkwin, const char *name, const char *value, int priority); /* 5 */ + void (*tk_BindEvent) (Tk_BindingTable bindingTable, XEvent *eventPtr, Tk_Window tkwin, int numObjects, ClientData *objectPtr); /* 6 */ + void (*tk_CanvasDrawableCoords) (Tk_Canvas canvas, double x, double y, short *drawableXPtr, short *drawableYPtr); /* 7 */ + void (*tk_CanvasEventuallyRedraw) (Tk_Canvas canvas, int x1, int y1, int x2, int y2); /* 8 */ + int (*tk_CanvasGetCoord) (Tcl_Interp *interp, Tk_Canvas canvas, const char *str, double *doublePtr); /* 9 */ + Tk_CanvasTextInfo * (*tk_CanvasGetTextInfo) (Tk_Canvas canvas); /* 10 */ + int (*tk_CanvasPsBitmap) (Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap, int x, int y, int width, int height); /* 11 */ + int (*tk_CanvasPsColor) (Tcl_Interp *interp, Tk_Canvas canvas, XColor *colorPtr); /* 12 */ + int (*tk_CanvasPsFont) (Tcl_Interp *interp, Tk_Canvas canvas, Tk_Font font); /* 13 */ + void (*tk_CanvasPsPath) (Tcl_Interp *interp, Tk_Canvas canvas, double *coordPtr, int numPoints); /* 14 */ + int (*tk_CanvasPsStipple) (Tcl_Interp *interp, Tk_Canvas canvas, Pixmap bitmap); /* 15 */ + double (*tk_CanvasPsY) (Tk_Canvas canvas, double y); /* 16 */ + void (*tk_CanvasSetStippleOrigin) (Tk_Canvas canvas, GC gc); /* 17 */ + int (*tk_CanvasTagsParseProc) (ClientData clientData, Tcl_Interp *interp, Tk_Window tkwin, const char *value, char *widgRec, int offset); /* 18 */ + CONST86 char * (*tk_CanvasTagsPrintProc) (ClientData clientData, Tk_Window tkwin, char *widgRec, int offset, Tcl_FreeProc **freeProcPtr); /* 19 */ + Tk_Window (*tk_CanvasTkwin) (Tk_Canvas canvas); /* 20 */ + void (*tk_CanvasWindowCoords) (Tk_Canvas canvas, double x, double y, short *screenXPtr, short *screenYPtr); /* 21 */ + void (*tk_ChangeWindowAttributes) (Tk_Window tkwin, unsigned long valueMask, XSetWindowAttributes *attsPtr); /* 22 */ + int (*tk_CharBbox) (Tk_TextLayout layout, int index, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 23 */ + void (*tk_ClearSelection) (Tk_Window tkwin, Atom selection); /* 24 */ + int (*tk_ClipboardAppend) (Tcl_Interp *interp, Tk_Window tkwin, Atom target, Atom format, const char *buffer); /* 25 */ + int (*tk_ClipboardClear) (Tcl_Interp *interp, Tk_Window tkwin); /* 26 */ + int (*tk_ConfigureInfo) (Tcl_Interp *interp, Tk_Window tkwin, const Tk_ConfigSpec *specs, char *widgRec, const char *argvName, int flags); /* 27 */ + int (*tk_ConfigureValue) (Tcl_Interp *interp, Tk_Window tkwin, const Tk_ConfigSpec *specs, char *widgRec, const char *argvName, int flags); /* 28 */ + int (*tk_ConfigureWidget) (Tcl_Interp *interp, Tk_Window tkwin, const Tk_ConfigSpec *specs, int argc, CONST84 char **argv, char *widgRec, int flags); /* 29 */ + void (*tk_ConfigureWindow) (Tk_Window tkwin, unsigned int valueMask, XWindowChanges *valuePtr); /* 30 */ + Tk_TextLayout (*tk_ComputeTextLayout) (Tk_Font font, const char *str, int numChars, int wrapLength, Tk_Justify justify, int flags, int *widthPtr, int *heightPtr); /* 31 */ + Tk_Window (*tk_CoordsToWindow) (int rootX, int rootY, Tk_Window tkwin); /* 32 */ + unsigned long (*tk_CreateBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, const char *eventStr, const char *script, int append); /* 33 */ + Tk_BindingTable (*tk_CreateBindingTable) (Tcl_Interp *interp); /* 34 */ + Tk_ErrorHandler (*tk_CreateErrorHandler) (Display *display, int errNum, int request, int minorCode, Tk_ErrorProc *errorProc, ClientData clientData); /* 35 */ + void (*tk_CreateEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData); /* 36 */ + void (*tk_CreateGenericHandler) (Tk_GenericProc *proc, ClientData clientData); /* 37 */ + void (*tk_CreateImageType) (const Tk_ImageType *typePtr); /* 38 */ + void (*tk_CreateItemType) (Tk_ItemType *typePtr); /* 39 */ + void (*tk_CreatePhotoImageFormat) (const Tk_PhotoImageFormat *formatPtr); /* 40 */ + void (*tk_CreateSelHandler) (Tk_Window tkwin, Atom selection, Atom target, Tk_SelectionProc *proc, ClientData clientData, Atom format); /* 41 */ + Tk_Window (*tk_CreateWindow) (Tcl_Interp *interp, Tk_Window parent, const char *name, const char *screenName); /* 42 */ + Tk_Window (*tk_CreateWindowFromPath) (Tcl_Interp *interp, Tk_Window tkwin, const char *pathName, const char *screenName); /* 43 */ + int (*tk_DefineBitmap) (Tcl_Interp *interp, const char *name, const void *source, int width, int height); /* 44 */ + void (*tk_DefineCursor) (Tk_Window window, Tk_Cursor cursor); /* 45 */ + void (*tk_DeleteAllBindings) (Tk_BindingTable bindingTable, ClientData object); /* 46 */ + int (*tk_DeleteBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, const char *eventStr); /* 47 */ + void (*tk_DeleteBindingTable) (Tk_BindingTable bindingTable); /* 48 */ + void (*tk_DeleteErrorHandler) (Tk_ErrorHandler handler); /* 49 */ + void (*tk_DeleteEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc *proc, ClientData clientData); /* 50 */ + void (*tk_DeleteGenericHandler) (Tk_GenericProc *proc, ClientData clientData); /* 51 */ + void (*tk_DeleteImage) (Tcl_Interp *interp, const char *name); /* 52 */ + void (*tk_DeleteSelHandler) (Tk_Window tkwin, Atom selection, Atom target); /* 53 */ + void (*tk_DestroyWindow) (Tk_Window tkwin); /* 54 */ + CONST84_RETURN char * (*tk_DisplayName) (Tk_Window tkwin); /* 55 */ + int (*tk_DistanceToTextLayout) (Tk_TextLayout layout, int x, int y); /* 56 */ + void (*tk_Draw3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief); /* 57 */ + void (*tk_Draw3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 58 */ + void (*tk_DrawChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, const char *source, int numBytes, int x, int y); /* 59 */ + void (*tk_DrawFocusHighlight) (Tk_Window tkwin, GC gc, int width, Drawable drawable); /* 60 */ + void (*tk_DrawTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int firstChar, int lastChar); /* 61 */ + void (*tk_Fill3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint *pointPtr, int numPoints, int borderWidth, int leftRelief); /* 62 */ + void (*tk_Fill3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 63 */ + Tk_PhotoHandle (*tk_FindPhoto) (Tcl_Interp *interp, const char *imageName); /* 64 */ + Font (*tk_FontId) (Tk_Font font); /* 65 */ + void (*tk_Free3DBorder) (Tk_3DBorder border); /* 66 */ + void (*tk_FreeBitmap) (Display *display, Pixmap bitmap); /* 67 */ + void (*tk_FreeColor) (XColor *colorPtr); /* 68 */ + void (*tk_FreeColormap) (Display *display, Colormap colormap); /* 69 */ + void (*tk_FreeCursor) (Display *display, Tk_Cursor cursor); /* 70 */ + void (*tk_FreeFont) (Tk_Font f); /* 71 */ + void (*tk_FreeGC) (Display *display, GC gc); /* 72 */ + void (*tk_FreeImage) (Tk_Image image); /* 73 */ + void (*tk_FreeOptions) (const Tk_ConfigSpec *specs, char *widgRec, Display *display, int needFlags); /* 74 */ + void (*tk_FreePixmap) (Display *display, Pixmap pixmap); /* 75 */ + void (*tk_FreeTextLayout) (Tk_TextLayout textLayout); /* 76 */ + void (*tk_FreeXId) (Display *display, XID xid); /* 77 */ + GC (*tk_GCForColor) (XColor *colorPtr, Drawable drawable); /* 78 */ + void (*tk_GeometryRequest) (Tk_Window tkwin, int reqWidth, int reqHeight); /* 79 */ + Tk_3DBorder (*tk_Get3DBorder) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid colorName); /* 80 */ + void (*tk_GetAllBindings) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object); /* 81 */ + int (*tk_GetAnchor) (Tcl_Interp *interp, const char *str, Tk_Anchor *anchorPtr); /* 82 */ + CONST84_RETURN char * (*tk_GetAtomName) (Tk_Window tkwin, Atom atom); /* 83 */ + CONST84_RETURN char * (*tk_GetBinding) (Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, const char *eventStr); /* 84 */ + Pixmap (*tk_GetBitmap) (Tcl_Interp *interp, Tk_Window tkwin, const char *str); /* 85 */ + Pixmap (*tk_GetBitmapFromData) (Tcl_Interp *interp, Tk_Window tkwin, const void *source, int width, int height); /* 86 */ + int (*tk_GetCapStyle) (Tcl_Interp *interp, const char *str, int *capPtr); /* 87 */ + XColor * (*tk_GetColor) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid name); /* 88 */ + XColor * (*tk_GetColorByValue) (Tk_Window tkwin, XColor *colorPtr); /* 89 */ + Colormap (*tk_GetColormap) (Tcl_Interp *interp, Tk_Window tkwin, const char *str); /* 90 */ + Tk_Cursor (*tk_GetCursor) (Tcl_Interp *interp, Tk_Window tkwin, Tk_Uid str); /* 91 */ + Tk_Cursor (*tk_GetCursorFromData) (Tcl_Interp *interp, Tk_Window tkwin, const char *source, const char *mask, int width, int height, int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); /* 92 */ + Tk_Font (*tk_GetFont) (Tcl_Interp *interp, Tk_Window tkwin, const char *str); /* 93 */ + Tk_Font (*tk_GetFontFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 94 */ + void (*tk_GetFontMetrics) (Tk_Font font, Tk_FontMetrics *fmPtr); /* 95 */ + GC (*tk_GetGC) (Tk_Window tkwin, unsigned long valueMask, XGCValues *valuePtr); /* 96 */ + Tk_Image (*tk_GetImage) (Tcl_Interp *interp, Tk_Window tkwin, const char *name, Tk_ImageChangedProc *changeProc, ClientData clientData); /* 97 */ + ClientData (*tk_GetImageMasterData) (Tcl_Interp *interp, const char *name, CONST86 Tk_ImageType **typePtrPtr); /* 98 */ + Tk_ItemType * (*tk_GetItemTypes) (void); /* 99 */ + int (*tk_GetJoinStyle) (Tcl_Interp *interp, const char *str, int *joinPtr); /* 100 */ + int (*tk_GetJustify) (Tcl_Interp *interp, const char *str, Tk_Justify *justifyPtr); /* 101 */ + int (*tk_GetNumMainWindows) (void); /* 102 */ + Tk_Uid (*tk_GetOption) (Tk_Window tkwin, const char *name, const char *className); /* 103 */ + int (*tk_GetPixels) (Tcl_Interp *interp, Tk_Window tkwin, const char *str, int *intPtr); /* 104 */ + Pixmap (*tk_GetPixmap) (Display *display, Drawable d, int width, int height, int depth); /* 105 */ + int (*tk_GetRelief) (Tcl_Interp *interp, const char *name, int *reliefPtr); /* 106 */ + void (*tk_GetRootCoords) (Tk_Window tkwin, int *xPtr, int *yPtr); /* 107 */ + int (*tk_GetScrollInfo) (Tcl_Interp *interp, int argc, CONST84 char **argv, double *dblPtr, int *intPtr); /* 108 */ + int (*tk_GetScreenMM) (Tcl_Interp *interp, Tk_Window tkwin, const char *str, double *doublePtr); /* 109 */ + int (*tk_GetSelection) (Tcl_Interp *interp, Tk_Window tkwin, Atom selection, Atom target, Tk_GetSelProc *proc, ClientData clientData); /* 110 */ + Tk_Uid (*tk_GetUid) (const char *str); /* 111 */ + Visual * (*tk_GetVisual) (Tcl_Interp *interp, Tk_Window tkwin, const char *str, int *depthPtr, Colormap *colormapPtr); /* 112 */ + void (*tk_GetVRootGeometry) (Tk_Window tkwin, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 113 */ + int (*tk_Grab) (Tcl_Interp *interp, Tk_Window tkwin, int grabGlobal); /* 114 */ + void (*tk_HandleEvent) (XEvent *eventPtr); /* 115 */ + Tk_Window (*tk_IdToWindow) (Display *display, Window window); /* 116 */ + void (*tk_ImageChanged) (Tk_ImageMaster master, int x, int y, int width, int height, int imageWidth, int imageHeight); /* 117 */ + int (*tk_Init) (Tcl_Interp *interp); /* 118 */ + Atom (*tk_InternAtom) (Tk_Window tkwin, const char *name); /* 119 */ + int (*tk_IntersectTextLayout) (Tk_TextLayout layout, int x, int y, int width, int height); /* 120 */ + void (*tk_MaintainGeometry) (Tk_Window slave, Tk_Window master, int x, int y, int width, int height); /* 121 */ + Tk_Window (*tk_MainWindow) (Tcl_Interp *interp); /* 122 */ + void (*tk_MakeWindowExist) (Tk_Window tkwin); /* 123 */ + void (*tk_ManageGeometry) (Tk_Window tkwin, const Tk_GeomMgr *mgrPtr, ClientData clientData); /* 124 */ + void (*tk_MapWindow) (Tk_Window tkwin); /* 125 */ + int (*tk_MeasureChars) (Tk_Font tkfont, const char *source, int numBytes, int maxPixels, int flags, int *lengthPtr); /* 126 */ + void (*tk_MoveResizeWindow) (Tk_Window tkwin, int x, int y, int width, int height); /* 127 */ + void (*tk_MoveWindow) (Tk_Window tkwin, int x, int y); /* 128 */ + void (*tk_MoveToplevelWindow) (Tk_Window tkwin, int x, int y); /* 129 */ + CONST84_RETURN char * (*tk_NameOf3DBorder) (Tk_3DBorder border); /* 130 */ + CONST84_RETURN char * (*tk_NameOfAnchor) (Tk_Anchor anchor); /* 131 */ + CONST84_RETURN char * (*tk_NameOfBitmap) (Display *display, Pixmap bitmap); /* 132 */ + CONST84_RETURN char * (*tk_NameOfCapStyle) (int cap); /* 133 */ + CONST84_RETURN char * (*tk_NameOfColor) (XColor *colorPtr); /* 134 */ + CONST84_RETURN char * (*tk_NameOfCursor) (Display *display, Tk_Cursor cursor); /* 135 */ + CONST84_RETURN char * (*tk_NameOfFont) (Tk_Font font); /* 136 */ + CONST84_RETURN char * (*tk_NameOfImage) (Tk_ImageMaster imageMaster); /* 137 */ + CONST84_RETURN char * (*tk_NameOfJoinStyle) (int join); /* 138 */ + CONST84_RETURN char * (*tk_NameOfJustify) (Tk_Justify justify); /* 139 */ + CONST84_RETURN char * (*tk_NameOfRelief) (int relief); /* 140 */ + Tk_Window (*tk_NameToWindow) (Tcl_Interp *interp, const char *pathName, Tk_Window tkwin); /* 141 */ + void (*tk_OwnSelection) (Tk_Window tkwin, Atom selection, Tk_LostSelProc *proc, ClientData clientData); /* 142 */ + int (*tk_ParseArgv) (Tcl_Interp *interp, Tk_Window tkwin, int *argcPtr, CONST84 char **argv, const Tk_ArgvInfo *argTable, int flags); /* 143 */ + void (*tk_PhotoPutBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height); /* 144 */ + void (*tk_PhotoPutZoomedBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY); /* 145 */ + int (*tk_PhotoGetImage) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr); /* 146 */ + void (*tk_PhotoBlank) (Tk_PhotoHandle handle); /* 147 */ + void (*tk_PhotoExpand_Panic) (Tk_PhotoHandle handle, int width, int height); /* 148 */ + void (*tk_PhotoGetSize) (Tk_PhotoHandle handle, int *widthPtr, int *heightPtr); /* 149 */ + void (*tk_PhotoSetSize_Panic) (Tk_PhotoHandle handle, int width, int height); /* 150 */ + int (*tk_PointToChar) (Tk_TextLayout layout, int x, int y); /* 151 */ + int (*tk_PostscriptFontName) (Tk_Font tkfont, Tcl_DString *dsPtr); /* 152 */ + void (*tk_PreserveColormap) (Display *display, Colormap colormap); /* 153 */ + void (*tk_QueueWindowEvent) (XEvent *eventPtr, Tcl_QueuePosition position); /* 154 */ + void (*tk_RedrawImage) (Tk_Image image, int imageX, int imageY, int width, int height, Drawable drawable, int drawableX, int drawableY); /* 155 */ + void (*tk_ResizeWindow) (Tk_Window tkwin, int width, int height); /* 156 */ + int (*tk_RestackWindow) (Tk_Window tkwin, int aboveBelow, Tk_Window other); /* 157 */ + Tk_RestrictProc * (*tk_RestrictEvents) (Tk_RestrictProc *proc, ClientData arg, ClientData *prevArgPtr); /* 158 */ + int (*tk_SafeInit) (Tcl_Interp *interp); /* 159 */ + const char * (*tk_SetAppName) (Tk_Window tkwin, const char *name); /* 160 */ + void (*tk_SetBackgroundFromBorder) (Tk_Window tkwin, Tk_3DBorder border); /* 161 */ + void (*tk_SetClass) (Tk_Window tkwin, const char *className); /* 162 */ + void (*tk_SetGrid) (Tk_Window tkwin, int reqWidth, int reqHeight, int gridWidth, int gridHeight); /* 163 */ + void (*tk_SetInternalBorder) (Tk_Window tkwin, int width); /* 164 */ + void (*tk_SetWindowBackground) (Tk_Window tkwin, unsigned long pixel); /* 165 */ + void (*tk_SetWindowBackgroundPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 166 */ + void (*tk_SetWindowBorder) (Tk_Window tkwin, unsigned long pixel); /* 167 */ + void (*tk_SetWindowBorderWidth) (Tk_Window tkwin, int width); /* 168 */ + void (*tk_SetWindowBorderPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 169 */ + void (*tk_SetWindowColormap) (Tk_Window tkwin, Colormap colormap); /* 170 */ + int (*tk_SetWindowVisual) (Tk_Window tkwin, Visual *visual, int depth, Colormap colormap); /* 171 */ + void (*tk_SizeOfBitmap) (Display *display, Pixmap bitmap, int *widthPtr, int *heightPtr); /* 172 */ + void (*tk_SizeOfImage) (Tk_Image image, int *widthPtr, int *heightPtr); /* 173 */ + int (*tk_StrictMotif) (Tk_Window tkwin); /* 174 */ + void (*tk_TextLayoutToPostscript) (Tcl_Interp *interp, Tk_TextLayout layout); /* 175 */ + int (*tk_TextWidth) (Tk_Font font, const char *str, int numBytes); /* 176 */ + void (*tk_UndefineCursor) (Tk_Window window); /* 177 */ + void (*tk_UnderlineChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, const char *source, int x, int y, int firstByte, int lastByte); /* 178 */ + void (*tk_UnderlineTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int underline); /* 179 */ + void (*tk_Ungrab) (Tk_Window tkwin); /* 180 */ + void (*tk_UnmaintainGeometry) (Tk_Window slave, Tk_Window master); /* 181 */ + void (*tk_UnmapWindow) (Tk_Window tkwin); /* 182 */ + void (*tk_UnsetGrid) (Tk_Window tkwin); /* 183 */ + void (*tk_UpdatePointer) (Tk_Window tkwin, int x, int y, int state); /* 184 */ + Pixmap (*tk_AllocBitmapFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 185 */ + Tk_3DBorder (*tk_Alloc3DBorderFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 186 */ + XColor * (*tk_AllocColorFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 187 */ + Tk_Cursor (*tk_AllocCursorFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 188 */ + Tk_Font (*tk_AllocFontFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr); /* 189 */ + Tk_OptionTable (*tk_CreateOptionTable) (Tcl_Interp *interp, const Tk_OptionSpec *templatePtr); /* 190 */ + void (*tk_DeleteOptionTable) (Tk_OptionTable optionTable); /* 191 */ + void (*tk_Free3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 192 */ + void (*tk_FreeBitmapFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 193 */ + void (*tk_FreeColorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 194 */ + void (*tk_FreeConfigOptions) (char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 195 */ + void (*tk_FreeSavedOptions) (Tk_SavedOptions *savePtr); /* 196 */ + void (*tk_FreeCursorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 197 */ + void (*tk_FreeFontFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 198 */ + Tk_3DBorder (*tk_Get3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 199 */ + int (*tk_GetAnchorFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Anchor *anchorPtr); /* 200 */ + Pixmap (*tk_GetBitmapFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 201 */ + XColor * (*tk_GetColorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 202 */ + Tk_Cursor (*tk_GetCursorFromObj) (Tk_Window tkwin, Tcl_Obj *objPtr); /* 203 */ + Tcl_Obj * (*tk_GetOptionInfo) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin); /* 204 */ + Tcl_Obj * (*tk_GetOptionValue) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, Tcl_Obj *namePtr, Tk_Window tkwin); /* 205 */ + int (*tk_GetJustifyFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tk_Justify *justifyPtr); /* 206 */ + int (*tk_GetMMFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, double *doublePtr); /* 207 */ + int (*tk_GetPixelsFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, int *intPtr); /* 208 */ + int (*tk_GetReliefFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *resultPtr); /* 209 */ + int (*tk_GetScrollInfoObj) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], double *dblPtr, int *intPtr); /* 210 */ + int (*tk_InitOptions) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 211 */ + void (*tk_MainEx) (int argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); /* 212 */ + void (*tk_RestoreSavedOptions) (Tk_SavedOptions *savePtr); /* 213 */ + int (*tk_SetOptions) (Tcl_Interp *interp, char *recordPtr, Tk_OptionTable optionTable, int objc, Tcl_Obj *const objv[], Tk_Window tkwin, Tk_SavedOptions *savePtr, int *maskPtr); /* 214 */ + void (*tk_InitConsoleChannels) (Tcl_Interp *interp); /* 215 */ + int (*tk_CreateConsoleWindow) (Tcl_Interp *interp); /* 216 */ + void (*tk_CreateSmoothMethod) (Tcl_Interp *interp, const Tk_SmoothMethod *method); /* 217 */ + void (*reserved218)(void); + void (*reserved219)(void); + int (*tk_GetDash) (Tcl_Interp *interp, const char *value, Tk_Dash *dash); /* 220 */ + void (*tk_CreateOutline) (Tk_Outline *outline); /* 221 */ + void (*tk_DeleteOutline) (Display *display, Tk_Outline *outline); /* 222 */ + int (*tk_ConfigOutlineGC) (XGCValues *gcValues, Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 223 */ + int (*tk_ChangeOutlineGC) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 224 */ + int (*tk_ResetOutlineGC) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 225 */ + int (*tk_CanvasPsOutline) (Tk_Canvas canvas, Tk_Item *item, Tk_Outline *outline); /* 226 */ + void (*tk_SetTSOrigin) (Tk_Window tkwin, GC gc, int x, int y); /* 227 */ + int (*tk_CanvasGetCoordFromObj) (Tcl_Interp *interp, Tk_Canvas canvas, Tcl_Obj *obj, double *doublePtr); /* 228 */ + void (*tk_CanvasSetOffset) (Tk_Canvas canvas, GC gc, Tk_TSOffset *offset); /* 229 */ + void (*tk_DitherPhoto) (Tk_PhotoHandle handle, int x, int y, int width, int height); /* 230 */ + int (*tk_PostscriptBitmap) (Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap, int startX, int startY, int width, int height); /* 231 */ + int (*tk_PostscriptColor) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, XColor *colorPtr); /* 232 */ + int (*tk_PostscriptFont) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, Tk_Font font); /* 233 */ + int (*tk_PostscriptImage) (Tk_Image image, Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, int x, int y, int width, int height, int prepass); /* 234 */ + void (*tk_PostscriptPath) (Tcl_Interp *interp, Tk_PostscriptInfo psInfo, double *coordPtr, int numPoints); /* 235 */ + int (*tk_PostscriptStipple) (Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap); /* 236 */ + double (*tk_PostscriptY) (double y, Tk_PostscriptInfo psInfo); /* 237 */ + int (*tk_PostscriptPhoto) (Tcl_Interp *interp, Tk_PhotoImageBlock *blockPtr, Tk_PostscriptInfo psInfo, int width, int height); /* 238 */ + void (*tk_CreateClientMessageHandler) (Tk_ClientMessageProc *proc); /* 239 */ + void (*tk_DeleteClientMessageHandler) (Tk_ClientMessageProc *proc); /* 240 */ + Tk_Window (*tk_CreateAnonymousWindow) (Tcl_Interp *interp, Tk_Window parent, const char *screenName); /* 241 */ + void (*tk_SetClassProcs) (Tk_Window tkwin, const Tk_ClassProcs *procs, ClientData instanceData); /* 242 */ + void (*tk_SetInternalBorderEx) (Tk_Window tkwin, int left, int right, int top, int bottom); /* 243 */ + void (*tk_SetMinimumRequestSize) (Tk_Window tkwin, int minWidth, int minHeight); /* 244 */ + void (*tk_SetCaretPos) (Tk_Window tkwin, int x, int y, int height); /* 245 */ + void (*tk_PhotoPutBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule); /* 246 */ + void (*tk_PhotoPutZoomedBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 247 */ + int (*tk_CollapseMotionEvents) (Display *display, int collapse); /* 248 */ + Tk_StyleEngine (*tk_RegisterStyleEngine) (const char *name, Tk_StyleEngine parent); /* 249 */ + Tk_StyleEngine (*tk_GetStyleEngine) (const char *name); /* 250 */ + int (*tk_RegisterStyledElement) (Tk_StyleEngine engine, Tk_ElementSpec *templatePtr); /* 251 */ + int (*tk_GetElementId) (const char *name); /* 252 */ + Tk_Style (*tk_CreateStyle) (const char *name, Tk_StyleEngine engine, ClientData clientData); /* 253 */ + Tk_Style (*tk_GetStyle) (Tcl_Interp *interp, const char *name); /* 254 */ + void (*tk_FreeStyle) (Tk_Style style); /* 255 */ + const char * (*tk_NameOfStyle) (Tk_Style style); /* 256 */ + Tk_Style (*tk_AllocStyleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 257 */ + Tk_Style (*tk_GetStyleFromObj) (Tcl_Obj *objPtr); /* 258 */ + void (*tk_FreeStyleFromObj) (Tcl_Obj *objPtr); /* 259 */ + Tk_StyledElement (*tk_GetStyledElement) (Tk_Style style, int elementId, Tk_OptionTable optionTable); /* 260 */ + void (*tk_GetElementSize) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int width, int height, int inner, int *widthPtr, int *heightPtr); /* 261 */ + void (*tk_GetElementBox) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, int x, int y, int width, int height, int inner, int *xPtr, int *yPtr, int *widthPtr, int *heightPtr); /* 262 */ + int (*tk_GetElementBorderWidth) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin); /* 263 */ + void (*tk_DrawElement) (Tk_Style style, Tk_StyledElement element, char *recordPtr, Tk_Window tkwin, Drawable d, int x, int y, int width, int height, int state); /* 264 */ + int (*tk_PhotoExpand) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 265 */ + int (*tk_PhotoPutBlock) (Tcl_Interp *interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule); /* 266 */ + int (*tk_PhotoPutZoomedBlock) (Tcl_Interp *interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 267 */ + int (*tk_PhotoSetSize) (Tcl_Interp *interp, Tk_PhotoHandle handle, int width, int height); /* 268 */ + long (*tk_GetUserInactiveTime) (Display *dpy); /* 269 */ + void (*tk_ResetUserInactiveTime) (Display *dpy); /* 270 */ + Tcl_Interp * (*tk_Interp) (Tk_Window tkwin); /* 271 */ + void (*tk_CreateOldImageType) (const Tk_ImageType *typePtr); /* 272 */ + void (*tk_CreateOldPhotoImageFormat) (const Tk_PhotoImageFormat *formatPtr); /* 273 */ +} TkStubs; + +extern const TkStubs *tkStubsPtr; + +#ifdef __cplusplus +} +#endif + +#if defined(USE_TK_STUBS) + +/* + * Inline function declarations: + */ + +#define Tk_MainLoop \ + (tkStubsPtr->tk_MainLoop) /* 0 */ +#define Tk_3DBorderColor \ + (tkStubsPtr->tk_3DBorderColor) /* 1 */ +#define Tk_3DBorderGC \ + (tkStubsPtr->tk_3DBorderGC) /* 2 */ +#define Tk_3DHorizontalBevel \ + (tkStubsPtr->tk_3DHorizontalBevel) /* 3 */ +#define Tk_3DVerticalBevel \ + (tkStubsPtr->tk_3DVerticalBevel) /* 4 */ +#define Tk_AddOption \ + (tkStubsPtr->tk_AddOption) /* 5 */ +#define Tk_BindEvent \ + (tkStubsPtr->tk_BindEvent) /* 6 */ +#define Tk_CanvasDrawableCoords \ + (tkStubsPtr->tk_CanvasDrawableCoords) /* 7 */ +#define Tk_CanvasEventuallyRedraw \ + (tkStubsPtr->tk_CanvasEventuallyRedraw) /* 8 */ +#define Tk_CanvasGetCoord \ + (tkStubsPtr->tk_CanvasGetCoord) /* 9 */ +#define Tk_CanvasGetTextInfo \ + (tkStubsPtr->tk_CanvasGetTextInfo) /* 10 */ +#define Tk_CanvasPsBitmap \ + (tkStubsPtr->tk_CanvasPsBitmap) /* 11 */ +#define Tk_CanvasPsColor \ + (tkStubsPtr->tk_CanvasPsColor) /* 12 */ +#define Tk_CanvasPsFont \ + (tkStubsPtr->tk_CanvasPsFont) /* 13 */ +#define Tk_CanvasPsPath \ + (tkStubsPtr->tk_CanvasPsPath) /* 14 */ +#define Tk_CanvasPsStipple \ + (tkStubsPtr->tk_CanvasPsStipple) /* 15 */ +#define Tk_CanvasPsY \ + (tkStubsPtr->tk_CanvasPsY) /* 16 */ +#define Tk_CanvasSetStippleOrigin \ + (tkStubsPtr->tk_CanvasSetStippleOrigin) /* 17 */ +#define Tk_CanvasTagsParseProc \ + (tkStubsPtr->tk_CanvasTagsParseProc) /* 18 */ +#define Tk_CanvasTagsPrintProc \ + (tkStubsPtr->tk_CanvasTagsPrintProc) /* 19 */ +#define Tk_CanvasTkwin \ + (tkStubsPtr->tk_CanvasTkwin) /* 20 */ +#define Tk_CanvasWindowCoords \ + (tkStubsPtr->tk_CanvasWindowCoords) /* 21 */ +#define Tk_ChangeWindowAttributes \ + (tkStubsPtr->tk_ChangeWindowAttributes) /* 22 */ +#define Tk_CharBbox \ + (tkStubsPtr->tk_CharBbox) /* 23 */ +#define Tk_ClearSelection \ + (tkStubsPtr->tk_ClearSelection) /* 24 */ +#define Tk_ClipboardAppend \ + (tkStubsPtr->tk_ClipboardAppend) /* 25 */ +#define Tk_ClipboardClear \ + (tkStubsPtr->tk_ClipboardClear) /* 26 */ +#define Tk_ConfigureInfo \ + (tkStubsPtr->tk_ConfigureInfo) /* 27 */ +#define Tk_ConfigureValue \ + (tkStubsPtr->tk_ConfigureValue) /* 28 */ +#define Tk_ConfigureWidget \ + (tkStubsPtr->tk_ConfigureWidget) /* 29 */ +#define Tk_ConfigureWindow \ + (tkStubsPtr->tk_ConfigureWindow) /* 30 */ +#define Tk_ComputeTextLayout \ + (tkStubsPtr->tk_ComputeTextLayout) /* 31 */ +#define Tk_CoordsToWindow \ + (tkStubsPtr->tk_CoordsToWindow) /* 32 */ +#define Tk_CreateBinding \ + (tkStubsPtr->tk_CreateBinding) /* 33 */ +#define Tk_CreateBindingTable \ + (tkStubsPtr->tk_CreateBindingTable) /* 34 */ +#define Tk_CreateErrorHandler \ + (tkStubsPtr->tk_CreateErrorHandler) /* 35 */ +#define Tk_CreateEventHandler \ + (tkStubsPtr->tk_CreateEventHandler) /* 36 */ +#define Tk_CreateGenericHandler \ + (tkStubsPtr->tk_CreateGenericHandler) /* 37 */ +#define Tk_CreateImageType \ + (tkStubsPtr->tk_CreateImageType) /* 38 */ +#define Tk_CreateItemType \ + (tkStubsPtr->tk_CreateItemType) /* 39 */ +#define Tk_CreatePhotoImageFormat \ + (tkStubsPtr->tk_CreatePhotoImageFormat) /* 40 */ +#define Tk_CreateSelHandler \ + (tkStubsPtr->tk_CreateSelHandler) /* 41 */ +#define Tk_CreateWindow \ + (tkStubsPtr->tk_CreateWindow) /* 42 */ +#define Tk_CreateWindowFromPath \ + (tkStubsPtr->tk_CreateWindowFromPath) /* 43 */ +#define Tk_DefineBitmap \ + (tkStubsPtr->tk_DefineBitmap) /* 44 */ +#define Tk_DefineCursor \ + (tkStubsPtr->tk_DefineCursor) /* 45 */ +#define Tk_DeleteAllBindings \ + (tkStubsPtr->tk_DeleteAllBindings) /* 46 */ +#define Tk_DeleteBinding \ + (tkStubsPtr->tk_DeleteBinding) /* 47 */ +#define Tk_DeleteBindingTable \ + (tkStubsPtr->tk_DeleteBindingTable) /* 48 */ +#define Tk_DeleteErrorHandler \ + (tkStubsPtr->tk_DeleteErrorHandler) /* 49 */ +#define Tk_DeleteEventHandler \ + (tkStubsPtr->tk_DeleteEventHandler) /* 50 */ +#define Tk_DeleteGenericHandler \ + (tkStubsPtr->tk_DeleteGenericHandler) /* 51 */ +#define Tk_DeleteImage \ + (tkStubsPtr->tk_DeleteImage) /* 52 */ +#define Tk_DeleteSelHandler \ + (tkStubsPtr->tk_DeleteSelHandler) /* 53 */ +#define Tk_DestroyWindow \ + (tkStubsPtr->tk_DestroyWindow) /* 54 */ +#define Tk_DisplayName \ + (tkStubsPtr->tk_DisplayName) /* 55 */ +#define Tk_DistanceToTextLayout \ + (tkStubsPtr->tk_DistanceToTextLayout) /* 56 */ +#define Tk_Draw3DPolygon \ + (tkStubsPtr->tk_Draw3DPolygon) /* 57 */ +#define Tk_Draw3DRectangle \ + (tkStubsPtr->tk_Draw3DRectangle) /* 58 */ +#define Tk_DrawChars \ + (tkStubsPtr->tk_DrawChars) /* 59 */ +#define Tk_DrawFocusHighlight \ + (tkStubsPtr->tk_DrawFocusHighlight) /* 60 */ +#define Tk_DrawTextLayout \ + (tkStubsPtr->tk_DrawTextLayout) /* 61 */ +#define Tk_Fill3DPolygon \ + (tkStubsPtr->tk_Fill3DPolygon) /* 62 */ +#define Tk_Fill3DRectangle \ + (tkStubsPtr->tk_Fill3DRectangle) /* 63 */ +#define Tk_FindPhoto \ + (tkStubsPtr->tk_FindPhoto) /* 64 */ +#define Tk_FontId \ + (tkStubsPtr->tk_FontId) /* 65 */ +#define Tk_Free3DBorder \ + (tkStubsPtr->tk_Free3DBorder) /* 66 */ +#define Tk_FreeBitmap \ + (tkStubsPtr->tk_FreeBitmap) /* 67 */ +#define Tk_FreeColor \ + (tkStubsPtr->tk_FreeColor) /* 68 */ +#define Tk_FreeColormap \ + (tkStubsPtr->tk_FreeColormap) /* 69 */ +#define Tk_FreeCursor \ + (tkStubsPtr->tk_FreeCursor) /* 70 */ +#define Tk_FreeFont \ + (tkStubsPtr->tk_FreeFont) /* 71 */ +#define Tk_FreeGC \ + (tkStubsPtr->tk_FreeGC) /* 72 */ +#define Tk_FreeImage \ + (tkStubsPtr->tk_FreeImage) /* 73 */ +#define Tk_FreeOptions \ + (tkStubsPtr->tk_FreeOptions) /* 74 */ +#define Tk_FreePixmap \ + (tkStubsPtr->tk_FreePixmap) /* 75 */ +#define Tk_FreeTextLayout \ + (tkStubsPtr->tk_FreeTextLayout) /* 76 */ +#define Tk_FreeXId \ + (tkStubsPtr->tk_FreeXId) /* 77 */ +#define Tk_GCForColor \ + (tkStubsPtr->tk_GCForColor) /* 78 */ +#define Tk_GeometryRequest \ + (tkStubsPtr->tk_GeometryRequest) /* 79 */ +#define Tk_Get3DBorder \ + (tkStubsPtr->tk_Get3DBorder) /* 80 */ +#define Tk_GetAllBindings \ + (tkStubsPtr->tk_GetAllBindings) /* 81 */ +#define Tk_GetAnchor \ + (tkStubsPtr->tk_GetAnchor) /* 82 */ +#define Tk_GetAtomName \ + (tkStubsPtr->tk_GetAtomName) /* 83 */ +#define Tk_GetBinding \ + (tkStubsPtr->tk_GetBinding) /* 84 */ +#define Tk_GetBitmap \ + (tkStubsPtr->tk_GetBitmap) /* 85 */ +#define Tk_GetBitmapFromData \ + (tkStubsPtr->tk_GetBitmapFromData) /* 86 */ +#define Tk_GetCapStyle \ + (tkStubsPtr->tk_GetCapStyle) /* 87 */ +#define Tk_GetColor \ + (tkStubsPtr->tk_GetColor) /* 88 */ +#define Tk_GetColorByValue \ + (tkStubsPtr->tk_GetColorByValue) /* 89 */ +#define Tk_GetColormap \ + (tkStubsPtr->tk_GetColormap) /* 90 */ +#define Tk_GetCursor \ + (tkStubsPtr->tk_GetCursor) /* 91 */ +#define Tk_GetCursorFromData \ + (tkStubsPtr->tk_GetCursorFromData) /* 92 */ +#define Tk_GetFont \ + (tkStubsPtr->tk_GetFont) /* 93 */ +#define Tk_GetFontFromObj \ + (tkStubsPtr->tk_GetFontFromObj) /* 94 */ +#define Tk_GetFontMetrics \ + (tkStubsPtr->tk_GetFontMetrics) /* 95 */ +#define Tk_GetGC \ + (tkStubsPtr->tk_GetGC) /* 96 */ +#define Tk_GetImage \ + (tkStubsPtr->tk_GetImage) /* 97 */ +#define Tk_GetImageMasterData \ + (tkStubsPtr->tk_GetImageMasterData) /* 98 */ +#define Tk_GetItemTypes \ + (tkStubsPtr->tk_GetItemTypes) /* 99 */ +#define Tk_GetJoinStyle \ + (tkStubsPtr->tk_GetJoinStyle) /* 100 */ +#define Tk_GetJustify \ + (tkStubsPtr->tk_GetJustify) /* 101 */ +#define Tk_GetNumMainWindows \ + (tkStubsPtr->tk_GetNumMainWindows) /* 102 */ +#define Tk_GetOption \ + (tkStubsPtr->tk_GetOption) /* 103 */ +#define Tk_GetPixels \ + (tkStubsPtr->tk_GetPixels) /* 104 */ +#define Tk_GetPixmap \ + (tkStubsPtr->tk_GetPixmap) /* 105 */ +#define Tk_GetRelief \ + (tkStubsPtr->tk_GetRelief) /* 106 */ +#define Tk_GetRootCoords \ + (tkStubsPtr->tk_GetRootCoords) /* 107 */ +#define Tk_GetScrollInfo \ + (tkStubsPtr->tk_GetScrollInfo) /* 108 */ +#define Tk_GetScreenMM \ + (tkStubsPtr->tk_GetScreenMM) /* 109 */ +#define Tk_GetSelection \ + (tkStubsPtr->tk_GetSelection) /* 110 */ +#define Tk_GetUid \ + (tkStubsPtr->tk_GetUid) /* 111 */ +#define Tk_GetVisual \ + (tkStubsPtr->tk_GetVisual) /* 112 */ +#define Tk_GetVRootGeometry \ + (tkStubsPtr->tk_GetVRootGeometry) /* 113 */ +#define Tk_Grab \ + (tkStubsPtr->tk_Grab) /* 114 */ +#define Tk_HandleEvent \ + (tkStubsPtr->tk_HandleEvent) /* 115 */ +#define Tk_IdToWindow \ + (tkStubsPtr->tk_IdToWindow) /* 116 */ +#define Tk_ImageChanged \ + (tkStubsPtr->tk_ImageChanged) /* 117 */ +#define Tk_Init \ + (tkStubsPtr->tk_Init) /* 118 */ +#define Tk_InternAtom \ + (tkStubsPtr->tk_InternAtom) /* 119 */ +#define Tk_IntersectTextLayout \ + (tkStubsPtr->tk_IntersectTextLayout) /* 120 */ +#define Tk_MaintainGeometry \ + (tkStubsPtr->tk_MaintainGeometry) /* 121 */ +#define Tk_MainWindow \ + (tkStubsPtr->tk_MainWindow) /* 122 */ +#define Tk_MakeWindowExist \ + (tkStubsPtr->tk_MakeWindowExist) /* 123 */ +#define Tk_ManageGeometry \ + (tkStubsPtr->tk_ManageGeometry) /* 124 */ +#define Tk_MapWindow \ + (tkStubsPtr->tk_MapWindow) /* 125 */ +#define Tk_MeasureChars \ + (tkStubsPtr->tk_MeasureChars) /* 126 */ +#define Tk_MoveResizeWindow \ + (tkStubsPtr->tk_MoveResizeWindow) /* 127 */ +#define Tk_MoveWindow \ + (tkStubsPtr->tk_MoveWindow) /* 128 */ +#define Tk_MoveToplevelWindow \ + (tkStubsPtr->tk_MoveToplevelWindow) /* 129 */ +#define Tk_NameOf3DBorder \ + (tkStubsPtr->tk_NameOf3DBorder) /* 130 */ +#define Tk_NameOfAnchor \ + (tkStubsPtr->tk_NameOfAnchor) /* 131 */ +#define Tk_NameOfBitmap \ + (tkStubsPtr->tk_NameOfBitmap) /* 132 */ +#define Tk_NameOfCapStyle \ + (tkStubsPtr->tk_NameOfCapStyle) /* 133 */ +#define Tk_NameOfColor \ + (tkStubsPtr->tk_NameOfColor) /* 134 */ +#define Tk_NameOfCursor \ + (tkStubsPtr->tk_NameOfCursor) /* 135 */ +#define Tk_NameOfFont \ + (tkStubsPtr->tk_NameOfFont) /* 136 */ +#define Tk_NameOfImage \ + (tkStubsPtr->tk_NameOfImage) /* 137 */ +#define Tk_NameOfJoinStyle \ + (tkStubsPtr->tk_NameOfJoinStyle) /* 138 */ +#define Tk_NameOfJustify \ + (tkStubsPtr->tk_NameOfJustify) /* 139 */ +#define Tk_NameOfRelief \ + (tkStubsPtr->tk_NameOfRelief) /* 140 */ +#define Tk_NameToWindow \ + (tkStubsPtr->tk_NameToWindow) /* 141 */ +#define Tk_OwnSelection \ + (tkStubsPtr->tk_OwnSelection) /* 142 */ +#define Tk_ParseArgv \ + (tkStubsPtr->tk_ParseArgv) /* 143 */ +#define Tk_PhotoPutBlock_NoComposite \ + (tkStubsPtr->tk_PhotoPutBlock_NoComposite) /* 144 */ +#define Tk_PhotoPutZoomedBlock_NoComposite \ + (tkStubsPtr->tk_PhotoPutZoomedBlock_NoComposite) /* 145 */ +#define Tk_PhotoGetImage \ + (tkStubsPtr->tk_PhotoGetImage) /* 146 */ +#define Tk_PhotoBlank \ + (tkStubsPtr->tk_PhotoBlank) /* 147 */ +#define Tk_PhotoExpand_Panic \ + (tkStubsPtr->tk_PhotoExpand_Panic) /* 148 */ +#define Tk_PhotoGetSize \ + (tkStubsPtr->tk_PhotoGetSize) /* 149 */ +#define Tk_PhotoSetSize_Panic \ + (tkStubsPtr->tk_PhotoSetSize_Panic) /* 150 */ +#define Tk_PointToChar \ + (tkStubsPtr->tk_PointToChar) /* 151 */ +#define Tk_PostscriptFontName \ + (tkStubsPtr->tk_PostscriptFontName) /* 152 */ +#define Tk_PreserveColormap \ + (tkStubsPtr->tk_PreserveColormap) /* 153 */ +#define Tk_QueueWindowEvent \ + (tkStubsPtr->tk_QueueWindowEvent) /* 154 */ +#define Tk_RedrawImage \ + (tkStubsPtr->tk_RedrawImage) /* 155 */ +#define Tk_ResizeWindow \ + (tkStubsPtr->tk_ResizeWindow) /* 156 */ +#define Tk_RestackWindow \ + (tkStubsPtr->tk_RestackWindow) /* 157 */ +#define Tk_RestrictEvents \ + (tkStubsPtr->tk_RestrictEvents) /* 158 */ +#define Tk_SafeInit \ + (tkStubsPtr->tk_SafeInit) /* 159 */ +#define Tk_SetAppName \ + (tkStubsPtr->tk_SetAppName) /* 160 */ +#define Tk_SetBackgroundFromBorder \ + (tkStubsPtr->tk_SetBackgroundFromBorder) /* 161 */ +#define Tk_SetClass \ + (tkStubsPtr->tk_SetClass) /* 162 */ +#define Tk_SetGrid \ + (tkStubsPtr->tk_SetGrid) /* 163 */ +#define Tk_SetInternalBorder \ + (tkStubsPtr->tk_SetInternalBorder) /* 164 */ +#define Tk_SetWindowBackground \ + (tkStubsPtr->tk_SetWindowBackground) /* 165 */ +#define Tk_SetWindowBackgroundPixmap \ + (tkStubsPtr->tk_SetWindowBackgroundPixmap) /* 166 */ +#define Tk_SetWindowBorder \ + (tkStubsPtr->tk_SetWindowBorder) /* 167 */ +#define Tk_SetWindowBorderWidth \ + (tkStubsPtr->tk_SetWindowBorderWidth) /* 168 */ +#define Tk_SetWindowBorderPixmap \ + (tkStubsPtr->tk_SetWindowBorderPixmap) /* 169 */ +#define Tk_SetWindowColormap \ + (tkStubsPtr->tk_SetWindowColormap) /* 170 */ +#define Tk_SetWindowVisual \ + (tkStubsPtr->tk_SetWindowVisual) /* 171 */ +#define Tk_SizeOfBitmap \ + (tkStubsPtr->tk_SizeOfBitmap) /* 172 */ +#define Tk_SizeOfImage \ + (tkStubsPtr->tk_SizeOfImage) /* 173 */ +#define Tk_StrictMotif \ + (tkStubsPtr->tk_StrictMotif) /* 174 */ +#define Tk_TextLayoutToPostscript \ + (tkStubsPtr->tk_TextLayoutToPostscript) /* 175 */ +#define Tk_TextWidth \ + (tkStubsPtr->tk_TextWidth) /* 176 */ +#define Tk_UndefineCursor \ + (tkStubsPtr->tk_UndefineCursor) /* 177 */ +#define Tk_UnderlineChars \ + (tkStubsPtr->tk_UnderlineChars) /* 178 */ +#define Tk_UnderlineTextLayout \ + (tkStubsPtr->tk_UnderlineTextLayout) /* 179 */ +#define Tk_Ungrab \ + (tkStubsPtr->tk_Ungrab) /* 180 */ +#define Tk_UnmaintainGeometry \ + (tkStubsPtr->tk_UnmaintainGeometry) /* 181 */ +#define Tk_UnmapWindow \ + (tkStubsPtr->tk_UnmapWindow) /* 182 */ +#define Tk_UnsetGrid \ + (tkStubsPtr->tk_UnsetGrid) /* 183 */ +#define Tk_UpdatePointer \ + (tkStubsPtr->tk_UpdatePointer) /* 184 */ +#define Tk_AllocBitmapFromObj \ + (tkStubsPtr->tk_AllocBitmapFromObj) /* 185 */ +#define Tk_Alloc3DBorderFromObj \ + (tkStubsPtr->tk_Alloc3DBorderFromObj) /* 186 */ +#define Tk_AllocColorFromObj \ + (tkStubsPtr->tk_AllocColorFromObj) /* 187 */ +#define Tk_AllocCursorFromObj \ + (tkStubsPtr->tk_AllocCursorFromObj) /* 188 */ +#define Tk_AllocFontFromObj \ + (tkStubsPtr->tk_AllocFontFromObj) /* 189 */ +#define Tk_CreateOptionTable \ + (tkStubsPtr->tk_CreateOptionTable) /* 190 */ +#define Tk_DeleteOptionTable \ + (tkStubsPtr->tk_DeleteOptionTable) /* 191 */ +#define Tk_Free3DBorderFromObj \ + (tkStubsPtr->tk_Free3DBorderFromObj) /* 192 */ +#define Tk_FreeBitmapFromObj \ + (tkStubsPtr->tk_FreeBitmapFromObj) /* 193 */ +#define Tk_FreeColorFromObj \ + (tkStubsPtr->tk_FreeColorFromObj) /* 194 */ +#define Tk_FreeConfigOptions \ + (tkStubsPtr->tk_FreeConfigOptions) /* 195 */ +#define Tk_FreeSavedOptions \ + (tkStubsPtr->tk_FreeSavedOptions) /* 196 */ +#define Tk_FreeCursorFromObj \ + (tkStubsPtr->tk_FreeCursorFromObj) /* 197 */ +#define Tk_FreeFontFromObj \ + (tkStubsPtr->tk_FreeFontFromObj) /* 198 */ +#define Tk_Get3DBorderFromObj \ + (tkStubsPtr->tk_Get3DBorderFromObj) /* 199 */ +#define Tk_GetAnchorFromObj \ + (tkStubsPtr->tk_GetAnchorFromObj) /* 200 */ +#define Tk_GetBitmapFromObj \ + (tkStubsPtr->tk_GetBitmapFromObj) /* 201 */ +#define Tk_GetColorFromObj \ + (tkStubsPtr->tk_GetColorFromObj) /* 202 */ +#define Tk_GetCursorFromObj \ + (tkStubsPtr->tk_GetCursorFromObj) /* 203 */ +#define Tk_GetOptionInfo \ + (tkStubsPtr->tk_GetOptionInfo) /* 204 */ +#define Tk_GetOptionValue \ + (tkStubsPtr->tk_GetOptionValue) /* 205 */ +#define Tk_GetJustifyFromObj \ + (tkStubsPtr->tk_GetJustifyFromObj) /* 206 */ +#define Tk_GetMMFromObj \ + (tkStubsPtr->tk_GetMMFromObj) /* 207 */ +#define Tk_GetPixelsFromObj \ + (tkStubsPtr->tk_GetPixelsFromObj) /* 208 */ +#define Tk_GetReliefFromObj \ + (tkStubsPtr->tk_GetReliefFromObj) /* 209 */ +#define Tk_GetScrollInfoObj \ + (tkStubsPtr->tk_GetScrollInfoObj) /* 210 */ +#define Tk_InitOptions \ + (tkStubsPtr->tk_InitOptions) /* 211 */ +#define Tk_MainEx \ + (tkStubsPtr->tk_MainEx) /* 212 */ +#define Tk_RestoreSavedOptions \ + (tkStubsPtr->tk_RestoreSavedOptions) /* 213 */ +#define Tk_SetOptions \ + (tkStubsPtr->tk_SetOptions) /* 214 */ +#define Tk_InitConsoleChannels \ + (tkStubsPtr->tk_InitConsoleChannels) /* 215 */ +#define Tk_CreateConsoleWindow \ + (tkStubsPtr->tk_CreateConsoleWindow) /* 216 */ +#define Tk_CreateSmoothMethod \ + (tkStubsPtr->tk_CreateSmoothMethod) /* 217 */ +/* Slot 218 is reserved */ +/* Slot 219 is reserved */ +#define Tk_GetDash \ + (tkStubsPtr->tk_GetDash) /* 220 */ +#define Tk_CreateOutline \ + (tkStubsPtr->tk_CreateOutline) /* 221 */ +#define Tk_DeleteOutline \ + (tkStubsPtr->tk_DeleteOutline) /* 222 */ +#define Tk_ConfigOutlineGC \ + (tkStubsPtr->tk_ConfigOutlineGC) /* 223 */ +#define Tk_ChangeOutlineGC \ + (tkStubsPtr->tk_ChangeOutlineGC) /* 224 */ +#define Tk_ResetOutlineGC \ + (tkStubsPtr->tk_ResetOutlineGC) /* 225 */ +#define Tk_CanvasPsOutline \ + (tkStubsPtr->tk_CanvasPsOutline) /* 226 */ +#define Tk_SetTSOrigin \ + (tkStubsPtr->tk_SetTSOrigin) /* 227 */ +#define Tk_CanvasGetCoordFromObj \ + (tkStubsPtr->tk_CanvasGetCoordFromObj) /* 228 */ +#define Tk_CanvasSetOffset \ + (tkStubsPtr->tk_CanvasSetOffset) /* 229 */ +#define Tk_DitherPhoto \ + (tkStubsPtr->tk_DitherPhoto) /* 230 */ +#define Tk_PostscriptBitmap \ + (tkStubsPtr->tk_PostscriptBitmap) /* 231 */ +#define Tk_PostscriptColor \ + (tkStubsPtr->tk_PostscriptColor) /* 232 */ +#define Tk_PostscriptFont \ + (tkStubsPtr->tk_PostscriptFont) /* 233 */ +#define Tk_PostscriptImage \ + (tkStubsPtr->tk_PostscriptImage) /* 234 */ +#define Tk_PostscriptPath \ + (tkStubsPtr->tk_PostscriptPath) /* 235 */ +#define Tk_PostscriptStipple \ + (tkStubsPtr->tk_PostscriptStipple) /* 236 */ +#define Tk_PostscriptY \ + (tkStubsPtr->tk_PostscriptY) /* 237 */ +#define Tk_PostscriptPhoto \ + (tkStubsPtr->tk_PostscriptPhoto) /* 238 */ +#define Tk_CreateClientMessageHandler \ + (tkStubsPtr->tk_CreateClientMessageHandler) /* 239 */ +#define Tk_DeleteClientMessageHandler \ + (tkStubsPtr->tk_DeleteClientMessageHandler) /* 240 */ +#define Tk_CreateAnonymousWindow \ + (tkStubsPtr->tk_CreateAnonymousWindow) /* 241 */ +#define Tk_SetClassProcs \ + (tkStubsPtr->tk_SetClassProcs) /* 242 */ +#define Tk_SetInternalBorderEx \ + (tkStubsPtr->tk_SetInternalBorderEx) /* 243 */ +#define Tk_SetMinimumRequestSize \ + (tkStubsPtr->tk_SetMinimumRequestSize) /* 244 */ +#define Tk_SetCaretPos \ + (tkStubsPtr->tk_SetCaretPos) /* 245 */ +#define Tk_PhotoPutBlock_Panic \ + (tkStubsPtr->tk_PhotoPutBlock_Panic) /* 246 */ +#define Tk_PhotoPutZoomedBlock_Panic \ + (tkStubsPtr->tk_PhotoPutZoomedBlock_Panic) /* 247 */ +#define Tk_CollapseMotionEvents \ + (tkStubsPtr->tk_CollapseMotionEvents) /* 248 */ +#define Tk_RegisterStyleEngine \ + (tkStubsPtr->tk_RegisterStyleEngine) /* 249 */ +#define Tk_GetStyleEngine \ + (tkStubsPtr->tk_GetStyleEngine) /* 250 */ +#define Tk_RegisterStyledElement \ + (tkStubsPtr->tk_RegisterStyledElement) /* 251 */ +#define Tk_GetElementId \ + (tkStubsPtr->tk_GetElementId) /* 252 */ +#define Tk_CreateStyle \ + (tkStubsPtr->tk_CreateStyle) /* 253 */ +#define Tk_GetStyle \ + (tkStubsPtr->tk_GetStyle) /* 254 */ +#define Tk_FreeStyle \ + (tkStubsPtr->tk_FreeStyle) /* 255 */ +#define Tk_NameOfStyle \ + (tkStubsPtr->tk_NameOfStyle) /* 256 */ +#define Tk_AllocStyleFromObj \ + (tkStubsPtr->tk_AllocStyleFromObj) /* 257 */ +#define Tk_GetStyleFromObj \ + (tkStubsPtr->tk_GetStyleFromObj) /* 258 */ +#define Tk_FreeStyleFromObj \ + (tkStubsPtr->tk_FreeStyleFromObj) /* 259 */ +#define Tk_GetStyledElement \ + (tkStubsPtr->tk_GetStyledElement) /* 260 */ +#define Tk_GetElementSize \ + (tkStubsPtr->tk_GetElementSize) /* 261 */ +#define Tk_GetElementBox \ + (tkStubsPtr->tk_GetElementBox) /* 262 */ +#define Tk_GetElementBorderWidth \ + (tkStubsPtr->tk_GetElementBorderWidth) /* 263 */ +#define Tk_DrawElement \ + (tkStubsPtr->tk_DrawElement) /* 264 */ +#define Tk_PhotoExpand \ + (tkStubsPtr->tk_PhotoExpand) /* 265 */ +#define Tk_PhotoPutBlock \ + (tkStubsPtr->tk_PhotoPutBlock) /* 266 */ +#define Tk_PhotoPutZoomedBlock \ + (tkStubsPtr->tk_PhotoPutZoomedBlock) /* 267 */ +#define Tk_PhotoSetSize \ + (tkStubsPtr->tk_PhotoSetSize) /* 268 */ +#define Tk_GetUserInactiveTime \ + (tkStubsPtr->tk_GetUserInactiveTime) /* 269 */ +#define Tk_ResetUserInactiveTime \ + (tkStubsPtr->tk_ResetUserInactiveTime) /* 270 */ +#define Tk_Interp \ + (tkStubsPtr->tk_Interp) /* 271 */ +#define Tk_CreateOldImageType \ + (tkStubsPtr->tk_CreateOldImageType) /* 272 */ +#define Tk_CreateOldPhotoImageFormat \ + (tkStubsPtr->tk_CreateOldPhotoImageFormat) /* 273 */ + +#endif /* defined(USE_TK_STUBS) */ + +/* !END!: Do not edit above this line. */ + +/* Functions that don't belong in the stub table */ +#undef Tk_MainEx +#undef Tk_Init +#undef Tk_SafeInit +#undef Tk_CreateConsoleWindow + +#if defined(_WIN32) && defined(UNICODE) +# define Tk_MainEx Tk_MainExW + EXTERN void Tk_MainExW(int argc, wchar_t **argv, + Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); +#endif + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* _TKDECLS */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tkPlatDecls.h b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tkPlatDecls.h new file mode 100644 index 00000000..1e69c883 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tcl8.6/tkPlatDecls.h @@ -0,0 +1,176 @@ +/* + * tkPlatDecls.h -- + * + * Declarations of functions in the platform-specific public Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + */ + +#ifndef _TKPLATDECLS +#define _TKPLATDECLS + +#ifdef BUILD_tk +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tk.decls script. + */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* !BEGIN!: Do not edit below this line. */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * Exported function declarations: + */ + +#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ +/* 0 */ +EXTERN Window Tk_AttachHWND(Tk_Window tkwin, HWND hwnd); +/* 1 */ +EXTERN HINSTANCE Tk_GetHINSTANCE(void); +/* 2 */ +EXTERN HWND Tk_GetHWND(Window window); +/* 3 */ +EXTERN Tk_Window Tk_HWNDToWindow(HWND hwnd); +/* 4 */ +EXTERN void Tk_PointerEvent(HWND hwnd, int x, int y); +/* 5 */ +EXTERN int Tk_TranslateWinEvent(HWND hwnd, UINT message, + WPARAM wParam, LPARAM lParam, + LRESULT *result); +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ +/* 0 */ +EXTERN void Tk_MacOSXSetEmbedHandler( + Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, + Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, + Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, + Tk_MacOSXEmbedGetClipProc *getClipProc, + Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc); +/* 1 */ +EXTERN void Tk_MacOSXTurnOffMenus(void); +/* 2 */ +EXTERN void Tk_MacOSXTkOwnsCursor(int tkOwnsIt); +/* 3 */ +EXTERN void TkMacOSXInitMenus(Tcl_Interp *interp); +/* 4 */ +EXTERN void TkMacOSXInitAppleEvents(Tcl_Interp *interp); +/* 5 */ +EXTERN void TkGenWMConfigureEvent(Tk_Window tkwin, int x, int y, + int width, int height, int flags); +/* 6 */ +EXTERN void TkMacOSXInvalClipRgns(Tk_Window tkwin); +/* 7 */ +EXTERN void * TkMacOSXGetDrawablePort(Drawable drawable); +/* 8 */ +EXTERN void * TkMacOSXGetRootControl(Drawable drawable); +/* 9 */ +EXTERN void Tk_MacOSXSetupTkNotifier(void); +/* 10 */ +EXTERN int Tk_MacOSXIsAppInFront(void); +#endif /* AQUA */ + +typedef struct TkPlatStubs { + int magic; + void *hooks; + +#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ + Window (*tk_AttachHWND) (Tk_Window tkwin, HWND hwnd); /* 0 */ + HINSTANCE (*tk_GetHINSTANCE) (void); /* 1 */ + HWND (*tk_GetHWND) (Window window); /* 2 */ + Tk_Window (*tk_HWNDToWindow) (HWND hwnd); /* 3 */ + void (*tk_PointerEvent) (HWND hwnd, int x, int y); /* 4 */ + int (*tk_TranslateWinEvent) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam, LRESULT *result); /* 5 */ +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ + void (*tk_MacOSXSetEmbedHandler) (Tk_MacOSXEmbedRegisterWinProc *registerWinProcPtr, Tk_MacOSXEmbedGetGrafPortProc *getPortProcPtr, Tk_MacOSXEmbedMakeContainerExistProc *containerExistProcPtr, Tk_MacOSXEmbedGetClipProc *getClipProc, Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc); /* 0 */ + void (*tk_MacOSXTurnOffMenus) (void); /* 1 */ + void (*tk_MacOSXTkOwnsCursor) (int tkOwnsIt); /* 2 */ + void (*tkMacOSXInitMenus) (Tcl_Interp *interp); /* 3 */ + void (*tkMacOSXInitAppleEvents) (Tcl_Interp *interp); /* 4 */ + void (*tkGenWMConfigureEvent) (Tk_Window tkwin, int x, int y, int width, int height, int flags); /* 5 */ + void (*tkMacOSXInvalClipRgns) (Tk_Window tkwin); /* 6 */ + void * (*tkMacOSXGetDrawablePort) (Drawable drawable); /* 7 */ + void * (*tkMacOSXGetRootControl) (Drawable drawable); /* 8 */ + void (*tk_MacOSXSetupTkNotifier) (void); /* 9 */ + int (*tk_MacOSXIsAppInFront) (void); /* 10 */ +#endif /* AQUA */ +} TkPlatStubs; + +extern const TkPlatStubs *tkPlatStubsPtr; + +#ifdef __cplusplus +} +#endif + +#if defined(USE_TK_STUBS) + +/* + * Inline function declarations: + */ + +#if defined(_WIN32) || defined(__CYGWIN__) /* WIN */ +#define Tk_AttachHWND \ + (tkPlatStubsPtr->tk_AttachHWND) /* 0 */ +#define Tk_GetHINSTANCE \ + (tkPlatStubsPtr->tk_GetHINSTANCE) /* 1 */ +#define Tk_GetHWND \ + (tkPlatStubsPtr->tk_GetHWND) /* 2 */ +#define Tk_HWNDToWindow \ + (tkPlatStubsPtr->tk_HWNDToWindow) /* 3 */ +#define Tk_PointerEvent \ + (tkPlatStubsPtr->tk_PointerEvent) /* 4 */ +#define Tk_TranslateWinEvent \ + (tkPlatStubsPtr->tk_TranslateWinEvent) /* 5 */ +#endif /* WIN */ +#ifdef MAC_OSX_TK /* AQUA */ +#define Tk_MacOSXSetEmbedHandler \ + (tkPlatStubsPtr->tk_MacOSXSetEmbedHandler) /* 0 */ +#define Tk_MacOSXTurnOffMenus \ + (tkPlatStubsPtr->tk_MacOSXTurnOffMenus) /* 1 */ +#define Tk_MacOSXTkOwnsCursor \ + (tkPlatStubsPtr->tk_MacOSXTkOwnsCursor) /* 2 */ +#define TkMacOSXInitMenus \ + (tkPlatStubsPtr->tkMacOSXInitMenus) /* 3 */ +#define TkMacOSXInitAppleEvents \ + (tkPlatStubsPtr->tkMacOSXInitAppleEvents) /* 4 */ +#define TkGenWMConfigureEvent \ + (tkPlatStubsPtr->tkGenWMConfigureEvent) /* 5 */ +#define TkMacOSXInvalClipRgns \ + (tkPlatStubsPtr->tkMacOSXInvalClipRgns) /* 6 */ +#define TkMacOSXGetDrawablePort \ + (tkPlatStubsPtr->tkMacOSXGetDrawablePort) /* 7 */ +#define TkMacOSXGetRootControl \ + (tkPlatStubsPtr->tkMacOSXGetRootControl) /* 8 */ +#define Tk_MacOSXSetupTkNotifier \ + (tkPlatStubsPtr->tk_MacOSXSetupTkNotifier) /* 9 */ +#define Tk_MacOSXIsAppInFront \ + (tkPlatStubsPtr->tk_MacOSXIsAppInFront) /* 10 */ +#endif /* AQUA */ + +#endif /* defined(USE_TK_STUBS) */ + +/* !END!: Do not edit above this line. */ + +#ifdef __cplusplus +} +#endif + +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT + +#endif /* _TKPLATDECLS */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tclAppInit.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tclAppInit.c new file mode 100644 index 00000000..fd4bc5af --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tclAppInit.c @@ -0,0 +1,179 @@ +/* + * tclAppInit.c -- + * + * Provides a default version of the main program and Tcl_AppInit + * function for Tcl applications (without Tk). + * + * Copyright (c) 1993 The Regents of the University of California. + * Copyright (c) 1994-1997 Sun Microsystems, Inc. + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution of + * this file, and for a DISCLAIMER OF ALL WARRANTIES. + * + * RCS: @(#) $Id: tclAppInit.c 1325 2007-03-29 07:27:33Z jcw $ + */ + +#include "tcl.h" + +#ifdef TCL_TEST + +#include "tclInt.h" + +extern Tcl_PackageInitProc Procbodytest_Init; +extern Tcl_PackageInitProc Procbodytest_SafeInit; +extern Tcl_PackageInitProc TclObjTest_Init; +extern Tcl_PackageInitProc Tcltest_Init; + +#endif /* TCL_TEST */ + +#ifdef TCL_XT_TEST +extern void XtToolkitInitialize _ANSI_ARGS_((void)); +extern int Tclxttest_Init _ANSI_ARGS_((Tcl_Interp *interp)); +#endif + +/* + *---------------------------------------------------------------------- + * + * main -- + * + * This is the main program for the application. + * + * Results: + * None: Tcl_Main never returns here, so this function never returns + * either. + * + * Side effects: + * Whatever the application does. + * + *---------------------------------------------------------------------- + */ + +int +main(argc, argv) + int argc; /* Number of command-line arguments. */ + char **argv; /* Values of command-line arguments. */ +{ + /* + * The following #if block allows you to change the AppInit function by + * using a #define of TCL_LOCAL_APPINIT instead of rewriting this entire + * file. The #if checks for that #define and uses Tcl_AppInit if it does + * not exist. + */ + +#ifndef TCL_LOCAL_APPINIT +#define TCL_LOCAL_APPINIT Tcl_AppInit +#endif + extern int TCL_LOCAL_APPINIT _ANSI_ARGS_((Tcl_Interp *interp)); + + /* + * The following #if block allows you to change how Tcl finds the startup + * script, prime the library or encoding paths, fiddle with the argv, + * etc., without needing to rewrite Tcl_Main() + */ + +#ifdef TCL_LOCAL_MAIN_HOOK + extern int TCL_LOCAL_MAIN_HOOK _ANSI_ARGS_((int *argc, char ***argv)); +#endif + +#ifdef TCL_XT_TEST + XtToolkitInitialize(); +#endif + +#ifdef TCL_LOCAL_MAIN_HOOK + TCL_LOCAL_MAIN_HOOK(&argc, &argv); +#endif + + Tcl_Main(argc, argv, TCL_LOCAL_APPINIT); + + return 0; /* Needed only to prevent compiler warning. */ +} + +/* + *---------------------------------------------------------------------- + * + * Tcl_AppInit -- + * + * This function performs application-specific initialization. Most + * applications, especially those that incorporate additional packages, + * will have their own version of this function. + * + * Results: + * Returns a standard Tcl completion code, and leaves an error message in + * the interp's result if an error occurs. + * + * Side effects: + * Depends on the startup script. + * + *---------------------------------------------------------------------- + */ + +int +Tcl_AppInit(interp) + Tcl_Interp *interp; /* Interpreter for application. */ +{ + if (Tcl_Init(interp) == TCL_ERROR) { + return TCL_ERROR; + } + +#ifdef TCL_TEST +#ifdef TCL_XT_TEST + if (Tclxttest_Init(interp) == TCL_ERROR) { + return TCL_ERROR; + } +#endif + if (Tcltest_Init(interp) == TCL_ERROR) { + return TCL_ERROR; + } + Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init, + (Tcl_PackageInitProc *) NULL); + if (TclObjTest_Init(interp) == TCL_ERROR) { + return TCL_ERROR; + } + if (Procbodytest_Init(interp) == TCL_ERROR) { + return TCL_ERROR; + } + Tcl_StaticPackage(interp, "procbodytest", Procbodytest_Init, + Procbodytest_SafeInit); +#endif /* TCL_TEST */ + + /* + * Call the init functions for included packages. Each call should look + * like this: + * + * if (Mod_Init(interp) == TCL_ERROR) { + * return TCL_ERROR; + * } + * + * where "Mod" is the name of the module. (Dynamically-loadable packages + * should have the same entry-point name.) + */ + + /* + * Call Tcl_CreateCommand for application-specific commands, if they + * weren't already created by the init functions called above. + */ + + /* + * Specify a user-specific startup file to invoke if the application is + * run interactively. Typically the startup file is "~/.apprc" where "app" + * is the name of the application. If this line is deleted then no user- + * specific startup file will be run under any conditions. + */ + +#ifdef DJGPP + Tcl_SetVar(interp, "tcl_rcFileName", "~/tclsh.rc", TCL_GLOBAL_ONLY); +#else + Tcl_SetVar(interp, "tcl_rcFileName", "~/.tclshrc", TCL_GLOBAL_ONLY); +#endif + + return TCL_OK; +} + +/* + * Local Variables: + * mode: c + * c-basic-offset: 4 + * fill-column: 78 + * End: + */ diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tkstubs.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tkstubs.c new file mode 100644 index 00000000..a4f3f27e --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tkstubs.c @@ -0,0 +1,24 @@ + +#if USE_TK_STUBS + + const TkStubs *tkStubsPtr; + const struct TkPlatStubs *tkPlatStubsPtr; + const struct TkIntStubs *tkIntStubsPtr; + const struct TkIntPlatStubs *tkIntPlatStubsPtr; + const struct TkIntXlibStubs *tkIntXlibStubsPtr; + + static int + MyInitTkStubs (Tcl_Interp *ip) + { + if (Tcl_PkgRequireEx(ip, "Tk", "8.1", 0, (ClientData*) &tkStubsPtr) == NULL) return 0; + if (tkStubsPtr == NULL || tkStubsPtr->hooks == NULL) { + Tcl_SetResult(ip, "This extension requires Tk stubs-support.", TCL_STATIC); + return 0; + } + tkPlatStubsPtr = tkStubsPtr->hooks->tkPlatStubs; + tkIntStubsPtr = tkStubsPtr->hooks->tkIntStubs; + tkIntPlatStubsPtr = tkStubsPtr->hooks->tkIntPlatStubs; + tkIntXlibStubsPtr = tkStubsPtr->hooks->tkIntXlibStubs; + return 1; + } +#endif diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tkstubs_noconst.c b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tkstubs_noconst.c new file mode 100644 index 00000000..36a0f7b8 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/critcl_c/tkstubs_noconst.c @@ -0,0 +1,27 @@ + +#if USE_TK_STUBS + /* Pre 8.6 two of the variables are not declared const. + * Prevent mismatch with tkDecls.h + */ + + TkStubs *tkStubsPtr; + const struct TkPlatStubs *tkPlatStubsPtr; + const struct TkIntStubs *tkIntStubsPtr; + const struct TkIntPlatStubs *tkIntPlatStubsPtr; + struct TkIntXlibStubs *tkIntXlibStubsPtr; + + static int + MyInitTkStubs (Tcl_Interp *ip) + { + if (Tcl_PkgRequireEx(ip, "Tk", "8.1", 0, (ClientData*) &tkStubsPtr) == NULL) return 0; + if (tkStubsPtr == NULL || tkStubsPtr->hooks == NULL) { + Tcl_SetResult(ip, "This extension requires Tk stubs-support.", TCL_STATIC); + return 0; + } + tkPlatStubsPtr = tkStubsPtr->hooks->tkPlatStubs; + tkIntStubsPtr = tkStubsPtr->hooks->tkIntStubs; + tkIntPlatStubsPtr = tkStubsPtr->hooks->tkIntPlatStubs; + tkIntXlibStubsPtr = tkStubsPtr->hooks->tkIntXlibStubs; + return 1; + } +#endif diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/license.terms b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/license.terms new file mode 100644 index 00000000..16e6bdf7 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/license.terms @@ -0,0 +1,40 @@ +This software is copyrighted by Jean-Claude Wippler, Steve Landers, +and other parties. + +The following terms apply to all files associated with the software +unless explicitly disclaimed in individual files. + +The authors hereby grant permission to use, copy, modify, distribute, +and license this software and its documentation for any purpose, provided +that existing copyright notices are retained in all copies and that this +notice is included verbatim in any distributions. No written agreement, +license, or royalty fee is required for any of the authorized uses. +Modifications to this software may be copyrighted by their authors +and need not follow the licensing terms described here, provided that +the new terms are clearly indicated on the first page of each file where +they apply. + +IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY +FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES +ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY +DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGE. + +THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES, +INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE +IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE +NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR +MODIFICATIONS. + +GOVERNMENT USE: If you are acquiring this software on behalf of the +U.S. government, the Government shall have only "Restricted Rights" +in the software and related documentation as defined in the Federal +Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2). If you +are acquiring the software on behalf of the Department of Defense, the +software shall be classified as "Commercial Computer Software" and the +Government shall have only "Restricted Rights" as defined in Clause +252.227-7013 (c) (1) of DFARs. Notwithstanding the foregoing, the +authors grant the U.S. Government and others acting in its behalf +permission to use and distribute the software in accordance with the +terms specified in this license. diff --git a/src/runtime/tclkit86bi.vfs/lib/critcl3.2/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/pkgIndex.tcl new file mode 100644 index 00000000..002acb50 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/critcl3.2/pkgIndex.tcl @@ -0,0 +1,2 @@ +if {![package vsatisfies [package provide Tcl] 8.6]} {return} +package ifneeded critcl 3.2 [list source [file join $dir critcl.tcl]] diff --git a/src/tclkit86bi.vfs/lib/critcl_callback1.1/critcl-rt.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl_callback1.1/critcl-rt.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl_callback1.1/critcl-rt.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl_callback1.1/critcl-rt.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl_callback1.1/license.terms b/src/runtime/tclkit86bi.vfs/lib/critcl_callback1.1/license.terms similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl_callback1.1/license.terms rename to src/runtime/tclkit86bi.vfs/lib/critcl_callback1.1/license.terms diff --git a/src/tclkit86bi.vfs/lib/critcl_callback1.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl_callback1.1/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl_callback1.1/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl_callback1.1/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl_callback1.1/teapot.txt b/src/runtime/tclkit86bi.vfs/lib/critcl_callback1.1/teapot.txt similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl_callback1.1/teapot.txt rename to src/runtime/tclkit86bi.vfs/lib/critcl_callback1.1/teapot.txt diff --git a/src/tclkit86bi.vfs/lib/critcl_callback1.1/win32-x86_64/callback.dll b/src/runtime/tclkit86bi.vfs/lib/critcl_callback1.1/win32-x86_64/callback.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl_callback1.1/win32-x86_64/callback.dll rename to src/runtime/tclkit86bi.vfs/lib/critcl_callback1.1/win32-x86_64/callback.dll diff --git a/src/tclkit86bi.vfs/lib/critcl_md5c0.12/critcl-rt.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl_md5c0.12/critcl-rt.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl_md5c0.12/critcl-rt.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl_md5c0.12/critcl-rt.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl_md5c0.12/license.terms b/src/runtime/tclkit86bi.vfs/lib/critcl_md5c0.12/license.terms similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl_md5c0.12/license.terms rename to src/runtime/tclkit86bi.vfs/lib/critcl_md5c0.12/license.terms diff --git a/src/tclkit86bi.vfs/lib/critcl_md5c0.12/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/critcl_md5c0.12/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl_md5c0.12/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/critcl_md5c0.12/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/critcl_md5c0.12/teapot.txt b/src/runtime/tclkit86bi.vfs/lib/critcl_md5c0.12/teapot.txt similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl_md5c0.12/teapot.txt rename to src/runtime/tclkit86bi.vfs/lib/critcl_md5c0.12/teapot.txt diff --git a/src/tclkit86bi.vfs/lib/critcl_md5c0.12/win32-x86_64/md5c.dll b/src/runtime/tclkit86bi.vfs/lib/critcl_md5c0.12/win32-x86_64/md5c.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/critcl_md5c0.12/win32-x86_64/md5c.dll rename to src/runtime/tclkit86bi.vfs/lib/critcl_md5c0.12/win32-x86_64/md5c.dll diff --git a/src/tclkit86bi.vfs/lib/dde1.4/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/dde1.4/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/dde1.4/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/dde1.4/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/dde1.4/tcldde14.dll b/src/runtime/tclkit86bi.vfs/lib/dde1.4/tcldde14.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/dde1.4/tcldde14.dll rename to src/runtime/tclkit86bi.vfs/lib/dde1.4/tcldde14.dll diff --git a/src/tclkit86bi.vfs/lib/iocp1.1.0/amd64/iocp110.dll b/src/runtime/tclkit86bi.vfs/lib/iocp1.1.0/amd64/iocp110.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/iocp1.1.0/amd64/iocp110.dll rename to src/runtime/tclkit86bi.vfs/lib/iocp1.1.0/amd64/iocp110.dll diff --git a/src/tclkit86bi.vfs/lib/iocp1.1.0/bt.tcl b/src/runtime/tclkit86bi.vfs/lib/iocp1.1.0/bt.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/iocp1.1.0/bt.tcl rename to src/runtime/tclkit86bi.vfs/lib/iocp1.1.0/bt.tcl diff --git a/src/tclkit86bi.vfs/lib/iocp1.1.0/btnames.tcl b/src/runtime/tclkit86bi.vfs/lib/iocp1.1.0/btnames.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/iocp1.1.0/btnames.tcl rename to src/runtime/tclkit86bi.vfs/lib/iocp1.1.0/btnames.tcl diff --git a/src/tclkit86bi.vfs/lib/iocp1.1.0/btsdr.tcl b/src/runtime/tclkit86bi.vfs/lib/iocp1.1.0/btsdr.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/iocp1.1.0/btsdr.tcl rename to src/runtime/tclkit86bi.vfs/lib/iocp1.1.0/btsdr.tcl diff --git a/src/tclkit86bi.vfs/lib/iocp1.1.0/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/iocp1.1.0/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/iocp1.1.0/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/iocp1.1.0/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/reg1.3/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/reg1.3/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/reg1.3/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/reg1.3/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/reg1.3/tclreg13.dll b/src/runtime/tclkit86bi.vfs/lib/reg1.3/tclreg13.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/reg1.3/tclreg13.dll rename to src/runtime/tclkit86bi.vfs/lib/reg1.3/tclreg13.dll diff --git a/src/tclkit86bi.vfs/lib/sqlite3.40.0/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/sqlite3.40.0/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/sqlite3.40.0/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/sqlite3.40.0/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/sqlite3.40.0/sqlite3400.dll b/src/runtime/tclkit86bi.vfs/lib/sqlite3.40.0/sqlite3400.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/sqlite3.40.0/sqlite3400.dll rename to src/runtime/tclkit86bi.vfs/lib/sqlite3.40.0/sqlite3400.dll diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_container1.1/container.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_container1.1/container.tcl new file mode 100644 index 00000000..aef3e688 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_container1.1/container.tcl @@ -0,0 +1,385 @@ +# -*- tcl -*- +# STUBS handling -- Container. +# +# (c) 2011,2022 Andreas Kupries http://wiki.tcl.tk/andreas%20kupries + +# A stubs table is represented by a dictionary value. +# A container is a variable holding a stubs table value. + +# stubs table dictionary keys +# +# library -- +# +# The name of the entire library. This value is used to compute +# the USE_*_STUB_PROCS macro and the name of the init file. +# +# interfaces -- +# +# A dictionary indexed by interface name that is used to maintain +# the set of valid interfaces. The value is empty. +# +# scspec -- +# +# Storage class specifier for external function declarations. +# Normally "EXTERN", may be set to something like XYZAPI +# +# epoch, revision -- +# +# The epoch and revision numbers of the interface currently being defined. +# (@@@TODO: should be an array mapping interface names -> numbers) +# +# hooks -- +# +# A dictionary indexed by interface name that contains the set of +# subinterfaces that should be defined for a given interface. +# +# stubs -- +# +# This three dimensional dictionary is indexed first by interface +# name, second by platform name, and third by a numeric +# offset. Each numeric offset contains the C function +# specification that should be used for the given entry in the +# table. The specification consists of a list in the form returned +# by ParseDecl in the stubs reader package, i.e. +# +# decl = list (return-type fun-name arguments) +# arguments = void | list (arg-info ...) +# arg-info = list (type name ?array?) +# array = '[]' +# +# last -- +# +# This two dimensional dictionary is indexed first by interface name, +# and second by platform name. The associated entry contains the +# largest numeric offset used for a given interface/platform +# combo. + +# # ## ### ##### ######## ############# +## Requisites + +package require Tcl 8.6 + +namespace eval ::stubs::container {} + +# # ## ### ##### ######## ############# +## Implementation. + +proc ::stubs::container::new {} { + return { + library "UNKNOWN" + interfaces {} + hooks {} + stubs {} + last {} + scspec "EXTERN" + epoch {} + revision 0 + } +} + +# Methods to incrementally fill the container with data. Strongly +# related to the API commands of the stubs reader package. + +proc ::stubs::container::library {tablevar name} { + upvar 1 $tablevar t + dict set t library $name + return +} + +proc ::stubs::container::interface {tablevar name} { + upvar 1 $tablevar t + if {[dict exists $t interfaces $name]} { + return -code error "Duplicate declaration of interface \"$name\"" + } + dict set t interfaces $name {} + return +} + +proc ::stubs::container::scspec {tablevar value} { + upvar 1 $tablevar t + dict set t scspec $value + return +} + +proc ::stubs::container::epoch {tablevar value} { + upvar 1 $tablevar t + + if {![string is integer -strict $value]} { + return -code error "Expected integer for epoch, but got \"$value\"" + } + + dict set t epoch $value + return +} + +proc ::stubs::container::hooks {tablevar interface names} { + upvar 1 $tablevar t + dict set t hooks $interface $names + return +} + +proc ::stubs::container::declare {tablevar interface index platforms decl} { + variable legalplatforms + upvar 1 $tablevar t + + #puts "DECLARE ($interface $index) \[$platforms\] =\n\t'[join $decl "'\n\t'"]'" + + if {![dict exists $t interfaces $interface]} { + return -code error "Unknown interface \"$interface\"" + } + if {![string is integer -strict $index]} { + return -code error "Bad index \"$index\", expected integer" + } + + # legal platform codes + # - unix, win, macosx, x11, aqua + + # Check for duplicate declarations, then add the declaration and + # bump the lastNum counter if necessary. + + foreach platform $platforms { + if {![dict exists $legalplatforms $platform]} { + set expected [linsert [join [lsort -dict [dict keys $legalplatforms]] {, }] end-1 or] + return -code error "Bad platform \"$platform\", expected one of $expected" + } + + set key $interface,$platform,$index + if {[dict exists $t stubs $key]} { + return -code error \ + "Duplicate entry: declare $interface $index $platforms $decl" + } + } + + if {![llength $decl]} return + + dict incr t revision + + foreach platform $platforms { + set group $interface,$platform + set key $interface,$platform,$index + + dict set t stubs $key $decl + if {![dict exists $t last $group] || + ($index > [dict get $t last $group])} { + dict set t last $group $index + } + } + return +} + +# # ## ### ##### ######## ############# +# Testing methods. + +proc ::stubs::container::library? {table} { + return [dict get $table library] +} + +proc ::stubs::container::hooks? {table interface} { + if {![dict exists $table interfaces $interface]} { + return -code error "Unknown interface \"$interface\"" + } + return [dict exists $table hooks $interface] +} + +proc ::stubs::container::slot? {table interface platform at} { + if {![dict exists $table interfaces $interface]} { + return -code error "Unknown interface \"$interface\"" + } + return [dict exists $table stubs $interface,$platform,$at] +} + +proc ::stubs::container::scspec? {table} { + return [dict get $table scspec] +} + +proc ::stubs::container::revision? {table} { + return [dict get $table revision] +} + +proc ::stubs::container::epoch? {table} { + return [dict get $table epoch] +} + +# # ## ### ##### ######## ############# +# Accessor methods. + +proc ::stubs::container::interfaces {table} { + return [dict keys [dict get $table interfaces]] +} + +proc ::stubs::container::hooksof {table interface} { + if {![dict exists $table interfaces $interface]} { + return -code error "Unknown interface \"$interface\"" + } + if {![dict exists $table hooks $interface]} { + return {} + } + return [dict get $table hooks $interface] +} + +proc ::stubs::container::platforms {table interface} { + if {![dict exists $table interfaces $interface]} { + return -code error "Unknown interface \"$interface\"" + } + set res {} + #checker exclude warnArgWrite + dict with table { + #checker -scope block exclude warnUndefinedVar + # 'last' is dict element. + foreach k [dict keys $last $interface,*] { + lappend res [lindex [split $k ,] end] + } + } + return $res +} + +proc ::stubs::container::lastof {table interface {platform {}}} { + if {![dict exists $table interfaces $interface]} { + return -code error "Unknown interface \"$interface\"" + } + if {[llength [info level 0]] == 4} { + set key $interface,$platform + if {![dict exists $table last $key]} { + return -1 + } + return [dict get $table last $key] + } + + set res {} + #checker exclude warnArgWrite + dict with table { + #checker -scope block exclude warnUndefinedVar + # 'last' is dict element. + foreach k [dict keys $last $interface,*] { + lappend res [dict get $last $k] + } + } + return $res +} + +proc ::stubs::container::slotplatforms {table interface at} { + if {![dict exists $table interfaces $interface]} { + return -code error "Unknown interface \"$interface\"" + } + set res {} + #checker exclude warnArgWrite + dict with table { + #checker -scope block exclude warnUndefinedVar + # 'stubs' is dict element. + foreach k [dict keys $stubs $interface,*,$at] { + lappend res [lindex [split $k ,] 1] + } + } + return $res +} + +proc ::stubs::container::slot {table interface platform at} { + if {![dict exists $table interfaces $interface]} { + return -code error "Unknown interface \"$interface\"" + } + if {![dict exists $table stubs $interface,$platform,$at]} { + return -code error "Unknown slot \"$platform,$at\"" + } + return [dict get $table stubs $interface,$platform,$at] +} + +# # ## ### ##### ######## ############# +## Serialize, also nicely formatted for readability. + +proc ::stubs::container::print {table} { + + lappend lines "stubs [list [library? $table]] \{" + lappend lines " scspec [list [scspec? $table]]" + lappend lines " epoch [list [epoch? $table]]" + lappend lines " revision [list [revision? $table]]" + + foreach if [interfaces $table] { + lappend lines " interface [list $if] \{" + lappend lines " hooks [list [hooksof $table $if]]" + + set n -1 + foreach l [lastof $table $if] { + if {$l > $n} { set n $l } + } + # n = max lastof for the interface. + + for {set at 0} {$at <= $n} {incr at} { + + set pl [slotplatforms $table $if $at] + if {![llength $pl]} continue + + foreach p $pl { + lappend d $p [slot $table $if $p $at] + #puts |[lindex $d end-1]|[lindex $d end]| + } + # d = list of decls for the slot, per platform. + # invert and collapse... + + foreach {d plist} [Invert $d] { + #puts |$d| + #puts <$plist> + + # d = list (rtype fname arguments) + # arguments = list (argdef) + # argdef = list (atype aname arrayflag) + # | list (atype aname) + # | list (atype) + + lassign $d rtype fname fargs + + lappend lines " declare $at [list $plist] \{" + lappend lines " function [list $fname]" + lappend lines " return [list $rtype]" + foreach a $fargs { + lappend lines " argument [list $a]" + } + lappend lines " \}" + } + } + + lappend lines " \}" + } + + lappend lines "\}" + + return [join $lines \n] +} + +proc ::stubs::container::Invert {dict} { + # input dict : key -> list(value) + # result is a dict : value -> list(key) + + array set res {} + foreach {k v} $dict { + lappend res($v) $k + } + #parray res + set final {} + foreach k [lsort -dict [array names res]] { + lappend final $k [lsort -dict $res($k)] + } + return $final +} + +# # ## ### ##### ######## ############# +## API + +namespace eval ::stubs::container { + variable legalplatforms { + generic . + unix . + win . + macosx . + x11 . + aqua . + } + + namespace export \ + new library interface scspec epoch hooks declare \ + library? hooks? slot? scspec? revision? epoch? \ + interfaces hooksof platforms lastof slotplatforms slot +} + +# # ## ### ##### +package provide stubs::container 1.1 +return diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_container1.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_container1.1/pkgIndex.tcl new file mode 100644 index 00000000..c4ec3aaa --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_container1.1/pkgIndex.tcl @@ -0,0 +1,3 @@ +if {![package vsatisfies [package provide Tcl] 8.6]} {return} +#checker -scope global exclude warnUndefinedVar +package ifneeded stubs::container 1.1 [list source [file join $dir container.tcl]] diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_gen_decl1.1/gen_decl.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_decl1.1/gen_decl.tcl new file mode 100644 index 00000000..46dca7a4 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_decl1.1/gen_decl.tcl @@ -0,0 +1,118 @@ +# -*- tcl -*- +# STUBS handling -- Code generation: Writing declarations. +# +# (c) 2011,2022 Andreas Kupries http://wiki.tcl.tk/andreas%20kupries + +# A stubs table is represented by a dictionary value. +# A gen is a variable holding a stubs table value. + +# # ## ### ##### ######## ############# +## Requisites + +package require Tcl 8.6 +package require stubs::gen +package require stubs::container + +namespace eval ::stubs::gen::decl::g { + namespace import ::stubs::gen::* +} + +namespace eval ::stubs::gen::decl::c { + namespace import ::stubs::container::* +} + +# # ## ### ##### ######## ############# +## Implementation. + +proc ::stubs::gen::decl::gen {table name} { + set text "\n/*\n * Exported function declarations:\n */\n\n" + append text [g::forall $table $name [list [namespace current]::Make $table] 0] + return $text +} + +# # ## ### ##### +## Internal helpers. + +proc ::stubs::gen::decl::Make {table name decl index} { + #puts "DECL($name $index) = |$decl|" + + lassign $decl rtype fname args + + append text "/* $index */\n" + + set line "[c::scspec? $table] $rtype" + set count [expr {2 - ([string length $line] / 8)}] + append line [string range "\t\t\t" 0 $count] + + set pad [expr {24 - [string length $line]}] + if {$pad <= 0} { + append line " " + set pad 0 + } + + if {![llength $args]} { + append text $line $fname ";\n" + return $text + } + + set arg1 [lindex $args 0] + switch -exact -- $arg1 { + void { + append text $line $fname "(void)" + } + TCL_VARARGS { + append line $fname + append text [MakeArgs $line $pad [lrange $args 1 end] ", ..."] + } + default { + append line $fname + append text [MakeArgs $line $pad $args] + } + } + append text ";\n" + return $text +} + +proc ::stubs::gen::decl::MakeArgs {line pad arguments {suffix {}}} { + #checker -scope local exclude warnArgWrite + set text "" + set sep "(" + foreach arg $arguments { + append line $sep + set next {} + + lassign $arg atype aname aind + + append next $atype + if {[string index $next end] ne "*"} { + append next " " + } + append next $aname $aind + + if {([string length $line] + [string length $next] + $pad) > 76} { + append text [string trimright $line] \n + set line "\t\t\t\t" + set pad 28 + } + append line $next + set sep ", " + } + append line "$suffix)" + + if {[lindex $arguments end] eq "{const char *} format"} { + # TCL_VARARGS case... arguments list already shrunken. + set n [llength $arguments] + append line " TCL_FORMAT_PRINTF(" $n ", " [expr {$n + 1}] ")" + } + + return $text$line +} + +# # ## ### ##### +namespace eval ::stubs::gen::decl { + namespace export gen +} + +# # ## ### ##### +package provide stubs::gen::decl 1.1 +return diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_gen_decl1.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_decl1.1/pkgIndex.tcl new file mode 100644 index 00000000..b2a42925 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_decl1.1/pkgIndex.tcl @@ -0,0 +1,3 @@ +if {![package vsatisfies [package provide Tcl] 8.6]} {return} +#checker -scope global exclude warnUndefinedVar +package ifneeded stubs::gen::decl 1.1 [list source [file join $dir gen_decl.tcl]] diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_gen_header1.1/gen_header.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_header1.1/gen_header.tcl new file mode 100644 index 00000000..27808609 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_header1.1/gen_header.tcl @@ -0,0 +1,110 @@ +# -*- tcl -*- +# STUBS handling -- Code generation: Writing the stub headers. +# +# (c) 2011,2022 Andreas Kupries http://wiki.tcl.tk/andreas%20kupries + +# A stubs table is represented by a dictionary value. +# A gen is a variable holding a stubs table value. + +# # ## ### ##### ######## ############# +## Requisites + +package require Tcl 8.6 +package require stubs::gen +package require stubs::container +package require stubs::gen::slot +package require stubs::gen::macro +package require stubs::gen::decl + +namespace eval ::stubs::gen::header::g { + namespace import ::stubs::gen::* +} +namespace eval ::stubs::gen::header::c { + namespace import ::stubs::container::* +} +namespace eval ::stubs::gen::header::s { + namespace import ::stubs::gen::slot::* +} +namespace eval ::stubs::gen::header::m { + namespace import ::stubs::gen::macro::* +} +namespace eval ::stubs::gen::header::d { + namespace import ::stubs::gen::decl::* +} + +# # ## ### ##### ######## ############# +## Implementation. + +proc ::stubs::gen::header::multiline {{flag 1}} { + return [m::multiline $flag] +} + +proc ::stubs::gen::header::gen {table name} { + set capName [g::cap $name] + + set epoch [c::epoch? $table] + if {$epoch ne ""} { + set CAPName [string toupper $name] + append text "\n" + append text "#define ${CAPName}_STUBS_EPOCH $epoch\n" + append text "#define ${CAPName}_STUBS_REVISION [c::revision? $table]\n" + } + + # declarations... + append text [d::gen $table $name] + + if {[c::hooks? $table $name]} { + append text "\ntypedef struct ${capName}StubHooks {\n" + foreach hook [c::hooksof $table $name] { + set capHook [g::cap $hook] + append text " const struct ${capHook}Stubs *${hook}Stubs;\n" + } + append text "} ${capName}StubHooks;\n" + } + + # stub table type definition, including field definitions aka slots... + append text "\ntypedef struct ${capName}Stubs {\n" + append text " int magic;\n" + if {$epoch ne ""} { + append text " int epoch;\n" + append text " int revision;\n" + } + append text " const struct ${capName}StubHooks *hooks;\n\n" + append text [s::gen $table $name] + append text "} ${capName}Stubs;\n" + + # stub table global variable + append text "\n#ifdef __cplusplus\nextern \"C\" {\n#endif\n" + append text "extern const ${capName}Stubs *${name}StubsPtr;\n" + append text "#ifdef __cplusplus\n}\n#endif\n" + + # last, the series of macros for stub users which will route + # function calls through the table. + append text [m::gen $table $name] + + return $text +} + +proc ::stubs::gen::header::rewrite@ {basedir table name} { + rewrite [path $basedir $name] $table $name +} + +proc ::stubs::gen::header::rewrite {path table name} { + g::rewrite $path [gen $table $name] +} + +proc ::stubs::gen::header::path {basedir name} { + return [file join $basedir ${name}Decls.h] +} + +# # ## ### ##### +## Internal helpers. + +# # ## ### ##### +namespace eval ::stubs::gen::header { + namespace export gen multiline rewrite@ rewrite path +} + +# # ## ### ##### ######## ############# +package provide stubs::gen::header 1.1 +return diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_gen_header1.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_header1.1/pkgIndex.tcl new file mode 100644 index 00000000..8e2a6a00 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_header1.1/pkgIndex.tcl @@ -0,0 +1,3 @@ +if {![package vsatisfies [package provide Tcl] 8.6]} {return} +#checker -scope global exclude warnUndefinedVar +package ifneeded stubs::gen::header 1.1 [list source [file join $dir gen_header.tcl]] diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_gen_init1.1/gen_init.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_init1.1/gen_init.tcl new file mode 100644 index 00000000..f0ce1c6a --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_init1.1/gen_init.tcl @@ -0,0 +1,188 @@ +# -*- tcl -*- +# STUBS handling -- Code generation: Writing the initialization code for EXPORTers. +# +# (c) 2011,2022 Andreas Kupries http://wiki.tcl.tk/andreas%20kupries + +# A stubs table is represented by a dictionary value. +# A gen is a variable holding a stubs table value. + +# # ## ### ##### ######## ############# +## Requisites + +package require Tcl 8.6 +package require stubs::gen +package require stubs::container + +namespace eval ::stubs::gen::init::g { + namespace import ::stubs::gen::* +} + +namespace eval ::stubs::gen::init::c { + namespace import ::stubs::container::* +} + +# # ## ### ##### ######## ############# +## Implementation. + +proc ::stubs::gen::init::gen {table} { + # Assuming that dependencies only go one level deep, we need to + # emit all of the leaves first to avoid needing forward + # declarations. + + set leaves {} + set roots {} + + foreach name [lsort [c::interfaces $table]] { + if {[c::hooks? $table $name]} { + lappend roots $name + } else { + lappend leaves $name + } + } + + set text {} + foreach name $leaves { + append text [Emit $table $name] + } + foreach name $roots { + append text [Emit $table $name] + } + + return $text +} + +proc ::stubs::gen::init::make@ {basedir table} { + make [path $basedir $table] $table +} + +proc ::stubs::gen::init::make {path table} { + variable template + + set c [open $path w] + puts -nonewline $c \ + [string map \ + [list @@ [string map {:: _} [c::library? $table]]] \ + $template] + close $c + + rewrite $path $table + return +} + +proc ::stubs::gen::init::rewrite@ {basedir table} { + rewrite [path $basedir $table] $table + return +} + +proc ::stubs::gen::init::rewrite {path table} { + g::rewrite $path [gen $table] + return +} + +proc ::stubs::gen::init::path {basedir table} { + return [file join $basedir [c::library? $table]StubInit.c] +} + +# # ## ### ##### +## Internal helpers. + +proc ::stubs::gen::init::Emit {table name} { + # See tcllib/textutil as well. + set capName [g::cap $name] + + if {[c::hooks? $table $name]} { + append text "\nstatic const ${capName}StubHooks ${name}StubHooks = \{\n" + set sep " " + foreach sub [c::hooksof $table $name] { + append text $sep "&${sub}Stubs" + set sep ",\n " + } + append text "\n\};\n" + } + + # Check if this interface is a hook for some other interface. + # TODO: Make this a container API command. + set root 1 + foreach intf [c::interfaces $table] { + if {[c::hooks? $table $intf] && + ([lsearch -exact [c::hooksof $table $intf] $name] >= 0)} { + set root 0 + break + } + } + + # Hooks are local to the file. + append text "\n" + if {!$root} { + append text "static " + } + append text "const ${capName}Stubs ${name}Stubs = \{\n" + append text " TCL_STUB_MAGIC,\n" + + if {[c::epoch? $table] ne ""} { + set CAPName [string toupper $name] + append text " ${CAPName}_STUBS_EPOCH,\n" + append text " ${CAPName}_STUBS_REVISION,\n" + } + + if {[c::hooks? $table $name]} { + append text " &${name}StubHooks,\n" + } else { + append text " 0,\n" + } + + append text [g::forall $table $name [namespace current]::Make 1 \ + " 0, /* @@ */\n"] + + append text "\};\n" + return $text +} + +# Make -- +# +# Generate the prototype for a function. +# +# Arguments: +# name The interface name. +# decl The function declaration. +# index The slot index for this function. +# +# Results: +# Returns the formatted declaration string. + +proc ::stubs::gen::init::Make {name decl index} { + #puts "INIT($name $index) = |$decl|" + + lassign $decl rtype fname args + + if {![llength $args]} { + append text " &$fname, /* $index */\n" + } else { + append text " $fname, /* $index */\n" + } + return $text +} + +# # ## ### ##### +namespace eval ::stubs::gen::init { + #checker exclude warnShadowVar + variable template [string map {{ } {}} { + /* @@StubsInit.c + * + * The contents of this file are automatically generated + * from the @@.decls file. + * + */ + + #include "@@.h" + + /* !BEGIN!: Do not edit below this line. */ + /* !END!: Do not edit above this line. */ + }] + + namespace export gen make@ make rewrite@ rewrite path +} + +# # ## ### ##### ######## ############# +package provide stubs::gen::init 1.1 +return diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_gen_init1.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_init1.1/pkgIndex.tcl new file mode 100644 index 00000000..b4c100ac --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_init1.1/pkgIndex.tcl @@ -0,0 +1,3 @@ +if {![package vsatisfies [package provide Tcl] 8.6]} {return} +#checker -scope global exclude warnUndefinedVar +package ifneeded stubs::gen::init 1.1 [list source [file join $dir gen_init.tcl]] diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_gen_lib1.1/gen_lib.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_lib1.1/gen_lib.tcl new file mode 100644 index 00000000..284a3b1d --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_lib1.1/gen_lib.tcl @@ -0,0 +1,214 @@ +# -*- tcl -*- +# STUBS handling -- Code generation: Writing the initialization code for IMPORTers. +# +# (c) 2011,2022 Andreas Kupries http://wiki.tcl.tk/andreas%20kupries + +# A stubs table is represented by a dictionary value. +# A gen is a variable holding a stubs table value. + +# # ## ### ##### ######## ############# +## Requisites + +package require Tcl 8.6 +package require stubs::gen +package require stubs::container + +namespace eval ::stubs::gen::lib::g { + namespace import ::stubs::gen::* +} + +namespace eval ::stubs::gen::lib::c { + namespace import ::stubs::container::* +} + +# # ## ### ##### ######## ############# +## Implementation. + +proc ::stubs::gen::lib::gen {table} { + # Assuming that dependencies only go one level deep, we need to + # emit all of the leaves first to avoid needing forward + # declarations. + + variable template + + # Assuming that dependencies only go one level deep, we emit all + # of the leaves first to avoid needing forward declarations. + + set leaves {} + set roots {} + + foreach name [lsort [c::interfaces $table]] { + if {[c::hooks? $table $name]} { + lappend roots $name + } else { + lappend leaves $name + } + } + + set headers {} + set variables {} + set hooks {} + + foreach name [concat $leaves $roots] { + set capName [g::cap $name] + + # POLISH - format the variables code block aligned using + # maxlength of interface names. + lappend headers "\#include \"${name}Decls.h\"" + lappend variables "const ${capName}Stubs* ${name}StubsPtr;" + + # Check if this is a hook. If yes it needs additional setup. + set parent [Parent $table $name] + if {$parent eq ""} continue + lappend hooks " ${name}StubsPtr = ${parent}StubsPtr->hooks->${name}Stubs;" + } + + set pname [c::library? $table] ; # FUTURE: May be separate from the library + # namespaces! + set name [string map {:: _} [c::library? $table]] + set capName [g::cap $name] + set upName [string toupper $name] + + set headers [Block $headers] + set variables [Block $variables] + set hooks [Block $hooks] + + return [string map \ + [list \ + @PKG@ $pname \ + @@ $name \ + @UP@ $upName \ + @CAP@ $capName \ + @HEADERS@ $headers \ + @VARS@ $variables \ + @HOOKS@ $hooks \ + ] $template] + return $text +} + +proc ::stubs::gen::lib::Block {list} { + if {![llength $list]} { return "" } + return \n[join $list \n]\n +} + +proc ::stubs::gen::lib::make@ {basedir table} { + make [path $basedir [c::library? $table]] $table +} + +proc ::stubs::gen::lib::make {path table} { + set c [open $path w] + puts -nonewline $c [gen $table] + close $c + return +} + +proc ::stubs::gen::lib::path {basedir name} { + return [file join $basedir ${name}StubLib.c] +} + +# # ## ### ##### +## Internal helpers. + +proc ::stubs::gen::lib::Parent {table name} { + # Check if this interface is a hook for some other interface. + # TODO: Make this a container API command. + foreach intf [c::interfaces $table] { + if {[c::hooks? $table $intf] && + ([lsearch -exact [c::hooksof $table $intf] $name] >= 0)} { + return $intf + } + } + return "" +} + +# # ## ### ##### +namespace eval ::stubs::gen::lib { + #checker exclude warnShadowVar + variable template [string map {{ + } { +}} { + /* + * @@StubLib.c -- + * + * Stub object that will be statically linked into extensions that wish + * to access @@. + */ + + /* + * We need to ensure that we use the stub macros so that this file contains + * no references to any of the stub functions. This will make it possible + * to build an extension that references @CAP@_InitStubs but doesn't end up + * including the rest of the stub functions. + */ + + #ifndef USE_TCL_STUBS + #define USE_TCL_STUBS + #endif + #undef USE_TCL_STUB_PROCS + + #include + + #ifndef USE_@UP@_STUBS + #define USE_@UP@_STUBS + #endif + #undef USE_@UP@_STUB_PROCS + @HEADERS@ + /* + * Ensure that @CAP@_InitStubs is built as an exported symbol. The other stub + * functions should be built as non-exported symbols. + */ + + #undef TCL_STORAGE_CLASS + #define TCL_STORAGE_CLASS DLLEXPORT + @VARS@ + + /* + *---------------------------------------------------------------------- + * + * @CAP@_InitStubs -- + * + * Checks that the correct version of @CAP@ is loaded and that it + * supports stubs. It then initialises the stub table pointers. + * + * Results: + * The actual version of @CAP@ that satisfies the request, or + * NULL to indicate that an error occurred. + * + * Side effects: + * Sets the stub table pointers. + * + *---------------------------------------------------------------------- + */ + + #ifdef @CAP@_InitStubs + #undef @CAP@_InitStubs + #endif + + char * + @CAP@_InitStubs(Tcl_Interp *interp, CONST char *version, int exact) + { + CONST char *actualVersion; + + actualVersion = Tcl_PkgRequireEx(interp, "@PKG@", version, + exact, (ClientData *) &@@StubsPtr); + if (!actualVersion) { + return NULL; + } + + if (!@@StubsPtr) { + Tcl_SetResult(interp, + "This implementation of @CAP@ does not support stubs", + TCL_STATIC); + return NULL; + } + @HOOKS@ + return (char*) actualVersion; + } + }] + + namespace export gen make@ make rewrite@ rewrite path +} + +# # ## ### ##### ######## ############# +package provide stubs::gen::lib 1.1 +return diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_gen_lib1.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_lib1.1/pkgIndex.tcl new file mode 100644 index 00000000..02317099 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_lib1.1/pkgIndex.tcl @@ -0,0 +1,3 @@ +if {![package vsatisfies [package provide Tcl] 8.6]} {return} +#checker -scope global exclude warnUndefinedVar +package ifneeded stubs::gen::lib 1.1 [list source [file join $dir gen_lib.tcl]] diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_gen_macro1.1/gen_macro.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_macro1.1/gen_macro.tcl new file mode 100644 index 00000000..b99ae9b7 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_macro1.1/gen_macro.tcl @@ -0,0 +1,73 @@ +# -*- tcl -*- +# STUBS handling -- Code generation: Writing the stub macros. +# +# (c) 2011,2022 Andreas Kupries http://wiki.tcl.tk/andreas%20kupries + +# A stubs table is represented by a dictionary value. +# A gen is a variable holding a stubs table value. + +# # ## ### ##### ######## ############# +## Requisites + +package require Tcl 8.6 +package require stubs::gen +package require stubs::container + +namespace eval ::stubs::gen::macro::g { + namespace import ::stubs::gen::* +} + +namespace eval ::stubs::gen::macro::c { + namespace import ::stubs::container::* +} + +# # ## ### ##### ######## ############# +## Implementation. + +proc ::stubs::gen::macro::multiline {{flag 1}} { + variable multiline $flag + return $flag +} + +proc ::stubs::gen::macro::gen {table name} { + set upName [string toupper [string map {:: _} [c::library? $table]]] + set sguard "defined(USE_${upName}_STUBS)" + + append text "\n#if $sguard\n" + append text "\n/*\n * Inline function declarations:\n */\n\n" + append text [g::forall $table $name [namespace current]::Make 0] + append text "\n#endif /* $sguard */\n" + return $text +} + +# # ## ### ##### +## Internal helpers. + +proc ::stubs::gen::macro::Make {name decl index} { + variable multiline + #puts "MACRO($name $index) = |$decl|" + + lassign $decl rtype fname args + + set capName [g::uncap $fname] + + append text "#define $fname " + if {$multiline} { append text "\\\n\t" } + append text "(" + if {![llength $args]} { append text "*" } + append text "${name}StubsPtr->$capName)" + append text " /* $index */\n" + return $text +} + +# # ## ### ##### +namespace eval ::stubs::gen::macro { + #checker exclude warnShadowVar + variable multiline 1 + + namespace export gen multiline +} + +# # ## ### ##### ######## ############# +package provide stubs::gen::macro 1.1 +return diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_gen_macro1.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_macro1.1/pkgIndex.tcl new file mode 100644 index 00000000..7940e2f4 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_macro1.1/pkgIndex.tcl @@ -0,0 +1,3 @@ +if {![package vsatisfies [package provide Tcl] 8.6]} {return} +#checker -scope global exclude warnUndefinedVar +package ifneeded stubs::gen::macro 1.1 [list source [file join $dir gen_macro.tcl]] diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_gen_slot1.1/gen_slot.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_slot1.1/gen_slot.tcl new file mode 100644 index 00000000..a8ec1cee --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_slot1.1/gen_slot.tcl @@ -0,0 +1,95 @@ +# -*- tcl -*- +# STUBS handling -- Code generation: Writing SLOT code. +# +# (c) 2011,2022 Andreas Kupries http://wiki.tcl.tk/andreas%20kupries + +# # ## ### ##### ######## ############# +## Requisites + +package require Tcl 8.6 +package require stubs::gen + +namespace eval ::stubs::gen::slot::g { + namespace import ::stubs::gen::* +} + +# # ## ### ##### ######## ############# +## Implementation. + +proc ::stubs::gen::slot::gen {table name} { + return [g::forall $table $name [namespace current]::Make 1 \ + " void (*reserved@@)(void);\n"] +} + +# # ## ### ##### +## Internal helpers. + +proc ::stubs::gen::slot::Make {name decl index} { + #puts "SLOT($name $index) = |$decl|" + + lassign $decl rtype fname args + + set capName [g::uncap $fname] + + set text " " + if {![llength $args]} { + append text $rtype " *" $capName "; /* $index */\n" + return $text + } + + if {[string range $rtype end-7 end] eq "CALLBACK"} { + append text \ + [string trim [string range $rtype 0 end-8]] \ + " (CALLBACK *" $capName ") " + } else { + append text $rtype " (*" $capName ") " + } + + set arg1 [lindex $args 0] + switch -exact -- $arg1 { + void { + append text "(void)" + } + TCL_VARARGS { + append text [MakeArgs [lrange $args 1 end] ", ..."] + } + default { + append text [MakeArgs $args] + } + } + + append text "; /* $index */\n" + return $text +} + +proc ::stubs::gen::slot::MakeArgs {arguments {suffix {}}} { + set text "" + set sep "(" + foreach arg $arguments { + lassign $arg atype aname aind + append text $sep $atype + if {[string index $text end] ne "*"} { + append text " " + } + append text $aname $aind + set sep ", " + } + append text "$suffix)" + + if {[lindex $arguments end] eq "\{const char *\} format"} { + # TCL_VARARGS case... arguments list already shrunken. + set n [llength $arguments] + append text " TCL_FORMAT_PRINTF(" $n ", " [expr {$n + 1}] ")" + } + + return $text +} + +# # ## ### ##### +namespace eval ::stubs::gen::slot { + namespace export gen +} + +# # ## ### ##### +package provide stubs::gen::slot 1.1 +return diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_gen_slot1.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_slot1.1/pkgIndex.tcl new file mode 100644 index 00000000..67ec3325 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_gen_slot1.1/pkgIndex.tcl @@ -0,0 +1,3 @@ +if {![package vsatisfies [package provide Tcl] 8.6]} {return} +#checker -scope global exclude warnUndefinedVar +package ifneeded stubs::gen::slot 1.1 [list source [file join $dir gen_slot.tcl]] diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_genframe1.1/genframe.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_genframe1.1/genframe.tcl new file mode 100644 index 00000000..02e468e0 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_genframe1.1/genframe.tcl @@ -0,0 +1,418 @@ +# -*- tcl -*- +# STUBS handling -- Code generation framework. +# +# (c) 2011,2022 Andreas Kupries http://wiki.tcl.tk/andreas%20kupries + +# A stubs table is represented by a dictionary value. +# A gen is a variable holding a stubs table value. + +# # ## ### ##### ######## ############# +## Requisites + +package require Tcl 8.6 +package require stubs::container + +namespace eval ::stubs::gen::c { + namespace import ::stubs::container::* +} + +# # ## ### ##### ######## ############# +## Implementation. + +proc ::stubs::gen::warn {cmdprefix} { + variable warnCmd $cmdprefix + return +} + +proc ::stubs::gen::uncap {text} { + return [string tolower [string index $text 0]][string range $text 1 end] +} + +proc ::stubs::gen::cap {text} { + return [string toupper [string index $text 0]][string range $text 1 end] +} + +proc ::stubs::gen::forall {table name emitCmd onAll {skipString {}}} { + if {$skipString eq {}} { + #checker exclude warnArgWrite + set skipString "/* Slot @@ is reserved */\n" + } + + set platforms [c::platforms $table $name] + + if {[lsearch -exact $platforms "generic"] >= 0} { + # Emit integrated stubs block + set lastNum [MAX [c::lastof $table $name]] + + for {set i 0} {$i <= $lastNum} {incr i} { + + set slots [c::slotplatforms $table $name $i] + set emit 0 + if {[lsearch -exact $slots "generic"] >= 0} { + if {[llength $slots] > 1} { + WARN {conflicting generic and platform entries: $name $i} + } + + append text [CALL generic $i] + set emit 1 + + } elseif {[llength $slots] > 0} { + + array set slot {unix 0 x11 0 win 0 macosx 0 aqua 0} + foreach s $slots { set slot($s) 1 } + # "aqua", "macosx" and "x11" are special cases: + # "macosx" implies "unix", "aqua" implies "macosx" and "x11" + # implies "unix", so we need to be careful not to emit + # duplicate stubs entries: + if {($slot(unix) && $slot(macosx)) || + (($slot(unix) || $slot(macosx)) && + ($slot(x11) || $slot(aqua)))} { + WARN {conflicting platform entries: $name $i} + } + ## unix ## + set temp {} + set plat unix + if {!$slot(aqua) && !$slot(x11)} { + if {$slot($plat)} { + append temp [CALL $plat $i] + } elseif {$onAll} { + append temp [SKIP] + } + } + if {$temp ne ""} { + append text [AddPlatformGuard $plat $temp] + set emit 1 + } + ## x11 ## + set temp {} + set plat x11 + if {!$slot(unix) && !$slot(macosx)} { + if {$slot($plat)} { + append temp [CALL $plat $i] + } elseif {$onAll} { + append temp [SKIP] + } + } + if {$temp ne ""} { + append text [AddPlatformGuard $plat $temp] + set emit 1 + } + ## win ## + set temp {} + set plat win + if {$slot($plat)} { + append temp [CALL $plat $i] + } elseif {$onAll} { + append temp [SKIP] + } + if {$temp ne ""} { + append text [AddPlatformGuard $plat $temp] + set emit 1 + } + ## macosx ## + set temp {} + set plat macosx + if {!$slot(aqua) && !$slot(x11)} { + if {$slot($plat)} { + append temp [CALL $plat $i] + } elseif {$slot(unix)} { + append temp [CALL unix $i] + } elseif {$onAll} { + append temp [SKIP] + } + } + if {$temp ne ""} { + append text [AddPlatformGuard $plat $temp] + set emit 1 + } + ## aqua ## + set temp {} + set plat aqua + if {!$slot(unix) && !$slot(macosx)} { + if {[string range $skipString 0 1] ne "/*"} { + # The code previously had a bug here causing + # it to erroneously generate both a unix entry + # and an aqua entry for a given stubs table + # slot. To preserve backwards compatibility, + # generate a dummy stubs entry before every + # aqua entry (note that this breaks the + # correspondence between emitted entry number + # and actual position of the entry in the + # stubs table, e.g. TkIntStubs entry 113 for + # aqua is in fact at position 114 in the + # table, entry 114 at position 116 etc). + append temp [SKIP] + CHOP temp + append temp " /*\ + Dummy entry for stubs table backwards\ + compatibility */\n" + } + if {$slot($plat)} { + append temp [CALL $plat $i] + } elseif {$onAll} { + append temp [SKIP] + } + } + if {$temp ne ""} { + append text [AddPlatformGuard $plat $temp] + set emit 1 + } + } + if {!$emit} { + append text [SKIP] + } + } + } else { + # Emit separate stubs blocks per platform + array set block {unix 0 x11 0 win 0 macosx 0 aqua 0} + foreach s $platforms { set block($s) 1 } + + ## unix ## + if {$block(unix) && !$block(x11)} { + set temp {} + set plat unix + + # (1) put into helper method + set lastNum [c::lastof $table $name $plat] + for {set i 0} {$i <= $lastNum} {incr i} { + if {[c::slot? $table $name $plat $i]} { + append temp [CALL $plat $i] + } else { + append temp [SKIP] + } + } + append text [AddPlatformGuard $plat $temp] + } + ## win ## + if {$block(win)} { + set temp {} + set plat win + + # (1) put into helper method + set lastNum [c::lastof $table $name $plat] + for {set i 0} {$i <= $lastNum} {incr i} { + if {[c::slot? $table $name $plat $i]} { + append temp [CALL $plat $i] + } else { + append temp [SKIP] + } + } + append text [AddPlatformGuard $plat $temp] + } + ## macosx ## + if {$block(macosx) && !$block(aqua) && !$block(x11)} { + set temp {} + set lastNum [MAX [list \ + [c::lastof $table $name unix] \ + [c::lastof $table $name macosx]]] + + for {set i 0} {$i <= $lastNum} {incr i} { + set emit 0 + foreach plat {unix macosx} { + if {[c::slot? $table $name $plat $i]} { + append temp [CALL $plat $i] + set emit 1 + break + } + } + if {!$emit} { + append temp [SKIP] + } + } + append text [AddPlatformGuard macosx $temp] + } + ## aqua ## + if {$block(aqua)} { + set temp {} + set lastNum [MAX [list \ + [c::lastof $table $name unix] \ + [c::lastof $table $name macosx] \ + [c::lastof $table $name aqua]]] + + for {set i 0} {$i <= $lastNum} {incr i} { + set emit 0 + foreach plat {unix macosx aqua} { + if {[c::slot? $table $name $plat $i]} { + append temp [CALL $plat $i] + set emit 1 + break + } + } + if {!$emit} { + append temp [SKIP] + } + } + append text [AddPlatformGuard aqua $temp] + } + ## x11 ## + if {$block(x11)} { + set temp {} + set lastNum [MAX [list \ + [c::lastof $table $name unix] \ + [c::lastof $table $name macosx] \ + [c::lastof $table $name x11]]] + + for {set i 0} {$i <= $lastNum} {incr i} { + set emit 0 + foreach plat {unix macosx x11} { + if {[c::slot? $table $name $plat $i]} { + if {$plat ne "macosx"} { + append temp [CALL $plat $i] + } else { + append temp [AddPlatformGuard $plat \ + [CALL $plat $i] \ + [SKIP]] + } + set emit 1 + break + } + } + if {!$emit} { + append temp [SKIP] + } + } + append text [AddPlatformGuard x11 $temp] + } + } + + return $text +} + +proc ::stubs::gen::rewrite {path newcode} { + if {![file exists $path]} { + return -code error "Cannot find file: $path" + } + + set in [open ${path} r] + set out [open ${path}.new w] + + # Hardwired use of unix line-endings in the output. + fconfigure $out -translation lf + + # Copy the file header before the code section. + while {![eof $in]} { + set line [gets $in] + if {[string match "*!BEGIN!*" $line]} break + puts $out $line + } + + puts $out "/* !BEGIN!: Do not edit below this line. */" + + # Insert the new code. + puts $out $newcode + + # Skip over the input until the end of the code section. + while {![eof $in]} { + set line [gets $in] + if {[string match "*!END!*" $line]} break + } + + # Copy the trailer after the code section. This can be done fast, + # as searching is not required anymore. + puts $out "/* !END!: Do not edit above this line. */" + puts -nonewline $out [read $in] + + # Close and commit to the changes (atomic rename). + close $in + close $out + file rename -force -- ${path}.new ${path} + return +} + +# # ## ### ##### +## Internal helpers. + +proc ::stubs::gen::CALL {platform index} { + upvar 1 table table name name emitCmd emitCmd + set decl [c::slot $table $name $platform $index] + return [uplevel \#0 [linsert $emitCmd end $name $decl $index]] +} + +proc ::stubs::gen::WARN {text} { + variable warnCmd + if {$warnCmd eq {}} return + return [uplevel \#0 [linsert $warnCmd end [uplevel 1 [list ::subst $text]]]] +} + +proc ::stubs::gen::SKIP {} { + upvar 1 skipString skipString i i + #puts stderr SKIP/$i/[string map [list {$i} $i] $skipString] + return [string map [list @@ $i] $skipString] +} + +proc ::stubs::gen::CHOP {textvar} { + upvar 1 $textvar text + set text [string range $text 0 end-1] + return +} + +proc ::stubs::gen::AddPlatformGuard {platform iftext {elsetext {}}} { + variable guard_begin + variable guard_else + variable guard_end + + set prefix [expr {![info exists guard_begin($platform)] ? "" : $guard_begin($platform)}] + set middle [expr {![info exists guard_else($platform)] ? "" : $guard_else($platform)}] + set suffix [expr {![info exists guard_end($platform)] ? "" : $guard_end($platform)}] + + return $prefix$iftext[expr {($elsetext eq "") + ? "" + : "$middle$elsetext"}]$suffix +} + +if {[package vsatisfies [package present Tcl] 8.5]} { + #checker exclude warnRedefine + proc ::stubs::gen::MAX {list} { + return [tcl::mathfunc::max {*}$list] + } +} else { + #checker exclude warnRedefine + proc ::stubs::gen::MAX {list} { + set max {} + foreach a $list { + if {($max ne {}) && ($max >= $a)} continue + set max $a + } + return $a + } +} + +# # ## ### ##### + +namespace eval ::stubs::gen { + #checker -scope block exclude warnShadowVar + variable guard_begin + variable guard_else + variable guard_end + + array set guard_begin { + win "#ifdef __WIN32__ /* WIN */\n" + unix "#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */\n" + macosx "#ifdef MAC_OSX_TCL /* MACOSX */\n" + aqua "#ifdef MAC_OSX_TK /* AQUA */\n" + x11 "#if !(defined(__WIN32__) || defined(MAC_OSX_TK)) /* X11 */\n" + } + array set guard_else { + win "#else /* WIN */\n" + unix "#else /* UNIX */\n" + macosx "#else /* MACOSX */\n" + aqua "#else /* AQUA */\n" + x11 "#else /* X11 */\n" + } + array set guard_end { + win "#endif /* WIN */\n" + unix "#endif /* UNIX */\n" + macosx "#endif /* MACOSX */\n" + aqua "#endif /* AQUA */\n" + x11 "#endif /* X11 */\n" + } + + # Default command to report conflict and other warnings. + variable warnCmd {puts stderr} + + namespace export forall rewrite warn cap uncap +} + +# # ## ### ##### +package provide stubs::gen 1.1 +return diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_genframe1.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_genframe1.1/pkgIndex.tcl new file mode 100644 index 00000000..bbac242a --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_genframe1.1/pkgIndex.tcl @@ -0,0 +1,3 @@ +if {![package vsatisfies [package provide Tcl] 8.6]} {return} +#checker -scope global exclude warnUndefinedVar +package ifneeded stubs::gen 1.1 [list source [file join $dir genframe.tcl]] diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_reader1.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_reader1.1/pkgIndex.tcl new file mode 100644 index 00000000..408c5d8f --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_reader1.1/pkgIndex.tcl @@ -0,0 +1,3 @@ +if {![package vsatisfies [package provide Tcl] 8.6]} {return} +#checker -scope global exclude warnUndefinedVar +package ifneeded stubs::reader 1.1 [list source [file join $dir reader.tcl]] diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_reader1.1/reader.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_reader1.1/reader.tcl new file mode 100644 index 00000000..c63713cc --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_reader1.1/reader.tcl @@ -0,0 +1,245 @@ +# -*- tcl -*- +# STUBS handling -- Reader. +# +# (c) 2011,2022 Andreas Kupries http://wiki.tcl.tk/andreas%20kupries + +# # ## ### ##### ######## ############# +## Requisites + +package require Tcl 8.6 +package require stubs::container + +# A stubs table is represented by a dictionary value. +# A container is a variable holding a stubs table value. + +namespace eval ::stubs::reader::c { + namespace import ::stubs::container::* +} + +# # ## ### ##### ######## ############# +## Implementation. + +proc ::stubs::reader::file {tablevar path} { + upvar 1 $tablevar table + + set chan [open $path r] + set text [read $chan] + close $chan + + text table $text + return +} + +proc ::stubs::reader::text {tablevar text} { + variable current + variable table + + upvar 1 $tablevar t + + set sandbox [interp create -safe] + + interp alias $sandbox library {} ::stubs::reader::P_library + interp alias $sandbox interface {} ::stubs::reader::P_interface + interp alias $sandbox scspec {} ::stubs::reader::P_scspec + interp alias $sandbox epoch {} ::stubs::reader::P_epoch + interp alias $sandbox hooks {} ::stubs::reader::P_hooks + interp alias $sandbox declare {} ::stubs::reader::P_declare + interp alias $sandbox export {} ::stubs::reader::P_export + + set current UNKNOWN + set table $t + + set ::errorCode {} + set ::errorInfo {} + + if {![set code [catch { + $sandbox eval $text + } res]]} { + set t $table + } + + interp delete $sandbox + unset table + + return -code $code -errorcode $::errorCode -errorinfo $::errorInfo \ + $res +} + +# READER API methods. These are called when sourcing a .decls +# file, or evaluating a .decls string. They forward to the +# attached container after pre-processing arguments and merging in +# state information (current interface). + +proc ::stubs::reader::P_library {name} { + variable table + c::library table $name + return +} + +proc ::stubs::reader::P_interface {name} { + variable table + variable current + + set current $name + c::interface table $name + return +} + +proc ::stubs::reader::P_scspec {value} { + variable table + c::scspec table $value + return +} + +proc ::stubs::reader::P_epoch {value} { + variable table + c::epoch table $value + return +} + +proc ::stubs::reader::P_hooks {names} { + variable table + variable current + + c::hooks table $current $names + return +} + +proc ::stubs::reader::P_declare {index args} { + variable table + variable current + + switch -exact [llength $args] { + 1 { + # syntax: declare AT DECL + set platforms [list generic] + set decl [lindex $args 0] + } + 2 { + # syntax: declare AT PLATFORMS DECL + lassign $args platforms decl + } + default { + return -code error \ + "wrong \# args: expected 'index ?platforms? decl" + } + } + + c::declare table $current $index $platforms [ParseDecl $decl] + return +} + +proc ::stubs::reader::P_export {decl} { + variable table + variable current + + # Ignore. + return +} + +# Support methods for parsing a C declaration into its constituent +# pieces. + +# ParseDecl -- +# +# Parse a C function declaration into its component parts. +# +# Arguments: +# decl The function declaration. +# +# Results: +# Returns a list of the form {returnType name arguments}. The arguments +# element consists of a list of type/name pairs, or a single +# element "void". If the function declaration is malformed +# then an error is displayed and the return value is {}. + +proc ::stubs::reader::ParseDecl {decl} { + #checker exclude warnArgWrite + regsub -all "\[ \t\n\]+" [string trim $decl] " " decl + #puts "PARSE ($decl)" + + if {![regexp {^(.*)\((.*)\)$} $decl --> prefix arguments]} { + set prefix $decl + set arguments {} + } + + set prefix [string trim $prefix] + if {![regexp {^(.+[ ][*]*)([^ *]+)$} $prefix --> rtype fname]} { + return -code error "Bad return type: $decl" + } + + set rtype [string trim $rtype] + if {$arguments eq ""} { + return [list $rtype $fname {void}] + } + + foreach arg [split $arguments ,] { + lappend argumentList [string trim $arg] + } + + if {[lindex $argumentList end] eq "..."} { + set arguments TCL_VARARGS + foreach arg [lrange $argumentList 0 end-1] { + set argInfo [ParseArg $arg] + set arity [llength $argInfo] + if {(2 <= $arity) && ($arity <= 3)} { + lappend arguments $argInfo + } else { + return -code error "Bad argument: '$arg' in '$decl'" + } + } + } else { + set arguments {} + foreach arg $argumentList { + set argInfo [ParseArg $arg] + if {$argInfo eq "void"} { + lappend arguments "void" + break + } + set arity [llength $argInfo] + if {(2 <= $arity) && ($arity <= 3)} { + lappend arguments $argInfo + } else { + return -code error "Bad argument: '$arg' in '$decl'" + } + } + } + return [list $rtype $fname $arguments] +} + +# ParseArg -- +# +# This function parses a function argument into a type and name. +# +# Arguments: +# arg The argument to parse. +# +# Results: +# Returns a list of type and name with an optional third array +# indicator. If the argument is malformed, returns "". + +proc ::stubs::reader::ParseArg {arg} { + if {![regexp {^(.+[ ][*]*)([^][ *]+)(\[\])?$} $arg all type name array]} { + if {$arg eq "void"} { + return $arg + } else { + return + } + } + set result [list [string trim $type] $name] + if {$array ne ""} { + lappend result $array + } + return $result +} + +# # ## ### ##### ######## ############# +## API + +namespace eval ::stubs::reader { + namespace export file text +} + +# # ## ### ##### +package provide stubs::reader 1.1 +return diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_writer1.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_writer1.1/pkgIndex.tcl new file mode 100644 index 00000000..1ff87752 --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_writer1.1/pkgIndex.tcl @@ -0,0 +1,3 @@ +if {![package vsatisfies [package provide Tcl] 8.6]} {return} +#checker -scope global exclude warnUndefinedVar +package ifneeded stubs::writer 1.1 [list source [file join $dir writer.tcl]] diff --git a/src/runtime/tclkit86bi.vfs/lib/stubs_writer1.1/writer.tcl b/src/runtime/tclkit86bi.vfs/lib/stubs_writer1.1/writer.tcl new file mode 100644 index 00000000..2f87ca9b --- /dev/null +++ b/src/runtime/tclkit86bi.vfs/lib/stubs_writer1.1/writer.tcl @@ -0,0 +1,120 @@ +# -*- tcl -*- +# STUBS handling -- Write stubs table as .decls file +# +# (c) 2011,2022 Andreas Kupries http://wiki.tcl.tk/andreas%20kupries + +# A stubs table is represented by a dictionary value. +# A container is a variable holding a stubs table value. + +# # ## ### ##### ######## ############# +## Requisites + +package require Tcl 8.6 +package require stubs::gen +package require stubs::container + +namespace eval ::stubs::writer::g { + namespace import ::stubs::gen::* +} + +namespace eval ::stubs::writer::c { + namespace import ::stubs::container::* +} + +# # ## ### ##### ######## ############# +## Implementation. + +proc ::stubs::writer::gen {table} { + + set defaults [c::new] + set dscspec [c::scspec? $defaults] + set depoch [c::epoch? $defaults] + + set name [c::library? $table] + set scspec [c::scspec? $table] + set epoch [c::epoch? $table] + set rev [c::revision? $table] + + lappend lines "\# ${name}.decls -- -*- tcl -*-" + lappend lines "\#" + lappend lines "\#\tThis file contains the declarations for all public functions" + lappend lines "\#\tthat are exported by the \"${name}\" library via its stubs table." + lappend lines "\#" + + lappend lines "" + lappend lines "library [list $name]" + + if {($scspec ne $dscspec) || + ($epoch ne $depoch )} { + if {$scspec ne $dscspec} { + lappend lines "scspec [list $scspec]" + } + if {$epoch ne $depoch } { + lappend lines "epoch [list $epoch]" + lappend lines "revision [list $rev]" + } + } + + foreach if [c::interfaces $table] { + lappend lines "" + lappend lines "interface [list $if]" + + if {[c::hooks? $table $if]} { + lappend lines "hooks [list [c::hooksof $table $if]]" + } + lappend lines \ + [g::forall $table $if \ + [list [namespace current]::Make $table] \ + 0] + } + + lappend lines "\# END $name" + + return [join $lines \n] +} + +# # ## ### ##### +## Internal helpers. + +proc ::stubs::writer::Make {table if decl index} { + #puts |--------------------------------------- + #puts |$if|$index|$decl| + + lassign $decl rtype fname arguments + if {[llength $arguments]} { + # what about the third piece of info, array flag?! ... + + set suffix {} + foreach a $arguments { + if {$a eq "void"} { + lappend ax $a + } elseif {$a eq "TCL_VARARGS"} { + set suffix ", ..." + } else { + lassign $a atype aname aflag + # aflag either "", or "[]". + lappend ax "$atype $aname$aflag" + #puts \t|$atype|$aname|$aflag| + } + } + set ax [join $ax {, }]$suffix + } else { + set ax void + } + set cdecl "\n $rtype $fname ($ax)\n" + set platforms [c::slotplatforms $table $if $index] + + lappend lines "" + lappend lines "declare $index [list $platforms] \{$cdecl\}" + + return [join $lines \n]\n +} + +# # ## ### ##### +namespace eval ::stubs::writer { + namespace export gen +} + +# # ## ### ##### +package provide stubs::writer 1.1 +return diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/auto.tcl b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/auto.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/auto.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/auto.tcl diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/clock.tcl b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/clock.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/clock.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/clock.tcl diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/ascii.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/ascii.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/ascii.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/ascii.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/big5.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/big5.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/big5.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/big5.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cns11643.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cns11643.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cns11643.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cns11643.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1250.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1250.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1250.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1250.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1251.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1251.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1251.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1251.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1252.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1252.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1252.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1252.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1253.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1253.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1253.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1253.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1254.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1254.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1254.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1254.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1255.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1255.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1255.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1255.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1256.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1256.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1256.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1256.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1257.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1257.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1257.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1257.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1258.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1258.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1258.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp1258.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp437.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp437.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp437.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp437.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp737.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp737.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp737.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp737.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp775.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp775.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp775.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp775.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp850.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp850.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp850.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp850.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp852.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp852.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp852.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp852.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp855.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp855.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp855.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp855.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp857.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp857.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp857.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp857.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp860.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp860.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp860.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp860.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp861.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp861.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp861.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp861.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp862.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp862.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp862.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp862.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp863.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp863.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp863.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp863.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp864.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp864.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp864.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp864.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp865.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp865.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp865.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp865.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp866.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp866.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp866.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp866.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp869.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp869.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp869.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp869.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp874.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp874.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp874.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp874.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp932.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp932.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp932.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp932.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp936.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp936.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp936.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp936.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp949.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp949.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp949.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp949.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp950.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp950.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/cp950.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/cp950.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/dingbats.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/dingbats.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/dingbats.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/dingbats.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/ebcdic.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/ebcdic.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/ebcdic.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/ebcdic.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-cn.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-cn.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-cn.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-cn.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-jp.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-jp.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-jp.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-jp.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-kr.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-kr.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-kr.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/euc-kr.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/gb12345.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/gb12345.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/gb12345.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/gb12345.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/gb1988.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/gb1988.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/gb1988.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/gb1988.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/gb2312-raw.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/gb2312-raw.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/gb2312-raw.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/gb2312-raw.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/gb2312.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/gb2312.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/gb2312.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/gb2312.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022-jp.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022-jp.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022-jp.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022-jp.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022-kr.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022-kr.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022-kr.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022-kr.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso2022.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-1.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-1.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-1.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-1.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-10.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-10.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-10.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-10.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-11.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-11.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-11.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-11.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-13.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-13.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-13.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-13.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-14.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-14.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-14.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-14.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-15.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-15.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-15.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-15.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-16.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-16.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-16.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-16.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-2.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-2.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-2.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-2.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-3.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-3.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-3.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-3.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-4.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-4.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-4.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-4.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-5.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-5.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-5.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-5.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-6.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-6.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-6.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-6.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-7.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-7.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-7.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-7.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-8.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-8.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-8.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-8.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-9.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-9.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-9.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/iso8859-9.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0201.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0201.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0201.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0201.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0208.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0208.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0208.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0208.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0212.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0212.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0212.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/jis0212.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/koi8-r.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/koi8-r.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/koi8-r.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/koi8-r.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/koi8-u.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/koi8-u.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/koi8-u.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/koi8-u.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/ksc5601.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/ksc5601.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/ksc5601.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/ksc5601.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/macCentEuro.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macCentEuro.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/macCentEuro.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macCentEuro.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/macCroatian.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macCroatian.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/macCroatian.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macCroatian.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/macCyrillic.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macCyrillic.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/macCyrillic.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macCyrillic.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/macDingbats.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macDingbats.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/macDingbats.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macDingbats.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/macGreek.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macGreek.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/macGreek.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macGreek.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/macIceland.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macIceland.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/macIceland.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macIceland.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/macJapan.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macJapan.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/macJapan.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macJapan.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/macRoman.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macRoman.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/macRoman.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macRoman.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/macRomania.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macRomania.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/macRomania.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macRomania.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/macThai.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macThai.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/macThai.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macThai.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/macTurkish.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macTurkish.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/macTurkish.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macTurkish.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/macUkraine.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macUkraine.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/macUkraine.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/macUkraine.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/shiftjis.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/shiftjis.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/shiftjis.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/shiftjis.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/symbol.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/symbol.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/symbol.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/symbol.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/encoding/tis-620.enc b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/tis-620.enc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/encoding/tis-620.enc rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/encoding/tis-620.enc diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/history.tcl b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/history.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/history.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/history.tcl diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/http1.0/http.tcl b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/http1.0/http.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/http1.0/http.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/http1.0/http.tcl diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/http1.0/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/http1.0/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/http1.0/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/http1.0/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/init.tcl b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/init.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/init.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/init.tcl diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/af.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/af.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/af.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/af.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/af_za.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/af_za.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/af_za.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/af_za.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ar.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ar.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ar.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ar.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_in.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_in.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_in.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_in.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_jo.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_jo.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_jo.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_jo.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_lb.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_lb.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_lb.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_lb.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_sy.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_sy.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_sy.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ar_sy.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/be.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/be.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/be.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/be.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/bg.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/bg.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/bg.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/bg.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/bn.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/bn.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/bn.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/bn.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/bn_in.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/bn_in.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/bn_in.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/bn_in.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ca.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ca.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ca.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ca.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/cs.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/cs.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/cs.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/cs.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/da.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/da.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/da.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/da.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/de.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/de.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/de.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/de.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/de_at.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/de_at.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/de_at.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/de_at.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/de_be.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/de_be.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/de_be.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/de_be.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/el.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/el.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/el.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/el.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_au.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_au.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_au.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_au.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_be.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_be.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_be.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_be.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_bw.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_bw.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_bw.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_bw.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ca.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ca.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ca.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ca.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_gb.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_gb.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_gb.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_gb.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_hk.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_hk.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_hk.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_hk.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ie.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ie.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ie.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ie.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_in.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_in.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_in.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_in.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_nz.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_nz.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_nz.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_nz.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ph.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ph.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ph.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_ph.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_sg.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_sg.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_sg.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_sg.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_za.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_za.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_za.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_za.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_zw.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_zw.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/en_zw.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/en_zw.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/eo.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/eo.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/eo.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/eo.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ar.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ar.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ar.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ar.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_bo.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_bo.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_bo.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_bo.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_cl.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_cl.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_cl.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_cl.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_co.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_co.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_co.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_co.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_cr.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_cr.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_cr.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_cr.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_do.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_do.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_do.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_do.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ec.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ec.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ec.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ec.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_gt.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_gt.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_gt.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_gt.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_hn.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_hn.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_hn.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_hn.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_mx.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_mx.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_mx.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_mx.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ni.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ni.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ni.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ni.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pa.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pa.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pa.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pa.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pe.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pe.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pe.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pe.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pr.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pr.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pr.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_pr.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_py.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_py.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_py.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_py.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_sv.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_sv.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_sv.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_sv.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_uy.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_uy.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_uy.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_uy.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ve.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ve.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ve.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/es_ve.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/et.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/et.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/et.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/et.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/eu.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/eu.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/eu.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/eu.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/eu_es.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/eu_es.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/eu_es.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/eu_es.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/fa.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fa.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/fa.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fa.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/fa_in.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fa_in.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/fa_in.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fa_in.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/fa_ir.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fa_ir.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/fa_ir.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fa_ir.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/fi.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fi.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/fi.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fi.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/fo.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fo.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/fo.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fo.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/fo_fo.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fo_fo.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/fo_fo.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fo_fo.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/fr.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fr.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/fr.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fr.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_be.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_be.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_be.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_be.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_ca.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_ca.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_ca.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_ca.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_ch.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_ch.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_ch.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/fr_ch.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ga.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ga.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ga.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ga.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ga_ie.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ga_ie.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ga_ie.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ga_ie.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/gl.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/gl.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/gl.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/gl.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/gl_es.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/gl_es.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/gl_es.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/gl_es.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/gv.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/gv.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/gv.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/gv.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/gv_gb.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/gv_gb.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/gv_gb.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/gv_gb.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/he.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/he.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/he.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/he.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/hi.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/hi.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/hi.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/hi.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/hi_in.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/hi_in.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/hi_in.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/hi_in.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/hr.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/hr.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/hr.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/hr.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/hu.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/hu.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/hu.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/hu.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/id.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/id.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/id.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/id.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/id_id.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/id_id.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/id_id.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/id_id.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/is.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/is.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/is.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/is.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/it.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/it.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/it.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/it.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/it_ch.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/it_ch.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/it_ch.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/it_ch.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ja.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ja.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ja.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ja.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/kl.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/kl.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/kl.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/kl.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/kl_gl.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/kl_gl.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/kl_gl.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/kl_gl.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ko.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ko.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ko.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ko.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ko_kr.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ko_kr.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ko_kr.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ko_kr.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/kok.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/kok.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/kok.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/kok.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/kok_in.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/kok_in.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/kok_in.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/kok_in.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/kw.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/kw.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/kw.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/kw.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/kw_gb.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/kw_gb.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/kw_gb.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/kw_gb.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/lt.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/lt.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/lt.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/lt.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/lv.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/lv.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/lv.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/lv.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/mk.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/mk.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/mk.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/mk.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/mr.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/mr.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/mr.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/mr.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/mr_in.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/mr_in.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/mr_in.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/mr_in.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ms.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ms.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ms.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ms.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ms_my.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ms_my.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ms_my.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ms_my.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/mt.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/mt.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/mt.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/mt.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/nb.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/nb.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/nb.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/nb.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/nl.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/nl.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/nl.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/nl.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/nl_be.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/nl_be.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/nl_be.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/nl_be.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/nn.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/nn.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/nn.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/nn.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/pl.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/pl.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/pl.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/pl.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/pt.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/pt.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/pt.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/pt.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/pt_br.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/pt_br.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/pt_br.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/pt_br.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ro.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ro.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ro.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ro.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ru.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ru.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ru.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ru.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ru_ua.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ru_ua.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ru_ua.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ru_ua.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/sh.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sh.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/sh.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sh.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/sk.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sk.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/sk.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sk.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/sl.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sl.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/sl.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sl.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/sq.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sq.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/sq.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sq.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/sr.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sr.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/sr.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sr.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/sv.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sv.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/sv.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sv.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/sw.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sw.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/sw.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/sw.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ta.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ta.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ta.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ta.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/ta_in.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ta_in.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/ta_in.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/ta_in.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/te.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/te.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/te.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/te.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/te_in.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/te_in.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/te_in.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/te_in.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/th.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/th.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/th.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/th.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/tr.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/tr.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/tr.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/tr.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/uk.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/uk.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/uk.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/uk.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/vi.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/vi.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/vi.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/vi.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/zh.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/zh.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/zh.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/zh.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_cn.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_cn.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_cn.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_cn.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_hk.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_hk.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_hk.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_hk.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_sg.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_sg.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_sg.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_sg.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_tw.msg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_tw.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_tw.msg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/msgs/zh_tw.msg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/opt0.4/optparse.tcl b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/opt0.4/optparse.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/opt0.4/optparse.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/opt0.4/optparse.tcl diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/opt0.4/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/opt0.4/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/opt0.4/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/opt0.4/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/package.tcl b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/package.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/package.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/package.tcl diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/parray.tcl b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/parray.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/parray.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/parray.tcl diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/safe.tcl b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/safe.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/safe.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/safe.tcl diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tclIndex b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tclIndex similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tclIndex rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tclIndex diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tm.tcl b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tm.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tm.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tm.tcl diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Abidjan b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Abidjan similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Abidjan rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Abidjan diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Algiers b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Algiers similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Algiers rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Algiers diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bamako b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bamako similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bamako rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bamako diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bangui b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bangui similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bangui rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bangui diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Banjul b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Banjul similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Banjul rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Banjul diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bissau b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bissau similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bissau rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Bissau diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Blantyre b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Blantyre similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Blantyre rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Blantyre diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Brazzaville b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Brazzaville similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Brazzaville rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Brazzaville diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Cairo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Cairo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Cairo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Cairo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Conakry b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Conakry similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Conakry rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Conakry diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Dakar b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Dakar similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Dakar rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Dakar diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Dar_es_Salaam b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Dar_es_Salaam similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Dar_es_Salaam rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Dar_es_Salaam diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Djibouti b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Djibouti similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Djibouti rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Djibouti diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/El_Aaiun b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/El_Aaiun similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/El_Aaiun rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/El_Aaiun diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Freetown b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Freetown similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Freetown rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Freetown diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Gaborone b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Gaborone similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Gaborone rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Gaborone diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Harare b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Harare similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Harare rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Harare diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Johannesburg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Johannesburg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Johannesburg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Johannesburg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Khartoum b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Khartoum similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Khartoum rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Khartoum diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Kigali b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Kigali similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Kigali rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Kigali diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lagos b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lagos similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lagos rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lagos diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Libreville b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Libreville similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Libreville rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Libreville diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lome b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lome similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lome rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lome diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lubumbashi b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lubumbashi similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lubumbashi rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Lubumbashi diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Malabo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Malabo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Malabo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Malabo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Maputo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Maputo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Maputo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Maputo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Maseru b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Maseru similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Maseru rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Maseru diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Mbabane b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Mbabane similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Mbabane rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Mbabane diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Mogadishu b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Mogadishu similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Mogadishu rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Mogadishu diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Nairobi b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Nairobi similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Nairobi rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Nairobi diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Niamey b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Niamey similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Niamey rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Niamey diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Nouakchott b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Nouakchott similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Nouakchott rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Nouakchott diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Ouagadougou b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Ouagadougou similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Ouagadougou rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Ouagadougou diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Porto-Novo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Porto-Novo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Porto-Novo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Porto-Novo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Sao_Tome b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Sao_Tome similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Sao_Tome rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Sao_Tome diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Timbuktu b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Timbuktu similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Timbuktu rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Timbuktu diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Tripoli b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Tripoli similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Tripoli rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Tripoli diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Tunis b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Tunis similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Tunis rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Tunis diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Windhoek b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Windhoek similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Windhoek rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Africa/Windhoek diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Adak b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Adak similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Adak rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Adak diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Anchorage b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Anchorage similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Anchorage rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Anchorage diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Buenos_Aires b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Buenos_Aires similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Buenos_Aires rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Buenos_Aires diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Jujuy b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Jujuy similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Jujuy rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Jujuy diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Rio_Gallegos b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Rio_Gallegos similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Rio_Gallegos rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Rio_Gallegos diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/San_Juan b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/San_Juan similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/San_Juan rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/San_Juan diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/San_Luis b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/San_Luis similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/San_Luis rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/San_Luis diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Tucuman b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Tucuman similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Tucuman rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Argentina/Tucuman diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Asuncion b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Asuncion similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Asuncion rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Asuncion diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Atikokan b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Atikokan similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Atikokan rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Atikokan diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Bahia_Banderas b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Bahia_Banderas similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Bahia_Banderas rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Bahia_Banderas diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Barbados b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Barbados similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Barbados rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Barbados diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Belem b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Belem similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Belem rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Belem diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Belize b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Belize similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Belize rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Belize diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Blanc-Sablon b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Blanc-Sablon similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Blanc-Sablon rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Blanc-Sablon diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Boise b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Boise similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Boise rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Boise diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Buenos_Aires b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Buenos_Aires similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Buenos_Aires rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Buenos_Aires diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cambridge_Bay b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cambridge_Bay similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cambridge_Bay rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cambridge_Bay diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Campo_Grande b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Campo_Grande similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Campo_Grande rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Campo_Grande diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cancun b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cancun similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cancun rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cancun diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Caracas b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Caracas similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Caracas rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Caracas diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cayenne b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cayenne similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cayenne rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cayenne diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cayman b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cayman similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cayman rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Cayman diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Chicago b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Chicago similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Chicago rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Chicago diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Coral_Harbour b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Coral_Harbour similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Coral_Harbour rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Coral_Harbour diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Creston b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Creston similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Creston rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Creston diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Curacao b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Curacao similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Curacao rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Curacao diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Danmarkshavn b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Danmarkshavn similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Danmarkshavn rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Danmarkshavn diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Dawson b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Dawson similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Dawson rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Dawson diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Dawson_Creek b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Dawson_Creek similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Dawson_Creek rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Dawson_Creek diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Denver b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Denver similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Denver rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Denver diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Detroit b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Detroit similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Detroit rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Detroit diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Edmonton b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Edmonton similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Edmonton rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Edmonton diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Eirunepe b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Eirunepe similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Eirunepe rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Eirunepe diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/El_Salvador b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/El_Salvador similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/El_Salvador rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/El_Salvador diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Fort_Nelson b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Fort_Nelson similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Fort_Nelson rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Fort_Nelson diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Fort_Wayne b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Fort_Wayne similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Fort_Wayne rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Fort_Wayne diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Glace_Bay b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Glace_Bay similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Glace_Bay rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Glace_Bay diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Godthab b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Godthab similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Godthab rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Godthab diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Goose_Bay b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Goose_Bay similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Goose_Bay rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Goose_Bay diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Grand_Turk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Grand_Turk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Grand_Turk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Grand_Turk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Guadeloupe b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Guadeloupe similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Guadeloupe rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Guadeloupe diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Guayaquil b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Guayaquil similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Guayaquil rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Guayaquil diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Halifax b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Halifax similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Halifax rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Halifax diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Hermosillo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Hermosillo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Hermosillo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Hermosillo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Indianapolis b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Indianapolis similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Indianapolis rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Indianapolis diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Knox b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Knox similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Knox rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Knox diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Marengo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Marengo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Marengo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Marengo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Petersburg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Petersburg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Petersburg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Petersburg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Tell_City b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Tell_City similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Tell_City rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Tell_City diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Vevay b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Vevay similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Vevay rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Vevay diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Vincennes b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Vincennes similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Vincennes rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Vincennes diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Winamac b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Winamac similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Winamac rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indiana/Winamac diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indianapolis b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indianapolis similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indianapolis rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Indianapolis diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Inuvik b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Inuvik similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Inuvik rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Inuvik diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Iqaluit b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Iqaluit similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Iqaluit rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Iqaluit diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Jujuy b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Jujuy similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Jujuy rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Jujuy diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Juneau b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Juneau similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Juneau rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Juneau diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kentucky/Louisville b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kentucky/Louisville similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kentucky/Louisville rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kentucky/Louisville diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kentucky/Monticello b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kentucky/Monticello similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kentucky/Monticello rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kentucky/Monticello diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Knox_IN b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Knox_IN similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Knox_IN rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Knox_IN diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kralendijk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kralendijk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kralendijk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Kralendijk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/La_Paz b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/La_Paz similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/La_Paz rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/La_Paz diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Los_Angeles b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Los_Angeles similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Los_Angeles rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Los_Angeles diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Louisville b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Louisville similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Louisville rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Louisville diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Lower_Princes b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Lower_Princes similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Lower_Princes rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Lower_Princes diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Maceio b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Maceio similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Maceio rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Maceio diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Manaus b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Manaus similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Manaus rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Manaus diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Marigot b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Marigot similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Marigot rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Marigot diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Martinique b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Martinique similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Martinique rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Martinique diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Matamoros b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Matamoros similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Matamoros rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Matamoros diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Mazatlan b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Mazatlan similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Mazatlan rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Mazatlan diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Menominee b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Menominee similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Menominee rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Menominee diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Mexico_City b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Mexico_City similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Mexico_City rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Mexico_City diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Miquelon b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Miquelon similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Miquelon rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Miquelon diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Moncton b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Moncton similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Moncton rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Moncton diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Monterrey b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Monterrey similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Monterrey rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Monterrey diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montevideo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montevideo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montevideo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montevideo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montreal b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montreal similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montreal rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montreal diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montserrat b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montserrat similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montserrat rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Montserrat diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nassau b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nassau similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nassau rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nassau diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/New_York b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/New_York similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/New_York rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/New_York diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nipigon b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nipigon similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nipigon rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nipigon diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nome b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nome similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nome rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nome diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/Beulah b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/Beulah similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/Beulah rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/Beulah diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/Center b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/Center similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/Center rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/Center diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/New_Salem b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/New_Salem similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/New_Salem rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/North_Dakota/New_Salem diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nuuk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nuuk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nuuk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Nuuk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Pangnirtung b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Pangnirtung similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Pangnirtung rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Pangnirtung diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Paramaribo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Paramaribo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Paramaribo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Paramaribo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Phoenix b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Phoenix similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Phoenix rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Phoenix diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Port-au-Prince b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Port-au-Prince similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Port-au-Prince rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Port-au-Prince diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Port_of_Spain b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Port_of_Spain similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Port_of_Spain rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Port_of_Spain diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Porto_Acre b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Porto_Acre similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Porto_Acre rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Porto_Acre diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Porto_Velho b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Porto_Velho similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Porto_Velho rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Porto_Velho diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Puerto_Rico b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Puerto_Rico similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Puerto_Rico rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Puerto_Rico diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Punta_Arenas b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Punta_Arenas similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Punta_Arenas rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Punta_Arenas diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rainy_River b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rainy_River similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rainy_River rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rainy_River diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rankin_Inlet b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rankin_Inlet similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rankin_Inlet rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rankin_Inlet diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Recife b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Recife similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Recife rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Recife diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Resolute b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Resolute similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Resolute rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Resolute diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rio_Branco b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rio_Branco similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rio_Branco rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rio_Branco diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rosario b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rosario similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rosario rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Rosario diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santa_Isabel b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santa_Isabel similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santa_Isabel rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santa_Isabel diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santarem b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santarem similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santarem rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santarem diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santiago b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santiago similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santiago rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santiago diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santo_Domingo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santo_Domingo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santo_Domingo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Santo_Domingo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Sao_Paulo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Sao_Paulo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Sao_Paulo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Sao_Paulo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Scoresbysund b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Scoresbysund similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Scoresbysund rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Scoresbysund diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Shiprock b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Shiprock similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Shiprock rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Shiprock diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Barthelemy b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Barthelemy similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Barthelemy rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Barthelemy diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Johns b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Johns similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Johns rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Johns diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Kitts b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Kitts similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Kitts rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Kitts diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Thomas b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Thomas similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Thomas rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Thomas diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Vincent b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Vincent similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Vincent rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/St_Vincent diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Swift_Current b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Swift_Current similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Swift_Current rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Swift_Current diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Thule b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Thule similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Thule rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Thule diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Thunder_Bay b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Thunder_Bay similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Thunder_Bay rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Thunder_Bay diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Toronto b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Toronto similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Toronto rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Toronto diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Vancouver b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Vancouver similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Vancouver rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Vancouver diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Virgin b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Virgin similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Virgin rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Virgin diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Whitehorse b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Whitehorse similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Whitehorse rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Whitehorse diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Winnipeg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Winnipeg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Winnipeg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Winnipeg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Yakutat b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Yakutat similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Yakutat rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Yakutat diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Yellowknife b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Yellowknife similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Yellowknife rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/America/Yellowknife diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Casey b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Casey similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Casey rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Casey diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Davis b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Davis similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Davis rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Davis diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/DumontDUrville b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/DumontDUrville similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/DumontDUrville rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/DumontDUrville diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Macquarie b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Macquarie similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Macquarie rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Macquarie diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Mawson b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Mawson similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Mawson rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Mawson diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/McMurdo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/McMurdo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/McMurdo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/McMurdo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Palmer b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Palmer similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Palmer rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Palmer diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/South_Pole b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/South_Pole similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/South_Pole rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/South_Pole diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Troll b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Troll similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Troll rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Troll diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Vostok b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Vostok similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Vostok rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Antarctica/Vostok diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Arctic/Longyearbyen b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Arctic/Longyearbyen similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Arctic/Longyearbyen rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Arctic/Longyearbyen diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aden b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aden similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aden rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aden diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Almaty b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Almaty similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Almaty rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Almaty diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Amman b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Amman similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Amman rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Amman diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Anadyr b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Anadyr similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Anadyr rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Anadyr diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aqtau b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aqtau similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aqtau rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aqtau diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aqtobe b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aqtobe similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aqtobe rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Aqtobe diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ashgabat b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ashgabat similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ashgabat rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ashgabat diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ashkhabad b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ashkhabad similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ashkhabad rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ashkhabad diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Atyrau b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Atyrau similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Atyrau rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Atyrau diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Baghdad b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Baghdad similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Baghdad rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Baghdad diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bahrain b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bahrain similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bahrain rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bahrain diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Baku b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Baku similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Baku rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Baku diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bangkok b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bangkok similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bangkok rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bangkok diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Barnaul b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Barnaul similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Barnaul rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Barnaul diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Beirut b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Beirut similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Beirut rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Beirut diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bishkek b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bishkek similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bishkek rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Bishkek diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Brunei b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Brunei similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Brunei rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Brunei diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Choibalsan b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Choibalsan similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Choibalsan rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Choibalsan diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Chongqing b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Chongqing similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Chongqing rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Chongqing diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Chungking b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Chungking similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Chungking rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Chungking diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Colombo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Colombo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Colombo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Colombo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Damascus b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Damascus similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Damascus rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Damascus diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dili b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dili similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dili rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dili diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dubai b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dubai similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dubai rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dubai diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dushanbe b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dushanbe similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dushanbe rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Dushanbe diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Harbin b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Harbin similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Harbin rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Harbin diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hebron b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hebron similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hebron rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hebron diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ho_Chi_Minh b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ho_Chi_Minh similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ho_Chi_Minh rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ho_Chi_Minh diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hong_Kong b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hong_Kong similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hong_Kong rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hong_Kong diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hovd b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hovd similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hovd rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Hovd diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Irkutsk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Irkutsk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Irkutsk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Irkutsk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Istanbul b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Istanbul similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Istanbul rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Istanbul diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Jerusalem b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Jerusalem similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Jerusalem rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Jerusalem diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kabul b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kabul similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kabul rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kabul diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Karachi b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Karachi similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Karachi rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Karachi diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kashgar b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kashgar similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kashgar rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kashgar diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kathmandu b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kathmandu similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kathmandu rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kathmandu diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Katmandu b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Katmandu similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Katmandu rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Katmandu diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Krasnoyarsk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Krasnoyarsk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Krasnoyarsk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Krasnoyarsk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuala_Lumpur b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuala_Lumpur similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuala_Lumpur rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuala_Lumpur diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuching b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuching similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuching rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuching diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuwait b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuwait similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuwait rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Kuwait diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Macao b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Macao similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Macao rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Macao diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Macau b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Macau similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Macau rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Macau diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Magadan b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Magadan similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Magadan rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Magadan diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Makassar b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Makassar similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Makassar rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Makassar diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Muscat b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Muscat similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Muscat rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Muscat diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Novokuznetsk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Novokuznetsk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Novokuznetsk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Novokuznetsk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Novosibirsk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Novosibirsk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Novosibirsk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Novosibirsk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Omsk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Omsk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Omsk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Omsk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Oral b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Oral similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Oral rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Oral diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Phnom_Penh b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Phnom_Penh similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Phnom_Penh rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Phnom_Penh diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Pontianak b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Pontianak similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Pontianak rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Pontianak diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Pyongyang b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Pyongyang similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Pyongyang rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Pyongyang diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Qatar b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Qatar similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Qatar rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Qatar diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Qostanay b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Qostanay similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Qostanay rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Qostanay diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Rangoon b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Rangoon similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Rangoon rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Rangoon diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Riyadh b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Riyadh similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Riyadh rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Riyadh diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Saigon b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Saigon similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Saigon rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Saigon diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Sakhalin b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Sakhalin similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Sakhalin rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Sakhalin diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Samarkand b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Samarkand similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Samarkand rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Samarkand diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Seoul b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Seoul similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Seoul rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Seoul diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Shanghai b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Shanghai similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Shanghai rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Shanghai diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Singapore b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Singapore similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Singapore rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Singapore diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Srednekolymsk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Srednekolymsk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Srednekolymsk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Srednekolymsk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Taipei b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Taipei similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Taipei rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Taipei diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tashkent b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tashkent similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tashkent rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tashkent diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tbilisi b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tbilisi similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tbilisi rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tbilisi diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tehran b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tehran similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tehran rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tehran diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tel_Aviv b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tel_Aviv similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tel_Aviv rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tel_Aviv diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Thimbu b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Thimbu similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Thimbu rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Thimbu diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Thimphu b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Thimphu similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Thimphu rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Thimphu diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tokyo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tokyo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tokyo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tokyo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tomsk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tomsk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tomsk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Tomsk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ujung_Pandang b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ujung_Pandang similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ujung_Pandang rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ujung_Pandang diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ulaanbaatar b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ulaanbaatar similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ulaanbaatar rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ulaanbaatar diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ulan_Bator b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ulan_Bator similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ulan_Bator rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Ulan_Bator diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Urumqi b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Urumqi similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Urumqi rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Urumqi diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Vientiane b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Vientiane similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Vientiane rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Vientiane diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Vladivostok b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Vladivostok similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Vladivostok rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Vladivostok diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yakutsk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yakutsk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yakutsk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yakutsk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yangon b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yangon similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yangon rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yangon diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yekaterinburg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yekaterinburg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yekaterinburg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yekaterinburg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yerevan b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yerevan similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yerevan rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Asia/Yerevan diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Azores b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Azores similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Azores rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Azores diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Canary b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Canary similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Canary rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Canary diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Cape_Verde b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Cape_Verde similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Cape_Verde rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Cape_Verde diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Faeroe b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Faeroe similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Faeroe rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Faeroe diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Faroe b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Faroe similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Faroe rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Faroe diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Jan_Mayen b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Jan_Mayen similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Jan_Mayen rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Jan_Mayen diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Reykjavik b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Reykjavik similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Reykjavik rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Reykjavik diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Stanley b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Stanley similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Stanley rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Atlantic/Stanley diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/ACT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/ACT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/ACT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/ACT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Adelaide b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Adelaide similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Adelaide rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Adelaide diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Brisbane b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Brisbane similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Brisbane rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Brisbane diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Broken_Hill b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Broken_Hill similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Broken_Hill rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Broken_Hill diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Currie b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Currie similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Currie rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Currie diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Darwin b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Darwin similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Darwin rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Darwin diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Hobart b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Hobart similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Hobart rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Hobart diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/LHI b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/LHI similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/LHI rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/LHI diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Lindeman b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Lindeman similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Lindeman rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Lindeman diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Lord_Howe b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Lord_Howe similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Lord_Howe rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Lord_Howe diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Melbourne b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Melbourne similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Melbourne rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Melbourne diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/NSW b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/NSW similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/NSW rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/NSW diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/North b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/North similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/North rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/North diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Perth b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Perth similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Perth rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Perth diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Queensland b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Queensland similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Queensland rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Queensland diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/South b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/South similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/South rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/South diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Sydney b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Sydney similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Sydney rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/Sydney diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/West b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/West similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/West rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Australia/West diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/Acre b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/Acre similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/Acre rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/Acre diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/East b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/East similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/East rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/East diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/West b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/West similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/West rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Brazil/West diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/CET b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/CET similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/CET rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/CET diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/CST6CDT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/CST6CDT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/CST6CDT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/CST6CDT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Atlantic b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Atlantic similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Atlantic rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Atlantic diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Central b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Central similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Central rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Central diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Eastern b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Eastern similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Eastern rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Eastern diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Mountain b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Mountain similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Mountain rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Mountain diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Newfoundland b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Newfoundland similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Newfoundland rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Newfoundland diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Pacific b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Pacific similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Pacific rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Pacific diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Saskatchewan b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Saskatchewan similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Saskatchewan rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Saskatchewan diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Yukon b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Yukon similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Yukon rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Canada/Yukon diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Chile/Continental b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Chile/Continental similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Chile/Continental rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Chile/Continental diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Chile/EasterIsland b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Chile/EasterIsland similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Chile/EasterIsland rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Chile/EasterIsland diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/EET b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/EET similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/EET rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/EET diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/EST b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/EST similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/EST rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/EST diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/EST5EDT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/EST5EDT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/EST5EDT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/EST5EDT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Egypt b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Egypt similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Egypt rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Egypt diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Eire b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Eire similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Eire rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Eire diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+0 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+0 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+0 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+0 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+1 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+1 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+1 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+1 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+10 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+10 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+10 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+10 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+11 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+11 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+11 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+11 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+12 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+12 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+12 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+12 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+2 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+2 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+2 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+2 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+3 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+3 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+3 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+3 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+4 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+4 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+4 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+4 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+5 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+5 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+5 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+5 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+6 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+6 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+6 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+6 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+7 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+7 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+7 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+7 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+8 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+8 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+8 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+8 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+9 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+9 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+9 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT+9 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-0 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-0 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-0 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-0 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-1 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-1 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-1 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-1 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-10 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-10 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-10 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-10 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-11 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-11 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-11 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-11 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-12 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-12 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-12 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-12 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-13 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-13 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-13 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-13 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-14 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-14 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-14 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-14 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-2 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-2 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-2 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-2 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-3 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-3 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-3 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-3 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-4 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-4 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-4 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-4 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-5 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-5 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-5 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-5 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-6 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-6 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-6 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-6 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-7 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-7 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-7 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-7 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-8 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-8 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-8 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-8 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-9 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-9 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-9 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT-9 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT0 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT0 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT0 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/GMT0 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Greenwich b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Greenwich similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Greenwich rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Greenwich diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/UCT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/UCT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/UCT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/UCT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/UTC b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/UTC similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/UTC rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/UTC diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Universal b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Universal similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Universal rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Universal diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Zulu b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Zulu similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Zulu rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Etc/Zulu diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Amsterdam b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Amsterdam similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Amsterdam rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Amsterdam diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Astrakhan b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Astrakhan similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Astrakhan rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Astrakhan diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Athens b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Athens similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Athens rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Athens diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Belfast b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Belfast similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Belfast rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Belfast diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Belgrade b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Belgrade similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Belgrade rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Belgrade diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Berlin b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Berlin similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Berlin rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Berlin diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Brussels b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Brussels similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Brussels rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Brussels diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Bucharest b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Bucharest similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Bucharest rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Bucharest diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Budapest b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Budapest similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Budapest rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Budapest diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Busingen b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Busingen similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Busingen rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Busingen diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Chisinau b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Chisinau similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Chisinau rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Chisinau diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Copenhagen b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Copenhagen similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Copenhagen rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Copenhagen diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Dublin b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Dublin similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Dublin rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Dublin diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Gibraltar b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Gibraltar similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Gibraltar rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Gibraltar diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Guernsey b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Guernsey similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Guernsey rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Guernsey diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Helsinki b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Helsinki similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Helsinki rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Helsinki diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Isle_of_Man b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Isle_of_Man similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Isle_of_Man rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Isle_of_Man diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Istanbul b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Istanbul similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Istanbul rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Istanbul diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Jersey b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Jersey similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Jersey rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Jersey diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kaliningrad b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kaliningrad similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kaliningrad rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kaliningrad diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kiev b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kiev similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kiev rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kiev diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kirov b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kirov similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kirov rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kirov diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kyiv b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kyiv similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kyiv rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Kyiv diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Lisbon b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Lisbon similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Lisbon rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Lisbon diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/London b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/London similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/London rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/London diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Luxembourg b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Luxembourg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Luxembourg rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Luxembourg diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Madrid b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Madrid similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Madrid rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Madrid diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Mariehamn b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Mariehamn similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Mariehamn rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Mariehamn diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Minsk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Minsk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Minsk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Minsk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Monaco b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Monaco similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Monaco rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Monaco diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Moscow b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Moscow similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Moscow rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Moscow diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Oslo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Oslo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Oslo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Oslo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Paris b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Paris similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Paris rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Paris diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Prague b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Prague similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Prague rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Prague diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Rome b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Rome similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Rome rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Rome diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/San_Marino b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/San_Marino similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/San_Marino rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/San_Marino diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Sarajevo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Sarajevo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Sarajevo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Sarajevo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Saratov b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Saratov similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Saratov rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Saratov diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Simferopol b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Simferopol similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Simferopol rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Simferopol diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Skopje b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Skopje similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Skopje rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Skopje diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Stockholm b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Stockholm similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Stockholm rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Stockholm diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tallinn b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tallinn similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tallinn rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tallinn diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tirane b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tirane similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tirane rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tirane diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tiraspol b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tiraspol similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tiraspol rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Tiraspol diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Ulyanovsk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Ulyanovsk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Ulyanovsk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Ulyanovsk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Uzhgorod b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Uzhgorod similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Uzhgorod rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Uzhgorod diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vaduz b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vaduz similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vaduz rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vaduz diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vatican b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vatican similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vatican rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vatican diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vilnius b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vilnius similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vilnius rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Vilnius diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Volgograd b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Volgograd similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Volgograd rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Volgograd diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Warsaw b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Warsaw similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Warsaw rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Warsaw diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zagreb b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zagreb similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zagreb rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zagreb diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zaporozhye b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zaporozhye similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zaporozhye rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zaporozhye diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zurich b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zurich similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zurich rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Europe/Zurich diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/GB b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/GB similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/GB rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/GB diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/GB-Eire b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/GB-Eire similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/GB-Eire rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/GB-Eire diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT+0 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT+0 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT+0 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT+0 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT-0 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT-0 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT-0 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT-0 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT0 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT0 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT0 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/GMT0 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Greenwich b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Greenwich similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Greenwich rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Greenwich diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/HST b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/HST similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/HST rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/HST diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Hongkong b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Hongkong similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Hongkong rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Hongkong diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Iceland b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Iceland similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Iceland rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Iceland diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Antananarivo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Antananarivo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Antananarivo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Antananarivo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Chagos b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Chagos similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Chagos rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Chagos diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Christmas b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Christmas similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Christmas rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Christmas diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Cocos b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Cocos similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Cocos rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Cocos diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Comoro b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Comoro similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Comoro rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Comoro diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Kerguelen b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Kerguelen similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Kerguelen rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Kerguelen diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mahe b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mahe similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mahe rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mahe diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Maldives b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Maldives similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Maldives rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Maldives diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mauritius b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mauritius similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mauritius rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mauritius diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mayotte b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mayotte similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mayotte rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Mayotte diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Reunion b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Reunion similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Reunion rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Indian/Reunion diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Iran b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Iran similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Iran rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Iran diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Israel b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Israel similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Israel rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Israel diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Japan b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Japan similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Japan rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Japan diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Kwajalein b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Kwajalein similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Kwajalein rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Kwajalein diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/MET b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/MET similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/MET rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/MET diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/MST b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/MST similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/MST rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/MST diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/MST7MDT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/MST7MDT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/MST7MDT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/MST7MDT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/BajaNorte b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/BajaNorte similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/BajaNorte rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/BajaNorte diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/BajaSur b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/BajaSur similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/BajaSur rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/BajaSur diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/General b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/General similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/General rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Mexico/General diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/NZ b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/NZ similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/NZ rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/NZ diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/NZ-CHAT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/NZ-CHAT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/NZ-CHAT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/NZ-CHAT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Navajo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Navajo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Navajo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Navajo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/PRC b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/PRC similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/PRC rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/PRC diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/PST8PDT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/PST8PDT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/PST8PDT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/PST8PDT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Auckland b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Auckland similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Auckland rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Auckland diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Bougainville b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Bougainville similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Bougainville rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Bougainville diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Chatham b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Chatham similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Chatham rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Chatham diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Chuuk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Chuuk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Chuuk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Chuuk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Easter b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Easter similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Easter rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Easter diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Efate b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Efate similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Efate rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Efate diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Enderbury b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Enderbury similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Enderbury rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Enderbury diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Fakaofo b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Fakaofo similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Fakaofo rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Fakaofo diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Fiji b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Fiji similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Fiji rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Fiji diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Funafuti b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Funafuti similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Funafuti rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Funafuti diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Galapagos b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Galapagos similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Galapagos rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Galapagos diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Gambier b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Gambier similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Gambier rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Gambier diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Guadalcanal b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Guadalcanal similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Guadalcanal rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Guadalcanal diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Guam b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Guam similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Guam rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Guam diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Honolulu b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Honolulu similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Honolulu rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Honolulu diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Johnston b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Johnston similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Johnston rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Johnston diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kanton b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kanton similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kanton rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kanton diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kiritimati b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kiritimati similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kiritimati rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kiritimati diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kosrae b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kosrae similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kosrae rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kosrae diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kwajalein b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kwajalein similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kwajalein rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Kwajalein diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Majuro b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Majuro similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Majuro rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Majuro diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Marquesas b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Marquesas similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Marquesas rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Marquesas diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Midway b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Midway similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Midway rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Midway diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Nauru b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Nauru similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Nauru rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Nauru diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Niue b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Niue similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Niue rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Niue diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Norfolk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Norfolk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Norfolk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Norfolk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pago_Pago b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pago_Pago similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pago_Pago rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pago_Pago diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Palau b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Palau similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Palau rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Palau diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pitcairn b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pitcairn similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pitcairn rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pitcairn diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pohnpei b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pohnpei similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pohnpei rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Pohnpei diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Ponape b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Ponape similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Ponape rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Ponape diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Port_Moresby b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Port_Moresby similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Port_Moresby rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Port_Moresby diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Saipan b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Saipan similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Saipan rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Saipan diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Tahiti b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Tahiti similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Tahiti rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Tahiti diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Tongatapu b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Tongatapu similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Tongatapu rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Tongatapu diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Truk b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Truk similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Truk rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Truk diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Wake b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Wake similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Wake rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Wake diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Wallis b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Wallis similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Wallis rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Wallis diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Yap b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Yap similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Yap rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Pacific/Yap diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Poland b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Poland similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Poland rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Poland diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Portugal b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Portugal similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Portugal rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Portugal diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/ROC b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/ROC similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/ROC rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/ROC diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/ROK b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/ROK similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/ROK rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/ROK diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Singapore b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Singapore similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Singapore rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Singapore diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/AST4 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/AST4 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/AST4 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/AST4 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/AST4ADT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/AST4ADT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/AST4ADT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/AST4ADT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/CST6 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/CST6 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/CST6 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/CST6 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/CST6CDT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/CST6CDT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/CST6CDT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/CST6CDT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/EST5 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/EST5 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/EST5 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/EST5 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/EST5EDT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/EST5EDT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/EST5EDT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/EST5EDT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/HST10 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/HST10 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/HST10 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/HST10 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/MST7 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/MST7 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/MST7 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/MST7 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/MST7MDT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/MST7MDT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/MST7MDT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/MST7MDT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/PST8 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/PST8 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/PST8 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/PST8 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/PST8PDT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/PST8PDT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/PST8PDT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/PST8PDT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/YST9 b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/YST9 similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/YST9 rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/YST9 diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/YST9YDT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/YST9YDT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/YST9YDT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/SystemV/YST9YDT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Turkey b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Turkey similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Turkey rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Turkey diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/UCT b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/UCT similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/UCT rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/UCT diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Aleutian b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Aleutian similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Aleutian rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Aleutian diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Central b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Central similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Central rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Central diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Eastern b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Eastern similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Eastern rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Eastern diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Hawaii b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Hawaii similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Hawaii rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Hawaii diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Indiana-Starke b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Indiana-Starke similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Indiana-Starke rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Indiana-Starke diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Michigan b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Michigan similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Michigan rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Michigan diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Mountain b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Mountain similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Mountain rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Mountain diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Pacific b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Pacific similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Pacific rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/US/Pacific diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/UTC b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/UTC similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/UTC rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/UTC diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Universal b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Universal similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Universal rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Universal diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/W-SU b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/W-SU similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/W-SU rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/W-SU diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/WET b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/WET similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/WET rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/WET diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Zulu b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Zulu similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/tzdata/Zulu rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/tzdata/Zulu diff --git a/src/tclkit86bi.vfs/lib/tcl8.6/word.tcl b/src/runtime/tclkit86bi.vfs/lib/tcl8.6/word.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8.6/word.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcl8.6/word.tcl diff --git a/src/tclkit86bi.vfs/lib/tcl8/8.4/platform-1.0.19.tm b/src/runtime/tclkit86bi.vfs/lib/tcl8/8.4/platform-1.0.19.tm similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8/8.4/platform-1.0.19.tm rename to src/runtime/tclkit86bi.vfs/lib/tcl8/8.4/platform-1.0.19.tm diff --git a/src/tclkit86bi.vfs/lib/tcl8/8.4/platform/shell-1.1.4.tm b/src/runtime/tclkit86bi.vfs/lib/tcl8/8.4/platform/shell-1.1.4.tm similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8/8.4/platform/shell-1.1.4.tm rename to src/runtime/tclkit86bi.vfs/lib/tcl8/8.4/platform/shell-1.1.4.tm diff --git a/src/tclkit86bi.vfs/lib/tcl8/8.5/msgcat-1.6.1.tm b/src/runtime/tclkit86bi.vfs/lib/tcl8/8.5/msgcat-1.6.1.tm similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8/8.5/msgcat-1.6.1.tm rename to src/runtime/tclkit86bi.vfs/lib/tcl8/8.5/msgcat-1.6.1.tm diff --git a/src/tclkit86bi.vfs/lib/tcl8/8.5/tcltest-2.5.5.tm b/src/runtime/tclkit86bi.vfs/lib/tcl8/8.5/tcltest-2.5.5.tm similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8/8.5/tcltest-2.5.5.tm rename to src/runtime/tclkit86bi.vfs/lib/tcl8/8.5/tcltest-2.5.5.tm diff --git a/src/tclkit86bi.vfs/lib/tcl8/8.6/http-2.9.8.tm b/src/runtime/tclkit86bi.vfs/lib/tcl8/8.6/http-2.9.8.tm similarity index 100% rename from src/tclkit86bi.vfs/lib/tcl8/8.6/http-2.9.8.tm rename to src/runtime/tclkit86bi.vfs/lib/tcl8/8.6/http-2.9.8.tm diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/d_config.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/d_config.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/d_config.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/d_config.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/d_paths.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/d_paths.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/d_paths.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/d_paths.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/p_config.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/p_config.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/p_config.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/p_config.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/p_paths.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/p_paths.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/p_paths.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/p_paths.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/0compatibility/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/aes/aes.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/aes/aes.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/aes/aes.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/aes/aes.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/aes/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/aes/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/aes/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/aes/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/S3.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/S3.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/S3.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/S3.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/xsxp.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/xsxp.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/xsxp.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/amazon-s3/xsxp.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/asn/asn.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/asn/asn.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/asn/asn.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/asn/asn.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/asn/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/asn/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/asn/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/asn/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32_c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32_c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32_c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32_c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32_tcl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32_tcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32_tcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32_tcl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32core.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32core.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32core.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32core.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex_c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex_c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex_c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex_c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex_tcl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex_tcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex_tcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/base32hex_tcl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base32/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base32/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base32/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base64/ascii85.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base64/ascii85.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base64/ascii85.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base64/ascii85.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base64/base64.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base64/base64.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base64/base64.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base64/base64.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base64/base64c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base64/base64c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base64/base64c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base64/base64c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base64/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base64/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base64/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base64/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base64/uuencode.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base64/uuencode.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base64/uuencode.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base64/uuencode.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/base64/yencode.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base64/yencode.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/base64/yencode.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/base64/yencode.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/bee/bee.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bee/bee.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/bee/bee.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bee/bee.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/bee/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bee/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/bee/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bee/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/bench/bench.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bench/bench.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/bench/bench.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bench/bench.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_read.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_read.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_read.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_read.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_wcsv.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_wcsv.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_wcsv.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_wcsv.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_wtext.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_wtext.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_wtext.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bench/bench_wtext.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/bench/libbench.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bench/libbench.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/bench/libbench.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bench/libbench.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/bench/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bench/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/bench/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bench/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/bibtex/bibtex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bibtex/bibtex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/bibtex/bibtex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bibtex/bibtex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/bibtex/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bibtex/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/bibtex/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/bibtex/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/blowfish/blowfish.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/blowfish/blowfish.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/blowfish/blowfish.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/blowfish/blowfish.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/blowfish/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/blowfish/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/blowfish/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/blowfish/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/cache/async.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/cache/async.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/cache/async.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/cache/async.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/cache/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/cache/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/cache/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/cache/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/clay/clay.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/clay/clay.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/clay/clay.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/clay/clay.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/clay/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/clay/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/clay/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/clay/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/clock/iso8601.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/clock/iso8601.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/clock/iso8601.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/clock/iso8601.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/clock/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/clock/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/clock/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/clock/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/clock/rfc2822.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/clock/rfc2822.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/clock/rfc2822.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/clock/rfc2822.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/cmdline/cmdline.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/cmdline/cmdline.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/cmdline/cmdline.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/cmdline/cmdline.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/cmdline/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/cmdline/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/cmdline/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/cmdline/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/comm/comm.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/comm/comm.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/comm/comm.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/comm/comm.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/comm/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/comm/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/comm/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/comm/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/control/ascaller.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/ascaller.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/control/ascaller.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/ascaller.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/control/assert.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/assert.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/control/assert.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/assert.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/control/control.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/control.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/control/control.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/control.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/control/do.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/do.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/control/do.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/do.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/control/no-op.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/no-op.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/control/no-op.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/no-op.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/control/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/control/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/control/tclIndex b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/tclIndex similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/control/tclIndex rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/control/tclIndex diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/coroutine/coro_auto.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/coroutine/coro_auto.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/coroutine/coro_auto.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/coroutine/coro_auto.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/coroutine/coroutine.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/coroutine/coroutine.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/coroutine/coroutine.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/coroutine/coroutine.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/coroutine/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/coroutine/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/coroutine/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/coroutine/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/counter/counter.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/counter/counter.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/counter/counter.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/counter/counter.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/counter/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/counter/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/counter/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/counter/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/crc/cksum.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/crc/cksum.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/crc/cksum.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/crc/cksum.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/crc/crc16.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/crc/crc16.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/crc/crc16.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/crc/crc16.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/crc/crc32.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/crc/crc32.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/crc/crc32.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/crc/crc32.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/crc/crcc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/crc/crcc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/crc/crcc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/crc/crcc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/crc/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/crc/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/crc/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/crc/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/crc/sum.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/crc/sum.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/crc/sum.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/crc/sum.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/cron/cron.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/cron/cron.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/cron/cron.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/cron/cron.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/cron/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/cron/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/cron/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/cron/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/csv/csv.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/csv/csv.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/csv/csv.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/csv/csv.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/csv/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/csv/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/csv/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/csv/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/debug/caller.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/debug/caller.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/debug/caller.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/debug/caller.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/debug/debug.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/debug/debug.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/debug/debug.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/debug/debug.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/debug/heartbeat.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/debug/heartbeat.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/debug/heartbeat.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/debug/heartbeat.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/debug/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/debug/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/debug/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/debug/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/debug/timestamp.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/debug/timestamp.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/debug/timestamp.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/debug/timestamp.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/defer/defer.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/defer/defer.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/defer/defer.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/defer/defer.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/defer/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/defer/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/defer/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/defer/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/des/des.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/des/des.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/des/des.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/des/des.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/des/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/des/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/des/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/des/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/des/tcldes.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/des/tcldes.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/des/tcldes.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/des/tcldes.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/des/tcldesjr.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/des/tcldesjr.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/des/tcldesjr.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/des/tcldesjr.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/dicttool/dicttool.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dicttool/dicttool.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/dicttool/dicttool.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dicttool/dicttool.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/dicttool/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dicttool/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/dicttool/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dicttool/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/dns/dns.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/dns.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/dns/dns.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/dns.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/dns/ip.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/ip.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/dns/ip.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/ip.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/dns/ipMore.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/ipMore.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/dns/ipMore.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/ipMore.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/dns/ipMoreC.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/ipMoreC.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/dns/ipMoreC.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/ipMoreC.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/dns/msgs/en.msg b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/msgs/en.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/dns/msgs/en.msg rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/msgs/en.msg diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/dns/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/dns/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/dns/resolv.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/resolv.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/dns/resolv.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/resolv.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/dns/spf.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/spf.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/dns/spf.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dns/spf.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/docstrip/docstrip.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/docstrip/docstrip.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/docstrip/docstrip.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/docstrip/docstrip.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/docstrip/docstrip_util.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/docstrip/docstrip_util.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/docstrip/docstrip_util.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/docstrip/docstrip_util.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/docstrip/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/docstrip/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/docstrip/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/docstrip/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/api.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/api.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/api.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/api.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/api_idx.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/api_idx.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/api_idx.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/api_idx.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/api_toc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/api_toc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/api_toc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/api_toc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/changelog.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/changelog.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/changelog.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/changelog.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker_idx.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker_idx.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker_idx.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker_idx.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker_toc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker_toc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker_toc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/checker_toc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/cvs.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/cvs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/cvs.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/cvs.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/docidx.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/docidx.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/docidx.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/docidx.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/doctoc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/doctoc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/doctoc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/doctoc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/doctools.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/doctools.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/doctools.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/doctools.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_common.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_common.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_common.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_common.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_html.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_html.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_html.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_html.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_idx_common.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_idx_common.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_idx_common.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_idx_common.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_markdown.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_markdown.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_markdown.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_markdown.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_nroff.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_nroff.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_nroff.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_nroff.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_bullets.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_bullets.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_bullets.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_bullets.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_ccore.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_ccore.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_ccore.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_ccore.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_cstack.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_cstack.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_cstack.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_cstack.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_dlist.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_dlist.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_dlist.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_dlist.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_margin.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_margin.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_margin.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_margin.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_para.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_para.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_para.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_para.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_state.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_state.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_state.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_state.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_utils.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_utils.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_utils.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_text_utils.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_toc_common.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_toc_common.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_toc_common.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_toc_common.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_xml.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_xml.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_xml.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_xml.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_xref.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_xref.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_xref.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/_xref.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/c.msg b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/c.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/c.msg rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/c.msg diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/de.msg b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/de.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/de.msg rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/de.msg diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/en.msg b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/en.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/en.msg rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/en.msg diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.desc b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.desc similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.desc rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.desc diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.html b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.html similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.html rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.html diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.latex b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.latex similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.latex rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.latex diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.list b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.list similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.list rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.list diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.markdown b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.markdown similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.markdown rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.markdown diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.nroff b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.nroff similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.nroff rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.nroff diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.null b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.null similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.null rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.null diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.text b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.text similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.text rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.text diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.tmml b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.tmml similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.tmml rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.tmml diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.wiki b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.wiki similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.wiki rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fmt.wiki diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fr.msg b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fr.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fr.msg rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/fr.msg diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.html b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.html similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.html rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.html diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.markdown b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.markdown similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.markdown rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.markdown diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.nroff b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.nroff similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.nroff rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.nroff diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.null b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.null similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.null rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.null diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.text b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.text similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.text rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.text diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.wiki b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.wiki similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.wiki rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/idx.wiki diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/man.macros b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/man.macros similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/man.macros rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/man.macros diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.html b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.html similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.html rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.html diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.markdown b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.markdown similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.markdown rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.markdown diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.nroff b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.nroff similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.nroff rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.nroff diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.null b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.null similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.null rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.null diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.text b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.text similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.text rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.text diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.tmml b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.tmml similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.tmml rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.tmml diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.wiki b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.wiki similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.wiki rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/mpformats/toc.wiki diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/html.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/html.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/html.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/html.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/html_cssdefaults.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/html_cssdefaults.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/html_cssdefaults.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/html_cssdefaults.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/msgcat.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/msgcat.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/msgcat.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/msgcat.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/nroff_manmacros.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/nroff_manmacros.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/nroff_manmacros.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/nroff_manmacros.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/tcl_parse.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/tcl_parse.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/tcl_parse.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/tcl_parse.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/text.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/text.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/text.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2base/text.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/container.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/container.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/container.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/container.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_docidx.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_docidx.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_docidx.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_docidx.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_html.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_html.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_html.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_html.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_json.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_json.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_json.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_json.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_nroff.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_nroff.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_nroff.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_nroff.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_text.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_text.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_text.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_text.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_wiki.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_wiki.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_wiki.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/export_wiki.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import_docidx.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import_docidx.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import_docidx.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import_docidx.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import_json.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import_json.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import_json.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/import_json.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_de.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_de.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_de.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_de.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_en.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_en.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_en.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_en.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_fr.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_fr.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_fr.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/msgcat_fr.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/parse.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/parse.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/parse.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/parse.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/structure.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/structure.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/structure.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2idx/structure.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/container.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/container.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/container.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/container.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_doctoc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_doctoc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_doctoc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_doctoc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_html.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_html.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_html.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_html.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_json.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_json.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_json.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_json.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_nroff.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_nroff.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_nroff.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_nroff.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_text.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_text.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_text.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_text.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_wiki.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_wiki.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_wiki.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/export_wiki.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import_doctoc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import_doctoc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import_doctoc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import_doctoc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import_json.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import_json.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import_json.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/import_json.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_de.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_de.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_de.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_de.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_en.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_en.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_en.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_en.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_fr.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_fr.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_fr.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/msgcat_fr.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/parse.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/parse.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/parse.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/parse.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/structure.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/structure.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/structure.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/doctools2toc/structure.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/dtplite/dtplite.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dtplite/dtplite.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/dtplite/dtplite.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dtplite/dtplite.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/dtplite/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dtplite/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/dtplite/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/dtplite/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/decode.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/decode.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/decode.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/decode.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/fileutil.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/fileutil.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/fileutil.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/fileutil.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/multi.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/multi.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/multi.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/multi.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/multiop.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/multiop.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/multiop.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/multiop.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/paths.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/paths.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/paths.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/paths.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/traverse.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/traverse.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/fileutil/traverse.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fileutil/traverse.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ftp/ftp.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ftp/ftp.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ftp/ftp.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ftp/ftp.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ftp/ftp_geturl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ftp/ftp_geturl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ftp/ftp_geturl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ftp/ftp_geturl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ftp/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ftp/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ftp/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ftp/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ftpd/ftpd.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ftpd/ftpd.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ftpd/ftpd.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ftpd/ftpd.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ftpd/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ftpd/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ftpd/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ftpd/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/fumagic/cfront.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fumagic/cfront.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/fumagic/cfront.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fumagic/cfront.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/fumagic/cgen.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fumagic/cgen.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/fumagic/cgen.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fumagic/cgen.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/fumagic/filetypes.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fumagic/filetypes.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/fumagic/filetypes.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fumagic/filetypes.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/fumagic/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fumagic/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/fumagic/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fumagic/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/fumagic/rtcore.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fumagic/rtcore.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/fumagic/rtcore.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/fumagic/rtcore.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/generator/generator.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/generator/generator.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/generator/generator.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/generator/generator.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/generator/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/generator/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/generator/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/generator/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/gpx/gpx.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/gpx/gpx.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/gpx/gpx.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/gpx/gpx.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/gpx/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/gpx/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/gpx/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/gpx/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-build.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-build.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-build.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-build.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-debug.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-debug.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-debug.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-debug.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-runtime.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-runtime.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-runtime.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/aycock-runtime.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_aycock/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/dacceptor.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/dacceptor.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/dacceptor.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/dacceptor.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/dexec.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/dexec.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/dexec.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/dexec.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/fa.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/fa.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/fa.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/fa.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/faop.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/faop.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/faop.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/faop.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_fa/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/gasm.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/gasm.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/gasm.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/gasm.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_cpu.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_cpu.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_cpu.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_cpu.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_cpucore.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_cpucore.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_cpucore.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_cpucore.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_tcl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_tcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_tcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_tcl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_util.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_util.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_util.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/me_util.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_me/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/peg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/peg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/peg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/peg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/peg_interp.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/peg_interp.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/peg_interp.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/peg_interp.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/grammar_peg/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/hook/hook.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/hook/hook.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/hook/hook.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/hook/hook.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/hook/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/hook/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/hook/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/hook/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/html/html.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/html/html.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/html/html.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/html/html.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/html/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/html/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/html/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/html/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/htmlparse/htmlparse.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/htmlparse/htmlparse.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/htmlparse/htmlparse.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/htmlparse/htmlparse.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/htmlparse/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/htmlparse/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/htmlparse/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/htmlparse/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/http/autoproxy.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/http/autoproxy.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/http/autoproxy.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/http/autoproxy.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/http/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/http/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/http/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/http/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/httpd/httpd.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/httpd/httpd.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/httpd/httpd.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/httpd/httpd.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/httpd/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/httpd/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/httpd/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/httpd/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/httpwget/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/httpwget/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/httpwget/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/httpwget/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/httpwget/wget.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/httpwget/wget.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/httpwget/wget.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/httpwget/wget.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ident/ident.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ident/ident.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ident/ident.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ident/ident.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ident/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ident/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ident/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ident/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/imap4/imap4.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/imap4/imap4.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/imap4/imap4.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/imap4/imap4.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/imap4/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/imap4/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/imap4/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/imap4/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/inifile/ini.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/inifile/ini.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/inifile/ini.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/inifile/ini.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/inifile/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/inifile/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/inifile/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/inifile/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/interp/deleg_method.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/interp/deleg_method.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/interp/deleg_method.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/interp/deleg_method.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/interp/deleg_proc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/interp/deleg_proc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/interp/deleg_proc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/interp/deleg_proc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/interp/interp.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/interp/interp.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/interp/interp.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/interp/interp.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/interp/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/interp/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/interp/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/interp/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/irc/irc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/irc/irc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/irc/irc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/irc/irc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/irc/picoirc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/irc/picoirc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/irc/picoirc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/irc/picoirc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/irc/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/irc/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/irc/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/irc/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/javascript/javascript.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/javascript/javascript.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/javascript/javascript.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/javascript/javascript.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/javascript/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/javascript/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/javascript/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/javascript/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/jpeg/jpeg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/jpeg/jpeg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/jpeg/jpeg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/jpeg/jpeg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/jpeg/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/jpeg/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/jpeg/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/jpeg/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/json/json.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/json/json.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/json/json.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/json/json.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/json/json_tcl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/json/json_tcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/json/json_tcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/json/json_tcl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/json/json_write.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/json/json_write.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/json/json_write.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/json/json_write.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/json/jsonc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/json/jsonc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/json/jsonc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/json/jsonc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/json/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/json/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/json/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/json/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/lambda/lambda.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/lambda/lambda.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/lambda/lambda.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/lambda/lambda.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/lambda/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/lambda/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/lambda/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/lambda/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/lazyset/lazyset.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/lazyset/lazyset.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/lazyset/lazyset.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/lazyset/lazyset.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/lazyset/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/lazyset/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/lazyset/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/lazyset/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ldap/ldap.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ldap/ldap.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ldap/ldap.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ldap/ldap.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ldap/ldapx.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ldap/ldapx.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ldap/ldapx.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ldap/ldapx.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ldap/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ldap/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ldap/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ldap/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/log/log.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/log/log.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/log/log.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/log/log.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/log/logger.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/log/logger.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/log/logger.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/log/logger.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/log/loggerAppender.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/log/loggerAppender.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/log/loggerAppender.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/log/loggerAppender.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/log/loggerUtils.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/log/loggerUtils.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/log/loggerUtils.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/log/loggerUtils.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/log/msgs/en.msg b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/log/msgs/en.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/log/msgs/en.msg rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/log/msgs/en.msg diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/log/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/log/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/log/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/log/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/map/map_geocode_nominatim.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/map/map_geocode_nominatim.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/map/map_geocode_nominatim.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/map/map_geocode_nominatim.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy_cache.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy_cache.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy_cache.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy_cache.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy_fetcher.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy_fetcher.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy_fetcher.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/map/map_slippy_fetcher.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/map/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/map/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/map/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/map/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/mapproj/mapproj.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mapproj/mapproj.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/mapproj/mapproj.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mapproj/mapproj.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/mapproj/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mapproj/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/mapproj/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mapproj/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/markdown/markdown.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/markdown/markdown.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/markdown/markdown.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/markdown/markdown.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/markdown/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/markdown/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/markdown/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/markdown/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/bessel.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/bessel.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/bessel.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/bessel.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/bigfloat.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/bigfloat.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/bigfloat.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/bigfloat.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/bigfloat2.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/bigfloat2.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/bigfloat2.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/bigfloat2.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/bignum.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/bignum.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/bignum.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/bignum.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/calculus.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/calculus.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/calculus.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/calculus.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/changepoint.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/changepoint.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/changepoint.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/changepoint.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/classic_polyns.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/classic_polyns.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/classic_polyns.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/classic_polyns.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/combinatorics.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/combinatorics.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/combinatorics.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/combinatorics.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/combinatoricsExt.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/combinatoricsExt.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/combinatoricsExt.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/combinatoricsExt.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/constants.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/constants.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/constants.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/constants.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/decimal.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/decimal.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/decimal.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/decimal.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/elliptic.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/elliptic.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/elliptic.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/elliptic.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/exact.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/exact.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/exact.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/exact.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/exponential.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/exponential.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/exponential.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/exponential.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/figurate.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/figurate.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/figurate.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/figurate.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/filtergen.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/filtergen.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/filtergen.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/filtergen.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/fourier.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/fourier.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/fourier.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/fourier.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/fuzzy.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/fuzzy.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/fuzzy.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/fuzzy.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/geometry.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/geometry.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/geometry.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/geometry.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/geometry_circle.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/geometry_circle.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/geometry_circle.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/geometry_circle.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/geometry_ext.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/geometry_ext.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/geometry_ext.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/geometry_ext.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/interpolate.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/interpolate.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/interpolate.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/interpolate.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/kruskal.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/kruskal.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/kruskal.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/kruskal.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/linalg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/linalg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/linalg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/linalg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/liststat.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/liststat.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/liststat.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/liststat.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/machineparameters.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/machineparameters.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/machineparameters.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/machineparameters.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/math.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/math.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/math.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/math.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/misc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/misc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/misc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/misc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/mvlinreg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/mvlinreg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/mvlinreg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/mvlinreg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/numtheory.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/numtheory.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/numtheory.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/numtheory.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/optimize.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/optimize.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/optimize.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/optimize.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/pca.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/pca.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/pca.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/pca.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/pdf_stat.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/pdf_stat.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/pdf_stat.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/pdf_stat.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/plotstat.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/plotstat.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/plotstat.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/plotstat.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/polynomials.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/polynomials.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/polynomials.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/polynomials.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/primes.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/primes.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/primes.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/primes.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/probopt.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/probopt.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/probopt.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/probopt.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_diffev.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_diffev.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_diffev.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_diffev.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_lipo.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_lipo.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_lipo.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_lipo.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_pso.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_pso.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_pso.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_pso.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_sce.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_sce.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_sce.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/probopt_sce.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/qcomplex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/qcomplex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/qcomplex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/qcomplex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/quasirandom.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/quasirandom.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/quasirandom.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/quasirandom.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/rational_funcs.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/rational_funcs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/rational_funcs.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/rational_funcs.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/romannumerals.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/romannumerals.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/romannumerals.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/romannumerals.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/special.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/special.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/special.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/special.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/stat_kernel.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/stat_kernel.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/stat_kernel.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/stat_kernel.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/stat_logit.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/stat_logit.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/stat_logit.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/stat_logit.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/stat_wasserstein.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/stat_wasserstein.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/stat_wasserstein.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/stat_wasserstein.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/statistics.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/statistics.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/statistics.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/statistics.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/symdiff.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/symdiff.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/symdiff.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/symdiff.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/tclIndex b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/tclIndex similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/tclIndex rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/tclIndex diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/trig.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/trig.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/trig.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/trig.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/math/wilcoxon.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/wilcoxon.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/math/wilcoxon.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/math/wilcoxon.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/md4/md4.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md4/md4.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/md4/md4.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md4/md4.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/md4/md4c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md4/md4c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/md4/md4c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md4/md4c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/md4/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md4/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/md4/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md4/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/md5/md5.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5/md5.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/md5/md5.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5/md5.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/md5/md5c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5/md5c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/md5/md5c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5/md5c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/md5/md5x.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5/md5x.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/md5/md5x.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5/md5x.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/md5/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/md5/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/md5crypt.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/md5crypt.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/md5crypt.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/md5crypt.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/md5cryptc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/md5cryptc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/md5cryptc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/md5cryptc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/md5crypt/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/mime/mime.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mime/mime.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/mime/mime.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mime/mime.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/mime/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mime/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/mime/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mime/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/mime/smtp.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mime/smtp.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/mime/smtp.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mime/smtp.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/mkdoc/mkdoc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mkdoc/mkdoc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/mkdoc/mkdoc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mkdoc/mkdoc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/mkdoc/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mkdoc/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/mkdoc/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/mkdoc/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/multiplexer/multiplexer.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/multiplexer/multiplexer.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/multiplexer/multiplexer.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/multiplexer/multiplexer.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/multiplexer/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/multiplexer/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/multiplexer/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/multiplexer/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/namespacex/namespacex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/namespacex/namespacex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/namespacex/namespacex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/namespacex/namespacex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/namespacex/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/namespacex/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/namespacex/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/namespacex/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ncgi/ncgi.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ncgi/ncgi.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ncgi/ncgi.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ncgi/ncgi.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ncgi/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ncgi/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ncgi/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ncgi/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/nettool/nettool.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nettool/nettool.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/nettool/nettool.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nettool/nettool.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/nettool/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nettool/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/nettool/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nettool/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/nmea/nmea.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nmea/nmea.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/nmea/nmea.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nmea/nmea.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/nmea/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nmea/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/nmea/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nmea/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/nns/common.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nns/common.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/nns/common.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nns/common.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/nns/nns.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nns/nns.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/nns/nns.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nns/nns.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/nns/nns_auto.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nns/nns_auto.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/nns/nns_auto.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nns/nns_auto.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/nns/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nns/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/nns/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nns/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/nns/server.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nns/server.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/nns/server.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nns/server.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/nntp/nntp.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nntp/nntp.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/nntp/nntp.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nntp/nntp.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/nntp/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nntp/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/nntp/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/nntp/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ntp/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ntp/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ntp/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ntp/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ntp/time.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ntp/time.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ntp/time.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ntp/time.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/oauth/oauth.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oauth/oauth.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/oauth/oauth.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oauth/oauth.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/oauth/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oauth/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/oauth/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oauth/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/oodialect/oodialect.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oodialect/oodialect.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/oodialect/oodialect.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oodialect/oodialect.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/oodialect/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oodialect/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/oodialect/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oodialect/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/oometa/oometa.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oometa/oometa.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/oometa/oometa.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oometa/oometa.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/oometa/oooption.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oometa/oooption.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/oometa/oooption.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oometa/oooption.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/oometa/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oometa/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/oometa/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/oometa/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ooutil/ooutil.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ooutil/ooutil.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ooutil/ooutil.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ooutil/ooutil.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ooutil/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ooutil/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ooutil/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ooutil/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/otp/otp.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/otp/otp.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/otp/otp.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/otp/otp.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/otp/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/otp/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/otp/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/otp/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_emodes.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_emodes.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_emodes.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_emodes.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_minimize.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_minimize.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_minimize.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_minimize.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_reachable.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_reachable.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_reachable.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_reachable.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_realizable.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_realizable.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_realizable.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/analysis_peg_realizable.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/compiler_peg_mecpu.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/compiler_peg_mecpu.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/compiler_peg_mecpu.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/compiler_peg_mecpu.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_canon.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_canon.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_canon.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_canon.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_cpkg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_cpkg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_cpkg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_cpkg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_hb.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_hb.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_hb.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_hb.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_me.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_me.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_me.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_me.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_me.template b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_me.template similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_me.template rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_me.template diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_mecpu.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_mecpu.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_mecpu.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_mecpu.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_mecpu.template b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_mecpu.template similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_mecpu.template rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_mecpu.template diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_ser.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_ser.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_ser.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_peg_ser.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_tree_text.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_tree_text.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/gen_tree_text.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/gen_tree_text.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/parse_lemon.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/parse_lemon.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/parse_lemon.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/parse_lemon.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/parse_peg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/parse_peg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/parse_peg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/parse_peg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/parse_peghb.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/parse_peghb.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/parse_peghb.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/parse_peghb.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/parse_pegser.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/parse_pegser.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/parse_pegser.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/parse_pegser.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/peg_grammar.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/peg_grammar.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/peg_grammar.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/peg_grammar.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/pluginmgr.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/pluginmgr.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/pluginmgr.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/pluginmgr.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/config_peg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/config_peg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/config_peg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/config_peg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_hb.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_hb.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_hb.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_hb.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_lemon.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_lemon.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_lemon.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_lemon.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_peg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_peg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_peg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_peg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_ser.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_ser.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_ser.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_ser.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_treeser.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_treeser.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_treeser.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/reader_treeser.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_mecpu.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_mecpu.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_mecpu.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_mecpu.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_reachable.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_reachable.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_reachable.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_reachable.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_realizable.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_realizable.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_realizable.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/transform_realizable.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_hb.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_hb.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_hb.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_hb.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_identity.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_identity.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_identity.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_identity.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_me.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_me.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_me.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_me.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_mecpu.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_mecpu.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_mecpu.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_mecpu.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_null.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_null.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_null.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_null.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_peg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_peg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_peg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_peg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_ser.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_ser.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_ser.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_ser.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_tpc.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_tpc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_tpc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_tpc.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_tree.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_tree.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_tree.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/plugins/writer_tree.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/util_flow.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/util_flow.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/util_flow.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/util_flow.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/util_norm_lemon.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/util_norm_lemon.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/util_norm_lemon.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/util_norm_lemon.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/util_norm_peg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/util_norm_peg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/util_norm_peg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/util_norm_peg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/util_peg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/util_peg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/util_peg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/util_peg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/page/util_quote.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/util_quote.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/page/util_quote.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/page/util_quote.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pki/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pki/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pki/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pki/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pki/pki.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pki/pki.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pki/pki.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pki/pki.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pluginmgr/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pluginmgr/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pluginmgr/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pluginmgr/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pluginmgr/pluginmgr.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pluginmgr/pluginmgr.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pluginmgr/pluginmgr.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pluginmgr/pluginmgr.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/png/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/png/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/png/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/png/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/png/png.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/png/png.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/png/png.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/png/png.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pop3/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pop3/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pop3/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pop3/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pop3/pop3.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pop3/pop3.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pop3/pop3.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pop3/pop3.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d_dbox.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d_dbox.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d_dbox.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d_dbox.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d_udb.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d_udb.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d_udb.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pop3d/pop3d_udb.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/practcl/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/practcl/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/practcl/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/practcl/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/practcl/practcl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/practcl/practcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/practcl/practcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/practcl/practcl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/processman/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/processman/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/processman/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/processman/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/processman/processman.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/processman/processman.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/processman/processman.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/processman/processman.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/profiler/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/profiler/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/profiler/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/profiler/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/profiler/profiler.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/profiler/profiler.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/profiler/profiler.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/profiler/profiler.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/char.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/char.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/char.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/char.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_astree.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_astree.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_astree.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_astree.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_cparam_config_critcl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_cparam_config_critcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_cparam_config_critcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_cparam_config_critcl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_cparam_config_tea.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_cparam_config_tea.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_cparam_config_tea.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_cparam_config_tea.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg_c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg_c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg_c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg_c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg_tcl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg_tcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg_tcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_parse_peg_tcl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_container.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_container.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_container.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_container.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_container_peg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_container_peg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_container_peg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_container_peg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_container.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_container.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_container.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_container.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_json.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_json.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_json.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_json.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_peg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_peg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_peg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_export_peg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_from_json.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_from_json.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_from_json.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_from_json.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_from_peg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_from_peg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_from_peg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_from_peg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import_json.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import_json.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import_json.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import_json.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import_peg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import_peg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import_peg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_import_peg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_interp.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_interp.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_interp.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_interp.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_op.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_op.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_op.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_op.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_container.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_container.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_container.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_container.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_cparam.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_cparam.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_cparam.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_cparam.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_json.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_json.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_json.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_json.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_param.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_param.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_param.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_param.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_peg.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_peg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_peg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_peg.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_tclparam.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_tclparam.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_tclparam.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_peg_to_tclparam.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pegrammar.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pegrammar.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pegrammar.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pegrammar.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pexpr_op.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pexpr_op.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pexpr_op.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pexpr_op.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pexpression.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pexpression.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pexpression.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pexpression.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pgen.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pgen.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pgen.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_pgen.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_nx.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_nx.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_nx.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_nx.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_oo.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_oo.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_oo.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_oo.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_tcl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_tcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_tcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_rdengine_tcl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_nx.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_nx.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_nx.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_nx.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_snit.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_snit.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_snit.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_snit.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_tcloo.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_tcloo.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_tcloo.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_tclparam_config_tcloo.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_util.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_util.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_util.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/pt_util.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/m.c b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/m.c similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/m.c rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/m.c diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/m.h b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/m.h similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/m.h rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/m.h diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ms.c b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ms.c similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ms.c rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ms.c diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ms.h b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ms.h similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ms.h rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ms.h diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ot.c b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ot.c similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ot.c rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ot.c diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ot.h b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ot.h similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ot.h rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/ot.h diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/p.c b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/p.c similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/p.c rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/p.c diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/p.h b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/p.h similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/p.h rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/p.h diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/pInt.h b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/pInt.h similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/pInt.h rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/pInt.h diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/param.c b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/param.c similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/param.c rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/param.c diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/param.h b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/param.h similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/param.h rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/param.h diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/stack.c b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/stack.c similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/stack.c rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/stack.c diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/stack.h b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/stack.h similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/stack.h rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/stack.h diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/tc.c b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/tc.c similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/tc.c rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/tc.c diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/tc.h b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/tc.h similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/tc.h rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/tc.h diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/util.c b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/util.c similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/util.c rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/util.c diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/util.h b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/util.h similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/util.h rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/rde_critcl/util.h diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/pt/text_write.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/text_write.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/pt/text_write.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/pt/text_write.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/rc4/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rc4/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/rc4/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rc4/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/rc4/rc4.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rc4/rc4.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/rc4/rc4.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rc4/rc4.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/rc4/rc4c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rc4/rc4c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/rc4/rc4c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rc4/rc4c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/rcs/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rcs/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/rcs/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rcs/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/rcs/rcs.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rcs/rcs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/rcs/rcs.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rcs/rcs.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/report/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/report/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/report/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/report/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/report/report.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/report/report.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/report/report.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/report/report.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/rest/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rest/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/rest/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rest/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/rest/rest.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rest/rest.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/rest/rest.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/rest/rest.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ripemd/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ripemd/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ripemd/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ripemd/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ripemd/ripemd128.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ripemd/ripemd128.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ripemd/ripemd128.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ripemd/ripemd128.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/ripemd/ripemd160.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ripemd/ripemd160.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/ripemd/ripemd160.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/ripemd/ripemd160.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sasl/gtoken.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sasl/gtoken.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sasl/gtoken.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sasl/gtoken.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sasl/ntlm.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sasl/ntlm.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sasl/ntlm.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sasl/ntlm.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sasl/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sasl/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sasl/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sasl/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sasl/sasl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sasl/sasl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sasl/sasl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sasl/sasl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sasl/scram.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sasl/scram.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sasl/scram.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sasl/scram.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sha1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sha1/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.c b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.c similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.c rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.c diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.h b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.h similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.h rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.h diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1v1.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1v1.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1v1.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha1v1.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.c b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.c similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.c rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.c diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.h b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.h similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.h rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.h diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/sha1/sha256c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/simulation/annealing.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/simulation/annealing.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/simulation/annealing.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/simulation/annealing.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/simulation/montecarlo.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/simulation/montecarlo.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/simulation/montecarlo.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/simulation/montecarlo.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/simulation/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/simulation/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/simulation/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/simulation/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/simulation/random.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/simulation/random.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/simulation/random.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/simulation/random.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/smtpd/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/smtpd/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/smtpd/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/smtpd/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/smtpd/smtpd.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/smtpd/smtpd.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/smtpd/smtpd.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/smtpd/smtpd.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/snit/main1.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/main1.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/snit/main1.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/main1.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/snit/main1_83.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/main1_83.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/snit/main1_83.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/main1_83.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/snit/main2.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/main2.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/snit/main2.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/main2.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/snit/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/snit/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/snit/snit.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/snit.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/snit/snit.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/snit.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/snit/snit2.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/snit2.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/snit/snit2.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/snit2.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/snit/snit_tcl83_utils.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/snit_tcl83_utils.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/snit/snit_tcl83_utils.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/snit_tcl83_utils.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/snit/validate.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/validate.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/snit/validate.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/snit/validate.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/soundex/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/soundex/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/soundex/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/soundex/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/soundex/soundex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/soundex/soundex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/soundex/soundex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/soundex/soundex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/stooop/mkpkgidx.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stooop/mkpkgidx.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/stooop/mkpkgidx.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stooop/mkpkgidx.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/stooop/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stooop/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/stooop/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stooop/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/stooop/stooop.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stooop/stooop.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/stooop/stooop.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stooop/stooop.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/stooop/switched.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stooop/switched.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/stooop/switched.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stooop/switched.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/stooop/xifo.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stooop/xifo.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/stooop/xifo.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stooop/xifo.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/string/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/string/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/string/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/string/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/string/token.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/string/token.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/string/token.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/string/token.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/string/token_shell.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/string/token_shell.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/string/token_shell.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/string/token_shell.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/stringprep/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stringprep/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/stringprep/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stringprep/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/stringprep/stringprep.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stringprep/stringprep.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/stringprep/stringprep.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stringprep/stringprep.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/stringprep/stringprep_data.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stringprep/stringprep_data.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/stringprep/stringprep_data.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stringprep/stringprep_data.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/stringprep/unicode.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stringprep/unicode.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/stringprep/unicode.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stringprep/unicode.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/stringprep/unicode_data.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stringprep/unicode_data.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/stringprep/unicode_data.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/stringprep/unicode_data.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/disjointset.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/disjointset.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/disjointset.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/disjointset.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/graph.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/graph.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/graph.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/graph.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/graph1.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/graph1.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/graph1.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/graph1.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/graph_c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/graph_c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/graph_c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/graph_c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/graph_tcl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/graph_tcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/graph_tcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/graph_tcl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/graphops.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/graphops.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/graphops.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/graphops.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/list.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/list.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/list.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/list.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/list.test.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/list.test.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/list.test.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/list.test.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/map.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/map.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/map.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/map.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/matrix.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/matrix.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/matrix.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/matrix.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/matrix1.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/matrix1.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/matrix1.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/matrix1.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/pool.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/pool.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/pool.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/pool.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/prioqueue.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/prioqueue.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/prioqueue.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/prioqueue.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/queue.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/queue.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/queue.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/queue.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_oo.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_oo.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_oo.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_oo.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_tcl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_tcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_tcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/queue_tcl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/record.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/record.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/record.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/record.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/sets.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/sets.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/sets.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/sets.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/sets_c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/sets_c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/sets_c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/sets_c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/sets_tcl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/sets_tcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/sets_tcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/sets_tcl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/skiplist.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/skiplist.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/skiplist.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/skiplist.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/stack.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/stack.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/stack.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/stack.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_oo.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_oo.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_oo.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_oo.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_tcl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_tcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_tcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/stack_tcl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/struct.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/struct.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/struct.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/struct.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/struct1.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/struct1.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/struct1.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/struct1.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/tree.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/tree.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/tree.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/tree.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/tree1.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/tree1.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/tree1.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/tree1.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/tree_c.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/tree_c.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/tree_c.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/tree_c.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/struct/tree_tcl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/tree_tcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/struct/tree_tcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/struct/tree_tcl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tar/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tar/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tar/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tar/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tar/tar.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tar/tar.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tar/tar.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tar/tar.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tepam/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tepam/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tepam/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tepam/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tepam/tepam.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tepam/tepam.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tepam/tepam.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tepam/tepam.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tepam/tepam_doc_gen.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tepam/tepam_doc_gen.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tepam/tepam_doc_gen.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tepam/tepam_doc_gen.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/attr.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/attr.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/attr.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/attr.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/ctrl.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/ctrl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/ctrl.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/ctrl.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/macros.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/macros.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/macros.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/code/macros.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/ctrlunix.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/ctrlunix.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/ctrlunix.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/ctrlunix.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/send.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/send.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/send.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ansi/send.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/term/bind.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/bind.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/term/bind.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/bind.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/term/imenu.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/imenu.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/term/imenu.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/imenu.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/term/ipager.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ipager.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/term/ipager.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/ipager.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/term/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/term/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/term/receive.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/receive.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/term/receive.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/receive.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/term/send.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/send.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/term/send.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/send.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/term/term.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/term.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/term/term.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/term/term.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/adjust.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/adjust.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/adjust.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/adjust.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/dehypht.tex b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/dehypht.tex similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/dehypht.tex rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/dehypht.tex diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/eshyph_vo.tex b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/eshyph_vo.tex similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/eshyph_vo.tex rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/eshyph_vo.tex diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/expander.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/expander.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/expander.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/expander.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/ithyph.tex b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/ithyph.tex similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/ithyph.tex rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/ithyph.tex diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/patch.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/patch.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/patch.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/patch.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/repeat.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/repeat.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/repeat.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/repeat.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/split.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/split.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/split.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/split.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/string.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/string.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/string.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/string.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/tabify.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/tabify.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/tabify.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/tabify.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/textutil.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/textutil.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/textutil.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/textutil.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/trim.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/trim.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/trim.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/trim.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/textutil/wcswidth.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/wcswidth.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/textutil/wcswidth.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/textutil/wcswidth.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tie/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tie/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_array.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_array.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_array.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_array.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_dsource.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_dsource.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_dsource.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_dsource.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_file.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_file.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_file.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_file.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_growfile.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_growfile.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_growfile.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_growfile.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_log.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_log.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_log.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_log.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_rarray.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_rarray.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_rarray.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tie/tie_rarray.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tiff/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tiff/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tiff/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tiff/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tiff/tiff.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tiff/tiff.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tiff/tiff.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tiff/tiff.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tool/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tool/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tool/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tool/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/tool/tool.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tool/tool.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/tool/tool.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/tool/tool.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/transfer/connect.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/connect.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/transfer/connect.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/connect.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/transfer/copyops.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/copyops.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/transfer/copyops.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/copyops.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/transfer/ddest.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/ddest.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/transfer/ddest.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/ddest.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/transfer/dsource.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/dsource.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/transfer/dsource.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/dsource.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/transfer/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/transfer/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/transfer/receiver.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/receiver.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/transfer/receiver.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/receiver.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/transfer/tqueue.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/tqueue.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/transfer/tqueue.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/tqueue.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/transfer/transmitter.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/transmitter.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/transfer/transmitter.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/transfer/transmitter.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/treeql/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/treeql/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/treeql/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/treeql/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql84.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql84.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql84.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql84.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql85.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql85.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql85.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/treeql/treeql85.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/try/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/try/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/try/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/try/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/try/throw.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/try/throw.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/try/throw.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/try/throw.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/try/try.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/try/try.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/try/try.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/try/try.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/udpcluster/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/udpcluster/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/udpcluster/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/udpcluster/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/udpcluster/udpcluster.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/udpcluster/udpcluster.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/udpcluster/udpcluster.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/udpcluster/udpcluster.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/uev/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uev/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/uev/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uev/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/uev/uevent.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uev/uevent.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/uev/uevent.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uev/uevent.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/uev/uevent_onidle.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uev/uevent_onidle.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/uev/uevent_onidle.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uev/uevent_onidle.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/units/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/units/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/units/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/units/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/units/units.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/units/units.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/units/units.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/units/units.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/uri/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uri/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/uri/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uri/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/uri/uri.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uri/uri.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/uri/uri.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uri/uri.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/uri/urn-scheme.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uri/urn-scheme.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/uri/urn-scheme.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uri/urn-scheme.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/uuid/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uuid/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/uuid/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uuid/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/uuid/uuid.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uuid/uuid.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/uuid/uuid.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/uuid/uuid.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_amex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_amex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_amex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_amex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_discover.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_discover.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_discover.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_discover.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_mastercard.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_mastercard.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_mastercard.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_mastercard.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_visa.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_visa.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_visa.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/cc_visa.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/ean13.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/ean13.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/ean13.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/ean13.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/iban.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/iban.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/iban.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/iban.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/imei.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/imei.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/imei.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/imei.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/isbn.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/isbn.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/isbn.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/isbn.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/luhn.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/luhn.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/luhn.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/luhn.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/luhn5.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/luhn5.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/luhn5.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/luhn5.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/usnpi.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/usnpi.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/usnpi.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/usnpi.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/valtype.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/valtype.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/valtype.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/valtype.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/valtype/verhoeff.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/verhoeff.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/valtype/verhoeff.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/valtype/verhoeff.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/cat.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/cat.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/cat.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/cat.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/facade.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/facade.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/facade.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/facade.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/fifo.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/fifo.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/fifo.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/fifo.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/fifo2.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/fifo2.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/fifo2.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/fifo2.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/halfpipe.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/halfpipe.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/halfpipe.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/halfpipe.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/memchan.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/memchan.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/memchan.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/memchan.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/null.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/null.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/null.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/null.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/nullzero.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/nullzero.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/nullzero.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/nullzero.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/random.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/random.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/random.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/random.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/randseed.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/randseed.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/randseed.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/randseed.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/std.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/std.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/std.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/std.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/string.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/string.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/string.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/string.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/textwindow.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/textwindow.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/textwindow.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/textwindow.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/variable.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/variable.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/variable.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/variable.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/zero.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/zero.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/zero.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_base/zero.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/core.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/core.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/core.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/core.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/events.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/events.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/events.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/events.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/transformcore.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/transformcore.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/transformcore.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_core/transformcore.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/adler32.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/adler32.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/adler32.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/adler32.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/base64.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/base64.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/base64.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/base64.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/counter.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/counter.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/counter.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/counter.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/crc32.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/crc32.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/crc32.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/crc32.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/hex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/hex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/hex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/hex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/identity.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/identity.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/identity.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/identity.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/limitsize.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/limitsize.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/limitsize.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/limitsize.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/observe.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/observe.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/observe.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/observe.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/otp.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/otp.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/otp.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/otp.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/rot.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/rot.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/rot.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/rot.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/spacer.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/spacer.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/spacer.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/spacer.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/zlib.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/zlib.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/zlib.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/virtchannel_transform/zlib.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/websocket/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/websocket/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/websocket/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/websocket/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/websocket/websocket.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/websocket/websocket.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/websocket/websocket.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/websocket/websocket.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/wip/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/wip/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/wip/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/wip/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/wip/wip.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/wip/wip.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/wip/wip.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/wip/wip.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/wip/wip2.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/wip/wip2.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/wip/wip2.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/wip/wip2.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/yaml/huddle.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/yaml/huddle.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/yaml/huddle.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/yaml/huddle.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/yaml/huddle_types.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/yaml/huddle_types.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/yaml/huddle_types.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/yaml/huddle_types.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/yaml/json2huddle.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/yaml/json2huddle.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/yaml/json2huddle.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/yaml/json2huddle.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/yaml/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/yaml/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/yaml/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/yaml/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/yaml/yaml.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/yaml/yaml.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/yaml/yaml.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/yaml/yaml.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/zip/decode.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/zip/decode.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/zip/decode.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/zip/decode.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/zip/encode.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/zip/encode.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/zip/encode.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/zip/encode.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/zip/mkzip.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/zip/mkzip.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/zip/mkzip.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/zip/mkzip.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllib1.21/zip/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllib1.21/zip/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllib1.21/zip/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllib1.21/zip/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllibc/critcl-rt.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllibc/critcl-rt.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllibc/critcl-rt.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllibc/critcl-rt.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllibc/license.terms b/src/runtime/tclkit86bi.vfs/lib/tcllibc/license.terms similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllibc/license.terms rename to src/runtime/tclkit86bi.vfs/lib/tcllibc/license.terms diff --git a/src/tclkit86bi.vfs/lib/tcllibc/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcllibc/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllibc/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcllibc/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcllibc/teapot.txt b/src/runtime/tclkit86bi.vfs/lib/tcllibc/teapot.txt similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllibc/teapot.txt rename to src/runtime/tclkit86bi.vfs/lib/tcllibc/teapot.txt diff --git a/src/tclkit86bi.vfs/lib/tcllibc/win32-x86_64/tcllibc.dll b/src/runtime/tclkit86bi.vfs/lib/tcllibc/win32-x86_64/tcllibc.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/tcllibc/win32-x86_64/tcllibc.dll rename to src/runtime/tclkit86bi.vfs/lib/tcllibc/win32-x86_64/tcllibc.dll diff --git a/src/tclkit86bi.vfs/lib/tcltls1.7.22/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tcltls1.7.22/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcltls1.7.22/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcltls1.7.22/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tcltls1.7.22/tcltls.dll b/src/runtime/tclkit86bi.vfs/lib/tcltls1.7.22/tcltls.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/tcltls1.7.22/tcltls.dll rename to src/runtime/tclkit86bi.vfs/lib/tcltls1.7.22/tcltls.dll diff --git a/src/tclkit86bi.vfs/lib/tcltls1.7.22/tls.tcl b/src/runtime/tclkit86bi.vfs/lib/tcltls1.7.22/tls.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tcltls1.7.22/tls.tcl rename to src/runtime/tclkit86bi.vfs/lib/tcltls1.7.22/tls.tcl diff --git a/src/tclkit86bi.vfs/lib/tdbc1.1.5/libtdbcstub115.a b/src/runtime/tclkit86bi.vfs/lib/tdbc1.1.5/libtdbcstub115.a similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbc1.1.5/libtdbcstub115.a rename to src/runtime/tclkit86bi.vfs/lib/tdbc1.1.5/libtdbcstub115.a diff --git a/src/tclkit86bi.vfs/lib/tdbc1.1.5/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tdbc1.1.5/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbc1.1.5/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tdbc1.1.5/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tdbc1.1.5/tdbc.tcl b/src/runtime/tclkit86bi.vfs/lib/tdbc1.1.5/tdbc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbc1.1.5/tdbc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tdbc1.1.5/tdbc.tcl diff --git a/src/tclkit86bi.vfs/lib/tdbc1.1.5/tdbc115.dll b/src/runtime/tclkit86bi.vfs/lib/tdbc1.1.5/tdbc115.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbc1.1.5/tdbc115.dll rename to src/runtime/tclkit86bi.vfs/lib/tdbc1.1.5/tdbc115.dll diff --git a/src/tclkit86bi.vfs/lib/tdbc1.1.5/tdbcConfig.sh b/src/runtime/tclkit86bi.vfs/lib/tdbc1.1.5/tdbcConfig.sh similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbc1.1.5/tdbcConfig.sh rename to src/runtime/tclkit86bi.vfs/lib/tdbc1.1.5/tdbcConfig.sh diff --git a/src/tclkit86bi.vfs/lib/tdbcmysql1.1.5/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tdbcmysql1.1.5/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbcmysql1.1.5/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tdbcmysql1.1.5/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tdbcmysql1.1.5/tdbcmysql.tcl b/src/runtime/tclkit86bi.vfs/lib/tdbcmysql1.1.5/tdbcmysql.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbcmysql1.1.5/tdbcmysql.tcl rename to src/runtime/tclkit86bi.vfs/lib/tdbcmysql1.1.5/tdbcmysql.tcl diff --git a/src/tclkit86bi.vfs/lib/tdbcmysql1.1.5/tdbcmysql115.dll b/src/runtime/tclkit86bi.vfs/lib/tdbcmysql1.1.5/tdbcmysql115.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbcmysql1.1.5/tdbcmysql115.dll rename to src/runtime/tclkit86bi.vfs/lib/tdbcmysql1.1.5/tdbcmysql115.dll diff --git a/src/tclkit86bi.vfs/lib/tdbcodbc1.1.5/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tdbcodbc1.1.5/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbcodbc1.1.5/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tdbcodbc1.1.5/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tdbcodbc1.1.5/tdbcodbc.tcl b/src/runtime/tclkit86bi.vfs/lib/tdbcodbc1.1.5/tdbcodbc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbcodbc1.1.5/tdbcodbc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tdbcodbc1.1.5/tdbcodbc.tcl diff --git a/src/tclkit86bi.vfs/lib/tdbcodbc1.1.5/tdbcodbc115.dll b/src/runtime/tclkit86bi.vfs/lib/tdbcodbc1.1.5/tdbcodbc115.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbcodbc1.1.5/tdbcodbc115.dll rename to src/runtime/tclkit86bi.vfs/lib/tdbcodbc1.1.5/tdbcodbc115.dll diff --git a/src/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/tdbcpostgres.tcl b/src/runtime/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/tdbcpostgres.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/tdbcpostgres.tcl rename to src/runtime/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/tdbcpostgres.tcl diff --git a/src/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/tdbcpostgres115.dll b/src/runtime/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/tdbcpostgres115.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/tdbcpostgres115.dll rename to src/runtime/tclkit86bi.vfs/lib/tdbcpostgres1.1.5/tdbcpostgres115.dll diff --git a/src/tclkit86bi.vfs/lib/tdom0.9.3/libtdomstub093.a b/src/runtime/tclkit86bi.vfs/lib/tdom0.9.3/libtdomstub093.a similarity index 100% rename from src/tclkit86bi.vfs/lib/tdom0.9.3/libtdomstub093.a rename to src/runtime/tclkit86bi.vfs/lib/tdom0.9.3/libtdomstub093.a diff --git a/src/tclkit86bi.vfs/lib/tdom0.9.3/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tdom0.9.3/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tdom0.9.3/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tdom0.9.3/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tdom0.9.3/tdom.tcl b/src/runtime/tclkit86bi.vfs/lib/tdom0.9.3/tdom.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tdom0.9.3/tdom.tcl rename to src/runtime/tclkit86bi.vfs/lib/tdom0.9.3/tdom.tcl diff --git a/src/tclkit86bi.vfs/lib/tdom0.9.3/tdom093.dll b/src/runtime/tclkit86bi.vfs/lib/tdom0.9.3/tdom093.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/tdom0.9.3/tdom093.dll rename to src/runtime/tclkit86bi.vfs/lib/tdom0.9.3/tdom093.dll diff --git a/src/tclkit86bi.vfs/lib/thread2.8.8/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/thread2.8.8/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/thread2.8.8/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/thread2.8.8/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/thread2.8.8/thread288.dll b/src/runtime/tclkit86bi.vfs/lib/thread2.8.8/thread288.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/thread2.8.8/thread288.dll rename to src/runtime/tclkit86bi.vfs/lib/thread2.8.8/thread288.dll diff --git a/src/tclkit86bi.vfs/lib/thread2.8.8/ttrace.tcl b/src/runtime/tclkit86bi.vfs/lib/thread2.8.8/ttrace.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/thread2.8.8/ttrace.tcl rename to src/runtime/tclkit86bi.vfs/lib/thread2.8.8/ttrace.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/bgerror.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/bgerror.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/bgerror.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/bgerror.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/button.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/button.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/button.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/button.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/choosedir.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/choosedir.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/choosedir.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/choosedir.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/clrpick.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/clrpick.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/clrpick.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/clrpick.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/comdlg.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/comdlg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/comdlg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/comdlg.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/console.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/console.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/console.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/console.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/README b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/README similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/README rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/README diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/anilabel.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/anilabel.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/anilabel.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/anilabel.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/aniwave.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/aniwave.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/aniwave.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/aniwave.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/arrow.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/arrow.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/arrow.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/arrow.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/bind.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/bind.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/bind.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/bind.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/bitmap.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/bitmap.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/bitmap.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/bitmap.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/browse b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/browse similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/browse rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/browse diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/button.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/button.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/button.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/button.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/check.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/check.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/check.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/check.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/clrpick.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/clrpick.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/clrpick.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/clrpick.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/colors.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/colors.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/colors.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/colors.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/combo.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/combo.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/combo.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/combo.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/cscroll.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/cscroll.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/cscroll.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/cscroll.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/ctext.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ctext.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/ctext.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ctext.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/dialog1.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/dialog1.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/dialog1.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/dialog1.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/dialog2.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/dialog2.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/dialog2.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/dialog2.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/en.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/en.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/en.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/en.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/entry1.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/entry1.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/entry1.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/entry1.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/entry2.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/entry2.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/entry2.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/entry2.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/entry3.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/entry3.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/entry3.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/entry3.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/filebox.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/filebox.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/filebox.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/filebox.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/floor.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/floor.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/floor.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/floor.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/fontchoose.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/fontchoose.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/fontchoose.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/fontchoose.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/form.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/form.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/form.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/form.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/goldberg.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/goldberg.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/goldberg.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/goldberg.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/hello b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/hello similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/hello rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/hello diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/hscale.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/hscale.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/hscale.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/hscale.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/icon.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/icon.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/icon.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/icon.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/image1.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/image1.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/image1.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/image1.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/image2.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/image2.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/image2.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/image2.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/images/earth.gif b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/earth.gif similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/images/earth.gif rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/earth.gif diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/images/earthmenu.png b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/earthmenu.png similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/images/earthmenu.png rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/earthmenu.png diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/images/earthris.gif b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/earthris.gif similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/images/earthris.gif rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/earthris.gif diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/images/flagdown.xbm b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/flagdown.xbm similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/images/flagdown.xbm rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/flagdown.xbm diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/images/flagup.xbm b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/flagup.xbm similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/images/flagup.xbm rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/flagup.xbm diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/images/gray25.xbm b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/gray25.xbm similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/images/gray25.xbm rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/gray25.xbm diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/images/letters.xbm b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/letters.xbm similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/images/letters.xbm rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/letters.xbm diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/images/noletter.xbm b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/noletter.xbm similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/images/noletter.xbm rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/noletter.xbm diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/images/ouster.png b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/ouster.png similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/images/ouster.png rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/ouster.png diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/images/pattern.xbm b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/pattern.xbm similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/images/pattern.xbm rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/pattern.xbm diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/images/tcllogo.gif b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/tcllogo.gif similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/images/tcllogo.gif rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/tcllogo.gif diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/images/teapot.ppm b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/teapot.ppm similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/images/teapot.ppm rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/images/teapot.ppm diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/items.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/items.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/items.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/items.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/ixset b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ixset similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/ixset rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ixset diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/knightstour.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/knightstour.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/knightstour.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/knightstour.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/label.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/label.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/label.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/label.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/labelframe.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/labelframe.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/labelframe.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/labelframe.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/license.terms b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/license.terms similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/license.terms rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/license.terms diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/mclist.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/mclist.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/mclist.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/mclist.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/menu.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/menu.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/menu.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/menu.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/menubu.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/menubu.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/menubu.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/menubu.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/msgbox.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/msgbox.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/msgbox.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/msgbox.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/nl.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/nl.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/nl.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/nl.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/paned1.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/paned1.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/paned1.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/paned1.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/paned2.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/paned2.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/paned2.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/paned2.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/pendulum.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/pendulum.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/pendulum.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/pendulum.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/plot.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/plot.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/plot.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/plot.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/puzzle.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/puzzle.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/puzzle.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/puzzle.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/radio.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/radio.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/radio.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/radio.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/rmt b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/rmt similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/rmt rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/rmt diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/rolodex b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/rolodex similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/rolodex rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/rolodex diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/ruler.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ruler.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/ruler.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ruler.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/sayings.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/sayings.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/sayings.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/sayings.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/search.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/search.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/search.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/search.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/spin.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/spin.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/spin.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/spin.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/states.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/states.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/states.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/states.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/style.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/style.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/style.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/style.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/tclIndex b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/tclIndex similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/tclIndex rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/tclIndex diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/tcolor b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/tcolor similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/tcolor rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/tcolor diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/text.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/text.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/text.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/text.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/textpeer.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/textpeer.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/textpeer.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/textpeer.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/timer b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/timer similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/timer rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/timer diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/toolbar.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/toolbar.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/toolbar.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/toolbar.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/tree.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/tree.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/tree.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/tree.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/ttkbut.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ttkbut.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/ttkbut.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ttkbut.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/ttkmenu.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ttkmenu.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/ttkmenu.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ttkmenu.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/ttknote.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ttknote.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/ttknote.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ttknote.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/ttkpane.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ttkpane.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/ttkpane.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ttkpane.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/ttkprogress.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ttkprogress.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/ttkprogress.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ttkprogress.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/ttkscale.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ttkscale.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/ttkscale.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/ttkscale.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/twind.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/twind.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/twind.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/twind.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/unicodeout.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/unicodeout.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/unicodeout.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/unicodeout.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/vscale.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/vscale.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/vscale.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/vscale.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/demos/widget b/src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/widget similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/demos/widget rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/demos/widget diff --git a/src/tclkit86bi.vfs/lib/tk8.6/dialog.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/dialog.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/dialog.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/dialog.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/entry.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/entry.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/entry.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/entry.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/focus.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/focus.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/focus.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/focus.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/fontchooser.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/fontchooser.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/fontchooser.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/fontchooser.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/iconlist.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/iconlist.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/iconlist.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/iconlist.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/icons.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/icons.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/icons.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/icons.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/images/README b/src/runtime/tclkit86bi.vfs/lib/tk8.6/images/README similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/images/README rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/images/README diff --git a/src/tclkit86bi.vfs/lib/tk8.6/images/logo.eps b/src/runtime/tclkit86bi.vfs/lib/tk8.6/images/logo.eps similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/images/logo.eps rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/images/logo.eps diff --git a/src/tclkit86bi.vfs/lib/tk8.6/images/logo100.gif b/src/runtime/tclkit86bi.vfs/lib/tk8.6/images/logo100.gif similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/images/logo100.gif rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/images/logo100.gif diff --git a/src/tclkit86bi.vfs/lib/tk8.6/images/logo64.gif b/src/runtime/tclkit86bi.vfs/lib/tk8.6/images/logo64.gif similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/images/logo64.gif rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/images/logo64.gif diff --git a/src/tclkit86bi.vfs/lib/tk8.6/images/logoLarge.gif b/src/runtime/tclkit86bi.vfs/lib/tk8.6/images/logoLarge.gif similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/images/logoLarge.gif rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/images/logoLarge.gif diff --git a/src/tclkit86bi.vfs/lib/tk8.6/images/logoMed.gif b/src/runtime/tclkit86bi.vfs/lib/tk8.6/images/logoMed.gif similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/images/logoMed.gif rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/images/logoMed.gif diff --git a/src/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo.eps b/src/runtime/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo.eps similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo.eps rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo.eps diff --git a/src/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo100.gif b/src/runtime/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo100.gif similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo100.gif rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo100.gif diff --git a/src/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo150.gif b/src/runtime/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo150.gif similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo150.gif rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo150.gif diff --git a/src/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo175.gif b/src/runtime/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo175.gif similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo175.gif rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo175.gif diff --git a/src/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo200.gif b/src/runtime/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo200.gif similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo200.gif rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo200.gif diff --git a/src/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo75.gif b/src/runtime/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo75.gif similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo75.gif rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/images/pwrdLogo75.gif diff --git a/src/tclkit86bi.vfs/lib/tk8.6/images/tai-ku.gif b/src/runtime/tclkit86bi.vfs/lib/tk8.6/images/tai-ku.gif similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/images/tai-ku.gif rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/images/tai-ku.gif diff --git a/src/tclkit86bi.vfs/lib/tk8.6/listbox.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/listbox.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/listbox.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/listbox.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/megawidget.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/megawidget.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/megawidget.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/megawidget.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/menu.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/menu.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/menu.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/menu.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/mkpsenc.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/mkpsenc.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/mkpsenc.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/mkpsenc.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgbox.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgbox.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgbox.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgbox.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/cs.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/cs.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/cs.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/cs.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/da.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/da.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/da.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/da.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/de.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/de.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/de.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/de.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/el.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/el.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/el.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/el.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/en.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/en.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/en.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/en.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/en_gb.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/en_gb.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/en_gb.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/en_gb.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/eo.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/eo.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/eo.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/eo.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/es.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/es.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/es.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/es.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/fi.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/fi.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/fi.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/fi.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/fr.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/fr.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/fr.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/fr.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/hu.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/hu.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/hu.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/hu.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/it.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/it.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/it.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/it.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/nl.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/nl.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/nl.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/nl.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/pl.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/pl.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/pl.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/pl.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/pt.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/pt.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/pt.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/pt.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/ru.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/ru.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/ru.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/ru.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/sv.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/sv.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/sv.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/sv.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/msgs/zh_cn.msg b/src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/zh_cn.msg similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/msgs/zh_cn.msg rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/msgs/zh_cn.msg diff --git a/src/tclkit86bi.vfs/lib/tk8.6/obsolete.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/obsolete.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/obsolete.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/obsolete.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/optMenu.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/optMenu.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/optMenu.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/optMenu.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/palette.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/palette.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/palette.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/palette.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/panedwindow.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/panedwindow.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/panedwindow.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/panedwindow.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/safetk.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/safetk.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/safetk.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/safetk.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/scale.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/scale.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/scale.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/scale.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/scrlbar.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/scrlbar.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/scrlbar.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/scrlbar.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/spinbox.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/spinbox.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/spinbox.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/spinbox.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/tclIndex b/src/runtime/tclkit86bi.vfs/lib/tk8.6/tclIndex similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/tclIndex rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/tclIndex diff --git a/src/tclkit86bi.vfs/lib/tk8.6/tearoff.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/tearoff.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/tearoff.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/tearoff.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/text.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/text.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/text.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/text.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/tk.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/tk.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/tk.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/tk.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/tkAppInit.c b/src/runtime/tclkit86bi.vfs/lib/tk8.6/tkAppInit.c similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/tkAppInit.c rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/tkAppInit.c diff --git a/src/tclkit86bi.vfs/lib/tk8.6/tkfbox.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/tkfbox.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/tkfbox.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/tkfbox.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/altTheme.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/altTheme.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/altTheme.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/altTheme.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/aquaTheme.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/aquaTheme.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/aquaTheme.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/aquaTheme.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/button.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/button.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/button.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/button.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/clamTheme.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/clamTheme.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/clamTheme.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/clamTheme.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/classicTheme.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/classicTheme.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/classicTheme.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/classicTheme.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/combobox.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/combobox.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/combobox.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/combobox.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/cursors.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/cursors.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/cursors.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/cursors.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/defaults.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/defaults.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/defaults.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/defaults.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/entry.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/entry.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/entry.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/entry.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/fonts.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/fonts.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/fonts.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/fonts.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/menubutton.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/menubutton.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/menubutton.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/menubutton.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/notebook.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/notebook.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/notebook.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/notebook.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/panedwindow.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/panedwindow.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/panedwindow.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/panedwindow.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/progress.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/progress.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/progress.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/progress.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/scale.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/scale.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/scale.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/scale.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/scrollbar.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/scrollbar.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/scrollbar.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/scrollbar.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/sizegrip.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/sizegrip.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/sizegrip.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/sizegrip.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/spinbox.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/spinbox.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/spinbox.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/spinbox.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/treeview.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/treeview.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/treeview.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/treeview.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/ttk.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/ttk.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/ttk.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/ttk.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/utils.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/utils.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/utils.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/utils.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/vistaTheme.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/vistaTheme.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/vistaTheme.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/vistaTheme.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/winTheme.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/winTheme.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/winTheme.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/winTheme.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/ttk/xpTheme.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/xpTheme.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/ttk/xpTheme.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/ttk/xpTheme.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/unsupported.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/unsupported.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/unsupported.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/unsupported.tcl diff --git a/src/tclkit86bi.vfs/lib/tk8.6/xmfbox.tcl b/src/runtime/tclkit86bi.vfs/lib/tk8.6/xmfbox.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/tk8.6/xmfbox.tcl rename to src/runtime/tclkit86bi.vfs/lib/tk8.6/xmfbox.tcl diff --git a/src/tclkit86bi.vfs/lib/udp1.0.11/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/udp1.0.11/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/udp1.0.11/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/udp1.0.11/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/udp1.0.11/udp1011.dll b/src/runtime/tclkit86bi.vfs/lib/udp1.0.11/udp1011.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/udp1.0.11/udp1011.dll rename to src/runtime/tclkit86bi.vfs/lib/udp1.0.11/udp1011.dll diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/ftpvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/ftpvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/ftpvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/ftpvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/httpvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/httpvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/httpvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/httpvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/mk4vfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/mk4vfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/mk4vfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/mk4vfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/starkit.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/starkit.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/starkit.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/starkit.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/tarvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/tarvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/tarvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/tarvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/tclprocvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/tclprocvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/tclprocvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/tclprocvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/template/chrootvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/chrootvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/template/chrootvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/chrootvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/template/collatevfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/collatevfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/template/collatevfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/collatevfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/template/deltavfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/deltavfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/template/deltavfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/deltavfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/template/fishvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/fishvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/template/fishvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/fishvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/template/globfind.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/globfind.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/template/globfind.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/globfind.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/template/quotavfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/quotavfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/template/quotavfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/quotavfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/template/tclIndex b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/tclIndex similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/template/tclIndex rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/tclIndex diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/template/tdelta.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/tdelta.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/template/tdelta.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/tdelta.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/template/templatevfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/templatevfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/template/templatevfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/templatevfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/template/versionvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/versionvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/template/versionvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/template/versionvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/testvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/testvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/testvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/testvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/tkvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/tkvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/tkvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/tkvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/vfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/vfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/vfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/vfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/vfsUrl.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/vfsUrl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/vfsUrl.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/vfsUrl.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/vfsUtils.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/vfsUtils.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/vfsUtils.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/vfsUtils.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/vfslib.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/vfslib.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/vfslib.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/vfslib.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/webdavvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/webdavvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/webdavvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/webdavvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.1/zipvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/zipvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.1/zipvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.1/zipvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/ftpvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/ftpvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/ftpvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/ftpvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/httpvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/httpvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/httpvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/httpvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/mk4vfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/mk4vfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/mk4vfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/mk4vfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/starkit.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/starkit.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/starkit.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/starkit.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/tarvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/tarvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/tarvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/tarvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/tclprocvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/tclprocvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/tclprocvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/tclprocvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/template/chrootvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/chrootvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/template/chrootvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/chrootvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/template/collatevfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/collatevfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/template/collatevfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/collatevfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/template/deltavfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/deltavfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/template/deltavfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/deltavfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/template/fishvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/fishvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/template/fishvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/fishvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/template/globfind.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/globfind.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/template/globfind.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/globfind.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/template/quotavfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/quotavfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/template/quotavfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/quotavfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/template/tclIndex b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/tclIndex similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/template/tclIndex rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/tclIndex diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/template/tdelta.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/tdelta.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/template/tdelta.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/tdelta.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/template/templatevfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/templatevfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/template/templatevfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/templatevfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/template/versionvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/versionvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/template/versionvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/template/versionvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/testvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/testvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/testvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/testvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/tkvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/tkvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/tkvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/tkvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/vfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/vfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/vfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/vfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/vfs142.dll b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/vfs142.dll similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/vfs142.dll rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/vfs142.dll diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/vfsUrl.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/vfsUrl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/vfsUrl.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/vfsUrl.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/vfsUtils.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/vfsUtils.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/vfsUtils.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/vfsUtils.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/vfslib.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/vfslib.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/vfslib.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/vfslib.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/webdavvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/webdavvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/webdavvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/webdavvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vfs1.4.2/zipvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/zipvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vfs1.4.2/zipvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vfs1.4.2/zipvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vqtcl4.1/m2mvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vqtcl4.1/m2mvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vqtcl4.1/m2mvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vqtcl4.1/m2mvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vqtcl4.1/mkclvfs.tcl b/src/runtime/tclkit86bi.vfs/lib/vqtcl4.1/mkclvfs.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vqtcl4.1/mkclvfs.tcl rename to src/runtime/tclkit86bi.vfs/lib/vqtcl4.1/mkclvfs.tcl diff --git a/src/tclkit86bi.vfs/lib/vqtcl4.1/mklite.tcl b/src/runtime/tclkit86bi.vfs/lib/vqtcl4.1/mklite.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vqtcl4.1/mklite.tcl rename to src/runtime/tclkit86bi.vfs/lib/vqtcl4.1/mklite.tcl diff --git a/src/tclkit86bi.vfs/lib/vqtcl4.1/pkgIndex.tcl b/src/runtime/tclkit86bi.vfs/lib/vqtcl4.1/pkgIndex.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vqtcl4.1/pkgIndex.tcl rename to src/runtime/tclkit86bi.vfs/lib/vqtcl4.1/pkgIndex.tcl diff --git a/src/tclkit86bi.vfs/lib/vqtcl4.1/ratcl.tcl b/src/runtime/tclkit86bi.vfs/lib/vqtcl4.1/ratcl.tcl similarity index 100% rename from src/tclkit86bi.vfs/lib/vqtcl4.1/ratcl.tcl rename to src/runtime/tclkit86bi.vfs/lib/vqtcl4.1/ratcl.tcl diff --git a/src/tclkit86bi.vfs/tclkit.ico b/src/runtime/tclkit86bi.vfs/tclkit.ico similarity index 100% rename from src/tclkit86bi.vfs/tclkit.ico rename to src/runtime/tclkit86bi.vfs/tclkit.ico