Repatch (from linux) of OSX IRAF

1 files changed, 26 insertions, 0 deletions

diff --git a/sys/imio/iki/ikimkfn.x b/sys/imio/iki/ikimkfn.x
new file mode 100644
index 00000000..a224f728
--- /dev/null
+++ b/sys/imio/iki/ikimkfn.x
@@ -0,0 +1,26 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"iki.h"
+
+# IKI_MKFNAME -- Manufacture a filename from the root and extension fields
+# given.
+
+procedure iki_mkfname (root, extn, fname, maxch)
+
+char	root[ARB]		#I root filename
+char	extn[ARB]		#I filename extension
+char	fname[maxch]		#O output filename
+int	maxch			#I max chars out
+
+int	op
+int	gstrcpy()
+bool	fnullfile()
+
+begin
+	op = gstrcpy (root, fname, maxch) + 1
+	if (extn[1] != EOS && !fnullfile (root)) {
+	    fname[op] = '.'
+	    op = op + 1
+	    call strcpy (extn, fname[op], maxch-op+1)
+	}
+end