#!/usr/bin/csh -f
#
perl -e '$outputDir = "/tmp/foo/";\
$input = "file.java";\
open( INPUT_FILE,"<$input" ) or die ("Could not open $input :$!"); \
$file = "";\
$dir = "";\
$package = "";\
@imports = "";\
while( <INPUT_FILE> ) {\
  if(s/^\/\/<END_CLASS: (.*) ?$/$1/) {\
    close(OUTPUT);\
    $file = "";}\
  if($file) {\
    print OUTPUT $_;}\
  if(s/^package ([a-zA-Z\._0-9]+).*$/$1/) {\
    $package = $dir = $1;\
    $dir =~ tr/\./\//;}\
  if(/^import.*/) {\
    push(@imports,$_);}\
  if(s/^\/\/<BEGIN_CLASS: ([a-zA-Z_0-9]+).*$/$1/) {\
    if($dir) {\
        $file = "$dir/$1.java";\
    } else {\
        $file = "$1.java";}\
    open(OUTPUT,">$outputDir$file") or die("Could not open output file $outputDi
r$file $!"); \
    print "Created $file\n";\
    if($package) {\
        print OUTPUT "package $package;\n";}\
    print OUTPUT @imports;\
  }\
}\
close( INPUT_FILE );'