<div dir="ltr"><br><div class="gmail_extra"><br><br><div class="gmail_quote">On Fri, Jul 5, 2013 at 7:55 PM, Matthew Flatt <span dir="ltr"><<a href="mailto:mflatt@cs.utah.edu" target="_blank">mflatt@cs.utah.edu</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">From now on, the current snapshot build on "<a href="http://www.cs.utah.edu" target="_blank">www.cs.utah.edu</a>" will be at<br>
<br>
<a href="http://www.cs.utah.edu/plt/snapshots/" target="_blank">http://www.cs.utah.edu/plt/snapshots/</a><br>
<br>
(The latest snapshot does not yet fix the "aces.png" error that Sam<br>
reported.)<br>
<br>
<br>
If anyone else is interested in creating snapshots, I think the<br>
makefile and instructions are ready to try out.<br>
<br>
The "INSTALL.txt" file now has detailed information on site<br>
configurations, including some example configuration files as the end.<br>
As one more example, below is the configuration file for the snapshots<br>
at "<a href="http://www.cs.utah.edu" target="_blank">www.cs.utah.edu</a>".<br>
<br>
----------------------------------------<br>
<br>
#lang distro-build/config<br>
(require racket/format)<br>
<br>
(define server-base-url (~a "<a href="http://www.cs.utah.edu/plt/snapshots" target="_blank">http://www.cs.utah.edu/plt/snapshots</a>"<br>
"/" (current-stamp) "/"))<br>
(define build-plt (path->string (current-directory)))<br>
<br>
(define (make-machs make-name base pkgs)<br>
(sequential<br>
#:server "192.168.56.1"<br>
#:j 2<br>
#:dist-base base<br>
#:pkgs pkgs<br>
;; ----------------------------------------<br>
;; Mac OS X variants:<br>
(sequential<br>
#:server "localhost"<br>
#:repo build-plt<br>
;; ----------------------------------------<br>
(machine<br>
#:name (make-name "Mac OS X" "Intel 64-bit")<br>
#:dir (string-append build-plt "/build/mac64")<br>
#:configure '("--enable-sdk6=/Developer/SDKs/MacOSX10.6.sdk"))<br>
;; ----------------------------------------<br>
(machine<br>
#:name (make-name "Mac OS X" "Intel 32-bit")<br>
#:dir (string-append build-plt "/build/mac32")<br>
#:configure '("--enable-sdk=/Developer/SDKs/MacOSX10.4u.sdk"<br>
"--disable-mac64")))<br>
;; ----------------------------------------<br>
;; Linux variants:<br>
(sequential<br>
;; ----------------------------------------<br>
(machine<br>
#:name (make-name "Linux" "x86_64 32-bit, Precise Pangolin")<br></blockquote><div><br></div><div>Should the line above say "64-bit"?</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
#:vbox "ubuntu64"<br>
#:host "192.168.56.101"<br>
#:dist-suffix "precise")<br>
;; ----------------------------------------<br>
(machine<br>
#:name (make-name "Linux" "i386 32-bit, Precise Pangolin")<br>
#:vbox "ubuntu32"<br>
#:host "192.168.56.102"<br>
#:dist-suffix "precise"))<br>
;; ----------------------------------------<br>
;; Windows variants:<br>
(sequential<br>
#:vbox "win7"<br>
#:host "192.168.56.103"<br>
#:port 2022<br>
#:platform 'windows<br>
#:bits 64<br>
;; ----------------------------------------<br>
(machine<br>
#:name (make-name "Windows" "x64 64-bit")<br>
#:dir "c:\\Users\\Dr Racket\\build64")<br>
;; ----------------------------------------<br>
(machine<br>
#:name (make-name "Windows" "x86 32-bit")<br>
#:dir "c:\\Users\\Dr Racket\\build32"<br>
#:vc "x86"))))<br>
<br>
(define ((make-make-name s) platform detail)<br>
(string-append s " | " platform " | " detail))<br>
<br>
(sequential<br>
#:dist-base-url server-base-url<br>
#:site-dest (build-path "/Users/racket/snapshots" (current-stamp))<br>
(make-machs<br>
(make-make-name "Minimal Racket")<br>
"min-racket"<br>
'())<br>
(sequential<br>
#:clean? #f<br>
(make-machs<br>
(make-make-name "Racket")<br>
"racket"<br>
'("main-distribution"))))<br>
<div class="HOEnZb"><div class="h5"><br>
_________________________<br>
Racket Developers list:<br>
<a href="http://lists.racket-lang.org/dev" target="_blank">http://lists.racket-lang.org/dev</a><br>
</div></div></blockquote></div><br></div></div>