#!/usr/bin/perl
# distribute:  -- create a lparse tarball

# check version
$| = 1;

print "checking version ...";
open IN, "src/config.base" or die "can't open config file";
while (<IN>) {
  if (/VERSION\s+["](.*)["]/) {
    $version = $1;
    print "$version\n";
  }
}
close IN;
if ($version eq "") {
  die "Invalid version string\n";
}


$filename = "lparse-$version";
print "basename: $filename\n";

print "creating directories...";




`mkdir $filename`;
`mkdir $filename/src`;
`mkdir $filename/test`;
`mkdir $filename/doc`;
`mkdir $filename/lib`;
`mkdir $filename/examples`;
`mkdir $filename/examples/puzzle`;
print "done\n";

print "copying files ...";


open IN, "allfiles" or die "can't find file list\n";
while (<IN>) {
  if (/^([.].*)/) {
    `cp $1 $filename/$1`;
  }
}
close IN;
print "done\n";

print "creating tar...";
`tar zcf $filename.tar.gz $filename`;
print "done\n";
