#!/usr/bin/perl -w

use strict;
use warnings;

while (<>) {

    unless (m/PRIMARY KEY NOT NULL/) {
	print $_;
	next;
    }

# CREATE TABLE CUSTOMER_TABLE ( ID VARCHAR(255)   PRIMARY KEY NOT NULL, NAME VARCHAR(255) , COUNTRY VARCHAR(255), CODE VARCHAR(255), FK5_FOR_CUSTOMER_TABLE VARCHAR(255) , FK6_FOR_CUSTOMER_TABLE VARCHAR(255));

    my ($table, $paramString) = m/CREATE +TABLE +([^ ]+) *\( *(.*) *\) *;/;
    print $table . "\n";
    my @params = split(" *, *", $paramString);

    my $constraint = "constraint PK_${table} PRIMARY KEY";

    foreach (@params) {
	if (s/ PRIMARY KEY (NOT NULL)/$1/) {
	    my @t = split(/ +/, $_);
	    $constraint .= "($t[0])";
	}
    }

    push @params, $constraint;

    print "CREATE TABLE $table (";
    print join(", ", @params);
    print ");\n";

#    foreach (@params) {
#	print " -  $_\n";
#    }
}