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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include <ctype.h>
include <gki.h>
include "../lib/ids.h"
# IDS_INIT -- Initialize the ids data structures from the graphcap entry
# for the device. Called once, at OPENWS time, with the TTY pointer already
# set in the common.
procedure ids_init (tty, devname)
pointer tty # graphcap descriptor
char devname[ARB] # device name
pointer nextch
int maxch, i
real char_height, char_width, char_size
bool ttygetb()
real ttygetr()
int ttygeti(), btoi(), gstrcpy()
include "../lib/ids.com"
begin
# Allocate the ids descriptor and the string buffer.
if ( i_kt == NULL) {
call calloc (i_kt, LEN_IDS, TY_STRUCT)
call malloc (IDS_SBUF(i_kt), SZ_SBUF, TY_CHAR)
call malloc (IDS_BITPL(i_kt), IDS_MAXBITPL+1, TY_SHORT)
} else {
call mfree (IDS_FRAME(i_kt), TY_SHORT)
}
# Init string buffer parameters. The first char of the string buffer
# is reserved as a null string, used for graphcap control strings
# omitted from the graphcap entry for the device.
IDS_SZSBUF(i_kt) = SZ_SBUF
IDS_NEXTCH(i_kt) = IDS_SBUF(i_kt) + 1
Memc[IDS_SBUF(i_kt)] = EOS
# get the device resolution from the graphcap entry.
i_xres = ttygeti (tty, "xr")
if (i_xres <= 0)
i_xres = 512
i_yres = ttygeti (tty, "yr")
if (i_yres <= 0)
i_yres = 512
# Initialize the character scaling parameters, required for text
# generation. The heights are given in NDC units in the graphcap
# file, which we convert to GKI units. Estimated values are
# supplied if the parameters are missing in the graphcap entry.
char_height = ttygetr (tty, "ch")
if (char_height < EPSILON)
char_height = 1.0 / 35.0
char_height = char_height * GKI_MAXNDC
char_width = ttygetr (tty, "cw")
if (char_width < EPSILON)
char_width = 1.0 / 80.0
char_width = char_width * GKI_MAXNDC
# If the device has a set of discreet character sizes, get the
# size of each by fetching the parameter "tN", where the N is
# a digit specifying the text size index. Compute the height and
# width of each size character from the "ch" and "cw" parameters
# and the relative scale of character size I.
IDS_NCHARSIZES(i_kt) = min (MAX_CHARSIZES, ttygeti (tty, "th"))
nextch = IDS_NEXTCH(i_kt)
if (IDS_NCHARSIZES(i_kt) <= 0) {
IDS_NCHARSIZES(i_kt) = 1
IDS_CHARSIZE(i_kt,1) = 1.0
IDS_CHARHEIGHT(i_kt,1) = char_height
IDS_CHARWIDTH(i_kt,1) = char_width
} else {
Memc[nextch+2] = EOS
for (i=1; i <= IDS_NCHARSIZES(i_kt); i=i+1) {
Memc[nextch] = 't'
Memc[nextch+1] = TO_DIGIT(i)
char_size = ttygetr (tty, Memc[nextch])
IDS_CHARSIZE(i_kt,i) = char_size
IDS_CHARHEIGHT(i_kt,i) = char_height * char_size
IDS_CHARWIDTH(i_kt,i) = char_width * char_size
}
}
# Initialize the output parameters. All boolean parameters are stored
# as integer flags. All string valued parameters are stored in the
# string buffer, saving a pointer to the string in the ids
# descriptor. If the capability does not exist the pointer is set to
# point to the null string at the beginning of the string buffer.
IDS_POLYLINE(i_kt) = btoi (ttygetb (tty, "pl"))
IDS_POLYMARKER(i_kt) = btoi (ttygetb (tty, "pm"))
IDS_FILLAREA(i_kt) = btoi (ttygetb (tty, "fa"))
IDS_FILLSTYLE(i_kt) = ttygeti (tty, "fs")
IDS_ROAM(i_kt) = btoi (ttygetb (tty, "ro"))
IDS_CANZM(i_kt) = btoi (ttygetb (tty, "zo"))
IDS_ZRES(i_kt) = ttygeti (tty, "zr")
IDS_CELLARRAY(i_kt) = btoi (ttygetb (tty, "ca"))
IDS_SELERASE(i_kt) = btoi (ttygetb (tty, "se"))
# how many image frames and graph (bit)planes do we get to play with?
i_maxframes = ttygeti(tty, "ip")
if ( i_maxframes < 1 )
i_maxframes = 1
i_maxgraph = ttygeti(tty, "gp")
i_maxframes = min(int(i_maxframes), IDS_MAXIMPL)
i_maxgraph = min(int(i_maxgraph), IDS_MAXGRPL)
# allocate space for the frame descriptors
# the "2" accounts for possible graphics channel ( see ids_expand.x)
# and the trailing IDS_EOD
call malloc (IDS_FRAME(i_kt), max(i_maxframes,i_maxgraph)+2, TY_SHORT)
# Initialize the input parameters: last cursor used.
IDS_LCURSOR(i_kt) = 1
# Save the device string in the descriptor.
nextch = IDS_NEXTCH(i_kt)
IDS_DEVNAME(i_kt) = nextch
maxch = IDS_SBUF(i_kt) + SZ_SBUF - nextch + 1
nextch = nextch + gstrcpy (devname, Memc[nextch], maxch) + 1
IDS_NEXTCH(i_kt) = nextch
end
# IDS_GSTRING -- Get a string value parameter from the graphcap table,
# placing the string at the end of the string buffer. If the device does
# not have the named capability return a pointer to the null string,
# otherwise return a pointer to the string. Since pointers are used,
# rather than indices, the string buffer is fixed in size. The additional
# degree of indirection required with an index was not considered worthwhile
# in this application since the graphcap entries are never very large.
pointer procedure ids_gstring (cap)
char cap[ARB] # device capability to be fetched
pointer strp, nextch
int maxch, nchars
int ttygets()
include "../lib/ids.com"
begin
nextch = IDS_NEXTCH(i_kt)
maxch = IDS_SBUF(i_kt) + SZ_SBUF - nextch + 1
nchars = ttygets (i_tty, cap, Memc[nextch], maxch)
if (nchars > 0) {
strp = nextch
nextch = nextch + nchars + 1
} else
strp = IDS_SBUF(i_kt)
IDS_NEXTCH(i_kt) = nextch
return (strp)
end
|
