1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
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;
}
|
