diff options
Diffstat (limited to 'vendor/voclient/libvoclient/vocSesame_spp.c')
| -rw-r--r-- | vendor/voclient/libvoclient/vocSesame_spp.c | 213 |
1 files changed, 213 insertions, 0 deletions
diff --git a/vendor/voclient/libvoclient/vocSesame_spp.c b/vendor/voclient/libvoclient/vocSesame_spp.c new file mode 100644 index 00000000..d72af9ab --- /dev/null +++ b/vendor/voclient/libvoclient/vocSesame_spp.c @@ -0,0 +1,213 @@ +/** + * VOCSESAME_SPP.C -- SPP Interface to the Sesame name resolver service. + * + * @section DESCRIPTION + * + * Sesame Name Resolver SPP Interface: + * ----------------------------------- + * + * sr = vx_nameResolver (target) + * pos_str = vx_resolverPos (sr) + * radeg = vx_resolverRA (sr) + * decdeg = vx_resolverDEC (sr) + * typ_str = vx_resolverOtype (sr) + * raerr = vx_resolverRAErr (sr) + * decerr = vx_resolverDECErr (sr) + * + * @file vocSesame_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" + +#ifdef _NO_US_ + +#define vx_nameresolver vxnamr +#define vx_resolverra vxresa +#define vx_resolverdec vxresc +#define vx_resolverpos vxress +#define vx_resolverotype vxrese + +#define vx_errresolverra vxerra +#define vx_errresolverdec vxerrc + +#else + +#define vx_nameresolver vxnamr_ +#define vx_resolverra vxresa_ +#define vx_resolverdec vxresc_ +#define vx_resolverpos vxress_ +#define vx_resolverotype vxrese_ + +#define vx_errresolverra vxerra_ +#define vx_errresolverdec vxerrc_ + + +#endif + + +/* SPP Type definitions. +*/ +#define XCHAR short +#define PKCHAR char +#define XINT int +#define XEOS NULL + + +/* Public interface procedures +*/ +int vx_nameresolver (XCHAR *target); +int vx_resolverpos (int *sr, XCHAR *pos, int *len); +double vx_resolverra (int *sr); +double vx_resolverdec (int *sr); +int vx_resolverotype (int *sr, XCHAR *type, int *len); +double vx_errresolverra (int *sr); +double vx_errresolverdec (int *sr); + + +/* Private interface procedures. +*/ +extern PKCHAR *spp2c (XCHAR *instr, int maxch); +extern int c2spp (PKCHAR *instr, XCHAR *outstr, int maxch); +extern int spplen (XCHAR *str); + + + +/** + * VX_NAMERESOLVER -- Query the CDS Sesame service to resolve the target + * name to coordinates. The query is done when creating the Sesame object, + * thereafter we simply query the object data. + * + * @brief Query the CDS Sesame name resolver service. + * @fn sr = vx_nameresolver (XCHAR *target) + * + * @param target name of target to be resolved + * @returns handle to Sesame object + */ +int +vx_nameresolver (XCHAR *target) +{ + char *_target = spp2c (target, spplen (target)); + + Sesame ier = (Sesame) voc_nameResolver (_target); + + free ((char *) _target); + return (ier); +} + + +/** + * VX_RESOLVERPOS -- Return a string containing the (ra,dec) position as + * sexagesimal strings. + * + * @brief Return a string containing the (ra,dec) position. + * @fn len = vx_resolverpos (int *sr, XCHAR *pos, int *maxch) + * + * @param sr handle to Sesame object + * @param pos returned position string + * @param maxch max size of position string + * @returns length of position string + */ +int +vx_resolverpos (int *sr, XCHAR *pos, int *maxch) +{ + char *_result = voc_resolverPos ((Sesame) *sr); + int len = c2spp (_result, pos, *maxch); + + free ((char *) _result); + return (len); +} + + +/** + * VX_RESOLVEROTYPE -- Return a string containing the object type description. + * + * @brief Return a string containing the object type description. + * @fn len = vx_resolvertype (int *sr, XCHAR *type, int *maxch) + * + * @param sr handle to Sesame object + * @param pos returned object type + * @param maxch max size of type string + * @returns length of type string + */ +int +vx_resolverotype (int *sr, XCHAR *type, int *maxch) +{ + char *_result = voc_resolverOtype ((Sesame) *sr); + int len = c2spp (_result, type, *maxch); + + free ((char *) _result); + return (len); +} + + +/** + * VX_RESOLVERRA -- Return the RA as a double precision value. + * + * @brief Return the RA as a double precision value. + * @fn ra = vx_resolverra (int *sr) + * + * @param sr handle to Sesame object + * @returns RA of object position (decimal degrees) + */ +double +vx_resolverra (int *sr) +{ + return ( voc_resolverRA ((Sesame) *sr) ); +} + + +/** + * VX_RESOLVERDEC -- Return the DEC as a double precision value. + * + * @brief Return the DEC as a double precision value. + * @fn dec = vx_resolverdec (int *sr) + * + * @param sr handle to Sesame object + * @returns Dec of object position (decimal degrees) + */ +double +vx_resolverdec (int *sr) +{ + return ( voc_resolverDEC ((Sesame) *sr) ); +} + + +/** + * VX_ERRRESOLVERRA -- Return the RA error as a double precision value. + * + * @brief Return the RA error as a double precision value. + * @fn err = vx_errresolverra (int *sr) + * + * @param sr handle to Sesame object + * @returns RA error of object position (decimal degrees) + */ +double +vx_errresolverra (int *sr) +{ + return ( voc_resolverRAErr ((Sesame) *sr) ); +} + + +/** + * VX_ERRRESOLVERDEC -- Return the DEC as a double precision value. + * + * @brief Return the Dec error as a double precision value. + * @fn err = vx_errresolverdec (int *sr) + * + * @param sr handle to Sesame object + * @returns Dec error of object position (decimal degrees) + */ +double +vx_errresolverdec (int *sr) +{ + return ( voc_resolverDECErr ((Sesame) *sr) ); +} |