Re: trouble reading non blocking space etc

Thank you very much for that Lindsay. Apparently up to code128 Ascii encodings are the same as UTF-8. After that things change and you can get clashes. That A0 or 160 is a non-blocking backspace. I'm just after alphanumeric characters but will need to convert those A0s to ordinary spaces This

Re: trouble reading non blocking space etc

Not sure about file charset encoding (a0?)... But perhaps something like this...? $ xxd test.txt 000: 6869 a074 6865 6972 3aa0 686f 7720 6172 hi.their:.how ar 010: 6520 796f 750a e you. : (pack (make (in "test.txt" (while (rd 1) (link (char @

Re: trouble reading non blocking space etc

Looking a possible ways around this I saw this in the tutorial :) (in "/home/me/test_fl.txt" (until (eof) (echo 1) (key))) and it works great. My problem is I don't know how to capture (echo 1) into a symbol's val. On 13 February 2017 at 23:03, dean

Re: trouble reading non blocking space etc

Done it :) (in "/home/me/test_fl.txt" (until (eof) (echo 1) (setq B (in NIL)) (prinl B) (key))) On 14 February 2017 at 12:26, dean wrote: > Looking a possible ways around this I saw this in the tutorial :) > > (in "/home/me/test_fl.txt" >

Re: trouble reading non blocking space etc

My mistakeI haven't done it at all and what is moreI'm not sure how you get the hex value (or decimal value) of the byte to decide what to do with it. On 14 February 2017 at 12:38, dean wrote: > Done it :) > > (in "/home/me/test_fl.txt" >(until (eof) >

Ersatz (sym? -.1) differs from pil32

Hi, There seems to be a tiny difference between Ersatz and ordinary PicoLisp in the “sym?” function. In Ersatz (17.1.25 JVM) I get this: : (mapcar sym? '(+.1 -.1)) -> (T NIL) In 32-bit PicoLisp (16.12.8 C) I get this: : (mapcar sym? '(+.1 -.1)) -> (T T) I have not tested this in 64-bit

Re: trouble reading non blocking space etc

This is the closest I've got i.e. the first byte seems to go into B now but then I'm in an endless loop with B's value stuck with that first byte. (in "/home/me/test_fl.txt" (until (eof) (setq B (pipe (echo 1) (read))) (prinl B) (if (= (key) "x") (quit On 14 February

Re: trouble reading non blocking space etc

Ok...It seems that (rd 1) doesn't work well with (until (eof) so I tried (in "/home/me/test_fl.txt" (while (setq B (rd 1)) (prinl (char B)) (if (= (key) "x") (quit and "while" testing the output of "rd 1" worked fine On 14 February 2017 at 16:21, dean

Re: trouble reading non blocking space etc

Ok Done it now including the decimal codes and I'd previously seen both hex and hax so...this should keep me busy for a while :). (in "/home/me/test_fl.txt" (until (eof) (setq B (rd 1)) (prinl B ) (if (= (key) "x") (quit On 14 February 2017 at 15:50, dean

Re: Ersatz (sym? -.1) differs from pil32

Hi Jon, > In Ersatz (17.1.25 JVM) I get this: > > : (mapcar sym? '(+.1 -.1)) > -> (T NIL) > > In 32-bit PicoLisp (16.12.8 C) I get this: > > : (mapcar sym? '(+.1 -.1)) > -> (T T) > > I have not tested this in 64-bit PicoLisp. Sorry. ;-) It is the same on pil64. Probably Ersatz is not

Re: Ersatz (sym? -.1) differs from pil32

# pil + : (== 64 64) -> T : (version) 17.1.7 -> (17 1 7) : (mapcar sym? '(+.1 -.1)) -> (T T) : On Tue, Feb 14, 2017 at 3:51 PM, Jon Kleiser wrote: > Hi, > > There seems to be a tiny difference between Ersatz and ordinary PicoLisp > in the “sym?” function. > > In Ersatz