Re: too many open files?

2012-09-06 Thread Laurent Artaud
Le 05/09/2012 19:20, Alexander Burger a écrit : On Wed, Sep 05, 2012 at 09:34:10AM +0200, Alexander Burger wrote: I don't have the time at the moment to investigate it further. I hope I can fix it this evening. We need just to insert a call to closedir(). I've uploaded a fix to the code

Re: too many open files?

2012-09-06 Thread Laurent Artaud
Le 06/09/2012 08:01, Alexander Burger a écrit : Hi Laurent, back to your original mail: By the way, if anyone know what lib to use for (native) to make a lstat syscall so I can replace the stat shell call, I'd be very grateful: I can't find where it is! (contrary to what I thought, it is NOT

Re: too many open files?

2012-09-06 Thread Alexander Burger
Hi José, Why not just: (in (list stat -c (`(hex \%f\) %s %u %g %h %i %X %Y %Z) Path) (read) ) Nice! Very clever! (PicoLisp-ish ;) Cheers, - Alex -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Re: too many open files?

2012-09-05 Thread Alexander Burger
Hi Laurent, Pipe error: Too many open files Opps, I can reproduce it! And I found this is a bug in the 'dir' function on pil64. It leaks file descriptors _if_ the directory is empty: $ mkdir a $ pil + : (call 'ls -l (pack /proc/ *Pid /fd)) total 0 lrwx-- 1 app app 64 Sep 5

Fast vendor response time (Was: Re: too many open files?)

2012-09-05 Thread Jakob Eriksson
Talk about fast vendor response time! On September 5, 2012 at 9:34 AM Alexander Burger a...@software-lab.de wrote: Opps, I can reproduce it! And I found this is a bug in the 'dir' -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Re: too many open files?

2012-09-05 Thread Alexander Burger
On Wed, Sep 05, 2012 at 09:34:10AM +0200, Alexander Burger wrote: I don't have the time at the moment to investigate it further. I hope I can fix it this evening. We need just to insert a call to closedir(). I've uploaded a fix to the code repository. As I'm in the process of other changes, I

too many open files?

2012-09-04 Thread Laurent Artaud
files ? *NFCpt - 4081 ? : (bye) [/home/laurent/.pil/history:1] !? (out (pil history) (while (and New (n== New Hist0)) (prinl (pop 'New)) (dec 'N)) (setq Hist0 History) (do N (NIL Old) (prinl (pop 'Old /home/laurent/.pil/history -- Open error: Too many open files ? lsof | grep -i pil shows