Remove 'unmaintained/update' (moving back to 'extra')

diff --git a/unmaintained/update/backup/backup.factor b/unmaintained/update/backup/backup.factor
deleted file mode 100644 (file)
index 0dcf853..0000000
--- a/unmaintained/update/backup/backup.factor
+++ /dev/null
@@ -1,28 +0,0 @@
-
-USING: namespaces debugger io.files bootstrap.image builder.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 ;

diff --git a/unmaintained/update/latest/latest.factor b/unmaintained/update/latest/latest.factor
deleted file mode 100644 (file)
index df05742..0000000
--- a/unmaintained/update/latest/latest.factor
+++ /dev/null
@@ -1,53 +0,0 @@
-
-USING: kernel namespaces system io.files bootstrap.image http.client
-       builder.util update update.backup ;
-
-IN: update.latest
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: git-pull-master ( -- )
-  image parent-directory
-    [
-      { "git" "pull" "git://factorcode.org/git/factor.git" "master" }
-      run-command
-    ]
-  with-directory ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: remote-latest-image ( -- url )
-  { "http://factorcode.org/images/latest/" my-boot-image-name } to-string ;
-
-: download-latest-image ( -- ) remote-latest-image download ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: rebuild-latest ( -- )
-  image parent-directory
-    [
-      backup
-      download-latest-image
-      make-clean
-      make
-      boot
-    ]
-  with-directory ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: update-latest ( -- )
-  image parent-directory
-    [
-      git-id
-      git-pull-master
-      git-id
-      = not
-        [ rebuild-latest ]
-      when
-    ]
-  with-directory ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-MAIN: update-latest
\ No newline at end of file

diff --git a/unmaintained/update/update.factor b/unmaintained/update/update.factor
deleted file mode 100644 (file)
index 1d25a97..0000000
--- a/unmaintained/update/update.factor
+++ /dev/null
@@ -1,64 +0,0 @@
-
-USING: kernel system sequences io.files io.launcher bootstrap.image
-       http.client
-       builder.util builder.release.branch ;
-
-IN: update
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: run-command ( cmd -- ) to-strings try-process ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: git-pull-clean ( -- )
-  image parent-directory
-    [
-      { "git" "pull" "git://factorcode.org/git/factor.git" branch-name }
-      run-command
-    ]
-  with-directory ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: remote-clean-image ( -- url )
-  { "http://factorcode.org/images/clean/" platform "/" my-boot-image-name }
-  to-string ;
-
-: download-clean-image ( -- ) remote-clean-image download ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: make-clean ( -- ) { gnu-make "clean" } run-command ;
-: make       ( -- ) { gnu-make         } run-command ;
-: boot       ( -- ) { "./factor" { "-i=" my-boot-image-name } } run-command ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: rebuild ( -- )
-  image parent-directory
-    [
-      download-clean-image
-      make-clean
-      make
-      boot
-    ]
-  with-directory ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: update ( -- )
-  image parent-directory
-    [
-      git-id
-      git-pull-clean
-      git-id
-      = not
-        [ rebuild ]
-      when
-    ]
-  with-directory ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-MAIN: update
\ No newline at end of file