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:
parent
03e6713159
commit
ee4e9e6531
4 changed files with 176 additions and 59 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue