ref: e8cf7530517534ccd9f5b0469191aa7c41581120
dir: /sys/src/cmd/mk/acid/
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;