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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include <ctype.h>
include <gki.h>
include "imd.h"
# IMD_INIT -- Initialize the gkt data structures from the graphcap entry
# for the device. Called once, at OPENWS time, with the TTY pointer already
# set in the common. The companion routine IMD_RESET initializes the attribute
# packets when the frame is flushed.
procedure imd_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 "imd.com"
begin
# Allocate the gkt descriptor and the string buffer.
if (g_kt == NULL) {
call calloc (g_kt, LEN_IMD, TY_STRUCT)
call malloc (IMD_SBUF(g_kt), SZ_SBUF, TY_CHAR)
}
# Get the maximum frame count and the flags controlling frame advance
# at start and end of metafile.
g_maxframes = ttygeti (tty, "MF")
if (g_maxframes == 0)
g_maxframes = DEF_MAXFRAMES
IMD_STARTFRAME(g_kt) = btoi (ttygetb (tty, "FS"))
IMD_ENDFRAME(g_kt) = btoi (ttygetb (tty, "FE"))
# 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.
IMD_SZSBUF(g_kt) = SZ_SBUF
IMD_NEXTCH(g_kt) = IMD_SBUF(g_kt) + 1
Memc[IMD_SBUF(g_kt)] = EOS
# Get the device resolution from the graphcap entry.
g_xres = ttygeti (tty, "xr")
if (g_xres <= 0)
g_xres = 1024
g_yres = ttygeti (tty, "yr")
if (g_yres <= 0)
g_yres = 1024
# 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.
IMD_NCHARSIZES(g_kt) = min (MAX_CHARSIZES, ttygeti (tty, "th"))
nextch = IMD_NEXTCH(g_kt)
if (IMD_NCHARSIZES(g_kt) <= 0) {
IMD_NCHARSIZES(g_kt) = 1
IMD_CHARSIZE(g_kt,1) = 1.0
IMD_CHARHEIGHT(g_kt,1) = char_height
IMD_CHARWIDTH(g_kt,1) = char_width
} else {
Memc[nextch+2] = EOS
for (i=1; i <= IMD_NCHARSIZES(g_kt); i=i+1) {
Memc[nextch] = 't'
Memc[nextch+1] = TO_DIGIT(i)
char_size = ttygetr (tty, Memc[nextch])
IMD_CHARSIZE(g_kt,i) = char_size
IMD_CHARHEIGHT(g_kt,i) = char_height * char_size
IMD_CHARWIDTH(g_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 gkt
# descriptor. If the capability does not exist the pointer is set to
# point to the null string at the beginning of the string buffer.
IMD_POLYLINE(g_kt) = btoi (ttygetb (tty, "pl"))
IMD_POLYMARKER(g_kt) = btoi (ttygetb (tty, "pm"))
IMD_FILLAREA(g_kt) = btoi (ttygetb (tty, "fa"))
IMD_FILLSTYLE(g_kt) = ttygeti (tty, "fs")
IMD_ROAM(g_kt) = btoi (ttygetb (tty, "ro"))
IMD_ZOOM(g_kt) = btoi (ttygetb (tty, "zo"))
IMD_XRES(g_kt) = ttygeti (tty, "xr")
IMD_YRES(g_kt) = ttygeti (tty, "yr")
IMD_ZRES(g_kt) = ttygeti (tty, "zr")
IMD_CELLARRAY(g_kt) = btoi (ttygetb (tty, "ca"))
IMD_SELERASE(g_kt) = btoi (ttygetb (tty, "se"))
IMD_PIXREP(g_kt) = btoi (ttygetb (tty, "pr"))
# Initialize the input parameters.
IMD_CURSOR(g_kt) = 1
# Save the device string in the descriptor.
nextch = IMD_NEXTCH(g_kt)
IMD_DEVNAME(g_kt) = nextch
maxch = IMD_SBUF(g_kt) + SZ_SBUF - nextch + 1
nextch = nextch + gstrcpy (devname, Memc[nextch], maxch) + 1
IMD_NEXTCH(g_kt) = nextch
end
# IMD_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 imd_gstring (cap)
char cap[ARB] # device capability to be fetched
pointer strp, nextch
int maxch, nchars
int ttygets()
include "imd.com"
begin
nextch = IMD_NEXTCH(g_kt)
maxch = IMD_SBUF(g_kt) + SZ_SBUF - nextch + 1
nchars = ttygets (g_tty, cap, Memc[nextch], maxch)
if (nchars > 0) {
strp = nextch
nextch = nextch + nchars + 1
} else
strp = IMD_SBUF(g_kt)
IMD_NEXTCH(g_kt) = nextch
return (strp)
end
|
