ag/cpython-bin-deps
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: ag:tcltk-8.6.10.0
Branches Tags
ag:master ag:tcltk ag:openssl-bin ag:tcltk-8.6.10.0 ag:nuget ag:libffi ag:tcltk-8.6.9.0 ag:tcltk-8.6.8.0 ag:redist ag:wix ag:openssl-bin-1.0.2k ag:tcltk-8.6.6.0 ag:htmlhelp ag:gpg ag:binutils ag:nasm
ag:tcltk-8.6.12.0 ag:tcltk-8.6.11.1 ag:libffi-3.4.2 ag:openssl-bin-1.1.1l ag:openssl-bin-1.1.1k-1 ag:openssl-bin-1.1.1k ag:tcltk-8.6.11.0 ag:openssl-bin-1.1.1i ag:openssl-bin-1.1.1g ag:openssl-bin-1.1.1f ag:libffi-3.3.0 ag:openssl-bin-1.1.1d ag:openssl-bin-1.1.1c ag:1.1.1c ag:openssl-bin-1.1.1b ag:openssl-bin-1.1.1a ag:openssl-bin-1.1.0j ag:openssl-bin-1.1.0i ag:openssl-bin-1.1.0h ag:redist-1 ag:openssl-bin-1.1.0f ag:nasm-2.11.06
..
compare: ag:tcltk-8.6.11.1
Branches Tags
ag:tcltk ag:openssl-bin ag:tcltk-8.6.10.0 ag:nuget ag:libffi ag:tcltk-8.6.9.0 ag:tcltk-8.6.8.0 ag:redist ag:wix ag:openssl-bin-1.0.2k ag:tcltk-8.6.6.0 ag:master ag:htmlhelp ag:gpg ag:binutils ag:nasm
ag:tcltk-8.6.12.0 ag:tcltk-8.6.11.1 ag:libffi-3.4.2 ag:openssl-bin-1.1.1l ag:openssl-bin-1.1.1k-1 ag:openssl-bin-1.1.1k ag:tcltk-8.6.11.0 ag:openssl-bin-1.1.1i ag:openssl-bin-1.1.1g ag:openssl-bin-1.1.1f ag:libffi-3.3.0 ag:openssl-bin-1.1.1d ag:openssl-bin-1.1.1c ag:1.1.1c ag:openssl-bin-1.1.1b ag:openssl-bin-1.1.1a ag:openssl-bin-1.1.0j ag:openssl-bin-1.1.0i ag:openssl-bin-1.1.0h ag:redist-1 ag:openssl-bin-1.1.0f ag:nasm-2.11.06

2 Commits
tcltk-8.6. ... tcltk-8.6.

Author SHA1 Message Date
Steve Dower
c5c7ca7f25 Fix imported build of Tcl/Tk 8.6.11 (previous version was actually 8.6.10) 2021-11-04 00:36:00 +00:00
Steve Dower
8986c8988f Import build of Tcl/Tk 8.6.11 2021-03-30 01:05:18 +01:00
288 changed files with 20280 additions and 4662 deletions
Expand all files Collapse all files

BIN
amd64/bin/tcl86t.dll
View File

Binary file not shown.

BIN
amd64/bin/tclsh86t.exe
View File

Binary file not shown.

BIN
amd64/bin/tk86t.dll
View File

Binary file not shown.

BIN
amd64/bin/wish86t.exe
View File

Binary file not shown.

15
amd64/include/X11/Xlib.h
View File

@@ -331,7 +331,7 @@ typedef struct _XImage {
unsigned long blue_mask;
XPointer obdata; /* hook for the object routines to hang on */
#if defined(MAC_OSX_TK)
int pixelpower; /* n such that pixels are 2^n x 2^n blocks*/
int pixelpower; /* No longer used. */
#endif
struct funcs { /* image manipulation routines */
struct _XImage *(*create_image)();
@@ -541,7 +541,7 @@ typedef struct {
Bool send_event; /* true if this came from a SendEvent request */
Display *display; /* Display the event was read from */
Window window; /* "event" window it is reported relative to */
Window root; /* root window that the event occured on */
Window root; /* root window that the event occurred on */
Window subwindow; /* child window */
Time time; /* milliseconds */
int x, y; /* pointer x, y coordinates in event window */
@@ -549,9 +549,6 @@ typedef struct {
unsigned int state; /* key or button mask */
unsigned int keycode; /* detail */
Bool same_screen; /* same screen flag */
char trans_chars[XMaxTransChars];
/* translated characters */
unsigned char nbytes;
} XKeyEvent;
typedef XKeyEvent XKeyPressedEvent;
typedef XKeyEvent XKeyReleasedEvent;
@@ -562,7 +559,7 @@ typedef struct {
Bool send_event; /* true if this came from a SendEvent request */
Display *display; /* Display the event was read from */
Window window; /* "event" window it is reported relative to */
Window root; /* root window that the event occured on */
Window root; /* root window that the event occurred on */
Window subwindow; /* child window */
Time time; /* milliseconds */
int x, y; /* pointer x, y coordinates in event window */
@@ -580,7 +577,7 @@ typedef struct {
Bool send_event; /* true if this came from a SendEvent request */
Display *display; /* Display the event was read from */
Window window; /* "event" window reported relative to */
Window root; /* root window that the event occured on */
Window root; /* root window that the event occurred on */
Window subwindow; /* child window */
Time time; /* milliseconds */
int x, y; /* pointer x, y coordinates in event window */
@@ -597,7 +594,7 @@ typedef struct {
Bool send_event; /* true if this came from a SendEvent request */
Display *display; /* Display the event was read from */
Window window; /* "event" window reported relative to */
Window root; /* root window that the event occured on */
Window root; /* root window that the event occurred on */
Window subwindow; /* child window */
Time time; /* milliseconds */
int x, y; /* pointer x, y coordinates in event window */
@@ -959,7 +956,7 @@ typedef union _XEvent {
XMappingEvent xmapping;
XErrorEvent xerror;
XKeymapEvent xkeymap;
long pad[24];
XID pad[24];
} XEvent;
#endif

2
amd64/include/X11/keysymdef.h
View File

@@ -30,7 +30,7 @@ SOFTWARE.
/*
* TTY Functions, cleverly chosen to map to ascii, for convenience of
* programming, but could have been arbitrary (at the cost of lookup
* tables in client code.
* tables in client code).
*/
#define XK_BackSpace 0xFF08 /* back space, back char */

8
amd64/include/tcl.h
View File

@@ -51,10 +51,10 @@ extern "C" {
#define TCL_MAJOR_VERSION 8
#define TCL_MINOR_VERSION 6
#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE
#define TCL_RELEASE_SERIAL 10
#define TCL_RELEASE_SERIAL 11
#define TCL_VERSION "8.6"
#define TCL_PATCH_LEVEL "8.6.10"
#define TCL_PATCH_LEVEL "8.6.11"
/*
*----------------------------------------------------------------------------
@@ -384,7 +384,7 @@ typedef long LONG;
*/
#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG)
# if defined(_WIN32)
# if defined(_WIN32) && (!defined(__USE_MINGW_ANSI_STDIO) || !__USE_MINGW_ANSI_STDIO)
# define TCL_WIDE_INT_TYPE __int64
# ifdef __BORLANDC__
# define TCL_LL_MODIFIER "L"
@@ -2517,7 +2517,7 @@ EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr);
# define Tcl_DecrRefCount(objPtr) \
do { \
Tcl_Obj *_objPtr = (objPtr); \
if ((_objPtr)->refCount-- <= 1) { \
if (_objPtr->refCount-- <= 1) { \
TclFreeObj(_objPtr); \
} \
} while(0)

53
amd64/include/tclDecls.h
View File

@@ -279,13 +279,13 @@ EXTERN int Tcl_ConvertElement(const char *src, char *dst,
EXTERN int Tcl_ConvertCountedElement(const char *src,
int length, char *dst, int flags);
/* 86 */
EXTERN int Tcl_CreateAlias(Tcl_Interp *slave,
const char *slaveCmd, Tcl_Interp *target,
EXTERN int Tcl_CreateAlias(Tcl_Interp *childInterp,
const char *childCmd, Tcl_Interp *target,
const char *targetCmd, int argc,
CONST84 char *const *argv);
/* 87 */
EXTERN int Tcl_CreateAliasObj(Tcl_Interp *slave,
const char *slaveCmd, Tcl_Interp *target,
EXTERN int Tcl_CreateAliasObj(Tcl_Interp *childInterp,
const char *childCmd, Tcl_Interp *target,
const char *targetCmd, int objc,
Tcl_Obj *const objv[]);
/* 88 */
@@ -323,8 +323,8 @@ EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp,
ClientData clientData,
Tcl_CmdDeleteProc *deleteProc);
/* 97 */
EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp,
const char *slaveName, int isSafe);
EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, const char *name,
int isSafe);
/* 98 */
EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds,
Tcl_TimerProc *proc, ClientData clientData);
@@ -458,13 +458,13 @@ EXTERN int Tcl_Flush(Tcl_Channel chan);
EXTERN void Tcl_FreeResult(Tcl_Interp *interp);
/* 148 */
EXTERN int Tcl_GetAlias(Tcl_Interp *interp,
const char *slaveCmd,
const char *childCmd,
Tcl_Interp **targetInterpPtr,
CONST84 char **targetCmdPtr, int *argcPtr,
CONST84 char ***argvPtr);
/* 149 */
EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp,
const char *slaveCmd,
const char *childCmd,
Tcl_Interp **targetInterpPtr,
CONST84 char **targetCmdPtr, int *objcPtr,
Tcl_Obj ***objv);
@@ -503,8 +503,8 @@ EXTERN int Tcl_GetErrno(void);
/* 162 */
EXTERN CONST84_RETURN char * Tcl_GetHostName(void);
/* 163 */
EXTERN int Tcl_GetInterpPath(Tcl_Interp *askInterp,
Tcl_Interp *slaveInterp);
EXTERN int Tcl_GetInterpPath(Tcl_Interp *interp,
Tcl_Interp *childInterp);
/* 164 */
EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp);
/* 165 */
@@ -532,8 +532,7 @@ EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr);
/* 171 */
EXTERN int Tcl_GetServiceMode(void);
/* 172 */
EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp,
const char *slaveName);
EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, const char *name);
/* 173 */
EXTERN Tcl_Channel Tcl_GetStdChannel(int type);
/* 174 */
@@ -1749,7 +1748,7 @@ EXTERN int Tcl_GetErrorLine(Tcl_Interp *interp);
EXTERN void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum);
/* 607 */
EXTERN void Tcl_TransferResult(Tcl_Interp *sourceInterp,
int result, Tcl_Interp *targetInterp);
int code, Tcl_Interp *targetInterp);
/* 608 */
EXTERN int Tcl_InterpActive(Tcl_Interp *interp);
/* 609 */
@@ -1833,7 +1832,8 @@ EXTERN void Tcl_ZlibStreamSetCompressionDictionary(
/* Slot 645 is reserved */
/* Slot 646 is reserved */
/* Slot 647 is reserved */
/* 648 */
/* Slot 648 is reserved */
/* 649 */
EXTERN void TclUnusedStubEntry(void);
typedef struct {
@@ -1948,8 +1948,8 @@ typedef struct TclStubs {
char * (*tcl_Concat) (int argc, CONST84 char *const *argv); /* 83 */
int (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 84 */
int (*tcl_ConvertCountedElement) (const char *src, int length, char *dst, int flags); /* 85 */
int (*tcl_CreateAlias) (Tcl_Interp *slave, const char *slaveCmd, Tcl_Interp *target, const char *targetCmd, int argc, CONST84 char *const *argv); /* 86 */
int (*tcl_CreateAliasObj) (Tcl_Interp *slave, const char *slaveCmd, Tcl_Interp *target, const char *targetCmd, int objc, Tcl_Obj *const objv[]); /* 87 */
int (*tcl_CreateAlias) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, int argc, CONST84 char *const *argv); /* 86 */
int (*tcl_CreateAliasObj) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, int objc, Tcl_Obj *const objv[]); /* 87 */
Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const char *chanName, ClientData instanceData, int mask); /* 88 */
void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); /* 89 */
void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */
@@ -1959,7 +1959,7 @@ typedef struct TclStubs {
Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */
void (*tcl_CreateMathFunc) (Tcl_Interp *interp, const char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); /* 95 */
Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */
Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, const char *slaveName, int isSafe); /* 97 */
Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, const char *name, int isSafe); /* 97 */
Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); /* 98 */
Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); /* 99 */
void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); /* 100 */
@@ -2010,8 +2010,8 @@ typedef struct TclStubs {
Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */
int (*tcl_Flush) (Tcl_Channel chan); /* 146 */
void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */
int (*tcl_GetAlias) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */
int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */
int (*tcl_GetAlias) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */
int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */
ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */
Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName, int *modePtr); /* 151 */
int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */
@@ -2025,7 +2025,7 @@ typedef struct TclStubs {
CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */
int (*tcl_GetErrno) (void); /* 161 */
CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */
int (*tcl_GetInterpPath) (Tcl_Interp *askInterp, Tcl_Interp *slaveInterp); /* 163 */
int (*tcl_GetInterpPath) (Tcl_Interp *interp, Tcl_Interp *childInterp); /* 163 */
Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */
const char * (*tcl_GetNameOfExecutable) (void); /* 165 */
Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */
@@ -2042,7 +2042,7 @@ typedef struct TclStubs {
int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */
int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */
int (*tcl_GetServiceMode) (void); /* 171 */
Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, const char *slaveName); /* 172 */
Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, const char *name); /* 172 */
Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */
CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 174 */
CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 175 */
@@ -2477,7 +2477,7 @@ typedef struct TclStubs {
int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, int *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 604 */
int (*tcl_GetErrorLine) (Tcl_Interp *interp); /* 605 */
void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); /* 606 */
void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int result, Tcl_Interp *targetInterp); /* 607 */
void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int code, Tcl_Interp *targetInterp); /* 607 */
int (*tcl_InterpActive) (Tcl_Interp *interp); /* 608 */
void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 609 */
int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int level, Tcl_Obj *gzipHeaderDictObj); /* 610 */
@@ -2518,7 +2518,8 @@ typedef struct TclStubs {
void (*reserved645)(void);
void (*reserved646)(void);
void (*reserved647)(void);
void (*tclUnusedStubEntry) (void); /* 648 */
void (*reserved648)(void);
void (*tclUnusedStubEntry) (void); /* 649 */
} TclStubs;
extern const TclStubs *tclStubsPtr;
@@ -3828,8 +3829,9 @@ extern const TclStubs *tclStubsPtr;
/* Slot 645 is reserved */
/* Slot 646 is reserved */
/* Slot 647 is reserved */
/* Slot 648 is reserved */
#define TclUnusedStubEntry \
(tclStubsPtr->tclUnusedStubEntry) /* 648 */
(tclStubsPtr->tclUnusedStubEntry) /* 649 */
#endif /* defined(USE_TCL_STUBS) */
@@ -3971,5 +3973,8 @@ extern const TclStubs *tclStubsPtr;
#undef Tcl_GlobalEvalObj
#define Tcl_GlobalEvalObj(interp,objPtr) \
Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL)
#define Tcl_CreateChild Tcl_CreateSlave
#define Tcl_GetChild Tcl_GetSlave
#define Tcl_GetParent Tcl_GetMaster
#endif /* _TCLDECLS */

5
amd64/include/tclPlatDecls.h
View File

@@ -114,6 +114,11 @@ extern const TclPlatStubs *tclPlatStubsPtr;
/* !END!: Do not edit above this line. */
#ifdef MAC_OSX_TCL /* MACOSX */
#undef Tcl_MacOSXOpenBundleResources
#define Tcl_MacOSXOpenBundleResources(a,b,c,d,e) Tcl_MacOSXOpenVersionedBundleResources(a,b,NULL,c,d,e)
#endif
#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT

27
amd64/include/tclTomMathDecls.h
View File

@@ -72,6 +72,7 @@
#define mp_expt_d TclBN_mp_expt_d
#define mp_expt_d_ex TclBN_mp_expt_d_ex
#define mp_expt_u32 TclBN_mp_expt_d
#define mp_get_mag_ull TclBN_mp_get_mag_ull
#define mp_grow TclBN_mp_grow
#define mp_init TclBN_mp_init
#define mp_init_copy TclBN_mp_init_copy
@@ -93,6 +94,7 @@
#define mp_rshd TclBN_mp_rshd
#define mp_set TclBN_mp_set
#define mp_set_int(a,b) (TclBN_mp_set_int(a,(unsigned int)(b)),MP_OKAY)
#define mp_set_ll TclBN_mp_set_ll
#define mp_set_long(a,b) (TclBN_mp_set_int(a,b),MP_OKAY)
#define mp_set_ul(a,b) (void)TclBN_mp_set_int(a,b)
#define mp_set_ull TclBN_mp_set_ull
@@ -323,8 +325,10 @@ EXTERN mp_err TclBN_mp_expt_d_ex(const mp_int *a, mp_digit b,
mp_int *c, int fast);
/* 68 */
EXTERN void TclBN_mp_set_ull(mp_int *a, Tcl_WideUInt i);
/* Slot 69 is reserved */
/* Slot 70 is reserved */
/* 69 */
EXTERN Tcl_WideUInt TclBN_mp_get_mag_ull(const mp_int *a);
/* 70 */
EXTERN void TclBN_mp_set_ll(mp_int *a, Tcl_WideInt i);
/* Slot 71 is reserved */
/* Slot 72 is reserved */
/* 73 */
@@ -343,7 +347,9 @@ EXTERN mp_err TclBN_mp_signed_rsh(const mp_int *a, int b,
/* 78 */
EXTERN int TclBN_mp_to_ubin(const mp_int *a, unsigned char *buf,
size_t maxlen, size_t *written);
/* Slot 79 is reserved */
/* 79 */
EXTERN mp_err TclBN_mp_div_ld(const mp_int *a, Tcl_WideUInt b,
mp_int *q, Tcl_WideUInt *r);
/* 80 */
EXTERN int TclBN_mp_to_radix(const mp_int *a, char *str,
size_t maxlen, size_t *written, int radix);
@@ -421,8 +427,8 @@ typedef struct TclTomMathStubs {
int (*tclBNInitBignumFromWideUInt) (mp_int *bignum, Tcl_WideUInt initVal); /* 66 */
mp_err (*tclBN_mp_expt_d_ex) (const mp_int *a, mp_digit b, mp_int *c, int fast); /* 67 */
void (*tclBN_mp_set_ull) (mp_int *a, Tcl_WideUInt i); /* 68 */
void (*reserved69)(void);
void (*reserved70)(void);
Tcl_WideUInt (*tclBN_mp_get_mag_ull) (const mp_int *a); /* 69 */
void (*tclBN_mp_set_ll) (mp_int *a, Tcl_WideInt i); /* 70 */
void (*reserved71)(void);
void (*reserved72)(void);
mp_err (*tclBN_mp_tc_and) (const mp_int *a, const mp_int *b, mp_int *c); /* 73 */
@@ -431,7 +437,7 @@ typedef struct TclTomMathStubs {
mp_err (*tclBN_mp_signed_rsh) (const mp_int *a, int b, mp_int *c); /* 76 */
void (*reserved77)(void);
int (*tclBN_mp_to_ubin) (const mp_int *a, unsigned char *buf, size_t maxlen, size_t *written); /* 78 */
void (*reserved79)(void);
mp_err (*tclBN_mp_div_ld) (const mp_int *a, Tcl_WideUInt b, mp_int *q, Tcl_WideUInt *r); /* 79 */
int (*tclBN_mp_to_radix) (const mp_int *a, char *str, size_t maxlen, size_t *written, int radix); /* 80 */
} TclTomMathStubs;
@@ -585,8 +591,10 @@ extern const TclTomMathStubs *tclTomMathStubsPtr;
(tclTomMathStubsPtr->tclBN_mp_expt_d_ex) /* 67 */
#define TclBN_mp_set_ull \
(tclTomMathStubsPtr->tclBN_mp_set_ull) /* 68 */
/* Slot 69 is reserved */
/* Slot 70 is reserved */
#define TclBN_mp_get_mag_ull \
(tclTomMathStubsPtr->tclBN_mp_get_mag_ull) /* 69 */
#define TclBN_mp_set_ll \
(tclTomMathStubsPtr->tclBN_mp_set_ll) /* 70 */
/* Slot 71 is reserved */
/* Slot 72 is reserved */
#define TclBN_mp_tc_and \
@@ -600,7 +608,8 @@ extern const TclTomMathStubs *tclTomMathStubsPtr;
/* Slot 77 is reserved */
#define TclBN_mp_to_ubin \
(tclTomMathStubsPtr->tclBN_mp_to_ubin) /* 78 */
/* Slot 79 is reserved */
#define TclBN_mp_div_ld \
(tclTomMathStubsPtr->tclBN_mp_div_ld) /* 79 */
#define TclBN_mp_to_radix \
(tclTomMathStubsPtr->tclBN_mp_to_radix) /* 80 */

38
amd64/include/tk.h
View File

@@ -75,10 +75,10 @@ extern "C" {
#define TK_MAJOR_VERSION 8
#define TK_MINOR_VERSION 6
#define TK_RELEASE_LEVEL TCL_FINAL_RELEASE
#define TK_RELEASE_SERIAL 10
#define TK_RELEASE_SERIAL 11
#define TK_VERSION "8.6"
#define TK_PATCH_LEVEL "8.6.10"
#define TK_PATCH_LEVEL "8.6.11"
/*
* A special definition used to allow this header file to be included from
@@ -122,6 +122,7 @@ extern "C" {
* Dummy types that are used by clients:
*/
#define Tk_ImageModel Tk_ImageMaster
typedef struct Tk_BindingTable_ *Tk_BindingTable;
typedef struct Tk_Canvas_ *Tk_Canvas;
typedef struct Tk_Cursor_ *Tk_Cursor;
@@ -614,21 +615,22 @@ typedef struct Tk_ClassProcs {
* the geometry manager to carry out certain functions.
*/
#define Tk_GeomLostContentProc Tk_GeomLostSlaveProc
typedef void (Tk_GeomRequestProc) (ClientData clientData, Tk_Window tkwin);
typedef void (Tk_GeomLostSlaveProc) (ClientData clientData, Tk_Window tkwin);
typedef void (Tk_GeomLostContentProc) (ClientData clientData, Tk_Window tkwin);
typedef struct Tk_GeomMgr {
const char *name; /* Name of the geometry manager (command used
* to invoke it, or name of widget class that
* allows embedded widgets). */
Tk_GeomRequestProc *requestProc;
/* Procedure to invoke when a slave's
/* Procedure to invoke when a content's
* requested geometry changes. */
Tk_GeomLostSlaveProc *lostSlaveProc;
/* Procedure to invoke when a slave is taken
Tk_GeomLostContentProc *lostSlaveProc;
/* Procedure to invoke when content is taken
* away from one geometry manager by another.
* NULL means geometry manager doesn't care
* when slaves are lost. */
* when content lost. */
} Tk_GeomMgr;
/*
@@ -884,6 +886,10 @@ typedef struct Tk_FakeWin {
* window.
* TK_WM_MANAGEABLE 1 marks a window as capable of being converted
* into a toplevel using [wm manage].
* TK_CAN_INPUT_TEXT 1 means that this window accepts text input.
* Used on macOS to indicate that key events can be
* processed with the NSTextInputClient protocol.
* Not currently accessible through the public API.
*/
#define TK_MAPPED 1
@@ -897,6 +903,7 @@ typedef struct Tk_FakeWin {
#define TK_EMBEDDED 0x100
#define TK_CONTAINER 0x200
#define TK_BOTH_HALVES 0x400
#define TK_WRAPPER 0x1000
#define TK_REPARENTED 0x2000
#define TK_ANONYMOUS_WINDOW 0x4000
@@ -905,6 +912,7 @@ typedef struct Tk_FakeWin {
#define TK_TOP_HIERARCHY 0x20000
#define TK_PROP_PROPCHANGE 0x40000
#define TK_WM_MANAGEABLE 0x80000
#define TK_CAN_INPUT_TEXT 0x100000
/*
*----------------------------------------------------------------------
@@ -1222,19 +1230,19 @@ typedef struct Tk_Outline {
typedef struct Tk_ImageType Tk_ImageType;
#ifdef USE_OLD_IMAGE
typedef int (Tk_ImageCreateProc) (Tcl_Interp *interp, char *name, int argc,
char **argv, Tk_ImageType *typePtr, Tk_ImageMaster master,
ClientData *masterDataPtr);
char **argv, Tk_ImageType *typePtr, Tk_ImageMaster model,
ClientData *clientDataPtr);
#else
typedef int (Tk_ImageCreateProc) (Tcl_Interp *interp, CONST86 char *name, int objc,
Tcl_Obj *const objv[], CONST86 Tk_ImageType *typePtr, Tk_ImageMaster master,
ClientData *masterDataPtr);
Tcl_Obj *const objv[], CONST86 Tk_ImageType *typePtr, Tk_ImageMaster model,
ClientData *clientDataPtr);
#endif /* USE_OLD_IMAGE */
typedef ClientData (Tk_ImageGetProc) (Tk_Window tkwin, ClientData masterData);
typedef void (Tk_ImageDisplayProc) (ClientData instanceData, Display *display,
typedef ClientData (Tk_ImageGetProc) (Tk_Window tkwin, ClientData clientData);
typedef void (Tk_ImageDisplayProc) (ClientData clientData, Display *display,
Drawable drawable, int imageX, int imageY, int width, int height,
int drawableX, int drawableY);
typedef void (Tk_ImageFreeProc) (ClientData instanceData, Display *display);
typedef void (Tk_ImageDeleteProc) (ClientData masterData);
typedef void (Tk_ImageFreeProc) (ClientData clientData, Display *display);
typedef void (Tk_ImageDeleteProc) (ClientData clientData);
typedef void (Tk_ImageChangedProc) (ClientData clientData, int x, int y,
int width, int height, int imageWidth, int imageHeight);
typedef int (Tk_ImagePostscriptProc) (ClientData clientData,

46
amd64/include/tkDecls.h
View File

@@ -402,7 +402,7 @@ EXTERN void Tk_HandleEvent(XEvent *eventPtr);
/* 116 */
EXTERN Tk_Window Tk_IdToWindow(Display *display, Window window);
/* 117 */
EXTERN void Tk_ImageChanged(Tk_ImageMaster master, int x, int y,
EXTERN void Tk_ImageChanged(Tk_ImageMaster model, int x, int y,
int width, int height, int imageWidth,
int imageHeight);
/* 118 */
@@ -413,8 +413,8 @@ EXTERN Atom Tk_InternAtom(Tk_Window tkwin, const char *name);
EXTERN int Tk_IntersectTextLayout(Tk_TextLayout layout, int x,
int y, int width, int height);
/* 121 */
EXTERN void Tk_MaintainGeometry(Tk_Window slave,
Tk_Window master, int x, int y, int width,
EXTERN void Tk_MaintainGeometry(Tk_Window window,
Tk_Window container, int x, int y, int width,
int height);
/* 122 */
EXTERN Tk_Window Tk_MainWindow(Tcl_Interp *interp);
@@ -453,7 +453,7 @@ EXTERN CONST84_RETURN char * Tk_NameOfCursor(Display *display,
/* 136 */
EXTERN CONST84_RETURN char * Tk_NameOfFont(Tk_Font font);
/* 137 */
EXTERN CONST84_RETURN char * Tk_NameOfImage(Tk_ImageMaster imageMaster);
EXTERN CONST84_RETURN char * Tk_NameOfImage(Tk_ImageMaster model);
/* 138 */
EXTERN CONST84_RETURN char * Tk_NameOfJoinStyle(int join);
/* 139 */
@@ -582,8 +582,8 @@ EXTERN void Tk_UnderlineTextLayout(Display *display,
/* 180 */
EXTERN void Tk_Ungrab(Tk_Window tkwin);
/* 181 */
EXTERN void Tk_UnmaintainGeometry(Tk_Window slave,
Tk_Window master);
EXTERN void Tk_UnmaintainGeometry(Tk_Window window,
Tk_Window container);
/* 182 */
EXTERN void Tk_UnmapWindow(Tk_Window tkwin);
/* 183 */
@@ -864,6 +864,14 @@ EXTERN void Tk_CreateOldImageType(const Tk_ImageType *typePtr);
/* 273 */
EXTERN void Tk_CreateOldPhotoImageFormat(
const Tk_PhotoImageFormat *formatPtr);
/* Slot 274 is reserved */
/* Slot 275 is reserved */
/* Slot 276 is reserved */
/* Slot 277 is reserved */
/* Slot 278 is reserved */
/* Slot 279 is reserved */
/* 280 */
EXTERN void TkUnusedStubEntry(void);
typedef struct {
const struct TkPlatStubs *tkPlatStubs;
@@ -993,11 +1001,11 @@ typedef struct TkStubs {
int (*tk_Grab) (Tcl_Interp *interp, Tk_Window tkwin, int grabGlobal); /* 114 */
void (*tk_HandleEvent) (XEvent *eventPtr); /* 115 */
Tk_Window (*tk_IdToWindow) (Display *display, Window window); /* 116 */
void (*tk_ImageChanged) (Tk_ImageMaster master, int x, int y, int width, int height, int imageWidth, int imageHeight); /* 117 */
void (*tk_ImageChanged) (Tk_ImageMaster model, int x, int y, int width, int height, int imageWidth, int imageHeight); /* 117 */
int (*tk_Init) (Tcl_Interp *interp); /* 118 */
Atom (*tk_InternAtom) (Tk_Window tkwin, const char *name); /* 119 */
int (*tk_IntersectTextLayout) (Tk_TextLayout layout, int x, int y, int width, int height); /* 120 */
void (*tk_MaintainGeometry) (Tk_Window slave, Tk_Window master, int x, int y, int width, int height); /* 121 */
void (*tk_MaintainGeometry) (Tk_Window window, Tk_Window container, int x, int y, int width, int height); /* 121 */
Tk_Window (*tk_MainWindow) (Tcl_Interp *interp); /* 122 */
void (*tk_MakeWindowExist) (Tk_Window tkwin); /* 123 */
void (*tk_ManageGeometry) (Tk_Window tkwin, const Tk_GeomMgr *mgrPtr, ClientData clientData); /* 124 */
@@ -1013,7 +1021,7 @@ typedef struct TkStubs {
CONST84_RETURN char * (*tk_NameOfColor) (XColor *colorPtr); /* 134 */
CONST84_RETURN char * (*tk_NameOfCursor) (Display *display, Tk_Cursor cursor); /* 135 */
CONST84_RETURN char * (*tk_NameOfFont) (Tk_Font font); /* 136 */
CONST84_RETURN char * (*tk_NameOfImage) (Tk_ImageMaster imageMaster); /* 137 */
CONST84_RETURN char * (*tk_NameOfImage) (Tk_ImageMaster model); /* 137 */
CONST84_RETURN char * (*tk_NameOfJoinStyle) (int join); /* 138 */
CONST84_RETURN char * (*tk_NameOfJustify) (Tk_Justify justify); /* 139 */
CONST84_RETURN char * (*tk_NameOfRelief) (int relief); /* 140 */
@@ -1057,7 +1065,7 @@ typedef struct TkStubs {
void (*tk_UnderlineChars) (Display *display, Drawable drawable, GC gc, Tk_Font tkfont, const char *source, int x, int y, int firstByte, int lastByte); /* 178 */
void (*tk_UnderlineTextLayout) (Display *display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int underline); /* 179 */
void (*tk_Ungrab) (Tk_Window tkwin); /* 180 */
void (*tk_UnmaintainGeometry) (Tk_Window slave, Tk_Window master); /* 181 */
void (*tk_UnmaintainGeometry) (Tk_Window window, Tk_Window container); /* 181 */
void (*tk_UnmapWindow) (Tk_Window tkwin); /* 182 */
void (*tk_UnsetGrid) (Tk_Window tkwin); /* 183 */
void (*tk_UpdatePointer) (Tk_Window tkwin, int x, int y, int state); /* 184 */
@@ -1150,6 +1158,13 @@ typedef struct TkStubs {
Tcl_Interp * (*tk_Interp) (Tk_Window tkwin); /* 271 */
void (*tk_CreateOldImageType) (const Tk_ImageType *typePtr); /* 272 */
void (*tk_CreateOldPhotoImageFormat) (const Tk_PhotoImageFormat *formatPtr); /* 273 */
void (*reserved274)(void);
void (*reserved275)(void);
void (*reserved276)(void);
void (*reserved277)(void);
void (*reserved278)(void);
void (*reserved279)(void);
void (*tkUnusedStubEntry) (void); /* 280 */
} TkStubs;
extern const TkStubs *tkStubsPtr;
@@ -1710,6 +1725,14 @@ extern const TkStubs *tkStubsPtr;
(tkStubsPtr->tk_CreateOldImageType) /* 272 */
#define Tk_CreateOldPhotoImageFormat \
(tkStubsPtr->tk_CreateOldPhotoImageFormat) /* 273 */
/* Slot 274 is reserved */
/* Slot 275 is reserved */
/* Slot 276 is reserved */
/* Slot 277 is reserved */
/* Slot 278 is reserved */
/* Slot 279 is reserved */
#define TkUnusedStubEntry \
(tkStubsPtr->tkUnusedStubEntry) /* 280 */
#endif /* defined(USE_TK_STUBS) */
@@ -1720,6 +1743,7 @@ extern const TkStubs *tkStubsPtr;
#undef Tk_Init
#undef Tk_SafeInit
#undef Tk_CreateConsoleWindow
#define Tk_GetImageModelData Tk_GetImageMasterData
#if defined(_WIN32) && defined(UNICODE)
# define Tk_MainEx Tk_MainExW
@@ -1730,4 +1754,6 @@ extern const TkStubs *tkStubsPtr;
#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#undef TkUnusedStubEntry
#endif /* _TKDECLS */

171
amd64/include/tkIntXlibDecls.h
View File

@@ -413,6 +413,28 @@ EXTERN int XReparentWindow(Display *d, Window w, Window p,
EXTERN int XPutImage(Display *d, Drawable dr, GC gc, XImage *im,
int sx, int sy, int dx, int dy,
unsigned int w, unsigned int h);
/* Slot 138 is reserved */
/* Slot 139 is reserved */
/* Slot 140 is reserved */
/* Slot 141 is reserved */
/* Slot 142 is reserved */
/* Slot 143 is reserved */
/* Slot 144 is reserved */
/* Slot 145 is reserved */
/* Slot 146 is reserved */
/* Slot 147 is reserved */
/* Slot 148 is reserved */
/* Slot 149 is reserved */
/* Slot 150 is reserved */
/* Slot 151 is reserved */
/* Slot 152 is reserved */
/* Slot 153 is reserved */
/* Slot 154 is reserved */
/* Slot 155 is reserved */
/* Slot 156 is reserved */
/* Slot 157 is reserved */
/* 158 */
EXTERN void TkUnusedStubEntry(void);
#endif /* WIN */
#ifdef MAC_OSX_TK /* AQUA */
/* 0 */
@@ -691,7 +713,10 @@ EXTERN int XSync(Display *display, Bool discard);
/* Slot 103 is reserved */
/* Slot 104 is reserved */
/* Slot 105 is reserved */
/* Slot 106 is reserved */
/* 106 */
EXTERN int XSetClipRectangles(Display *display, GC gc,
int clip_x_origin, int clip_y_origin,
XRectangle rectangles[], int n, int ordering);
/* 107 */
EXTERN int XFlush(Display *display);
/* 108 */
@@ -712,7 +737,8 @@ EXTERN VisualID XVisualIDFromVisual(Visual *visual);
/* Slot 117 is reserved */
/* Slot 118 is reserved */
/* Slot 119 is reserved */
/* Slot 120 is reserved */
/* 120 */
EXTERN int XOffsetRegion(void *rgn, int dx, int dy);
/* Slot 121 is reserved */
/* Slot 122 is reserved */
/* Slot 123 is reserved */
@@ -721,7 +747,8 @@ EXTERN VisualID XVisualIDFromVisual(Visual *visual);
/* Slot 126 is reserved */
/* Slot 127 is reserved */
/* Slot 128 is reserved */
/* Slot 129 is reserved */
/* 129 */
EXTERN int XLowerWindow(Display *d, Window w);
/* Slot 130 is reserved */
/* Slot 131 is reserved */
/* Slot 132 is reserved */
@@ -733,6 +760,37 @@ EXTERN VisualID XVisualIDFromVisual(Visual *visual);
EXTERN int XPutImage(Display *d, Drawable dr, GC gc, XImage *im,
int sx, int sy, int dx, int dy,
unsigned int w, unsigned int h);
/* Slot 138 is reserved */
/* Slot 139 is reserved */
/* Slot 140 is reserved */
/* Slot 141 is reserved */
/* Slot 142 is reserved */
/* Slot 143 is reserved */
/* 144 */
EXTERN void XDestroyIC(XIC xic);
/* 145 */
EXTERN Cursor XCreatePixmapCursor(Display *d, Pixmap p1, Pixmap p2,
XColor *x1, XColor *x2, unsigned int ui1,
unsigned int ui2);
/* 146 */
EXTERN Cursor XCreateGlyphCursor(Display *d, Font f1, Font f2,
unsigned int ui1, unsigned int ui2,
XColor _Xconst *x1, XColor _Xconst *x2);
/* Slot 147 is reserved */
/* Slot 148 is reserved */
/* Slot 149 is reserved */
/* Slot 150 is reserved */
/* Slot 151 is reserved */
/* Slot 152 is reserved */
/* Slot 153 is reserved */
/* Slot 154 is reserved */
/* Slot 155 is reserved */
/* Slot 156 is reserved */
/* 157 */
EXTERN KeySym XkbKeycodeToKeysym(Display *d, unsigned int k, int g,
int i);
/* 158 */
EXTERN void TkUnusedStubEntry(void);
#endif /* AQUA */
typedef struct TkIntXlibStubs {
@@ -878,6 +936,27 @@ typedef struct TkIntXlibStubs {
int (*xDrawPoints) (Display *d, Drawable dr, GC gc, XPoint *p, int n, int m); /* 135 */
int (*xReparentWindow) (Display *d, Window w, Window p, int x, int y); /* 136 */
int (*xPutImage) (Display *d, Drawable dr, GC gc, XImage *im, int sx, int sy, int dx, int dy, unsigned int w, unsigned int h); /* 137 */
void (*reserved138)(void);
void (*reserved139)(void);
void (*reserved140)(void);
void (*reserved141)(void);
void (*reserved142)(void);
void (*reserved143)(void);
void (*reserved144)(void);
void (*reserved145)(void);
void (*reserved146)(void);
void (*reserved147)(void);
void (*reserved148)(void);
void (*reserved149)(void);
void (*reserved150)(void);
void (*reserved151)(void);
void (*reserved152)(void);
void (*reserved153)(void);
void (*reserved154)(void);
void (*reserved155)(void);
void (*reserved156)(void);
void (*reserved157)(void);
void (*tkUnusedStubEntry) (void); /* 158 */
#endif /* WIN */
#ifdef MAC_OSX_TK /* AQUA */
int (*xSetDashes) (Display *display, GC gc, int dash_offset, _Xconst char *dash_list, int n); /* 0 */
@@ -986,7 +1065,7 @@ typedef struct TkIntXlibStubs {
void (*reserved103)(void);
void (*reserved104)(void);
void (*reserved105)(void);
void (*reserved106)(void);
int (*xSetClipRectangles) (Display *display, GC gc, int clip_x_origin, int clip_y_origin, XRectangle rectangles[], int n, int ordering); /* 106 */
int (*xFlush) (Display *display); /* 107 */
int (*xGrabServer) (Display *display); /* 108 */
int (*xUngrabServer) (Display *display); /* 109 */
@@ -1000,7 +1079,7 @@ typedef struct TkIntXlibStubs {
void (*reserved117)(void);
void (*reserved118)(void);
void (*reserved119)(void);
void (*reserved120)(void);
int (*xOffsetRegion) (void *rgn, int dx, int dy); /* 120 */
void (*reserved121)(void);
void (*reserved122)(void);
void (*reserved123)(void);
@@ -1009,7 +1088,7 @@ typedef struct TkIntXlibStubs {
void (*reserved126)(void);
void (*reserved127)(void);
void (*reserved128)(void);
void (*reserved129)(void);
int (*xLowerWindow) (Display *d, Window w); /* 129 */
void (*reserved130)(void);
void (*reserved131)(void);
void (*reserved132)(void);
@@ -1018,6 +1097,27 @@ typedef struct TkIntXlibStubs {
void (*reserved135)(void);
void (*reserved136)(void);
int (*xPutImage) (Display *d, Drawable dr, GC gc, XImage *im, int sx, int sy, int dx, int dy, unsigned int w, unsigned int h); /* 137 */
void (*reserved138)(void);
void (*reserved139)(void);
void (*reserved140)(void);
void (*reserved141)(void);
void (*reserved142)(void);
void (*reserved143)(void);
void (*xDestroyIC) (XIC xic); /* 144 */
Cursor (*xCreatePixmapCursor) (Display *d, Pixmap p1, Pixmap p2, XColor *x1, XColor *x2, unsigned int ui1, unsigned int ui2); /* 145 */
Cursor (*xCreateGlyphCursor) (Display *d, Font f1, Font f2, unsigned int ui1, unsigned int ui2, XColor _Xconst *x1, XColor _Xconst *x2); /* 146 */
void (*reserved147)(void);
void (*reserved148)(void);
void (*reserved149)(void);
void (*reserved150)(void);
void (*reserved151)(void);
void (*reserved152)(void);
void (*reserved153)(void);
void (*reserved154)(void);
void (*reserved155)(void);
void (*reserved156)(void);
KeySym (*xkbKeycodeToKeysym) (Display *d, unsigned int k, int g, int i); /* 157 */
void (*tkUnusedStubEntry) (void); /* 158 */
#endif /* AQUA */
} TkIntXlibStubs;
@@ -1298,6 +1398,28 @@ extern const TkIntXlibStubs *tkIntXlibStubsPtr;
(tkIntXlibStubsPtr->xReparentWindow) /* 136 */
#define XPutImage \
(tkIntXlibStubsPtr->xPutImage) /* 137 */
/* Slot 138 is reserved */
/* Slot 139 is reserved */
/* Slot 140 is reserved */
/* Slot 141 is reserved */
/* Slot 142 is reserved */
/* Slot 143 is reserved */
/* Slot 144 is reserved */
/* Slot 145 is reserved */
/* Slot 146 is reserved */
/* Slot 147 is reserved */
/* Slot 148 is reserved */
/* Slot 149 is reserved */
/* Slot 150 is reserved */
/* Slot 151 is reserved */
/* Slot 152 is reserved */
/* Slot 153 is reserved */
/* Slot 154 is reserved */
/* Slot 155 is reserved */
/* Slot 156 is reserved */
/* Slot 157 is reserved */
#define TkUnusedStubEntry \
(tkIntXlibStubsPtr->tkUnusedStubEntry) /* 158 */
#endif /* WIN */
#ifdef MAC_OSX_TK /* AQUA */
#define XSetDashes \
@@ -1498,7 +1620,8 @@ extern const TkIntXlibStubs *tkIntXlibStubsPtr;
/* Slot 103 is reserved */
/* Slot 104 is reserved */
/* Slot 105 is reserved */
/* Slot 106 is reserved */
#define XSetClipRectangles \
(tkIntXlibStubsPtr->xSetClipRectangles) /* 106 */
#define XFlush \
(tkIntXlibStubsPtr->xFlush) /* 107 */
#define XGrabServer \
@@ -1519,7 +1642,8 @@ extern const TkIntXlibStubs *tkIntXlibStubsPtr;
/* Slot 117 is reserved */
/* Slot 118 is reserved */
/* Slot 119 is reserved */
/* Slot 120 is reserved */
#define XOffsetRegion \
(tkIntXlibStubsPtr->xOffsetRegion) /* 120 */
/* Slot 121 is reserved */
/* Slot 122 is reserved */
/* Slot 123 is reserved */
@@ -1528,7 +1652,8 @@ extern const TkIntXlibStubs *tkIntXlibStubsPtr;
/* Slot 126 is reserved */
/* Slot 127 is reserved */
/* Slot 128 is reserved */
/* Slot 129 is reserved */
#define XLowerWindow \
(tkIntXlibStubsPtr->xLowerWindow) /* 129 */
/* Slot 130 is reserved */
/* Slot 131 is reserved */
/* Slot 132 is reserved */
@@ -1538,6 +1663,32 @@ extern const TkIntXlibStubs *tkIntXlibStubsPtr;
/* Slot 136 is reserved */
#define XPutImage \
(tkIntXlibStubsPtr->xPutImage) /* 137 */
/* Slot 138 is reserved */
/* Slot 139 is reserved */
/* Slot 140 is reserved */
/* Slot 141 is reserved */
/* Slot 142 is reserved */
/* Slot 143 is reserved */
#define XDestroyIC \
(tkIntXlibStubsPtr->xDestroyIC) /* 144 */
#define XCreatePixmapCursor \
(tkIntXlibStubsPtr->xCreatePixmapCursor) /* 145 */
#define XCreateGlyphCursor \
(tkIntXlibStubsPtr->xCreateGlyphCursor) /* 146 */
/* Slot 147 is reserved */
/* Slot 148 is reserved */
/* Slot 149 is reserved */
/* Slot 150 is reserved */
/* Slot 151 is reserved */
/* Slot 152 is reserved */
/* Slot 153 is reserved */
/* Slot 154 is reserved */
/* Slot 155 is reserved */
/* Slot 156 is reserved */
#define XkbKeycodeToKeysym \
(tkIntXlibStubsPtr->xkbKeycodeToKeysym) /* 157 */
#define TkUnusedStubEntry \
(tkIntXlibStubsPtr->tkUnusedStubEntry) /* 158 */
#endif /* AQUA */
#endif /* defined(USE_TK_STUBS) */
@@ -1547,4 +1698,6 @@ extern const TkIntXlibStubs *tkIntXlibStubsPtr;
#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#undef TkUnusedStubEntry
#endif /* _TKINTXLIBDECLS */

30
amd64/include/tkPlatDecls.h
View File

@@ -82,6 +82,17 @@ EXTERN void * TkMacOSXGetRootControl(Drawable drawable);
EXTERN void Tk_MacOSXSetupTkNotifier(void);
/* 10 */
EXTERN int Tk_MacOSXIsAppInFront(void);
/* 11 */
EXTERN Tk_Window Tk_MacOSXGetTkWindow(void *w);
/* 12 */
EXTERN void * Tk_MacOSXGetCGContextForDrawable(Drawable drawable);
/* 13 */
EXTERN void * Tk_MacOSXGetNSWindowForDrawable(Drawable drawable);
/* Slot 14 is reserved */
/* Slot 15 is reserved */
/* 16 */
EXTERN void TkGenWMConfigureEvent_(Tk_Window tkwin, int x, int y,
int width, int height, int flags);
#endif /* AQUA */
typedef struct TkPlatStubs {
@@ -108,6 +119,12 @@ typedef struct TkPlatStubs {
void * (*tkMacOSXGetRootControl) (Drawable drawable); /* 8 */
void (*tk_MacOSXSetupTkNotifier) (void); /* 9 */
int (*tk_MacOSXIsAppInFront) (void); /* 10 */
Tk_Window (*tk_MacOSXGetTkWindow) (void *w); /* 11 */
void * (*tk_MacOSXGetCGContextForDrawable) (Drawable drawable); /* 12 */
void * (*tk_MacOSXGetNSWindowForDrawable) (Drawable drawable); /* 13 */
void (*reserved14)(void);
void (*reserved15)(void);
void (*tkGenWMConfigureEvent_) (Tk_Window tkwin, int x, int y, int width, int height, int flags); /* 16 */
#endif /* AQUA */
} TkPlatStubs;
@@ -160,6 +177,16 @@ extern const TkPlatStubs *tkPlatStubsPtr;
(tkPlatStubsPtr->tk_MacOSXSetupTkNotifier) /* 9 */
#define Tk_MacOSXIsAppInFront \
(tkPlatStubsPtr->tk_MacOSXIsAppInFront) /* 10 */
#define Tk_MacOSXGetTkWindow \
(tkPlatStubsPtr->tk_MacOSXGetTkWindow) /* 11 */
#define Tk_MacOSXGetCGContextForDrawable \
(tkPlatStubsPtr->tk_MacOSXGetCGContextForDrawable) /* 12 */
#define Tk_MacOSXGetNSWindowForDrawable \
(tkPlatStubsPtr->tk_MacOSXGetNSWindowForDrawable) /* 13 */
/* Slot 14 is reserved */
/* Slot 15 is reserved */
#define TkGenWMConfigureEvent_ \
(tkPlatStubsPtr->tkGenWMConfigureEvent_) /* 16 */
#endif /* AQUA */
#endif /* defined(USE_TK_STUBS) */
@@ -173,4 +200,7 @@ extern const TkPlatStubs *tkPlatStubsPtr;
#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#undef TkGenWMConfigureEvent_
#define Tk_MacOSXGetNSViewForDrawable TkMacOSXGetRootControl
#endif /* _TKPLATDECLS */

4
amd64/lib/dde1.4/pkgIndex.tcl
View File

@@ -1,7 +1,7 @@
if {![package vsatisfies [package provide Tcl] 8.5]} return
if {[info sharedlibextension] != ".dll"} return
if {[::tcl::pkgconfig get debug]} {
package ifneeded dde 1.4.2 [list load [file join $dir tcldde14g.dll] dde]
package ifneeded dde 1.4.3 [list load [file join $dir tcldde14g.dll] Dde]
} else {
package ifneeded dde 1.4.2 [list load [file join $dir tcldde14.dll] dde]
package ifneeded dde 1.4.3 [list load [file join $dir tcldde14.dll] Dde]
}

BIN
amd64/lib/dde1.4/tcldde14.dll
View File

Binary file not shown.

2
amd64/lib/nmake/nmakehlp.c
View File

@@ -708,7 +708,7 @@ QualifyPath(
{
char szCwd[MAX_PATH + 1];
GetFullPathName(szPath, sizeof(szCwd)-1, szCwd, NULL);
GetFullPathName(szPath, sizeof(szCwd)-1, szCwd, NULL);
printf("%s\n", szCwd);
return 0;
}

346
amd64/lib/nmake/rules.vc
View File

@@ -6,7 +6,7 @@
# compiler switches, defining common targets and macros. The Tcl makefile
# directly includes this. Extensions include it via "rules-ext.vc".
#
# See TIP 477 (https://core.tcl-lang.org/tips/doc/trunk/tip/477.md) for
# See TIP 477 (https://core.tcl-lang.org/tips/doc/main/tip/477.md) for
# detailed documentation.
#
# See the file "license.terms" for information on usage and redistribution
@@ -24,7 +24,7 @@ _RULES_VC = 1
# For modifications that are not backward-compatible, you *must* change
# the major version.
RULES_VERSION_MAJOR = 1
RULES_VERSION_MINOR = 4
RULES_VERSION_MINOR = 8
# The PROJECT macro must be defined by parent makefile.
!if "$(PROJECT)" == ""
@@ -302,7 +302,7 @@ TCLDIR = $(_INSTALLDIR)\..
_TCLDIR = $(_INSTALLDIR)\..
_TCL_H = $(_TCLDIR)\include\tcl.h
!else # exist(...) && ! $(NEED_TCL_SOURCE)
!else # exist(...) && !$(NEED_TCL_SOURCE)
!if [echo _TCLDIR = \> nmakehlp.out] \
|| [nmakehlp -L generic\tcl.h >> nmakehlp.out]
@@ -313,7 +313,7 @@ TCLINSTALL = 0
TCLDIR = $(_TCLDIR)
_TCL_H = $(_TCLDIR)\generic\tcl.h
!endif # exist(...) && ! $(NEED_TCL_SOURCE)
!endif # exist(...) && !$(NEED_TCL_SOURCE)
!endif # TCLDIR
@@ -415,9 +415,6 @@ _INSTALLDIR=$(_INSTALLDIR)\lib
# NATIVE_ARCH - set to IX86 or AMD64 for the host machine
# MACHINE - same as $(ARCH) - legacy
# _VC_MANIFEST_EMBED_{DLL,EXE} - commands for embedding a manifest if needed
# CFG_ENCODING - set to an character encoding.
# TBD - this is passed to compiler as TCL_CFGVAL_ENCODING but can't
# see where it is used
cc32 = $(CC) # built-in default.
link32 = link
@@ -503,10 +500,6 @@ _VC_MANIFEST_EMBED_EXE=if exist $@.manifest mt -nologo -manifest $@.manifest -ou
_VC_MANIFEST_EMBED_DLL=if exist $@.manifest mt -nologo -manifest $@.manifest -outputresource:$@;2
!endif
!ifndef CFG_ENCODING
CFG_ENCODING = \"cp1252\"
!endif
################################################################
# 4. Build the nmakehlp program
# This is a helper app we need to overcome nmake's limiting
@@ -514,7 +507,7 @@ CFG_ENCODING = \"cp1252\"
# information about supported compiler options etc.
#
# Tcl itself will always use the nmakehlp.c program which is
# in its own source. This is the "master" copy and kept updated.
# in its own source. It will be kept updated there.
#
# Extensions built against an installed Tcl will use the installed
# copy of Tcl's nmakehlp.c if there is one and their own version
@@ -537,7 +530,7 @@ NMAKEHLPC = nmakehlp.c
!if exist("$(_TCLDIR)\lib\nmake\nmakehlp.c")
NMAKEHLPC = $(_TCLDIR)\lib\nmake\nmakehlp.c
!endif
!else # ! $(TCLINSTALL)
!else # !$(TCLINSTALL)
!if exist("$(_TCLDIR)\win\nmakehlp.c")
NMAKEHLPC = $(_TCLDIR)\win\nmakehlp.c
!endif
@@ -659,8 +652,130 @@ LINKERFLAGS = $(LINKERFLAGS) -ltcg
!endif
!endif
################################################################
# 6. Extract various version numbers from headers
# For Tcl and Tk, version numbers are extracted from tcl.h and tk.h
# respectively. For extensions, versions are extracted from the
# configure.in or configure.ac from the TEA configuration if it
# exists, and unset otherwise.
# Sets the following macros:
# TCL_MAJOR_VERSION
# TCL_MINOR_VERSION
# TCL_RELEASE_SERIAL
# TCL_PATCH_LEVEL
# TCL_PATCH_LETTER
# TCL_VERSION
# TK_MAJOR_VERSION
# TK_MINOR_VERSION
# TK_RELEASE_SERIAL
# TK_PATCH_LEVEL
# TK_PATCH_LETTER
# TK_VERSION
# DOTVERSION - set as (for example) 2.5
# VERSION - set as (for example 25)
#--------------------------------------------------------------
!if [echo REM = This file is generated from rules.vc > versions.vc]
!endif
!if [echo TCL_MAJOR_VERSION = \>> versions.vc] \
&& [nmakehlp -V "$(_TCL_H)" TCL_MAJOR_VERSION >> versions.vc]
!endif
!if [echo TCL_MINOR_VERSION = \>> versions.vc] \
&& [nmakehlp -V "$(_TCL_H)" TCL_MINOR_VERSION >> versions.vc]
!endif
!if [echo TCL_RELEASE_SERIAL = \>> versions.vc] \
&& [nmakehlp -V "$(_TCL_H)" TCL_RELEASE_SERIAL >> versions.vc]
!endif
!if [echo TCL_PATCH_LEVEL = \>> versions.vc] \
&& [nmakehlp -V "$(_TCL_H)" TCL_PATCH_LEVEL >> versions.vc]
!endif
!if defined(_TK_H)
!if [echo TK_MAJOR_VERSION = \>> versions.vc] \
&& [nmakehlp -V $(_TK_H) TK_MAJOR_VERSION >> versions.vc]
!endif
!if [echo TK_MINOR_VERSION = \>> versions.vc] \
&& [nmakehlp -V $(_TK_H) TK_MINOR_VERSION >> versions.vc]
!endif
!if [echo TK_RELEASE_SERIAL = \>> versions.vc] \
&& [nmakehlp -V "$(_TK_H)" TK_RELEASE_SERIAL >> versions.vc]
!endif
!if [echo TK_PATCH_LEVEL = \>> versions.vc] \
&& [nmakehlp -V $(_TK_H) TK_PATCH_LEVEL >> versions.vc]
!endif
!endif # _TK_H
!include versions.vc
TCL_VERSION = $(TCL_MAJOR_VERSION)$(TCL_MINOR_VERSION)
TCL_DOTVERSION = $(TCL_MAJOR_VERSION).$(TCL_MINOR_VERSION)
!if [nmakehlp -f $(TCL_PATCH_LEVEL) "a"]
TCL_PATCH_LETTER = a
!elseif [nmakehlp -f $(TCL_PATCH_LEVEL) "b"]
TCL_PATCH_LETTER = b
!else
TCL_PATCH_LETTER = .
!endif
!if defined(_TK_H)
TK_VERSION = $(TK_MAJOR_VERSION)$(TK_MINOR_VERSION)
TK_DOTVERSION = $(TK_MAJOR_VERSION).$(TK_MINOR_VERSION)
!if [nmakehlp -f $(TK_PATCH_LEVEL) "a"]
TK_PATCH_LETTER = a
!elseif [nmakehlp -f $(TK_PATCH_LEVEL) "b"]
TK_PATCH_LETTER = b
!else
TK_PATCH_LETTER = .
!endif
!endif
# Set DOTVERSION and VERSION
!if $(DOING_TCL)
DOTVERSION = $(TCL_MAJOR_VERSION).$(TCL_MINOR_VERSION)
VERSION = $(TCL_VERSION)
!elseif $(DOING_TK)
DOTVERSION = $(TK_DOTVERSION)
VERSION = $(TK_VERSION)
!else # Doing a non-Tk extension
# If parent makefile has not defined DOTVERSION, try to get it from TEA
# first from a configure.in file, and then from configure.ac
!ifndef DOTVERSION
!if [echo DOTVERSION = \> versions.vc] \
|| [nmakehlp -V $(ROOT)\configure.in ^[$(PROJECT)^] >> versions.vc]
!if [echo DOTVERSION = \> versions.vc] \
|| [nmakehlp -V $(ROOT)\configure.ac ^[$(PROJECT)^] >> versions.vc]
!error *** Could not figure out extension version. Please define DOTVERSION in parent makefile before including rules.vc.
!endif
!endif
!include versions.vc
!endif # DOTVERSION
VERSION = $(DOTVERSION:.=)
!endif # $(DOING_TCL) ... etc.
# Windows RC files have 3 version components. Ensure this irrespective
# of how many components the package has specified. Basically, ensure
# minimum 4 components by appending 4 0's and then pick out the first 4.
# Also take care of the fact that DOTVERSION may have "a" or "b" instead
# of "." separating the version components.
DOTSEPARATED=$(DOTVERSION:a=.)
DOTSEPARATED=$(DOTSEPARATED:b=.)
!if [echo RCCOMMAVERSION = \> versions.vc] \
|| [for /f "tokens=1,2,3,4,5* delims=." %a in ("$(DOTSEPARATED).0.0.0.0") do echo %a,%b,%c,%d >> versions.vc]
!error *** Could not generate RCCOMMAVERSION ***
!endif
!include versions.vc
########################################################################
# 6. Parse the OPTS macro to work out the requested build configuration.
# 7. Parse the OPTS macro to work out the requested build configuration.
# Based on this, we will construct the actual switches to be passed to the
# compiler and linker using the macros defined in the previous section.
# The following macros are defined by this section based on OPTS
@@ -674,9 +789,10 @@ LINKERFLAGS = $(LINKERFLAGS) -ltcg
# MSVCRT - 1 -> link to dynamic C runtime even when building static Tcl build
# 0 -> link to static C runtime for static Tcl build.
# Does not impact shared Tcl builds (STATIC_BUILD == 0)
# Default: 1 for Tcl 8.7 and up, 0 otherwise.
# TCL_USE_STATIC_PACKAGES - 1 -> statically link the registry and dde extensions
# in the Tcl shell. 0 -> keep them as shared libraries
# Does not impact shared Tcl builds.
# in the Tcl and Wish shell. 0 -> keep them as shared libraries. Does
# not impact shared Tcl builds. Implied by STATIC_BUILD since Tcl 8.7.
# USE_THREAD_ALLOC - 1 -> Use a shared global free pool for allocation.
# 0 -> Use the non-thread allocator.
# UNCHECKED - 1 -> when doing a debug build with symbols, use the release
@@ -685,7 +801,9 @@ LINKERFLAGS = $(LINKERFLAGS) -ltcg
# CONFIG_CHECK - 1 -> check current build configuration against Tcl
# configuration (ignored for Tcl itself)
# _USE_64BIT_TIME_T - forces a build using 64-bit time_t for 32-bit build
# (CRT library should support this)
# (CRT library should support this, not needed for Tcl 9.x)
# TCL_UTF_MAX=4 - forces a build allowing 4-byte UTF-8 sequences internally.
# (Not needed for Tcl 9.x)
# Further, LINKERFLAGS are modified based on above.
# Default values for all the above
@@ -728,11 +846,8 @@ MSVCRT = 0
!else
!if [nmakehlp -f $(OPTS) "msvcrt"]
!message *** Doing msvcrt
MSVCRT = 1
!else
!if !$(STATIC_BUILD)
MSVCRT = 1
!else
!if $(TCL_MAJOR_VERSION) == 8 && $(TCL_MINOR_VERSION) < 7 && $(STATIC_BUILD)
MSVCRT = 0
!endif
!endif
@@ -741,24 +856,26 @@ MSVCRT = 0
!if [nmakehlp -f $(OPTS) "staticpkg"] && $(STATIC_BUILD)
!message *** Doing staticpkg
TCL_USE_STATIC_PACKAGES = 1
!else
TCL_USE_STATIC_PACKAGES = 0
!endif
!if [nmakehlp -f $(OPTS) "nothreads"]
!message *** Compile explicitly for non-threaded tcl
TCL_THREADS = 0
USE_THREAD_ALLOC= 0
!else
TCL_THREADS = 1
USE_THREAD_ALLOC= 1
!endif
!if $(TCL_MAJOR_VERSION) == 8
!if [nmakehlp -f $(OPTS) "time64bit"]
!message *** Force 64-bit time_t
_USE_64BIT_TIME_T = 1
!endif
!if [nmakehlp -f $(OPTS) "utfmax"]
!message *** Force allowing 4-byte UTF-8 sequences internally
TCL_UTF_MAX = 4
!endif
!endif
# Yes, it's weird that the "symbols" option controls DEBUG and
# the "pdbs" option controls SYMBOLS. That's historical.
!if [nmakehlp -f $(OPTS) "symbols"]
@@ -842,7 +959,7 @@ This compiler does not support profile guided optimization.
!endif
################################################################
# 7. Parse the STATS macro to configure code instrumentation
# 8. Parse the STATS macro to configure code instrumentation
# The following macros are set by this section:
# TCL_MEM_DEBUG - 1 -> enables memory allocation instrumentation
# 0 -> disables
@@ -872,7 +989,7 @@ TCL_COMPILE_DEBUG = 0
!endif
####################################################################
# 8. Parse the CHECKS macro to configure additional compiler checks
# 9. Parse the CHECKS macro to configure additional compiler checks
# The following macros are set by this section:
# WARNINGS - compiler switches that control the warnings level
# TCL_NO_DEPRECATED - 1 -> disable support for deprecated functions
@@ -904,86 +1021,6 @@ WARNINGS = $(WARNINGS) -Wp64
!endif
################################################################
# 9. Extract various version numbers
# For Tcl and Tk, version numbers are extracted from tcl.h and tk.h
# respectively. For extensions, versions are extracted from the
# configure.in or configure.ac from the TEA configuration if it
# exists, and unset otherwise.
# Sets the following macros:
# TCL_MAJOR_VERSION
# TCL_MINOR_VERSION
# TCL_PATCH_LEVEL
# TCL_VERSION
# TK_MAJOR_VERSION
# TK_MINOR_VERSION
# TK_PATCH_LEVEL
# TK_VERSION
# DOTVERSION - set as (for example) 2.5
# VERSION - set as (for example 25)
#--------------------------------------------------------------
!if [echo REM = This file is generated from rules.vc > versions.vc]
!endif
!if [echo TCL_MAJOR_VERSION = \>> versions.vc] \
&& [nmakehlp -V "$(_TCL_H)" TCL_MAJOR_VERSION >> versions.vc]
!endif
!if [echo TCL_MINOR_VERSION = \>> versions.vc] \
&& [nmakehlp -V "$(_TCL_H)" TCL_MINOR_VERSION >> versions.vc]
!endif
!if [echo TCL_PATCH_LEVEL = \>> versions.vc] \
&& [nmakehlp -V "$(_TCL_H)" TCL_PATCH_LEVEL >> versions.vc]
!endif
!if defined(_TK_H)
!if [echo TK_MAJOR_VERSION = \>> versions.vc] \
&& [nmakehlp -V $(_TK_H) TK_MAJOR_VERSION >> versions.vc]
!endif
!if [echo TK_MINOR_VERSION = \>> versions.vc] \
&& [nmakehlp -V $(_TK_H) TK_MINOR_VERSION >> versions.vc]
!endif
!if [echo TK_PATCH_LEVEL = \>> versions.vc] \
&& [nmakehlp -V $(_TK_H) TK_PATCH_LEVEL >> versions.vc]
!endif
!endif # _TK_H
!include versions.vc
TCL_VERSION = $(TCL_MAJOR_VERSION)$(TCL_MINOR_VERSION)
TCL_DOTVERSION = $(TCL_MAJOR_VERSION).$(TCL_MINOR_VERSION)
!if defined(_TK_H)
TK_VERSION = $(TK_MAJOR_VERSION)$(TK_MINOR_VERSION)
TK_DOTVERSION = $(TK_MAJOR_VERSION).$(TK_MINOR_VERSION)
!endif
# Set DOTVERSION and VERSION
!if $(DOING_TCL)
DOTVERSION = $(TCL_MAJOR_VERSION).$(TCL_MINOR_VERSION)
VERSION = $(TCL_VERSION)
!elseif $(DOING_TK)
DOTVERSION = $(TK_DOTVERSION)
VERSION = $(TK_VERSION)
!else # Doing a non-Tk extension
# If parent makefile has not defined DOTVERSION, try to get it from TEA
# first from a configure.in file, and then from configure.ac
!ifndef DOTVERSION
!if [echo DOTVERSION = \> versions.vc] \
|| [nmakehlp -V $(ROOT)\configure.in ^[$(PROJECT)^] >> versions.vc]
!if [echo DOTVERSION = \> versions.vc] \
|| [nmakehlp -V $(ROOT)\configure.ac ^[$(PROJECT)^] >> versions.vc]
!error *** Could not figure out extension version. Please define DOTVERSION in parent makefile before including rules.vc.
!endif
!endif
!include versions.vc
!endif # DOTVERSION
VERSION = $(DOTVERSION:.=)
!endif # $(DOING_TCL) ... etc.
################################################################
# 10. Construct output directory and file paths
@@ -1029,7 +1066,7 @@ BUILDDIRTOP =$(BUILDDIRTOP)_$(MACHINE)
BUILDDIRTOP =$(BUILDDIRTOP)_VC$(VCVER)
!endif
!if !$(DEBUG) || $(DEBUG) && $(UNCHECKED)
!if !$(DEBUG) || $(TCL_VERSION) > 86 || $(DEBUG) && $(UNCHECKED)
SUFX = $(SUFX:g=)
!endif
@@ -1080,20 +1117,35 @@ OUT_DIR = $(TMP_DIR)
# The name of the stubs library for the project being built
STUBPREFIX = $(PROJECT)stub
#
# Set up paths to various Tcl executables and libraries needed by extensions
!if $(DOING_TCL)
#
# TIP 430. Unused for 8.6 but no harm defining it to allow a common rules.vc
!if "$(TCL_PATCH_LETTER)" == "."
TCLSCRIPTZIPNAME = libtcl_$(TCL_MAJOR_VERSION)_$(TCL_MINOR_VERSION)_$(TCL_RELEASE_SERIAL).zip
!else
TCLSCRIPTZIPNAME = libtcl_$(TCL_MAJOR_VERSION)_$(TCL_MINOR_VERSION)_$(TCL_PATCH_LETTER)$(TCL_RELEASE_SERIAL).zip
!endif
!if "$(TK_PATCH_LETTER)" == "."
TKSCRIPTZIPNAME = libtk_$(TK_MAJOR_VERSION)_$(TK_MINOR_VERSION)_$(TK_RELEASE_SERIAL).zip
!else
TKSCRIPTZIPNAME = libtk_$(TK_MAJOR_VERSION)_$(TK_MINOR_VERSION)_$(TK_PATCH_LETTER)$(TK_RELEASE_SERIAL).zip
!endif
!if $(DOING_TCL)
TCLSHNAME = $(PROJECT)sh$(VERSION)$(SUFX).exe
TCLSH = $(OUT_DIR)\$(TCLSHNAME)
TCLIMPLIB = $(OUT_DIR)\$(PROJECT)$(VERSION)$(SUFX).lib
TCLLIBNAME = $(PROJECT)$(VERSION)$(SUFX).$(EXT)
TCLLIB = $(OUT_DIR)\$(TCLLIBNAME)
TCLSCRIPTZIP = $(OUT_DIR)\$(TCLSCRIPTZIPNAME)
TCLSTUBLIBNAME = $(STUBPREFIX)$(VERSION).lib
TCLSTUBLIB = $(OUT_DIR)\$(TCLSTUBLIBNAME)
TCL_INCLUDES = -I"$(WIN_DIR)" -I"$(GENERICDIR)"
!else # ! $(DOING_TCL)
!else # !$(DOING_TCL)
!if $(TCLINSTALL) # Building against an installed Tcl
@@ -1115,6 +1167,7 @@ TCLIMPLIB = $(_TCLDIR)\lib\tcl$(TCL_VERSION)t$(SUFX:t=).lib
TCL_LIBRARY = $(_TCLDIR)\lib
TCLREGLIB = $(_TCLDIR)\lib\tclreg13$(SUFX:t=).lib
TCLDDELIB = $(_TCLDIR)\lib\tcldde14$(SUFX:t=).lib
TCLSCRIPTZIP = $(_TCLDIR)\lib\$(TCLSCRIPTZIPNAME)
TCLTOOLSDIR = \must\have\tcl\sources\to\build\this\target
TCL_INCLUDES = -I"$(_TCLDIR)\include"
@@ -1134,6 +1187,7 @@ TCLIMPLIB = $(_TCLDIR)\win\$(BUILDDIRTOP)\tcl$(TCL_VERSION)t$(SUFX:t=).lib
TCL_LIBRARY = $(_TCLDIR)\library
TCLREGLIB = $(_TCLDIR)\win\$(BUILDDIRTOP)\tclreg13$(SUFX:t=).lib
TCLDDELIB = $(_TCLDIR)\win\$(BUILDDIRTOP)\tcldde14$(SUFX:t=).lib
TCLSCRIPTZIP = $(_TCLDIR)\win\$(BUILDDIRTOP)\$(TCLSCRIPTZIPNAME)
TCLTOOLSDIR = $(_TCLDIR)\tools
TCL_INCLUDES = -I"$(_TCLDIR)\generic" -I"$(_TCLDIR)\win"
@@ -1166,7 +1220,8 @@ WISH = $(OUT_DIR)\$(WISHNAME)
TKSTUBLIB = $(OUT_DIR)\$(TKSTUBLIBNAME)
TKIMPLIB = $(OUT_DIR)\$(TKIMPLIBNAME)
TKLIB = $(OUT_DIR)\$(TKLIBNAME)
TK_INCLUDES = -I"$(WIN_DIR)" -I"$(GENERICDIR)"
TK_INCLUDES = -I"$(WIN_DIR)" -I"$(GENERICDIR)"
TKSCRIPTZIP = $(OUT_DIR)\$(TKSCRIPTZIPNAME)
!else # effectively NEED_TK
@@ -1181,7 +1236,10 @@ TKIMPLIBNAME = tk$(TK_VERSION)$(SUFX:t=).lib
TKIMPLIB = $(_TKDIR)\lib\$(TKIMPLIBNAME)
!endif
TK_INCLUDES = -I"$(_TKDIR)\include"
TKSCRIPTZIP = $(_TKDIR)\lib\$(TKSCRIPTZIPNAME)
!else # Building against Tk sources
WISH = $(_TKDIR)\win\$(BUILDDIRTOP)\$(WISHNAME)
TKSTUBLIB = $(_TKDIR)\win\$(BUILDDIRTOP)\$(TKSTUBLIBNAME)
TKIMPLIB = $(_TKDIR)\win\$(BUILDDIRTOP)\$(TKIMPLIBNAME)
@@ -1192,7 +1250,10 @@ TKIMPLIBNAME = tk$(TK_VERSION)$(SUFX:t=).lib
TKIMPLIB = $(_TKDIR)\win\$(BUILDDIRTOP)\$(TKIMPLIBNAME)
!endif
TK_INCLUDES = -I"$(_TKDIR)\generic" -I"$(_TKDIR)\win" -I"$(_TKDIR)\xlib"
TKSCRIPTZIP = $(_TKDIR)\win\$(BUILDDIRTOP)\$(TKSCRIPTZIPNAME)
!endif # TKINSTALL
tklibs = "$(TKSTUBLIB)" "$(TKIMPLIB)"
!endif # $(DOING_TK)
@@ -1233,6 +1294,7 @@ BIN_INSTALL_DIR = $(_INSTALLDIR)\bin
DOC_INSTALL_DIR = $(_INSTALLDIR)\doc
!if $(DOING_TCL)
SCRIPT_INSTALL_DIR = $(_INSTALLDIR)\lib\$(PROJECT)$(TCL_MAJOR_VERSION).$(TCL_MINOR_VERSION)
MODULE_INSTALL_DIR = $(_INSTALLDIR)\lib\tcl$(TCL_MAJOR_VERSION)
!else # DOING_TK
SCRIPT_INSTALL_DIR = $(_INSTALLDIR)\lib\$(PROJECT)$(TK_MAJOR_VERSION).$(TK_MINOR_VERSION)
!endif
@@ -1277,7 +1339,15 @@ INCLUDE_INSTALL_DIR = $(_INSTALLDIR)\..\include
# baselibs - minimum Windows libraries required. Parent makefile can
# define PRJ_LIBS before including rules.rc if additional libs are needed
OPTDEFINES = /DTCL_CFGVAL_ENCODING=$(CFG_ENCODING) /DSTDC_HEADERS
OPTDEFINES = /DSTDC_HEADERS
!if $(VCVERSION) > 1600
OPTDEFINES = $(OPTDEFINES) /DHAVE_STDINT_H=1
!else
OPTDEFINES = $(OPTDEFINES) /DMP_NO_STDINT=1
!endif
!if $(VCVERSION) >= 1800
OPTDEFINES = $(OPTDEFINES) /DHAVE_INTTYPES_H=1 /DHAVE_STDBOOL_H=1
!endif
!if $(TCL_MEM_DEBUG)
OPTDEFINES = $(OPTDEFINES) /DTCL_MEM_DEBUG
@@ -1293,6 +1363,11 @@ OPTDEFINES = $(OPTDEFINES) /DUSE_THREAD_ALLOC=1
!endif
!if $(STATIC_BUILD)
OPTDEFINES = $(OPTDEFINES) /DSTATIC_BUILD
!elseif $(TCL_VERSION) > 86
OPTDEFINES = $(OPTDEFINES) /DTCL_WITH_EXTERNAL_TOMMATH
!if "$(MACHINE)" == "AMD64"
OPTDEFINES = $(OPTDEFINES) /DMP_64BIT
!endif
!endif
!if $(TCL_NO_DEPRECATED)
OPTDEFINES = $(OPTDEFINES) /DTCL_NO_DEPRECATED
@@ -1301,7 +1376,7 @@ OPTDEFINES = $(OPTDEFINES) /DTCL_NO_DEPRECATED
!if $(USE_STUBS)
# Note we do not define USE_TCL_STUBS even when building tk since some
# test targets in tk do not use stubs
!if ! $(DOING_TCL)
!if !$(DOING_TCL)
USE_STUBS_DEFS = /DUSE_TCL_STUBS /DUSE_TCLOO_STUBS
!if $(NEED_TK)
USE_STUBS_DEFS = $(USE_STUBS_DEFS) /DUSE_TK_STUBS
@@ -1322,15 +1397,20 @@ OPTDEFINES = $(OPTDEFINES) /DTCL_CFG_PROFILED
OPTDEFINES = $(OPTDEFINES) /DTCL_CFG_DO64BIT
!endif
!if $(VCVERSION) < 1300
OPTDEFINES = $(OPTDEFINES) /DNO_STRTOI64
OPTDEFINES = $(OPTDEFINES) /DNO_STRTOI64=1
!endif
!if "$(TCL_MAJOR_VERSION)" == "8"
!if "$(_USE_64BIT_TIME_T)" == "1"
OPTDEFINES = $(OPTDEFINES) /D_USE_64BIT_TIME_T
OPTDEFINES = $(OPTDEFINES) /D_USE_64BIT_TIME_T=1
!endif
!if "$(TCL_UTF_MAX)" == "4"
OPTDEFINES = $(OPTDEFINES) /DTCL_UTF_MAX=4
!endif
# _ATL_XP_TARGETING - Newer SDK's need this to build for XP
COMPILERFLAGS = /D_ATL_XP_TARGETING
!endif
# Like the TEA system only set this non empty for non-Tk extensions
# Note: some extensions use PACKAGE_NAME and others use PACKAGE_TCLNAME
@@ -1455,18 +1535,6 @@ lflags = -nologo -machine:$(MACHINE) $(LINKERFLAGS) $(ldebug)
lflags = $(lflags) -nodefaultlib:libucrt.lib
!endif
# Old linkers (Visual C++ 6 in particular) will link for fast loading
# on Win98. Since we do not support Win98 any more, we specify nowin98
# as recommended for NT and later. However, this is only required by
# IX86 on older compilers and only needed if we are not doing a static build.
!if "$(MACHINE)" == "IX86" && !$(STATIC_BUILD)
!if [nmakehlp -l -opt:nowin98 $(LINKER_TESTFLAGS)]
# Align sections for PE size savings.
lflags = $(lflags) -opt:nowin98
!endif
!endif
dlllflags = $(lflags) -dll
conlflags = $(lflags) -subsystem:console
guilflags = $(lflags) -subsystem:windows
@@ -1508,7 +1576,7 @@ GUIEXECMD = $(link32) $(guilflags) -out:$@ $(baselibs) $(tcllibs) $(tklibs)
RESCMD = $(rc32) -fo $@ -r -i "$(GENERICDIR)" -i "$(TMP_DIR)" \
$(TCL_INCLUDES) \
/DDEBUG=$(DEBUG) -d UNCHECKED=$(UNCHECKED) \
/DCOMMAVERSION=$(DOTVERSION:.=,),0 \
/DCOMMAVERSION=$(RCCOMMAVERSION) \
/DDOTVERSION=\"$(DOTVERSION)\" \
/DVERSION=\"$(VERSION)\" \
/DSUFX=\"$(SUFX)\" \
@@ -1524,11 +1592,11 @@ default-target: $(DEFAULT_BUILD_TARGET)
!if $(MULTIPLATFORM_INSTALL)
default-pkgindex:
@echo package ifneeded $(PRJ_PACKAGE_TCLNAME) $(DOTVERSION) \
[list load [file join $$dir $(PLATFORM_IDENTIFY) $(PRJLIBNAME)]] > $(OUT_DIR)\pkgIndex.tcl
[list load [file join $$dir $(PLATFORM_IDENTIFY) $(PRJLIBNAME)] [string totitle $(PRJ_PACKAGE_TCLNAME)]] > $(OUT_DIR)\pkgIndex.tcl
!else
default-pkgindex:
@echo package ifneeded $(PRJ_PACKAGE_TCLNAME) $(DOTVERSION) \
[list load [file join $$dir $(PRJLIBNAME)]] > $(OUT_DIR)\pkgIndex.tcl
[list load [file join $$dir $(PRJLIBNAME)] [string totitle $(PRJ_PACKAGE_TCLNAME)]] > $(OUT_DIR)\pkgIndex.tcl
!endif
default-pkgindex-tea:
@@ -1574,6 +1642,8 @@ default-install-pdbs:
@if not exist "$(LIB_INSTALL_DIR)" mkdir "$(LIB_INSTALL_DIR)"
@$(CPY) "$(OUT_DIR)\*.pdb" "$(LIB_INSTALL_DIR)\"
# "emacs font-lock highlighting fix
default-install-docs-html:
@echo Installing documentation files to '$(DOC_INSTALL_DIR)'
@if not exist "$(DOC_INSTALL_DIR)" mkdir "$(DOC_INSTALL_DIR)"
@@ -1636,7 +1706,7 @@ default-shell: default-setup $(PROJECT)
!ifdef RCFILE
# Note: don't use $** in below rule because there may be other dependencies
# and only the "master" rc must be passed to the resource compiler
# and only the "main" rc must be passed to the resource compiler
$(TMP_DIR)\$(PROJECT).res: $(RCDIR)\$(PROJECT).rc
$(RESCMD) $(RCDIR)\$(PROJECT).rc
@@ -1690,7 +1760,7 @@ DISABLE_IMPLICIT_RULES = 0
!if !$(DISABLE_IMPLICIT_RULES)
# Implicit rule definitions - only for building library objects. For stubs and
# main application, the master makefile should define explicit rules.
# main application, the makefile should define explicit rules.
{$(ROOT)}.c{$(TMP_DIR)}.obj::
$(CCPKGCMD) @<<
@@ -1731,15 +1801,15 @@ $<
# When building an extension, certain configuration options should
# match the ones used when Tcl was built. Here we check and
# warn on a mismatch.
!if ! $(DOING_TCL)
!if !$(DOING_TCL)
!if $(TCLINSTALL) # Building against an installed Tcl
!if exist("$(_TCLDIR)\lib\nmake\tcl.nmake")
TCLNMAKECONFIG = "$(_TCLDIR)\lib\nmake\tcl.nmake"
!endif
!else # ! $(TCLINSTALL) - building against Tcl source
!if exist("$(OUT_DIR)\tcl.nmake")
TCLNMAKECONFIG = "$(OUT_DIR)\tcl.nmake"
!else # !$(TCLINSTALL) - building against Tcl source
!if exist("$(_TCLDIR)\win\$(BUILDDIRTOP)\tcl.nmake")
TCLNMAKECONFIG = "$(_TCLDIR)\win\$(BUILDDIRTOP)\tcl.nmake"
!endif
!endif # TCLINSTALL
@@ -1760,7 +1830,7 @@ TCLNMAKECONFIG = "$(OUT_DIR)\tcl.nmake"
!endif # TCLNMAKECONFIG
!endif # ! $(DOING_TCL)
!endif # !$(DOING_TCL)
#----------------------------------------------------------

2
amd64/lib/nmake/targets.vc
View File

@@ -4,7 +4,7 @@
# Part of the nmake based build system for Tcl and its extensions.
# This file defines some standard targets for the convenience of extensions
# and can be optionally included by the extension makefile.
# See TIP 477 (https://core.tcl-lang.org/tips/doc/trunk/tip/477.md) for docs.
# See TIP 477 (https://core.tcl-lang.org/tips/doc/main/tip/477.md) for docs.
$(PROJECT): setup pkgindex $(PRJLIB)

8
amd64/lib/reg1.3/pkgIndex.tcl
View File

@@ -1,9 +1,9 @@
if {![package vsatisfies [package provide Tcl] 8.5]} return
if {[info sharedlibextension] != ".dll"} return
if {[::tcl::pkgconfig get debug]} {
package ifneeded registry 1.3.4 \
[list load [file join $dir tclreg13g.dll] registry]
package ifneeded registry 1.3.5 \
[list load [file join $dir tclreg13g.dll] Registry]
} else {
package ifneeded registry 1.3.4 \
[list load [file join $dir tclreg13.dll] registry]
package ifneeded registry 1.3.5 \
[list load [file join $dir tclreg13.dll] Registry]
}

BIN
amd64/lib/reg1.3/tclreg13.dll
View File

Binary file not shown.

16
amd64/lib/tcl8.6/auto.tcl
View File

@@ -240,6 +240,7 @@ proc auto_mkindex_old {dir args} {
set f ""
set error [catch {
set f [open $file]
fconfigure $f -eofchar \032
while {[gets $f line] >= 0} {
if {[regexp {^proc[ ]+([^ ]*)} $line match procName]} {
set procName [lindex [auto_qualify $procName "::"] 0]
@@ -350,6 +351,7 @@ proc auto_mkindex_parser::mkindex {file} {
set scriptFile $file
set fid [open $file]
fconfigure $fid -eofchar \032
set contents [read $fid]
close $fid
@@ -376,10 +378,10 @@ proc auto_mkindex_parser::mkindex {file} {
# auto_mkindex_parser::hook command
#
# Registers a Tcl command to evaluate when initializing the slave interpreter
# used by the mkindex parser. The command is evaluated in the master
# Registers a Tcl command to evaluate when initializing the child interpreter
# used by the mkindex parser. The command is evaluated in the parent
# interpreter, and can use the variable auto_mkindex_parser::parser to get to
# the slave
# the child
proc auto_mkindex_parser::hook {cmd} {
variable initCommands
@@ -389,14 +391,14 @@ proc auto_mkindex_parser::hook {cmd} {
# auto_mkindex_parser::slavehook command
#
# Registers a Tcl command to evaluate when initializing the slave interpreter
# used by the mkindex parser. The command is evaluated in the slave
# Registers a Tcl command to evaluate when initializing the child interpreter
# used by the mkindex parser. The command is evaluated in the child
# interpreter.
proc auto_mkindex_parser::slavehook {cmd} {
variable initCommands
# The $parser variable is defined to be the name of the slave interpreter
# The $parser variable is defined to be the name of the child interpreter
# when this command is used later.
lappend initCommands "\$parser eval [list $cmd]"
@@ -550,7 +552,7 @@ auto_mkindex_parser::command proc {name args} {
# Conditionally add support for Tcl byte code files. There are some tricky
# details here. First, we need to get the tbcload library initialized in the
# current interpreter. We cannot load tbcload into the slave until we have
# current interpreter. We cannot load tbcload into the child until we have
# done so because it needs access to the tcl_patchLevel variable. Second,
# because the package index file may defer loading the library until we invoke
# a command, we need to explicitly invoke auto_load to force it to be loaded.

8
amd64/lib/tcl8.6/clock.tcl
View File

@@ -9,7 +9,7 @@
#
#----------------------------------------------------------------------
#
# Copyright (c) 2004,2005,2006,2007 by Kevin B. Kenny
# Copyright (c) 2004-2007 Kevin B. Kenny
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
@@ -3304,7 +3304,7 @@ proc ::tcl::clock::LoadTimeZoneFile { fileName } {
return
}
# Since an unsafe interp uses the [clock] command in the master, this code
# Since an unsafe interp uses the [clock] command in the parent, this code
# is security sensitive. Make sure that the path name cannot escape the
# given directory.
@@ -3344,7 +3344,7 @@ proc ::tcl::clock::LoadTimeZoneFile { fileName } {
proc ::tcl::clock::LoadZoneinfoFile { fileName } {
variable ZoneinfoPaths
# Since an unsafe interp uses the [clock] command in the master, this code
# Since an unsafe interp uses the [clock] command in the parent, this code
# is security sensitive. Make sure that the path name cannot escape the
# given directory.
@@ -3452,7 +3452,7 @@ proc ::tcl::clock::ReadZoneinfoFile {fileName fname} {
set times [linsert $times 0 $MINWIDE]
set codes {}
foreach c $tempCodes {
lappend codes [expr { $c & 0xff }]
lappend codes [expr { $c & 0xFF }]
}
set codes [linsert $codes 0 0]

2
amd64/lib/tcl8.6/encoding/tis-620.enc
View File

@@ -17,4 +17,4 @@ S
0E200E210E220E230E240E250E260E270E280E290E2A0E2B0E2C0E2D0E2E0E2F
0E300E310E320E330E340E350E360E370E380E390E3A00000000000000000E3F
0E400E410E420E430E440E450E460E470E480E490E4A0E4B0E4C0E4D0E4E0E4F
0E500E510E520E530E540E550E560E570E580E590E5A0E5B0000000000000000
0E500E510E520E530E540E550E560E570E580E590E5A0E5B0000000000000000

58
amd64/lib/tcl8.6/init.tcl
View File

@@ -6,7 +6,7 @@
# Copyright (c) 1991-1993 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 Scriptics Corporation.
# Copyright (c) 2004 by Kevin B. Kenny. All rights reserved.
# Copyright (c) 2004 Kevin B. Kenny. All rights reserved.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
@@ -16,7 +16,7 @@
if {[info commands package] == ""} {
error "version mismatch: library\nscripts expect Tcl version 7.5b1 or later but the loaded version is\nonly [info patchlevel]"
}
package require -exact Tcl 8.6.10
package require -exact Tcl 8.6.11
# Compute the auto path to use in this interpreter.
# The values on the path come from several locations:
@@ -37,41 +37,46 @@ package require -exact Tcl 8.6.10
# tcl_pkgPath, which is set by the platform-specific initialization routines
# On UNIX it is compiled in
# On Windows, it is not used
#
# (Ticket 41c9857bdd) In a safe interpreter, this file does not set
# ::auto_path (other than to {} if it is undefined). The caller, typically
# a Safe Base command, is responsible for setting ::auto_path.
if {![info exists auto_path]} {
if {[info exists env(TCLLIBPATH)]} {
if {[info exists env(TCLLIBPATH)] && (![interp issafe])} {
set auto_path $env(TCLLIBPATH)
} else {
set auto_path ""
}
}
namespace eval tcl {
variable Dir
foreach Dir [list $::tcl_library [file dirname $::tcl_library]] {
if {$Dir ni $::auto_path} {
lappend ::auto_path $Dir
}
}
set Dir [file join [file dirname [file dirname \
[info nameofexecutable]]] lib]
if {$Dir ni $::auto_path} {
lappend ::auto_path $Dir
}
catch {
foreach Dir $::tcl_pkgPath {
if {![interp issafe]} {
variable Dir
foreach Dir [list $::tcl_library [file dirname $::tcl_library]] {
if {$Dir ni $::auto_path} {
lappend ::auto_path $Dir
}
}
}
set Dir [file join [file dirname [file dirname \
[info nameofexecutable]]] lib]
if {$Dir ni $::auto_path} {
lappend ::auto_path $Dir
}
if {[info exists ::tcl_pkgPath]} { catch {
foreach Dir $::tcl_pkgPath {
if {$Dir ni $::auto_path} {
lappend ::auto_path $Dir
}
}
}}
if {![interp issafe]} {
variable Path [encoding dirs]
set Dir [file join $::tcl_library encoding]
if {$Dir ni $Path} {
variable Path [encoding dirs]
set Dir [file join $::tcl_library encoding]
if {$Dir ni $Path} {
lappend Path $Dir
encoding dirs $Path
}
}
unset Dir Path
}
# TIP #255 min and max functions
@@ -79,7 +84,7 @@ namespace eval tcl {
proc min {args} {
if {![llength $args]} {
return -code error \
"too few arguments to math function \"min\""
"not enough arguments to math function \"min\""
}
set val Inf
foreach arg $args {
@@ -95,7 +100,7 @@ namespace eval tcl {
proc max {args} {
if {![llength $args]} {
return -code error \
"too few arguments to math function \"max\""
"not enough arguments to math function \"max\""
}
set val -Inf
foreach arg $args {
@@ -308,7 +313,7 @@ proc unknown args {
set errInfo [string range $errInfo 0 $last-1]
set tail "\"$cinfo\""
set last [string last $tail $errInfo]
if {$last + [string length $tail] != [string length $errInfo]} {
if {$last < 0 || $last + [string length $tail] != [string length $errInfo]} {
return -code error -errorcode $errCode \
-errorinfo $errInfo $msg
}
@@ -489,6 +494,7 @@ proc auto_load_index {} {
continue
} else {
set error [catch {
fconfigure $f -eofchar \032
set id [gets $f]
if {$id eq "# Tcl autoload index file, version 2.0"} {
eval [read $f]
@@ -792,7 +798,7 @@ proc tcl::CopyDirectory {action src dest} {
}
}
} else {
if {[string first $nsrc $ndest] != -1} {
if {[string first $nsrc $ndest] >= 0} {
set srclen [expr {[llength [file split $nsrc]] - 1}]
set ndest [lindex [file split $ndest] $srclen]
if {$ndest eq [file tail $nsrc]} {

8
amd64/lib/tcl8.6/opt0.4/optparse.tcl
View File

@@ -8,10 +8,10 @@
# on it. If your code does rely on this package you
# may directly incorporate this code into your application.
package require Tcl 8.2
package require Tcl 8.5-
# When this version number changes, update the pkgIndex.tcl file
# and the install directory in the Makefiles.
package provide opt 0.4.6
package provide opt 0.4.8
namespace eval ::tcl {
@@ -44,8 +44,8 @@ namespace eval ::tcl {
{-intflag 7}
{-weirdflag "help string"}
{-noStatics "Not ok to load static packages"}
{-nestedloading1 true "OK to load into nested slaves"}
{-nestedloading2 -boolean true "OK to load into nested slaves"}
{-nestedloading1 true "OK to load into nested children"}
{-nestedloading2 -boolean true "OK to load into nested children"}
{-libsOK -choice {Tk SybTcl}
"List of packages that can be loaded"}
{-precision -int 12 "Number of digits of precision"}

4
amd64/lib/tcl8.6/opt0.4/pkgIndex.tcl
View File

@@ -8,5 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
if {![package vsatisfies [package provide Tcl] 8.2]} {return}
package ifneeded opt 0.4.6 [list source [file join $dir optparse.tcl]]
if {![package vsatisfies [package provide Tcl] 8.5-]} {return}
package ifneeded opt 0.4.8 [list source [file join $dir optparse.tcl]]

12
amd64/lib/tcl8.6/package.tcl
View File

@@ -237,7 +237,7 @@ proc pkg_mkIndex {args} {
$c eval [list set ::tcl::file $file]
$c eval [list set ::tcl::direct $direct]
# Download needed procedures into the slave because we've just deleted
# Download needed procedures into the child because we've just deleted
# the unknown procedure. This doesn't handle procedures with default
# arguments.
@@ -479,9 +479,12 @@ proc tclPkgUnknown {name args} {
}
set tclSeenPath($dir) 1
# we can't use glob in safe interps, so enclose the following in a
# catch statement, where we get the pkgIndex files out of the
# subdirectories
# Get the pkgIndex.tcl files in subdirectories of auto_path directories.
# - Safe Base interpreters have a restricted "glob" command that
# works in this case.
# - The "catch" was essential when there was no safe glob and every
# call in a safe interp failed; it is retained only for corner
# cases in which the eventual call to glob returns an error.
catch {
foreach file [glob -directory $dir -join -nocomplain \
* pkgIndex.tcl] {
@@ -585,6 +588,7 @@ proc tcl::MacOSXPkgUnknown {original name args} {
set tclSeenPath($dir) 1
# get the pkgIndex files out of the subdirectories
# Safe interpreters do not use tcl::MacOSXPkgUnknown - see init.tcl.
foreach file [glob -directory $dir -join -nocomplain \
* Resources Scripts pkgIndex.tcl] {
set dir [file dirname $file]

520
amd64/lib/tcl8.6/safe.tcl
View File

File diff suppressed because it is too large Load Diff

17
amd64/lib/tcl8.6/tm.tcl
View File

@@ -212,11 +212,12 @@ proc ::tcl::tm::UnknownHandler {original name args} {
}
set strip [llength [file split $path]]
# We can't use glob in safe interps, so enclose the following in a
# catch statement, where we get the module files out of the
# subdirectories. In other words, Tcl Modules are not-functional
# in such an interpreter. This is the same as for the command
# "tclPkgUnknown", i.e. the search for regular packages.
# Get the module files out of the subdirectories.
# - Safe Base interpreters have a restricted "glob" command that
# works in this case.
# - The "catch" was essential when there was no safe glob and every
# call in a safe interp failed; it is retained only for corner
# cases in which the eventual call to glob returns an error.
catch {
# We always look for _all_ possible modules in the current
@@ -238,12 +239,16 @@ proc ::tcl::tm::UnknownHandler {original name args} {
continue
}
if {[package ifneeded $pkgname $pkgversion] ne {}} {
if {([package ifneeded $pkgname $pkgversion] ne {})
&& (![interp issafe])
} {
# There's already a provide script registered for
# this version of this package. Since all units of
# code claiming to be the same version of the same
# package ought to be identical, just stick with
# the one we already have.
# This does not apply to Safe Base interpreters because
# the token-to-directory mapping may have changed.
continue
}

108
amd64/lib/tcl8.6/tzdata/Africa/Accra
View File

@@ -2,51 +2,65 @@
set TZData(:Africa/Accra) {
{-9223372036854775808 -52 0 LMT}
{-1640995148 0 0 GMT}
{-1556841600 1200 1 GMT}
{-1546388400 0 0 GMT}
{-1525305600 1200 1 GMT}
{-1514852400 0 0 GMT}
{-1493769600 1200 1 GMT}
{-1483316400 0 0 GMT}
{-1462233600 1200 1 GMT}
{-1451780400 0 0 GMT}
{-1430611200 1200 1 GMT}
{-1420158000 0 0 GMT}
{-1399075200 1200 1 GMT}
{-1388622000 0 0 GMT}
{-1367539200 1200 1 GMT}
{-1357086000 0 0 GMT}
{-1336003200 1200 1 GMT}
{-1325550000 0 0 GMT}
{-1304380800 1200 1 GMT}
{-1293927600 0 0 GMT}
{-1272844800 1200 1 GMT}
{-1262391600 0 0 GMT}
{-1241308800 1200 1 GMT}
{-1230855600 0 0 GMT}
{-1209772800 1200 1 GMT}
{-1199319600 0 0 GMT}
{-1178150400 1200 1 GMT}
{-1167697200 0 0 GMT}
{-1146614400 1200 1 GMT}
{-1136161200 0 0 GMT}
{-1115078400 1200 1 GMT}
{-1104625200 0 0 GMT}
{-1083542400 1200 1 GMT}
{-1073089200 0 0 GMT}
{-1051920000 1200 1 GMT}
{-1041466800 0 0 GMT}
{-1020384000 1200 1 GMT}
{-1009930800 0 0 GMT}
{-988848000 1200 1 GMT}
{-978394800 0 0 GMT}
{-957312000 1200 1 GMT}
{-946858800 0 0 GMT}
{-925689600 1200 1 GMT}
{-915236400 0 0 GMT}
{-894153600 1200 1 GMT}
{-883700400 0 0 GMT}
{-862617600 1200 1 GMT}
{-852164400 0 0 GMT}
{-1709337548 0 0 GMT}
{-1581206400 1200 1 +0020}
{-1577917200 0 0 GMT}
{-1556834400 1200 1 +0020}
{-1546294800 0 0 GMT}
{-1525298400 1200 1 +0020}
{-1514758800 0 0 GMT}
{-1493762400 1200 1 +0020}
{-1483222800 0 0 GMT}
{-1462226400 1200 1 +0020}
{-1451686800 0 0 GMT}
{-1430604000 1200 1 +0020}
{-1420064400 0 0 GMT}
{-1399068000 1200 1 +0020}
{-1388528400 0 0 GMT}
{-1367532000 1200 1 +0020}
{-1356992400 0 0 GMT}
{-1335996000 1200 1 +0020}
{-1325456400 0 0 GMT}
{-1304373600 1200 1 +0020}
{-1293834000 0 0 GMT}
{-1272837600 1200 1 +0020}
{-1262298000 0 0 GMT}
{-1241301600 1200 1 +0020}
{-1230762000 0 0 GMT}
{-1209765600 1200 1 +0020}
{-1199226000 0 0 GMT}
{-1178143200 1200 1 +0020}
{-1167603600 0 0 GMT}
{-1146607200 1200 1 +0020}
{-1136067600 0 0 GMT}
{-1115071200 1200 1 +0020}
{-1104531600 0 0 GMT}
{-1083535200 1200 1 +0020}
{-1072995600 0 0 GMT}
{-1051912800 1200 1 +0020}
{-1041373200 0 0 GMT}
{-1020376800 1200 1 +0020}
{-1009837200 0 0 GMT}
{-988840800 1200 1 +0020}
{-978301200 0 0 GMT}
{-957304800 1200 1 +0020}
{-946765200 0 0 GMT}
{-936309600 1200 1 +0020}
{-915142800 0 0 GMT}
{-904773600 1200 1 +0020}
{-883606800 0 0 GMT}
{-880329600 1800 0 +0030}
{-756952200 0 0 GMT}
{-610149600 1800 1 +0030}
{-599610600 0 0 GMT}
{-578613600 1800 1 +0030}
{-568074600 0 0 GMT}
{-546991200 1800 1 +0030}
{-536452200 0 0 GMT}
{-515455200 1800 1 +0030}
{-504916200 0 0 GMT}
{-483919200 1800 1 +0030}
{-473380200 0 0 GMT}
{-452383200 1800 1 +0030}
{-441844200 0 0 GMT}
}

2
amd64/lib/tcl8.6/tzdata/Africa/Algiers
View File

@@ -2,7 +2,7 @@
set TZData(:Africa/Algiers) {
{-9223372036854775808 732 0 LMT}
{-2486679072 561 0 PMT}
{-2486592732 561 0 PMT}
{-1855958961 0 0 WET}
{-1689814800 3600 1 WEST}
{-1680397200 0 0 WET}

44
amd64/lib/tcl8.6/tzdata/Africa/Casablanca
View File

@@ -60,13 +60,13 @@ set TZData(:Africa/Casablanca) {
{1557021600 0 1 +01}
{1560045600 3600 0 +01}
{1587261600 0 1 +01}
{1590285600 3600 0 +01}
{1590890400 3600 0 +01}
{1618106400 0 1 +01}
{1621130400 3600 0 +01}
{1648346400 0 1 +01}
{1651975200 3600 0 +01}
{1679191200 0 1 +01}
{1682215200 3600 0 +01}
{1682820000 3600 0 +01}
{1710036000 0 1 +01}
{1713060000 3600 0 +01}
{1740276000 0 1 +01}
@@ -76,13 +76,13 @@ set TZData(:Africa/Casablanca) {
{1801965600 0 1 +01}
{1804989600 3600 0 +01}
{1832205600 0 1 +01}
{1835229600 3600 0 +01}
{1835834400 3600 0 +01}
{1863050400 0 1 +01}
{1866074400 3600 0 +01}
{1893290400 0 1 +01}
{1896919200 3600 0 +01}
{1924135200 0 1 +01}
{1927159200 3600 0 +01}
{1927764000 3600 0 +01}
{1954980000 0 1 +01}
{1958004000 3600 0 +01}
{1985220000 0 1 +01}
@@ -92,13 +92,13 @@ set TZData(:Africa/Casablanca) {
{2046304800 0 1 +01}
{2049933600 3600 0 +01}
{2077149600 0 1 +01}
{2080173600 3600 0 +01}
{2080778400 3600 0 +01}
{2107994400 0 1 +01}
{2111018400 3600 0 +01}
{2138234400 0 1 +01}
{2141863200 3600 0 +01}
{2169079200 0 1 +01}
{2172103200 3600 0 +01}
{2172708000 3600 0 +01}
{2199924000 0 1 +01}
{2202948000 3600 0 +01}
{2230164000 0 1 +01}
@@ -108,13 +108,13 @@ set TZData(:Africa/Casablanca) {
{2291248800 0 1 +01}
{2294877600 3600 0 +01}
{2322093600 0 1 +01}
{2325117600 3600 0 +01}
{2325722400 3600 0 +01}
{2352938400 0 1 +01}
{2355962400 3600 0 +01}
{2383178400 0 1 +01}
{2386807200 3600 0 +01}
{2414023200 0 1 +01}
{2417047200 3600 0 +01}
{2417652000 3600 0 +01}
{2444868000 0 1 +01}
{2447892000 3600 0 +01}
{2475108000 0 1 +01}
@@ -124,13 +124,13 @@ set TZData(:Africa/Casablanca) {
{2536192800 0 1 +01}
{2539821600 3600 0 +01}
{2567037600 0 1 +01}
{2570061600 3600 0 +01}
{2570666400 3600 0 +01}
{2597882400 0 1 +01}
{2600906400 3600 0 +01}
{2628122400 0 1 +01}
{2631751200 3600 0 +01}
{2658967200 0 1 +01}
{2661991200 3600 0 +01}
{2662596000 3600 0 +01}
{2689812000 0 1 +01}
{2692836000 3600 0 +01}
{2720052000 0 1 +01}
@@ -140,63 +140,63 @@ set TZData(:Africa/Casablanca) {
{2781136800 0 1 +01}
{2784765600 3600 0 +01}
{2811981600 0 1 +01}
{2815005600 3600 0 +01}
{2815610400 3600 0 +01}
{2842826400 0 1 +01}
{2845850400 3600 0 +01}
{2873066400 0 1 +01}
{2876695200 3600 0 +01}
{2903911200 0 1 +01}
{2906935200 3600 0 +01}
{2907540000 3600 0 +01}
{2934756000 0 1 +01}
{2937780000 3600 0 +01}
{2964996000 0 1 +01}
{2968020000 3600 0 +01}
{2968624800 3600 0 +01}
{2995840800 0 1 +01}
{2998864800 3600 0 +01}
{3026080800 0 1 +01}
{3029709600 3600 0 +01}
{3056925600 0 1 +01}
{3059949600 3600 0 +01}
{3060554400 3600 0 +01}
{3087770400 0 1 +01}
{3090794400 3600 0 +01}
{3118010400 0 1 +01}
{3121639200 3600 0 +01}
{3148855200 0 1 +01}
{3151879200 3600 0 +01}
{3152484000 3600 0 +01}
{3179700000 0 1 +01}
{3182724000 3600 0 +01}
{3209940000 0 1 +01}
{3212964000 3600 0 +01}
{3213568800 3600 0 +01}
{3240784800 0 1 +01}
{3243808800 3600 0 +01}
{3271024800 0 1 +01}
{3274653600 3600 0 +01}
{3301869600 0 1 +01}
{3304893600 3600 0 +01}
{3305498400 3600 0 +01}
{3332714400 0 1 +01}
{3335738400 3600 0 +01}
{3362954400 0 1 +01}
{3366583200 3600 0 +01}
{3393799200 0 1 +01}
{3396823200 3600 0 +01}
{3397428000 3600 0 +01}
{3424644000 0 1 +01}
{3427668000 3600 0 +01}
{3454884000 0 1 +01}
{3457908000 3600 0 +01}
{3458512800 3600 0 +01}
{3485728800 0 1 +01}
{3488752800 3600 0 +01}
{3515968800 0 1 +01}
{3519597600 3600 0 +01}
{3546813600 0 1 +01}
{3549837600 3600 0 +01}
{3550442400 3600 0 +01}
{3577658400 0 1 +01}
{3580682400 3600 0 +01}
{3607898400 0 1 +01}
{3611527200 3600 0 +01}
{3638743200 0 1 +01}
{3641767200 3600 0 +01}
{3642372000 3600 0 +01}
{3669588000 0 1 +01}
{3672612000 3600 0 +01}
{3699828000 0 1 +01}
{3702852000 3600 0 +01}
{3703456800 3600 0 +01}
}

44
amd64/lib/tcl8.6/tzdata/Africa/El_Aaiun
View File

@@ -49,13 +49,13 @@ set TZData(:Africa/El_Aaiun) {
{1557021600 0 1 +01}
{1560045600 3600 0 +01}
{1587261600 0 1 +01}
{1590285600 3600 0 +01}
{1590890400 3600 0 +01}
{1618106400 0 1 +01}
{1621130400 3600 0 +01}
{1648346400 0 1 +01}
{1651975200 3600 0 +01}
{1679191200 0 1 +01}
{1682215200 3600 0 +01}
{1682820000 3600 0 +01}
{1710036000 0 1 +01}
{1713060000 3600 0 +01}
{1740276000 0 1 +01}
@@ -65,13 +65,13 @@ set TZData(:Africa/El_Aaiun) {
{1801965600 0 1 +01}
{1804989600 3600 0 +01}
{1832205600 0 1 +01}
{1835229600 3600 0 +01}
{1835834400 3600 0 +01}
{1863050400 0 1 +01}
{1866074400 3600 0 +01}
{1893290400 0 1 +01}
{1896919200 3600 0 +01}
{1924135200 0 1 +01}
{1927159200 3600 0 +01}
{1927764000 3600 0 +01}
{1954980000 0 1 +01}
{1958004000 3600 0 +01}
{1985220000 0 1 +01}
@@ -81,13 +81,13 @@ set TZData(:Africa/El_Aaiun) {
{2046304800 0 1 +01}
{2049933600 3600 0 +01}
{2077149600 0 1 +01}
{2080173600 3600 0 +01}
{2080778400 3600 0 +01}
{2107994400 0 1 +01}
{2111018400 3600 0 +01}
{2138234400 0 1 +01}
{2141863200 3600 0 +01}
{2169079200 0 1 +01}
{2172103200 3600 0 +01}
{2172708000 3600 0 +01}
{2199924000 0 1 +01}
{2202948000 3600 0 +01}
{2230164000 0 1 +01}
@@ -97,13 +97,13 @@ set TZData(:Africa/El_Aaiun) {
{2291248800 0 1 +01}
{2294877600 3600 0 +01}
{2322093600 0 1 +01}
{2325117600 3600 0 +01}
{2325722400 3600 0 +01}
{2352938400 0 1 +01}
{2355962400 3600 0 +01}
{2383178400 0 1 +01}
{2386807200 3600 0 +01}
{2414023200 0 1 +01}
{2417047200 3600 0 +01}
{2417652000 3600 0 +01}
{2444868000 0 1 +01}
{2447892000 3600 0 +01}
{2475108000 0 1 +01}
@@ -113,13 +113,13 @@ set TZData(:Africa/El_Aaiun) {
{2536192800 0 1 +01}
{2539821600 3600 0 +01}
{2567037600 0 1 +01}
{2570061600 3600 0 +01}
{2570666400 3600 0 +01}
{2597882400 0 1 +01}
{2600906400 3600 0 +01}
{2628122400 0 1 +01}
{2631751200 3600 0 +01}
{2658967200 0 1 +01}
{2661991200 3600 0 +01}
{2662596000 3600 0 +01}
{2689812000 0 1 +01}
{2692836000 3600 0 +01}
{2720052000 0 1 +01}
@@ -129,63 +129,63 @@ set TZData(:Africa/El_Aaiun) {
{2781136800 0 1 +01}
{2784765600 3600 0 +01}
{2811981600 0 1 +01}
{2815005600 3600 0 +01}
{2815610400 3600 0 +01}
{2842826400 0 1 +01}
{2845850400 3600 0 +01}
{2873066400 0 1 +01}
{2876695200 3600 0 +01}
{2903911200 0 1 +01}
{2906935200 3600 0 +01}
{2907540000 3600 0 +01}
{2934756000 0 1 +01}
{2937780000 3600 0 +01}
{2964996000 0 1 +01}
{2968020000 3600 0 +01}
{2968624800 3600 0 +01}
{2995840800 0 1 +01}
{2998864800 3600 0 +01}
{3026080800 0 1 +01}
{3029709600 3600 0 +01}
{3056925600 0 1 +01}
{3059949600 3600 0 +01}
{3060554400 3600 0 +01}
{3087770400 0 1 +01}
{3090794400 3600 0 +01}
{3118010400 0 1 +01}
{3121639200 3600 0 +01}
{3148855200 0 1 +01}
{3151879200 3600 0 +01}
{3152484000 3600 0 +01}
{3179700000 0 1 +01}
{3182724000 3600 0 +01}
{3209940000 0 1 +01}
{3212964000 3600 0 +01}
{3213568800 3600 0 +01}
{3240784800 0 1 +01}
{3243808800 3600 0 +01}
{3271024800 0 1 +01}
{3274653600 3600 0 +01}
{3301869600 0 1 +01}
{3304893600 3600 0 +01}
{3305498400 3600 0 +01}
{3332714400 0 1 +01}
{3335738400 3600 0 +01}
{3362954400 0 1 +01}
{3366583200 3600 0 +01}
{3393799200 0 1 +01}
{3396823200 3600 0 +01}
{3397428000 3600 0 +01}
{3424644000 0 1 +01}
{3427668000 3600 0 +01}
{3454884000 0 1 +01}
{3457908000 3600 0 +01}
{3458512800 3600 0 +01}
{3485728800 0 1 +01}
{3488752800 3600 0 +01}
{3515968800 0 1 +01}
{3519597600 3600 0 +01}
{3546813600 0 1 +01}
{3549837600 3600 0 +01}
{3550442400 3600 0 +01}
{3577658400 0 1 +01}
{3580682400 3600 0 +01}
{3607898400 0 1 +01}
{3611527200 3600 0 +01}
{3638743200 0 1 +01}
{3641767200 3600 0 +01}
{3642372000 3600 0 +01}
{3669588000 0 1 +01}
{3672612000 3600 0 +01}
{3699828000 0 1 +01}
{3702852000 3600 0 +01}
{3703456800 3600 0 +01}
}

7
amd64/lib/tcl8.6/tzdata/Africa/Lagos
View File

@@ -1,6 +1,9 @@
# created by tools/tclZIC.tcl - do not edit
set TZData(:Africa/Lagos) {
{-9223372036854775808 816 0 LMT}
{-1588464816 3600 0 WAT}
{-9223372036854775808 815 0 LMT}
{-2035584815 0 0 GMT}
{-1940889600 815 0 LMT}
{-1767226415 1800 0 +0030}
{-1588465800 3600 0 WAT}
}

9
amd64/lib/tcl8.6/tzdata/Africa/Nairobi
View File

@@ -2,8 +2,9 @@
set TZData(:Africa/Nairobi) {
{-9223372036854775808 8836 0 LMT}
{-1309746436 10800 0 EAT}
{-1262314800 9000 0 +0230}
{-946780200 9900 0 +0245}
{-315629100 10800 0 EAT}
{-1946168836 9000 0 +0230}
{-1309746600 10800 0 EAT}
{-1261969200 9000 0 +0230}
{-1041388200 9900 0 +0245}
{-865305900 10800 0 EAT}
}

47
amd64/lib/tcl8.6/tzdata/America/Belize
View File

@@ -51,8 +51,51 @@ set TZData(:America/Belize) {
{-911759400 -21600 0 CST}
{-891194400 -19800 1 -0530}
{-879705000 -21600 0 CST}
{-859744800 -19800 1 -0530}
{-848255400 -21600 0 CST}
{-868212000 -18000 1 CWT}
{-769395600 -18000 1 CPT}
{-758746800 -21600 0 CST}
{-701892000 -19800 1 -0530}
{-690402600 -21600 0 CST}
{-670442400 -19800 1 -0530}
{-658953000 -21600 0 CST}
{-638992800 -19800 1 -0530}
{-627503400 -21600 0 CST}
{-606938400 -19800 1 -0530}
{-596053800 -21600 0 CST}
{-575488800 -19800 1 -0530}
{-564604200 -21600 0 CST}
{-544039200 -19800 1 -0530}
{-532549800 -21600 0 CST}
{-512589600 -19800 1 -0530}
{-501100200 -21600 0 CST}
{-481140000 -19800 1 -0530}
{-469650600 -21600 0 CST}
{-449690400 -19800 1 -0530}
{-438201000 -21600 0 CST}
{-417636000 -19800 1 -0530}
{-406751400 -21600 0 CST}
{-386186400 -19800 1 -0530}
{-375301800 -21600 0 CST}
{-354736800 -19800 1 -0530}
{-343247400 -21600 0 CST}
{-323287200 -19800 1 -0530}
{-311797800 -21600 0 CST}
{-291837600 -19800 1 -0530}
{-280348200 -21600 0 CST}
{-259783200 -19800 1 -0530}
{-248898600 -21600 0 CST}
{-228333600 -19800 1 -0530}
{-217449000 -21600 0 CST}
{-196884000 -19800 1 -0530}
{-185999400 -21600 0 CST}
{-165434400 -19800 1 -0530}
{-153945000 -21600 0 CST}
{-133984800 -19800 1 -0530}
{-122495400 -21600 0 CST}
{-102535200 -19800 1 -0530}
{-91045800 -21600 0 CST}
{-70480800 -19800 1 -0530}
{-59596200 -21600 0 CST}
{123919200 -18000 1 CDT}
{129618000 -21600 0 CST}
{409039200 -18000 1 CDT}

160
amd64/lib/tcl8.6/tzdata/America/Dawson
View File

@@ -94,163 +94,5 @@ set TZData(:America/Dawson) {
{1552212000 -25200 1 PDT}
{1572771600 -28800 0 PST}
{1583661600 -25200 1 PDT}
{1604221200 -28800 0 PST}
{1615716000 -25200 1 PDT}
{1636275600 -28800 0 PST}
{1647165600 -25200 1 PDT}
{1667725200 -28800 0 PST}
{1678615200 -25200 1 PDT}
{1699174800 -28800 0 PST}
{1710064800 -25200 1 PDT}
{1730624400 -28800 0 PST}
{1741514400 -25200 1 PDT}
{1762074000 -28800 0 PST}
{1772964000 -25200 1 PDT}
{1793523600 -28800 0 PST}
{1805018400 -25200 1 PDT}
{1825578000 -28800 0 PST}
{1836468000 -25200 1 PDT}
{1857027600 -28800 0 PST}
{1867917600 -25200 1 PDT}
{1888477200 -28800 0 PST}
{1899367200 -25200 1 PDT}
{1919926800 -28800 0 PST}
{1930816800 -25200 1 PDT}
{1951376400 -28800 0 PST}
{1962871200 -25200 1 PDT}
{1983430800 -28800 0 PST}
{1994320800 -25200 1 PDT}
{2014880400 -28800 0 PST}
{2025770400 -25200 1 PDT}
{2046330000 -28800 0 PST}
{2057220000 -25200 1 PDT}
{2077779600 -28800 0 PST}
{2088669600 -25200 1 PDT}
{2109229200 -28800 0 PST}
{2120119200 -25200 1 PDT}
{2140678800 -28800 0 PST}
{2152173600 -25200 1 PDT}
{2172733200 -28800 0 PST}
{2183623200 -25200 1 PDT}
{2204182800 -28800 0 PST}
{2215072800 -25200 1 PDT}
{2235632400 -28800 0 PST}
{2246522400 -25200 1 PDT}
{2267082000 -28800 0 PST}
{2277972000 -25200 1 PDT}
{2298531600 -28800 0 PST}
{2309421600 -25200 1 PDT}
{2329981200 -28800 0 PST}
{2341476000 -25200 1 PDT}
{2362035600 -28800 0 PST}
{2372925600 -25200 1 PDT}
{2393485200 -28800 0 PST}
{2404375200 -25200 1 PDT}
{2424934800 -28800 0 PST}
{2435824800 -25200 1 PDT}
{2456384400 -28800 0 PST}
{2467274400 -25200 1 PDT}
{2487834000 -28800 0 PST}
{2499328800 -25200 1 PDT}
{2519888400 -28800 0 PST}
{2530778400 -25200 1 PDT}
{2551338000 -28800 0 PST}
{2562228000 -25200 1 PDT}
{2582787600 -28800 0 PST}
{2593677600 -25200 1 PDT}
{2614237200 -28800 0 PST}
{2625127200 -25200 1 PDT}
{2645686800 -28800 0 PST}
{2656576800 -25200 1 PDT}
{2677136400 -28800 0 PST}
{2688631200 -25200 1 PDT}
{2709190800 -28800 0 PST}
{2720080800 -25200 1 PDT}
{2740640400 -28800 0 PST}
{2751530400 -25200 1 PDT}
{2772090000 -28800 0 PST}
{2782980000 -25200 1 PDT}
{2803539600 -28800 0 PST}
{2814429600 -25200 1 PDT}
{2834989200 -28800 0 PST}
{2846484000 -25200 1 PDT}
{2867043600 -28800 0 PST}
{2877933600 -25200 1 PDT}
{2898493200 -28800 0 PST}
{2909383200 -25200 1 PDT}
{2929942800 -28800 0 PST}
{2940832800 -25200 1 PDT}
{2961392400 -28800 0 PST}
{2972282400 -25200 1 PDT}
{2992842000 -28800 0 PST}
{3003732000 -25200 1 PDT}
{3024291600 -28800 0 PST}
{3035786400 -25200 1 PDT}
{3056346000 -28800 0 PST}
{3067236000 -25200 1 PDT}
{3087795600 -28800 0 PST}
{3098685600 -25200 1 PDT}
{3119245200 -28800 0 PST}
{3130135200 -25200 1 PDT}
{3150694800 -28800 0 PST}
{3161584800 -25200 1 PDT}
{3182144400 -28800 0 PST}
{3193034400 -25200 1 PDT}
{3213594000 -28800 0 PST}
{3225088800 -25200 1 PDT}
{3245648400 -28800 0 PST}
{3256538400 -25200 1 PDT}
{3277098000 -28800 0 PST}
{3287988000 -25200 1 PDT}
{3308547600 -28800 0 PST}
{3319437600 -25200 1 PDT}
{3339997200 -28800 0 PST}
{3350887200 -25200 1 PDT}
{3371446800 -28800 0 PST}
{3382941600 -25200 1 PDT}
{3403501200 -28800 0 PST}
{3414391200 -25200 1 PDT}
{3434950800 -28800 0 PST}
{3445840800 -25200 1 PDT}
{3466400400 -28800 0 PST}
{3477290400 -25200 1 PDT}
{3497850000 -28800 0 PST}
{3508740000 -25200 1 PDT}
{3529299600 -28800 0 PST}
{3540189600 -25200 1 PDT}
{3560749200 -28800 0 PST}
{3572244000 -25200 1 PDT}
{3592803600 -28800 0 PST}
{3603693600 -25200 1 PDT}
{3624253200 -28800 0 PST}
{3635143200 -25200 1 PDT}
{3655702800 -28800 0 PST}
{3666592800 -25200 1 PDT}
{3687152400 -28800 0 PST}
{3698042400 -25200 1 PDT}
{3718602000 -28800 0 PST}
{3730096800 -25200 1 PDT}
{3750656400 -28800 0 PST}
{3761546400 -25200 1 PDT}
{3782106000 -28800 0 PST}
{3792996000 -25200 1 PDT}
{3813555600 -28800 0 PST}
{3824445600 -25200 1 PDT}
{3845005200 -28800 0 PST}
{3855895200 -25200 1 PDT}
{3876454800 -28800 0 PST}
{3887344800 -25200 1 PDT}
{3907904400 -28800 0 PST}
{3919399200 -25200 1 PDT}
{3939958800 -28800 0 PST}
{3950848800 -25200 1 PDT}
{3971408400 -28800 0 PST}
{3982298400 -25200 1 PDT}
{4002858000 -28800 0 PST}
{4013748000 -25200 1 PDT}
{4034307600 -28800 0 PST}
{4045197600 -25200 1 PDT}
{4065757200 -28800 0 PST}
{4076647200 -25200 1 PDT}
{4097206800 -28800 0 PST}
{1604217600 -25200 0 MST}
}

247
amd64/lib/tcl8.6/tzdata/America/Godthab
View File

@@ -1,246 +1,5 @@
# created by tools/tclZIC.tcl - do not edit
set TZData(:America/Godthab) {
{-9223372036854775808 -12416 0 LMT}
{-1686083584 -10800 0 -03}
{323845200 -7200 0 -02}
{338950800 -10800 0 -03}
{354675600 -7200 1 -02}
{370400400 -10800 0 -03}
{386125200 -7200 1 -02}
{401850000 -10800 0 -03}
{417574800 -7200 1 -02}
{433299600 -10800 0 -03}
{449024400 -7200 1 -02}
{465354000 -10800 0 -03}
{481078800 -7200 1 -02}
{496803600 -10800 0 -03}
{512528400 -7200 1 -02}
{528253200 -10800 0 -03}
{543978000 -7200 1 -02}
{559702800 -10800 0 -03}
{575427600 -7200 1 -02}
{591152400 -10800 0 -03}
{606877200 -7200 1 -02}
{622602000 -10800 0 -03}
{638326800 -7200 1 -02}
{654656400 -10800 0 -03}
{670381200 -7200 1 -02}
{686106000 -10800 0 -03}
{701830800 -7200 1 -02}
{717555600 -10800 0 -03}
{733280400 -7200 1 -02}
{749005200 -10800 0 -03}
{764730000 -7200 1 -02}
{780454800 -10800 0 -03}
{796179600 -7200 1 -02}
{811904400 -10800 0 -03}
{828234000 -7200 1 -02}
{846378000 -10800 0 -03}
{859683600 -7200 1 -02}
{877827600 -10800 0 -03}
{891133200 -7200 1 -02}
{909277200 -10800 0 -03}
{922582800 -7200 1 -02}
{941331600 -10800 0 -03}
{954032400 -7200 1 -02}
{972781200 -10800 0 -03}
{985482000 -7200 1 -02}
{1004230800 -10800 0 -03}
{1017536400 -7200 1 -02}
{1035680400 -10800 0 -03}
{1048986000 -7200 1 -02}
{1067130000 -10800 0 -03}
{1080435600 -7200 1 -02}
{1099184400 -10800 0 -03}
{1111885200 -7200 1 -02}
{1130634000 -10800 0 -03}
{1143334800 -7200 1 -02}
{1162083600 -10800 0 -03}
{1174784400 -7200 1 -02}
{1193533200 -10800 0 -03}
{1206838800 -7200 1 -02}
{1224982800 -10800 0 -03}
{1238288400 -7200 1 -02}
{1256432400 -10800 0 -03}
{1269738000 -7200 1 -02}
{1288486800 -10800 0 -03}
{1301187600 -7200 1 -02}
{1319936400 -10800 0 -03}
{1332637200 -7200 1 -02}
{1351386000 -10800 0 -03}
{1364691600 -7200 1 -02}
{1382835600 -10800 0 -03}
{1396141200 -7200 1 -02}
{1414285200 -10800 0 -03}
{1427590800 -7200 1 -02}
{1445734800 -10800 0 -03}
{1459040400 -7200 1 -02}
{1477789200 -10800 0 -03}
{1490490000 -7200 1 -02}
{1509238800 -10800 0 -03}
{1521939600 -7200 1 -02}
{1540688400 -10800 0 -03}
{1553994000 -7200 1 -02}
{1572138000 -10800 0 -03}
{1585443600 -7200 1 -02}
{1603587600 -10800 0 -03}
{1616893200 -7200 1 -02}
{1635642000 -10800 0 -03}
{1648342800 -7200 1 -02}
{1667091600 -10800 0 -03}
{1679792400 -7200 1 -02}
{1698541200 -10800 0 -03}
{1711846800 -7200 1 -02}
{1729990800 -10800 0 -03}
{1743296400 -7200 1 -02}
{1761440400 -10800 0 -03}
{1774746000 -7200 1 -02}
{1792890000 -10800 0 -03}
{1806195600 -7200 1 -02}
{1824944400 -10800 0 -03}
{1837645200 -7200 1 -02}
{1856394000 -10800 0 -03}
{1869094800 -7200 1 -02}
{1887843600 -10800 0 -03}
{1901149200 -7200 1 -02}
{1919293200 -10800 0 -03}
{1932598800 -7200 1 -02}
{1950742800 -10800 0 -03}
{1964048400 -7200 1 -02}
{1982797200 -10800 0 -03}
{1995498000 -7200 1 -02}
{2014246800 -10800 0 -03}
{2026947600 -7200 1 -02}
{2045696400 -10800 0 -03}
{2058397200 -7200 1 -02}
{2077146000 -10800 0 -03}
{2090451600 -7200 1 -02}
{2108595600 -10800 0 -03}
{2121901200 -7200 1 -02}
{2140045200 -10800 0 -03}
{2153350800 -7200 1 -02}
{2172099600 -10800 0 -03}
{2184800400 -7200 1 -02}
{2203549200 -10800 0 -03}
{2216250000 -7200 1 -02}
{2234998800 -10800 0 -03}
{2248304400 -7200 1 -02}
{2266448400 -10800 0 -03}
{2279754000 -7200 1 -02}
{2297898000 -10800 0 -03}
{2311203600 -7200 1 -02}
{2329347600 -10800 0 -03}
{2342653200 -7200 1 -02}
{2361402000 -10800 0 -03}
{2374102800 -7200 1 -02}
{2392851600 -10800 0 -03}
{2405552400 -7200 1 -02}
{2424301200 -10800 0 -03}
{2437606800 -7200 1 -02}
{2455750800 -10800 0 -03}
{2469056400 -7200 1 -02}
{2487200400 -10800 0 -03}
{2500506000 -7200 1 -02}
{2519254800 -10800 0 -03}
{2531955600 -7200 1 -02}
{2550704400 -10800 0 -03}
{2563405200 -7200 1 -02}
{2582154000 -10800 0 -03}
{2595459600 -7200 1 -02}
{2613603600 -10800 0 -03}
{2626909200 -7200 1 -02}
{2645053200 -10800 0 -03}
{2658358800 -7200 1 -02}
{2676502800 -10800 0 -03}
{2689808400 -7200 1 -02}
{2708557200 -10800 0 -03}
{2721258000 -7200 1 -02}
{2740006800 -10800 0 -03}
{2752707600 -7200 1 -02}
{2771456400 -10800 0 -03}
{2784762000 -7200 1 -02}
{2802906000 -10800 0 -03}
{2816211600 -7200 1 -02}
{2834355600 -10800 0 -03}
{2847661200 -7200 1 -02}
{2866410000 -10800 0 -03}
{2879110800 -7200 1 -02}
{2897859600 -10800 0 -03}
{2910560400 -7200 1 -02}
{2929309200 -10800 0 -03}
{2942010000 -7200 1 -02}
{2960758800 -10800 0 -03}
{2974064400 -7200 1 -02}
{2992208400 -10800 0 -03}
{3005514000 -7200 1 -02}
{3023658000 -10800 0 -03}
{3036963600 -7200 1 -02}
{3055712400 -10800 0 -03}
{3068413200 -7200 1 -02}
{3087162000 -10800 0 -03}
{3099862800 -7200 1 -02}
{3118611600 -10800 0 -03}
{3131917200 -7200 1 -02}
{3150061200 -10800 0 -03}
{3163366800 -7200 1 -02}
{3181510800 -10800 0 -03}
{3194816400 -7200 1 -02}
{3212960400 -10800 0 -03}
{3226266000 -7200 1 -02}
{3245014800 -10800 0 -03}
{3257715600 -7200 1 -02}
{3276464400 -10800 0 -03}
{3289165200 -7200 1 -02}
{3307914000 -10800 0 -03}
{3321219600 -7200 1 -02}
{3339363600 -10800 0 -03}
{3352669200 -7200 1 -02}
{3370813200 -10800 0 -03}
{3384118800 -7200 1 -02}
{3402867600 -10800 0 -03}
{3415568400 -7200 1 -02}
{3434317200 -10800 0 -03}
{3447018000 -7200 1 -02}
{3465766800 -10800 0 -03}
{3479072400 -7200 1 -02}
{3497216400 -10800 0 -03}
{3510522000 -7200 1 -02}
{3528666000 -10800 0 -03}
{3541971600 -7200 1 -02}
{3560115600 -10800 0 -03}
{3573421200 -7200 1 -02}
{3592170000 -10800 0 -03}
{3604870800 -7200 1 -02}
{3623619600 -10800 0 -03}
{3636320400 -7200 1 -02}
{3655069200 -10800 0 -03}
{3668374800 -7200 1 -02}
{3686518800 -10800 0 -03}
{3699824400 -7200 1 -02}
{3717968400 -10800 0 -03}
{3731274000 -7200 1 -02}
{3750022800 -10800 0 -03}
{3762723600 -7200 1 -02}
{3781472400 -10800 0 -03}
{3794173200 -7200 1 -02}
{3812922000 -10800 0 -03}
{3825622800 -7200 1 -02}
{3844371600 -10800 0 -03}
{3857677200 -7200 1 -02}
{3875821200 -10800 0 -03}
{3889126800 -7200 1 -02}
{3907270800 -10800 0 -03}
{3920576400 -7200 1 -02}
{3939325200 -10800 0 -03}
{3952026000 -7200 1 -02}
{3970774800 -10800 0 -03}
{3983475600 -7200 1 -02}
{4002224400 -10800 0 -03}
{4015530000 -7200 1 -02}
{4033674000 -10800 0 -03}
{4046979600 -7200 1 -02}
{4065123600 -10800 0 -03}
{4078429200 -7200 1 -02}
{4096573200 -10800 0 -03}
if {![info exists TZData(America/Nuuk)]} {
LoadTimeZoneFile America/Nuuk
}
set TZData(:America/Godthab) $TZData(:America/Nuuk)

3
amd64/lib/tcl8.6/tzdata/America/Grand_Turk
View File

@@ -77,8 +77,7 @@ set TZData(:America/Grand_Turk) {
{1383458400 -18000 0 EST}
{1394348400 -14400 1 EDT}
{1414908000 -18000 0 EST}
{1425798000 -14400 1 EDT}
{1446361200 -14400 0 AST}
{1425798000 -14400 0 AST}
{1520751600 -14400 0 EDT}
{1541311200 -18000 0 EST}
{1552201200 -14400 1 EDT}

5
amd64/lib/tcl8.6/tzdata/America/Nassau
View File

@@ -3,6 +3,11 @@
set TZData(:America/Nassau) {
{-9223372036854775808 -18570 0 LMT}
{-1825095030 -18000 0 EST}
{-873140400 -14400 1 EWT}
{-788904000 -18000 0 EST}
{-786222000 -14400 1 EWT}
{-769395600 -14400 1 EPT}
{-763848000 -18000 0 EST}
{-179341200 -14400 1 EDT}
{-163620000 -18000 0 EST}
{-147891600 -14400 1 EDT}

246
amd64/lib/tcl8.6/tzdata/America/Nuuk Normal file
View File

@@ -0,0 +1,246 @@
# created by tools/tclZIC.tcl - do not edit
set TZData(:America/Nuuk) {
{-9223372036854775808 -12416 0 LMT}
{-1686083584 -10800 0 -03}
{323845200 -7200 0 -02}
{338950800 -10800 0 -03}
{354675600 -7200 1 -02}
{370400400 -10800 0 -03}
{386125200 -7200 1 -02}
{401850000 -10800 0 -03}
{417574800 -7200 1 -02}
{433299600 -10800 0 -03}
{449024400 -7200 1 -02}
{465354000 -10800 0 -03}
{481078800 -7200 1 -02}
{496803600 -10800 0 -03}
{512528400 -7200 1 -02}
{528253200 -10800 0 -03}
{543978000 -7200 1 -02}
{559702800 -10800 0 -03}
{575427600 -7200 1 -02}
{591152400 -10800 0 -03}
{606877200 -7200 1 -02}
{622602000 -10800 0 -03}
{638326800 -7200 1 -02}
{654656400 -10800 0 -03}
{670381200 -7200 1 -02}
{686106000 -10800 0 -03}
{701830800 -7200 1 -02}
{717555600 -10800 0 -03}
{733280400 -7200 1 -02}
{749005200 -10800 0 -03}
{764730000 -7200 1 -02}
{780454800 -10800 0 -03}
{796179600 -7200 1 -02}
{811904400 -10800 0 -03}
{828234000 -7200 1 -02}
{846378000 -10800 0 -03}
{859683600 -7200 1 -02}
{877827600 -10800 0 -03}
{891133200 -7200 1 -02}
{909277200 -10800 0 -03}
{922582800 -7200 1 -02}
{941331600 -10800 0 -03}
{954032400 -7200 1 -02}
{972781200 -10800 0 -03}
{985482000 -7200 1 -02}
{1004230800 -10800 0 -03}
{1017536400 -7200 1 -02}
{1035680400 -10800 0 -03}
{1048986000 -7200 1 -02}
{1067130000 -10800 0 -03}
{1080435600 -7200 1 -02}
{1099184400 -10800 0 -03}
{1111885200 -7200 1 -02}
{1130634000 -10800 0 -03}
{1143334800 -7200 1 -02}
{1162083600 -10800 0 -03}
{1174784400 -7200 1 -02}
{1193533200 -10800 0 -03}
{1206838800 -7200 1 -02}
{1224982800 -10800 0 -03}
{1238288400 -7200 1 -02}
{1256432400 -10800 0 -03}
{1269738000 -7200 1 -02}
{1288486800 -10800 0 -03}
{1301187600 -7200 1 -02}
{1319936400 -10800 0 -03}
{1332637200 -7200 1 -02}
{1351386000 -10800 0 -03}
{1364691600 -7200 1 -02}
{1382835600 -10800 0 -03}
{1396141200 -7200 1 -02}
{1414285200 -10800 0 -03}
{1427590800 -7200 1 -02}
{1445734800 -10800 0 -03}
{1459040400 -7200 1 -02}
{1477789200 -10800 0 -03}
{1490490000 -7200 1 -02}
{1509238800 -10800 0 -03}
{1521939600 -7200 1 -02}
{1540688400 -10800 0 -03}
{1553994000 -7200 1 -02}
{1572138000 -10800 0 -03}
{1585443600 -7200 1 -02}
{1603587600 -10800 0 -03}
{1616893200 -7200 1 -02}
{1635642000 -10800 0 -03}
{1648342800 -7200 1 -02}
{1667091600 -10800 0 -03}
{1679792400 -7200 1 -02}
{1698541200 -10800 0 -03}
{1711846800 -7200 1 -02}
{1729990800 -10800 0 -03}
{1743296400 -7200 1 -02}
{1761440400 -10800 0 -03}
{1774746000 -7200 1 -02}
{1792890000 -10800 0 -03}
{1806195600 -7200 1 -02}
{1824944400 -10800 0 -03}
{1837645200 -7200 1 -02}
{1856394000 -10800 0 -03}
{1869094800 -7200 1 -02}
{1887843600 -10800 0 -03}
{1901149200 -7200 1 -02}
{1919293200 -10800 0 -03}
{1932598800 -7200 1 -02}
{1950742800 -10800 0 -03}
{1964048400 -7200 1 -02}
{1982797200 -10800 0 -03}
{1995498000 -7200 1 -02}
{2014246800 -10800 0 -03}
{2026947600 -7200 1 -02}
{2045696400 -10800 0 -03}
{2058397200 -7200 1 -02}
{2077146000 -10800 0 -03}
{2090451600 -7200 1 -02}
{2108595600 -10800 0 -03}
{2121901200 -7200 1 -02}
{2140045200 -10800 0 -03}
{2153350800 -7200 1 -02}
{2172099600 -10800 0 -03}
{2184800400 -7200 1 -02}
{2203549200 -10800 0 -03}
{2216250000 -7200 1 -02}
{2234998800 -10800 0 -03}
{2248304400 -7200 1 -02}
{2266448400 -10800 0 -03}
{2279754000 -7200 1 -02}
{2297898000 -10800 0 -03}
{2311203600 -7200 1 -02}
{2329347600 -10800 0 -03}
{2342653200 -7200 1 -02}
{2361402000 -10800 0 -03}
{2374102800 -7200 1 -02}
{2392851600 -10800 0 -03}
{2405552400 -7200 1 -02}
{2424301200 -10800 0 -03}
{2437606800 -7200 1 -02}
{2455750800 -10800 0 -03}
{2469056400 -7200 1 -02}
{2487200400 -10800 0 -03}
{2500506000 -7200 1 -02}
{2519254800 -10800 0 -03}
{2531955600 -7200 1 -02}
{2550704400 -10800 0 -03}
{2563405200 -7200 1 -02}
{2582154000 -10800 0 -03}
{2595459600 -7200 1 -02}
{2613603600 -10800 0 -03}
{2626909200 -7200 1 -02}
{2645053200 -10800 0 -03}
{2658358800 -7200 1 -02}
{2676502800 -10800 0 -03}
{2689808400 -7200 1 -02}
{2708557200 -10800 0 -03}
{2721258000 -7200 1 -02}
{2740006800 -10800 0 -03}
{2752707600 -7200 1 -02}
{2771456400 -10800 0 -03}
{2784762000 -7200 1 -02}
{2802906000 -10800 0 -03}
{2816211600 -7200 1 -02}
{2834355600 -10800 0 -03}
{2847661200 -7200 1 -02}
{2866410000 -10800 0 -03}
{2879110800 -7200 1 -02}
{2897859600 -10800 0 -03}
{2910560400 -7200 1 -02}
{2929309200 -10800 0 -03}
{2942010000 -7200 1 -02}
{2960758800 -10800 0 -03}
{2974064400 -7200 1 -02}
{2992208400 -10800 0 -03}
{3005514000 -7200 1 -02}
{3023658000 -10800 0 -03}
{3036963600 -7200 1 -02}
{3055712400 -10800 0 -03}
{3068413200 -7200 1 -02}
{3087162000 -10800 0 -03}
{3099862800 -7200 1 -02}
{3118611600 -10800 0 -03}
{3131917200 -7200 1 -02}
{3150061200 -10800 0 -03}
{3163366800 -7200 1 -02}
{3181510800 -10800 0 -03}
{3194816400 -7200 1 -02}
{3212960400 -10800 0 -03}
{3226266000 -7200 1 -02}
{3245014800 -10800 0 -03}
{3257715600 -7200 1 -02}
{3276464400 -10800 0 -03}
{3289165200 -7200 1 -02}
{3307914000 -10800 0 -03}
{3321219600 -7200 1 -02}
{3339363600 -10800 0 -03}
{3352669200 -7200 1 -02}
{3370813200 -10800 0 -03}
{3384118800 -7200 1 -02}
{3402867600 -10800 0 -03}
{3415568400 -7200 1 -02}
{3434317200 -10800 0 -03}
{3447018000 -7200 1 -02}
{3465766800 -10800 0 -03}
{3479072400 -7200 1 -02}
{3497216400 -10800 0 -03}
{3510522000 -7200 1 -02}
{3528666000 -10800 0 -03}
{3541971600 -7200 1 -02}
{3560115600 -10800 0 -03}
{3573421200 -7200 1 -02}
{3592170000 -10800 0 -03}
{3604870800 -7200 1 -02}
{3623619600 -10800 0 -03}
{3636320400 -7200 1 -02}
{3655069200 -10800 0 -03}
{3668374800 -7200 1 -02}
{3686518800 -10800 0 -03}
{3699824400 -7200 1 -02}
{3717968400 -10800 0 -03}
{3731274000 -7200 1 -02}
{3750022800 -10800 0 -03}
{3762723600 -7200 1 -02}
{3781472400 -10800 0 -03}
{3794173200 -7200 1 -02}
{3812922000 -10800 0 -03}
{3825622800 -7200 1 -02}
{3844371600 -10800 0 -03}
{3857677200 -7200 1 -02}
{3875821200 -10800 0 -03}
{3889126800 -7200 1 -02}
{3907270800 -10800 0 -03}
{3920576400 -7200 1 -02}
{3939325200 -10800 0 -03}
{3952026000 -7200 1 -02}
{3970774800 -10800 0 -03}
{3983475600 -7200 1 -02}
{4002224400 -10800 0 -03}
{4015530000 -7200 1 -02}
{4033674000 -10800 0 -03}
{4046979600 -7200 1 -02}
{4065123600 -10800 0 -03}
{4078429200 -7200 1 -02}
{4096573200 -10800 0 -03}
}

160
amd64/lib/tcl8.6/tzdata/America/Whitehorse
View File

@@ -94,163 +94,5 @@ set TZData(:America/Whitehorse) {
{1552212000 -25200 1 PDT}
{1572771600 -28800 0 PST}
{1583661600 -25200 1 PDT}
{1604221200 -28800 0 PST}
{1615716000 -25200 1 PDT}
{1636275600 -28800 0 PST}
{1647165600 -25200 1 PDT}
{1667725200 -28800 0 PST}
{1678615200 -25200 1 PDT}
{1699174800 -28800 0 PST}
{1710064800 -25200 1 PDT}
{1730624400 -28800 0 PST}
{1741514400 -25200 1 PDT}
{1762074000 -28800 0 PST}
{1772964000 -25200 1 PDT}
{1793523600 -28800 0 PST}
{1805018400 -25200 1 PDT}
{1825578000 -28800 0 PST}
{1836468000 -25200 1 PDT}
{1857027600 -28800 0 PST}
{1867917600 -25200 1 PDT}
{1888477200 -28800 0 PST}
{1899367200 -25200 1 PDT}
{1919926800 -28800 0 PST}
{1930816800 -25200 1 PDT}
{1951376400 -28800 0 PST}
{1962871200 -25200 1 PDT}
{1983430800 -28800 0 PST}
{1994320800 -25200 1 PDT}
{2014880400 -28800 0 PST}
{2025770400 -25200 1 PDT}
{2046330000 -28800 0 PST}
{2057220000 -25200 1 PDT}
{2077779600 -28800 0 PST}
{2088669600 -25200 1 PDT}
{2109229200 -28800 0 PST}
{2120119200 -25200 1 PDT}
{2140678800 -28800 0 PST}
{2152173600 -25200 1 PDT}
{2172733200 -28800 0 PST}
{2183623200 -25200 1 PDT}
{2204182800 -28800 0 PST}
{2215072800 -25200 1 PDT}
{2235632400 -28800 0 PST}
{2246522400 -25200 1 PDT}
{2267082000 -28800 0 PST}
{2277972000 -25200 1 PDT}
{2298531600 -28800 0 PST}
{2309421600 -25200 1 PDT}
{2329981200 -28800 0 PST}
{2341476000 -25200 1 PDT}
{2362035600 -28800 0 PST}
{2372925600 -25200 1 PDT}
{2393485200 -28800 0 PST}
{2404375200 -25200 1 PDT}
{2424934800 -28800 0 PST}
{2435824800 -25200 1 PDT}
{2456384400 -28800 0 PST}
{2467274400 -25200 1 PDT}
{2487834000 -28800 0 PST}
{2499328800 -25200 1 PDT}
{2519888400 -28800 0 PST}
{2530778400 -25200 1 PDT}
{2551338000 -28800 0 PST}
{2562228000 -25200 1 PDT}
{2582787600 -28800 0 PST}
{2593677600 -25200 1 PDT}
{2614237200 -28800 0 PST}
{2625127200 -25200 1 PDT}
{2645686800 -28800 0 PST}
{2656576800 -25200 1 PDT}
{2677136400 -28800 0 PST}
{2688631200 -25200 1 PDT}
{2709190800 -28800 0 PST}
{2720080800 -25200 1 PDT}
{2740640400 -28800 0 PST}
{2751530400 -25200 1 PDT}
{2772090000 -28800 0 PST}
{2782980000 -25200 1 PDT}
{2803539600 -28800 0 PST}
{2814429600 -25200 1 PDT}
{2834989200 -28800 0 PST}
{2846484000 -25200 1 PDT}
{2867043600 -28800 0 PST}
{2877933600 -25200 1 PDT}
{2898493200 -28800 0 PST}
{2909383200 -25200 1 PDT}
{2929942800 -28800 0 PST}
{2940832800 -25200 1 PDT}
{2961392400 -28800 0 PST}
{2972282400 -25200 1 PDT}
{2992842000 -28800 0 PST}
{3003732000 -25200 1 PDT}
{3024291600 -28800 0 PST}
{3035786400 -25200 1 PDT}
{3056346000 -28800 0 PST}
{3067236000 -25200 1 PDT}
{3087795600 -28800 0 PST}
{3098685600 -25200 1 PDT}
{3119245200 -28800 0 PST}
{3130135200 -25200 1 PDT}
{3150694800 -28800 0 PST}
{3161584800 -25200 1 PDT}
{3182144400 -28800 0 PST}
{3193034400 -25200 1 PDT}
{3213594000 -28800 0 PST}
{3225088800 -25200 1 PDT}
{3245648400 -28800 0 PST}
{3256538400 -25200 1 PDT}
{3277098000 -28800 0 PST}
{3287988000 -25200 1 PDT}
{3308547600 -28800 0 PST}
{3319437600 -25200 1 PDT}
{3339997200 -28800 0 PST}
{3350887200 -25200 1 PDT}
{3371446800 -28800 0 PST}
{3382941600 -25200 1 PDT}
{3403501200 -28800 0 PST}
{3414391200 -25200 1 PDT}
{3434950800 -28800 0 PST}
{3445840800 -25200 1 PDT}
{3466400400 -28800 0 PST}
{3477290400 -25200 1 PDT}
{3497850000 -28800 0 PST}
{3508740000 -25200 1 PDT}
{3529299600 -28800 0 PST}
{3540189600 -25200 1 PDT}
{3560749200 -28800 0 PST}
{3572244000 -25200 1 PDT}
{3592803600 -28800 0 PST}
{3603693600 -25200 1 PDT}
{3624253200 -28800 0 PST}
{3635143200 -25200 1 PDT}
{3655702800 -28800 0 PST}
{3666592800 -25200 1 PDT}
{3687152400 -28800 0 PST}
{3698042400 -25200 1 PDT}
{3718602000 -28800 0 PST}
{3730096800 -25200 1 PDT}
{3750656400 -28800 0 PST}
{3761546400 -25200 1 PDT}
{3782106000 -28800 0 PST}
{3792996000 -25200 1 PDT}
{3813555600 -28800 0 PST}
{3824445600 -25200 1 PDT}
{3845005200 -28800 0 PST}
{3855895200 -25200 1 PDT}
{3876454800 -28800 0 PST}
{3887344800 -25200 1 PDT}
{3907904400 -28800 0 PST}
{3919399200 -25200 1 PDT}
{3939958800 -28800 0 PST}
{3950848800 -25200 1 PDT}
{3971408400 -28800 0 PST}
{3982298400 -25200 1 PDT}
{4002858000 -28800 0 PST}
{4013748000 -25200 1 PDT}
{4034307600 -28800 0 PST}
{4045197600 -25200 1 PDT}
{4065757200 -28800 0 PST}
{4076647200 -25200 1 PDT}
{4097206800 -28800 0 PST}
{1604217600 -25200 0 MST}
}

5
amd64/lib/tcl8.6/tzdata/Antarctica/Casey
View File

@@ -9,4 +9,9 @@ set TZData(:Antarctica/Casey) {
{1329843600 28800 0 +08}
{1477065600 39600 0 +11}
{1520701200 28800 0 +08}
{1538856000 39600 0 +11}
{1552752000 28800 0 +08}
{1570129200 39600 0 +11}
{1583596800 28800 0 +08}
{1601740860 39600 0 +11}
}

183
amd64/lib/tcl8.6/tzdata/Antarctica/Macquarie
View File

@@ -5,7 +5,7 @@ set TZData(:Antarctica/Macquarie) {
{-2214259200 36000 0 AEST}
{-1680508800 39600 1 AEDT}
{-1669892400 39600 0 AEDT}
{-1665392400 36000 0 AEST}
{-1665388800 36000 0 AEST}
{-1601719200 0 0 -00}
{-94730400 36000 0 AEST}
{-71136000 39600 1 AEDT}
@@ -93,5 +93,184 @@ set TZData(:Antarctica/Macquarie) {
{1223136000 39600 1 AEDT}
{1238860800 36000 0 AEST}
{1254585600 39600 1 AEDT}
{1270310400 39600 0 +11}
{1262264400 39600 1 AEDT}
{1293800400 39600 0 AEST}
{1301760000 36000 0 AEST}
{1317484800 39600 1 AEDT}
{1333209600 36000 0 AEST}
{1349539200 39600 1 AEDT}
{1365264000 36000 0 AEST}
{1380988800 39600 1 AEDT}
{1396713600 36000 0 AEST}
{1412438400 39600 1 AEDT}
{1428163200 36000 0 AEST}
{1443888000 39600 1 AEDT}
{1459612800 36000 0 AEST}
{1475337600 39600 1 AEDT}
{1491062400 36000 0 AEST}
{1506787200 39600 1 AEDT}
{1522512000 36000 0 AEST}
{1538841600 39600 1 AEDT}
{1554566400 36000 0 AEST}
{1570291200 39600 1 AEDT}
{1586016000 36000 0 AEST}
{1601740800 39600 1 AEDT}
{1617465600 36000 0 AEST}
{1633190400 39600 1 AEDT}
{1648915200 36000 0 AEST}
{1664640000 39600 1 AEDT}
{1680364800 36000 0 AEST}
{1696089600 39600 1 AEDT}
{1712419200 36000 0 AEST}
{1728144000 39600 1 AEDT}
{1743868800 36000 0 AEST}
{1759593600 39600 1 AEDT}
{1775318400 36000 0 AEST}
{1791043200 39600 1 AEDT}
{1806768000 36000 0 AEST}
{1822492800 39600 1 AEDT}
{1838217600 36000 0 AEST}
{1853942400 39600 1 AEDT}
{1869667200 36000 0 AEST}
{1885996800 39600 1 AEDT}
{1901721600 36000 0 AEST}
{1917446400 39600 1 AEDT}
{1933171200 36000 0 AEST}
{1948896000 39600 1 AEDT}
{1964620800 36000 0 AEST}
{1980345600 39600 1 AEDT}
{1996070400 36000 0 AEST}
{2011795200 39600 1 AEDT}
{2027520000 36000 0 AEST}
{2043244800 39600 1 AEDT}
{2058969600 36000 0 AEST}
{2075299200 39600 1 AEDT}
{2091024000 36000 0 AEST}
{2106748800 39600 1 AEDT}
{2122473600 36000 0 AEST}
{2138198400 39600 1 AEDT}
{2153923200 36000 0 AEST}
{2169648000 39600 1 AEDT}
{2185372800 36000 0 AEST}
{2201097600 39600 1 AEDT}
{2216822400 36000 0 AEST}
{2233152000 39600 1 AEDT}
{2248876800 36000 0 AEST}
{2264601600 39600 1 AEDT}
{2280326400 36000 0 AEST}
{2296051200 39600 1 AEDT}
{2311776000 36000 0 AEST}
{2327500800 39600 1 AEDT}
{2343225600 36000 0 AEST}
{2358950400 39600 1 AEDT}
{2374675200 36000 0 AEST}
{2390400000 39600 1 AEDT}
{2406124800 36000 0 AEST}
{2422454400 39600 1 AEDT}
{2438179200 36000 0 AEST}
{2453904000 39600 1 AEDT}
{2469628800 36000 0 AEST}
{2485353600 39600 1 AEDT}
{2501078400 36000 0 AEST}
{2516803200 39600 1 AEDT}
{2532528000 36000 0 AEST}
{2548252800 39600 1 AEDT}
{2563977600 36000 0 AEST}
{2579702400 39600 1 AEDT}
{2596032000 36000 0 AEST}
{2611756800 39600 1 AEDT}
{2627481600 36000 0 AEST}
{2643206400 39600 1 AEDT}
{2658931200 36000 0 AEST}
{2674656000 39600 1 AEDT}
{2690380800 36000 0 AEST}
{2706105600 39600 1 AEDT}
{2721830400 36000 0 AEST}
{2737555200 39600 1 AEDT}
{2753280000 36000 0 AEST}
{2769609600 39600 1 AEDT}
{2785334400 36000 0 AEST}
{2801059200 39600 1 AEDT}
{2816784000 36000 0 AEST}
{2832508800 39600 1 AEDT}
{2848233600 36000 0 AEST}
{2863958400 39600 1 AEDT}
{2879683200 36000 0 AEST}
{2895408000 39600 1 AEDT}
{2911132800 36000 0 AEST}
{2926857600 39600 1 AEDT}
{2942582400 36000 0 AEST}
{2958912000 39600 1 AEDT}
{2974636800 36000 0 AEST}
{2990361600 39600 1 AEDT}
{3006086400 36000 0 AEST}
{3021811200 39600 1 AEDT}
{3037536000 36000 0 AEST}
{3053260800 39600 1 AEDT}
{3068985600 36000 0 AEST}
{3084710400 39600 1 AEDT}
{3100435200 36000 0 AEST}
{3116764800 39600 1 AEDT}
{3132489600 36000 0 AEST}
{3148214400 39600 1 AEDT}
{3163939200 36000 0 AEST}
{3179664000 39600 1 AEDT}
{3195388800 36000 0 AEST}
{3211113600 39600 1 AEDT}
{3226838400 36000 0 AEST}
{3242563200 39600 1 AEDT}
{3258288000 36000 0 AEST}
{3274012800 39600 1 AEDT}
{3289737600 36000 0 AEST}
{3306067200 39600 1 AEDT}
{3321792000 36000 0 AEST}
{3337516800 39600 1 AEDT}
{3353241600 36000 0 AEST}
{3368966400 39600 1 AEDT}
{3384691200 36000 0 AEST}
{3400416000 39600 1 AEDT}
{3416140800 36000 0 AEST}
{3431865600 39600 1 AEDT}
{3447590400 36000 0 AEST}
{3463315200 39600 1 AEDT}
{3479644800 36000 0 AEST}
{3495369600 39600 1 AEDT}
{3511094400 36000 0 AEST}
{3526819200 39600 1 AEDT}
{3542544000 36000 0 AEST}
{3558268800 39600 1 AEDT}
{3573993600 36000 0 AEST}
{3589718400 39600 1 AEDT}
{3605443200 36000 0 AEST}
{3621168000 39600 1 AEDT}
{3636892800 36000 0 AEST}
{3653222400 39600 1 AEDT}
{3668947200 36000 0 AEST}
{3684672000 39600 1 AEDT}
{3700396800 36000 0 AEST}
{3716121600 39600 1 AEDT}
{3731846400 36000 0 AEST}
{3747571200 39600 1 AEDT}
{3763296000 36000 0 AEST}
{3779020800 39600 1 AEDT}
{3794745600 36000 0 AEST}
{3810470400 39600 1 AEDT}
{3826195200 36000 0 AEST}
{3842524800 39600 1 AEDT}
{3858249600 36000 0 AEST}
{3873974400 39600 1 AEDT}
{3889699200 36000 0 AEST}
{3905424000 39600 1 AEDT}
{3921148800 36000 0 AEST}
{3936873600 39600 1 AEDT}
{3952598400 36000 0 AEST}
{3968323200 39600 1 AEDT}
{3984048000 36000 0 AEST}
{4000377600 39600 1 AEDT}
{4016102400 36000 0 AEST}
{4031827200 39600 1 AEDT}
{4047552000 36000 0 AEST}
{4063276800 39600 1 AEDT}
{4079001600 36000 0 AEST}
{4094726400 39600 1 AEDT}
}

216
amd64/lib/tcl8.6/tzdata/Asia/Gaza
View File

@@ -3,16 +3,18 @@
set TZData(:Asia/Gaza) {
{-9223372036854775808 8272 0 LMT}
{-2185409872 7200 0 EEST}
{-933645600 10800 1 EEST}
{-857358000 7200 0 EEST}
{-933638400 10800 1 EEST}
{-923097600 7200 0 EEST}
{-919036800 10800 1 EEST}
{-857347200 7200 0 EEST}
{-844300800 10800 1 EEST}
{-825822000 7200 0 EEST}
{-812685600 10800 1 EEST}
{-794199600 7200 0 EEST}
{-779853600 10800 1 EEST}
{-762656400 7200 0 EEST}
{-825811200 7200 0 EEST}
{-812678400 10800 1 EEST}
{-794188800 7200 0 EEST}
{-779846400 10800 1 EEST}
{-762652800 7200 0 EEST}
{-748310400 10800 1 EEST}
{-731127600 7200 0 EEST}
{-731116800 7200 0 EEST}
{-682653600 7200 0 EET}
{-399088800 10800 1 EEST}
{-386650800 7200 0 EET}
@@ -40,12 +42,12 @@ set TZData(:Asia/Gaza) {
{150843600 7200 0 IST}
{167176800 10800 1 IDT}
{178664400 7200 0 IST}
{334015200 10800 1 IDT}
{337644000 7200 0 IST}
{452556000 10800 1 IDT}
{462232800 7200 0 IST}
{334101600 10800 1 IDT}
{337730400 7200 0 IST}
{452642400 10800 1 IDT}
{462319200 7200 0 IST}
{482277600 10800 1 IDT}
{495579600 7200 0 IST}
{494370000 7200 0 IST}
{516751200 10800 1 IDT}
{526424400 7200 0 IST}
{545436000 10800 1 IDT}
@@ -110,7 +112,7 @@ set TZData(:Asia/Gaza) {
{1395957600 10800 1 EEST}
{1414098000 7200 0 EET}
{1427493600 10800 1 EEST}
{1445547600 7200 0 EET}
{1445551200 7200 0 EET}
{1458946800 10800 1 EEST}
{1477692000 7200 0 EET}
{1490396400 10800 1 EEST}
@@ -118,165 +120,165 @@ set TZData(:Asia/Gaza) {
{1521846000 10800 1 EEST}
{1540591200 7200 0 EET}
{1553810400 10800 1 EEST}
{1572040800 7200 0 EET}
{1585260000 10800 1 EEST}
{1604095200 7200 0 EET}
{1616709600 10800 1 EEST}
{1572037200 7200 0 EET}
{1585346400 10800 1 EEST}
{1603490400 7200 0 EET}
{1616796000 10800 1 EEST}
{1635544800 7200 0 EET}
{1648159200 10800 1 EEST}
{1648245600 10800 1 EEST}
{1666994400 7200 0 EET}
{1680213600 10800 1 EEST}
{1679695200 10800 1 EEST}
{1698444000 7200 0 EET}
{1711663200 10800 1 EEST}
{1711749600 10800 1 EEST}
{1729893600 7200 0 EET}
{1743112800 10800 1 EEST}
{1743199200 10800 1 EEST}
{1761343200 7200 0 EET}
{1774562400 10800 1 EEST}
{1793397600 7200 0 EET}
{1806012000 10800 1 EEST}
{1774648800 10800 1 EEST}
{1792792800 7200 0 EET}
{1806098400 10800 1 EEST}
{1824847200 7200 0 EET}
{1838066400 10800 1 EEST}
{1837548000 10800 1 EEST}
{1856296800 7200 0 EET}
{1869516000 10800 1 EEST}
{1868997600 10800 1 EEST}
{1887746400 7200 0 EET}
{1900965600 10800 1 EEST}
{1901052000 10800 1 EEST}
{1919196000 7200 0 EET}
{1932415200 10800 1 EEST}
{1932501600 10800 1 EEST}
{1950645600 7200 0 EET}
{1963864800 10800 1 EEST}
{1963951200 10800 1 EEST}
{1982700000 7200 0 EET}
{1995314400 10800 1 EEST}
{1995400800 10800 1 EEST}
{2014149600 7200 0 EET}
{2027368800 10800 1 EEST}
{2026850400 10800 1 EEST}
{2045599200 7200 0 EET}
{2058818400 10800 1 EEST}
{2058300000 10800 1 EEST}
{2077048800 7200 0 EET}
{2090268000 10800 1 EEST}
{2090354400 10800 1 EEST}
{2108498400 7200 0 EET}
{2121717600 10800 1 EEST}
{2140552800 7200 0 EET}
{2153167200 10800 1 EEST}
{2121804000 10800 1 EEST}
{2139948000 7200 0 EET}
{2153253600 10800 1 EEST}
{2172002400 7200 0 EET}
{2184616800 10800 1 EEST}
{2184703200 10800 1 EEST}
{2203452000 7200 0 EET}
{2216671200 10800 1 EEST}
{2216152800 10800 1 EEST}
{2234901600 7200 0 EET}
{2248120800 10800 1 EEST}
{2248207200 10800 1 EEST}
{2266351200 7200 0 EET}
{2279570400 10800 1 EEST}
{2279656800 10800 1 EEST}
{2297800800 7200 0 EET}
{2311020000 10800 1 EEST}
{2329855200 7200 0 EET}
{2342469600 10800 1 EEST}
{2311106400 10800 1 EEST}
{2329250400 7200 0 EET}
{2342556000 10800 1 EEST}
{2361304800 7200 0 EET}
{2374524000 10800 1 EEST}
{2374005600 10800 1 EEST}
{2392754400 7200 0 EET}
{2405973600 10800 1 EEST}
{2405455200 10800 1 EEST}
{2424204000 7200 0 EET}
{2437423200 10800 1 EEST}
{2437509600 10800 1 EEST}
{2455653600 7200 0 EET}
{2468872800 10800 1 EEST}
{2487708000 7200 0 EET}
{2500322400 10800 1 EEST}
{2468959200 10800 1 EEST}
{2487103200 7200 0 EET}
{2500408800 10800 1 EEST}
{2519157600 7200 0 EET}
{2531772000 10800 1 EEST}
{2531858400 10800 1 EEST}
{2550607200 7200 0 EET}
{2563826400 10800 1 EEST}
{2563308000 10800 1 EEST}
{2582056800 7200 0 EET}
{2595276000 10800 1 EEST}
{2595362400 10800 1 EEST}
{2613506400 7200 0 EET}
{2626725600 10800 1 EEST}
{2626812000 10800 1 EEST}
{2644956000 7200 0 EET}
{2658175200 10800 1 EEST}
{2677010400 7200 0 EET}
{2689624800 10800 1 EEST}
{2658261600 10800 1 EEST}
{2676405600 7200 0 EET}
{2689711200 10800 1 EEST}
{2708460000 7200 0 EET}
{2721679200 10800 1 EEST}
{2721160800 10800 1 EEST}
{2739909600 7200 0 EET}
{2753128800 10800 1 EEST}
{2752610400 10800 1 EEST}
{2771359200 7200 0 EET}
{2784578400 10800 1 EEST}
{2784664800 10800 1 EEST}
{2802808800 7200 0 EET}
{2816028000 10800 1 EEST}
{2816114400 10800 1 EEST}
{2834258400 7200 0 EET}
{2847477600 10800 1 EEST}
{2847564000 10800 1 EEST}
{2866312800 7200 0 EET}
{2878927200 10800 1 EEST}
{2879013600 10800 1 EEST}
{2897762400 7200 0 EET}
{2910981600 10800 1 EEST}
{2910463200 10800 1 EEST}
{2929212000 7200 0 EET}
{2942431200 10800 1 EEST}
{2941912800 10800 1 EEST}
{2960661600 7200 0 EET}
{2973880800 10800 1 EEST}
{2973967200 10800 1 EEST}
{2992111200 7200 0 EET}
{3005330400 10800 1 EEST}
{3024165600 7200 0 EET}
{3036780000 10800 1 EEST}
{3005416800 10800 1 EEST}
{3023560800 7200 0 EET}
{3036866400 10800 1 EEST}
{3055615200 7200 0 EET}
{3068229600 10800 1 EEST}
{3068316000 10800 1 EEST}
{3087064800 7200 0 EET}
{3100284000 10800 1 EEST}
{3099765600 10800 1 EEST}
{3118514400 7200 0 EET}
{3131733600 10800 1 EEST}
{3131820000 10800 1 EEST}
{3149964000 7200 0 EET}
{3163183200 10800 1 EEST}
{3163269600 10800 1 EEST}
{3181413600 7200 0 EET}
{3194632800 10800 1 EEST}
{3213468000 7200 0 EET}
{3226082400 10800 1 EEST}
{3194719200 10800 1 EEST}
{3212863200 7200 0 EET}
{3226168800 10800 1 EEST}
{3244917600 7200 0 EET}
{3258136800 10800 1 EEST}
{3257618400 10800 1 EEST}
{3276367200 7200 0 EET}
{3289586400 10800 1 EEST}
{3289068000 10800 1 EEST}
{3307816800 7200 0 EET}
{3321036000 10800 1 EEST}
{3321122400 10800 1 EEST}
{3339266400 7200 0 EET}
{3352485600 10800 1 EEST}
{3371320800 7200 0 EET}
{3383935200 10800 1 EEST}
{3352572000 10800 1 EEST}
{3370716000 7200 0 EET}
{3384021600 10800 1 EEST}
{3402770400 7200 0 EET}
{3415384800 10800 1 EEST}
{3415471200 10800 1 EEST}
{3434220000 7200 0 EET}
{3447439200 10800 1 EEST}
{3446920800 10800 1 EEST}
{3465669600 7200 0 EET}
{3478888800 10800 1 EEST}
{3478975200 10800 1 EEST}
{3497119200 7200 0 EET}
{3510338400 10800 1 EEST}
{3510424800 10800 1 EEST}
{3528568800 7200 0 EET}
{3541788000 10800 1 EEST}
{3560623200 7200 0 EET}
{3573237600 10800 1 EEST}
{3541874400 10800 1 EEST}
{3560018400 7200 0 EET}
{3573324000 10800 1 EEST}
{3592072800 7200 0 EET}
{3605292000 10800 1 EEST}
{3604773600 10800 1 EEST}
{3623522400 7200 0 EET}
{3636741600 10800 1 EEST}
{3636223200 10800 1 EEST}
{3654972000 7200 0 EET}
{3668191200 10800 1 EEST}
{3668277600 10800 1 EEST}
{3686421600 7200 0 EET}
{3699640800 10800 1 EEST}
{3699727200 10800 1 EEST}
{3717871200 7200 0 EET}
{3731090400 10800 1 EEST}
{3731176800 10800 1 EEST}
{3749925600 7200 0 EET}
{3762540000 10800 1 EEST}
{3762626400 10800 1 EEST}
{3781375200 7200 0 EET}
{3794594400 10800 1 EEST}
{3794076000 10800 1 EEST}
{3812824800 7200 0 EET}
{3826044000 10800 1 EEST}
{3825525600 10800 1 EEST}
{3844274400 7200 0 EET}
{3857493600 10800 1 EEST}
{3857580000 10800 1 EEST}
{3875724000 7200 0 EET}
{3888943200 10800 1 EEST}
{3907778400 7200 0 EET}
{3920392800 10800 1 EEST}
{3889029600 10800 1 EEST}
{3907173600 7200 0 EET}
{3920479200 10800 1 EEST}
{3939228000 7200 0 EET}
{3951842400 10800 1 EEST}
{3951928800 10800 1 EEST}
{3970677600 7200 0 EET}
{3983896800 10800 1 EEST}
{3983378400 10800 1 EEST}
{4002127200 7200 0 EET}
{4015346400 10800 1 EEST}
{4015432800 10800 1 EEST}
{4033576800 7200 0 EET}
{4046796000 10800 1 EEST}
{4046882400 10800 1 EEST}
{4065026400 7200 0 EET}
{4078245600 10800 1 EEST}
{4097080800 7200 0 EET}
{4078332000 10800 1 EEST}
{4096476000 7200 0 EET}
}

216
amd64/lib/tcl8.6/tzdata/Asia/Hebron
View File

@@ -3,16 +3,18 @@
set TZData(:Asia/Hebron) {
{-9223372036854775808 8423 0 LMT}
{-2185410023 7200 0 EEST}
{-933645600 10800 1 EEST}
{-857358000 7200 0 EEST}
{-933638400 10800 1 EEST}
{-923097600 7200 0 EEST}
{-919036800 10800 1 EEST}
{-857347200 7200 0 EEST}
{-844300800 10800 1 EEST}
{-825822000 7200 0 EEST}
{-812685600 10800 1 EEST}
{-794199600 7200 0 EEST}
{-779853600 10800 1 EEST}
{-762656400 7200 0 EEST}
{-825811200 7200 0 EEST}
{-812678400 10800 1 EEST}
{-794188800 7200 0 EEST}
{-779846400 10800 1 EEST}
{-762652800 7200 0 EEST}
{-748310400 10800 1 EEST}
{-731127600 7200 0 EEST}
{-731116800 7200 0 EEST}
{-682653600 7200 0 EET}
{-399088800 10800 1 EEST}
{-386650800 7200 0 EET}
@@ -40,12 +42,12 @@ set TZData(:Asia/Hebron) {
{150843600 7200 0 IST}
{167176800 10800 1 IDT}
{178664400 7200 0 IST}
{334015200 10800 1 IDT}
{337644000 7200 0 IST}
{452556000 10800 1 IDT}
{462232800 7200 0 IST}
{334101600 10800 1 IDT}
{337730400 7200 0 IST}
{452642400 10800 1 IDT}
{462319200 7200 0 IST}
{482277600 10800 1 IDT}
{495579600 7200 0 IST}
{494370000 7200 0 IST}
{516751200 10800 1 IDT}
{526424400 7200 0 IST}
{545436000 10800 1 IDT}
@@ -109,7 +111,7 @@ set TZData(:Asia/Hebron) {
{1395957600 10800 1 EEST}
{1414098000 7200 0 EET}
{1427493600 10800 1 EEST}
{1445547600 7200 0 EET}
{1445551200 7200 0 EET}
{1458946800 10800 1 EEST}
{1477692000 7200 0 EET}
{1490396400 10800 1 EEST}
@@ -117,165 +119,165 @@ set TZData(:Asia/Hebron) {
{1521846000 10800 1 EEST}
{1540591200 7200 0 EET}
{1553810400 10800 1 EEST}
{1572040800 7200 0 EET}
{1585260000 10800 1 EEST}
{1604095200 7200 0 EET}
{1616709600 10800 1 EEST}
{1572037200 7200 0 EET}
{1585346400 10800 1 EEST}
{1603490400 7200 0 EET}
{1616796000 10800 1 EEST}
{1635544800 7200 0 EET}
{1648159200 10800 1 EEST}
{1648245600 10800 1 EEST}
{1666994400 7200 0 EET}
{1680213600 10800 1 EEST}
{1679695200 10800 1 EEST}
{1698444000 7200 0 EET}
{1711663200 10800 1 EEST}
{1711749600 10800 1 EEST}
{1729893600 7200 0 EET}
{1743112800 10800 1 EEST}
{1743199200 10800 1 EEST}
{1761343200 7200 0 EET}
{1774562400 10800 1 EEST}
{1793397600 7200 0 EET}
{1806012000 10800 1 EEST}
{1774648800 10800 1 EEST}
{1792792800 7200 0 EET}
{1806098400 10800 1 EEST}
{1824847200 7200 0 EET}
{1838066400 10800 1 EEST}
{1837548000 10800 1 EEST}
{1856296800 7200 0 EET}
{1869516000 10800 1 EEST}
{1868997600 10800 1 EEST}
{1887746400 7200 0 EET}
{1900965600 10800 1 EEST}
{1901052000 10800 1 EEST}
{1919196000 7200 0 EET}
{1932415200 10800 1 EEST}
{1932501600 10800 1 EEST}
{1950645600 7200 0 EET}
{1963864800 10800 1 EEST}
{1963951200 10800 1 EEST}
{1982700000 7200 0 EET}
{1995314400 10800 1 EEST}
{1995400800 10800 1 EEST}
{2014149600 7200 0 EET}
{2027368800 10800 1 EEST}
{2026850400 10800 1 EEST}
{2045599200 7200 0 EET}
{2058818400 10800 1 EEST}
{2058300000 10800 1 EEST}
{2077048800 7200 0 EET}
{2090268000 10800 1 EEST}
{2090354400 10800 1 EEST}
{2108498400 7200 0 EET}
{2121717600 10800 1 EEST}
{2140552800 7200 0 EET}
{2153167200 10800 1 EEST}
{2121804000 10800 1 EEST}
{2139948000 7200 0 EET}
{2153253600 10800 1 EEST}
{2172002400 7200 0 EET}
{2184616800 10800 1 EEST}
{2184703200 10800 1 EEST}
{2203452000 7200 0 EET}
{2216671200 10800 1 EEST}
{2216152800 10800 1 EEST}
{2234901600 7200 0 EET}
{2248120800 10800 1 EEST}
{2248207200 10800 1 EEST}
{2266351200 7200 0 EET}
{2279570400 10800 1 EEST}
{2279656800 10800 1 EEST}
{2297800800 7200 0 EET}
{2311020000 10800 1 EEST}
{2329855200 7200 0 EET}
{2342469600 10800 1 EEST}
{2311106400 10800 1 EEST}
{2329250400 7200 0 EET}
{2342556000 10800 1 EEST}
{2361304800 7200 0 EET}
{2374524000 10800 1 EEST}
{2374005600 10800 1 EEST}
{2392754400 7200 0 EET}
{2405973600 10800 1 EEST}
{2405455200 10800 1 EEST}
{2424204000 7200 0 EET}
{2437423200 10800 1 EEST}
{2437509600 10800 1 EEST}
{2455653600 7200 0 EET}
{2468872800 10800 1 EEST}
{2487708000 7200 0 EET}
{2500322400 10800 1 EEST}
{2468959200 10800 1 EEST}
{2487103200 7200 0 EET}
{2500408800 10800 1 EEST}
{2519157600 7200 0 EET}
{2531772000 10800 1 EEST}
{2531858400 10800 1 EEST}
{2550607200 7200 0 EET}
{2563826400 10800 1 EEST}
{2563308000 10800 1 EEST}
{2582056800 7200 0 EET}
{2595276000 10800 1 EEST}
{2595362400 10800 1 EEST}
{2613506400 7200 0 EET}
{2626725600 10800 1 EEST}
{2626812000 10800 1 EEST}
{2644956000 7200 0 EET}
{2658175200 10800 1 EEST}
{2677010400 7200 0 EET}
{2689624800 10800 1 EEST}
{2658261600 10800 1 EEST}
{2676405600 7200 0 EET}
{2689711200 10800 1 EEST}
{2708460000 7200 0 EET}
{2721679200 10800 1 EEST}
{2721160800 10800 1 EEST}
{2739909600 7200 0 EET}
{2753128800 10800 1 EEST}
{2752610400 10800 1 EEST}
{2771359200 7200 0 EET}
{2784578400 10800 1 EEST}
{2784664800 10800 1 EEST}
{2802808800 7200 0 EET}
{2816028000 10800 1 EEST}
{2816114400 10800 1 EEST}
{2834258400 7200 0 EET}
{2847477600 10800 1 EEST}
{2847564000 10800 1 EEST}
{2866312800 7200 0 EET}
{2878927200 10800 1 EEST}
{2879013600 10800 1 EEST}
{2897762400 7200 0 EET}
{2910981600 10800 1 EEST}
{2910463200 10800 1 EEST}
{2929212000 7200 0 EET}
{2942431200 10800 1 EEST}
{2941912800 10800 1 EEST}
{2960661600 7200 0 EET}
{2973880800 10800 1 EEST}
{2973967200 10800 1 EEST}
{2992111200 7200 0 EET}
{3005330400 10800 1 EEST}
{3024165600 7200 0 EET}
{3036780000 10800 1 EEST}
{3005416800 10800 1 EEST}
{3023560800 7200 0 EET}
{3036866400 10800 1 EEST}
{3055615200 7200 0 EET}
{3068229600 10800 1 EEST}
{3068316000 10800 1 EEST}
{3087064800 7200 0 EET}
{3100284000 10800 1 EEST}
{3099765600 10800 1 EEST}
{3118514400 7200 0 EET}
{3131733600 10800 1 EEST}
{3131820000 10800 1 EEST}
{3149964000 7200 0 EET}
{3163183200 10800 1 EEST}
{3163269600 10800 1 EEST}
{3181413600 7200 0 EET}
{3194632800 10800 1 EEST}
{3213468000 7200 0 EET}
{3226082400 10800 1 EEST}
{3194719200 10800 1 EEST}
{3212863200 7200 0 EET}
{3226168800 10800 1 EEST}
{3244917600 7200 0 EET}
{3258136800 10800 1 EEST}
{3257618400 10800 1 EEST}
{3276367200 7200 0 EET}
{3289586400 10800 1 EEST}
{3289068000 10800 1 EEST}
{3307816800 7200 0 EET}
{3321036000 10800 1 EEST}
{3321122400 10800 1 EEST}
{3339266400 7200 0 EET}
{3352485600 10800 1 EEST}
{3371320800 7200 0 EET}
{3383935200 10800 1 EEST}
{3352572000 10800 1 EEST}
{3370716000 7200 0 EET}
{3384021600 10800 1 EEST}
{3402770400 7200 0 EET}
{3415384800 10800 1 EEST}
{3415471200 10800 1 EEST}
{3434220000 7200 0 EET}
{3447439200 10800 1 EEST}
{3446920800 10800 1 EEST}
{3465669600 7200 0 EET}
{3478888800 10800 1 EEST}
{3478975200 10800 1 EEST}
{3497119200 7200 0 EET}
{3510338400 10800 1 EEST}
{3510424800 10800 1 EEST}
{3528568800 7200 0 EET}
{3541788000 10800 1 EEST}
{3560623200 7200 0 EET}
{3573237600 10800 1 EEST}
{3541874400 10800 1 EEST}
{3560018400 7200 0 EET}
{3573324000 10800 1 EEST}
{3592072800 7200 0 EET}
{3605292000 10800 1 EEST}
{3604773600 10800 1 EEST}
{3623522400 7200 0 EET}
{3636741600 10800 1 EEST}
{3636223200 10800 1 EEST}
{3654972000 7200 0 EET}
{3668191200 10800 1 EEST}
{3668277600 10800 1 EEST}
{3686421600 7200 0 EET}
{3699640800 10800 1 EEST}
{3699727200 10800 1 EEST}
{3717871200 7200 0 EET}
{3731090400 10800 1 EEST}
{3731176800 10800 1 EEST}
{3749925600 7200 0 EET}
{3762540000 10800 1 EEST}
{3762626400 10800 1 EEST}
{3781375200 7200 0 EET}
{3794594400 10800 1 EEST}
{3794076000 10800 1 EEST}
{3812824800 7200 0 EET}
{3826044000 10800 1 EEST}
{3825525600 10800 1 EEST}
{3844274400 7200 0 EET}
{3857493600 10800 1 EEST}
{3857580000 10800 1 EEST}
{3875724000 7200 0 EET}
{3888943200 10800 1 EEST}
{3907778400 7200 0 EET}
{3920392800 10800 1 EEST}
{3889029600 10800 1 EEST}
{3907173600 7200 0 EET}
{3920479200 10800 1 EEST}
{3939228000 7200 0 EET}
{3951842400 10800 1 EEST}
{3951928800 10800 1 EEST}
{3970677600 7200 0 EET}
{3983896800 10800 1 EEST}
{3983378400 10800 1 EEST}
{4002127200 7200 0 EET}
{4015346400 10800 1 EEST}
{4015432800 10800 1 EEST}
{4033576800 7200 0 EET}
{4046796000 10800 1 EEST}
{4046882400 10800 1 EEST}
{4065026400 7200 0 EET}
{4078245600 10800 1 EEST}
{4097080800 7200 0 EET}
{4078332000 10800 1 EEST}
{4096476000 7200 0 EET}
}

56
amd64/lib/tcl8.6/tzdata/Asia/Jerusalem
View File

@@ -4,47 +4,49 @@ set TZData(:Asia/Jerusalem) {
{-9223372036854775808 8454 0 LMT}
{-2840149254 8440 0 JMT}
{-1641003640 7200 0 IST}
{-933645600 10800 1 IDT}
{-857358000 7200 0 IST}
{-933638400 10800 1 IDT}
{-923097600 7200 0 IST}
{-919036800 10800 1 IDT}
{-857347200 7200 0 IST}
{-844300800 10800 1 IDT}
{-825822000 7200 0 IST}
{-812685600 10800 1 IDT}
{-794199600 7200 0 IST}
{-779853600 10800 1 IDT}
{-762656400 7200 0 IST}
{-825811200 7200 0 IST}
{-812678400 10800 1 IDT}
{-794188800 7200 0 IST}
{-779846400 10800 1 IDT}
{-762652800 7200 0 IST}
{-748310400 10800 1 IDT}
{-731127600 7200 0 IST}
{-681962400 14400 1 IDDT}
{-673243200 10800 1 IDT}
{-667962000 7200 0 IST}
{-652327200 10800 1 IDT}
{-636426000 7200 0 IST}
{-622087200 10800 1 IDT}
{-731116800 7200 0 IST}
{-681955200 14400 1 IDDT}
{-673228800 10800 1 IDT}
{-667958400 7200 0 IST}
{-652320000 10800 1 IDT}
{-636422400 7200 0 IST}
{-622080000 10800 1 IDT}
{-608947200 7200 0 IST}
{-591847200 10800 1 IDT}
{-591840000 10800 1 IDT}
{-572486400 7200 0 IST}
{-558576000 10800 1 IDT}
{-542851200 7200 0 IST}
{-527731200 10800 1 IDT}
{-514425600 7200 0 IST}
{-490845600 10800 1 IDT}
{-482986800 7200 0 IST}
{-459475200 10800 1 IDT}
{-451537200 7200 0 IST}
{-428551200 10800 1 IDT}
{-490838400 10800 1 IDT}
{-482976000 7200 0 IST}
{-459388800 10800 1 IDT}
{-451526400 7200 0 IST}
{-428544000 10800 1 IDT}
{-418262400 7200 0 IST}
{-400032000 10800 1 IDT}
{-387428400 7200 0 IST}
{-400118400 10800 1 IDT}
{-387417600 7200 0 IST}
{142380000 10800 1 IDT}
{150843600 7200 0 IST}
{167176800 10800 1 IDT}
{178664400 7200 0 IST}
{334015200 10800 1 IDT}
{337644000 7200 0 IST}
{452556000 10800 1 IDT}
{462232800 7200 0 IST}
{334101600 10800 1 IDT}
{337730400 7200 0 IST}
{452642400 10800 1 IDT}
{462319200 7200 0 IST}
{482277600 10800 1 IDT}
{495579600 7200 0 IST}
{494370000 7200 0 IST}
{516751200 10800 1 IDT}
{526424400 7200 0 IST}
{545436000 10800 1 IDT}

2
amd64/lib/tcl8.6/tzdata/Asia/Shanghai
View File

@@ -3,6 +3,8 @@
set TZData(:Asia/Shanghai) {
{-9223372036854775808 29143 0 LMT}
{-2177481943 28800 0 CST}
{-1600675200 32400 1 CDT}
{-1585904400 28800 0 CST}
{-933667200 32400 1 CDT}
{-922093200 28800 0 CST}
{-908870400 32400 1 CDT}

29
amd64/lib/tcl8.6/tzdata/Atlantic/Bermuda
View File

@@ -2,7 +2,34 @@
set TZData(:Atlantic/Bermuda) {
{-9223372036854775808 -15558 0 LMT}
{-1262281242 -14400 0 AST}
{-2524506042 -15558 0 BMT}
{-1664307642 -11958 1 BMT}
{-1648932042 -15558 0 BMT}
{-1632080442 -11958 1 BMT}
{-1618692042 -15558 0 BST}
{-1262281242 -14400 0 AT}
{-882727200 -10800 1 ADT}
{-858538800 -14400 0 AST}
{-845229600 -10800 1 ADT}
{-825879600 -14400 0 AST}
{-814384800 -10800 1 ADT}
{-793825200 -14400 0 AST}
{-782935200 -10800 1 ADT}
{-762375600 -14400 0 AST}
{-713988000 -10800 1 ADT}
{-703710000 -14400 0 AST}
{-681933600 -10800 1 ADT}
{-672865200 -14400 0 AST}
{-650484000 -10800 1 ADT}
{-641415600 -14400 0 AST}
{-618429600 -10800 1 ADT}
{-609966000 -14400 0 AST}
{-586980000 -10800 1 ADT}
{-578516400 -14400 0 AST}
{-555530400 -10800 1 ADT}
{-546462000 -14400 0 AST}
{-429127200 -10800 1 ADT}
{-415825200 -14400 0 AST}
{136360800 -10800 0 ADT}
{152082000 -14400 0 AST}
{167810400 -10800 1 ADT}

10
amd64/lib/tcl8.6/tzdata/Australia/Adelaide
View File

@@ -4,14 +4,14 @@ set TZData(:Australia/Adelaide) {
{-9223372036854775808 33260 0 LMT}
{-2364110060 32400 0 ACST}
{-2230189200 34200 0 ACST}
{-1672565340 37800 1 ACDT}
{-1665390600 34200 0 ACST}
{-1672558200 37800 1 ACDT}
{-1665387000 34200 0 ACST}
{-883639800 37800 1 ACDT}
{-876126600 34200 0 ACST}
{-876123000 34200 0 ACST}
{-860398200 37800 1 ACDT}
{-844677000 34200 0 ACST}
{-844673400 34200 0 ACST}
{-828343800 37800 1 ACDT}
{-813227400 34200 0 ACST}
{-813223800 34200 0 ACST}
{31501800 34200 0 ACST}
{57688200 37800 1 ACDT}
{67969800 34200 0 ACST}

10
amd64/lib/tcl8.6/tzdata/Australia/Brisbane
View File

@@ -3,14 +3,14 @@
set TZData(:Australia/Brisbane) {
{-9223372036854775808 36728 0 LMT}
{-2366791928 36000 0 AEST}
{-1672567140 39600 1 AEDT}
{-1665392400 36000 0 AEST}
{-1672560000 39600 1 AEDT}
{-1665388800 36000 0 AEST}
{-883641600 39600 1 AEDT}
{-876128400 36000 0 AEST}
{-876124800 36000 0 AEST}
{-860400000 39600 1 AEDT}
{-844678800 36000 0 AEST}
{-844675200 36000 0 AEST}
{-828345600 39600 1 AEDT}
{-813229200 36000 0 AEST}
{-813225600 36000 0 AEST}
{31500000 36000 0 AEST}
{57686400 39600 1 AEDT}
{67968000 36000 0 AEST}

10
amd64/lib/tcl8.6/tzdata/Australia/Broken_Hill
View File

@@ -5,14 +5,14 @@ set TZData(:Australia/Broken_Hill) {
{-2364110748 36000 0 AEST}
{-2314951200 32400 0 ACST}
{-2230189200 34200 0 ACST}
{-1672565340 37800 1 ACDT}
{-1665390600 34200 0 ACST}
{-1672558200 37800 1 ACDT}
{-1665387000 34200 0 ACST}
{-883639800 37800 1 ACDT}
{-876126600 34200 0 ACST}
{-876123000 34200 0 ACST}
{-860398200 37800 1 ACDT}
{-844677000 34200 0 ACST}
{-844673400 34200 0 ACST}
{-828343800 37800 1 ACDT}
{-813227400 34200 0 ACST}
{-813223800 34200 0 ACST}
{31501800 34200 0 ACST}
{57688200 37800 1 ACDT}
{67969800 34200 0 ACST}

274
amd64/lib/tcl8.6/tzdata/Australia/Currie
View File

@@ -1,273 +1,5 @@
# created by tools/tclZIC.tcl - do not edit
set TZData(:Australia/Currie) {
{-9223372036854775808 34528 0 LMT}
{-2345794528 36000 0 AEST}
{-1680508800 39600 1 AEDT}
{-1669892400 39600 0 AEDT}
{-1665392400 36000 0 AEST}
{-883641600 39600 1 AEDT}
{-876128400 36000 0 AEST}
{-860400000 39600 1 AEDT}
{-844678800 36000 0 AEST}
{-828345600 39600 1 AEDT}
{-813229200 36000 0 AEST}
{47138400 36000 0 AEST}
{57686400 39600 1 AEDT}
{67968000 36000 0 AEST}
{89136000 39600 1 AEDT}
{100022400 36000 0 AEST}
{120585600 39600 1 AEDT}
{131472000 36000 0 AEST}
{152035200 39600 1 AEDT}
{162921600 36000 0 AEST}
{183484800 39600 1 AEDT}
{194976000 36000 0 AEST}
{215539200 39600 1 AEDT}
{226425600 36000 0 AEST}
{246988800 39600 1 AEDT}
{257875200 36000 0 AEST}
{278438400 39600 1 AEDT}
{289324800 36000 0 AEST}
{309888000 39600 1 AEDT}
{320774400 36000 0 AEST}
{341337600 39600 1 AEDT}
{352224000 36000 0 AEST}
{372787200 39600 1 AEDT}
{386092800 36000 0 AEST}
{404841600 39600 1 AEDT}
{417542400 36000 0 AEST}
{436291200 39600 1 AEDT}
{447177600 36000 0 AEST}
{467740800 39600 1 AEDT}
{478627200 36000 0 AEST}
{499190400 39600 1 AEDT}
{510076800 36000 0 AEST}
{530035200 39600 1 AEDT}
{542736000 36000 0 AEST}
{562089600 39600 1 AEDT}
{574790400 36000 0 AEST}
{594144000 39600 1 AEDT}
{606240000 36000 0 AEST}
{625593600 39600 1 AEDT}
{637689600 36000 0 AEST}
{657043200 39600 1 AEDT}
{670348800 36000 0 AEST}
{686678400 39600 1 AEDT}
{701798400 36000 0 AEST}
{718128000 39600 1 AEDT}
{733248000 36000 0 AEST}
{749577600 39600 1 AEDT}
{764697600 36000 0 AEST}
{781027200 39600 1 AEDT}
{796147200 36000 0 AEST}
{812476800 39600 1 AEDT}
{828201600 36000 0 AEST}
{844531200 39600 1 AEDT}
{859651200 36000 0 AEST}
{875980800 39600 1 AEDT}
{891100800 36000 0 AEST}
{907430400 39600 1 AEDT}
{922550400 36000 0 AEST}
{938880000 39600 1 AEDT}
{954000000 36000 0 AEST}
{967305600 39600 1 AEDT}
{985449600 36000 0 AEST}
{1002384000 39600 1 AEDT}
{1017504000 36000 0 AEST}
{1033833600 39600 1 AEDT}
{1048953600 36000 0 AEST}
{1065283200 39600 1 AEDT}
{1080403200 36000 0 AEST}
{1096732800 39600 1 AEDT}
{1111852800 36000 0 AEST}
{1128182400 39600 1 AEDT}
{1143907200 36000 0 AEST}
{1159632000 39600 1 AEDT}
{1174752000 36000 0 AEST}
{1191686400 39600 1 AEDT}
{1207411200 36000 0 AEST}
{1223136000 39600 1 AEDT}
{1238860800 36000 0 AEST}
{1254585600 39600 1 AEDT}
{1270310400 36000 0 AEST}
{1286035200 39600 1 AEDT}
{1301760000 36000 0 AEST}
{1317484800 39600 1 AEDT}
{1333209600 36000 0 AEST}
{1349539200 39600 1 AEDT}
{1365264000 36000 0 AEST}
{1380988800 39600 1 AEDT}
{1396713600 36000 0 AEST}
{1412438400 39600 1 AEDT}
{1428163200 36000 0 AEST}
{1443888000 39600 1 AEDT}
{1459612800 36000 0 AEST}
{1475337600 39600 1 AEDT}
{1491062400 36000 0 AEST}
{1506787200 39600 1 AEDT}
{1522512000 36000 0 AEST}
{1538841600 39600 1 AEDT}
{1554566400 36000 0 AEST}
{1570291200 39600 1 AEDT}
{1586016000 36000 0 AEST}
{1601740800 39600 1 AEDT}
{1617465600 36000 0 AEST}
{1633190400 39600 1 AEDT}
{1648915200 36000 0 AEST}
{1664640000 39600 1 AEDT}
{1680364800 36000 0 AEST}
{1696089600 39600 1 AEDT}
{1712419200 36000 0 AEST}
{1728144000 39600 1 AEDT}
{1743868800 36000 0 AEST}
{1759593600 39600 1 AEDT}
{1775318400 36000 0 AEST}
{1791043200 39600 1 AEDT}
{1806768000 36000 0 AEST}
{1822492800 39600 1 AEDT}
{1838217600 36000 0 AEST}
{1853942400 39600 1 AEDT}
{1869667200 36000 0 AEST}
{1885996800 39600 1 AEDT}
{1901721600 36000 0 AEST}
{1917446400 39600 1 AEDT}
{1933171200 36000 0 AEST}
{1948896000 39600 1 AEDT}
{1964620800 36000 0 AEST}
{1980345600 39600 1 AEDT}
{1996070400 36000 0 AEST}
{2011795200 39600 1 AEDT}
{2027520000 36000 0 AEST}
{2043244800 39600 1 AEDT}
{2058969600 36000 0 AEST}
{2075299200 39600 1 AEDT}
{2091024000 36000 0 AEST}
{2106748800 39600 1 AEDT}
{2122473600 36000 0 AEST}
{2138198400 39600 1 AEDT}
{2153923200 36000 0 AEST}
{2169648000 39600 1 AEDT}
{2185372800 36000 0 AEST}
{2201097600 39600 1 AEDT}
{2216822400 36000 0 AEST}
{2233152000 39600 1 AEDT}
{2248876800 36000 0 AEST}
{2264601600 39600 1 AEDT}
{2280326400 36000 0 AEST}
{2296051200 39600 1 AEDT}
{2311776000 36000 0 AEST}
{2327500800 39600 1 AEDT}
{2343225600 36000 0 AEST}
{2358950400 39600 1 AEDT}
{2374675200 36000 0 AEST}
{2390400000 39600 1 AEDT}
{2406124800 36000 0 AEST}
{2422454400 39600 1 AEDT}
{2438179200 36000 0 AEST}
{2453904000 39600 1 AEDT}
{2469628800 36000 0 AEST}
{2485353600 39600 1 AEDT}
{2501078400 36000 0 AEST}
{2516803200 39600 1 AEDT}
{2532528000 36000 0 AEST}
{2548252800 39600 1 AEDT}
{2563977600 36000 0 AEST}
{2579702400 39600 1 AEDT}
{2596032000 36000 0 AEST}
{2611756800 39600 1 AEDT}
{2627481600 36000 0 AEST}
{2643206400 39600 1 AEDT}
{2658931200 36000 0 AEST}
{2674656000 39600 1 AEDT}
{2690380800 36000 0 AEST}
{2706105600 39600 1 AEDT}
{2721830400 36000 0 AEST}
{2737555200 39600 1 AEDT}
{2753280000 36000 0 AEST}
{2769609600 39600 1 AEDT}
{2785334400 36000 0 AEST}
{2801059200 39600 1 AEDT}
{2816784000 36000 0 AEST}
{2832508800 39600 1 AEDT}
{2848233600 36000 0 AEST}
{2863958400 39600 1 AEDT}
{2879683200 36000 0 AEST}
{2895408000 39600 1 AEDT}
{2911132800 36000 0 AEST}
{2926857600 39600 1 AEDT}
{2942582400 36000 0 AEST}
{2958912000 39600 1 AEDT}
{2974636800 36000 0 AEST}
{2990361600 39600 1 AEDT}
{3006086400 36000 0 AEST}
{3021811200 39600 1 AEDT}
{3037536000 36000 0 AEST}
{3053260800 39600 1 AEDT}
{3068985600 36000 0 AEST}
{3084710400 39600 1 AEDT}
{3100435200 36000 0 AEST}
{3116764800 39600 1 AEDT}
{3132489600 36000 0 AEST}
{3148214400 39600 1 AEDT}
{3163939200 36000 0 AEST}
{3179664000 39600 1 AEDT}
{3195388800 36000 0 AEST}
{3211113600 39600 1 AEDT}
{3226838400 36000 0 AEST}
{3242563200 39600 1 AEDT}
{3258288000 36000 0 AEST}
{3274012800 39600 1 AEDT}
{3289737600 36000 0 AEST}
{3306067200 39600 1 AEDT}
{3321792000 36000 0 AEST}
{3337516800 39600 1 AEDT}
{3353241600 36000 0 AEST}
{3368966400 39600 1 AEDT}
{3384691200 36000 0 AEST}
{3400416000 39600 1 AEDT}
{3416140800 36000 0 AEST}
{3431865600 39600 1 AEDT}
{3447590400 36000 0 AEST}
{3463315200 39600 1 AEDT}
{3479644800 36000 0 AEST}
{3495369600 39600 1 AEDT}
{3511094400 36000 0 AEST}
{3526819200 39600 1 AEDT}
{3542544000 36000 0 AEST}
{3558268800 39600 1 AEDT}
{3573993600 36000 0 AEST}
{3589718400 39600 1 AEDT}
{3605443200 36000 0 AEST}
{3621168000 39600 1 AEDT}
{3636892800 36000 0 AEST}
{3653222400 39600 1 AEDT}
{3668947200 36000 0 AEST}
{3684672000 39600 1 AEDT}
{3700396800 36000 0 AEST}
{3716121600 39600 1 AEDT}
{3731846400 36000 0 AEST}
{3747571200 39600 1 AEDT}
{3763296000 36000 0 AEST}
{3779020800 39600 1 AEDT}
{3794745600 36000 0 AEST}
{3810470400 39600 1 AEDT}
{3826195200 36000 0 AEST}
{3842524800 39600 1 AEDT}
{3858249600 36000 0 AEST}
{3873974400 39600 1 AEDT}
{3889699200 36000 0 AEST}
{3905424000 39600 1 AEDT}
{3921148800 36000 0 AEST}
{3936873600 39600 1 AEDT}
{3952598400 36000 0 AEST}
{3968323200 39600 1 AEDT}
{3984048000 36000 0 AEST}
{4000377600 39600 1 AEDT}
{4016102400 36000 0 AEST}
{4031827200 39600 1 AEDT}
{4047552000 36000 0 AEST}
{4063276800 39600 1 AEDT}
{4079001600 36000 0 AEST}
{4094726400 39600 1 AEDT}
if {![info exists TZData(Australia/Hobart)]} {
LoadTimeZoneFile Australia/Hobart
}
set TZData(:Australia/Currie) $TZData(:Australia/Hobart)

10
amd64/lib/tcl8.6/tzdata/Australia/Darwin
View File

@@ -4,12 +4,12 @@ set TZData(:Australia/Darwin) {
{-9223372036854775808 31400 0 LMT}
{-2364108200 32400 0 ACST}
{-2230189200 34200 0 ACST}
{-1672565340 37800 1 ACDT}
{-1665390600 34200 0 ACST}
{-1672558200 37800 1 ACDT}
{-1665387000 34200 0 ACST}
{-883639800 37800 1 ACDT}
{-876126600 34200 0 ACST}
{-876123000 34200 0 ACST}
{-860398200 37800 1 ACDT}
{-844677000 34200 0 ACST}
{-844673400 34200 0 ACST}
{-828343800 37800 1 ACDT}
{-813227400 34200 0 ACST}
{-813223800 34200 0 ACST}
}

8
amd64/lib/tcl8.6/tzdata/Australia/Eucla
View File

@@ -3,12 +3,12 @@
set TZData(:Australia/Eucla) {
{-9223372036854775808 30928 0 LMT}
{-2337928528 31500 0 +0945}
{-1672562640 35100 1 +0945}
{-1665387900 31500 0 +0945}
{-1672555500 35100 1 +0945}
{-1665384300 31500 0 +0945}
{-883637100 35100 1 +0945}
{-876123900 31500 0 +0945}
{-876120300 31500 0 +0945}
{-860395500 35100 1 +0945}
{-844674300 31500 0 +0945}
{-844670700 31500 0 +0945}
{-836473500 35100 0 +0945}
{152039700 35100 1 +0945}
{162926100 31500 0 +0945}

14
amd64/lib/tcl8.6/tzdata/Australia/Hobart
View File

@@ -4,14 +4,18 @@ set TZData(:Australia/Hobart) {
{-9223372036854775808 35356 0 LMT}
{-2345795356 36000 0 AEST}
{-1680508800 39600 1 AEDT}
{-1669892400 39600 0 AEDT}
{-1665392400 36000 0 AEST}
{-1665388800 36000 0 AEST}
{-1646640000 39600 1 AEDT}
{-1635753600 36000 0 AEST}
{-1615190400 39600 1 AEDT}
{-1604304000 36000 0 AEST}
{-1583920800 36000 0 AEST}
{-883641600 39600 1 AEDT}
{-876128400 36000 0 AEST}
{-876124800 36000 0 AEST}
{-860400000 39600 1 AEDT}
{-844678800 36000 0 AEST}
{-844675200 36000 0 AEST}
{-828345600 39600 1 AEDT}
{-813229200 36000 0 AEST}
{-813225600 36000 0 AEST}
{-94730400 36000 0 AEST}
{-71136000 39600 1 AEDT}
{-55411200 36000 0 AEST}

10
amd64/lib/tcl8.6/tzdata/Australia/Lindeman
View File

@@ -3,14 +3,14 @@
set TZData(:Australia/Lindeman) {
{-9223372036854775808 35756 0 LMT}
{-2366790956 36000 0 AEST}
{-1672567140 39600 1 AEDT}
{-1665392400 36000 0 AEST}
{-1672560000 39600 1 AEDT}
{-1665388800 36000 0 AEST}
{-883641600 39600 1 AEDT}
{-876128400 36000 0 AEST}
{-876124800 36000 0 AEST}
{-860400000 39600 1 AEDT}
{-844678800 36000 0 AEST}
{-844675200 36000 0 AEST}
{-828345600 39600 1 AEDT}
{-813229200 36000 0 AEST}
{-813225600 36000 0 AEST}
{31500000 36000 0 AEST}
{57686400 39600 1 AEDT}
{67968000 36000 0 AEST}

10
amd64/lib/tcl8.6/tzdata/Australia/Melbourne
View File

@@ -3,14 +3,14 @@
set TZData(:Australia/Melbourne) {
{-9223372036854775808 34792 0 LMT}
{-2364111592 36000 0 AEST}
{-1672567140 39600 1 AEDT}
{-1665392400 36000 0 AEST}
{-1672560000 39600 1 AEDT}
{-1665388800 36000 0 AEST}
{-883641600 39600 1 AEDT}
{-876128400 36000 0 AEST}
{-876124800 36000 0 AEST}
{-860400000 39600 1 AEDT}
{-844678800 36000 0 AEST}
{-844675200 36000 0 AEST}
{-828345600 39600 1 AEDT}
{-813229200 36000 0 AEST}
{-813225600 36000 0 AEST}
{31500000 36000 0 AEST}
{57686400 39600 1 AEDT}
{67968000 36000 0 AEST}

8
amd64/lib/tcl8.6/tzdata/Australia/Perth
View File

@@ -3,12 +3,12 @@
set TZData(:Australia/Perth) {
{-9223372036854775808 27804 0 LMT}
{-2337925404 28800 0 AWST}
{-1672559940 32400 1 AWDT}
{-1665385200 28800 0 AWST}
{-1672552800 32400 1 AWDT}
{-1665381600 28800 0 AWST}
{-883634400 32400 1 AWDT}
{-876121200 28800 0 AWST}
{-876117600 28800 0 AWST}
{-860392800 32400 1 AWDT}
{-844671600 28800 0 AWST}
{-844668000 28800 0 AWST}
{-836470800 32400 0 AWST}
{152042400 32400 1 AWDT}
{162928800 28800 0 AWST}

10
amd64/lib/tcl8.6/tzdata/Australia/Sydney
View File

@@ -3,14 +3,14 @@
set TZData(:Australia/Sydney) {
{-9223372036854775808 36292 0 LMT}
{-2364113092 36000 0 AEST}
{-1672567140 39600 1 AEDT}
{-1665392400 36000 0 AEST}
{-1672560000 39600 1 AEDT}
{-1665388800 36000 0 AEST}
{-883641600 39600 1 AEDT}
{-876128400 36000 0 AEST}
{-876124800 36000 0 AEST}
{-860400000 39600 1 AEDT}
{-844678800 36000 0 AEST}
{-844675200 36000 0 AEST}
{-828345600 39600 1 AEDT}
{-813229200 36000 0 AEST}
{-813225600 36000 0 AEST}
{31500000 36000 0 AEST}
{57686400 39600 1 AEDT}
{67968000 36000 0 AEST}

45
amd64/lib/tcl8.6/tzdata/Europe/Budapest
View File

@@ -2,17 +2,19 @@
set TZData(:Europe/Budapest) {
{-9223372036854775808 4580 0 LMT}
{-2500938980 3600 0 CET}
{-2498260580 3600 0 CET}
{-1693706400 7200 1 CEST}
{-1680483600 3600 0 CET}
{-1663455600 7200 1 CEST}
{-1650150000 3600 0 CET}
{-1640998800 3600 0 CET}
{-1633212000 7200 1 CEST}
{-1632006000 7200 1 CEST}
{-1618700400 3600 0 CET}
{-1600466400 7200 1 CEST}
{-1581202800 3600 0 CET}
{-906771600 3600 0 CET}
{-1600470000 7200 1 CEST}
{-1587250800 3600 0 CET}
{-1569711600 7200 1 CEST}
{-1555196400 3600 0 CET}
{-906775200 3600 0 CET}
{-857257200 3600 0 CET}
{-844556400 7200 1 CEST}
{-828226800 3600 0 CET}
@@ -20,33 +22,32 @@ set TZData(:Europe/Budapest) {
{-796777200 3600 0 CET}
{-788922000 3600 0 CET}
{-778471200 7200 1 CEST}
{-762660000 3600 0 CET}
{-762656400 3600 0 CET}
{-749689200 7200 1 CEST}
{-733359600 3600 0 CET}
{-733276800 3600 0 CET}
{-717634800 7200 1 CEST}
{-701910000 3600 0 CET}
{-686185200 7200 1 CEST}
{-670460400 3600 0 CET}
{-654130800 7200 1 CEST}
{-639010800 3600 0 CET}
{-621990000 7200 1 CEST}
{-605660400 3600 0 CET}
{-492656400 7200 1 CEST}
{-481168800 3600 0 CET}
{-461120400 7200 1 CEST}
{-449632800 3600 0 CET}
{-428547600 7200 1 CEST}
{-418269600 3600 0 CET}
{-397094400 7200 1 CEST}
{-461199600 7200 1 CEST}
{-449708400 3600 0 CET}
{-428540400 7200 1 CEST}
{-418258800 3600 0 CET}
{-397090800 7200 1 CEST}
{-386809200 3600 0 CET}
{323827200 7200 1 CEST}
{338950800 3600 0 CET}
{354675600 7200 1 CEST}
{370400400 3600 0 CET}
{386125200 7200 1 CEST}
{401850000 3600 0 CET}
{417574800 7200 1 CEST}
{433299600 3600 0 CET}
{323823600 7200 1 CEST}
{338943600 3600 0 CET}
{354668400 7200 1 CEST}
{370393200 3600 0 CET}
{386118000 7200 1 CEST}
{401842800 3600 0 CET}
{417567600 7200 1 CEST}
{433292400 3600 0 CET}
{441759600 3600 0 CET}
{449024400 7200 1 CEST}
{465354000 3600 0 CET}
{481078800 7200 1 CEST}

4
amd64/lib/tcl8.6/tzdata/Europe/Monaco
View File

@@ -2,8 +2,8 @@
set TZData(:Europe/Monaco) {
{-9223372036854775808 1772 0 LMT}
{-2486680172 561 0 PMT}
{-1855958961 0 0 WET}
{-2448318572 561 0 PMT}
{-1854403761 0 0 WET}
{-1689814800 3600 1 WEST}
{-1680397200 0 0 WET}
{-1665363600 3600 1 WEST}

4
amd64/lib/tcl8.6/tzdata/Europe/Paris
View File

@@ -2,8 +2,8 @@
set TZData(:Europe/Paris) {
{-9223372036854775808 561 0 LMT}
{-2486678901 561 0 PMT}
{-1855958901 0 0 WET}
{-2486592561 561 0 PMT}
{-1855958961 0 0 WET}
{-1689814800 3600 1 WEST}
{-1680397200 0 0 WET}
{-1665363600 3600 1 WEST}

1
amd64/lib/tcl8.6/tzdata/Europe/Volgograd
View File

@@ -69,4 +69,5 @@ set TZData(:Europe/Volgograd) {
{1301180400 14400 0 +04}
{1414274400 10800 0 +03}
{1540681200 14400 0 +04}
{1609020000 10800 0 +03}
}

2
amd64/lib/tcl8.6/tzdata/Indian/Mahe
View File

@@ -2,5 +2,5 @@
set TZData(:Indian/Mahe) {
{-9223372036854775808 13308 0 LMT}
{-2006653308 14400 0 +04}
{-1988163708 14400 0 +04}
}

4
amd64/lib/tcl8.6/tzdata/Pacific/Efate
View File

@@ -3,9 +3,11 @@
set TZData(:Pacific/Efate) {
{-9223372036854775808 40396 0 LMT}
{-1829387596 39600 0 +11}
{125409600 43200 1 +11}
{133876800 39600 0 +11}
{433256400 43200 1 +11}
{448977600 39600 0 +11}
{467298000 43200 1 +11}
{464706000 43200 1 +11}
{480427200 39600 0 +11}
{496760400 43200 1 +11}
{511876800 39600 0 +11}

2
amd64/lib/tcl8.6/tzdata/Pacific/Fiji
View File

@@ -29,7 +29,7 @@ set TZData(:Pacific/Fiji) {
{1547301600 43200 0 +12}
{1573308000 46800 1 +12}
{1578751200 43200 0 +12}
{1604757600 46800 1 +12}
{1608386400 46800 1 +12}
{1610805600 43200 0 +12}
{1636812000 46800 1 +12}
{1642255200 43200 0 +12}

10
amd64/lib/tcl8.6/word.tcl
View File

@@ -4,8 +4,8 @@
# strings. This file is primarily needed so Tk text and entry widgets behave
# properly for different platforms.
#
# Copyright (c) 1996 by Sun Microsystems, Inc.
# Copyright (c) 1998 by Scritpics Corporation.
# Copyright (c) 1996 Sun Microsystems, Inc.
# Copyright (c) 1998 Scritpics Corporation.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
@@ -146,7 +146,9 @@ proc tcl_startOfNextWord {str start} {
proc tcl_startOfPreviousWord {str start} {
variable ::tcl::WordBreakRE
set word {-1 -1}
regexp -indices -- $WordBreakRE(previous) [string range $str 0 $start-1] \
result word
if {$start > 0} {
regexp -indices -- $WordBreakRE(previous) [string range $str 0 $start-1] \
result word
}
return [lindex $word 0]
}

423
amd64/lib/tcl8/8.4/platform-1.0.15.tm Normal file
View File

@@ -0,0 +1,423 @@
# -*- tcl -*-
# ### ### ### ######### ######### #########
## Overview
# Heuristics to assemble a platform identifier from publicly available
# information. The identifier describes the platform of the currently
# running tcl shell. This is a mixture of the runtime environment and
# of build-time properties of the executable itself.
#
# Examples:
# <1> A tcl shell executing on a x86_64 processor, but having a
# wordsize of 4 was compiled for the x86 environment, i.e. 32
# bit, and loaded packages have to match that, and not the
# actual cpu.
#
# <2> The hp/solaris 32/64 bit builds of the core cannot be
# distinguished by looking at tcl_platform. As packages have to
# match the 32/64 information we have to look in more places. In
# this case we inspect the executable itself (magic numbers,
# i.e. fileutil::magic::filetype).
#
# The basic information used comes out of the 'os' and 'machine'
# entries of the 'tcl_platform' array. A number of general and
# os/machine specific transformation are applied to get a canonical
# result.
#
# General
# Only the first element of 'os' is used - we don't care whether we
# are on "Windows NT" or "Windows XP" or whatever.
#
# Machine specific
# % arm* -> arm
# % sun4* -> sparc
# % intel -> ix86
# % i*86* -> ix86
# % Power* -> powerpc
# % x86_64 + wordSize 4 => x86 code
#
# OS specific
# % AIX are always powerpc machines
# % HP-UX 9000/800 etc means parisc
# % linux has to take glibc version into account
# % sunos -> solaris, and keep version number
#
# NOTE: A platform like linux glibc 2.3, which can use glibc 2.2 stuff
# has to provide all possible allowed platform identifiers when
# searching search. Ditto a solaris 2.8 platform can use solaris 2.6
# packages. Etc. This is handled by the other procedure, see below.
# ### ### ### ######### ######### #########
## Requirements
namespace eval ::platform {}
# ### ### ### ######### ######### #########
## Implementation
# -- platform::generic
#
# Assembles an identifier for the generic platform. It leaves out
# details like kernel version, libc version, etc.
proc ::platform::generic {} {
global tcl_platform
set plat [string tolower [lindex $tcl_platform(os) 0]]
set cpu $tcl_platform(machine)
switch -glob -- $cpu {
sun4* {
set cpu sparc
}
intel -
i*86* {
set cpu ix86
}
x86_64 {
if {$tcl_platform(wordSize) == 4} {
# See Example <1> at the top of this file.
set cpu ix86
}
}
"Power*" {
set cpu powerpc
}
"arm*" {
set cpu arm
}
ia64 {
if {$tcl_platform(wordSize) == 4} {
append cpu _32
}
}
}
switch -glob -- $plat {
windows {
if {$tcl_platform(platform) == "unix"} {
set plat cygwin
} else {
set plat win32
}
if {$cpu eq "amd64"} {
# Do not check wordSize, win32-x64 is an IL32P64 platform.
set cpu x86_64
}
}
sunos {
set plat solaris
if {[string match "ix86" $cpu]} {
if {$tcl_platform(wordSize) == 8} {
set cpu x86_64
}
} elseif {![string match "ia64*" $cpu]} {
# sparc
if {$tcl_platform(wordSize) == 8} {
append cpu 64
}
}
}
darwin {
set plat macosx
# Correctly identify the cpu when running as a 64bit
# process on a machine with a 32bit kernel
if {$cpu eq "ix86"} {
if {$tcl_platform(wordSize) == 8} {
set cpu x86_64
}
}
}
aix {
set cpu powerpc
if {$tcl_platform(wordSize) == 8} {
append cpu 64
}
}
hp-ux {
set plat hpux
if {![string match "ia64*" $cpu]} {
set cpu parisc
if {$tcl_platform(wordSize) == 8} {
append cpu 64
}
}
}
osf1 {
set plat tru64
}
default {
set plat [lindex [split $plat _-] 0]
}
}
return "${plat}-${cpu}"
}
# -- platform::identify
#
# Assembles an identifier for the exact platform, by extending the
# generic identifier. I.e. it adds in details like kernel version,
# libc version, etc., if they are relevant for the loading of
# packages on the platform.
proc ::platform::identify {} {
global tcl_platform
set id [generic]
regexp {^([^-]+)-([^-]+)$} $id -> plat cpu
switch -- $plat {
solaris {
regsub {^5} $tcl_platform(osVersion) 2 text
append plat $text
return "${plat}-${cpu}"
}
macosx {
set major [lindex [split $tcl_platform(osVersion) .] 0]
if {$major > 19} {
incr major -20
append plat 11.$major
} else {
incr major -4
append plat 10.$major
return "${plat}-${cpu}"
}
return "${plat}-${cpu}"
}
linux {
# Look for the libc*.so and determine its version
# (libc5/6, libc6 further glibc 2.X)
set v unknown
# Determine in which directory to look. /lib, or /lib64.
# For that we use the tcl_platform(wordSize).
#
# We could use the 'cpu' info, per the equivalence below,
# that however would be restricted to intel. And this may
# be a arm, mips, etc. system. The wordsize is more
# fundamental.
#
# ix86 <=> (wordSize == 4) <=> 32 bit ==> /lib
# x86_64 <=> (wordSize == 8) <=> 64 bit ==> /lib64
#
# Do not look into /lib64 even if present, if the cpu
# doesn't fit.
# TODO: Determine the prefixes (i386, x86_64, ...) for
# other cpus. The path after the generic one is utterly
# specific to intel right now. Ok, on Ubuntu, possibly
# other Debian systems we may apparently be able to query
# the necessary CPU code. If we can't we simply use the
# hardwired fallback.
switch -exact -- $tcl_platform(wordSize) {
4 {
lappend bases /lib
if {[catch {
exec dpkg-architecture -qDEB_HOST_MULTIARCH
} res]} {
lappend bases /lib/i386-linux-gnu
} else {
# dpkg-arch returns the full tripled, not just cpu.
lappend bases /lib/$res
}
}
8 {
lappend bases /lib64
if {[catch {
exec dpkg-architecture -qDEB_HOST_MULTIARCH
} res]} {
lappend bases /lib/x86_64-linux-gnu
} else {
# dpkg-arch returns the full tripled, not just cpu.
lappend bases /lib/$res
}
}
default {
return -code error "Bad wordSize $tcl_platform(wordSize), expected 4 or 8"
}
}
foreach base $bases {
if {[LibcVersion $base -> v]} break
}
append plat -$v
return "${plat}-${cpu}"
}
}
return $id
}
proc ::platform::LibcVersion {base _->_ vv} {
upvar 1 $vv v
set libclist [lsort [glob -nocomplain -directory $base libc*]]
if {![llength $libclist]} { return 0 }
set libc [lindex $libclist 0]
# Try executing the library first. This should suceed
# for a glibc library, and return the version
# information.
if {![catch {
set vdata [lindex [split [exec $libc] \n] 0]
}]} {
regexp {version ([0-9]+(\.[0-9]+)*)} $vdata -> v
foreach {major minor} [split $v .] break
set v glibc${major}.${minor}
return 1
} else {
# We had trouble executing the library. We are now
# inspecting its name to determine the version
# number. This code by Larry McVoy.
if {[regexp -- {libc-([0-9]+)\.([0-9]+)} $libc -> major minor]} {
set v glibc${major}.${minor}
return 1
}
}
return 0
}
# -- platform::patterns
#
# Given an exact platform identifier, i.e. _not_ the generic
# identifier it assembles a list of exact platform identifier
# describing platform which should be compatible with the
# input.
#
# I.e. packages for all platforms in the result list should be
# loadable on the specified platform.
# << Should we add the generic identifier to the list as well ? In
# general it is not compatible I believe. So better not. In many
# cases the exact identifier is identical to the generic one
# anyway.
# >>
proc ::platform::patterns {id} {
set res [list $id]
if {$id eq "tcl"} {return $res}
switch -glob -- $id {
solaris*-* {
if {[regexp {solaris([^-]*)-(.*)} $id -> v cpu]} {
if {$v eq ""} {return $id}
foreach {major minor} [split $v .] break
incr minor -1
for {set j $minor} {$j >= 6} {incr j -1} {
lappend res solaris${major}.${j}-${cpu}
}
}
}
linux*-* {
if {[regexp {linux-glibc([^-]*)-(.*)} $id -> v cpu]} {
foreach {major minor} [split $v .] break
incr minor -1
for {set j $minor} {$j >= 0} {incr j -1} {
lappend res linux-glibc${major}.${j}-${cpu}
}
}
}
macosx-powerpc {
lappend res macosx-universal
}
macosx-x86_64 {
lappend res macosx-i386-x86_64
}
macosx-ix86 {
lappend res macosx-universal macosx-i386-x86_64
}
macosx*-* {
# 10.5+,11.0+
if {[regexp {macosx([^-]*)-(.*)} $id -> v cpu]} {
switch -exact -- $cpu {
ix86 {
lappend alt i386-x86_64
lappend alt universal
}
x86_64 {
if {[lindex [split $::tcl_platform(osVersion) .] 0] < 19} {
set alt i386-x86_64
} else {
set alt {}
}
}
arm {
lappend alt x86_64
}
default { set alt {} }
}
if {$v ne ""} {
foreach {major minor} [split $v .] break
set res {}
if {$major eq 11} {
# Add 11.0 to 11.minor to patterns.
for {set j $minor} {$j >= 0} {incr j -1} {
lappend res macosx${major}.${j}-${cpu}
foreach a $alt {
lappend res macosx${major}.${j}-$a
}
}
set major 10
set minor 15
}
# Add 10.5 to 10.minor to patterns.
for {set j $minor} {$j >= 5} {incr j -1} {
if {$cpu ne "arm"} {
lappend res macosx${major}.${j}-${cpu}
}
foreach a $alt {
lappend res macosx${major}.${j}-$a
}
}
# Add unversioned patterns for 10.3/10.4 builds.
lappend res macosx-${cpu}
foreach a $alt {
lappend res macosx-$a
}
} else {
# No version, just do unversioned patterns.
foreach a $alt {
lappend res macosx-$a
}
}
} else {
# no v, no cpu ... nothing
}
}
}
lappend res tcl ; # Pure tcl packages are always compatible.
return $res
}
# ### ### ### ######### ######### #########
## Ready
package provide platform 1.0.15
# ### ### ### ######### ######### #########
## Demo application
if {[info exists argv0] && ($argv0 eq [info script])} {
puts ====================================
parray tcl_platform
puts ====================================
puts Generic\ identification:\ [::platform::generic]
puts Exact\ identification:\ \ \ [::platform::identify]
puts ====================================
puts Search\ patterns:
puts *\ [join [::platform::patterns [::platform::identify]] \n*\ ]
puts ====================================
exit 0
}

6
amd64/lib/tcl8/8.5/msgcat-1.6.1.tm
View File

@@ -4,9 +4,9 @@
# message catalog facility for Tcl programs. It should be
# loaded with the command "package require msgcat".
#
# Copyright (c) 2010-2015 by Harald Oehlmann.
# Copyright (c) 1998-2000 by Ajuba Solutions.
# Copyright (c) 1998 by Mark Harrison.
# Copyright (c) 2010-2015 Harald Oehlmann.
# Copyright (c) 1998-2000 Ajuba Solutions.
# Copyright (c) 1998 Mark Harrison.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

3515
amd64/lib/tcl8/8.5/tcltest-2.5.3.tm Normal file
View File

File diff suppressed because it is too large Load Diff

3506
amd64/lib/tcl8/8.6/http-2.9.5.tm Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
amd64/lib/tcl86t.lib
View File

Binary file not shown.

26
amd64/lib/tclConfig.sh
View File

@@ -15,21 +15,21 @@ TCL_DLL_FILE="tcl86t.dll"
TCL_VERSION='8.6'
TCL_MAJOR_VERSION='8'
TCL_MINOR_VERSION='6'
TCL_PATCH_LEVEL='8.6.10'
TCL_PATCH_LEVEL='8.6.11'
# C compiler to use for compilation.
TCL_CC='cl'
# -D flags for use with the C compiler.
TCL_DEFS='-nologo -c /D_ATL_XP_TARGETING -W3 -wd4311 -wd4312 -wd4311 -wd4312 -FpC:\A\32\b\tcl-core-8.6.10.0\win\Release_AMD64_VC13\tcl_ThreadedDynamic\ -fp:strict -O2 -GS -GL -MD -I"C:\A\32\b\tcl-core-8.6.10.0\win\..\win" -I"C:\A\32\b\tcl-core-8.6.10.0\win\..\generic" -I"C:\A\32\b\tcl-core-8.6.10.0\win\..\libtommath" /DTCL_TOMMATH /DMP_PREC=4 /Dinline=__inline /DHAVE_ZLIB=1 /D_CRT_SECURE_NO_DEPRECATE /D_CRT_NONSTDC_NO_DEPRECATE /DMP_FIXED_CUTOFFS /DMP_NO_STDINT /DTCL_CFGVAL_ENCODING=\"cp1252\" /DSTDC_HEADERS /DTCL_THREADS=1 /DUSE_THREAD_ALLOC=1 /DNDEBUG /DTCL_CFG_OPTIMIZED /DTCL_CFG_DO64BIT /DBUILD_tcl'
TCL_DEFS='-nologo -c /D_ATL_XP_TARGETING -W3 -wd4311 -wd4312 -wd4311 -wd4312 -FpD:\_w\1\b\tcl-core-8.6.11.0\win\Release_AMD64_VC13\tcl_ThreadedDynamic\ -fp:strict -O2 -GS -GL -MD -I"D:\_w\1\b\tcl-core-8.6.11.0\win\..\win" -I"D:\_w\1\b\tcl-core-8.6.11.0\win\..\generic" -I"D:\_w\1\b\tcl-core-8.6.11.0\win\..\libtommath" /DTCL_TOMMATH /DMP_PREC=4 /Dinline=__inline /DHAVE_ZLIB=1 /D_CRT_SECURE_NO_DEPRECATE /D_CRT_NONSTDC_NO_DEPRECATE /DMP_FIXED_CUTOFFS /DSTDC_HEADERS /DHAVE_STDINT_H=1 /DHAVE_INTTYPES_H=1 /DHAVE_STDBOOL_H=1 /DTCL_THREADS=1 /DUSE_THREAD_ALLOC=1 /DNDEBUG /DTCL_CFG_OPTIMIZED /DTCL_CFG_DO64BIT /DBUILD_tcl'
# If TCL was built with debugging symbols, generated libraries contain
# this string at the end of the library name (before the extension).
TCL_DBGX=t
# Default flags used in an optimized and debuggable build, respectively.
TCL_CFLAGS_DEBUG='-nologo -c -W3 -YX -FpC:\A\32\b\tcl-core-8.6.10.0\win\Release_AMD64_VC13\tcl_ThreadedDynamic\ -MDd'
TCL_CFLAGS_OPTIMIZE='-nologo -c -W3 -YX -FpC:\A\32\b\tcl-core-8.6.10.0\win\Release_AMD64_VC13\tcl_ThreadedDynamic\ -MD'
TCL_CFLAGS_DEBUG='-nologo -c -W3 -YX -FpD:\_w\1\b\tcl-core-8.6.11.0\win\Release_AMD64_VC13\tcl_ThreadedDynamic\ -MDd'
TCL_CFLAGS_OPTIMIZE='-nologo -c -W3 -YX -FpD:\_w\1\b\tcl-core-8.6.11.0\win\Release_AMD64_VC13\tcl_ThreadedDynamic\ -MD'
# Default linker flags used in an optimized and debuggable build, respectively.
TCL_LDFLAGS_DEBUG='-nologo -machine:AMD64 -debug -debugtype:cv'
@@ -55,11 +55,11 @@ TCL_LIBS='kernel32.lib advapi32.lib netapi32.lib user32.lib userenv.lib ws2_32.l
# Top-level directory in which Tcl's platform-independent files are
# installed.
TCL_PREFIX='C:\A\32\b\tcltk-8.6.10.0\amd64'
TCL_PREFIX='D:\_w\1\b\tcltk-8.6.11.0\amd64'
# Top-level directory in which Tcl's platform-specific files (e.g.
# executables) are installed.
TCL_EXEC_PREFIX='C:\A\32\b\tcltk-8.6.10.0\amd64\bin'
TCL_EXEC_PREFIX='D:\_w\1\b\tcltk-8.6.11.0\amd64\bin'
# Flags to pass to cc when compiling the components of a shared library:
TCL_SHLIB_CFLAGS=''
@@ -115,11 +115,11 @@ TCL_BUILD_LIB_SPEC=''
# String to pass to linker to pick up the Tcl library from its
# installed directory.
TCL_LIB_SPEC='C:\A\32\b\tcltk-8.6.10.0\amd64\lib\tcl86t.lib'
TCL_LIB_SPEC='D:\_w\1\b\tcltk-8.6.11.0\amd64\lib\tcl86t.lib'
# String to pass to the compiler so that an extension can
# find installed Tcl headers.
TCL_INCLUDE_SPEC='-IC:\A\32\b\tcltk-8.6.10.0\amd64\include'
TCL_INCLUDE_SPEC='-ID:\_w\1\b\tcltk-8.6.11.0\amd64\include'
# Indicates whether a version numbers should be used in -l switches
# ("ok" means it's safe to use switches like -ltcl7.5; "nodots" means
@@ -146,7 +146,7 @@ TCL_UNSHARED_LIB_SUFFIX='86t.lib'
# different place than the directory containing the source files, this
# points to the location of the sources, not the location where Tcl was
# compiled.
TCL_SRC_DIR='C:\A\32\b\tcl-core-8.6.10.0\win\..'
TCL_SRC_DIR='D:\_w\1\b\tcl-core-8.6.11.0\win\..'
# List of standard directories in which to look for packages during
# "package require" commands. Contains the "prefix" directory plus also
@@ -164,17 +164,17 @@ TCL_STUB_LIB_FLAG='tclstub86.lib'
# String to pass to linker to pick up the Tcl stub library from its
# build directory.
TCL_BUILD_STUB_LIB_SPEC='-LC:\A\32\b\tcl-core-8.6.10.0\win\Release_AMD64_VC13 tclstub86.lib'
TCL_BUILD_STUB_LIB_SPEC='-LD:\_w\1\b\tcl-core-8.6.11.0\win\Release_AMD64_VC13 tclstub86.lib'
# String to pass to linker to pick up the Tcl stub library from its
# installed directory.
TCL_STUB_LIB_SPEC='-LC:\A\32\b\tcltk-8.6.10.0\amd64\lib tclstub86.lib'
TCL_STUB_LIB_SPEC='-LD:\_w\1\b\tcltk-8.6.11.0\amd64\lib tclstub86.lib'
# Path to the Tcl stub library in the build directory.
TCL_BUILD_STUB_LIB_PATH='C:\A\32\b\tcl-core-8.6.10.0\win\Release_AMD64_VC13\tclstub86.lib'
TCL_BUILD_STUB_LIB_PATH='D:\_w\1\b\tcl-core-8.6.11.0\win\Release_AMD64_VC13\tclstub86.lib'
# Path to the Tcl stub library in the install directory.
TCL_STUB_LIB_PATH='C:\A\32\b\tcltk-8.6.10.0\amd64\lib\tclstub86.lib'
TCL_STUB_LIB_PATH='D:\_w\1\b\tcltk-8.6.11.0\amd64\lib\tclstub86.lib'
# Flag, 1: we built Tcl with threads enabled, 0 we didn't
TCL_THREADS=1

BIN
amd64/lib/tclstub86.lib
View File

Binary file not shown.

BIN
amd64/lib/tix8.4.3/tix84.dll
View File

Binary file not shown.

BIN
amd64/lib/tix8.4.3/tix84.lib
View File

Binary file not shown.

12
amd64/lib/tk8.6/bgerror.tcl
View File

@@ -41,7 +41,7 @@ proc ::tk::dialog::error::Details {} {
set w .bgerrorDialog
set caption [option get $w.function text {}]
set command [option get $w.function command {}]
if { ($caption eq "") || ($command eq "") } {
if {($caption eq "") || ($command eq "")} {
grid forget $w.function
}
lappend command [$w.top.info.text get 1.0 end-1c]
@@ -50,7 +50,7 @@ proc ::tk::dialog::error::Details {} {
}
proc ::tk::dialog::error::SaveToLog {text} {
if { $::tcl_platform(platform) eq "windows" } {
if {$::tcl_platform(platform) eq "windows"} {
set allFiles *.*
} else {
set allFiles *
@@ -129,11 +129,11 @@ proc ::tk::dialog::error::bgerror {err {flag 1}} {
set lines 0
set maxLine 45
foreach line [split $err \n] {
if { [string length $line] > $maxLine } {
append displayedErr "[string range $line 0 [expr {$maxLine-3}]]..."
if {[string length $line] > $maxLine} {
append displayedErr "[string range $line 0 $maxLine-3]..."
break
}
if { $lines > 4 } {
if {$lines > 4} {
append displayedErr "..."
break
} else {
@@ -182,7 +182,7 @@ proc ::tk::dialog::error::bgerror {err {flag 1}} {
pack $W.text -side left -expand yes -fill both
$W.text insert 0.0 "$err\n$info"
$W.text mark set insert 0.0
bind $W.text <ButtonPress-1> { focus %W }
bind $W.text <Button-1> {focus %W}
$W.text configure -state disabled
# 2. Fill the top part with bitmap and message

6
amd64/lib/tk8.6/clrpick.tcl
View File

@@ -396,7 +396,7 @@ proc ::tk::dialog::color::DrawColorScale {w c {create 0}} {
# Draw the selection polygons
CreateSelector $w $sel $c
$sel bind $data($c,index) <ButtonPress-1> \
$sel bind $data($c,index) <Button-1> \
[list tk::dialog::color::StartMove $w $sel $c %x $data(selPad) 1]
$sel bind $data($c,index) <B1-Motion> \
[list tk::dialog::color::MoveSelector $w $sel $c %x $data(selPad)]
@@ -409,14 +409,14 @@ proc ::tk::dialog::color::DrawColorScale {w c {create 0}} {
set data($c,clickRegion) [$sel create rectangle 0 0 \
$data(canvasWidth) $height -fill {} -outline {}]
bind $col <ButtonPress-1> \
bind $col <Button-1> \
[list tk::dialog::color::StartMove $w $sel $c %x $data(colorPad)]
bind $col <B1-Motion> \
[list tk::dialog::color::MoveSelector $w $sel $c %x $data(colorPad)]
bind $col <ButtonRelease-1> \
[list tk::dialog::color::ReleaseMouse $w $sel $c %x $data(colorPad)]
$sel bind $data($c,clickRegion) <ButtonPress-1> \
$sel bind $data($c,clickRegion) <Button-1> \
[list tk::dialog::color::StartMove $w $sel $c %x $data(selPad)]
$sel bind $data($c,clickRegion) <B1-Motion> \
[list tk::dialog::color::MoveSelector $w $sel $c %x $data(selPad)]

9
amd64/lib/tk8.6/comdlg.tcl
View File

@@ -29,7 +29,8 @@
# {....}
# }
#
# flags = currently unused.
# flags = a list of flags. Currently supported flags are:
# DONTSETDEFAULTS = skip default values setting
#
# argList = The list of "-option value" pairs.
#
@@ -63,8 +64,10 @@ proc tclParseConfigSpec {w specs flags argList} {
# 2: set the default values
#
foreach cmdsw [array names cmd] {
set data($cmdsw) $def($cmdsw)
if {"DONTSETDEFAULTS" ni $flags} {
foreach cmdsw [array names cmd] {
set data($cmdsw) $def($cmdsw)
}
}
# 3: parse the argument list

8
amd64/lib/tk8.6/console.tcl
View File

@@ -131,7 +131,7 @@ proc ::tk::ConsoleInit {} {
default { set preferred {} }
}
foreach {family size} $preferred {
if {[lsearch -exact $families $family] != -1} {
if {$family in $families} {
font configure TkConsoleFont -family $family -size $size
break
}
@@ -592,7 +592,7 @@ proc ::tk::ConsoleBind {w} {
}
bind Console <F9> {
eval destroy [winfo child .]
source [file join $tk_library console.tcl]
source -encoding utf-8 [file join $tk_library console.tcl]
}
if {[tk windowingsystem] eq "aqua"} {
bind Console <Command-q> {
@@ -740,9 +740,9 @@ proc ::tk::console::FontchooserToggle {} {
}
proc ::tk::console::FontchooserVisibility {index} {
if {[tk fontchooser configure -visible]} {
.menubar.edit entryconfigure $index -label [msgcat::mc "Hide Fonts"]
.menubar.edit entryconfigure $index -label [::tk::msgcat::mc "Hide Fonts"]
} else {
.menubar.edit entryconfigure $index -label [msgcat::mc "Show Fonts"]
.menubar.edit entryconfigure $index -label [::tk::msgcat::mc "Show Fonts"]
}
}
proc ::tk::console::FontchooserFocus {w isFocusIn} {

8
amd64/lib/tk8.6/demos/arrow.tcl
View File

@@ -154,11 +154,11 @@ $c bind box <Enter> "$c itemconfigure current $demo_arrowInfo(activeStyle)"
$c bind box <Leave> "$c itemconfigure current $demo_arrowInfo(boxStyle)"
$c bind box <B1-Enter> " "
$c bind box <B1-Leave> " "
$c bind box1 <1> {set demo_arrowInfo(motionProc) arrowMove1}
$c bind box2 <1> {set demo_arrowInfo(motionProc) arrowMove2}
$c bind box3 <1> {set demo_arrowInfo(motionProc) arrowMove3}
$c bind box1 <Button-1> {set demo_arrowInfo(motionProc) arrowMove1}
$c bind box2 <Button-1> {set demo_arrowInfo(motionProc) arrowMove2}
$c bind box3 <Button-1> {set demo_arrowInfo(motionProc) arrowMove3}
$c bind box <B1-Motion> "\$demo_arrowInfo(motionProc) $c %x %y"
bind $c <Any-ButtonRelease-1> "arrowSetup $c"
bind $c <ButtonRelease-1> "arrowSetup $c"
# arrowMove1 --
# This procedure is called for each mouse motion event on box1 (the

16
amd64/lib/tk8.6/demos/bind.tcl
View File

@@ -63,16 +63,16 @@ $w.text insert end \
# Create bindings for tags.
foreach tag {d1 d2 d3 d4 d5 d6} {
$w.text tag bind $tag <Any-Enter> "$w.text tag configure $tag $bold"
$w.text tag bind $tag <Any-Leave> "$w.text tag configure $tag $normal"
$w.text tag bind $tag <Enter> "$w.text tag configure $tag $bold"
$w.text tag bind $tag <Leave> "$w.text tag configure $tag $normal"
}
# Main widget program sets variable tk_demoDirectory
$w.text tag bind d1 <1> {source [file join $tk_demoDirectory items.tcl]}
$w.text tag bind d2 <1> {source [file join $tk_demoDirectory plot.tcl]}
$w.text tag bind d3 <1> {source [file join $tk_demoDirectory ctext.tcl]}
$w.text tag bind d4 <1> {source [file join $tk_demoDirectory arrow.tcl]}
$w.text tag bind d5 <1> {source [file join $tk_demoDirectory ruler.tcl]}
$w.text tag bind d6 <1> {source [file join $tk_demoDirectory cscroll.tcl]}
$w.text tag bind d1 <Button-1> {source -encoding utf-8 [file join $tk_demoDirectory items.tcl]}
$w.text tag bind d2 <Button-1> {source -encoding utf-8 [file join $tk_demoDirectory plot.tcl]}
$w.text tag bind d3 <Button-1> {source -encoding utf-8 [file join $tk_demoDirectory ctext.tcl]}
$w.text tag bind d4 <Button-1> {source -encoding utf-8 [file join $tk_demoDirectory arrow.tcl]}
$w.text tag bind d5 <Button-1> {source -encoding utf-8 [file join $tk_demoDirectory ruler.tcl]}
$w.text tag bind d6 <Button-1> {source -encoding utf-8 [file join $tk_demoDirectory cscroll.tcl]}
$w.text mark set insert 0.0
$w.text configure -state disabled

2
amd64/lib/tk8.6/demos/colors.tcl
View File

@@ -32,7 +32,7 @@ listbox $w.frame.list -yscroll "$w.frame.scroll set" \
-width 20 -height 16 -setgrid 1
pack $w.frame.list $w.frame.scroll -side left -fill y -expand 1
bind $w.frame.list <Double-1> {
bind $w.frame.list <Double-Button-1> {
tk_setPalette [selection get]
}
$w.frame.list insert 0 gray60 gray70 gray80 gray85 gray90 gray95 \

64
amd64/lib/tk8.6/demos/cscroll.tcl
View File

@@ -53,54 +53,84 @@ for {set i 0} {$i < 20} {incr i} {
}
}
$c bind all <Any-Enter> "scrollEnter $c"
$c bind all <Any-Leave> "scrollLeave $c"
$c bind all <1> "scrollButton $c"
bind $c <2> "$c scan mark %x %y"
bind $c <B2-Motion> "$c scan dragto %x %y"
if {[tk windowingsystem] eq "aqua"} {
$c bind all <Enter> "scrollEnter $c"
$c bind all <Leave> "scrollLeave $c"
$c bind all <Button-1> "scrollButton $c"
if {([tk windowingsystem] eq "aqua") && ![package vsatisfies [package provide Tk] 8.7-]} {
bind $c <Button-3> "$c scan mark %x %y"
bind $c <B3-Motion> "$c scan dragto %x %y"
bind $c <MouseWheel> {
%W yview scroll [expr {-(%D)}] units
%W yview scroll [expr {-%D}] units
}
bind $c <Option-MouseWheel> {
%W yview scroll [expr {-10 * (%D)}] units
%W yview scroll [expr {-10*%D}] units
}
bind $c <Shift-MouseWheel> {
%W xview scroll [expr {-(%D)}] units
%W xview scroll [expr {-%D}] units
}
bind $c <Shift-Option-MouseWheel> {
%W xview scroll [expr {-10 * (%D)}] units
%W xview scroll [expr {-10*%D}] units
}
} else {
bind $c <Button-2> "$c scan mark %x %y"
bind $c <B2-Motion> "$c scan dragto %x %y"
# We must make sure that positive and negative movements are rounded
# equally to integers, avoiding the problem that
# (int)1/-30 = -1,
# but
# (int)-1/-30 = 0
# The following code ensure equal +/- behaviour.
bind $c <MouseWheel> {
%W yview scroll [expr {-(%D / 30)}] units
if {%D >= 0} {
%W yview scroll [expr {%D/-30}] units
} else {
%W yview scroll [expr {(%D-29)/-30}] units
}
}
bind $c <Option-MouseWheel> {
if {%D >= 0} {
%W yview scroll [expr {%D/-3}] units
} else {
%W yview scroll [expr {(%D-2)/-3}] units
}
}
bind $c <Shift-MouseWheel> {
%W xview scroll [expr {-(%D / 30)}] units
if {%D >= 0} {
%W xview scroll [expr {%D/-30}] units
} else {
%W xview scroll [expr {(%D-29)/-30}] units
}
}
bind $c <Shift-Option-MouseWheel> {
if {%D >= 0} {
%W xview scroll [expr {%D/-3}] units
} else {
%W xview scroll [expr {(%D-2)/-3}] units
}
}
}
if {[tk windowingsystem] eq "x11"} {
if {[tk windowingsystem] eq "x11" && ![package vsatisfies [package provide Tk] 8.7-]} {
# Support for mousewheels on Linux/Unix commonly comes through mapping
# the wheel to the extended buttons. If you have a mousewheel, find
# Linux configuration info at:
# http://linuxreviews.org/howtos/xfree/mouse/
bind $c <4> {
bind $c <Button-4> {
if {!$tk_strictMotif} {
%W yview scroll -5 units
}
}
bind $c <Shift-4> {
bind $c <Shift-Button-4> {
if {!$tk_strictMotif} {
%W xview scroll -5 units
}
}
bind $c <5> {
bind $c <Button-5> {
if {!$tk_strictMotif} {
%W yview scroll 5 units
}
}
bind $c <Shift-5> {
bind $c <Shift-Button-5> {
if {!$tk_strictMotif} {
%W xview scroll 5 units
}

18
amd64/lib/tk8.6/demos/ctext.tcl
View File

@@ -41,16 +41,20 @@ $c create rectangle 245 195 255 205 -outline black -fill red
# First, create the text item and give it bindings so it can be edited.
$c addtag text withtag [$c create text 250 200 -text "This is just a string of text to demonstrate the text facilities of canvas widgets. Bindings have been defined to support editing (see above)." -width 440 -anchor n -font $textFont -justify left]
$c bind text <1> "textB1Press $c %x %y"
$c bind text <Button-1> "textB1Press $c %x %y"
$c bind text <B1-Motion> "textB1Move $c %x %y"
$c bind text <Shift-1> "$c select adjust current @%x,%y"
$c bind text <Shift-Button-1> "$c select adjust current @%x,%y"
$c bind text <Shift-B1-Motion> "textB1Move $c %x %y"
$c bind text <KeyPress> "textInsert $c %A"
$c bind text <Key> "textInsert $c %A"
$c bind text <Return> "textInsert $c \\n"
$c bind text <Control-h> "textBs $c"
$c bind text <BackSpace> "textBs $c"
$c bind text <Delete> "textDel $c"
$c bind text <2> "textPaste $c @%x,%y"
if {[tk windowingsystem] eq "aqua" && ![package vsatisfies [package provide Tk] 8.7-]} {
$c bind text <Button-3> "textPaste $c @%x,%y"
} else {
$c bind text <Button-2> "textPaste $c @%x,%y"
}
# Next, create some items that allow the text's anchor position
# to be edited.
@@ -58,14 +62,14 @@ $c bind text <2> "textPaste $c @%x,%y"
proc mkTextConfigBox {w x y option value color} {
set item [$w create rect $x $y [expr {$x+30}] [expr {$y+30}] \
-outline black -fill $color -width 1]
$w bind $item <1> "$w itemconf text $option $value"
$w bind $item <Button-1> "$w itemconf text $option $value"
$w addtag config withtag $item
}
proc mkTextConfigPie {w x y a option value color} {
set item [$w create arc $x $y [expr {$x+90}] [expr {$y+90}] \
-start [expr {$a-15}] -extent 30 -outline black -fill $color \
-width 1]
$w bind $item <1> "$w itemconf text $option $value"
$w bind $item <Button-1> "$w itemconf text $option $value"
$w addtag config withtag $item
}
@@ -84,7 +88,7 @@ mkTextConfigBox $c [expr {$x+60}] [expr {$y+60}] -anchor nw $color
set item [$c create rect \
[expr {$x+40}] [expr {$y+40}] [expr {$x+50}] [expr {$y+50}] \
-outline black -fill red]
$c bind $item <1> "$c itemconf text -anchor center"
$c bind $item <Button-1> "$c itemconf text -anchor center"
$c create text [expr {$x+45}] [expr {$y-5}] \
-text {Text Position} -anchor s -font {Times 20} -fill brown

14
amd64/lib/tk8.6/demos/dialog1.tcl
View File

@@ -2,16 +2,16 @@
#
# This demonstration script creates a dialog box with a local grab.
interp create slave
load {} Tk slave
slave eval {
wm title . slave
interp create child
load {} Tk child
child eval {
wm title . child
wm geometry . +700+30
pack [text .t -width 30 -height 10]
}
after idle {.dialog1.msg configure -wraplength 4i}
set i [tk_dialog .dialog1 "Dialog with local grab" {This is a modal dialog box. It uses Tk's "grab" command to create a "local grab" on the dialog box. The grab prevents any mouse or keyboard events from getting to any other windows in the application until you have answered the dialog by invoking one of the buttons below. However, you can still interact with other applications. For example, you should be able to edit text in the window named "slave" which was created by a slave interpreter.} \
set i [tk_dialog .dialog1 "Dialog with local grab" {This is a modal dialog box. It uses Tk's "grab" command to create a "local grab" on the dialog box. The grab prevents any mouse or keyboard events from getting to any other windows in the application until you have answered the dialog by invoking one of the buttons below. However, you can still interact with other applications. For example, you should be able to edit text in the window named "child" which was created by a child interpreter.} \
info 0 OK Cancel {Show Code}]
switch $i {
@@ -20,6 +20,6 @@ switch $i {
2 {showCode .dialog1}
}
if {[interp exists slave]} {
interp delete slave
if {[interp exists child]} {
interp delete child
}

2
amd64/lib/tk8.6/demos/entry1.tcl
View File

@@ -16,7 +16,7 @@ wm title $w "Entry Demonstration (no scrollbars)"
wm iconname $w "entry1"
positionWindow $w
label $w.msg -font $font -wraplength 5i -justify left -text "Three different entries are displayed below. You can add characters by pointing, clicking and typing. The normal Motif editing characters are supported, along with many Emacs bindings. For example, Backspace and Control-h delete the character to the left of the insertion cursor and Delete and Control-d delete the chararacter to the right of the insertion cursor. For entries that are too large to fit in the window all at once, you can scan through the entries by dragging with mouse button2 pressed."
label $w.msg -font $font -wraplength 5i -justify left -text "Three different entries are displayed below. You can add characters by pointing, clicking and typing. The normal Motif editing characters are supported, along with many Emacs bindings. For example, Backspace and Control-h delete the character to the left of the insertion cursor and Delete and Control-d delete the chararacter to the right of the insertion cursor. For entries that are too large to fit in the window all at once, you can scan through the entries by dragging with mouse the middle mouse button pressed."
pack $w.msg -side top
## See Code / Dismiss buttons

2
amd64/lib/tk8.6/demos/entry2.tcl
View File

@@ -16,7 +16,7 @@ wm title $w "Entry Demonstration (with scrollbars)"
wm iconname $w "entry2"
positionWindow $w
label $w.msg -font $font -wraplength 5i -justify left -text "Three different entries are displayed below, with a scrollbar for each entry. You can add characters by pointing, clicking and typing. The normal Motif editing characters are supported, along with many Emacs bindings. For example, Backspace and Control-h delete the character to the left of the insertion cursor and Delete and Control-d delete the chararacter to the right of the insertion cursor. For entries that are too large to fit in the window all at once, you can scan through the entries with the scrollbars, or by dragging with mouse button2 pressed."
label $w.msg -font $font -wraplength 5i -justify left -text "Three different entries are displayed below, with a scrollbar for each entry. You can add characters by pointing, clicking and typing. The normal Motif editing characters are supported, along with many Emacs bindings. For example, Backspace and Control-h delete the character to the left of the insertion cursor and Delete and Control-d delete the chararacter to the right of the insertion cursor. For entries that are too large to fit in the window all at once, you can scan through the entries with the scrollbars, or by dragging with the middle mouse button pressed."
pack $w.msg -side top
## See Code / Dismiss buttons

2
amd64/lib/tk8.6/demos/entry3.tcl
View File

@@ -102,7 +102,7 @@ foreach {chars digit} {abc 2 def 3 ghi 4 jkl 5 mno 6 pqrs 7 tuv 8 wxyz 9} {
proc validatePhoneChange {W vmode idx char} {
global phoneNumberMap entry3content
if {$idx == -1} {return 1}
if {$idx < 0} {return 1}
after idle [list $W configure -validate $vmode -invcmd bell]
if {
!($idx<3 || $idx==6 || $idx==7 || $idx==11 || $idx>15) &&

15
amd64/lib/tk8.6/demos/floor.tcl
View File

@@ -1354,13 +1354,18 @@ floorDisplay $c 3
# Set up event bindings for canvas:
$c bind floor1 <1> "floorDisplay $c 1"
$c bind floor2 <1> "floorDisplay $c 2"
$c bind floor3 <1> "floorDisplay $c 3"
$c bind floor1 <Button-1> "floorDisplay $c 1"
$c bind floor2 <Button-1> "floorDisplay $c 2"
$c bind floor3 <Button-1> "floorDisplay $c 3"
$c bind room <Enter> "newRoom $c"
$c bind room <Leave> {set currentRoom ""}
bind $c <2> "$c scan mark %x %y"
bind $c <B2-Motion> "$c scan dragto %x %y"
if {[tk windowingsystem] eq "aqua" && ![package vsatisfies [package provide Tk] 8.7-]} {
bind $c <Button-3> "$c scan mark %x %y"
bind $c <B3-Motion> "$c scan dragto %x %y"
} else {
bind $c <Button-2> "$c scan mark %x %y"
bind $c <B2-Motion> "$c scan dragto %x %y"
}
bind $c <Destroy> "unset currentRoom"
set currentRoom ""
trace variable currentRoom w "roomChanged $c"

6
amd64/lib/tk8.6/demos/fontchoose.tcl
View File

@@ -55,10 +55,6 @@ grid $f.msg $f.vs -sticky news
grid $f.font - -sticky e
grid columnconfigure $f 0 -weight 1
grid rowconfigure $f 0 -weight 1
bind $w <Visibility> {
bind %W <Visibility> {}
grid propagate %W.f 0
}
## See Code / Dismiss buttons
set btns [addSeeDismiss $w.buttons $w]
@@ -67,3 +63,5 @@ grid $f -sticky news
grid $btns -sticky ew
grid columnconfigure $w 0 -weight 1
grid rowconfigure $w 0 -weight 1
update idletasks
grid propagate $f 0

12
amd64/lib/tk8.6/demos/goldberg.tcl
View File

@@ -105,7 +105,7 @@ proc DoDisplay {w} {
$w.c yview moveto .05
pack $w.c -in $w.screen -side top -fill both -expand 1
bind $w.c <3> [list $w.pause invoke]
bind $w.c <Button-3> [list $w.pause invoke]
bind $w.c <Destroy> {
after cancel $animationCallbacks(goldberg)
unset animationCallbacks(goldberg)
@@ -162,7 +162,7 @@ proc DoCtrlFrame {w} {
grid $w.speed -in $w.ctrl -row 99 -sticky ew -pady {0 5}
pack $w.speed.scale -fill both -expand 1
grid $w.about -in $w.ctrl -row 100 -sticky ew
bind $w.reset <3> {set S(mode) -1} ;# Debugging
bind $w.reset <Button-3> {set S(mode) -1} ;# Debugging
## See Code / Dismiss buttons hack!
set btns [addSeeDismiss $w.ctrl.buttons $w]
@@ -342,7 +342,7 @@ proc Draw0 {w} {
set xy {719 119 763 119}
$w.c create line $xy -tag I0 -fill $color -width 5 -arrow last \
-arrowshape {18 18 5}
$w.c bind I0 <1> Start
$w.c bind I0 <Button-1> Start
}
proc Move0 {w {step {}}} {
set step [GetStep 0 $step]
@@ -372,7 +372,7 @@ proc Draw1 {w} {
set xy [box 812 122 9]
$w.c create oval $xy -tag I1 -fill $color2 -outline {}
$w.c bind I1 <1> Start
$w.c bind I1 <Button-1> Start
}
proc Move1 {w {step {}}} {
set step [GetStep 1 $step]
@@ -1620,7 +1620,7 @@ proc Move26 {w {step {}}} {
$w.c delete I24 I26
$w.c create text 430 755 -anchor s -tag I26 \
-text "click to continue" -font {{Times Roman} 24 bold}
bind $w.c <1> [list Reset $w]
bind $w.c <Button-1> [list Reset $w]
return 4
}
@@ -1675,7 +1675,7 @@ proc RotateC {x y Ox Oy beta} {
proc Reset {w} {
global S
DrawAll $w
bind $w.c <1> {}
bind $w.c <Button-1> {}
set S(mode) $::MSTART
set S(active) 0
}

2
amd64/lib/tk8.6/demos/image2.tcl
View File

@@ -95,7 +95,7 @@ listbox $w.f.list -width 20 -height 10 -yscrollcommand "$w.f.scroll set"
ttk::scrollbar $w.f.scroll -command "$w.f.list yview"
pack $w.f.list $w.f.scroll -side left -fill y -expand 1
$w.f.list insert 0 earth.gif earthris.gif teapot.ppm
bind $w.f.list <Double-1> "loadImage $w %x %y"
bind $w.f.list <Double-Button-1> "loadImage $w %x %y"
catch {image delete image2a}
image create photo image2a

27
amd64/lib/tk8.6/demos/items.tcl
View File

@@ -17,7 +17,7 @@ wm iconname $w "Items"
positionWindow $w
set c $w.frame.c
label $w.msg -font $font -wraplength 5i -justify left -text "This window contains a canvas widget with examples of the various kinds of items supported by canvases. The following operations are supported:\n Button-1 drag:\tmoves item under pointer.\n Button-2 drag:\trepositions view.\n Button-3 drag:\tstrokes out area.\n Ctrl+f:\t\tprints items under area."
label $w.msg -font $font -wraplength 5i -justify left -text "This window contains a canvas widget with examples of the various kinds of items supported by canvases. The following operations are supported:\n Left-Button drag:\tmoves item under pointer.\n Middle-Button drag:\trepositions view.\n Right-Button drag:\tstrokes out area.\n Ctrl+f:\t\tprints items under area."
pack $w.msg -side top
## See Code / Dismiss buttons
@@ -171,14 +171,21 @@ $c create text 28.5c 17.4c -text Scale: -anchor s
# Set up event bindings for canvas:
$c bind item <Any-Enter> "itemEnter $c"
$c bind item <Any-Leave> "itemLeave $c"
bind $c <2> "$c scan mark %x %y"
bind $c <B2-Motion> "$c scan dragto %x %y"
bind $c <3> "itemMark $c %x %y"
bind $c <B3-Motion> "itemStroke $c %x %y"
$c bind item <Enter> "itemEnter $c"
$c bind item <Leave> "itemLeave $c"
if {[tk windowingsystem] eq "aqua" && ![package vsatisfies [package provide Tk] 8.7-]} {
bind $c <Button-2> "itemMark $c %x %y"
bind $c <B2-Motion> "itemStroke $c %x %y"
bind $c <Button-3> "$c scan mark %x %y"
bind $c <B3-Motion> "$c scan dragto %x %y"
} else {
bind $c <Button-2> "$c scan mark %x %y"
bind $c <B2-Motion> "$c scan dragto %x %y"
bind $c <Button-3> "itemMark $c %x %y"
bind $c <B3-Motion> "itemStroke $c %x %y"
}
bind $c <<NextChar>> "itemsUnderArea $c"
bind $c <1> "itemStartDrag $c %x %y"
bind $c <Button-1> "itemStartDrag $c %x %y"
bind $c <B1-Motion> "itemDrag $c %x %y"
# Utility procedures for highlighting the item under the pointer:
@@ -250,14 +257,14 @@ proc itemsUnderArea {c} {
set area [$c find withtag area]
set items ""
foreach i [$c find enclosed $areaX1 $areaY1 $areaX2 $areaY2] {
if {[lsearch [$c gettags $i] item] != -1} {
if {[lsearch [$c gettags $i] item] >= 0} {
lappend items $i
}
}
puts stdout "Items enclosed by area: $items"
set items ""
foreach i [$c find overlapping $areaX1 $areaY1 $areaX2 $areaY2] {
if {[lsearch [$c gettags $i] item] != -1} {
if {[lsearch [$c gettags $i] item] >= 0} {
lappend items $i
}
}

4
amd64/lib/tk8.6/demos/ixset
View File

@@ -54,7 +54,7 @@ proc readsettings {} {
global screencyc ; set screencyc 600
set xfd [open "|xset q" r]
while {[gets $xfd line] > -1} {
while {[gets $xfd line] >= 0} {
switch -- [lindex $line 0] {
auto {
set rpt [lindex $line 1]
@@ -197,7 +197,7 @@ proc createwindows {} {
bind . <Return> {.buttons.ok flash; .buttons.ok invoke}
bind . <Escape> {.buttons.quit flash; .buttons.quit invoke}
bind . <1> {
bind . <Button-1> {
if {![string match .buttons* %W]} {
.buttons.apply configure -state normal
.buttons.cancel configure -state normal

12
amd64/lib/tk8.6/demos/knightstour.tcl
View File

@@ -21,7 +21,7 @@
# If you let it repeat then it will choose random start positions
# for each new tour.
package require Tk 8.5
package require Tk
# Return a list of accessible squares from a given square
proc ValidMoves {square} {
@@ -29,7 +29,7 @@ proc ValidMoves {square} {
foreach pair {{-1 -2} {-2 -1} {-2 1} {-1 2} {1 2} {2 1} {2 -1} {1 -2}} {
set col [expr {($square % 8) + [lindex $pair 0]}]
set row [expr {($square / 8) + [lindex $pair 1]}]
if {$row > -1 && $row < 8 && $col > -1 && $col < 8} {
if {$row >= 0 && $row < 8 && $col >= 0 && $col < 8} {
lappend moves [expr {$row * 8 + $col}]
}
}
@@ -41,7 +41,7 @@ proc CheckSquare {square} {
variable visited
set moves 0
foreach test [ValidMoves $square] {
if {[lsearch -exact -integer $visited $test] == -1} {
if {[lsearch -exact -integer $visited $test] < 0} {
incr moves
}
}
@@ -55,7 +55,7 @@ proc Next {square} {
set minimum 9
set nextSquare -1
foreach testSquare [ValidMoves $square] {
if {[lsearch -exact -integer $visited $testSquare] == -1} {
if {[lsearch -exact -integer $visited $testSquare] < 0} {
set count [CheckSquare $testSquare]
if {$count < $minimum} {
set minimum $count
@@ -190,7 +190,7 @@ proc CreateGUI {} {
ttk::button $dlg.tf.b1 -text Start -command [list Tour $dlg]
ttk::button $dlg.tf.b2 -text Exit -command [list Exit $dlg]
set square 0
for {set row 7} {$row != -1} {incr row -1} {
for {set row 7} {$row >= 0} {incr row -1} {
for {set col 0} {$col < 8} {incr col} {
if {(($col & 1) ^ ($row & 1))} {
set fill tan3 ; set dfill tan4
@@ -218,7 +218,7 @@ proc CreateGUI {} {
-fill black -activefill "#600000"
}
$c moveto knight {*}[lrange [$c coords [expr {1 + int(rand() * 64)}]] 0 1]
$c bind knight <ButtonPress-1> [namespace code [list DragStart %W %x %y]]
$c bind knight <Button-1> [namespace code [list DragStart %W %x %y]]
$c bind knight <Motion> [namespace code [list DragMotion %W %x %y]]
$c bind knight <ButtonRelease-1> [namespace code [list DragEnd %W %x %y]]

23
amd64/lib/tk8.6/demos/menu.tcl
View File

@@ -63,7 +63,7 @@ if {[tk windowingsystem] eq "aqua"} {
}
foreach i {A B C D E F} {
$m add command -label "Print letter \"$i\"" -underline 14 \
-accelerator Meta+$i -command "puts $i" -accelerator $modifier+$i
-accelerator $modifier+$i -command "puts $i"
bind $w <$modifier-[string tolower $i]> "puts $i"
}
@@ -144,9 +144,24 @@ $m entryconfigure "Does almost nothing" -bitmap questhead -compound left \
set m $w.menu.colors
$w.menu add cascade -label "Colors" -menu $m -underline 1
menu $m -tearoff 1
foreach i {red orange yellow green blue} {
$m add command -label $i -background $i -command [list \
puts "You invoked \"$i\"" ]
if {[tk windowingsystem] eq "aqua"} {
# Aqua ignores the -background and -foreground options, but a compound
# button can be used for selecting colors.
foreach i {red orange yellow green blue} {
image create photo image_$i -height 16 -width 16
image_$i put black -to 0 0 16 1
image_$i put black -to 0 1 1 16
image_$i put black -to 0 15 16 16
image_$i put black -to 15 1 16 16
image_$i put $i -to 1 1 15 15
$m add command -label $i -image image_$i -compound left -command [list \
puts "You invoked \"$i\"" ]
}
} else {
foreach i {red orange yellow green blue} {
$m add command -label $i -background $i -command [list \
puts "You invoked \"$i\"" ]
}
}
$w configure -menu $w.menu

2
amd64/lib/tk8.6/demos/pendulum.tcl
View File

@@ -113,7 +113,7 @@ bind $w.c <Destroy> {
after cancel $animationCallbacks(pendulum)
unset animationCallbacks(pendulum)
}
bind $w.c <1> {
bind $w.c <Button-1> {
after cancel $animationCallbacks(pendulum)
showPendulum %W at %x %y
}

Some files were not shown because too many files have changed in this diff Show More