#!/usr/local/bin/perl # # This Source Code Form is subject to the terms of the Mozilla Public # License, v. 2.0. If a copy of the MPL was not distributed with this # file, You can obtain one at http://mozilla.org/MPL/2.0/. # Input: -d dir -j javahcmd foo1 foo2 . . . # Compares generated "_jni/foo1.h" file with "foo1.class", and # generated "_jni/foo2.h" file with "foo2.class", etc. # (NOTE: unlike its closely related cousin, outofdate.pl, # the "-d dir" must always be specified) # Runs the javahcmd on all files that are different. # # Returns: list of headers which are OLDER than corresponding class # files (non-existent class files are considered to be real old :-) my $javah = ""; my $classdir = ""; while(1) { if ($ARGV[0] eq '-d') { $classdir = $ARGV[1]; $classdir .= "/"; shift; shift; } elsif($ARGV[0] eq '-j') { $javah = $ARGV[1]; shift; shift; } else { last; } } if( $javah eq "") { die "Must specify -j <javah command>"; } if( $classdir eq "") { die "Must specify -d <classdir>"; } foreach $filename (@ARGV) { $headerfilename = "_jni/"; $headerfilename .= $filename; $headerfilename =~ s/\./_/g; $headerfilename .= ".h"; $classfilename = $filename; $classfilename =~ s|\.|/|g; $classfilename .= ".class"; $classfilename = $classdir . $classfilename; ( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $headermtime, $ctime, $blksize, $blocks ) = stat( $headerfilename ); ( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $classmtime, $ctime, $blksize, $blocks ) = stat( $classfilename ); if( $headermtime < $classmtime ) { # NOTE: Since this is used by "javah", and "javah" refuses to overwrite # an existing file, we force an unlink from this script, since # we actually want to regenerate the header file at this time. unlink $headerfilename; push @filelist, $filename; } } if( @filelist ) { $cmd = "$javah " . join(" ",@filelist); $cmd =~ s/\'/\"/g; # because windows doesn't understand single quote print "$cmd\n"; exit (system($cmd) >> 8); } else { print "All JNI header files up to date.\n" }