diff options
Diffstat (limited to 'src/timemodule.c')
| -rw-r--r-- | src/timemodule.c | 184 |
1 files changed, 92 insertions, 92 deletions
diff --git a/src/timemodule.c b/src/timemodule.c index dcaedbd..b1c1ce3 100644 --- a/src/timemodule.c +++ b/src/timemodule.c @@ -2,12 +2,12 @@ Copyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The Netherlands. - All Rights Reserved + All Rights Reserved -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in +both that copyright notice and this permission notice appear in supporting documentation, and that the names of Stichting Mathematisch Centrum or CWI not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. @@ -45,46 +45,46 @@ extern time_t time(); static object * time_time(self, args) - object *self; - object *args; + object *self; + object *args; { - long secs; - if (!getnoarg(args)) - return NULL; - secs = time((time_t *)NULL); - return newintobject(secs); + long secs; + if (!getnoarg(args)) + return NULL; + secs = time((time_t *)NULL); + return newintobject(secs); } static jmp_buf sleep_intr; static void sleep_catcher(sig) - int sig; + int sig; { - longjmp(sleep_intr, 1); + longjmp(sleep_intr, 1); } static object * time_sleep(self, args) - object *self; - object *args; + object *self; + object *args; { - int secs; - SIGTYPE (*sigsave)(); - if (!getintarg(args, &secs)) - return NULL; - if (setjmp(sleep_intr)) { - signal(SIGINT, sigsave); - err_set(KeyboardInterrupt); - return NULL; - } - sigsave = signal(SIGINT, SIG_IGN); - if (sigsave != (SIGTYPE (*)()) SIG_IGN) - signal(SIGINT, sleep_catcher); - sleep(secs); - signal(SIGINT, sigsave); - INCREF(None); - return None; + int secs; + SIGTYPE (*sigsave)(); + if (!getintarg(args, &secs)) + return NULL; + if (setjmp(sleep_intr)) { + signal(SIGINT, sigsave); + err_set(KeyboardInterrupt); + return NULL; + } + sigsave = signal(SIGINT, SIG_IGN); + if (sigsave != (SIGTYPE (*)()) SIG_IGN) + signal(SIGINT, sleep_catcher); + sleep(secs); + signal(SIGINT, sigsave); + INCREF(None); + return None; } #ifdef THINK_C @@ -105,38 +105,38 @@ extern long sys_milli(); static object * time_millisleep(self, args) - object *self; - object *args; + object *self; + object *args; { - long msecs; - SIGTYPE (*sigsave)(); - if (!getlongarg(args, &msecs)) - return NULL; - if (setjmp(sleep_intr)) { - signal(SIGINT, sigsave); - err_set(KeyboardInterrupt); - return NULL; - } - sigsave = signal(SIGINT, SIG_IGN); - if (sigsave != (SIGTYPE (*)()) SIG_IGN) - signal(SIGINT, sleep_catcher); - millisleep(msecs); - signal(SIGINT, sigsave); - INCREF(None); - return None; + long msecs; + SIGTYPE (*sigsave)(); + if (!getlongarg(args, &msecs)) + return NULL; + if (setjmp(sleep_intr)) { + signal(SIGINT, sigsave); + err_set(KeyboardInterrupt); + return NULL; + } + sigsave = signal(SIGINT, SIG_IGN); + if (sigsave != (SIGTYPE (*)()) SIG_IGN) + signal(SIGINT, sleep_catcher); + millisleep(msecs); + signal(SIGINT, sigsave); + INCREF(None); + return None; } static object * time_millitimer(self, args) - object *self; - object *args; + object *self; + object *args; { - long msecs; - extern long millitimer(); - if (!getnoarg(args)) - return NULL; - msecs = millitimer(); - return newintobject(msecs); + long msecs; + extern long millitimer(); + if (!getnoarg(args)) + return NULL; + msecs = millitimer(); + return newintobject(msecs); } #endif /* DO_MILLI */ @@ -144,56 +144,56 @@ time_millitimer(self, args) static struct methodlist time_methods[] = { #ifdef DO_MILLI - {"millisleep", time_millisleep}, - {"millitimer", time_millitimer}, + {"millisleep", time_millisleep}, + {"millitimer", time_millitimer}, #endif /* DO_MILLI */ - {"sleep", time_sleep}, - {"time", time_time}, - {NULL, NULL} /* sentinel */ + {"sleep", time_sleep}, + {"time", time_time}, + {NULL, NULL} /* sentinel */ }; void inittime() { - initmodule("time", time_methods); + initmodule("time", time_methods); } #ifdef THINK_C -#define MacTicks (* (long *)0x16A) +#define MacTicks (* (long *)0x16A) static sleep(msecs) - int msecs; + int msecs; { - register long deadline; - - deadline = MacTicks + msecs * 60; - while (MacTicks < deadline) { - if (intrcheck()) - sleep_catcher(SIGINT); - } + register long deadline; + + deadline = MacTicks + msecs * 60; + while (MacTicks < deadline) { + if (intrcheck()) + sleep_catcher(SIGINT); + } } static millisleep(msecs) - long msecs; + long msecs; { - register long deadline; - - deadline = MacTicks + msecs * 3 / 50; /* msecs * 60 / 1000 */ - while (MacTicks < deadline) { - if (intrcheck()) - sleep_catcher(SIGINT); - } + register long deadline; + + deadline = MacTicks + msecs * 3 / 50; /* msecs * 60 / 1000 */ + while (MacTicks < deadline) { + if (intrcheck()) + sleep_catcher(SIGINT); + } } static long millitimer() { - return MacTicks * 50 / 3; /* MacTicks * 1000 / 60 */ + return MacTicks * 50 / 3; /* MacTicks * 1000 / 60 */ } #endif /* THINK_C */ @@ -207,22 +207,22 @@ millitimer() static long millitimer() { - struct timeval t; - struct timezone tz; - if (gettimeofday(&t, &tz) != 0) - return -1; - return t.tv_sec*1000 + t.tv_usec/1000; - + struct timeval t; + struct timezone tz; + if (gettimeofday(&t, &tz) != 0) + return -1; + return t.tv_sec*1000 + t.tv_usec/1000; + } static millisleep(msecs) - long msecs; + long msecs; { - struct timeval t; - t.tv_sec = msecs/1000; - t.tv_usec = (msecs%1000)*1000; - (void) select(0, (fd_set *)0, (fd_set *)0, (fd_set *)0, &t); + struct timeval t; + t.tv_sec = msecs/1000; + t.tv_usec = (msecs%1000)*1000; + (void) select(0, (fd_set *)0, (fd_set *)0, (fd_set *)0, &t); } #endif /* BSD_TIME */ |