~ chicken-core (chicken-5) 5d76d7e234050ecf7b5599af11c0d0d1a71e123b

commit 5d76d7e234050ecf7b5599af11c0d0d1a71e123b
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jan 15 11:12:40 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jan 15 11:12:40 2010 +0100

    added option to fetch eggs from server

diff --git a/scripts/mini-salmonella.scm b/scripts/mini-salmonella.scm
index 1315d1e1..80e4528d 100644
--- a/scripts/mini-salmonella.scm
+++ b/scripts/mini-salmonella.scm
@@ -9,13 +9,14 @@
 (use posix files extras data-structures srfi-1 setup-api srfi-13 utils)
 
 (define (usage code)
-  (print "usage: mini-salmonella [-h] [-t] [-d] EGGDIR [PREFIX]")
+  (print "usage: mini-salmonella [-h] [-t] [-d] [-f] EGGDIR [PREFIX]")
   (exit code) )
 
 (define *eggdir* #f)
 (define *debug* #f)
 (define *prefix* (pathname-directory (pathname-directory (repository-path))))
 (define *run-tests* #f)
+(define *download* #f)
 
 (let loop ((args (command-line-arguments)))
   (when (pair? args)
@@ -23,6 +24,7 @@
       (cond ((string=? "-h" arg) (usage 0))
 	    ((string=? "-t" arg) (set! *run-tests* #t))
 	    ((string=? "-d" arg) (set! *debug* #t))
+	    ((string=? "-f" arg) (set! *download* #t))
 	    (*eggdir* (set! *prefix* arg))
 	    (else (set! *eggdir* arg)))
       (loop (cdr args)))))
@@ -81,10 +83,12 @@
 
 (define (install-egg egg dir)
   (let ((command
-	 (sprintf "~a ~a -t local -l ~a ~a ~a"
+	 (sprintf "~a ~a ~a ~a ~a"
 		  *chicken-install*
 		  (if *run-tests* "-test" "")
-		  (normalize-pathname *eggdir*)
+		  (if *download* 
+		      ""
+		      (string-append "-l " (normalize-pathname *eggdir*)))
 		  egg
 		  (if (not *debug*)
 		      (sprintf "2>~a >>~a.out" *tmplogfile* *logfile*)