#!/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"

}