Changeset 1018 for trunk/lang/tcl/pkgIndex.tcl.in

Timestamp:

Jun 8, 2008 6:24:34 PM (16 years ago)

Author:

gah

Message:

Massive changes: New directory/file layout

Location:

trunk/lang

Files:

• . (added)
• tcl (moved) (moved from trunk/src/tcl)
• tcl/pkgIndex.tcl.in (modified) (1 diff)

trunk/lang/tcl/pkgIndex.tcl.in

@@ -1 @@
-# this file identifies Rappture as a Tcl package
-package ifneeded Rappture @PACKAGE_VERSION@ [list source [file join $dir init.tcl]]
-namespace eval Rappture {}
-set Rappture::installdir [file join $dir]
-if {"." == $Rappture::installdir} {
-        set installdir [pwd]
-}
+package ifneeded Rappture @PACKAGE_VERSION@ [format {
+    set dir "%s"
+    set version @PACKAGE_VERSION@
+    lappend auto_path [file join $dir scripts]
+    namespace eval Rappture {
+        variable version $version
+        variable installdir [file normalize $dir]
+    }
+    namespace eval Rappture::LibraryObj {
+        #empty
+    }
+    set ext [info sharedlibextension] 
+    load [file join $dir "Rappture${version}${ext}"]
+    package provide Rappture $version
+} $dir]