Repatch (from linux) of OSX IRAF

1 files changed, 132 insertions, 0 deletions

diff --git a/vendor/voclient/libvoclient/examples/registry3.c b/vendor/voclient/libvoclient/examples/registry3.c
new file mode 100644
index 00000000..ed9fd63e
--- /dev/null
+++ b/vendor/voclient/libvoclient/examples/registry3.c
@@ -0,0 +1,132 @@
+/************************************************************************
+ *   Simple test program of a Registry query using the high-level procedure
+ *   voc_regSearchByService() to do the search.
+ *
+ *   Usage:    registry3 [-flags] [keyword_list]
+ *
+ *   Or call with no args for the built-in unit test.  The '-o' flag says
+ *   to logically OR the keywords
+ *
+ *   Examples:
+ *
+ *	registry3 -siap   		// List all SIAP services
+ *	registry3 -cone cool stars	// keyword search on Cone services
+ *	registry3 cool stars		// keyword search on all resources
+ *
+ *
+ *   M. Fitzpatrick, NOAO, July 2006
+ */
+
+
+#include <stdio.h>
+#include <stdlib.h>
+#include "VOClient.h"
+
+
+#define	ANY	-1
+#define	CONE	0
+#define SIAP	1
+#define TABULAR	2
+
+
+char    *keywords = "cool stars\0";		/* default search terms	*/
+int	orValues = 0;
+int	svc_type = ANY;
+
+
+static void callRegistry (char *keywords, int orValues, int type);
+
+
+
+int main (int argc, char *argv[])
+{
+    /* Process command line arguments.
+     */
+    if (argc <= 1) {
+        callRegistry (keywords, orValues, svc_type); 	/* use defaults	*/
+        return (0);
+
+    } else if (argc >= 2) {
+	int   arg = 1;
+	char  keyw[1024];
+    
+	bzero (keyw, 1024);
+	while (arg < argc) {
+	    if (strncmp (argv[arg], "-any", 2) == 0)
+		svc_type = ANY;
+	    else if (strncmp (argv[arg], "-cone", 2) == 0)
+		svc_type = CONE;
+	    else if (strncmp (argv[arg], "-siap", 2) == 0)
+		svc_type = SIAP;
+	    else if (strncmp (argv[arg], "-tabular", 2) == 0)
+		svc_type = TABULAR;
+	    else if (strncmp (argv[arg], "-or", 2) == 0)
+	        orValues = 1;
+	    else {
+	        strcat (keyw, argv[arg]); 
+	        if (arg < (argc-1)) strcat (keyw, " ");
+	    }
+	    arg++;
+	}
+    
+       /* Now call the SIAP Service and summarize the results.
+        */
+	callRegistry (keyw, orValues, svc_type);
+    }
+
+    return (0);
+}
+
+
+/*  Simple procedure to test a Registry query and print some results.
+ */
+static void
+callRegistry (char *keywords, int orValues, int type)
+{
+    int  i, nresources = -1;
+    char *rtype, *title, *sname, *clev;
+    char *svc = 
+	(type == CONE ?  "cone" :
+          (type == SIAP ?  "siap" :
+            (type == TABULAR ?  "tabular" : NULL)
+	  ) 
+	);
+
+
+    /* Initialize the VO Client interface.
+     */
+    if (voc_initVOClient ("") == ERR) 
+        return;
+
+    printf ("#\n# Search words:  '%s'\n", keywords);
+    printf ("# Service Type:  '%s'\n#\n", svc);
+
+    /* Do the search.
+     */
+    RegResult res = voc_regSearchByService (svc, keywords, orValues);
+
+    /* Summarize the results.
+     */
+    nresources = voc_resGetCount (res);
+    printf ("#\n#Found %d matching records\n#\n\n", nresources);
+
+    for (i = 0; i < nresources; i++) {
+	title  = voc_resGetStr (res, "Title", i);
+	rtype  = voc_resGetStr (res, "ServiceType", i);
+	sname  = voc_resGetStr (res, "ShortName", i);
+	clev   = voc_resGetStr (res, "ContentLevel", i);
+
+	printf ("----------------------------------------------------------\n");
+	printf ("(%d of %d) %s\n", i+1, nresources, title);
+	printf ("ShortName:  %-30.30s\tResType:  %s\n", sname, rtype);
+	printf ("ContentLevel: %s\n\n", (clev ? clev : "none provided"));
+
+	/* Free the pointers returned. */
+	if (title) free ((char *)title);
+	if (rtype) free ((char *)rtype);
+	if (sname) free ((char *)sname);
+	if (clev)  free ((char *)clev);
+    }
+
+    voc_closeVOClient (0);		/* shutdown	*/
+}