Defined in
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
-
No testcase defined.
Source code:
variable $token
upvar 0 $token state
array set options [list -subordinates dynamic]
array set options $args
switch -- $options(-subordinates) {
all {
if {$state(value) eq "parts"} {
foreach part $state(parts) {
eval [linsert $args 0 mime::finalize $part]
}
}
}
dynamic {
for {set cid $state(cid)} {$cid > 0} {incr cid -1} {
eval [linsert $args 0 mime::finalize $token-$cid]
}
}
none {
}
default {
error "unknown value for -subordinates $options(-subordinates)"
}
}
foreach name [array names state] {
unset state($name)
}
unset $token
XQL Not present:Generic, PostgreSQL, Oracle