diff options
| author | Tom Tromey <tromey@cygnus.com> | 1999-05-12 11:23:44 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@gcc.gnu.org> | 1999-05-12 11:23:44 +0000 |
| commit | 42962a480a755c0f72ff8de60a6de1fbfc85affd (patch) | |
| tree | abd228e8accc8f1b67bdf10c59963d3a1cc6047f /libjava/classes.pl | |
| parent | 3b551e09f129c36d08e8c9635e1dab299e022fa3 (diff) | |
| download | gcc-42962a480a755c0f72ff8de60a6de1fbfc85affd.zip gcc-42962a480a755c0f72ff8de60a6de1fbfc85affd.tar.gz gcc-42962a480a755c0f72ff8de60a6de1fbfc85affd.tar.bz2 | |
javaprims.h: Updated namespace declarations.
* include/javaprims.h: Updated namespace declarations.
* classes.pl (scan): Uniquify class list.
* Makefile.in, configure: Rebuilt.
* Makefile.am (nat_source_files): Added natConcreteProcess.cc.
(built_java_source_files): New macro.
(nat_headers): Added built_java_source_files.
(javao_files): Likewise.
(EXTRA_libgcj_la_SOURCES): Likewise.
(libgcj.zip): Create built class files.
($(built_java_source_files:.java=.class)): New target.
(jv_convert_LDADD): Added -L$(here)/.libs.
* configure.in: Create links for ConcreteProcess.java and
natConcreteProcess.cc.
* java/lang/Runtime.java (exec): Create a ConcreteProcess.
* java/lang/natEcosProcess.cc: New file.
* java/lang/EcosProcess.java: New file.
* java/lang/PosixProcess.java: New file.
* java/lang/natPosixProcess.cc: New file.
From-SVN: r26901
Diffstat (limited to 'libjava/classes.pl')
| -rw-r--r-- | libjava/classes.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libjava/classes.pl b/libjava/classes.pl index 4db80a0..35da03e 100644 --- a/libjava/classes.pl +++ b/libjava/classes.pl @@ -36,7 +36,7 @@ sub scan { local ($dir, $indent) = @_; local (@subdirs) = (); - local (@classes) = (); + local (%classes) = (); local ($d) = new DirHandle $dir; local (*JFILE); @@ -72,7 +72,7 @@ sub scan # For now assume that class names start with upper # case letter. next unless /(class|interface) ([A-Z][A-Za-z0-9]+)/; - push (@classes, $2); + $classes{$2} = 1; } close (FILE); } @@ -86,7 +86,7 @@ sub scan print $spaces, "namespace ", $classname, "\n"; print $spaces, "{\n"; - foreach (sort @classes) + foreach (sort keys %classes) { print $spaces, " class ", $_, ";\n"; } |