starting over

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 */