[53481] branches/gsoc09-logging/base/src/port/port.tcl

[enl at macports.org]

Revision: 53481
          http://trac.macports.org/changeset/53481
Author:   enl at macports.org
Date:     2009-07-06 11:59:03 -0700 (Mon, 06 Jul 2009)
Log Message:
-----------
added "--stage" and "--prefix" options to port log command

Modified Paths:
--------------
    branches/gsoc09-logging/base/src/port/port.tcl

Modified: branches/gsoc09-logging/base/src/port/port.tcl
===================================================================
--- branches/gsoc09-logging/base/src/port/port.tcl	2009-07-06 18:53:13 UTC (rev 53480)
+++ branches/gsoc09-logging/base/src/port/port.tcl	2009-07-06 18:59:03 UTC (rev 53481)
@@ -1374,8 +1374,9 @@
 
 
 proc action_log { action portlist opts } {
+    global global_options 
     set logfile "$macports::prefix/var/macports/logs/"
-
+    #puts "$opts"
     if {[llength $portlist] == 0} {
         print_help
         return 0
@@ -1428,8 +1429,28 @@
          if {[file exists $logfile]} {
             set fp [open $logfile r]
             set data [read $fp]
+            set data [split $data "\n"]
+            if {![info exists global_options(ports_log_stage)]} {
+                set stage "\[a-z\]*"
+            } else {
+                set stage $global_options(ports_log_stage);
+            }
+            if {![info exists global_options(ports_log_prefix)]} {
+                set prefix "\[a-z\]*"
+            } else {
+                set prefix $global_options(ports_log_prefix);
+            }
+            set match ""
+            foreach line $data {
+                set exp "^:$prefix:$stage .*$"
+                regexp $exp $line match
+                if {$match == $line} {
+                    regsub "^:$prefix:$stage "  $line "" line
+                    puts $line
+                }
+            }
+            
             close $fp
-            puts $data
         } else {
             ui_msg "Log file not found"
         }
@@ -3159,6 +3180,7 @@
     mirror      {new}
     lint        {nitpick}
     select      {list set show}
+    log         {{stage 1} {prefix 1}}
 }
 
 global cmd_implied_options
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090706/f19adfc1/attachment.html>