Initial commit

1 files changed, 827 insertions, 0 deletions

diff --git a/vendor/voclient/libvoclient/vocDAL_f77.c b/vendor/voclient/libvoclient/vocDAL_f77.c
new file mode 100644
index 00000000..c84493ba
--- /dev/null
+++ b/vendor/voclient/libvoclient/vocDAL_f77.c
@@ -0,0 +1,827 @@
+/***************************************************************************
+**
+**  VOCF77.C  -- Fortran binding for the VOClient interface.  As part of 
+**  the binding we map the interface procedure names and convert string
+**  constants as needed per Fortran rules.  Note that another aspect of
+**  the fortran calling convention is that the length of strings in the
+**  argument list are appended to the call stack.  As C code we need to
+**  take this into account when defining the interface.
+**
+**  M. Fitzpatrick, NOAO, Jul 2006
+**
+***************************************************************************/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <signal.h>
+#include <errno.h>
+
+#define _VOCLIENT_LIB_
+#include "VOClient.h"
+
+
+/*  Fortran Interface Definitions.
+**  
+**  Fortran compilers on various platforms may append one or more trailing 
+**  underscores to symbol names, we'll use macros for the interface names 
+**  and use defines to see what the symbol name is.
+*/
+
+#ifdef _NO_US_
+#define VF_CONECALLTOFILE 	vfconetofile
+#define VF_SIAPCALLTOFILE 	vfsiaptofile
+#define VF_SSAPCALLTOFILE 	vfssaptofile
+#define	VF_GETRAWURL 		vfgetrawurl
+
+#define	VF_OPENCONNECTION 	vfopenconnection
+#define	VF_OPENCONECONNECTION 	vfopenconeconnection
+#define	VF_OPENSIAPCONNECTION 	vfopensiapconnection
+#define	VF_OPENSSAPCONNECTION 	vfopenssapconnection
+#define	VF_CLOSECONNECTION 	vfcloseconnection
+#define	VF_GETSERVICECOUNT 	vfgetservicecount
+#define	VF_ADDSERVICEURL 	vfaddserviceurl
+#define	VF_GETSERVICEURL 	vfgetserviceurl
+#define	VF_GETQUERY 		vfgetquery
+#define	VF_GETCONEQUERY 	vfgetconequery
+#define	VF_GETSIAPQUERY 	vfgetsiapquery
+#define	VF_GETSSAPQUERY 	vfgetssapquery
+#define	VF_ADDINTPARAM 		vfaddintparam
+#define	VF_ADDFLOATPARAM 	vfaddfloatparam
+#define	VF_ADDSTRINGPARAM 	vfaddstringparam
+#define	VF_GETQUERYSTRING 	vfgetquerystring
+#define	VF_EXECUTEQUERY 	vfexecquery
+#define	VF_GETQUERYRESPONSE 	vfgetqr
+#define	VF_EXECUTECSV 		vfexeccsv
+#define	VF_EXECUTETSV 		vfexectsv
+#define	VF_EXECUTEASCII		vfexecascii
+#define	VF_EXECUTEVOTABLE 	vfexecvotable
+#define	VF_EXECUTEQUERYAS 	vfexecqueryas
+#define	VF_GETRECORDCOUNT 	vfgetrecordcount
+#define	VF_GETRECORD 		vfgetrecord
+#define	VF_GETFIELDATTR		vfgetfieldattr
+#define	VF_GETATTRCOUNT 	vfgetattrcount
+#define	VF_GETATTRLIST 		vfgetattrlist
+#define	VF_GETATTRIBUTE 	vfgetattribute
+#define	VF_GETINTATTR 		vfgetintattr
+#define	VF_GETFLOATATTR 	vfgetfloatattr
+#define	VF_GETSTRINGATTR 	vfgetstringattr
+#define	VF_INTVALUE 		vfintvalue
+#define	VF_FLOATVALUE 		vffloatvalue
+#define	VF_STRINGVALUE 		vfstringvalue
+#define	VF_GETDATASET 		vfgetdataset
+#define VF_SETINTATTR 		vfsetintattr
+#define VF_SETFLOATATTR 	vfsetfloatattr
+#define VF_SETSTRINGATTR 	vfsetstringattr
+
+#else
+#define VF_CONECALLTOFILE 	vfconetofile_
+#define VF_SIAPCALLTOFILE 	vfsiaptofile_
+#define VF_SSAPCALLTOFILE 	vfssaptofile_
+#define	VF_GETRAWURL 		vfgetrawurl_
+
+#define	VF_OPENCONNECTION 	vfopenconnection_
+#define	VF_OPENCONECONNECTION 	vfopenconeconnection_
+#define	VF_OPENSIAPCONNECTION 	vfopensiapconnection_
+#define	VF_OPENSSAPCONNECTION 	vfopenssapconnection_
+#define	VF_CLOSECONNECTION 	vfcloseconnection_
+#define	VF_GETSERVICECOUNT 	vfgetservicecount_
+#define	VF_ADDSERVICEURL 	vfaddserviceurl_
+#define	VF_GETSERVICEURL 	vfgetserviceurl_
+#define	VF_GETQUERY 		vfgetquery_
+#define	VF_GETCONEQUERY 	vfgetconequery_
+#define	VF_GETSIAPQUERY 	vfgetsiapquery_
+#define	VF_GETSSAPQUERY 	vfgetssapquery_
+#define	VF_ADDINTPARAM 		vfaddintparam_
+#define	VF_ADDFLOATPARAM 	vfaddfloatparam_
+#define	VF_ADDSTRINGPARAM 	vfaddstringparam_
+#define	VF_GETQUERYSTRING 	vfgetquerystring_
+#define	VF_EXECUTEQUERY 	vfexecquery_
+#define	VF_GETQUERYRESPONSE 	vfgetqr_
+#define	VF_EXECUTECSV 		vfexeccsv_
+#define	VF_EXECUTETSV 		vfexectsv_
+#define	VF_EXECUTEASCII 	vfexecascii_
+#define	VF_EXECUTEVOTABLE 	vfexecvotable_
+#define	VF_EXECUTEQUERYAS 	vfexecqueryas_
+#define	VF_GETRECORDCOUNT 	vfgetrecordcount_
+#define	VF_GETRECORD 		vfgetrecord_
+#define	VF_GETFIELDATTR 	vfgetfieldattr_
+#define	VF_GETATTRCOUNT 	vfgetattrcount_
+#define	VF_GETATTRLIST 		vfgetattrlist_
+#define	VF_GETATTRIBUTE 	vfgetattribute_
+#define	VF_GETINTATTR 		vfgetintattr_
+#define	VF_GETFLOATATTR 	vfgetfloatattr_
+#define	VF_GETSTRINGATTR 	vfgetstringattr_
+#define	VF_INTVALUE 		vfintvalue_
+#define	VF_FLOATVALUE 		vffloatvalue_
+#define	VF_STRINGVALUE 		vfstringvalue_
+#define	VF_GETDATASET 		vfgetdataset_
+#define VF_SETINTATTR 		vfsetintattr_
+#define VF_SETFLOATATTR 	vfsetfloatattr_
+#define VF_SETSTRINGATTR 	vfsetstringattr_
+
+#endif
+
+
+/*  Function prototypes.
+*/
+void VF_CONECALLTOFILE (char *url, double *ra, double *dec, double *sr, 
+	int *otype, char *file, int *ier, int ulen, int flen);
+void VF_SIAPCALLTOFILE (char *url, double *ra, double *dec, double *rsize, 
+	double *dsize, char *fmt, int *otype, char *file, int *ier,
+	int ulen, int fmtlen, int fillen);
+void VF_SSAPCALLTOFILE (char *url, double *ra, double *dec, double *size, 
+	char *band, char *time, char *fmt, int *otype, char *file, int *ier,
+	int ulen, int blen, int tlen, int fmtlen, int fillen);
+void VF_GETRAWURL (char *url,  char *result, int *len, int *ier, 
+	int ulen, int rlen);
+
+void VF_OPENCONNECTION (char *service_url, int *type, DAL *dal, int *ier, 
+	int len);
+void VF_OPENCONECONNECTION (char *service_url, DAL *cone, int *ier, int len);
+void VF_OPENSIAPCONNECTION (char *service_url, DAL *siap, int *ier, int len);
+void VF_OPENSSAPCONNECTION (char *service_url, DAL *ssap, int *ier, int len);
+void VF_CLOSECONNECTION (DAL *dal, int *ier);
+void VF_GETSERVICECOUNT (DAL *dal, int *count);
+void VF_ADDSERVICEURL (DAL *dal, char *service_url, int *ier, int len);
+void VF_GETSERVICEURL (DAL *dal, int *index, char *url, int *len, int slen);
+void VF_GETQUERY (DAL *dal, int *type, Query *query);
+void VF_GETCONEQUERY (DAL *dal, double *ra, double *dec, double *sr, 
+	Query *query);
+void VF_GETSIAPQUERY (DAL *dal, double *ra, double *dec, double *ra_size, 
+	double *dec_size, char *format, Query *query, int len);
+void VF_GETSSAPQUERY (DAL *dal, double *ra, double *dec, double *size, 
+	char *band, char *time, char *format, Query *query, 
+	int blen, int tlen, int flen);
+void VF_ADDINTPARAM (Query *query, char *name, int *ival, int *ier, int len);
+void VF_ADDFLOATPARAM (Query *query, char *name, double *dval, int *ier, 
+	int len);
+void VF_ADDSTRINGPARAM (Query *query, char *name, char *str, int *ier, 
+	int nlen, int slen);
+void VF_GETQUERYSTRING (Query *query, char *type, int *index, char *qstring, 
+	int *len, int tlen, int qlen);
+void VF_EXECUTEQUERY (Query *query, QResponse *qr);
+void VF_GETQUERYRESPONSE (Query *query, QResponse *qr);
+void VF_EXECUTECSV (Query *query, char *csv, int *len, int clen);
+void VF_EXECUTETSV (Query *query, char *tsv, int *len, int tlen);
+void VF_EXECUTEASCII (Query *query, char *ascii, int *len, int alen);
+void VF_EXECUTEVOTABLE (Query *query, char *votable, int *len, int vlen);
+void VF_EXECUTEQUERYAS (Query *query, char *fname, int *type, int *ier, 
+	int len);
+void VF_GETRECORDCOUNT (QResponse *qr, int *count);
+void VF_GETRECORD (QResponse *qr, int *recnum, QRecord *rec);
+void VF_GETFIELDATTR (QResponse *qr, int *fieldnum, char *attr, char *aval,
+			int *len, int alen);
+void VF_GETATTRCOUNT (QRecord *rec, int *count);
+void VF_GETATTRLIST (QRecord *rec, char *alist, int *len, int alen);
+void VF_GETATTRIBUTE (QRecord *rec, char *attrname, QRAttribute *attr, int len);
+void VF_GETINTATTR (QRecord *rec, char *attrname, int *ival, int len);
+void VF_GETFLOATATTR (QRecord *rec, char *attrname, double *dval, int len);
+void VF_GETSTRINGATTR (QRecord *rec, char *attrname, char *str, int *len, 
+	int alen, int slen);
+void VF_INTVALUE (QRAttribute *v, int *ival);
+void VF_FLOATVALUE (QRAttribute *v, double *dval);
+void VF_STRINGVALUE (QRAttribute *v, char *str, int *len, int slen);
+void VF_GETDATASET (QRecord *rec, char *acref, char *fname, int *ier, 
+	int alen, int flen);
+void VF_SETINTATTR (QRecord *rec, char *attrname, int *ival, int alen);
+void VF_SETFLOATATTR (QRecord *rec, char *attrname, double *dval, int alen);
+void VF_SETSTRINGATTR (QRecord *rec, char *attrname, char *str, 
+	int alen, int slen);
+
+
+/** Private interface declarations.
+**/
+extern char *sstrip (char *instr, int len);
+extern void  spad (char *outstr, int len);
+extern int   typecode (char *typestr);
+
+extern void voc_debugLevel ();
+
+
+
+/******************************************************************************
+**  CONECALLTOFILE -- Simple all-in-one interface to call a Cone service and
+**  save the resulting raw VOTable or a CSV to the named file.
+*/
+void
+VF_CONECALLTOFILE (char *url, double *ra, double *dec, double *sr, int *otype, 
+	char *file, int *ier, int ulen, int flen)
+{
+    char *_url  = sstrip (url, ulen);
+    char *_file = sstrip (file, flen);
+
+    *ier = voc_coneCallerToFile (_url, *ra, *dec, *sr, *otype, _file);
+
+    free ((char *) _url);
+    free ((char *) _file);
+}
+
+
+
+/******************************************************************************
+**  SIAPCALLTOFILE -- Simple all-in-one interface to call a Siap service and
+**  save the resulting raw VOTable or a CSV to the named file.
+*/
+void
+VF_SIAPCALLTOFILE (char *url, double *ra, double *dec, double *rsize, 
+	double *dsize, char *fmt, int *otype, char *file, int *ier,
+	int ulen, int fmtlen, int fillen)
+{
+    char *_url  = sstrip (url, ulen);
+    char *_fmt  = sstrip (fmt, fmtlen);
+    char *_file = sstrip (file, fillen);
+
+    *ier = voc_siapCallerToFile (_url, *ra, *dec, *rsize, *dsize, _fmt, 
+	*otype, _file);
+
+    free ((char *) _url);
+    free ((char *) _fmt);
+    free ((char *) _file);
+}
+
+
+/******************************************************************************
+**  SSAPCALLTOFILE -- Simple all-in-one interface to call a SSAP service and
+**  save the resulting raw VOTable or a CSV to the named file.
+*/
+void
+VF_SSAPCALLTOFILE (char *url, double *ra, double *dec, double *size, 
+	char *band, char *tim, char *fmt, int *otype, char *file, int *ier,
+	int ulen, int blen, int tlen, int fmtlen, int fillen)
+{
+    char *_url  = sstrip (url, ulen);
+    char *_band = sstrip (band, blen);
+    char *_tim  = sstrip (tim, tlen);
+    char *_fmt  = sstrip (fmt, fmtlen);
+    char *_file = sstrip (file, fillen);
+
+    *ier = voc_ssapCallerToFile (_url, *ra, *dec, *size, _band, _tim, _fmt, 
+	*otype, _file);
+
+    free ((char *) _url);
+    free ((char *) _band);
+    free ((char *) _tim);
+    free ((char *) _fmt);
+    free ((char *) _file);
+}
+
+
+/******************************************************************************
+**  GETRAWURL -- Get the raw contents of a URL to a string.
+*/
+void
+VF_GETRAWURL (char *url, char *result, int *len, int *ier, int ulen, int rlen)
+{
+    char *_url  = sstrip (url, ulen);
+    int  nbytes;
+    char *res  = voc_getRawURL (_url, &nbytes);
+
+    memset (result, 0, rlen);
+    if ((*len = strlen(res)) > rlen)
+	fprintf (stderr, "Warning: truncating query string: len=%d maxch=%d\n",
+            *len, rlen);
+    spad (strncpy (result, res, *len), rlen);
+
+    free ((char *) res);
+    free ((char *) _url);
+}
+
+
+
+
+/******************************************************************************
+**  OPENCONNECTION --  Open a new DAL context connection.
+*/
+void
+VF_OPENCONNECTION (char *service_url, int *type, DAL *dal, int *ier, int len)
+{
+    char *_service_url = sstrip (service_url, len);
+
+    *dal = voc_openConnection (_service_url, *type);
+    *ier = (*dal ? OK : ERR);
+
+    free ((char *) _service_url);
+}
+
+
+/******************************************************************************
+**  Utility aliases for code readability.
+*/
+void
+VF_OPENCONECONNECTION (char *service_url, DAL *cone, int *ier, int len)
+{
+    char *_service_url = sstrip (service_url, len);
+
+    *cone = voc_openConeConnection (_service_url);
+    *ier = (*cone ? OK : ERR);
+
+    free ((char *) _service_url);
+}
+
+void
+VF_OPENSIAPCONNECTION (char *service_url, DAL *siap, int *ier, int len)
+{
+    char *_service_url = sstrip (service_url, len);
+
+    *siap = voc_openSiapConnection (_service_url);
+    *ier = (*siap ? OK : ERR);
+
+    free ((char *) _service_url);
+}
+
+void
+VF_OPENSSAPCONNECTION (char *service_url, DAL *ssap, int *ier, int len)
+{
+    char *_service_url = sstrip (service_url, len);
+
+    *ssap = voc_openSsapConnection (_service_url);
+    *ier = (*ssap ? OK : ERR);
+
+    free ((char *) _service_url);
+}
+
+
+
+
+/******************************************************************************
+**  CLOSECONNETION --  Close the requested connection, i.e. tell the server
+**  we no longer need this handle.
+*/
+void
+VF_CLOSECONNECTION (DAL *dal, int *ier)
+{
+    voc_closeConnection (*dal);
+    *ier = OK;
+}
+
+
+/******************************************************************************
+**  GETSERVICECOUNT --  Get a count of the number of services associated 
+**  with the given DAL connection context.
+*/
+void
+VF_GETSERVICECOUNT (DAL *dal, int *count)
+{
+    *count = voc_getServiceCount (*dal);
+}
+
+
+/******************************************************************************
+**  ADDSERVICEURL --  Add a service URL to the specified connection.
+*/
+void
+VF_ADDSERVICEURL (DAL *dal, char *service_url, int *ier, int len)
+{
+    char *_service_url = sstrip (service_url, len);
+
+    voc_addServiceURL (*dal, _service_url);
+    *ier = OK;
+
+    free ((char *) _service_url);
+}
+
+
+/******************************************************************************
+**  GETSERVICEURL --  Get the requested service URL for the connection.
+**  For Fortran we adjust the 'index' so the call can be 1-indexed.
+*/
+void
+VF_GETSERVICEURL (DAL *dal, int *index, char *url, int *len, int ulen)
+{
+    char *res = voc_getServiceURL (*dal, (*index - 1));
+
+    memset (url, 0, ulen);
+    if ((*len = strlen(res)) > ulen)
+	fprintf (stderr, "Warning: truncating URL string: len=%d maxch=%d\n",
+            *len, ulen);
+    spad (strncpy (url, res, *len), ulen);
+
+    free ((char *) res);
+}
+
+
+
+
+/******************************************************************************
+**  GETQUERY --  Get a generic Query context from the server.
+*/
+void
+VF_GETQUERY (DAL *dal, int *type, Query *query)
+{
+    *query = voc_getQuery (*dal, *type);
+}
+
+
+/******************************************************************************
+**  GETCONEQUERY --  Get a query for a Cone service.  We take the typical
+**  Cone arguments in the interface routine but break it down into a series
+**  of messages to get a general Query object and then add parameters.
+*/
+void
+VF_GETCONEQUERY (DAL *dal, double *ra, double *dec, double *sr, Query *query)
+{
+    *query = voc_getConeQuery (*dal, *ra, *dec, *sr);
+}
+
+
+/******************************************************************************
+**  GETSIAPQUERY --  Get a query for a SIAP service.  We take the typical
+**  SIAP arguments in the interface routine but break it down into a series
+**  of messages to get a general Query object and then add parameters.
+*/
+void
+VF_GETSIAPQUERY (DAL *dal, double *ra, double *dec, double *ra_size, 
+	double *dec_size, char *format, Query *query, int len)
+{
+    char *_format = sstrip (format,len);
+
+    *query = voc_getSiapQuery (*dal, *ra, *dec, *ra_size, *dec_size, _format);
+
+    free ((char *) _format);
+}
+
+
+/******************************************************************************
+**  GETSSAPQUERY --  Get a query for a SSAP service.  We take the typical
+**  SSAP arguments in the interface routine but break it down into a series
+**  of messages to get a general Query object and then add parameters.
+*/
+void
+VF_GETSSAPQUERY (DAL *dal, double *ra, double *dec, double *size, 
+	char *band, char *tim, char *format, Query *query, 
+	int blen, int tlen, int flen)
+{
+    char *_band = sstrip (band,blen);
+    char *_tim  = sstrip (tim,tlen);
+    char *_format = sstrip (format,flen);
+
+    *query = voc_getSsapQuery (*dal, *ra, *dec, *size, _band, _tim, _format);
+
+    free ((char *) _format);
+}
+
+
+/******************************************************************************
+** ADDPARAM --  Add a parameter to a Query string.
+*/
+void
+VF_ADDINTPARAM (Query *query, char *name, int *ival, int *ier, int len)
+{
+    char *_name = sstrip (name, len);
+
+    *ier = voc_addIntParam (*query, _name, *ival);
+
+    free ((char *) _name);
+}
+              
+void
+VF_ADDFLOATPARAM (Query *query, char *name, double *dval, int *ier, int len)
+{
+    char *_name = sstrip (name, len);
+
+    *ier = voc_addFloatParam (*query, _name, *dval);
+
+    free ((char *) _name);
+}
+             
+void
+VF_ADDSTRINGPARAM (Query *query, char *name, char *str, int *ier, 
+    int nlen, int slen)
+{
+    char *_name = sstrip (name, nlen);
+    char *_str  = sstrip (str,  slen);
+
+    *ier = voc_addStringParam (*query, _name, _str);
+
+    free ((char *) _str);
+    free ((char *) _name);
+}
+
+
+
+/******************************************************************************
+**  GETQUERYSTRING -- Get the complete query string that will be executed.
+**  For Fortran we adjust the 'index' so the call can be 1-indexed.
+*/
+void
+VF_GETQUERYSTRING (Query *query, char *type, int *index, char *qstring, 
+    int *len, int tlen, int qlen)
+{
+    char *_type  = sstrip (type, tlen);
+    int   code = typecode (_type);
+
+    char *res  = voc_getQueryString (*query, code, (*index - 1));
+
+    memset (qstring, 0, qlen);
+    if ((*len = strlen(res)) > qlen)
+	fprintf (stderr, "Warning: truncating query string: len=%d maxch=%d\n",
+            *len, qlen);
+    spad (strncpy (qstring, res, *len), qlen);
+
+    free ((char *) res);
+    free ((char *) _type);
+}
+
+
+/******************************************************************************
+**  EXECUTEQUERY --  Execute the specified query in the DAL server, return
+**  the QResponse object handle.
+*/
+void
+VF_EXECUTEQUERY (Query *query, QResponse *qr)
+{
+    *qr = voc_executeQuery (*query);
+}
+
+
+void
+VF_GETQUERYRESPONSE (Query *query, QResponse *qr)
+{
+    *qr = voc_getQueryResponse (*query);
+}
+
+
+void
+VF_EXECUTECSV (Query *query, char *csv, int *len, int clen)
+{
+    char *res = voc_executeCSV (*query);
+
+    memset (csv, 0, clen);
+    if ((*len = strlen(res)) > clen)
+	fprintf (stderr, "Warning: truncating CSV: len=%d maxch=%d\n",
+            *len, clen);
+    spad (strncpy (csv, res, *len), clen);
+
+    free ((char *) res);
+}
+
+void
+VF_EXECUTETSV (Query *query, char *tsv, int *len, int tlen)
+{
+    char *res = voc_executeTSV (*query);
+
+    memset (tsv, 0, tlen);
+    if ((*len = strlen(res)) > tlen)
+	fprintf (stderr, "Warning: truncating TSV: len=%d maxch=%d\n",
+            *len, tlen);
+    spad (strncpy (tsv, res, *len), tlen);
+
+    free ((char *) res);
+}
+
+void
+VF_EXECUTEASCII (Query *query, char *ascii, int *len, int alen)
+{
+    char *res = voc_executeASCII (*query);
+
+    memset (ascii, 0, alen);
+    if ((*len = strlen(res)) > alen)
+	fprintf (stderr, "Warning: truncating CSV: len=%d maxch=%d\n",
+            *len, alen);
+    spad (strncpy (ascii, res, *len), alen);
+
+    free ((char *) res);
+}
+
+
+void
+VF_EXECUTEVOTABLE (Query *query, char *votable, int *len, int vlen)
+{
+    char *res = voc_executeVOTable (*query);
+
+    memset (votable, 0, vlen);
+    if ((*len = strlen(res)) > vlen)
+	fprintf (stderr, "Warning: truncating VOTable: len=%d maxch=%d\n",
+            *len, vlen);
+    spad (strncpy (votable, res, *len), vlen);
+
+    free ((char *) res);
+}
+
+             
+
+/******************************************************************************
+**  EXECUTEQUERYAS --  Execute the specified query in the DAL server,
+**  saving the results in the specified format (e.g. CSV or VOTable) in
+**  the specified file.
+*/
+void
+VF_EXECUTEQUERYAS (Query *query, char *fname, int *type, int *ier, int len)
+{
+    char *_fname = sstrip (fname,len);
+
+    *ier = voc_executeQueryAs (*query, _fname, *type);
+
+    free ((char *) _fname);
+}
+
+
+/*  GETRECORDCOUNT --  Get a count of the records returned by the QResponse.
+*/
+void
+VF_GETRECORDCOUNT (QResponse *qr, int *count)
+{
+    *count = voc_getRecordCount (*qr);
+}
+
+
+/***************************************************************************
+** Access by dataset attribute:
+**
+**  For Fortran we adjust the 'recnum' so the call can be 1-indexed.
+*/
+
+void
+VF_GETRECORD (QResponse *qr, int *recnum, QRecord *rec)
+{
+    *rec = voc_getRecord (*qr, (*recnum - 1));
+}
+
+
+void 
+VF_GETFIELDATTR (QResponse *qr, int *fieldnum, char *attr, char *aval,
+			int *len, int alen)
+{
+    char *_attrname = sstrip (attr, alen);
+    char *res = voc_getFieldAttr (*qr, (*fieldnum - 1), _attrname);
+
+    memset (aval, 0, alen);
+    if ((*len = strlen(res)) > alen)
+	fprintf (stderr, 
+	    "Warning: truncating string attr '%s': len=%d maxch=%d\n",
+	    _attrname, *len, alen);
+    spad (strncpy (aval, res, *len), alen);
+
+    free ((char *) res);
+    free ((char *) _attrname);
+}
+
+
+void
+VF_GETATTRCOUNT (QRecord *rec, int *count)
+{
+    *count = voc_getAttrCount (*rec);
+}
+
+
+void
+VF_GETATTRLIST (QRecord *rec, char *alist, int *len, int alen)
+{
+    char *res = voc_getAttrList (*rec);
+
+    memset (alist, 0, alen);
+    if ((*len = strlen(res)) > alen)
+	fprintf (stderr, "Warning: truncating attrList: len=%d maxch=%d\n",
+            *len, alen);
+    spad (strncpy (alist, res, *len), alen);
+
+    free ((char *) res);
+}
+
+
+
+/***************************************************************************
+**  Dataset Attribute Methods:
+*/
+
+void
+VF_GETATTRIBUTE (QRecord *rec, char *attrname, QRAttribute *attr, int len)
+{
+    char *_attrname = sstrip (attrname,len);
+
+    *attr = voc_getAttribute (*rec, _attrname);
+
+    free ((char *) _attrname);
+}
+
+
+/*********************************************
+****    NOT YET IMPLEMENTED IN DAL CLIENT
+***/
+
+void 
+VF_SETINTATTR (QRecord *rec, char *attrname, int *ival, int alen) 
+{
+    char *_attrname = sstrip (attrname, alen);
+
+    voc_setIntAttr (*rec, _attrname, *ival);
+
+    free ((char *) _attrname);
+}
+
+void 
+VF_SETFLOATATTR (QRecord *rec, char *attrname, double *dval, int alen) 
+{
+    char *_attrname = sstrip (attrname, alen);
+
+    voc_setFloatAttr (*rec, _attrname, *dval) ;
+
+    free ((char *) _attrname);
+}
+
+void 
+VF_SETSTRINGATTR (QRecord *rec, char *attrname, char *str, int alen, int slen) 
+{
+    char *_attrname = sstrip (attrname, alen);
+    char *s = sstrip (str, slen);
+
+    voc_setStringAttr (*rec, _attrname, s); 
+
+    free ((char *) _attrname);
+    free ((char *) s);
+}
+
+
+
+/******************************************************************************
+** Utility aliases for the messaging commands below.
+*/
+void
+VF_GETINTATTR (QRecord *rec, char *attrname, int *ival, int len)
+{
+    char *_attrname = sstrip (attrname, len);
+
+    *ival = voc_getIntAttr (*rec, _attrname);
+
+    free ((char *) _attrname);
+}
+
+void
+VF_GETFLOATATTR (QRecord *rec, char *attrname, double *dval, int len)
+{
+    char *_attrname = sstrip (attrname, len);
+
+   *dval = voc_getFloatAttr (*rec, _attrname);
+
+    free ((char *) _attrname);
+}
+
+void
+VF_GETSTRINGATTR (QRecord *rec, char *attrname, char *str, int *len, 
+    int alen, int slen)
+{
+    char *_attrname = sstrip (attrname, alen);
+    char *res = voc_getStringAttr (*rec, _attrname);
+
+    memset (str, 0, slen);
+    if ((*len = strlen(res)) > slen)
+	fprintf (stderr, 
+	    "Warning: truncating string attr '%s': len=%d maxch=%d\n",
+	    _attrname, *len, slen);
+    spad (strncpy (str, res, *len), slen);
+
+    free ((char *) res);
+    free ((char *) _attrname);
+}
+
+
+
+/******************************************************************************
+**  Value Conversion routines.
+*/
+
+void
+VF_INTVALUE (QRAttribute *v, int *ival)
+{
+    *ival = voc_intValue (*v);
+}
+
+void
+VF_FLOATVALUE (QRAttribute *v, double *dval)
+{
+    *dval = voc_floatValue (*v);
+}
+
+void
+VF_STRINGVALUE (QRAttribute *v, char *str, int *len, int slen)
+{
+    char *res = voc_stringValue (*v);
+
+    memset (str, 0, slen);
+    if ((*len = strlen(res)) > slen)
+	fprintf (stderr, "Warning: truncating string value: len=%d maxch=%d\n",
+            *len, slen);
+    spad (strncpy (str, res, *len), slen);
+
+    free ((char *) res);
+}
+
+
+/******************************************************************************
+**  GETDATASET -- Download the AccessReference dataset object to the named 
+**  file.  If fname is NULL, a temp file will be created and the fname
+**  pointer allocated with a string containing the name.
+*/
+void
+VF_GETDATASET (QRecord *rec, char *acref, char *fname, int *ier, 
+    int alen, int flen)
+{
+    char *_acref = sstrip (acref, alen);
+    char *_fname = sstrip (fname, flen);
+
+    *ier = voc_getDataset (*rec, _acref, _fname);
+
+    free ((char *) _fname);
+    free ((char *) _acref);
+}