in tcl_cmds.c [1837:1852]
int cmd_ap_rationalize_mtime(ClientData cd, Tcl_Interp *ixx, int objc, Tcl_Obj *CONST objv[])
{
apr_time_t mtime;
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "mtime");
return TCL_ERROR;
}
Tcl_GetIntFromObj(interp, objv[1], (int*) &mtime);
Tcl_SetObjResult(interp, Tcl_NewIntObj(ap_rationalize_mtime(_r, mtime)));
return TCL_OK;
}