00:03:03 sellout [n=greg@c-24-128-50-176.hsd1.ma.comcast.net] has joined #ccl 00:48:26 Modius [n=Modius@24.174.112.56] has joined #ccl 02:27:54 segv_ [n=mb@p4FC1F11B.dip.t-dialin.net] has joined #ccl 02:28:10 -!- segv [n=mb@p4FC1C98F.dip.t-dialin.net] has quit [Read error: 110 (Connection timed out)] 05:53:53 mdc_mobile [n=mdc_mobi@mobile-166-217-055-143.mycingular.net] has joined #ccl 05:54:28 -!- mdc_mobile [n=mdc_mobi@mobile-166-217-055-143.mycingular.net] has quit [Client Quit] 05:54:40 mdc_mobile [n=mdc_mobi@quark.entity.com] has joined #ccl 06:12:20 -!- rme [n=rme@pool-70-104-99-185.chi.dsl-w.verizon.net] has quit [] 07:04:30 -!- mdc_mobile [n=mdc_mobi@quark.entity.com] has quit [Remote closed the connection] 07:31:49 mdc_mobile [n=mdc_mobi@quark.entity.com] has joined #ccl 08:00:19 -!- mdc_mobile [n=mdc_mobi@quark.entity.com] has quit [] 09:26:02 shanmu [n=chatzill@62.254.178.29] has joined #ccl 09:28:12 Hi, I am using CCL on win32 and the directory function returns pathanmes without directory name? 09:28:43 is there any other function which I should be using for that? 09:29:03 sorry, directory function returns pathanmes without disk name (C:,D: etc) 09:33:04 Hi, I am using CCL on win32 and the directory function returns pathanmes without disk partition name (like C:, D: etc)? 09:33:09 is there any other function which I should be using for that? 09:52:36 jauaor [n=araujo@gentoo/developer/araujo] has joined #ccl 10:01:08 This was fixed in svn a few months ago; update. 10:08:58 I have 1.3-dev-r11877M-trunk... updated on 25 June 10:09:18 gbyers: and the problem exists is that version 1.3-dev-r11877M-trunk 10:10:09 Let me see when that fix was made; 11877 is quite old at this point. 10:11:45 http://trac.clozure.com/openmcl/changeset/11996 10:13:00 gbyers: thanks! to get this version, do I need to update from the bleeding edge? 10:13:11 rather than the release? 10:13:53 You're running the trunk/bleeding-edge. Do "svn update", then (rebuild-ccl :clean t). 10:14:28 Let me see if that was propagated to the release, too. 10:15:43 It seems to only have been fixed in the trunk. 10:45:50 -!- jauaor [n=araujo@gentoo/developer/araujo] has quit [Read error: 54 (Connection reset by peer)] 10:45:51 jauaor_ [n=araujo@190.38.50.207] has joined #ccl 10:51:00 -!- milanj- [n=milan@77.46.169.71] has quit [Read error: 60 (Operation timed out)] 11:18:05 -!- shanmu [n=chatzill@62.254.178.29] has quit ["bye!"] 12:26:44 -!- jauaor_ [n=araujo@190.38.50.207] has quit [Client Quit] 12:27:00 jauaor [n=araujo@gentoo/developer/araujo] has joined #ccl 13:29:47 mdc_mobile [n=mdc_mobi@quark.entity.com] has joined #ccl 13:52:19 anRch [n=markmill@nmd.sbx07258.melroma.wayport.net] has joined #ccl 15:01:03 anRch_ [n=markmill@nmd.sbx07258.melroma.wayport.net] has joined #ccl 15:03:44 -!- mdc_mobile [n=mdc_mobi@quark.entity.com] has quit [Remote closed the connection] 15:05:03 mdc_mobile [n=mdc_mobi@quark.entity.com] has joined #ccl 15:05:06 -!- anRch [n=markmill@nmd.sbx07258.melroma.wayport.net] has quit [Read error: 110 (Connection timed out)] 15:16:42 rme [n=rme@pool-70-104-99-185.chi.dsl-w.verizon.net] has joined #ccl 15:30:37 -!- anRch_ [n=markmill@nmd.sbx07258.melroma.wayport.net] has quit [] 15:35:36 -!- mdc_mobile [n=mdc_mobi@quark.entity.com] has quit [Remote closed the connection] 16:24:33 -!- jauaor [n=araujo@gentoo/developer/araujo] has quit [] 19:21:18 -!- rme [n=rme@pool-70-104-99-185.chi.dsl-w.verizon.net] has quit [] 19:58:12 deylen [n=deylen@62.249.247.182] has joined #ccl 19:58:57 Hey, Does anyone have any good examples of the callback function? I.e. calling some lisp code from C. 19:59:40 I cant seem to find any on google, and although the docs mention it in passing I can't find an example anywhere :( 19:59:59 You mean like (defcallback addints (:int x :int y :int) (+ x y)) ? 20:00:35 Yes, but what sort of wrapper code would I need to write to allow C to call that? 20:02:46 There are lots of complicated examples in the examples and cocoa-ide directories, but you're right that there isn't a real simple example in some obvious place. 20:03:49 hmm, ok thanks I missed those. I'll have a look and see if I can simplify one of them :) 20:04:54 After executing the above, the value of the variable ADDINTS would be a pointer to C-callable code that calls the lisp code. You'd basically pass that pointer to C code and the C code would call the function pointer with a couple of int args and should get an int result back. 20:06:49 Ah, of course that makes sense now. :) So the best thing would be to save to a global function pointer variable so I can call repeatedly. Many thanks :) 20:08:46 examples/opengl-ffi.lisp is less complicated than some of the other examples. It uses GLUT (a library for writing simple OpenGL programs that hides window-system issues) and defines a "display" callback to draw a window's contents; that callback is passed to a GLUT function named #_glutDisplayFunc. 20:16:15 -!- hefner [n=hefner@c-69-140-128-97.hsd1.md.comcast.net] has quit [verne.freenode.net irc.freenode.net] 20:16:39 hefner [n=hefner@c-69-140-128-97.hsd1.md.comcast.net] has joined #ccl 20:19:38 -!- hefner [n=hefner@c-69-140-128-97.hsd1.md.comcast.net] has quit [verne.freenode.net irc.freenode.net] 20:22:20 hefner [n=hefner@c-69-140-128-97.hsd1.md.comcast.net] has joined #ccl 20:38:55 Hmm, i'm having some trouble passing the function pointer to C. Does anyone know what I should set as the argument type when passing in a function pointer? 20:39:20 The glut example does it automatically I think using the interface generator 20:39:54 If nothing else works in C, claiming that the incoming pointer is a "void *" generally works. 20:41:16 Sorry I mean from the lisp side of things, I've tried passing as an address but ccl complains and I cant find the docs to extract the address from the function pointer object. 20:42:17 after (defcallback addints (:int x :int y :int) (+ x y)), the value of ADDINTS should be a pointer 20:42:55 Ah thankyou :) I'll try that, I got it into my head that it was a class instance :D 20:45:06 rme [n=rme@pool-70-104-99-185.chi.dsl-w.verizon.net] has joined #ccl 21:04:39 gbyers: Many thanks :) I've got it all working now it seems, code is here: http://codeviewer.org/preview 21:06:04 lisppaste5: help 21:06:05 To use the lisppaste bot, visit http://paste.lisp.org/new/ccl and enter your paste. 21:07:02 Ah ok 21:07:51 Can't view the thing at codeviewer.org 21:09:02 deylen pasted "CCL callbacks from C" at http://paste.lisp.org/display/82629 21:11:37 Yes; that's the general idea. I think that you're right that something like that would be a good example; parts of the C side of it are platform-dependent (how to create and name a shared library, etc.) 21:12:56 yeah, thanks again :) 21:12:59 -!- deylen [n=deylen@62.249.247.182] has quit [] 21:44:15 jauaor [n=araujo@gentoo/developer/araujo] has joined #ccl 22:34:57 hmm. I had a problem with the CCL 1.3 on linux/x86_64 where it would go into an infinite loop in reap_gcable_ptrs on the first GC after starting an executable dumped with save-application :prepend-kernel t. 22:35:06 But updating from SVN and rebuilding, it went away. 22:36:36 was there a toplevel-function argument ? 22:37:06 there was, yes, although it didn't much matter what I did there. 22:37:59 Its presence caused some initialization code to run twice; that was a bad bug that was fixed in svn some time ago. 22:38:26 okay, cool. no need to report a bug, then. 22:40:20 http://trac.clozure.com/openmcl/changeset/11983