Tcl Source Code

    const char *name;		/* The tail of the command name. The full name
				 * is "::tcl::clock::<name>". When NULL marks
				 * the end of the table. */
    Tcl_ObjCmdProc *objCmdProc; /* Function that implements the command. This
				 * will always have the ClockClientData sent
				 * to it, but may well ignore this data. */
    CompileProc *compileProc;	/* The compiler for the command. */
    int initialize;		/* 0 if no initialization is needed */
    void *clientData;	/* Any clientData to give the command (if NULL
    				 * a reference to ClockClientData will be sent) */
};

static const struct ClockCommand clockCommands[] = {
    {"add",		ClockAddObjCmd,		TclCompileBasicMin1ArgCmd, 1, NULL},
    {"clicks",		ClockClicksObjCmd,	TclCompileClockClicksCmd,  0, NULL},
    {"format",		ClockFormatObjCmd,	TclCompileBasicMin1ArgCmd, 1, NULL},
    {"getenv",		ClockGetenvObjCmd,	TclCompileBasicMin1ArgCmd, 0, NULL},
    {"microseconds",	ClockMicrosecondsObjCmd,TclCompileClockReadingCmd, 0, INT2PTR(1)},
    {"milliseconds",	ClockMillisecondsObjCmd,TclCompileClockReadingCmd, 0, INT2PTR(2)},
    {"scan",		ClockScanObjCmd,	TclCompileBasicMin1ArgCmd, 1, NULL},
    {"seconds",		ClockSecondsObjCmd,	TclCompileClockReadingCmd, 0, INT2PTR(3)},
    {"ConvertLocalToUTC", ClockConvertlocaltoutcObjCmd,		NULL,  0, NULL},
    {"GetDateFields",	  ClockGetdatefieldsObjCmd,		NULL,  0, NULL},
    {"GetJulianDayFromEraYearMonthDay",
		ClockGetjuliandayfromerayearmonthdayObjCmd,	NULL,  0, NULL},
    {"GetJulianDayFromEraYearWeekDay",
		ClockGetjuliandayfromerayearweekdayObjCmd,	NULL,  0, NULL},
    {"catch",		ClockSafeCatchCmd,	TclCompileBasicMin1ArgCmd, 0, NULL},
    {NULL, NULL, NULL, 0, NULL}
};

/*
 *----------------------------------------------------------------------
 *
 * TclClockInit --
 *

TclClockInit(
    Tcl_Interp *interp)		/* Tcl interpreter */
{
    const struct ClockCommand *clockCmdPtr;
    char cmdNamePublic[50];	/* Buffer large enough to hold the string
				 *::tcl::clock::GetJulianDayFromEraYearMonthDay
				 * plus a terminating NUL. */
    char cmdNameUninitialized[65];
				/* Buffer large enough to hold the string
				 *::tcl::clock::uninitialized::GetJulianDayFromEraYearMonthDay
				 * plus a terminating NUL. */
    char *cmdName;
    Command         *cmdPtr;
    ClockClientData *data;
    int i;

    /*
     * Safe interps get [::clock] as alias to a parent, so do not need their

    /*
     * Install the commands.
     */

#define TCL_CLOCK_PREFIX_LEN 14 /* == strlen("::tcl::clock::") */
#define TCL_CLOCK_UNINITIALIZED_PREFIX_LEN 29 /* == strlen("::tcl::clock::uninitialized::") */
    memcpy(cmdNamePublic, "::tcl::clock::", TCL_CLOCK_PREFIX_LEN);
    memcpy(cmdNameUninitialized, "::tcl::clock::uninitialized::"
	    , TCL_CLOCK_UNINITIALIZED_PREFIX_LEN);
    for (clockCmdPtr=clockCommands ; clockCmdPtr->name!=NULL ; clockCmdPtr++) {
    	void *clientData;

	if (clockCmdPtr->initialize == 1) {
	    cmdName = cmdNameUninitialized;
	    strcpy(cmdName + TCL_CLOCK_UNINITIALIZED_PREFIX_LEN, clockCmdPtr->name);
	} else {
	    cmdName = cmdNamePublic;
	    strcpy(cmdName + TCL_CLOCK_PREFIX_LEN, clockCmdPtr->name);
	}

	if (!(clientData = clockCmdPtr->clientData)) {
	    clientData = data;
	    data->refCount++;
	}
	cmdPtr = (Command *)Tcl_CreateObjCommand(interp, cmdName,
		clockCmdPtr->objCmdProc, clientData,

	namespace inscope ::tcl::clock [list namespace ensemble create -command \
	    [uplevel 1 [list ::namespace origin [::lindex [info level 0] 0]]] \
	    -map $cmdmap \
	    -unknown [
		list ::apply [list {name action args} {
		    # Auto-load clock.tcl
		    ::source -encoding utf-8 [::file join [info library] clock.tcl]

		    set ensemble [uplevel 1 [::list ::namespace which $name]]
		    set ns [namespace ensemble configure $ensemble -namespace]
		    set unns ${ns}::uninitialized
		    set cmdmap [namespace ensemble configure $ensemble -map]
		    foreach name [info commands ${unns}::*] {
			set tail [namespace tail $name]
			set target ${ns}::$tail
			rename $name $target
			dict set cmdmap [namespace tail $name] $target
		    }
		    namespace ensemble configure $ensemble -map $cmdmap -unknown {}
		    return
		} [namespace current]]
		]
	    ]
	::tcl::unsupported::clock::configure -init-complete