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 33