jcpp javaDeps moved to scripts git-svn-id: https://svn.code.sf.net/p/jode/code/trunk@1249 379699f6-c40d-0410-875b-85095c16579emaster
hoenicke
24 years ago
parent
39d1fbb31b
commit
f85c46fd44
@ -1,184 +0,0 @@ |
||||
#!@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> [-subdir <subdir>]] |
||||
# [-depfile <depfile>] |
||||
# <classfiles> |
||||
# |
||||
# 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. |
||||
# subdir: if set, this is the path from depdir to the current directory. |
||||
# Use it to remove unneccessary ../../$subdir/ |
||||
# depfile: the name of the dependency file, default is "Makefile.dep". |
||||
# class: The class files (not inner classes) for which the dependencies |
||||
# should be generated. We will also look for inner and anon |
||||
# classes. |
||||
|
||||
my $buff; |
||||
|
||||
sub readInBuff ($) { |
||||
my $count = $_[0]; |
||||
my $offset = 0; |
||||
while ($count > 0) { |
||||
my $result; |
||||
$result = read FILE, $buff, $count, $offset or return 0; |
||||
$offset += $result; |
||||
$count -= $result; |
||||
} |
||||
$offset; |
||||
} |
||||
|
||||
sub readUTF () { |
||||
readInBuff 2 or die "Can't read UTF8 length"; |
||||
my $ulength = unpack("n", $buff) & 0xffff; |
||||
return "" if $ulength == 0; |
||||
readInBuff $ulength or die "Can't read UTF8 string $ulength"; |
||||
unpack("a$ulength", $buff); |
||||
} |
||||
|
||||
$depfile = "Makefile.dep" if (!defined($depfile)); |
||||
open DEPFILE, ">$depfile"; |
||||
print DEPFILE <<EOF; |
||||
# This dependency file is automatically created by $0 from class files. |
||||
# Do not edit. |
||||
|
||||
EOF |
||||
foreach $clazz (@ARGV) { |
||||
next if $clazz =~ (/^.*\$.*\.class/); |
||||
$clazz =~ /([^\$]*)(\$.*)?\.class/ or die "not a class file"; |
||||
$base = $1; |
||||
my ($filename, %done); |
||||
%done=(); |
||||
for $filename ($clazz, glob("$base\\\$*.class")) { |
||||
open FILE, $filename; |
||||
binmode FILE; |
||||
|
||||
readInBuff 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; |
||||
|
||||
readInBuff 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++) { |
||||
|
||||
readInBuff 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 |
||||
readInBuff 4; |
||||
last tags; |
||||
}; |
||||
|
||||
/^(5|6)$/ && do { |
||||
# LONG, DOUBLE |
||||
readInBuff 8; |
||||
$number++; |
||||
last tags; |
||||
}; |
||||
|
||||
/^7$/ && do { |
||||
# CLASS |
||||
readInBuff 2; |
||||
push @clazzes, (unpack("n", $buff) & 0xffff); |
||||
last tags; |
||||
}; |
||||
|
||||
/^8$/ && do { |
||||
# STRING |
||||
readInBuff 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; |
||||
|
||||
my $p; |
||||
for $p (split ':', $classpath) { |
||||
if (-e "$p/$clzz.java") { |
||||
my $path="$p/"; |
||||
if (defined $dependdir) { |
||||
$path = "$dependdir/"; |
||||
if (defined $subdir) { |
||||
my $currsubdir = "$subdir/"; |
||||
while ($currsubdir =~ m<^([A-Za-z0-9]+)/+(.*)>) { |
||||
$currsubdir = $2; |
||||
my $firstcomp = $1; |
||||
if ($clzz =~ m<$firstcomp/(.*)>) { |
||||
my $remain = $1; |
||||
if ($path =~ m<^(|.*/)\.\./+$>) { |
||||
$path = $1; |
||||
$clzz = $remain; |
||||
} |
||||
} |
||||
} |
||||
} |
||||
} |
||||
push @deplist, "$path$clzz.java"; |
||||
next clazz; |
||||
} |
||||
} |
||||
} |
||||
if (@deplist) { |
||||
print DEPFILE "$clazz: " . join (" ", @deplist) . "\n"; |
||||
} |
||||
} |
||||
} |
||||
close DEPFILE; |
||||
@ -1,173 +0,0 @@ |
||||
#!/usr/bin/perl |
||||
# |
||||
# jcpp 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 is a program to allow conditional compiled code in java files. |
||||
# The key idea is, not to run the file always through the |
||||
# preprocessor, but to modify the java files directly and make use of |
||||
# comments. |
||||
# |
||||
# The comments all have the form /// to distinguish them from normal |
||||
# comments. You should not use such comments yourself. |
||||
# |
||||
# Usage is simple: jcpp -Ddefine1 -Ddefine2 first.java second.java |
||||
# The files should contain comments of the form |
||||
# |
||||
# ///#ifdef JDK12 |
||||
# jdk1.2 code |
||||
# ///#else |
||||
# jdk1.1 code |
||||
# ///#endif |
||||
# |
||||
# After running jcpp the false branch is commented out. If the true |
||||
# branch was commented out it will get commented in. |
||||
|
||||
my @files; |
||||
my %defs; |
||||
|
||||
for (@ARGV) { |
||||
if ($_ =~ /^-D([^=]*)$/) { |
||||
$defs{$1} = 1; |
||||
} elsif ($_ =~ /^-D([^=]*)=([^=]*)$/) { |
||||
$defs{$1} = $2; |
||||
} else { |
||||
push @files, $_; |
||||
} |
||||
} |
||||
|
||||
for (@files) { |
||||
# Number of nested #if directives. Initially 0, will be increased |
||||
# on every #if directive and decreased on every #endif directive. |
||||
my $level = 0; |
||||
|
||||
# The number of the outermost level, whose #if directive was |
||||
# false. This is 0, if there wasn't an false #if directive, yet. |
||||
# As long as it is != 0, we comment every line, and ignore |
||||
# directives except for increasing/decreasing $level. |
||||
my $falselevel = 0; |
||||
|
||||
# Tells if an error occured and the transformation shouldn't |
||||
# be done. |
||||
my $error = 0; |
||||
my $changes = 0; |
||||
|
||||
my $file = $_; |
||||
open OLD, "<$file" or do { |
||||
print STDERR "Can't open file $file\n"; |
||||
next; |
||||
}; |
||||
open NEW, ">$file.tmp" or do { |
||||
print STDERR "Can't open tmp file $file.tmp\n"; |
||||
next; |
||||
}; |
||||
my $linenr = 0; |
||||
LINE: |
||||
while (<OLD>) { |
||||
$linenr++; |
||||
if (m'^///#') { |
||||
# This is a directive. First we print it out. |
||||
print NEW $_; |
||||
if (m'^///# *if') { |
||||
$level++; |
||||
if (m'^///# *ifdef (\S*)$') { |
||||
# If there was an outer false #if directive, we ignore the |
||||
# condition. |
||||
next LINE if ($falselevel); |
||||
|
||||
my $label=$1; |
||||
|
||||
# An ifdef directive, look if -D is defined. |
||||
$falselevel = $level |
||||
unless (defined $defs{$label}); |
||||
} elsif (m'^///# *ifndef (\S*)$') { |
||||
# If there was an outer false #if directive, we ignore the |
||||
# condition. |
||||
next LINE if ($falselevel); |
||||
|
||||
my $label=$1; |
||||
# An ifndef directive, look if -D is defined |
||||
$falselevel = $level |
||||
if (defined $defs{$label}); |
||||
} |
||||
} elsif (m'^///# *else') { |
||||
# An else directive. We switch from true to false and |
||||
# if level is falselevel we switch from false to true |
||||
if ($level == 0) { |
||||
# An else outside of any directives; warn. |
||||
print STDERR "$file: $linenr: unmatched $_"; |
||||
$error = 1; |
||||
} elsif ($falselevel == $level) { |
||||
$falselevel = 0; |
||||
} elsif ($falselevel == 0) { |
||||
$falselevel = $level; |
||||
} |
||||
} elsif (m'^///# *endif') { |
||||
# set $falselevel to 0, if the false branch is over now. |
||||
$falselevel = 0 if ($falselevel == $level); |
||||
# decrease level. |
||||
if ($level == 0) { |
||||
print STDERR "$file: $linenr: unmatched $_"; |
||||
$error = 1; |
||||
} else { |
||||
$level--; |
||||
} |
||||
} else { |
||||
print STDERR "$file: $linenr: ignoring unknown directive $_"; |
||||
$error = 1; |
||||
} |
||||
} elsif (m'^///(.*)') { |
||||
$line = $1; |
||||
if ($falselevel == 0 && $level > 0) { |
||||
# remove comments in true branch, but not in outermost level. |
||||
print NEW "$line\n"; |
||||
$changes = 1; |
||||
} else { |
||||
# print out the full line with comments: |
||||
print NEW $_; |
||||
} |
||||
} else { |
||||
if ($falselevel != 0) { |
||||
# add comments in false branch |
||||
print NEW "///$_"; |
||||
$changes = 1; |
||||
} else { |
||||
print NEW $_; |
||||
} |
||||
} |
||||
} |
||||
|
||||
if ($level != 0 || $falselevel != 0) { |
||||
# something got wrong |
||||
print STDERR "$file: unmatched directives: level $level, ". |
||||
"falselevel $falselevel\n"; |
||||
$error = 1; |
||||
} |
||||
|
||||
if ($error == 0) { |
||||
if ($changes == 0) { |
||||
unlink "$file.tmp"; |
||||
} else { |
||||
(rename "$file", "$file.orig" |
||||
and rename "$file.tmp", "$file") |
||||
or print STDERR "$file: Couldn't rename files.\n"; |
||||
} |
||||
} else { |
||||
print STDERR "$file: errors occured, file not transformed.\n"; |
||||
} |
||||
} |
||||
Loading…
Reference in new issue