use Data::Dumper;

use strict;
use warnings;

my $def = {};
my $java_var = {};
my $table = $ARGV[0];
open(DEF, "<", $table . ".def");
while (my $line = <DEF>) {
	my @comp = split(/,/, $line);
	my $col = join("", map {ucfirst(lc())} split(/_/, shift @comp));
	$def->{$col} = \@comp;
}
close(DEF);

$table = join("", map {ucfirst(lc())} split(/_/, $table));
print $table;
open(JAVA, ">", $table . "DCO.java");
print JAVA "package com.owfg.po.model.dco;\n\n";
print JAVA "import java.io.Serializable;\n";
print JAVA "import java.sql.Date;\n\n";
print JAVA "public class $table implements Serializable {\n\n";

foreach (sort(keys(%$def))) {
	$java_var->{lcfirst($_)} = java_type($def, $_);
	print JAVA variable_declaration($def, $_), "\n";
}
print JAVA "\n";
print JAVA new($java_var);

foreach (sort(keys(%$java_var))) {
	print JAVA get($java_var, $_);
}

foreach (sort(keys(%$java_var))) {
	print JAVA set($java_var, $_);
}
print JAVA "}";
close(JAVA);

sub variable_declaration {
	my ($def, $var) = @_;
	return sprintf("\tprivate %s %s; //%s %s", java_type($def, $var), lcfirst($var), oracle_type($def, $var), null_allowed($def, $var));
}

sub java_type {
	my ($def, $var) = @_;
	if ($def->{$var}->[1] eq "NUMBER") {
		if ($def->{$var}->[0] eq "N") {
			return "long";
		} else {
			return "Long";
		}
	} elsif ($def->{$var}->[1] eq "DATE") {
		return "Date";
	} elsif ($def->{$var}->[1] eq "VARCHAR2") {
		return "String";
	} elsif ($def->{$var}->[1] eq "FLOAT") {
		return "float";
	} else {
		print $def->{$var}->[1];
		return undef;
	}
}

sub oracle_type {
	my ($def, $var) = @_;
	if ($def->{$var}->[1] eq "DATE") {
		return "DATE";
	} else {
		return sprintf("%s(%d)", $def->{$var}->[1], $def->{$var}->[2]);
	}
}

sub null_allowed {
	my ($def, $var) = @_;
	if ($def->{$var}->[0] eq "N") {
		return "NOT NULL";
	} else {
		return "NULL";
	}
}

sub set {
	my ($java_var, $var) = @_;
	return sprintf("\tpublic void set%s(%s %s) {\n\t\tthis.%s = %s;\n\t}\n\n", ucfirst($var), $java_var->{$var}, $var, $var, $var);
}

sub get {
	my ($java_var, $var) = @_;
	return sprintf("\tpublic %s get%s() {\n\t\treturn %s;\n\t}\n\n", $java_var->{$var}, ucfirst($var), $var);
}

sub new {
	my $java_var = shift;
	my $ret = "\tpublic ordrcostDCO() {\n";
	foreach (sort(keys(%$java_var))) {
		if ($java_var->{$_} eq "long") {
			$ret .= "\t\t$_ = 0;\n";
		} elsif ($java_var->{$_} eq "Long") {
			$ret .= "\t\t$_ = new Long(0);\n";
		} elsif ($java_var->{$_} eq "float") {
			$ret .= "\t\t$_ = .0;\n";
		} elsif ($java_var->{$_} eq "String") {
			$ret .= "\t\t$_ = \"\";\n";
		} elsif ($java_var->{$_} eq "Date") {
			$ret .= "\t\t$_ = new Date(new java.util.Date().gtTime()));\n";
		}
	}
	$ret .= "\t}\n\n";
	return $ret;
}