Changeset 81602

Timestamp:

08/02/11 15:19:46 (4 years ago)

Author:

raimue@…

Message:

port/port.tcl:
Output errors on stderr
Add consistency to messages about ambiguity

File:

• trunk/base/src/port/port.tcl (modified) (2 diffs)

trunk/base/src/port/port.tcl

@@ -4157 +4157 @@
                             lappend errlst "--[lindex $e 0]"
                         }
-                        return -code error "${action} --${key} is ambiguous: \n  [join $errlst "\n  "]"
+                        return -code error "\"port ${action} --${key}\" is ambiguous: \n  port ${action} [join $errlst "\n  port ${action} "]"
                     }
                     set key   [lindex [lindex $kopts 0] 0]
@@ -4314 +4314 @@
         } else {
             if {[llength $actions] > 1} {
-                puts "Ambiguous action \"$action\": could be any of {$actions}."
+                ui_error "\"port ${action}\" is ambiguous: \n  port [join $actions "\n  port "]"
             } else {
-                puts "Unrecognized action \"$action\""
+                ui_error "Unrecognized action \"port $action\""
             }
             set action_status 1