Hi Matt,

Thanks for the fix!  Grabbing ff-help-rt.scm seemed to have been enough.

Now the following code fails, however:

(define (get-username handle)
  (let* ((username-pointer (make-char*)))
    (pam_get_item handle
                  (ffi-pam-symbol-val 'PAM_USER)
                  (pointer-to username-pointer))
    (char*->string username-pointer)))

The error occurs in the call to char*->string:

ERROR: In procedure pointer->string:
In procedure pointer->string: Wrong type argument in position 1 (expecting POINTER_P): 8489776

There is now a bytestructure, but I have not found a way to look inside.  It is opaque to me.

I also see an exception while printing the backtrace, but do not know what that means, either.  Thanks!

Backtrace:
          13 (primitive-load "/lcl/lechner/pam/guile-pam/test/load")
In ice-9/eval.scm:
    619:8 12 (_ #(#(#(#(#<directory (guile-user) 7fd995f24?>) ?) ?) ?))
In unknown file:
          11 (_ #<procedure 7fd9909d7d00 at ice-9/eval.scm:330:13 ()> ?)
In ice-9/eval.scm:
   293:34 10 (_ #(#(#(#(#(#(#<directory (guile-user)?>) ?) ?) ?) ?) ?))
   293:34  9 (_ #(#(#(#(#(#(#(#<directory (pam le?>) ?) ?) ?) ?) ?) ?))
In unknown file:
Exception thrown while printing backtrace:
In procedure primitive-call-ip: Wrong type argument in position 1 (expecting PRIMITIVE_P): #<procedure 7fd9909c1600 (_ _ _ _)>

1.10 is available on the dev-1.10 branch

Hi,

With this definition generated by the FFI Helper:

  (bs:struct
    (list `(conv ,(fh:function
                    int
                    (list int
                          (fh:pointer (fh:pointer 'void))
                          (fh:pointer (fh:pointer 'void))
                          (fh:pointer 'void))))
          `(appdata_ptr ,(fh:pointer 'void))))

I am unable to set the 'conv component with this code:

         (ptr (procedure->pointer int
                                  (lambda (num_msg pam_message pam_response appdata_ptr)
                                    (format #t "Number of messages ~s~%" num_msg))
                                  (list int '* '* '*)))
         (conversation (let* ((conv (make-struct-pam_conv)))
                         (fh-object-set! conv 'conv ptr)
                         conv))

The code produces this error message:

bytestructures/body/base.scm:155:12: In procedure bytestructure-primitive-set!:
Cannot write value with this bytestructure descriptor. #<pointer 0x7fcc41a79fe0> #<bytestructure-descriptor 0x7fcc41614300>

What am I doing wrong, please? Thanks!