home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / NETSCAP.50 / WIN1998.ZIP / ns / config / outofdate.pl < prev    next >
Encoding:
Perl Script  |  1998-04-08  |  2.1 KB  |  63 lines
  1. #!perl
  2. #
  3. # The contents of this file are subject to the Netscape Public License
  4. # Version 1.0 (the "NPL"); you may not use this file except in
  5. # compliance with the NPL.  You may obtain a copy of the NPL at
  6. # http://www.mozilla.org/NPL/
  7. #
  8. # Software distributed under the NPL is distributed on an "AS IS" basis,
  9. # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
  10. # for the specific language governing rights and limitations under the
  11. # NPL.
  12. #
  13. # The Initial Developer of this code under the NPL is Netscape
  14. # Communications Corporation.  Portions created by Netscape are
  15. # Copyright (C) 1998 Netscape Communications Corporation.  All Rights
  16. # Reserved.
  17. # 
  18.  
  19. #
  20. #Input: [-d dir] foo1.java foo2.java
  21. #Compares with: foo1.class foo2.class (if -d specified, checks in 'dir', 
  22. #  otherwise assumes .class files in same directory as .java files)
  23. #Returns: list of input arguments which are newer than corresponding class
  24. #files (non-existant class files are considered to be real old :-)
  25. #
  26.  
  27. $found = 1;
  28.  
  29. if ($ARGV[0] eq '-d') {
  30.     $classdir = $ARGV[1];
  31.     $classdir .= "/";
  32.     shift;
  33.     shift;
  34. } else {
  35.     $classdir = "./";
  36. }
  37.  
  38. foreach $filename (@ARGV) {
  39.     $classfilename = $classdir;
  40.     $classfilename .= $filename;
  41.     $classfilename =~ s/.java$/.class/;
  42. # workaround to only build sun/io/* classes when necessary
  43. # change the pathname of target file to be consistent
  44. # with sun/io subdirectories
  45. #
  46. # sun/io was always getting rebuilt because the java files
  47. # were split into subdirectories, but the package names
  48. # remained the same.  This was confusing outofdate.pl
  49. #
  50.     $classfilename =~ s/sun\/io\/extended.\//sun\/io\//;
  51.     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
  52.      $ctime,$blksize,$blocks) = stat($filename);
  53.     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$classmtime,
  54.      $ctime,$blksize,$blocks) = stat($classfilename);
  55. #    print $filename, " ", $mtime, ", ", $classfilename, " ", $classmtime, "\n";
  56.     if ($mtime > $classmtime) {
  57.         print $filename, " ";
  58.         $found = 0;
  59.     }
  60. }
  61.  
  62. print "\n";
  63.