Changeset 20808 in project


Ignore:
Timestamp:
10/11/10 15:54:37 (9 years ago)
Author:
felix winkelmann
Message:

bind 0.5 (uint64_t (somewhat fishy), pointer-vector (needs exp.))

Location:
release/4/bind
Files:
8 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/bind/tags/0.5/bind-translator.scm

    r18951 r20808  
    270270    [`(scheme-pointer . ,more) (values 'scheme-pointer more)]
    271271    [`(byte-vector . ,more) (values 'byte-vector more)]
     272    [`(pointer-vector . ,more) (values 'pointer-vector more)]
    272273    [`(fixnum . ,more) (values 'int more)]
    273274    [`(pointer unsigned short int star . ,more) (values '(c-pointer unsigned-short) more)]
     
    11001101       (str "void *")]
    11011102      [(byte-vector nonnull-byte-vector u8vector nonnull-u8vector) (str "unsigned char *")]
     1103      ((pointer-vector nonnull-pointer-vector) (str "void **"))
    11021104      [(u16vector nonnull-u16vector) (str "unsigned short *")]
    11031105      [(s8vector nonnull-s8vector) (str "char *")]
  • release/4/bind/tags/0.5/bind.setup

    r19502 r20808  
    2626 '("bind.so" "bind.import.so"
    2727   "bind-translator.so" "bind-translator.import.so")
    28  '((version 0.4)))
     28 '((version 0.5)))
    2929
    3030(install-extension
    3131 'cplusplus-object
    3232 '("cplusplus-object.so" "cplusplus-object.import.so")
    33  '((version 0.4)))
     33 '((version 0.5)))
    3434
    3535(install-program
    3636 'chicken-bind
    3737 "chicken-bind"
    38  '((version 0.4)))
     38 '((version 0.5)))
    3939
  • release/4/bind/tags/0.5/c.l

    r18751 r20808  
    4646"___symbol"                         'symbol
    4747"___bool"                           'bool
     48"___pointer_vector"                  'pointer-vector
    4849"___pointer"                       'pointer
    4950"___u32"                           'u32
     
    5253"int64_t"                          's64
    5354"__int64"                          's64
     55"int32_t"                          's32
     56"__int32"                          's32
     57"uint64_t"                         'u64
     58"uint32_t"                         'u64
    5459"bool"                             'bool
    5560"___safe"                           'callback
  • release/4/bind/tags/0.5/tests/tests.scm

    r18859 r20808  
    7676
    7777(assert (equal? '(22 22.3) (receive (bar 22.3))))
    78 (assert (equal? #\x16 (two 22.5)))
     78(two 22.5)
     79(assert (= #x16 (two 22.5)))
    7980
    8081;;; ___out
  • release/4/bind/trunk/bind-translator.scm

    r18951 r20808  
    270270    [`(scheme-pointer . ,more) (values 'scheme-pointer more)]
    271271    [`(byte-vector . ,more) (values 'byte-vector more)]
     272    [`(pointer-vector . ,more) (values 'pointer-vector more)]
    272273    [`(fixnum . ,more) (values 'int more)]
    273274    [`(pointer unsigned short int star . ,more) (values '(c-pointer unsigned-short) more)]
     
    11001101       (str "void *")]
    11011102      [(byte-vector nonnull-byte-vector u8vector nonnull-u8vector) (str "unsigned char *")]
     1103      ((pointer-vector nonnull-pointer-vector) (str "void **"))
    11021104      [(u16vector nonnull-u16vector) (str "unsigned short *")]
    11031105      [(s8vector nonnull-s8vector) (str "char *")]
  • release/4/bind/trunk/bind.setup

    r19502 r20808  
    2626 '("bind.so" "bind.import.so"
    2727   "bind-translator.so" "bind-translator.import.so")
    28  '((version 0.4)))
     28 '((version 0.5)))
    2929
    3030(install-extension
    3131 'cplusplus-object
    3232 '("cplusplus-object.so" "cplusplus-object.import.so")
    33  '((version 0.4)))
     33 '((version 0.5)))
    3434
    3535(install-program
    3636 'chicken-bind
    3737 "chicken-bind"
    38  '((version 0.4)))
     38 '((version 0.5)))
    3939
  • release/4/bind/trunk/c.l

    r18751 r20808  
    4646"___symbol"                         'symbol
    4747"___bool"                           'bool
     48"___pointer_vector"                  'pointer-vector
    4849"___pointer"                       'pointer
    4950"___u32"                           'u32
     
    5253"int64_t"                          's64
    5354"__int64"                          's64
     55"int32_t"                          's32
     56"__int32"                          's32
     57"uint64_t"                         'u64
     58"uint32_t"                         'u64
    5459"bool"                             'bool
    5560"___safe"                           'callback
  • release/4/bind/trunk/tests/tests.scm

    r18859 r20808  
    7676
    7777(assert (equal? '(22 22.3) (receive (bar 22.3))))
    78 (assert (equal? #\x16 (two 22.5)))
     78(two 22.5)
     79(assert (= #x16 (two 22.5)))
    7980
    8081;;; ___out
Note: See TracChangeset for help on using the changeset viewer.