steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Eduardo Cavazos 2008-11-10 19:17:41 -06:00
parent 161c917748
commit 262e9632e6
3 changed files with 0 additions and 145 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
unmaintained/update/backup/backup.factor
View File

@ -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 ;

53
unmaintained/update/latest/latest.factor
View File

@ -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

64
unmaintained/update/update.factor
View File

@ -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