Changeset 20567 in project


Ignore:
Timestamp:
09/30/10 09:35:14 (11 years ago)
Author:
felix winkelmann
Message:

many egg fixes, reported by Jim Pryor

Location:
release/4
Files:
10 added
1 deleted
12 edited
4 copied

Legend:

Unmodified
Added
Removed
  • release/4/bb/tags/1.28/bb-support.cpp

    r17972 r20567  
    5757#define ___safe
    5858#define WIDGET         void **
    59 #define widget_type(x) ((int)((x)[ 2 ]) >> 1)
     59#define widget_type(x) ((size_t)((x)[ 2 ]) >> 1)
    6060#define widget_ptr(x)  (((void **)((x)[ 3 ]))[ 1 ])
    6161#define widget_rlist(x) (((void ***)((x)[ 5 ]))[ 1 ])
  • release/4/bb/tags/1.28/bb.setup

    r17972 r20567  
    5151 'bb
    5252 '("bb.so" "bb.import.so")
    53  `((version 1.27)))
    54 
    55 ;;; vim: ft=scheme
     53 `((version 1.28)))
  • release/4/bb/trunk/bb-support.cpp

    r17972 r20567  
    5757#define ___safe
    5858#define WIDGET         void **
    59 #define widget_type(x) ((int)((x)[ 2 ]) >> 1)
     59#define widget_type(x) ((size_t)((x)[ 2 ]) >> 1)
    6060#define widget_ptr(x)  (((void **)((x)[ 3 ]))[ 1 ])
    6161#define widget_rlist(x) (((void ***)((x)[ 5 ]))[ 1 ])
  • release/4/bb/trunk/bb.setup

    r17972 r20567  
    5151 'bb
    5252 '("bb.so" "bb.import.so")
    53  `((version 1.27)))
    54 
    55 ;;; vim: ft=scheme
     53 `((version 1.28)))
  • release/4/crunch/tags/0.7.6/crunch.setup

    r17454 r20567  
    1919   "crunch-compiler.import.so" "crunch-expander.import.so"
    2020   "crunch-syntax.scm" "crunch.import.so")
    21  '((documentation "crunch.html")
    22    (version "0.7.5")))
     21 '((version "0.7.6")))
    2322
    2423(install-program 'chicken-crunch "chicken-crunch")
    2524
    2625(when (setup-install-mode)
    27   (let ((dir (make-pathname chicken-prefix "include")))
     26  (let ((dir (make-pathname (installation-prefix) "include")))
    2827    (unless (file-exists? dir)
    2928      (create-directory dir) )
  • release/4/crunch/trunk/crunch.setup

    r17454 r20567  
    1919   "crunch-compiler.import.so" "crunch-expander.import.so"
    2020   "crunch-syntax.scm" "crunch.import.so")
    21  '((documentation "crunch.html")
    22    (version "0.7.5")))
     21 '((version "0.7.6")))
    2322
    2423(install-program 'chicken-crunch "chicken-crunch")
    2524
    2625(when (setup-install-mode)
    27   (let ((dir (make-pathname chicken-prefix "include")))
     26  (let ((dir (make-pathname (installation-prefix) "include")))
    2827    (unless (file-exists? dir)
    2928      (create-directory dir) )
  • release/4/mistie/tags/1.5/mistie.setup

    r19980 r20567  
    33(compile -O2 -d0 -s mistie.scm -j mistie)
    44(compile -O2 -d0 -s mistie.import.scm)
    5 
    6 (run (csi -s doc.scm > mistie.html))
    75
    86(install-extension
     
    1513
    1614  ; Assoc list with properties for your extension:
    17   `((version 1.4)
     15  `((version 1.5)
    1816    ))
    1917
    2018
    21 ;; From setup-header.scm by Kon Lovett
    22 
    2319;;; Constants & Procedures
    2420
    25 (define SHARED-DIR (chicken-home))
     21(define SHARED-DIR (installation-prefix))
    2622(define MISTIE-DIR (make-pathname SHARED-DIR "mistie"))
    2723
  • release/4/mistie/trunk/mistie.setup

    r19980 r20567  
    33(compile -O2 -d0 -s mistie.scm -j mistie)
    44(compile -O2 -d0 -s mistie.import.scm)
    5 
    6 (run (csi -s doc.scm > mistie.html))
    75
    86(install-extension
     
    1513
    1614  ; Assoc list with properties for your extension:
    17   `((version 1.4)
     15  `((version 1.5)
    1816    ))
    1917
    2018
    21 ;; From setup-header.scm by Kon Lovett
    22 
    2319;;; Constants & Procedures
    2420
    25 (define SHARED-DIR (chicken-home))
     21(define SHARED-DIR (installation-prefix))
    2622(define MISTIE-DIR (make-pathname SHARED-DIR "mistie"))
    2723
  • release/4/sparse-vectors/tags/0.4/sparse-vectors.scm

    r19980 r20567  
    99; So-called because they live in an infinite-dimensional vector
    1010; space...
    11 
    12 
    13 (module sparse-vectors
    14 
    15         (make-sparse-vector
    16          sparse-vector?
    17          sparse-vector-ref
    18          sparse-vector-set!
    19          sparse-vector->list)
    20                    
    21   (import scheme chicken data-structures extras )
    2211
    2312
     
    5847              (hilbert-default hilbert))))))
    5948
    60 (define (sparse-vector-ref hilbert index)
    61   (let ((val (sparse-vector-ref1 hilbert index)))
    62     (if (hilbert-default? val)
    63         (hilbert-default-value val)
    64         val)))
    65                
    6649(define (sparse-vector-set! hilbert index value)
    6750  (vector-set!
     
    7861   value))
    7962
     63(define sparse-vector-ref
     64  (getter-with-setter
     65   (lambda (hilbert index)
     66     (let ((val (sparse-vector-ref1 hilbert index)))
     67       (if (hilbert-default? val)
     68           (hilbert-default-value val)
     69           val)))
     70   sparse-vector-set!))
     71               
    8072(define (make-higher-if-necessary hilbert index)
    8173  (if (< index hilbert-node-size)
     
    116108                               (- height 1) more)))
    117109            ((< i 0) more)))))
    118 )
  • release/4/sparse-vectors/tags/0.4/sparse-vectors.setup

    r19980 r20567  
    1 ;;;; -*- Hen -*-
     1;;;; -*- Scheme -*-
    22
    3 (define (dynld-name fn)         
    4   (make-pathname #f fn ##sys#load-dynamic-extension))   
    5 
    6 (compile -O2 -d0 -s sparse-vectors.scm -j sparse-vectors)
    7 (compile -O2 -d0 -s sparse-vectors.import.scm)
     3(compile -O3 -d1 -s sparse-vectors-module.scm -j sparse-vectors -o sparse-vectors.so)
     4(compile -O3 -d1 -s sparse-vectors.import.scm)
    85
    96(when (extension-information 'numbers)
    10       (begin
    11         (compile -O2 -d0 -require-extension datatype
    12                  -s sparse-vectors.scm -o ,(dynld-name "big-sparse-vectors") -j big-sparse-vectors)
    13         (compile -O2 -d0  -s big-sparse-vectors.import.scm)))
     7  (compile -O3 -d1 -s big-sparse-vectors-module.scm -o big-sparse-vectors.so -j big-sparse-vectors)
     8  (compile -O3 -d1 -s big-sparse-vectors.import.scm))
    149
    1510(install-extension
    16 
    17   ; Name of your extension:
    1811  'sparse-vectors
    19 
    20   ; Files to install for your extension:
    21   `(,(dynld-name "sparse-vectors") ,(dynld-name "sparse-vectors.import")
     12  `("sparse-vectors.so" "sparse-vectors.import.so"
    2213    ,@(if (extension-information 'numbers)
    23           `(,(dynld-name "big-sparse-vectors") ,(dynld-name "big-sparse-vectors.import") ) '())
    24     )
    25 
    26   ; Assoc list with properties for your extension:
    27   `((version 0.3)
    28     (documentation "sparse-vectors.html")
    29     ))
     14          '("big-sparse-vectors.so" "big-sparse-vectors.import.so")
     15          '()))
     16  '((version 0.4)))
  • release/4/sparse-vectors/trunk/sparse-vectors.scm

    r19980 r20567  
    99; So-called because they live in an infinite-dimensional vector
    1010; space...
    11 
    12 
    13 (module sparse-vectors
    14 
    15         (make-sparse-vector
    16          sparse-vector?
    17          sparse-vector-ref
    18          sparse-vector-set!
    19          sparse-vector->list)
    20                    
    21   (import scheme chicken data-structures extras )
    2211
    2312
     
    5847              (hilbert-default hilbert))))))
    5948
    60 (define (sparse-vector-ref hilbert index)
    61   (let ((val (sparse-vector-ref1 hilbert index)))
    62     (if (hilbert-default? val)
    63         (hilbert-default-value val)
    64         val)))
    65                
    6649(define (sparse-vector-set! hilbert index value)
    6750  (vector-set!
     
    7861   value))
    7962
     63(define sparse-vector-ref
     64  (getter-with-setter
     65   (lambda (hilbert index)
     66     (let ((val (sparse-vector-ref1 hilbert index)))
     67       (if (hilbert-default? val)
     68           (hilbert-default-value val)
     69           val)))
     70   sparse-vector-set!))
     71               
    8072(define (make-higher-if-necessary hilbert index)
    8173  (if (< index hilbert-node-size)
     
    116108                               (- height 1) more)))
    117109            ((< i 0) more)))))
    118 )
  • release/4/sparse-vectors/trunk/sparse-vectors.setup

    r19980 r20567  
    1 ;;;; -*- Hen -*-
     1;;;; -*- Scheme -*-
    22
    3 (define (dynld-name fn)         
    4   (make-pathname #f fn ##sys#load-dynamic-extension))   
    5 
    6 (compile -O2 -d0 -s sparse-vectors.scm -j sparse-vectors)
    7 (compile -O2 -d0 -s sparse-vectors.import.scm)
     3(compile -O3 -d1 -s sparse-vectors-module.scm -j sparse-vectors -o sparse-vectors.so)
     4(compile -O3 -d1 -s sparse-vectors.import.scm)
    85
    96(when (extension-information 'numbers)
    10       (begin
    11         (compile -O2 -d0 -require-extension datatype
    12                  -s sparse-vectors.scm -o ,(dynld-name "big-sparse-vectors") -j big-sparse-vectors)
    13         (compile -O2 -d0  -s big-sparse-vectors.import.scm)))
     7  (compile -O3 -d1 -s big-sparse-vectors-module.scm -o big-sparse-vectors.so -j big-sparse-vectors)
     8  (compile -O3 -d1 -s big-sparse-vectors.import.scm))
    149
    1510(install-extension
    16 
    17   ; Name of your extension:
    1811  'sparse-vectors
    19 
    20   ; Files to install for your extension:
    21   `(,(dynld-name "sparse-vectors") ,(dynld-name "sparse-vectors.import")
     12  `("sparse-vectors.so" "sparse-vectors.import.so"
    2213    ,@(if (extension-information 'numbers)
    23           `(,(dynld-name "big-sparse-vectors") ,(dynld-name "big-sparse-vectors.import") ) '())
    24     )
    25 
    26   ; Assoc list with properties for your extension:
    27   `((version 0.3)
    28     (documentation "sparse-vectors.html")
    29     ))
     14          '("big-sparse-vectors.so" "big-sparse-vectors.import.so")
     15          '()))
     16  '((version 0.4)))
Note: See TracChangeset for help on using the changeset viewer.