Changeset 37039 in project
- Timestamp:
- 01/14/19 10:11:35 (2 years ago)
- 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 309 309 [('signed . more) (parse-type-rec more)] 310 310 [`(unsigned fixnum . ,more) (values 'unsigned-int more)] 311 [`(unsigned int . ,more) 312 (values 'unsigned-integer more)] 311 [`(unsigned int . ,more) (values 'unsigned-integer more)] 313 312 [`(unsigned char . ,more) (values 'unsigned-char more)] 314 313 [`(unsigned short int . ,more) (values 'unsigned-short more)] … … 316 315 [`(unsigned short . ,more) (values 'unsigned-short more)] 317 316 [`(unsigned long . ,more) (values 'unsigned-long more)] 317 [`(u8 . ,more) (values 'unsigned-byte more)] 318 [`(s8 . ,more) (values 'byte more)] 318 319 [`(u32 . ,more) (values 'unsigned-integer32 more)] 319 320 [`(s32 . ,more) (values 'integer32 more)] -
release/5/bind/tags/1.2.4/c.l
r28576 r37039 48 48 "___pointer_vector" (tok 'pointer-vector) 49 49 "___pointer" (tok 'pointer) 50 "___u8" (tok 'u8) 51 "___s8" (tok 's8) 50 52 "___u32" (tok 'u32) 51 53 "___s32" (tok 's32) … … 56 58 "int32_t" (tok 's32) 57 59 "__int32" (tok 's32) 60 "int8_t" (tok 's8) 61 "__int8" (tok 's8) 58 62 "uint64_t" (tok 'u64) 59 63 "uint32_t" (tok 'u32) 64 "uint8_t" (tok 'u8) 60 65 "bool" (tok 'bool) 61 66 "___safe" (tok 'callback) -
release/5/bind/tags/1.2.4/chicken-bind.scm
r35700 r37039 67 67 (unless (pair? rest) (usage 1)) 68 68 (let ((m (string-match "([^:]+):(.+)" (cadr args)))) 69 ( if m70 (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))) 72 72 ((string=? "-o" arg) 73 73 (when (null? rest) (usage 1)) -
release/5/bind/trunk/bind-translator.scm
r35659 r37039 309 309 [('signed . more) (parse-type-rec more)] 310 310 [`(unsigned fixnum . ,more) (values 'unsigned-int more)] 311 [`(unsigned int . ,more) 312 (values 'unsigned-integer more)] 311 [`(unsigned int . ,more) (values 'unsigned-integer more)] 313 312 [`(unsigned char . ,more) (values 'unsigned-char more)] 314 313 [`(unsigned short int . ,more) (values 'unsigned-short more)] … … 316 315 [`(unsigned short . ,more) (values 'unsigned-short more)] 317 316 [`(unsigned long . ,more) (values 'unsigned-long more)] 317 [`(u8 . ,more) (values 'unsigned-byte more)] 318 [`(s8 . ,more) (values 'byte more)] 318 319 [`(u32 . ,more) (values 'unsigned-integer32 more)] 319 320 [`(s32 . ,more) (values 'integer32 more)] -
release/5/bind/trunk/c.l
r28576 r37039 48 48 "___pointer_vector" (tok 'pointer-vector) 49 49 "___pointer" (tok 'pointer) 50 "___u8" (tok 'u8) 51 "___s8" (tok 's8) 50 52 "___u32" (tok 'u32) 51 53 "___s32" (tok 's32) … … 56 58 "int32_t" (tok 's32) 57 59 "__int32" (tok 's32) 60 "int8_t" (tok 's8) 61 "__int8" (tok 's8) 58 62 "uint64_t" (tok 'u64) 59 63 "uint32_t" (tok 'u32) 64 "uint8_t" (tok 'u8) 60 65 "bool" (tok 'bool) 61 66 "___safe" (tok 'callback) -
release/5/bind/trunk/chicken-bind.scm
r35700 r37039 67 67 (unless (pair? rest) (usage 1)) 68 68 (let ((m (string-match "([^:]+):(.+)" (cadr args)))) 69 ( if m70 (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))) 72 72 ((string=? "-o" arg) 73 73 (when (null? rest) (usage 1))
Note: See TracChangeset
for help on using the changeset viewer.