[103642] users/cal/base-rewrite/src/macports2.0/fastload.tcl.in

[cal at macports.org]

Revision: 103642
          https://trac.macports.org/changeset/103642
Author:   cal at macports.org
Date:     2013-03-03 13:32:05 -0800 (Sun, 03 Mar 2013)
Log Message:
-----------
add new version of macports_fastload.tcl.in

Note: This file currently uses auto_path, but I have decided auto_path
does meet the requirements we have and manually including pkgIndex.tcl
is a better solution. I will change this in the future.

Added Paths:
-----------
    users/cal/base-rewrite/src/macports2.0/fastload.tcl.in

Added: users/cal/base-rewrite/src/macports2.0/fastload.tcl.in
===================================================================
--- users/cal/base-rewrite/src/macports2.0/fastload.tcl.in	                        (rev 0)
+++ users/cal/base-rewrite/src/macports2.0/fastload.tcl.in	2013-03-03 21:32:05 UTC (rev 103642)
@@ -0,0 +1,52 @@
+# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4
+# vim:tw=80
+# fastload.tcl.in
+# $Id$
+#
+# Copyright (c) 2005-2007, 2009-2013 The MacPorts Project
+# Copyright (c) 2004-2005 Paul Guyot, The MacPorts Project.
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+# 3. Neither the name of The MacPorts Project nor the names of its contributors
+#    may be used to endorse or promote products derived from this software
+#    without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+
+# This script is here to prime the Tcl interpreter with knowledge about all the
+# MacPorts-related packages.
+
+proc append_to_autopath {dir} {
+    if {[file exists $dir]} {
+        if {[lsearch -exact $::auto_path $dir] == -1} {
+            lappend ::auto_path $dir
+        }
+    }
+}
+
+# clear auto_path, set up from scratch with out paths
+set $::auto_path {}
+append_to_autopath [file normalize [file join [file dirname [info script]] ..]]
+append_to_autopath "@SQLITE3_TCL_DIR@"
+append_to_autopath [file join "@TCLLIB_DIR@" "stooop"]
+
+# keep the namespace clean by removing the command
+rename append_to_autopath {}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130303/97feaa0a/attachment.html>