/*
 * Copyright (c) 2008 Teodor Sigaev <teodor@sigaev.ru>
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *      notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *      notice, this list of conditions and the following disclaimer in the
 *      documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the author nor the names of any co-contributors
 *      may be used to endorse or promote products derived from this software
 *      without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY CONTRIBUTORS ``AS IS'' AND ANY EXPRESS
 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL CONTRIBUTORS BE LIABLE FOR ANY
 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
 * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
 * IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
 * IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>
#include <locale.h>


#include "tmalloc.h"
#include "tlog.h"
#include "tools.h"
#include "template.h"

static void
usage() {
	puts(
	"Usage:\n"
	"tmpltest [-t TEMPLATENAME]\n"
	);
	exit(1);
}


static void
outfunc(char *str, int len) {
	fputs( str, stdout ); 
}

static int counter = 0;

static VariableValue 
localCounter(TemplateInstance tmpl, int nargs, VariableValue *args) {
	VariableValue out = tmalloc(sizeof(VariableValue));

	out->type = valueInt;
	out->flags = TND_DEFINED;
	out->value.intValue = ++counter;

	return out;
}

extern char *optarg;
extern int opterr;

int
main(int argn, char *argv[]) {
	MemoryContext	*base;
	char			*name = NULL;
	TemplateData	template;
	TemplateInstance tinstance;
	int 			i,j,k;
	int				cnt=0;
	executeFunctionDescData	funcs[] = {
		{"callcounter", 0, localCounter},
		{NULL,0,NULL}
	};



	opentlog(TL_OPEN_STDERR,TL_DEBUG, NULL);
	opterr=0;

	while((i=getopt(argn,argv,"ht:")) != EOF) {
		switch(i) {
			case 't':
				name = tstrdup(optarg);
				break;
			case 'h':
			default:
				usage();
				break;
		}
	}
			
	if (!name)
		usage();

	setlocale(LC_ALL,"ru_RU.UTF-8");
	base = allocMemoryContext(NULL, MC_DEBUG);

	printf("initTemplate: %d\n",  initTemplate(&template, base, funcs, ".", name) );
	/* dumpTemplate(&template); */

	tinstance = newTemplateInstance(&template, NULL);

	setTemplateValueInt(tinstance, "ID", 17);
	setTemplateValueUndefined(tinstance, "emptyID");
	setTemplateValueInt(tinstance, "zeroid", 0);
	setTemplateValueString(tinstance, "str", "QWERTY");

	addTemplateRow(tinstance, "outerLoop");
	setTemplateValueString(tinstance, "outerLoop.data1", "ha1");
	setTemplateValueUndefined(tinstance, "outerLoop.data2");

	addTemplateRow(tinstance, "outerLoop");
	setTemplateValueInt(tinstance, "outerLoop.data1", 10);
	setTemplateValueString(tinstance, "outerLoop.data2", "WOW");
		addTemplateRow(tinstance, "outerLoop.innerLoop");
		setTemplateValueString(tinstance, "outerLoop.innerLoop.camenty", "Number 1");
		addTemplateRow(tinstance, "outerLoop.innerLoop");
		setTemplateValueString(tinstance, "outerLoop.innerLoop.camenty", "Number 2");

	addTemplateRow(tinstance, "outerLoop");
	setTemplateValueString(tinstance, "outerLoop.data1", "ha3");

	template.printString = outfunc;
	printTemplate( tinstance );

	tinstance = newTemplateInstance(&template, NULL);

	setTemplateValueInt(tinstance, "ID", 23);
	setTemplateValueUndefined(tinstance, "emptyID");
	setTemplateValueInt(tinstance, "zeroid", 0);
	addTemplateRow(tinstance, "outerLoop");
	setTemplateValueString(tinstance, "outerLoop.data1", "ha1");
	setTemplateValueInt(tinstance, "outerLoop.data1", 1234);
	setTemplateValueString(tinstance, "outerLoop.data2", "FOO");
	addTemplateRow(tinstance, "outerLoop.innerLoop");
		setTemplateValueString(tinstance, "outerLoop.innerLoop.camenty", "Again 1");

	for(i=0;i<3;i++) {
		addTemplateRow(tinstance,"selfLoop");
		setTemplateValueInt(tinstance, "selfLoop.CNT", ++cnt);
		setTemplateValueString(tinstance, "selfLoop.NODE", "outer");

		if (i<1) {
			addTemplateRow(tinstance,"selfLoop.oneloop");
			setTemplateValueInt(tinstance, "selfLoop.oneloop.CNT", ++cnt);
			setTemplateValueString(tinstance, "selfLoop.oneloop.NODE", "subloop1");
		}
		if (i<2) {
			addTemplateRow(tinstance,"selfLoop.oneloop");
			setTemplateValueInt(tinstance, "selfLoop.oneloop.CNT", ++cnt);
			setTemplateValueString(tinstance, "selfLoop.oneloop.NODE", "subloop2");
		}

		addTemplateNestedLoop(tinstance, "selfLoop");
	
		for(j=0;j<2;j++) {
			addTemplateRow(tinstance,"selfLoop");
			setTemplateValueInt(tinstance, "selfLoop.CNT", ++cnt);
			setTemplateValueString(tinstance, "selfLoop.NODE", "inner");
			if ( i==1 && j==0 ) {
				addTemplateRow(tinstance,"selfLoop.oneloop");
				setTemplateValueInt(tinstance, "selfLoop.oneloop.CNT", ++cnt);
				setTemplateValueString(tinstance, "selfLoop.oneloop.NODE", "subloop3");
			}
			if (i==2 && j==1) {
				addTemplateNestedLoop(tinstance, "selfLoop");
				for(k=0;k<4;k++) {
					addTemplateRow(tinstance,"selfLoop");
					setTemplateValueInt(tinstance, "selfLoop.CNT", ++cnt);
					setTemplateValueString(tinstance, "selfLoop.NODE", "innerst");
					if ( k==2 ) {
						addTemplateRow(tinstance,"selfLoop.oneloop");
						setTemplateValueInt(tinstance, "selfLoop.oneloop.CNT", ++cnt);
						setTemplateValueString(tinstance, "selfLoop.oneloop.NODE", "subloop4");
					}
				}
				returnTemplateNestedLoop(tinstance, "selfLoop");
			}
		}
	

		returnTemplateNestedLoop(tinstance, "selfLoop");
	}

	fputs("================================================\n", stdout);
	printTemplate( tinstance );


	freeTemplate(&template);

	return 0;
}