[103633] users/cal/base-sqlite-portindex/src/macports1.0/macports_fastload. tcl.in

[cal at macports.org]

Revision: 103633
          https://trac.macports.org/changeset/103633
Author:   cal at macports.org
Date:     2013-03-03 12:54:10 -0800 (Sun, 03 Mar 2013)
Log Message:
-----------
macports_fastload.tcl: support using tcllib packages (and include stooop)

Modified Paths:
--------------
    users/cal/base-sqlite-portindex/src/macports1.0/macports_fastload.tcl.in

Modified: users/cal/base-sqlite-portindex/src/macports1.0/macports_fastload.tcl.in
===================================================================
--- users/cal/base-sqlite-portindex/src/macports1.0/macports_fastload.tcl.in	2013-03-03 20:52:27 UTC (rev 103632)
+++ users/cal/base-sqlite-portindex/src/macports1.0/macports_fastload.tcl.in	2013-03-03 20:54:10 UTC (rev 103633)
@@ -82,10 +82,23 @@
     }
 }
 
-if { "@SQLITE3_TCL_DIR@" != "" } {
+if {"@SQLITE3_TCL_DIR@" != ""} {
     set dir "@SQLITE3_TCL_DIR@"
     set pkgindex [file join $dir pkgIndex.tcl]
     if [file exists $pkgindex] {
         source $pkgindex
     }
 }
+
+if {"@TCLLIB_DIR@" != ""} {
+    set parentdir "@TCLLIB_DIR@"
+    # add any packages from TclLib you need here
+    foreach pkgname [list stooop] {
+        # pkgIndex.tcl uses $dir!
+        set dir [file join $parentdir $pkgname]
+        set pkgindex [file join $dir pkgIndex.tcl]
+        if [file exists $pkgindex] {
+            source $pkgindex
+        }
+    }
+}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130303/3d906f79/attachment.html>