29 lines
546 B
Factor
29 lines
546 B
Factor
|
|
||
|
|
USING: namespaces debugger io.files bootstrap.image update.util ;
|
||
|
|
|
||
|
|
IN: update.backup
|
||
|
|
|
||
|
|
: backup-boot-image ( -- )
|
||
|
|
my-boot-image-name
|
||
|
|
{ "boot." my-arch "-" [ "datestamp" get ] ".image" } to-string
|
||
|
|
move-file ;
|
||
|
|
|
||
|
|
: backup-image ( -- )
|
||
|
|
"factor.image"
|
||
|
|
{ "factor" "-" [ "datestamp" get ] ".image" } to-string
|
||
|
|
move-file ;
|
||
|
|
|
||
|
|
: backup-vm ( -- )
|
||
|
|
"factor"
|
||
|
|
{ "factor" "-" [ "datestamp" get ] } to-string
|
||
|
|
move-file ;
|
||
|
|
|
||
|
|
: backup ( -- )
|
||
|
|
datestamp "datestamp" set
|
||
|
|
[
|
||
|
|
backup-boot-image
|
||
|
|
backup-image
|
||
|
|
backup-vm
|
||
|
|
]
|
||
|
|
try ;
|