1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
/*
* tclWinTime.c --
*
* Contains Windows specific versions of Tcl functions that
* obtain time values from the operating system.
*
* Copyright 1995-1998 by Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclWinTime.c,v 1.18.2.5 2004/04/09 20:58:20 dgp Exp $
*/
#include "tclInt.h"
#define SECSPERDAY (60L * 60L * 24L)
#define SECSPERYEAR (SECSPERDAY * 365L)
#define SECSPER4YEAR (SECSPERYEAR * 4L + SECSPERDAY)
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
/*
* tclWinTime.c --
*
* Contains Windows specific versions of Tcl functions that
* obtain time values from the operating system.
*
* Copyright 1995-1998 by Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclWinTime.c,v 1.18.2.6 2004/05/04 17:44:21 dgp Exp $
*/
#include "tclInt.h"
#define SECSPERDAY (60L * 60L * 24L)
#define SECSPERYEAR (SECSPERDAY * 365L)
#define SECSPER4YEAR (SECSPERYEAR * 4L + SECSPERDAY)
|
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
|
*/
static void
StopCalibration( ClientData unused )
/* Client data is unused */
{
SetEvent( timeInfo.exitEvent );
WaitForSingleObject( timeInfo.calibrationThread, INFINITE );
CloseHandle( timeInfo.exitEvent );
CloseHandle( timeInfo.calibrationThread );
}
/*
*----------------------------------------------------------------------
*
|
>
>
>
>
|
|
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
|
*/
static void
StopCalibration( ClientData unused )
/* Client data is unused */
{
SetEvent( timeInfo.exitEvent );
/*
* If Tcl_Finalize was called from DllMain, the calibration thread
* is in a paused state so we need to timeout and continue.
*/
WaitForSingleObject( timeInfo.calibrationThread, 100 );
CloseHandle( timeInfo.exitEvent );
CloseHandle( timeInfo.calibrationThread );
}
/*
*----------------------------------------------------------------------
*
|