Ignore:
Timestamp:
Apr 10, 2003, 2:47:18 AM (16 years ago)
Author:
landonf
Message:

Update UI protocol to support versioning and message context, as well as future extended "meta-data"
Updated all command line clients to support new UI API

File:
1 edited

Legend:

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

    r2292 r2435  
    4343
    4444########### External High Level Procedures ###########
     45
     46
     47# UI Instantiations
     48foreach priority "debug info msg error warn" {
     49    eval "proc ui_$priority {str} \{ \n\
     50        set message(priority) $priority \n\
     51        set message(data) \$str \n\
     52        ui_event \[array get message\] \n\
     53    \}"
     54}
     55
    4556
    4657namespace eval options {
     
    520531    if {[llength $dlist] > 0} {
    521532                # somebody broke!
    522                 ui_info "Warning: the following items did not execute (for $portname): "
     533                set errstring "Warning: the following items did not execute (for $portname): "
    523534                foreach ditem $dlist {
    524                         ui_info "[ditem_key $ditem name] " -nonewline
    525                 }
    526                 ui_info ""
     535                        lappend errstring [ditem_key $ditem name]
     536                }
     537                ui_info $errstring
    527538                set result 1
    528         } else {
     539    } else {
    529540                set result 0
    530         }
     541    }
    531542       
    532543    close $target_state_fd
Note: See TracChangeset for help on using the changeset viewer.