Ignore:
Timestamp:
Feb 12, 2007, 4:38:16 AM (11 years ago)
Author:
eridius@…
Message:

We don't need all these evals to create dynamic procs. Changing options_export right now to prove this

File:
1 edited

Legend:

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

    r19376 r21950  
    124124proc options_export {args} {
    125125    foreach option $args {
    126         eval "proc options::export-${option} \{args\} \{ \n\
    127             global ${option} PortInfo \n\
    128             if \{\[info exists ${option}\]\} \{ \n\
    129                 set PortInfo(${option}) \$\{${option}\} \n\
    130             \} else \{ \n\
    131                 unset PortInfo(${option}) \n\
    132             \} \n\
    133         \}"
    134         option_proc ${option} options::export-${option}
     126        proc options::export-${option} {args} "
     127            global ${option} PortInfo
     128            if {\[info exists ${option}\]} {
     129                set PortInfo(${option}) \${${option}}
     130                } else {
     131                    unset PortInfo(${option})
     132                }
     133            }
     134        "
     135        option_proc ${option} options::export-${option}
    135136    }
    136137}
Note: See TracChangeset for help on using the changeset viewer.