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

farm: by default, pull git repo in clients from server

Browse Source
This commit is contained in:
Matthew Flatt 2013-06-28 08:09:11 -06:00
parent a89ba74f4e
commit fd982c55b1
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Makefile
View File

@ -200,6 +200,7 @@ built-catalog:
# Run a catalog server to provide pre-built packages, as well # Run a catalog server to provide pre-built packages, as well
# as the copy of the server's "collects" tree: # as the copy of the server's "collects" tree:
built-catalog-server: built-catalog-server:
if [ -d ".git" ]; then git update-server-info ; fi
$(RACKET) -l distro-build/serve-catalog $(SERVE_DURING_CMD) $(RACKET) -l distro-build/serve-catalog $(SERVE_DURING_CMD)
# Demonstrate how a catalog server for binary packages works, # Demonstrate how a catalog server for binary packages works,

4
pkgs/distro-build/drive-clients.rkt
View File

@ -88,7 +88,7 @@
;; #:timeout <number> --- numbers of seconds to wait before declaring ;; #:timeout <number> --- numbers of seconds to wait before declaring
;; failure; defaults to 30 minutes ;; failure; defaults to 30 minutes
;; #:repo <string> --- the git repository for Racket; defaults to ;; #:repo <string> --- the git repository for Racket; defaults to
;; "git://github.com/plt/racket.git" ;; "http://<server>:9440/.git"
;; ;;
;; Machine-only keywords: ;; Machine-only keywords:
;; #:name <string> --- defaults to host ;; #:name <string> --- defaults to host
@ -406,7 +406,7 @@
(define dist-dir (or (get-opt c '#:dist-dir) (define dist-dir (or (get-opt c '#:dist-dir)
default-dist-dir)) default-dist-dir))
(define repo (or (get-opt c '#:repo) (define repo (or (get-opt c '#:repo)
"git://github.com/plt/racket.git")) (~a "http://" server ":9440/.git")))
((case (or (get-opt c '#:platform) 'unix) ((case (or (get-opt c '#:platform) 'unix)
[(unix) unix-build] [(unix) unix-build]
[else windows-build]) [else windows-build])

8
pkgs/distro-build/serve-catalog.rkt
View File

@ -90,10 +90,12 @@
#:command-line? #t #:command-line? #t
#:listen-ip #f #:listen-ip #f
#:extra-files-paths #:extra-files-paths
(cons (append
(build-path build-dir "origin") (list (build-path build-dir "origin"))
(for/list ([d (in-list dirs)]) (for/list ([d (in-list dirs)])
(path->complete-path (build-path d "pkgs")))) (path->complete-path (build-path d "pkgs")))
;; for ".git":
(list (current-directory)))
#:servlet-regexp #rx"" #:servlet-regexp #rx""
#:port 9440)) #:port 9440))