[63628] trunk/base/src/port1.0/portutil.tcl

[raimue at macports.org]

Revision: 63628
          http://trac.macports.org/changeset/63628
Author:   raimue at macports.org
Date:     2010-02-10 12:38:12 -0800 (Wed, 10 Feb 2010)
Log Message:
-----------
Remove indentation from notes

With this, notes can have any indentation level in the Portfile. For example,
the following notes will be printed the same:

notes {
Foo
Bar
}

notes {
    Foo
    Bar
}

Modified Paths:
--------------
    trunk/base/src/port1.0/portutil.tcl

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2010-02-10 17:55:16 UTC (rev 63627)
+++ trunk/base/src/port1.0/portutil.tcl	2010-02-10 20:38:12 UTC (rev 63628)
@@ -449,7 +449,23 @@
 proc notes {args} {
     global PortInfo portnotes
 
-    set PortInfo(notes) [string trim [join $args]]
+    # Strip trailing empty lines
+    set notes [string trim [join $args] "\n"]
+    # Determine indent level
+    set indent ""
+    for {set i 0} {$i < [string length $notes]} {incr i} {
+        set c [string index $notes $i]
+        if {$c != " " && $c != "\t"} {
+            break
+        }
+        append indent $c
+    }
+    # Remove indent on first line
+    set notes [string replace $notes 0 [expr $i - 1]]
+    # Remove indent on each other line
+    set notes [string map "\"\n$indent\" \"\n\"" $notes]
+
+    set PortInfo(notes) $notes
     set portnotes $PortInfo(notes)
 }
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100210/df0b38b6/attachment-0001.html>