Changeset 11680 in project


Ignore:
Timestamp:
08/19/08 11:24:22 (12 years ago)
Author:
felix winkelmann
Message:

fixes and usage of file module

Location:
chicken/branches/hygienic
Files:
10 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/hygienic/TODO

    r11646 r11680  
    5555** "-version" option for all tools
    5656** setup-download
     57*** allow customization of svn credentials (username/password) instead of hardcoded "anonymous"
    5758*** HTTP_PROXY
    5859*** handle redirects in http-fetch
  • chicken/branches/hygienic/chicken-install.scm

    r11627 r11680  
    2727(require-library setup-utils setup-download)
    2828(require-library srfi-1 posix data-structures utils ports regex ports extras
    29                  srfi-13)
     29                 srfi-13 files)
    3030
    3131
     
    4242 
    4343  (import scheme chicken srfi-1 posix data-structures utils ports regex ports extras
    44           srfi-13)
     44          srfi-13 files)
    4545  (import setup-utils setup-download)
    4646 
  • chicken/branches/hygienic/chicken-status.scm

    r11542 r11680  
    2525
    2626
    27 (require-library setup-utils srfi-1 posix data-structures utils ports regex)
     27(require-library setup-utils srfi-1 posix data-structures utils ports regex files)
    2828
    2929
    3030(module main ()
    3131 
    32   (import scheme chicken setup-utils srfi-1 posix data-structures utils ports regex)
     32  (import scheme chicken)
     33  (import setup-utils srfi-1 posix data-structures utils ports regex
     34          files)
    3335
    3436  (define (gather-eggs patterns)
  • chicken/branches/hygienic/chicken-uninstall.scm

    r11542 r11680  
    2525
    2626
    27 (require-library setup-utils srfi-1 posix data-structures utils ports regex srfi-13)
     27(require-library setup-utils srfi-1 posix data-structures utils ports regex srfi-13
     28                 files)
    2829
    2930
    3031(module main ()
    3132 
    32   (import scheme chicken setup-utils srfi-1 posix data-structures utils ports regex srfi-13)
     33  (import scheme chicken)
     34  (import setup-utils srfi-1 posix data-structures utils ports regex srfi-13 files)
    3335
    3436  (define *force* #f)
  • chicken/branches/hygienic/eval.scm

    r11577 r11680  
    101101
    102102(define ##sys#core-library-modules
    103   '(extras lolevel utils tcp regex regex-extras posix srfi-1 srfi-4 srfi-13
     103  '(extras lolevel utils files tcp regex regex-extras posix srfi-1 srfi-4 srfi-13
    104104           srfi-14 srfi-18 data-structures ports))
    105105
  • chicken/branches/hygienic/files.import.scm

    r11646 r11680  
    3333   directory-null?
    3434   make-absolute-pathname
     35   create-temporary-file
    3536   decompose-pathname
    3637   absolute-pathname?
  • chicken/branches/hygienic/henrietta.scm

    r11647 r11680  
    3838
    3939  (define (headers)
    40     (print "Connection: close\r\nContent-type: application/octet-stream\r\n\r\n"))
     40    (print "Connection: close\r\nContent-type: text/plain\r\n\r\n"))
    4141
    4242  (define (fail msg . args)
     
    8585                          (fail "test"))
    8686                         (egg
    87                           (retrieve egg version))
     87                          (retrieve egg version)
     88                          (cleanup) )
    8889                         (else (fail "no extension name specified") ) ))
    8990                  ((string=? ms "version")
  • chicken/branches/hygienic/setup-api.scm

    r11573 r11680  
    2525
    2626
    27 (require-library srfi-1 regex utils posix srfi-13 extras ports data-structures)
     27(require-library srfi-1 regex utils posix srfi-13 extras ports data-structures files)
    2828
    2929
     
    4848  (import scheme chicken foreign
    4949          regex utils posix ports extras data-structures
    50           srfi-1 srfi-13)
     50          srfi-1 srfi-13 files)
    5151
    5252;;; Constants, variables and parameters
  • chicken/branches/hygienic/setup-download.scm

    r11607 r11680  
    2525
    2626
    27 (require-library extras regex posix utils setup-utils srfi-1 data-structures tcp srfi-13)
     27(require-library extras regex posix utils setup-utils srfi-1 data-structures tcp srfi-13
     28                 files)
    2829
    2930
     
    3536
    3637  (import scheme chicken)
    37   (import extras regex posix utils setup-utils srfi-1 data-structures tcp srfi-13)
     38  (import extras regex posix utils setup-utils srfi-1 data-structures tcp srfi-13 files)
    3839
    3940  (define temporary-directory (make-parameter #f))
     
    6768 
    6869  (define (locate-egg/svn egg repo #!optional version quiet)
    69     (let ((cmd (sprintf "svn ls -R \"~a/~a\"" repo egg)))
     70    (let ((cmd (sprintf "svn ls --username=anonymous --password='' -R \"~a/~a\"" repo egg)))
    7071      (fprintf (if quiet (current-error-port) (current-output-port))
    7172               "checking available versions ...\n  ~a~%" cmd)
     
    9394                  ""))
    9495             (tmpdir (make-pathname (get-temporary-directory) egg))
    95              (cmd (sprintf "svn co \"~a/~a/~a\" \"~a\" ~a" repo egg filedir
     96             (cmd (sprintf "svn co --username=anonymous --password='' \"~a/~a/~a\" \"~a\" ~a"
     97                           repo egg filedir
    9698                           tmpdir
    9799                           (if quiet "1>&2" ""))))
  • chicken/branches/hygienic/setup-utils.scm

    r11558 r11680  
    2525
    2626
    27 (require-library regex utils ports tcp extras posix
     27(require-library regex utils ports tcp extras posix files
    2828                 srfi-1 srfi-13 data-structures)
    2929
     
    4141  (import scheme chicken)
    4242  (import regex utils ports tcp extras posix srfi-1 srfi-13
    43           data-structures)
     43          data-structures files)
    4444
    4545  (define (version>=? v1 v2)
     
    9292
    9393  (define (remove-directory dir #!optional sudo)
    94     (print "removing " dir)
    9594    (if sudo
    9695        (system* "sudo rm -fr '~a'" dir)
     
    128127
    129128  (define (remove-file path #!optional sudo)
    130     (print "removing " path)
    131129    (if sudo
    132130        (system* "sudo rm -f '~a'" path)
Note: See TracChangeset for help on using the changeset viewer.