#include <iostream>
#include <string>
using namespace std;

#include <time.h>
#include <assert.h>

#include <StrixStore.h>

void Exit(const char* errmsg)
{
	cout<<errmsg<<endl;
	getchar();
	exit(1);
}

void PrintRDFval(StrixDB_val* v)
{
	if(v->datatype==NULL)
		cout<<'<'<<v->resource<<'>';
	else if(!strcmp(v->datatype,"xsd:string")) {
		cout<<v->litVal;
		if(v->lang)
			cout<<'@'<<v->lang;
		cout<<"^^"<<v->datatype;
	}
	else if(!strcmp(v->datatype,"xsd:integer")) 
		cout<<v->iVal<<"^^xsd:integer";
	else if(!strcmp(v->datatype,"xsd:double")) 
		cout<<v->rVal<<"^^xsd:double";
	else if(!strcmp(v->datatype,"xsd:boolean")) 
		cout<<(v->bVal?"true":"false")<<"^^xsd:boolean";
	else if(!strcmp(v->datatype,"xsd:dateTime")) 
		cout<<v->tVal<<"^^xsd:dateTime";
	else 
		cout<<v->litVal<<"^^"<<v->datatype;
}

struct TestPrinter
{
	TestPrinter():vals(NULL),nbrows(0),nbcols(0) {}

	StrixDB_val* vals;
	int nbrows,nbcols;

	void dump() {
		for(int i=0;i<nbrows;++i) {
			for(int j=0;j<nbcols;++j,++vals) {
				if(j>0)
					std::cout<<'	';
				PrintRDFval(vals);
			}
			std::cout<<std::endl;
		}
		cout<<endl<<endl;
	}
};



int main(int argc, char* argv[])
{
	const char* errmsg;
	const char* out;

	errmsg=StrixDB_open("file='embed.db',uri='http://embed/',truncate=true");
	if(errmsg) 
		Exit(errmsg);

#if 1	
	/////// TEST D'EXECUTION LUA ///////
	cout<<"--------- execution lua --------"<<endl;
	errmsg = StrixDB_exec("print('toto') table.foreach(rdf,print)",&out);
	if(errmsg)	Exit(errmsg);
	if(out)
		std::cout<<out<<endl;
	else {
		assert(false);
	}
#endif


#if 1
	errmsg = StrixDB_exec("tata='this is a lua test'",&out);
	if(errmsg)	Exit(errmsg);

	cout<<"--- persistence of lua_State for the current thread ----"<<endl;
	errmsg = StrixDB_exec("print(tata,tata)",&out);
	if(errmsg)	Exit(errmsg);
	if(out) cout<<out<<endl;
#endif

#if 1
	errmsg=StrixDB_exec("rdf.graph.import{uri='foo',"
		"file='C:/CODE2008/DATAS/RDF/animals2.rdf'}",&out);
	if(errmsg)	Exit(errmsg);

	errmsg=StrixDB_exec("dofile('test_datatypes.lua')",&out);
	if(errmsg)	Exit(errmsg);
#endif


#if 1
	errmsg=StrixDB_update("LOAD <http://babel/pub/samples/animals.rdf> INTO <http://www.xxx/aFoo>");
	if(errmsg)	Exit(errmsg);

	errmsg=StrixDB_exec("assert(require('webGet'))"
		"function printGraphs() "
		" for _,d in pairs(rdf.graph.list()) do "
		"local s = '' "
		" d.timeStamp = webGet.time(d.timeStamp) "
		" for i,v in pairs(d) do s = s..'  '..i..'='..tostring(v) end "
		" print(s) " 
		"end end",NULL);
	if(errmsg)	Exit(errmsg);

	errmsg=StrixDB_exec("printGraphs()",&out);
	if(out) cout<<out<<endl;
#endif


#if 1
	TestPrinter p;
	errmsg=StrixDB_sparql(
		"SELECT ?s ?p ?o FROM <graph1> WHERE {?s ?p ?o}"
		,&p.vals,&p.nbrows,&p.nbcols);
	if(errmsg)	Exit(errmsg);

	p.dump();

	cout<<"------ WITH ORDER BY ?o ----------"<<endl;
	errmsg=StrixDB_sparql(
		"SELECT ?s ?p ?o FROM <graph1> WHERE {?s ?p ?o} ORDER BY ?o "
		,&p.vals,&p.nbrows,&p.nbcols);
	if(errmsg)	Exit(errmsg);

	p.dump();
#endif

	errmsg = StrixDB_close();
	assert(!errmsg);

	cout<<"This is the end, my only friend"<<endl; getchar();
	return 0;
}