From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 unix/boot/spp/rpp/rpprat/ngetch.r | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 unix/boot/spp/rpp/rpprat/ngetch.r

(limited to 'unix/boot/spp/rpp/rpprat/ngetch.r')

diff --git a/unix/boot/spp/rpp/rpprat/ngetch.r b/unix/boot/spp/rpp/rpprat/ngetch.r
new file mode 100644
index 00000000..26dce4de
--- /dev/null
+++ b/unix/boot/spp/rpp/rpprat/ngetch.r
@@ -0,0 +1,34 @@
+#-h-  ngetch			  442  local   12/01/80  15:54:30
+# ngetch - get a (possibly pushed back) character
+   include  defs
+
+   character function ngetch (c)
+   character c
+
+   include COMMON_BLOCKS
+
+   integer getlin, n, i
+
+   if (buf (bp) == EOS)
+      if (getlin (buf (PBPOINT), infile (level)) == EOF)
+	 c = EOF
+      else {
+	 c = buf (PBPOINT)
+	 bp = PBPOINT + 1
+	 if (c == SHARP) {		#check for "#!# nn" directive
+	    if (buf(bp) == BANG & buf(bp+1) == SHARP) {
+	       n = 0
+	       for (i=bp+3;  buf(i) >= DIG0 & buf(i) <= DIG9;  i=i+1)
+		  n = n * 10 + buf(i) - DIG0
+	       linect (level) = n - 1
+	       }
+	    }
+	 linect (level) = linect (level) + 1
+	 }
+   else {
+      c = buf (bp)
+      bp = bp + 1
+      }
+
+   return (c)
+   end
-- 
cgit