git-svn-id: https://svn.code.sf.net/p/jode/code/trunk@1078 379699f6-c40d-0410-875b-85095c16579ebranch_1_1
jochen
25 years ago
parent
12ca9d7b09
commit
ec599fb69b
@ -0,0 +1,140 @@ |
||||
#!@PERL@ -s -w |
||||
# |
||||
# javaDependencies Copyright (C) 1999 Jochen Hoenicke. |
||||
# |
||||
# This program is free software; you can redistribute it and/or modify |
||||
# it under the terms of the GNU General Public License as published by |
||||
# the Free Software Foundation; either version 2, or (at your option) |
||||
# any later version. |
||||
# |
||||
# This program 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 General Public License for more details. |
||||
# |
||||
# You should have received a copy of the GNU General Public License |
||||
# along with this program; see the file COPYING. If not, write to |
||||
# the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
||||
# |
||||
# $Id$ |
||||
|
||||
# This scripts create Makefile dependencies out of class files. It |
||||
# simply scans the constant pool of the class files, finding all |
||||
# references to other classes and adding a dependency to that class. |
||||
# |
||||
# It doesn't do a perfect job, since it can't handle dependencies to |
||||
# constant values in different classes: The compiler inlines the |
||||
# constant and thus doesn't include a reference to the class. |
||||
# |
||||
# Usage: |
||||
# javaDependencies.pl -classpath <cp> [-dependdir <depdir>] <classfile> |
||||
# |
||||
# cp: colon separated paths to the java files we should depend on. |
||||
# depdir: if set, use this path as path to the java files when printing |
||||
# dependencies, not the path where the java files were found. |
||||
# useful, if you want to make use of VPATH settings in Makefile. |
||||
# class: The class file (not an inner class) for which the dependencies |
||||
# should be generated. We will also look for inner and anon |
||||
# classes. |
||||
|
||||
my $buff; |
||||
|
||||
sub readUTF { |
||||
read FILE, $buff, 2 or die "Can't read UTF8 length"; |
||||
my $ulength = unpack("n", $buff) & 0xffff; |
||||
return "" if $ulength == 0; |
||||
read FILE, $buff, $ulength or die "Can't read UTF8 string $ulength"; |
||||
unpack("a$ulength", $buff); |
||||
} |
||||
|
||||
$clazz = pop; |
||||
$clazz =~ /(.*)\.class/ or die "not a class file"; |
||||
$base = $1; |
||||
my ($filename, %done); |
||||
%done=(); |
||||
for $filename ($clazz, glob("$base\\\$*.class")) { |
||||
open FILE, $filename; |
||||
|
||||
read FILE, $buff, 8 or die "Can't read header"; |
||||
my ($magic, $minor, $major) = unpack("Nnn", $buff); |
||||
|
||||
die "Wrong magic $magic" if $magic != 0xcafebabe; |
||||
die "Wrong minor $minor" if $minor > 3; |
||||
die "Wrong minor $major" if $major != 45; |
||||
|
||||
read FILE, $buff, 2 or die "Can't read cpool length"; |
||||
|
||||
|
||||
my ($length) = unpack("n", $buff) & 0xffff; |
||||
|
||||
my $number; |
||||
my @strings = (); |
||||
my @clazzes; |
||||
for ($number = 1; $number < $length; $number++) { |
||||
|
||||
read FILE, $buff, 1 or die "Can't read constant tag"; |
||||
my ($tag) = unpack("C", $buff); |
||||
|
||||
#print STDERR "$number/$length: $tag"; |
||||
tags: |
||||
for ($tag) { |
||||
/^1$/ && do { |
||||
# UTF 8 |
||||
$strings[$number] = &readUTF(); |
||||
#print STDERR ": $strings[$number]"; |
||||
last tags; |
||||
}; |
||||
|
||||
/^(3|4|9|10|11|12)$/ && do { |
||||
# INTEGER, FLOAT, FIELDREF, METHODREF, IFACEREF, NAMEANDTYPE |
||||
read FILE, $buff, 4; |
||||
last tags; |
||||
}; |
||||
|
||||
/^(5|6)$/ && do { |
||||
# LONG, DOUBLE |
||||
read FILE, $buff, 8; |
||||
$number++; |
||||
last tags; |
||||
}; |
||||
|
||||
/^7$/ && do { |
||||
# CLASS |
||||
read FILE, $buff, 2; |
||||
push @clazzes, (unpack("n", $buff) & 0xffff); |
||||
last tags; |
||||
}; |
||||
|
||||
/^8$/ && do { |
||||
# STRING |
||||
read FILE, $buff, 2; |
||||
last tags; |
||||
}; |
||||
die "Unknown tag: $tag, $number/$length, $filename"; |
||||
} |
||||
#print STDERR "\n"; |
||||
} |
||||
|
||||
|
||||
my @deplist = (); |
||||
clazz: |
||||
for $c (@clazzes) { |
||||
$clzz = $strings[$c]; |
||||
next if $clzz =~ /^\[/; |
||||
next if defined $done{"$clzz"}; |
||||
$done{$clzz} = 1; |
||||
|
||||
for $p (split ':', $classpath) { |
||||
if (-e "$p/$clzz.java") { |
||||
push @deplist, (defined $dependdir |
||||
? "$dependdir/$clzz.java" |
||||
: "$p/$clzz.java"); |
||||
next clazz; |
||||
} |
||||
} |
||||
} |
||||
if (@deplist) { |
||||
print "# Dependencies of $filename\n"; |
||||
print "$clazz: ". join (" ", @deplist) . "\n"; |
||||
} |
||||
} |
||||
@ -1,15 +0,0 @@ |
||||
#!/bin/sh |
||||
JAVAC=@JAVAC@ |
||||
JIKES=@JIKES@ |
||||
PERL=@PERL@ |
||||
|
||||
abs_top_builddir=`cd $top_builddir; pwd` |
||||
abs_top_srcdir=`cd $top_srcdir; pwd` |
||||
if [ "$JAVAC" = "$JIKES" -a -n "$PERL" ]; then |
||||
TEMPDEPS=`mktemp "deps.XXXXXX"` |
||||
trap "rm $TEMPDEPS" EXIT |
||||
$JAVAC +M=$TEMPDEPS $* |
||||
sort $TEMPDEPS | $PERL -ne 's"^(\Q'$top_srcdir'\E|\Q'$top_builddir'\E)"'$abs_top_builddir'"; s": \Q'$top_srcdir'\E": '$abs_top_srcdir'"; s": \Q'$top_builddir'\E": '$abs_top_builddir'"; m"(\Q'$abs_top_builddir'\E[^\.:]+)\.class: [^\.]*.java$" or next; if ($1 ne $last) { $last = $1; open DEP, ">$1.u" }; print DEP $_' |
||||
else |
||||
$JAVAC $* |
||||
fi |
||||
Loading…
Reference in new issue