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/ifparm.r | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 unix/boot/spp/rpp/rpprat/ifparm.r

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

diff --git a/unix/boot/spp/rpp/rpprat/ifparm.r b/unix/boot/spp/rpp/rpprat/ifparm.r
new file mode 100644
index 00000000..b2b5f706
--- /dev/null
+++ b/unix/boot/spp/rpp/rpprat/ifparm.r
@@ -0,0 +1,31 @@
+#-h-  ifparm			  689  local   12/01/80  15:54:11
+# ifparm - determines if the defined symbol has arguments in its
+   include  defs
+# definition.  This effects how the macro is expanded.
+
+   integer function ifparm (strng)
+   character strng (ARB)
+
+   character c
+
+   external index
+   integer i, index, type
+
+   c = strng (1)
+   if (c == INCTYPE | c == SUBTYPE | c == IFTYPE | c == ARITHTYPE |
+    c == MACTYPE)
+      ifparm = YES
+   else {
+      ifparm = NO
+      for (i = 1; index (strng (i), ARGFLAG) > 0; ) {
+	 i = i + index (strng (i), ARGFLAG) # i points at char after ARGFLAG
+	 if (type (strng (i)) == DIGIT)
+	 andif (type (strng (i + 1)) != DIGIT) {
+	    ifparm = YES
+	    break
+	    }
+	 }
+      }
+
+   return
+   end
-- 
cgit