gettod.c
上传用户:rrhhcc
上传日期:2015-12-11
资源大小:54129k
文件大小:1k
- /*
- * gettod.c --
- *
- * This file provides the gettimeofday function on systems
- * that only have the System V ftime function.
- *
- * Copyright (c) 1995 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: gettod.c,v 1.2 1998/09/14 18:39:44 stanton Exp $
- */
- #include "tcl.h"
- #include "tclPort.h"
- #include <sys/timeb.h>
- #undef timezone
- int
- gettimeofday(tp, tz)
- struct timeval *tp;
- struct timezone *tz;
- {
- struct timeb t;
- ftime(&t);
- tp->tv_sec = t.time;
- tp->tv_usec = t. millitm * 1000;
- return 0;
- }