FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

classes.pl (scan): Print inner classes properly.

Browse source 
* scripts/classes.pl (scan): Print inner classes properly.
	* gcj/javaprims.h: Updated class list.

From-SVN: r35151
This commit is contained in:
Tom Tromey 2000-07-20 19:34:29 +00:00 • committed by Tom Tromey
parent 5e5c1371d3
commit 7f8a07dbea
3 changed files with 47 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

21
libjava/scripts/classes.pl
View file

@ -1,7 +1,7 @@
# classes.pl - A perl program to generate most of the contents of
# javaprims.h automatically.
# Copyright (C) 1998, 1999 Red Hat, Inc.
# Copyright (C) 1998, 1999, 2000 Red Hat, Inc.
#
# This file is part of libjava.
#
@ -65,14 +65,29 @@ sub scan
next unless $name =~ /\.java$/;
open (FILE, "< $dir/$name");
local ($outer, $classname);
while (<FILE>)
{
# NOTE: we don't skip `/*' comments.
s,//.*$,,;
# For now assume that class names start with upper
# case letter.
next unless /(class|interface) ([A-Z][A-Za-z0-9]+)/;
$classes{$2} = 1;
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);
}