/************************************************************************
 *   Simple test program of a Registry query using the high-level procedure
 *   voc_regSearch() to do the search.
 *
 *   Usage:    registry1 [-flags] [keyword_list]
 *
 *   Or call with no args for the built-in unit test.  The '-o' flag says
 *   to logically OR the keywords
 *
 *   Examples:
 *
 *	registry1 -siap   		// List all SIAP services
 *	registry1 -cone cool stars	// keyword search on Cone services
 *	registry1 cool stars		// keyword search on all resources
 *
 *
 *   M. Fitzpatrick, NOAO, June 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 *surl, *rtype, *title, *sname, *clev;
    char *sql = 
	(type == CONE ?  "ResourceType like '%cone%'" : 
          (type == SIAP ?  "ResourceType like '%siap%'" : 
            (type == TABULAR ?  "ResourceType like '%tabular%'" : NULL) 
	  ) 
	);


    /* Initialize the VO Client interface.
     */
    if (voc_initVOClient ("") == ERR) 
        return;

    printf ("#\n# Search words:  '%s'\n", keywords);
    printf ("# SQL predicate: '%s'\n#\n", sql);

    /* Do the search.
     */
    RegResult res = voc_regSearch (sql, keywords, orValues);
    if (res < 0) {
	printf ("error from regSearch(), aborting...\n");
        voc_closeVOClient (0);			/* shutdown	*/
	return;
    }

    /* 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);
	surl   = voc_resGetStr (res, "ServiceUrl", 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 ("SvcURL:  %s\n", surl);
	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 (surl)  free ((char *)surl);
	if (rtype) free ((char *)rtype);
	if (sname) free ((char *)sname);
	if (clev)  free ((char *)clev);
    }

    voc_closeVOClient (0);		/* shutdown	*/
}