Changeset 30781 for trunk/base

Timestamp:

Nov 6, 2007, 11:37:54 PM (12 years ago)

Author:

afb@…

Message:

pass package.flat option on

File:

• trunk/base/src/package1.0/portmpkg.tcl (modified) (4 diffs)

trunk/base/src/package1.0/portmpkg.tcl

@@ -40 +40 @@
 
 # define options
-options package.destpath
+options package.destpath package.flat
 
 set_ui_prefix
 
 proc mpkg_main {args} {
-    global portname portversion portrevision package.destpath UI_PREFIX
+    global portname portversion portrevision package.destpath package.flat UI_PREFIX
 
     # Make sure the destination path exists.
@@ -88 +88 @@
 
 proc make_one_package {portname portversion destination} {
-        global prefix package.destpath 
+        global prefix package.destpath package.flat
         if {[catch {set res [mport_search "^$portname\$"]} result]} {
                 global errorInfo
@@ -101 +101 @@
                         # only the prefix gets passed to the worker.
                         ui_debug "building dependency package: $portname"
-                        set worker [mport_open $portinfo(porturl) [list prefix $prefix package.destpath ${destination}] {} yes]
+                        set worker [mport_open $portinfo(porturl) [list prefix $prefix package.destpath ${destination} package.flat ${package.flat}] {} yes]
                         mport_exec $worker pkg
                         mport_close $worker
@@ -110 +110 @@
 
 proc package_mpkg {portname portversion portrevision} {
-    global portdbpath destpath workpath prefix portresourcepath description package.destpath long_description homepage depends_run depends_lib
+    global portdbpath destpath workpath prefix portresourcepath description package.destpath package.flat long_description homepage depends_run depends_lib
 
         set pkgpath ${package.destpath}/${portname}-${portversion}.pkg