procyberian/gcc
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Major merge with Classpath.

Browse source 
Removed many duplicate files.
	* HACKING: Updated.x
	* classpath: Imported new directory.
	* standard.omit: New file.
	* Makefile.in, aclocal.m4, configure: Rebuilt.
	* sources.am: New file.
	* configure.ac: Run Classpath configure script.  Moved code around
	to support.  Disable xlib AWT peers (temporarily).
	* Makefile.am (SUBDIRS): Added 'classpath'
	(JAVAC): Removed.
	(AM_CPPFLAGS): Added more -I options.
	(BOOTCLASSPATH): Simplified.
	Completely redid how sources are built.
	Include sources.am.
	* include/Makefile.am (tool_include__HEADERS): Removed jni.h.
	* include/jni.h: Removed (in Classpath).
	* scripts/classes.pl: Updated to look at built classes.
	* scripts/makemake.tcl: New file.
	* testsuite/libjava.jni/jni.exp (gcj_jni_compile_c_to_so): Added
	-I options.
	(gcj_jni_invocation_compile_c_to_binary): Likewise.

From-SVN: r102082
This commit is contained in:
Tom Tromey 2005-07-16 01:27:14 +00:00 • committed by Tom Tromey
parent ea54b29342
commit b0fa81eea9
2817 changed files with 11656 additions and 643398 deletions
Download patch file Download diff file Expand all files Collapse all files

44
libjava/scripts/classes.pl
View file

@ -1,17 +1,15 @@
# classes.pl - A perl program to generate most of the contents of
# javaprims.h automatically.
# Copyright (C) 1998, 1999, 2000, 2002 Red Hat, Inc.
# Copyright (C) 1998, 1999, 2000, 2002, 2005 Free Software Foundation
#
# This file is part of libjava.
# This file is part of libgcj.
#
# This software is copyrighted work licensed under the terms of the
# Libjava License. Please consult the file "LIBJAVA_LICENSE" for
# Libgcj License. Please consult the file "LIBGCJ_LICENSE" for
# details.
# Usage: cd <top-srcdir> ; perl classes.pl.
# Can also be run from the `include' directory; this lets us
# more easily insert the output into javaprims.h (which is where it goes).
# Usage: cd <build>/classpath/lib ; perl classes.pl.
use DirHandle;
@ -62,38 +60,8 @@ sub scan
push (@subdirs, $name);
next;
}
next unless $name =~ /\.java$/;
open (FILE, "< $dir/$name");
local ($outer, $classname);
while (<FILE>)
{
s,//.*$,,;
# NOTE: we don't skip `/*' comments. However, we do
# skip lines with a `*' with leading whitespace. This
# catches the most important cases.
s,^\s*\*.*$,,;
# For now assume that class names start with upper
# case letter.
next unless /\b(class|interface) ([A-Z][A-Za-z0-9]+)/;
$classname = $2;
# We assume the code is properly indented, so that we
# can print inner classes properly.
if (/^\s/)
{
die "no outer class for $classname in $dir/$name"
unless $outer;
$classes{$outer . "\$" . $classname} = 1;
}
else
{
$classes{$classname} = 1;
$outer = $classname;
}
}
close (FILE);
next unless $name =~ s/\.class$//;
$classes{$name} = 1;
}
undef $d;