/extra/update/latest/latest.factor

http://github.com/abeaumont/factor · Factor · 51 lines · 35 code · 11 blank · 5 comment · 2 complexity · 946d4c0866a61e62e9aaf66dba8bb899 MD5 · raw file 

    

  1. USING: kernel namespaces system io.files io.pathnames io.directories
    2. 

  2. bootstrap.image http.client update update.backup update.util ;
    3. 

  3. IN: update.latest
    4. 

  4. 

  5. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    6. 

  6. 

  7. : git-pull-master ( -- )
    8. 

  8.   image parent-directory
    9. 

  9.     [
    10. 

  10.       { "git" "pull" "git://factorcode.org/git/factor.git" "master" }
    11. 

  11.       run-command
    12. 

  12.     ]
    13. 

  13.   with-directory ;
    14. 

  14. 

  15. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    16. 

  16. 

  17. : remote-latest-image ( -- url )
    18. 

  18.   { "http://factorcode.org/images/latest/" my-boot-image-name } to-string ;
    19. 

  19. 

  20. : download-latest-image ( -- ) remote-latest-image download ;
    21. 

  21. 

  22. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    23. 

  23. 

  24. : rebuild-latest ( -- )
    25. 

  25.   image parent-directory
    26. 

  26.     [
    27. 

  27.       backup
    28. 

  28.       download-latest-image
    29. 

  29.       make-clean
    30. 

  30.       make
    31. 

  31.       boot
    32. 

  32.     ]
    33. 

  33.   with-directory ;
    34. 

  34. 

  35. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    36. 

  36. 

  37. : update-latest ( -- )
    38. 

  38.   image parent-directory
    39. 

  39.     [
    40. 

  40.       git-id
    41. 

  41.       git-pull-master
    42. 

  42.       git-id
    43. 

  43.       = not
    44. 

  44.         [ rebuild-latest ]
    45. 

  45.       when
    46. 

  46.     ]
    47. 

  47.   with-directory ;
    48. 

  48. 

  49. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    50. 

  50. 

  51. MAIN: update-latest
    52.