Changeset 1466 for trunk/base

Timestamp:

Dec 20, 2002, 9:45:47 PM (21 years ago)

Author:

jpm

Message:

stripped the full path when printing the bin name

Location:

trunk/base/src

Files:

• pkg_mkindex.tcl (modified) (1 diff)
• port/port.tcl (modified) (1 diff)
• port/portindex.tcl (modified) (1 diff)

trunk/base/src/pkg_mkindex.tcl

@@ -30 +30 @@
 
 if {$argc < 1} {
-        puts "Usage: $argv0 <directory list>"
+        puts "Usage: [exec basename $argv0] <directory list>"
         exit
 }

trunk/base/src/port/port.tcl

@@ -37 +37 @@
 proc print_usage args {
     global argv0
-    puts "Usage: $argv0 \[-vDq\] \[action\] \[-d portdir\] \[options\]"
+    puts "Usage: [exec basename $argv0] \[-vDq\] \[action\] \[-d portdir\] \[options\]"
 }
 
 proc fatal args {
     global argv0
-    puts stderr "$argv0: $args"
+    puts stderr "[exec basename $argv0]: $args"
     exit
 }

trunk/base/src/port/portindex.tcl

@@ -13 +13 @@
 proc print_usage args {
     global argv0
-    puts "Usage: $argv0 \[-a\] \[-o output directory\] \[directory\]"
+    puts "Usage: [exec basename $argv0] \[-a\] \[-o output directory\] \[directory\]"
     puts "-a:\tArchive port directories (for remote sites). Requires -o option"
     puts "-o:\tOutput all files to specified directory"