Retro68/gcc/libjava/classpath/lib/mkcollections.pl.in
Wolfgang Thaller aaf905ce07 add gcc 4.70
2012-03-28 01:13:14 +02:00

159 lines
4.0 KiB
Perl
Executable File

#!@PERL@
#
# mkcollections.pl - small perl script to convert GNU Classpath's
# Collection classes into its own package for java 1.1
#
# USAGE: mkcollections.pl <Destination-Path>
#
# Copyright (C) 2000 Free Software Foundation, Inc.
#
# 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, 51 Franklin St, Fifth Floor,
# Boston, MA 02110-1301 USA
my $destpath=@COLLECTIONS_PREFIX@;
my $classpath=pop;
my @javalangclasses=qw(UnsupportedOperationException
Comparable
Iterable);
my @javautilclasses=qw(AbstractCollection
AbstractList
AbstractMap
AbstractSequentialList
AbstractSet
ArrayList
Arrays
List
Collection
Collections
Comparator
ConcurrentModificationException
HashMap
HashSet
Hashtable
Iterator
LinkedList
ListIterator
Map
NoSuchElementException
Random
RandomAccess
Set
SortedMap
SortedSet
TreeMap
TreeSet
Vector);
my @externalclasses=qw(AbstractQueue
ArrayDeque
Deque
NavigableMap
NavigableSet
Queue);
my $destPkg = $destpath;
$destPkg =~ s!/!.!g;
my %imports = ( "Collections" => [ "Enumeration" ],
"Hashtable" => [ "Dictionary", "Enumeration" ],
"Vector" => [ "Enumeration" ]);
sub mymkdir ($)
{
my ($dir) = @_;
if ($dir =~ /^(.*)\/\w+$/)
{
$parentdir = "$1";
if (! (-d $parentdir))
{
mymkdir ($parentdir);
}
}
print "$dir";
mkdir ($dir, 0777);
}
sub convert($$$) {
my ($file, $infile, $outfile) = @_;
open (INPUT, "<$infile") || die "Could not open ", $infile, " for reading\n";
my $dir = "$outfile";
$dir =~ /^(.*)\/\S+\.java$/ and
$dir = "$1";
if (! (-d $dir)) {
mymkdir ($dir);
}
open (OUTPUT, ">$outfile") || die "Could not open ", $outfile, " for writing\n";
print OUTPUT <<'EOF';
/* This file was converted from the GNU Classpath Project by a
* perl script, written by Jochen Hoenicke <jochen\@gnu.org>.
*/
EOF
while (<INPUT>) {
$_ = "package $destPkg;\n" if ($_ =~ /^package java.(lang|util);$/);
next if $_ =~ /^import java.io.Object.*putStream.*Field;$/;
next if $_ =~ /^import java.io.ObjectStreamField;$/;
for $clazz (@javalangclasses) {
$_ =~ s/java.lang.$clazz/$clazz/g;
}
for $clazz (@javautilclasses) {
$_ =~ s/java.util.$clazz/$clazz/g;
}
for $clazz (@externalclasses) {
$_ =~ s/java.util.$clazz/$clazz/g;
}
$_ =~ s/abstract (interface)/$1/g;
print OUTPUT $_;
if ($_ =~ /^package $destPkg;$/
&& exists $imports{$file}) {
for $imp (@{$imports{$file}}) {
print OUTPUT "import java.util.$imp;\n";
}
}
}
close (OUTPUT);
close (INPUT);
}
my $file;
for $file (@javalangclasses) {
my $infile = "$classpath/java/lang/$file.java";
my $outfile = "$destpath/$file.java";
print "$outfile\n";
convert ($file, $infile, $outfile);
}
for $file (@javautilclasses) {
my $infile = "$classpath/java/util/$file.java";
my $outfile = "$destpath/$file.java";
print "$outfile\n";
convert ($file, $infile, $outfile);
}
for $file (@externalclasses) {
my $infile = "$classpath/external/jsr166/java/util/$file.java";
my $outfile = "$destpath/$file.java";
print "$outfile\n";
convert ($file, $infile, $outfile);
}