diff options
Diffstat (limited to 'vendor/voclient/libvoclient/vocUtil_spp.c')
| -rw-r--r-- | vendor/voclient/libvoclient/vocUtil_spp.c | 193 |
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); +} |