Posted to tcl by dzach at Wed Aug 15 09:45:03 GMT 2007view raw

  1. #include <tcl.h>
  2.  
  3. static int
  4. fraclock_Cmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[])
  5. {
  6. Tcl_Time t;
  7. Tcl_GetTime(&t);
  8. Tcl_SetObjResult(interp, Tcl_NewDoubleObj(t.sec + t.usec / 1000000.0));
  9. return TCL_OK;
  10. }
  11.  
  12. int DLLEXPORT
  13. Fraclock_Init(Tcl_Interp *interp)
  14. {
  15. if (Tcl_InitStubs(interp, TCL_VERSION, 0) == 0L) {
  16. return TCL_ERROR;
  17. }
  18. Tcl_CreateObjCommand(interp, "fraclock", fraclock_Cmd, NULL, NULL);
  19. Tcl_PkgProvide(interp, "fraclock", "1.0");
  20. return TCL_OK;
  21. }