Changeset 11989 in project
- Timestamp:
- 09/24/08 09:33:35 (12 years ago)
- Location:
- chicken/branches/hygienic
- Files:
-
- 12 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/branches/hygienic/TODO
r11967 r11989 53 53 *** handle redirects in http-fetch 54 54 *** connect timeout and alternative download location 55 *** only download tests on demand (-test option)56 **** implemented - test57 55 ** chicken-install 58 *** handle needs/depends of builtin extension59 56 *** should cache extension-info 60 57 necessary? 61 ** henrietta62 *** parameter "tests=BOOL" controls whether tests should be downloaded63 **** implemented - test64 58 65 59 * documentation … … 82 76 83 77 * eggs 84 ** numbers 85 segfaults - something wrong with finalization, may be related to 86 warning on compilation 87 (might be fixed with force-finalizers not imported - test with optimizations on) 88 ** test sassy (needs henrietta+test thing!, also convert to proper module) 89 ** port javahack 78 ** sassy: convert to proper module 79 ** port javahack, fps -
chicken/branches/hygienic/chicken-install.scm
r11961 r11989 83 83 '())) 84 84 85 (define (ext-version x) 86 (cond ((or (eq? x 'chicken) 87 (equal? x "chicken") 88 (member (->string x) ##sys#core-library-modules)) 89 (chicken-version) ) 90 ((extension-information x) => 91 (lambda (info) 92 (and-let* ((a (assq 'version info))) 93 (->string (cadr a))))) 94 (else #f))) 95 85 96 (define (outdated-dependencies meta) 86 97 (let ((ds (append 87 (deps 'depends meta)88 (deps 'needs meta)89 (if *run-tests* (deps 'test-depends meta) '()))))98 (deps 'depends meta) 99 (deps 'needs meta) 100 (if *run-tests* (deps 'test-depends meta) '())))) 90 101 (let loop ((deps ds) (missing '()) (upgrade '())) 91 102 (if (null? deps) … … 95 106 (cond ((or (symbol? dep) (string? dep)) 96 107 (loop rest 97 (if (or (eq? 'chicken dep) 98 (equal? "chicken" dep) 99 (extension-information dep)) 108 (if (ext-version dep) 100 109 missing 101 110 (cons (->string dep) missing)) … … 103 112 ((and (list? dep) (= 2 (length dep)) 104 113 (or (string? (car dep)) (symbol? (car dep)))) 105 (let ((info (extension-information (car dep)))) 106 (if info 107 (let ((v (assq 'version info))) 108 (cond ((not v) 109 (warning "installed extension has unknown version - assuming it is outdated" 110 (car dep)) 111 (loop rest missing 112 (alist-cons 113 (->string (car dep)) 114 (->string (cadr dep)) 115 upgrade))) 116 ((version>=? (->string (cadr dep)) (->string (cadr v))) 117 (loop rest missing 118 (alist-cons 119 (->string (car dep)) (->string (cadr dep)) 120 upgrade))) 121 (else (loop rest missing upgrade))))))) 114 (let ((v (ext-version (car dep)))) 115 (cond ((not v) 116 (warning 117 "installed extension has unknown version - assuming it is outdated" 118 (car dep)) 119 (loop rest missing 120 (alist-cons 121 (->string (car dep)) 122 (->string (cadr dep)) 123 upgrade))) 124 ((version>=? (->string (cadr dep)) v) 125 (loop rest missing 126 (alist-cons 127 (->string (car dep)) (->string (cadr dep)) 128 upgrade))) 129 (else (loop rest missing upgrade))))) 122 130 (else 123 (warning "invalid dependency syntax in extension meta information" dep) 131 (warning 132 "invalid dependency syntax in extension meta information" 133 dep) 124 134 (loop rest missing upgrade)))))))) 125 135 -
chicken/branches/hygienic/chicken.import.scm
r11493 r11989 113 113 get-output-string 114 114 get-properties 115 getenv 115 getenv 116 get-environment-variable 116 117 getter-with-setter 117 118 implicit-exit-handler -
chicken/branches/hygienic/csi.scm
r11973 r11989 115 115 (print* t) 116 116 (string-set! t p o) 117 (let ((t0 (+ (current-milliseconds) 40)))117 (let ((t0 (+ (current-milliseconds) 30))) 118 118 (let loop () ; crude, but doesn't need srfi-18 119 119 (when (< (current-milliseconds) t0) -
chicken/branches/hygienic/eval.scm
r11842 r11989 117 117 (define-constant repository-environment-variable "CHICKEN_REPOSITORY") 118 118 (define-constant prefix-environment-variable "CHICKEN_PREFIX") 119 (define-constant default-binary-version 3)119 (define-constant default-binary-version 4) 120 120 121 121 ; these are actually in unit extras, but that is used by default 122 122 ; srfi-12 in unit library 123 ; srfi-98 partically in unit posix 124 123 125 (define-constant builtin-features 124 '(chicken srfi-2 srfi-6 srfi-10 srfi-12 srfi-23 srfi-28 srfi-30 srfi-31 srfi-39 srfi-69) ) 126 '(chicken srfi-2 srfi-6 srfi-10 srfi-12 srfi-23 srfi-28 srfi-30 srfi-31 srfi-39 127 srfi-69 srfi-98) ) 125 128 126 129 (define-constant builtin-features/compiled -
chicken/branches/hygienic/library.scm
r11919 r11989 230 230 (define cpu-time (##core#primitive "C_cpu_time")) 231 231 (define ##sys#decode-seconds (##core#primitive "C_decode_seconds")) 232 (define getenv (##core#primitive "C_get_environment_variable")) 232 (define get-environment-variable (##core#primitive "C_get_environment_variable")) 233 (define getenv get-environment-variable) 233 234 (define (##sys#start-timer) (##core#inline "C_start_timer")) 234 235 (define ##sys#stop-timer (##core#primitive "C_stop_timer")) … … 3284 3285 [else (err x)] ) ) ) ) 3285 3286 3286 (define ##sys#features '3287 (#:chicken #:srfi-23 #:srfi-30 #:srfi-39 #:srfi-62 #:srfi-17 #:srfi-12))3287 (define ##sys#features 3288 '(#:chicken #:srfi-23 #:srfi-30 #:srfi-39 #:srfi-62 #:srfi-17 #:srfi-12 #:srfi-98)) 3288 3289 3289 3290 ;; Add system features: -
chicken/branches/hygienic/manual/Overview
r9524 r11989 23 23 Some of the features supported by CHICKEN: 24 24 25 * SRFIs 0, 1, 2, 4, 6, 8-19, 23, 25-31, 37-40, 42, 43, 45, 47, 55, 57, 60-63, 66, 69, 72, 78, 85 and 95.25 * SRFIs 0, 1, 2, 4, 6, 8-19, 23, 25-31, 37-40, 42, 43, 45, 47, 55, 57, 60-63, 66, 69, 72, 78, 85, 95 and 98. 26 26 * Lightweight threads based on first-class continuations 27 27 * Pattern matching with Andrew Wright's {{match}} package -
chicken/branches/hygienic/manual/Unit library
r11646 r11989 517 517 518 518 519 ==== getenv 520 519 ==== get-environment-variable 520 521 [procedure] (get-environment-variable STRING) 521 522 [procedure] (getenv STRING) 522 523 523 524 Returns the value of the environment variable {{STRING}} or 524 {{#f}} if that variable is not defined. 525 525 {{#f}} if that variable is not defined. See also [[http://srfi.schemers.org/srfi-98/|SRFI-98]]. 526 {{getenv}} is an alias for {{get-environment-variable}}. 526 527 527 528 -
chicken/branches/hygienic/manual/Unit posix
r11542 r11989 875 875 === Environment access 876 876 877 ==== current-environment878 879 [procedure] ( current-environment)877 ==== get-environment-variables 878 879 [procedure] (get-environment-variables) 880 880 881 881 Returns a association list of the environment variables and their 882 current values .882 current values (see also [[http://srfi.schemers.org/srfi-98/|SRFI-98]]). 883 883 884 884 ==== setenv -
chicken/branches/hygienic/posix.import.scm
r10788 r11989 45 45 current-effective-user-id 46 46 current-effective-user-name 47 current-environment 47 current-environment ; DEPRECATED 48 get-environment-variables 48 49 current-group-id 49 50 current-process-id -
chicken/branches/hygienic/posixunix.scm
r11646 r11989 1850 1850 (posix-error #:file-error 'fifo? "file does not exist" filename) ) ) ) ) 1851 1851 1852 1852 1853 ;;; Environment access: 1853 1854 … … 1864 1865 (##core#undefined) ) 1865 1866 1866 (define current-environment1867 (define get-environment-variables 1867 1868 (let ([get (foreign-lambda c-string "C_getenventry" int)]) 1868 1869 (lambda () … … 1877 1878 (scan (fx+ j 1)) ) ) 1878 1879 '() ) ) ) ) ) ) 1880 1881 (define current-environment get-environment-variables) ; DEPRECATED 1882 1879 1883 1880 1884 ;;; Memory mapped I/O: -
chicken/branches/hygienic/posixwin.scm
r11646 r11989 1652 1652 fd) ) ) 1653 1653 1654 1654 1655 ;;; Environment access: 1655 1656 … … 1666 1667 (##core#undefined) ) 1667 1668 1668 (define current-environment1669 (define get-environment-variables 1669 1670 (let ([get (foreign-lambda c-string "C_getenventry" int)] 1670 1671 [substring substring] ) … … 1678 1679 (scan (fx+ j 1)) ) ) 1679 1680 '() ) ) ) ) ) ) 1681 1682 (define current-environment get-environment-variables) ; DEPRECATED 1680 1683 1681 1684 ;;; Time related things:
Note: See TracChangeset
for help on using the changeset viewer.