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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# TTYLOAD -- Search the database of compiled TERMCAP entries for the named
# device, and if found, return the CAPLIST string (list of device capabilities)
# in the output string. The number of characters output is returned as the
# function value. The compiled database is defined by the include file
# "cachet.dat", which serves as a cache for the TERMCAP entries of heavily
# used devices (see TTYCOMPILE).
#
# N.B.: This file can serve as a template for generating TTYLOAD procedures
# for devices other than the terminal. Change the name TTYLOAD to something
# else, change the name of the include file, generate a different include file
# with TTYCOMPILE, and you are in business.
int procedure ttyload (fname, device, outstr, maxch)
char fname[ARB] # name of termcap file being referenced
char device[ARB] # device name as in TERMCAP entry
char outstr[maxch] # output string to receive caplist
int maxch
int dev
bool streq(), strne()
int gstrcpy()
include "dev$cachet.dat"
begin
# If the name of the file being referenced is not the same as the
# name of the file used to build the cache, then the cache is
# invalidated.
if (strne (fname, sbuf[termcap_filename]))
return (0)
# NDEVICES, DEVNAME, DEVCAPS, and SBUF are defined and initialized
# in the include file.
do dev = 1, ndevices
if (streq (sbuf[devname[dev]], device))
return (gstrcpy (sbuf[devcaps[dev]], outstr, maxch))
return (0)
end
|
