diff --git a/devel/tcllib/Makefile b/devel/tcllib/Makefile index 04b896389cbb..1bdfdd552a70 100644 --- a/devel/tcllib/Makefile +++ b/devel/tcllib/Makefile @@ -1,101 +1,101 @@ # Created by: Mikhail Teterin PORTNAME= tcllib -PORTVERSION= 1.20 +PORTVERSION= 1.21 CATEGORIES= devel tcl MASTER_SITES= https://core.tcl.tk/tcllib/uv/ MAINTAINER= tcltk@FreeBSD.org COMMENT= Collection of utility modules for Tcl LICENSE= TclTk LICENSE_NAME= Tcl/Tk License LICENSE_FILE= ${WRKSRC}/license.terms LICENSE_PERMS= dist-mirror dist-sell pkg-mirror pkg-sell auto-accept OPTIONS_DEFINE?=DOCS MANPAGES OPTIONS_SUB= yes USES+= tcl tar:xz USE_LOCALE= en_US.UTF-8 GNU_CONFIGURE= yes CONFIGURE_ENV+= ac_cv_path_tclsh="${TCLSH}" TEST_TARGET= test TEST_ENV= ${MAKE_ENV} DISPLAY= TZ=utc .if ${OPTIONS_DEFINE:MDOCS} PORTDOCS= * .endif INSTALL_ARGS= -pkgs -pkg-path ${STAGEDIR}${PREFIX}/lib/tcllib \ -apps -app-path ${STAGEDIR}${PREFIX}/bin \ -no-wait -no-gui -no-examples .include # # Man pages # .if ${PORT_OPTIONS:MMANPAGES} && !(defined(ALL_TARGET) && !empty(ALL_TARGET:Mcritcl)) ALL_TARGET+= nroff-doc INSTALL_ARGS+= -nroff-path ${STAGEDIR}${PREFIX}/man/mann .else INSTALL_ARGS+= -no-nroff .endif # # HTML documentation # .if ${PORT_OPTIONS:MDOCS} && !(defined(ALL_TARGET) && !empty(ALL_TARGET:Mcritcl)) ALL_TARGET+= html-doc INSTALL_ARGS+= -html-path ${STAGEDIR}${DOCSDIR} .else INSTALL_ARGS+= -no-html .endif .if !target(post-patch) post-patch: # # Ensure the detailed output of vendors' self-tests is # available in addition to the pretty progress report: # ${REINPLACE_CMD} -e 's,test run,test run -l testlog,' \ -e 's,$$(libdir)/@PACKAGE@@VERSION@,$$(libdir)/@PACKAGE@,' \ ${WRKSRC}/Makefile.in ${FIND} ${WRKSRC}/apps -type f ! -name "*.man" | ${XARGS} \ ${REINPLACE_CMD} -e 's,exec tclsh,exec ${TCLSH},' -e 's,/usr/bin/env tclsh,${TCLSH},' # # man pages have the .tcllib suffix, so there's no need to have a # tcllib_ prefix too # cd ${WRKSRC} && \ for man in `${FIND} . -name "tcllib_*.man"`; do \ ${MV} $$man `echo $$man | ${SED} -e 's|tcllib_||'`; \ done && \ for man in `${FIND} . -name "tcllib_*.n"`; do \ ${MV} $$man `echo $$man | ${SED} -e 's|tcllib_||'`; \ done # # add the .tcllib suffix to man pages # cd ${WRKSRC} && \ for man in `${FIND} . -name "*.man"`; do \ ${MV} $$man `echo $$man | ${SED} -e 's|man$$|tcllib.man|'`; \ done && \ for man in `${FIND} . -name "*.n"`; do \ ${MV} $$man `echo $$man | ${SED} -e 's|n$$|tcllib.n|'`; \ done # # remove all .orig files # # ${FIND} ${WRKSRC} -type f -name "*.orig" -delete .endif .if !target(do-install) do-install: cd ${WRKSRC} && ${TCLSH} ./installer.tcl ${INSTALL_ARGS} .endif .include diff --git a/devel/tcllib/distinfo b/devel/tcllib/distinfo index e2ff96cafc8d..e7b82e3fbe82 100644 --- a/devel/tcllib/distinfo +++ b/devel/tcllib/distinfo @@ -1,3 +1,3 @@ -TIMESTAMP = 1575275009 -SHA256 (tcllib-1.20.tar.xz) = 199e8ec7ee26220e8463bc84dd55c44965fc8ef4d4ac6e4684b2b1c03b1bd5b9 -SIZE (tcllib-1.20.tar.xz) = 6692664 +TIMESTAMP = 1652338359 +SHA256 (tcllib-1.21.tar.xz) = 10c7749e30fdd6092251930e8a1aa289b193a3b7f1abf17fee1d4fa89814762f +SIZE (tcllib-1.21.tar.xz) = 6467488 diff --git a/devel/tcllib/files/patch-warnings b/devel/tcllib/files/patch-warnings index 38276e544816..dcbbf3bf52d9 100644 --- a/devel/tcllib/files/patch-warnings +++ b/devel/tcllib/files/patch-warnings @@ -1,2478 +1,2204 @@ ---- modules/md5/md5.c.orig 2016-02-04 05:14:14 UTC -+++ modules/md5/md5.c -@@ -115,7 +115,7 @@ MD5_CTX *mdContext; +--- ./modules/rc4/rc4c.tcl.orig 2021-10-28 21:08:34.000000000 +0000 ++++ ./modules/rc4/rc4c.tcl 2022-05-12 07:00:35.590698000 +0000 +@@ -20,6 +20,8 @@ + namespace eval ::rc4 { + + critcl::ccode { ++ #include ++ + #include + + typedef struct RC4_CTX { +--- ./modules/md5/md5.c.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/md5/md5.c 2022-05-12 07:00:35.560242000 +0000 +@@ -115,7 +115,7 @@ in the message whose digest is being computed. */ void MD5Update (mdContext, inBuf, inLen) -register MD5_CTX *mdContext; unsigned char *inBuf; +register MD5_CTX *mdContext; const unsigned char *inBuf; unsigned int inLen; { register int i, ii; ---- modules/md5/md5.h.orig 2016-02-04 05:14:14 UTC -+++ modules/md5/md5.h -@@ -59,7 +59,7 @@ typedef struct { +--- ./modules/md5/md5.h.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/md5/md5.h 2022-05-12 07:00:35.560779000 +0000 +@@ -59,7 +59,7 @@ } MD5_CTX; void MD5Init (MD5_CTX *mdContext); -void MD5Update (MD5_CTX *mdContext, unsigned char *buf, unsigned int len); +void MD5Update (MD5_CTX *mdContext, const unsigned char *buf, unsigned int len); void MD5Final (unsigned char digest[16], MD5_CTX *mdContext); void Transform (UINT4 *buf, UINT4 *in); ---- modules/md5crypt/md5cryptc.tcl.orig 2016-02-04 05:14:14 UTC -+++ modules/md5crypt/md5cryptc.tcl -@@ -57,8 +57,9 @@ namespace eval ::md5crypt { - const char *salt, - const char *magic) - { -- static char passwd[120], *p; -- static const unsigned char *sp,*ep; -+ static char passwd[120]; -+ char *p; -+ const unsigned char *sp,*ep; - unsigned char final[16]; - int sl,pl,i; - MD5_CTX ctx,ctx1; -@@ -113,7 +114,7 @@ namespace eval ::md5crypt { - } - - /* Now make the output string */ -- snprintf(passwd, sizeof(passwd), "%s%.*s$", (char *)magic, -+ p = passwd + snprintf(passwd, sizeof(passwd), "%s%.*s$", (char *)magic, - sl, (const char *)sp); - - MD5Final(final,&ctx); -@@ -143,8 +144,6 @@ namespace eval ::md5crypt { - MD5Final(final,&ctx1); - } +--- ./modules/struct/tree/ms.c.orig 2019-08-23 04:55:09.000000000 +0000 ++++ ./modules/struct/tree/ms.c 2022-05-12 07:00:40.010342000 +0000 +@@ -312,7 +312,7 @@ + M_NODES, M_NUMCHILDREN, M_PARENT, M_PREVIOUS, M_RENAME, + M_ROOTNAME, M_SERIALIZE, M_SET, M_SIZE, M_SPLICE, + M_SWAP, M_UNSET, M_WALK, M_WALKPROC +- }; ++ } method; -- p = passwd + strlen(passwd); -- - l = (final[ 0]<<16) | (final[ 6]<<8) | final[12]; to64(p,l,4); p += 4; - l = (final[ 1]<<16) | (final[ 7]<<8) | final[13]; to64(p,l,4); p += 4; - l = (final[ 2]<<16) | (final[ 8]<<8) | final[14]; to64(p,l,4); p += 4; ---- modules/pt/pt_cparam_config_critcl.tcl.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/pt_cparam_config_critcl.tcl -@@ -114,6 +114,8 @@ proc ::pt::cparam::configuration::critcl - critcl::ccode { - /* -*- c -*- */ + if (objc < 2) { + Tcl_WrongNumArgs (interp, objc, objv, "option ?arg arg ...?"); +@@ -326,7 +326,7 @@ + * the requested functionality + */ -+ #include -+ #include - #include - #define SCOPE static +- switch (m) { ++ switch (method = m) { + case M_TASSIGN: return tm_TASSIGN (t, interp, objc, objv); + case M_TSET: return tm_TSET (t, interp, objc, objv); + case M_ANCESTORS: return tm_ANCESTORS (t, interp, objc, objv); +--- ./modules/struct/tree/util.c.orig 2019-08-23 04:55:09.000000000 +0000 ++++ ./modules/struct/tree/util.c 2022-05-12 07:00:40.012345000 +0000 +@@ -77,7 +77,7 @@ + /* Delete all items in the list. + */ ---- modules/pt/pt_cparam_config_tea.tcl.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/pt_cparam_config_tea.tcl -@@ -94,6 +94,7 @@ proc ::pt::cparam::configuration::tea::d - * * ** *** ***** ******** ************* *********************/ - #include - #include -+ #include - #include - #include - #define SCOPE static ---- modules/pt/pt_parse_peg_c.tcl.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/pt_parse_peg_c.tcl -@@ -45,6 +45,8 @@ namespace eval ::pt::parse { - critcl::ccode { - /* -*- c -*- */ +-void* ++void + nlq_clear (NLQ* q) + { + NL* next; +--- ./modules/struct/tree/util.h.orig 2019-08-23 04:55:09.000000000 +0000 ++++ ./modules/struct/tree/util.h 2022-05-12 07:00:40.012741000 +0000 +@@ -52,7 +52,7 @@ + void nlq_append (NLQ* q, void* n); + void nlq_push (NLQ* q, void* n); + void* nlq_pop (NLQ* q); +-void* nlq_clear (NLQ* q); ++void nlq_clear (NLQ* q); -+ #include -+ #include - #include - #define SCOPE static + #endif /* _UTIL_H */ + +--- ./modules/struct/tree/walk.c.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/struct/tree/walk.c 2022-05-12 07:00:40.013310000 +0000 +@@ -1,8 +1,9 @@ -@@ -896,7 +898,7 @@ namespace eval ::pt::parse { - p->ER->loc = p->CL; - p->ER->msg = rde_stack_new (NULL); - ASSERT_BOUNDS(s,p->numstr); -- rde_stack_push (p->ER->msg, (void*) s); -+ rde_stack_push (p->ER->msg, (void*)(intptr_t)s); - } - static void - error_state_free (void* esx) -@@ -986,7 +988,7 @@ namespace eval ::pt::parse { - hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); - if (!hPtr) { return 0; } - tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); -- hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); -+ hPtr = Tcl_FindHashEntry (tablePtr, (void *)(intptr_t)s); - if (!hPtr) { return 0; } - - scs = Tcl_GetHashValue (hPtr); -@@ -1002,7 +1004,7 @@ namespace eval ::pt::parse { - SCOPE void - rde_param_i_symbol_save (RDE_PARAM p, long int s) - { -- long int at = (long int) rde_stack_top (p->LS); -+ intptr_t at = (intptr_t)rde_stack_top (p->LS); - NC_STATE* scs; - Tcl_HashEntry* hPtr; - Tcl_HashTable* tablePtr; -@@ -1011,7 +1013,7 @@ namespace eval ::pt::parse { - TRACE (("RDE_PARAM %p",p)); - TRACE (("INT %d",s)); - -- hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); -+ hPtr = Tcl_CreateHashEntry (&p->NC, (void*) at, &isnew); - if (isnew) { - tablePtr = ALLOC (Tcl_HashTable); - Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); -@@ -1019,7 +1021,7 @@ namespace eval ::pt::parse { - } else { - tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - } -- hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); -+ hPtr = Tcl_CreateHashEntry (tablePtr, (void*)(intptr_t)s, &isnew); - if (isnew) { - - scs = ALLOC (NC_STATE); -@@ -1169,12 +1171,14 @@ namespace eval ::pt::parse { - static int - UniCharIsHexDigit (int character) - { -- return (character >= 0) && (character < 0x80) && isxdigit(character); -+ return UniCharIsDecDigit(character) || -+ (character >= 'a' && character <= 'f') || -+ (character >= 'A' && character <= 'F'); - } - static int - UniCharIsDecDigit (int character) - { -- return (character >= 0) && (character < 0x80) && isdigit(character); -+ return (character >= '0') && (character <= '9'); - } - SCOPE void - rde_param_i_value_clear (RDE_PARAM p) -@@ -4727,7 +4731,7 @@ namespace eval ::pt::parse { - /* -*- c -*- */ ++#include + #include +-#include "tcl.h" +-#include +-#include ++#include ++#include "t.h" ++#include "util.h" - typedef struct PARSERg { -- long int counter; -+ size_t counter; - char buf [50]; - } PARSERg; + /* .................................................. */ -@@ -4755,7 +4759,7 @@ namespace eval ::pt::parse { +--- ./modules/struct/sets/m.c.orig 2019-08-23 04:55:09.000000000 +0000 ++++ ./modules/struct/sets/m.c 2022-05-12 07:00:40.005832000 +0000 +@@ -80,7 +80,7 @@ + s_get (interp, val, &vs); } - parserg->counter ++; -- sprintf (parserg->buf, "peg%ld", parserg->counter); -+ sprintf (parserg->buf, "peg%td", parserg->counter); - return parserg->buf; - #undef KEY +- (void*) Tcl_CreateHashEntry(&vs->el, key, &new); ++ Tcl_CreateHashEntry(&vs->el, key, &new); + nx = 1; } ---- modules/pt/pt_rdengine_c.tcl.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/pt_rdengine_c.tcl -@@ -48,7 +48,7 @@ namespace eval ::pt { - */ - - typedef struct PARAMg { -- long int counter; -+ size_t counter; - char buf [50]; - } PARAMg; - -@@ -76,7 +76,7 @@ namespace eval ::pt { - } - - paramg->counter ++; -- sprintf (paramg->buf, "rde%ld", paramg->counter); -+ sprintf (paramg->buf, "rde%td", paramg->counter); - return paramg->buf; + if (nx) { +--- ./modules/struct/sets/s.c.orig 2019-08-23 04:55:09.000000000 +0000 ++++ ./modules/struct/sets/s.c 2022-05-12 07:00:40.006303000 +0000 +@@ -293,7 +293,7 @@ + if (Tcl_FindHashEntry (&b->el, key) != NULL) continue; + /* key is in a, not in b <=> in (a-b) */ - #undef KEY ---- modules/pt/rde_critcl/p.c.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/rde_critcl/p.c -@@ -2,9 +2,10 @@ - * (c) PARAM functions - */ +- (void*) Tcl_CreateHashEntry(&s->el, key, &new); ++ Tcl_CreateHashEntry(&s->el, key, &new); + } --#include /* Our public and internal APIs */ --#include /* Allocation macros */ -+#include - #include -+#include "pInt.h" /* Our public and internal APIs */ -+#include "util.h" /* Allocation macros */ + return s; +@@ -329,7 +329,7 @@ + if (Tcl_FindHashEntry (&b->el, key) == NULL) continue; + /* key is in a, in b <=> in (a*b) */ - /* .................................................. */ +- (void*) Tcl_CreateHashEntry(&s->el, key, &new); ++ Tcl_CreateHashEntry(&s->el, key, &new); + } -@@ -132,7 +133,7 @@ param_intern (RDE_STATE p, const char* l - hPtr = Tcl_CreateHashEntry(&p->str, literal, &isnew); - ASSERT (isnew, "Should have found entry"); + return s; +@@ -365,7 +365,7 @@ + he != NULL; + he = Tcl_NextHashEntry(&hs)) { + key = Tcl_GetHashKey (&b->el, he); +- (void*) Tcl_CreateHashEntry(&a->el, key, &new); ++ Tcl_CreateHashEntry(&a->el, key, &new); + if (new) {nx = 1;} + } + } +@@ -377,7 +377,7 @@ + { + int new; -- Tcl_SetHashValue (hPtr, p->numstr); -+ Tcl_SetHashValue (hPtr, (intptr_t)p->numstr); +- (void*) Tcl_CreateHashEntry(&a->el, item, &new); ++ Tcl_CreateHashEntry(&a->el, item, &new); + } - if (p->numstr >= p->maxnum) { - long int new; ---- modules/pt/rde_critcl/param.c.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/rde_critcl/param.c -@@ -3,11 +3,13 @@ - * == pt::rde (critcl) - Data Structures - PARAM architectural state. + void +--- ./modules/struct/graph/ds.h.orig 2019-08-23 04:55:09.000000000 +0000 ++++ ./modules/struct/graph/ds.h 2022-05-12 07:00:35.592738000 +0000 +@@ -160,7 +160,7 @@ */ --#include /* Public and private APIs */ --#include /* Stack handling */ --#include /* Token cache handling */ --#include /* Allocation utilities */ -+#include -+#include - #include -+#include "param.h" /* Public and private APIs */ -+#include "stack.h" /* Stack handling */ -+#include "tc.h" /* Token cache handling */ -+#include "util.h" /* Allocation utilities */ - - /* - * = = == === ===== ======== ============= ===================== -@@ -670,7 +672,7 @@ error_set (RDE_PARAM p, long int s) - - ASSERT_BOUNDS(s,p->numstr); + typedef struct GG { +- long int counter; /* Graph id generator */ ++ size_t counter; /* Graph id generator */ + char buf [50]; /* Buffer for handle construction */ + } GG; -- rde_stack_push (p->ER->msg, (void*) s); -+ rde_stack_push (p->ER->msg, (void*)(intptr_t)s); +--- ./modules/struct/graph/filter.c.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/struct/graph/filter.c 2022-05-12 07:00:35.593586000 +0000 +@@ -261,13 +261,12 @@ + (na->mode == NA_NONE)) { + filter_none (interp, gx, &l); + } else { +- if (na->mode != NA_NONE) { +- if (nodes) { +- filter_mode_n (na->mode, gx, &l, na->nc, na->nv, g); +- } else { +- filter_mode_a (na->mode, gx, &l, na->nc, na->nv, g); +- } ++ if (nodes) { ++ filter_mode_n (na->mode, gx, &l, na->nc, na->nv, g); ++ } else { ++ filter_mode_a (na->mode, gx, &l, na->nc, na->nv, g); + } ++ + if (na->key && na->value) { + filter_kv (interp, gx, &l, gf, g, na->key, na->value); + } else if (na->key) { +@@ -332,6 +331,7 @@ + case NA_IN: filter_mode_a_in (gx, l, nc, nv, g); break; + case NA_INNER: filter_mode_a_inn (gx, l, nc, nv, g); break; + case NA_OUT: filter_mode_a_out (gx, l, nc, nv, g); break; ++ case NA_NONE: /* nothing */; + } + } + +@@ -592,6 +592,7 @@ + case NA_IN: filter_mode_n_in (gx, l, nc, nv, g); break; + case NA_INNER: filter_mode_n_inn (gx, l, nc, nv, g); break; + case NA_OUT: filter_mode_n_out (gx, l, nc, nv, g); break; ++ case NA_NONE: /* nothing */; + } + } + +--- ./modules/struct/graph/graph.c.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/struct/graph/graph.c 2022-05-12 07:00:35.594881000 +0000 +@@ -2,12 +2,13 @@ + * (c) Graph functions + */ + +-#include +-#include +-#include +-#include +-#include +-#include ++#include ++#include "arc.h" ++#include "attr.h" ++#include "graph.h" ++#include "node.h" ++#include "objcmd.h" ++#include "util.h" + + /* .................................................. */ + +--- ./modules/struct/graph/objcmd.c.orig 2019-08-23 04:55:09.000000000 +0000 ++++ ./modules/struct/graph/objcmd.c 2022-05-12 07:00:40.002398000 +0000 +@@ -40,7 +40,7 @@ + M_DESTROY, M_GET, M_GETALL, M_KEYEXISTS, M_KEYS, M_LAPPEND, + M_NODE, M_NODES, M_SERIALIZE, M_SET, M_SWAP, M_UNSET, + M_WALK +- }; ++ } method; + + static CONST char* a_methods [] = { + "append", "attr", "delete", "exists", "flip", +@@ -57,7 +57,7 @@ + MA_MOVE_SOURCE, MA_MOVE_TARGET, MA_NODES, MA_RENAME, MA_SET, MA_SETUNWEIGHTED, + MA_SETWEIGHT, MA_SOURCE, MA_TARGET, MA_UNSET, MA_UNSETWEIGHT, + MA_WEIGHTS +- }; ++ } a_method; + + static CONST char* n_methods [] = { + "append", "attr", "degree", "delete", "exists", +@@ -69,7 +69,7 @@ + MN_APPEND, MN_ATTR, MN_DEGREE, MN_DELETE, MN_EXISTS, + MN_GET, MN_GETALL, MN_INSERT, MN_KEYEXISTS, MN_KEYS, + MN_LAPPEND, MN_OPPOSITE, MN_RENAME, MN_SET, MN_UNSET +- }; ++ } n_method; + + if (objc < 2) { + Tcl_WrongNumArgs (interp, objc, objv, "option ?arg arg ...?"); +@@ -83,7 +83,7 @@ + * the requested functionality + */ + +- switch (m) { ++ switch (method = m) { + case M_GSET: return gm_GSET (g, interp, objc, objv); + case M_GASSIGN: return gm_GASSIGN (g, interp, objc, objv); + case M_APPEND: return gm_APPEND (g, interp, objc, objv); +@@ -95,7 +95,7 @@ + 0, &m) != TCL_OK) { + return TCL_ERROR; + } +- switch (m) { ++ switch (a_method = m) { + case MA_APPEND: return gm_arc_APPEND (g, interp, objc, objv); + case MA_ATTR: return gm_arc_ATTR (g, interp, objc, objv); + case MA_DELETE: return gm_arc_DELETE (g, interp, objc, objv); +@@ -141,7 +141,7 @@ + 0, &m) != TCL_OK) { + return TCL_ERROR; + } +- switch (m) { ++ switch (n_method = m) { + case MN_APPEND: return gm_node_APPEND (g, interp, objc, objv); + case MN_ATTR: return gm_node_ATTR (g, interp, objc, objv); + case MN_DEGREE: return gm_node_DEGREE (g, interp, objc, objv); +--- ./modules/struct/graph/util.c.orig 2019-08-23 04:55:09.000000000 +0000 ++++ ./modules/struct/graph/util.c 2022-05-12 07:00:40.002840000 +0000 +@@ -77,7 +77,7 @@ + /* Delete all items in the list. + */ + +-void* ++void + g_nlq_clear (NLQ* q) + { + NL* next; +--- ./modules/struct/graph/util.h.orig 2019-08-23 04:55:09.000000000 +0000 ++++ ./modules/struct/graph/util.h 2022-05-12 07:00:40.003195000 +0000 +@@ -53,7 +53,7 @@ + void g_nlq_append (NLQ* q, void* n); + void g_nlq_push (NLQ* q, void* n); + void* g_nlq_pop (NLQ* q); +-void* g_nlq_clear (NLQ* q); ++void g_nlq_clear (NLQ* q); + + #endif /* _G_UTIL_H */ + +--- ./modules/struct/graph/walk.c.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/struct/graph/walk.c 2022-05-12 07:00:40.003767000 +0000 +@@ -1,9 +1,9 @@ + +-#include "tcl.h" + #include +-#include +-#include +-#include ++#include ++#include "graph.h" ++#include "util.h" ++#include "walk.h" + + /* .................................................. */ + +@@ -23,7 +23,7 @@ + static int walk_invoke (Tcl_Interp* interp, GN* n, + int cc, Tcl_Obj** ev, Tcl_Obj* action); + +-static int walk_neighbours (GN* n, Tcl_HashTable* v, int dir, ++static void walk_neighbours (GN* n, Tcl_HashTable* v, int dir, + int* nc, GN*** nv); + + /* .................................................. */ +@@ -288,7 +288,7 @@ + + /* .................................................. */ + +-static int ++static void + walk_neighbours (GN* n, Tcl_HashTable* vn, int dir, + int* nc, GN*** nv) + { +--- ./modules/struct/queue/ms.c.orig 2019-08-23 04:55:09.000000000 +0000 ++++ ./modules/struct/queue/ms.c 2022-05-12 07:00:40.004897000 +0000 +@@ -41,7 +41,7 @@ + M_CLEAR, M_DESTROY, M_GET, + M_PEEK, M_PUT, M_SIZE, + M_UNGET +- }; ++ } method; + + if (objc < 2) { + Tcl_WrongNumArgs (interp, objc, objv, "option ?arg arg ...?"); +@@ -55,7 +55,7 @@ + * the requested functionality + */ + +- switch (m) { ++ switch (method = m) { + case M_CLEAR: return qum_CLEAR (q, interp, objc, objv); + case M_DESTROY: return qum_DESTROY (q, interp, objc, objv); + case M_GET: return qum_PEEK (q, interp, objc, objv, 1 /* get */); +--- ./modules/struct/stack/ms.c.orig 2019-08-23 04:55:09.000000000 +0000 ++++ ./modules/struct/stack/ms.c 2022-05-12 07:00:40.007279000 +0000 +@@ -39,7 +39,7 @@ + enum methods { + M_CLEAR, M_DESTROY, M_GET, M_GETR, M_PEEK, M_PEEKR, + M_POP, M_PUSH, M_ROTATE, M_SIZE, M_TRIM, M_TRIMV +- }; ++ } method; + + if (objc < 2) { + Tcl_WrongNumArgs (interp, objc, objv, "option ?arg arg ...?"); +@@ -53,7 +53,7 @@ + * the requested functionality + */ + +- switch (m) { ++ switch (method = m) { + case M_CLEAR: return stm_CLEAR (s, interp, objc, objv); + case M_DESTROY: return stm_DESTROY (s, interp, objc, objv); + case M_GET: return stm_GET (s, interp, objc, objv, 0 ); /* get */ +--- ./modules/struct/queue_c.tcl.orig 2021-10-28 21:08:34.000000000 +0000 ++++ ./modules/struct/queue_c.tcl 2022-05-12 07:00:40.004223000 +0000 +@@ -35,7 +35,7 @@ + */ + + typedef struct QDg { +- long int counter; ++ size_t counter; + char buf [50]; + } QDg; + +--- ./modules/struct/sets_c.tcl.orig 2021-10-28 20:35:34.000000000 +0000 ++++ ./modules/struct/sets_c.tcl 2022-05-12 07:00:40.005270000 +0000 +@@ -53,7 +53,7 @@ + S_equal,S_exclude, S_include, S_intersect, + S_intersect3, S_size, S_subsetof, S_subtract, + S_symdiff, S_union +- }; ++ } method; + + int m; + +@@ -69,7 +69,7 @@ + * the requested functionality + */ + +- switch (m) { ++ switch (method = m) { + case S_add: return sm_ADD (NULL, interp, objc, objv); + case S_contains: return sm_CONTAINS (NULL, interp, objc, objv); + case S_difference: return sm_DIFFERENCE (NULL, interp, objc, objv); +--- ./modules/struct/stack_c.tcl.orig 2021-10-28 21:08:34.000000000 +0000 ++++ ./modules/struct/stack_c.tcl 2022-05-12 07:00:40.006760000 +0000 +@@ -40,7 +40,7 @@ + */ + + typedef struct SDg { +- long int counter; ++ size_t counter; + char buf [50]; + } SDg; + +--- ./modules/struct/tree_c.tcl.orig 2021-10-28 21:08:34.000000000 +0000 ++++ ./modules/struct/tree_c.tcl 2022-05-12 07:00:40.007725000 +0000 +@@ -41,7 +41,7 @@ + */ + + typedef struct TDg { +- long int counter; ++ size_t counter; + char buf [50]; + } TDg; + +--- ./modules/sha1/sha1c.tcl.orig 2022-05-03 18:53:00.000000000 +0000 ++++ ./modules/sha1/sha1c.tcl 2022-05-12 07:00:35.591089000 +0000 +@@ -32,8 +32,7 @@ + static void + sha1_free_rep(Tcl_Obj* obj) + { +- SHA1_CTX* mp = (SHA1_CTX*) obj->internalRep.otherValuePtr; +- Tcl_Free ((char*)mp); ++ Tcl_Free(obj->internalRep.otherValuePtr); + } + + static void +--- ./modules/md5crypt/md5cryptc.tcl.orig 2021-10-28 21:08:52.000000000 +0000 ++++ ./modules/md5crypt/md5cryptc.tcl 2022-05-12 07:00:35.561245000 +0000 +@@ -57,8 +57,9 @@ + const char *salt, + const char *magic) + { +- static char passwd[120], *p; +- static const unsigned char *sp,*ep; ++ static char passwd[120]; ++ char *p; ++ const unsigned char *sp,*ep; + unsigned char final[16]; + int sl,pl,i; + MD5_CTX ctx,ctx1; +@@ -113,7 +114,7 @@ + } + + /* Now make the output string */ +- snprintf(passwd, sizeof(passwd), "%s%.*s$", (char *)magic, ++ p = passwd + snprintf(passwd, sizeof(passwd), "%s%.*s$", (char *)magic, + sl, (const char *)sp); + + MD5Final(final,&ctx); +@@ -143,8 +144,6 @@ + MD5Final(final,&ctx1); + } + +- p = passwd + strlen(passwd); +- + l = (final[ 0]<<16) | (final[ 6]<<8) | final[12]; to64(p,l,4); p += 4; + l = (final[ 1]<<16) | (final[ 7]<<8) | final[13]; to64(p,l,4); p += 4; + l = (final[ 2]<<16) | (final[ 8]<<8) | final[14]; to64(p,l,4); p += 4; +--- ./modules/pt/rde_critcl/p.c.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/rde_critcl/p.c 2022-05-12 07:00:35.565397000 +0000 +@@ -2,9 +2,10 @@ + * (c) PARAM functions + */ + +-#include /* Our public and internal APIs */ +-#include /* Allocation macros */ ++#include + #include ++#include "pInt.h" /* Our public and internal APIs */ ++#include "util.h" /* Allocation macros */ + + /* .................................................. */ + +@@ -132,7 +133,7 @@ + hPtr = Tcl_CreateHashEntry(&p->str, literal, &isnew); + ASSERT (isnew, "Should have found entry"); + +- Tcl_SetHashValue (hPtr, p->numstr); ++ Tcl_SetHashValue (hPtr, (intptr_t)p->numstr); + + if (p->numstr >= p->maxnum) { + long int new; +--- ./modules/pt/rde_critcl/param.c.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/pt/rde_critcl/param.c 2022-05-12 07:00:35.566472000 +0000 +@@ -672,7 +672,7 @@ + + ASSERT_BOUNDS(s,p->numstr); + +- rde_stack_push (p->ER->msg, (void*) s); ++ rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void -@@ -820,7 +822,7 @@ rde_param_i_symbol_restore (RDE_PARAM p, +@@ -822,7 +822,7 @@ if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } /* -@@ -861,7 +863,7 @@ rde_param_i_symbol_save (RDE_PARAM p, lo +@@ -863,7 +863,7 @@ * 2-level hash table keyed by location, and symbol ... */ - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); -@@ -871,7 +873,7 @@ rde_param_i_symbol_save (RDE_PARAM p, lo +@@ -873,7 +873,7 @@ tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { /* -@@ -1071,13 +1073,15 @@ UniCharIsAscii (int character) +@@ -1073,13 +1073,15 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } /* ---- modules/pt/rde_critcl/param.h.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/rde_critcl/param.h +--- ./modules/pt/rde_critcl/param.h.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/rde_critcl/param.h 2022-05-12 07:00:35.567038000 +0000 @@ -9,6 +9,7 @@ #include "tcl.h" #include /* Scoping */ #include /* Stack handling */ +#include /* intptr_t */ /* * The state structure is opaque, its internals are known only to the ---- modules/pt/tests/data/ok/peg_cparam-critcl/0_basic_arithmetic.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-critcl/0_basic_arithmetic -@@ -45,6 +45,8 @@ namespace eval ::PARSER { +--- ./modules/pt/tests/data/ok/peg_cparam-critcl/0_basic_arithmetic.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-critcl/0_basic_arithmetic 2022-05-12 07:00:35.568151000 +0000 +@@ -45,6 +45,8 @@ critcl::ccode { /* -*- c -*- */ + #include + #include #include - #define SCOPE static - -@@ -896,7 +898,7 @@ namespace eval ::PARSER { + #include /* is... */ + #include /* qsort */ +@@ -898,7 +900,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) -@@ -986,7 +988,7 @@ namespace eval ::PARSER { +@@ -988,7 +990,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); -@@ -1011,7 +1013,7 @@ namespace eval ::PARSER { +@@ -1013,7 +1015,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); -@@ -1019,7 +1021,7 @@ namespace eval ::PARSER { +@@ -1021,7 +1023,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); -@@ -1169,12 +1171,14 @@ namespace eval ::PARSER { +@@ -1171,12 +1173,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-critcl/10_notahead.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-critcl/10_notahead -@@ -45,6 +45,8 @@ namespace eval ::PARSER { +--- ./modules/pt/tests/data/ok/peg_cparam-critcl/10_notahead.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-critcl/10_notahead 2022-05-12 07:00:35.569227000 +0000 +@@ -45,6 +45,8 @@ critcl::ccode { /* -*- c -*- */ + #include + #include #include - #define SCOPE static - -@@ -896,7 +898,7 @@ namespace eval ::PARSER { + #include /* is... */ + #include /* qsort */ +@@ -898,7 +900,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) -@@ -986,7 +988,7 @@ namespace eval ::PARSER { +@@ -988,7 +990,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); -@@ -1011,7 +1013,7 @@ namespace eval ::PARSER { +@@ -1013,7 +1015,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); -@@ -1019,7 +1021,7 @@ namespace eval ::PARSER { +@@ -1021,7 +1023,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); -@@ -1169,12 +1171,14 @@ namespace eval ::PARSER { +@@ -1171,12 +1173,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-critcl/11_epsilon.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-critcl/11_epsilon -@@ -45,6 +45,8 @@ namespace eval ::PARSER { +--- ./modules/pt/tests/data/ok/peg_cparam-critcl/11_epsilon.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-critcl/11_epsilon 2022-05-12 07:00:35.570230000 +0000 +@@ -45,6 +45,8 @@ critcl::ccode { /* -*- c -*- */ + #include + #include #include - #define SCOPE static - -@@ -896,7 +898,7 @@ namespace eval ::PARSER { + #include /* is... */ + #include /* qsort */ +@@ -898,7 +900,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) -@@ -986,7 +988,7 @@ namespace eval ::PARSER { +@@ -988,7 +990,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); -@@ -1011,7 +1013,7 @@ namespace eval ::PARSER { +@@ -1013,7 +1015,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); -@@ -1019,7 +1021,7 @@ namespace eval ::PARSER { +@@ -1021,7 +1023,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); -@@ -1169,12 +1171,14 @@ namespace eval ::PARSER { +@@ -1171,12 +1173,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-critcl/1_functions.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-critcl/1_functions -@@ -45,6 +45,8 @@ namespace eval ::PARSER { +--- ./modules/pt/tests/data/ok/peg_cparam-critcl/1_functions.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-critcl/1_functions 2022-05-12 07:00:35.571208000 +0000 +@@ -45,6 +45,8 @@ critcl::ccode { /* -*- c -*- */ + #include + #include #include - #define SCOPE static - -@@ -896,7 +898,7 @@ namespace eval ::PARSER { + #include /* is... */ + #include /* qsort */ +@@ -898,7 +900,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) -@@ -986,7 +988,7 @@ namespace eval ::PARSER { +@@ -988,7 +990,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); -@@ -1011,7 +1013,7 @@ namespace eval ::PARSER { +@@ -1013,7 +1015,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); -@@ -1019,7 +1021,7 @@ namespace eval ::PARSER { +@@ -1021,7 +1023,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); -@@ -1169,12 +1171,14 @@ namespace eval ::PARSER { +@@ -1171,12 +1173,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-critcl/2_fun_arithmetic.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-critcl/2_fun_arithmetic -@@ -45,6 +45,8 @@ namespace eval ::PARSER { +--- ./modules/pt/tests/data/ok/peg_cparam-critcl/2_fun_arithmetic.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-critcl/2_fun_arithmetic 2022-05-12 07:00:35.572295000 +0000 +@@ -45,6 +45,8 @@ critcl::ccode { /* -*- c -*- */ + #include + #include #include - #define SCOPE static - -@@ -896,7 +898,7 @@ namespace eval ::PARSER { + #include /* is... */ + #include /* qsort */ +@@ -898,7 +900,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) -@@ -986,7 +988,7 @@ namespace eval ::PARSER { +@@ -988,7 +990,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); -@@ -1011,7 +1013,7 @@ namespace eval ::PARSER { +@@ -1013,7 +1015,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); -@@ -1019,7 +1021,7 @@ namespace eval ::PARSER { +@@ -1021,7 +1023,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); -@@ -1169,12 +1171,14 @@ namespace eval ::PARSER { +@@ -1171,12 +1173,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-critcl/3_peg_itself.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-critcl/3_peg_itself -@@ -45,6 +45,8 @@ namespace eval ::PARSER { +--- ./modules/pt/tests/data/ok/peg_cparam-critcl/3_peg_itself.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-critcl/3_peg_itself 2022-05-12 07:00:35.574306000 +0000 +@@ -45,6 +45,8 @@ critcl::ccode { /* -*- c -*- */ + #include + #include #include - #define SCOPE static - -@@ -896,7 +898,7 @@ namespace eval ::PARSER { + #include /* is... */ + #include /* qsort */ +@@ -898,7 +900,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) -@@ -986,7 +988,7 @@ namespace eval ::PARSER { +@@ -988,7 +990,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); -@@ -1011,7 +1013,7 @@ namespace eval ::PARSER { +@@ -1013,7 +1015,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); -@@ -1019,7 +1021,7 @@ namespace eval ::PARSER { +@@ -1021,7 +1023,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); -@@ -1169,12 +1171,14 @@ namespace eval ::PARSER { +@@ -1171,12 +1173,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-critcl/4_choice.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-critcl/4_choice -@@ -45,6 +45,8 @@ namespace eval ::PARSER { +--- ./modules/pt/tests/data/ok/peg_cparam-critcl/4_choice.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-critcl/4_choice 2022-05-12 07:00:35.575318000 +0000 +@@ -45,6 +45,8 @@ critcl::ccode { /* -*- c -*- */ + #include + #include #include - #define SCOPE static - -@@ -896,7 +898,7 @@ namespace eval ::PARSER { + #include /* is... */ + #include /* qsort */ +@@ -898,7 +900,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) -@@ -986,7 +988,7 @@ namespace eval ::PARSER { +@@ -988,7 +990,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); -@@ -1011,7 +1013,7 @@ namespace eval ::PARSER { +@@ -1013,7 +1015,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); -@@ -1019,7 +1021,7 @@ namespace eval ::PARSER { +@@ -1021,7 +1023,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); -@@ -1169,12 +1171,14 @@ namespace eval ::PARSER { +@@ -1171,12 +1173,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-critcl/5_sequence.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-critcl/5_sequence -@@ -45,6 +45,8 @@ namespace eval ::PARSER { +--- ./modules/pt/tests/data/ok/peg_cparam-critcl/5_sequence.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-critcl/5_sequence 2022-05-12 07:00:35.576307000 +0000 +@@ -45,6 +45,8 @@ critcl::ccode { /* -*- c -*- */ + #include + #include #include - #define SCOPE static - -@@ -896,7 +898,7 @@ namespace eval ::PARSER { + #include /* is... */ + #include /* qsort */ +@@ -898,7 +900,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) -@@ -986,7 +988,7 @@ namespace eval ::PARSER { +@@ -988,7 +990,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); -@@ -1011,7 +1013,7 @@ namespace eval ::PARSER { +@@ -1013,7 +1015,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); -@@ -1019,7 +1021,7 @@ namespace eval ::PARSER { +@@ -1021,7 +1023,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); -@@ -1169,12 +1171,14 @@ namespace eval ::PARSER { +@@ -1171,12 +1173,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-critcl/6_optional.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-critcl/6_optional -@@ -45,6 +45,8 @@ namespace eval ::PARSER { +--- ./modules/pt/tests/data/ok/peg_cparam-critcl/6_optional.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-critcl/6_optional 2022-05-12 07:00:35.577302000 +0000 +@@ -45,6 +45,8 @@ critcl::ccode { /* -*- c -*- */ + #include + #include #include - #define SCOPE static - -@@ -896,7 +898,7 @@ namespace eval ::PARSER { + #include /* is... */ + #include /* qsort */ +@@ -898,7 +900,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) -@@ -986,7 +988,7 @@ namespace eval ::PARSER { +@@ -988,7 +990,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); -@@ -1011,7 +1013,7 @@ namespace eval ::PARSER { +@@ -1013,7 +1015,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); -@@ -1019,7 +1021,7 @@ namespace eval ::PARSER { +@@ -1021,7 +1023,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); -@@ -1169,12 +1171,14 @@ namespace eval ::PARSER { +@@ -1171,12 +1173,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-critcl/7_kleene.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-critcl/7_kleene -@@ -45,6 +45,8 @@ namespace eval ::PARSER { +--- ./modules/pt/tests/data/ok/peg_cparam-critcl/7_kleene.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-critcl/7_kleene 2022-05-12 07:00:35.578304000 +0000 +@@ -45,6 +45,8 @@ critcl::ccode { /* -*- c -*- */ + #include + #include #include - #define SCOPE static - -@@ -896,7 +898,7 @@ namespace eval ::PARSER { + #include /* is... */ + #include /* qsort */ +@@ -898,7 +900,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) -@@ -986,7 +988,7 @@ namespace eval ::PARSER { +@@ -988,7 +990,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); -@@ -1011,7 +1013,7 @@ namespace eval ::PARSER { +@@ -1013,7 +1015,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); -@@ -1019,7 +1021,7 @@ namespace eval ::PARSER { +@@ -1021,7 +1023,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); -@@ -1169,12 +1171,14 @@ namespace eval ::PARSER { +@@ -1171,12 +1173,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-critcl/8_pkleene.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-critcl/8_pkleene -@@ -45,6 +45,8 @@ namespace eval ::PARSER { +--- ./modules/pt/tests/data/ok/peg_cparam-critcl/8_pkleene.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-critcl/8_pkleene 2022-05-12 07:00:35.579292000 +0000 +@@ -45,6 +45,8 @@ critcl::ccode { /* -*- c -*- */ + #include + #include #include - #define SCOPE static - -@@ -896,7 +898,7 @@ namespace eval ::PARSER { + #include /* is... */ + #include /* qsort */ +@@ -898,7 +900,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) -@@ -986,7 +988,7 @@ namespace eval ::PARSER { +@@ -988,7 +990,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); -@@ -1011,7 +1013,7 @@ namespace eval ::PARSER { +@@ -1013,7 +1015,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); -@@ -1019,7 +1021,7 @@ namespace eval ::PARSER { +@@ -1021,7 +1023,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); -@@ -1169,12 +1171,14 @@ namespace eval ::PARSER { +@@ -1171,12 +1173,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-critcl/9_ahead.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-critcl/9_ahead -@@ -45,6 +45,8 @@ namespace eval ::PARSER { +--- ./modules/pt/tests/data/ok/peg_cparam-critcl/9_ahead.orig 2021-04-14 16:57:28.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-critcl/9_ahead 2022-05-12 07:00:35.580250000 +0000 +@@ -45,6 +45,8 @@ critcl::ccode { /* -*- c -*- */ + #include + #include #include - #define SCOPE static - -@@ -896,7 +898,7 @@ namespace eval ::PARSER { + #include /* is... */ + #include /* qsort */ +@@ -898,7 +900,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) -@@ -986,7 +988,7 @@ namespace eval ::PARSER { +@@ -988,7 +990,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); -@@ -1011,7 +1013,7 @@ namespace eval ::PARSER { +@@ -1013,7 +1015,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); -@@ -1019,7 +1021,7 @@ namespace eval ::PARSER { +@@ -1021,7 +1023,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); -@@ -1169,12 +1171,14 @@ namespace eval ::PARSER { +@@ -1171,12 +1173,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-tea/0_basic_arithmetic.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-tea/0_basic_arithmetic +--- ./modules/pt/tests/data/ok/peg_cparam-tea/0_basic_arithmetic.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-tea/0_basic_arithmetic 2022-05-12 07:00:35.581083000 +0000 @@ -11,6 +11,7 @@ * * ** *** ***** ******** ************* *********************/ #include #include + #include #include #include #define SCOPE static @@ -863,7 +864,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) @@ -953,7 +954,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); @@ -978,7 +979,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); @@ -986,7 +987,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); @@ -1136,12 +1137,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-tea/10_notahead.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-tea/10_notahead +--- ./modules/pt/tests/data/ok/peg_cparam-tea/10_notahead.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-tea/10_notahead 2022-05-12 07:00:35.581868000 +0000 @@ -11,6 +11,7 @@ * * ** *** ***** ******** ************* *********************/ #include #include + #include #include #include #define SCOPE static @@ -863,7 +864,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) @@ -953,7 +954,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); @@ -978,7 +979,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); @@ -986,7 +987,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); @@ -1136,12 +1137,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-tea/11_epsilon.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-tea/11_epsilon +--- ./modules/pt/tests/data/ok/peg_cparam-tea/11_epsilon.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-tea/11_epsilon 2022-05-12 07:00:35.582616000 +0000 @@ -11,6 +11,7 @@ * * ** *** ***** ******** ************* *********************/ #include #include + #include #include #include #define SCOPE static @@ -863,7 +864,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) @@ -953,7 +954,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); @@ -978,7 +979,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); @@ -986,7 +987,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); @@ -1136,12 +1137,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-tea/1_functions.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-tea/1_functions +--- ./modules/pt/tests/data/ok/peg_cparam-tea/1_functions.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-tea/1_functions 2022-05-12 07:00:35.583374000 +0000 @@ -11,6 +11,7 @@ * * ** *** ***** ******** ************* *********************/ #include #include + #include #include #include #define SCOPE static @@ -863,7 +864,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) @@ -953,7 +954,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); @@ -978,7 +979,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); @@ -986,7 +987,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); @@ -1136,12 +1137,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-tea/2_fun_arithmetic.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-tea/2_fun_arithmetic +--- ./modules/pt/tests/data/ok/peg_cparam-tea/2_fun_arithmetic.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-tea/2_fun_arithmetic 2022-05-12 07:00:35.584180000 +0000 @@ -11,6 +11,7 @@ * * ** *** ***** ******** ************* *********************/ #include #include + #include #include #include #define SCOPE static @@ -863,7 +864,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) @@ -953,7 +954,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); @@ -978,7 +979,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); @@ -986,7 +987,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); @@ -1136,12 +1137,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-tea/3_peg_itself.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-tea/3_peg_itself +--- ./modules/pt/tests/data/ok/peg_cparam-tea/3_peg_itself.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-tea/3_peg_itself 2022-05-12 07:00:35.585500000 +0000 @@ -11,6 +11,7 @@ * * ** *** ***** ******** ************* *********************/ #include #include + #include #include #include #define SCOPE static @@ -863,7 +864,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) @@ -953,7 +954,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); @@ -978,7 +979,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); @@ -986,7 +987,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); @@ -1136,12 +1137,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-tea/4_choice.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-tea/4_choice +--- ./modules/pt/tests/data/ok/peg_cparam-tea/4_choice.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-tea/4_choice 2022-05-12 07:00:35.586272000 +0000 @@ -11,6 +11,7 @@ * * ** *** ***** ******** ************* *********************/ #include #include + #include #include #include #define SCOPE static @@ -863,7 +864,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) @@ -953,7 +954,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); @@ -978,7 +979,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); @@ -986,7 +987,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); @@ -1136,12 +1137,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-tea/5_sequence.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-tea/5_sequence +--- ./modules/pt/tests/data/ok/peg_cparam-tea/5_sequence.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-tea/5_sequence 2022-05-12 07:00:35.587104000 +0000 @@ -11,6 +11,7 @@ * * ** *** ***** ******** ************* *********************/ #include #include + #include #include #include #define SCOPE static @@ -863,7 +864,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) @@ -953,7 +954,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); @@ -978,7 +979,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); @@ -986,7 +987,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); @@ -1136,12 +1137,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-tea/6_optional.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-tea/6_optional +--- ./modules/pt/tests/data/ok/peg_cparam-tea/6_optional.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-tea/6_optional 2022-05-12 07:00:35.587940000 +0000 @@ -11,6 +11,7 @@ * * ** *** ***** ******** ************* *********************/ #include #include + #include #include #include #define SCOPE static @@ -863,7 +864,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) @@ -953,7 +954,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); @@ -978,7 +979,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); @@ -986,7 +987,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); @@ -1136,12 +1137,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-tea/7_kleene.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-tea/7_kleene +--- ./modules/pt/tests/data/ok/peg_cparam-tea/7_kleene.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-tea/7_kleene 2022-05-12 07:00:35.588702000 +0000 @@ -11,6 +11,7 @@ * * ** *** ***** ******** ************* *********************/ #include #include + #include #include #include #define SCOPE static @@ -863,7 +864,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) @@ -953,7 +954,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); @@ -978,7 +979,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); @@ -986,7 +987,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); @@ -1136,12 +1137,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-tea/8_pkleene.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-tea/8_pkleene +--- ./modules/pt/tests/data/ok/peg_cparam-tea/8_pkleene.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-tea/8_pkleene 2022-05-12 07:00:35.589498000 +0000 @@ -11,6 +11,7 @@ * * ** *** ***** ******** ************* *********************/ #include #include + #include #include #include #define SCOPE static @@ -863,7 +864,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) @@ -953,7 +954,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); @@ -978,7 +979,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); @@ -986,7 +987,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); @@ -1136,12 +1137,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/pt/tests/data/ok/peg_cparam-tea/9_ahead.orig 2016-02-04 05:14:14 UTC -+++ modules/pt/tests/data/ok/peg_cparam-tea/9_ahead +--- ./modules/pt/tests/data/ok/peg_cparam-tea/9_ahead.orig 2019-08-23 04:55:08.000000000 +0000 ++++ ./modules/pt/tests/data/ok/peg_cparam-tea/9_ahead 2022-05-12 07:00:35.590270000 +0000 @@ -11,6 +11,7 @@ * * ** *** ***** ******** ************* *********************/ #include #include + #include #include #include #define SCOPE static @@ -863,7 +864,7 @@ p->ER->loc = p->CL; p->ER->msg = rde_stack_new (NULL); ASSERT_BOUNDS(s,p->numstr); - rde_stack_push (p->ER->msg, (void*) s); + rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } static void error_state_free (void* esx) @@ -953,7 +954,7 @@ hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); if (!hPtr) { return 0; } tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); - hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); + hPtr = Tcl_FindHashEntry (tablePtr, (void*)(intptr_t)s); if (!hPtr) { return 0; } scs = Tcl_GetHashValue (hPtr); @@ -978,7 +979,7 @@ TRACE (("RDE_PARAM %p",p)); TRACE (("INT %d",s)); - hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); + hPtr = Tcl_CreateHashEntry (&p->NC, (void*)(intptr_t)at, &isnew); if (isnew) { tablePtr = ALLOC (Tcl_HashTable); Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); @@ -986,7 +987,7 @@ } else { tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } - hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); + hPtr = Tcl_CreateHashEntry (tablePtr, (void *)(intptr_t)s, &isnew); if (isnew) { scs = ALLOC (NC_STATE); @@ -1136,12 +1137,14 @@ static int UniCharIsHexDigit (int character) { - return (character >= 0) && (character < 0x80) && isxdigit(character); + return UniCharIsDecDigit(character) || + (character >= 'a' && character <= 'f') || + (character >= 'A' && character <= 'F'); } static int UniCharIsDecDigit (int character) { - return (character >= 0) && (character < 0x80) && isdigit(character); + return (character >= '0') && (character <= '9'); } SCOPE void rde_param_i_value_clear (RDE_PARAM p) ---- modules/rc4/rc4c.tcl.orig 2016-02-04 05:14:14 UTC -+++ modules/rc4/rc4c.tcl -@@ -20,6 +20,8 @@ package provide rc4c 1.1.0 - namespace eval ::rc4 { +--- ./modules/pt/pt_cparam_config_critcl.tcl.orig 2021-10-28 21:09:06.000000000 +0000 ++++ ./modules/pt/pt_cparam_config_critcl.tcl 2022-05-12 07:00:35.561832000 +0000 +@@ -114,6 +114,8 @@ + critcl::ccode { + /* -*- c -*- */ ++ #include ++ #include + #include + #include /* is... */ + #include /* qsort */ +--- ./modules/pt/pt_cparam_config_tea.tcl.orig 2021-10-28 21:09:06.000000000 +0000 ++++ ./modules/pt/pt_cparam_config_tea.tcl 2022-05-12 07:00:35.562375000 +0000 +@@ -94,6 +94,7 @@ + * * ** *** ***** ******** ************* *********************/ + #include + #include ++ #include + #include + #include + #define SCOPE static +--- ./modules/pt/pt_parse_peg_c.tcl.orig 2021-10-28 21:09:06.000000000 +0000 ++++ ./modules/pt/pt_parse_peg_c.tcl 2022-05-12 07:00:35.564420000 +0000 +@@ -45,6 +45,8 @@ critcl::ccode { -+ #include -+ - #include - - typedef struct RC4_CTX { ---- modules/sha1/sha1c.tcl.orig 2016-02-04 05:14:14 UTC -+++ modules/sha1/sha1c.tcl -@@ -32,8 +32,7 @@ namespace eval ::sha1 { - static void - sha1_free_rep(Tcl_Obj* obj) - { -- SHA1_CTX* mp = (SHA1_CTX*) obj->internalRep.otherValuePtr; -- Tcl_Free ((char*)mp); -+ Tcl_Free(obj->internalRep.otherValuePtr); - } - - static void ---- modules/struct/graph/arc.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/arc.c -@@ -2,10 +2,11 @@ - * (b) Arc operations. - */ - --#include --#include --#include --#include -+#include "arc.h" -+#include "attr.h" -+#include "graph.h" -+#include "nacommon.h" -+#include "util.h" - - /* .................................................. */ - ---- modules/struct/graph/attr.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/attr.c -@@ -2,8 +2,10 @@ - * (c) Graph functions - */ - --#include --#include -+#include "attr.h" -+#include "util.h" -+#include -+ - - /* .................................................. */ - ---- modules/struct/graph/ds.h.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/ds.h -@@ -160,7 +160,7 @@ typedef struct G { - */ - - typedef struct GG { -- long int counter; /* Graph id generator */ -+ size_t counter; /* Graph id generator */ - char buf [50]; /* Buffer for handle construction */ - } GG; - ---- modules/struct/graph/filter.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/filter.c -@@ -2,9 +2,10 @@ - * (c) Graph functions - */ - --#include --#include --#include -+#include -+#include "nacommon.h" -+#include "util.h" -+#include "node.h" - - /* .................................................. */ + /* -*- c -*- */ -@@ -253,13 +254,12 @@ filter_run (NA* na, Tcl_Interp* interp, - (na->mode == NA_NONE)) { - filter_none (interp, gx, &l); - } else { -- if (na->mode != NA_NONE) { -- if (nodes) { -- filter_mode_n (na->mode, gx, &l, na->nc, na->nv, g); -- } else { -- filter_mode_a (na->mode, gx, &l, na->nc, na->nv, g); -- } -+ if (nodes) { -+ filter_mode_n (na->mode, gx, &l, na->nc, na->nv, g); -+ } else { -+ filter_mode_a (na->mode, gx, &l, na->nc, na->nv, g); ++ #include ++ #include + #include + #include /* is... */ + #include /* qsort */ +@@ -898,7 +900,7 @@ + p->ER->loc = p->CL; + p->ER->msg = rde_stack_new (NULL); + ASSERT_BOUNDS(s,p->numstr); +- rde_stack_push (p->ER->msg, (void*) s); ++ rde_stack_push (p->ER->msg, (void*)(intptr_t)s); } -+ - if (na->key && na->value) { - filter_kv (interp, gx, &l, gf, g, na->key, na->value); - } else if (na->key) { -@@ -324,6 +324,7 @@ filter_mode_a (NA_MODE mode, GCC* gx, NA - case NA_IN: filter_mode_a_in (gx, l, nc, nv, g); break; - case NA_INNER: filter_mode_a_inn (gx, l, nc, nv, g); break; - case NA_OUT: filter_mode_a_out (gx, l, nc, nv, g); break; -+ case NA_NONE: /* nothing */; - } - } - -@@ -584,6 +585,7 @@ filter_mode_n (NA_MODE mode, GCC* gx, NA - case NA_IN: filter_mode_n_in (gx, l, nc, nv, g); break; - case NA_INNER: filter_mode_n_inn (gx, l, nc, nv, g); break; - case NA_OUT: filter_mode_n_out (gx, l, nc, nv, g); break; -+ case NA_NONE: /* nothing */; - } - } - ---- modules/struct/graph/global.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/global.c -@@ -24,7 +24,7 @@ gg_new (Tcl_Interp* interp) - } + static void + error_state_free (void* esx) +@@ -988,7 +990,7 @@ + hPtr = Tcl_FindHashEntry (&p->NC, (char*) p->CL); + if (!hPtr) { return 0; } + tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); +- hPtr = Tcl_FindHashEntry (tablePtr, (char*) s); ++ hPtr = Tcl_FindHashEntry (tablePtr, (void *)(intptr_t)s); + if (!hPtr) { return 0; } - gg->counter ++; -- sprintf (gg->buf, "graph%d", gg->counter); -+ sprintf (gg->buf, "graph%td", gg->counter); - return gg->buf; - } - ---- modules/struct/graph/graph.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/graph.c -@@ -2,12 +2,13 @@ - * (c) Graph functions - */ - --#include --#include --#include --#include --#include --#include -+#include -+#include "arc.h" -+#include "attr.h" -+#include "graph.h" -+#include "node.h" -+#include "objcmd.h" -+#include "util.h" - - /* .................................................. */ - -@@ -159,11 +160,11 @@ g_ms_serialize (Tcl_Interp* interp, Tcl_ - if (!n) { - goto abort; + scs = Tcl_GetHashValue (hPtr); +@@ -1004,7 +1006,7 @@ + SCOPE void + rde_param_i_symbol_save (RDE_PARAM p, long int s) + { +- long int at = (long int) rde_stack_top (p->LS); ++ intptr_t at = (intptr_t)rde_stack_top (p->LS); + NC_STATE* scs; + Tcl_HashEntry* hPtr; + Tcl_HashTable* tablePtr; +@@ -1013,7 +1015,7 @@ + TRACE (("RDE_PARAM %p",p)); + TRACE (("INT %d",s)); + +- hPtr = Tcl_CreateHashEntry (&p->NC, (char*) at, &isnew); ++ hPtr = Tcl_CreateHashEntry (&p->NC, (void*) at, &isnew); + if (isnew) { + tablePtr = ALLOC (Tcl_HashTable); + Tcl_InitHashTable (tablePtr, TCL_ONE_WORD_KEYS); +@@ -1021,7 +1023,7 @@ + } else { + tablePtr = (Tcl_HashTable*) Tcl_GetHashValue (hPtr); } -- if (Tcl_FindHashEntry (&cn, (char*) n)) continue; -+ if (Tcl_FindHashEntry (&cn, (void *) n)) continue; - ASSERT_BOUNDS(j, lc-1); -- he = Tcl_CreateHashEntry (&cn, (char*) n, &new); -+ he = Tcl_CreateHashEntry (&cn, (void *) n, &new); - lv [j] = n->base.name; -- Tcl_SetHashValue (he, (ClientData) j); -+ Tcl_SetHashValue (he, (ClientData)(intptr_t)j); - j += 3; - } - lc = j + 1; -@@ -180,7 +181,7 @@ g_ms_serialize (Tcl_Interp* interp, Tcl_ - ASSERT_BOUNDS(j, lc-1); - he = Tcl_CreateHashEntry (&cn, (char*) n, &new); - lv [j] = n->base.name; -- Tcl_SetHashValue (he, (ClientData) j); -+ Tcl_SetHashValue (he, (ClientData)(intptr_t)j); - j += 3; - } - lc = j + 1; ---- modules/struct/graph/methods.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/methods.c -@@ -4,14 +4,16 @@ - * Implementations for all tree methods. - */ +- hPtr = Tcl_CreateHashEntry (tablePtr, (char*) s, &isnew); ++ hPtr = Tcl_CreateHashEntry (tablePtr, (void*)(intptr_t)s, &isnew); + if (isnew) { + + scs = ALLOC (NC_STATE); +@@ -1171,12 +1173,14 @@ + static int + UniCharIsHexDigit (int character) + { +- return (character >= 0) && (character < 0x80) && isxdigit(character); ++ return UniCharIsDecDigit(character) || ++ (character >= 'a' && character <= 'f') || ++ (character >= 'A' && character <= 'F'); + } + static int + UniCharIsDecDigit (int character) + { +- return (character >= 0) && (character < 0x80) && isdigit(character); ++ return (character >= '0') && (character <= '9'); + } + SCOPE void + rde_param_i_value_clear (RDE_PARAM p) +@@ -4729,7 +4733,7 @@ + /* -*- c -*- */ -+#include - #include --#include --#include --#include --#include --#include --#include --#include -+#include "arc.h" -+#include "attr.h" -+#include "graph.h" -+#include "methods.h" -+#include "nacommon.h" -+#include "node.h" -+#include "util.h" -+#include "walk.h" + typedef struct PARSERg { +- long int counter; ++ size_t counter; + char buf [50]; + } PARSERg; - /* .................................................. - * Handling of all indices, numeric and 'end-x' forms. Copied straight out of ---- modules/struct/graph/methods.h.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/methods.h -@@ -30,6 +30,7 @@ int gm_arc_APPEND (G* g, Tcl_Interp* - int gm_arc_ATTR (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); - int gm_arc_DELETE (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); - int gm_arc_EXISTS (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); -+int gm_arc_FLIP (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); - int gm_arc_GET (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); - int gm_arc_GETALL (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); - int gm_arc_GETUNWEIGH (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); -@@ -39,6 +40,10 @@ int gm_arc_INSERT (G* g, Tcl_Interp* - int gm_arc_KEYEXISTS (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); - int gm_arc_KEYS (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); - int gm_arc_LAPPEND (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); -+int gm_arc_MOVE (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); -+int gm_arc_MOVE_SRC (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); -+int gm_arc_MOVE_TARG (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); -+int gm_arc_NODES (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); - int gm_arc_RENAME (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); - int gm_arc_SET (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); - int gm_arc_SETUNWEIGH (G* g, Tcl_Interp* interp, int objc, Tcl_Obj* const* objv); ---- modules/struct/graph/nacommon.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/nacommon.c -@@ -2,9 +2,10 @@ - * (c) Graph functions - */ +@@ -4757,7 +4761,7 @@ + } --#include --#include --#include -+#include "attr.h" -+#include "nacommon.h" -+#include "util.h" -+#include "node.h" + parserg->counter ++; +- sprintf (parserg->buf, "peg%ld", parserg->counter); ++ sprintf (parserg->buf, "peg%td", parserg->counter); + return parserg->buf; + #undef KEY + } +--- ./modules/pt/pt_rdengine_c.tcl.orig 2021-10-28 21:09:06.000000000 +0000 ++++ ./modules/pt/pt_rdengine_c.tcl 2022-05-12 07:00:35.564911000 +0000 +@@ -48,7 +48,7 @@ + */ - /* .................................................. */ + typedef struct PARAMg { +- long int counter; ++ size_t counter; + char buf [50]; + } PARAMg; ---- modules/struct/graph/node.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/node.c -@@ -2,9 +2,10 @@ - * (b) Node operations. - */ - --#include --#include --#include -+#include "nacommon.h" -+#include "arc.h" -+#include "node.h" -+#include "util.h" - - /* .................................................. */ - ---- modules/struct/graph/objcmd.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/objcmd.c -@@ -40,7 +40,7 @@ g_objcmd (ClientData cd, Tcl_Interp* int - M_DESTROY, M_GET, M_GETALL, M_KEYEXISTS, M_KEYS, M_LAPPEND, - M_NODE, M_NODES, M_SERIALIZE, M_SET, M_SWAP, M_UNSET, - M_WALK -- }; -+ } method; - - static CONST char* a_methods [] = { - "append", "attr", "delete", "exists", "flip", -@@ -57,7 +57,7 @@ g_objcmd (ClientData cd, Tcl_Interp* int - MA_MOVE_SOURCE, MA_MOVE_TARGET, MA_NODES, MA_RENAME, MA_SET, MA_SETUNWEIGHTED, - MA_SETWEIGHT, MA_SOURCE, MA_TARGET, MA_UNSET, MA_UNSETWEIGHT, - MA_WEIGHTS -- }; -+ } a_method; - - static CONST char* n_methods [] = { - "append", "attr", "degree", "delete", "exists", -@@ -69,7 +69,7 @@ g_objcmd (ClientData cd, Tcl_Interp* int - MN_APPEND, MN_ATTR, MN_DEGREE, MN_DELETE, MN_EXISTS, - MN_GET, MN_GETALL, MN_INSERT, MN_KEYEXISTS, MN_KEYS, - MN_LAPPEND, MN_OPPOSITE, MN_RENAME, MN_SET, MN_UNSET -- }; -+ } n_method; - - if (objc < 2) { - Tcl_WrongNumArgs (interp, objc, objv, "option ?arg arg ...?"); -@@ -83,7 +83,7 @@ g_objcmd (ClientData cd, Tcl_Interp* int - * the requested functionality - */ - -- switch (m) { -+ switch (method = m) { - case M_GSET: return gm_GSET (g, interp, objc, objv); - case M_GASSIGN: return gm_GASSIGN (g, interp, objc, objv); - case M_APPEND: return gm_APPEND (g, interp, objc, objv); -@@ -95,7 +95,7 @@ g_objcmd (ClientData cd, Tcl_Interp* int - 0, &m) != TCL_OK) { - return TCL_ERROR; - } -- switch (m) { -+ switch (a_method = m) { - case MA_APPEND: return gm_arc_APPEND (g, interp, objc, objv); - case MA_ATTR: return gm_arc_ATTR (g, interp, objc, objv); - case MA_DELETE: return gm_arc_DELETE (g, interp, objc, objv); -@@ -141,7 +141,7 @@ g_objcmd (ClientData cd, Tcl_Interp* int - 0, &m) != TCL_OK) { - return TCL_ERROR; - } -- switch (m) { -+ switch (n_method = m) { - case MN_APPEND: return gm_node_APPEND (g, interp, objc, objv); - case MN_ATTR: return gm_node_ATTR (g, interp, objc, objv); - case MN_DEGREE: return gm_node_DEGREE (g, interp, objc, objv); ---- modules/struct/graph/util.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/util.c -@@ -77,7 +77,7 @@ g_nlq_pop (NLQ* q) - /* Delete all items in the list. - */ - --void* -+void - g_nlq_clear (NLQ* q) - { - NL* next; ---- modules/struct/graph/util.h.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/util.h -@@ -53,7 +53,7 @@ void g_nlq_init (NLQ* q); - void g_nlq_append (NLQ* q, void* n); - void g_nlq_push (NLQ* q, void* n); - void* g_nlq_pop (NLQ* q); --void* g_nlq_clear (NLQ* q); -+void g_nlq_clear (NLQ* q); - - #endif /* _G_UTIL_H */ - ---- modules/struct/graph/walk.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/graph/walk.c -@@ -1,8 +1,8 @@ -- --#include "tcl.h" --#include --#include --#include -+#include -+#include -+#include "graph.h" -+#include "util.h" -+#include "walk.h" - - /* .................................................. */ - -@@ -22,7 +22,7 @@ static int walkbfspre (Tcl_Interp* inte - static int walk_invoke (Tcl_Interp* interp, GN* n, - int cc, Tcl_Obj** ev, Tcl_Obj* action); - --static int walk_neighbours (GN* n, Tcl_HashTable* v, int dir, -+static void walk_neighbours (GN* n, Tcl_HashTable* v, int dir, - int* nc, GN*** nv); - - /* .................................................. */ -@@ -287,7 +287,7 @@ walk_invoke (Tcl_Interp* interp, GN* n, - - /* .................................................. */ - --static int -+static void - walk_neighbours (GN* n, Tcl_HashTable* vn, int dir, - int* nc, GN*** nv) - { ---- modules/struct/queue_c.tcl.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/queue_c.tcl -@@ -35,7 +35,7 @@ namespace eval ::struct { - */ - - typedef struct QDg { -- long int counter; -+ size_t counter; - char buf [50]; - } QDg; - -@@ -63,7 +63,7 @@ namespace eval ::struct { - } - - qdg->counter ++; -- sprintf (qdg->buf, "queue%d", qdg->counter); -+ sprintf (qdg->buf, "queue%td", qdg->counter); - return qdg->buf; - - #undef KEY ---- modules/struct/queue/ms.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/queue/ms.c -@@ -41,7 +41,7 @@ qums_objcmd (ClientData cd, Tcl_Interp* - M_CLEAR, M_DESTROY, M_GET, - M_PEEK, M_PUT, M_SIZE, - M_UNGET -- }; -+ } method; - - if (objc < 2) { - Tcl_WrongNumArgs (interp, objc, objv, "option ?arg arg ...?"); -@@ -55,7 +55,7 @@ qums_objcmd (ClientData cd, Tcl_Interp* - * the requested functionality - */ - -- switch (m) { -+ switch (method = m) { - case M_CLEAR: return qum_CLEAR (q, interp, objc, objv); - case M_DESTROY: return qum_DESTROY (q, interp, objc, objv); - case M_GET: return qum_PEEK (q, interp, objc, objv, 1 /* get */); ---- modules/struct/sets_c.tcl.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/sets_c.tcl -@@ -53,7 +53,7 @@ namespace eval ::struct { - S_equal,S_exclude, S_include, S_intersect, - S_intersect3, S_size, S_subsetof, S_subtract, - S_symdiff, S_union -- }; -+ } method; - - int m; - -@@ -69,7 +69,7 @@ namespace eval ::struct { - * the requested functionality - */ - -- switch (m) { -+ switch (method = m) { - case S_add: return sm_ADD (NULL, interp, objc, objv); - case S_contains: return sm_CONTAINS (NULL, interp, objc, objv); - case S_difference: return sm_DIFFERENCE (NULL, interp, objc, objv); ---- modules/struct/sets/m.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/sets/m.c -@@ -80,7 +80,7 @@ sm_ADD (ClientData clientData, Tcl_Inter - s_get (interp, val, &vs); - } - -- (void*) Tcl_CreateHashEntry(&vs->el, key, &new); -+ Tcl_CreateHashEntry(&vs->el, key, &new); - nx = 1; - } - if (nx) { ---- modules/struct/sets/s.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/sets/s.c -@@ -293,7 +293,7 @@ s_difference (SPtr a, SPtr b) - if (Tcl_FindHashEntry (&b->el, key) != NULL) continue; - /* key is in a, not in b <=> in (a-b) */ - -- (void*) Tcl_CreateHashEntry(&s->el, key, &new); -+ Tcl_CreateHashEntry(&s->el, key, &new); - } - - return s; -@@ -329,7 +329,7 @@ s_intersect (SPtr a, SPtr b) - if (Tcl_FindHashEntry (&b->el, key) == NULL) continue; - /* key is in a, in b <=> in (a*b) */ - -- (void*) Tcl_CreateHashEntry(&s->el, key, &new); -+ Tcl_CreateHashEntry(&s->el, key, &new); - } - - return s; -@@ -365,7 +365,7 @@ s_add (SPtr a, SPtr b, int* newPtr) - he != NULL; - he = Tcl_NextHashEntry(&hs)) { - key = Tcl_GetHashKey (&b->el, he); -- (void*) Tcl_CreateHashEntry(&a->el, key, &new); -+ Tcl_CreateHashEntry(&a->el, key, &new); - if (new) {nx = 1;} - } - } -@@ -377,7 +377,7 @@ s_add1 (SPtr a, const char* item) - { - int new; - -- (void*) Tcl_CreateHashEntry(&a->el, item, &new); -+ Tcl_CreateHashEntry(&a->el, item, &new); - } - - void ---- modules/struct/stack_c.tcl.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/stack_c.tcl -@@ -40,7 +40,7 @@ namespace eval ::struct { - */ - - typedef struct SDg { -- long int counter; -+ size_t counter; - char buf [50]; - } SDg; - -@@ -68,7 +68,7 @@ namespace eval ::struct { - } - - sdg->counter ++; -- sprintf (sdg->buf, "stack%d", sdg->counter); -+ sprintf (sdg->buf, "stack%td", sdg->counter); - return sdg->buf; +@@ -76,7 +76,7 @@ + } + + paramg->counter ++; +- sprintf (paramg->buf, "rde%ld", paramg->counter); ++ sprintf (paramg->buf, "rde%td", paramg->counter); + return paramg->buf; #undef KEY ---- modules/struct/stack/ms.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/stack/ms.c -@@ -39,7 +39,7 @@ stms_objcmd (ClientData cd, Tcl_Interp* - enum methods { - M_CLEAR, M_DESTROY, M_GET, M_GETR, M_PEEK, M_PEEKR, - M_POP, M_PUSH, M_ROTATE, M_SIZE, M_TRIM, M_TRIMV -- }; -+ } method; - - if (objc < 2) { - Tcl_WrongNumArgs (interp, objc, objv, "option ?arg arg ...?"); -@@ -53,7 +53,7 @@ stms_objcmd (ClientData cd, Tcl_Interp* - * the requested functionality - */ - -- switch (m) { -+ switch (method = m) { - case M_CLEAR: return stm_CLEAR (s, interp, objc, objv); - case M_DESTROY: return stm_DESTROY (s, interp, objc, objv); - case M_GET: return stm_GET (s, interp, objc, objv, 0 ); /* get */ ---- modules/struct/tree_c.tcl.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/tree_c.tcl -@@ -41,7 +41,7 @@ namespace eval ::struct { - */ - - typedef struct TDg { -- long int counter; -+ size_t counter; - char buf [50]; - } TDg; - -@@ -69,7 +69,7 @@ namespace eval ::struct { - } - - tdg->counter ++; -- sprintf (tdg->buf, "tree%d", tdg->counter); -+ sprintf (tdg->buf, "tree%td", tdg->counter); - return tdg->buf; - - #undef KEY ---- modules/struct/tree/m.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/tree/m.c -@@ -4,6 +4,8 @@ - * Implementations for all tree methods. - */ - -+#include -+#include - #include - #include "util.h" - #include "m.h" -@@ -18,6 +20,8 @@ - - static int TclGetIntForIndex (Tcl_Interp* interp, Tcl_Obj* objPtr, - int endValue, int* indexPtr); -+static int TclCheckBadOctal (Tcl_Interp *interp, const char *value); -+static int TclFormatInt (char *buffer, long n); - - /* .................................................. */ - -@@ -2545,7 +2549,7 @@ tm_WALKPROC (T* t, Tcl_Interp* interp, i - - res = t_walk (interp, tn, type, order, - t_walk_invokecmd, -- (Tcl_Obj*) cc, (Tcl_Obj*) ev, objv [0]); -+ (void *)(intptr_t)cc, (Tcl_Obj*) ev, objv [0]); - - ckfree ((char*) ev); - return res; ---- modules/struct/tree/ms.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/tree/ms.c -@@ -312,7 +312,7 @@ tms_objcmd (ClientData cd, Tcl_Interp* i - M_NODES, M_NUMCHILDREN, M_PARENT, M_PREVIOUS, M_RENAME, - M_ROOTNAME, M_SERIALIZE, M_SET, M_SIZE, M_SPLICE, - M_SWAP, M_UNSET, M_WALK, M_WALKPROC -- }; -+ } method; - - if (objc < 2) { - Tcl_WrongNumArgs (interp, objc, objv, "option ?arg arg ...?"); -@@ -326,7 +326,7 @@ tms_objcmd (ClientData cd, Tcl_Interp* i - * the requested functionality - */ - -- switch (m) { -+ switch (method = m) { - case M_TASSIGN: return tm_TASSIGN (t, interp, objc, objv); - case M_TSET: return tm_TSET (t, interp, objc, objv); - case M_ANCESTORS: return tm_ANCESTORS (t, interp, objc, objv); ---- modules/struct/tree/t.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/tree/t.c -@@ -2,9 +2,10 @@ - * (c) Tree functions - */ - --#include --#include --#include -+#include -+#include "t.h" -+#include "tn.h" -+#include "util.h" - - /* .................................................. */ - ---- modules/struct/tree/tn.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/tree/tn.c -@@ -2,8 +2,9 @@ - * (b) Node operations. - */ - --#include --#include -+#include "t.h" -+#include "tn.h" -+#include "util.h" - - /* .................................................. */ - ---- modules/struct/tree/util.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/tree/util.c -@@ -77,7 +77,7 @@ nlq_pop (NLQ* q) - /* Delete all items in the list. - */ - --void* -+void - nlq_clear (NLQ* q) - { - NL* next; ---- modules/struct/tree/util.h.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/tree/util.h -@@ -52,7 +52,7 @@ void nlq_init (NLQ* q); - void nlq_append (NLQ* q, void* n); - void nlq_push (NLQ* q, void* n); - void* nlq_pop (NLQ* q); --void* nlq_clear (NLQ* q); -+void nlq_clear (NLQ* q); - - #endif /* _UTIL_H */ - ---- modules/struct/tree/walk.c.orig 2016-02-04 05:14:14 UTC -+++ modules/struct/tree/walk.c -@@ -1,8 +1,9 @@ - -+#include - #include --#include "tcl.h" --#include --#include -+#include -+#include "t.h" -+#include "util.h" - - /* .................................................. */ - -@@ -237,7 +238,7 @@ t_walk_invokecmd (Tcl_Interp* interp, TN - Tcl_Obj* action) - { - int res; -- int cc = (int) dummy0; -+ int cc = (intptr_t) dummy0; - Tcl_Obj** ev = (Tcl_Obj**) dummy1; /* cc+3 elements */ - - ev [cc] = dummy2; /* Tree */ diff --git a/devel/tcllib/pkg-plist b/devel/tcllib/pkg-plist index 30d6f49c9384..dd5391ea50f8 100644 --- a/devel/tcllib/pkg-plist +++ b/devel/tcllib/pkg-plist @@ -1,1163 +1,1181 @@ bin/dtplite +bin/mkdoc bin/nns bin/nnsd bin/nnslog bin/page bin/pt bin/tcldocstrip lib/tcllib/0compatibility/d_config.tcl lib/tcllib/0compatibility/d_paths.tcl lib/tcllib/0compatibility/p_config.tcl lib/tcllib/0compatibility/p_paths.tcl lib/tcllib/0compatibility/pkgIndex.tcl lib/tcllib/aes/aes.tcl lib/tcllib/aes/pkgIndex.tcl -lib/tcllib/amazon-s3/S3.tcl lib/tcllib/amazon-s3/pkgIndex.tcl +lib/tcllib/amazon-s3/S3.tcl lib/tcllib/amazon-s3/xsxp.tcl lib/tcllib/asn/asn.tcl lib/tcllib/asn/pkgIndex.tcl -lib/tcllib/base32/base32.tcl lib/tcllib/base32/base32_c.tcl lib/tcllib/base32/base32_tcl.tcl +lib/tcllib/base32/base32.tcl lib/tcllib/base32/base32core.tcl -lib/tcllib/base32/base32hex.tcl lib/tcllib/base32/base32hex_c.tcl lib/tcllib/base32/base32hex_tcl.tcl +lib/tcllib/base32/base32hex.tcl lib/tcllib/base32/pkgIndex.tcl lib/tcllib/base64/ascii85.tcl lib/tcllib/base64/base64.tcl lib/tcllib/base64/base64c.tcl lib/tcllib/base64/pkgIndex.tcl lib/tcllib/base64/uuencode.tcl lib/tcllib/base64/yencode.tcl lib/tcllib/bee/bee.tcl lib/tcllib/bee/pkgIndex.tcl -lib/tcllib/bench/bench.tcl lib/tcllib/bench/bench_read.tcl lib/tcllib/bench/bench_wcsv.tcl lib/tcllib/bench/bench_wtext.tcl +lib/tcllib/bench/bench.tcl lib/tcllib/bench/libbench.tcl lib/tcllib/bench/pkgIndex.tcl lib/tcllib/bibtex/bibtex.tcl lib/tcllib/bibtex/pkgIndex.tcl lib/tcllib/blowfish/blowfish.tcl lib/tcllib/blowfish/pkgIndex.tcl lib/tcllib/cache/async.tcl lib/tcllib/cache/pkgIndex.tcl lib/tcllib/clay/clay.tcl lib/tcllib/clay/pkgIndex.tcl lib/tcllib/clock/iso8601.tcl lib/tcllib/clock/pkgIndex.tcl lib/tcllib/clock/rfc2822.tcl lib/tcllib/cmdline/cmdline.tcl lib/tcllib/cmdline/pkgIndex.tcl lib/tcllib/comm/comm.tcl lib/tcllib/comm/pkgIndex.tcl lib/tcllib/control/ascaller.tcl lib/tcllib/control/assert.tcl lib/tcllib/control/control.tcl lib/tcllib/control/do.tcl lib/tcllib/control/no-op.tcl lib/tcllib/control/pkgIndex.tcl lib/tcllib/control/tclIndex lib/tcllib/coroutine/coro_auto.tcl lib/tcllib/coroutine/coroutine.tcl lib/tcllib/coroutine/pkgIndex.tcl lib/tcllib/counter/counter.tcl lib/tcllib/counter/pkgIndex.tcl lib/tcllib/crc/cksum.tcl lib/tcllib/crc/crc16.tcl lib/tcllib/crc/crc32.tcl lib/tcllib/crc/crcc.tcl lib/tcllib/crc/pkgIndex.tcl lib/tcllib/crc/sum.tcl lib/tcllib/cron/cron.tcl lib/tcllib/cron/pkgIndex.tcl lib/tcllib/csv/csv.tcl lib/tcllib/csv/pkgIndex.tcl lib/tcllib/debug/caller.tcl lib/tcllib/debug/debug.tcl lib/tcllib/debug/heartbeat.tcl lib/tcllib/debug/pkgIndex.tcl lib/tcllib/debug/timestamp.tcl lib/tcllib/defer/defer.tcl lib/tcllib/defer/pkgIndex.tcl lib/tcllib/des/des.tcl lib/tcllib/des/pkgIndex.tcl lib/tcllib/des/tcldes.tcl lib/tcllib/des/tcldesjr.tcl lib/tcllib/dicttool/dicttool.tcl lib/tcllib/dicttool/pkgIndex.tcl lib/tcllib/dns/dns.tcl lib/tcllib/dns/ip.tcl lib/tcllib/dns/ipMore.tcl lib/tcllib/dns/ipMoreC.tcl lib/tcllib/dns/msgs/en.msg lib/tcllib/dns/pkgIndex.tcl lib/tcllib/dns/resolv.tcl lib/tcllib/dns/spf.tcl -lib/tcllib/docstrip/docstrip.tcl lib/tcllib/docstrip/docstrip_util.tcl +lib/tcllib/docstrip/docstrip.tcl lib/tcllib/docstrip/pkgIndex.tcl -lib/tcllib/doctools/api.tcl lib/tcllib/doctools/api_idx.tcl lib/tcllib/doctools/api_toc.tcl +lib/tcllib/doctools/api.tcl lib/tcllib/doctools/changelog.tcl -lib/tcllib/doctools/checker.tcl lib/tcllib/doctools/checker_idx.tcl lib/tcllib/doctools/checker_toc.tcl +lib/tcllib/doctools/checker.tcl lib/tcllib/doctools/cvs.tcl lib/tcllib/doctools/docidx.tcl lib/tcllib/doctools/doctoc.tcl lib/tcllib/doctools/doctools.tcl lib/tcllib/doctools/mpformats/_common.tcl lib/tcllib/doctools/mpformats/_html.tcl lib/tcllib/doctools/mpformats/_html.tcl.orig lib/tcllib/doctools/mpformats/_idx_common.tcl lib/tcllib/doctools/mpformats/_markdown.tcl lib/tcllib/doctools/mpformats/_nroff.tcl -lib/tcllib/doctools/mpformats/_text.tcl lib/tcllib/doctools/mpformats/_text_bullets.tcl lib/tcllib/doctools/mpformats/_text_ccore.tcl lib/tcllib/doctools/mpformats/_text_cstack.tcl lib/tcllib/doctools/mpformats/_text_dlist.tcl lib/tcllib/doctools/mpformats/_text_margin.tcl lib/tcllib/doctools/mpformats/_text_para.tcl lib/tcllib/doctools/mpformats/_text_state.tcl lib/tcllib/doctools/mpformats/_text_utils.tcl +lib/tcllib/doctools/mpformats/_text.tcl lib/tcllib/doctools/mpformats/_toc_common.tcl lib/tcllib/doctools/mpformats/_xml.tcl lib/tcllib/doctools/mpformats/_xref.tcl lib/tcllib/doctools/mpformats/c.msg lib/tcllib/doctools/mpformats/de.msg lib/tcllib/doctools/mpformats/en.msg lib/tcllib/doctools/mpformats/fmt.desc lib/tcllib/doctools/mpformats/fmt.html lib/tcllib/doctools/mpformats/fmt.latex lib/tcllib/doctools/mpformats/fmt.list lib/tcllib/doctools/mpformats/fmt.markdown lib/tcllib/doctools/mpformats/fmt.nroff lib/tcllib/doctools/mpformats/fmt.null lib/tcllib/doctools/mpformats/fmt.text lib/tcllib/doctools/mpformats/fmt.tmml lib/tcllib/doctools/mpformats/fmt.wiki lib/tcllib/doctools/mpformats/fr.msg lib/tcllib/doctools/mpformats/idx.html lib/tcllib/doctools/mpformats/idx.markdown lib/tcllib/doctools/mpformats/idx.nroff lib/tcllib/doctools/mpformats/idx.null lib/tcllib/doctools/mpformats/idx.text lib/tcllib/doctools/mpformats/idx.wiki lib/tcllib/doctools/mpformats/man.macros lib/tcllib/doctools/mpformats/toc.html lib/tcllib/doctools/mpformats/toc.markdown lib/tcllib/doctools/mpformats/toc.nroff lib/tcllib/doctools/mpformats/toc.null lib/tcllib/doctools/mpformats/toc.text lib/tcllib/doctools/mpformats/toc.tmml lib/tcllib/doctools/mpformats/toc.wiki lib/tcllib/doctools/pkgIndex.tcl -lib/tcllib/doctools2base/html.tcl lib/tcllib/doctools2base/html_cssdefaults.tcl +lib/tcllib/doctools2base/html.tcl lib/tcllib/doctools2base/msgcat.tcl lib/tcllib/doctools2base/nroff_manmacros.tcl lib/tcllib/doctools2base/pkgIndex.tcl lib/tcllib/doctools2base/tcl_parse.tcl lib/tcllib/doctools2base/text.tcl lib/tcllib/doctools2idx/container.tcl -lib/tcllib/doctools2idx/export.tcl lib/tcllib/doctools2idx/export_docidx.tcl lib/tcllib/doctools2idx/export_html.tcl lib/tcllib/doctools2idx/export_json.tcl lib/tcllib/doctools2idx/export_nroff.tcl lib/tcllib/doctools2idx/export_text.tcl lib/tcllib/doctools2idx/export_wiki.tcl -lib/tcllib/doctools2idx/import.tcl +lib/tcllib/doctools2idx/export.tcl lib/tcllib/doctools2idx/import_docidx.tcl lib/tcllib/doctools2idx/import_json.tcl +lib/tcllib/doctools2idx/import.tcl lib/tcllib/doctools2idx/msgcat_c.tcl lib/tcllib/doctools2idx/msgcat_de.tcl lib/tcllib/doctools2idx/msgcat_en.tcl lib/tcllib/doctools2idx/msgcat_fr.tcl lib/tcllib/doctools2idx/parse.tcl lib/tcllib/doctools2idx/pkgIndex.tcl lib/tcllib/doctools2idx/structure.tcl lib/tcllib/doctools2toc/container.tcl -lib/tcllib/doctools2toc/export.tcl lib/tcllib/doctools2toc/export_doctoc.tcl lib/tcllib/doctools2toc/export_html.tcl lib/tcllib/doctools2toc/export_json.tcl lib/tcllib/doctools2toc/export_nroff.tcl lib/tcllib/doctools2toc/export_text.tcl lib/tcllib/doctools2toc/export_wiki.tcl -lib/tcllib/doctools2toc/import.tcl +lib/tcllib/doctools2toc/export.tcl lib/tcllib/doctools2toc/import_doctoc.tcl lib/tcllib/doctools2toc/import_json.tcl +lib/tcllib/doctools2toc/import.tcl lib/tcllib/doctools2toc/msgcat_c.tcl lib/tcllib/doctools2toc/msgcat_de.tcl lib/tcllib/doctools2toc/msgcat_en.tcl lib/tcllib/doctools2toc/msgcat_fr.tcl lib/tcllib/doctools2toc/parse.tcl lib/tcllib/doctools2toc/pkgIndex.tcl lib/tcllib/doctools2toc/structure.tcl lib/tcllib/dtplite/dtplite.tcl lib/tcllib/dtplite/pkgIndex.tcl lib/tcllib/fileutil/decode.tcl lib/tcllib/fileutil/fileutil.tcl lib/tcllib/fileutil/multi.tcl lib/tcllib/fileutil/multiop.tcl lib/tcllib/fileutil/paths.tcl lib/tcllib/fileutil/pkgIndex.tcl lib/tcllib/fileutil/traverse.tcl -lib/tcllib/ftp/ftp.tcl lib/tcllib/ftp/ftp_geturl.tcl +lib/tcllib/ftp/ftp.tcl lib/tcllib/ftp/pkgIndex.tcl lib/tcllib/ftpd/ftpd.tcl lib/tcllib/ftpd/pkgIndex.tcl lib/tcllib/fumagic/cfront.tcl lib/tcllib/fumagic/cgen.tcl lib/tcllib/fumagic/filetypes.tcl lib/tcllib/fumagic/pkgIndex.tcl lib/tcllib/fumagic/rtcore.tcl lib/tcllib/generator/generator.tcl lib/tcllib/generator/pkgIndex.tcl lib/tcllib/gpx/gpx.tcl lib/tcllib/gpx/pkgIndex.tcl lib/tcllib/grammar_aycock/aycock-build.tcl lib/tcllib/grammar_aycock/aycock-debug.tcl lib/tcllib/grammar_aycock/aycock-runtime.tcl lib/tcllib/grammar_aycock/pkgIndex.tcl lib/tcllib/grammar_fa/dacceptor.tcl lib/tcllib/grammar_fa/dexec.tcl lib/tcllib/grammar_fa/fa.tcl lib/tcllib/grammar_fa/faop.tcl lib/tcllib/grammar_fa/pkgIndex.tcl lib/tcllib/grammar_me/gasm.tcl lib/tcllib/grammar_me/me_cpu.tcl lib/tcllib/grammar_me/me_cpucore.tcl lib/tcllib/grammar_me/me_tcl.tcl lib/tcllib/grammar_me/me_util.tcl lib/tcllib/grammar_me/pkgIndex.tcl -lib/tcllib/grammar_peg/peg.tcl lib/tcllib/grammar_peg/peg_interp.tcl +lib/tcllib/grammar_peg/peg.tcl lib/tcllib/grammar_peg/pkgIndex.tcl lib/tcllib/hook/hook.tcl lib/tcllib/hook/pkgIndex.tcl lib/tcllib/html/html.tcl lib/tcllib/html/pkgIndex.tcl lib/tcllib/htmlparse/htmlparse.tcl lib/tcllib/htmlparse/pkgIndex.tcl lib/tcllib/http/autoproxy.tcl lib/tcllib/http/pkgIndex.tcl lib/tcllib/httpd/httpd.tcl lib/tcllib/httpd/pkgIndex.tcl lib/tcllib/httpwget/pkgIndex.tcl lib/tcllib/httpwget/wget.tcl lib/tcllib/ident/ident.tcl lib/tcllib/ident/pkgIndex.tcl lib/tcllib/imap4/imap4.tcl lib/tcllib/imap4/pkgIndex.tcl lib/tcllib/inifile/ini.tcl lib/tcllib/inifile/pkgIndex.tcl lib/tcllib/interp/deleg_method.tcl lib/tcllib/interp/deleg_proc.tcl lib/tcllib/interp/interp.tcl lib/tcllib/interp/pkgIndex.tcl lib/tcllib/irc/irc.tcl lib/tcllib/irc/picoirc.tcl lib/tcllib/irc/pkgIndex.tcl lib/tcllib/javascript/javascript.tcl lib/tcllib/javascript/pkgIndex.tcl lib/tcllib/jpeg/jpeg.tcl lib/tcllib/jpeg/pkgIndex.tcl -lib/tcllib/json/json.tcl lib/tcllib/json/json_tcl.tcl lib/tcllib/json/json_write.tcl +lib/tcllib/json/json.tcl lib/tcllib/json/jsonc.tcl lib/tcllib/json/pkgIndex.tcl lib/tcllib/lambda/lambda.tcl lib/tcllib/lambda/pkgIndex.tcl lib/tcllib/lazyset/lazyset.tcl lib/tcllib/lazyset/pkgIndex.tcl lib/tcllib/ldap/ldap.tcl lib/tcllib/ldap/ldapx.tcl lib/tcllib/ldap/pkgIndex.tcl lib/tcllib/log/log.tcl lib/tcllib/log/logger.tcl lib/tcllib/log/loggerAppender.tcl lib/tcllib/log/loggerUtils.tcl lib/tcllib/log/msgs/en.msg lib/tcllib/log/pkgIndex.tcl lib/tcllib/map/map_geocode_nominatim.tcl -lib/tcllib/map/map_slippy.tcl lib/tcllib/map/map_slippy_cache.tcl lib/tcllib/map/map_slippy_fetcher.tcl +lib/tcllib/map/map_slippy.tcl lib/tcllib/map/pkgIndex.tcl lib/tcllib/mapproj/mapproj.tcl lib/tcllib/mapproj/pkgIndex.tcl lib/tcllib/markdown/markdown.tcl lib/tcllib/markdown/pkgIndex.tcl lib/tcllib/math/bessel.tcl lib/tcllib/math/bigfloat.tcl lib/tcllib/math/bigfloat2.tcl lib/tcllib/math/bignum.tcl lib/tcllib/math/calculus.tcl +lib/tcllib/math/changepoint.tcl lib/tcllib/math/classic_polyns.tcl lib/tcllib/math/combinatorics.tcl +lib/tcllib/math/combinatoricsExt.tcl lib/tcllib/math/constants.tcl lib/tcllib/math/decimal.tcl lib/tcllib/math/elliptic.tcl lib/tcllib/math/exact.tcl lib/tcllib/math/exponential.tcl +lib/tcllib/math/figurate.tcl +lib/tcllib/math/filtergen.tcl lib/tcllib/math/fourier.tcl lib/tcllib/math/fuzzy.tcl -lib/tcllib/math/geometry.tcl lib/tcllib/math/geometry_circle.tcl +lib/tcllib/math/geometry_ext.tcl +lib/tcllib/math/geometry.tcl lib/tcllib/math/interpolate.tcl lib/tcllib/math/kruskal.tcl lib/tcllib/math/linalg.tcl lib/tcllib/math/liststat.tcl lib/tcllib/math/machineparameters.tcl lib/tcllib/math/math.tcl lib/tcllib/math/misc.tcl lib/tcllib/math/mvlinreg.tcl lib/tcllib/math/numtheory.tcl lib/tcllib/math/optimize.tcl lib/tcllib/math/pca.tcl lib/tcllib/math/pdf_stat.tcl lib/tcllib/math/pkgIndex.tcl lib/tcllib/math/plotstat.tcl lib/tcllib/math/polynomials.tcl lib/tcllib/math/primes.tcl +lib/tcllib/math/probopt_diffev.tcl +lib/tcllib/math/probopt_lipo.tcl +lib/tcllib/math/probopt_pso.tcl +lib/tcllib/math/probopt_sce.tcl +lib/tcllib/math/probopt.tcl lib/tcllib/math/qcomplex.tcl lib/tcllib/math/quasirandom.tcl lib/tcllib/math/rational_funcs.tcl lib/tcllib/math/romannumerals.tcl lib/tcllib/math/special.tcl lib/tcllib/math/stat_kernel.tcl lib/tcllib/math/stat_logit.tcl lib/tcllib/math/stat_wasserstein.tcl lib/tcllib/math/statistics.tcl lib/tcllib/math/symdiff.tcl lib/tcllib/math/tclIndex lib/tcllib/math/trig.tcl lib/tcllib/math/wilcoxon.tcl lib/tcllib/md4/md4.tcl lib/tcllib/md4/md4c.tcl lib/tcllib/md4/pkgIndex.tcl lib/tcllib/md5/md5.tcl lib/tcllib/md5/md5c.tcl lib/tcllib/md5/md5x.tcl lib/tcllib/md5/pkgIndex.tcl lib/tcllib/md5crypt/md5crypt.tcl lib/tcllib/md5crypt/md5cryptc.tcl lib/tcllib/md5crypt/pkgIndex.tcl lib/tcllib/mime/mime.tcl lib/tcllib/mime/pkgIndex.tcl lib/tcllib/mime/smtp.tcl +lib/tcllib/mkdoc/mkdoc.tcl +lib/tcllib/mkdoc/pkgIndex.tcl lib/tcllib/multiplexer/multiplexer.tcl lib/tcllib/multiplexer/pkgIndex.tcl lib/tcllib/namespacex/namespacex.tcl lib/tcllib/namespacex/pkgIndex.tcl lib/tcllib/ncgi/ncgi.tcl lib/tcllib/ncgi/pkgIndex.tcl lib/tcllib/nettool/nettool.tcl lib/tcllib/nettool/pkgIndex.tcl lib/tcllib/nmea/nmea.tcl lib/tcllib/nmea/pkgIndex.tcl lib/tcllib/nns/common.tcl -lib/tcllib/nns/nns.tcl lib/tcllib/nns/nns_auto.tcl +lib/tcllib/nns/nns.tcl lib/tcllib/nns/pkgIndex.tcl lib/tcllib/nns/server.tcl lib/tcllib/nntp/nntp.tcl lib/tcllib/nntp/pkgIndex.tcl lib/tcllib/ntp/pkgIndex.tcl lib/tcllib/ntp/time.tcl lib/tcllib/oauth/oauth.tcl lib/tcllib/oauth/pkgIndex.tcl lib/tcllib/oodialect/oodialect.tcl lib/tcllib/oodialect/pkgIndex.tcl lib/tcllib/oometa/oometa.tcl lib/tcllib/oometa/oooption.tcl lib/tcllib/oometa/pkgIndex.tcl lib/tcllib/ooutil/ooutil.tcl lib/tcllib/ooutil/pkgIndex.tcl lib/tcllib/otp/otp.tcl lib/tcllib/otp/pkgIndex.tcl lib/tcllib/page/analysis_peg_emodes.tcl lib/tcllib/page/analysis_peg_minimize.tcl lib/tcllib/page/analysis_peg_reachable.tcl lib/tcllib/page/analysis_peg_realizable.tcl lib/tcllib/page/compiler_peg_mecpu.tcl lib/tcllib/page/gen_peg_canon.tcl lib/tcllib/page/gen_peg_cpkg.tcl lib/tcllib/page/gen_peg_hb.tcl lib/tcllib/page/gen_peg_me.tcl lib/tcllib/page/gen_peg_me.template lib/tcllib/page/gen_peg_mecpu.tcl lib/tcllib/page/gen_peg_mecpu.template lib/tcllib/page/gen_peg_ser.tcl lib/tcllib/page/gen_tree_text.tcl lib/tcllib/page/parse_lemon.tcl lib/tcllib/page/parse_peg.tcl lib/tcllib/page/parse_peghb.tcl lib/tcllib/page/parse_pegser.tcl lib/tcllib/page/peg_grammar.tcl lib/tcllib/page/pkgIndex.tcl lib/tcllib/page/pluginmgr.tcl lib/tcllib/page/plugins/config_peg.tcl lib/tcllib/page/plugins/pkgIndex.tcl lib/tcllib/page/plugins/reader_hb.tcl lib/tcllib/page/plugins/reader_lemon.tcl lib/tcllib/page/plugins/reader_peg.tcl lib/tcllib/page/plugins/reader_ser.tcl lib/tcllib/page/plugins/reader_treeser.tcl lib/tcllib/page/plugins/transform_mecpu.tcl lib/tcllib/page/plugins/transform_reachable.tcl lib/tcllib/page/plugins/transform_realizable.tcl lib/tcllib/page/plugins/writer_hb.tcl lib/tcllib/page/plugins/writer_identity.tcl lib/tcllib/page/plugins/writer_me.tcl lib/tcllib/page/plugins/writer_mecpu.tcl lib/tcllib/page/plugins/writer_null.tcl lib/tcllib/page/plugins/writer_peg.tcl lib/tcllib/page/plugins/writer_ser.tcl lib/tcllib/page/plugins/writer_tpc.tcl lib/tcllib/page/plugins/writer_tree.tcl lib/tcllib/page/util_flow.tcl lib/tcllib/page/util_norm_lemon.tcl lib/tcllib/page/util_norm_peg.tcl lib/tcllib/page/util_peg.tcl lib/tcllib/page/util_quote.tcl lib/tcllib/pkgIndex.tcl lib/tcllib/pki/pkgIndex.tcl lib/tcllib/pki/pki.tcl lib/tcllib/pluginmgr/pkgIndex.tcl lib/tcllib/pluginmgr/pluginmgr.tcl lib/tcllib/png/pkgIndex.tcl lib/tcllib/png/png.tcl lib/tcllib/pop3/pkgIndex.tcl lib/tcllib/pop3/pop3.tcl lib/tcllib/pop3d/pkgIndex.tcl -lib/tcllib/pop3d/pop3d.tcl lib/tcllib/pop3d/pop3d_dbox.tcl lib/tcllib/pop3d/pop3d_udb.tcl +lib/tcllib/pop3d/pop3d.tcl lib/tcllib/practcl/pkgIndex.tcl lib/tcllib/practcl/practcl.tcl lib/tcllib/processman/pkgIndex.tcl lib/tcllib/processman/processman.tcl lib/tcllib/profiler/pkgIndex.tcl lib/tcllib/profiler/profiler.tcl lib/tcllib/pt/char.tcl lib/tcllib/pt/pkgIndex.tcl lib/tcllib/pt/pt_astree.tcl lib/tcllib/pt/pt_cparam_config_critcl.tcl lib/tcllib/pt/pt_cparam_config_tea.tcl -lib/tcllib/pt/pt_parse_peg.tcl lib/tcllib/pt/pt_parse_peg_c.tcl lib/tcllib/pt/pt_parse_peg_tcl.tcl -lib/tcllib/pt/pt_peg_container.tcl +lib/tcllib/pt/pt_parse_peg.tcl lib/tcllib/pt/pt_peg_container_peg.tcl -lib/tcllib/pt/pt_peg_export.tcl +lib/tcllib/pt/pt_peg_container.tcl lib/tcllib/pt/pt_peg_export_container.tcl lib/tcllib/pt/pt_peg_export_json.tcl lib/tcllib/pt/pt_peg_export_peg.tcl +lib/tcllib/pt/pt_peg_export.tcl lib/tcllib/pt/pt_peg_from_json.tcl lib/tcllib/pt/pt_peg_from_peg.tcl -lib/tcllib/pt/pt_peg_import.tcl lib/tcllib/pt/pt_peg_import_json.tcl lib/tcllib/pt/pt_peg_import_peg.tcl +lib/tcllib/pt/pt_peg_import.tcl lib/tcllib/pt/pt_peg_interp.tcl lib/tcllib/pt/pt_peg_op.tcl lib/tcllib/pt/pt_peg_to_container.tcl lib/tcllib/pt/pt_peg_to_cparam.tcl lib/tcllib/pt/pt_peg_to_json.tcl lib/tcllib/pt/pt_peg_to_param.tcl lib/tcllib/pt/pt_peg_to_peg.tcl lib/tcllib/pt/pt_peg_to_tclparam.tcl lib/tcllib/pt/pt_pegrammar.tcl lib/tcllib/pt/pt_pexpr_op.tcl lib/tcllib/pt/pt_pexpression.tcl lib/tcllib/pt/pt_pgen.tcl -lib/tcllib/pt/pt_rdengine.tcl lib/tcllib/pt/pt_rdengine_c.tcl lib/tcllib/pt/pt_rdengine_nx.tcl lib/tcllib/pt/pt_rdengine_oo.tcl lib/tcllib/pt/pt_rdengine_tcl.tcl +lib/tcllib/pt/pt_rdengine.tcl lib/tcllib/pt/pt_tclparam_config_nx.tcl lib/tcllib/pt/pt_tclparam_config_snit.tcl lib/tcllib/pt/pt_tclparam_config_tcloo.tcl lib/tcllib/pt/pt_util.tcl lib/tcllib/pt/rde_critcl/m.c lib/tcllib/pt/rde_critcl/m.h lib/tcllib/pt/rde_critcl/ms.c lib/tcllib/pt/rde_critcl/ms.h lib/tcllib/pt/rde_critcl/ot.c lib/tcllib/pt/rde_critcl/ot.h lib/tcllib/pt/rde_critcl/p.c lib/tcllib/pt/rde_critcl/p.c.orig lib/tcllib/pt/rde_critcl/p.h -lib/tcllib/pt/rde_critcl/pInt.h lib/tcllib/pt/rde_critcl/param.c lib/tcllib/pt/rde_critcl/param.c.orig lib/tcllib/pt/rde_critcl/param.h lib/tcllib/pt/rde_critcl/param.h.orig +lib/tcllib/pt/rde_critcl/pInt.h lib/tcllib/pt/rde_critcl/stack.c lib/tcllib/pt/rde_critcl/stack.h lib/tcllib/pt/rde_critcl/tc.c lib/tcllib/pt/rde_critcl/tc.h lib/tcllib/pt/rde_critcl/util.c lib/tcllib/pt/rde_critcl/util.h lib/tcllib/pt/text_write.tcl lib/tcllib/rc4/pkgIndex.tcl lib/tcllib/rc4/rc4.tcl lib/tcllib/rc4/rc4c.tcl lib/tcllib/rcs/pkgIndex.tcl lib/tcllib/rcs/rcs.tcl lib/tcllib/report/pkgIndex.tcl lib/tcllib/report/report.tcl lib/tcllib/rest/pkgIndex.tcl lib/tcllib/rest/rest.tcl lib/tcllib/ripemd/pkgIndex.tcl lib/tcllib/ripemd/ripemd128.tcl lib/tcllib/ripemd/ripemd160.tcl lib/tcllib/sasl/gtoken.tcl lib/tcllib/sasl/ntlm.tcl lib/tcllib/sasl/pkgIndex.tcl lib/tcllib/sasl/sasl.tcl lib/tcllib/sasl/scram.tcl lib/tcllib/sha1/pkgIndex.tcl +lib/tcllib/sha1/sha1.c +lib/tcllib/sha1/sha1.h lib/tcllib/sha1/sha1.tcl lib/tcllib/sha1/sha1c.tcl lib/tcllib/sha1/sha1v1.tcl +lib/tcllib/sha1/sha256.c +lib/tcllib/sha1/sha256.h lib/tcllib/sha1/sha256.tcl lib/tcllib/sha1/sha256c.tcl lib/tcllib/simulation/annealing.tcl lib/tcllib/simulation/montecarlo.tcl lib/tcllib/simulation/pkgIndex.tcl lib/tcllib/simulation/random.tcl lib/tcllib/smtpd/pkgIndex.tcl lib/tcllib/smtpd/smtpd.tcl -lib/tcllib/snit/main1.tcl lib/tcllib/snit/main1_83.tcl +lib/tcllib/snit/main1.tcl lib/tcllib/snit/main2.tcl lib/tcllib/snit/pkgIndex.tcl +lib/tcllib/snit/snit_tcl83_utils.tcl lib/tcllib/snit/snit.tcl lib/tcllib/snit/snit2.tcl -lib/tcllib/snit/snit_tcl83_utils.tcl lib/tcllib/snit/validate.tcl lib/tcllib/soundex/pkgIndex.tcl lib/tcllib/soundex/soundex.tcl lib/tcllib/stooop/mkpkgidx.tcl lib/tcllib/stooop/pkgIndex.tcl lib/tcllib/stooop/stooop.tcl lib/tcllib/stooop/switched.tcl lib/tcllib/stooop/xifo.tcl lib/tcllib/string/pkgIndex.tcl -lib/tcllib/string/token.tcl lib/tcllib/string/token_shell.tcl +lib/tcllib/string/token.tcl lib/tcllib/stringprep/pkgIndex.tcl -lib/tcllib/stringprep/stringprep.tcl lib/tcllib/stringprep/stringprep_data.tcl -lib/tcllib/stringprep/unicode.tcl +lib/tcllib/stringprep/stringprep.tcl lib/tcllib/stringprep/unicode_data.tcl +lib/tcllib/stringprep/unicode.tcl lib/tcllib/struct/disjointset.tcl -lib/tcllib/struct/graph.tcl -lib/tcllib/struct/graph1.tcl lib/tcllib/struct/graph_c.tcl lib/tcllib/struct/graph_tcl.tcl +lib/tcllib/struct/graph.tcl +lib/tcllib/struct/graph1.tcl lib/tcllib/struct/graphops.tcl lib/tcllib/struct/list.tcl +lib/tcllib/struct/list.test.tcl lib/tcllib/struct/map.tcl lib/tcllib/struct/matrix.tcl lib/tcllib/struct/matrix1.tcl lib/tcllib/struct/pkgIndex.tcl lib/tcllib/struct/pool.tcl lib/tcllib/struct/prioqueue.tcl -lib/tcllib/struct/queue.tcl lib/tcllib/struct/queue_c.tcl lib/tcllib/struct/queue_oo.tcl lib/tcllib/struct/queue_tcl.tcl +lib/tcllib/struct/queue.tcl lib/tcllib/struct/record.tcl -lib/tcllib/struct/sets.tcl lib/tcllib/struct/sets_c.tcl lib/tcllib/struct/sets_tcl.tcl +lib/tcllib/struct/sets.tcl lib/tcllib/struct/skiplist.tcl -lib/tcllib/struct/stack.tcl lib/tcllib/struct/stack_c.tcl lib/tcllib/struct/stack_oo.tcl lib/tcllib/struct/stack_tcl.tcl +lib/tcllib/struct/stack.tcl lib/tcllib/struct/struct.tcl lib/tcllib/struct/struct1.tcl -lib/tcllib/struct/tree.tcl -lib/tcllib/struct/tree1.tcl lib/tcllib/struct/tree_c.tcl lib/tcllib/struct/tree_tcl.tcl +lib/tcllib/struct/tree.tcl +lib/tcllib/struct/tree1.tcl lib/tcllib/tar/pkgIndex.tcl lib/tcllib/tar/tar.tcl lib/tcllib/tepam/pkgIndex.tcl -lib/tcllib/tepam/tepam.tcl lib/tcllib/tepam/tepam_doc_gen.tcl +lib/tcllib/tepam/tepam.tcl lib/tcllib/term/ansi/code.tcl lib/tcllib/term/ansi/code/attr.tcl lib/tcllib/term/ansi/code/ctrl.tcl lib/tcllib/term/ansi/code/macros.tcl lib/tcllib/term/ansi/ctrlunix.tcl lib/tcllib/term/ansi/send.tcl lib/tcllib/term/bind.tcl lib/tcllib/term/imenu.tcl lib/tcllib/term/ipager.tcl lib/tcllib/term/pkgIndex.tcl lib/tcllib/term/receive.tcl lib/tcllib/term/send.tcl lib/tcllib/term/term.tcl lib/tcllib/textutil/adjust.tcl lib/tcllib/textutil/dehypht.tex lib/tcllib/textutil/eshyph_vo.tex lib/tcllib/textutil/expander.tcl lib/tcllib/textutil/ithyph.tex lib/tcllib/textutil/patch.tcl lib/tcllib/textutil/pkgIndex.tcl lib/tcllib/textutil/repeat.tcl lib/tcllib/textutil/split.tcl lib/tcllib/textutil/string.tcl lib/tcllib/textutil/tabify.tcl lib/tcllib/textutil/textutil.tcl lib/tcllib/textutil/trim.tcl lib/tcllib/textutil/wcswidth.tcl lib/tcllib/tie/pkgIndex.tcl -lib/tcllib/tie/tie.tcl lib/tcllib/tie/tie_array.tcl lib/tcllib/tie/tie_dsource.tcl lib/tcllib/tie/tie_file.tcl lib/tcllib/tie/tie_growfile.tcl lib/tcllib/tie/tie_log.tcl lib/tcllib/tie/tie_rarray.tcl +lib/tcllib/tie/tie.tcl lib/tcllib/tiff/pkgIndex.tcl lib/tcllib/tiff/tiff.tcl lib/tcllib/tool/pkgIndex.tcl lib/tcllib/tool/tool.tcl lib/tcllib/transfer/connect.tcl lib/tcllib/transfer/copyops.tcl lib/tcllib/transfer/ddest.tcl lib/tcllib/transfer/dsource.tcl lib/tcllib/transfer/pkgIndex.tcl lib/tcllib/transfer/receiver.tcl lib/tcllib/transfer/tqueue.tcl lib/tcllib/transfer/transmitter.tcl lib/tcllib/treeql/pkgIndex.tcl lib/tcllib/treeql/treeql.tcl lib/tcllib/treeql/treeql84.tcl lib/tcllib/treeql/treeql85.tcl lib/tcllib/try/pkgIndex.tcl lib/tcllib/try/throw.tcl lib/tcllib/try/try.tcl lib/tcllib/udpcluster/pkgIndex.tcl lib/tcllib/udpcluster/udpcluster.tcl lib/tcllib/uev/pkgIndex.tcl -lib/tcllib/uev/uevent.tcl lib/tcllib/uev/uevent_onidle.tcl +lib/tcllib/uev/uevent.tcl lib/tcllib/units/pkgIndex.tcl lib/tcllib/units/units.tcl lib/tcllib/uri/pkgIndex.tcl lib/tcllib/uri/uri.tcl lib/tcllib/uri/urn-scheme.tcl lib/tcllib/uuid/pkgIndex.tcl lib/tcllib/uuid/uuid.tcl lib/tcllib/valtype/cc_amex.tcl lib/tcllib/valtype/cc_discover.tcl lib/tcllib/valtype/cc_mastercard.tcl lib/tcllib/valtype/cc_visa.tcl lib/tcllib/valtype/ean13.tcl lib/tcllib/valtype/iban.tcl lib/tcllib/valtype/imei.tcl lib/tcllib/valtype/isbn.tcl lib/tcllib/valtype/luhn.tcl lib/tcllib/valtype/luhn5.tcl lib/tcllib/valtype/pkgIndex.tcl lib/tcllib/valtype/usnpi.tcl lib/tcllib/valtype/valtype.tcl lib/tcllib/valtype/verhoeff.tcl lib/tcllib/virtchannel_base/cat.tcl lib/tcllib/virtchannel_base/facade.tcl lib/tcllib/virtchannel_base/fifo.tcl lib/tcllib/virtchannel_base/fifo2.tcl lib/tcllib/virtchannel_base/halfpipe.tcl lib/tcllib/virtchannel_base/memchan.tcl lib/tcllib/virtchannel_base/null.tcl lib/tcllib/virtchannel_base/nullzero.tcl lib/tcllib/virtchannel_base/pkgIndex.tcl lib/tcllib/virtchannel_base/random.tcl lib/tcllib/virtchannel_base/randseed.tcl lib/tcllib/virtchannel_base/std.tcl lib/tcllib/virtchannel_base/string.tcl lib/tcllib/virtchannel_base/textwindow.tcl lib/tcllib/virtchannel_base/variable.tcl lib/tcllib/virtchannel_base/zero.tcl lib/tcllib/virtchannel_core/core.tcl lib/tcllib/virtchannel_core/events.tcl lib/tcllib/virtchannel_core/pkgIndex.tcl lib/tcllib/virtchannel_core/transformcore.tcl lib/tcllib/virtchannel_transform/adler32.tcl lib/tcllib/virtchannel_transform/base64.tcl lib/tcllib/virtchannel_transform/counter.tcl lib/tcllib/virtchannel_transform/crc32.tcl lib/tcllib/virtchannel_transform/hex.tcl lib/tcllib/virtchannel_transform/identity.tcl lib/tcllib/virtchannel_transform/limitsize.tcl lib/tcllib/virtchannel_transform/observe.tcl lib/tcllib/virtchannel_transform/otp.tcl lib/tcllib/virtchannel_transform/pkgIndex.tcl lib/tcllib/virtchannel_transform/rot.tcl lib/tcllib/virtchannel_transform/spacer.tcl lib/tcllib/virtchannel_transform/zlib.tcl lib/tcllib/websocket/pkgIndex.tcl lib/tcllib/websocket/websocket.tcl lib/tcllib/wip/pkgIndex.tcl lib/tcllib/wip/wip.tcl lib/tcllib/wip/wip2.tcl -lib/tcllib/yaml/huddle.tcl lib/tcllib/yaml/huddle_types.tcl +lib/tcllib/yaml/huddle.tcl lib/tcllib/yaml/json2huddle.tcl lib/tcllib/yaml/pkgIndex.tcl lib/tcllib/yaml/yaml.tcl lib/tcllib/zip/decode.tcl lib/tcllib/zip/encode.tcl lib/tcllib/zip/mkzip.tcl lib/tcllib/zip/pkgIndex.tcl %%MANPAGES%%man/mann/S3.tcllib.n.gz %%MANPAGES%%man/mann/adjust.tcllib.n.gz %%MANPAGES%%man/mann/adler32.tcllib.n.gz %%MANPAGES%%man/mann/aes.tcllib.n.gz %%MANPAGES%%man/mann/annealing.tcllib.n.gz %%MANPAGES%%man/mann/ansi_cattr.tcllib.n.gz %%MANPAGES%%man/mann/ansi_cctrl.tcllib.n.gz %%MANPAGES%%man/mann/ansi_cmacros.tcllib.n.gz %%MANPAGES%%man/mann/ansi_code.tcllib.n.gz %%MANPAGES%%man/mann/ansi_ctrlu.tcllib.n.gz %%MANPAGES%%man/mann/ansi_send.tcllib.n.gz %%MANPAGES%%man/mann/ascii85.tcllib.n.gz %%MANPAGES%%man/mann/asn.tcllib.n.gz %%MANPAGES%%man/mann/async.tcllib.n.gz %%MANPAGES%%man/mann/autoproxy.tcllib.n.gz %%MANPAGES%%man/mann/aycock.tcllib.n.gz %%MANPAGES%%man/mann/base32.tcllib.n.gz %%MANPAGES%%man/mann/base32core.tcllib.n.gz %%MANPAGES%%man/mann/base32hex.tcllib.n.gz %%MANPAGES%%man/mann/base64.tcllib.n.gz %%MANPAGES%%man/mann/bee.tcllib.n.gz %%MANPAGES%%man/mann/bench.tcllib.n.gz %%MANPAGES%%man/mann/bench_intro.tcllib.n.gz %%MANPAGES%%man/mann/bench_lang_intro.tcllib.n.gz %%MANPAGES%%man/mann/bench_lang_spec.tcllib.n.gz %%MANPAGES%%man/mann/bench_read.tcllib.n.gz %%MANPAGES%%man/mann/bench_wcsv.tcllib.n.gz %%MANPAGES%%man/mann/bench_wtext.tcllib.n.gz %%MANPAGES%%man/mann/bibtex.tcllib.n.gz %%MANPAGES%%man/mann/bigfloat.tcllib.n.gz %%MANPAGES%%man/mann/bignum.tcllib.n.gz %%MANPAGES%%man/mann/blowfish.tcllib.n.gz %%MANPAGES%%man/mann/calculus.tcllib.n.gz %%MANPAGES%%man/mann/cat.tcllib.n.gz %%MANPAGES%%man/mann/cc_amex.tcllib.n.gz %%MANPAGES%%man/mann/cc_discover.tcllib.n.gz %%MANPAGES%%man/mann/cc_mastercard.tcllib.n.gz %%MANPAGES%%man/mann/cc_visa.tcllib.n.gz %%MANPAGES%%man/mann/cfront.tcllib.n.gz %%MANPAGES%%man/mann/cgen.tcllib.n.gz %%MANPAGES%%man/mann/changelog.tcllib.n.gz %%MANPAGES%%man/mann/cksum.tcllib.n.gz %%MANPAGES%%man/mann/clay.tcllib.n.gz %%MANPAGES%%man/mann/cmdline.tcllib.n.gz %%MANPAGES%%man/mann/combinatorics.tcllib.n.gz %%MANPAGES%%man/mann/comm.tcllib.n.gz %%MANPAGES%%man/mann/comm_wire.tcllib.n.gz %%MANPAGES%%man/mann/connect.tcllib.n.gz %%MANPAGES%%man/mann/constants.tcllib.n.gz %%MANPAGES%%man/mann/control.tcllib.n.gz %%MANPAGES%%man/mann/copyops.tcllib.n.gz %%MANPAGES%%man/mann/core.tcllib.n.gz %%MANPAGES%%man/mann/coro_auto.tcllib.n.gz %%MANPAGES%%man/mann/coroutine.tcllib.n.gz %%MANPAGES%%man/mann/counter.tcllib.n.gz %%MANPAGES%%man/mann/crc16.tcllib.n.gz %%MANPAGES%%man/mann/crc32.tcllib.n.gz %%MANPAGES%%man/mann/cron.tcllib.n.gz %%MANPAGES%%man/mann/csv.tcllib.n.gz %%MANPAGES%%man/mann/cvs.tcllib.n.gz %%MANPAGES%%man/mann/dacceptor.tcllib.n.gz %%MANPAGES%%man/mann/ddest.tcllib.n.gz %%MANPAGES%%man/mann/debug.tcllib.n.gz %%MANPAGES%%man/mann/debug_caller.tcllib.n.gz %%MANPAGES%%man/mann/debug_heartbeat.tcllib.n.gz %%MANPAGES%%man/mann/debug_timestamp.tcllib.n.gz %%MANPAGES%%man/mann/decimal.tcllib.n.gz %%MANPAGES%%man/mann/decode.tcllib.n.gz %%MANPAGES%%man/mann/defer.tcllib.n.gz %%MANPAGES%%man/mann/deleg_method.tcllib.n.gz %%MANPAGES%%man/mann/deleg_proc.tcllib.n.gz %%MANPAGES%%man/mann/des.tcllib.n.gz %%MANPAGES%%man/mann/dexec.tcllib.n.gz %%MANPAGES%%man/mann/dicttool.tcllib.n.gz %%MANPAGES%%man/mann/disjointset.tcllib.n.gz %%MANPAGES%%man/mann/dns.tcllib.n.gz %%MANPAGES%%man/mann/docidx.tcllib.n.gz %%MANPAGES%%man/mann/docidx_intro.tcllib.n.gz %%MANPAGES%%man/mann/docidx_lang_cmdref.tcllib.n.gz %%MANPAGES%%man/mann/docidx_lang_faq.tcllib.n.gz %%MANPAGES%%man/mann/docidx_lang_intro.tcllib.n.gz %%MANPAGES%%man/mann/docidx_lang_syntax.tcllib.n.gz %%MANPAGES%%man/mann/docidx_plugin_apiref.tcllib.n.gz %%MANPAGES%%man/mann/docstrip.tcllib.n.gz %%MANPAGES%%man/mann/docstrip_util.tcllib.n.gz %%MANPAGES%%man/mann/doctoc.tcllib.n.gz %%MANPAGES%%man/mann/doctoc_intro.tcllib.n.gz %%MANPAGES%%man/mann/doctoc_lang_cmdref.tcllib.n.gz %%MANPAGES%%man/mann/doctoc_lang_faq.tcllib.n.gz %%MANPAGES%%man/mann/doctoc_lang_intro.tcllib.n.gz %%MANPAGES%%man/mann/doctoc_lang_syntax.tcllib.n.gz %%MANPAGES%%man/mann/doctoc_plugin_apiref.tcllib.n.gz %%MANPAGES%%man/mann/doctools.tcllib.n.gz %%MANPAGES%%man/mann/doctools_intro.tcllib.n.gz %%MANPAGES%%man/mann/doctools_lang_cmdref.tcllib.n.gz %%MANPAGES%%man/mann/doctools_lang_faq.tcllib.n.gz %%MANPAGES%%man/mann/doctools_lang_intro.tcllib.n.gz %%MANPAGES%%man/mann/doctools_lang_syntax.tcllib.n.gz %%MANPAGES%%man/mann/doctools_plugin_apiref.tcllib.n.gz %%MANPAGES%%man/mann/dsource.tcllib.n.gz %%MANPAGES%%man/mann/dtplite.tcllib.n.gz %%MANPAGES%%man/mann/ean13.tcllib.n.gz %%MANPAGES%%man/mann/encode.tcllib.n.gz %%MANPAGES%%man/mann/events.tcllib.n.gz %%MANPAGES%%man/mann/exact.tcllib.n.gz %%MANPAGES%%man/mann/expander.tcllib.n.gz %%MANPAGES%%man/mann/export_docidx.tcllib.n.gz %%MANPAGES%%man/mann/export_doctoc.tcllib.n.gz %%MANPAGES%%man/mann/fa.tcllib.n.gz %%MANPAGES%%man/mann/facade.tcllib.n.gz %%MANPAGES%%man/mann/faop.tcllib.n.gz %%MANPAGES%%man/mann/fifo.tcllib.n.gz %%MANPAGES%%man/mann/fifo2.tcllib.n.gz %%MANPAGES%%man/mann/filetypes.tcllib.n.gz %%MANPAGES%%man/mann/fileutil.tcllib.n.gz %%MANPAGES%%man/mann/fourier.tcllib.n.gz %%MANPAGES%%man/mann/ftp.tcllib.n.gz %%MANPAGES%%man/mann/ftp_geturl.tcllib.n.gz %%MANPAGES%%man/mann/ftpd.tcllib.n.gz %%MANPAGES%%man/mann/fuzzy.tcllib.n.gz %%MANPAGES%%man/mann/gasm.tcllib.n.gz %%MANPAGES%%man/mann/generator.tcllib.n.gz %%MANPAGES%%man/mann/gpx.tcllib.n.gz %%MANPAGES%%man/mann/graph.tcllib.n.gz %%MANPAGES%%man/mann/graph1.tcllib.n.gz %%MANPAGES%%man/mann/graphops.tcllib.n.gz %%MANPAGES%%man/mann/gtoken.tcllib.n.gz %%MANPAGES%%man/mann/halfpipe.tcllib.n.gz %%MANPAGES%%man/mann/hex.tcllib.n.gz %%MANPAGES%%man/mann/hook.tcllib.n.gz %%MANPAGES%%man/mann/html.tcllib.n.gz %%MANPAGES%%man/mann/html_cssdefaults.tcllib.n.gz %%MANPAGES%%man/mann/htmlparse.tcllib.n.gz %%MANPAGES%%man/mann/httpd.tcllib.n.gz %%MANPAGES%%man/mann/huddle.tcllib.n.gz %%MANPAGES%%man/mann/iban.tcllib.n.gz %%MANPAGES%%man/mann/ident.tcllib.n.gz %%MANPAGES%%man/mann/identity.tcllib.n.gz %%MANPAGES%%man/mann/idx_container.tcllib.n.gz %%MANPAGES%%man/mann/idx_export.tcllib.n.gz %%MANPAGES%%man/mann/idx_export_html.tcllib.n.gz %%MANPAGES%%man/mann/idx_export_json.tcllib.n.gz %%MANPAGES%%man/mann/idx_export_nroff.tcllib.n.gz %%MANPAGES%%man/mann/idx_export_text.tcllib.n.gz %%MANPAGES%%man/mann/idx_export_wiki.tcllib.n.gz %%MANPAGES%%man/mann/idx_import.tcllib.n.gz %%MANPAGES%%man/mann/idx_import_json.tcllib.n.gz %%MANPAGES%%man/mann/idx_introduction.tcllib.n.gz %%MANPAGES%%man/mann/idx_msgcat_c.tcllib.n.gz %%MANPAGES%%man/mann/idx_msgcat_de.tcllib.n.gz %%MANPAGES%%man/mann/idx_msgcat_en.tcllib.n.gz %%MANPAGES%%man/mann/idx_msgcat_fr.tcllib.n.gz %%MANPAGES%%man/mann/idx_parse.tcllib.n.gz %%MANPAGES%%man/mann/idx_structure.tcllib.n.gz %%MANPAGES%%man/mann/imap4.tcllib.n.gz %%MANPAGES%%man/mann/imei.tcllib.n.gz %%MANPAGES%%man/mann/imenu.tcllib.n.gz %%MANPAGES%%man/mann/import_docidx.tcllib.n.gz %%MANPAGES%%man/mann/import_doctoc.tcllib.n.gz %%MANPAGES%%man/mann/ini.tcllib.n.gz %%MANPAGES%%man/mann/interp.tcllib.n.gz %%MANPAGES%%man/mann/interpolate.tcllib.n.gz %%MANPAGES%%man/mann/ip.tcllib.n.gz %%MANPAGES%%man/mann/ipager.tcllib.n.gz %%MANPAGES%%man/mann/irc.tcllib.n.gz %%MANPAGES%%man/mann/isbn.tcllib.n.gz %%MANPAGES%%man/mann/iso8601.tcllib.n.gz %%MANPAGES%%man/mann/javascript.tcllib.n.gz %%MANPAGES%%man/mann/jpeg.tcllib.n.gz %%MANPAGES%%man/mann/json.tcllib.n.gz %%MANPAGES%%man/mann/json_write.tcllib.n.gz %%MANPAGES%%man/mann/lambda.tcllib.n.gz %%MANPAGES%%man/mann/lazyset.tcllib.n.gz %%MANPAGES%%man/mann/ldap.tcllib.n.gz %%MANPAGES%%man/mann/ldapx.tcllib.n.gz %%MANPAGES%%man/mann/limitsize.tcllib.n.gz %%MANPAGES%%man/mann/linalg.tcllib.n.gz %%MANPAGES%%man/mann/log.tcllib.n.gz %%MANPAGES%%man/mann/logger.tcllib.n.gz %%MANPAGES%%man/mann/loggerAppender.tcllib.n.gz %%MANPAGES%%man/mann/loggerUtils.tcllib.n.gz %%MANPAGES%%man/mann/luhn.tcllib.n.gz %%MANPAGES%%man/mann/luhn5.tcllib.n.gz %%MANPAGES%%man/mann/machineparameters.tcllib.n.gz %%MANPAGES%%man/mann/map_geocode_nominatim.tcllib.n.gz %%MANPAGES%%man/mann/map_slippy.tcllib.n.gz %%MANPAGES%%man/mann/map_slippy_cache.tcllib.n.gz %%MANPAGES%%man/mann/map_slippy_fetcher.tcllib.n.gz %%MANPAGES%%man/mann/mapproj.tcllib.n.gz %%MANPAGES%%man/mann/markdown.tcllib.n.gz %%MANPAGES%%man/mann/math.tcllib.n.gz %%MANPAGES%%man/mann/math_geometry.tcllib.n.gz %%MANPAGES%%man/mann/matrix.tcllib.n.gz %%MANPAGES%%man/mann/matrix1.tcllib.n.gz %%MANPAGES%%man/mann/md4.tcllib.n.gz %%MANPAGES%%man/mann/md5.tcllib.n.gz %%MANPAGES%%man/mann/md5crypt.tcllib.n.gz %%MANPAGES%%man/mann/me_ast.tcllib.n.gz %%MANPAGES%%man/mann/me_cpu.tcllib.n.gz %%MANPAGES%%man/mann/me_cpucore.tcllib.n.gz %%MANPAGES%%man/mann/me_intro.tcllib.n.gz %%MANPAGES%%man/mann/me_tcl.tcllib.n.gz %%MANPAGES%%man/mann/me_util.tcllib.n.gz %%MANPAGES%%man/mann/me_vm.tcllib.n.gz %%MANPAGES%%man/mann/memchan.tcllib.n.gz %%MANPAGES%%man/mann/meta.tcllib.n.gz %%MANPAGES%%man/mann/mime.tcllib.n.gz %%MANPAGES%%man/mann/mkzip.tcllib.n.gz %%MANPAGES%%man/mann/montecarlo.tcllib.n.gz %%MANPAGES%%man/mann/mpexpand.tcllib.n.gz %%MANPAGES%%man/mann/msgcat.tcllib.n.gz %%MANPAGES%%man/mann/multi.tcllib.n.gz %%MANPAGES%%man/mann/multiop.tcllib.n.gz %%MANPAGES%%man/mann/multiplexer.tcllib.n.gz %%MANPAGES%%man/mann/namespacex.tcllib.n.gz %%MANPAGES%%man/mann/ncgi.tcllib.n.gz %%MANPAGES%%man/mann/nettool.tcllib.n.gz %%MANPAGES%%man/mann/nmea.tcllib.n.gz %%MANPAGES%%man/mann/nns.tcllib.n.gz %%MANPAGES%%man/mann/nns_auto.tcllib.n.gz %%MANPAGES%%man/mann/nns_client.tcllib.n.gz %%MANPAGES%%man/mann/nns_common.tcllib.n.gz %%MANPAGES%%man/mann/nns_intro.tcllib.n.gz %%MANPAGES%%man/mann/nns_protocol.tcllib.n.gz %%MANPAGES%%man/mann/nns_server.tcllib.n.gz %%MANPAGES%%man/mann/nnsd.tcllib.n.gz %%MANPAGES%%man/mann/nnslog.tcllib.n.gz %%MANPAGES%%man/mann/nntp.tcllib.n.gz %%MANPAGES%%man/mann/nroff_manmacros.tcllib.n.gz %%MANPAGES%%man/mann/ntlm.tcllib.n.gz %%MANPAGES%%man/mann/ntp_time.tcllib.n.gz %%MANPAGES%%man/mann/null.tcllib.n.gz %%MANPAGES%%man/mann/nullzero.tcllib.n.gz %%MANPAGES%%man/mann/numtheory.tcllib.n.gz %%MANPAGES%%man/mann/oauth.tcllib.n.gz %%MANPAGES%%man/mann/observe.tcllib.n.gz %%MANPAGES%%man/mann/oometa.tcllib.n.gz %%MANPAGES%%man/mann/ooutil.tcllib.n.gz %%MANPAGES%%man/mann/optimize.tcllib.n.gz %%MANPAGES%%man/mann/otp.tcllib.n.gz %%MANPAGES%%man/mann/page.tcllib.n.gz %%MANPAGES%%man/mann/page_intro.tcllib.n.gz %%MANPAGES%%man/mann/page_pluginmgr.tcllib.n.gz %%MANPAGES%%man/mann/page_util_flow.tcllib.n.gz %%MANPAGES%%man/mann/page_util_norm_lemon.tcllib.n.gz %%MANPAGES%%man/mann/page_util_norm_peg.tcllib.n.gz %%MANPAGES%%man/mann/page_util_peg.tcllib.n.gz %%MANPAGES%%man/mann/page_util_quote.tcllib.n.gz %%MANPAGES%%man/mann/patch.tcllib.n.gz %%MANPAGES%%man/mann/paths.tcllib.n.gz %%MANPAGES%%man/mann/pca.tcllib.n.gz %%MANPAGES%%man/mann/peg.tcllib.n.gz %%MANPAGES%%man/mann/peg_interp.tcllib.n.gz %%MANPAGES%%man/mann/picoirc.tcllib.n.gz %%MANPAGES%%man/mann/pkg_dtplite.tcllib.n.gz %%MANPAGES%%man/mann/pki.tcllib.n.gz %%MANPAGES%%man/mann/pluginmgr.tcllib.n.gz %%MANPAGES%%man/mann/png.tcllib.n.gz %%MANPAGES%%man/mann/polynomials.tcllib.n.gz %%MANPAGES%%man/mann/pool.tcllib.n.gz %%MANPAGES%%man/mann/pop3.tcllib.n.gz %%MANPAGES%%man/mann/pop3d.tcllib.n.gz %%MANPAGES%%man/mann/pop3d_dbox.tcllib.n.gz %%MANPAGES%%man/mann/pop3d_udb.tcllib.n.gz %%MANPAGES%%man/mann/practcl.tcllib.n.gz %%MANPAGES%%man/mann/prioqueue.tcllib.n.gz %%MANPAGES%%man/mann/processman.tcllib.n.gz %%MANPAGES%%man/mann/profiler.tcllib.n.gz %%MANPAGES%%man/mann/pt.tcllib.n.gz %%MANPAGES%%man/mann/pt_astree.tcllib.n.gz %%MANPAGES%%man/mann/pt_cparam_config_critcl.tcllib.n.gz %%MANPAGES%%man/mann/pt_cparam_config_tea.tcllib.n.gz %%MANPAGES%%man/mann/pt_from_api.tcllib.n.gz %%MANPAGES%%man/mann/pt_introduction.tcllib.n.gz %%MANPAGES%%man/mann/pt_json_language.tcllib.n.gz %%MANPAGES%%man/mann/pt_param.tcllib.n.gz %%MANPAGES%%man/mann/pt_parse_peg.tcllib.n.gz %%MANPAGES%%man/mann/pt_parser_api.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_container.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_container_peg.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_export.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_export_container.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_export_json.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_export_peg.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_from_container.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_from_json.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_from_peg.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_import.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_import_container.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_import_json.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_import_peg.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_interp.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_introduction.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_language.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_op.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_to_container.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_to_cparam.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_to_json.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_to_param.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_to_peg.tcllib.n.gz %%MANPAGES%%man/mann/pt_peg_to_tclparam.tcllib.n.gz %%MANPAGES%%man/mann/pt_pegrammar.tcllib.n.gz %%MANPAGES%%man/mann/pt_pexpr_op.tcllib.n.gz %%MANPAGES%%man/mann/pt_pexpression.tcllib.n.gz %%MANPAGES%%man/mann/pt_pgen.tcllib.n.gz %%MANPAGES%%man/mann/pt_rdengine.tcllib.n.gz %%MANPAGES%%man/mann/pt_tclparam_config_nx.tcllib.n.gz %%MANPAGES%%man/mann/pt_tclparam_config_snit.tcllib.n.gz %%MANPAGES%%man/mann/pt_tclparam_config_tcloo.tcllib.n.gz %%MANPAGES%%man/mann/pt_to_api.tcllib.n.gz %%MANPAGES%%man/mann/pt_util.tcllib.n.gz %%MANPAGES%%man/mann/qcomplex.tcllib.n.gz %%MANPAGES%%man/mann/quasirandom.tcllib.n.gz %%MANPAGES%%man/mann/queue.tcllib.n.gz %%MANPAGES%%man/mann/random.tcllib.n.gz %%MANPAGES%%man/mann/randseed.tcllib.n.gz %%MANPAGES%%man/mann/rational_funcs.tcllib.n.gz %%MANPAGES%%man/mann/rc4.tcllib.n.gz %%MANPAGES%%man/mann/rcs.tcllib.n.gz %%MANPAGES%%man/mann/receive.tcllib.n.gz %%MANPAGES%%man/mann/receiver.tcllib.n.gz %%MANPAGES%%man/mann/record.tcllib.n.gz %%MANPAGES%%man/mann/repeat.tcllib.n.gz %%MANPAGES%%man/mann/report.tcllib.n.gz %%MANPAGES%%man/mann/rest.tcllib.n.gz %%MANPAGES%%man/mann/rfc2822.tcllib.n.gz %%MANPAGES%%man/mann/ripemd128.tcllib.n.gz %%MANPAGES%%man/mann/ripemd160.tcllib.n.gz %%MANPAGES%%man/mann/roman.tcllib.n.gz %%MANPAGES%%man/mann/romberg.tcllib.n.gz %%MANPAGES%%man/mann/rot.tcllib.n.gz %%MANPAGES%%man/mann/rtcore.tcllib.n.gz %%MANPAGES%%man/mann/sasl.tcllib.n.gz %%MANPAGES%%man/mann/scram.tcllib.n.gz %%MANPAGES%%man/mann/sha1.tcllib.n.gz %%MANPAGES%%man/mann/sha256.tcllib.n.gz %%MANPAGES%%man/mann/simulation_random.tcllib.n.gz %%MANPAGES%%man/mann/skiplist.tcllib.n.gz %%MANPAGES%%man/mann/smtp.tcllib.n.gz %%MANPAGES%%man/mann/smtpd.tcllib.n.gz %%MANPAGES%%man/mann/snit.tcllib.n.gz %%MANPAGES%%man/mann/snitfaq.tcllib.n.gz %%MANPAGES%%man/mann/soundex.tcllib.n.gz %%MANPAGES%%man/mann/spacer.tcllib.n.gz %%MANPAGES%%man/mann/special.tcllib.n.gz %%MANPAGES%%man/mann/stack.tcllib.n.gz %%MANPAGES%%man/mann/statistics.tcllib.n.gz %%MANPAGES%%man/mann/std.tcllib.n.gz %%MANPAGES%%man/mann/stooop.tcllib.n.gz %%MANPAGES%%man/mann/string.tcllib.n.gz %%MANPAGES%%man/mann/stringprep.tcllib.n.gz %%MANPAGES%%man/mann/stringprep_data.tcllib.n.gz %%MANPAGES%%man/mann/struct_list.tcllib.n.gz %%MANPAGES%%man/mann/struct_map.tcllib.n.gz %%MANPAGES%%man/mann/struct_set.tcllib.n.gz %%MANPAGES%%man/mann/struct_tree.tcllib.n.gz %%MANPAGES%%man/mann/struct_tree1.tcllib.n.gz %%MANPAGES%%man/mann/sum.tcllib.n.gz %%MANPAGES%%man/mann/switched.tcllib.n.gz %%MANPAGES%%man/mann/symdiff.tcllib.n.gz %%MANPAGES%%man/mann/tabify.tcllib.n.gz %%MANPAGES%%man/mann/tar.tcllib.n.gz %%MANPAGES%%man/mann/tcl_parse.tcllib.n.gz %%MANPAGES%%man/mann/tcldes.tcllib.n.gz %%MANPAGES%%man/mann/tcldesjr.tcllib.n.gz %%MANPAGES%%man/mann/tcldocstrip.tcllib.n.gz %%MANPAGES%%man/mann/tepam_argument_dialogbox.tcllib.n.gz %%MANPAGES%%man/mann/tepam_doc_gen.tcllib.n.gz %%MANPAGES%%man/mann/tepam_introduction.tcllib.n.gz %%MANPAGES%%man/mann/tepam_procedure.tcllib.n.gz %%MANPAGES%%man/mann/term.tcllib.n.gz %%MANPAGES%%man/mann/term_bind.tcllib.n.gz %%MANPAGES%%man/mann/term_send.tcllib.n.gz %%MANPAGES%%man/mann/textutil.tcllib.n.gz %%MANPAGES%%man/mann/textutil_split.tcllib.n.gz %%MANPAGES%%man/mann/textutil_string.tcllib.n.gz %%MANPAGES%%man/mann/textwindow.tcllib.n.gz %%MANPAGES%%man/mann/throw.tcllib.n.gz %%MANPAGES%%man/mann/tie.tcllib.n.gz %%MANPAGES%%man/mann/tie_std.tcllib.n.gz %%MANPAGES%%man/mann/tiff.tcllib.n.gz %%MANPAGES%%man/mann/toc_container.tcllib.n.gz %%MANPAGES%%man/mann/toc_export.tcllib.n.gz %%MANPAGES%%man/mann/toc_export_html.tcllib.n.gz %%MANPAGES%%man/mann/toc_export_json.tcllib.n.gz %%MANPAGES%%man/mann/toc_export_nroff.tcllib.n.gz %%MANPAGES%%man/mann/toc_export_text.tcllib.n.gz %%MANPAGES%%man/mann/toc_export_wiki.tcllib.n.gz %%MANPAGES%%man/mann/toc_import.tcllib.n.gz %%MANPAGES%%man/mann/toc_import_json.tcllib.n.gz %%MANPAGES%%man/mann/toc_introduction.tcllib.n.gz %%MANPAGES%%man/mann/toc_msgcat_c.tcllib.n.gz %%MANPAGES%%man/mann/toc_msgcat_de.tcllib.n.gz %%MANPAGES%%man/mann/toc_msgcat_en.tcllib.n.gz %%MANPAGES%%man/mann/toc_msgcat_fr.tcllib.n.gz %%MANPAGES%%man/mann/toc_parse.tcllib.n.gz %%MANPAGES%%man/mann/toc_structure.tcllib.n.gz %%MANPAGES%%man/mann/token.tcllib.n.gz %%MANPAGES%%man/mann/token_shell.tcllib.n.gz %%MANPAGES%%man/mann/tool.tcllib.n.gz %%MANPAGES%%man/mann/tool_dict_ensemble.tcllib.n.gz %%MANPAGES%%man/mann/tqueue.tcllib.n.gz %%MANPAGES%%man/mann/transformcore.tcllib.n.gz %%MANPAGES%%man/mann/transmitter.tcllib.n.gz %%MANPAGES%%man/mann/traverse.tcllib.n.gz %%MANPAGES%%man/mann/treeql.tcllib.n.gz %%MANPAGES%%man/mann/trig.tcllib.n.gz %%MANPAGES%%man/mann/trim.tcllib.n.gz %%MANPAGES%%man/mann/try.tcllib.n.gz %%MANPAGES%%man/mann/udpcluster.tcllib.n.gz %%MANPAGES%%man/mann/uevent.tcllib.n.gz %%MANPAGES%%man/mann/uevent_onidle.tcllib.n.gz %%MANPAGES%%man/mann/unicode.tcllib.n.gz %%MANPAGES%%man/mann/unicode_data.tcllib.n.gz %%MANPAGES%%man/mann/units.tcllib.n.gz %%MANPAGES%%man/mann/uri.tcllib.n.gz %%MANPAGES%%man/mann/urn-scheme.tcllib.n.gz %%MANPAGES%%man/mann/usnpi.tcllib.n.gz %%MANPAGES%%man/mann/uuencode.tcllib.n.gz %%MANPAGES%%man/mann/uuid.tcllib.n.gz %%MANPAGES%%man/mann/valtype_common.tcllib.n.gz %%MANPAGES%%man/mann/variable.tcllib.n.gz %%MANPAGES%%man/mann/verhoeff.tcllib.n.gz %%MANPAGES%%man/mann/vt_base64.tcllib.n.gz %%MANPAGES%%man/mann/vt_counter.tcllib.n.gz %%MANPAGES%%man/mann/vt_crc32.tcllib.n.gz %%MANPAGES%%man/mann/vt_otp.tcllib.n.gz %%MANPAGES%%man/mann/websocket.tcllib.n.gz %%MANPAGES%%man/mann/wip.tcllib.n.gz %%MANPAGES%%man/mann/xsxp.tcllib.n.gz %%MANPAGES%%man/mann/yaml.tcllib.n.gz %%MANPAGES%%man/mann/yencode.tcllib.n.gz %%MANPAGES%%man/mann/zero.tcllib.n.gz %%MANPAGES%%man/mann/zlib.tcllib.n.gz