sources.am, [...]: Rebuilt.

* sources.am, Makefile.in: Rebuilt.
	* scripts/makemake.tcl: Accept -verbose command-line option.
	(is_verbose): New global.
	(verbose): Use it.
	(classify_source_file): Don't special case '.' for 'package'
	type.

From-SVN: r114051
This commit is contained in:
Tom Tromey 2006-05-24 19:38:05 +00:00 committed by Tom Tromey
parent 03e6713159
commit ee4e9e6531
4 changed files with 176 additions and 59 deletions

View file

@ -7,9 +7,15 @@ proc makearray {name} {
unset ary(_)
}
global is_verbose
set is_verbose 0
# Verbose printer.
proc verbose {text} {
# puts stderr $text
global is_verbose
if {$is_verbose} {
puts stderr $text
}
}
# This maps a name to its style:
@ -160,9 +166,9 @@ proc classify_source_file {basedir file} {
set pkg $file
while {1} {
if {[info exists package_map($pkg)]} {
# If the entry for '.' is 'package', then set up a new entry for
# the file's package.
if {$pkg == "." && $package_map($pkg) == "package"} {
# 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
}
@ -353,6 +359,11 @@ proc pp_var {name valueList {pre ""} {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