Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | options alphabetical |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | jn-tcl-clock-configure--back-from-unsupported-ns |
| Files: | files | file ages | folders |
| SHA3-256: |
d43fac373b92de072b3e81ed0aead83d |
| User & Date: | jan.nijtmans 2024-04-13 22:05:24 |
Context
|
2024-04-13
| ||
| 22:19 | missing ',' Leaf check-in: 7382cc0899 user: jan.nijtmans tags: jn-tcl-clock-configure--back-from-unsupported-ns | |
| 22:05 | options alphabetical check-in: d43fac373b user: jan.nijtmans tags: jn-tcl-clock-configure--back-from-unsupported-ns | |
| 21:15 | Merge 8.7 check-in: 4723ca4c9f user: jan.nijtmans tags: jn-tcl-clock-configure--back-from-unsupported-ns | |
Changes
Changes to generic/tclClock.c.
| ︙ | ︙ | |||
950 951 952 953 954 955 956 |
void *clientData, /* Client data containing literal pool */
Tcl_Interp *interp, /* Tcl interpreter */
int objc, /* Parameter count */
Tcl_Obj *const objv[]) /* Parameter vector */
{
ClockClientData *dataPtr = (ClockClientData *)clientData;
static const char *const options[] = {
| | < | < | < | | 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 |
void *clientData, /* Client data containing literal pool */
Tcl_Interp *interp, /* Tcl interpreter */
int objc, /* Parameter count */
Tcl_Obj *const objv[]) /* Parameter vector */
{
ClockClientData *dataPtr = (ClockClientData *)clientData;
static const char *const options[] = {
"-default-locale", "-clear", "-current-locale",
"-init-complete", "-system-tz", "-setup-tz", NULL
};
enum optionInd {
CLOCK_DEFAULT_LOCALE, CLOCK_CLEAR_CACHE, CLOCK_CURRENT_LOCALE,
CLOCK_INIT_COMPLETE, CLOCK_SYSTEM_TZ, CLOCK_SETUP_TZ
};
int optionIndex; /* Index of an option. */
int i;
for (i = 1; i < objc; i++) {
if (Tcl_GetIndexFromObj(interp, objv[i++], options,
"option", 0, &optionIndex) != TCL_OK) {
|
| ︙ | ︙ | |||
1064 1065 1066 1067 1068 1069 1070 |
Tcl_Interp *interp, /* Tcl interpreter */
int objc, /* Parameter count */
Tcl_Obj *const objv[]) /* Parameter vector */
{
ClockClientData *dataPtr = (ClockClientData *)clientData;
static const char *const options[] = {
| | | < | | | 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 |
Tcl_Interp *interp, /* Tcl interpreter */
int objc, /* Parameter count */
Tcl_Obj *const objv[]) /* Parameter vector */
{
ClockClientData *dataPtr = (ClockClientData *)clientData;
static const char *const options[] = {
"-century-switch", "-max-jdn", "-max-year", "-min-year",
"-validate" "-year-century", NULL
};
enum optionInd {
CLOCK_CENTURY_SWITCH, CLOCK_MAX_JDN, CLOCK_MAX_YEAR, CLOCK_MIN_YEAR,
CLOCK_VALIDATE, CLOCK_YEAR_CENTURY
};
int optionIndex; /* Index of an option. */
int i;
for (i = 1; i < objc; i++) {
if (Tcl_GetIndexFromObj(interp, objv[i++], options,
"option", 0, &optionIndex) != TCL_OK) {
|
| ︙ | ︙ | |||
4589 4590 4591 4592 4593 4594 4595 |
ClockSafeCatchCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp,
int objc,
Tcl_Obj *const objv[])
{
typedef struct {
| | | | | | | | | | | | 4585 4586 4587 4588 4589 4590 4591 4592 4593 4594 4595 4596 4597 4598 4599 4600 4601 4602 4603 4604 4605 4606 4607 4608 |
ClockSafeCatchCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp,
int objc,
Tcl_Obj *const objv[])
{
typedef struct {
int status; /* return code status */
int flags; /* Each remaining field saves the */
int returnLevel; /* corresponding field of the Interp */
int returnCode; /* struct. These fields taken together are */
Tcl_Obj *errorInfo; /* the "state" of the interp. */
Tcl_Obj *errorCode;
Tcl_Obj *returnOpts;
Tcl_Obj *objResult;
Tcl_Obj *errorStack;
int resetErrorStack;
} InterpState;
Interp *iPtr = (Interp *)interp;
int ret, flags = 0;
InterpState *statePtr;
if (objc == 1) {
|
| ︙ | ︙ |
Changes to generic/tclStrIdxTree.c.
| ︙ | ︙ | |||
475 476 477 478 479 480 481 |
tree = tree->nextPtr;
}
TclUnsetObjRef(obj[0]);
}
int
TclStrIdxTreeTestObjCmd(
| | | < | | 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 |
tree = tree->nextPtr;
}
TclUnsetObjRef(obj[0]);
}
int
TclStrIdxTreeTestObjCmd(
void *clientData, Tcl_Interp *interp,
int objc, Tcl_Obj *const objv[])
{
const char *cs, *cin, *ret;
static const char *const options[] = {
"findequal", "index", "puts-index", NULL
};
enum optionInd {
O_FINDEQUAL, O_INDEX, O_PUTS_INDEX,
};
int optionIndex;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "");
return TCL_ERROR;
}
|
| ︙ | ︙ |