gcc/libjava/scripts/makemake.tcl

410 lines
11 KiB
Tcl
Raw Normal View History

#!/usr/bin/tclsh
# Helper to enforce array-ness.
proc makearray {name} {
upvar $name ary
set ary(_) 1
unset ary(_)
}
global is_verbose
set is_verbose 0
# Verbose printer.
proc verbose {text} {
global is_verbose
if {$is_verbose} {
puts stderr $text
}
}
# This maps a name to its style:
# * bc objects in this package and all its sub-packages
# are to be compiled with the BC ABI. It is an error
# for sub-packages to also appear in the map.
# * package
# objects in this package (and possibly sub-packages,
# if they do not appear in the map) will be compiled en masse
# from source into a single object, using the C++ ABI.
# * ordinary
# objects in this package (and possibly sub-packages
# if they do not appear in the map) will be compiled one at
# a time into separate .o files.
# * ignore
# objects in this package are not used. Note however that
# most ignored files are actually handled by listing them in
# 'standard.omit'
#
# If a package does not appear in the map, the default is 'package'.
global package_map
set package_map(.) package
# These are ignored in Classpath.
set package_map(gnu/test) ignore
set package_map(gnu/javax/swing/plaf/gtk) ignore
set package_map(gnu/java/awt/peer/swing) bc
set package_map(gnu/xml) bc
set package_map(javax/imageio) bc
set package_map(javax/xml) bc
set package_map(gnu/java/beans) bc
set package_map(gnu/java/awt/peer/gtk) bc
set package_map(gnu/java/awt/peer/qt) bc
set package_map(gnu/javax/sound/midi) bc
set package_map(org/xml) bc
set package_map(org/w3c) bc
set package_map(org/relaxng) bc
set package_map(javax/rmi) bc
set package_map(org/omg) bc
set package_map(gnu/CORBA) bc
set package_map(gnu/javax/rmi) bc
# This is handled specially by the Makefile.
# We still want it byte-compiled so it isn't in the .omit file.
set package_map(gnu/gcj/tools/gcj_dbtool/Main.java) ignore
# These are handled specially. If we list Class.java with other files
# in java.lang, we hit a compiler bug.
set package_map(java/lang/Class.java) ignore
set package_map(java/lang/Object.java) ignore
# More special cases. These end up in their own library.
# Note that if we BC-compile AWT we must update these as well.
set package_map(gnu/gcj/xlib) package
set package_map(gnu/awt/xlib) package
# Some BC ABI packages have classes which must not be compiled BC.
# This maps such packages to a grep expression for excluding such
# classes.
global exclusion_map
makearray exclusion_map
# set exclusion_map(java/awt) AWTPermission
# This maps a package name to a list of corresponding .java file base
# names. The package name will either appear as a key in package_map,
# or it will be '.' for the default.
global name_map
makearray name_map
# This maps a java file base name, like 'java/lang/Object.java', to
# the source directory in which it resides. We keep a layer of
# indirection here so that we can override sources in Classpath with
# our own sources.
global dir_map
makearray dir_map
# An entry in this map means that all .properties files in the
# corresponding directory should be ignored.
global properties_map
makearray properties_map
# logging.properties is installed and is editable.
set properties_map(java/util/logging) _
# We haven't merged locale resources yet.
set properties_map(gnu/java/locale) _
# List of all properties files.
set properties_files {}
# List of all '@' files that we are going to compile.
set package_files {}
# List of all header file variables.
set header_vars {}
# List of all BC object files.
set bc_objects {}
# List of regexps for matching ignored files.
set ignore_rx_list {}
# Return true if a given file should be ignored.
# The argument is the path name including the package part.
proc ignore_file_p {file} {
global ignore_rx_list
foreach rx $ignore_rx_list {
if {[regexp -- $rx $file]} {
verbose "ignoring $file for $rx"
return 1
}
}
return 0
}
# Read a '.omit' file and update the internal data structures.
proc read_omit_file {name} {
global ignore_rx_list
set fd [open $name r]
while {! [eof $fd]} {
set line [gets $fd]
# Classpath's entries bogusly start with "../".
if {[string match ../* $line]} {
set line [string range $line 3 end]
}
if {$line != ""} {
lappend ignore_rx_list $line
}
}
close $fd
}
# Classify a single source file.
proc classify_source_file {basedir file} {
global package_map name_map dir_map
if {[ignore_file_p $file]} {
return
}
set seen [info exists dir_map($file)]
set dir_map($file) $basedir
set pkg $file
while {1} {
if {[info exists package_map($pkg)]} {
# If the entry is 'package', then set up a new entry for the
# file's package.
if {$package_map($pkg) == "package"} {
set pkg [file dirname $file]
set package_map($pkg) package
}
verbose "classify succeeded: $file -> $pkg"
if {! $seen} {
lappend name_map($pkg) $file
}
return
}
set pkg [file dirname $pkg]
}
error "can't happen"
}
# Scan a directory and its subdirectories for .java source files or
# .properties files. Note that we keep basedir and subdir separate so
# we can properly update our global data structures.
proc scan_directory {basedir subdir} {
global dir_map properties_map properties_files
set subdirs {}
set files {}
set here [pwd]
cd $basedir/$subdir
foreach file [lsort [glob -nocomplain *]] {
if {[string match *.java $file]} {
lappend files $subdir/$file
} elseif {[string match *.properties $file]} {
if {! [info exists properties_map($subdir)]} {
# We assume there aren't any overrides.
lappend properties_files $basedir/$subdir/$file
}
} elseif {[file isdirectory $file]} {
lappend subdirs $subdir/$file
} elseif {$subdir == "META-INF/services"} {
# All service files are included as properties.
lappend properties_files $basedir/$subdir/$file
}
}
cd $here
# Recurse first, so that we don't create new packages too eagerly.
foreach dir $subdirs {
scan_directory $basedir $dir
}
foreach file $files {
classify_source_file $basedir $file
}
}
# Scan known packages beneath the base directory for .java source
# files.
proc scan_packages {basedir} {
foreach subdir {gnu java javax org META-INF} {
if {[file exists $basedir/$subdir]} {
scan_directory $basedir $subdir
}
}
}
# Emit a rule for a 'bc' package.
proc emit_bc_rule {package} {
global package_map exclusion_map bc_objects
if {$package == "."} {
set pkgname ordinary
} else {
set pkgname $package
}
set varname [join [split $pkgname /] _]_source_files
set loname [join [split $pkgname /] -].lo
set tname [join [split $pkgname /] -].list
puts "$loname: \$($varname)"
# Create a temporary list file and then compile it. This works
# around the libtool problem mentioned in PR 21058. classpath was
# built first, so the class files are to be found there.
set omit ""
if {[info exists exclusion_map($package)]} {
set omit "| grep -v $exclusion_map($package)"
}
puts "\t@find classpath/lib/$package -name '*.class'${omit} > $tname"
lang.c (java_init): Handle flag_indirect_classes. 2006-04-21 Andrew Haley <aph@redhat.com> * lang.c (java_init): Handle flag_indirect_classes. * jvgenmain.c: Use "class$$" instead of "class$". * mangle.c (java_mangle_decl): Accept RECORD_TYPEs sw well as DECLs. (mangle_class_field): Special case "class$$" as well as "class$". * constants.c (build_ref_from_constant_pool): If flag_indirect_classes, generate a ref into the heap. * decl.c (constants_field_decl_node, constants_data_field_decl_node): New. * class.c (build_static_class_ref): New. (build_classdollar_field): Factor out from build_class_ref(). (make_field_value): Handle static fields in heap. (make_class_data): Make sure we get a static ref to class. Make class initializer const if flag_indirect_classes. (register_class): Build a class_ref for initialization if flag_indirect_classes. (emit_indirect_register_classes): New. 2006-04-21 Andrew Haley <aph@redhat.com> * include/execution.h (struct _Jv_CompiledEngine): Define for compiled classes. * java/lang/natClassLoader.cc (_Jv_RegisterClasses): Call _Jv_RegisterLibForGc. (_Jv_RegisterClasses_Counted): Likewise. (_Jv_NewClassFromInitializer): New. (_Jv_RegisterNewClasses): New. * sources.am: Regenerate. * boehm.cc (_Jv_GC_has_static_roots): new. (_Jv_InitGC): Call GC_register_has_static_roots_callback. (filename_node, find_file, _Jv_print_gc_store, new_node, _Jv_GC_has_static_roots, _Jv_RegisterLibForGc): New. * scripts/makemake.tcl: Add -fno-indirect-classes. * Makefile.in: Regenerate. * link.cc (resolve_pool_entry): Allocate constant pool. Allocate fields. From-SVN: r113224
2006-04-24 17:33:16 +02:00
puts "\t\$(LTGCJCOMPILE) -fjni -findirect-dispatch -fno-indirect-classes -c -o $loname @$tname"
puts "\t@rm -f $tname"
puts ""
lappend bc_objects $loname
}
# Emit a rule for a 'package' package.
proc emit_package_rule {package} {
global package_map exclusion_map package_files
if {$package == "."} {
set pkgname ordinary
} else {
set pkgname $package
}
set varname [join [split $pkgname /] _]_source_files
set base $pkgname
set lname $base.list
set dname $base.deps
# A rule to make the phony file we are going to compile.
puts "$lname: \$($varname)"
puts "\t@\$(mkinstalldirs) \$(dir \$@)"
puts "\t@for file in \$($varname); do \\"
puts "\t if test -f \$(srcdir)/\$\$file; then \\"
puts "\t echo \$(srcdir)/\$\$file; \\"
puts "\t else echo \$\$file; fi; \\"
puts "\tdone > $lname"
puts ""
puts "-include $dname"
puts ""
puts ""
if {$pkgname != "gnu/gcj/xlib" && $pkgname != "gnu/awt/xlib"} {
lappend package_files $lname
}
}
# Emit a source file variable for a package, and corresponding header
# file variable, if needed.
proc emit_source_var {package} {
global package_map name_map dir_map header_vars
if {$package == "."} {
set pkgname ordinary
} else {
set pkgname $package
}
set uname [join [split $pkgname /] _]
set varname ${uname}_source_files
puts -nonewline "$varname ="
makearray dirs
foreach base [lsort $name_map($package)] {
# Terminate previous line.
puts " \\"
# Having files start with './' is ugly and confuses the automake
# "dirstamp" code; see automake PR 461.
set ndir $dir_map($base)/
if {$ndir == "./"} {
set ndir ""
}
puts -nonewline "${ndir}${base}"
set dirs($dir_map($base)) 1
}
puts ""
puts ""
if {$package_map($package) != "bc"} {
# Ugly code to build up the appropriate patsubst.
set result "\$(patsubst %.java,%.h,\$($varname))"
foreach dir [lsort [array names dirs]] {
if {$dir != "."} {
set result "\$(patsubst $dir/%,%,$result)"
}
}
if {$package == "." || $package == "java/lang"} {
# Ugly hack.
set result "\$(filter-out java/lang/Object.h java/lang/Class.h,$result)"
}
puts "${uname}_header_files = $result"
puts ""
if {$pkgname != "gnu/gcj/xlib" && $pkgname != "gnu/awt/xlib"} {
lappend header_vars "${uname}_header_files"
}
}
}
# Pretty-print a Makefile variable.
proc pp_var {name valueList {pre ""} {post ""}} {
puts ""
puts -nonewline "$name ="
foreach val $valueList {
puts " \\"
puts -nonewline " ${pre}${val}${post}"
}
puts ""
}
global argv
if {[llength $argv] > 0 && [lindex $argv 0] == "-verbose"} {
set is_verbose 1
}
# Read the proper .omit files.
read_omit_file standard.omit.in
read_omit_file classpath/lib/standard.omit
# Scan classpath first.
scan_packages classpath
scan_packages classpath/external/sax
scan_packages classpath/external/w3c_dom
scan_packages classpath/external/relaxngDatatype
# Resource files.
scan_packages classpath/resource
# Now scan our own files; this will correctly override decisions made
# when scanning classpath.
scan_packages .
# Files created by the build.
classify_source_file . java/lang/ConcreteProcess.java
classify_source_file classpath gnu/java/locale/LocaleData.java
classify_source_file classpath gnu/classpath/Configuration.java
puts "## This file was automatically generated by scripts/makemake.tcl"
puts "## Do not edit!"
puts ""
foreach package [lsort [array names package_map]] {
if {$package_map($package) == "ignore"} {
continue
}
if {! [info exists name_map($package)]} {
continue
}
emit_source_var $package
if {$package_map($package) == "bc"} {
emit_bc_rule $package
} elseif {$package_map($package) == "ordinary"} {
# Nothing in particular to do here.
} elseif {$package_map($package) == "package"} {
emit_package_rule $package
} else {
error "unrecognized type: $package_map($package)"
}
}
pp_var all_packages_source_files $package_files
pp_var ordinary_header_files $header_vars "\$(" ")"
pp_var bc_objects $bc_objects
pp_var property_files $properties_files