blob: 95384df3584af2eb33864142919ce55bd5f9d884 (
plain) (
blame)
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# TTYGETI -- Get an integer valued capability. If the capability is not
# found for the device, or cannot be interpreted as an integer, zero is
# returned. Integer capabilities have the format ":xx#dd:".
int procedure ttygeti (tty, cap)
pointer tty # tty descriptor
char cap[ARB] # two character capability name
int ival
pointer ip
int tty_find_capability(), ctoi()
begin
if (tty_find_capability (tty, cap, ip) == NO)
return (0)
else if (Memc[ip] != '#')
return (0)
else {
ip = ip + 1 # skip the '#'
if (ctoi (Memc, ip, ival) == 0)
return (0)
else
return (ival)
}
end
|
