1 files changed, 119 insertions, 0 deletions
diff --git a/lib/clplumbing/timers.c b/lib/clplumbing/timers.c
new file mode 100644
index 0000000..c3e99da
--- /dev/null
+++ b/lib/clplumbing/timers.c
@@ -0,0 +1,119 @@
+/*
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#include <lha_internal.h>
+#include <sys/time.h>
+#include <unistd.h>
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <clplumbing/timers.h>
+#include <clplumbing/cl_log.h>
+#include <clplumbing/cl_signal.h>
+#include <clplumbing/longclock.h>
+
+int
+setmsrepeattimer(long	ms)
+{
+	long			secs = ms / 1000L;
+	long			usecs = (ms % 1000L)*1000L;
+	struct itimerval	nexttime =
+	{	{secs, usecs}	/* Repeat Interval */
+	,	{secs, usecs}	/* Timer Value */
+	};
+
+#if 0
+        cl_log(LOG_DEBUG, "Setting repeating timer for %ld ms"   
+         ,       ms); 
+#endif
+
+
+	/* Is this right??? */
+	CL_IGNORE_SIG(SIGALRM);
+	return setitimer(ITIMER_REAL, &nexttime, NULL);
+}
+
+int
+setmsalarm(long	ms)
+{
+	long			secs = ms / 1000L;
+	long			usecs = (ms % 1000L)*1000L;
+	struct itimerval	nexttime =
+	{	{0L, 0L}	/* Repeat Interval */
+	,	{secs, usecs}	/* Timer Value */
+	};
+
+	return setitimer(ITIMER_REAL, &nexttime, NULL);
+}
+
+int
+cancelmstimer(void)
+{
+	struct itimerval	nexttime =
+	{	{0L, 0L}	/* Repeat Interval */
+	,	{0L, 0L}	/* Timer Value */
+	};
+	return setitimer(ITIMER_REAL, &nexttime, NULL);
+}
+
+
+static int alarmpopped = 0;
+
+static void
+st_timer_handler(int nsig)
+{
+	++alarmpopped;
+}
+
+/*
+ * Pretty simple:
+ * 1) Set up SIGALRM signal handler
+ * 2) set alarmpopped to FALSE;
+ * 2) Record current time
+ * 3) Call setmsalarm(ms)
+ * 4) Call pause(2)
+ * 5) Call cancelmstimer()
+ * 6) Reset signal handler
+ * 7) See if SIGALRM happened
+ *    if so:  return zero
+ *    if not: get current time, and compute milliseconds left 'til signal
+ *	should arrive, and return that...
+ */
+long
+mssleep(long ms)
+{
+	struct sigaction	saveaction;
+	longclock_t		start;
+	longclock_t		finish;
+	unsigned long		elapsedms;
+
+	memset(&saveaction, 0, sizeof(saveaction));
+
+	cl_signal_set_simple_handler(SIGALRM, st_timer_handler, &saveaction);
+	alarmpopped = 0;
+	start = time_longclock();
+	setmsalarm(ms);
+	pause();
+	cancelmstimer();
+	cl_signal_set_simple_handler(SIGALRM, saveaction.sa_handler, &saveaction);
+	if (alarmpopped) {
+		return 0;
+	}
+	
+	finish = time_longclock();
+	elapsedms = longclockto_ms(sub_longclock(finish, start));
+	return ms - elapsedms;
+}