2 * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
4 * $Id: showTime.c,v 1.5 1999/09/30 14:25:47 sof 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 if (tm != NULL && strftime(buf, maxsize, "%a %b %d %T %Z %Y", tm) > 0) {