[PD-cvs] SF.net SVN: pure-data: [10154] branches/pd-extended/v0-40

[eighthave at users.sourceforge.net]

Revision: 10154
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10154&view=rev
Author:   eighthave
Date:     2008-07-09 17:14:28 -0700 (Wed, 09 Jul 2008)

Log Message:
-----------
- fixed regsub replacements that broke because of the
  UTExportedTypeDeclarations additions to the Info.plist.  This was causing
  the apps made on Mac OS X not to work

- added exec chmod to make sure there are write permissions before deleting
  when replacing an existing app

- cleaned up the embed.pd patch a bit

Modified Paths:
--------------
    branches/pd-extended/v0-40/externals/hcs/embed.pd
    branches/pd-extended/v0-40/pd/src/u_main.tk

Modified: branches/pd-extended/v0-40/externals/hcs/embed.pd
===================================================================
--- branches/pd-extended/v0-40/externals/hcs/embed.pd	2008-07-09 09:01:50 UTC (rev 10153)
+++ branches/pd-extended/v0-40/externals/hcs/embed.pd	2008-07-10 00:14:28 UTC (rev 10154)
@@ -1,7 +1,5 @@
-#N canvas 208 271 450 300 10;
-#X msg 283 104 wm title . "Nit CASM";
+#N canvas 103 147 450 300 10;
 #X msg 282 79 menu_toggle_console;
-#X obj 70 12 loadbang;
 #X obj 69 37 trigger bang bang bang bang bang bang bang bang bang;
 #X msg 182 84 wm iconify .;
 #X msg 140 13 bang;
@@ -9,15 +7,16 @@
 #X obj 35 75 hcs/window_name;
 #X msg 35 98 wm iconify \$1;
 #X msg 23 29 bang;
-#X connect 0 0 6 0;
-#X connect 1 0 6 0;
-#X connect 2 0 3 0;
-#X connect 3 0 7 0;
-#X connect 3 4 4 0;
-#X connect 3 8 0 0;
-#X connect 3 8 1 0;
-#X connect 4 0 6 0;
-#X connect 5 0 3 0;
-#X connect 7 0 8 0;
-#X connect 8 0 6 0;
-#X connect 9 0 7 0;
+#X obj 70 12 loadbang;
+#X msg 256 164 wm title . "My Custom Title";
+#X connect 0 0 4 0;
+#X connect 1 0 5 0;
+#X connect 1 4 2 0;
+#X connect 1 8 0 0;
+#X connect 2 0 4 0;
+#X connect 3 0 1 0;
+#X connect 5 0 6 0;
+#X connect 6 0 4 0;
+#X connect 7 0 5 0;
+#X connect 8 0 1 0;
+#X connect 9 0 4 0;

Modified: branches/pd-extended/v0-40/pd/src/u_main.tk
===================================================================
--- branches/pd-extended/v0-40/pd/src/u_main.tk	2008-07-09 09:01:50 UTC (rev 10153)
+++ branches/pd-extended/v0-40/pd/src/u_main.tk	2008-07-10 00:14:28 UTC (rev 10154)
@@ -904,6 +904,7 @@
 	global pd_guidir
 	set pdapp_contents [file normalize "$pd_guidir/.."]
 	pdtk_post "Copying:$pdapp_contents\n  -->\t$appdir/\n"
+	exec -- chmod -R u+w $appdir
 	file delete -force -- $appdir
 	file mkdir $appdir
 	file copy -- $pdapp_contents "$appdir/"
@@ -915,19 +916,21 @@
 	regexp {.*/(.+)\.app} $appdir -> appname
 	pdtk_post "Setting up $appdir/Contents/Info.plist\n"
 	set info_plist [open "$appdir/Contents/Info.plist" r]
-	set new_info_plist [read $info_plist]
-	regsub -- {CFBundleName</key>.*?<string>Pd-extended<} $new_info_plist \
-		"CFBundleName</key>\n\t<string>$appname<" new_info_plist
+	set info_plist_contents [read $info_plist]
+	regsub -- {CFBundleName</key>.*?<string>Pd-extended<} $info_plist_contents \
+		"CFBundleName</key>\n\t<string>$appname<" info_plist_contents
 	set cfbundleversion [clock format [clock seconds] -format %Y.%m.%d]
-	regsub -- {CFBundleVersion</key>.*?<string>.*?<} $new_info_plist \
-		"CFBundleVersion</key>\n\t<string>$cfbundleversion<" new_info_plist
-	regsub -- {org.puredata.pd.wish} $new_info_plist \
-		"org.puredata.pd.app.$appname" new_info_plist
-	regsub -- {<key>CFBundleDocumentTypes.+</array>} $new_info_plist \
-		{} new_info_plist
+	regsub -- {CFBundleVersion</key>.*?<string>.*?<} $info_plist_contents \
+		"CFBundleVersion</key>\n\t<string>$cfbundleversion<" info_plist_contents
+	regsub -- {org.puredata.pd.wish} $info_plist_contents \
+		"org.puredata.pd.app.$appname" info_plist_contents
+	regsub -- {<key>CFBundleDocumentTypes.+?</array>.+?</array>} \
+		$info_plist_contents {} info_plist_contents
+	regsub -- {<key>UTExportedTypeDeclarations.+</array>} $info_plist_contents \
+		{} info_plist_contents
 	close $info_plist
 	set info_plist [open "$appdir/Contents/Info.plist" w]
-	puts $info_plist $new_info_plist
+	puts $info_plist $info_plist_contents
 	close $info_plist		
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.