/usr/share/picolisp/lib/app.l is in picolisp 17.12+20180218-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | # 24nov16abu
# (c) Software Lab. Alexander Burger
# Exit on error
(de *Err
~(as trail
(for (L (trail T) L)
(if (pair (car L))
(println (++ L))
(space 3)
(println (++ L) (++ L)) ) )
(println '=======) )
(prinl *Pid " ! " (stamp) " [" *Adr " " (host *Adr) "] " *Agent)
(show This)
(for "X" '(*Agent *Host *Port *Url *SesId *ConId *Tab *Gui *Btn *Get *ID)
(println "X" (val "X")) )
(println '*PRG *PRG (val *PRG))
(for "X" (env)
(unless (== (car "X") (cdr "X"))
(println (car "X") (cdr "X")) ) )
(rollback) )
# User identification
(de user (Pid1 Pid2 Nm To)
(nond
(Pid1 (tell 'user *Pid))
(Pid2
(tell 'user Pid1 *Pid (get *Login 'nm)
(/ (- *Timeout (cadr (assoc -1 *Run))) 60000) ) )
((<> *Pid Pid1) (println Pid2 Nm To)) ) )
# Timestamp
(msg *Pid " + " (stamp))
(flush)
# Extend 'app' function
(conc (last app)
'((msg *Pid " + " (stamp) " [" *Adr " " (host *Adr) (and *Cipher (pack " / " @)) "] " *Agent)) )
# Bye message
(push1 '*Bye '(and *SesId (msg *Pid " - " (stamp))))
|