#!/usr/bin/perl
while( <> )
{
if( /^#/ )
{
if( /^#!/ )
{
print $_;
}
next;
}
if( /##/ )
{
print $_;
next;
}
next if( /^\s+#/ );
chomp;
s/\s+#.*//g;
s/;#.*/;/g;
s/;\s+#.*/;/g;
s/\t/ /g;
s/ / /g;
s/<<.*;/"/g;
s/END/";/;
s/SQL_END/";/;
print $_;
}
