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.2 1998/09/14 18:39:44 stanton Exp $
13 */
14
15#include "tcl.h"
16#include "tclPort.h"
17#include <sys/timeb.h>
18
19#undef timezone
20
21int
22gettimeofday(tp, tz)
23struct timeval *tp;
24struct timezone *tz;
25{
26    struct timeb t;
27    ftime(&t);
28    tp->tv_sec = t.time;
29    tp->tv_usec = t. millitm * 1000;
30    return 0;
31}
32
33