From: David Wasley <dlw@ucbvax.Berkeley.EDU>
Date: Thu, 19 Feb 1981 11:10:05 +0000 (-0800)
Subject: date and time created 81/02/18 19:10:05 by dlw
X-Git-Tag: BSD-4_1_snap-Snapshot-Development~2218
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/073ce630887c265728ec4d2746d830e59bd9e731

date and time created 81/02/18 19:10:05 by dlw

SCCS-vsn: usr.bin/f77/libU77/ctime_.c 1.1
---

diff --git a/usr/src/usr.bin/f77/libU77/ctime_.c b/usr/src/usr.bin/f77/libU77/ctime_.c
new file mode 100644
index 0000000000..53408b115f
--- /dev/null
+++ b/usr/src/usr.bin/f77/libU77/ctime_.c
@@ -0,0 +1,22 @@
+/*
+char id_ctime[] = "@(#)ctime_.c	1.1";
+ *
+ * convert system time to ascii string
+ *
+ * calling sequence:
+ *	character*24 string, ctime
+ *	integer clock
+ *	string = ctime (clock)
+ * where:
+ *	string will receive the ascii equivalent of the integer clock time.
+ */
+
+char *ctime();
+
+ctime_(str, len, clock)
+char *str; long len, *clock;
+{
+	char *s = ctime(clock);
+	s[24] = '\0';
+	b_char(s, str, len);
+}