picolisp

PicoLisp development
Alexander Burger

[picolisp @PicoLispREPL]

I musk leave:

: (bye)

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Rebuild an index tree (e.g. after a model change):

: (load "@lib/too.l")
-> loadDB

: (rebuild (db: +Item) 'nm '+Item)
-> T

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Database check is faster if you allocate more heap space with 'gc' first:

: (load "@lib/too.l")
-> loadDB

: (gc 1200) (dbCheck)
...

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

A simpler way (if no other alarm is currently scheduled by the application):

: (alarm (- (time 12 30) (time)) (kill *PPid))
-> 0
$

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Stop current server process family (parent and all child processes) at 12:30 o'clock:

: (wait (* 1000 (- (time 12 30) (time)))) (kill *PPid)
-> T
$

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Digit sum:

: (sum format (chop 9045))
-> 18

: (sum format (chop 123456789123456789123456789123456789))
-> 180

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Non-recursive factorial:

: (apply * (range 1 6))
-> 720

: (apply * (range 1 40))
-> 815915283247897734345611269596115894272000000000

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Minimal HTTP-Server:

(allowed () "!foo")
(load "@lib/http.l" "@lib/xhtml.l")

(de foo ()
(html 0 "Title" NIL NIL
(<h1> NIL "OK") ) )

(server 8080 "!foo")

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

(loop (wait)) is of course nonsense. Correct is just (wait).

[picolisp @PicoLispREPL]

Fork a child process and return its PID:

: (or (fork) (loop (wait)))
-> 9599

: (tell 9599 'msg '*Pid)
-> *Pid
9599

: (kids)
-> (9599)

: (tell 9599 'bye)
-> bye

: (kids)
-> NIL

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Communicate with a separate PicoLisp process using plain text:

: (pipe (exec "pil" "-while (read) (println (mapcar inc @)) (flush)"))
-> 3

: (out 3 (println (1 2 3)))
-> (1 2 3)

: (in 3 (read))
-> (2 3 4)

: (close 3)
-> 3

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Communicate with a separate PicoLisp process:

: (pipe (exec "pil" "-while (rd) (pr (mapcar inc @)) (flush)"))
-> 3

: (out 3 (pr (1 2 3)))
-> (1 2 3)

: (in 3 (rd))
-> (2 3 4)

: (close 3)
-> 3

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Communicate with a child process:

: (pipe (while (rd) (pr (mapcar inc @)) (flush)))
-> 3

: (out 3 (pr (1 2 3)))
-> (1 2 3)

: (in 3 (rd))
-> (2 3 4)

: (close 3)
-> 3

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Load (read+eval) directly from a tarball:

: cos
-> NIL

: (load '("tar" "xfzO" "pil21.tgz" "pil21/lib/math.l"))
-> atan2

: cos
-> ((A) (set "Dbl1" A) (%@ "cos" 100 "Dbl1"))

: (pp 'cos)
(de cos (A)
(set "Dbl1" A)
(%@ "cos" 100 "Dbl1") )
-> cos

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

List all IP addresses of this machine:

: (make
(in '(ip addr)
(while (from " inet ")
(link (till " " T)) ) ) )
-> ("127.0.0.1/8" "176.221.46.93/24")

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Elevation in meters above sea level:

(de elevation (City)
(ssl "https://t.co/sbynV74Fxl" (pack "wiki/" City)
(and (from "Elevation") (from "infobox-data\">") (till "&" T)) ) )

: (elevation "Berlin")
-> "34"

: (elevation "Lhasa")
-> "3,656"

#PicoLisp #lisp #REPL

[tankf33der @tankf33der]

#picolisp compiled and passed all tests on llvm15. #lisp #llvm

[picolisp @PicoLispREPL]

Write 16 random bytes and pipe into hexdump:

: (pipe
(do 16
(wr (rand 0 255)) )
(hd (fd)) )
00000000 00 2D CF 46 29 04 B4 78 D8 68 A7 FF 3F 2B F1 FC .-.F)..x.h..?+..
-> NIL

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Deeper explanation of Vip ASCII drawing (video from 2019):

https://t.co/MwsX9dAk6F

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Print all files >= 1000000 bytes:

: (let D "."
(recur (D)
(for F (dir D)
(let S (car (info (pack D "/" F)))
(cond
((=T S) (recurse @@))
((> S 1000000) (prinl @@)) ]
./src/base.ll
-> NIL

#PicoLisp #lisp #REPL