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
42
43
44
45
46
47
|
# 13apr23 Software Lab. Alexander Burger
# Exit on error
(de *Err
(prinl *Pid " ! " (stamp) " [" *Adr " " (host *Adr) "] " *Agent)
(for ("L" (trail T) "L")
(cond
((pair (car "L"))
(let "E" (++ "L")
(println
(if (getd (box? (car "E")))
(cons @ (cdr "E"))
"E" ) ) ) )
((== '"L" (car "L"))
(setq "L" (cddr "L")) )
(T
(space 3)
(println (++ "L") (++ "L")) ) ) )
(println '====)
(show This)
(println '*Uri (pack *Uri))
(println '*Host (pack *Host))
(for "X" '(*Port *SesId *ConId *Tab *Gui *Btn *Get *ID)
(println "X" (val "X")) )
(println '*PRG *PRG (val *PRG))
(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
(push '*Fork
'(finish (and *SesId (msg *Pid " - " (stamp)))) )
|
