/usr/share/tcltk/vfs1.3/pkgIndex.tcl is in tcl-vfs 1.3-20080503-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 | # Tcl package index file, version 1.1
# This file was generated by hand.
#
# This will be autogenerated by configure to use the correct name
# for the vfs dynamic library.
# We don't really want to throw an error with older versions of
# Tcl, they should just ignore us.
if {[package provide Tcl] < 8.4} {
return
}
package require Tcl 8.4
namespace eval ::vfs {}
variable vfs::dll [file join /usr/lib vfs1.3 libvfs1.3.so]
proc loadvfs {dir dll} {
global auto_path
if {![file exists $dll]} { return }
if {[lsearch -exact $auto_path $dir] == -1} {
lappend auto_path $dir
}
load $dll
}
package ifneeded vfs 1.3 [list loadvfs $dir $vfs::dll]
# Allow optional redirect of VFS_LIBRARY components. Only necessary
# for testing, but could be used elsewhere.
if {[info exists ::env(VFS_LIBRARY)]} { set dir $::env(VFS_LIBRARY) }
package ifneeded starkit 1.3.2 [list source [file join $dir starkit.tcl]]
package ifneeded vfslib 1.3.1 [list source [file join $dir vfslib.tcl]]
# Old
package ifneeded mk4vfs 1.10.1 [list source [file join $dir mk4vfscompat.tcl]]
package ifneeded zipvfs 1.0.1 [list source [file join $dir zipvfscompat.tcl]]
# New, for the old, keep version numbers synchronized.
package ifneeded vfs::mk4 1.10.1 [list source [file join $dir mk4vfs.tcl]]
package ifneeded vfs::zip 1.0.1 [list source [file join $dir zipvfs.tcl]]
# New
package ifneeded vfs::ftp 1.0 [list source [file join $dir ftpvfs.tcl]]
package ifneeded vfs::http 0.6 [list source [file join $dir httpvfs.tcl]]
package ifneeded vfs::ns 0.5 [list source [file join $dir tclprocvfs.tcl]]
package ifneeded vfs::tar 0.9 [list source [file join $dir tarvfs.tcl]]
package ifneeded vfs::test 1.0 [list source [file join $dir testvfs.tcl]]
package ifneeded vfs::urltype 1.0 [list source [file join $dir vfsUrl.tcl]]
package ifneeded vfs::webdav 0.1 [list source [file join $dir webdavvfs.tcl]]
package ifneeded vfs::tk 0.5 [list source [file join $dir tkvfs.tcl]]
#
# Virtual filesystems based on the template vfs:
#
package ifneeded vfs::template::collate 1.0 [list source [file join $dir template collatevfs.tcl]]
package ifneeded vfs::template::version 1.0 [list source [file join $dir template versionvfs.tcl]]
package ifneeded vfs::template::version::delta 1.0 [list source [file join $dir template deltavfs.tcl]]
package ifneeded vfs::template::fish 1.0 [list source [file join $dir template fishvfs.tcl]]
package ifneeded vfs::template::quota 1.0 [list source [file join $dir template quotavfs.tcl]]
package ifneeded vfs::template 1.0 [list source [file join $dir template templatevfs.tcl]]
#
# Helpers
#
package ifneeded globfind 1.0 [list source [file join $dir template globfind.tcl]]
package ifneeded trsync 1.0 [list source [file join $dir template tdelta.tcl]]
|