Posted to tcl by dzach at Wed Aug 15 09:45:03 GMT 2007view raw
- #include <tcl.h>
- static int
- fraclock_Cmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[])
- {
- Tcl_Time t;
- Tcl_GetTime(&t);
- Tcl_SetObjResult(interp, Tcl_NewDoubleObj(t.sec + t.usec / 1000000.0));
- return TCL_OK;
- }
- int DLLEXPORT
- Fraclock_Init(Tcl_Interp *interp)
- {
- if (Tcl_InitStubs(interp, TCL_VERSION, 0) == 0L) {
- return TCL_ERROR;
- }
- Tcl_CreateObjCommand(interp, "fraclock", fraclock_Cmd, NULL, NULL);
- Tcl_PkgProvide(interp, "fraclock", "1.0");
- return TCL_OK;
- }