Changeset 28768 for trunk/base


Ignore:
Timestamp:
Sep 8, 2007, 4:01:20 PM (12 years ago)
Author:
afb@…
Message:

escape embedded brace strings, for tcldoc

Location:
trunk/base/src/port1.0
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portinstall.tcl

    r26177 r28768  
    179179proc proc_disasm {pname} {
    180180    set p "proc "
    181     append p $pname " {"
     181    append p $pname " \{"
    182182    set space ""
    183183    foreach arg [info args $pname] {
     
    189189        set space " "
    190190    }
    191     append p "} {" [info body $pname] "}"
     191    append p "} {" [info body $pname] "\}"
    192192    return $p
    193193}
  • trunk/base/src/port1.0/portstartupitem.tcl

    r26177 r28768  
    231231        foreach kind { start stop restart } {
    232232                if {[llength [set "startupitem.$kind"]]} {
    233                         puts ${item} "${kind}Cmds () {"
     233                        puts ${item} "${kind}Cmds () \{"
    234234                        foreach line [set "startupitem.$kind"] {
    235235                                puts ${item} "\t${line}"
    236236                        }
    237                         puts ${item} "}\n"
     237                        puts ${item} "\}\n"
    238238                }
    239239        }
Note: See TracChangeset for help on using the changeset viewer.