cffi-devel June 2023

cffi-devel@common-lisp.net

7 participants
3 discussions

New failure in cl-libuv I don't understand
by Zach Beane 09 Jun '23

09 Jun '23

Full log is here: http://report.quicklisp.org/2023-05-29/failure-report/cl-libuv.html#cl-libuv Here's part of it: ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-libuv/9f0aced1c6a2ef1737696a9a577f65fbf922334a/cl-libuv-20230529-git/bindings.lisp ; in: DEFCFUN ("uv_loop_size" UV-LOOP-SIZE) ; (CFFI:DEFCFUN ("uv_loop_size" LIBUV::UV-LOOP-SIZE) ; LIBUV::SIZE-T) ; ; caught ERROR: ; (during macroexpansion of (DEFCFUN ("uv_loop_size" UV-LOOP-SIZE) ...)) ; Unknown CFFI type SIZE-T If I try compiling the library in isolation, it seems to work. Is it possible I've got some kind of stale fasl environment going on? Is there more research I can do to understand why this happens? Thanks, Zach

7 12

Re: New failure in cl-libuv I don't understand
by Martin Simmons 09 Jun '23

09 Jun '23

Yes, that works generally. An implementation is not permitted to implement (values) by returning NIL because that would be detectable by multiple-value-list for example. The "primary value" is used in cases where a form has to yield a value, such as in a let binding or as an argument to a function. In those cases, nil is used if there are zero values. (when nil (values)) will always return one value, nil, because (values) is never evaluated there. Likewise, (when t (values)) will always return zero values. __Martin >>>>> On Fri, 9 Jun 2023 08:35:29 -0500, Robert P Goldman said: > > Does that generally work, or is an implementation permitted to implement (values) by returning NIL? > > In the description of “primary value” in the hyper spec, I see the following: > > primary value n. (of values resulting from the evaluation of a form) the first value, if any, or else nil if there are no values. ``The primary value returned by truncate is an integer quotient, truncated toward zero.'' > > Does that license `(when nil (values))` to return NIL? > > -- > Robert P. Goldman > > On June 9, 2023 at 08:23:46, Martin Simmons (martin@lispworks.com(mailto:martin@lispworks.com)) wrote: > > > Another possible fix is to always return zero values, e.g. > > > > #.(progn > > (when (uiop:getenv "HOMEBREW_PREFIX") > > (pushnew :homebrew *features*)) > > (values)) > > > > __Martin > > > > > > > > > > > On Thu, 08 Jun 2023 16:32:36 -0500, Robert Goldman said: > > > > > > This one was my fault. I did the PR with this patch, because cl-libuv wouldn't build on my Mac. Since there's no testing, apparently, it slipped through. > > > > > > I don't know how to fix this, because I have never used CFFI-grovel, so no idea how to put Madhu's advice into practice. > > > > > > As an aside, doesn't this kind of break Faré's design principle that the person who has the information is the one who should be configuring the software? It seems like we are expecting the programmer to guess ahead of time what are all of the possible locations for the foreign library and includes. Wouldn't it make more sense for this to be configurable? > > > > > > Of course, this is partly my fault, since ASDF does not support configuring operations, except with gross dynamic variables. > > > > > > On 8 Jun 2023, at 15:32, Attila Lendvai wrote: > > > > > > > FTR, Madhu's analysis has been forwarded to the author: > > > > > > > > https://github.com/orthecreedence/cl-libuv/issues/23 > > > > > > > > -- > > > > • attila lendvai > > > > • PGP: 963F 5D5F 45C7 DFCD 0A39 > > > > -- > > > > “Nobody in the world, nobody in history, has ever gotten their freedom > > > > by appealing to the moral sense of the people who were oppressing > > > > them.” > > > > — Assata Shakur (1947–) > > > > > > >

1 0

Why does it does not work?
by oleg harput 08 Jun '23

08 Jun '23

Hi. I want to use the following C function: ;; void ClearBackground(Color color); Color is C Struct: ;; typedef struct Color { ;; unsigned char r; // Color red value ;; unsigned char g; // Color green value ;; unsigned char b; // Color blue value ;; unsigned char a; // Color alpha value ;; } Color; So I wrote: (cffi:defcstruct %color (r :uint8) (g :uint8) (b :uint8) (a :uint8)) (defvar *%lightgray* (cffi:foreign-alloc '(:struct %color))) (cffi:with-foreign-slots ((r g b a) *%lightgray* (:struct %color)) (setf (cffi:foreign-slot-value *%lightgray* '(:struct %color) 'r) 200) (setf (cffi:foreign-slot-value *%lightgray* '(:struct %color) 'g) 200) (setf (cffi:foreign-slot-value *%lightgray* '(:struct %color) 'b) 200) (setf (cffi:foreign-slot-value *%lightgray* '(:struct %color) 'a) 255) (format t "~s ~s ~s ~s" r g b a)) ;; void ClearBackground(Color color); (cffi:defcfun ("ClearBackground" %clear-background) :void (color (:struct %color))) (defun clear-background (color) (%clear-background color)) But when i run (clear-background *%lightgray*) That does not work, I have already added my .asd file ":cffi-libffi" as dependency. What is the problem? If this issue has no solution, is there an alternate way?

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cffi-devel June 2023