scsh-0.6/scsh/irix/time_dep1.c

25 lines
685 B
C
Raw Normal View History

2000-12-19 11:10:03 -05:00
/* OS-dependent support for fine-grained timer.
** Copyright (c) 1995 by Olin Shivers.
**
** We return the current time in seconds and sub-second "ticks" where the
** number of ticks/second is OS dependent (and is defined in time_dep.scm).
** This definition works on any BSD Unix with the gettimeofday()
** microsecond-resolution timer.
*/
#include <errno.h>
#include <sys/time.h>
#include "scheme48.h"
#include "../time1.h"
2001-01-01 11:45:32 -05:00
s48_value time_plus_ticks()
2000-12-19 11:10:03 -05:00
{
struct timeval t;
struct timezone tz;
2001-01-01 11:45:32 -05:00
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
2000-12-19 11:10:03 -05:00
2001-01-01 11:45:32 -05:00
return s48_cons (s48_enter_integer (t.tv_sec),
s48_cons (s48_enter_integer (t.tv_usec), S48_NULL));
}