2 * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
4 * $Id: showTime.c,v 1.8 2000/04/06 17:54:01 rrt Exp $
6 * ClockTime.showsPrec Runtime Support
12 #if TIME_WITH_SYS_TIME
13 # include <sys/time.h>
17 # include <sys/time.h>
24 showTime(I_ size, StgByteArray d, I_ maxsize, StgByteArray buf)
30 * I allege that with the current (9/99) contents of Time.lhs,
31 * size will always be >= 0. -- sof
38 t = (time_t) ((StgInt *)d)[0];
44 #ifdef cygwin32_TARGET_OS
45 /* Same as in timezone.c: tzset() isn't called automatically */
48 if (tm != NULL && strftime(buf, maxsize, "%a %b %d %H:%M:%S %Z %Y", tm) > 0) {