From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Amirouche Boubekki Newsgroups: gmane.lisp.guile.user Subject: Re: ffi-helper: looking for C libraries to try Date: Sat, 15 Jul 2017 02:44:05 +0200 Message-ID: <6bc2d2c6d7229f221a32f7fd52919444@hypermove.net> References: <22E467C6-8BCD-43B6-90B3-CFC43FC8799E@gmail.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit X-Trace: blaine.gmane.org 1500079499 28894 195.159.176.226 (15 Jul 2017 00:44:59 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sat, 15 Jul 2017 00:44:59 +0000 (UTC) User-Agent: Roundcube Webmail/1.1.2 Cc: Guile User , guile-user To: Matt Wette Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Sat Jul 15 02:44:51 2017 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dWBCN-0006X9-IP for guile-user@m.gmane.org; Sat, 15 Jul 2017 02:44:43 +0200 Original-Received: from localhost ([::1]:40323 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dWBCP-00056I-Ly for guile-user@m.gmane.org; Fri, 14 Jul 2017 20:44:45 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:32791) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dWBBw-000568-A3 for guile-user@gnu.org; Fri, 14 Jul 2017 20:44:17 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dWBBv-00022U-89 for guile-user@gnu.org; Fri, 14 Jul 2017 20:44:16 -0400 Original-Received: from relay4-d.mail.gandi.net ([217.70.183.196]:40206) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dWBBq-000218-L1; Fri, 14 Jul 2017 20:44:10 -0400 Original-Received: from mfilter11-d.gandi.net (mfilter11-d.gandi.net [217.70.178.131]) by relay4-d.mail.gandi.net (Postfix) with ESMTP id 607B1172097; Sat, 15 Jul 2017 02:44:07 +0200 (CEST) X-Virus-Scanned: Debian amavisd-new at mfilter11-d.gandi.net Original-Received: from relay4-d.mail.gandi.net ([IPv6:::ffff:217.70.183.196]) by mfilter11-d.gandi.net (mfilter11-d.gandi.net [::ffff:10.0.15.180]) (amavisd-new, port 10024) with ESMTP id 6Y4pgrO-lrsM; Sat, 15 Jul 2017 02:44:05 +0200 (CEST) X-Originating-IP: 10.58.1.143 Original-Received: from webmail.gandi.net (webmail3-d.mgt.gandi.net [10.58.1.143]) (Authenticated sender: amirouche@hypermove.net) by relay4-d.mail.gandi.net (Postfix) with ESMTPA id 904FA172095; Sat, 15 Jul 2017 02:44:05 +0200 (CEST) In-Reply-To: <22E467C6-8BCD-43B6-90B3-CFC43FC8799E@gmail.com> X-Sender: amirouche@hypermove.net X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-Received-From: 217.70.183.196 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Original-Sender: "guile-user" Xref: news.gmane.org gmane.lisp.guile.user:13922 Archived-At: On 2017-07-15 01:17, Matt Wette wrote: > Hi All, > > I am working on a ffi-helper: a program that will read in a C dot-h > file and generate a Guile dot-scm file which > defines a module to provide hooks into the associated C library. My > goal is to have something to release ~Oct 2017. > > I am looking for suggestions for libraries (w/ includes of course) to > use as test cases to flush-out and debug my code. I have worked on > cairo and now working on gdbm. I tried git2 but those headers are too > broken. What do you mean by "too broken"? Maybe it will be easier in the long run to maintain our own version of the headers than manually bind everything. Even if it requires to create a shim layer in scheme to have a proper set of bindings that schemer will enjoy. Also, git is a good candidate since there are some tests already in guile-git [1]. https://gitlab.com/guile-git > > If you have suggestions for test cases, please post. They should be > commonly used. > (I use MacPorts and would want them to be installable in that context.) There is wiredtiger for which I am the maintainer. I will work on it. Since there is a test suite it will be easy to make it work. Sadly there is not support for it in macports. By the way, nyacc is missing installation instruction. > Status: > > I have now been able to compile-ffi the following on my Mac. I’m sure > bugs remain. > > (define-ffi-module (cairo cairo) > #:pkg-config "cairo" > #:include '(“cairo.h" "cairo-pdf.h" "cairo-svg.h") > > ;; the following are bent pipe to scm-module > #:export (make-cairo-unit-matrix) > ) > > (define (make-cairo-unit-matrix) > (make-cairo_matrix_t #(1.0 0.0 0.0 1.0 0.0 0.0))) > > I convert the above “cairo.ffi” file to “cairo.scm” using the following > command > > mwette$ guild compile-ffi cairo/cairo.ffi > > The above generates 397 FFI declarations in cairo.scm, a file which is > about 6000 lines long, compared to the original “cairo.ffi” which is > less than 10 lines long. > > Some generated code: > > ;; typedef struct _cairo_device cairo_device_t; > (define-fh-pointer-type cairo_device_t*) > > ;; union _cairo_path_data_t { > ;; struct { > ;; cairo_path_data_type_t type; > ;; int length; > ;; } header; > ;; struct { > ;; double x, y; > ;; } point; > ;; }; > (define cairo_path_data_t-desc > (bs:union > (list `(header > ,(bs:struct > (list `(type ,cairo_path_data_type_t-desc) > `(length ,int)))) > `(point ,(bs:struct (list `(y ,double) `(x ,double))))))) > (export cairo_path_data_t-desc) > (define-fh-bytestructure-type/p cairo_path_data_t > cairo_path_data_t-desc) > (define union-_cairo_path_data_t cairo_path_data_t) > > ;; typedef enum _cairo_path_data_type { > ;; CAIRO_PATH_MOVE_TO, > ;; CAIRO_PATH_LINE_TO, > ;; CAIRO_PATH_CURVE_TO, > ;; CAIRO_PATH_CLOSE_PATH, > ;; } cairo_path_data_type_t; > (define-fh-enum-type cairo_path_data_type_t > '((CAIRO_PATH_MOVE_TO . 0) > (CAIRO_PATH_LINE_TO . 1) > (CAIRO_PATH_CURVE_TO . 2) > (CAIRO_PATH_CLOSE_PATH . 3)) > ) > > ;; typedef void (*cairo_destroy_func_t)(void *data); > (define (wrap-cairo_destroy_func_t proc) ;; => pointer > (ffi:procedure->pointer ffi:void proc (list '*)) > ) > (export wrap-cairo_destroy_func_t) > > ;; cairo_status_t cairo_device_set_user_data(cairo_device_t *device, > const > ;; cairo_user_data_key_t *key, void *user_data, > cairo_destroy_func_t > ;; destroy); > (define cairo_device_set_user_data > (let ((~f (ffi:pointer->procedure > ffi:int > (lib-func "cairo_device_set_user_data") > (list '* '* '* '*)))) > (lambda (device key user_data destroy) > (let ((~device (unwrap-cairo_device_t* device)) > (~key (unwrap-cairo_user_data_key_t* key)) > (~user_data (unwrap~pointer user_data)) > (~destroy (unwrap-cairo_destroy_func_t destroy))) > (wrap-cairo_status_t > (~f ~device ~key ~user_data ~destroy)))))) > (export cairo_device_set_user_data) -- Amirouche ~ amz3 ~ http://www.hyperdev.fr