[openMSX-commits] SF.net SVN: openmsx:[12743] openmsx/trunk/share/scripts

[<man...@us...>]

Revision: 12743
          http://openmsx.svn.sourceforge.net/openmsx/?rev=12743&view=rev
Author:   manuelbi
Date:     2012-07-22 19:16:43 +0000 (Sun, 22 Jul 2012)
Log Message:
-----------
Add .dmk support for scripts that support .dsk

Modified Paths:
--------------
    openmsx/trunk/share/scripts/osd_menu.tcl
    openmsx/trunk/share/scripts/vdrive.tcl

Modified: openmsx/trunk/share/scripts/osd_menu.tcl
===================================================================
--- openmsx/trunk/share/scripts/osd_menu.tcl	2012-07-21 20:28:13 UTC (rev 12742)
+++ openmsx/trunk/share/scripts/osd_menu.tcl	2012-07-22 19:16:43 UTC (rev 12743)
@@ -980,7 +980,7 @@
 }
 
 proc menu_create_disk_list {path} {
-	return [prepare_menu_list [concat "--eject--" [ls $path "dsk|zip|gz|xsa"]] \
+	return [prepare_menu_list [concat "--eject--" [ls $path "dsk|zip|gz|xsa|dmk"]] \
 	                          10 \
 	                          { execute menu_select_disk
 	                            font-size 8

Modified: openmsx/trunk/share/scripts/vdrive.tcl
===================================================================
--- openmsx/trunk/share/scripts/vdrive.tcl	2012-07-21 20:28:13 UTC (rev 12742)
+++ openmsx/trunk/share/scripts/vdrive.tcl	2012-07-22 19:16:43 UTC (rev 12743)
@@ -14,7 +14,7 @@
    metal2.dsk, metal3.dsk]
    Of course they may all be compressed with gzip, so you'll end up with
    [metal1.dsk.gz, metal2.dsk.gz, metal3.dsk.gz].
-   The script recognizes 'dsk', 'di1', 'di2' and 'xsa' extensions,
+   The script recognizes 'dsk', 'di1', 'di2', 'xsa' and 'dmk' extensions,
    with an optional '.gz' suffix.
 
 2. bind the vdrive script to a hotkey, for instance type in the console:
@@ -58,7 +58,7 @@
 		error "Vdrive not possible on DirAsDisk"
 	}
 
-	#remove (dsk|di1|di2|xsa)(.gz)? extention
+	#remove (dsk|di1|di2|xsa|dmk)(.gz)? extention
 	set image [lindex $cmd 1]
 	set ext ""
 
@@ -72,7 +72,7 @@
 	}
 
 	set ext2 [file extension $image]
-	foreach i {".dsk" ".di1" ".di2" ".xsa"} {
+	foreach i {".dsk" ".di1" ".di2" ".xsa" ".dmk"} {
 		if {[string equal -nocase $i $ext2]} {
 			set ext ${ext2}${ext}
 			set image [file rootname $image]

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