3 # Helper to enforce array-ness.
4 proc makearray
{name
} {
21 # This maps a name to its style:
22 # * bc objects in this package and all its sub-packages
23 # are to be compiled with the BC ABI. It is an error
24 # for sub-packages to also appear in the map.
26 # objects in this package (and possibly sub-packages,
27 # if they do not appear in the map) will be compiled en masse
28 # from source into a single object, using the C++ ABI.
30 # objects in this package (and possibly sub-packages
31 # if they do not appear in the map) will be compiled one at
32 # a time into separate .o files.
34 # objects in this package are not used. Note however that
35 # most ignored files are actually handled by listing them in
38 # If a package does not appear in the map, the default is 'package'.
40 set package_map
(.
) package
42 # These are ignored in Classpath.
43 set package_map
(gnu
/test
) ignore
44 set package_map
(gnu
/javax
/swing
/plaf
/gtk
) ignore
46 set package_map
(gnu
/java
/awt
/peer
/swing
) bc
48 set package_map
(gnu
/xml
) bc
49 set package_map
(javax
/imageio
) bc
50 set package_map
(javax
/xml
) bc
51 set package_map
(gnu
/java
/beans
) bc
52 set package_map
(gnu
/java
/awt
/dnd
/peer
/gtk
) bc
53 set package_map
(gnu
/java
/util
/prefs
/gconf
) bc
54 set package_map
(gnu
/java
/awt
/peer
/gtk
) bc
55 set package_map
(gnu
/java
/awt
/dnd
/peer
/gtk
) bc
56 set package_map
(gnu
/java
/awt
/peer
/qt
) bc
57 set package_map
(gnu
/java
/awt
/peer
/x
) bc
58 set package_map
(gnu
/java
/util
/prefs
/gconf
) bc
59 set package_map
(gnu
/javax
/sound
/midi
) bc
60 set package_map
(org
/xml
) bc
61 set package_map
(org
/w3c
) bc
62 set package_map
(org
/relaxng
) bc
63 set package_map
(javax
/rmi
) bc
64 set package_map
(org
/omg
) bc
65 set package_map
(gnu
/CORBA
) bc
66 set package_map
(gnu
/javax
/rmi
) bc
68 # More special cases. These end up in their own library.
69 # Note that if we BC-compile AWT we must update these as well.
70 set package_map
(gnu
/gcj
/xlib
) package
71 set package_map
(gnu
/awt
/xlib
) package
73 # Some BC ABI packages have classes which must not be compiled BC.
74 # This maps such packages to a grep expression for excluding such
77 makearray exclusion_map
78 # set exclusion_map(java/awt) AWTPermission
80 # This maps a package name to a list of corresponding .java file base
81 # names. The package name will either appear as a key in package_map,
82 # or it will be '.' for the default.
86 # This maps a java file base name, like 'java/lang/Object.java', to
87 # the source directory in which it resides. We keep a layer of
88 # indirection here so that we can override sources in Classpath with
93 # An entry in this map means that all .properties files in the
94 # corresponding directory should be ignored.
96 makearray properties_map
98 # logging.properties is installed and is editable.
99 set properties_map
(java
/util
/logging
) _
100 # We haven't merged locale resources yet.
101 set properties_map
(gnu
/java
/locale
) _
104 # List of all properties files.
105 set properties_files
{}
107 # List of all '@' files that we are going to compile.
110 # List of all header file variables.
113 # List of all BC object files.
116 # List of regexps for matching ignored files.
117 set ignore_rx_list
{}
120 # Return true if a given file should be ignored.
121 # The argument is the path name including the package part.
122 proc ignore_file_p
{file} {
123 global ignore_rx_list
124 foreach rx
$ignore_rx_list {
125 if {[regexp -- $rx $file]} {
126 verbose
"ignoring $file for $rx"
133 # Read a '.omit' file and update the internal data structures.
134 proc read_omit_file
{name
} {
135 global ignore_rx_list
136 set fd
[open $name r
]
137 while {! [eof $fd]} {
140 # Classpath's entries bogusly start with "../".
141 if {[string match ..
/* $line]} {
142 set line
[string range
$line 3 end
]
146 lappend ignore_rx_list
$line
152 # Classify a single source file.
153 proc classify_source_file
{basedir
file} {
154 global package_map name_map dir_map
156 if {[ignore_file_p
$file]} {
160 set seen
[info exists dir_map
($file)]
161 set dir_map
($file) $basedir
164 if {[info exists package_map
($pkg)]} {
165 # If the entry is 'package', then set up a new entry for the
167 if {$package_map($pkg) == "package"} {
168 set pkg
[file dirname
$file]
169 set package_map
($pkg) package
171 verbose
"classify succeeded: $file -> $pkg"
173 lappend name_map
($pkg) $file
177 set pkg
[file dirname
$pkg]
182 # Scan a directory and its subdirectories for .java source files or
183 # .properties files. Note that we keep basedir and subdir separate so
184 # we can properly update our global data structures.
185 proc scan_directory
{basedir subdir
} {
186 global dir_map properties_map properties_files
192 foreach file [lsort [glob -nocomplain *]] {
193 if {[string match
*.java
$file]} {
194 lappend files
$subdir/$file
195 } elseif
{[string match
*.properties
$file]} {
196 if {! [info exists properties_map
($subdir)]} {
197 # We assume there aren't any overrides.
198 lappend properties_files
$basedir/$subdir/$file
200 } elseif
{[file isdirectory
$file]} {
201 lappend subdirs
$subdir/$file
202 } elseif
{$subdir == "META-INF/services"} {
203 # All service files are included as properties.
204 lappend properties_files
$basedir/$subdir/$file
209 # Recurse first, so that we don't create new packages too eagerly.
210 foreach dir
$subdirs {
211 scan_directory
$basedir $dir
214 foreach file $files {
215 classify_source_file
$basedir $file
219 # Scan known packages beneath the base directory for .java source
221 proc scan_packages
{basedir
} {
222 foreach subdir
{gnu java javax org sun META-INF
} {
223 if {[file exists
$basedir/$subdir]} {
224 scan_directory
$basedir $subdir
229 # Emit a rule for a 'bc' package.
230 proc emit_bc_rule
{package} {
231 global package_map exclusion_map bc_objects
233 if {$package == "."} {
238 set varname
[join [split $pkgname /] _
]_source_files
239 set loname
[join [split $pkgname /] -].lo
240 set tname
[join [split $pkgname /] -].
list
242 puts "$loname: \$($varname)"
243 # Create a temporary list file and then compile it. This works
244 # around the libtool problem mentioned in PR 21058. classpath was
245 # built first, so the class files are to be found there.
247 if {[info exists exclusion_map
($package)]} {
248 set omit
"| grep -v $exclusion_map($package)"
250 puts "\t@find \$(srcdir)/classpath/lib/$package -name '*.class'${omit} > $tname"
251 puts "\t\$(LTGCJCOMPILE) -fjni -findirect-dispatch -fno-indirect-classes -c -o $loname @$tname"
252 puts "\t@rm -f $tname"
255 # We skip these because they are built into their own libraries and
256 # are handled specially in Makefile.am.
257 if {$loname != "gnu-java-awt-peer-qt.lo" && $loname != "gnu-java-awt-peer-x.lo"} {
258 lappend bc_objects
$loname
262 # Emit a rule for a 'package' package.
263 proc emit_package_rule
{package} {
264 global package_map exclusion_map package_files
266 if {$package == "."} {
271 set varname
[join [split $pkgname /] _
]_source_files
276 if {$pkgname == "java/lang"} {
277 # Object and Class are special cases due to an apparent compiler
278 # bug. Process is a special case because we don't build all
279 # concrete implementations of Process on all platforms.
280 set omit
"| tr ' ' '\\n' | fgrep -v Object.class | fgrep -v Class.class | grep -v '\[^/\]Process' "
285 # A rule to make the phony file we are going to compile.
286 puts "$lname: \$($varname)"
287 puts "\t@\$(mkinstalldirs) \$(dir \$@)"
288 puts "\techo \$(srcdir)/classpath/lib/$package/*.class $omit> $lname"
290 puts "-include $dname"
294 if {$pkgname != "gnu/gcj/xlib" && $pkgname != "gnu/awt/xlib"
295 && $pkgname != "gnu/gcj/tools/gcj_dbtool"} {
296 lappend package_files
$lname
300 # Emit a package-like rule for a platform-specific Process
302 proc emit_process_package_rule
{platform
} {
303 set base
"java/process-$platform"
307 puts "$lname: java/lang/${platform}Process.java"
308 puts "\t@\$(mkinstalldirs) \$(dir \$@)"
309 puts "\techo \$(srcdir)/classpath/lib/java/lang/${platform}Process*.class > $lname"
311 puts "-include $dname"
316 # Emit a source file variable for a package, and corresponding header
317 # file variable, if needed.
318 proc emit_source_var
{package} {
319 global package_map name_map dir_map header_vars
321 if {$package == "."} {
326 set uname
[join [split $pkgname /] _
]
327 set varname
${uname
}_source_files
328 puts -nonewline "$varname ="
331 foreach base
[lsort $name_map($package)] {
332 # Terminate previous line.
334 # Having files start with './' is ugly and confuses the automake
335 # "dirstamp" code; see automake PR 461.
336 set ndir
$dir_map($base)/
340 puts -nonewline "${ndir}${base}"
341 set dirs
($dir_map($base)) 1
346 if {$package_map($package) != "bc"} {
347 # Ugly code to build up the appropriate patsubst.
348 set result
"\$(patsubst %.java,%.h,\$($varname))"
349 # We use -decreasing so that classpath/external will be stripped
351 foreach dir
[lsort -decreasing [array names dirs
]] {
353 set result
"\$(patsubst $dir/%,%,$result)"
357 if {$package == "." ||
$package == "java/lang"} {
359 set result
"\$(filter-out java/lang/Object.h java/lang/Class.h,$result)"
362 puts "${uname}_header_files = $result"
364 if {$pkgname != "gnu/gcj/xlib" && $pkgname != "gnu/awt/xlib"} {
365 lappend header_vars
"${uname}_header_files"
370 # Pretty-print a Makefile variable.
371 proc pp_var
{name valueList
{pre
""} {post
""}} {
373 puts -nonewline "$name ="
374 foreach val
$valueList {
376 puts -nonewline " ${pre}${val}${post}"
382 if {[llength $argv] > 0 && [lindex $argv 0] == "-verbose"} {
386 # Read the proper .omit files.
387 read_omit_file standard.omit.in
388 read_omit_file classpath
/lib
/standard.omit.in
390 # Scan classpath first.
391 scan_packages classpath
392 scan_packages classpath
/external
/sax
393 scan_packages classpath
/external
/w3c_dom
394 scan_packages classpath
/external
/relaxngDatatype
395 scan_packages classpath
/external
/jsr166
397 scan_packages classpath
/resource
398 # Now scan our own files; this will correctly override decisions made
399 # when scanning classpath.
401 # Files created by the build.
402 classify_source_file classpath gnu
/java
/locale
/LocaleData.java
403 classify_source_file classpath gnu
/java
/security
/Configuration.java
405 puts "## This file was automatically generated by scripts/makemake.tcl"
406 puts "## Do not edit!"
409 foreach package [lsort [array names package_map
]] {
410 if {$package_map($package) == "ignore"} {
413 if {! [info exists name_map
($package)]} {
417 emit_source_var
$package
419 if {$package_map($package) == "bc"} {
420 emit_bc_rule
$package
421 } elseif
{$package_map($package) == "ordinary"} {
422 # Nothing in particular to do here.
423 } elseif
{$package_map($package) == "package"} {
424 emit_package_rule
$package
426 error "unrecognized type: $package_map($package)"
430 emit_process_package_rule Ecos
431 emit_process_package_rule Win32
432 emit_process_package_rule Posix
434 pp_var all_packages_source_files
$package_files
435 pp_var ordinary_header_files
$header_vars "\$(" ")"
436 pp_var bc_objects
$bc_objects
437 pp_var property_files
$properties_files