Na poczatku tclki (w nieskompilowanym fragmencie) umieszczalo sie tego typu wpis, ktory ladowal biblioteke i to tyle:
Kod: Zaznacz cały
if { ([string tolower $tcl_platform(platform)]=="unix" ) } { if { [package ifneeded tbcload 1.3]=="" } { package ifneeded tbcload 1.3 [list load [file join scripts/tbcload.so]] }}
# TclPro::Compiler::Include
if {[catch {package require tbcload 1.3} err] == 1} {
error "The TclPro ByteCode Loader is not available or does not support the correct version"
}
Kod: Zaznacz cały
tbcload::bceval {
TclPro ByteCode 1 0 1.3 8.3
323 0 3989 497 0 0 2028 0 5 323 335 -1 -1
3989
w0E<!=q:u!&B&s!=q:u!'KA9v(6*!!58o=!E^='(&-<<!Gpj'(&'!!!sVB3w:_piw/HW<!CY
0
0
}