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.