/usr/share/openmsx/scripts/_savestate.tcl is in openmsx-data 0.10.0-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 | # convenience wrappers around the low level savestate commands
namespace eval savestate {
proc savestate_common {} {
uplevel {
if {$name eq ""} {set name "quicksave"}
set directory [file normalize $::env(OPENMSX_USER_DATA)/../savestates]
set fullname_oms [file join $directory ${name}.oms]
set fullname_gz [file join $directory ${name}.xml.gz]
if {![file exists $fullname_oms] &&
[file exists $fullname_gz]} {
# only when old name exists but new doesn't
set fullname_bwcompat $fullname_gz
} else {
set fullname_bwcompat $fullname_oms
}
set png [file join $directory ${name}.png]
}
}
proc savestate {{name ""}} {
savestate_common
file mkdir $directory
if {[catch {screenshot -raw -doublesize $png}]} {
# some renderers don't support msx-only screenshots
if {[catch {screenshot $png}]} {
# even this failed, but (try to) remove old screenshot
# to avoid confusion
catch {file delete -- $png}
}
}
set currentID [machine]
# always save using the new (.oms) name
store_machine $currentID $fullname_oms
# if successful, delete the old (.gz) filename (deleting a non-exiting
# file is not an error)
file delete -- $fullname_gz
return $name
}
proc loadstate {{name ""}} {
savestate_common
set newID [restore_machine $fullname_bwcompat]
set currentID [machine]
if {$currentID ne ""} {delete_machine $currentID}
activate_machine $newID
return $name
}
# helper proc to get the raw savestate info
proc list_savestates_raw {} {
set directory [file normalize $::env(OPENMSX_USER_DATA)/../savestates]
set results [list]
foreach f [glob -tails -directory $directory -nocomplain *.xml.gz *.oms] {
set name [file rootname [file rootname $f]]
set fullname [file join $directory $f]
set filetime [file mtime $fullname]
lappend results [list $name $filetime]
}
return $results
}
proc list_savestates {args} {
set sort_key 0
set long_format false
set sort_option "-ascii"
set sort_order "-increasing"
#parse options
while (1) {
switch -- [lindex $args 0] {
"" break
"-t" {
set sort_key 1
set sort_option "-integer"
set args [lrange $args 1 end]
set sort_order "-decreasing"
}
"-l" {
if {[info commands clock] ne ""} {
set long_format true
} else {
error "Sorry, long format not supported on this system (missing clock.tcl)"
}
set args [lrange $args 1 end]
}
"default" {
error "Invalid option: [lindex $args 0]"
}
}
}
set sorted_sublists [lsort ${sort_option} ${sort_order} -index $sort_key [list_savestates_raw]]
if {!$long_format} {
set sorted_result [list]
foreach sublist $sorted_sublists {lappend sorted_result [lindex $sublist 0]}
return $sorted_result
} else {
set stringres ""
foreach sublist $sorted_sublists {
append stringres [format "%-[expr {round(${::consolecolumns} / 2)}]s %s\n" [lindex $sublist 0] [clock format [lindex $sublist 1] -format "%a %b %d %Y - %H:%M:%S"]]
}
return $stringres
}
}
proc delete_savestate {{name ""}} {
savestate_common
catch {file delete -- $fullname_bwcompat}
catch {file delete -- $png}
return ""
}
proc savestate_tab {args} {
list_savestates
}
proc savestate_list_tab {args} {
list "-l" "-t"
}
# savestate
set_help_text savestate \
{savestate [<name>]
Create a snapshot of the current emulated MSX machine.
Optionally you can specify a name for the savestate. If you omit this the default name 'quicksave' will be taken.
See also 'loadstate', 'list_savestates', 'delete_savestate'.
}
set_tabcompletion_proc savestate [namespace code savestate_tab]
# loadstate
set_help_text loadstate \
{loadstate [<name>]
Restore a previously created savestate.
You can specify the name of the savestate that should be loaded. If you omit this name, the default savestate will be loaded.
See also 'savestate', 'list_savestates', 'delete_savestate'.
}
set_tabcompletion_proc loadstate [namespace code savestate_tab]
# list_savestates
set_help_text list_savestates \
{list_savestates [options]
Return the names of all previously created savestates.
Options:
-t sort savestates by time
-l long formatting, showing date of savestates
Note: the -l option is not available on all systems.
See also 'savestate', 'loadstate', 'delete_savestate'.
}
set_tabcompletion_proc list_savestates [namespace code savestate_list_tab]
# delete_savestate
set_help_text delete_savestate \
{delete_savestate [<name>]
Delete a previously created savestate.
See also 'savestate', 'loadstate', 'list_savestates'.
}
set_tabcompletion_proc delete_savestate [namespace code savestate_tab]
namespace export savestate
namespace export loadstate
namespace export delete_savestate
namespace export list_savestates
} ;# namespace savestate
namespace import savestate::*
|