-
Notifications
You must be signed in to change notification settings - Fork 0
/
SCLB.IC
125 lines (113 loc) · 4.04 KB
/
SCLB.IC
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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
# sclb.ic - internal include file for the screen package (src/sclb).
#nolist
# modification history
# ------------ -------
# V03F 28sep82 TH Added seqgraphics, satgraphics
# V03E 30jul82 TH Added inbuf, inbufp
# V03D 24jul82 TH Added seqinit
# V03C 16jul82 TH Added attg, attstrat, attgclear, attset
# Added internal values scnotilde, scvisdel, scbs,
# and scnoautonl.
# Removed seqdepill and seqenpill
# Removed pillmode
# V03B 13jul82 TH Updated to correspond to new incl/sclb.c
# Added curatt and desatt
# V03A 14apr82 JP Changed seqs array into separate strings for each
# function.
# V02B 28mar82 JP Added pillmode.
# V02A 08dec80 JP
# attributes
logical curatt ( MAX_ATTRIBUTES ) # current attributes
logical desatt ( MAX_ATTRIBUTES ) # desired attributes
integer attg ( MAX_ATTRIBUTES ) # attribute groups
integer attstrat ( MAX_ATTRIBUTES ) # strategy for attribute n
integer attgclear ( MAX_ATTRIBUTES )# sequence to clear attribute group
integer attset ( MAX_ATTRIBUTES ) # sequence to set attribute
logical scnotilde # no printable tilde
logical scvisdel # delete is visible
logical scbs # has back space (^H)
logical scnoautonl # if noautonl set, dosn't advance at
# end of line
# control sequences
character seqatt ( MAXSEQLEN, MAX_ATTRIBUTE_SEQUENCES )
# sequences to change attributes
character seqbeep ( MAXSEQLEN ) # ring bell
character seqbol ( MAXSEQLEN ) # go to beginning of line
character seqcel ( MAXSEQLEN ) # clear to end of line
character seqchscroll ( MAXSEQLEN ) # change scrolling region
character seqclear ( MAXSEQLEN ) # clear screen and home
# character seqdepill ( MAXSEQLEN ) # exit pillow mode (soon obsolete)
character seqdlc ( MAXSEQLEN ) # delete character
character seqdll ( MAXSEQLEN ) # delete line
character seqdown ( MAXSEQLEN ) # cursor down
# character seqenpill ( MAXSEQLEN ) # enter pillow mode (soon obsolete)
logical satgraphics ( MAX_ATTRIBUTES, NUMBER_GRAPHICS_CHARS )
character seqgraphics ( MAXSEQLEN, NUMBER_GRAPHICS_CHARS )
# how to form special graphics chars
character seqhome ( MAXSEQLEN ) # home cursor
character seqiim ( MAXSEQLEN ) # go in insert mode
character seqikey ( MAXSEQLEN ) # go in keypad mode
character seqinc ( MAXSEQLEN ) # insert character
character seqinit ( MAXLINE ) # terminal initialization sequence
character seqinl ( MAXSEQLEN ) # insert line
character seqkey ( MAXSEQLEN, MAX_KEYPAD_KEYS )
# what keypad sends in keypad mode
character seqleft ( MAXSEQLEN ) # cursor left
character seqmove ( MAXSEQLEN ) # absolute cursor address
character seqoim ( MAXSEQLEN ) # go out of insert mode
character seqokey ( MAXSEQLEN ) # go out of keypad mode
character seqpillow ( MAXSEQLEN ) # pillow sequence
character seqright ( MAXSEQLEN ) # cursor right
character seqsdown ( MAXSEQLEN ) # scroll down
character seqsup ( MAXSEQLEN ) # scroll up
character seqtab ( MAXSEQLEN ) # tab
character sequp ( MAXSEQLEN ) # cursor up
# push back stack
integer inbufp # number of characters in inbuf
character inbuf ( MAXSEQLEN ) # characters pushed back
# debug
logical debug # debug mode? if so don't abort
common /sclbi/ curatt,
desatt,
attg,
attstrat,
attgclear,
attset,
scnotilde,
scvisdel,
scbs,
scnoautonl,
seqatt,
seqbeep,
seqbol,
seqcel,
seqchscroll,
seqclear,
# seqdepill,
seqdlc,
seqdll,
seqdown,
# seqenpill,
satgraphics,
seqgraphics,
seqhome,
seqiim,
seqikey,
seqinc,
seqinit,
seqinl,
seqkey,
seqleft,
seqmove,
seqoim,
seqokey,
seqpillow,
seqright,
seqsdown,
seqsup,
seqtab,
sequp,
inbufp,
inbuf,
debug
#list