1 files changed, 111 insertions, 0 deletions
diff --git a/vendor/voclient/libvoclient/examples/cone2.c b/vendor/voclient/libvoclient/examples/cone2.c
new file mode 100644
index 00000000..58126507
--- /dev/null
+++ b/vendor/voclient/libvoclient/examples/cone2.c
@@ -0,0 +1,111 @@
+/************************************************************************
+ *   Call a cone search service and print the results as a CSV file.
+ *
+ *   Usage:        cone2 ra dec sr [serviceURL]
+ *
+ *   Or call with no args for the built-in unit test.
+ *
+ *  M. Fitzpatrick, NOAO, June 2006
+ */
+
+
+#include <stdio.h>
+#include <stdlib.h>
+#include "VOClient.h"
+
+double  ra       = 12.0;			/* default values	*/
+double  dec      = 12.0;
+double  sr       = 0.1;
+
+#ifdef USNOB
+char   *service  = \
+      "http://www.nofs.navy.mil/cgi-bin/vo_cone.cgi?CAT=USNO-B1&";
+#else
+  char   *service  = "http://chart.stsci.edu/GSCVO/GSC22VO.jsp?";
+#endif
+
+char   *fmt      = "ascii";
+char   *server   = "6200:localhost";
+
+static void callConeService (char *url, double ra, double dec, double sr,
+    char *fmt);
+
+
+
+int main (int argc, char *argv[])
+{
+    /* Process command line arguments.
+     */
+    if (argc <= 1) {
+	/* Use builtin defaults. */
+    } else if (argc >= 3) {
+	int arg = 1;
+    
+	/* Look for a server specification. */
+	if (strncmp (argv[arg], "-ds",3) == 0)
+	    server = argv[++arg];
+	ra   = atof (argv[arg++]);
+	dec  = atof (argv[arg++]);
+	sr   = atof (argv[arg++]);
+	if (arg < argc)
+	    fmt = argv[arg++];
+	if (arg < argc)
+	    service = argv[arg++];
+
+    } else {
+        fprintf (stderr, 
+	    "Usage: cone1 [-ds server] ra dec sr [fmt [coneURL] ]\n");
+        exit(1);
+    }
+
+    /* Now call the Cone Service and summarize the results.
+     */
+    callConeService (service, ra, dec, sr, fmt);
+
+    return (0);
+}
+
+
+/*  Simple test routine to call a Cone search service and summarize results.
+ */
+static void
+callConeService (char *service_url, double ra, double dec, double sr, char *fmt)
+{
+    char *voc_opts = NULL;
+    char *res 	   = NULL;
+
+    DAL	      cone;				/* DAL Connection	 */
+    Query     query;				/* query handle		 */
+	
+
+    /*  Initialize the VOClient code.  Error messages are printed by the
+     *  interface so we just quit if there is a problem.
+     */
+    if (voc_initVOClient (voc_opts) == ERR) 
+        return;
+
+    /*  Get a new connection to the named service.
+     */
+    cone = voc_openConeConnection (service_url);    /* open a connection    */
+
+    query = voc_getConeQuery (cone, ra, dec, sr);   /* form a query  	    */
+
+    switch (fmt[0]) {
+    case 'c':     res = voc_executeCSV (query);     break;
+    case 't':     res = voc_executeTSV (query);     break;
+    case 'a':     res = voc_executeASCII (query);   break;
+    case 'v':     res = voc_executeVOTable (query); break;
+    default:
+	fprintf (stderr, "Invalid format specification '%s'\n", fmt);
+	exit (1);
+    }
+    write (fileno(stdout), res, strlen (res));
+    printf ("\n");
+
+    free ((void *) res);			/* free local storage	     */
+
+    voc_closeConnection (cone);			/* close the cone connection */
+    voc_closeVOClient (1);		        /* clean up and shutdown     */
+
+    return;
+}