Changeset 4105 for trunk/base

Timestamp:

Dec 1, 2003, 8:58:11 PM (20 years ago)

Author:

landonf (Landon Fuller)

Message:

Use variable traces for the option proc handlers

File:

• trunk/base/src/port1.0/portutil.tcl (modified) (5 diffs)

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

@@ -102 +102 @@
                 \if \{!\[info exists user_options(${option})\]\} \{ \n\
                      set ${option} \$args \n\
-                         if \{\[info exists option_procs($option)\]\} \{ \n\
-                                foreach p \$option_procs($option) \{ \n\
-                                        eval \"\$p $option set \$args\" \n\
-                                \} \n\
-                         \} \n\
                 \} \n\
         \}"
@@ -118 +113 @@
                     if \{\[string length \$\{${option}\}\] == 0\} \{ \n\
                         unset ${option} \n\
-                    \} \n\
-                        if \{\[info exists option_procs($option)\]\} \{ \n\
-                            foreach p \$option_procs($option) \{ \n\
-                                eval \"\$p $option delete \$args\" \n\
-                        \} \n\
                     \} \n\
                 \} \n\
@@ -133 +123 @@
                     \} 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\
@@ -186 +171 @@
     eval "lappend option_procs($option) $args"
     # Add a read trace to the variable, as the option procedures have no access to reads
-    trace variable $option r option_proc_trace
+    trace variable $option rwu option_proc_trace
 }
 
@@ -193 +178 @@
 proc option_proc_trace {optionName index op} {
     global option_procs
-    foreach p $option_procs($optionName) {
-        eval "$p $optionName read"
+    switch $op {
+        w {
+            foreach p $option_procs($optionName) {
+                eval "$p $optionName set"
+            }
+            return
+        }
+        r {
+            foreach p $option_procs($optionName) {
+                eval "$p $optionName read"
+            }
+            return
+        }
+        u {
+            foreach p $option_procs($optionName) {
+                eval "$p $optionName delete"
+                trace vdelete $optionName rwu $p
+            }
+            return
+        }
     }
 }