Still having a problem and I think it's related to the allocation of the
buffer. Here is C code that works fine:
(BTW, I'm running SBCL 0.9.5, cffi-luis-051002-1333, on Ubuntu Hoary/x86)
=================================
typedef struct
{
unsigned char* bp;
unsigned int size;
unsigned int allocated;
unsigned int next;
} TidyBuffer;
typedef void* TidyDoc;
TidyDoc tidyCreate(void);
int tidyParseString(TidyDoc tdoc, const char* str);
int tidySaveBuffer(TidyDoc tdoc, TidyBuffer* buf);
int main(int argc, char **argv )
{
const char* input = "<title>Foo</title><p>Foo!";
TidyBuffer output = {0};
TidyDoc tdoc = tidyCreate();
tidyParseString( tdoc, input ); // Parse the input
tidySaveBuffer( tdoc, &output ); // Pretty Print
printf( "\n%s\n", output.bp );
}
===========================
and my lisp equivalent:
;;;;;;;;;;;;;;;;;;;;;;;
(cffi:load-foreign-library "/usr/lib/libtidy.so")
(cffi:defcstruct tidy-buffer
(bp :pointer)
(size :unsigned-int)
(allocated :unsigned-int)
(next :unsigned-int))
(cffi:defcfun ("tidyCreate" tidy-create) :pointer)
(cffi:defcfun ("tidyParseString" tidy-parse-string) :int
(doc :pointer)
(input :pointer))
(cffi:defcfun ("tidySaveBuffer" tidy-save-buffer) :int
(doc :pointer)
(output tidy-buffer))
(defun tidy-string (str)
(cffi:with-foreign-object (output tidy-buffer)
(let ((tdoc (tidy-create)))
(cffi:with-foreign-string (s str)
(tidy-parse-string tdoc s)
(tidy-save-buffer tdoc output)))))
(tidy-string "<title>Foo</title><p>Foo!")
;;;;;;;;;;;;;;;;;;;;;;;;
when it gets to the call to tidy-save-buffer I get a stack trace:
memory fault
[Condition of type SB-KERNEL::MEMORY-FAULT-ERROR]
Restarts:
0: [ABORT] Abort SLIME compilation.
1: [ABORT-REQUEST] Abort handling SLIME request.
2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "worker"
{9E2F069}>)
Backtrace:
0: (SB-KERNEL::MEMORY-FAULT-ERROR)
1: ("foreign function: call_into_lisp")
2: ("foreign function: post_signal_tramp")
3: ("foreign function: tidyBufPutByte")
4: ("foreign function: #xB5EF69F7")
5: ("foreign function: tidyPutByte")
6: ("foreign function: #xB5EF8359")
7: ("foreign function: WriteChar")
8: ("foreign function: PFlushLine")
9: ("foreign function: PPrintTree")
10: ("foreign function: PPrintTree")
11: ("foreign function: tidyDocSaveStream")
12: ("foreign function: tidyDocSaveBuffer")
13: ("foreign function: tidySaveBuffer")
14: (TIDY-SAVE-BUFFER #.(SB-SYS:INT-SAP #X0827B590) #.(SB-SYS:INT-SAP
#XB5A3DFEC))
15: (TIDY-STRING "<title>Foo</title><p>Foo!")
16: ((SB-PCL::FAST-METHOD SWANK-BACKEND:SWANK-COMPILE-STRING (T))
#<unused argument> #<unused argument> "(tidy-string
\"<title>Foo</title><p>Foo!\")
" (:BUFFER "tinytidy.lisp" :POSITION 624 :DIRECTORY "/home/bruce/src/cl/"))
_______________________________________________
cffi-devel mailing list
cffi-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
