From d5b56fc5bc88247af0b98337ee274d3e0dd0ef10 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Thu, 19 Jun 2008 19:11:07 -0500
Subject: [PATCH] builder.release.archive: temporary workaround for macosx dmg
 layout

---
 extra/builder/release/archive/archive.factor | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/extra/builder/release/archive/archive.factor b/extra/builder/release/archive/archive.factor
index 9b239da586..25153436e6 100644
--- a/extra/builder/release/archive/archive.factor
+++ b/extra/builder/release/archive/archive.factor
@@ -24,12 +24,23 @@ IN: builder.release.archive
 
 : windows-archive-cmd ( -- cmd ) { "zip" "-r" archive-name "factor" } ;
 
+! : macosx-archive-cmd ( -- cmd )
+!   { "hdiutil" "create"
+!               "-srcfolder" "factor"
+!               "-fs" "HFS+"
+!               "-volname" "factor"
+!               archive-name } ;
+
 : macosx-archive-cmd ( -- cmd )
+  { "mkdir" "dmg-root" }                         try-process
+  { "cp" "-r" "factor" "dmg-root" }              try-process
   { "hdiutil" "create"
-              "-srcfolder" "factor"
+              "-srcfolder" "dmg-root"
               "-fs" "HFS+"
               "-volname" "factor"
-              archive-name } ;
+              archive-name }          to-strings try-process
+  { "rm" "-rf" "dmg-root" }                      try-process
+  { "true" } ;
 
 : unix-archive-cmd ( -- cmd ) { "tar" "-cvzf" archive-name "factor" } ;