Changeset 11776 in project
- Timestamp:
- 08/27/08 09:05:10 (12 years ago)
- Location:
- chicken/branches/hygienic
- Files:
-
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/branches/hygienic/TODO
r11703 r11776 20 20 21 21 ** dirty-macros.scm loops when using `defile' 22 possibly due to unrenamed special forms 22 23 23 24 ** modules … … 53 54 54 55 * guerrilla-setup 55 ** "-version" option for all tools56 56 ** setup-download 57 *** allow customization of svn credentials (username/password) instead of hardcoded "anonymous"58 57 *** HTTP_PROXY 59 58 *** handle redirects in http-fetch … … 68 67 *** document new .meta entries 69 68 depends, test-depends 70 ** add .c/.1 files to distribution/manifest71 69 ** remove all remnants of chicken-setup 72 ** note about building setup tools with73 70 74 71 * documentation -
chicken/branches/hygienic/chicken-install.1
r11750 r11776 28 28 .B \-h,\ \-help 29 29 Shows a summary of options and exits. 30 31 .TP 32 .B \-v,\ \-version 33 Shows tool version and exits. 30 34 31 35 .TP … … 92 96 meta property may be downloaded and installed, if necessary. 93 97 98 .TP 99 .BI \-username USERNAME 100 Set username for transports that require authentification. 101 102 .TP 103 .BI \-password PASSWORD 104 Set password for transports that require authentification. 94 105 95 106 .SH ENVIRONMENT\ VARIABLES -
chicken/branches/hygienic/chicken-install.scm
r11750 r11776 64 64 (define *retrieve-only* #f) 65 65 (define *no-install* #f) 66 (define *username* #f) 67 (define *password* #f) 66 68 67 69 (define (load-defaults) … … 135 137 name *default-transport* *default-location* 136 138 version #f 137 (and *retrieve-only* (current-directory))))) 139 (and *retrieve-only* (current-directory)) 140 *username* *password*))) 138 141 (unless dir 139 142 (error "extension or version not found")) … … 225 228 usage: chicken-install [OPTION | EXTENSION[:VERSION]] ... 226 229 227 -h -help show this message 230 -h -help show this message and exit 231 -v -version show version and exit 228 232 -force don't ask, install even if versions don't match 229 233 -k -keep keep temporary files … … 236 240 -host-extension when cross-compiling, compile extension for host 237 241 -test run included test-cases, if available 242 -username USER set username for transports that require this 243 -password PASS set password for transports that require this 238 244 EOF 239 245 );| 240 246 (exit code)) 241 247 242 (define *short-options* '(#\h #\k #\l #\t #\s #\p #\r #\n ))248 (define *short-options* '(#\h #\k #\l #\t #\s #\p #\r #\n #\v)) 243 249 244 250 (define (main args) … … 296 302 (set! *no-install* #t) 297 303 (loop (cdr args) eggs)) 304 ((or (string=? arg "-v") (string=? arg "-version")) 305 (print (chicken-version)) 306 (exit 0)) 298 307 ((string=? "-test" arg) 299 308 (set! *run-tests* #t) … … 302 311 (set! *host-extension* #t) 303 312 (loop (cdr args) eggs)) 313 ((string=? "-username" arg) 314 (unless (pair? (cdr args)) (usage 1)) 315 (set! *username* (cadr args)) 316 (loop (cddr args) eggs)) 317 ((string=? "-password" arg) 318 (unless (pair? (cdr args)) (usage 1)) 319 (set! *password* (cadr args)) 320 (loop (cddr args) eggs)) 304 321 ((and (positive? (string-length arg)) 305 322 (char=? #\- (string-ref arg 0))) -
chicken/branches/hygienic/chicken-status.1
r11628 r11776 27 27 28 28 .TP 29 .B \-v,\ \-version 30 Shows tool version and exits. 31 32 .TP 29 33 .B \-f,\ \-files 30 Show files belonging to the matching extension.34 Shows files belonging to the matching extension. 31 35 32 36 -
chicken/branches/hygienic/chicken-status.scm
r11680 r11776 73 73 74 74 -h -help show this message 75 -v -version show version and exit 75 76 -f -files list installed files 76 77 EOF … … 95 96 (set! files #t) 96 97 (loop (cdr args) pats)) 98 ((or (string=? arg "-v") (string=? arg "-version")) 99 (print (chicken-version)) 100 (exit 0)) 97 101 ((and (positive? (string-length arg)) 98 102 (char=? #\- (string-ref arg 0))) -
chicken/branches/hygienic/chicken-uninstall.1
r11703 r11776 26 26 .B \-h,\ \-help 27 27 Shows a summary of options and exits. 28 29 .TP 30 .B \-v,\ \-version 31 Shows tool version and exits. 28 32 29 33 .TP -
chicken/branches/hygienic/chicken-uninstall.scm
r11714 r11776 74 74 usage: chicken-uninstall [OPTION | PATTERN] ... 75 75 76 -h -help show this message 76 -h -help show this message and exit 77 -v -version show version and exit 77 78 -force don't ask, delete whatever matches 78 79 -s -sudo use sudo(1) for deleting files … … 92 93 (string=? arg "--help")) 93 94 (usage 0)) 95 ((or (string=? arg "-v") (string=? arg "-version")) 96 (print (chicken-version)) 97 (exit 0)) 94 98 ((string=? arg "-force") 95 99 (set! *force* #t) -
chicken/branches/hygienic/henrietta.cgi
r11597 r11776 4 4 export EGG_REPOSITORY=https://localhost/svn/chicken-eggs/release/4 5 5 export LOGFILE=/home/chicken/henrietta.log 6 export USERNAME=anonymous 7 export PASSWORD= 6 8 7 exec "$HENRIETTA" -l "$EGG_REPOSITORY" -t svn 2>>"$LOGFILE" 9 exec "$HENRIETTA" -l "$EGG_REPOSITORY" -t svn -username "$USERNAME" \ 10 -password "$PASSWORD" 2>>"$LOGFILE" -
chicken/branches/hygienic/henrietta.scm
r11765 r11776 36 36 (define *default-location* (current-directory)) 37 37 (define *test* #f) 38 (define *username* #f) 39 (define *password* #f) 38 40 39 41 (define (headers) … … 56 58 (retrieve-extension 57 59 name *default-transport* *default-location* 58 version #t)))) 60 version #t #f 61 *username* *password*)))) 59 62 (unless dir 60 63 (fail "no such extension or version" name version)) … … 117 120 -l -location LOCATION install from given location (default: current directory) 118 121 -t -transport TRANSPORT use given transport instead of default (#{*default-transport*}) 122 -username USER set username for transports that require this 123 -password PASS set password for transports that require this 119 124 EOF 120 125 );| … … 140 145 (set! *default-transport* (string->symbol (cadr args))) 141 146 (loop (cddr args))) 147 ((string=? "-username" arg) 148 (unless (pair? (cdr args)) (usage 1)) 149 (set! *username* (cadr args)) 150 (loop (cddr args))) 151 ((string=? "-password" arg) 152 (unless (pair? (cdr args)) (usage 1)) 153 (set! *password* (cadr args)) 154 (loop (cddr args))) 142 155 ((and (positive? (string-length arg)) 143 156 (char=? #\- (string-ref arg 0))) -
chicken/branches/hygienic/setup-download.scm
r11765 r11776 53 53 dir))) 54 54 55 (define (locate-egg/local egg dir #!optional version destination )55 (define (locate-egg/local egg dir #!optional version destination username password) 56 56 (let* ((eggdir (make-pathname dir egg)) 57 57 (files (directory eggdir)) … … 74 74 eggdir))))) 75 75 76 (define (locate-egg/svn egg repo #!optional version destination )76 (define (locate-egg/svn egg repo #!optional version destination username password) 77 77 (call/cc 78 78 (lambda (k) … … 80 80 (unless (zero? (system cmd)) 81 81 (k #f))) 82 (let ((cmd (sprintf "svn ls --username=anonymous --password='' -R \"~a/~a\"" repo egg))) 82 (let* ((uarg (if username (string-append "--username='" username "'") "")) 83 (parg (if password (string-append "--password='" password "'") "")) 84 (cmd (sprintf "svn ls ~a ~a -R \"~a/~a\"" uarg parg repo egg))) 83 85 (d "checking available versions ...~% ~a~%" cmd) 84 86 (let* ((files (with-input-from-pipe cmd read-lines)) … … 103 105 "")) 104 106 (tmpdir (make-pathname (or destination (get-temporary-directory)) egg)) 105 (cmd (sprintf "svn export --username=anonymous --password=''\"~a/~a/~a\" \"~a\" ~a"106 repo egg filedir107 (cmd (sprintf "svn export ~a ~a \"~a/~a/~a\" \"~a\" ~a" 108 uarg parg repo egg filedir 107 109 tmpdir 108 110 (if *quiet* "1>&2" "")))) … … 111 113 tmpdir)) ))) 112 114 113 (define (locate-egg/http egg url #!optional version destination )115 (define (locate-egg/http egg url #!optional version destination username password) 114 116 (let* ((tmpdir (or destination (get-temporary-directory))) 115 117 (m (string-match "(http://)?([^/:]+)(:([^:/]+))?(/.+)" url)) … … 193 195 194 196 (define (retrieve-extension name transport location #!optional version quiet 195 destination )197 destination username password) 196 198 (fluid-let ((*quiet* quiet)) 197 199 (case transport … … 201 203 (locate-egg/local name location version destination)) 202 204 ((svn) 203 (locate-egg/svn name location version destination ))205 (locate-egg/svn name location version destination username password)) 204 206 ((http) 205 207 (locate-egg/http name location version destination))
Note: See TracChangeset
for help on using the changeset viewer.