tools/update.bat

   1 @rem = 'Copyright 1994, Animorphic Systems. $Revision: 1.3 $\r
   2 @echo off\r
   3 perl -S %0.bat %1\r
   4 goto endofperl\r
   5 ';\r
   6 \r
   7 sub dirname {\r
   8   local($name) = @_;\r
   9   $name =~ s/\\/\//g;\r
  10   $name =~ tr/A-Z/a-z/;\r
  11   return $name;\r
  12 }\r
  13 chop($CWD = `cd`);\r
  14 $CWD       = do dirname($CWD);\r
  15 $Delta     = do dirname($ENV{'DeltaDir'});\r
  16 \r
  17 local($file) =$ARGV[0];\r
  18 \r
  19 sub deltaSubDir {\r
  20   if ($CWD eq $Delta) {\r
  21     return ".";\r
  22   }\r
  23   local($res) = rindex("$CWD","$Delta",0);\r
  24   if ($res == -1) {\r
  25     die "You must be in a sub directory of $Delta!";\r
  26   }\r
  27   return substr($CWD, 1 + length($Delta) - length($CWD));\r
  28 }\r
  29 \r
  30 $sub = &deltaSubDir;\r
  31 `baseUpdate $sub $file`\r
  32 \r
  33 __END__\r
  34 :endofperl\r
  35 \r