From gwbennett at sentex.ca  Sat Nov 22 16:23:35 2008
From: gwbennett at sentex.ca (Greg Bennett)
Date: Sat, 22 Nov 2008 11:23:35 -0500
Subject: [cl-opengl-devel] Good morning ..
Message-ID: <49283207.7030106@sentex.ca>

from Greg Bennett.

With assistance from the CFFI list I have managed to run the OpenGL 
example files in
cl-glut-examples.lisp, which makes me very relieved.  By reading the 
example files I can
collect quite a bit of information about syntax but I would clearly be 
better off if I had
documentation of a more formal and organised variety.

In the materials on cl-opengl which I downloaded I can find only the 
stub of documentation,
for example the .pdf includes a disclaimer and then only chapter headings.

I tried to build things from  gendocs.sh and managed to create only that 
same stub. It seems
I am missing the text files to fill those chapters.

If those are available, I would appreciate a pointer to them. Since I am 
relatively new to linux
it is quite likely that I simply don't (yet) know where to find such things.

Thx for any and all advice and assistance.

Cheers /Greg Bennett



From luismbo at gmail.com  Sat Nov 22 17:38:40 2008
From: luismbo at gmail.com (=?ISO-8859-1?Q?Lu=EDs_Oliveira?=)
Date: Sat, 22 Nov 2008 17:38:40 +0000
Subject: [cl-opengl-devel] Good morning ..
In-Reply-To: <49283207.7030106@sentex.ca>
References: <49283207.7030106@sentex.ca>
Message-ID: <391f79580811220938h74406c32mda666b119375f3e4@mail.gmail.com>

On Sat, Nov 22, 2008 at 4:23 PM, Greg Bennett <gwbennett at sentex.ca> wrote:
> By reading the example files I can
> collect quite a bit of information about syntax but I would clearly be
> better off if I had
> documentation of a more formal and organised variety.

I'm afraid we haven't yet produced any documentation. Feel free to
send questions to this mailing list, though.

-- 
Lu?s Oliveira
http://student.dei.uc.pt/~lmoliv/



From luismbo at gmail.com  Thu Nov 27 21:06:53 2008
From: luismbo at gmail.com (=?ISO-8859-1?Q?Lu=EDs_Oliveira?=)
Date: Thu, 27 Nov 2008 21:06:53 +0000
Subject: [cl-opengl-devel] cl-opengl/gl/types.lisp not define new classes
In-Reply-To: <391f79580811271305l527175c2ief1d0bc33422110d@mail.gmail.com>
References: <492B6E0D.5000405@gmail.com>
	<391f79580811271305l527175c2ief1d0bc33422110d@mail.gmail.com>
Message-ID: <391f79580811271306h7c49a3bbl749fceadfda33bfc@mail.gmail.com>

On Thu, Nov 27, 2008 at 9:05 PM, Lu?s Oliveira <luismbo at gmail.com> wrote:
> If you have a look at the macroexpansion you'll see that
> DEFINE-FOREIGN-TYPE doesn't indeed define a new class.

Ugh, sorry. I meant: DEFINE-FOREIGN-TYPE *does* indeed define a new class.

-- 
Lu?s Oliveira
http://student.dei.uc.pt/~lmoliv/



From luismbo at gmail.com  Thu Nov 27 21:05:12 2008
From: luismbo at gmail.com (=?ISO-8859-1?Q?Lu=EDs_Oliveira?=)
Date: Thu, 27 Nov 2008 21:05:12 +0000
Subject: [cl-opengl-devel] cl-opengl/gl/types.lisp not define new classes
In-Reply-To: <492B6E0D.5000405@gmail.com>
References: <492B6E0D.5000405@gmail.com>
Message-ID: <391f79580811271305l527175c2ief1d0bc33422110d@mail.gmail.com>

Hello.

On Tue, Nov 25, 2008 at 3:16 AM, gusti <ggh.develop at gmail.com> wrote:
> I'm trying to use the cl-opengl packages in my linux with clisp but I found
> that the file cl-opengl/gl/types.lisp doesn't define the new class that must
> do.

Works for me on Linux with CLISP 2.46, latest CFFI and latest
cl-opengl. What version are you using?


> For example, see the command line below:
>   [118]> (cffi:define-foreign-type ensure-integer ()
>     ()
>     (:actual-type :int)
>     (:simple-parser ensure-integer))
>   ENSURE-INTEGER
>
> instead of define a class as for example:
>   [119]> (defclass mi-clase ()  ()  )
>   #<STANDARD-CLASS MI-CLASE>

If you have a look at the macroexpansion you'll see that
DEFINE-FOREIGN-TYPE doesn't indeed define a new class.

[4]> (macroexpand
       '(cffi:define-foreign-type ensure-integer ()
           ()
           (:actual-type :int)
           (:simple-parser ensure-integer)))
(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
 (DEFCLASS ENSURE-INTEGER (CFFI::ENHANCED-FOREIGN-TYPE) NIL
  (:DEFAULT-INITARGS :ACTUAL-TYPE '(:INT)))
 (CFFI:DEFINE-PARSE-METHOD ENSURE-INTEGER (&REST CFFI::ARGS)
  (APPLY #'MAKE-INSTANCE 'ENSURE-INTEGER CFFI::ARGS))
 'ENSURE-INTEGER) ;
T


You can also confirm that through FIND-CLASS:

[7]> (cffi:define-foreign-type ensure-integer ()
        ()
        (:actual-type :int)
        (:simple-parser ensure-integer))
ENSURE-INTEGER
[8]> (find-class 'ensure-integer)
#<STANDARD-CLASS ENSURE-INTEGER>


> So after that, obviously, the 'defmethod translate-to-foreign' fail, see
> below:
>   [120]> (defmethod translate-to-foreign (value (type ensure-integer))
>     (truncate value))
>
>   *** - FIND-CLASS: ENSURE-INTEGER does not name a class
>   The following restarts are available:
>   ABORT          :R1      ABORT
>   Break 1 [121]>

[9]> (defmethod cffi:translate-to-foreign (value (type ensure-integer))
       (truncate value))
#<STANDARD-METHOD (#<BUILT-IN-CLASS T> #<STANDARD-CLASS ENSURE-INTEGER>)>


> Do you know what is the problem? Can you help me please?

My guess is that you're using a *very* old version of CFFI. Latest is 0.10.3.

HTH.

-- 
Lu?s Oliveira
http://student.dei.uc.pt/~lmoliv/