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