Changeset 20280 in project


Ignore:
Timestamp:
09/13/10 03:15:47 (8 years ago)
Author:
kon
Message:

.meta deps.

Location:
release/4/coerce/trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • release/4/coerce/trunk/coerce.meta

    r20256 r20280  
    1 ;;;; "coerce.meta  -*- Hen -*-
     1;;;; coerce.meta  -*- Hen -*-
    22
    33((egg "coerce.egg")
     
    77 (doc-from-wiki)
    88 (synopsis "Type Identity & Coercion")
    9  (needs setup-helper miscmacros lookup-table check-errors)
     9 (depends
     10  (setup-helper "1.2.0")
     11  (miscmacros "2.91")
     12        (lookup-table "1.11.0")
     13        (check-errors "1.5.0"))
    1014 (test-depends test)
    1115 (files
  • release/4/coerce/trunk/coerce.scm

    r15998 r20280  
    22;;;; Kon Lovett, Sep '09
    33
    4 (module coerce (;export
    5   ;; Original
    6   coerce
    7   type-of
    8   ;; Coerce Extensions
    9   (case-coerce *make-case-coerce)
    10   case-coerce
    11   coerce-all
    12   ;; Type Domain Extension
    13   coerce-extended?
    14   coerce-extend!
    15   coerce-extension
    16   coerce-composite-extension!
    17   coerce-extension-remove!
    18   ;;
    19   type-of-extended?
    20   type-of-extend!
    21   type-of-extension
    22   type-of-composite-extension!
    23   type-of-remove!)
     4(module coerce
     5
     6  (;export
     7    ;; Original
     8    coerce
     9    type-of
     10    ;; Coerce Extensions
     11    (case-coerce *make-case-coerce)
     12    case-coerce
     13    coerce-all
     14    ;; Type Domain Extension
     15    coerce-extended?
     16    coerce-extend!
     17    coerce-extension
     18    coerce-composite-extension!
     19    coerce-extension-remove!
     20    ;;
     21    type-of-extended?
     22    type-of-extend!
     23    type-of-extension
     24    type-of-composite-extension!
     25    type-of-remove!)
    2426
    2527  (import scheme chicken type-coerce type-of)
  • release/4/coerce/trunk/coerce.setup

    r17423 r20280  
    1 ;;;; "coerce.setup  -*- Hen -*-
     1;;;; coerce.setup  -*- Hen -*-
    22
    33(include "setup-helper")
     
    77(required-extension-version
    88  "lookup-table"              "1.11.0"
     9  "miscmacros"                "2.91"
    910  "check-errors"              "1.5.0")
    1011
    1112(setup-shared-extension-module 'type-extend-support (extension-version "1.1.1")
    12   #:compile-options '(-optimize-level 3 -debug-level 0
    13                       -fixnum-arithmetic
    14                       -no-procedure-checks -no-bound-checks -no-argc-checks))
     13  #:compile-options '(
     14    -optimize-level 3 -debug-level 0
     15    -fixnum-arithmetic
     16    -no-procedure-checks -no-bound-checks -no-argc-checks))
    1517
    1618(setup-shared-extension-module 'type-of (extension-version "1.1.1")
    17   #:compile-options '(-optimize-level 3
    18                       -fixnum-arithmetic
    19                       -no-procedure-checks))
     19  #:compile-options '(
     20    -optimize-level 3
     21    -fixnum-arithmetic
     22    -no-procedure-checks))
    2023
    2124(setup-shared-extension-module 'type-coerce (extension-version "1.1.1")
    22   #:compile-options '(-optimize-level 3
    23                       -fixnum-arithmetic
    24                       -no-procedure-checks))
     25  #:compile-options '(
     26    -optimize-level 3
     27    -fixnum-arithmetic
     28    -no-procedure-checks))
    2529
    2630(setup-shared-extension-module 'coerce (extension-version "1.1.1"))
  • release/4/coerce/trunk/type-coerce.scm

    r17423 r20280  
    3030;; box the object with the specified composite.
    3131
    32 (module type-coerce (;export
    33   make-case-coerce
    34   (case-coerce *make-case-coerce) *make-case-coerce
    35   coerce
    36   coerce-all)
     32(module type-coerce
     33
     34  (;export
     35    make-case-coerce
     36    (case-coerce *make-case-coerce) *make-case-coerce
     37    coerce
     38    coerce-all)
    3739
    3840#|
    3941  (cond-expand
    4042    (full-numeric-tower
    41       (import (except scheme
    42                       + - * / = > < >= <=
    43                       number->string string->number
    44                       eqv? equal?
    45                       exp log sin cos tan atan acos asin expt sqrt
    46                       quotient modulo remainder
    47                       numerator denominator
    48                       abs max min gcd lcm
    49                       positive? negative? odd? even? zero?
    50                       exact? inexact?
    51                       rationalize
    52                       floor ceiling truncate round
    53                       inexact->exact exact->inexact
    54                       number? complex? real? rational? integer?
    55                       make-rectangular make-polar real-part imag-part magnitude angle)
    56                     (except chicken add1 sub1 random randomize conj signum
    57                       force-finalizers
    58                       bitwise-and bitwise-ior bitwise-xor bitwise-not arithmetic-shift)
    59               numbers )
     43      (import
     44        (except scheme
     45          + - * / = > < >= <=
     46          number->string string->number
     47          eqv? equal?
     48          exp log sin cos tan atan acos asin expt sqrt
     49          quotient modulo remainder
     50          numerator denominator
     51          abs max min gcd lcm
     52          positive? negative? odd? even? zero?
     53          exact? inexact?
     54          rationalize
     55          floor ceiling truncate round
     56          inexact->exact exact->inexact
     57          number? complex? real? rational? integer?
     58          make-rectangular make-polar real-part imag-part magnitude angle)
     59        (except chicken
     60          add1 sub1 random randomize conj signum
     61          force-finalizers
     62          bitwise-and bitwise-ior bitwise-xor bitwise-not arithmetic-shift)
     63        numbers)
    6064      (require-library numbers) )
    6165    (else
     
    6367|#
    6468
    65   (import scheme chicken)
    66   (import chicken
    67           (only data-structures alist-ref)
    68           (only srfi-1 every reverse!)
    69           (only miscmacros if*)
    70           (only type-checks check-procedure check-symbol check-list check-alist)
    71           (only type-errors signal-type-error)
    72           type-of)
    73 
    74   (require-library data-structures srfi-1
    75                    miscmacros type-checks type-errors type-of)
     69  (import
     70    scheme
     71    chicken
     72    (only data-structures alist-ref)
     73    (only srfi-1 every reverse!)
     74    (only miscmacros if*)
     75    (only type-checks check-procedure check-symbol check-list check-alist)
     76    (only type-errors signal-type-error)
     77    type-of)
     78
     79  (require-library
     80    data-structures srfi-1
     81    miscmacros type-checks type-errors type-of)
    7682
    7783;;;
  • release/4/coerce/trunk/type-extend-support.scm

    r15998 r20280  
    22;;;; Kon Lovett, Sep '09
    33
    4 (module type-extend-support (;export
    5   typdef-type
    6   typdef-pred
    7   typdef-proc
    8   typdef-add!
    9   typdef-delete!
    10   typdef/object
    11   typdef/type)
     4(module type-extend-support
     5
     6  (;export
     7    typdef-type
     8    typdef-pred
     9    typdef-proc
     10    typdef-add!
     11    typdef-delete!
     12    typdef/object
     13    typdef/type)
    1214
    1315  (import scheme chicken lookup-table-synch)
  • release/4/coerce/trunk/type-of.scm

    r20256 r20280  
    2121;each case.
    2222
    23 (module type-of (;export
    24   type-of
    25   ;;
    26   coerce-extend!
    27   coerce-composite-extension!
    28   coerce-extended?
    29   coerce-extension
    30   coerce-extension-remove!
    31   ;;
    32   type-of-extended?
    33   type-of-extend!
    34   type-of-extension
    35   type-of-composite-extension!
    36   type-of-remove!
    37   ;;
    38   other-coerce)
     23(module type-of
     24
     25  (;export
     26    type-of
     27    ;;
     28    coerce-extend!
     29    coerce-composite-extension!
     30    coerce-extended?
     31    coerce-extension
     32    coerce-extension-remove!
     33    ;;
     34    type-of-extended?
     35    type-of-extend!
     36    type-of-extension
     37    type-of-composite-extension!
     38    type-of-remove!
     39    ;;
     40    other-coerce)
    3941
    4042#|
     
    4345  (cond-expand
    4446    (full-numeric-tower
    45       (import (except scheme
    46                       + - * / = > < >= <=
    47                       number->string string->number
    48                       eqv? equal?
    49                       exp log sin cos tan atan acos asin expt sqrt
    50                       quotient modulo remainder
    51                       numerator denominator
    52                       abs max min gcd lcm
    53                       positive? negative? odd? even? zero?
    54                       exact? inexact?
    55                       rationalize
    56                       floor ceiling truncate round
    57                       inexact->exact exact->inexact
    58                       number? complex? real? rational? integer?
    59                       make-rectangular make-polar real-part imag-part magnitude angle)
    60                     (except chicken add1 sub1 random randomize conj signum
    61                       force-finalizers
    62                       bitwise-and bitwise-ior bitwise-xor bitwise-not arithmetic-shift)
    63               numbers )
     47      (import
     48        (except scheme
     49          + - * / = > < >= <=
     50          number->string string->number
     51          eqv? equal?
     52          exp log sin cos tan atan acos asin expt sqrt
     53          quotient modulo remainder
     54          numerator denominator
     55          abs max min gcd lcm
     56          positive? negative? odd? even? zero?
     57          exact? inexact?
     58          rationalize
     59          floor ceiling truncate round
     60          inexact->exact exact->inexact
     61          number? complex? real? rational? integer?
     62          make-rectangular make-polar real-part imag-part magnitude angle)
     63        (except chicken
     64          add1 sub1 random randomize conj signum
     65          force-finalizers
     66          bitwise-and bitwise-ior bitwise-xor bitwise-not arithmetic-shift)
     67        numbers )
    6468      (require-library numbers) )
    6569    (else
     
    6771|#
    6872
    69   (import scheme chicken)
    70   (import (only data-structures identity)
    71           (only lolevel record-instance? record-instance-type
    72                 pointer? tagged-pointer? locative?)
    73           (only miscmacros if*)
    74           (only type-checks check-procedure check-symbol)
    75           type-extend-support)
     73  (import
     74    scheme chicken
     75    (only data-structures identity)
     76    (only lolevel record-instance? record-instance-type
     77          pointer? tagged-pointer? locative?)
     78    (only miscmacros if*)
     79    (only type-checks check-procedure check-symbol)
     80    type-extend-support)
    7681
    77   (require-library data-structures lolevel
    78                    miscmacros type-checks type-extend-support)
     82  (require-library
     83    data-structures lolevel
     84    miscmacros type-checks type-extend-support)
    7985
    8086;;@body
Note: See TracChangeset for help on using the changeset viewer.