Initial commit

1 files changed, 35 insertions, 0 deletions

diff --git a/sys/libc/cclktime.c b/sys/libc/cclktime.c
new file mode 100644
index 00000000..ca26e56e
--- /dev/null
+++ b/sys/libc/cclktime.c
@@ -0,0 +1,35 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+*/
+
+#define import_spp
+#define import_libc
+#define import_xnames
+#include <iraf.h>
+
+
+/* C_CLKTIME -- Return the clock time in long integer seconds since Jan. 1,
+** 1980, minus the reference argument (0 for absolute time).
+*/
+long
+c_clktime (
+  long reftime			/* reference time		*/
+)
+{
+	XLONG x_reftime = reftime;
+
+	return (CLKTIME (&x_reftime));
+}
+
+
+/* C_CPUTIME -- Return the cpu time consumed by the current process and all
+** subprocesses, in long integer milliseconds, minus the reference time.
+*/
+long
+c_cputime (
+  long	reftime			/* reference time		*/
+)
+{
+	XLONG x_reftime = reftime;
+
+	return (CPUTIME (&x_reftime));
+}