Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
0bf235de
Commit
0bf235de
authored
Nov 12, 1993
by
wlott
Browse files
Initial revision
parent
2bfba1e1
Changes
1
Hide whitespace changes
Inline
Side-by-side
lisp/time.c
0 → 100644
View file @
0bf235de
/* $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
;
}
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment