unmaintained/update/backup/backup.factor

   1 USING: namespaces debugger io.files io.directories
   2 bootstrap.image update.util ;
   3 IN: update.backup
   4
   5 : backup-boot-image ( -- )
   6   my-boot-image-name
   7   { "boot." my-arch-name "-" [ "datestamp" get ] ".image" } to-string
   8   move-file ;
   9
  10 : backup-image ( -- )
  11   "factor.image"
  12   { "factor" "-" [ "datestamp" get ] ".image" } to-string
  13   move-file ;
  14
  15 : backup-vm ( -- )
  16   "factor"
  17   { "factor" "-" [ "datestamp" get ] } to-string
  18   move-file ;
  19
  20 : backup ( -- )
  21   datestamp "datestamp" set
  22     [
  23       backup-boot-image
  24       backup-image
  25       backup-vm
  26     ]
  27   try ;