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

[source_changes at macosforge.org]

Revision: 24148
          http://trac.macosforge.org/projects/macports/changeset/24148
Author:   pipping at macports.org
Date:     2007-04-17 09:35:18 -0700 (Tue, 17 Apr 2007)

Log Message:
-----------
 * add functions 'backup' and 'lipo' along with some description
   to be used for lipo-based universal variants, tested with openssl

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

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2007-04-17 15:09:38 UTC (rev 24147)
+++ trunk/base/src/port1.0/portutil.tcl	2007-04-17 16:35:18 UTC (rev 24148)
@@ -922,6 +922,38 @@
     eval "proc $name {} $body"
 }
 
+# backup
+# Operates on universal_filelist, creates universal_archlist
+# Save single-architecture files, a temporary location, preserving the original
+# directory structure.
+
+proc backup {arch} {
+    global universal_archlist universal_filelist workpath
+    lappend universal_archlist ${arch}
+    foreach file ${universal_filelist} {
+        set filedir [file dirname $file]
+        xinstall -d ${workpath}/${arch}/${filedir}
+        xinstall ${file} ${workpath}/${arch}/${filedir}
+    }
+}
+
+# lipo
+# Operates on universal_filelist, universal_archlist.
+# Run lipo(1) on a list of single-arch files.
+
+proc lipo {} {
+    global universal_archlist universal_filelist workpath
+    foreach file ${universal_filelist} {
+        xinstall -d [file dirname $file]
+        file delete ${file}
+        set lipoSources ""
+        foreach arch $universal_archlist {
+            append lipoSources "-arch ${arch} ${workpath}/${arch}/${file} "
+        }
+        system "lipo ${lipoSources}-create -output ${file}"
+    }
+}
+
 ########### Internal Dependency Manipulation Procedures ###########
 
 proc target_run {ditem} {

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070417/fa0f85ca/attachment.html