Changeset 68206


Ignore:
Timestamp:
May 29, 2010, 12:53:00 AM (10 years ago)
Author:
raimue@…
Message:

port1.0:
Remove support for include statements
http://lists.macosforge.org/pipermail/macports-dev/2010-May/011998.html

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r67763 r68206  
    11351135}
    11361136
    1137 # filefindbypath
    1138 # Provides searching of the standard path for included files
    1139 proc filefindbypath {fname} {
    1140     global distpath filesdir worksrcdir portpath
    1141 
    1142     if {[file readable $portpath/$fname]} {
    1143         return $portpath/$fname
    1144     } elseif {[file readable $portpath/$filesdir/$fname]} {
    1145         return $portpath/$filesdir/$fname
    1146     } elseif {[file readable $distpath/$fname]} {
    1147         return $distpath/$fname
    1148     }
    1149     return ""
    1150 }
    1151 
    1152 # include
    1153 # Source a file, looking for it along a standard search path.
    1154 proc include {fname} {
    1155     set tgt [filefindbypath $fname]
    1156     if {[string length $tgt]} {
    1157         uplevel "source $tgt"
    1158     } else {
    1159         return -code error "Unable to find include file $fname"
    1160     }
    1161 }
    1162 
    11631137# makeuserproc
    11641138# This procedure re-writes the user-defined custom target to include
Note: See TracChangeset for help on using the changeset viewer.