122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
-
+
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
|
if {![dict exists $work $key state]} {
return unknown
}
return [dict get $work $key state]
}
proc ::kettle::status::save {} {
proc ::kettle::status::save {{path {}}} {
variable work
set data ""
dict for {k v} $work {
append data @[list $k $v]\n
}
return $data
if {$path eq {}} {
set path [kettle path tmpfile .kettle_state_]
}
path write $path $work
return $path
}
proc ::kettle::status::load {file} {
variable work [kettle path cat $file]
return
}
# # ## ### ##### ######## ############# #####################
return
|
