Posted to tcl by hypnotoad at Wed Dec 05 18:21:55 GMT 2018view pretty
set ::tcl_teapot_profile {win32-ix86} set ::PKGIDXFILE [info script] set dir [file dirname $::PKGIDXFILE] if {$::tcl_platform(platform) eq "windows"} { set ::g(HOME) [file join [file normalize $::env(LOCALAPPDATA)] tcl] } else { set ::g(HOME) [file normalize ~/tcl] } set ::tcl_teapot [file join $::g(HOME) teapot $::tcl_teapot_profile] lappend ::auto_path $::tcl_teapot proc installDir {d1 d2} { puts [format {%*sCreating %s} [expr {4 * [info level]}] {} [file tail $d2]] file delete -force -- $d2 file mkdir $d2 foreach ftail [glob -directory $d1 -nocomplain -tails *] { set f [file join $d1 $ftail] if {[file isdirectory $f] && [string compare CVS $ftail]} { installDir $f [file join $d2 $ftail] } elseif {[file isfile $f]} { file copy -force $f [file join $d2 $ftail] if {$::tcl_platform(platform) eq {unix}} { file attributes [file join $d2 $ftail] -permissions 0644 } else { file attributes [file join $d2 $ftail] -readonly 1 } } } if {$::tcl_platform(platform) eq {unix}} { file attributes $d2 -permissions 0755 } else { file attributes $d2 -readonly 1 } } lappend ::PATHSTACK $dir set IDXPATH [lindex $::PATHSTACK end] set dir [file join $::IDXPATH pkgs taolib] ; source [file join $dir pkgIndex.tcl] # SINGLE FILE MODULES BEGIN set dir [lindex $::PATHSTACK end] package ifneeded irm::pdfreport 0.1 [list source [file join $dir {irm/pdfreport} pdfreport.tcl]] package ifneeded sde::readi 0.1 [list source [file join $dir {irm/readi_sde} index.tcl]] package ifneeded irm::scotty 0.1 [list source [file join $dir {irm/scotty} index.tcl]] package ifneeded irm::icons 0.2 [list source [file join $dir {irm/icons} icons.tcl]] package ifneeded irm_3d_models 0.1 [list source [file join $dir {irm/model} index.tcl]] package ifneeded http 2.9.0 [list source [file join $dir {tcl_library/http} http.tcl]] package ifneeded msgcat 1.6.1 [list source [file join $dir {tcl_library/msgcat} msgcat.tcl]] package ifneeded tool-db 0.1 [list source [file join $dir {pkgs/modules/tool-db} tool-db.tcl]] package ifneeded ego 0.1 [list source [file join $dir {pkgs/modules/ego} pkgIndex.tcl]] package ifneeded ego 0.1 [list source [file join $dir {pkgs/modules/ego} ego.tcl]] package ifneeded listutil 1.9 [list source [file join $dir {pkgs/modules/listutil} listutil.tcl]] package ifneeded websocket 1.4.1 [list source [file join $dir {pkgs/modules/websocket} websocket.tcl]] package ifneeded namespacex 0.1 [list source [file join $dir {pkgs/modules/namespacex} namespacex.tcl]] package ifneeded taotk-canvas3d 0.1 [list source [file join $dir {pkgs/modules/taotk-canvas3d} index.tcl]] package ifneeded taotk-form 2.1.1 [list source [file join $dir {pkgs/modules/taotk-form} taotk-form.tcl]] package ifneeded tao-yggdrasil 0.1 [list source [file join $dir {pkgs/modules/yggdrasil} yggdrasil.tcl]] package ifneeded Markdown 1.1 [list source [file join $dir {pkgs/modules/markdown} markdown.tcl]] package ifneeded taotk-layout 0.1 [list source [file join $dir {pkgs/modules/taotk-layout} index.tcl]] package ifneeded oo::dialect 0.4 [list source [file join $dir {pkgs/modules/oodialect} oodialect.tcl]] package ifneeded comm 4.6.3.1 [list source [file join $dir {pkgs/modules/comm} comm.tcl]] package ifneeded htmlparse 1.2.2 [list source [file join $dir {pkgs/modules/htmlparse} htmlparse.tcl]] package ifneeded cmdline 1.5 [list source [file join $dir {pkgs/modules/cmdline} cmdline.tcl]] package ifneeded html 1.4.5 [list source [file join $dir {pkgs/modules/html} html.tcl]] package ifneeded oo::util 1.2.2 [list source [file join $dir {pkgs/modules/ooutil} ooutil.tcl]] package ifneeded autoscroll 1.1 [list source [file join $dir {pkgs/modules/autoscroll} autoscroll.tcl]] package ifneeded units 2.2.1 [list source [file join $dir {pkgs/modules/units} units.tcl]] package ifneeded udpcluster 0.3.3 [list source [file join $dir {pkgs/modules/udpcluster} udpcluster.tcl]] package ifneeded httpd 4.3.2 [list source [file join $dir {pkgs/modules/httpd} httpd.tcl]] package ifneeded clay 0.7 [list source [file join $dir {pkgs/modules/clay} clay.tcl]] package ifneeded tool-stage 0.1 [list source [file join $dir {pkgs/modules/tool-stage} tool-stage.tcl]] package ifneeded csv 0.8.1 [list source [file join $dir {pkgs/modules/csv} csv.tcl]] package ifneeded tool-ui 0.2.2 [list source [file join $dir {pkgs/modules/tool-ui} tool-ui.tcl]] package ifneeded ncgi 1.5.0 [list source [file join $dir {pkgs/modules/ncgi} ncgi.tcl]] package ifneeded javascript 1.0.2 [list source [file join $dir {pkgs/modules/javascript} javascript.tcl]] package ifneeded odie::processman 0.5 [list source [file join $dir {pkgs/modules/processman} processman.tcl]] package ifneeded gridplus 2.11 [list source [file join $dir {pkgs/modules/gridplus} gridplus.tcl]] package ifneeded uuid 1.0.7 [list source [file join $dir {pkgs/modules/uuid} uuid.tcl]] package ifneeded cron 2.1.1 [list source [file join $dir {pkgs/modules/cron} cron.tcl]] package ifneeded sde::mode::editor 0.1 [list source [file join $dir {apps/editor} index.tcl]] # SINGLE FILE MODULES END set dir [set PKGDIR [file join [lindex $::PATHSTACK end] libirm]] package ifneeded irm::constants 3.0 [list source [file join $PKGDIR irminit.tcl]] package ifneeded irm::simdoc_seed 3.0 [list source [file join $PKGDIR irmdoc.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] launcher]] package ifneeded irm::app::sim::launchtab 0.1 [list source [file join $PKGDIR sim.tcl]] package ifneeded sde::launcher 0.1 [list source [file join $PKGDIR main.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/helpdoc]] package ifneeded irm::htmltools 0.1 [list source [file join $PKGDIR htmltools.tcl]] package ifneeded irm::helpdoc 0.2 [list source [file join $PKGDIR index.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/helpdoc/sections]] package ifneeded irm::scriptspecs 0.1 [list source [file join $PKGDIR specs.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/cluster]] package ifneeded odie-rpc 0.1 [list source [file join $PKGDIR rpc.tcl]] package ifneeded irm::cluster 0.1 [list source [file join $PKGDIR index.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/cluster/services]] package ifneeded irm::service::blade 0.1 [list source [file join $PKGDIR blade.tcl]] package ifneeded irm::service::federate 0.1 [list source [file join $PKGDIR federate.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/irm]] package ifneeded irm::userhome 0.1 [list source [file join $PKGDIR userhome.tcl]] package ifneeded irm::utils 0.1 [list source [file join $PKGDIR utils.tcl]] package ifneeded irm::units 0.3 [list source [file join $PKGDIR units.tcl]] package ifneeded irm::sim::settingvalue 0.1 [list source [file join $PKGDIR settingvalue.tcl]] package ifneeded irm::sig 0.1 [list source [file join $PKGDIR sig.tcl]] package ifneeded irm::math 0.1 [list source [file join $PKGDIR math.tcl]] package ifneeded irm::docview 0.1 [list source [file join $PKGDIR docview.tcl]] package ifneeded irm::sim::configure 0.1 [list source [file join $PKGDIR simconfig.tcl]] package ifneeded irm::dspec 0.1 [list source [file join $PKGDIR dspec.tcl]] package ifneeded siground 0.1 [list source [file join $PKGDIR round.tcl]] package ifneeded irm::wizard 0.1 [list source [file join $PKGDIR wizard.tcl]] package ifneeded canvas3d::shapes 0.1 [list source [file join $PKGDIR c3dshapes.tcl]] package ifneeded irm::plugin 0.1 [list source [file join $PKGDIR plugin.tcl]] package ifneeded irm::main 0.2 [list source [file join $PKGDIR main.tcl]] package ifneeded irm::shapes 0.1 [list source [file join $PKGDIR shapes.tcl]] package ifneeded irmdb 0.1 [list source [file join $PKGDIR irmdb.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/scotty/core]] package ifneeded stemmer 0.1 [list source [file join $PKGDIR stemmer.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/legacy]] package ifneeded irm::chart_classic 0.1 [list source [file join $PKGDIR chart.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/utils]] package ifneeded csv 0.5.1 [list source [file join $PKGDIR csv.tcl]] package ifneeded irm::procedit 0.1 [list source [file join $PKGDIR procedit.tcl]] package ifneeded irm::msgbox 0.1 [list source [file join $PKGDIR msgbox.tcl]] package ifneeded irm::rpc 0.1 [list source [file join $PKGDIR rpc.tcl]] package ifneeded irmmd5 0.1 [list source [file join $PKGDIR md5.tcl]] package ifneeded irm::splash 0.1 [list source [file join $PKGDIR splash.tcl]] package ifneeded hershey 1.0 [list source [file join $PKGDIR hersheyPkg.tcl]] package ifneeded irm::printGUI 0.1 [list source [file join $PKGDIR printGUI.tcl]] package ifneeded clif::graph4 0.1 [list source [file join $PKGDIR graph4.tcl]] package ifneeded irm::gzstream 0.1 [list source [file join $PKGDIR gzlib.tcl]] package ifneeded irm::random 0.1 [list source [file join $PKGDIR random.tcl]] package ifneeded irm::htmlHelp 0.1 [list source [file join $PKGDIR htmlHelp.tcl]] package ifneeded clif::graphConfig 1.4 [list source [file join $PKGDIR graphConfig.tcl]] package ifneeded irm::progressBar 0.1 [list source [file join $PKGDIR progressBar.tcl]] package ifneeded irmmath 0.1 [list source [file join $PKGDIR irmmath.tcl]] package ifneeded irm::dbedit 0.1 [list source [file join $PKGDIR dbedit.tcl]] package ifneeded canvaspdf 2.0 [list source [file join $PKGDIR canvaspdf.tcl]] package ifneeded listutil 1.5 [list source [file join $PKGDIR lutils.tcl]] package ifneeded htmllib 0.3.4 [list source [file join $PKGDIR htmllib.tcl]] package ifneeded irm::textbox 0.1 [list source [file join $PKGDIR textbox.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/readi]] package ifneeded irm::preptools 1.0 [list source [file join $PKGDIR preptools.tcl]] package ifneeded irm::readi 0.1 [list source [file join $PKGDIR index.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/readi/scripts]] package ifneeded irm::scripts 0.1 [list source [file join $PKGDIR loader.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/readi/gui]] package ifneeded irm::readigui 0.1 [list source [file join $PKGDIR index.tcl]] package ifneeded readi::gui 0.1 [list source [file join $PKGDIR notetab.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/coregui]] package ifneeded irm::graph 0.1 [list source [file join $PKGDIR graph.tcl]] package ifneeded coregui 1.0 [list source [file join $PKGDIR index.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/application]] package ifneeded irm::app::prep 0.1 [list source [file join $PKGDIR prep.tcl]] package ifneeded irm::app::headless 0.1 [list source [file join $PKGDIR headless.tcl]] package ifneeded irm::app::console 0.1 [list source [file join $PKGDIR console.tcl]] package ifneeded irm::app::gui 0.1 [list source [file join $PKGDIR gui.tcl]] package ifneeded irm::app 0.1 [list source [file join $PKGDIR index.tcl]] package ifneeded irm::app::launcher 0.1 [list source [file join $PKGDIR launcher.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/regression]] package ifneeded irm::simrun::regression 0.1 [list source [file join $PKGDIR index.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/modules]] package ifneeded irm::license::control 0.1 [list source [file join $PKGDIR license.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/pdf4tcl]] package ifneeded pdf4tcl 0.9.1 [list source [file join $PKGDIR pdf4tcl.tcl]] package ifneeded pdf4tcl::stdmetrics 0.1 [list source [file join $PKGDIR stdmetrics.tcl]] package ifneeded pdf4tcl::glyph2unicode 0.1 [list source [file join $PKGDIR glyph2uni.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] wizard]] package ifneeded sde::wizards 0.1 [list source [file join $PKGDIR index.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] utils]] package ifneeded combobox 2.2.2 [list source [file join $PKGDIR tkdiff.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tcl_library/reg]] source [file join $PKGDIR pkgIndex.tcl] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tcl_library/dde]] source [file join $PKGDIR pkgIndex.tcl] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tcl_library/platform]] package ifneeded platform 1.0.14 [list source [file join $PKGDIR platform.tcl]] package ifneeded platform::shell 1.1.4 [list source [file join $PKGDIR shell.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tcl_library/opt]] package ifneeded opt 0.4.6 [list source [file join $PKGDIR optparse.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tcl_library/http1.0]] package ifneeded http 1.0 [list tclPkgSetup $PKGDIR http 1.0 {{http.tcl source {httpCopyDone httpCopyStart httpEof httpEvent httpFinish httpMapReply httpProxyRequired http_code http_config http_data http_formatQuery http_get http_reset http_size http_status http_wait}}}] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tk_library/ttk]] package ifneeded ttk::theme::vista 1.0 [list source [file join $PKGDIR vistaTheme.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/md4]] package ifneeded md4 1.0.7 [list source [file join $PKGDIR md4.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/nettool]] package ifneeded nettool::available_ports 0.1 {package require nettool ; package provide nettool::available_ports 0.1} package ifneeded nettool 0.5.2 [list source [file join $PKGDIR nettool.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/tao-onion]] package ifneeded tao-onion 0.1 [list source [file join $PKGDIR onion.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/md5]] package ifneeded md5 2.0.7 [list source [file join $PKGDIR md5x.tcl]] package ifneeded md5 1.4.4 [list source [file join $PKGDIR md5.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/rc4]] package ifneeded rc4 1.1.0 [list source [file join $PKGDIR rc4.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/fileutil]] package ifneeded fileutil 1.16 [list source [file join $PKGDIR fileutil.tcl]] package ifneeded fileutil::traverse 0.6 [list source [file join $PKGDIR traverse.tcl]] package ifneeded fileutil::multi 0.1 [list source [file join $PKGDIR multi.tcl]] package ifneeded fileutil::multi::op 0.5.3 [list source [file join $PKGDIR multiop.tcl]] package ifneeded fileutil::decode 0.2.1 [list source [file join $PKGDIR decode.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/chan]] package ifneeded {chan getslimit} 0.1 [list ::apply {dir { package require ego namespace eval ::tcllib::chan::getslimit [list ::source $PKGDIR/getslimit.tcl] package provide {chan getslimit} 0.1 namespace eval ::tcllib::chan { namespace export getslimit } }} $PKGDIR] package ifneeded {chan base} 0.1 [list ::apply {dir { package require ego tcllib::ego .new ::tcllib::chan::base ::tcllib::chan::base .eval [list ::source $PKGDIR/base.tcl] namespace eval ::tcllib::chan { namespace export base } package provide {chan base} 0.1 }} $PKGDIR] package ifneeded {chan coroutine} 0.1 [list ::apply {dir { package require ego namespace eval ::tcllib::chan::coroutine [list ::source $PKGDIR/coroutine.tcl] package provide {chan coroutine} 0.1 namespace eval ::tcllib::chan { namespace export coroutine } }} $PKGDIR] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/widget]] source [file join $PKGDIR pkgIndex.tcl] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/coroutine]] package ifneeded coroutine 1.2 [list source [file join $PKGDIR coroutine.tcl]] package ifneeded coroutine::auto 1.1.3 [list source [file join $PKGDIR coro_auto.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/virtchannel_core]] package ifneeded tcl::chan::core 1 [list source [file join $PKGDIR core.tcl]] package ifneeded tcl::chan::events 1 [list source [file join $PKGDIR events.tcl]] package ifneeded tcl::transform::core 1 [list source [file join $PKGDIR transformcore.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/tao-mvc]] package ifneeded tao-mvc 0.1 [list source [file join $PKGDIR mvc.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/fumagic]] package ifneeded fileutil::magic::filetype 2.0 [list source [file join $PKGDIR filetypes.tcl]] package ifneeded fileutil::magic::rt 3.0 [list source [file join $PKGDIR rtcore.tcl]] package ifneeded fileutil::magic::cgen 1.3.0 [list source [file join $PKGDIR cgen.tcl]] package ifneeded fileutil::magic::cfront 1.3.0 [list source [file join $PKGDIR cfront.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/taotk-html]] package ifneeded taotk-html 0.1 [list source [file join $PKGDIR index.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/odie]] package ifneeded irm::units 0.3 [list source [file join $PKGDIR index.tcl]]\n[list source [file join $PKGDIR units.tcl]] package ifneeded odie 0.3 [list source [file join $PKGDIR index.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/interp]] package ifneeded interp 0.1.2 [list source [file join $PKGDIR interp.tcl]] package ifneeded interp::delegate::proc 0.2 [list source [file join $PKGDIR deleg_proc.tcl]] package ifneeded interp::delegate::method 0.2 [list source [file join $PKGDIR deleg_method.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/tao-physics]] package ifneeded tao-physics 0.1 [list source [file join $PKGDIR index.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/base64]] package ifneeded base64 2.4.2 [list source [file join $PKGDIR base64.tcl]] package ifneeded uuencode 1.1.5 [list source [file join $PKGDIR uuencode.tcl]] package ifneeded yencode 1.1.3 [list source [file join $PKGDIR yencode.tcl]] package ifneeded ascii85 1.0 [list source [file join $PKGDIR ascii85.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/ctext]] package ifneeded ctext 3.3 [list source [file join $PKGDIR ctext.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/math]] source [file join $PKGDIR pkgIndex.tcl] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/plotchart]] package ifneeded Plotchart 2.4.1 [list source [file join $PKGDIR plotchart.tcl]] package ifneeded xyplot 1.0.1 [list source [file join $PKGDIR xyplot.tcl]] package ifneeded plotanim 0.2 [list source [file join $PKGDIR plotanim.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/zip]] package ifneeded zipfile::decode 0.7.1 [list source [file join $PKGDIR decode.tcl]] package ifneeded zipfile::encode 0.4 [list source [file join $PKGDIR encode.tcl]] package ifneeded zipfile::mkzip 1.2 [list source [file join $PKGDIR mkzip.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/json]] package ifneeded json 1.3.4 [list source [file join $PKGDIR json.tcl]] package ifneeded json::write 1.0.3 [list source [file join $PKGDIR json_write.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/textutil]] package ifneeded textutil 0.9 [list source [file join $PKGDIR textutil.tcl]] package ifneeded textutil::adjust 0.7.3 [list source [file join $PKGDIR adjust.tcl]] package ifneeded textutil::split 0.8 [list source [file join $PKGDIR split.tcl]] package ifneeded textutil::trim 0.7 [list source [file join $PKGDIR trim.tcl]] package ifneeded textutil::tabify 0.7 [list source [file join $PKGDIR tabify.tcl]] package ifneeded textutil::repeat 0.7 [list source [file join $PKGDIR repeat.tcl]] package ifneeded textutil::string 0.8 [list source [file join $PKGDIR string.tcl]] package ifneeded textutil::expander 1.3.1 [list source [file join $PKGDIR expander.tcl]] package ifneeded textutil::wcswidth 0.1 [list source [file join $PKGDIR wcswidth.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/devtools]] package ifneeded tcllib::testutils 1.2 [list source [file join $PKGDIR testutilities.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/virtchannel_transform]] package ifneeded tcl::transform::adler32 1 [list source [file join $PKGDIR adler32.tcl]] package ifneeded tcl::transform::base64 1 [list source [file join $PKGDIR base64.tcl]] package ifneeded tcl::transform::counter 1 [list source [file join $PKGDIR counter.tcl]] package ifneeded tcl::transform::crc32 1 [list source [file join $PKGDIR crc32.tcl]] package ifneeded tcl::transform::hex 1 [list source [file join $PKGDIR hex.tcl]] package ifneeded tcl::transform::identity 1 [list source [file join $PKGDIR identity.tcl]] package ifneeded tcl::transform::limitsize 1 [list source [file join $PKGDIR limitsize.tcl]] package ifneeded tcl::transform::observe 1 [list source [file join $PKGDIR observe.tcl]] package ifneeded tcl::transform::otp 1 [list source [file join $PKGDIR otp.tcl]] package ifneeded {tcl transform qp} 0.1 [list source [file join $PKGDIR qp.tcl]] package ifneeded tcl::transform::rot 1 [list source [file join $PKGDIR rot.tcl]] package ifneeded tcl::transform::spacer 1 [list source [file join $PKGDIR spacer.tcl]] package ifneeded tcl::transform::zlib 1.0.1 [list source [file join $PKGDIR zlib.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/icons]] package ifneeded icons 2.0 [list source [file join $PKGDIR icons.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/hershey]] package ifneeded hershey 1.0 [list source [file join $PKGDIR hersheyPkg.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/sha1]] package ifneeded sha256 1.0.3 [list source [file join $PKGDIR sha256.tcl]] package ifneeded sha1 2.0.3 [list source [file join $PKGDIR sha1.tcl]] package ifneeded sha1 1.1.1 [list source [file join $PKGDIR sha1v1.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/tao-sqlite]] package ifneeded ::tao::helpdoc 0.1 [list source [file join $PKGDIR yggdrasil.tcl]] package ifneeded tao-sqlite 0.5 [list source [file join $PKGDIR index.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/log]] package ifneeded log 1.4 [list source [file join $PKGDIR log.tcl]] package ifneeded logger 0.9.4 [list source [file join $PKGDIR logger.tcl]] package ifneeded logger::appender 1.3 [list source [file join $PKGDIR loggerAppender.tcl]] package ifneeded logger::utils 1.3 [list source [file join $PKGDIR loggerUtils.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/mime]] package ifneeded smtp 1.5 [list source [file join $PKGDIR smtp.tcl]] package ifneeded mime 1.7 [list source [file join $PKGDIR mime.tcl]] package ifneeded {mime qp} 1.7 [list source [file join $PKGDIR qp.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/snit]] if {[package vsatisfies [package provide Tcl] 8.5]} { package ifneeded snit 2.3.2 \ [list source [file join $PKGDIR snit2.tcl]] } package ifneeded snit 1.4.2 [list source [file join $PKGDIR snit.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/dns]] package ifneeded dns 1.4.0 [list source [file join $PKGDIR dns.tcl]] package ifneeded resolv 1.0.3 [list source [file join $PKGDIR resolv.tcl]] package ifneeded ip 1.4 [list source [file join $PKGDIR ip.tcl]] package ifneeded spf 1.1.1 [list source [file join $PKGDIR spf.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/uri]] package ifneeded uri 1.2.7 [list source [file join $PKGDIR uri.tcl]] package ifneeded uri::urn 1.0.3 [list source [file join $PKGDIR urn-scheme.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/virtchannel_base]] package ifneeded tcl::chan::cat 1.0.2 [list source [file join $PKGDIR cat.tcl]] package ifneeded tcl::chan::facade 1.0.1 [list source [file join $PKGDIR facade.tcl]] package ifneeded tcl::chan::fifo 1 [list source [file join $PKGDIR fifo.tcl]] package ifneeded tcl::chan::fifo2 1 [list source [file join $PKGDIR fifo2.tcl]] package ifneeded tcl::chan::halfpipe 1 [list source [file join $PKGDIR halfpipe.tcl]] package ifneeded tcl::chan::memchan 1.0.4 [list source [file join $PKGDIR memchan.tcl]] package ifneeded tcl::chan::null 1 [list source [file join $PKGDIR null.tcl]] package ifneeded tcl::chan::nullzero 1 [list source [file join $PKGDIR nullzero.tcl]] package ifneeded tcl::chan::random 1 [list source [file join $PKGDIR random.tcl]] package ifneeded tcl::chan::std 1.0.1 [list source [file join $PKGDIR std.tcl]] package ifneeded tcl::chan::string 1.0.3 [list source [file join $PKGDIR string.tcl]] package ifneeded tcl::chan::textwindow 1 [list source [file join $PKGDIR textwindow.tcl]] package ifneeded tcl::chan::variable 1.0.4 [list source [file join $PKGDIR variable.tcl]] package ifneeded tcl::chan::wrapper 1 [list source [file join $PKGDIR wrapper.tcl]] package ifneeded tcl::chan::zero 1 [list source [file join $PKGDIR zero.tcl]] package ifneeded tcl::randomseed 1 [list source [file join $PKGDIR randseed.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/tao]] package ifneeded tao 9.10 [list source [file join $PKGDIR index.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/taotk]] package ifneeded taotk 1.1 [list source [file join $PKGDIR index.tcl]] package ifneeded irm::balloon 0.2 [list source [file join $PKGDIR balloon.tcl]] package ifneeded scrollFrame 1.1 [list source [file join $PKGDIR meta scrollframe.tcl]] package ifneeded tao::sqlitecon 0.1 [list source [file join $PKGDIR classic/widget sqlitecon.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/taotk/widget]] package ifneeded tao::sqlitecon 0.1 [list source [file join $PKGDIR sqlitecon.tcl]] package ifneeded combobox 2.2.2 [list source [file join $PKGDIR combobox.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/taotk/meta]] package ifneeded scrollFrame 1.1 [list source [file join $PKGDIR scrollframe.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] sim]] package ifneeded irm::simrun 0.2 [list source [file join $PKGDIR index.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] sim/gui]] package ifneeded sde::simrun::console 0.1 [list source [file join $PKGDIR consoleapp.tcl]] package ifneeded sim::controlfile 0.1 [list source [file join $PKGDIR controlfile.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/faultexplorer]] package ifneeded sde::faultexplorer::core 1.0 [list source [file join $PKGDIR main.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/analysis]] package ifneeded analysis::report 0.1 [list source [file join $PKGDIR report.tcl]] package ifneeded sde::analysis::core 0.1 [list source [file join $PKGDIR main.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dspecexplorer]] package ifneeded sde::dspecexplorer::schema 1.0 [list source [file join $PKGDIR schema.tcl]] package ifneeded sde::dspecexplorer 1.0 [list source [file join $PKGDIR main.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dispatch]] package ifneeded irm::dispatch::service 1.0 [list source [file join $PKGDIR service.tcl]] package ifneeded irm::dispatch::ui 1.0 [list source [file join $PKGDIR main.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dispatch/httpd]] package ifneeded httpd::dispatch 0.1 [list source [file join $PKGDIR main.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dispatch/scripts]] package ifneeded simrun::dispatch 0.1 [list source [file join $PKGDIR simrun.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dispatch/thread]] package ifneeded dispatch::ftpd 0.1 [list source [file join $PKGDIR ftpd.tcl]] package ifneeded dispatch::httpd 0.1 [list source [file join $PKGDIR httpd.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/tktopdf]] package ifneeded tktocanvas 0.3 [list source [file join $PKGDIR tktocanvas.tcl]] package ifneeded tktopdf 0.5 [list source [file join $PKGDIR tktopdf.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/tktopdf/pdf]] package ifneeded pdf 2.1 [list source [file join $PKGDIR ttfont.tcl]]\n[list source [file join $PKGDIR pdf.tcl]]\n[list source [file join $PKGDIR type1font.tcl]]\n[list source [file join $PKGDIR pdfpublic.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/viewer]] package ifneeded sde::mode::viewer 0.2 [list source [file join $PKGDIR index.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/viewer/tools]] package ifneeded sde::tool::movie 0.1 [list source [file join $PKGDIR movie.tcl]] package ifneeded sde::finder 0.1 [list source [file join $PKGDIR finder.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/viewer/sdetools]] package ifneeded irm::sde::file 0.2 [list source [file join $PKGDIR file.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dame]] package ifneeded sde::mode::dame 0.1 [list source [file join $PKGDIR damage.tcl]] package ifneeded sde::app::dame 0.1 [list source [file join $PKGDIR main.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/playback]] package ifneeded irm::sde::timeline 0.1 [list source [file join $PKGDIR timeline.tcl]] package ifneeded irm::sde::trim 0.1 [list source [file join $PKGDIR trim.tcl]] package ifneeded irm::sde::time 0.1 [list source [file join $PKGDIR time.tcl]] package ifneeded irm::sde::playback 0.1 [list source [file join $PKGDIR main.tcl]] package ifneeded irm::sde::collapse 0.1 [list source [file join $PKGDIR collapse.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/runmode]] package ifneeded irm::sde::rtest 0.1 [list source [file join $PKGDIR rtest.tcl]] package ifneeded sde::mode::runmode 0.1 [list source [file join $PKGDIR index.tcl]] package ifneeded sde::runmode::scotty 0.1 [list source [file join $PKGDIR scotty.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/editor/modes]] package ifneeded sde::mode::creweditor 0.1 [list source [file join $PKGDIR crewedit.tcl]] set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dpe]] package ifneeded irm::sde::dpe::highlight 0.1 [list source [file join $PKGDIR highlight.tcl]] package ifneeded sde::mode::deckeditor 0.1 [list source [file join $PKGDIR index.tcl]] set dir [lindex $::PATHSTACK end] set ::PATHSTACK [lrange $::PATHSTACK 0 end-1] # Advertise statically linked packages foreach {pkg script} [array get ::kitpkg] { eval $script } ### # Cache binary packages distributed as dynamic libraries in a known location ### foreach teapath [glob -nocomplain [file join $dir teapot $::tcl_teapot_profile *]] { set pkg [file tail $teapath] set pkginstall [file join $::tcl_teapot $pkg] if {![file exists $pkginstall]} { installDir $teapath $pkginstall } }