Tcl Source Code

Artifact d0cecd050c6ac0b0232ad029dfaa4acfd0547fb3:

Attachment "mkcache.tcl" to ticket [680169ffff] added by jenglish 2003-12-16 06:49:57.

---

if {![info exists tcl::pkgCache]} {
    error "tcl::pkgCache not set.  Exiting"
}

tclLog "Clearing package cache..."
foreach package [package names] {
    foreach version [package versions $package] {
	package forget $package $version
    }
}

tclLog "Prime package cache:"
tclPkgUnknown Tcl 8.4

tclLog "Regenerating $::tcl::pkgCache"
set fp [open $::tcl::pkgCache w]
foreach package [package names] {
    foreach version [package versions $package] {
	puts $fp [list package ifneeded $package $version \
		      [package ifneeded $package $version]]
    }
}
close $fp

tclLog "Done."