Blame


1 a59ea66f 2003-09-30 devnull sizeof_1_ = 8;
2 a59ea66f 2003-09-30 devnull aggr _1_
3 a59ea66f 2003-09-30 devnull {
4 a59ea66f 2003-09-30 devnull 'D' 0 hlength;
5 a59ea66f 2003-09-30 devnull 'D' 4 llength;
6 a59ea66f 2003-09-30 devnull };
7 a59ea66f 2003-09-30 devnull
8 a59ea66f 2003-09-30 devnull defn
9 a59ea66f 2003-09-30 devnull _1_(addr) {
10 a59ea66f 2003-09-30 devnull complex _1_ addr;
11 a59ea66f 2003-09-30 devnull print(" hlength ", addr.hlength, "\n");
12 a59ea66f 2003-09-30 devnull print(" llength ", addr.llength, "\n");
13 a59ea66f 2003-09-30 devnull };
14 a59ea66f 2003-09-30 devnull
15 a59ea66f 2003-09-30 devnull sizeof_2_ = 8;
16 a59ea66f 2003-09-30 devnull aggr _2_
17 a59ea66f 2003-09-30 devnull {
18 a59ea66f 2003-09-30 devnull 'V' 0 length;
19 a59ea66f 2003-09-30 devnull {
20 a59ea66f 2003-09-30 devnull 'D' 0 hlength;
21 a59ea66f 2003-09-30 devnull 'D' 4 llength;
22 a59ea66f 2003-09-30 devnull };
23 a59ea66f 2003-09-30 devnull };
24 a59ea66f 2003-09-30 devnull
25 a59ea66f 2003-09-30 devnull defn
26 a59ea66f 2003-09-30 devnull _2_(addr) {
27 a59ea66f 2003-09-30 devnull complex _2_ addr;
28 a59ea66f 2003-09-30 devnull print(" length ", addr.length, "\n");
29 a59ea66f 2003-09-30 devnull print("_1_ {\n");
30 a59ea66f 2003-09-30 devnull _1_(addr+0);
31 a59ea66f 2003-09-30 devnull print("}\n");
32 a59ea66f 2003-09-30 devnull };
33 a59ea66f 2003-09-30 devnull
34 a59ea66f 2003-09-30 devnull UTFmax = 3;
35 a59ea66f 2003-09-30 devnull Runesync = 128;
36 a59ea66f 2003-09-30 devnull Runeself = 128;
37 a59ea66f 2003-09-30 devnull Runeerror = 128;
38 a59ea66f 2003-09-30 devnull sizeofFconv = 24;
39 a59ea66f 2003-09-30 devnull aggr Fconv
40 a59ea66f 2003-09-30 devnull {
41 a59ea66f 2003-09-30 devnull 'X' 0 out;
42 a59ea66f 2003-09-30 devnull 'X' 4 eout;
43 a59ea66f 2003-09-30 devnull 'D' 8 f1;
44 a59ea66f 2003-09-30 devnull 'D' 12 f2;
45 a59ea66f 2003-09-30 devnull 'D' 16 f3;
46 a59ea66f 2003-09-30 devnull 'D' 20 chr;
47 a59ea66f 2003-09-30 devnull };
48 a59ea66f 2003-09-30 devnull
49 a59ea66f 2003-09-30 devnull defn
50 a59ea66f 2003-09-30 devnull Fconv(addr) {
51 a59ea66f 2003-09-30 devnull complex Fconv addr;
52 a59ea66f 2003-09-30 devnull print(" out ", addr.out\X, "\n");
53 a59ea66f 2003-09-30 devnull print(" eout ", addr.eout\X, "\n");
54 a59ea66f 2003-09-30 devnull print(" f1 ", addr.f1, "\n");
55 a59ea66f 2003-09-30 devnull print(" f2 ", addr.f2, "\n");
56 a59ea66f 2003-09-30 devnull print(" f3 ", addr.f3, "\n");
57 a59ea66f 2003-09-30 devnull print(" chr ", addr.chr, "\n");
58 a59ea66f 2003-09-30 devnull };
59 a59ea66f 2003-09-30 devnull
60 a59ea66f 2003-09-30 devnull sizeofTm = 40;
61 a59ea66f 2003-09-30 devnull aggr Tm
62 a59ea66f 2003-09-30 devnull {
63 a59ea66f 2003-09-30 devnull 'D' 0 sec;
64 a59ea66f 2003-09-30 devnull 'D' 4 min;
65 a59ea66f 2003-09-30 devnull 'D' 8 hour;
66 a59ea66f 2003-09-30 devnull 'D' 12 mday;
67 a59ea66f 2003-09-30 devnull 'D' 16 mon;
68 a59ea66f 2003-09-30 devnull 'D' 20 year;
69 a59ea66f 2003-09-30 devnull 'D' 24 wday;
70 a59ea66f 2003-09-30 devnull 'D' 28 yday;
71 a59ea66f 2003-09-30 devnull 'a' 32 zone;
72 a59ea66f 2003-09-30 devnull 'D' 36 tzoff;
73 a59ea66f 2003-09-30 devnull };
74 a59ea66f 2003-09-30 devnull
75 a59ea66f 2003-09-30 devnull defn
76 a59ea66f 2003-09-30 devnull Tm(addr) {
77 a59ea66f 2003-09-30 devnull complex Tm addr;
78 a59ea66f 2003-09-30 devnull print(" sec ", addr.sec, "\n");
79 a59ea66f 2003-09-30 devnull print(" min ", addr.min, "\n");
80 a59ea66f 2003-09-30 devnull print(" hour ", addr.hour, "\n");
81 a59ea66f 2003-09-30 devnull print(" mday ", addr.mday, "\n");
82 a59ea66f 2003-09-30 devnull print(" mon ", addr.mon, "\n");
83 a59ea66f 2003-09-30 devnull print(" year ", addr.year, "\n");
84 a59ea66f 2003-09-30 devnull print(" wday ", addr.wday, "\n");
85 a59ea66f 2003-09-30 devnull print(" yday ", addr.yday, "\n");
86 a59ea66f 2003-09-30 devnull print(" zone ", addr.zone, "\n");
87 a59ea66f 2003-09-30 devnull print(" tzoff ", addr.tzoff, "\n");
88 a59ea66f 2003-09-30 devnull };
89 a59ea66f 2003-09-30 devnull
90 a59ea66f 2003-09-30 devnull PNPROC = 1;
91 a59ea66f 2003-09-30 devnull PNGROUP = 2;
92 a59ea66f 2003-09-30 devnull sizeofLock = 4;
93 a59ea66f 2003-09-30 devnull aggr Lock
94 a59ea66f 2003-09-30 devnull {
95 a59ea66f 2003-09-30 devnull 'D' 0 val;
96 a59ea66f 2003-09-30 devnull };
97 a59ea66f 2003-09-30 devnull
98 a59ea66f 2003-09-30 devnull defn
99 a59ea66f 2003-09-30 devnull Lock(addr) {
100 a59ea66f 2003-09-30 devnull complex Lock addr;
101 a59ea66f 2003-09-30 devnull print(" val ", addr.val, "\n");
102 a59ea66f 2003-09-30 devnull };
103 a59ea66f 2003-09-30 devnull
104 a59ea66f 2003-09-30 devnull sizeofQLp = 12;
105 a59ea66f 2003-09-30 devnull aggr QLp
106 a59ea66f 2003-09-30 devnull {
107 a59ea66f 2003-09-30 devnull 'D' 0 inuse;
108 a59ea66f 2003-09-30 devnull 'A' QLp 4 next;
109 a59ea66f 2003-09-30 devnull 'C' 8 state;
110 a59ea66f 2003-09-30 devnull };
111 a59ea66f 2003-09-30 devnull
112 a59ea66f 2003-09-30 devnull defn
113 a59ea66f 2003-09-30 devnull QLp(addr) {
114 a59ea66f 2003-09-30 devnull complex QLp addr;
115 a59ea66f 2003-09-30 devnull print(" inuse ", addr.inuse, "\n");
116 a59ea66f 2003-09-30 devnull print(" next ", addr.next\X, "\n");
117 a59ea66f 2003-09-30 devnull print(" state ", addr.state, "\n");
118 a59ea66f 2003-09-30 devnull };
119 a59ea66f 2003-09-30 devnull
120 a59ea66f 2003-09-30 devnull sizeofQLock = 16;
121 a59ea66f 2003-09-30 devnull aggr QLock
122 a59ea66f 2003-09-30 devnull {
123 a59ea66f 2003-09-30 devnull Lock 0 lock;
124 a59ea66f 2003-09-30 devnull 'D' 4 locked;
125 a59ea66f 2003-09-30 devnull 'A' QLp 8 $head;
126 a59ea66f 2003-09-30 devnull 'A' QLp 12 $tail;
127 a59ea66f 2003-09-30 devnull };
128 a59ea66f 2003-09-30 devnull
129 a59ea66f 2003-09-30 devnull defn
130 a59ea66f 2003-09-30 devnull QLock(addr) {
131 a59ea66f 2003-09-30 devnull complex QLock addr;
132 a59ea66f 2003-09-30 devnull print("Lock lock {\n");
133 a59ea66f 2003-09-30 devnull Lock(addr.lock);
134 a59ea66f 2003-09-30 devnull print("}\n");
135 a59ea66f 2003-09-30 devnull print(" locked ", addr.locked, "\n");
136 a59ea66f 2003-09-30 devnull print(" $head ", addr.$head\X, "\n");
137 a59ea66f 2003-09-30 devnull print(" $tail ", addr.$tail\X, "\n");
138 a59ea66f 2003-09-30 devnull };
139 a59ea66f 2003-09-30 devnull
140 a59ea66f 2003-09-30 devnull sizeofRWLock = 20;
141 a59ea66f 2003-09-30 devnull aggr RWLock
142 a59ea66f 2003-09-30 devnull {
143 a59ea66f 2003-09-30 devnull Lock 0 lock;
144 a59ea66f 2003-09-30 devnull 'D' 4 readers;
145 a59ea66f 2003-09-30 devnull 'D' 8 writer;
146 a59ea66f 2003-09-30 devnull 'A' QLp 12 $head;
147 a59ea66f 2003-09-30 devnull 'A' QLp 16 $tail;
148 a59ea66f 2003-09-30 devnull };
149 a59ea66f 2003-09-30 devnull
150 a59ea66f 2003-09-30 devnull defn
151 a59ea66f 2003-09-30 devnull RWLock(addr) {
152 a59ea66f 2003-09-30 devnull complex RWLock addr;
153 a59ea66f 2003-09-30 devnull print("Lock lock {\n");
154 a59ea66f 2003-09-30 devnull Lock(addr.lock);
155 a59ea66f 2003-09-30 devnull print("}\n");
156 a59ea66f 2003-09-30 devnull print(" readers ", addr.readers, "\n");
157 a59ea66f 2003-09-30 devnull print(" writer ", addr.writer, "\n");
158 a59ea66f 2003-09-30 devnull print(" $head ", addr.$head\X, "\n");
159 a59ea66f 2003-09-30 devnull print(" $tail ", addr.$tail\X, "\n");
160 a59ea66f 2003-09-30 devnull };
161 a59ea66f 2003-09-30 devnull
162 a59ea66f 2003-09-30 devnull RFNAMEG = 1;
163 a59ea66f 2003-09-30 devnull RFENVG = 2;
164 a59ea66f 2003-09-30 devnull RFFDG = 4;
165 a59ea66f 2003-09-30 devnull RFNOTEG = 8;
166 a59ea66f 2003-09-30 devnull RFPROC = 16;
167 a59ea66f 2003-09-30 devnull RFMEM = 32;
168 a59ea66f 2003-09-30 devnull RFNOWAIT = 64;
169 a59ea66f 2003-09-30 devnull RFCNAMEG = 1024;
170 a59ea66f 2003-09-30 devnull RFCENVG = 2048;
171 a59ea66f 2003-09-30 devnull RFCFDG = 4096;
172 a59ea66f 2003-09-30 devnull RFREND = 8192;
173 a59ea66f 2003-09-30 devnull sizeofQid = 8;
174 a59ea66f 2003-09-30 devnull aggr Qid
175 a59ea66f 2003-09-30 devnull {
176 a59ea66f 2003-09-30 devnull 'U' 0 path;
177 a59ea66f 2003-09-30 devnull 'U' 4 vers;
178 a59ea66f 2003-09-30 devnull };
179 a59ea66f 2003-09-30 devnull
180 a59ea66f 2003-09-30 devnull defn
181 a59ea66f 2003-09-30 devnull Qid(addr) {
182 a59ea66f 2003-09-30 devnull complex Qid addr;
183 a59ea66f 2003-09-30 devnull print(" path ", addr.path, "\n");
184 a59ea66f 2003-09-30 devnull print(" vers ", addr.vers, "\n");
185 a59ea66f 2003-09-30 devnull };
186 a59ea66f 2003-09-30 devnull
187 a59ea66f 2003-09-30 devnull sizeofDir = 116;
188 a59ea66f 2003-09-30 devnull aggr Dir
189 a59ea66f 2003-09-30 devnull {
190 a59ea66f 2003-09-30 devnull 'a' 0 name;
191 a59ea66f 2003-09-30 devnull 'a' 28 uid;
192 a59ea66f 2003-09-30 devnull 'a' 56 gid;
193 a59ea66f 2003-09-30 devnull Qid 84 qid;
194 a59ea66f 2003-09-30 devnull 'U' 92 mode;
195 a59ea66f 2003-09-30 devnull 'D' 96 atime;
196 a59ea66f 2003-09-30 devnull 'D' 100 mtime;
197 a59ea66f 2003-09-30 devnull {
198 a59ea66f 2003-09-30 devnull 'V' 104 length;
199 a59ea66f 2003-09-30 devnull {
200 a59ea66f 2003-09-30 devnull 'D' 104 hlength;
201 a59ea66f 2003-09-30 devnull 'D' 108 llength;
202 a59ea66f 2003-09-30 devnull };
203 a59ea66f 2003-09-30 devnull };
204 a59ea66f 2003-09-30 devnull 'u' 112 type;
205 a59ea66f 2003-09-30 devnull 'u' 114 dev;
206 a59ea66f 2003-09-30 devnull };
207 a59ea66f 2003-09-30 devnull
208 a59ea66f 2003-09-30 devnull defn
209 a59ea66f 2003-09-30 devnull Dir(addr) {
210 a59ea66f 2003-09-30 devnull complex Dir addr;
211 a59ea66f 2003-09-30 devnull print(" name ", addr.name, "\n");
212 a59ea66f 2003-09-30 devnull print(" uid ", addr.uid, "\n");
213 a59ea66f 2003-09-30 devnull print(" gid ", addr.gid, "\n");
214 a59ea66f 2003-09-30 devnull print("Qid qid {\n");
215 a59ea66f 2003-09-30 devnull Qid(addr.qid);
216 a59ea66f 2003-09-30 devnull print("}\n");
217 a59ea66f 2003-09-30 devnull print(" mode ", addr.mode, "\n");
218 a59ea66f 2003-09-30 devnull print(" atime ", addr.atime, "\n");
219 a59ea66f 2003-09-30 devnull print(" mtime ", addr.mtime, "\n");
220 a59ea66f 2003-09-30 devnull print("_2_ {\n");
221 a59ea66f 2003-09-30 devnull _2_(addr+104);
222 a59ea66f 2003-09-30 devnull print("}\n");
223 a59ea66f 2003-09-30 devnull print(" type ", addr.type, "\n");
224 a59ea66f 2003-09-30 devnull print(" dev ", addr.dev, "\n");
225 a59ea66f 2003-09-30 devnull };
226 a59ea66f 2003-09-30 devnull
227 a59ea66f 2003-09-30 devnull sizeofWaitmsg = 112;
228 a59ea66f 2003-09-30 devnull aggr Waitmsg
229 a59ea66f 2003-09-30 devnull {
230 a59ea66f 2003-09-30 devnull 'a' 0 pid;
231 a59ea66f 2003-09-30 devnull 'a' 12 time;
232 a59ea66f 2003-09-30 devnull 'a' 48 msg;
233 a59ea66f 2003-09-30 devnull };
234 a59ea66f 2003-09-30 devnull
235 a59ea66f 2003-09-30 devnull defn
236 a59ea66f 2003-09-30 devnull Waitmsg(addr) {
237 a59ea66f 2003-09-30 devnull complex Waitmsg addr;
238 a59ea66f 2003-09-30 devnull print(" pid ", addr.pid, "\n");
239 a59ea66f 2003-09-30 devnull print(" time ", addr.time, "\n");
240 a59ea66f 2003-09-30 devnull print(" msg ", addr.msg, "\n");
241 a59ea66f 2003-09-30 devnull };
242 a59ea66f 2003-09-30 devnull
243 a59ea66f 2003-09-30 devnull DBlack = 255;
244 a59ea66f 2003-09-30 devnull DBlue = 201;
245 a59ea66f 2003-09-30 devnull DRed = 15;
246 a59ea66f 2003-09-30 devnull DYellow = 3;
247 a59ea66f 2003-09-30 devnull DGreen = 192;
248 a59ea66f 2003-09-30 devnull DWhite = 0;
249 a59ea66f 2003-09-30 devnull Displaybufsize = 8000;
250 a59ea66f 2003-09-30 devnull ICOSSCALE = 1024;
251 a59ea66f 2003-09-30 devnull Borderwidth = 4;
252 a59ea66f 2003-09-30 devnull Refbackup = 0;
253 a59ea66f 2003-09-30 devnull Refnone = 1;
254 a59ea66f 2003-09-30 devnull Refmesg = 2;
255 a59ea66f 2003-09-30 devnull Endsquare = 0;
256 a59ea66f 2003-09-30 devnull Enddisc = 1;
257 a59ea66f 2003-09-30 devnull Endarrow = 2;
258 a59ea66f 2003-09-30 devnull Endmask = 31;
259 a59ea66f 2003-09-30 devnull sizeofPoint = 8;
260 a59ea66f 2003-09-30 devnull aggr Point
261 a59ea66f 2003-09-30 devnull {
262 a59ea66f 2003-09-30 devnull 'D' 0 x;
263 a59ea66f 2003-09-30 devnull 'D' 4 y;
264 a59ea66f 2003-09-30 devnull };
265 a59ea66f 2003-09-30 devnull
266 a59ea66f 2003-09-30 devnull defn
267 a59ea66f 2003-09-30 devnull Point(addr) {
268 a59ea66f 2003-09-30 devnull complex Point addr;
269 a59ea66f 2003-09-30 devnull print(" x ", addr.x, "\n");
270 a59ea66f 2003-09-30 devnull print(" y ", addr.y, "\n");
271 a59ea66f 2003-09-30 devnull };
272 a59ea66f 2003-09-30 devnull
273 a59ea66f 2003-09-30 devnull sizeofRectangle = 16;
274 a59ea66f 2003-09-30 devnull aggr Rectangle
275 a59ea66f 2003-09-30 devnull {
276 a59ea66f 2003-09-30 devnull Point 0 min;
277 a59ea66f 2003-09-30 devnull Point 8 max;
278 a59ea66f 2003-09-30 devnull };
279 a59ea66f 2003-09-30 devnull
280 a59ea66f 2003-09-30 devnull defn
281 a59ea66f 2003-09-30 devnull Rectangle(addr) {
282 a59ea66f 2003-09-30 devnull complex Rectangle addr;
283 a59ea66f 2003-09-30 devnull print("Point min {\n");
284 a59ea66f 2003-09-30 devnull Point(addr.min);
285 a59ea66f 2003-09-30 devnull print("}\n");
286 a59ea66f 2003-09-30 devnull print("Point max {\n");
287 a59ea66f 2003-09-30 devnull Point(addr.max);
288 a59ea66f 2003-09-30 devnull print("}\n");
289 a59ea66f 2003-09-30 devnull };
290 a59ea66f 2003-09-30 devnull
291 a59ea66f 2003-09-30 devnull sizeofScreen = 16;
292 a59ea66f 2003-09-30 devnull aggr Screen
293 a59ea66f 2003-09-30 devnull {
294 a59ea66f 2003-09-30 devnull 'X' 0 display;
295 a59ea66f 2003-09-30 devnull 'D' 4 id;
296 a59ea66f 2003-09-30 devnull 'X' 8 image;
297 a59ea66f 2003-09-30 devnull 'X' 12 fill;
298 a59ea66f 2003-09-30 devnull };
299 a59ea66f 2003-09-30 devnull
300 a59ea66f 2003-09-30 devnull defn
301 a59ea66f 2003-09-30 devnull Screen(addr) {
302 a59ea66f 2003-09-30 devnull complex Screen addr;
303 a59ea66f 2003-09-30 devnull print(" display ", addr.display\X, "\n");
304 a59ea66f 2003-09-30 devnull print(" id ", addr.id, "\n");
305 a59ea66f 2003-09-30 devnull print(" image ", addr.image\X, "\n");
306 a59ea66f 2003-09-30 devnull print(" fill ", addr.fill\X, "\n");
307 a59ea66f 2003-09-30 devnull };
308 a59ea66f 2003-09-30 devnull
309 a59ea66f 2003-09-30 devnull sizeofDisplay = 8156;
310 a59ea66f 2003-09-30 devnull aggr Display
311 a59ea66f 2003-09-30 devnull {
312 a59ea66f 2003-09-30 devnull QLock 0 qlock;
313 a59ea66f 2003-09-30 devnull 'D' 16 dirno;
314 a59ea66f 2003-09-30 devnull 'D' 20 fd;
315 a59ea66f 2003-09-30 devnull 'D' 24 reffd;
316 a59ea66f 2003-09-30 devnull 'D' 28 ctlfd;
317 a59ea66f 2003-09-30 devnull 'D' 32 imageid;
318 a59ea66f 2003-09-30 devnull 'D' 36 $local;
319 a59ea66f 2003-09-30 devnull 'D' 40 ldepth;
320 a59ea66f 2003-09-30 devnull 'X' 44 error;
321 a59ea66f 2003-09-30 devnull 'X' 48 devdir;
322 a59ea66f 2003-09-30 devnull 'X' 52 windir;
323 a59ea66f 2003-09-30 devnull 'a' 56 oldlabel;
324 a59ea66f 2003-09-30 devnull 'U' 120 dataqid;
325 a59ea66f 2003-09-30 devnull 'X' 124 ones;
326 a59ea66f 2003-09-30 devnull 'X' 128 zeros;
327 a59ea66f 2003-09-30 devnull 'X' 132 image;
328 a59ea66f 2003-09-30 devnull 'a' 136 buf;
329 a59ea66f 2003-09-30 devnull 'X' 8140 bufp;
330 a59ea66f 2003-09-30 devnull 'X' 8144 defaultfont;
331 a59ea66f 2003-09-30 devnull 'X' 8148 defaultsubfont;
332 a59ea66f 2003-09-30 devnull 'X' 8152 windows;
333 a59ea66f 2003-09-30 devnull };
334 a59ea66f 2003-09-30 devnull
335 a59ea66f 2003-09-30 devnull defn
336 a59ea66f 2003-09-30 devnull Display(addr) {
337 a59ea66f 2003-09-30 devnull complex Display addr;
338 a59ea66f 2003-09-30 devnull print("QLock qlock {\n");
339 a59ea66f 2003-09-30 devnull QLock(addr.qlock);
340 a59ea66f 2003-09-30 devnull print("}\n");
341 a59ea66f 2003-09-30 devnull print(" dirno ", addr.dirno, "\n");
342 a59ea66f 2003-09-30 devnull print(" fd ", addr.fd, "\n");
343 a59ea66f 2003-09-30 devnull print(" reffd ", addr.reffd, "\n");
344 a59ea66f 2003-09-30 devnull print(" ctlfd ", addr.ctlfd, "\n");
345 a59ea66f 2003-09-30 devnull print(" imageid ", addr.imageid, "\n");
346 a59ea66f 2003-09-30 devnull print(" $local ", addr.$local, "\n");
347 a59ea66f 2003-09-30 devnull print(" ldepth ", addr.ldepth, "\n");
348 a59ea66f 2003-09-30 devnull print(" error ", addr.error\X, "\n");
349 a59ea66f 2003-09-30 devnull print(" devdir ", addr.devdir\X, "\n");
350 a59ea66f 2003-09-30 devnull print(" windir ", addr.windir\X, "\n");
351 a59ea66f 2003-09-30 devnull print(" oldlabel ", addr.oldlabel, "\n");
352 a59ea66f 2003-09-30 devnull print(" dataqid ", addr.dataqid, "\n");
353 a59ea66f 2003-09-30 devnull print(" ones ", addr.ones\X, "\n");
354 a59ea66f 2003-09-30 devnull print(" zeros ", addr.zeros\X, "\n");
355 a59ea66f 2003-09-30 devnull print(" image ", addr.image\X, "\n");
356 a59ea66f 2003-09-30 devnull print(" buf ", addr.buf, "\n");
357 a59ea66f 2003-09-30 devnull print(" bufp ", addr.bufp\X, "\n");
358 a59ea66f 2003-09-30 devnull print(" defaultfont ", addr.defaultfont\X, "\n");
359 a59ea66f 2003-09-30 devnull print(" defaultsubfont ", addr.defaultsubfont\X, "\n");
360 a59ea66f 2003-09-30 devnull print(" windows ", addr.windows\X, "\n");
361 a59ea66f 2003-09-30 devnull };
362 a59ea66f 2003-09-30 devnull
363 a59ea66f 2003-09-30 devnull sizeofImage = 56;
364 a59ea66f 2003-09-30 devnull aggr Image
365 a59ea66f 2003-09-30 devnull {
366 a59ea66f 2003-09-30 devnull 'A' Display 0 display;
367 a59ea66f 2003-09-30 devnull 'D' 4 id;
368 a59ea66f 2003-09-30 devnull Rectangle 8 r;
369 a59ea66f 2003-09-30 devnull Rectangle 24 clipr;
370 a59ea66f 2003-09-30 devnull 'D' 40 ldepth;
371 a59ea66f 2003-09-30 devnull 'D' 44 repl;
372 a59ea66f 2003-09-30 devnull 'A' Screen 48 screen;
373 a59ea66f 2003-09-30 devnull 'A' Image 52 next;
374 a59ea66f 2003-09-30 devnull };
375 a59ea66f 2003-09-30 devnull
376 a59ea66f 2003-09-30 devnull defn
377 a59ea66f 2003-09-30 devnull Image(addr) {
378 a59ea66f 2003-09-30 devnull complex Image addr;
379 a59ea66f 2003-09-30 devnull print(" display ", addr.display\X, "\n");
380 a59ea66f 2003-09-30 devnull print(" id ", addr.id, "\n");
381 a59ea66f 2003-09-30 devnull print("Rectangle r {\n");
382 a59ea66f 2003-09-30 devnull Rectangle(addr.r);
383 a59ea66f 2003-09-30 devnull print("}\n");
384 a59ea66f 2003-09-30 devnull print("Rectangle clipr {\n");
385 a59ea66f 2003-09-30 devnull Rectangle(addr.clipr);
386 a59ea66f 2003-09-30 devnull print("}\n");
387 a59ea66f 2003-09-30 devnull print(" ldepth ", addr.ldepth, "\n");
388 a59ea66f 2003-09-30 devnull print(" repl ", addr.repl, "\n");
389 a59ea66f 2003-09-30 devnull print(" screen ", addr.screen\X, "\n");
390 a59ea66f 2003-09-30 devnull print(" next ", addr.next\X, "\n");
391 a59ea66f 2003-09-30 devnull };
392 a59ea66f 2003-09-30 devnull
393 a59ea66f 2003-09-30 devnull sizeofRGB = 12;
394 a59ea66f 2003-09-30 devnull aggr RGB
395 a59ea66f 2003-09-30 devnull {
396 a59ea66f 2003-09-30 devnull 'U' 0 red;
397 a59ea66f 2003-09-30 devnull 'U' 4 green;
398 a59ea66f 2003-09-30 devnull 'U' 8 blue;
399 a59ea66f 2003-09-30 devnull };
400 a59ea66f 2003-09-30 devnull
401 a59ea66f 2003-09-30 devnull defn
402 a59ea66f 2003-09-30 devnull RGB(addr) {
403 a59ea66f 2003-09-30 devnull complex RGB addr;
404 a59ea66f 2003-09-30 devnull print(" red ", addr.red, "\n");
405 a59ea66f 2003-09-30 devnull print(" green ", addr.green, "\n");
406 a59ea66f 2003-09-30 devnull print(" blue ", addr.blue, "\n");
407 a59ea66f 2003-09-30 devnull };
408 a59ea66f 2003-09-30 devnull
409 a59ea66f 2003-09-30 devnull sizeofFontchar = 8;
410 a59ea66f 2003-09-30 devnull aggr Fontchar
411 a59ea66f 2003-09-30 devnull {
412 a59ea66f 2003-09-30 devnull 'D' 0 x;
413 a59ea66f 2003-09-30 devnull 'b' 4 top;
414 a59ea66f 2003-09-30 devnull 'b' 5 bottom;
415 a59ea66f 2003-09-30 devnull 'C' 6 left;
416 a59ea66f 2003-09-30 devnull 'b' 7 width;
417 a59ea66f 2003-09-30 devnull };
418 a59ea66f 2003-09-30 devnull
419 a59ea66f 2003-09-30 devnull defn
420 a59ea66f 2003-09-30 devnull Fontchar(addr) {
421 a59ea66f 2003-09-30 devnull complex Fontchar addr;
422 a59ea66f 2003-09-30 devnull print(" x ", addr.x, "\n");
423 a59ea66f 2003-09-30 devnull print(" top ", addr.top, "\n");
424 a59ea66f 2003-09-30 devnull print(" bottom ", addr.bottom, "\n");
425 a59ea66f 2003-09-30 devnull print(" left ", addr.left, "\n");
426 a59ea66f 2003-09-30 devnull print(" width ", addr.width, "\n");
427 a59ea66f 2003-09-30 devnull };
428 a59ea66f 2003-09-30 devnull
429 a59ea66f 2003-09-30 devnull sizeofSubfont = 16;
430 a59ea66f 2003-09-30 devnull aggr Subfont
431 a59ea66f 2003-09-30 devnull {
432 a59ea66f 2003-09-30 devnull 'X' 0 name;
433 a59ea66f 2003-09-30 devnull 'd' 4 n;
434 a59ea66f 2003-09-30 devnull 'b' 6 height;
435 a59ea66f 2003-09-30 devnull 'C' 7 ascent;
436 a59ea66f 2003-09-30 devnull 'A' Fontchar 8 info;
437 a59ea66f 2003-09-30 devnull 'A' Image 12 bits;
438 a59ea66f 2003-09-30 devnull };
439 a59ea66f 2003-09-30 devnull
440 a59ea66f 2003-09-30 devnull defn
441 a59ea66f 2003-09-30 devnull Subfont(addr) {
442 a59ea66f 2003-09-30 devnull complex Subfont addr;
443 a59ea66f 2003-09-30 devnull print(" name ", addr.name\X, "\n");
444 a59ea66f 2003-09-30 devnull print(" n ", addr.n, "\n");
445 a59ea66f 2003-09-30 devnull print(" height ", addr.height, "\n");
446 a59ea66f 2003-09-30 devnull print(" ascent ", addr.ascent, "\n");
447 a59ea66f 2003-09-30 devnull print(" info ", addr.info\X, "\n");
448 a59ea66f 2003-09-30 devnull print(" bits ", addr.bits\X, "\n");
449 a59ea66f 2003-09-30 devnull };
450 a59ea66f 2003-09-30 devnull
451 a59ea66f 2003-09-30 devnull LOG2NFCACHE = 6;
452 a59ea66f 2003-09-30 devnull NFCACHE = 64;
453 a59ea66f 2003-09-30 devnull NFLOOK = 5;
454 a59ea66f 2003-09-30 devnull NFSUBF = 2;
455 a59ea66f 2003-09-30 devnull MAXFCACHE = 1029;
456 a59ea66f 2003-09-30 devnull MAXSUBF = 50;
457 a59ea66f 2003-09-30 devnull DSUBF = 4;
458 a59ea66f 2003-09-30 devnull SUBFAGE = 10000;
459 a59ea66f 2003-09-30 devnull CACHEAGE = 10000;
460 a59ea66f 2003-09-30 devnull sizeofCachefont = 16;
461 a59ea66f 2003-09-30 devnull aggr Cachefont
462 a59ea66f 2003-09-30 devnull {
463 a59ea66f 2003-09-30 devnull 'u' 0 min;
464 a59ea66f 2003-09-30 devnull 'u' 2 max;
465 a59ea66f 2003-09-30 devnull 'D' 4 offset;
466 a59ea66f 2003-09-30 devnull 'X' 8 name;
467 a59ea66f 2003-09-30 devnull 'X' 12 subfontname;
468 a59ea66f 2003-09-30 devnull };
469 a59ea66f 2003-09-30 devnull
470 a59ea66f 2003-09-30 devnull defn
471 a59ea66f 2003-09-30 devnull Cachefont(addr) {
472 a59ea66f 2003-09-30 devnull complex Cachefont addr;
473 a59ea66f 2003-09-30 devnull print(" min ", addr.min, "\n");
474 a59ea66f 2003-09-30 devnull print(" max ", addr.max, "\n");
475 a59ea66f 2003-09-30 devnull print(" offset ", addr.offset, "\n");
476 a59ea66f 2003-09-30 devnull print(" name ", addr.name\X, "\n");
477 a59ea66f 2003-09-30 devnull print(" subfontname ", addr.subfontname\X, "\n");
478 a59ea66f 2003-09-30 devnull };
479 a59ea66f 2003-09-30 devnull
480 a59ea66f 2003-09-30 devnull sizeofCacheinfo = 8;
481 a59ea66f 2003-09-30 devnull aggr Cacheinfo
482 a59ea66f 2003-09-30 devnull {
483 a59ea66f 2003-09-30 devnull 'u' 0 x;
484 a59ea66f 2003-09-30 devnull 'b' 2 width;
485 a59ea66f 2003-09-30 devnull 'C' 3 left;
486 a59ea66f 2003-09-30 devnull 'u' 4 value;
487 a59ea66f 2003-09-30 devnull 'u' 6 age;
488 a59ea66f 2003-09-30 devnull };
489 a59ea66f 2003-09-30 devnull
490 a59ea66f 2003-09-30 devnull defn
491 a59ea66f 2003-09-30 devnull Cacheinfo(addr) {
492 a59ea66f 2003-09-30 devnull complex Cacheinfo addr;
493 a59ea66f 2003-09-30 devnull print(" x ", addr.x, "\n");
494 a59ea66f 2003-09-30 devnull print(" width ", addr.width, "\n");
495 a59ea66f 2003-09-30 devnull print(" left ", addr.left, "\n");
496 a59ea66f 2003-09-30 devnull print(" value ", addr.value, "\n");
497 a59ea66f 2003-09-30 devnull print(" age ", addr.age, "\n");
498 a59ea66f 2003-09-30 devnull };
499 a59ea66f 2003-09-30 devnull
500 a59ea66f 2003-09-30 devnull sizeofCachesubf = 12;
501 a59ea66f 2003-09-30 devnull aggr Cachesubf
502 a59ea66f 2003-09-30 devnull {
503 a59ea66f 2003-09-30 devnull 'U' 0 age;
504 a59ea66f 2003-09-30 devnull 'A' Cachefont 4 cf;
505 a59ea66f 2003-09-30 devnull 'A' Subfont 8 f;
506 a59ea66f 2003-09-30 devnull };
507 a59ea66f 2003-09-30 devnull
508 a59ea66f 2003-09-30 devnull defn
509 a59ea66f 2003-09-30 devnull Cachesubf(addr) {
510 a59ea66f 2003-09-30 devnull complex Cachesubf addr;
511 a59ea66f 2003-09-30 devnull print(" age ", addr.age, "\n");
512 a59ea66f 2003-09-30 devnull print(" cf ", addr.cf\X, "\n");
513 a59ea66f 2003-09-30 devnull print(" f ", addr.f\X, "\n");
514 a59ea66f 2003-09-30 devnull };
515 a59ea66f 2003-09-30 devnull
516 a59ea66f 2003-09-30 devnull sizeofFont = 52;
517 a59ea66f 2003-09-30 devnull aggr Font
518 a59ea66f 2003-09-30 devnull {
519 a59ea66f 2003-09-30 devnull 'X' 0 name;
520 a59ea66f 2003-09-30 devnull 'A' Display 4 display;
521 a59ea66f 2003-09-30 devnull 'd' 8 height;
522 a59ea66f 2003-09-30 devnull 'd' 10 ascent;
523 a59ea66f 2003-09-30 devnull 'D' 12 maxldepth;
524 a59ea66f 2003-09-30 devnull 'd' 16 width;
525 a59ea66f 2003-09-30 devnull 'd' 18 ldepth;
526 a59ea66f 2003-09-30 devnull 'd' 20 nsub;
527 a59ea66f 2003-09-30 devnull 'U' 24 age;
528 a59ea66f 2003-09-30 devnull 'D' 28 ncache;
529 a59ea66f 2003-09-30 devnull 'D' 32 nsubf;
530 a59ea66f 2003-09-30 devnull 'A' Cacheinfo 36 cache;
531 a59ea66f 2003-09-30 devnull 'A' Cachesubf 40 subf;
532 a59ea66f 2003-09-30 devnull 'A' Cachefont 44 sub;
533 a59ea66f 2003-09-30 devnull 'A' Image 48 cacheimage;
534 a59ea66f 2003-09-30 devnull };
535 a59ea66f 2003-09-30 devnull
536 a59ea66f 2003-09-30 devnull defn
537 a59ea66f 2003-09-30 devnull Font(addr) {
538 a59ea66f 2003-09-30 devnull complex Font addr;
539 a59ea66f 2003-09-30 devnull print(" name ", addr.name\X, "\n");
540 a59ea66f 2003-09-30 devnull print(" display ", addr.display\X, "\n");
541 a59ea66f 2003-09-30 devnull print(" height ", addr.height, "\n");
542 a59ea66f 2003-09-30 devnull print(" ascent ", addr.ascent, "\n");
543 a59ea66f 2003-09-30 devnull print(" maxldepth ", addr.maxldepth, "\n");
544 a59ea66f 2003-09-30 devnull print(" width ", addr.width, "\n");
545 a59ea66f 2003-09-30 devnull print(" ldepth ", addr.ldepth, "\n");
546 a59ea66f 2003-09-30 devnull print(" nsub ", addr.nsub, "\n");
547 a59ea66f 2003-09-30 devnull print(" age ", addr.age, "\n");
548 a59ea66f 2003-09-30 devnull print(" ncache ", addr.ncache, "\n");
549 a59ea66f 2003-09-30 devnull print(" nsubf ", addr.nsubf, "\n");
550 a59ea66f 2003-09-30 devnull print(" cache ", addr.cache\X, "\n");
551 a59ea66f 2003-09-30 devnull print(" subf ", addr.subf\X, "\n");
552 a59ea66f 2003-09-30 devnull print(" sub ", addr.sub\X, "\n");
553 a59ea66f 2003-09-30 devnull print(" cacheimage ", addr.cacheimage\X, "\n");
554 a59ea66f 2003-09-30 devnull };
555 a59ea66f 2003-09-30 devnull
556 a59ea66f 2003-09-30 devnull complex Point ZP;
557 a59ea66f 2003-09-30 devnull complex Rectangle ZR;
558 a59ea66f 2003-09-30 devnull complex Display display;
559 a59ea66f 2003-09-30 devnull complex Font font;
560 a59ea66f 2003-09-30 devnull complex Image screen;
561 a59ea66f 2003-09-30 devnull sizeofAlt = 20;
562 a59ea66f 2003-09-30 devnull aggr Alt
563 a59ea66f 2003-09-30 devnull {
564 a59ea66f 2003-09-30 devnull 'X' 0 c;
565 a59ea66f 2003-09-30 devnull 'X' 4 v;
566 a59ea66f 2003-09-30 devnull 'D' 8 op;
567 a59ea66f 2003-09-30 devnull 'X' 12 tag;
568 a59ea66f 2003-09-30 devnull 'U' 16 q;
569 a59ea66f 2003-09-30 devnull };
570 a59ea66f 2003-09-30 devnull
571 a59ea66f 2003-09-30 devnull defn
572 a59ea66f 2003-09-30 devnull Alt(addr) {
573 a59ea66f 2003-09-30 devnull complex Alt addr;
574 a59ea66f 2003-09-30 devnull print(" c ", addr.c\X, "\n");
575 a59ea66f 2003-09-30 devnull print(" v ", addr.v\X, "\n");
576 a59ea66f 2003-09-30 devnull print(" op ", addr.op, "\n");
577 a59ea66f 2003-09-30 devnull print(" tag ", addr.tag\X, "\n");
578 a59ea66f 2003-09-30 devnull print(" q ", addr.q, "\n");
579 a59ea66f 2003-09-30 devnull };
580 a59ea66f 2003-09-30 devnull
581 a59ea66f 2003-09-30 devnull sizeofRef = 4;
582 a59ea66f 2003-09-30 devnull aggr Ref
583 a59ea66f 2003-09-30 devnull {
584 a59ea66f 2003-09-30 devnull 'D' 0 ref;
585 a59ea66f 2003-09-30 devnull };
586 a59ea66f 2003-09-30 devnull
587 a59ea66f 2003-09-30 devnull defn
588 a59ea66f 2003-09-30 devnull Ref(addr) {
589 a59ea66f 2003-09-30 devnull complex Ref addr;
590 a59ea66f 2003-09-30 devnull print(" ref ", addr.ref, "\n");
591 a59ea66f 2003-09-30 devnull };
592 a59ea66f 2003-09-30 devnull
593 a59ea66f 2003-09-30 devnull sizeofCursor = 72;
594 a59ea66f 2003-09-30 devnull aggr Cursor
595 a59ea66f 2003-09-30 devnull {
596 a59ea66f 2003-09-30 devnull Point 0 offset;
597 a59ea66f 2003-09-30 devnull 'a' 8 clr;
598 a59ea66f 2003-09-30 devnull 'a' 40 set;
599 a59ea66f 2003-09-30 devnull };
600 a59ea66f 2003-09-30 devnull
601 a59ea66f 2003-09-30 devnull defn
602 a59ea66f 2003-09-30 devnull Cursor(addr) {
603 a59ea66f 2003-09-30 devnull complex Cursor addr;
604 a59ea66f 2003-09-30 devnull print("Point offset {\n");
605 a59ea66f 2003-09-30 devnull Point(addr.offset);
606 a59ea66f 2003-09-30 devnull print("}\n");
607 a59ea66f 2003-09-30 devnull print(" clr ", addr.clr, "\n");
608 a59ea66f 2003-09-30 devnull print(" set ", addr.set, "\n");
609 a59ea66f 2003-09-30 devnull };
610 a59ea66f 2003-09-30 devnull
611 a59ea66f 2003-09-30 devnull sizeofMouse = 16;
612 a59ea66f 2003-09-30 devnull aggr Mouse
613 a59ea66f 2003-09-30 devnull {
614 a59ea66f 2003-09-30 devnull 'D' 0 buttons;
615 a59ea66f 2003-09-30 devnull Point 4 xy;
616 a59ea66f 2003-09-30 devnull 'U' 12 msec;
617 a59ea66f 2003-09-30 devnull };
618 a59ea66f 2003-09-30 devnull
619 a59ea66f 2003-09-30 devnull defn
620 a59ea66f 2003-09-30 devnull Mouse(addr) {
621 a59ea66f 2003-09-30 devnull complex Mouse addr;
622 a59ea66f 2003-09-30 devnull print(" buttons ", addr.buttons, "\n");
623 a59ea66f 2003-09-30 devnull print("Point xy {\n");
624 a59ea66f 2003-09-30 devnull Point(addr.xy);
625 a59ea66f 2003-09-30 devnull print("}\n");
626 a59ea66f 2003-09-30 devnull print(" msec ", addr.msec, "\n");
627 a59ea66f 2003-09-30 devnull };
628 a59ea66f 2003-09-30 devnull
629 a59ea66f 2003-09-30 devnull sizeofMousectl = 44;
630 a59ea66f 2003-09-30 devnull aggr Mousectl
631 a59ea66f 2003-09-30 devnull {
632 a59ea66f 2003-09-30 devnull {
633 a59ea66f 2003-09-30 devnull 'D' 0 buttons;
634 a59ea66f 2003-09-30 devnull Point 4 xy;
635 a59ea66f 2003-09-30 devnull 'U' 12 msec;
636 a59ea66f 2003-09-30 devnull };
637 a59ea66f 2003-09-30 devnull 'X' 16 c;
638 a59ea66f 2003-09-30 devnull 'X' 20 reshapec;
639 a59ea66f 2003-09-30 devnull 'X' 24 file;
640 a59ea66f 2003-09-30 devnull 'D' 28 mfd;
641 a59ea66f 2003-09-30 devnull 'D' 32 cfd;
642 a59ea66f 2003-09-30 devnull 'D' 36 pid;
643 a59ea66f 2003-09-30 devnull 'A' Image 40 image;
644 a59ea66f 2003-09-30 devnull };
645 a59ea66f 2003-09-30 devnull
646 a59ea66f 2003-09-30 devnull defn
647 a59ea66f 2003-09-30 devnull Mousectl(addr) {
648 a59ea66f 2003-09-30 devnull complex Mousectl addr;
649 a59ea66f 2003-09-30 devnull print("Mouse {\n");
650 a59ea66f 2003-09-30 devnull Mouse(addr+0);
651 a59ea66f 2003-09-30 devnull print("}\n");
652 a59ea66f 2003-09-30 devnull print(" c ", addr.c\X, "\n");
653 a59ea66f 2003-09-30 devnull print(" reshapec ", addr.reshapec\X, "\n");
654 a59ea66f 2003-09-30 devnull print(" file ", addr.file\X, "\n");
655 a59ea66f 2003-09-30 devnull print(" mfd ", addr.mfd, "\n");
656 a59ea66f 2003-09-30 devnull print(" cfd ", addr.cfd, "\n");
657 a59ea66f 2003-09-30 devnull print(" pid ", addr.pid, "\n");
658 a59ea66f 2003-09-30 devnull print(" image ", addr.image\X, "\n");
659 a59ea66f 2003-09-30 devnull };
660 a59ea66f 2003-09-30 devnull
661 a59ea66f 2003-09-30 devnull sizeofMenu = 12;
662 a59ea66f 2003-09-30 devnull aggr Menu
663 a59ea66f 2003-09-30 devnull {
664 a59ea66f 2003-09-30 devnull 'X' 0 item;
665 a59ea66f 2003-09-30 devnull 'X' 4 gen;
666 a59ea66f 2003-09-30 devnull 'D' 8 lasthit;
667 a59ea66f 2003-09-30 devnull };
668 a59ea66f 2003-09-30 devnull
669 a59ea66f 2003-09-30 devnull defn
670 a59ea66f 2003-09-30 devnull Menu(addr) {
671 a59ea66f 2003-09-30 devnull complex Menu addr;
672 a59ea66f 2003-09-30 devnull print(" item ", addr.item\X, "\n");
673 a59ea66f 2003-09-30 devnull print(" gen ", addr.gen\X, "\n");
674 a59ea66f 2003-09-30 devnull print(" lasthit ", addr.lasthit, "\n");
675 a59ea66f 2003-09-30 devnull };
676 a59ea66f 2003-09-30 devnull
677 a59ea66f 2003-09-30 devnull sizeofKeyboardctl = 20;
678 a59ea66f 2003-09-30 devnull aggr Keyboardctl
679 a59ea66f 2003-09-30 devnull {
680 a59ea66f 2003-09-30 devnull 'X' 0 c;
681 a59ea66f 2003-09-30 devnull 'X' 4 file;
682 a59ea66f 2003-09-30 devnull 'D' 8 consfd;
683 a59ea66f 2003-09-30 devnull 'D' 12 ctlfd;
684 a59ea66f 2003-09-30 devnull 'D' 16 pid;
685 a59ea66f 2003-09-30 devnull };
686 a59ea66f 2003-09-30 devnull
687 a59ea66f 2003-09-30 devnull defn
688 a59ea66f 2003-09-30 devnull Keyboardctl(addr) {
689 a59ea66f 2003-09-30 devnull complex Keyboardctl addr;
690 a59ea66f 2003-09-30 devnull print(" c ", addr.c\X, "\n");
691 a59ea66f 2003-09-30 devnull print(" file ", addr.file\X, "\n");
692 a59ea66f 2003-09-30 devnull print(" consfd ", addr.consfd, "\n");
693 a59ea66f 2003-09-30 devnull print(" ctlfd ", addr.ctlfd, "\n");
694 a59ea66f 2003-09-30 devnull print(" pid ", addr.pid, "\n");
695 a59ea66f 2003-09-30 devnull };
696 a59ea66f 2003-09-30 devnull
697 a59ea66f 2003-09-30 devnull BACK = 0;
698 a59ea66f 2003-09-30 devnull HIGH = 1;
699 a59ea66f 2003-09-30 devnull BORD = 2;
700 a59ea66f 2003-09-30 devnull TEXT = 3;
701 a59ea66f 2003-09-30 devnull HTEXT = 4;
702 a59ea66f 2003-09-30 devnull NCOL = 5;
703 a59ea66f 2003-09-30 devnull sizeof_3_ = 4;
704 a59ea66f 2003-09-30 devnull aggr _3_
705 a59ea66f 2003-09-30 devnull {
706 a59ea66f 2003-09-30 devnull 'd' 0 bc;
707 a59ea66f 2003-09-30 devnull 'd' 2 minwid;
708 a59ea66f 2003-09-30 devnull };
709 a59ea66f 2003-09-30 devnull
710 a59ea66f 2003-09-30 devnull defn
711 a59ea66f 2003-09-30 devnull _3_(addr) {
712 a59ea66f 2003-09-30 devnull complex _3_ addr;
713 a59ea66f 2003-09-30 devnull print(" bc ", addr.bc, "\n");
714 a59ea66f 2003-09-30 devnull print(" minwid ", addr.minwid, "\n");
715 a59ea66f 2003-09-30 devnull };
716 a59ea66f 2003-09-30 devnull
717 a59ea66f 2003-09-30 devnull sizeof_4_ = 4;
718 a59ea66f 2003-09-30 devnull aggr _4_
719 a59ea66f 2003-09-30 devnull {
720 a59ea66f 2003-09-30 devnull 'X' 0 ptr;
721 a59ea66f 2003-09-30 devnull {
722 a59ea66f 2003-09-30 devnull 'd' 0 bc;
723 a59ea66f 2003-09-30 devnull 'd' 2 minwid;
724 a59ea66f 2003-09-30 devnull };
725 a59ea66f 2003-09-30 devnull };
726 a59ea66f 2003-09-30 devnull
727 a59ea66f 2003-09-30 devnull defn
728 a59ea66f 2003-09-30 devnull _4_(addr) {
729 a59ea66f 2003-09-30 devnull complex _4_ addr;
730 a59ea66f 2003-09-30 devnull print(" ptr ", addr.ptr\X, "\n");
731 a59ea66f 2003-09-30 devnull print("_3_ {\n");
732 a59ea66f 2003-09-30 devnull _3_(addr+0);
733 a59ea66f 2003-09-30 devnull print("}\n");
734 a59ea66f 2003-09-30 devnull };
735 a59ea66f 2003-09-30 devnull
736 a59ea66f 2003-09-30 devnull sizeofFrbox = 12;
737 a59ea66f 2003-09-30 devnull aggr Frbox
738 a59ea66f 2003-09-30 devnull {
739 a59ea66f 2003-09-30 devnull 'D' 0 wid;
740 a59ea66f 2003-09-30 devnull 'D' 4 nrune;
741 a59ea66f 2003-09-30 devnull {
742 a59ea66f 2003-09-30 devnull 'X' 8 ptr;
743 a59ea66f 2003-09-30 devnull {
744 a59ea66f 2003-09-30 devnull 'd' 8 bc;
745 a59ea66f 2003-09-30 devnull 'd' 10 minwid;
746 a59ea66f 2003-09-30 devnull };
747 a59ea66f 2003-09-30 devnull };
748 a59ea66f 2003-09-30 devnull };
749 a59ea66f 2003-09-30 devnull
750 a59ea66f 2003-09-30 devnull defn
751 a59ea66f 2003-09-30 devnull Frbox(addr) {
752 a59ea66f 2003-09-30 devnull complex Frbox addr;
753 a59ea66f 2003-09-30 devnull print(" wid ", addr.wid, "\n");
754 a59ea66f 2003-09-30 devnull print(" nrune ", addr.nrune, "\n");
755 a59ea66f 2003-09-30 devnull print("_4_ {\n");
756 a59ea66f 2003-09-30 devnull _4_(addr+8);
757 a59ea66f 2003-09-30 devnull print("}\n");
758 a59ea66f 2003-09-30 devnull };
759 a59ea66f 2003-09-30 devnull
760 a59ea66f 2003-09-30 devnull complex Font font;
761 a59ea66f 2003-09-30 devnull complex Display display;
762 a59ea66f 2003-09-30 devnull sizeofFrame = 108;
763 a59ea66f 2003-09-30 devnull aggr Frame
764 a59ea66f 2003-09-30 devnull {
765 a59ea66f 2003-09-30 devnull 'A' Font 0 font;
766 a59ea66f 2003-09-30 devnull 'A' Display 4 display;
767 a59ea66f 2003-09-30 devnull 'A' Image 8 b;
768 a59ea66f 2003-09-30 devnull 'a' 12 cols;
769 a59ea66f 2003-09-30 devnull Rectangle 32 r;
770 a59ea66f 2003-09-30 devnull Rectangle 48 entire;
771 a59ea66f 2003-09-30 devnull 'X' 64 scroll;
772 a59ea66f 2003-09-30 devnull 'A' Frbox 68 box;
773 a59ea66f 2003-09-30 devnull 'U' 72 p0;
774 a59ea66f 2003-09-30 devnull 'U' 76 p1;
775 a59ea66f 2003-09-30 devnull 'u' 80 nbox;
776 a59ea66f 2003-09-30 devnull 'u' 82 nalloc;
777 a59ea66f 2003-09-30 devnull 'u' 84 maxtab;
778 a59ea66f 2003-09-30 devnull 'u' 86 nchars;
779 a59ea66f 2003-09-30 devnull 'u' 88 nlines;
780 a59ea66f 2003-09-30 devnull 'u' 90 maxlines;
781 a59ea66f 2003-09-30 devnull 'u' 92 lastlinefull;
782 a59ea66f 2003-09-30 devnull 'u' 94 modified;
783 a59ea66f 2003-09-30 devnull 'A' Image 96 tick;
784 a59ea66f 2003-09-30 devnull 'A' Image 100 tickback;
785 a59ea66f 2003-09-30 devnull 'D' 104 ticked;
786 a59ea66f 2003-09-30 devnull };
787 a59ea66f 2003-09-30 devnull
788 a59ea66f 2003-09-30 devnull defn
789 a59ea66f 2003-09-30 devnull Frame(addr) {
790 a59ea66f 2003-09-30 devnull complex Frame addr;
791 a59ea66f 2003-09-30 devnull print(" font ", addr.font\X, "\n");
792 a59ea66f 2003-09-30 devnull print(" display ", addr.display\X, "\n");
793 a59ea66f 2003-09-30 devnull print(" b ", addr.b\X, "\n");
794 a59ea66f 2003-09-30 devnull print(" cols ", addr.cols, "\n");
795 a59ea66f 2003-09-30 devnull print("Rectangle r {\n");
796 a59ea66f 2003-09-30 devnull Rectangle(addr.r);
797 a59ea66f 2003-09-30 devnull print("}\n");
798 a59ea66f 2003-09-30 devnull print("Rectangle entire {\n");
799 a59ea66f 2003-09-30 devnull Rectangle(addr.entire);
800 a59ea66f 2003-09-30 devnull print("}\n");
801 a59ea66f 2003-09-30 devnull print(" scroll ", addr.scroll\X, "\n");
802 a59ea66f 2003-09-30 devnull print(" box ", addr.box\X, "\n");
803 a59ea66f 2003-09-30 devnull print(" p0 ", addr.p0, "\n");
804 a59ea66f 2003-09-30 devnull print(" p1 ", addr.p1, "\n");
805 a59ea66f 2003-09-30 devnull print(" nbox ", addr.nbox, "\n");
806 a59ea66f 2003-09-30 devnull print(" nalloc ", addr.nalloc, "\n");
807 a59ea66f 2003-09-30 devnull print(" maxtab ", addr.maxtab, "\n");
808 a59ea66f 2003-09-30 devnull print(" nchars ", addr.nchars, "\n");
809 a59ea66f 2003-09-30 devnull print(" nlines ", addr.nlines, "\n");
810 a59ea66f 2003-09-30 devnull print(" maxlines ", addr.maxlines, "\n");
811 a59ea66f 2003-09-30 devnull print(" lastlinefull ", addr.lastlinefull, "\n");
812 a59ea66f 2003-09-30 devnull print(" modified ", addr.modified, "\n");
813 a59ea66f 2003-09-30 devnull print(" tick ", addr.tick\X, "\n");
814 a59ea66f 2003-09-30 devnull print(" tickback ", addr.tickback\X, "\n");
815 a59ea66f 2003-09-30 devnull print(" ticked ", addr.ticked, "\n");
816 a59ea66f 2003-09-30 devnull };
817 a59ea66f 2003-09-30 devnull
818 a59ea66f 2003-09-30 devnull None = 0;
819 a59ea66f 2003-09-30 devnull Some = 1;
820 a59ea66f 2003-09-30 devnull All = 2;
821 a59ea66f 2003-09-30 devnull Clicktime = 1000;
822 a59ea66f 2003-09-30 devnull sizeofFlayer = 172;
823 a59ea66f 2003-09-30 devnull aggr Flayer
824 a59ea66f 2003-09-30 devnull {
825 a59ea66f 2003-09-30 devnull Frame 0 f;
826 a59ea66f 2003-09-30 devnull 'D' 108 origin;
827 a59ea66f 2003-09-30 devnull 'D' 112 p0;
828 a59ea66f 2003-09-30 devnull 'D' 116 p1;
829 a59ea66f 2003-09-30 devnull 'D' 120 click;
830 a59ea66f 2003-09-30 devnull 'X' 124 textfn;
831 a59ea66f 2003-09-30 devnull 'D' 128 user0;
832 a59ea66f 2003-09-30 devnull 'X' 132 user1;
833 a59ea66f 2003-09-30 devnull Rectangle 136 entire;
834 a59ea66f 2003-09-30 devnull Rectangle 152 scroll;
835 a59ea66f 2003-09-30 devnull 'D' 168 visible;
836 a59ea66f 2003-09-30 devnull };
837 a59ea66f 2003-09-30 devnull
838 a59ea66f 2003-09-30 devnull defn
839 a59ea66f 2003-09-30 devnull Flayer(addr) {
840 a59ea66f 2003-09-30 devnull complex Flayer addr;
841 a59ea66f 2003-09-30 devnull print("Frame f {\n");
842 a59ea66f 2003-09-30 devnull Frame(addr.f);
843 a59ea66f 2003-09-30 devnull print("}\n");
844 a59ea66f 2003-09-30 devnull print(" origin ", addr.origin, "\n");
845 a59ea66f 2003-09-30 devnull print(" p0 ", addr.p0, "\n");
846 a59ea66f 2003-09-30 devnull print(" p1 ", addr.p1, "\n");
847 a59ea66f 2003-09-30 devnull print(" click ", addr.click, "\n");
848 a59ea66f 2003-09-30 devnull print(" textfn ", addr.textfn\X, "\n");
849 a59ea66f 2003-09-30 devnull print(" user0 ", addr.user0, "\n");
850 a59ea66f 2003-09-30 devnull print(" user1 ", addr.user1\X, "\n");
851 a59ea66f 2003-09-30 devnull print("Rectangle entire {\n");
852 a59ea66f 2003-09-30 devnull Rectangle(addr.entire);
853 a59ea66f 2003-09-30 devnull print("}\n");
854 a59ea66f 2003-09-30 devnull print("Rectangle scroll {\n");
855 a59ea66f 2003-09-30 devnull Rectangle(addr.scroll);
856 a59ea66f 2003-09-30 devnull print("}\n");
857 a59ea66f 2003-09-30 devnull print(" visible ", addr.visible, "\n");
858 a59ea66f 2003-09-30 devnull };
859 a59ea66f 2003-09-30 devnull
860 a59ea66f 2003-09-30 devnull Up = 0;
861 a59ea66f 2003-09-30 devnull Down = 1;
862 a59ea66f 2003-09-30 devnull sizeofSection = 12;
863 a59ea66f 2003-09-30 devnull aggr Section
864 a59ea66f 2003-09-30 devnull {
865 a59ea66f 2003-09-30 devnull 'D' 0 nrunes;
866 a59ea66f 2003-09-30 devnull 'X' 4 text;
867 a59ea66f 2003-09-30 devnull 'A' Section 8 next;
868 a59ea66f 2003-09-30 devnull };
869 a59ea66f 2003-09-30 devnull
870 a59ea66f 2003-09-30 devnull defn
871 a59ea66f 2003-09-30 devnull Section(addr) {
872 a59ea66f 2003-09-30 devnull complex Section addr;
873 a59ea66f 2003-09-30 devnull print(" nrunes ", addr.nrunes, "\n");
874 a59ea66f 2003-09-30 devnull print(" text ", addr.text\X, "\n");
875 a59ea66f 2003-09-30 devnull print(" next ", addr.next\X, "\n");
876 a59ea66f 2003-09-30 devnull };
877 a59ea66f 2003-09-30 devnull
878 a59ea66f 2003-09-30 devnull sizeofRasp = 8;
879 a59ea66f 2003-09-30 devnull aggr Rasp
880 a59ea66f 2003-09-30 devnull {
881 a59ea66f 2003-09-30 devnull 'D' 0 nrunes;
882 a59ea66f 2003-09-30 devnull 'A' Section 4 sect;
883 a59ea66f 2003-09-30 devnull };
884 a59ea66f 2003-09-30 devnull
885 a59ea66f 2003-09-30 devnull defn
886 a59ea66f 2003-09-30 devnull Rasp(addr) {
887 a59ea66f 2003-09-30 devnull complex Rasp addr;
888 a59ea66f 2003-09-30 devnull print(" nrunes ", addr.nrunes, "\n");
889 a59ea66f 2003-09-30 devnull print(" sect ", addr.sect\X, "\n");
890 a59ea66f 2003-09-30 devnull };
891 a59ea66f 2003-09-30 devnull
892 a59ea66f 2003-09-30 devnull sizeofText = 876;
893 a59ea66f 2003-09-30 devnull aggr Text
894 a59ea66f 2003-09-30 devnull {
895 a59ea66f 2003-09-30 devnull Rasp 0 rasp;
896 a59ea66f 2003-09-30 devnull 'd' 8 nwin;
897 a59ea66f 2003-09-30 devnull 'd' 10 front;
898 a59ea66f 2003-09-30 devnull 'u' 12 tag;
899 a59ea66f 2003-09-30 devnull 'C' 14 lock;
900 a59ea66f 2003-09-30 devnull 'a' 16 l;
901 a59ea66f 2003-09-30 devnull };
902 a59ea66f 2003-09-30 devnull
903 a59ea66f 2003-09-30 devnull defn
904 a59ea66f 2003-09-30 devnull Text(addr) {
905 a59ea66f 2003-09-30 devnull complex Text addr;
906 a59ea66f 2003-09-30 devnull print("Rasp rasp {\n");
907 a59ea66f 2003-09-30 devnull Rasp(addr.rasp);
908 a59ea66f 2003-09-30 devnull print("}\n");
909 a59ea66f 2003-09-30 devnull print(" nwin ", addr.nwin, "\n");
910 a59ea66f 2003-09-30 devnull print(" front ", addr.front, "\n");
911 a59ea66f 2003-09-30 devnull print(" tag ", addr.tag, "\n");
912 a59ea66f 2003-09-30 devnull print(" lock ", addr.lock, "\n");
913 a59ea66f 2003-09-30 devnull print(" l ", addr.l, "\n");
914 a59ea66f 2003-09-30 devnull };
915 a59ea66f 2003-09-30 devnull
916 a59ea66f 2003-09-30 devnull sizeofReadbuf = 8196;
917 a59ea66f 2003-09-30 devnull aggr Readbuf
918 a59ea66f 2003-09-30 devnull {
919 a59ea66f 2003-09-30 devnull 'd' 0 n;
920 a59ea66f 2003-09-30 devnull 'a' 2 data;
921 a59ea66f 2003-09-30 devnull };
922 a59ea66f 2003-09-30 devnull
923 a59ea66f 2003-09-30 devnull defn
924 a59ea66f 2003-09-30 devnull Readbuf(addr) {
925 a59ea66f 2003-09-30 devnull complex Readbuf addr;
926 a59ea66f 2003-09-30 devnull print(" n ", addr.n, "\n");
927 a59ea66f 2003-09-30 devnull print(" data ", addr.data, "\n");
928 a59ea66f 2003-09-30 devnull };
929 a59ea66f 2003-09-30 devnull
930 a59ea66f 2003-09-30 devnull RHost = 0;
931 a59ea66f 2003-09-30 devnull RKeyboard = 1;
932 a59ea66f 2003-09-30 devnull RMouse = 2;
933 a59ea66f 2003-09-30 devnull RPlumb = 3;
934 a59ea66f 2003-09-30 devnull RReshape = 4;
935 a59ea66f 2003-09-30 devnull NRes = 5;
936 a59ea66f 2003-09-30 devnull complex Cursor bullseye;
937 a59ea66f 2003-09-30 devnull complex Cursor deadmouse;
938 a59ea66f 2003-09-30 devnull complex Cursor lockarrow;
939 a59ea66f 2003-09-30 devnull complex Cursor cursor;
940 a59ea66f 2003-09-30 devnull complex Flayer which;
941 a59ea66f 2003-09-30 devnull complex Flayer work;
942 a59ea66f 2003-09-30 devnull complex Text cmd;
943 a59ea66f 2003-09-30 devnull complex Mousectl mousectl;
944 a59ea66f 2003-09-30 devnull complex Keyboardctl keyboardctl;
945 a59ea66f 2003-09-30 devnull complex Mouse mousep;
946 a59ea66f 2003-09-30 devnull Tversion = 0;
947 a59ea66f 2003-09-30 devnull Tstartcmdfile = 1;
948 a59ea66f 2003-09-30 devnull Tcheck = 2;
949 a59ea66f 2003-09-30 devnull Trequest = 3;
950 a59ea66f 2003-09-30 devnull Torigin = 4;
951 a59ea66f 2003-09-30 devnull Tstartfile = 5;
952 a59ea66f 2003-09-30 devnull Tworkfile = 6;
953 a59ea66f 2003-09-30 devnull Ttype = 7;
954 a59ea66f 2003-09-30 devnull Tcut = 8;
955 a59ea66f 2003-09-30 devnull Tpaste = 9;
956 a59ea66f 2003-09-30 devnull Tsnarf = 10;
957 a59ea66f 2003-09-30 devnull Tstartnewfile = 11;
958 a59ea66f 2003-09-30 devnull Twrite = 12;
959 a59ea66f 2003-09-30 devnull Tclose = 13;
960 a59ea66f 2003-09-30 devnull Tlook = 14;
961 a59ea66f 2003-09-30 devnull Tsearch = 15;
962 a59ea66f 2003-09-30 devnull Tsend = 16;
963 a59ea66f 2003-09-30 devnull Tdclick = 17;
964 a59ea66f 2003-09-30 devnull Tstartsnarf = 18;
965 a59ea66f 2003-09-30 devnull Tsetsnarf = 19;
966 a59ea66f 2003-09-30 devnull Tack = 20;
967 a59ea66f 2003-09-30 devnull Texit = 21;
968 a59ea66f 2003-09-30 devnull Tplumb = 22;
969 a59ea66f 2003-09-30 devnull TMAX = 23;
970 a59ea66f 2003-09-30 devnull Hversion = 0;
971 a59ea66f 2003-09-30 devnull Hbindname = 1;
972 a59ea66f 2003-09-30 devnull Hcurrent = 2;
973 a59ea66f 2003-09-30 devnull Hnewname = 3;
974 a59ea66f 2003-09-30 devnull Hmovname = 4;
975 a59ea66f 2003-09-30 devnull Hgrow = 5;
976 a59ea66f 2003-09-30 devnull Hcheck0 = 6;
977 a59ea66f 2003-09-30 devnull Hcheck = 7;
978 a59ea66f 2003-09-30 devnull Hunlock = 8;
979 a59ea66f 2003-09-30 devnull Hdata = 9;
980 a59ea66f 2003-09-30 devnull Horigin = 10;
981 a59ea66f 2003-09-30 devnull Hunlockfile = 11;
982 a59ea66f 2003-09-30 devnull Hsetdot = 12;
983 a59ea66f 2003-09-30 devnull Hgrowdata = 13;
984 a59ea66f 2003-09-30 devnull Hmoveto = 14;
985 a59ea66f 2003-09-30 devnull Hclean = 15;
986 a59ea66f 2003-09-30 devnull Hdirty = 16;
987 a59ea66f 2003-09-30 devnull Hcut = 17;
988 a59ea66f 2003-09-30 devnull Hsetpat = 18;
989 a59ea66f 2003-09-30 devnull Hdelname = 19;
990 a59ea66f 2003-09-30 devnull Hclose = 20;
991 a59ea66f 2003-09-30 devnull Hsetsnarf = 21;
992 a59ea66f 2003-09-30 devnull Hsnarflen = 22;
993 a59ea66f 2003-09-30 devnull Hack = 23;
994 a59ea66f 2003-09-30 devnull Hexit = 24;
995 a59ea66f 2003-09-30 devnull Hplumb = 25;
996 a59ea66f 2003-09-30 devnull HMAX = 26;
997 a59ea66f 2003-09-30 devnull sizeofHeader = 4;
998 a59ea66f 2003-09-30 devnull aggr Header
999 a59ea66f 2003-09-30 devnull {
1000 a59ea66f 2003-09-30 devnull 'b' 0 type;
1001 a59ea66f 2003-09-30 devnull 'b' 1 count0;
1002 a59ea66f 2003-09-30 devnull 'b' 2 count1;
1003 a59ea66f 2003-09-30 devnull 'a' 3 data;
1004 a59ea66f 2003-09-30 devnull };
1005 a59ea66f 2003-09-30 devnull
1006 a59ea66f 2003-09-30 devnull defn
1007 a59ea66f 2003-09-30 devnull Header(addr) {
1008 a59ea66f 2003-09-30 devnull complex Header addr;
1009 a59ea66f 2003-09-30 devnull print(" type ", addr.type, "\n");
1010 a59ea66f 2003-09-30 devnull print(" count0 ", addr.count0, "\n");
1011 a59ea66f 2003-09-30 devnull print(" count1 ", addr.count1, "\n");
1012 a59ea66f 2003-09-30 devnull print(" data ", addr.data, "\n");
1013 a59ea66f 2003-09-30 devnull };
1014 a59ea66f 2003-09-30 devnull
1015 a59ea66f 2003-09-30 devnull complex Text cmd;
1016 a59ea66f 2003-09-30 devnull complex Cursor cursor;
1017 a59ea66f 2003-09-30 devnull complex Flayer which;
1018 a59ea66f 2003-09-30 devnull complex Flayer work;
1019 a59ea66f 2003-09-30 devnull complex Text threadmain:t;
1020 a59ea66f 2003-09-30 devnull complex Rectangle threadmain:r;
1021 a59ea66f 2003-09-30 devnull complex Flayer threadmain:nwhich;
1022 a59ea66f 2003-09-30 devnull complex Flayer current:nw;
1023 a59ea66f 2003-09-30 devnull complex Text current:t;
1024 a59ea66f 2003-09-30 devnull complex Flayer closeup:l;
1025 a59ea66f 2003-09-30 devnull complex Text closeup:t;
1026 a59ea66f 2003-09-30 devnull complex Text findl:t;
1027 a59ea66f 2003-09-30 devnull complex Flayer duplicate:l;
1028 a59ea66f 2003-09-30 devnull complex Rectangle duplicate:r;
1029 a59ea66f 2003-09-30 devnull complex Font duplicate:f;
1030 a59ea66f 2003-09-30 devnull complex Text duplicate:t;
1031 a59ea66f 2003-09-30 devnull complex Flayer duplicate:nl;
1032 a59ea66f 2003-09-30 devnull complex Rectangle getr:rp;
1033 a59ea66f 2003-09-30 devnull complex Point getr:p;
1034 a59ea66f 2003-09-30 devnull complex Rectangle getr:r;
1035 a59ea66f 2003-09-30 devnull complex Text snarf:t;
1036 a59ea66f 2003-09-30 devnull complex Flayer snarf:l;
1037 a59ea66f 2003-09-30 devnull complex Text cut:t;
1038 a59ea66f 2003-09-30 devnull complex Flayer cut:l;
1039 a59ea66f 2003-09-30 devnull complex Text paste:t;
1040 a59ea66f 2003-09-30 devnull complex Flayer scrorigin:l;
1041 a59ea66f 2003-09-30 devnull complex Text scrorigin:t;
1042 a59ea66f 2003-09-30 devnull complex Rasp raspc:r;
1043 a59ea66f 2003-09-30 devnull complex Rasp ctlw:r;
1044 a59ea66f 2003-09-30 devnull complex Rasp ctlu:r;
1045 a59ea66f 2003-09-30 devnull complex Flayer center:l;
1046 a59ea66f 2003-09-30 devnull complex Text center:t;
1047 a59ea66f 2003-09-30 devnull complex Flayer onethird:l;
1048 a59ea66f 2003-09-30 devnull complex Text onethird:t;
1049 a59ea66f 2003-09-30 devnull complex Rectangle onethird:s;
1050 a59ea66f 2003-09-30 devnull complex Text flushtyping:t;
1051 a59ea66f 2003-09-30 devnull complex Flayer type:l;
1052 a59ea66f 2003-09-30 devnull complex Text type:t;
1053 a59ea66f 2003-09-30 devnull complex Flayer gettext:l;
1054 a59ea66f 2003-09-30 devnull complex Text gettext:t;
1055 a59ea66f 2003-09-30 devnull complex Flayer scrtotal:l;