- cffi-devel - mailman3.common-lisp.net

[cffi-devel] How would i write the exact equivelant of a C New Operator
by Joeish W 30 Oct '13

30 Oct '13

Im converting this code here int board_n = board_w * board_h; CvPoint2D32f* corners = new CvPoint2D32f[ board_n ]; from this link http://dasl.mem.drexel.edu/~noahKuntz/openCVTut10.html and in the code is a new operator id like to convert but i could use guidance how. first of all i looked on google and there actually doesnt appear to be a C new operator only C++ which is a little weird because the code at the above link is full of only OpenCV C functions so either there is a C new operator or the author is using C and C++ together. I was going to do foreign-alloc but at thislink about the new operator for C++ it says "Allocatescountbytes from free store. Calls the function pointer returned by std::get_new_handler on failure and repeats allocation attempts until new handler does not return or becomes a null pointer, at which time throws std::bad_alloc." I dont really know what to make of that and that link is for C++...thus the reason for my question....any guidance is appreciated

2 1

Fw: [cffi-devel] How would i use a function with a callback parameter
by Joeish W 29 Oct '13

29 Oct '13

On , Joeish W <joeish80829(a)yahoo.com> wrote: > >I got the callback working somewhat to illustrate here is my code so far below and again im attempting to convert the lowest function on this page: http://opencv-srf.blogspot.com/2011/11/track-bars.html > >(defcallback a :void ((contrast :int) (img cv-arr) (dest cv-arr)) > (format t "img-1: ~a~%~%" img) >(format t "dest-1: ~a~%~%" dest) >(format t "Trackbar level-1: ~a~%~%" contrast)) > > > >(defun create-trackbar-example (&optional (camera-index *camera-index*) (width *default-width*) > (height *default-height*)) > "Creates a trackbar and attaches it to the specified window. > Move the slider to adjust the brightess of the camera output" > (with-capture (capture (create-camera-capture camera-index)) > (let ((window-name "CREATE-TRACKBAR Example") > (contrast (foreign-alloc :int :initial-contents '(10))) > (dest (create-image (size width height) +ipl-depth-8u+ 3))) > (set-capture-property capture +cap-prop-frame-width+ width) > (set-capture-property capture +cap-prop-frame-height+ height) > (named-window window-name) > (move-window window-name 600 175) > (do* ((img (query-frame capture) (query-frame capture)) > (img (clone-image img)) > (scale 0) > (n 0)) > ((plusp (wait-key *millis-per-frame*)) nil) > (create-trackbar "Contrast" window-name contrast 21 (callback a)) > (format t "img-2: ~a~%~%" img) > (format t "dest-2: ~a~%~%" dest) > (format t "Trackbar level-2: ~a~%~%" (mem-ref contrast :int)) > (show-image window-name img)) > (release-image dest) > (destroy-window window-name)))) > > >im testing the callback function and it works, it is called when the trackbar is moved, i know this because the Trackbar level-2 format output from the callback function prints which it should and the output of the contrast variable in that format function also changes.....the contrast variable is changed in the create-trackbar-example function and the callback function picks up that variable with the (contrast :int) parameter... my new question is how do i get the callback function to pick up the img and dest variables from the create-trackbar-example function....when the code runs the output of the format t functions from the call back with the img and dest variables in them are different from the output of the format t functions from the create-trackbar-example with the img and dest in them which means the callback isnt picking those up but it is picking up the variable contrast...and oddly enough i dont have to mem-ref the contrast variable in the callback function....when i just evaluate the variable contrast it prints a number....I think the parameters of the callback are defined righ,t the img and dest are defined as cv-arr (a defctype :pointer) in my library >...any help is appreciated > >On Sunday, October 27, 2013 12:03 AM, "f9cef2aa(a)yandex.ru" <f9cef2aa(a)yandex.ru> wrote: > >>here is my attempt but i have no idea how to define a function as a pointer and ive tried alot of variations but is too long to post. The defun change contrast compiles btw...i tried using make-pointer to make the change-contrast function a pointer but make-pointer wants it to be a real...so cant use foreign-alloc i dont think because the function needs to be converted to a pointer first to use that...any guidance is appreciated >>> >>>(defun change-contrast (&optional contrast img dest) >>>(if (< contrast 10) (scale img dest (/ 1 (coerce (- 11 contrast) 'double-float))) >>> (if (>= contrast 10) (scale img dest (- contrast 9)))) >>> (show-image "MyImage" dest)) >>> >>>(defun display (filename) >>> "Open the image FILENAME and show it in a window." >>> (let* ((img (load-image filename 1)) >>> (img-size (get-size img)) >>> (dest (create-image img-size +ipl-depth-8u+ 3)) >>> (contrast (cffi:foreign-alloc :int :initial-contents '(10)) >>> (test "not sure what to do here"))) >>> (named-window "MyWindow" 1) >>> (create-trackbar "conrast" "MyWindow" contrast 21 test) >>> (princ (mem-ref contrast :int)) >>> (change-contrast (mem-ref contrast :int) img dest) >>> (loop while (not (= (wait-key 0) 27))) >>> (release-image img) >>> (release-image dest) >>> (destroy-window "MyWindow"))) >> >>Have you read defcallback documentation? If no, read it and try to use >>defcallback. If yes, what was your problem when using defcallback? >> >> >> >> >> >> >> >> > >

1 0

[cffi-devel] How would i write the exact equivelant of a C New Operator
by Joeish W 28 Oct '13

28 Oct '13

Im converting this code here int board_n = board_w * board_h; CvPoint2D32f* corners = new CvPoint2D32f[ board_n ]; from this link http://dasl.mem.drexel.edu/~noahKuntz/openCVTut10.html and in the code is a new operator id like to convert but i could use guidance how. first of all i looked on google and there actually doesnt appear to be a C new operator only C++ which is a little weird because the code at the above link is full of only OpenCV C functions so either there is a C new operator or the author is using C and C++ together. I was going to do foreign-alloc but at thislink about the new operator for C++ it says "Allocatescountbytes from free store. Calls the function pointer returned by std::get_new_handler on failure and repeats allocation attempts until new handler does not return or becomes a null pointer, at which time throws std::bad_alloc." I dont really know what to make of that and that link is for C++...thus the reason for my question....any guidance is appreciated

1 0

[cffi-devel] How would i use a function with a callback parameter
by Joeish W 27 Oct '13

27 Oct '13

the below function create-trackbar-example works except for the last parameter of create-trackbar, "test" ..the test parameter is supposed to be a function that gets called when the trackbar moves. cvCreateTrackbar, the function I'm wrapping, creates a gui slider on the Opencv output window it can either change the variable of a running program or call a function when the slider is moved more info on the last parameter of cvCreateTrackbar, called onChange, herehttp://docs.opencv.org/modules/highgui/doc/user_interface.html?highligh… In the documentation for cvCreateTrackbar it says: for onChange: "onChange – Pointer to the function to be called every time the slider changes position. This function should be prototyped as void Foo(int,void*); , where the first parameter is the trackbar position and the second parameter is the user data (see the next parameter). If the callback is the NULL pointer, no callbacks are called, but only value is updated." im trying to convert the second code on this page to lisp http://opencv-srf.blogspot.com/2011/11/track-bars.html ...Im pretty sure i have all functions wrapped correctly but in theory create-trackbar could be wrong the last parameter in my wrapper is a defctype of :pointer type called cv-trackbar-callback here is my attempt but i have no idea how to define a function as a pointer and ive tried alot of variations but is too long to post. The defun change contrast compiles btw...i tried using make-pointer to make the change-contrast function a pointer but make-pointer wants it to be a real...so cant use foreign-alloc i dont think because the function needs to be converted to a pointer first to use that...any guidance is appreciated (defun change-contrast (&optional contrast img dest) (if (< contrast 10) (scale img dest (/ 1 (coerce (- 11 contrast) 'double-float))) (if (>= contrast 10) (scale img dest (- contrast 9)))) (show-image "MyImage" dest)) (defun display (filename) "Open the image FILENAME and show it in a window." (let* ((img (load-image filename 1)) (img-size (get-size img)) (dest (create-image img-size +ipl-depth-8u+ 3)) (contrast (cffi:foreign-alloc :int :initial-contents '(10)) (test "not sure what to do here"))) (named-window "MyWindow" 1) (create-trackbar "conrast" "MyWindow" contrast 21 test) (princ (mem-ref contrast :int)) (change-contrast (mem-ref contrast :int) img dest) (loop while (not (= (wait-key 0) 27))) (release-image img) (release-image dest) (destroy-window "MyWindow")))

2 1

[cffi-devel] getting There is no applicable method for the generic function wrapping cvFont
by Joeish W 26 Oct '13

26 Oct '13

I wrapped this function how i normally do which is usually correct the function im wrapping is here...info at least and a small example of its usage is there also at the end of the postl ;; CvFont cvFontQt(const char* nameFont, int pointSize = -1, CvScalar color = cvScalarAll(0), int weight = CV_FONT_NORMAL, ;; int style = CV_STYLE_NORMAL, int spacing = 0) (cffi:defcfun ("cvFontQt" %font-qt) (:struct cv-font) (name-font :string) (point-size :int) (color (:struct cv-scalar)) (weight :int) (style :int) (spacing :int)) (defun font-qt (name-font &optional (point-size -1) (color (scalar-all 0)) (weight +font-normal+) (style +style-normal+) (spacing 0)) "Creates the font to draw a text on an image." (%font-qt name-font point-size color weight style spacing)) im getting this error message when i run each of these (with-foreign-object (font '(:struct cv-font)) (setf (mem-ref font `(:pointer (:struct cv-font))) (font-qt "Monospace"))) (defparameter font (foreign-alloc '(:struct cv-font) :initial-element (list (font-qt "")))) (font-qt "") There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION TRANSLATE-INTO-FOREIGN-MEMORY (5)> when called with arguments ("" #<CFFI::FOREIGN-STRING-TYPE :UTF-8> #.(SB-SYS:INT-SAP #X7FFFE1467FF0)). [Condition of type SIMPLE-ERROR] it seems to be written right and I'm just running the function so i could use a little help on this . I never use any of cffi foreign-string functions for const char* just :string and they always run right

1 0

Re: [cffi-devel] How do i cast variables
by Martin Simmons 26 Oct '13

26 Oct '13

[ please post back to the list, not private email ] It looks like you are confused about the difference in CFFI between a pointer to a struct and a pointer to a pointer to a struct. Unfortunately, CFFI pointers are untyped so you don't get errors by doing the wrong thing. To call cvFindContours as in the example, you need a pointer to a pointer to a struct (&contour in the C code). Whenever you want to translate C code that uses &variable, you need to allocate a pointer to hold the value and then dereference it after calling the function. E.g. something like this (untested): (cffi:with-foreign-object (contour-ptr (:pointer (:struct cv-seq))) ;; contour-ptr has foreign type (:pointer (:pointer (:struct cv-seq))) (cv-find-contours ... contour-ptr ...) (mem-ref contour-ptr '(:pointer (:struct cv-seq)))) __Martin >>>>> On Wed, 23 Oct 2013 17:04:07 -0700 (PDT), Joeish W said: > > well I'm trying to learn about Sequences in opencv. So this was practice at making the code at this link > > http://opencv-srf.blogspot.com/2011/09/object-detection-tracking-using-cont… > > under the > > Shape Detection & Tracking using Contours > heading . in that code there is this line CvSeq* contours; since i dont know how to initialize a struct pointer in lisp as it is done there ive been using CvSeq* contours = cvCreateSeq(0, sizeof(CvSeq),sizeof(CvPoint),storage); which also initializes a CvSeq* and works in that example. if you could advise me initializing structs I would be most grateful.....Basically I'm starting off by mastering the CvSeq parts of the code. > . > > > > On Wednesday, October 23, 2013 3:23 AM, Martin Simmons <martin(a)lispworks.com> wrote: > >>>>> On Tue, 22 Oct 2013 15:48:50 -0700 (PDT), Joeish W said: > > > >> > >> take this for instance > >> > >> CvPoint points[2]; > >> > >> > >> id like to be able to cast points[2] to the CvPoint struct more info here http://docs.opencv.org/modules/core/doc/old_basic_structures.html?highlight… > >> > >> > >> here is my struct which works for other things > >> > >> > >> > >> ;; (cffi:foreign-type-size '(:struct cv-point)) = 8 > >> (cffi:defcstruct cv-point > >> (x :int) > >> (y :int)) > >> > >> > >> put in a defparameter you cant just go > >> > >> (defparameter points (cffi:foreign-alloc :int :count 2)) > >> > >> (defparameter a ((:struct cv-point) points)) > >> > >> > >> you get an illegal function call error...any help is appreciated > > > >Your example is inconsistent -- in C, your points variable is an array of two > >CvPoints, but in Lisp it is an array of two ints. > > > >What are you really trying to do? > > > >I suggest you post the C code that you are trying to convert. The opencv doc > >for CvPoint doesn't use casting or arrays of ints. > > > >__Martin > > > > > > > > > > >

2 1

[cffi-devel] Could use a little help writing a defmacro for a defcfun and defun combo
by Joeish W 25 Oct '13

25 Oct '13

here is the defcfun and deffun combo ;; void cvSplit(const CvArr* src, CvArr* dst0, CvArr* dst1, CvArr* dst2, CvArr* dst3) ;; Note: I had to use "CV-MERGE" instead of "MERGE" for the Common Lisp name of CV-MERGE so I named this ;; function CV-SPLIT so they would match. (cffi:defcfun ("cvSplit" %split) :void (src cv-arr) (dest-0 cv-arr) (dest-1 cv-arr) (dest-2 cv-arr) (dest-3 cv-arr)) (defun cv-split (src dest-0 &optional (dest-1 (cffi:null-pointer)) (dest-2 (cffi:null-pointer)) (dest-3 (cffi:null-pointer))) "Divides a multi-channel array into several single-channel arrays." (%split src dest-0 dest-1 dest-2 dest-3)) it works as expected ...no errors at all my attempt at a macro(new to macros) below works in one piece of code when the defun it is in is evaluated at the repl then ran at the repl ;; #define cvCvtPixToPlane cvSplit (defmacro cvt-pix-to-plane (src dest-0 &optional (dest-1 (cffi:null-pointer)) (dest-2 (cffi:null-pointer)) (dest-3 (cffi:null-pointer))) "Macro for CV-SPLIT" `(cv-split ,src ,dest-0 ,dest-1 ,dest-2 ,dest-3)) but in the same code when used the exact same way inside emacs (using slime/sbcl on ubuntu saucy) when it is placed inside a newly opened file (.lisp) or even my well used test.lisp file and ran with slime-compile-and-load-file i get error: Objects of type SB-SYS:SYSTEM-AREA-POINTER can't be dumped into fasl files. --> CL-OPENCV::CV-SPLIT ==> #.(SB-SYS:INT-SAP #X00000000) can you help me figure out the issue and write macros with null-pointers correctly

2 2

[cffi-devel] how do i convert this code block into lisp
by Joeish W 25 Oct '13

25 Oct '13

Here is the code block which runs perfect in c CvHistogram* hist; { int hist_size[] = { h_bins, s_bins }; float h_ranges[] = { 0, 180 }; float s_ranges[] = { 0, 255 }; float* ranges[] = { h_ranges, s_ranges }; hist = cvCreateHist( 2, hist_size, CV_HIST_ARRAY, ranges, 1 ); } and here is my attempt (setf hist (let* ((hist-size (cffi:foreign-alloc :int :initial-contents (list h-bins s-bins))) (h-ranges (cffi:foreign-alloc :float :initial-contents '(0.0 180.0))) (s-ranges (cffi:foreign-alloc :float :initial-contents '(0.0 255.0))) (ranges (cffi:foreign-alloc :initial-contents (list h-ranges s-ranges)))) (create-hist 2 hist-size +hist-array+ ranges 1))) cvCreateHist info is here Im getting this error in inferior lisp....i got it to move out of lisp but it gets stuck in c. The rest of the program seems negligible so didnt post....this block i attempted to convert gets error...I tried only a few ways to write these array declarations because this is ALWAYS how i successfully do array declarations...I would be grateful for guidance and any extra info i can provide i will OpenCV Error: Unknown error code -19 (Number of dimensions is out of range) in cvCreateHist,

1 0

[cffi-devel] OSX and (gl:get-integer :num-extensions)
by Chris Bagley 24 Oct '13

24 Oct '13

I have two users for whom a call to (gl:get-integer :num-extensions) errors with: OpenGL signaled (1280 . iNVLID-ENUM) from GET-INTGER-V The only thing they both have in common it seems is OSX Here is copied from one of their slime error buffers. OpenGL signalled (1280 . INVALID-ENUM) from GET-INTEGER-V. [Condition of type CL-OPENGL-BINDINGS:OPENGL- ERROR] Restarts: 0: [CONTINUE] Continue 1: [RETRY] Retry SLIME REPL evaluation request. 2: [*ABORT] Return to SLIME's top level. 3: [ABORT] Abort thread (#<THREAD "repl-thread" RUNNING {1003448023}>) Backtrace: 0: (CL-OPENGL-BINDINGS:CHECK-ERROR #<unavailable argument>) 1: (CL-OPENGL:GET-INTEGER :NUM-EXTENSIONS 1) 2: (CEPL::GET-GL-EXTENSIONS) 3: (CEPL::CEPL-POST-CONTEXT-INITIALIZE) 4: (CEPL:REPL 640 480) 5: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CEPL:REPL) #<NULL-LEXENV>) 6: (EVAL (CEPL:REPL)) 7: (SWANK::EVAL-REGION "(cepl:repl) ..) It seems from here https://developer.apple.com/library/mac/releasenotes/general/macosxlionapid… this enum was only added in OsX 10.7 (Lion) is that the most likely cause of the issue? Baggers

2 2

[cffi-devel] How do i cast variables
by Joeish W 23 Oct '13

23 Oct '13

take this for instance CvPointpoints[2]; id like to be able to cast points[2] to the CvPoint struct more info here http://docs.opencv.org/modules/core/doc/old_basic_structures.html?highlight… here is my struct which works for other things ;; (cffi:foreign-type-size '(:struct cv-point)) = 8 (cffi:defcstruct cv-point (x :int) (y :int)) put in a defparameter you cant just go (defparameter points (cffi:foreign-alloc :int :count 2)) (defparameter a ((:struct cv-point) points)) you get an illegal function call error...any help is appreciated

2 1