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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
# 29aug23 Software Lab. Alexander Burger
(sysdefs "terminal")
(local) (ULINE U-OFF REVERS)
(de ULINE . "4")
(de U-OFF . "24")
(de REVERS . "7")
(local) (RED GREEN BROWN BLUE PURPLE CYAN YELLOW)
(de RED . "0;31")
(de GREEN . "0;32")
(de BROWN . "0;33")
(de BLUE . "0;34")
(de PURPLE . "0;35")
(de CYAN . "0;36")
(de YELLOW . "1;33")
(local) (*AttrA *AttrU)
(off *AttrA *AttrU)
(local) (*Lines *Columns xterm getTerm setTerm getSize)
(de xterm ()
(member (sys "TERM") '("xterm" "screen")) )
(de getTerm ()
(use Lst
(and
(=0
(%@ "ioctl" 'I 1 TIOCGWINSZ
'(Lst (`winsize W W W W)) ) )
Lst ) ) )
(de setTerm (Term Rows Cols DX DY)
(sys "TERM" Term)
(sys "LINES" Rows)
(sys "COLUMNS" Cols)
(%@ "ioctl" 'I 1 TIOCSWINSZ
(cons NIL (`winsize)
(cons Rows 2) # ws_row
(cons Cols 2) # ws_col
(cons DX 2) # ws_xpixel
(cons DY 2) ) ) # ws_ypixel
(%@ "rl_reset_terminal" 'I 0) )
(de getSize ()
(if (getTerm)
(setq *Lines (car @) *Columns (cadr @))
(quit "Can't get terminal size") ) )
(local) (attr cup clreol hideCsr showCsr screen1 screen2)
(de attr (A U)
(if2 (<> A *AttrA) (<> U *AttrU)
(prin "\e["
(or (setq *AttrA A) 0)
";"
(if (setq *AttrU U) ULINE U-OFF)
"m" )
(prin "\e[" (or (setq *AttrA A) 0) "m")
(prin "\e[" (if (setq *AttrU U) ULINE U-OFF) "m") ) )
(de cup (Y X)
(prin "\e[" Y ";" X "H") )
(de clreol ()
(prin "\e[0K") )
(de clear ()
(prin "\e[H\e[J") )
(de hideCsr ()
(prin "\e[?25l") )
(de showCsr ()
(prin "\e[?25h") )
(de screen1 ()
(if (xterm)
(prin "\e[?1049l")
(cup *Lines 1) )
(flush) )
(de screen2 ()
(and (xterm) (prin "\e[?1049h")) )
### Debug ###
`*Dbg
(noLint 'RED)
|
