From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- sys/fio/futime.x | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 sys/fio/futime.x (limited to 'sys/fio/futime.x') diff --git a/sys/fio/futime.x b/sys/fio/futime.x new file mode 100644 index 00000000..72ef268b --- /dev/null +++ b/sys/fio/futime.x @@ -0,0 +1,34 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include +include + + +.help futime +.nf ___________________________________________________________________________ +FUTIME -- Set the file access/modify times of a file. Time arguments are +assumed to be in units of seconds from midnight on Jan 1, 1980, local standard +time. A file may be "touched" to update it's modify time to the current +clock time using the CLKTIME function with a call such as + + stat = futime (fname, NULL, clktime(0)) + +Remote files are handled via the KI interface automatically. +.endhelp ______________________________________________________________________ + +int procedure futime (fname, atime, mtime) + +char fname[ARB] +long atime, mtime +int status +include + +begin + iferr (call fmapfn (fname, pathname, SZ_PATHNAME)) + return (ERR) + + # Update the time, let the HSI routine handle NULL values. + call zfutim (pathname, atime, mtime, status) + + return (status) +end -- cgit