Changeset 956 for trunk/base

Timestamp:

Oct 5, 2002, 3:04:52 PM (22 years ago)

Author:

landonf (Landon Fuller)

Message:

When appending, verify that variable exists, otherwise, set variable
to supplied value

File:

• trunk/base/src/port1.0/portutil.tcl (modified) (1 diff)

trunk/base/src/port1.0/portutil.tcl

@@ -82 +82 @@
             global ${option} user_options \n\
                 \if \{!\[info exists user_options(${option})\]\} \{ \n\
-                    set $option \[concat \$\{$option\} \$args\] \n\
-                         if \{\[info exists option_procs($option)\]\} \{ \n\
-                                foreach p \$option_procs($option) \{ \n\
-                                        eval \"\$p $option append \$args\" \n\
-                                \} \n\
-                         \} \n\
+                    if \{\[info exists ${option}\]\} \{ \n\
+                        set ${option} \[concat \$\{$option\} \$args\] \n\
+                    \} else \{ \n\
+                        set ${option} \$args \n\
+                    \} \n\
+                    if \{\[info exists option_procs($option)\]\} \{ \n\
+                        foreach p \$option_procs($option) \{ \n\
+                            eval \"\$p $option append \$args\" \n\
+                        \} \n\
+                    \} \n\
                 \} \n\
         \}"