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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <chars.h>
# GTYGETS -- Get the string value of a capability. Process all termcap escapes.
# These are:
#
# \E ascii esc (escape)
# ^X control-X (i.e., ^C=03B, ^Z=032B, etc.)
# \[nrtbf] newline, return, tab, backspace, formfeed
# \ddd octal value of character
# \^ the character ^
# \\ the character \
#
# The character ':' may not be placed directly in a capability string; it
# should be given as \072 instead. The null character is represented as \200;
# all characters are masked to 7 bits upon output by TTYPUTS, hence \200
# is sent to the terminal as NUL.
int procedure gtygets (tty, cap, outstr, maxch)
pointer tty # tty descriptor
char cap[ARB] # two character capability name
char outstr[ARB] # receives cap string
int maxch # size of outstr
char ch
pointer ip
int op, junk, temp
int gty_find_capability(), cctoc()
begin
op = 1
if (gty_find_capability (tty, cap, ip) == YES) {
# Skip the '=' which follows the two character capability name.
if (Memc[ip] == '=')
ip = ip + 1
# Extract the string, processing all escapes.
for (ch=Memc[ip]; ch != ':'; ch=Memc[ip]) {
if (ch == '^') {
ip = ip + 1
temp = Memc[ip]
ch = mod (temp, 40B)
} else if (ch == '\\') {
switch (Memc[ip+1]) {
case 'E':
ip = ip + 1
ch = ESC
case '^', ':', '\\':
ip = ip + 1
ch = Memc[ip]
default:
junk = cctoc (Memc, ip, ch)
ip = ip - 1
}
}
outstr[op] = ch
op = op + 1
ip = ip + 1
if (op >= maxch)
break
}
}
outstr[op] = EOS
return (op-1)
end
|
