[44084] trunk/base/src/port/port.tcl

[raimue at macports.org]

Revision: 44084
          http://trac.macports.org/changeset/44084
Author:   raimue at macports.org
Date:     2008-12-20 20:39:48 -0800 (Sat, 20 Dec 2008)
Log Message:
-----------
port/port.tcl:
port search, add --case-sensitive option

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2008-12-21 04:28:08 UTC (rev 44083)
+++ trunk/base/src/port/port.tcl	2008-12-21 04:39:48 UTC (rev 44084)
@@ -2192,6 +2192,7 @@
     array set filters {}
     # Default matchstyle
     set filter_matchstyle "none"
+    set filter_case no
     foreach { option } [array names options ports_search_*] {
         set opt [string range $option 13 end]
 
@@ -2205,6 +2206,10 @@
                 set filter_matchstyle $opt
                 continue
             }
+            case-sensitive {
+                set filter_case yes
+                continue
+            }
             line {
                 continue
             }
@@ -2237,7 +2242,7 @@
             # Map from friendly name
             set opt [map_friendly_field_names $opt]
 
-            if {[catch {eval set matches \[mportsearch \$searchstring no $matchstyle $opt\]} result]} {
+            if {[catch {eval set matches \[mportsearch \$searchstring $filter_case $matchstyle $opt\]} result]} {
                 global errorInfo
                 ui_debug "$errorInfo"
                 break_softcontinue "search for name $portname failed: $result" 1 status
@@ -2775,7 +2780,7 @@
                  depends description epoch homepage index line long_description
                  maintainer maintainers name platform platforms portdir
                  revision variant variants version}
-    search      {category categories depends_build depends_lib depends_run
+    search      {case-sensitive category categories depends_build depends_lib depends_run
                  depends description epoch exact glob homepage line
                  long_description maintainer maintainers name platform
                  platforms portdir regex revision variant variants version}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20081220/a1a58077/attachment-0001.html>