tools/CCompare.bat

   1 @rem = ' Copyright 1994, Animorphic Systems. $Revision: 1.3 $\r
   2 @echo off\r
   3 cd %1\r
   4 perl -S %0.bat %1 %2\r
   5 goto endofperl\r
   6 ';\r
   7 \r
   8 require "delta.pl";\r
   9 \r
  10 local($file) =$ARGV[1];\r
  11 \r
  12 sub deltaSubDir {\r
  13   if ($CWD eq $Delta) {\r
  14     return ".";\r
  15   }\r
  16   local($res) = rindex("$CWD","$Delta",0);\r
  17   if ($res == -1) {\r
  18     die "You must be in a sub directory of $Delta!";\r
  19   }\r
  20   return substr($CWD, 1 + length($Delta) - length($CWD));\r
  21 }\r
  22 \r
  23 $sub = &deltaSubDir;\r
  24 `windiff $ARGV[0]\\$ARGV[1] $Baseline\\$sub\\$ARGV[1]`;\r
  25 __END__\r
  26 :endofperl\r