From 0bf235de0d1a454b4a351e237fc48e5737ac4f5c Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 12 Nov 1993 19:21:23 +0000
Subject: [PATCH] Initial revision

---
 lisp/time.c | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 lisp/time.c

diff --git a/lisp/time.c b/lisp/time.c
new file mode 100644
index 000000000..a38be0866
--- /dev/null
+++ b/lisp/time.c
@@ -0,0 +1,18 @@
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/time.c,v 1.1 1993/11/12 19:21:23 wlott Exp $ */
+
+/* Time support routines that are easier to do in C then in lisp. */
+
+#include <stdio.h>
+#include <time.h>
+#include "lisp.h"
+
+void get_timezone(time_t when, int *minwest, boolean *dst)
+{
+    struct tm ltm, gtm;
+
+    ltm = *localtime(&when);
+    gtm = *gmtime(&when);
+
+    *minwest = ((gtm.tm_hour*60)+gtm.tm_sec) - ((ltm.tm_hour*60)+ltm.tm_sec);
+    *dst = ltm.tm_isdst;
+}
-- 
GitLab