[28768] trunk/base/src/port1.0

[source_changes at macosforge.org]

Revision: 28768
          http://trac.macosforge.org/projects/macports/changeset/28768
Author:   afb at macports.org
Date:     2007-09-08 09:01:20 -0700 (Sat, 08 Sep 2007)

Log Message:
-----------
escape embedded brace strings, for tcldoc

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

Modified: trunk/base/src/port1.0/portinstall.tcl
===================================================================
--- trunk/base/src/port1.0/portinstall.tcl	2007-09-08 15:49:25 UTC (rev 28767)
+++ trunk/base/src/port1.0/portinstall.tcl	2007-09-08 16:01:20 UTC (rev 28768)
@@ -178,7 +178,7 @@
 
 proc proc_disasm {pname} {
     set p "proc "
-    append p $pname " {"
+    append p $pname " \{"
     set space ""
     foreach arg [info args $pname] {
 	if {[info default $pname $arg value]} {
@@ -188,6 +188,6 @@
 	}
 	set space " "
     }
-    append p "} {" [info body $pname] "}"
+    append p "} {" [info body $pname] "\}"
     return $p
 }

Modified: trunk/base/src/port1.0/portstartupitem.tcl
===================================================================
--- trunk/base/src/port1.0/portstartupitem.tcl	2007-09-08 15:49:25 UTC (rev 28767)
+++ trunk/base/src/port1.0/portstartupitem.tcl	2007-09-08 16:01:20 UTC (rev 28768)
@@ -230,11 +230,11 @@
 	# Emit the _Cmds
 	foreach kind { start stop restart } {
 		if {[llength [set "startupitem.$kind"]]} {
-			puts ${item} "${kind}Cmds () {"
+			puts ${item} "${kind}Cmds () \{"
 			foreach line [set "startupitem.$kind"] {
 				puts ${item} "\t${line}"
 			}
-			puts ${item} "}\n"
+			puts ${item} "\}\n"
 		}
 	}
 	

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070908/f0c8d7d4/attachment.html