Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

43 lines (26 sloc) 1.015 kb
(import (rnrs)
(epcot os misc)
(epcot core)
(epcot registry))
(define (install-package name)
(let ((entry (read-entry name)))
(current-directory (or (getenv "EPCOT_LIBRARIES")
library-home))
(if (file-exists? (symbol->string name))
(display "Already installed\n")
(begin
(for-each install-package (entry-dependencies entry))
(case (entry-backend entry)
((launchpad)
(system (string-append "bzr branch "
(entry-address entry))))
((git)
(system (string-append "git clone "
(entry-address entry))))
((http-tar-gz)
(system (string-append "wget -O out.tar.gz " (entry-address entry)))
(system "tar -xvzf out.tar.gz")
(system "rm out.tar.gz")))))))
(install-package
(string->symbol
(list-ref (command-line) 1)))
Jump to Line
Something went wrong with that request. Please try again.