Re: pil64emu testing features

2012-11-05 Thread Jorge Acereda
On Nov 5, 2012, at 7:43 AM, Alexander Burger wrote: > Hi Jorge, > > cool! Thanks for researching! :) > > >> Ok, what about this? > > Right. However, this is "src/Makefile", we should to the analog with > "src64/Makefile, right? Uh? The .patch was changing both files... > > >> According t

Re: pil64emu testing features

2012-11-05 Thread Jon Kleiser
Hi Alex, I just tested the latest "ongoing" on my Mac, and it seems to work quite fine: f3bmac3:picoLispEmu jkleiser$ (cd src64; make) emu.base.c: In function ‘run’: emu.base.c:42120: warning: format not a string literal and no format arguments emu.base.c:42175: warning: format not a string l

pil64emu, OpenGL?

2012-11-05 Thread Jon Kleiser
Hi Alex, I'm maybe a bit optimistic, but I had to try OpenGL with pil64emu (again on Mac) ... f3bmac3:picoLispEmu jkleiser$ ./pil somePath/tst64.l + [/Volumes/P3/Pico/gl64/tst64.l:7] !? (native "/usr/lib/libglut.so" "glutInit" NIL '(NIL (8) . 0)) [DLL] dlopen(/usr/lib/libglut.so, 9): image n

Re: pil64emu testing features

2012-11-05 Thread Alexander Burger
Hi Jorge, > > Right. However, this is "src/Makefile", we should to the analog with > > "src64/Makefile, right? > > Uh? The .patch was changing both files... Sorry, didn't look carefully then. But why should we change pil32? It worked all right, didn't it? Cheers, - Alex -- UNSUBSCRIBE: mailto:

Re: pil64emu testing features

2012-11-05 Thread Alexander Burger
Hi Jon, > I just tested the latest "ongoing" on my Mac, and it seems to work > quite fine: Good. > Something else: > While I was looking into the 'misc' folder I found 'reverse.l' and > 'setf.l' ("the most perverse concept ..."). Can you explain what > these two do? "misc/reverse.l" is just a

Re: pil64emu, OpenGL?

2012-11-05 Thread Alexander Burger
Hi Jon, > I'm maybe a bit optimistic, but I had to try OpenGL with pil64emu > (again on Mac) ... Not optimistic at all! I consider pil64emu as finished. Here OpenGL works already since last week. I tried, for example, your "pyramids.l" (also attached to this mail): ./pil pyramids.l + > (de

`rd' behavior

2012-11-05 Thread dexen deVries
hello list, why does `rd' return NIL in simplest use ('sym or NIL argument): (in "info.txt" (print (rd] while it seems to work fine with 'cnt argument: (in "info.txt" (print (rd 1] guess i'm doing something wrong @_@ using picoLisp-3.1.0.tgz. -- dexen deVries [[[↓][→]]] How often I f

Re: `rd' behavior

2012-11-05 Thread José Romero
On Mon, 05 Nov 2012 14:37:07 +0100 dexen deVries wrote: > hello list, > > why does `rd' return NIL in simplest use ('sym or NIL argument): > (in "info.txt" >(print (rd] > > while it seems to work fine with 'cnt argument: > (in "info.txt" >(print (rd 1] > > guess i'm doing something wro

Re: pil64emu, OpenGL?

2012-11-05 Thread Jon Kleiser
Hi Alex, On 11/5/12 2:29 PM, Alexander Burger wrote: Hi Jon, I'm maybe a bit optimistic, but I had to try OpenGL with pil64emu (again on Mac) ... Not optimistic at all! I consider pil64emu as finished. Here OpenGL works already since last week. I tried, for example, your "pyramids.l" (also a

Re: pil64emu testing features

2012-11-05 Thread Jon Kleiser
Hi Alex, On 11/5/12 2:26 PM, Alexander Burger wrote: Hi Jon, I just tested the latest "ongoing" on my Mac, and it seems to work quite fine: Good. Something else: While I was looking into the 'misc' folder I found 'reverse.l' and 'setf.l' ("the most perverse concept ..."). Can you explain w

Re: `rd' behavior

2012-11-05 Thread dexen deVries
On Monday 05 of November 2012 10:54:20 you wrote: > rd without argument (or with a sym) means binary read, it tries to read > an atom or expression in the binary PLIO format (used by pr). Rd with a > number argument means to read the given amount of bytes as a bignum. > The sym argument is an optio

Re: `rd' behavior

2012-11-05 Thread dexen deVries
On Monday 05 of November 2012 15:29:42 dexen wrote: > (...) here goes the venerable cat: ..and a bugfix -- support the all-important "-" ;-) #!/usr/bin/env plmod (mapcar '( (file) (in (if (= file "-") NIL file ) (use X

Re: pil64emu testing features

2012-11-05 Thread Alexander Burger
On Mon, Nov 05, 2012 at 02:25:13PM +0100, Alexander Burger wrote: > Sorry, didn't look carefully then. But why should we change pil32? It > worked all right, didn't it? Sorry again ;-) It didn't strip at all in pil32. I'll change it. Thanks! - Alex -- UNSUBSCRIBE: mailto:picolisp@software-lab.

Re: `rd' behavior

2012-11-05 Thread José Romero
On Mon, 05 Nov 2012 15:29:42 +0100 dexen deVries wrote: > On Monday 05 of November 2012 10:54:20 you wrote: > > rd without argument (or with a sym) means binary read, it tries to > > read an atom or expression in the binary PLIO format (used by pr). > > Rd with a number argument means to read the

Re: pil64emu testing features

2012-11-05 Thread Alexander Burger
Hi Jon, > >"misc/setf.l" is just a joke ;-) > > Unfortunately I still don't understand that joke. :-( > There must be some reason why it's there ... Not really. I'm a strong opponent of the CL 'setf' function. I think it completely violates the spirit of how Lisp functions evaluate their argumen

Re: `rd' behavior

2012-11-05 Thread Alexander Burger
Hi Dexen, > inspired by recent post on HN, i want to learn picoLisp (at last :P) by re- > implementing some basic UNIX tools. here goes the venerable cat: OK, so let me refine it. As already pointed out by José, it could be simply reduced to 'echo'. However, if you do it by hand, > #!/usr/bin/

Re: pil64emu, OpenGL?

2012-11-05 Thread Alexander Burger
Hi Jon, > >Here OpenGL works already since last week. I tried, for example, your > >"pyramids.l" (also attached to this mail): > > > >./pil pyramids.l + > > > > > >>(default > >>*GluLib "/usr/lib/libGLU.so" > >>*GlutLib "/usr/lib/libglut.so" ) > >> > >> From what I can see, there's no

problem with (rot) and (link)?

2012-11-05 Thread Laurent Artaud
I don't understand what is happening, here... I am playing around with Problem 35 on Project Euler and just stumbled on this: (de split-number (N) (mapcar format (chop (format N))) ) (de all-rotations (N) (let SN (split-number N) (make (for L (range 1 (length SN))

Re: pil64emu, OpenGL?

2012-11-05 Thread Jorge Acereda
The following patch makes it work on Mac: gl.patch Description: Binary data On Nov 5, 2012, at 7:35 PM, Alexander Burger wrote: > Hi Jon, > >>> Here OpenGL works already since last week. I tried, for example, your >>> "pyramids.l" (also attached to this mail): >>> >>> ./pil pyramids.l +

Re: problem with (rot) and (link)?

2012-11-05 Thread Alexander Burger
Hi Laurent, > I am playing around with Problem 35 on Project Euler and just stumbled on > this: > > (de split-number (N) >(mapcar format (chop (format N))) ) > > (de all-rotations (N) >(let SN (split-number N) > (make > (for L (range 1 (length SN)) > (link (ro

Re: pil64emu, OpenGL?

2012-11-05 Thread Alexander Burger
Hi Jorge, > The following patch makes it work on Mac: > > (default > - *GluLib "libGLU.so" > - *GlutLib "libglut.so" ) > + *GluLib (if (= *OS "Darwin") > + "/System/Library/Frameworks/OpenGL.framework/OpenGL" > + "libGLU.so" ) > + *GlutLib (if (= *OS "Darwin") >