scripts/patch-pp.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # --- T2-COPYRIGHT-NOTE-BEGIN ---
   4 # This copyright note is auto-generated by ./scripts/Create-CopyPatch.
   5 #
   6 # T2 SDE: scripts/patch-pp.pl
   7 # Copyright (C) 2004 - 2006 The T2 SDE Project
   8 # Copyright (C) 1998 - 2003 Clifford Wolf
   9 #
  10 # More information can be found in the files COPYING and README.
  11 #
  12 # This program is free software; you can redistribute it and/or modify
  13 # it under the terms of the GNU General Public License as published by
  14 # the Free Software Foundation; version 2 of the License. A copy of the
  15 # GNU General Public License can be found in the file COPYING.
  16 # --- T2-COPYRIGHT-NOTE-END ---
  17 #
  18 # ROCK Linux "Patch Postprozessor"
  19 #
  20 # This script runs as part of the './scripts/Internal' diff command
  21 # and cleans up the patch 'Clifford' style...
  22
  23 use English;
  24 use strict;
  25
  26 my $skipit=0;
  27 my ($line,$a,$b);
  28
  29 if ($#ARGV != 0 or not -d $ARGV[0]) {
  30         print STDERR "Usage: $0 Reference-Dir\n" ; exit 1
  31 }
  32
  33 while (<STDIN>) {
  34         $line=$_;
  35         if (m,^--- rock-old/([^/]+)/(\S+)\s,) {
  36                 $skipit=0; $a=$1; $b=$2;
  37                 while ($b=~s,^([^/]+)/?,,) {
  38                         $a.="/".$1; $skipit=1 if -l "$ARGV[0]/$a";
  39                         # print STDERR "Checked $a ($skipit)\n";
  40                 }
  41
  42         }
  43         print $line unless $skipit;
  44 }
  45
  46 0;