Changeset 147618


Ignore:
Timestamp:
Apr 10, 2016, 11:39:32 AM (4 years ago)
Author:
cal@…
Message:

port: Use [wrap ...] rather than reimplementing it

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/port.tcl

    r147361 r147618  
    52475247                ui_notice "  $name has the following notes:"
    52485248
    5249                 # If env(COLUMNS) exists, limit each line's width to this width.
    5250                 if {[info exists env(COLUMNS)]} {
    5251                     set maxlen $env(COLUMNS)
    5252 
    5253                     foreach note $notes {
    5254                         foreach line [split $note "\n"] {
    5255                             set joiner ""
    5256                             set lines ""
    5257                             set newline "    "
    5258 
    5259                             foreach word [split $line " "] {
    5260                                 if {[string length $newline] + [string length $word] >= $maxlen} {
    5261                                     lappend lines $newline
    5262                                     set newline "    "
    5263                                     set joiner ""
    5264                                 }
    5265                                 ::append newline $joiner $word
    5266                                 set joiner " "
    5267                             }
    5268                             if {$newline ne {}} {
    5269                                 lappend lines $newline
    5270                             }
    5271                             ui_notice [join $lines "\n"]
    5272                         }
    5273                     }
    5274                 } else {
    5275                     foreach note $notes {
    5276                         ui_notice $note
    5277                     }
     5249                foreach note $notes {
     5250                    ui_notice [wrap $note 0 "    "]
    52785251                }
    52795252            }
Note: See TracChangeset for help on using the changeset viewer.