Changeset 12305 in project


Ignore:
Timestamp:
10/29/08 14:36:32 (12 years ago)
Author:
felix winkelmann
Message:

chicken-install: 404 starts retry; tested retries; enabled kitten-technologies mirror as download location; chicken-uninstall gives indication if no egg matches

Location:
chicken/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken-install.scm

    r12247 r12305  
    187187                     ((exn net)
    188188                      (print "TCP connect timeout")
     189                      #f)
     190                     ((exn http-fetch)
     191                      (print "HTTP protocol error")
    189192                      #f)
    190193                     (e () (abort e)))
  • chicken/trunk/chicken-uninstall.scm

    r11776 r12305  
    6363  (define (uninstall pats)
    6464    (let ((eggs (gather-eggs pats)))
    65       (when (or *force* (equal? eggs pats) (ask eggs))
    66         (for-each
    67          (lambda (e)
    68            (print "removing " e)
    69            (remove-extension e *sudo*) )
    70          eggs))))
     65      (cond ((null? eggs)
     66             (print "nothing to remove.") )
     67            ((or *force* (equal? eggs pats) (ask eggs))
     68             (for-each
     69              (lambda (e)
     70                (print "removing " e)
     71                (remove-extension e *sudo*) )
     72              eggs)))))
    7173
    7274  (define (usage code)
  • chicken/trunk/setup-download.scm

    r12227 r12305  
    142142      eggdir))
    143143
     144  (define (network-failure msg . args)
     145    (signal
     146     (make-composite-condition
     147      (make-property-condition
     148       'exn 'message "invalid response from server"
     149       'arguments args)
     150      (make-property-condition 'http-fetch))))
     151
    144152  (define (http-fetch host port loc dest)
    145153    (d "connecting to host ~s, port ~a ...~%" host port)
     
    156164          ;;*** handle redirects here
    157165          (unless (and m (string=? "200" (cadr m)))
    158             (error "invalid response from server" h1))
     166            (network-failure "invalid response from server" h1))
    159167          (let loop ()
    160168            (let ((ln (read-line in)))
  • chicken/trunk/setup.defaults

    r11703 r12305  
    1 ;;;; DEFAULTS for chicken-install -*- Scheme -*-
     1;;;; setup.defaults - defaults for chicken-install -*- Scheme -*-
    22
    33((location "http://galinha.ucpel.tche.br/cgi-bin/henrietta")
    44 (transport http))
     5
     6((location "http://chicken.kitten-technologies.co.uk/henrietta.cgi")
     7 (transport http))
Note: See TracChangeset for help on using the changeset viewer.