Changeset 1590 for trunk/base


Ignore:
Timestamp:
Jan 7, 2003, 5:18:50 AM (17 years ago)
Author:
landonf (Landon Fuller)
Message:

Ensure that the prefix gets to the port API.
This file needs a clean-up ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/darwinports1.0/darwinports.tcl

    r1522 r1590  
    8686                foreach option $bootstrap_options {
    8787                    if {[regexp "^$option\[ \t\]+(\[A-Za-z0-9\./\]+$)" $line match val] == 1} {
    88                         set $option $val
     88                        set darwinports::$option $val
     89                        global darwinports::$option
    8990                    }
    9091                }
     
    137138    if [file isdirectory $libpath] {
    138139        lappend auto_path $libpath
     140        set darwinports::auto_path $auto_path
    139141    } else {
    140142        return -code error "Library directory '$libpath' must exist"
     
    143145
    144146proc darwinports::worker_init {workername portpath options variations} {
    145     global darwinports::uniqid darwinports::portinterp_options darwinports::portdbpath darwinports::portconf auto_path \
    146         darwinports::portsharepath darwinports::prefix
     147    global darwinports::uniqid darwinports::portinterp_options auto_path
     148
    147149    # Create package require abstraction procedure
    148150    $workername eval "proc PortSystem \{version\} \{ \n\
     
    159161
    160162    foreach opt $portinterp_options {
     163        if ![info exists $opt] {
     164            global darwinports::$opt
     165        }
    161166        if [info exists $opt] {
    162167            $workername eval set system_options($opt) \"[set $opt]\"
     
    261266    regsub -all {/} $source_dir {_} source_dir
    262267    return [file join $portdbpath sources $source_dir PortIndex]
    263 }
    264 
    265 # Provide the notion of "forcing" an action.
    266 proc ports_force {val} {
    267     global system_options
    268 
    269     set system_options(ports_force) $val
    270268}
    271269
Note: See TracChangeset for help on using the changeset viewer.