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