[36953] branches/variant-descs-14482/base/src/macports1.0/macports.tcl

[raimue at macports.org]

Revision: 36953
          http://trac.macosforge.org/projects/macports/changeset/36953
Author:   raimue at macports.org
Date:     2008-05-20 19:22:04 -0700 (Tue, 20 May 2008)

Log Message:
-----------
macports1.0/macports.tcl:
Give the worker access to variable porturl and proc getsourceconfigdir

Modified Paths:
--------------
    branches/variant-descs-14482/base/src/macports1.0/macports.tcl

Modified: branches/variant-descs-14482/base/src/macports1.0/macports.tcl
===================================================================
--- branches/variant-descs-14482/base/src/macports1.0/macports.tcl	2008-05-21 02:20:27 UTC (rev 36952)
+++ branches/variant-descs-14482/base/src/macports1.0/macports.tcl	2008-05-21 02:22:04 UTC (rev 36953)
@@ -48,7 +48,7 @@
         universal_target universal_sysroot universal_archs"
     variable user_options "submitter_name submitter_email submitter_key"
     variable portinterp_options "\
-        portdbpath portpath portbuildpath auto_path prefix prefix_frozen x11prefix portsharepath \
+        portdbpath porturl portpath portbuildpath auto_path prefix prefix_frozen x11prefix portsharepath \
         registry.path registry.format registry.installtype portarchivemode portarchivepath \
         portarchivetype portautoclean porttrace portverbose destroot_umask rsync_server \
         rsync_options rsync_dir startupitem_type place_worksymlink \
@@ -698,7 +698,7 @@
     }
 }
 
-proc macports::worker_init {workername portpath portbuildpath options variations} {
+proc macports::worker_init {workername portpath porturl portbuildpath options variations} {
     global macports::portinterp_options macports::portinterp_deferred_options registry.installtype
 
     # Hide any Tcl commands that should be inaccessible to port1.0 and Portfiles
@@ -737,6 +737,7 @@
     # Export some utility functions defined here.
     $workername alias macports_create_thread macports::create_thread
     $workername alias getportworkpath_from_buildpath macports::getportworkpath_from_buildpath
+    $workername alias getsourceconfigdir macports::getsourceconfigdir
 
     # New Registry/Receipts stuff
     $workername alias registry_new registry::new_entry
@@ -961,7 +962,7 @@
     ditem_key $mport variations $variations
     ditem_key $mport refcnt 1
     
-    macports::worker_init $workername $portpath [macports::getportbuildpath $portpath] $options $variations
+    macports::worker_init $workername $portpath $porturl [macports::getportbuildpath $portpath] $options $variations
 
     $workername eval source Portfile
 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080520/5eb74158/attachment.htm