#!/usr/bin/perl

use strict;
use warnings;

my $objname;
my $Objname;
my $OBJNAME;
my @objfull;
my @fields;
my @field;
my $fname;
my $FNAME;
my $Fname;
my $i;
my $fieldfield;
my $fieldenum;
my $get_property;
my $set_property;
my $enum_columns;
my $paramspec;
my $privstringfree;
my $foreigndecls;
my $foreignfuncs;
my $foreignincls;
my $privincls;
my $isnull;
my $var;
my @newargs;
my @newargs_short;
my @newargs_nodecl;
my $newargs;
my $newargs_short;
my $newargs_nodecl;
my $newcode;
my $xs_short_to_newargs;
my $xs_decls;
my $xs_extra;
my $xs_extra_includes;

die("Need template definition file") unless defined $ARGV[0];

open(TEMPLATE, "< " . $ARGV[0]);
open(MAPS, "> ../perl/maps");
open(XSFILES, "> ../perl/xs_files");

while(<TEMPLATE>) {
	chomp;
	@objfull =  split /\|/;
	$objname =  $objfull[0];
	$OBJNAME =  $objname;
	$objname =~ tr/A-Z/a-z/;
	$OBJNAME =~ tr/a-z/A-Z/;
	$Objname =  substr($OBJNAME, 0, 1) . substr($objname, 1);

	@fields = split ',', $objfull[1];

	print "\nWill create skeleton files for a database table with template\n" . $_;
	print "map files... ";
	print MAPS "VPBS_DB_${OBJNAME}_TYPE\tVpbsDb${Objname}\tGObject\tVpbs::Db::${Objname}\n";
	print XSFILES "${Objname}.xs\n";
	print "parsing... ";
	$fieldfield = "";
	$fieldenum = "";
	$get_property = "";
	$set_property = "";
	$enum_columns = "";
	$paramspec = "";
	$privstringfree = "";
	$foreignfuncs = "";
	$foreigndecls = "";
	$foreignincls = "";
	$privincls = "";
	$isnull = "";
	$newargs = "";
	@newargs = ();
	$newargs_short = "";
	@newargs_short = ();
	$newargs_nodecl = "";
	@newargs_nodecl = ();
	$newcode = "";
	$xs_decls = "";
	$xs_extra = "";
	$xs_extra_includes = "";
	$xs_short_to_newargs = "";
	print "fields... ";
	for($i=0;$i<=$#fields;$i++) {
		print "$i ";
		@field = split ':', $fields[$i];
		$fname = $field[0];
		$FNAME = $fname;
		$fname =~ tr/[A-Z]/[a-z]/;
		$FNAME =~ tr/[a-z]/[A-Z]/;

		$fieldenum .= "\t${OBJNAME}_${FNAME},\n";
		$enum_columns .= "\t\tAPPEND(\"$fname\");\n";
		$newcode .= "\tp = g_new0(GParameter, 1);\n";
		if($field[1]=~ /^[if]/i) {
			if($field[1]=~ /n$/i) {
				$get_property .= "\tcase ${OBJNAME}_${FNAME}:\n\t\tif(!self->priv->${fname}_null) {\n\t\t\tg_value_set_int(value, self->priv->$fname);\n\t\t} else {\n\t\t\tg_value_set_int(value, -1);\n\t\t}\nbreak;\n\tcase ${OBJNAME}_${FNAME}_NULL:\n\t\tg_value_set_boolean(value, self->priv->${fname}_null);\n\t\tbreak;\n";
				$set_property .= "\tcase ${OBJNAME}_${FNAME}:\n\t\tself->priv->$fname = g_value_get_int(value);\n\t\tself->priv->${fname}_null = FALSE;\n\t\tbreak;\n\tcase ${OBJNAME}_${FNAME}_NULL:\n\t\tself->priv->${fname}_null = g_value_get_boolean(value);\n\t\tbreak;\n";
			} else {
				$get_property .= "\tcase ${OBJNAME}_${FNAME}:\n\t\tg_value_set_int(value, self->priv->$fname);\n\t\tbreak;\n";
				$set_property .= "\tcase ${OBJNAME}_${FNAME}:\n\t\tself->priv->$fname = g_value_get_int(value);\n\t\tbreak;\n";
			}
			$fieldfield .= "\tguint $fname;\n";
			$paramspec .= "\tpspec = g_param_spec_int(\"$fname\",\n\t\t\t\t\"$fname\",\n\t\t\t\t\"$fname\",\n\t\t\t\t0,\n\t\t\t\t2147483647,\n\t\t\t\t0,\n\t\t\t\tG_PARAM_READWRITE);\n";
		} elsif($field[1]=~ /^s/i) {
			if($field[1]=~ /n$/i) {
				$get_property .= "\tcase ${OBJNAME}_${FNAME}:\n\t\tif(!self->priv->${fname}_null) {\n\t\t\tg_value_set_string(value, self->priv->${fname});\n\t\t} else {\n\t\t\tg_value_set_string(value, NULL);\n\t\t}\n\t\tbreak;\n\tcase ${OBJNAME}_${FNAME}_NULL:\n\t\tg_value_set_boolean(value, self->priv->${fname}_null);\n\t\tbreak;\n";
				$set_property .= "\tcase ${OBJNAME}_${FNAME}:\n\t\tself->priv->$fname = g_strdup(g_value_get_string(value));\n\t\tself->priv->${fname}_null = FALSE;\n\t\tbreak;\n\tcase ${OBJNAME}_${FNAME}_NULL:\n\t\tself->priv->${fname}_null = g_value_get_boolean(value);\n\t\tbreak;\n";
				push @newargs_short, "gchar_ornull* $fname";
			} else {
				$get_property .= "\tcase ${OBJNAME}_${FNAME}:\n\t\tg_value_set_string(value, self->priv->$fname);\n\t\tbreak;\n";
				$set_property .= "\tcase ${OBJNAME}_${FNAME}:\n\t\tself->priv->$fname = g_strdup((gchar*)g_value_get_string(value));\n\t\tbreak;\n";
				push @newargs_short, "gchar* $fname";
			}
			$fieldfield .= "\tgchar* $fname;\n";
			$paramspec .= "\tpspec = g_param_spec_string(\"$fname\",\n\t\t\t\t\"$fname\",\n\t\t\t\t\"$fname\",\n\t\t\t\t\"\",\n\t\t\t\tG_PARAM_READWRITE);\n";
			$privstringfree .= "\tg_free(self->priv->$fname);\n";
			push @newargs, "gchar* $fname";
			$newcode .= "\tg_value_init(&(p->value), G_TYPE_STRING);\n\tg_value_set_string(&(p->value), $fname);\n";
		} elsif($field[1]=~ /^b/i) {
			# We're ignoring NULL values here for booleans -- this
			# will break!
			$get_property .= "\tcase ${OBJNAME}_${FNAME}:\n\t\tg_value_set_boolean(value, self->priv->$fname);\n\t\tbreak;\n";
			$set_property .= "\tcase ${OBJNAME}_${FNAME}:\n\t\tself->priv->$fname = g_value_get_boolean(value);\n\t\tbreak;\n";
			$fieldfield .= "\tgboolean $fname;\n";
			$paramspec .= "\tpspec = g_param_spec_boolean(\"$fname\",\n\t\t\t\t\"$fname\",\n\t\t\t\t\"$fname\",\n\t\t\t\tTRUE,\n\t\t\t\tG_PARAM_READWRITE);\n";
			push @newargs, "gboolean $fname";
			push @newargs_short, "gboolean $fname";
			$newcode .= "\tg_value_init(&(p->value), G_TYPE_BOOLEAN);\n\tg_value_set_boolean(&(p->value), $fname);\n";
		}
		$paramspec .= "\tg_object_class_install_property(gobject_class,\n\t\t\t\t\t${OBJNAME}_${FNAME},\n\t\t\t\t\tpspec);\n";
		if($field[1]=~ /^f/i) {
			$Fname = substr($FNAME, 0, 1) . substr($fname, 1);
			$foreigndecls .= "VpbsDb${Fname}* vpbs_db_${objname}_get_${fname}(VpbsDb${Objname}* self, GError** err);\n";
			$foreignfuncs .= "VpbsDb${Fname}* vpbs_db_${objname}_get_${fname}(VpbsDb${Objname}* self, GError** err) {\n\tif(gnodbify_object_is_valid(GNODBIFY_OBJECT(self))) {\n\t\treturn vpbs_db_${fname}_lookup(self->priv->${fname}, err);\n\t} else {\n\t\tg_set_error(err, VPBS_DB_ERROR_DOMAIN, VPBS_DB_INVALID_OBJECT, \"That object is not a valid ${Objname} object\");\n\t\treturn NULL;\n\t}\n}\n\n";
			$foreignincls .= "#include <vpbs-db-${fname}.h>\n";
			$xs_extra_includes .= "#include <vpbs-db-${fname}.h>\n";
			$xs_extra .= "VpbsDb${Fname}_noinc* vpbs_db_${objname}_get_${fname}(VpbsDb${Objname}* self)\n\tPREINIT:\n\t\tGError* err=NULL;\n\tCODE:\n\t\tRETVAL = vpbs_db_${objname}_get_${fname}(self, &err);\n\t\tif(!RETVAL) {\n\t\t\tgperl_croak_gerror(NULL, err);\n\t\t}\n\tOUTPUT:\n\t\tRETVAL\n\n";
			if($field[1]=~ /n$/i) {
				push @newargs_short, "VpbsDb${Fname}_ornull* $fname";
			} else {
				push @newargs_short, "VpbsDb${Fname}* $fname";
			}
			push @newargs, "VpbsDb${Fname}* $fname";
			$newcode .= "\tg_object_get(G_OBJECT($fname), \"id\", &id, NULL);\n\tg_value_init(&(p->value), G_TYPE_INT);\n\tg_value_set_int(&(p->value), id);\n";
		} elsif ($field[1]=~ /^i/i) {
			$newcode .= "\tg_value_init(&(p->value), G_TYPE_INT);\n\tg_value_set_int(&(p->value), $fname);\n";
			push @newargs, "guint $fname";
			push @newargs_short, "guint $fname";
		}
		$newcode .= "\tp->name = g_strdup(\"$fname\");\n\tg_array_append_val(params, *p);\n\tg_free(p);\n";
		push @newargs_nodecl, "$fname";
		if($field[1]=~ /n$/i) {
			$paramspec .= "\tpspec = g_param_spec_boolean(\"${fname}_null\",\n\t\t\t\t\"${fname}_null\",\n\t\t\t\t\"${fname}_null\",\n\t\t\t\tTRUE,\n\t\t\t\tG_PARAM_READWRITE);\n";
			$paramspec .= "\tg_object_class_install_property(gobject_class,\n\t\t\t\t\t${OBJNAME}_${FNAME}_NULL,\n\t\t\t\t\tpspec);\n";
			$fieldfield .= "\tgboolean ${fname}_null;\n";
			$fieldenum .= "\t${OBJNAME}_${FNAME}_NULL,\n";
			$isnull .= "\tif(!strncmp(field, \"$fname\", strlen(\"$fname\"))) {\n\t\treturn self->priv->${fname}_null;\n\t}\n";
			push @newargs, "gboolean ${fname}_null";
			push @newargs_nodecl, "${fname}_null";
			$xs_decls .= "\t\tgboolean ${fname}_null;\n";
			if($field[1]=~ /^[fs]/) {
				$xs_short_to_newargs .= "\t\t${fname}_null = (${fname} ? FALSE : TRUE);\n";
			} else {
				$xs_short_to_newargs .= "\t\t${fname}_null = (SvOK(ST(" . ($#{newargs_short} + 1) . ")) ? FALSE : TRUE);\n";
			}
			$newcode .= "\tp = g_new0(GParameter, 1);\n\tp->name = g_strdup(\"${fname}_null\");\n\tg_value_init(&(p->value), G_TYPE_BOOLEAN);\n\tg_value_set_boolean(&(p->value), ${fname}_null);\n\tg_array_append_val(params, *p);\n\tg_free(p);\n";
		} else {
			$isnull .= "\tif(!strncmp(field, \"$fname\", strlen(\"$fname\"))) {\n\t\treturn FALSE;\n\t}\n";
		}
		$newcode .= "\n";
	}
	# Handle 1-n links at the N side
	if($#objfull>=2) {
		my @nlinks = split ',', $objfull[2];
		my $nlink;
		my $Nlink;
		my $NLINK;
		my $nlinks;
		foreach $nlink(@nlinks) {
			$NLINK = $nlink;
			$nlink =~ tr/A-Z/a-z/;
			$NLINK =~ tr/a-z/A-Z/;
			$Nlink = substr($NLINK, 0, 1) . substr($nlink, 1);
			if($nlink =~ /[sx]$/) {
				$nlinks = "${nlink}es";
			} else {
				$nlinks = "${nlink}s";
			}
			$foreigndecls .= "GArray* vpbs_db_${objname}_get_${nlinks}(VpbsDb$Objname* self, GError** err);\n";
			$foreignfuncs .= "GArray* vpbs_db_${objname}_get_${nlinks}(VpbsDb$Objname* self, GError** err) {\n\tif(gnodbify_object_is_valid(GNODBIFY_OBJECT(self))) {\n\t\treturn gnodbify_object_get_matrix_by_link(\"$nlink\", \"$objname\", \"$objname\", \"id\", \"id\", self->priv->id, VPBS_DB_${NLINK}_TYPE, err);\n\t} else {\n\t\tg_set_error(err, VPBS_DB_ERROR_DOMAIN, VPBS_DB_INVALID_OBJECT, \"Object is currently not valid\");\n\t\treturn NULL;\n\t}\n}\n\n";
			$privincls .= "#include <vpbs-db-$nlink.h>\n";
			$xs_extra .= "void vpbs_db_${objname}_get_${nlinks}(VpbsDb$Objname* self)\n\tPREINIT:\n\t\tGError *error = NULL;\n\t\tGArray *arr;\n\t\tint i;\n\tPPCODE:\n\t\tarr = vpbs_db_${objname}_get_${nlinks}(self, &error);\n\t\tif(!arr)\n\t\t\tgperl_croak_gerror(NULL, error);\n\t\tfor(i=0;i<arr->len;i++) {\n\t\t\tXPUSHs(sv_2mortal(newSVVpbsDb$Nlink(VPBS_DB_$NLINK(g_array_index(arr, void*, i)))));\n\t\t}\n\t\tg_array_free(arr, TRUE);\n\n";
			$xs_extra_includes .= "#include <vpbs-db-$nlink.h>\n";
		}
	}
	# Handle M-N links
	if($#objfull>=3) {
		my @mlinks = split ',', $objfull[3];
		my $mlink;
		my $mlink_table;
		my $Mlink;
		my $MLINK;
		my $mlinks;
		foreach $mlink(@mlinks) {
			($mlink, $mlink_table) = split ':', $mlink;
			$MLINK = $mlink;
			$mlink =~ tr/A-Z/a-z/;
			$MLINK =~ tr/a-z/A-Z/;
			$Mlink = substr($MLINK, 0, 1) . substr($mlink, 1);
			if($mlink =~ /[sx]$/) {
				$mlinks = "${mlink}es";
			} else {
				$mlinks = "${mlink}s";
			}
			$foreigndecls .= "GArray* vpbs_db_${objname}_get_${mlinks}(VpbsDb$Objname* self, GError** err);\n";
			$foreignfuncs .= "GArray* vpbs_db_${objname}_get_${mlinks}(VpbsDb$Objname* self, GError** err) {\n\tif(gnodbify_object_is_valid(GNODBIFY_OBJECT(self))) {\n\t\treturn gnodbify_object_get_matrix_by_link(\"$mlink\", \"$mlink_table\", \"id\", \"$mlink\", \"$objname\", self->priv->id, VPBS_DB_${MLINK}_TYPE, err);\n\t} else {\n\t\tg_set_error(err, VPBS_DB_ERROR_DOMAIN, VPBS_DB_INVALID_OBJECT, \"Object is currently not valid\");\n\t\treturn NULL;\n\t}\n}\n\n";
			$privincls .= "#include <vpbs-db-$mlink.h>\n";
			$xs_extra_includes .= "#include <vpbs-db-$mlink.h>\n";
			$xs_extra .= "void vpbs_db_${objname}_get_${mlinks}(VpbsDb$Objname* self)\n\tPREINIT:\n\t\tGArray* arr;\n\t\tGError* err=NULL;\n\t\tint i;\n\tPPCODE:\n\t\tarr=vpbs_db_${objname}_get_${mlinks}(self, &err);\n\t\tif(!arr) {\n\t\t\tgperl_croak_gerror(NULL, err);\n\t\t}\n\t\tfor(i=0;i<arr->len;i++) {\n\t\t\tXPUSHs(sv_2mortal(newSVVpbsDb$Mlink(VPBS_DB_${MLINK}(g_array_index(arr, void*, i)))));\n\t\t}\n\t\tg_array_free(arr, TRUE);\n\n";
		}
	}
	if($#objfull>=4) {
		open(EXTRAS, "< ${objfull[4]}");
		$var = \$foreignincls;
		while(<EXTRAS>) {
			if($_ =~ /^####/) {
				# comment
				next;
			}
			if($_ =~ /^--------/) {
				$var = \$foreigndecls;
				next;
			}
			if($_ =~ /^hhhhhhhh/) {
				$var = \$privincls;
				next;
			}
			if($_ =~ /^cccccccc/) {
				$var = \$foreignfuncs;
				next;
			}
			if($_ =~ /^xxxxxxxx/) {
				$var = \$xs_extra;
				next;
			}
			if($_ =~ /^xhxhxhxh/) {
				$var = \$xs_extra_includes;
				next;
			}
			${$var} .= $_;
		}
	}
	print "\nC code... ";
	open(IN, "< vpbs-db-template.c");
	open(OUT, "> ../vpbs-db-$objname.c");
	$newargs = join ", ", @newargs;
	$newargs_short = join ", ", @newargs_short;
	$newargs_nodecl = join ", ", @newargs_nodecl;
	while(<IN>) {
		s/\@template\@/$objname/g;
		s/\@Template\@/$Objname/g;
		s/\@TEMPLATE\@/$OBJNAME/g;
		s/\@FIELDFIELD\@/$fieldfield/g;
		s/\@FIELDENUM\@/$fieldenum/g;
		s/\@GET_PROPERTY\@/$get_property/g;
		s/\@SET_PROPERTY\@/$set_property/g;
		s/\@ENUM_COLUMNS\@/$enum_columns/g;
		s/\@PARAMSPEC\@/$paramspec/g;
		s/\@PRIVSTRINGFREE\@/$privstringfree/g;
		s/\@FOREIGNFUNCS\@/$foreignfuncs/g;
		s/\@PRIVINCLS\@/$privincls/g;
		s/\@ISNULL\@/$isnull/g;
		s/\@TEMPLATE_DISCLAIMER\@/This file is autogenerated from the stuff in templates\//g;
		s/\@NEWARGS\@/$newargs/g;
		s/\@NEWCODE\@/$newcode/g;
		print OUT;
	}
	close IN;
	close OUT;
	open(IN, "< vpbs-db-template.h");
	open(OUT, "> ../vpbs-db-$objname.h");
	while(<IN>) {
		s/\@template\@/$objname/g;
		s/\@Template\@/$Objname/g;
		s/\@TEMPLATE\@/$OBJNAME/g;
		s/\@FOREIGNDECLS\@/$foreigndecls/g;
		s/\@FOREIGNINCLS\@/$foreignincls/g;
		s/\@TEMPLATE_DISCLAIMER\@/This file is autogenerated from the stuff in templates\//g;
		s/\@NEWARGS\@/$newargs/g;
		print OUT;
	}
	close IN;
	close OUT;
	print "xs code... ";
	open(IN, "< Template.xs");
	open(OUT, "> ../perl/$Objname.xs");
	while(<IN>) {
		s/\@template\@/$objname/g;
		s/\@Template\@/$Objname/g;
		s/\@TEMPLATE\@/$OBJNAME/g;
		s/\@NEWARGS\@/$newargs_nodecl/g;
		s/\@NEWARGS_SHORT\@/$newargs_short/g;
		s/\@TEMPLATE_DISCLAIMER\@/This file is autogenerated from the stuff in ..\/templates\//g;
		s/\@XS_DECLS\@/$xs_decls/g;
		s/\@XS_SHORT_TO_NEWARGS\@/$xs_short_to_newargs/g;
		s/\@XS_EXTRA\@/$xs_extra/g;
		s/\@XS_EXTRA_INCLUDES\@/$xs_extra_includes/g;
		print OUT;
	}
	close IN;
	close OUT;
	print "done\n";
}
close TEMPLATE;