Posted to tcl by hypnotoad at Wed Dec 05 18:21:55 GMT 2018view raw

  1. set ::tcl_teapot_profile {win32-ix86}
  2.  
  3. set ::PKGIDXFILE [info script]
  4. set dir [file dirname $::PKGIDXFILE]
  5. if {$::tcl_platform(platform) eq "windows"} {
  6. set ::g(HOME) [file join [file normalize $::env(LOCALAPPDATA)] tcl]
  7. } else {
  8. set ::g(HOME) [file normalize ~/tcl]
  9. }
  10. set ::tcl_teapot [file join $::g(HOME) teapot $::tcl_teapot_profile]
  11. lappend ::auto_path $::tcl_teapot
  12.  
  13. proc installDir {d1 d2} {
  14. puts [format {%*sCreating %s} [expr {4 * [info level]}] {} [file tail $d2]]
  15. file delete -force -- $d2
  16. file mkdir $d2
  17.  
  18. foreach ftail [glob -directory $d1 -nocomplain -tails *] {
  19. set f [file join $d1 $ftail]
  20. if {[file isdirectory $f] && [string compare CVS $ftail]} {
  21. installDir $f [file join $d2 $ftail]
  22. } elseif {[file isfile $f]} {
  23. file copy -force $f [file join $d2 $ftail]
  24. if {$::tcl_platform(platform) eq {unix}} {
  25. file attributes [file join $d2 $ftail] -permissions 0644
  26. } else {
  27. file attributes [file join $d2 $ftail] -readonly 1
  28. }
  29. }
  30. }
  31.  
  32. if {$::tcl_platform(platform) eq {unix}} {
  33. file attributes $d2 -permissions 0755
  34. } else {
  35. file attributes $d2 -readonly 1
  36. }
  37. }
  38.  
  39. lappend ::PATHSTACK $dir
  40. set IDXPATH [lindex $::PATHSTACK end]
  41. set dir [file join $::IDXPATH pkgs taolib] ; source [file join $dir pkgIndex.tcl]
  42.  
  43. # SINGLE FILE MODULES BEGIN
  44. set dir [lindex $::PATHSTACK end]
  45. package ifneeded irm::pdfreport 0.1 [list source [file join $dir {irm/pdfreport} pdfreport.tcl]]
  46. package ifneeded sde::readi 0.1 [list source [file join $dir {irm/readi_sde} index.tcl]]
  47. package ifneeded irm::scotty 0.1 [list source [file join $dir {irm/scotty} index.tcl]]
  48. package ifneeded irm::icons 0.2 [list source [file join $dir {irm/icons} icons.tcl]]
  49. package ifneeded irm_3d_models 0.1 [list source [file join $dir {irm/model} index.tcl]]
  50. package ifneeded http 2.9.0 [list source [file join $dir {tcl_library/http} http.tcl]]
  51. package ifneeded msgcat 1.6.1 [list source [file join $dir {tcl_library/msgcat} msgcat.tcl]]
  52. package ifneeded tool-db 0.1 [list source [file join $dir {pkgs/modules/tool-db} tool-db.tcl]]
  53. package ifneeded ego 0.1 [list source [file join $dir {pkgs/modules/ego} pkgIndex.tcl]]
  54. package ifneeded ego 0.1 [list source [file join $dir {pkgs/modules/ego} ego.tcl]]
  55. package ifneeded listutil 1.9 [list source [file join $dir {pkgs/modules/listutil} listutil.tcl]]
  56. package ifneeded websocket 1.4.1 [list source [file join $dir {pkgs/modules/websocket} websocket.tcl]]
  57. package ifneeded namespacex 0.1 [list source [file join $dir {pkgs/modules/namespacex} namespacex.tcl]]
  58. package ifneeded taotk-canvas3d 0.1 [list source [file join $dir {pkgs/modules/taotk-canvas3d} index.tcl]]
  59. package ifneeded taotk-form 2.1.1 [list source [file join $dir {pkgs/modules/taotk-form} taotk-form.tcl]]
  60. package ifneeded tao-yggdrasil 0.1 [list source [file join $dir {pkgs/modules/yggdrasil} yggdrasil.tcl]]
  61. package ifneeded Markdown 1.1 [list source [file join $dir {pkgs/modules/markdown} markdown.tcl]]
  62. package ifneeded taotk-layout 0.1 [list source [file join $dir {pkgs/modules/taotk-layout} index.tcl]]
  63. package ifneeded oo::dialect 0.4 [list source [file join $dir {pkgs/modules/oodialect} oodialect.tcl]]
  64. package ifneeded comm 4.6.3.1 [list source [file join $dir {pkgs/modules/comm} comm.tcl]]
  65. package ifneeded htmlparse 1.2.2 [list source [file join $dir {pkgs/modules/htmlparse} htmlparse.tcl]]
  66. package ifneeded cmdline 1.5 [list source [file join $dir {pkgs/modules/cmdline} cmdline.tcl]]
  67. package ifneeded html 1.4.5 [list source [file join $dir {pkgs/modules/html} html.tcl]]
  68. package ifneeded oo::util 1.2.2 [list source [file join $dir {pkgs/modules/ooutil} ooutil.tcl]]
  69. package ifneeded autoscroll 1.1 [list source [file join $dir {pkgs/modules/autoscroll} autoscroll.tcl]]
  70. package ifneeded units 2.2.1 [list source [file join $dir {pkgs/modules/units} units.tcl]]
  71. package ifneeded udpcluster 0.3.3 [list source [file join $dir {pkgs/modules/udpcluster} udpcluster.tcl]]
  72. package ifneeded httpd 4.3.2 [list source [file join $dir {pkgs/modules/httpd} httpd.tcl]]
  73. package ifneeded clay 0.7 [list source [file join $dir {pkgs/modules/clay} clay.tcl]]
  74. package ifneeded tool-stage 0.1 [list source [file join $dir {pkgs/modules/tool-stage} tool-stage.tcl]]
  75. package ifneeded csv 0.8.1 [list source [file join $dir {pkgs/modules/csv} csv.tcl]]
  76. package ifneeded tool-ui 0.2.2 [list source [file join $dir {pkgs/modules/tool-ui} tool-ui.tcl]]
  77. package ifneeded ncgi 1.5.0 [list source [file join $dir {pkgs/modules/ncgi} ncgi.tcl]]
  78. package ifneeded javascript 1.0.2 [list source [file join $dir {pkgs/modules/javascript} javascript.tcl]]
  79. package ifneeded odie::processman 0.5 [list source [file join $dir {pkgs/modules/processman} processman.tcl]]
  80. package ifneeded gridplus 2.11 [list source [file join $dir {pkgs/modules/gridplus} gridplus.tcl]]
  81. package ifneeded uuid 1.0.7 [list source [file join $dir {pkgs/modules/uuid} uuid.tcl]]
  82. package ifneeded cron 2.1.1 [list source [file join $dir {pkgs/modules/cron} cron.tcl]]
  83. package ifneeded sde::mode::editor 0.1 [list source [file join $dir {apps/editor} index.tcl]]
  84. # SINGLE FILE MODULES END
  85. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] libirm]]
  86. package ifneeded irm::constants 3.0 [list source [file join $PKGDIR irminit.tcl]]
  87. package ifneeded irm::simdoc_seed 3.0 [list source [file join $PKGDIR irmdoc.tcl]]
  88. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] launcher]]
  89. package ifneeded irm::app::sim::launchtab 0.1 [list source [file join $PKGDIR sim.tcl]]
  90. package ifneeded sde::launcher 0.1 [list source [file join $PKGDIR main.tcl]]
  91. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/helpdoc]]
  92. package ifneeded irm::htmltools 0.1 [list source [file join $PKGDIR htmltools.tcl]]
  93. package ifneeded irm::helpdoc 0.2 [list source [file join $PKGDIR index.tcl]]
  94. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/helpdoc/sections]]
  95. package ifneeded irm::scriptspecs 0.1 [list source [file join $PKGDIR specs.tcl]]
  96. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/cluster]]
  97. package ifneeded odie-rpc 0.1 [list source [file join $PKGDIR rpc.tcl]]
  98. package ifneeded irm::cluster 0.1 [list source [file join $PKGDIR index.tcl]]
  99. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/cluster/services]]
  100. package ifneeded irm::service::blade 0.1 [list source [file join $PKGDIR blade.tcl]]
  101. package ifneeded irm::service::federate 0.1 [list source [file join $PKGDIR federate.tcl]]
  102. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/irm]]
  103. package ifneeded irm::userhome 0.1 [list source [file join $PKGDIR userhome.tcl]]
  104. package ifneeded irm::utils 0.1 [list source [file join $PKGDIR utils.tcl]]
  105. package ifneeded irm::units 0.3 [list source [file join $PKGDIR units.tcl]]
  106. package ifneeded irm::sim::settingvalue 0.1 [list source [file join $PKGDIR settingvalue.tcl]]
  107. package ifneeded irm::sig 0.1 [list source [file join $PKGDIR sig.tcl]]
  108. package ifneeded irm::math 0.1 [list source [file join $PKGDIR math.tcl]]
  109. package ifneeded irm::docview 0.1 [list source [file join $PKGDIR docview.tcl]]
  110. package ifneeded irm::sim::configure 0.1 [list source [file join $PKGDIR simconfig.tcl]]
  111. package ifneeded irm::dspec 0.1 [list source [file join $PKGDIR dspec.tcl]]
  112. package ifneeded siground 0.1 [list source [file join $PKGDIR round.tcl]]
  113. package ifneeded irm::wizard 0.1 [list source [file join $PKGDIR wizard.tcl]]
  114. package ifneeded canvas3d::shapes 0.1 [list source [file join $PKGDIR c3dshapes.tcl]]
  115. package ifneeded irm::plugin 0.1 [list source [file join $PKGDIR plugin.tcl]]
  116. package ifneeded irm::main 0.2 [list source [file join $PKGDIR main.tcl]]
  117. package ifneeded irm::shapes 0.1 [list source [file join $PKGDIR shapes.tcl]]
  118. package ifneeded irmdb 0.1 [list source [file join $PKGDIR irmdb.tcl]]
  119. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/scotty/core]]
  120. package ifneeded stemmer 0.1 [list source [file join $PKGDIR stemmer.tcl]]
  121. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/legacy]]
  122. package ifneeded irm::chart_classic 0.1 [list source [file join $PKGDIR chart.tcl]]
  123. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/utils]]
  124. package ifneeded csv 0.5.1 [list source [file join $PKGDIR csv.tcl]]
  125. package ifneeded irm::procedit 0.1 [list source [file join $PKGDIR procedit.tcl]]
  126. package ifneeded irm::msgbox 0.1 [list source [file join $PKGDIR msgbox.tcl]]
  127. package ifneeded irm::rpc 0.1 [list source [file join $PKGDIR rpc.tcl]]
  128. package ifneeded irmmd5 0.1 [list source [file join $PKGDIR md5.tcl]]
  129. package ifneeded irm::splash 0.1 [list source [file join $PKGDIR splash.tcl]]
  130. package ifneeded hershey 1.0 [list source [file join $PKGDIR hersheyPkg.tcl]]
  131. package ifneeded irm::printGUI 0.1 [list source [file join $PKGDIR printGUI.tcl]]
  132. package ifneeded clif::graph4 0.1 [list source [file join $PKGDIR graph4.tcl]]
  133. package ifneeded irm::gzstream 0.1 [list source [file join $PKGDIR gzlib.tcl]]
  134. package ifneeded irm::random 0.1 [list source [file join $PKGDIR random.tcl]]
  135. package ifneeded irm::htmlHelp 0.1 [list source [file join $PKGDIR htmlHelp.tcl]]
  136. package ifneeded clif::graphConfig 1.4 [list source [file join $PKGDIR graphConfig.tcl]]
  137. package ifneeded irm::progressBar 0.1 [list source [file join $PKGDIR progressBar.tcl]]
  138. package ifneeded irmmath 0.1 [list source [file join $PKGDIR irmmath.tcl]]
  139. package ifneeded irm::dbedit 0.1 [list source [file join $PKGDIR dbedit.tcl]]
  140. package ifneeded canvaspdf 2.0 [list source [file join $PKGDIR canvaspdf.tcl]]
  141. package ifneeded listutil 1.5 [list source [file join $PKGDIR lutils.tcl]]
  142. package ifneeded htmllib 0.3.4 [list source [file join $PKGDIR htmllib.tcl]]
  143. package ifneeded irm::textbox 0.1 [list source [file join $PKGDIR textbox.tcl]]
  144. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/readi]]
  145. package ifneeded irm::preptools 1.0 [list source [file join $PKGDIR preptools.tcl]]
  146. package ifneeded irm::readi 0.1 [list source [file join $PKGDIR index.tcl]]
  147. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/readi/scripts]]
  148. package ifneeded irm::scripts 0.1 [list source [file join $PKGDIR loader.tcl]]
  149. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/readi/gui]]
  150. package ifneeded irm::readigui 0.1 [list source [file join $PKGDIR index.tcl]]
  151. package ifneeded readi::gui 0.1 [list source [file join $PKGDIR notetab.tcl]]
  152. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/coregui]]
  153. package ifneeded irm::graph 0.1 [list source [file join $PKGDIR graph.tcl]]
  154. package ifneeded coregui 1.0 [list source [file join $PKGDIR index.tcl]]
  155. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/application]]
  156. package ifneeded irm::app::prep 0.1 [list source [file join $PKGDIR prep.tcl]]
  157. package ifneeded irm::app::headless 0.1 [list source [file join $PKGDIR headless.tcl]]
  158. package ifneeded irm::app::console 0.1 [list source [file join $PKGDIR console.tcl]]
  159. package ifneeded irm::app::gui 0.1 [list source [file join $PKGDIR gui.tcl]]
  160. package ifneeded irm::app 0.1 [list source [file join $PKGDIR index.tcl]]
  161. package ifneeded irm::app::launcher 0.1 [list source [file join $PKGDIR launcher.tcl]]
  162. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/regression]]
  163. package ifneeded irm::simrun::regression 0.1 [list source [file join $PKGDIR index.tcl]]
  164. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/modules]]
  165. package ifneeded irm::license::control 0.1 [list source [file join $PKGDIR license.tcl]]
  166. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] irm/pdf4tcl]]
  167. package ifneeded pdf4tcl 0.9.1 [list source [file join $PKGDIR pdf4tcl.tcl]]
  168.  
  169. package ifneeded pdf4tcl::stdmetrics 0.1 [list source [file join $PKGDIR stdmetrics.tcl]]
  170.  
  171. package ifneeded pdf4tcl::glyph2unicode 0.1 [list source [file join $PKGDIR glyph2uni.tcl]]
  172. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] wizard]]
  173. package ifneeded sde::wizards 0.1 [list source [file join $PKGDIR index.tcl]]
  174. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] utils]]
  175. package ifneeded combobox 2.2.2 [list source [file join $PKGDIR tkdiff.tcl]]
  176. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tcl_library/reg]]
  177. source [file join $PKGDIR pkgIndex.tcl]
  178. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tcl_library/dde]]
  179. source [file join $PKGDIR pkgIndex.tcl]
  180. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tcl_library/platform]]
  181. package ifneeded platform 1.0.14 [list source [file join $PKGDIR platform.tcl]]
  182.  
  183. package ifneeded platform::shell 1.1.4 [list source [file join $PKGDIR shell.tcl]]
  184. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tcl_library/opt]]
  185. package ifneeded opt 0.4.6 [list source [file join $PKGDIR optparse.tcl]]
  186. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tcl_library/http1.0]]
  187. 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}}}]
  188. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tk_library/ttk]]
  189. package ifneeded ttk::theme::vista 1.0 [list source [file join $PKGDIR vistaTheme.tcl]]
  190. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/md4]]
  191. package ifneeded md4 1.0.7 [list source [file join $PKGDIR md4.tcl]]
  192. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/nettool]]
  193. package ifneeded nettool::available_ports 0.1 {package require nettool ; package provide nettool::available_ports 0.1}
  194.  
  195. package ifneeded nettool 0.5.2 [list source [file join $PKGDIR nettool.tcl]]
  196. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/tao-onion]]
  197. package ifneeded tao-onion 0.1 [list source [file join $PKGDIR onion.tcl]]
  198. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/md5]]
  199. package ifneeded md5 2.0.7 [list source [file join $PKGDIR md5x.tcl]]
  200.  
  201. package ifneeded md5 1.4.4 [list source [file join $PKGDIR md5.tcl]]
  202. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/rc4]]
  203. package ifneeded rc4 1.1.0 [list source [file join $PKGDIR rc4.tcl]]
  204. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/fileutil]]
  205. package ifneeded fileutil 1.16 [list source [file join $PKGDIR fileutil.tcl]]
  206.  
  207. package ifneeded fileutil::traverse 0.6 [list source [file join $PKGDIR traverse.tcl]]
  208.  
  209. package ifneeded fileutil::multi 0.1 [list source [file join $PKGDIR multi.tcl]]
  210.  
  211. package ifneeded fileutil::multi::op 0.5.3 [list source [file join $PKGDIR multiop.tcl]]
  212.  
  213. package ifneeded fileutil::decode 0.2.1 [list source [file join $PKGDIR decode.tcl]]
  214. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/chan]]
  215. package ifneeded {chan getslimit} 0.1 [list ::apply {dir {
  216. package require ego
  217. namespace eval ::tcllib::chan::getslimit [list ::source $PKGDIR/getslimit.tcl]
  218. package provide {chan getslimit} 0.1
  219. namespace eval ::tcllib::chan {
  220. namespace export getslimit
  221. }
  222. }} $PKGDIR]
  223.  
  224. package ifneeded {chan base} 0.1 [list ::apply {dir {
  225. package require ego
  226. tcllib::ego .new ::tcllib::chan::base
  227. ::tcllib::chan::base .eval [list ::source $PKGDIR/base.tcl]
  228. namespace eval ::tcllib::chan {
  229. namespace export base
  230. }
  231. package provide {chan base} 0.1
  232. }} $PKGDIR]
  233.  
  234. package ifneeded {chan coroutine} 0.1 [list ::apply {dir {
  235. package require ego
  236. namespace eval ::tcllib::chan::coroutine [list ::source $PKGDIR/coroutine.tcl]
  237. package provide {chan coroutine} 0.1
  238. namespace eval ::tcllib::chan {
  239. namespace export coroutine
  240. }
  241. }} $PKGDIR]
  242. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/widget]]
  243. source [file join $PKGDIR pkgIndex.tcl]
  244. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/coroutine]]
  245. package ifneeded coroutine 1.2 [list source [file join $PKGDIR coroutine.tcl]]
  246.  
  247. package ifneeded coroutine::auto 1.1.3 [list source [file join $PKGDIR coro_auto.tcl]]
  248. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/virtchannel_core]]
  249. package ifneeded tcl::chan::core 1 [list source [file join $PKGDIR core.tcl]]
  250.  
  251. package ifneeded tcl::chan::events 1 [list source [file join $PKGDIR events.tcl]]
  252.  
  253. package ifneeded tcl::transform::core 1 [list source [file join $PKGDIR transformcore.tcl]]
  254. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/tao-mvc]]
  255. package ifneeded tao-mvc 0.1 [list source [file join $PKGDIR mvc.tcl]]
  256. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/fumagic]]
  257. package ifneeded fileutil::magic::filetype 2.0 [list source [file join $PKGDIR filetypes.tcl]]
  258.  
  259. package ifneeded fileutil::magic::rt 3.0 [list source [file join $PKGDIR rtcore.tcl]]
  260.  
  261. package ifneeded fileutil::magic::cgen 1.3.0 [list source [file join $PKGDIR cgen.tcl]]
  262.  
  263. package ifneeded fileutil::magic::cfront 1.3.0 [list source [file join $PKGDIR cfront.tcl]]
  264. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/taotk-html]]
  265. package ifneeded taotk-html 0.1 [list source [file join $PKGDIR index.tcl]]
  266. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/odie]]
  267. package ifneeded irm::units 0.3 [list source [file join $PKGDIR index.tcl]]\n[list source [file join $PKGDIR units.tcl]]
  268.  
  269. package ifneeded odie 0.3 [list source [file join $PKGDIR index.tcl]]
  270. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/interp]]
  271. package ifneeded interp 0.1.2 [list source [file join $PKGDIR interp.tcl]]
  272.  
  273. package ifneeded interp::delegate::proc 0.2 [list source [file join $PKGDIR deleg_proc.tcl]]
  274.  
  275. package ifneeded interp::delegate::method 0.2 [list source [file join $PKGDIR deleg_method.tcl]]
  276. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/tao-physics]]
  277. package ifneeded tao-physics 0.1 [list source [file join $PKGDIR index.tcl]]
  278. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/base64]]
  279. package ifneeded base64 2.4.2 [list source [file join $PKGDIR base64.tcl]]
  280.  
  281. package ifneeded uuencode 1.1.5 [list source [file join $PKGDIR uuencode.tcl]]
  282.  
  283. package ifneeded yencode 1.1.3 [list source [file join $PKGDIR yencode.tcl]]
  284.  
  285. package ifneeded ascii85 1.0 [list source [file join $PKGDIR ascii85.tcl]]
  286. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/ctext]]
  287. package ifneeded ctext 3.3 [list source [file join $PKGDIR ctext.tcl]]
  288. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/math]]
  289. source [file join $PKGDIR pkgIndex.tcl]
  290. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/plotchart]]
  291. package ifneeded Plotchart 2.4.1 [list source [file join $PKGDIR plotchart.tcl]]
  292.  
  293. package ifneeded xyplot 1.0.1 [list source [file join $PKGDIR xyplot.tcl]]
  294.  
  295. package ifneeded plotanim 0.2 [list source [file join $PKGDIR plotanim.tcl]]
  296. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/zip]]
  297. package ifneeded zipfile::decode 0.7.1 [list source [file join $PKGDIR decode.tcl]]
  298.  
  299. package ifneeded zipfile::encode 0.4 [list source [file join $PKGDIR encode.tcl]]
  300.  
  301. package ifneeded zipfile::mkzip 1.2 [list source [file join $PKGDIR mkzip.tcl]]
  302. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/json]]
  303. package ifneeded json 1.3.4 [list source [file join $PKGDIR json.tcl]]
  304.  
  305. package ifneeded json::write 1.0.3 [list source [file join $PKGDIR json_write.tcl]]
  306. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/textutil]]
  307. package ifneeded textutil 0.9 [list source [file join $PKGDIR textutil.tcl]]
  308.  
  309. package ifneeded textutil::adjust 0.7.3 [list source [file join $PKGDIR adjust.tcl]]
  310.  
  311. package ifneeded textutil::split 0.8 [list source [file join $PKGDIR split.tcl]]
  312.  
  313. package ifneeded textutil::trim 0.7 [list source [file join $PKGDIR trim.tcl]]
  314.  
  315. package ifneeded textutil::tabify 0.7 [list source [file join $PKGDIR tabify.tcl]]
  316.  
  317. package ifneeded textutil::repeat 0.7 [list source [file join $PKGDIR repeat.tcl]]
  318.  
  319. package ifneeded textutil::string 0.8 [list source [file join $PKGDIR string.tcl]]
  320.  
  321. package ifneeded textutil::expander 1.3.1 [list source [file join $PKGDIR expander.tcl]]
  322.  
  323. package ifneeded textutil::wcswidth 0.1 [list source [file join $PKGDIR wcswidth.tcl]]
  324. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/devtools]]
  325. package ifneeded tcllib::testutils 1.2 [list source [file join $PKGDIR testutilities.tcl]]
  326. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/virtchannel_transform]]
  327. package ifneeded tcl::transform::adler32 1 [list source [file join $PKGDIR adler32.tcl]]
  328.  
  329. package ifneeded tcl::transform::base64 1 [list source [file join $PKGDIR base64.tcl]]
  330.  
  331. package ifneeded tcl::transform::counter 1 [list source [file join $PKGDIR counter.tcl]]
  332.  
  333. package ifneeded tcl::transform::crc32 1 [list source [file join $PKGDIR crc32.tcl]]
  334.  
  335. package ifneeded tcl::transform::hex 1 [list source [file join $PKGDIR hex.tcl]]
  336.  
  337. package ifneeded tcl::transform::identity 1 [list source [file join $PKGDIR identity.tcl]]
  338.  
  339. package ifneeded tcl::transform::limitsize 1 [list source [file join $PKGDIR limitsize.tcl]]
  340.  
  341. package ifneeded tcl::transform::observe 1 [list source [file join $PKGDIR observe.tcl]]
  342.  
  343. package ifneeded tcl::transform::otp 1 [list source [file join $PKGDIR otp.tcl]]
  344.  
  345. package ifneeded {tcl transform qp} 0.1 [list source [file join $PKGDIR qp.tcl]]
  346.  
  347. package ifneeded tcl::transform::rot 1 [list source [file join $PKGDIR rot.tcl]]
  348.  
  349. package ifneeded tcl::transform::spacer 1 [list source [file join $PKGDIR spacer.tcl]]
  350.  
  351. package ifneeded tcl::transform::zlib 1.0.1 [list source [file join $PKGDIR zlib.tcl]]
  352. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/icons]]
  353. package ifneeded icons 2.0 [list source [file join $PKGDIR icons.tcl]]
  354. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/hershey]]
  355. package ifneeded hershey 1.0 [list source [file join $PKGDIR hersheyPkg.tcl]]
  356. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/sha1]]
  357. package ifneeded sha256 1.0.3 [list source [file join $PKGDIR sha256.tcl]]
  358.  
  359. package ifneeded sha1 2.0.3 [list source [file join $PKGDIR sha1.tcl]]
  360.  
  361. package ifneeded sha1 1.1.1 [list source [file join $PKGDIR sha1v1.tcl]]
  362. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/tao-sqlite]]
  363. package ifneeded ::tao::helpdoc 0.1 [list source [file join $PKGDIR yggdrasil.tcl]]
  364.  
  365. package ifneeded tao-sqlite 0.5 [list source [file join $PKGDIR index.tcl]]
  366. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/log]]
  367. package ifneeded log 1.4 [list source [file join $PKGDIR log.tcl]]
  368.  
  369. package ifneeded logger 0.9.4 [list source [file join $PKGDIR logger.tcl]]
  370.  
  371. package ifneeded logger::appender 1.3 [list source [file join $PKGDIR loggerAppender.tcl]]
  372.  
  373. package ifneeded logger::utils 1.3 [list source [file join $PKGDIR loggerUtils.tcl]]
  374. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/mime]]
  375. package ifneeded smtp 1.5 [list source [file join $PKGDIR smtp.tcl]]
  376.  
  377. package ifneeded mime 1.7 [list source [file join $PKGDIR mime.tcl]]
  378.  
  379. package ifneeded {mime qp} 1.7 [list source [file join $PKGDIR qp.tcl]]
  380. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/snit]]
  381. if {[package vsatisfies [package provide Tcl] 8.5]} {
  382. package ifneeded snit 2.3.2 \
  383. [list source [file join $PKGDIR snit2.tcl]]
  384. }
  385.  
  386. package ifneeded snit 1.4.2 [list source [file join $PKGDIR snit.tcl]]
  387. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/dns]]
  388. package ifneeded dns 1.4.0 [list source [file join $PKGDIR dns.tcl]]
  389.  
  390. package ifneeded resolv 1.0.3 [list source [file join $PKGDIR resolv.tcl]]
  391.  
  392. package ifneeded ip 1.4 [list source [file join $PKGDIR ip.tcl]]
  393.  
  394. package ifneeded spf 1.1.1 [list source [file join $PKGDIR spf.tcl]]
  395. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/uri]]
  396. package ifneeded uri 1.2.7 [list source [file join $PKGDIR uri.tcl]]
  397.  
  398. package ifneeded uri::urn 1.0.3 [list source [file join $PKGDIR urn-scheme.tcl]]
  399. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/virtchannel_base]]
  400. package ifneeded tcl::chan::cat 1.0.2 [list source [file join $PKGDIR cat.tcl]]
  401.  
  402. package ifneeded tcl::chan::facade 1.0.1 [list source [file join $PKGDIR facade.tcl]]
  403.  
  404. package ifneeded tcl::chan::fifo 1 [list source [file join $PKGDIR fifo.tcl]]
  405.  
  406. package ifneeded tcl::chan::fifo2 1 [list source [file join $PKGDIR fifo2.tcl]]
  407.  
  408. package ifneeded tcl::chan::halfpipe 1 [list source [file join $PKGDIR halfpipe.tcl]]
  409.  
  410. package ifneeded tcl::chan::memchan 1.0.4 [list source [file join $PKGDIR memchan.tcl]]
  411.  
  412. package ifneeded tcl::chan::null 1 [list source [file join $PKGDIR null.tcl]]
  413.  
  414. package ifneeded tcl::chan::nullzero 1 [list source [file join $PKGDIR nullzero.tcl]]
  415.  
  416. package ifneeded tcl::chan::random 1 [list source [file join $PKGDIR random.tcl]]
  417.  
  418. package ifneeded tcl::chan::std 1.0.1 [list source [file join $PKGDIR std.tcl]]
  419.  
  420. package ifneeded tcl::chan::string 1.0.3 [list source [file join $PKGDIR string.tcl]]
  421.  
  422. package ifneeded tcl::chan::textwindow 1 [list source [file join $PKGDIR textwindow.tcl]]
  423.  
  424. package ifneeded tcl::chan::variable 1.0.4 [list source [file join $PKGDIR variable.tcl]]
  425.  
  426. package ifneeded tcl::chan::wrapper 1 [list source [file join $PKGDIR wrapper.tcl]]
  427.  
  428. package ifneeded tcl::chan::zero 1 [list source [file join $PKGDIR zero.tcl]]
  429.  
  430. package ifneeded tcl::randomseed 1 [list source [file join $PKGDIR randseed.tcl]]
  431. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/tao]]
  432. package ifneeded tao 9.10 [list source [file join $PKGDIR index.tcl]]
  433. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/taotk]]
  434. package ifneeded taotk 1.1 [list source [file join $PKGDIR index.tcl]]
  435.  
  436. package ifneeded irm::balloon 0.2 [list source [file join $PKGDIR balloon.tcl]]
  437.  
  438. package ifneeded scrollFrame 1.1 [list source [file join $PKGDIR meta scrollframe.tcl]]
  439.  
  440. package ifneeded tao::sqlitecon 0.1 [list source [file join $PKGDIR classic/widget sqlitecon.tcl]]
  441. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/taotk/widget]]
  442. package ifneeded tao::sqlitecon 0.1 [list source [file join $PKGDIR sqlitecon.tcl]]
  443. package ifneeded combobox 2.2.2 [list source [file join $PKGDIR combobox.tcl]]
  444. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] pkgs/modules/taotk/meta]]
  445. package ifneeded scrollFrame 1.1 [list source [file join $PKGDIR scrollframe.tcl]]
  446. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] sim]]
  447. package ifneeded irm::simrun 0.2 [list source [file join $PKGDIR index.tcl]]
  448. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] sim/gui]]
  449. package ifneeded sde::simrun::console 0.1 [list source [file join $PKGDIR consoleapp.tcl]]
  450. package ifneeded sim::controlfile 0.1 [list source [file join $PKGDIR controlfile.tcl]]
  451. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/faultexplorer]]
  452. package ifneeded sde::faultexplorer::core 1.0 [list source [file join $PKGDIR main.tcl]]
  453. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/analysis]]
  454. package ifneeded analysis::report 0.1 [list source [file join $PKGDIR report.tcl]]
  455. package ifneeded sde::analysis::core 0.1 [list source [file join $PKGDIR main.tcl]]
  456. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dspecexplorer]]
  457. package ifneeded sde::dspecexplorer::schema 1.0 [list source [file join $PKGDIR schema.tcl]]
  458. package ifneeded sde::dspecexplorer 1.0 [list source [file join $PKGDIR main.tcl]]
  459. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dispatch]]
  460. package ifneeded irm::dispatch::service 1.0 [list source [file join $PKGDIR service.tcl]]
  461. package ifneeded irm::dispatch::ui 1.0 [list source [file join $PKGDIR main.tcl]]
  462. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dispatch/httpd]]
  463. package ifneeded httpd::dispatch 0.1 [list source [file join $PKGDIR main.tcl]]
  464. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dispatch/scripts]]
  465. package ifneeded simrun::dispatch 0.1 [list source [file join $PKGDIR simrun.tcl]]
  466. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dispatch/thread]]
  467. package ifneeded dispatch::ftpd 0.1 [list source [file join $PKGDIR ftpd.tcl]]
  468. package ifneeded dispatch::httpd 0.1 [list source [file join $PKGDIR httpd.tcl]]
  469. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/tktopdf]]
  470. package ifneeded tktocanvas 0.3 [list source [file join $PKGDIR tktocanvas.tcl]]
  471.  
  472. package ifneeded tktopdf 0.5 [list source [file join $PKGDIR tktopdf.tcl]]
  473. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/tktopdf/pdf]]
  474. 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]]
  475. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/viewer]]
  476. package ifneeded sde::mode::viewer 0.2 [list source [file join $PKGDIR index.tcl]]
  477. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/viewer/tools]]
  478. package ifneeded sde::tool::movie 0.1 [list source [file join $PKGDIR movie.tcl]]
  479. package ifneeded sde::finder 0.1 [list source [file join $PKGDIR finder.tcl]]
  480. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/viewer/sdetools]]
  481. package ifneeded irm::sde::file 0.2 [list source [file join $PKGDIR file.tcl]]
  482. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dame]]
  483. package ifneeded sde::mode::dame 0.1 [list source [file join $PKGDIR damage.tcl]]
  484. package ifneeded sde::app::dame 0.1 [list source [file join $PKGDIR main.tcl]]
  485. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/playback]]
  486. package ifneeded irm::sde::timeline 0.1 [list source [file join $PKGDIR timeline.tcl]]
  487. package ifneeded irm::sde::trim 0.1 [list source [file join $PKGDIR trim.tcl]]
  488. package ifneeded irm::sde::time 0.1 [list source [file join $PKGDIR time.tcl]]
  489. package ifneeded irm::sde::playback 0.1 [list source [file join $PKGDIR main.tcl]]
  490. package ifneeded irm::sde::collapse 0.1 [list source [file join $PKGDIR collapse.tcl]]
  491. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/runmode]]
  492. package ifneeded irm::sde::rtest 0.1 [list source [file join $PKGDIR rtest.tcl]]
  493. package ifneeded sde::mode::runmode 0.1 [list source [file join $PKGDIR index.tcl]]
  494. package ifneeded sde::runmode::scotty 0.1 [list source [file join $PKGDIR scotty.tcl]]
  495. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/editor/modes]]
  496. package ifneeded sde::mode::creweditor 0.1 [list source [file join $PKGDIR crewedit.tcl]]
  497. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] apps/dpe]]
  498. package ifneeded irm::sde::dpe::highlight 0.1 [list source [file join $PKGDIR highlight.tcl]]
  499. package ifneeded sde::mode::deckeditor 0.1 [list source [file join $PKGDIR index.tcl]]
  500.  
  501. set dir [lindex $::PATHSTACK end]
  502. set ::PATHSTACK [lrange $::PATHSTACK 0 end-1]
  503.  
  504.  
  505. # Advertise statically linked packages
  506. foreach {pkg script} [array get ::kitpkg] {
  507. eval $script
  508. }
  509.  
  510.  
  511. ###
  512. # Cache binary packages distributed as dynamic libraries in a known location
  513. ###
  514. foreach teapath [glob -nocomplain [file join $dir teapot $::tcl_teapot_profile *]] {
  515. set pkg [file tail $teapath]
  516. set pkginstall [file join $::tcl_teapot $pkg]
  517. if {![file exists $pkginstall]} {
  518. installDir $teapath $pkginstall
  519. }
  520. }
  521.