tclClock.c File Reference

#include "tclInt.h"

Go to the source code of this file.

Data Structures

struct ClockClientData

struct TclDateFields

struct ClockCommand

Defines

#define JULIAN_DAY_POSIX_EPOCH   2440588

#define SECONDS_PER_DAY   86400

#define JULIAN_SEC_POSIX_EPOCH

#define FOUR_CENTURIES   146097

#define JDAY_1_JAN_1_CE_JULIAN   1721424

#define JDAY_1_JAN_1_CE_GREGORIAN   1721426

#define ONE_CENTURY_GREGORIAN   36524

#define FOUR_YEARS   1461

#define ONE_YEAR   365

#define TCL_CLOCK_PREFIX_LEN   14

Enumerations

enum ClockLiteral {
  LIT_BCE, LIT_CE, LIT_DAYOFMONTH, LIT_DAYOFWEEK,
  LIT_DAYOFYEAR, LIT_ERA, LIT_GREGORIAN, LIT_ISO8601WEEK,
  LIT_ISO8601YEAR, LIT_JULIANDAY, LIT_LOCALSECONDS, LIT_MONTH,
  LIT_SECONDS, LIT_TZNAME, LIT_TZOFFSET, LIT_YEAR,
  LIT__END
}

Functions

void TclClockInit (Tcl_Interp *interp)

int ClockGetdatefieldsObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv)

int ClockClicksObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv)

int ClockMillisecondsObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv)

int ClockMicrosecondsObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv)

int ClockSecondsObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv)

Define Documentation

#define FOUR_CENTURIES 146097

Definition at line 36 of file tclClock.c.

#define FOUR_YEARS 1461

Definition at line 40 of file tclClock.c.

#define JDAY_1_JAN_1_CE_GREGORIAN 1721426

Definition at line 38 of file tclClock.c.

#define JDAY_1_JAN_1_CE_JULIAN 1721424

Definition at line 37 of file tclClock.c.

#define JULIAN_DAY_POSIX_EPOCH 2440588

Definition at line 32 of file tclClock.c.

#define JULIAN_SEC_POSIX_EPOCH

Value:

(((Tcl_WideInt) JULIAN_DAY_POSIX_EPOCH) \
                                        * SECONDS_PER_DAY)

Definition at line 34 of file tclClock.c.

Referenced by ClockGetdatefieldsObjCmd().

#define ONE_CENTURY_GREGORIAN 36524

Definition at line 39 of file tclClock.c.

#define ONE_YEAR 365

Definition at line 41 of file tclClock.c.

#define SECONDS_PER_DAY 86400

Definition at line 33 of file tclClock.c.

Referenced by ClockGetdatefieldsObjCmd().

#define TCL_CLOCK_PREFIX_LEN 14

Referenced by TclClockInit().

Enumeration Type Documentation

enum ClockLiteral

Enumerator:

LIT_BCE
LIT_CE
LIT_DAYOFMONTH
LIT_DAYOFWEEK
LIT_DAYOFYEAR
LIT_ERA
LIT_GREGORIAN
LIT_ISO8601WEEK
LIT_ISO8601YEAR
LIT_JULIANDAY
LIT_LOCALSECONDS
LIT_MONTH
LIT_SECONDS
LIT_TZNAME
LIT_TZOFFSET
LIT_YEAR
LIT__END

Definition at line 60 of file tclClock.c.

Function Documentation

int ClockClicksObjCmd	(	ClientData	clientData,
		Tcl_Interp *	interp,
		int	objc,
		Tcl_Obj const	objv
	)

Definition at line 1654 of file tclClock.c.

References TCL_ERROR, Tcl_GetIndexFromObj(), Tcl_GetTime(), Tcl_NewWideIntObj(), TCL_OK, Tcl_SetObjResult(), Tcl_WrongNumArgs(), and TclpGetClicks().

int ClockGetdatefieldsObjCmd	(	ClientData	clientData,
		Tcl_Interp *	interp,
		int	objc,
		Tcl_Obj const	objv
	)

Definition at line 383 of file tclClock.c.

References TclDateFields::dayOfMonth, TclDateFields::dayOfWeek, TclDateFields::dayOfYear, TclDateFields::era, TclDateFields::gregorian, TclDateFields::iso8601Week, TclDateFields::iso8601Year, JULIAN_SEC_POSIX_EPOCH, TclDateFields::julianDay, LIT_BCE, LIT_CE, LIT_DAYOFMONTH, LIT_DAYOFWEEK, LIT_DAYOFYEAR, LIT_ERA, LIT_GREGORIAN, LIT_ISO8601WEEK, LIT_ISO8601YEAR, LIT_JULIANDAY, LIT_MONTH, LIT_TZNAME, LIT_TZOFFSET, LIT_YEAR, ClockClientData::literals, TclDateFields::localSeconds, TclDateFields::month, TclDateFields::seconds, SECONDS_PER_DAY, Tcl_DecrRefCount, Tcl_DictObjPut(), TCL_ERROR, Tcl_GetWideIntFromObj(), Tcl_NewDictObj(), Tcl_NewIntObj(), Tcl_NewWideIntObj(), TCL_OK, Tcl_SetObjResult(), Tcl_WrongNumArgs(), TclGetIntFromObj, TclDateFields::tzName, TclDateFields::tzOffset, and TclDateFields::year.

int ClockMicrosecondsObjCmd	(	ClientData	clientData,
		Tcl_Interp *	interp,
		int	objc,
		Tcl_Obj const	objv
	)

Definition at line 1764 of file tclClock.c.

References Tcl_Time::sec, TCL_ERROR, Tcl_GetTime(), Tcl_NewWideIntObj(), TCL_OK, Tcl_SetObjResult(), Tcl_WrongNumArgs(), and Tcl_Time::usec.

int ClockMillisecondsObjCmd	(	ClientData	clientData,
		Tcl_Interp *	interp,
		int	objc,
		Tcl_Obj const	objv
	)

Definition at line 1727 of file tclClock.c.

References Tcl_Time::sec, TCL_ERROR, Tcl_GetTime(), Tcl_NewWideIntObj(), TCL_OK, Tcl_SetObjResult(), Tcl_WrongNumArgs(), and Tcl_Time::usec.

int ClockSecondsObjCmd	(	ClientData	clientData,
		Tcl_Interp *	interp,
		int	objc,
		Tcl_Obj const	objv
	)

Definition at line 1801 of file tclClock.c.

References Tcl_Time::sec, TCL_ERROR, Tcl_GetTime(), Tcl_NewWideIntObj(), TCL_OK, Tcl_SetObjResult(), and Tcl_WrongNumArgs().

void TclClockInit ( Tcl_Interp * interp )

Definition at line 234 of file tclClock.c.

References ckalloc, LIT__END, ClockClientData::literals, ClockCommand::name, ClockCommand::objCmdProc, ClockClientData::refCount, TCL_CLOCK_PREFIX_LEN, Tcl_CreateObjCommand(), Tcl_IncrRefCount, and Tcl_NewStringObj().

Generated on Wed Mar 12 12:18:28 2008 by

1.5.1