Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
sizeof_1_ = 8;
2 
aggr _1_
3 
{
4 
	'U' 0 lo;
5 
	'U' 4 hi;
6 
};
7 
 
8 
defn
9 
_1_(addr) {
10 
	complex _1_ addr;
11 
	print("	lo	", addr.lo, "\n");
12 
	print("	hi	", addr.hi, "\n");
13 
};
14 
 
15 
sizeofFPdbleword = 8;
16 
aggr FPdbleword
17 
{
18 
	'F' 0 x;
19 
	{
20 
	'U' 0 lo;
21 
	'U' 4 hi;
22 
	};
23 
};
24 
 
25 
defn
26 
FPdbleword(addr) {
27 
	complex FPdbleword addr;
28 
	print("	x	", addr.x, "\n");
29 
	print("_1_ {\n");
30 
		_1_(addr+0);
31 
	print("}\n");
32 
};
33 
 
34 
UTFmax = 3;
35 
Runesync = 128;
36 
Runeself = 128;
37 
Runeerror = 65533;
38 
sizeofFmt = 48;
39 
aggr Fmt
40 
{
41 
	'b' 0 runes;
42 
	'X' 4 start;
43 
	'X' 8 to;
44 
	'X' 12 stop;
45 
	'X' 16 flush;
46 
	'X' 20 farg;
47 
	'D' 24 nfmt;
48 
	'X' 28 args;
49 
	'D' 32 r;
50 
	'D' 36 width;
51 
	'D' 40 prec;
52 
	'U' 44 flags;
53 
};
54 
 
55 
defn
56 
Fmt(addr) {
57 
	complex Fmt addr;
58 
	print("	runes	", addr.runes, "\n");
59 
	print("	start	", addr.start\X, "\n");
60 
	print("	to	", addr.to\X, "\n");
61 
	print("	stop	", addr.stop\X, "\n");
62 
	print("	flush	", addr.flush\X, "\n");
63 
	print("	farg	", addr.farg\X, "\n");
64 
	print("	nfmt	", addr.nfmt, "\n");
65 
	print("	args	", addr.args\X, "\n");
66 
	print("	r	", addr.r, "\n");
67 
	print("	width	", addr.width, "\n");
68 
	print("	prec	", addr.prec, "\n");
69 
	print("	flags	", addr.flags, "\n");
70 
};
71 
 
72 
FmtWidth = 1;
73 
FmtLeft = 2;
74 
FmtPrec = 4;
75 
FmtSharp = 8;
76 
FmtSpace = 16;
77 
FmtSign = 32;
78 
FmtZero = 64;
79 
FmtUnsigned = 128;
80 
FmtShort = 256;
81 
FmtLong = 512;
82 
FmtVLong = 1024;
83 
FmtComma = 2048;
84 
FmtByte = 4096;
85 
FmtFlag = 8192;
86 
sizeofTm = 40;
87 
aggr Tm
88 
{
89 
	'D' 0 sec;
90 
	'D' 4 min;
91 
	'D' 8 hour;
92 
	'D' 12 mday;
93 
	'D' 16 mon;
94 
	'D' 20 year;
95 
	'D' 24 wday;
96 
	'D' 28 yday;
97 
	'a' 32 zone;
98 
	'D' 36 tzoff;
99 
};
100 
 
101 
defn
102 
Tm(addr) {
103 
	complex Tm addr;
104 
	print("	sec	", addr.sec, "\n");
105 
	print("	min	", addr.min, "\n");
106 
	print("	hour	", addr.hour, "\n");
107 
	print("	mday	", addr.mday, "\n");
108 
	print("	mon	", addr.mon, "\n");
109 
	print("	year	", addr.year, "\n");
110 
	print("	wday	", addr.wday, "\n");
111 
	print("	yday	", addr.yday, "\n");
112 
	print("	zone	", addr.zone, "\n");
113 
	print("	tzoff	", addr.tzoff, "\n");
114 
};
115 
 
116 
PNPROC = 1;
117 
PNGROUP = 2;
118 
Profoff = 0;
119 
Profuser = 1;
120 
Profkernel = 2;
121 
Proftime = 3;
122 
Profsample = 4;
123 
sizeofLock = 4;
124 
aggr Lock
125 
{
126 
	'D' 0 val;
127 
};
128 
 
129 
defn
130 
Lock(addr) {
131 
	complex Lock addr;
132 
	print("	val	", addr.val, "\n");
133 
};
134 
 
135 
sizeofQLp = 12;
136 
aggr QLp
137 
{
138 
	'D' 0 inuse;
139 
	'A' QLp 4 next;
140 
	'C' 8 state;
141 
};
142 
 
143 
defn
144 
QLp(addr) {
145 
	complex QLp addr;
146 
	print("	inuse	", addr.inuse, "\n");
147 
	print("	next	", addr.next\X, "\n");
148 
	print("	state	", addr.state, "\n");
149 
};
150 
 
151 
sizeofQLock = 16;
152 
aggr QLock
153 
{
154 
	Lock 0 lock;
155 
	'D' 4 locked;
156 
	'A' QLp 8 $head;
157 
	'A' QLp 12 $tail;
158 
};
159 
 
160 
defn
161 
QLock(addr) {
162 
	complex QLock addr;
163 
	print("Lock lock {\n");
164 
	Lock(addr.lock);
165 
	print("}\n");
166 
	print("	locked	", addr.locked, "\n");
167 
	print("	$head	", addr.$head\X, "\n");
168 
	print("	$tail	", addr.$tail\X, "\n");
169 
};
170 
 
171 
sizeofRWLock = 20;
172 
aggr RWLock
173 
{
174 
	Lock 0 lock;
175 
	'D' 4 readers;
176 
	'D' 8 writer;
177 
	'A' QLp 12 $head;
178 
	'A' QLp 16 $tail;
179 
};
180 
 
181 
defn
182 
RWLock(addr) {
183 
	complex RWLock addr;
184 
	print("Lock lock {\n");
185 
	Lock(addr.lock);
186 
	print("}\n");
187 
	print("	readers	", addr.readers, "\n");
188 
	print("	writer	", addr.writer, "\n");
189 
	print("	$head	", addr.$head\X, "\n");
190 
	print("	$tail	", addr.$tail\X, "\n");
191 
};
192 
 
193 
sizeofRendez = 12;
194 
aggr Rendez
195 
{
196 
	'A' QLock 0 l;
197 
	'A' QLp 4 $head;
198 
	'A' QLp 8 $tail;
199 
};
200 
 
201 
defn
202 
Rendez(addr) {
203 
	complex Rendez addr;
204 
	print("	l	", addr.l\X, "\n");
205 
	print("	$head	", addr.$head\X, "\n");
206 
	print("	$tail	", addr.$tail\X, "\n");
207 
};
208 
 
209 
sizeofNetConnInfo = 36;
210 
aggr NetConnInfo
211 
{
212 
	'X' 0 dir;
213 
	'X' 4 root;
214 
	'X' 8 spec;
215 
	'X' 12 lsys;
216 
	'X' 16 lserv;
217 
	'X' 20 rsys;
218 
	'X' 24 rserv;
219 
	'X' 28 laddr;
220 
	'X' 32 raddr;
221 
};
222 
 
223 
defn
224 
NetConnInfo(addr) {
225 
	complex NetConnInfo addr;
226 
	print("	dir	", addr.dir\X, "\n");
227 
	print("	root	", addr.root\X, "\n");
228 
	print("	spec	", addr.spec\X, "\n");
229 
	print("	lsys	", addr.lsys\X, "\n");
230 
	print("	lserv	", addr.lserv\X, "\n");
231 
	print("	rsys	", addr.rsys\X, "\n");
232 
	print("	rserv	", addr.rserv\X, "\n");
233 
	print("	laddr	", addr.laddr\X, "\n");
234 
	print("	raddr	", addr.raddr\X, "\n");
235 
};
236 
 
237 
RFNAMEG = 1;
238 
RFENVG = 2;
239 
RFFDG = 4;
240 
RFNOTEG = 8;
241 
RFPROC = 16;
242 
RFMEM = 32;
243 
RFNOWAIT = 64;
244 
RFCNAMEG = 1024;
245 
RFCENVG = 2048;
246 
RFCFDG = 4096;
247 
RFREND = 8192;
248 
RFNOMNT = 16384;
249 
sizeofQid = 16;
250 
aggr Qid
251 
{
252 
	'W' 0 path;
253 
	'U' 8 vers;
254 
	'b' 12 type;
255 
};
256 
 
257 
defn
258 
Qid(addr) {
259 
	complex Qid addr;
260 
	print("	path	", addr.path, "\n");
261 
	print("	vers	", addr.vers, "\n");
262 
	print("	type	", addr.type, "\n");
263 
};
264 
 
265 
sizeofDir = 60;
266 
aggr Dir
267 
{
268 
	'u' 0 type;
269 
	'U' 4 dev;
270 
	Qid 8 qid;
271 
	'U' 24 mode;
272 
	'U' 28 atime;
273 
	'U' 32 mtime;
274 
	'V' 36 length;
275 
	'X' 44 name;
276 
	'X' 48 uid;
277 
	'X' 52 gid;
278 
	'X' 56 muid;
279 
};
280 
 
281 
defn
282 
Dir(addr) {
283 
	complex Dir addr;
284 
	print("	type	", addr.type, "\n");
285 
	print("	dev	", addr.dev, "\n");
286 
	print("Qid qid {\n");
287 
	Qid(addr.qid);
288 
	print("}\n");
289 
	print("	mode	", addr.mode, "\n");
290 
	print("	atime	", addr.atime, "\n");
291 
	print("	mtime	", addr.mtime, "\n");
292 
	print("	length	", addr.length, "\n");
293 
	print("	name	", addr.name\X, "\n");
294 
	print("	uid	", addr.uid\X, "\n");
295 
	print("	gid	", addr.gid\X, "\n");
296 
	print("	muid	", addr.muid\X, "\n");
297 
};
298 
 
299 
sizeofWaitmsg = 20;
300 
aggr Waitmsg
301 
{
302 
	'D' 0 pid;
303 
	'a' 4 time;
304 
	'X' 16 msg;
305 
};
306 
 
307 
defn
308 
Waitmsg(addr) {
309 
	complex Waitmsg addr;
310 
	print("	pid	", addr.pid, "\n");
311 
	print("	time	", addr.time, "\n");
312 
	print("	msg	", addr.msg\X, "\n");
313 
};
314 
 
315 
sizeofIOchunk = 8;
316 
aggr IOchunk
317 
{
318 
	'X' 0 addr;
319 
	'U' 4 len;
320 
};
321 
 
322 
defn
323 
IOchunk(addr) {
324 
	complex IOchunk addr;
325 
	print("	addr	", addr.addr\X, "\n");
326 
	print("	len	", addr.len, "\n");
327 
};
328 
 
329 
MaxFragSize = 9216;
330 
sizeofVtLog = 40;
331 
aggr VtLog
332 
{
333 
	'A' VtLog 0 next;
334 
	'X' 4 name;
335 
	'X' 8 chunk;
336 
	'U' 12 nchunk;
337 
	'X' 16 w;
338 
	QLock 20 lk;
339 
	'D' 36 ref;
340 
};
341 
 
342 
defn
343 
VtLog(addr) {
344 
	complex VtLog addr;
345 
	print("	next	", addr.next\X, "\n");
346 
	print("	name	", addr.name\X, "\n");
347 
	print("	chunk	", addr.chunk\X, "\n");
348 
	print("	nchunk	", addr.nchunk, "\n");
349 
	print("	w	", addr.w\X, "\n");
350 
	print("QLock lk {\n");
351 
	QLock(addr.lk);
352 
	print("}\n");
353 
	print("	ref	", addr.ref, "\n");
354 
};
355 
 
356 
sizeofVtLogChunk = 12;
357 
aggr VtLogChunk
358 
{
359 
	'X' 0 p;
360 
	'X' 4 ep;
361 
	'X' 8 wp;
362 
};
363 
 
364 
defn
365 
VtLogChunk(addr) {
366 
	complex VtLogChunk addr;
367 
	print("	p	", addr.p\X, "\n");
368 
	print("	ep	", addr.ep\X, "\n");
369 
	print("	wp	", addr.wp\X, "\n");
370 
};
371 
 
372 
VtScoreSize = 20;
373 
VtMaxStringSize = 1024;
374 
VtMaxLumpSize = 57344;
375 
VtPointerDepth = 7;
376 
VtDataType = 0;
377 
VtDirType = 8;
378 
VtRootType = 16;
379 
VtMaxType = 17;
380 
VtCorruptType = 255;
381 
VtTypeDepthMask = 7;
382 
VtTypeBaseMask = -8;
383 
VtEntryActive = 1;
384 
_VtEntryDir = 2;
385 
_VtEntryDepthShift = 2;
386 
_VtEntryDepthMask = 28;
387 
VtEntryLocal = 32;
388 
VtEntrySize = 40;
389 
sizeofVtEntry = 40;
390 
aggr VtEntry
391 
{
392 
	'U' 0 gen;
393 
	'u' 4 psize;
394 
	'u' 6 dsize;
395 
	'b' 8 type;
396 
	'b' 9 flags;
397 
	'W' 12 size;
398 
	'a' 20 score;
399 
};
400 
 
401 
defn
402 
VtEntry(addr) {
403 
	complex VtEntry addr;
404 
	print("	gen	", addr.gen, "\n");
405 
	print("	psize	", addr.psize, "\n");
406 
	print("	dsize	", addr.dsize, "\n");
407 
	print("	type	", addr.type, "\n");
408 
	print("	flags	", addr.flags, "\n");
409 
	print("	size	", addr.size, "\n");
410 
	print("	score	", addr.score, "\n");
411 
};
412 
 
413 
sizeofVtRoot = 300;
414 
aggr VtRoot
415 
{
416 
	'a' 0 name;
417 
	'a' 128 type;
418 
	'a' 256 score;
419 
	'u' 276 blocksize;
420 
	'a' 278 prev;
421 
};
422 
 
423 
defn
424 
VtRoot(addr) {
425 
	complex VtRoot addr;
426 
	print("	name	", addr.name, "\n");
427 
	print("	type	", addr.type, "\n");
428 
	print("	score	", addr.score, "\n");
429 
	print("	blocksize	", addr.blocksize, "\n");
430 
	print("	prev	", addr.prev, "\n");
431 
};
432 
 
433 
VtRootSize = 300;
434 
VtRootVersion = 2;
435 
VtCryptoStrengthNone = 0;
436 
VtCryptoStrengthAuth = 1;
437 
VtCryptoStrengthWeak = 2;
438 
VtCryptoStrengthStrong = 3;
439 
VtCryptoNone = 0;
440 
VtCryptoSSL3 = 1;
441 
VtCryptoTLS1 = 2;
442 
VtCryptoMax = 3;
443 
VtCodecNone = 0;
444 
VtCodecDeflate = 1;
445 
VtCodecThwack = 2;
446 
VtCodecMax = 3;
447 
VtRerror = 1;
448 
VtTping = 2;
449 
VtRping = 3;
450 
VtThello = 4;
451 
VtRhello = 5;
452 
VtTgoodbye = 6;
453 
VtRgoodbye = 7;
454 
VtTauth0 = 8;
455 
VtRauth0 = 9;
456 
VtTauth1 = 10;
457 
VtRauth1 = 11;
458 
VtTread = 12;
459 
VtRread = 13;
460 
VtTwrite = 14;
461 
VtRwrite = 15;
462 
VtTsync = 16;
463 
VtRsync = 17;
464 
VtTmax = 18;
465 
sizeofVtFcall = 80;
466 
aggr VtFcall
467 
{
468 
	'b' 0 msgtype;
469 
	'b' 1 tag;
470 
	'X' 4 error;
471 
	'X' 8 version;
472 
	'X' 12 uid;
473 
	'b' 16 strength;
474 
	'X' 20 crypto;
475 
	'U' 24 ncrypto;
476 
	'X' 28 codec;
477 
	'U' 32 ncodec;
478 
	'X' 36 sid;
479 
	'b' 40 rcrypto;
480 
	'b' 41 rcodec;
481 
	'X' 44 auth;
482 
	'U' 48 nauth;
483 
	'a' 52 score;
484 
	'b' 72 blocktype;
485 
	'u' 74 count;
486 
	'X' 76 data;
487 
};
488 
 
489 
defn
490 
VtFcall(addr) {
491 
	complex VtFcall addr;
492 
	print("	msgtype	", addr.msgtype, "\n");
493 
	print("	tag	", addr.tag, "\n");
494 
	print("	error	", addr.error\X, "\n");
495 
	print("	version	", addr.version\X, "\n");
496 
	print("	uid	", addr.uid\X, "\n");
497 
	print("	strength	", addr.strength, "\n");
498 
	print("	crypto	", addr.crypto\X, "\n");
499 
	print("	ncrypto	", addr.ncrypto, "\n");
500 
	print("	codec	", addr.codec\X, "\n");
501 
	print("	ncodec	", addr.ncodec, "\n");
502 
	print("	sid	", addr.sid\X, "\n");
503 
	print("	rcrypto	", addr.rcrypto, "\n");
504 
	print("	rcodec	", addr.rcodec, "\n");
505 
	print("	auth	", addr.auth\X, "\n");
506 
	print("	nauth	", addr.nauth, "\n");
507 
	print("	score	", addr.score, "\n");
508 
	print("	blocktype	", addr.blocktype, "\n");
509 
	print("	count	", addr.count, "\n");
510 
	print("	data	", addr.data\X, "\n");
511 
};
512 
 
513 
VtStateAlloc = 0;
514 
VtStateConnected = 1;
515 
VtStateClosed = 2;
516 
sizeofVtConn = 1404;
517 
aggr VtConn
518 
{
519 
	QLock 0 lk;
520 
	QLock 16 inlk;
521 
	QLock 32 outlk;
522 
	'D' 48 debug;
523 
	'D' 52 infd;
524 
	'D' 56 outfd;
525 
	'D' 60 muxer;
526 
	'X' 64 writeq;
527 
	'X' 68 readq;
528 
	'D' 72 state;
529 
	'a' 76 wait;
530 
	'U' 1100 ntag;
531 
	'U' 1104 nsleep;
532 
	'X' 1108 part;
533 
	Rendez 1112 tagrend;
534 
	Rendez 1124 rpcfork;
535 
	'X' 1136 version;
536 
	'X' 1140 uid;
537 
	'X' 1144 sid;
538 
	'a' 1148 addr;
539 
};
540 
 
541 
defn
542 
VtConn(addr) {
543 
	complex VtConn addr;
544 
	print("QLock lk {\n");
545 
	QLock(addr.lk);
546 
	print("}\n");
547 
	print("QLock inlk {\n");
548 
	QLock(addr.inlk);
549 
	print("}\n");
550 
	print("QLock outlk {\n");
551 
	QLock(addr.outlk);
552 
	print("}\n");
553 
	print("	debug	", addr.debug, "\n");
554 
	print("	infd	", addr.infd, "\n");
555 
	print("	outfd	", addr.outfd, "\n");
556 
	print("	muxer	", addr.muxer, "\n");
557 
	print("	writeq	", addr.writeq\X, "\n");
558 
	print("	readq	", addr.readq\X, "\n");
559 
	print("	state	", addr.state, "\n");
560 
	print("	wait	", addr.wait, "\n");
561 
	print("	ntag	", addr.ntag, "\n");
562 
	print("	nsleep	", addr.nsleep, "\n");
563 
	print("	part	", addr.part\X, "\n");
564 
	print("Rendez tagrend {\n");
565 
	Rendez(addr.tagrend);
566 
	print("}\n");
567 
	print("Rendez rpcfork {\n");
568 
	Rendez(addr.rpcfork);
569 
	print("}\n");
570 
	print("	version	", addr.version\X, "\n");
571 
	print("	uid	", addr.uid\X, "\n");
572 
	print("	sid	", addr.sid\X, "\n");
573 
	print("	addr	", addr.addr, "\n");
574 
};
575 
 
576 
sizeofVtReq = 168;
577 
aggr VtReq
578 
{
579 
	VtFcall 0 tx;
580 
	VtFcall 80 rx;
581 
	'X' 160 srv;
582 
	'X' 164 sc;
583 
};
584 
 
585 
defn
586 
VtReq(addr) {
587 
	complex VtReq addr;
588 
	print("VtFcall tx {\n");
589 
	VtFcall(addr.tx);
590 
	print("}\n");
591 
	print("VtFcall rx {\n");
592 
	VtFcall(addr.rx);
593 
	print("}\n");
594 
	print("	srv	", addr.srv\X, "\n");
595 
	print("	sc	", addr.sc\X, "\n");
596 
};
597 
 
598 
NilBlock = -1;
599 
sizeofVtBlock = 84;
600 
aggr VtBlock
601 
{
602 
	'X' 0 c;
603 
	QLock 4 lk;
604 
	'X' 20 data;
605 
	'a' 24 score;
606 
	'b' 44 type;
607 
	'D' 48 nlock;
608 
	'D' 52 iostate;
609 
	'D' 56 ref;
610 
	'U' 60 heap;
611 
	'A' VtBlock 64 next;
612 
	'A' VtBlock 68 prev;
613 
	'U' 72 used;
614 
	'U' 76 used2;
615 
	'U' 80 addr;
616 
};
617 
 
618 
defn
619 
VtBlock(addr) {
620 
	complex VtBlock addr;
621 
	print("	c	", addr.c\X, "\n");
622 
	print("QLock lk {\n");
623 
	QLock(addr.lk);
624 
	print("}\n");
625 
	print("	data	", addr.data\X, "\n");
626 
	print("	score	", addr.score, "\n");
627 
	print("	type	", addr.type, "\n");
628 
	print("	nlock	", addr.nlock, "\n");
629 
	print("	iostate	", addr.iostate, "\n");
630 
	print("	ref	", addr.ref, "\n");
631 
	print("	heap	", addr.heap, "\n");
632 
	print("	next	", addr.next\X, "\n");
633 
	print("	prev	", addr.prev\X, "\n");
634 
	print("	used	", addr.used, "\n");
635 
	print("	used2	", addr.used2, "\n");
636 
	print("	addr	", addr.addr, "\n");
637 
};
638 
 
639 
sizeofVtFile = 84;
640 
aggr VtFile
641 
{
642 
	QLock 0 lk;
643 
	'D' 16 ref;
644 
	'D' 20 $local;
645 
	'A' VtBlock 24 b;
646 
	'a' 28 score;
647 
	'X' 48 c;
648 
	'D' 52 mode;
649 
	'U' 56 gen;
650 
	'D' 60 dsize;
651 
	'D' 64 psize;
652 
	'D' 68 dir;
653 
	'A' VtFile 72 parent;
654 
	'D' 76 epb;
655 
	'U' 80 offset;
656 
};
657 
 
658 
defn
659 
VtFile(addr) {
660 
	complex VtFile addr;
661 
	print("QLock lk {\n");
662 
	QLock(addr.lk);
663 
	print("}\n");
664 
	print("	ref	", addr.ref, "\n");
665 
	print("	$local	", addr.$local, "\n");
666 
	print("	b	", addr.b\X, "\n");
667 
	print("	score	", addr.score, "\n");
668 
	print("	c	", addr.c\X, "\n");
669 
	print("	mode	", addr.mode, "\n");
670 
	print("	gen	", addr.gen, "\n");
671 
	print("	dsize	", addr.dsize, "\n");
672 
	print("	psize	", addr.psize, "\n");
673 
	print("	dir	", addr.dir, "\n");
674 
	print("	parent	", addr.parent\X, "\n");
675 
	print("	epb	", addr.epb, "\n");
676 
	print("	offset	", addr.offset, "\n");
677 
};
678 
 
679 
VtOREAD = 0;
680 
VtOWRITE = 1;
681 
VtORDWR = 2;
682 
sizeofRwait = 24;
683 
aggr Rwait
684 
{
685 
	Rendez 0 r;
686 
	'X' 12 p;
687 
	'D' 16 done;
688 
	'D' 20 sleeping;
689 
};
690 
 
691 
defn
692 
Rwait(addr) {
693 
	complex Rwait addr;
694 
	print("Rendez r {\n");
695 
	Rendez(addr.r);
696 
	print("}\n");
697 
	print("	p	", addr.p\X, "\n");
698 
	print("	done	", addr.done, "\n");
699 
	print("	sleeping	", addr.sleeping, "\n");
700 
};
701 
 
702 
complex VtConn vtrpc:z;
703 
complex Rwait vtrpc:r;
704 
complex Rwait vtrpc:rr;
705 
complex VtConn gettag:z;
706 
complex Rwait gettag:r;
707 
complex VtConn puttag:z;
708 
complex Rwait puttag:r;
709 
complex VtConn muxrpc:z;
710 
complex Rwait muxrpc:r;