// t.c
// C equivalent of tlucene.pl to verify CLucene library installed and works correctly

#define size_t unsigned int
#define bool	char
#define true	((bool)1)
#define false	((bool)0)
#define NULL	(0)

#include "clucene_dll.h"

/*

// clucene_perl.h
// declarations for swig to generate perl wrapper

	// Opens a new CLucene directory, returns a resource
long		CL_OPEN (char * path, bool create = false);
	// Closes a CLucene directory
bool		CL_CLOSE (long resource);
	// Optimizes a Clucene directory
bool		CL_OPTIMIZE (long resource);
	// Deletes documents returned from query
long		CL_DELETE (long resource, char * qry, char * fld);
	// Returns the error string
void		CL_ERRSTR (long resource, char * errbuf, long len);
//CL_ERROR
	// Returns the global error string
void		CL_ERRSTRGLOBAL (char *errbuf, long len);
	// Creates a new document
bool		CL_NEW_DOCUMENT (long resource);
	// Adds a field to the current document
bool		CL_ADD_FIELD (long resource, char * fld, char * val, int val_len, 
						int store = 0, int index = 1, int token = 1);
	// Adds a date field to the current document
bool		CL_ADD_DATE (long resource, char * fld, int = 0, int store = 0, int index = 1, int token = 1);
	// Inserts the current document
bool		CL_INSERT_DOCUMENT (long resource);
	// Returns text about document info
void		CL_DOCUMENT_INFO (long resource, char * buf, long len);
	// Search one field
bool		CL_SEARCH (long resource, char * qry, char * fld);
	// Search multiple fields
bool		CL_SEARCHMULTIFIELDS (long resource, char * qry, char *flds[], int num_flds);
	// Search multiple fields and get flags
long		CL_SEARCHMULTIFIELDS_FLAGGED (long resource, char * query, 
					char ** fields, int fieldsLen, char ** flags);
	// Query search info
void		CL_QUERY (long resource, char * qry, int qry_len);
	// Get query string
void		CL_SEARCH_INFO (long resource, char *pl, int len);
	// Get search hits
long		CL_HITCOUNT (long resource);
	// Retrieve next hit
bool		CL_NEXTHIT (long resource);
	// Clear search
void		CL_CLEARSEARCH (long resource);
	// Get field for current hit
bool		CL_GETFIELD (long resource, char * fld, char * val, int * val_len);
	// Get date field for current hit
long		CL_GETDATEFIELD (long resource, char * fld);
	// Deletes the documents returned from the specified query
long		CL_DELETE (long resource, char * qry, char * fld);
	// Unlock directory
long		CL_UNLOCK (const char * path);
	// Add a file field to the current document
long		CL_ADD_FILE (long resource, const char * fld, const char * filename, 
					const int store, const int index, const int token);
	// Cleanup resources
void	CL_CLEANUP();

*/

void fail(char *s)
{
	if ( s == NULL )
	{
		s = "Unknown";
	}
	printf("Fatal Error: %s\n",s);
	exit(1);
}

void ckfail(bool b, char *s)
{
	if ( b == true )
		return;
	fail(s);
}

void ckfailr(bool b, char *s, long resource)
{
	char errmsg[256];
	if ( b == true )
		return;
	CL_ERRSTR(resource, errmsg, 255);
	printf("Error: %s\n", errmsg);
	fail(s);
}

int main(int argc, char **argv)
{
	char *path = "./index";
	long resource;
	bool create = true;
	int rc;
	char errmsg[256];
	char bigbuf[2048];
	long numhit = 0;
	int gothit = 0;

	char * docref = "doc1";
	char * doccnt = "some content"; // "some more content", "content for third document"};
	
	resource = CL_OPEN(path,create);
	if (resource==NULL)
	{
		CL_ERRSTRGLOBAL(errmsg,(sizeof errmsg)-1);
		printf("Error: %s\n", errmsg);
		fail("CL_Open");
	}
	printf("Opened %s\n",path);


	ckfail( CL_NEW_DOCUMENT(resource), "CL_New_Document" );
	ckfailr( CL_ADD_FIELD(resource, "ref", docref, strlen(docref), 1, 1, 1), "CL_Add_Field", resource );
	ckfailr( CL_ADD_FIELD(resource, "cnt", doccnt, strlen(doccnt), 1, 1, 1), "CL_Add_Field", resource );

	CL_DOCUMENT_INFO(resource,bigbuf,(sizeof bigbuf)-1);
	printf("Document to add: %s\n", bigbuf);

	ckfail( CL_INSERT_DOCUMENT(resource), "CL_Insert_Document" );
	printf("Document added\n");


	ckfail( CL_SEARCH(resource, "some", "cnt"), "CL_Search" );
	numhit = CL_HITCOUNT(resource);
	printf("Found %d hits on 'some'\n", numhit);

	gothit = numhit ? 1 : 0;
	while (gothit)
	{
		char * val = NULL;
		size_t val_len = 0;
		
		ckfail( CL_GETFIELD(resource, "ref", &val, &val_len), "CL_GetField" );
		printf ("Document: %s\n", (val ? val : "NULL") );
		gothit = CL_NEXTHIT(resource);
	}

	rc = CL_CLOSE(resource);
	printf("CL_CLOSE returned %d\n",rc);
	exit(0);
}