[84278] trunk/dports/emulators

[ryandesign at macports.org]

Revision: 84278
          http://trac.macports.org/changeset/84278
Author:   ryandesign at macports.org
Date:     2011-09-21 12:26:28 -0700 (Wed, 21 Sep 2011)
Log Message:
-----------
minivmac, minivmac-devel: refactor: create my_read_alias proc

Modified Paths:
--------------
    trunk/dports/emulators/minivmac/Portfile
    trunk/dports/emulators/minivmac-devel/Portfile

Modified: trunk/dports/emulators/minivmac/Portfile
===================================================================
--- trunk/dports/emulators/minivmac/Portfile	2011-09-21 19:25:08 UTC (rev 84277)
+++ trunk/dports/emulators/minivmac/Portfile	2011-09-21 19:26:28 UTC (rev 84278)
@@ -328,17 +328,23 @@
 # Returns the full path to the ROM file, wherever the user has it,
 # or the empty string if the user doesn't have it.
 proc my_real_rom_file {} {
-    global filespath my_app_dir my_rom_dir my_rom_file
+    global my_app_dir my_rom_dir my_rom_file
     if {[file exists ${my_app_dir}/${my_rom_file}]} {
         return ${my_app_dir}/${my_rom_file}
     }
-    set my_real_rom_dir [exec osascript ${filespath}/readalias.applescript [file normalize ${my_rom_dir}]]
+    set my_real_rom_dir [my_read_alias ${my_rom_dir}]
     if {[file exists ${my_real_rom_dir}/${my_rom_file}]} {
         return ${my_real_rom_dir}/${my_rom_file}
     }
     return ""
 }
 
+# Resolves a Mac OS X alias.
+proc my_read_alias {file} {
+    global filespath
+    return [exec osascript ${filespath}/readalias.applescript [file normalize ${file}]]
+}
+
 # Converts normal arch names into Mini vMac target names.
 proc my_arch_to_target {arch} {
     switch ${arch} {

Modified: trunk/dports/emulators/minivmac-devel/Portfile
===================================================================
--- trunk/dports/emulators/minivmac-devel/Portfile	2011-09-21 19:25:08 UTC (rev 84277)
+++ trunk/dports/emulators/minivmac-devel/Portfile	2011-09-21 19:26:28 UTC (rev 84278)
@@ -336,17 +336,23 @@
 # Returns the full path to the ROM file, wherever the user has it,
 # or the empty string if the user doesn't have it.
 proc my_real_rom_file {} {
-    global filespath my_app_dir my_rom_dir my_rom_file
+    global my_app_dir my_rom_dir my_rom_file
     if {[file exists ${my_app_dir}/${my_rom_file}]} {
         return ${my_app_dir}/${my_rom_file}
     }
-    set my_real_rom_dir [exec osascript ${filespath}/readalias.applescript [file normalize ${my_rom_dir}]]
+    set my_real_rom_dir [my_read_alias ${my_rom_dir}]
     if {[file exists ${my_real_rom_dir}/${my_rom_file}]} {
         return ${my_real_rom_dir}/${my_rom_file}
     }
     return ""
 }
 
+# Resolves a Mac OS X alias.
+proc my_read_alias {file} {
+    global filespath
+    return [exec osascript ${filespath}/readalias.applescript [file normalize ${file}]]
+}
+
 # Converts normal arch names into Mini vMac target names.
 proc my_arch_to_target {arch} {
     switch ${arch} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110921/b7c189d5/attachment.html>