Defined in
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
-
No testcase defined.
Source code:
variable $token
upvar 0 $token state
switch -- $property {
{} {
array set properties [list content $state(content) encoding $state(encoding) params $state(params) size [getsize $token]]
if {[info exists state(parts)]} {
set properties(parts) $state(parts)
}
return [array get properties]
}
-names {
set names [list content encoding params]
if {[info exists state(parts)]} {
lappend names parts
}
return $names
}
content
-
encoding
-
params {
return $state($property)
}
parts {
if {![info exists state(parts)]} {
error "MIME part is a leaf"
}
return $state(parts)
}
size {
return [getsize $token]
}
default {
error "unknown property $property"
}
}
XQL Not present:Generic, PostgreSQL, Oracle