Repatch (from linux) of OSX IRAF

1 files changed, 193 insertions, 0 deletions

diff --git a/vendor/voclient/libvoclient/vocUtil_spp.c b/vendor/voclient/libvoclient/vocUtil_spp.c
new file mode 100644
index 00000000..ec07386d
--- /dev/null
+++ b/vendor/voclient/libvoclient/vocUtil_spp.c
@@ -0,0 +1,193 @@
+/**
+ *  VOCUTIL_SPP.C -- Utility routines for the SPP proceduers.
+ *
+ *  Michael Fitzpatrick, NOAO, Jul 2006
+ *
+ *  @file       vocUtil_spp.c
+ *  @author     Michael Fitzpatrick
+ *  @version    June 2006
+ *
+ *************************************************************************
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <signal.h>
+#include <errno.h>
+
+#define _VOCLIENT_LIB_
+#include "VOClient.h"
+
+
+/**
+ *  SPP Name mapping macros.  SPP procedure names are mappad as the first-5
+ *  plus the last character of a name minus any underscores.  This should
+ *  be done such that a unique 6-character name is produced for each SPP
+ *  symbol.  In these definitions the SPP code may use the long form of the
+ *  name in the code, the mapping is done automatically and so we need the
+ *  macros here so the symbol entered in the library is actually the short
+ *  name.
+ */
+
+/**
+ *  SPP Type definitions.
+ */
+#define XCHAR		short
+#define PKCHAR		char
+#define XINT		int
+#define XEOS		VOC_NULL
+
+
+/**
+ *  Public interface procedures.
+ *
+ */
+PKCHAR *spp2c (XCHAR *instr,  int maxch);
+int     c2spp (PKCHAR *instr, XCHAR *outstr, int maxch);
+int    spplen (XCHAR *str);
+int  dal_typecode (char *typestr);
+int  out_typecode (char *typestr);
+
+
+
+/**
+ *  SPP2C -- Convert an SPP string to a C string.
+ *
+ *  @brief      Convert an SPP string to a C string.
+ *  @fn         cstr = spp2c (XCHAR *sppstr, int maxch)
+ *
+ *  @param  sppstr      input SPP string
+ *  @param  maxch       max length of SPP string
+ *  @returns            converted C string
+ */
+char *
+spp2c (XCHAR *instr, int maxch)
+{
+    XCHAR  *ip = instr;
+    char   *outstr = (char *) calloc (1, maxch+1);
+    char   *op = (char *) outstr;
+    int      n = maxch;
+
+    while ((*op++ = (char)*ip++) != (char) XEOS && --n >= 0)
+        ;
+    *--op = (char) XEOS;
+
+    return (outstr);
+}
+
+
+/**
+ *  C2SPP2C -- Convert a C string to an SPP string.
+ *
+ *  @brief      Convert a C string to an SPP string.
+ *  @fn         sppstr = c2spp (PKCHAR *instr, int maxch)
+ *
+ *  @param  sppstr      input SPP string
+ *  @param  maxch       max length of SPP string
+ *  @returns            converted C string
+ */
+int c2spp (PKCHAR *instr, XCHAR *outstr, int maxch)
+{
+    char   *ip = (char *)instr;
+    XCHAR  *op = outstr;
+    int      len= 0, n = 0;
+
+    /* Is is necessary to determine the length of the string in order to
+     * be able to unpack the string in place, i.e., from right to left.
+     */
+    for (n=0;  n  < maxch;  n++)
+        outstr[n] = (XCHAR) XEOS;
+    for (n=0;  *ip;  n++)
+        ip++;
+    n -= 1;
+    len = (n < maxch) ? n : maxch;
+    op[n] = (XCHAR) XEOS;
+
+    for (ip = (char *)instr;  --n >= 0;  )
+        op[n] = ip[n];
+/*
+    op[maxch] = (XCHAR) XEOS;
+*/
+    op[maxch] = (XCHAR) VOC_NULL;
+
+    return (len);
+}
+
+
+/**
+ *  SPPLEN -- Get the length of an SPP string.
+ *
+ *  @brief      Get the length of an SPP string.
+ *  @fn         len = spplen (XCHAR *str)
+ *
+ *  @param  str         input SPP string
+ *  @returns            length of string
+ */
+int spplen (XCHAR *str)
+{
+    int len = 0;
+
+    for (len=0; str[len] != (XCHAR) XEOS; len++)
+	;
+
+    return (len);
+}
+
+
+/**
+ *  DAL_TYPECODE -- Convert a DAL service type string to a code.
+ *
+ *  @brief      Convert a DAL service type string to a code
+ *  @fn         code = dal_typecode (char *typestr)
+ *
+ *  @param  typestr     input DAL string
+ *  @returns            type code
+ */
+
+#define SZ_TYPECODE     32
+
+int dal_typecode (char *typestr) 
+{
+    char type[SZ_TYPECODE];
+    int  i = 0;
+
+    memset (type, 0, SZ_TYPECODE);
+    for (i=0; typestr[i] && i < SZ_TYPECODE; i++)
+        type[i] = tolower (typestr[i]);
+
+    if (strcmp (type, "dal") == 0)  return (DAL_CONN);
+    if (strcmp (type, "cone") == 0) return (CONE_CONN);
+    if (strcmp (type, "siap") == 0) return (SIAP_CONN);
+    if (strcmp (type, "ssap") == 0) return (SSAP_CONN);
+    if (strcmp (type, "slap") == 0) return (SLAP_CONN);
+    if (strcmp (type, "stap") == 0) return (STAP_CONN);
+
+    return (ERR);
+}
+
+
+/**
+ *  OUT_TYPECODE -- Convert an output type string to a code.
+ *
+ *  @brief      Convert an output type string to a code
+ *  @fn         code = out_typecode (char *typestr)
+ *
+ *  @param  typestr     input type string
+ *  @returns            type code
+ */
+int out_typecode (char *typestr) 
+{
+    char type[SZ_TYPECODE];
+    int  i = 0;
+
+    memset (type, 0, SZ_TYPECODE);
+    for (i=0; typestr[i] && i < SZ_TYPECODE; i++)
+        type[i] = tolower (typestr[i]);
+
+    if (strcmp (type, "raw") == 0)  	return (VOC_RAW);
+    if (strcmp (type, "csv") == 0) 	return (VOC_CSV);
+    if (strcmp (type, "votable") == 0) 	return (VOC_VOTABLE);
+
+    return (ERR);
+}