Until those >128 characters messed me up...I was working with lines
but am sure I can adapt what you've writtenwhich looks very slick :)
...to cope with that by trapping the Line feed character and processing
the accumulated list
upto that point.
Thank you very much for your help.
On 15 Februa
If you are just working with bytes, maybe you do not need to 'print' or
'symbolize'...
: (in "test.txt" (while (rd 1) (wr @)))
hi�theRE:�how are you
-> 10
..or filtering for graphic ascii and everything else to space...
: (setq E '(let (C NIL) (in "test.txt" (while (rd 1) (setq C @) (if (and
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 seem
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 @
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 wrote:
> Ok Done it now
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 wrote:
> This
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 2017
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)
> (echo 1)
> (setq B
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"
>(until (eof)
> (ech
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 wrote:
> Thank you very muc
Thank you very much for this!
I tried (cd src; make tools) both from the command line...because of "$"
and from within Picolisps RPL because of the parens.
I looked in src and there is just the utf2.c file.
When I do $ (cd src; make tools) from the command line I get...
$ (cd src; make tools)
*** P
Hi Dean,
> 6869 a074 6865 6972 3aa0 686f 7720 6172 6520 796f 750a
> hi.their:.how are you.
>
> The following program...
>
> (in "/home/me/test_fl.txt"
>(until (eof)
> (setq Ln (line T))
> (prinl Ln)))
>
> results in this
>
> hiനeir:ਯw are you
OK, as you noticed in your oth
12 matches
Mail list logo