Hi,
I use below macro to allocate foreign vectors.
(defmacro with-foreign-vectors ((&rest bindings) &body body)
"Convenient macro to create foreign vector bindings. `BINDIGS' are of `(NAME
TYPE INITIAL-CONTENTS)' format."
`(let* ,(loop with val = (gensym)
for (name type initial-contents) in bindings
collect `(,name
(let ((,val ,initial-contents))
; (let ((*print-length* 10))
; (format *trace-output* "~S => ~D ~S (~A)~%"
; ',name (when ,val (length ,val))
; ,val (find nil ,val)))
(foreign-alloc ,type
:count (length ,val)
:initial-contents ,val))))
(unwind-protect (progn ,@body)
,@(mapcar
(lambda (name) `(foreign-free ,name))
(mapcar #'car bindings)))))
But while running the program, it throws below error message. (I
experience same situation in both SBCL and CCL.)
NALP> (compare-partitionings
"/home/vy/bilkent/projects/xml/t/xmark-1024-20091006-1314-small/"
"/home/vy/bilkent/projects/xml/t/xmark-1024-20091006-1314-small/sanitized-logs.out"
"/home/vy/bilkent/projects/xml/t/xmark-1024-20091006-1314-small/weights.out"
40 16 0.2)
N-PTR => 1 #(7536) (NIL)
XADJ-PTR => 7537 #(0 1 3 5 6 8 10 12 14 16 ...) (NIL)
ADJNCY-PTR => 8011 #(1 80 2 5666 3 4 2044 5 2292 6 ...) (NIL)
; Evaluation aborted.
; The value NIL is not of type (SIGNED-BYTE 32).
; [Condition of type TYPE-ERROR]
;
; Restarts:
; 0: [RETRY] Retry SLIME REPL evaluation request.
; 1: [ABORT] Return to SLIME's top level.
; 2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" RUNNING {AA75079}>)
;
; Backtrace:
; 0: (CFFI-SYS:%MEM-SET NIL #.(SB-SYS:INT-SAP #X080C8850) :INT 16620)
; Locals:
; CFFI-SYS::OFFSET = 16620
; CFFI-SYS::PTR = #.(SB-SYS:INT-SAP #X080C8850)
; TYPE = :INT
; CFFI-SYS::VALUE = NIL
; 1: (FOREIGN-ALLOC :INT)[:EXTERNAL]
; Locals:
; SB-DEBUG::ARG-0 = 5
; SB-DEBUG::ARG-1 = :INT
; 2: (METIS-BIPARTITION-GRAPH-FFI #(0 1 3 5 6 8 ...) #(1 80 2 5666 3 4 ...) #(1 1 1 1 1 1 ...) #(20 7 13 1 19 20 ...) 0.2)
; Locals:
; SB-DEBUG::ARG-0 = #(0 1 3 5 6 8 ...)
; SB-DEBUG::ARG-1 = #(1 80 2 5666 3 4 ...)
; SB-DEBUG::ARG-2 = #(1 1 1 1 1 1 ...)
; SB-DEBUG::ARG-3 = #(20 7 13 1 19 20 ...)
; SB-DEBUG::ARG-4 = 0.2
When I look at the printed results, there doesn't appear any `NIL'
values in any of the `:INITIAL-CONTENTS' vectors. But error tells that
one of the `VALUE' arguments passed to `CFFI-SYS:%MEM-SET' is `NIL'.
Below are some of the detailed macroexpansions related to
`CFFI-SYS:%MEM-SET'.
(define-mem-accessors
(:char sb-sys:signed-sap-ref-8)
(:unsigned-char sb-sys:sap-ref-8)
(:short sb-sys:signed-sap-ref-16)
(:unsigned-short sb-sys:sap-ref-16)
(:int sb-sys:signed-sap-ref-32)
(:unsigned-int sb-sys:sap-ref-32)
(:long sb-sys:signed-sap-ref-word)
(:unsigned-long sb-sys:sap-ref-word)
(:long-long sb-sys:signed-sap-ref-64)
(:unsigned-long-long sb-sys:sap-ref-64)
(:float sb-sys:sap-ref-single)
(:double sb-sys:sap-ref-double)
(:pointer sb-sys:sap-ref-sap))
Which turns into below form if I macroexpand the `DEFINE-MEM-ACCESSORS'.
...
(DEFUN %MEM-SET (VALUE PTR TYPE &OPTIONAL (OFFSET 0))
(ECASE TYPE
(:CHAR (SETF (SB-SYS:SIGNED-SAP-REF-8 PTR OFFSET) VALUE))
(:UNSIGNED-CHAR (SETF (SB-SYS:SAP-REF-8 PTR OFFSET) VALUE))
(:SHORT (SETF (SB-SYS:SIGNED-SAP-REF-16 PTR OFFSET) VALUE))
(:UNSIGNED-SHORT (SETF (SB-SYS:SAP-REF-16 PTR OFFSET) VALUE))
(:INT (SETF (SB-SYS:SIGNED-SAP-REF-32 PTR OFFSET) VALUE))
(:UNSIGNED-INT (SETF (SB-SYS:SAP-REF-32 PTR OFFSET) VALUE))
(:LONG (SETF (SB-SYS:SIGNED-SAP-REF-WORD PTR OFFSET) VALUE))
(:UNSIGNED-LONG (SETF (SB-SYS:SAP-REF-WORD PTR OFFSET) VALUE))
(:LONG-LONG (SETF (SB-SYS:SIGNED-SAP-REF-64 PTR OFFSET) VALUE))
(:UNSIGNED-LONG-LONG (SETF (SB-SYS:SAP-REF-64 PTR OFFSET) VALUE))
(:FLOAT (SETF (SB-SYS:SAP-REF-SINGLE PTR OFFSET) VALUE))
(:DOUBLE (SETF (SB-SYS:SAP-REF-DOUBLE PTR OFFSET) VALUE))
(:POINTER (SETF (SB-SYS:SAP-REF-SAP PTR OFFSET) VALUE))))
...
To be honest, I need some urgent assistance. Any helps will be really
appreciated.
Regards.