tools/dev/mk_manifest_and_skip.pl

   1 ##! perl
   2 # $Id$
   3 # Copyright (C) 2006-2009, Parrot Foundation.
   4
   5 use strict;
   6 use warnings;
   7 use lib qw| lib |;
   8
   9 use Parrot::Manifest;
  10
  11 my $script = $0;
  12
  13 if (-e '.git') {
  14     print "Sorry, this script is not compatible with git-svn\n";
  15     print "Patches Welcome!\n";
  16     exit 1;
  17 }
  18
  19 my $mani = Parrot::Manifest->new( { script => $script, } );
  20
  21 my $manifest_lines_ref = $mani->prepare_manifest();
  22 my $need_for_files     = $mani->determine_need_for_manifest($manifest_lines_ref);
  23 $mani->print_manifest($manifest_lines_ref) if $need_for_files;
  24
  25 my $print_str     = $mani->prepare_manifest_skip();
  26 my $need_for_skip = $mani->determine_need_for_manifest_skip($print_str);
  27 $mani->print_manifest_skip($print_str) if $need_for_skip;
  28
  29 #################### DOCUMENTATION ####################
  30
  31 =head1 NAME
  32
  33 tools/dev/mk_manifest_and_skip.pl - Recreate MANIFEST and MANIFEST.SKIP
  34
  35 =head1 SYNOPSIS
  36
  37     % perl tools/dev/mk_manifest_and_skip.pl
  38
  39 =head1 DESCRIPTION
  40
  41 Recreates MANIFEST and MANIFEST.SKIP from the subversion properties
  42 and the output of C<svn status>. .
  43 So far tested with svn 1.2.0 and svn 1.4.2.  This also worked with svk 1.08,
  44 but to keep our tasks manageable, we only guarantee support for Subversion.
  45
  46 This won't work for git-svn.
  47
  48 =head1 SEE ALSO
  49
  50 Parrot::Manifest.
  51
  52 =cut
  53
  54 # Local Variables:
  55 #   mode: cperl
  56 #   cperl-indent-level: 4
  57 #   fill-column: 100
  58 # End:
  59 # vim: expandtab shiftwidth=4: