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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
/************************************************************************
* Call a cone search service and print a summary selected fields of the
* results.
*
* Usage: cone1 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 *server = "6200:localhost";
static void callConeService (char *url, double ra, double dec, double sr);
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)
service = argv[arg++];
} else {
fprintf (stderr, "Usage: cone1 [-ds server] ra dec sr [coneURL]\n");
exit(1);
}
/* Now call the Cone Service and summarize the results.
*/
callConeService (service, ra, dec, sr);
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 *voc_opts = NULL;
int i=0, nrec=0, nattr=0;
char *attrList = NULL, *ip;
DAL cone; /* DAL Connection */
Query query; /* query handle */
QResponse qr; /* query response handle */
QRecord rec; /* result record 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 */
printf ("Executing Query:\n %s\n\n",
voc_getQueryString (query, CONE_CONN, 0));
qr = voc_executeQuery (query); /* execute the query */
if ((nrec = voc_getRecordCount (qr)) <= 0) { /* summarize response */
fprintf (stderr, "no records matched");
exit (1);
} else {
rec = voc_getRecord (qr, 0);
nattr = (rec != ERR) ? voc_getAttrCount (rec) : 0;
printf ("# returns %d records containing %d attributes each\n#\n",
nrec, nattr);
printf ("# --- Summary output ---\n#\n");
attrList = voc_getAttrList (rec);
printf ("# Attribute List:\n# ");
for (ip = attrList; *ip; ip++)
if (isspace (*ip))
printf ("\n# ");
else
putchar (*ip);
printf ("\n#\n");
}
/* Summarize and print selected query results.
*/
for (i = 0; i < nrec; i++) {
char *s_id, *s_ra, *s_dec, *s_class;
rec = voc_getRecord (qr, i); /* get a row in the table */
/* The getStringAttr method returns an allocated pointer to a string
* we'll need to free below, however we can use a NULL pointer to
* know when no data were found.
*/
s_id = voc_getStringAttr (rec, "ID_MAIN");
s_ra = voc_getStringAttr (rec, "POS_EQ_RA_MAIN");
s_dec = voc_getStringAttr (rec, "POS_EQ_DEC_MAIN");
s_class = voc_getStringAttr (rec, "CLASS_OBJECT");
printf ("id=%-16s ra=%s\tdec=%s\tclass=%s\n",
(s_id ? s_id : "<null>"),
(s_ra ? s_ra : "<null>"),
(s_dec ? s_dec : "<null>"),
(s_class ? s_class : "<null>"));
if (s_id) free ((void *) s_id); /* clean up temp pointers */
if (s_ra) free ((void *) s_ra);
if (s_dec) free ((void *) s_dec);
if (s_class) free ((void *) s_class);
}
free ((void *) attrList);
voc_closeConnection (cone); /* close the cone connection */
voc_closeVOClient (1); /* clean up and shutdown */
return;
}
|
