From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 sys/osb/chrpak.c | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 sys/osb/chrpak.c

(limited to 'sys/osb/chrpak.c')

diff --git a/sys/osb/chrpak.c b/sys/osb/chrpak.c
new file mode 100644
index 00000000..3a1356a8
--- /dev/null
+++ b/sys/osb/chrpak.c
@@ -0,0 +1,28 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#define	import_spp
+#define import_knames
+#include <iraf.h>
+
+/* CHRPAK -- Pack a counted string of XCHAR into bytes.  This routine does not
+ * know about EOS terminators.  The input and output arrays may be the same.
+ * Note that while XCHAR is signed, the signedness of the C char is unspecified,
+ * hence we pack the chars in unsigned bytes, dealing explicitly with any
+ * negative values.
+ */
+CHRPAK (a, a_off, b, b_off, nchars)
+XCHAR	*a, *b;
+XINT	*a_off, *b_off, *nchars;
+{
+	register XCHAR	*ip;
+	register unsigned char *op;
+	register int	n, ch;
+
+	ip = &a[*a_off-1];
+	op = &((unsigned char *)b)[*b_off-1];
+	n  = *nchars;
+
+	while (--n >= 0)
+	    *op++ = ((ch = *ip++) >= 0) ? ch : ch + 256;
+}
-- 
cgit