200 |
close $fid |
close $fid |
201 |
} |
} |
202 |
|
|
203 |
|
proc ::tcldrop::channels::SetUdefDefaults {{name {*}}} { |
204 |
|
variable Channels |
205 |
|
variable UdefDefaults |
206 |
|
foreach c [array names Channels] { |
207 |
|
array set chaninfo $Channels($c) |
208 |
|
foreach n [array names UdefDefaults $name] { |
209 |
|
if {![info exists chaninfo($n)]} { |
210 |
|
# It's not already set, so we set it to the default: |
211 |
|
set chaninfo($n) $UdefDefaults($n) |
212 |
|
set Channels($c) [array get chaninfo] |
213 |
|
} |
214 |
|
} |
215 |
|
array unset chaninfo |
216 |
|
} |
217 |
|
} |
218 |
|
|
219 |
# Loads the channel info from $chanfile: |
# Loads the channel info from $chanfile: |
220 |
proc ::tcldrop::channels::loadchannels {} { |
proc ::tcldrop::channels::loadchannels {} { |
221 |
if {[file exists $::chanfile]} { |
if {[file exists $::chanfile]} { |
227 |
# are no longer in use, and discard them. |
# are no longer in use, and discard them. |
228 |
array set Channels [read $fid [file size $::chanfile]] |
array set Channels [read $fid [file size $::chanfile]] |
229 |
close $fid |
close $fid |
|
SetUdefDefaults |
|
230 |
} else { |
} else { |
231 |
putlog "no chanfile exists..yet." |
putlog "no chanfile exists..yet." |
232 |
} |
} |
233 |
|
SetUdefDefaults |
234 |
} |
} |
235 |
|
|
236 |
# Returns 1 if a channel exists in the channel database, or 0 if it doesn't: |
# Returns 1 if a channel exists in the channel database, or 0 if it doesn't: |
272 |
SetUdefDefaults $name |
SetUdefDefaults $name |
273 |
} |
} |
274 |
|
|
|
proc ::tcldrop::channels::SetUdefDefaults {{name {*}}} { |
|
|
variable Channels |
|
|
variable UdefDefaults |
|
|
foreach c [array names Channels] { |
|
|
array set chaninfo $Channels($c) |
|
|
foreach n [array names UdefDefaults $name] { |
|
|
if {![info exists chaninfo($n)]} { |
|
|
# It's not already set, so we set it to the default: |
|
|
set chaninfo($n) $UdefDefaults($n) |
|
|
set Channels($c) [array get chaninfo] |
|
|
} |
|
|
} |
|
|
array unset chaninfo |
|
|
} |
|
|
} |
|
|
|
|
275 |
# renudef <flag/int> <oldname> <newname> |
# renudef <flag/int> <oldname> <newname> |
276 |
# Description: renames a user defined channel flag or integer setting. |
# Description: renames a user defined channel flag or integer setting. |
277 |
# Returns: nothing |
# Returns: nothing |
380 |
|
|
381 |
# After Tcldrop loads, we (re)load the chanfile: |
# After Tcldrop loads, we (re)load the chanfile: |
382 |
bind evnt - loaded ::tcldrop::channels::Loaded -priority 0 |
bind evnt - loaded ::tcldrop::channels::Loaded -priority 0 |
383 |
proc ::tcldrop::channels::Loaded {type} { loadchannels } |
proc ::tcldrop::channels::Loaded {type} { |
384 |
|
putlog "Loading CHANELL!!!!" |
385 |
|
loadchannels } |
386 |
|
|
387 |
bind evnt - save ::tcldrop::channels::SaveChannels -priority 0 |
bind evnt - save ::tcldrop::channels::SaveChannels -priority 0 |
388 |
proc ::tcldrop::channels::SaveChannels {type} { savechannels } |
proc ::tcldrop::channels::SaveChannels {type} { savechannels } |