Repatch (from linux) of OSX IRAF

1 files changed, 142 insertions, 0 deletions

diff --git a/noao/astcat/src/debug/zzdebug.x b/noao/astcat/src/debug/zzdebug.x
new file mode 100644
index 00000000..3ee5ad24
--- /dev/null
+++ b/noao/astcat/src/debug/zzdebug.x
@@ -0,0 +1,142 @@
+include <fset.h>
+
+# T_TEST2 -- Test Doug's idea of how to access a piece of memory as a
+# binary file using the pushback technique. This works but is a bit
+# inefficient.
+
+procedure t_test2()
+
+pointer	inbuf, outbuf
+int	i, fd, nchars, ntimes
+int	open(), read()
+
+begin
+	# Allocate a char array.
+	call malloc (inbuf, 1000, TY_CHAR)
+	call malloc (outbuf, 200, TY_CHAR)
+	do i = 1, 1000
+	    Memc[inbuf+i-1] = i
+
+	# Open char array as a binary file.
+	fd = open ("dev$null", READ_ONLY, BINARY_FILE)
+	call fseti (fd, F_PBBSIZE, 1008)
+	call unread (fd, Memc[inbuf], 1000)
+
+	# Try to read the data.
+	ntimes = 1
+	nchars = read (fd, Memc[outbuf], 200)
+	while (nchars != EOF) {
+	    call printf ("ntimes=%d nchars=%d firstchar = %d\n")
+		call pargi (ntimes)
+		call pargi (nchars)
+		call pargi (int(Memc[outbuf]))
+	    nchars = read (fd, Memc[outbuf], 200)
+	    ntimes = ntimes + 1
+	}
+
+	call close (fd)
+
+	# Free char array.
+	call mfree (inbuf, TY_CHAR)
+	call mfree (outbuf, TY_CHAR)
+end
+
+
+# T_TEST3 -- Test Doug's idea of how to access a piece of memory as a
+# binary file using the spool file technique. This works but is still a bit
+# inefficient.
+
+procedure t_test3()
+
+pointer	inbuf, outbuf
+int	i, fd, ntimes, nchars
+int	open(), read()
+
+begin
+	# Allocate a char array.
+	call malloc (inbuf, 1000, TY_CHAR)
+	call malloc (outbuf, 200, TY_CHAR)
+	do i = 1, 1000
+	    Memc[inbuf+i-1] = i
+
+	# Open char array as a binary file.
+	fd = open ("dev$null", READ_WRITE, SPOOL_FILE)
+	call write (fd, Memc[inbuf], 1000)
+	call seek (fd, BOF)
+
+	# Try to read the data.
+	ntimes = 1
+	nchars = read (fd, Memc[outbuf], 200)
+	while (nchars != EOF) {
+	    call printf ("ntimes=%d nchars=%d firstchar = %d\n")
+		call pargi (ntimes)
+		call pargi (nchars)
+		call pargi (int(Memc[outbuf]))
+	    nchars = read (fd, Memc[outbuf], 200)
+	    ntimes = ntimes + 1
+	}
+
+	call close (fd)
+
+	# Free char array.
+	call mfree (inbuf, TY_CHAR)
+	call mfree (outbuf, TY_CHAR)
+end
+
+# T_TEST5 -- Test Doug's idea of how to access a piece of memory as a
+# text file using the spool file technique. This works but is still a bit
+# inefficient.
+
+procedure t_test5()
+
+pointer	inbuf, outbuf
+int	i, fd, ntimes, nchars
+long	note()
+int	open(), getline()
+
+begin
+	# Allocate a char array.
+	call malloc (inbuf, 1000, TY_CHAR)
+	call malloc (outbuf, 200, TY_CHAR)
+	do i = 1, 200
+	    Memc[inbuf+i-1] = 'a'
+	Memc[inbuf+199] = '\n'
+	do i = 201, 400
+	    Memc[inbuf+i-1] = 'b'
+	Memc[inbuf+399] = '\n'
+	do i = 401, 600
+	    Memc[inbuf+i-1] = 'c'
+	Memc[inbuf+599] = '\n'
+	do i = 601, 800
+	    Memc[inbuf+i-1] = 'd'
+	Memc[inbuf+799] = '\n'
+	do i = 801, 1000
+	    Memc[inbuf+i-1] = 'e'
+	Memc[inbuf+999] = '\n'
+
+	# Open char array as a binary file.
+	fd = open ("dev$null", READ_WRITE, SPOOL_FILE)
+	call write (fd, Memc[inbuf], 1000)
+	call seek (fd, BOF)
+
+	# Try to read the data.
+	ntimes = 1
+	#nchars = read (fd, Memc[outbuf], 200)
+	nchars = getline (fd, Memc[outbuf])
+	while (nchars != EOF) {
+	    call printf ("ntimes=%d nchars=%d firstchar = %c seek=%d\n")
+		call pargi (ntimes)
+		call pargi (nchars)
+		call pargc (Memc[outbuf])
+		call pargl (note(fd))
+	    #nchars = read (fd, Memc[outbuf], 200)
+	    nchars = getline (fd, Memc[outbuf])
+	    ntimes = ntimes + 1
+	}
+
+	call close (fd)
+
+	# Free char array.
+	call mfree (inbuf, TY_CHAR)
+	call mfree (outbuf, TY_CHAR)
+end