suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Using Elis scm-export

Browse Source
This commit is contained in:
Jay McCarthy 2010-05-13 13:37:56 -06:00
parent 6ee0b0585a
commit d284d530f5
2 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/meta/drdr/plt-build.ss
View File

@ -43,7 +43,7 @@
(path->string co-dir))] (path->string co-dir))]
(notify! "Checking out ~a@~a into ~a" (notify! "Checking out ~a@~a into ~a"
repo rev to-dir) repo rev to-dir)
(scm-checkout rev repo to-dir)))) (scm-export-repo rev repo to-dir))))
;; Make the build directory ;; Make the build directory
(make-directory* build-dir) (make-directory* build-dir)
;; Run Configure, Make, Make Install ;; Run Configure, Make, Make Install

9
collects/meta/drdr/scm.ss
View File

@ -186,12 +186,6 @@
(system* (find-executable-path "tar") "xf" "-" "--absolute-names")) (system* (find-executable-path "tar") "xf" "-" "--absolute-names"))
(void)) (void))
(define (scm-checkout rev repo dest)
(system* (git-path) "clone" (path->string* repo) (path->string* dest))
(parameterize ([current-directory dest])
(system* (git-path) "checkout" (push-data-end-commit (push-info rev))))
(void))
(define (scm-update repo) (define (scm-update repo)
(parameterize ([current-directory repo]) (parameterize ([current-directory repo])
(system* (git-path) "fetch" git-url-base)) (system* (git-path) "fetch" git-url-base))
@ -211,5 +205,4 @@
[scm-update (path? . -> . void?)] [scm-update (path? . -> . void?)]
[scm-revisions-after (exact-nonnegative-integer? . -> . (listof exact-nonnegative-integer?))] [scm-revisions-after (exact-nonnegative-integer? . -> . (listof exact-nonnegative-integer?))]
[scm-export-file (exact-nonnegative-integer? path-string? string? path-string? . -> . void?)] [scm-export-file (exact-nonnegative-integer? path-string? string? path-string? . -> . void?)]
[scm-export-repo (exact-nonnegative-integer? path-string? path-string? . -> . void?)] [scm-export-repo (exact-nonnegative-integer? path-string? path-string? . -> . void?)])
[scm-checkout (exact-nonnegative-integer? path-string? path-string? . -> . void?)])