Artifact 024d91242bc780fcf8692ea15d0ee0e13f25e148ef3ce66b370be2c4220153b7:

• Executable file r38/util/chckallp.pl — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 921) [annotate] [blame] [check-ins using] [more...]

$bool = 0;

$MACHINE = $ENV{'MACHINE'};

$package = $ARGV[0];

$reduce = $ENV{'reduce'};

open(FLO,">>$reduce/log/checkall.log");

print FLO "\nChecking $package ...\n\n";

open(FL,"$reduce/package.red") || die "$reduce/package.red not there";

while ($x=<FL>) {
   if ($x =~ /folder/) {
       @y = split(/,'/,substr($x,5,-3));
       if ($y[0] eq $package) {
         if ($MACHINE eq win32) {
           print FLO
	    `$dif $reduce\\log\\$package.rlg $reduce\\packages\\$y[2]\\$package.rlg`;}
	  else {
	   print FLO `diff $reduce/log/$package.rlg $reduce/packages/$y[2]/$package.rlg`;}
       	 $bool = 1; last;}}}

if ($bool == 0) {
  if ($MACHINE eq win32) {
           print FLO
	 `$dif $reduce\\log\\$package.rlg $reduce\\packages\\$package\\$package.rlg`;}
	else {
	 print FLO `diff $reduce/log/$package.rlg $reduce/packages/$package/$package.rlg`;}
		}

close FLO;

exit(0);