From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Catonano Newsgroups: gmane.lisp.guile.user Subject: Re: #define SOMETHING some_value Date: Fri, 16 Jun 2017 18:37:58 +0200 Message-ID: References: <87shj62twk.fsf@netris.org> <81DEFAEA-2D17-41BC-B5ED-5993ACDB7FCE@gmail.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable X-Trace: blaine.gmane.org 1497631118 4752 195.159.176.226 (16 Jun 2017 16:38:38 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Fri, 16 Jun 2017 16:38:38 +0000 (UTC) Cc: guile-user@gnu.org To: Matt Wette Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Fri Jun 16 18:38:34 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 1dLuGX-0000yR-21 for guile-user@m.gmane.org; Fri, 16 Jun 2017 18:38:33 +0200 Original-Received: from localhost ([::1]:59885 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dLuGc-0005s0-C4 for guile-user@m.gmane.org; Fri, 16 Jun 2017 12:38:38 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:37238) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dLuG2-0005gS-3d for guile-user@gnu.org; Fri, 16 Jun 2017 12:38:04 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dLuG1-0003aE-0N for guile-user@gnu.org; Fri, 16 Jun 2017 12:38:02 -0400 Original-Received: from mail-wm0-x22e.google.com ([2a00:1450:400c:c09::22e]:36925) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dLuG0-0003ZZ-Lg for guile-user@gnu.org; Fri, 16 Jun 2017 12:38:00 -0400 Original-Received: by mail-wm0-x22e.google.com with SMTP id d73so28261354wma.0 for ; Fri, 16 Jun 2017 09:38:00 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:in-reply-to:references:from:date:message-id:subject:to :cc; bh=r7w2z0oy6PqDJhDOTjqdKzD3z4YsVwvnz6Mov73P2K0=; b=gVeImyXEnz5GGgWUYEmOaauF5WcUXCPqnbzTQfTN9LRRndBKhB5eMMR2CXDXG9DQ7w oA0VRlXRRnY74diXaYpxIP9Uq4AR4QMVuQLYwEorA4+nyseqUuPgFcCydFJ3PjzeEX2D /RUtyX4DfCdvixKAbht4jB+1epyk9ZojxYU4KZ/J2hD58rik+Fpq1lfdA2JbimBEY4AQ ALtns1xPMqHd6D0ctpKUPOB4xbfoiM2aeE3GYsMt8PS6E8k+Xl7MlaBvntOXFMR7srZG w9DomZSJjbTud6IMrZlYH2qxRyn12Z6Sw+LlPkrh18MvN+5KzU/R6sDlSI9wgSnBxNPr Fs3w== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:in-reply-to:references:from:date :message-id:subject:to:cc; bh=r7w2z0oy6PqDJhDOTjqdKzD3z4YsVwvnz6Mov73P2K0=; b=r61r0WzcYvczJipNMDWmAAQjfFEc/RMel7SqQsqYHZ+Zp2kY0UM93Vz7wX+LdCd95y ZTs+pGcLxSg+o+ZD6BhUrj9AG7QAtea+0MbviZyuX6AzBq2aBNTkr0KWRZYzZaZyA8HJ bxXHfSrXaku7RDkh97Kubw0qHE/3BWEWqKvZOsOO7H2gtJiZIGe0BbqnRbx0A5YB5aj6 oZ7/2jMdiIrKP7D0l5umMM/JNHfNo6nYszcL5P7hjZi53Efb7T6dGybrideKCzEWnNlm SP3cG+ihILvm4ClzGA693/Md65PFB76fDIQPT7B4VRtUe+q7PaazNqyzeLn25mj6395F 0Hfw== X-Gm-Message-State: AKS2vOz2jslvE69X2UIBBpyvxgKz68nddW98IohpsX+VVTgE9xOYpEUj iboh60zbHwd5VpLbuqbyX5uNBqeePg== X-Received: by 10.80.182.71 with SMTP id c7mr8171042ede.55.1497631079495; Fri, 16 Jun 2017 09:37:59 -0700 (PDT) Original-Received: by 10.80.131.4 with HTTP; Fri, 16 Jun 2017 09:37:58 -0700 (PDT) In-Reply-To: <81DEFAEA-2D17-41BC-B5ED-5993ACDB7FCE@gmail.com> X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2a00:1450:400c:c09::22e X-Content-Filtered-By: Mailman/MimeDel 2.1.21 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:13841 Archived-At: 2017-06-15 21:21 GMT+02:00 Matt Wette : > I now have my ffi-helper automatically extracting #defines which are > constants. > I process on cairo-svg.h + cairo.h and get the following. I don=E2=80=99= t think > defining > and exporting all these as (define CAIRO_VERSION_MAJOR 1) etc is a good > idea. > > Comments on this method of providing access? > Why didn't you use enumerations like cwebber did in his guile-squee ? Just curious Anyway, your ffi-helper is very interesting I wonder if it could be used on Gnunet to re-do the guile bindings from scratch > Matt > > (define xxx-def-val > (let ((deftab > '((CAIRO_VERSION_MAJOR . 1) > (CAIRO_VERSION_MINOR . 14) > (CAIRO_VERSION_MICRO . 8) > (CAIRO_HAS_FC_FONT . 1) > (CAIRO_HAS_FT_FONT . 1) > (CAIRO_HAS_GOBJECT_FUNCTIONS . 1) > (CAIRO_HAS_IMAGE_SURFACE . 1) > (CAIRO_HAS_MIME_SURFACE . 1) > (CAIRO_HAS_OBSERVER_SURFACE . 1) > (CAIRO_HAS_PDF_SURFACE . 1) > (CAIRO_HAS_PNG_FUNCTIONS . 1) > (CAIRO_HAS_PS_SURFACE . 1) > (CAIRO_HAS_QUARTZ_FONT . 1) > (CAIRO_HAS_QUARTZ_IMAGE_SURFACE . 1) > (CAIRO_HAS_QUARTZ_SURFACE . 1) > (CAIRO_HAS_RECORDING_SURFACE . 1) > (CAIRO_HAS_SCRIPT_SURFACE . 1) > (CAIRO_HAS_SVG_SURFACE . 1) > (CAIRO_HAS_TEE_SURFACE . 1) > (CAIRO_HAS_USER_FONT . 1) > (CAIRO_HAS_XCB_SURFACE . 1) > (CAIRO_HAS_XLIB_SURFACE . 1) > (CAIRO_HAS_XLIB_XCB_FUNCTIONS . 1) > (CAIRO_HAS_XLIB_XRENDER_SURFACE . 1) > (CAIRO_HAS_XML_SURFACE . 1) > ))) > (lambda (k) (assq-ref deftab k)))) > > > >