Re: [Chicken-users] can't get phoghorn running

2012-08-22 Thread Markus Klotzbuecher
On Tue, Aug 21, 2012 at 08:33:53PM +0200, Peter Bex wrote:
 On Tue, Aug 21, 2012 at 01:47:55PM +0200, Markus Klotzbuecher wrote:
  Now when browse to localhost:8080/galleries/ I see the contexts of
  index.ssp (apparently as a result of executing index.sspx)
 
 You'll need to wrap that code in whatever you've set ssp-long-open-tag
 and ssp-close-tag to.  By default ?scheme ... ?

Ok, I'll give that a try.

 Please note that the ssp and web-scheme handlers are deprecated.
 If you still want to use these, I can put them in a separate egg, but
 otherwise they will disappear in the next release.

I see, please don't bother, this is more of an educational excercise
for me. What would be the suggested best practice way to realize the
phoghorn functionality?

Thanks for the help!

Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] can't get phoghorn running

2012-08-22 Thread Markus Klotzbuecher
Hi Mario,

On Wed, Aug 22, 2012 at 10:15:32AM -0400, Mario Domenech Goulart wrote:

 On Wed, 22 Aug 2012 09:50:23 +0200 Markus Klotzbuecher m...@marumbi.de 
 wrote:
 
  On Tue, Aug 21, 2012 at 08:33:53PM +0200, Peter Bex wrote:
  On Tue, Aug 21, 2012 at 01:47:55PM +0200, Markus Klotzbuecher wrote:
   Now when browse to localhost:8080/galleries/ I see the contexts of
   index.ssp (apparently as a result of executing index.sspx)
  
  You'll need to wrap that code in whatever you've set ssp-long-open-tag
  and ssp-close-tag to.  By default ?scheme ... ?
 
  Ok, I'll give that a try.
 
  Please note that the ssp and web-scheme handlers are deprecated.
  If you still want to use these, I can put them in a separate egg, but
  otherwise they will disappear in the next release.
 
  I see, please don't bother, this is more of an educational excercise
  for me. What would be the suggested best practice way to realize the
  phoghorn functionality?
 
 Here's a quick hack with awful (thus an awful practice):
 http://paste.call-cc.org/paste?id=347c922adc63677aa14128e2b8d8fe1b492ebf98
 
 To run that, you'll need the awful and sxml-fu eggs installed:
 
$ chicken-install awful sxml-fu

Awsome, awful! That's just what I wanted!
Thanks a lot!
Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] can't get phoghorn running

2012-08-21 Thread Markus Klotzbuecher
On Mon, Aug 20, 2012 at 10:26:41PM +0200, Peter Bex wrote:
 On Mon, Aug 20, 2012 at 10:11:04PM +0200, Markus Klotzbuecher wrote:
  Hi All,
  
  I would like to try the phoghorn image gallery generator, but I just
  can't get the egg compiled. It fails because it can't find the epeg
  library and epeg-config. I can't find it either, not as a debian
  package nor as sources on the net.
  
  Is the epeg code still developed?
 
 No, epeg is dead, even more dead than imlib2.  I think the current
 replacement library from the E project for both these libraries
 is the evas library.  I had plans to convert phoghorn to evas
 someday (and make an evas egg), but I don't currently use phoghorn
 anymore.
 
  From looking at the phoghorn code it seems that imlib2 is also
  supported. Could it be used with the latter only?
 
 I think you could easily hack out the epeg bits; imlib2 supports
 jpeg as well, I think.

That indeed turned out to be easy (patch attached).
But I can't get it to work with spiffy. I added the following to
launch and configure spiffy:

;; runspiffy.scm
(use spiffy ssp-handler)

(file-extension-handlers `((ssp . ,ssp-handler)))
(index-files '(index.ssp))
(server-port 8080)
(root-path /home/mk/web/wwwroot)


and in wwwroot there is

galleries/ 
galleries/index.ssp   ;; copied from the phoghorn egg page
galleries/zoomed.ssp  ;; 
galleries/gallery1/   ;; folders with images
...

Now when browse to localhost:8080/galleries/ I see the contexts of
index.ssp (apparently as a result of executing index.sspx)

No need to mention I'm a web-development noob...

Thanks for any hints!
Markus


From b4a0d5d8b37a5e0164c33346688c7a54fc53b913 Mon Sep 17 00:00:00 2001
From: Markus Klotzbuecher markus.klotzbuec...@mech.kuleuven.be
Date: Tue, 21 Aug 2012 08:48:56 +0200
Subject: [PATCH] remove epeg dependency from phoghorn

---
 release/4/phoghorn/trunk/phoghorn.meta |2 +-
 release/4/phoghorn/trunk/phoghorn.scm  |   31 ++-
 2 files changed, 7 insertions(+), 26 deletions(-)

diff --git a/release/4/phoghorn/trunk/phoghorn.meta b/release/4/phoghorn/trunk/phoghorn.meta
index a3432d4..aaba3ea 100644
--- a/release/4/phoghorn/trunk/phoghorn.meta
+++ b/release/4/phoghorn/trunk/phoghorn.meta
@@ -7,5 +7,5 @@
  (category web)
  (license BSD)
  (doc-from-wiki)
- (needs spiffy uri-common epeg imlib2 sxml-transforms)
+ (needs spiffy uri-common imlib2 sxml-transforms sxml-fu)
  (files phoghorn.scm phoghorn.meta phoghorn.release-info phoghorn.setup))
diff --git a/release/4/phoghorn/trunk/phoghorn.scm b/release/4/phoghorn/trunk/phoghorn.scm
index 957dfb7..c0fae2f 100644
--- a/release/4/phoghorn/trunk/phoghorn.scm
+++ b/release/4/phoghorn/trunk/phoghorn.scm
@@ -33,14 +33,12 @@
  (gallery-dir gallery-var entry-var root-gallery-name
   max-thumb-dimensions thumb-dir gallery-url zoomed-url movie-image
   current-gallery current-entry-filename gallery-contents
-  thumbnail thumbnail/epeg thumbnail/imlib2
-  galleries-up-to prev-entry next-entry phoghorn-rules)
+  thumbnail thumbnail/imlib2 galleries-up-to prev-entry
+  next-entry phoghorn-rules)
 
 (import chicken scheme extras data-structures files posix)
 (require-extension srfi-1 srfi-13 spiffy intarweb uri-common sxml-transforms)
 
-(require-library epeg)
-(import (prefix epeg epeg:))
 (require-library imlib2)
 (import (prefix imlib2 imlib2:))
 
@@ -56,13 +54,11 @@
 ;; #f if you want the filename displayed
 (define movie-image (make-parameter /pics/movie.jpg))
 
-(define epeg-extensions '(jpeg jpg))
-
 ;; This really is dependent on the loaders imlib2 has.  Mebbe make it
 ;; a parameter as well?
-(define imlib-extensions '(gif bmp xpm png mng pbm tif tiff
-			   tga pic pcx dxf cgm cdr wmf eps
-			   emf pict yuv))
+(define imlib-extensions '(jpeg jpg gif bmp xpm png mng pbm
+			   tif tiff tga pic pcx dxf cgm cdr
+			   wmf eps emf pict yuv))
 
 (define movie-extensions '(mpg mpeg avi ogg ogm vob asf wma
 			   wmv qt mov mp4 vivo fli flc ani
@@ -71,7 +67,7 @@
 ;; XXX: use extensions or file magic/mimetypes?
 (define (allowed-filetype? filename)
   (any (cut string-ci=? (or (pathname-extension filename) ) )
-   (append epeg-extensions imlib-extensions movie-extensions)))
+   (append imlib-extensions movie-extensions)))
 
 ;; Either the thumbs subdirectory is ok, or it can be created
 (define (thumbs-ok? dir)
@@ -112,8 +108,6 @@
   (let* ((ext (pathname-extension entry))
 	 (match? (lambda (s) (string-ci=? ext s
 (cond
- ((any match? epeg-extensions)
-  (thumbnail/epeg gallery entry))
  ((any match? imlib-extensions)
   (thumbnail/imlib2 gallery entry))
  ((any match? movie-extensions)
@@ -163,19 +157,6 @@
 (define (gallery-thumbs gallery)
   (make-pathname gallery (thumb-dir)))
 
-(define (thumbnail/epeg gallery entry)
-  (let ((target-file (local-file (gallery-thumbs gallery) entry)))
-(unless (file-exists? target-file)
-  (let ((img (epeg:image-open (local-file gallery entry
-	(receive (width

[Chicken-users] can't get phoghorn running

2012-08-20 Thread Markus Klotzbuecher
Hi All,

I would like to try the phoghorn image gallery generator, but I just
can't get the egg compiled. It fails because it can't find the epeg
library and epeg-config. I can't find it either, not as a debian
package nor as sources on the net.

Is the epeg code still developed? From looking at the phoghorn code it
seems that imlib2 is also supported. Could it be used with the latter
only?

Thanks in advance for any hints!

Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


[Chicken-users] minor lowdown egg oddity

2012-08-15 Thread Markus Klotzbuecher
Hi All,

I was just reading Moritz' lowdown code trying to understand how the
comparse egg works, when I stumbled upon the following lines:

https://bitbucket.org/DerGuteMoritz/lowdown/src/5bad0c82bd34/lowdown-impl.scm#cl-239

Shouldn't that be [a-zA-Z0-9] ?

Best regards
Markus



___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] minor lowdown egg oddity

2012-08-15 Thread Markus Klotzbuecher
On Wed, Aug 15, 2012 at 01:21:52PM +0200, Moritz Heidkamp wrote:
 Markus Klotzbuecher m...@marumbi.de writes:
  I was just reading Moritz' lowdown code trying to understand how the
  comparse egg works,
 
 cool, let me know when questions arise. If you are in the Cologne area
 tomorrow, you can also join us at
 http://www.meetup.com/clojure-cologne/events/77163772/ where I will give
 a short presentation of the implementation.

Thanks! I'd love to come, but Leuven is a bit too far to stop by
easily...

  when I stumbled upon the following lines:
 
  https://bitbucket.org/DerGuteMoritz/lowdown/src/5bad0c82bd34/lowdown-impl.scm#cl-239
 
  Shouldn't that be [a-zA-Z0-9] ?
 
 That's a bug indeed, thanks for reporting it. I'll fix it and push a new
 release in a bit!

Great!

Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] how to create a cairo_matrix_t (defined by define-foreign-type) ?

2012-05-10 Thread Markus Klotzbuecher
On Wed, May 09, 2012 at 05:37:21PM +0200, Christian Kellermann wrote:
 * Markus Klotzbuecher m...@marumbi.de [120509 17:25]:
  Any plans to merge this patch?
 
 Thanks for reminding me, I've let my mind wander and it didn't come
 back... I will have another look at it tomorrow but IIRC it was fine
 with me.

Great, thanks!
Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] how to create a cairo_matrix_t (defined by define-foreign-type) ?

2012-05-10 Thread Markus Klotzbuecher
On Thu, May 10, 2012 at 09:37:45AM +0200, Christian Kellermann wrote:
 * Markus Klotzbuecher m...@marumbi.de [120510 09:13]:
  On Wed, May 09, 2012 at 05:37:21PM +0200, Christian Kellermann wrote:
   * Markus Klotzbuecher m...@marumbi.de [120509 17:25]:
Any plans to merge this patch?
  
   Thanks for reminding me, I've let my mind wander and it didn't come
   back... I will have another look at it tomorrow but IIRC it was fine
   with me.
 
  Great, thanks!
 
 Done, with revision 26653 on trunk. The new-matrix procedure has been
 renamed to cairo-new-matrix to fit the overall idiotic naming
 scheme. The f64vector-length issue has been taken into account.

Perfect, thanks!
Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] how to create a cairo_matrix_t (defined by define-foreign-type) ?

2012-02-06 Thread Markus Klotzbuecher
Hi Christian,

On Mon, Jan 30, 2012 at 11:36:36AM +0100, Christian Kellermann wrote:
 * Markus Klotzbuecher m...@marumbi.de [120130 11:29]:
   Markus did you have a chance to have a look at the code? I would
   love to release a new cairo version. If there are any missing
   features on your wishlist, please let me know!
  
  I unfortuately did not have any time to look into this so far. I hope
  to give it a try towards the end of the week. One (low priority) thing
  on my wishlist would be support for writing to svg files. I suppose
  the latter would be largely a duplication of the png code, but I have
  not looked into it yet.
 
 I *think* it is just a matter of providing the wrapper...

Indeed, trivial patch below...

Best regards
Markus



From bd772574ee2ed9a898b50d79b3d31e069dffee42 Mon Sep 17 00:00:00 2001
From: Markus Klotzbuecher markus.klotzbuec...@mech.kuleuven.be
Date: Mon, 6 Feb 2012 21:24:24 +0100
Subject: [PATCH] add support for svg, pdf and ps surfaces

---
 release/4/cairo/trunk/cairo.scm |   19 ++-
 1 files changed, 18 insertions(+), 1 deletions(-)

diff --git a/release/4/cairo/trunk/cairo.scm b/release/4/cairo/trunk/cairo.scm
index f86bcd5..22a60aa 100644
--- a/release/4/cairo/trunk/cairo.scm
+++ b/release/4/cairo/trunk/cairo.scm
@@ -35,7 +35,9 @@
  (foreign-declare #EOF
 
 #include cairo.h
-
+#include cairo-svg.h
+#include cairo-pdf.h
+#include cairo-ps.h
 EOF
 )
 
@@ -109,6 +111,21 @@ EOF
 int
 int))
 
+(define cairo-svg-surface-create (foreign-lambda cairo_surface_t 
cairo_svg_surface_create
+c-string
+double
+double))
+
+(define cairo-pdf-surface-create (foreign-lambda cairo_surface_t 
cairo_pdf_surface_create
+c-string
+double
+double))
+
+(define cairo-ps-surface-create (foreign-lambda cairo_surface_t 
cairo_ps_surface_create
+   c-string
+   double
+   double))
+
 ; cairo-create-image deprecated
 
 ; cairo-set-target-image deprecated
-- 
1.7.7.3


___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] how to create a cairo_matrix_t (defined by define-foreign-type) ?

2012-02-02 Thread Markus Klotzbuecher
Hi Christian,

On Fri, Jan 27, 2012 at 11:44:55AM +0100, Christian Kellermann wrote:
 Hi all fans of cairo bindings,
 
 * Christian Kellermann ck...@pestilenz.org [120117 21:06]:
  * Markus Klotzbuecher m...@marumbi.de [120115 18:02]:
   Is this branch available somewhere? I would prefer a correct but
   untested version to my wrong but coincidentally working one :-)
  
  I am not sure yet what's best. What I am using now is this:
  
  
  (define %fill-matrix
(foreign-lambda* (c-pointer cairo_matrix_t)
 ((f64vector v))
 cairo_matrix_t *m = malloc(sizeof(cairo_matrix_t));
  int i=0;
  m-xx = v[i++];
  m-xy = v[i++];
  m-yx = v[i++];
  m-yx = v[i++];
  m-x0 = v[i++];
  m-y0 = v[i++];
  C_return(m);))
  
  (define (cairo-transform/matrix ctx v)
(when (not (= (vector-length v) 6))
  (error Vector size mismatch should be 6, is  (vector-length v)))
(let ((m (%fill-matrix v)))
  (cairo-transform ctx m)
  (free m)))
  
  (define new-matrix
(foreign-lambda* cairo_matrix_t ()
  C_return(malloc(sizeof(cairo_matrix_t)));))
  
  There is still a freeing operation missing, I tend to use the
  cairo-transform/matrix procedure most of the time though.
  
  What do others think?
 
 Markus did you have a chance to have a look at the code? I would
 love to release a new cairo version. If there are any missing
 features on your wishlist, please let me know!

The new-matrix works fine for me. (I only need to store the current
ctx, before I temporarily set it to the identity matrix for writing
something in device space).

I tried to test cairo-transform/matrix using csi too, but I get the
following error:

#;1 (use cairo)
; loading /usr/local/lib/chicken/6/cairo.import.so ...
; loading /usr/local/lib/chicken/6/srfi-1.import.so ...
; loading /usr/local/lib/chicken/6/srfi-4.import.so ...
; loading /usr/local/lib/chicken/6/srfi-13.import.so ...
; loading /usr/local/lib/chicken/6/lolevel.import.so ...
; loading /usr/local/lib/chicken/6/cairo.so ...
#;2 (define m (new-matrix))
#;3 (cairo-transform/matrix m (make-f64vector 6 1))

Error: (vector-length) bad argument type: #f64(1.0 1.0 1.0 1.0 1.0 1.0)

Call history:

syntax  (cairo-transform/matrix m (make-f64vector 6 1))
syntax  (make-f64vector 6 1)
eval  (cairo-transform/matrix m (make-f64vector 6 1))
eval(make-f64vector 6 1)  --
#;3 

Should the two vector-length be f64vector-length or am I missing
something?

Thanks!
Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] how to create a cairo_matrix_t (defined by define-foreign-type) ?

2012-01-30 Thread Markus Klotzbuecher
Hi Christian,

On Fri, Jan 27, 2012 at 11:44:55AM +0100, Christian Kellermann wrote:
 Hi all fans of cairo bindings,
 
 * Christian Kellermann ck...@pestilenz.org [120117 21:06]:
  * Markus Klotzbuecher m...@marumbi.de [120115 18:02]:
   Is this branch available somewhere? I would prefer a correct but
   untested version to my wrong but coincidentally working one :-)
  
  I am not sure yet what's best. What I am using now is this:
  
  
  (define %fill-matrix
(foreign-lambda* (c-pointer cairo_matrix_t)
 ((f64vector v))
 cairo_matrix_t *m = malloc(sizeof(cairo_matrix_t));
  int i=0;
  m-xx = v[i++];
  m-xy = v[i++];
  m-yx = v[i++];
  m-yx = v[i++];
  m-x0 = v[i++];
  m-y0 = v[i++];
  C_return(m);))
  
  (define (cairo-transform/matrix ctx v)
(when (not (= (vector-length v) 6))
  (error Vector size mismatch should be 6, is  (vector-length v)))
(let ((m (%fill-matrix v)))
  (cairo-transform ctx m)
  (free m)))
  
  (define new-matrix
(foreign-lambda* cairo_matrix_t ()
  C_return(malloc(sizeof(cairo_matrix_t)));))
  
  There is still a freeing operation missing, I tend to use the
  cairo-transform/matrix procedure most of the time though.
  
  What do others think?
 
 Markus did you have a chance to have a look at the code? I would
 love to release a new cairo version. If there are any missing
 features on your wishlist, please let me know!

I unfortuately did not have any time to look into this so far. I hope
to give it a try towards the end of the week. One (low priority) thing
on my wishlist would be support for writing to svg files. I suppose
the latter would be largely a duplication of the png code, but I have
not looked into it yet.

Thank you for your effort!
Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] segfault using cairo/SDL

2012-01-15 Thread Markus Klotzbuecher
On Sun, Jan 15, 2012 at 03:12:36PM +0100, Christian Kellermann wrote:
 * Markus Klotzbuecher m...@marumbi.de [120104 13:00]:
   I will further investigate.
  
  Thanks! Just let me know if I can test something.
 
 I have just released an update to the cairo egg which should fix your problem.

 Thanks to Felix and Peter for their help on this.

Wonderful, thanks a lot!

 Please let me know when you run into further troubles.

I will!

Best regards
Markus






___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] how to create a cairo_matrix_t (defined by define-foreign-type) ?

2012-01-15 Thread Markus Klotzbuecher
On Sun, Jan 15, 2012 at 03:15:02PM +0100, Christian Kellermann wrote:
 * Markus Klotzbuecher m...@marumbi.de [120113 21:01]:
  Dear All,
  
  For my small visualization project I need the functions
  cairo-get-matrix and cairo-set-matrix. The cairo_matrix_t type is
  defined in cairo.sdl as shown below:
  
  (define-foreign-type cairo_matrix_t (c-pointer cairo_matrix_t)
values
(cut tag-pointer  'cairo-matrix))
  
  cairo-get-matrix expects a cairo_matrix_t pointer as shown below, but
  I couldn't figure out how to create such a type. Is it correct that
  define-foreign-type registers the type with CHICKEN's type system, but
  does not create a constructor?
  
  (define cairo-get-matrix
(foreign-lambda void cairo_get_matrix cairo_t cairo_matrix_t))
  
  For now I worked around it by using the code below. Is this correct
  chickenwise? Is there a better solution?
  
  (define cairo-get-matrix
(foreign-lambda* cairo_matrix_t ((cairo_t ct))
 cairo_matrix_t cmt;
  cairo_get_matrix(ct, cmt);
  C_return(cmt);))
 
 Does that really work? You are allocating this on the stack and

It does work, but it didn't seem right...

 that location might be gone after the function returns. You can use
 malloc there and set a finalizer on the chicken object. I have code

Ok, thanks for clarifying.

 for this on my cairo branch, it needs some more testing then I will
 push this out.

Is this branch available somewhere? I would prefer a correct but
untested version to my wrong but coincidentally working one :-)

Best regards
Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


[Chicken-users] how to create a cairo_matrix_t (defined by define-foreign-type) ?

2012-01-13 Thread Markus Klotzbuecher
Dear All,

For my small visualization project I need the functions
cairo-get-matrix and cairo-set-matrix. The cairo_matrix_t type is
defined in cairo.sdl as shown below:

(define-foreign-type cairo_matrix_t (c-pointer cairo_matrix_t)
  values
  (cut tag-pointer  'cairo-matrix))

cairo-get-matrix expects a cairo_matrix_t pointer as shown below, but
I couldn't figure out how to create such a type. Is it correct that
define-foreign-type registers the type with CHICKEN's type system, but
does not create a constructor?

(define cairo-get-matrix
  (foreign-lambda void cairo_get_matrix cairo_t cairo_matrix_t))

For now I worked around it by using the code below. Is this correct
chickenwise? Is there a better solution?

(define cairo-get-matrix
  (foreign-lambda* cairo_matrix_t ((cairo_t ct))
   cairo_matrix_t cmt;
cairo_get_matrix(ct, cmt);
C_return(cmt);))


Thanks in advance!
Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] segfault using cairo/SDL

2012-01-04 Thread Markus Klotzbuecher
On Tue, Jan 03, 2012 at 10:06:51PM +0100, Christian Kellermann wrote:
 * Markus Klotzbuecher m...@marumbi.de [120103 21:11]:
  I took another attempt to figure out this crash. I still don't see the
  problem, but I've found a smaller testcase that reliably crashes (for
  me, at least):
  
  (use cairo)
  (define t1 (make-cairo-text-extents-type))
  (display t1)
  (cairo-text-extents-x-bearing-set! t1 1)
  (display t1)
  
  I also discovered a bug in the record printer for the extents types,
  patch attached.
 
 Thanks for that, I noticed this today as well.
 
 Your bug however seems unrelated to cairo or SDL. I have come to
 the following test case that uses the same FFI procedures in core
 (modulo some struct layout, the original has 6 doubles there or
 so):
 
 http://paste.call-cc.org/paste?id=78a52e65f6c4f52014f049e71a384ac380c63b62

I ran it for a couple of hours, but no crash. amd64, CHICKEN
4.7.0.4-st.

 I will further investigate.

Thanks! Just let me know if I can test something.

Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] segfault using cairo/SDL

2012-01-03 Thread Markus Klotzbuecher
Hi All,

On Fri, Dec 23, 2011 at 04:56:07PM +0100, Markus Klotzbuecher wrote:
 On Thu, Dec 22, 2011 at 10:57:39AM +0100, Markus Klotzbuecher wrote:
 
  On Thu, Dec 22, 2011 at 09:41:05AM +0100, Christian Kellermann wrote:
   * Markus Klotzbuecher m...@marumbi.de [111221 21:12]:
Dear All,

I'm trying to use the cairo and sdl eggs for a small visualization
tool. One thing I would like to do is to use the mouse to move around
the current figure by clicking and holding it. However, I am getting
frequent segfaults after a few seconds of this moving around. The
crash happens both when running compiled and interpreted. Below an
slightly modified version of the test-cairo.scm from the cairo egg
that implements this dragging (I would have pasted it to
http://paste.call-cc.org/ , but the service seems down)

Is anyone else using these eggs and has seen such problems? Does
anyone have a suggestions how to track this down?
   
   Yes, I am currently using it for a small doodle framework for easy
   visualisations and games. I haven't looked (yet) into mouse support.
   The SDL egg is rather dusty and there might be such dark corners.
   
   I will file this as a bug and will have a look at it during the
   holidays.
  
  Great, much appreciated!
  
   If you find the time you could build a chicken with debugging
   information (add DEBUGBUILD=1 to the make call) and show be the
   backtrace of that. This might be of more help than the standard
   backtrace.
  
  Fine, i'll try to do that during the holidays!
 
 The problem seems to be triggered by the use of text-extents. I
 uploaded a newer testcase to the bug report that makes heavier use of
 extents and also crashes almost immediately on my machine. I also
 added a backtraces from a CHICKEN built with DEBUGBUILD=1.

I took another attempt to figure out this crash. I still don't see the
problem, but I've found a smaller testcase that reliably crashes (for
me, at least):

(use cairo)
(define t1 (make-cairo-text-extents-type))
(display t1)
(cairo-text-extents-x-bearing-set! t1 1)
(display t1)

I also discovered a bug in the record printer for the extents types,
patch attached.

Thanks in advance for any suggestions!

Markus


From a93a5743232fe11399fbffdb0a12c1dd0f587be5 Mon Sep 17 00:00:00 2001
From: Markus Klotzbuecher markus.klotzbuec...@mech.kuleuven.be
Date: Tue, 3 Jan 2012 21:09:05 +0100
Subject: [PATCH] Fix record printing of cairo-text-extents-type

---
 release/4/cairo/trunk/cairo.scm |   30 +++---
 1 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/release/4/cairo/trunk/cairo.scm b/release/4/cairo/trunk/cairo.scm
index c2ad2b5..d568bcf 100644
--- a/release/4/cairo/trunk/cairo.scm
+++ b/release/4/cairo/trunk/cairo.scm
@@ -308,14 +308,14 @@ EOF
 (lambda () (maker (make-blob sizeof-cairo-text-extents)
 
 (define-record-printer (cairo-text-extents-type te out)
-  (for-each (lambda (x) (display x out)
-(list #cairo-text-extents 
-  (cairo-text-extents-x-bearing te) 
-  (cairo-text-extents-y-bearing te) 
-  (cairo-text-extents-width te) 
-  (cairo-text-extents-height te) 
-  (cairo-text-extents-x-advance te) 
-  (cairo-text-extents-y-advance te)
+  (for-each (lambda (x) (display x out))
+   (list #cairo-text-extents 
+ (cairo-text-extents-x-bearing te) 
+ (cairo-text-extents-y-bearing te) 
+ (cairo-text-extents-width te) 
+ (cairo-text-extents-height te) 
+ (cairo-text-extents-x-advance te) 
+ (cairo-text-extents-y-advance te
 
 (define-foreign-type cairo_text_extents_t scheme-pointer)
 
@@ -341,13 +341,13 @@ EOF
 (lambda () (maker (make-blob sizeof-cairo-font-extents)
 
 (define-record-printer (cairo-font-extents-type e out)
-  (for-each (lambda (x) (display x out)
-(list #cairo-font-extents 
-  (cairo-font-extents-ascent e) 
-  (cairo-font-extents-descent e) 
-  (cairo-font-extents-height e) 
-  (cairo-font-extents-max-x-advance e) 
-  (cairo-font-extents-max-y-advance e)
+  (for-each (lambda (x) (display x out))
+   (list #cairo-font-extents 
+ (cairo-font-extents-ascent e) 
+ (cairo-font-extents-descent e) 
+ (cairo-font-extents-height e) 
+ (cairo-font-extents-max-x-advance e) 
+ (cairo-font-extents-max-y-advance e
 
 (define-foreign-type cairo_font_extents_t scheme-pointer)
 
-- 
1.7.7.3


___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] segfault using cairo/SDL

2011-12-23 Thread Markus Klotzbuecher
On Thu, Dec 22, 2011 at 10:57:39AM +0100, Markus Klotzbuecher wrote:

 On Thu, Dec 22, 2011 at 09:41:05AM +0100, Christian Kellermann wrote:
  * Markus Klotzbuecher m...@marumbi.de [111221 21:12]:
   Dear All,
   
   I'm trying to use the cairo and sdl eggs for a small visualization
   tool. One thing I would like to do is to use the mouse to move around
   the current figure by clicking and holding it. However, I am getting
   frequent segfaults after a few seconds of this moving around. The
   crash happens both when running compiled and interpreted. Below an
   slightly modified version of the test-cairo.scm from the cairo egg
   that implements this dragging (I would have pasted it to
   http://paste.call-cc.org/ , but the service seems down)
   
   Is anyone else using these eggs and has seen such problems? Does
   anyone have a suggestions how to track this down?
  
  Yes, I am currently using it for a small doodle framework for easy
  visualisations and games. I haven't looked (yet) into mouse support.
  The SDL egg is rather dusty and there might be such dark corners.
  
  I will file this as a bug and will have a look at it during the
  holidays.
 
 Great, much appreciated!
 
  If you find the time you could build a chicken with debugging
  information (add DEBUGBUILD=1 to the make call) and show be the
  backtrace of that. This might be of more help than the standard
  backtrace.
 
 Fine, i'll try to do that during the holidays!

The problem seems to be triggered by the use of text-extents. I
uploaded a newer testcase to the bug report that makes heavier use of
extents and also crashes almost immediately on my machine. I also
added a backtraces from a CHICKEN built with DEBUGBUILD=1.

Best regards
Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] segfault using cairo/SDL

2011-12-22 Thread Markus Klotzbuecher
Hi Christian,

On Thu, Dec 22, 2011 at 09:41:05AM +0100, Christian Kellermann wrote:
 * Markus Klotzbuecher m...@marumbi.de [111221 21:12]:
  Dear All,
  
  I'm trying to use the cairo and sdl eggs for a small visualization
  tool. One thing I would like to do is to use the mouse to move around
  the current figure by clicking and holding it. However, I am getting
  frequent segfaults after a few seconds of this moving around. The
  crash happens both when running compiled and interpreted. Below an
  slightly modified version of the test-cairo.scm from the cairo egg
  that implements this dragging (I would have pasted it to
  http://paste.call-cc.org/ , but the service seems down)
  
  Is anyone else using these eggs and has seen such problems? Does
  anyone have a suggestions how to track this down?
 
 Yes, I am currently using it for a small doodle framework for easy
 visualisations and games. I haven't looked (yet) into mouse support.
 The SDL egg is rather dusty and there might be such dark corners.
 
 I will file this as a bug and will have a look at it during the
 holidays.

Great, much appreciated!

 If you find the time you could build a chicken with debugging
 information (add DEBUGBUILD=1 to the make call) and show be the
 backtrace of that. This might be of more help than the standard
 backtrace.

Fine, i'll try to do that during the holidays!

 Thanks for your help!

Thank you!

Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


[Chicken-users] segfault using cairo/SDL

2011-12-21 Thread Markus Klotzbuecher
Dear All,

I'm trying to use the cairo and sdl eggs for a small visualization
tool. One thing I would like to do is to use the mouse to move around
the current figure by clicking and holding it. However, I am getting
frequent segfaults after a few seconds of this moving around. The
crash happens both when running compiled and interpreted. Below an
slightly modified version of the test-cairo.scm from the cairo egg
that implements this dragging (I would have pasted it to
http://paste.call-cc.org/ , but the service seems down)

Is anyone else using these eggs and has seen such problems? Does
anyone have a suggestions how to track this down?

I using debian testing amd64, sdl-egg v0.5.4, cairo-egg 0.1.12.

CHICKEN Version 4.7.0 
linux-unix-gnu-x86-64 [ 64bit manyargs dload ptables ]
compiled 2011-09-05 on gladstone.duckburg.org (Linux)

I'll be pleased to provide more information.
Thanks in advance!

Markus


Backtrace:

#0  0x7fdd81c9476f in f_2129 (c=optimized out, t0=optimized out, 
t1=optimized out) at cairo.c:3963
#1  0x7fdd89a59b18 in C_values () from /usr/lib/libchicken.so.6
#2  0x7fdd81c9afbe in f_2124 (c=optimized out, t0=optimized out, 
t1=optimized out, t2=optimized out)
at cairo.c:3949
#3  0x00401daa in f_438 (c=optimized out, t0=140736279960048, 
t1=optimized out) at test-cairo.c:1661
#4  0x7fdd81ca0893 in f_1614 (c=optimized out, t0=optimized out, 
t1=optimized out) at cairo.c:4702
#5  0x7fdd89a59b18 in C_values () from /usr/lib/libchicken.so.6
#6  0x7fdd81c994a6 in f_1609 (c=optimized out, t0=optimized out, 
t1=optimized out, t2=optimized out, 
t3=optimized out) at cairo.c:4684
#7  0x004026cf in f_435 (c=optimized out, t0=140736279960480, 
t1=optimized out) at test-cairo.c:1653
#8  0x7fdd81c940b5 in f_1497 (c=optimized out, t0=optimized out, 
t1=optimized out) at cairo.c:4873
#9  0x7fdd89a59b18 in C_values () from /usr/lib/libchicken.so.6
#10 0x7fdd81c98f13 in f_1492 (c=optimized out, t0=optimized out, 
t1=optimized out, t2=optimized out, 
t3=optimized out, t4=optimized out, t5=3, t6=140589480767760) at 
cairo.c:4855
#11 0x004027c7 in f_432 (c=optimized out, t0=140736279961536, 
t1=optimized out) at test-cairo.c:1640
#12 0x7fdd81c946b5 in f_2087 (c=optimized out, t0=optimized out, 
t1=optimized out) at cairo.c:4023
#13 0x7fdd89a59b18 in C_values () from /usr/lib/libchicken.so.6
#14 0x7fdd81c9ada3 in f_2082 (c=optimized out, t0=optimized out, 
t1=optimized out, t2=optimized out, 
t3=optimized out, t4=optimized out, t5=140736279961424, 
t6=140736279960944) at cairo.c:4005
#15 0x00401e11 in f_449 (c=optimized out, t0=140736279961296, 
t1=140736279960944) at test-cairo.c:1627
#16 0x7fdd89a5d27b in C_minus () from /usr/lib/libchicken.so.6
#17 0x00406c8e in f_453 (c=optimized out, t0=140736279961336, 
t1=140736279961184) at test-cairo.c:1619
#18 0x7fdd81c94f73 in f_2223 (c=optimized out, t0=optimized out, 
t1=140736279961336, t2=optimized out)
at cairo.c:3771
#19 0x004028c5 in f_445 (c=optimized out, t0=140736279961568, 
t1=optimized out) at test-cairo.c:1611
#20 0x7fdd81c94e63 in f_2213 (c=optimized out, t0=optimized out, 
t1=140736279961568, t2=optimized out)
at cairo.c:3791
#21 0x004029ce in f_429 (c=optimized out, t0=140736279961872, 
t1=optimized out) at test-cairo.c:1596
#22 0x7fdd81c944d1 in f_1929 (c=optimized out, t0=optimized out, 
t1=optimized out) at cairo.c:4211
#23 0x7fdd89a59b18 in C_values () from /usr/lib/libchicken.so.6
#24 0x7fdd81c9a56e in f_1924 (c=optimized out, t0=optimized out, 
t1=optimized out, t2=optimized out)
at cairo.c:4197
#25 0x00402ab1 in f_426 (c=optimized out, t0=140589481276352, 
t1=optimized out) at test-cairo.c:1581
#26 0x7fdd81c96528 in f_2512 (c=optimized out, t0=140589481276312, 
t1=140736279962032) at cairo.c:3337
#27 0x7fdd89849a75 in ?? () from /usr/lib/libchicken.so.6
#28 0x7fdd89a36234 in ?? () from /usr/lib/libchicken.so.6
#29 0x7fdd89a5b112 in C_allocate_vector () from /usr/lib/libchicken.so.6
#30 0x7fdd8983e633 in ?? () from /usr/lib/libchicken.so.6
#31 0x7fdd898377ed in ?? () from /usr/lib/libchicken.so.6
#32 0x7fdd89a39368 in CHICKEN_run () from /usr/lib/libchicken.so.6
#33 0x7fdd89a3941b in CHICKEN_main () from /usr/lib/libchicken.so.6
#34 0x7fdd88f9aead in __libc_start_main (main=optimized out, 
argc=optimized out, ubp_av=optimized out, 
init=optimized out, fini=optimized out, rtld_fini=optimized out, 
stack_end=0x7fffb7f96408)
at libc-start.c:228
#35 0x004010b5 in _start ()
(gdb) 




; A test program for the Cairo bindings
; Michael Bridgen mi...@squaremobius.net
; Tony Garnock-Jones to...@kcbbs.gen.nz

(use fmt)
(use posix)
(use sdl)
(use cairo)
(import chicken scheme foreign)

;; only required on OS X
;; (declare
;;  (foreign-declare #include SDL/SDL.h\n)
;;  (run-time-macros))
;; (foreign-code SDL_Init(SDL_INIT_EVERYTHING);)


[Chicken-users] numeric-macros: -- increments instead of decrementing

2011-12-02 Thread Markus Klotzbuecher
Hi All,

I just noticed the following:

#;1 (use numeric-macros)
; loading /var/lib//chicken/6/numeric-macros.import.so ...
; loading /var/lib//chicken/6/numeric-macros.so ...
#;2 (++ 3)
4
#;3 (-- 3)
4
#;4 

This doesn't seem right :-)

Best regards
Markus


___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] BUG, list-ref bug found in chicken version 4.7.0

2011-11-21 Thread Markus Klotzbuecher
Hi,

On Sun, Nov 20, 2011 at 11:30:35AM +0100, Christian Kellermann wrote:

 *  xudi...@gmail.com [20 09:19]:
  Hello, I know this is not the right place to make a bug report, and I
  really don't know whether this is a bug.
  I did like the following:
  
  xudifsd@xudifsd-laptop:~$ csi
  #;1 (list-ref 2 '(1 5 2))
  Segmentation fault
  xudifsd@xudifsd-laptop:~$ csi -v
  
  CHICKEN
  (c)2008-2011 The Chicken Team
  (c)2000-2007 Felix L. Winkelmann
  Version 4.7.0
  linux-unix-gnu-x86 [ manyargs dload ptables ]
  compiled 2011-10-25 on xudifsd-laptop (Linux)
  
  I know I used list-ref in a wrong way, I was supposed to use it like
  (list-ref '(1 5 2) 2), but what makes me think this is a bug is that
  csi didn't give any promotion and even cause a Segmentation fault,
  it's expected to promote a wrong type.
 
 This might be a chicken build gone bad. How did you build and install
 this version of chicken? I can assure you that this works just fine
 on many of my machines.
 
 If you give us some more details we will work it out.  If you like
 mail the output of chicken-bug to this list (if it works! If your
 chicken build is broken this might fail too)

I can confirm this issue on debian/unstable (using chicken from debian
packages):

Linux PMA-10-048 2.6.38-2-amd64 #1 SMP Thu Apr 7 04:28:07 UTC 2011 x86_64 
GNU/Linux

$ dpkg -l chicken-bin libchicken-dev libchicken6 
Desired=Unknown/Install/Remove/Purge/Hold
| Status=Not/Inst/Conf-files/Unpacked/halF-conf/Half-inst/trig-aWait/Trig-pend
|/ Err?=(none)/Reinst-required (Status,Err: uppercase=bad)
||/ Name Version  Description
+++---
ii  chicken-bin  4.7.0-1  Practical and 
portable Scheme system - compiler
ii  libchicken-dev   4.7.0-1  Practical and 
portable Scheme system - development
ii  libchicken6  4.7.0-1  Practical and 
portable Scheme system - runtime


$ csi 

CHICKEN
(c)2008-2011 The Chicken Team
(c)2000-2007 Felix L. Winkelmann
Version 4.7.0 
linux-unix-gnu-x86-64 [ 64bit manyargs dload ptables ]
compiled 2011-09-05 on gladstone.duckburg.org (Linux)

; loading ./.csirc ...
; loading /var/lib//chicken/6/readline.import.so ...
; loading /var/lib//chicken/6/scheme.import.so ...
; loading /var/lib//chicken/6/chicken.import.so ...
; loading /var/lib//chicken/6/foreign.import.so ...
; loading /var/lib//chicken/6/ports.import.so ...
; loading /var/lib//chicken/6/data-structures.import.so ...
; loading /var/lib//chicken/6/posix.import.so ...
; loading /var/lib//chicken/6/regex.import.so ...
; loading /var/lib//chicken/6/irregex.import.so ...
; loading /var/lib//chicken/6/readline.so ...
; loading /var/lib//chicken/6/regex.so ...
#;1 (list-ref 2 '(1 5 2))
Segmentation fault (core dumped)
$

 $ gdb csi 
GNU gdb (GDB) 7.2-debian
Copyright (C) 2010 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later http://gnu.org/licenses/gpl.html
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.  Type show copying
and show warranty for details.
This GDB was configured as x86_64-linux-gnu.
For bug reporting instructions, please see:
http://www.gnu.org/software/gdb/bugs/...
Reading symbols from /usr/bin/csi...(no debugging symbols found)...done.
(gdb) core-file core 
[New Thread 24870]
warning: Can't read pathname for load map: Input/output error.
Reading symbols from /usr/lib/libchicken.so.6...(no debugging symbols 
found)...done.
Loaded symbols for /usr/lib/libchicken.so.6
Reading symbols from /lib/x86_64-linux-gnu/libm.so.6...Reading symbols from 
/usr/lib/debug/lib/x86_64-linux-gnu/libm-2.13.so...done.
done.
Loaded symbols for /lib/x86_64-linux-gnu/libm.so.6
Reading symbols from /lib/x86_64-linux-gnu/libdl.so.2...Reading symbols from 
/usr/lib/debug/lib/x86_64-linux-gnu/libdl-2.13.so...done.
done.
Loaded symbols for /lib/x86_64-linux-gnu/libdl.so.2
Reading symbols from /lib/x86_64-linux-gnu/libc.so.6...Reading symbols from 
/usr/lib/debug/lib/x86_64-linux-gnu/libc-2.13.so...done.
done.
Loaded symbols for /lib/x86_64-linux-gnu/libc.so.6
Reading symbols from /lib64/ld-linux-x86-64.so.2...(no debugging symbols 
found)...done.
Loaded symbols for /lib64/ld-linux-x86-64.so.2
Reading symbols from /var/lib//chicken/6/readline.import.so...done.
Loaded symbols for /var/lib//chicken/6/readline.import.so
Reading symbols from /var/lib//chicken/6/scheme.import.so...(no debugging 
symbols found)...done.
Loaded symbols for /var/lib//chicken/6/scheme.import.so
Reading symbols from /var/lib//chicken/6/chicken.import.so...(no debugging 
symbols found)...done.
Loaded symbols for /var/lib//chicken/6/chicken.import.so
Reading symbols from /var/lib//chicken/6/foreign.import.so...(no debugging 
symbols found)...done.
Loaded 

Re: [Chicken-users] BUG, list-ref bug found in chicken version 4.7.0

2011-11-21 Thread Markus Klotzbuecher
Hi Christian,

On Mon, Nov 21, 2011 at 11:39:06AM +0100, Christian Kellermann wrote:

 Thanks for your detailed report.
 
 * Markus Klotzbuecher m...@marumbi.de [21 11:22]:
#;1 (list-ref 2 '(1 5 2))
Segmentation fault
xudifsd@xudifsd-laptop:~$ csi -v
 
 I feel a bit dumb (and trolled) by this.
 
 The correct syntax for list-ref is (list-ref '(1 5 2) 2) of course.
 The segmentation fault you encounter is indeed a bug and has been
 fixed in master. I will look up the commit.

 Sorry for all the confusion.

I'm sorry, I misunderstood that this issues had been fixed already!

Best regards
Markus





___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


[Chicken-users] egg RSS feed broken?

2011-11-11 Thread Markus Klotzbuecher
Hi,

When opening the egg RSS 2.0 feed using firefox

http://wiki.call-cc.org/chicken-projects/egg-rss-feed-4.xml

(from here http://wiki.call-cc.org/eggs)

I get the following error:

XML Parsing Error: no element found
Location: http://wiki.call-cc.org/chicken-projects/egg-rss-feed-4.xml
Line Number 1, Column 1:

Is this only a temporary glitch?

Best regards
Markus



___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] egg RSS feed broken?

2011-11-11 Thread Markus Klotzbuecher
On Fri, Nov 11, 2011 at 10:22:14AM +0100, Christian Kellermann wrote:
 * Markus Klotzbuecher m...@marumbi.de [11 10:10]:
  Hi,
  
  When opening the egg RSS 2.0 feed using firefox
  
  http://wiki.call-cc.org/chicken-projects/egg-rss-feed-4.xml
  
  (from here http://wiki.call-cc.org/eggs)
  
  I get the following error:
  
  XML Parsing Error: no element found
  Location: http://wiki.call-cc.org/chicken-projects/egg-rss-feed-4.xml
  Line Number 1, Column 1:
  
  Is this only a temporary glitch?
 
 Hm does not seem like it. Did it ever work for you?

It did, but it's been a while that I checked it. In fact the last
entry shown in newsbeuter is logpro 0.99 (Unit-testing) from May
31.

 Thanks for noticing!

You're welcome!

Best regards
Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] egg RSS feed broken?

2011-11-11 Thread Markus Klotzbuecher
On Fri, Nov 11, 2011 at 06:55:05AM -0500, Mario Domenech Goulart wrote:
 
 On Fri, 11 Nov 2011 10:09:46 +0100 Markus Klotzbuecher m...@marumbi.de 
 wrote:
 
  When opening the egg RSS 2.0 feed using firefox
 
  http://wiki.call-cc.org/chicken-projects/egg-rss-feed-4.xml
 
  (from here http://wiki.call-cc.org/eggs)
 
  I get the following error:
 
  XML Parsing Error: no element found
  Location: http://wiki.call-cc.org/chicken-projects/egg-rss-feed-4.xml
  Line Number 1, Column 1:
 
  Is this only a temporary glitch?
 
 Now that you reported, yes. :-) Thanks for noticing and reporting that.
 I hope it is working now.

It is! Thanks a lot for the quick fix!
Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] [Patch] Cairo's ffi may be wrong...

2011-10-10 Thread Markus Klotzbuecher
Hi Christian,

On Sat, Oct 08, 2011 at 11:15:19PM +0200, Christian Kellermann wrote:
 
 I have toyed around with the cairo egg and experimented with text
 flow given a box with a specified size. In the result of this I
 have been calling the cairo-text-extents procedures a lot which
 resulted in either segmentation faults or out of memory panics.
 
 This procedure creates a u8-vector that it passes to the cairo C
 function which treats it as a struct and fills it's slots. The
 casting is done with a typed c-pointer.
 
 Jim suggested on #chicken that cairo's use of c-pointers pointing
 to scheme objects may be the culprit here as we don't point to the
 data itself but to the non immediate scheme object as a whole.
 
 So the attached patch uses scheme pointers instead of the c-pointers
 for these structures which makes additional casting necessary for
 the accessors. Maybe adding a typed variant of scheme-pointer would
 make sense?
 
 It also uses blobs for the storage space instead of u8-vectors since
 the manual (and Jim) warns against its use wiht a scheme-pointer.
 (As much as I understood it, I may be completely off track as well).
 
 Thanks to Jim for the suggestions, errors in the patch are all mine.
 
 I have posted this to chicken-users, because I would like to know
 whether someone else besides me uses this egg and has seen similar
 strange things *and* is willing to test this patch before I am going
 to apply it to trunk (if it is correct at all!).
 
 So please speak up if you do use cairo and let me hear your experiences
 with it.

I'm planning to use cairo for a small visualization tool, but so far
I've not gone beyond some dummy test. I have not seen any problems so
far, but also didn't use cairo-text-extents yet.

In any case I can confirm your patch did not break my dummy program!

Best regards
Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] code not working in order?

2011-04-11 Thread Markus Klotzbuecher
On Mon, Apr 11, 2011 at 12:37:55AM -0700, Chris Bolton wrote:
 so here's my code: http://darcsden.com/chris-kun/genpkg
 
 in genpkg.scm on line 26, (display) is run, however, that output is only
 displayed after the aria2 output, which is in the let-values following it; not
 sure how to fix this.

Does adding a newline help?

Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users


[Chicken-users] amb-extras: distinct? expects srfi-1 member

2011-03-28 Thread Markus Klotzbuecher
Dear All,

distinct? from amb-extras fails with an bad argument count error
when srfi-1 is not loaded. In that case the member procedure from
'scheme' and not srfi-1 is used, which doesn't take a additional
equality procedure as used by distinct?.

Adding srfi-1 to the imports as in the attached patch fixed the issue
for me.

Best regards
Markus


diff --git a/amb-extras.scm b/amb-extras.scm
index 46ac305..1769de3 100644
--- a/amb-extras.scm
+++ b/amb-extras.scm
@@ -14,12 +14,13 @@
 
   (import scheme
   chicken
+ (only srfi-1 member)
   (only data-structures shuffle)
   (only extras random)
   amb
   (only type-checks check-list check-procedure))
 
-  (require-library data-structures extras amb type-checks)
+  (require-library data-structures extras amb type-checks srfi-1)
 
 ;;
 




___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] No... but it is... interesting...

2011-03-11 Thread Markus Klotzbuecher
On Fri, Mar 11, 2011 at 11:43:59AM +0100, Felix wrote:
 From: Markus Klotzbuecher m...@marumbi.de
 Subject: Re: [Chicken-users] No... but it is... interesting...
 Date: Fri, 11 Mar 2011 08:54:57 +0100
 
  On Thu, Mar 10, 2011 at 09:15:15AM -0500, Felix wrote:
  
  This announces the availability of SPOCK, a Scheme-JavaScript
  compiler and runtime system. It can statically compile
  really-nearly-mostly R5RS-Scheme to JS or can be used to dynamically
  generate code from s-expressions (say, in a web-server or CGI
  application). Tail-calls and first-class continuations are fully
  supported.
  
  It is slow, buggy, barely tested and stresses JavaScript engines in
  unexpected ways. It doesn't run on IE, of course (this will be
  addressed, someday). Documentation is not complete yet.
  
  If your browser supports canvas tags, you can try:
  
http://www.call-with-current-continuation.org/spock/threads.html
  
This application draws some graphics in call/cc-based coroutines,
the source to this is here:
  
http://www.call-with-current-continuation.org/spock/threads.scm
  
  The test-suite can be run at:
  
http://www.call-with-current-continuation.org/spock/test.html
  
Note that running this this takes a while and might trigger a
browser warning. Just continue executing it until it either
errors out or runs to completion.
  
  Initial documentation can be found here:
  
http://wiki.call-cc.org/egg/spock
  
  Very nice! Could this be used to interact with Qt QML and Quick?
 
 I haven't used these, but if QML is ECMA-Script-compliant, I see
 no reason why it shouldn't work. I would be very interested in
 the results, in case you are going to try it out!

Ok, great! I unfortunately will not have time soon, but if I do I'll
report the results..

Best regards
Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] No... but it is... interesting...

2011-03-10 Thread Markus Klotzbuecher
On Thu, Mar 10, 2011 at 09:15:15AM -0500, Felix wrote:
 
 This announces the availability of SPOCK, a Scheme-JavaScript
 compiler and runtime system. It can statically compile
 really-nearly-mostly R5RS-Scheme to JS or can be used to dynamically
 generate code from s-expressions (say, in a web-server or CGI
 application). Tail-calls and first-class continuations are fully
 supported.
 
 It is slow, buggy, barely tested and stresses JavaScript engines in
 unexpected ways. It doesn't run on IE, of course (this will be
 addressed, someday). Documentation is not complete yet.
 
 If your browser supports canvas tags, you can try:
 
   http://www.call-with-current-continuation.org/spock/threads.html
 
   This application draws some graphics in call/cc-based coroutines,
   the source to this is here:
 
   http://www.call-with-current-continuation.org/spock/threads.scm
 
 The test-suite can be run at:
 
   http://www.call-with-current-continuation.org/spock/test.html
 
   Note that running this this takes a while and might trigger a
   browser warning. Just continue executing it until it either
   errors out or runs to completion.
 
 Initial documentation can be found here:
 
   http://wiki.call-cc.org/egg/spock

Very nice! Could this be used to interact with Qt QML and Quick?

Best regards
Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] getopt-long complains about missing property

2011-02-27 Thread Markus Klotzbuecher
Hi Christian,

On Fri, Feb 25, 2011 at 05:37:31PM +0100, Christian Kellermann wrote:
 Hi Markus,
 
 * Markus Klotzbuecher markus.klotzbuec...@mech.kuleuven.be [110225 17:20]:
  I'm get an error with the getopt-long egg. It is reproducible with the
  example on the getopt-long egg page:
  
  Error: invalid getopt-long option property: required?
 
 Try required w/o a '?'. I think that has been changed and the example is 
 wrong. It works for me that way.

Yep, that did it! Thanks a lot!

Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users


[Chicken-users] getopt-long complains about missing property

2011-02-25 Thread Markus Klotzbuecher
Dear All,

I'm get an error with the getopt-long egg. It is reproducible with the
example on the getopt-long egg page:

Error: invalid getopt-long option property: required?

   Call history:
   syntax   (getopt-long (quote (my-prog -vk /tmp foo1 
--x-includes=/usr/include --rnet-server=lampro...
   syntax  (quote (my-prog -vk /tmp foo1 
--x-includes=/usr/include --rnet-server=lamprod -- -fre...
   syntax   (##core#quote (my-prog -vk /tmp foo1 
--x-includes=/usr/include --rnet-server=lamprod --...
   eval(getopt-long (quote (my-prog -vk 
/tmp foo1 --x-includes=/usr/include --rnet-server=lampro...
   g36773685  
   getopt-long#make-single-char   
   -string 
   string-list   
   fold 
   error--

According to the docs required? should be a valid property.

I'm on debian, chicken Version 4.6.0, getopt-long v1.12, matchable
v3.1.

Thanks in advance for any help!
Markus


___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users


[Chicken-users] 3viewer crash

2010-12-10 Thread Markus Klotzbuecher
Dear List,

I just gave the 3viewer egg a try, but running the example resulted
in a core dump (both compiled and interpreted).

I'm on debian testing, amd64

chicken-bin 4.5.0-1
libchicken-dev  4.5.0-1
libchicken5 4.5.0-1

(c)2008-2010 The Chicken Team
(c)2000-2007 Felix L. Winkelmann
Version 4.5.0 
linux-unix-gnu-x86-64 [ 64bit manyargs dload ptables ]
compiled 2010-06-17 on gladstone.duckburg.org (Linux)

and have the latest dependency eggs of 3viewer installed.

I ran gdb on the core file but all I got was

(gdb) bt
#0  __longjmp () at ../sysdeps/x86_64/__longjmp.S:56
#1  0x7a6441954df1a0c2 in ?? ()
Cannot access memory at address 0x493f419572744107

Any ideas?
Thanks!

Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users


Re: [Chicken-users] small patch for test-cairo of cairo egg

2010-09-26 Thread Markus Klotzbuecher
On Fri, Sep 24, 2010 at 10:42:24PM +0200, Felix wrote:
 From: Markus Klotzbuecher markus.klotzbuec...@mech.kuleuven.be
 Subject: [Chicken-users] small patch for test-cairo of cairo egg
 Date: Fri, 24 Sep 2010 15:19:17 +0200
 
  Hi All,
  
  I tried the test-cairo program from the cairo egg and it failed to
  compile because of a wrong SDL header. The attached little patch fixes
  this for me (debian testing, libsdl-dev 1.2.14-6).
  
 
 Thanks, Markus. I have added the change and tagged a new version
 (0.1.5). I also converted the documentation to wiki-format.

Great! Thank you!

Markus

___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users


[Chicken-users] small patch for test-cairo of cairo egg

2010-09-24 Thread Markus Klotzbuecher
Hi All,

I tried the test-cairo program from the cairo egg and it failed to
compile because of a wrong SDL header. The attached little patch fixes
this for me (debian testing, libsdl-dev 1.2.14-6).

Best regards
Markus


diff --git a/test-cairo.scm b/test-cairo.scm
index 7fede23..aa18f89 100644
--- a/test-cairo.scm
+++ b/test-cairo.scm
@@ -8,7 +8,7 @@
 (import chicken scheme foreign)
 
 (declare
- (foreign-declare #include SDL.h\n)
+ (foreign-declare #include SDL/SDL.h\n)
  (run-time-macros)
 )
 (foreign-code SDL_Init(SDL_INIT_EVERYTHING);)



___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users