Update: 64-Bit PicoLisp in a Docker container

Hello List! A user pointed out to me that (edit 'sym) didn't work in the TinyCore based container. vi was installed but getting it to work proved to be painful so I set out to build a small, custom container using buildroot. After much doc reading I managed to build a 64-bit container with

Re: clip and chop down consecutive "internal" white spaces to one

Thanks Alex, In the context of : (glue " " (filter prog (split (chop " s pac e s") " "))) -> "s pac e s" where : (split (chop " s pac e s") " ") -> (NIL NIL ("s") NIL ("p" "a" "c") ("e") ("s")) it is not immediately obvious to me that the arguments passed to the (filter prog ..) are

Re: clip and chop down consecutive "internal" white spaces to one space??

Joe, LindsayYes! they both do it and are MUCH slicker :) than the improvement I managed overnight i.e. moving the clip down into the for loop :) That's great. Thank you very much. (de shrink (Str) (pack (let (Last_ch "A") (make (for Ch (clip (chop Str)) (if

Re: clip and chop down consecutive "internal" white spaces to one

Hi Lindsay, >(glue C (filter '((E) E) (split (chop S) C I would do the same. Just one minor improvement: Because calling an EXPR function like ((E) E) is relatively expensive, I generally recommend to use 'prog' for the identity function: (glue C (filter prog (split (chop S) C

Re: Serial communication?

On Sat, Feb 18, 2017 at 09:24:09AM +0100, Alexander Burger wrote: >(err "/dev/null" # stty arguments depend on your situation > (call "stty" "/dev/ttyACM0" "raw" "-echo" "-echoe" "-echok") ) Sorry, forgot the "-F" (call "stty" "-F" "/dev/ttyACM0" "raw" "-echo" "-echoe" "-echok")

Re: Serial communication?

On Fri, Feb 17, 2017 at 10:15:55PM -0900, Christopher Howard wrote: > Hi list. As mentioned before, I've got picolisp running on a mips32r2 > system running librecmc-1.3.4. I want to communicate with an ACM device > available at /dev/ttyACM0. Is there a library for serial communication? > And/Or

Re: clip and chop down consecutive "internal" white spaces to one

Hi Alex Thank you very much for the elaboration. It helps a lot. Best Regards Dean On 18 February 2017 at 08:11, Alexander Burger wrote: > Hi Lindsay, > > >(glue C (filter '((E) E) (split (chop S) C > > I would do the same. > > Just one minor improvement: > >

Re: Serial communication?

On Sat, Feb 18, 2017 at 09:24:09AM +0100, Alexander Burger wrote: >(out "/dev/ttyACM0" >... ) > >(in "/dev/ttyACM0" >... ) Some devices don't like it very much to be opened and closed all the time (losing queued data, for example). In that case, you could try: (let?

Re: clip and chop down consecutive "internal" white spaces to one

Thanks Alex. I was sure there was something like 'bool' to replace '((E) E)... I just could not find it at the time. =) I am surprised that 'prog works. Why, in this context, does it treat it's argument as 'data'? Given (NIL NIL NIL ("s" "p" "a" "a" "a" "c" "e" "s" ",") : (prog NIL) ->