Changeset 37039 in project


Ignore:
Timestamp:
01/14/19 10:11:35 (5 months ago)
Author:
felix
Message:

bind 1.2.4: applied bugfixes and enhancements contributed by evhan

Location:
release/5/bind
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/bind/tags/1.2.4/bind-translator.scm

    r35659 r37039  
    309309    [('signed . more) (parse-type-rec more)]
    310310    [`(unsigned fixnum . ,more) (values 'unsigned-int more)]
    311     [`(unsigned int . ,more)
    312      (values 'unsigned-integer more)]
     311    [`(unsigned int . ,more) (values 'unsigned-integer more)]
    313312    [`(unsigned char . ,more) (values 'unsigned-char more)]
    314313    [`(unsigned short int . ,more) (values 'unsigned-short more)]
     
    316315    [`(unsigned short . ,more) (values 'unsigned-short more)]
    317316    [`(unsigned long . ,more) (values 'unsigned-long more)]
     317    [`(u8 . ,more) (values 'unsigned-byte more)]
     318    [`(s8 . ,more) (values 'byte more)]
    318319    [`(u32 . ,more) (values 'unsigned-integer32 more)]
    319320    [`(s32 . ,more) (values 'integer32 more)]
  • release/5/bind/tags/1.2.4/c.l

    r28576 r37039  
    4848"___pointer_vector"                  (tok 'pointer-vector)
    4949"___pointer"                       (tok 'pointer)
     50"___u8"                            (tok 'u8)
     51"___s8"                            (tok 's8)
    5052"___u32"                           (tok 'u32)
    5153"___s32"                           (tok 's32)
     
    5658"int32_t"                          (tok 's32)
    5759"__int32"                          (tok 's32)
     60"int8_t"                           (tok 's8)
     61"__int8"                           (tok 's8)
    5862"uint64_t"                         (tok 'u64)
    5963"uint32_t"                         (tok 'u32)
     64"uint8_t"                          (tok 'u8)
    6065"bool"                             (tok 'bool)
    6166"___safe"                           (tok 'callback)
  • release/5/bind/tags/1.2.4/chicken-bind.scm

    r35700 r37039  
    6767                 (unless (pair? rest) (usage 1))
    6868                 (let ((m (string-match "([^:]+):(.+)" (cadr args))))
    69                    (if m
    70                        (set-renaming (cadr m) (caddr m) regex: (string=? "-rename-regex" arg))
    71                        (usage 1))))
     69                   (unless (pair? m) (usage 1))
     70                   (set-renaming (cadr m) (caddr m) regex: (string=? "-rename-regex" arg)))
     71                 (loop (cdr rest)))
    7272                ((string=? "-o" arg)
    7373                 (when (null? rest) (usage 1))
  • release/5/bind/trunk/bind-translator.scm

    r35659 r37039  
    309309    [('signed . more) (parse-type-rec more)]
    310310    [`(unsigned fixnum . ,more) (values 'unsigned-int more)]
    311     [`(unsigned int . ,more)
    312      (values 'unsigned-integer more)]
     311    [`(unsigned int . ,more) (values 'unsigned-integer more)]
    313312    [`(unsigned char . ,more) (values 'unsigned-char more)]
    314313    [`(unsigned short int . ,more) (values 'unsigned-short more)]
     
    316315    [`(unsigned short . ,more) (values 'unsigned-short more)]
    317316    [`(unsigned long . ,more) (values 'unsigned-long more)]
     317    [`(u8 . ,more) (values 'unsigned-byte more)]
     318    [`(s8 . ,more) (values 'byte more)]
    318319    [`(u32 . ,more) (values 'unsigned-integer32 more)]
    319320    [`(s32 . ,more) (values 'integer32 more)]
  • release/5/bind/trunk/c.l

    r28576 r37039  
    4848"___pointer_vector"                  (tok 'pointer-vector)
    4949"___pointer"                       (tok 'pointer)
     50"___u8"                            (tok 'u8)
     51"___s8"                            (tok 's8)
    5052"___u32"                           (tok 'u32)
    5153"___s32"                           (tok 's32)
     
    5658"int32_t"                          (tok 's32)
    5759"__int32"                          (tok 's32)
     60"int8_t"                           (tok 's8)
     61"__int8"                           (tok 's8)
    5862"uint64_t"                         (tok 'u64)
    5963"uint32_t"                         (tok 'u32)
     64"uint8_t"                          (tok 'u8)
    6065"bool"                             (tok 'bool)
    6166"___safe"                           (tok 'callback)
  • release/5/bind/trunk/chicken-bind.scm

    r35700 r37039  
    6767                 (unless (pair? rest) (usage 1))
    6868                 (let ((m (string-match "([^:]+):(.+)" (cadr args))))
    69                    (if m
    70                        (set-renaming (cadr m) (caddr m) regex: (string=? "-rename-regex" arg))
    71                        (usage 1))))
     69                   (unless (pair? m) (usage 1))
     70                   (set-renaming (cadr m) (caddr m) regex: (string=? "-rename-regex" arg)))
     71                 (loop (cdr rest)))
    7272                ((string=? "-o" arg)
    7373                 (when (null? rest) (usage 1))
Note: See TracChangeset for help on using the changeset viewer.