Repatch (from linux) of OSX IRAF

1 files changed, 59 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/ratlibr/ctomn.r b/unix/boot/spp/rpp/ratlibr/ctomn.r
new file mode 100644
index 00000000..ef59e51a
--- /dev/null
+++ b/unix/boot/spp/rpp/ratlibr/ctomn.r
@@ -0,0 +1,59 @@
+include	defs
+
+# ctomn --- translate ASCII control character to mnemonic string
+
+   integer function ctomn (c, rep)
+   character c, rep (4)
+
+   integer i
+   integer length
+
+   character mntext (136)     # 4 chars/mnemonic; 32 control chars + SP + DEL
+   data mntext / _
+      BIGN, BIGU, BIGL, EOS,
+      BIGS, BIGO, BIGH, EOS,
+      BIGS, BIGT, BIGX, EOS,
+      BIGE, BIGT, BIGX, EOS,
+      BIGE, BIGO, BIGT, EOS,
+      BIGE, BIGN, BIGQ, EOS,
+      BIGA, BIGC, BIGK, EOS,
+      BIGB, BIGE, BIGL, EOS,
+      BIGB, BIGS, EOS,	EOS,
+      BIGH, BIGT, EOS,	EOS,
+      BIGL, BIGF, EOS,	EOS,
+      BIGV, BIGT, EOS,	EOS,
+      BIGF, BIGF, EOS,	EOS,
+      BIGC, BIGR, EOS,	EOS,
+      BIGS, BIGO, EOS,	EOS,
+      BIGS, BIGI, EOS,	EOS,
+      BIGD, BIGL, BIGE, EOS,
+      BIGD, BIGC, DIG1, EOS,
+      BIGD, BIGC, DIG2, EOS,
+      BIGD, BIGC, DIG3, EOS,
+      BIGD, BIGC, DIG4, EOS,
+      BIGN, BIGA, BIGK, EOS,
+      BIGS, BIGY, BIGN, EOS,
+      BIGE, BIGT, BIGB, EOS,
+      BIGC, BIGA, BIGN, EOS,
+      BIGE, BIGM, EOS,	EOS,
+      BIGS, BIGU, BIGB, EOS,
+      BIGE, BIGS, BIGC, EOS,
+      BIGF, BIGS, EOS,	EOS,
+      BIGG, BIGS, EOS,	EOS,
+      BIGR, BIGS, EOS,	EOS,
+      BIGU, BIGS, EOS,	EOS,
+      BIGS, BIGP, EOS,	EOS,
+      BIGD, BIGE, BIGL, EOS/
+
+   i = mod (max(c,0), 128)
+   if (0 <= i & i <= 32)     # non-printing character or space
+      call scopy (mntext, 4 * i + 1, rep, 1)
+   elif (i == 127)	      # rubout (DEL)
+      call scopy (mntext, 133, rep, 1)
+   else {		      # printing character
+      rep (1) = c
+      rep (2) = EOS
+      }
+
+   return (length (rep))
+   end