Ignore:
Timestamp:
Sep 29, 2002, 6:13:49 AM (16 years ago)
Author:
landonf
Message:

Cause options_export to use new option proc API

File:
1 edited

Legend:

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

    r824 r835  
    9595proc options_export {args} {
    9696    foreach option $args {
    97         eval "proc options::${option} {args} \{ \n\
     97        eval "proc options::${option} \{args\} \{ \n\
    9898            global ${option} PortInfo \n\
    99                 set PortInfo(${option}) \$${option}\n\
     99            if \{\[info exists ${option}\]\} \{ \n\
     100                set PortInfo(${option}) \$${option} \n\
     101            \} else \{ \n\
     102                unset PortInfo(${option}) \n\
     103            \} \n\
    100104        \}"
     105        option_proc ${option} options::${option}
    101106    }
    102107}
Note: See TracChangeset for help on using the changeset viewer.