diff --git a/scsh/bsd/time_dep1.c b/scsh/bsd/time_dep1.c deleted file mode 100644 index 87be152..0000000 --- a/scsh/bsd/time_dep1.c +++ /dev/null @@ -1,39 +0,0 @@ -/* 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 -#include -#include "scheme48.h" -#include "../time1.h" - -s48_value time_plus_ticks() -{ - struct timeval t; - struct timezone tz; - s48_value sch_tv_sec = S48_UNSPECIFIC; - s48_value sch_tv_usec = S48_UNSPECIFIC; - s48_value sch_listval = S48_UNSPECIFIC; - s48_value sch_retval = S48_UNSPECIFIC; - S48_DECLARE_GC_PROTECT(3); - - S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval); - - if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); - - - sch_tv_sec = s48_enter_integer(t.tv_sec); - sch_tv_usec = s48_enter_integer(t.tv_usec); - sch_listval = s48_cons (sch_tv_usec, S48_NULL); - sch_retval = s48_cons (sch_tv_sec, sch_listval); - - S48_GC_UNPROTECT(); - - return sch_retval; - -}