acid

这是一个同样来自贝尔实验室的和UNIX有着渊源的操作系统, 其简洁的设计和实现易于我们学习和理解

sizeof_1_ = 8;
aggr _1_
{
	'D' 0 llength;
	'D' 4 hlength;
};

defn
_1_(addr) {
	complex _1_ addr;
	print("	llength	", addr.llength, "\n");
	print("	hlength	", addr.hlength, "\n");
};

sizeof_2_ = 8;
aggr _2_
{
	'V' 0 length;
	{
	'D' 0 llength;
	'D' 4 hlength;
	};
};

defn
_2_(addr) {
	complex _2_ addr;
	print("	length	", addr.length, "\n");
	print("_1_ {\n");
		_1_(addr+0);
	print("}\n");
};

UTFmax = 3;
Runesync = 128;
Runeself = 128;
Runeerror = 128;
sizeofFconv = 24;
aggr Fconv
{
	'X' 0 out;
	'X' 4 eout;
	'D' 8 f1;
	'D' 12 f2;
	'D' 16 f3;
	'D' 20 chr;
};

defn
Fconv(addr) {
	complex Fconv addr;
	print("	out	", addr.out\X, "\n");
	print("	eout	", addr.eout\X, "\n");
	print("	f1	", addr.f1, "\n");
	print("	f2	", addr.f2, "\n");
	print("	f3	", addr.f3, "\n");
	print("	chr	", addr.chr, "\n");
};

sizeofTm = 40;
aggr Tm
{
	'D' 0 sec;
	'D' 4 min;
	'D' 8 hour;
	'D' 12 mday;
	'D' 16 mon;
	'D' 20 year;
	'D' 24 wday;
	'D' 28 yday;
	'a' 32 zone;
	'D' 36 tzoff;
};

defn
Tm(addr) {
	complex Tm addr;
	print("	sec	", addr.sec, "\n");
	print("	min	", addr.min, "\n");
	print("	hour	", addr.hour, "\n");
	print("	mday	", addr.mday, "\n");
	print("	mon	", addr.mon, "\n");
	print("	year	", addr.year, "\n");
	print("	wday	", addr.wday, "\n");
	print("	yday	", addr.yday, "\n");
	print("	zone	", addr.zone, "\n");
	print("	tzoff	", addr.tzoff, "\n");
};

PNPROC = 1;
PNGROUP = 2;
sizeofLock = 4;
aggr Lock
{
	'D' 0 val;
};

defn
Lock(addr) {
	complex Lock addr;
	print("	val	", addr.val, "\n");
};

sizeofQLp = 12;
aggr QLp
{
	'D' 0 inuse;
	'A' QLp 4 next;
	'C' 8 state;
};

defn
QLp(addr) {
	complex QLp addr;
	print("	inuse	", addr.inuse, "\n");
	print("	next	", addr.next\X, "\n");
	print("	state	", addr.state, "\n");
};

sizeofQLock = 16;
aggr QLock
{
	Lock 0 lock;
	'D' 4 locked;
	'A' QLp 8 $head;
	'A' QLp 12 $tail;
};

defn
QLock(addr) {
	complex QLock addr;
	print("Lock lock {\n");
	Lock(addr.lock);
	print("}\n");
	print("	locked	", addr.locked, "\n");
	print("	$head	", addr.$head\X, "\n");
	print("	$tail	", addr.$tail\X, "\n");
};

sizeofRWLock = 20;
aggr RWLock
{
	Lock 0 lock;
	'D' 4 readers;
	'D' 8 writer;
	'A' QLp 12 $head;
	'A' QLp 16 $tail;
};

defn
RWLock(addr) {
	complex RWLock addr;
	print("Lock lock {\n");
	Lock(addr.lock);
	print("}\n");
	print("	readers	", addr.readers, "\n");
	print("	writer	", addr.writer, "\n");
	print("	$head	", addr.$head\X, "\n");
	print("	$tail	", addr.$tail\X, "\n");
};

RFNAMEG = 1;
RFENVG = 2;
RFFDG = 4;
RFNOTEG = 8;
RFPROC = 16;
RFMEM = 32;
RFNOWAIT = 64;
RFCNAMEG = 1024;
RFCENVG = 2048;
RFCFDG = 4096;
RFREND = 8192;
sizeofQid = 8;
aggr Qid
{
	'U' 0 path;
	'U' 4 vers;
};

defn
Qid(addr) {
	complex Qid addr;
	print("	path	", addr.path, "\n");
	print("	vers	", addr.vers, "\n");
};

sizeofDir = 116;
aggr Dir
{
	'a' 0 name;
	'a' 28 uid;
	'a' 56 gid;
	Qid 84 qid;
	'U' 92 mode;
	'D' 96 atime;
	'D' 100 mtime;
	{
	'V' 104 length;
	{
	'D' 104 llength;
	'D' 108 hlength;
	};
	};
	'u' 112 type;
	'u' 114 dev;
};

defn
Dir(addr) {
	complex Dir addr;
	print("	name	", addr.name, "\n");
	print("	uid	", addr.uid, "\n");
	print("	gid	", addr.gid, "\n");
	print("Qid qid {\n");
	Qid(addr.qid);
	print("}\n");
	print("	mode	", addr.mode, "\n");
	print("	atime	", addr.atime, "\n");
	print("	mtime	", addr.mtime, "\n");
	print("_2_ {\n");
		_2_(addr+104);
	print("}\n");
	print("	type	", addr.type, "\n");
	print("	dev	", addr.dev, "\n");
};

sizeofWaitmsg = 112;
aggr Waitmsg
{
	'a' 0 pid;
	'a' 12 time;
	'a' 48 msg;
};

defn
Waitmsg(addr) {
	complex Waitmsg addr;
	print("	pid	", addr.pid, "\n");
	print("	time	", addr.time, "\n");
	print("	msg	", addr.msg, "\n");
};

Bsize = 8192;
Bungetsize = 4;
Bmagic = 3227993;
Beof = -1;
Bbad = -2;
Binactive = 0;
Bractive = 1;
Bwactive = 2;
Bracteof = 3;
sizeofBiobufhdr = 52;
aggr Biobufhdr
{
	'D' 0 icount;
	'D' 4 ocount;
	'D' 8 rdline;
	'D' 12 runesize;
	'D' 16 state;
	'D' 20 fid;
	'D' 24 flag;
	'V' 28 offset;
	'D' 36 bsize;
	'X' 40 bbuf;
	'X' 44 ebuf;
	'X' 48 gbuf;
};

defn
Biobufhdr(addr) {
	complex Biobufhdr addr;
	print("	icount	", addr.icount, "\n");
	print("	ocount	", addr.ocount, "\n");
	print("	rdline	", addr.rdline, "\n");
	print("	runesize	", addr.runesize, "\n");
	print("	state	", addr.state, "\n");
	print("	fid	", addr.fid, "\n");
	print("	flag	", addr.flag, "\n");
	print("	offset	", addr.offset, "\n");
	print("	bsize	", addr.bsize, "\n");
	print("	bbuf	", addr.bbuf\X, "\n");
	print("	ebuf	", addr.ebuf\X, "\n");
	print("	gbuf	", addr.gbuf\X, "\n");
};

sizeofBiobuf = 8248;
aggr Biobuf
{
	{
	'D' 0 icount;
	'D' 4 ocount;
	'D' 8 rdline;
	'D' 12 runesize;
	'D' 16 state;
	'D' 20 fid;
	'D' 24 flag;
	'V' 28 offset;
	'D' 36 bsize;
	'X' 40 bbuf;
	'X' 44 ebuf;
	'X' 48 gbuf;
	};
	'a' 52 b;
};

defn
Biobuf(addr) {
	complex Biobuf addr;
	print("Biobufhdr {\n");
		Biobufhdr(addr+0);
	print("}\n");
	print("	b	", addr.b, "\n");
};

sizeof_3_ = 4;
aggr _3_
{
	'X' 0 sp;
	'X' 0 rsp;
};

defn
_3_(addr) {
	complex _3_ addr;
	print("	sp	", addr.sp\X, "\n");
	print("	rsp	", addr.rsp\X, "\n");
};

sizeof_4_ = 4;
aggr _4_
{
	'X' 0 ep;
	'X' 0 rep;
};

defn
_4_(addr) {
	complex _4_ addr;
	print("	ep	", addr.ep\X, "\n");
	print("	rep	", addr.rep\X, "\n");
};

sizeofResub = 8;
aggr Resub
{
	{
	'X' 0 sp;
	'X' 0 rsp;
	};
	{
	'X' 4 ep;
	'X' 4 rep;
	};
};

defn
Resub(addr) {
	complex Resub addr;
	print("_3_ {\n");
		_3_(addr+0);
	print("}\n");
	print("_4_ {\n");
		_4_(addr+4);
	print("}\n");
};

sizeofReclass = 132;
aggr Reclass
{
	'X' 0 end;
	'a' 4 spans;
};

defn
Reclass(addr) {
	complex Reclass addr;
	print("	end	", addr.end\X, "\n");
	print("	spans	", addr.spans, "\n");
};

sizeof_5_ = 4;
aggr _5_
{
	'A' Reclass 0 cp;
	'u' 0 r;
	'D' 0 subid;
	'X' 0 right;
};

defn
_5_(addr) {
	complex _5_ addr;
	print("	cp	", addr.cp\X, "\n");
	print("	r	", addr.r, "\n");
	print("	subid	", addr.subid, "\n");
	print("	right	", addr.right\X, "\n");
};

sizeof_6_ = 4;
aggr _6_
{
	'X' 0 left;
	'X' 0 next;
};

defn
_6_(addr) {
	complex _6_ addr;
	print("	left	", addr.left\X, "\n");
	print("	next	", addr.next\X, "\n");
};

sizeofReinst = 12;
aggr Reinst
{
	'D' 0 type;
	{
	'A' Reclass 4 cp;
	'u' 4 r;
	'D' 4 subid;
	'A' Reinst 4 right;
	};
	{
	'A' Reinst 8 left;
	'A' Reinst 8 next;
	};
};

defn
Reinst(addr) {
	complex Reinst addr;
	print("	type	", addr.type, "\n");
	print("_5_ {\n");
		_5_(addr+4);
	print("}\n");
	print("_6_ {\n");
		_6_(addr+8);
	print("}\n");
};

sizeofReprog = 2176;
aggr Reprog
{
	'A' Reinst 0 startinst;
	'a' 4 class;
	'a' 2116 firstinst;
};

defn
Reprog(addr) {
	complex Reprog addr;
	print("	startinst	", addr.startinst\X, "\n");
	print("	class	", addr.class, "\n");
	print("	firstinst	", addr.firstinst, "\n");
};

complex Biobuf bout;
sizeofBufblock = 16;
aggr Bufblock
{
	'A' Bufblock 0 next;
	'X' 4 start;
	'X' 8 end;
	'X' 12 current;
};

defn
Bufblock(addr) {
	complex Bufblock addr;
	print("	next	", addr.next\X, "\n");
	print("	start	", addr.start\X, "\n");
	print("	end	", addr.end\X, "\n");
	print("	current	", addr.current\X, "\n");
};

sizeofWord = 8;
aggr Word
{
	'X' 0 s;
	'A' Word 4 next;
};

defn
Word(addr) {
	complex Word addr;
	print("	s	", addr.s\X, "\n");
	print("	next	", addr.next\X, "\n");
};

sizeofEnvy = 8;
aggr Envy
{
	'X' 0 name;
	'A' Word 4 values;
};

defn
Envy(addr) {
	complex Envy addr;
	print("	name	", addr.name\X, "\n");
	print("	values	", addr.values\X, "\n");
};

complex Envy envy;
sizeofRule = 44;
aggr Rule
{
	'X' 0 target;
	'A' Word 4 $tail;
	'X' 8 recipe;
	'd' 12 attr;
	'd' 14 line;
	'X' 16 file;
	'A' Word 20 alltargets;
	'D' 24 rule;
	'A' Reprog 28 pat;
	'X' 32 prog;
	'A' Rule 36 chain;
	'A' Rule 40 next;
};

defn
Rule(addr) {
	complex Rule addr;
	print("	target	", addr.target\X, "\n");
	print("	$tail	", addr.$tail\X, "\n");
	print("	recipe	", addr.recipe\X, "\n");
	print("	attr	", addr.attr, "\n");
	print("	line	", addr.line, "\n");
	print("	file	", addr.file\X, "\n");
	print("	alltargets	", addr.alltargets\X, "\n");
	print("	rule	", addr.rule, "\n");
	print("	pat	", addr.pat\X, "\n");
	print("	prog	", addr.prog\X, "\n");
	print("	chain	", addr.chain\X, "\n");
	print("	next	", addr.next\X, "\n");
};

complex Rule rules;
complex Rule metarules;
complex Rule patrule;
sizeofArc = 64;
aggr Arc
{
	'd' 0 flag;
	'X' 4 n;
	'A' Rule 8 r;
	'X' 12 stem;
	'X' 16 prog;
	'a' 20 match;
	'A' Arc 60 next;
};

defn
Arc(addr) {
	complex Arc addr;
	print("	flag	", addr.flag, "\n");
	print("	n	", addr.n\X, "\n");
	print("	r	", addr.r\X, "\n");
	print("	stem	", addr.stem\X, "\n");
	print("	prog	", addr.prog\X, "\n");
	print("	match	", addr.match, "\n");
	print("	next	", addr.next\X, "\n");
};

sizeofNode = 20;
aggr Node
{
	'X' 0 name;
	'D' 4 time;
	'u' 8 flags;
	'A' Arc 12 prereqs;
	'A' Node 16 next;
};

defn
Node(addr) {
	complex Node addr;
	print("	name	", addr.name\X, "\n");
	print("	time	", addr.time, "\n");
	print("	flags	", addr.flags, "\n");
	print("	prereqs	", addr.prereqs\X, "\n");
	print("	next	", addr.next\X, "\n");
};

sizeofJob = 40;
aggr Job
{
	'A' Rule 0 r;
	'A' Node 4 n;
	'X' 8 stem;
	'X' 12 match;
	'A' Word 16 p;
	'A' Word 20 np;
	'A' Word 24 t;
	'A' Word 28 at;
	'D' 32 nproc;
	'A' Job 36 next;
};

defn
Job(addr) {
	complex Job addr;
	print("	r	", addr.r\X, "\n");
	print("	n	", addr.n\X, "\n");
	print("	stem	", addr.stem\X, "\n");
	print("	match	", addr.match\X, "\n");
	print("	p	", addr.p\X, "\n");
	print("	np	", addr.np\X, "\n");
	print("	t	", addr.t\X, "\n");
	print("	at	", addr.at\X, "\n");
	print("	nproc	", addr.nproc, "\n");
	print("	next	", addr.next\X, "\n");
};

complex Job jobs;
sizeofSymtab = 16;
aggr Symtab
{
	'd' 0 space;
	'X' 4 name;
	'X' 8 value;
	'A' Symtab 12 next;
};

defn
Symtab(addr) {
	complex Symtab addr;
	print("	space	", addr.space, "\n");
	print("	name	", addr.name\X, "\n");
	print("	value	", addr.value\X, "\n");
	print("	next	", addr.next\X, "\n");
};

S_VAR = 0;
S_TARGET = 1;
S_TIME = 2;
S_PID = 3;
S_NODE = 4;
S_AGG = 5;
S_BITCH = 6;
S_NOEXPORT = 7;
S_OVERRIDE = 8;
S_OUTOFDATE = 9;
S_MAKEFILE = 10;
S_MAKEVAR = 11;
S_EXPORTED = 12;
S_BULKED = 13;
S_WESET = 14;
S_INTERNAL = 15;
complex Word readenv:w;
complex Word encodenulls:w;
complex Word encodenulls:$head;
complex Envy exportenv:e;
complex Word exportenv:w;
complex Symtab exportenv:sy;
complex Dir dirtime:d;
complex Waitmsg waitfor:wm;
complex Bufblock execsh:buf;
complex Envy execsh:e;
complex Envy pipecmd:e;
complex Dir chgtime:sbuf;
complex Resub rcopy:match;
complex Dir mkdirstat:buf;