[68206] trunk/base/src/port1.0/portutil.tcl

[raimue at macports.org]

Revision: 68206
          http://trac.macports.org/changeset/68206
Author:   raimue at macports.org
Date:     2010-05-28 17:53:00 -0700 (Fri, 28 May 2010)
Log Message:
-----------
port1.0:
Remove support for include statements
http://lists.macosforge.org/pipermail/macports-dev/2010-May/011998.html

Modified Paths:
--------------
    trunk/base/src/port1.0/portutil.tcl

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2010-05-29 00:47:52 UTC (rev 68205)
+++ trunk/base/src/port1.0/portutil.tcl	2010-05-29 00:53:00 UTC (rev 68206)
@@ -1134,32 +1134,6 @@
     return
 }
 
-# filefindbypath
-# Provides searching of the standard path for included files
-proc filefindbypath {fname} {
-    global distpath filesdir worksrcdir portpath
-
-    if {[file readable $portpath/$fname]} {
-        return $portpath/$fname
-    } elseif {[file readable $portpath/$filesdir/$fname]} {
-        return $portpath/$filesdir/$fname
-    } elseif {[file readable $distpath/$fname]} {
-        return $distpath/$fname
-    }
-    return ""
-}
-
-# include
-# Source a file, looking for it along a standard search path.
-proc include {fname} {
-    set tgt [filefindbypath $fname]
-    if {[string length $tgt]} {
-        uplevel "source $tgt"
-    } else {
-        return -code error "Unable to find include file $fname"
-    }
-}
-
 # makeuserproc
 # This procedure re-writes the user-defined custom target to include
 # all the globals in its scope.  This is undeniably ugly, but I haven't
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100528/f6569198/attachment.html>