[106984] trunk/base/src/macports1.0/macports.tcl

[larryv at macports.org]

Revision: 106984
          https://trac.macports.org/changeset/106984
Author:   larryv at macports.org
Date:     2013-06-13 00:18:04 -0700 (Thu, 13 Jun 2013)
Log Message:
-----------
macports.tcl: Use "--" consistently in switch commands.

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2013-06-13 07:14:05 UTC (rev 106983)
+++ trunk/base/src/macports1.0/macports.tcl	2013-06-13 07:18:04 UTC (rev 106984)
@@ -259,7 +259,7 @@
 
 # Default implementation of ui_prefix
 proc macports::ui_prefix_default {priority} {
-    switch $priority {
+    switch -- $priority {
         debug {
             return "DEBUG: "
         }
@@ -280,7 +280,7 @@
 # ui_options(ports_verbose) - If set, output info messages (ui_info)
 # ui_options(ports_quiet) - If set, don't output "standard messages"
 proc macports::ui_channels_default {priority} {
-    switch $priority {
+    switch -- $priority {
         debug {
             if {[ui_isset ports_debug]} {
                 return {stderr}
@@ -1456,7 +1456,7 @@
 proc macports::getportdir {url {destdir "."}} {
     global macports::extracted_portdirs
     set protocol [macports::getprotocol $url]
-    switch $protocol {
+    switch -- $protocol {
         file {
             set path [file normalize [string range $url [expr {[string length $protocol] + 3}] end]]
             if {![file isfile $path]} {
@@ -1795,7 +1795,7 @@
         ui_debug "Didn't find receipt, going to depspec regex for: $portname"
         set workername [ditem_key $mport workername]
         set type [lindex [split $depspec :] 0]
-        switch $type {
+        switch -- $type {
             lib { return [$workername eval _libtest $depspec] }
             bin { return [$workername eval _bintest $depspec] }
             path { return [$workername eval _pathtest $depspec] }
@@ -2419,7 +2419,7 @@
                     }
 
                     set extflag {}
-                    switch $extension {
+                    switch -- $extension {
                         {tar.gz} {
                             set extflag "-z"
                         }
@@ -2512,7 +2512,7 @@
                             set target $portinfo($field)
                         }
 
-                        switch $matchstyle {
+                        switch -- $matchstyle {
                             exact {
                                 set matchres [expr {0 == ( $case_sensitive eq "yes" ? [string compare $pattern $target] : [string compare -nocase $pattern $target] )}]
                             }
@@ -2529,7 +2529,7 @@
                             if {$easy} {
                                 array set portinfo $line
                             }
-                            switch $protocol {
+                            switch -- $protocol {
                                 rsync {
                                     # Rsync files are local
                                     set source_url "file://[macports::getsourcepath $source]"
@@ -2616,7 +2616,7 @@
 
                     array set portinfo $line
 
-                    switch $protocol {
+                    switch -- $protocol {
                         rsync {
                             set source_url "file://[macports::getsourcepath $source]"
                         }
@@ -2689,7 +2689,7 @@
 
                         array set portinfo $line
 
-                        switch $protocol {
+                        switch -- $protocol {
                             rsync {
                                 set source_url "file://[macports::getsourcepath $source]"
                             }
@@ -3168,7 +3168,7 @@
 
 # Determine dependency types required for target
 proc macports::_deptypes_for_target {target workername} {
-    switch $target {
+    switch -- $target {
         fetch       -
         checksum    { return "depends_fetch" }
         extract     -
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130613/0c8569be/attachment.html>