extra/update/backup/backup.factor

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