Repatch (from linux) of OSX IRAF

1 files changed, 84 insertions, 0 deletions

diff --git a/sys/etc/sysptime.x b/sys/etc/sysptime.x
new file mode 100644
index 00000000..3a2657c2
--- /dev/null
+++ b/sys/etc/sysptime.x
@@ -0,0 +1,84 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<ctype.h>
+
+define	SZ_OBUF		8
+define	CPU		1
+define	CLK		2
+
+
+# SYS_MTIME -- Mark the time, i.e., save the current clock and cpu times in
+# the save buffer.
+
+procedure sys_mtime (save_time)
+
+long	save_time[2]			# mark time buffer
+
+begin
+	call zgtime (save_time[CLK], save_time[CPU])
+end
+
+
+# SYS_PTIME -- Print the cpu and clock time consumed since the last call to
+# SYS_MTIME.
+
+procedure sys_ptime (fd, opstr, save_time)
+
+int	fd				# output file
+char	opstr[ARB]			# optional operand name string
+long	save_time[2]			# mark time buffer
+
+int	op, junk
+char	obuf[SZ_OBUF]
+long	new_clk, new_cpu
+int	d_clk, d_cpu, msec, sec, percent
+int	itoc()
+
+begin
+	call zgtime (new_clk, new_cpu)
+	d_clk = (new_clk - save_time[CLK]) 	# clk seconds
+	d_cpu = (new_cpu - save_time[CPU])	# cpu msec
+
+	call putline (fd, "Time ")
+	if (opstr[1] != EOS) {
+	    call putci (fd, '(')
+	    call putline (fd, opstr)
+	    call putline (fd, ") ")
+	}
+
+	# Output the cpu time in seconds.
+	op = itoc (d_cpu / 1000, obuf, SZ_OBUF) + 1
+	obuf[op] = '.'; op = op + 1
+	msec = mod (d_cpu, 1000)
+	if (msec < 100) {
+	    obuf[op] = '0'; op = op + 1
+	}
+	if (msec < 10) {
+	    obuf[op] = '0'; op = op + 1
+	}
+	if (msec > 0)
+	    op = op + itoc (msec, obuf[op], SZ_OBUF-op+1)
+	call putline (fd, obuf)
+
+	# Output the clock time in minutes and seconds.
+	call putci (fd, ' ')
+	op = itoc (d_clk / 60, obuf, SZ_OBUF) + 1
+	obuf[op] = ':'; op = op + 1
+	sec = mod (d_clk, 60)
+	obuf[op] = TO_DIGIT(sec/10); op = op + 1
+	obuf[op] = TO_DIGIT(mod(sec,10)); op = op + 1
+	obuf[op] = EOS
+	call putline (fd, obuf)
+
+	# Output the percent cpu utilization.
+	call putci (fd, ' ')
+	if (d_clk < 1)
+	    call strcpy ("99", obuf, SZ_OBUF)
+	else {
+	    percent = min (99, d_cpu / d_clk / 10)
+	    junk = itoc (percent, obuf, SZ_OBUF)
+	}
+
+	call putline (fd, obuf)
+	call putline (fd, "%\n")
+end