#!/usr/bin/env perl
# $Id$
# License: public domain.  Originally written by Sebastian Rahtz.
# 
# Process a tree in the Build/cdbuild/cooked directory (probably created
# by ctan2tds.pl) and integrate into the main texmf trees.
# 
# Basic usage: place PKG
# to process Build/cdbuild/cooked/PKG.

use File::Basename;
use File::Find;
use Cwd;

$newpackage = 0;
%dirs = ();  # dirs we make changes in

if ($ARGV[0] eq "-n") {
  $chicken = 1;
  shift;
} else {
  $chicken = 0;
}
print "place: chicken mode = $chicken\n";

die "usage: $0 PKGNAME\n" unless @ARGV == 1;
$package = $ARGV[0];

xchdir (dirname($0) . "/cooked");
$mydir = getcwd();
-d "$mydir/$package" || die "$0: No such package in $mydir: $package\n";

xchdir ("../../../Master");
$M = getcwd();

xchdir ("$mydir/$package");
if    (-d "texmf-dist") {$Root="texmf-dist"; }
elsif (-d "texmf-doc")  {$Root="texmf-doc"; }
elsif (-d "texmf")      {$Root="texmf"; }


# get list of existing files
my $listsfile = "$M/texmf/lists/$package";
if (-f $listsfile) {
  open (LIST, $listsfile) || die "open($listsfile) failed: $!";
  while (<LIST>) { 
    chomp; 
    s/\r$//;
    $Old{$_} = 1 if /^[A-z]/;
  }
  close (LIST);
}
else {
  $newpackage=1;
}

&xchdir ("$mydir/$package");
find (\&files,".");
foreach $file (sort keys %Old) {
  print "* $file: [retained=$New{$file}]\n";

  # and if the file does not exist, don't try to remove it -- we
  # probably did so by hand and didn't bother to update the tpm.
  next unless -f "$M/$file";
  
  # don't remove tpm or lists file, they won't be in the new package.
  if (! $New{$file} && $file !~ /\.tpm$/ && $file !~ m,/lists/[^/]+$) {
    &my_system ("svn remove $M/$file"); 
  }
  $dirs{dirname ("$M/$file")}++;
}

# copy files
my $Job = "tar cf - . | (cd $M && tar xf - )";
&my_system ($Job);

# sort so dirs will be added before subdirs.
foreach $file (sort keys %New) {
  if (! $Old{$file}) { 
    &add_file ("$M/$file");
  }
}

my $tpmdir = "$M/$Root/tpm";

xchdir ($mydir);
&my_system ("mv $package $package.done");

if ($Root eq 'texmf-doc') {
  $Type = 'Documentation';
} elsif ($Root eq 'texmf-dist') { 
  $Type = 'Package'; 
} else {
  die "cannot handle Root=$Root";
}

chomp (my $tools = `cd $mydir/../../tools && pwd`);

$SETUP = "$tools/tpm-factory.pl --master=$M --tpm_dir=$tpmdir"
         . " --ftp_dir=/var/tmp --arch=all --patterns=auto"
         . " --name=$Type/$package";

# create tpm if needed
&my_system ("perl $SETUP --new") unless -f "$tpmdir/$package.tpm";

# update tpm
&my_system ("perl $SETUP --clean");

# create/update lists file
&my_system ("xsltproc --stringparam ROOT $M"
            . " $tools/tpm2list.xsl $M/$Root/tpm/$package.tpm");


# add tpm and lists files after they are created.
if ($newpackage) {
  &add_file ($listsfile);
  &add_file ("$tpmdir/$package.tpm");
}

# these two dirs will essentially always change, so just list them.
$dirs{$tpmdir}++;
$dirs{"$M/texmf/lists"}++;

# print dirs with changed files, for svn commit purposes.
# if other files have been modified in those same dirs, though, this
# won't detect it.  It would be better to list exactly the *files* which
# should be committed, but ... lazy.
# 
# also write dir list to a separate file, for easy passing to a commit.
# 
$DIRLIST = ">" . ($ENV{"TMPDIR"} || "/tmp") . "/tlplace.dirs";
open (DIRLIST) || die "open($DIRLIST) failed: $!";
#
for my $dir (sort keys %dirs) {
  print "$dir\n";
  print DIRLIST "$dir\n";
}
#
close (DIRLIST) || warn "close($DIRLIST) failed: $!";

exit (0);



#--------------------------------------
sub dirs
{
    local @filenames;
   if (-d) { 
       @filenames=&buildfilelist($File::Find::name,
				 $_);
    if (!@filenames) { rmdir $File::Find::name;}
  }}

sub buildfilelist
{
    local($me,$name) = @_;
    my @files;
    opendir(DIR,$me) || cleanup ("cannot open directory $me");
    @files =grep(!/^\.\.?/,readdir(DIR));
    closedir(DIR);  
    return @files;
}


sub files
{
  if (-f) {
    $This=$File::Find::name;
    $This =~ s/^\.\///;
    $New{$This}=1;
 }
}


# add a file to the repository.  for svn, we also have to add the
# containing dir, and the parent of that dir, if they are new.
# (Should really just traverse )
# 
sub add_file
{
  my ($newfile) = @_;
  
  my $newdir = dirname ($newfile);
  
  # when it's needed, parent must come first, else have svn "not working copy".
  my $parentdir = dirname ($newdir);
  unless (-d "$parentdir/.svn") {
    &my_system ("svn add -N $parentdir");
    $dirs{$parentdir}++;
  }
  
  unless (-d "$newdir/.svn") {
    &my_system ("svn add -N $newdir");
  }
  
  &my_system ("svn add $newfile");
  
  # remember that we changed this directory.
  $dirs{$newdir}++;
}


sub xchdir
{
  my ($dir) = @_;
  chdir ($dir) || die "chdir($dir) failed: $!";
  print "place: chdir($dir)\n";
}


sub my_system
{
  my ($cmd) = @_;
  
  print "place: SYSTEM $cmd\n";

  unless ($chicken) {
    my $ret = system ($cmd);
    die "`$cmd' failed, status=$ret, goodbye\n" if $ret != 0;
  }
}