changedJava.pl from gzz at Krugle
Show changedJava.pl syntax highlighted
#!/usr/bin/perl -w
#
# Copyright (c) 2003, Tuomas J. Lukka
#
# This file is part of Gzz.
#
# Gzz is free software; you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# Gzz is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
# Public License for more details.
#
# You should have received a copy of the GNU Lesser General
# Public License along with Gzz; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
# MA 02111-1307 USA
#
#
#
# Look at which parameter Java source files have changed since their respective .class
# files were compiled.
@f = grep {
do { local $_ = $_;
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks)
= stat;
$srctime = $mtime;
die "NOSRC $_" unless defined $srctime;
{ local $_ = $_;
s/^basalt\///;
s/^lava\///;
s/^test\///;
s/\.java/.class/;
$_ = "CLASSES/".$_;
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks)
= stat;
}
};
if(!defined($srctime) || !defined($mtime)) {
print STDERR "\n\nNO TIME: $_ ($srctime) ($mtime)\n";
}
$mtime < $srctime || !defined $mtime;
} @ARGV;
if(!@f) { $f[0] = shift @ARGV; }
print STDERR "\n\n";
print STDERR map { "$_\n" } @f;
print STDERR "\n\n";
print join (' ', @f), "\n";
See more files for this project here