From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Matt Wette Newsgroups: gmane.lisp.guile.user Subject: Re: #define SOMETHING some_value Date: Sat, 10 Jun 2017 08:55:38 -0700 Message-ID: References: NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 (Mac OS X Mail 10.3 \(3273\)) Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: blaine.gmane.org 1497110170 11843 195.159.176.226 (10 Jun 2017 15:56:10 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sat, 10 Jun 2017 15:56:10 +0000 (UTC) Cc: guile-user@gnu.org To: Catonano Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Sat Jun 10 17:56:05 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 1dJik9-0002kl-22 for guile-user@m.gmane.org; Sat, 10 Jun 2017 17:56:05 +0200 Original-Received: from localhost ([::1]:58857 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dJikE-0008IP-C2 for guile-user@m.gmane.org; Sat, 10 Jun 2017 11:56:10 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:42360) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dJijp-0008ID-JR for guile-user@gnu.org; Sat, 10 Jun 2017 11:55:46 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dJijm-0003Mo-Ir for guile-user@gnu.org; Sat, 10 Jun 2017 11:55:45 -0400 Original-Received: from mail-pg0-x244.google.com ([2607:f8b0:400e:c05::244]:36391) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dJijm-0003Mb-Cw for guile-user@gnu.org; Sat, 10 Jun 2017 11:55:42 -0400 Original-Received: by mail-pg0-x244.google.com with SMTP id v18so10400257pgb.3 for ; Sat, 10 Jun 2017 08:55:42 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:subject:from:in-reply-to:date:cc :content-transfer-encoding:message-id:references:to; bh=dht1u52QkKPktHgOJUV3L5g/3/nF7BoBD9ls/et/ayo=; b=hsGpNMp/rCK7hyU/q5/AQilfEdHk8QsfpBJkls3SoyDNQZl0Z+rmngfZChrtuPpKHE Lbkmg+q+NFT8UO+Iic7UvO9e0c2whUPHXG5QpNctAHit/cSaz2Xmkf+B23+VhGOt1hFD xnk/hZfcdH4tFdqKlDx1rVUXs0o5Lqrt5z+UFzUSvatt2sxOPf0zsO9Yp0u+T3IhSb2n os9JXX/crGw54fFZaBXPf7r8+L+yPyoeeSqJcbWXg0hOLosrjaPN5NbU827ho590+B2f PFEsMXoSOmiA8ciOUFEJsI+edrxzdQERUn0NsKwROuDBqMBhi0ZZ0boyYxoXu7YfqNt0 tB+A== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:subject:from:in-reply-to:date:cc :content-transfer-encoding:message-id:references:to; bh=dht1u52QkKPktHgOJUV3L5g/3/nF7BoBD9ls/et/ayo=; b=cDKXJi+w5AQT3/Am/MV3viL6TU0TF/DOKlOrfAY9965iH2e8zy8LZQYGIqXBCn2LtN 69yzhCW54nIEjb767Sp+ytypscWQpsCCn9NRIOP61PkTn41cJa+Ran8rPb/+PyCpXW2p ad4RvTx0qy9+7kC/DB1VCE43rEScUSgS86upg9oDZ+fdYEYTB9cW6DCP58h6sVphAfEf QHZ5YbzfvVgx/VG9iRME0eulE3V8d7D5yq3KwE16dwn2hY/WRe3HPgnnUjnIQIfcC1VC nUgnwZsAPeaesbFNTWePxRAt5klr6lYa279Aqe77Yyopquzh/4pVBbSdBgY+8YJ/SFDz xi5g== X-Gm-Message-State: AODbwcDQpNbborh3TGF0ljGxZXL/w5VM24k1wuTmZ0DIy41dELuqcWOz IU3VmFEVxRz1Hg== X-Received: by 10.101.90.7 with SMTP id y7mr5396213pgs.226.1497110141180; Sat, 10 Jun 2017 08:55:41 -0700 (PDT) Original-Received: from [192.168.2.114] (216-165-236-44.championbroadband.com. [216.165.236.44]) by smtp.gmail.com with ESMTPSA id 81sm8304710pge.46.2017.06.10.08.55.39 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sat, 10 Jun 2017 08:55:40 -0700 (PDT) In-Reply-To: X-Mailer: Apple Mail (2.3273) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2607:f8b0:400e:c05::244 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:13799 Archived-At: > On Jun 10, 2017, at 1:31 AM, Catonano wrote: >=20 > The Freexl documentation states that I should call freexl_get_info = like this >=20 > freexl_get_info(&handler, FREEXL_BIFF_SHEET_COUNT, &outcome); >=20 > Now, FREEXL_BIFF_SHEET_COUNT is defined in the header file like this >=20 > /** Information query for BIFF sheet count */ > #define FREEXL_BIFF_SHEET_COUNT 32010 >=20 > But at the REPL, when I call my procedure like this >=20 > scheme@(freexl common)> (freexl-open "resources/Lavoro_P.xls") > $1 =3D # > scheme@(freexl common)> (freexl-get-info $1 32010) >=20 > I get >=20 > ERROR: Throw to key `get-info-error' with args `(error-code -3)'. >=20 > That is, an exception is being raised, as you can see in this excerpt = of my > code >=20 > (define freexl-get-info > (let* ((ptr (freexl-func "freexl_get_info")) > (proc (pointer->procedure int ptr (list '* unsigned-int = '*)))) > (lambda (handle-ptr what) > (let* ((outcome-ptr (bytevector->pointer (make-bytevector (sizeof > unsigned-int)))) > (result (proc handle-ptr what outcome-ptr))) > (if (not (=3D result 0)) > (throw 'get-info-error 'error-code result) <-- THIS IS THE > EXCEPTION BEING RAISED > outcome-ptr) > )))) >=20 > How do I deal with these #define'd things ? >=20 > I tried with both unsigned-int and uint16 >=20 > Thanks in advance Yea. I may have steered you wrong before. (I didn=E2=80=99t look back.) = The argument signature might need to be (list =E2=80=98* unsigned-short = =E2=80=98*) rather than your current one with unsigned-int.