ChanServ changed the topic of #picolisp to: PicoLisp language | Channel Log: https://irclog.whitequark.org/picolisp/ | Picolisp latest found at http://www.software-lab.de/down.html | check also http://www.picolisp.com for more information
Mat4 has quit [Quit: Yaaic - Yet another Android IRC client - http://www.yaaic.org]
shpx has quit [Quit: My MacBook has gone to sleep. ZZZzzz…]
shpx has joined #picolisp
shpx has quit [Client Quit]
shpx has joined #picolisp
pcell has quit [Read error: Connection reset by peer]
pcell has joined #picolisp
pcell has quit [Read error: Connection reset by peer]
pcell has joined #picolisp
pcell has quit [Read error: Connection reset by peer]
pcell has joined #picolisp
pcell has quit [Ping timeout: 264 seconds]
orivej has joined #picolisp
inara has quit [Quit: Leaving]
inara has joined #picolisp
trui2 has quit [Remote host closed the connection]
trui2 has joined #picolisp
trui2 has quit [Ping timeout: 240 seconds]
cilz has joined #picolisp
<cilz> good morning guys
<Regenaxer> Hi cilz
<cilz> Hello Regenaxer
rob_w has joined #picolisp
<beneroth> Good morning Regenaxer, cilz
<cilz> hello beneroth
<Regenaxer> Hi beneroth
trui2 has joined #picolisp
<cilz> is there any way to set to a variable the output of say (call "ls" "-lh" "/bin/ps") ? so far I only get T where I expect someting like -rwxr-xr-x 1 root root 96K nov. 21 2016 /bin/ps
<Regenaxer> No, 'call' does not return anything useful. You should look at 'in'
<beneroth> (in 'list)
<Regenaxer> (in '("ls" "-lh" "/bin/ps") (while (line) (msg @]
<beneroth> (in '("ls" "-lh" "/bin/ps") (echo))
<Regenaxer> :)
<beneroth> ^^
<cilz> thanks :)
<Regenaxer> Speed typing contest ;)
<cilz> and the winner is....
<Regenaxer> beneroth has the fastea keyboard I suppose ...
<Regenaxer> *faster
<beneroth> Logitech
<Regenaxer> Penti
<beneroth> I'm surprised that I was faster.
<Regenaxer> No, Penti is slower than a 10-finger typist
<Regenaxer> I'm still faster on a normal keyboard
<Regenaxer> Around double I think
<cilz> based on your inputs
<cilz> (setq A (pack (in '("ls" "-lh" "/bin/ps") (while (line) (msg @)))))
<cilz> and
<cilz> (in '("ls" "-lh" "/bin/ps") (setq A @))
<cilz> gives both
<cilz> A -> "-rwxr-xr-x 1 root root 96K nov. 21 2016 /bin/ps"
<cilz> thanks
<Regenaxer> :)
<Regenaxer> Hint: (pack ... (line ... is not very efficient
<cilz> yep, may be
<Regenaxer> To get *all* do (in ... (till NIL T))
<Regenaxer> (while (line) (msg @)) is also strange
<Regenaxer> and in (in '("ls" "-lh" "/bin/ps") (setq A @) the value of @ is not predictable
<Regenaxer> '@' is set by flow functions or in the repl
<beneroth> I'm not using the real 10-finger system. kinda got my own 10-finger system.
<Regenaxer> ok :)
<cilz> Regenaxer: will experiment again, then...
<beneroth> Penti is faster then the normal touch keyboard :) physical keyboard might be faster because it needs less input
<Regenaxer> good :)
<Regenaxer> beneroth, right
<beneroth> Regenaxer, have you ever thought about a (I-forgot-the-name) hand-hold type-input-device-thingy? like the one which was part in the mother of all demos?
<Regenaxer> cilz: What makes sense here is (make (in '("ls" "-lh" "/bin/ps") (while (line T) (link @]
<beneroth> such a thing which one holds within the hand, like holding a stock
<Regenaxer> you get a list of linis
<beneroth> stick
<Regenaxer> You mean a pencil? ;)
<cilz> Regenaxer: is the @ is this context more predictable?
<Regenaxer> yes
<cilz> ok
<Regenaxer> 'while' sets it
<Regenaxer> but in (in '("ls" "-lh" "/bin/ps") (setq A @)) it is set somewhere before
<Regenaxer> nothing to do with the 'in'
<cilz> so I record this one (set A (make (in '("ls" "-lh" "/bin/ps") (while (line T) (link @)))) thanks
<beneroth> Regenaxer, I mean a "keyer". hardware devices, strongly related to chorded typing
<Regenaxer> cilz, yes, good
<Regenaxer> 'set' -> 'setq' though
<cilz> yes, good catch!
<Regenaxer> :)
<Regenaxer> beneroth, not sure
<beneroth> this seems to be a unique Steve Mann thingy though https://en.wikipedia.org/wiki/Steve_Mann
<beneroth> apparently that guy basically founded/invented wearable computing
<Regenaxer> ah, yes, saw such
<beneroth> this seems to be a very interesting human
<beneroth> also invented a music instrument based on water
<beneroth> bbl
aw- has joined #picolisp
<aw-> hi all
<Regenaxer> Hi aw-
<cilz> aw--: hello
mtsd has joined #picolisp
<cilz> is there any way to compute pi with this shell command ' echo "scale=10; 4*a(1)" | bc -l ' with PL
<cilz> I have tried may things with exec ; pipe ... but failed so far :(
<Regenaxer> yes, with (out (list "bc" "-l") (prinl ...
<cilz> ok will try it
<Regenaxer> If you want the result, then 'pipe' instead of 'out'
<aw-> cilz: or put that in a shell script and call it like (in 'pi.sh (line T))
<cilz> yep
<cilz> tough I want to teach myself PIL
<aw-> cilz: the | character, when using (in and (call etc, will be seen as "|"
<cilz> ok
<aw-> so do as Regenaxer suggested
<Regenaxer> : (scl 9) (pipe (out '("bc" "-l") (prinl "scale=10; 4*a(1)")) (read))
<Regenaxer> -> 3141592653
<Regenaxer> : (round @)
<Regenaxer> -> "3.142"
<aw-> haha yeah, you need to format it to get the decimal
<Regenaxer> Fixpoint :)
<Regenaxer> (format 3141592653 *Scl)
<cilz> well dealing with shell command is a bit tricky for a newcommer like me...
<cilz> thanks guys
<Regenaxer> :)
aw- has quit [Quit: Leaving.]
trui2 has quit [Ping timeout: 265 seconds]
cilz has quit [Ping timeout: 276 seconds]
<cess11_> Good morning.
<Regenaxer> Hi cess11_
<tankf33der> i want implement something on picolisp
<tankf33der> any ideas, todos?
<tankf33der> library binding?
<tankf33der> something!
<Regenaxer> How about a text-client for Mastodon (Fediverse)?
<tankf33der> ugh
<Regenaxer> There is only a Python lib (horror!)
<cess11_> Perhaps a log parser or some other sysadmin helper stuff?
<cess11_> I've thought about using 'co and some simple class with file locations and triggers for such a purpose but not got around to trying it out.
<cess11_> More as exercise or preparation for a web GUI than real use though.
orivej_ has joined #picolisp
orivej has quit [Ping timeout: 260 seconds]
<tankf33der> client on go
<Regenaxer> ok
dtornabene has quit [Remote host closed the connection]
pcell has joined #picolisp
shpx has quit [Quit: My MacBook has gone to sleep. ZZZzzz…]
rob_w has quit [Quit: Leaving]
pcell has quit [Ping timeout: 240 seconds]
mtsd has quit [Quit: Leaving]
karswell has joined #picolisp
alexshendi has joined #picolisp
shpx has joined #picolisp
shpx has quit [Quit: My MacBook has gone to sleep. ZZZzzz…]
shpx has joined #picolisp
karswell has quit [Ping timeout: 246 seconds]