unmaintained: New home for misfit Factor vocabularies.

[factor-unmaintained.git] / update / backup / backup.factor

diff --git a/update/backup/backup.factor b/update/backup/backup.factor
new file mode 100644 (file)
index 0000000..3f7dc8f
--- /dev/null
+++ b/update/backup/backup.factor
@@ -0,0 +1,27 @@
+USING: namespaces debugger io.files io.directories
+bootstrap.image update.util ;
+IN: update.backup
+
+: backup-boot-image ( -- )
+  my-boot-image-name
+  { "boot." my-arch-name "-" [ "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 ;