[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: type friction C <-> scheme
From: |
Matt Wette |
Subject: |
Re: type friction C <-> scheme |
Date: |
Sun, 11 Jun 2017 11:01:40 -0700 |
> On Jun 9, 2017, at 1:36 PM, Catonano <address@hidden> wrote:
>
> Here we go again
>
> After successfully wrapping freexl_open, I can't do the same with
> freexl_get_info
Note that my fyi-helper is not working yet, but here is the current output if I
feed it freexl.h
;;
;; auto-generated by ffi-help.scm
;;
(define-module (freexl)
#:use-module (ffi-help)
#:use-module ((system foreign) #:prefix ffi:)
#:use-module ((bytestructures guile) #:prefix bs:)
)
(define bs:struct bs:bs:struct)
(define lib-link (dynamic-link #f))
(define (lib-func name) (dynamic-func name lib-link))
;; (struct . "FreeXL_CellValue_str")
;; ... failed.
;; "FreeXL_CellValue"
;; typedef struct FreeXL_CellValue_str FreeXL_CellValue;
(define-std-pointer-wrapper FreeXL_CellValue*)
;; "freexl_version"
;; extern const char *freexl_version(void);
(define freexl_version
(let ((f (ffi:pointer->procedure
'*
(lib-func "freexl_version")
(list))))
(lambda () (let () (identity (f))))))
(export freexl_version)
;; "freexl_open"
;; extern int freexl_open(const char *path, const void **xls_handle);
(define freexl_open
(let ((f (ffi:pointer->procedure
ffi:int
(lib-func "freexl_open")
(list '* '*))))
(lambda (path xls_handle)
(let ((~path (identity path))
(~xls_handle (identity xls_handle)))
(f ~path ~xls_handle)))))
(export freexl_open)
;; "freexl_open_info"
;; extern int freexl_open_info(const char *path, const void **xls_handle);
(define freexl_open_info
(let ((f (ffi:pointer->procedure
ffi:int
(lib-func "freexl_open_info")
(list '* '*))))
(lambda (path xls_handle)
(let ((~path (identity path))
(~xls_handle (identity xls_handle)))
(f ~path ~xls_handle)))))
(export freexl_open_info)
;; "freexl_close"
;; extern int freexl_close(const void *xls_handle);
(define freexl_close
(let ((f (ffi:pointer->procedure
ffi:int
(lib-func "freexl_close")
(list '*))))
(lambda (xls_handle)
(let ((~xls_handle (identity xls_handle)))
(f ~xls_handle)))))
(export freexl_close)
;; "freexl_get_info"
;; extern int freexl_get_info(const void *xls_handle, unsigned short what,
;; unsigned int *info);
(define freexl_get_info
(let ((f (ffi:pointer->procedure
ffi:int
(lib-func "freexl_get_info")
(list '* ffi:unsigned-short '*))))
(lambda (xls_handle what info)
(let ((~xls_handle (identity xls_handle))
(~info (identity info)))
(f ~xls_handle what ~info)))))
(export freexl_get_info)
;; "freexl_get_worksheet_name"
;; extern int freexl_get_worksheet_name(const void *xls_handle, unsigned short
;; sheet_index, const char **string);
(define freexl_get_worksheet_name
(let ((f (ffi:pointer->procedure
ffi:int
(lib-func "freexl_get_worksheet_name")
(list '* ffi:unsigned-short '*))))
(lambda (xls_handle sheet_index string)
(let ((~xls_handle (identity xls_handle))
(~string (identity string)))
(f ~xls_handle sheet_index ~string)))))
(export freexl_get_worksheet_name)
;; "freexl_select_active_worksheet"
;; extern int freexl_select_active_worksheet(const void *xls_handle,
;; unsigned short sheet_index);
(define freexl_select_active_worksheet
(let ((f (ffi:pointer->procedure
ffi:int
(lib-func "freexl_select_active_worksheet")
(list '* ffi:unsigned-short))))
(lambda (xls_handle sheet_index)
(let ((~xls_handle (identity xls_handle)))
(f ~xls_handle sheet_index)))))
(export freexl_select_active_worksheet)
;; "freexl_get_active_worksheet"
;; extern int freexl_get_active_worksheet(const void *xls_handle,
;; unsigned short *sheet_index);
(define freexl_get_active_worksheet
(let ((f (ffi:pointer->procedure
ffi:int
(lib-func "freexl_get_active_worksheet")
(list '* '*))))
(lambda (xls_handle sheet_index)
(let ((~xls_handle (identity xls_handle))
(~sheet_index (identity sheet_index)))
(f ~xls_handle ~sheet_index)))))
(export freexl_get_active_worksheet)
;; "freexl_worksheet_dimensions"
;; extern int freexl_worksheet_dimensions(const void *xls_handle, unsigned int
;; *rows, unsigned short *columns);
(define freexl_worksheet_dimensions
(let ((f (ffi:pointer->procedure
ffi:int
(lib-func "freexl_worksheet_dimensions")
(list '* '* '*))))
(lambda (xls_handle rows columns)
(let ((~xls_handle (identity xls_handle))
(~rows (identity rows))
(~columns (identity columns)))
(f ~xls_handle ~rows ~columns)))))
(export freexl_worksheet_dimensions)
;; "freexl_get_SST_string"
;; extern int freexl_get_SST_string(const void *xls_handle, unsigned short
;; string_index, const char **string);
(define freexl_get_SST_string
(let ((f (ffi:pointer->procedure
ffi:int
(lib-func "freexl_get_SST_string")
(list '* ffi:unsigned-short '*))))
(lambda (xls_handle string_index string)
(let ((~xls_handle (identity xls_handle))
(~string (identity string)))
(f ~xls_handle string_index ~string)))))
(export freexl_get_SST_string)
;; "freexl_get_FAT_entry"
;; extern int freexl_get_FAT_entry(const void *xls_handle, unsigned int
;; sector_index, unsigned int *next_sector_index);
(define freexl_get_FAT_entry
(let ((f (ffi:pointer->procedure
ffi:int
(lib-func "freexl_get_FAT_entry")
(list '* ffi:unsigned-int '*))))
(lambda (xls_handle sector_index next_sector_index)
(let ((~xls_handle (identity xls_handle))
(~next_sector_index (identity next_sector_index)))
(f ~xls_handle sector_index ~next_sector_index)))))
(export freexl_get_FAT_entry)
;; "freexl_get_cell_value"
;; extern int freexl_get_cell_value(const void *xls_handle, unsigned int row,
;; unsigned short column, FreeXL_CellValue *value);
(define freexl_get_cell_value
(let ((f (ffi:pointer->procedure
ffi:int
(lib-func "freexl_get_cell_value")
(list '* ffi:unsigned-int ffi:unsigned-short '*))))
(lambda (xls_handle row column value)
(let ((~xls_handle (identity xls_handle))
(~value (unwrap-FreeXL_CellValue* value)))
(f ~xls_handle row column ~value)))))
(export freexl_get_cell_value)
;; --- last line ---
- type friction C <-> scheme, Catonano, 2017/06/09
- Re: type friction C <-> scheme, Mike Gran, 2017/06/09
- Re: type friction C <-> scheme, Matt Wette, 2017/06/09
- Re: type friction C <-> scheme, Catonano, 2017/06/09
- Re: type friction C <-> scheme, Matt Wette, 2017/06/09
- Re: type friction C <-> scheme, Catonano, 2017/06/10
- Re: type friction C <-> scheme, Mark H Weaver, 2017/06/11
- Re: type friction C <-> scheme, Matt Wette, 2017/06/11
- Re: type friction C <-> scheme, Catonano, 2017/06/11
Re: type friction C <-> scheme,
Matt Wette <=