Re: type friction C <-> scheme

[Matt Wette <matt.wette@gmail.com>]

> On Jun 9, 2017, at 1:36 PM, Catonano <catonano@gmail.com> 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 ---