Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

source: downloads/tcl8.5.2/compat/gettod.c @ 47

Last change on this file since 47 was 25, checked in by landauf, 16 years ago

added tcl to libs

File size: 629 bytes
Line 
1/*
2 * gettod.c --
3 *
4 *      This file provides the gettimeofday function on systems
5 *      that only have the System V ftime function.
6 *
7 * Copyright (c) 1995 Sun Microsystems, Inc.
8 *
9 * See the file "license.terms" for information on usage and redistribution
10 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
11 *
12 * RCS: @(#) $Id: gettod.c,v 1.4 2007/04/16 13:36:34 dkf Exp $
13 */
14
15#include "tclPort.h"
16#include <sys/timeb.h>
17
18#undef timezone
19
20int
21gettimeofday(
22    struct timeval *tp,
23    struct timezone *tz)
24{
25    struct timeb t;
26
27    ftime(&t);
28    tp->tv_sec = t.time;
29    tp->tv_usec = t. millitm * 1000;
30    return 0;
31}
32
Note: See TracBrowser for help on using the repository browser.