64 lines
3.1 KiB
Scheme
64 lines
3.1 KiB
Scheme
(c-declare "#include <stdint.h>")
|
|
|
|
(define size-of-int8_t (c-lambda () int "___return(sizeof(int8_t));"))
|
|
(define size-of-uint8_t (c-lambda () int "___return(sizeof(uint8_t));"))
|
|
(define size-of-int16_t (c-lambda () int "___return(sizeof(int16_t));"))
|
|
(define size-of-uint16_t (c-lambda () int "___return(sizeof(uint16_t));"))
|
|
(define size-of-int32_t (c-lambda () int "___return(sizeof(int32_t));"))
|
|
(define size-of-uint32_t (c-lambda () int "___return(sizeof(uint32_t));"))
|
|
(define size-of-int64_t (c-lambda () int "___return(sizeof(int64_t));"))
|
|
(define size-of-uint64_t (c-lambda () int "___return(sizeof(uint64_t));"))
|
|
(define size-of-char (c-lambda () int "___return(sizeof(char));"))
|
|
(define size-of-unsigned-char (c-lambda () int "___return(sizeof(unsigned char));"))
|
|
(define size-of-short (c-lambda () int "___return(sizeof(short));"))
|
|
(define size-of-unsigned-short (c-lambda () int "___return(sizeof(unsigned short));"))
|
|
(define size-of-int (c-lambda () int "___return(sizeof(int));"))
|
|
(define size-of-unsigned-int (c-lambda () int "___return(sizeof(unsigned int));"))
|
|
(define size-of-long (c-lambda () int "___return(sizeof(long));"))
|
|
(define size-of-unsigned-long (c-lambda () int "___return(sizeof(unsigned long));"))
|
|
(define size-of-float (c-lambda () int "___return(sizeof(float));"))
|
|
(define size-of-double (c-lambda () int "___return(sizeof(double));"))
|
|
(define size-of-void* (c-lambda () int "___return(sizeof(void*));"))
|
|
|
|
(define size-of-type
|
|
(lambda (type)
|
|
(cond ((eq? type 'int8) (size-of-int8_t))
|
|
((eq? type 'uint8) (size-of-uint8_t))
|
|
((eq? type 'int16) (size-of-int16_t))
|
|
((eq? type 'uint16) (size-of-uint16_t))
|
|
((eq? type 'int32) (size-of-int32_t))
|
|
((eq? type 'uint32) (size-of-uint32_t))
|
|
((eq? type 'int64) (size-of-int64_t))
|
|
((eq? type 'uint64) (size-of-uint64_t))
|
|
((eq? type 'char) (size-of-char))
|
|
((eq? type 'unsigned-char) (size-of-char))
|
|
((eq? type 'short) (size-of-short))
|
|
((eq? type 'unsigned-short) (size-of-unsigned-short))
|
|
((eq? type 'int) (size-of-int))
|
|
((eq? type 'unsigned-int) (size-of-unsigned-int))
|
|
((eq? type 'long) (size-of-long))
|
|
((eq? type 'unsigned-long) (size-of-unsigned-long))
|
|
((eq? type 'float) (size-of-float))
|
|
((eq? type 'double) (size-of-double))
|
|
((eq? type 'pointer) (size-of-void*))
|
|
((eq? type 'callback) (size-of-void*))
|
|
((eq? type 'void) (size-of-void*))
|
|
(else (error "Can not get size of unknown type" type)))))
|
|
|
|
#;(define-macro
|
|
(include-c-headers headers)
|
|
`(c-declare ,(apply string-append
|
|
(map
|
|
(lambda (header)
|
|
(string-append "#include <" header ">" (string #\newline)))
|
|
(list "stdio.h")))))
|
|
|
|
(define-macro
|
|
(pffi-shared-object-auto-load headers object-name . options)
|
|
`(c-declare ,(apply string-append
|
|
(map
|
|
(lambda (header)
|
|
(string-append "#include <" header ">" (string #\newline)))
|
|
(cdr headers)))))
|
|
|