Subversion Repositories planix.SVN

Rev

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

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;