diff options
author | Dave Love <fx@gcc.gnu.org> | 1998-07-06 09:03:28 +0000 |
---|---|---|
committer | Dave Love <fx@gcc.gnu.org> | 1998-07-06 09:03:28 +0000 |
commit | 235d853db1bdddbda6cd5fce90a25c29635e2ead (patch) | |
tree | 8541c71dd9f45270bd38c6c3c8b71160a9de2d8f /libf2c | |
parent | a60cb98615df7322ca32c4889f3d57d7fa577fce (diff) | |
download | gcc-235d853db1bdddbda6cd5fce90a25c29635e2ead.zip gcc-235d853db1bdddbda6cd5fce90a25c29635e2ead.tar.gz gcc-235d853db1bdddbda6cd5fce90a25c29635e2ead.tar.bz2 |
f2cext.c (system_clock_): Remove (just f90 intrinsic).
1998-07-05 Dave Love <d.love@dl.ac.uk>
* f2cext.c (system_clock_): Remove (just f90 intrinsic).
* Makefile.in (F2CEXT): Add datetime, remove sclock.
(UOBJ): Add libU77/datetime_.o.
* libU77/config.h.in: Add HAVE_GETTIMEOFDAY.
* libU77/configure.in: Check for gettimeofday.
* libU77/datetime_.c: New file.
* libU77/sys_clock_.c: Allow optional args.
* libU77/Makefile.in (G77DIR): Fix for current directory
structure.
(SRCS, OBJS): Add datetime.
From-SVN: r20942
Diffstat (limited to 'libf2c')
-rw-r--r-- | libf2c/libU77/datetime_.c | 78 |
1 files changed, 78 insertions, 0 deletions
diff --git a/libf2c/libU77/datetime_.c b/libf2c/libU77/datetime_.c new file mode 100644 index 0000000..4b5d28a --- /dev/null +++ b/libf2c/libU77/datetime_.c @@ -0,0 +1,78 @@ +/* Copyright (C) 1997, 1998 Free Software Foundation, Inc. +This file is part of GNU Fortran libU77 library. + +This library is free software; you can redistribute it and/or modify it +under the terms of the GNU Library General Public License as published +by the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +GNU Fortran is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +Library General Public License for more details. + +You should have received a copy of the GNU Library General Public +License along with GNU Fortran; see the file COPYING.LIB. If +not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif +#include <stdio.h> +#if TIME_WITH_SYS_TIME +# include <sys/time.h> +# include <time.h> +#else +# if HAVE_SYS_TIME_H +# include <sys/time.h> +# else +# include <time.h> +# endif +#endif +#include "f2c.h" + +int G77_date_and_time_0 (char *date, char *fftime, char *zone, + integer *values, ftnlen date_len, + ftnlen fftime_len, ftnlen zone_len) +{ + time_t lt=time(<); + struct tm ltime = *localtime(<), gtime = *gmtime(<); + char dat[9], zon[6], ftim[11]; + int i, vals[8]; + + vals[0] = 1900 + ltime.tm_year; + vals[1] = 1 + ltime.tm_mon; + vals[2] = ltime.tm_mday; + /* fixme: year boundaries */ + vals[3] = (ltime.tm_min - gtime.tm_min + + 60*(ltime.tm_hour - gtime.tm_hour + + 24*(ltime.tm_yday -gtime.tm_yday))); + vals[4] = ltime.tm_hour; + vals[5] = ltime.tm_min; + vals[6] = ltime.tm_sec; + vals[7] = 0; /* no STDC way to get this */ + /* GNUish way; maybe use `ftime' on other systems. */ +#if HAVE_GETTIMEOFDAY + { + struct timeval tp; + struct timezone tzp; + if (! gettimeofday (&tp, &tzp)) + vals[7] = tp.tv_usec; + } +#endif + if (values) /* null pointer for missing optional */ + for (i=0; i<=7; i++) + values[i] = vals[i]; + sprintf (dat, "%04d%02d%02d", vals[0], vals[1], vals[2]); + s_copy(date, dat, date_len, 8); + if (zone) { + sprintf(zon, "%+03d%02d", vals[3] / 60, abs(vals[3] % 60)); + s_copy(zone, zon, zone_len, 5); + } + if (fftime) { + sprintf (ftim, "%02d%02d%02d.%03d", vals[4], vals[5], vals[6], vals[7]); + s_copy(fftime, ftim, fftime_len, 10); + } + return 0; +} |