dn.acid 20 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142
  1. sizeof_1_ = 8;
  2. aggr _1_
  3. {
  4. 'U' 0 lo;
  5. 'U' 4 hi;
  6. };
  7. defn
  8. _1_(addr) {
  9. complex _1_ addr;
  10. print(" lo ", addr.lo, "\n");
  11. print(" hi ", addr.hi, "\n");
  12. };
  13. sizeofFPdbleword = 8;
  14. aggr FPdbleword
  15. {
  16. 'F' 0 x;
  17. {
  18. 'U' 0 lo;
  19. 'U' 4 hi;
  20. };
  21. };
  22. defn
  23. FPdbleword(addr) {
  24. complex FPdbleword addr;
  25. print(" x ", addr.x, "\n");
  26. print("_1_ {\n");
  27. _1_(addr+0);
  28. print("}\n");
  29. };
  30. UTFmax = 3;
  31. Runesync = 128;
  32. Runeself = 128;
  33. Runeerror = 65533;
  34. sizeofFmt = 48;
  35. aggr Fmt
  36. {
  37. 'b' 0 runes;
  38. 'X' 4 start;
  39. 'X' 8 to;
  40. 'X' 12 stop;
  41. 'X' 16 flush;
  42. 'X' 20 farg;
  43. 'D' 24 nfmt;
  44. 'X' 28 args;
  45. 'D' 32 r;
  46. 'D' 36 width;
  47. 'D' 40 prec;
  48. 'U' 44 flags;
  49. };
  50. defn
  51. Fmt(addr) {
  52. complex Fmt addr;
  53. print(" runes ", addr.runes, "\n");
  54. print(" start ", addr.start\X, "\n");
  55. print(" to ", addr.to\X, "\n");
  56. print(" stop ", addr.stop\X, "\n");
  57. print(" flush ", addr.flush\X, "\n");
  58. print(" farg ", addr.farg\X, "\n");
  59. print(" nfmt ", addr.nfmt, "\n");
  60. print(" args ", addr.args\X, "\n");
  61. print(" r ", addr.r, "\n");
  62. print(" width ", addr.width, "\n");
  63. print(" prec ", addr.prec, "\n");
  64. print(" flags ", addr.flags, "\n");
  65. };
  66. FmtWidth = 1;
  67. FmtLeft = 2;
  68. FmtPrec = 4;
  69. FmtSharp = 8;
  70. FmtSpace = 16;
  71. FmtSign = 32;
  72. FmtZero = 64;
  73. FmtUnsigned = 128;
  74. FmtShort = 256;
  75. FmtLong = 512;
  76. FmtVLong = 1024;
  77. FmtComma = 2048;
  78. FmtByte = 4096;
  79. FmtFlag = 8192;
  80. sizeofTm = 40;
  81. aggr Tm
  82. {
  83. 'D' 0 sec;
  84. 'D' 4 min;
  85. 'D' 8 hour;
  86. 'D' 12 mday;
  87. 'D' 16 mon;
  88. 'D' 20 year;
  89. 'D' 24 wday;
  90. 'D' 28 yday;
  91. 'a' 32 zone;
  92. 'D' 36 tzoff;
  93. };
  94. defn
  95. Tm(addr) {
  96. complex Tm addr;
  97. print(" sec ", addr.sec, "\n");
  98. print(" min ", addr.min, "\n");
  99. print(" hour ", addr.hour, "\n");
  100. print(" mday ", addr.mday, "\n");
  101. print(" mon ", addr.mon, "\n");
  102. print(" year ", addr.year, "\n");
  103. print(" wday ", addr.wday, "\n");
  104. print(" yday ", addr.yday, "\n");
  105. print(" zone ", addr.zone, "\n");
  106. print(" tzoff ", addr.tzoff, "\n");
  107. };
  108. PNPROC = 1;
  109. PNGROUP = 2;
  110. Profoff = 0;
  111. Profuser = 1;
  112. Profkernel = 2;
  113. Proftime = 3;
  114. Profsample = 4;
  115. sizeofLock = 4;
  116. aggr Lock
  117. {
  118. 'D' 0 val;
  119. };
  120. defn
  121. Lock(addr) {
  122. complex Lock addr;
  123. print(" val ", addr.val, "\n");
  124. };
  125. sizeofQLp = 12;
  126. aggr QLp
  127. {
  128. 'D' 0 inuse;
  129. 'A' QLp 4 next;
  130. 'C' 8 state;
  131. };
  132. defn
  133. QLp(addr) {
  134. complex QLp addr;
  135. print(" inuse ", addr.inuse, "\n");
  136. print(" next ", addr.next\X, "\n");
  137. print(" state ", addr.state, "\n");
  138. };
  139. sizeofQLock = 16;
  140. aggr QLock
  141. {
  142. Lock 0 lock;
  143. 'D' 4 locked;
  144. 'A' QLp 8 $head;
  145. 'A' QLp 12 $tail;
  146. };
  147. defn
  148. QLock(addr) {
  149. complex QLock addr;
  150. print("Lock lock {\n");
  151. Lock(addr.lock);
  152. print("}\n");
  153. print(" locked ", addr.locked, "\n");
  154. print(" $head ", addr.$head\X, "\n");
  155. print(" $tail ", addr.$tail\X, "\n");
  156. };
  157. sizeofRWLock = 20;
  158. aggr RWLock
  159. {
  160. Lock 0 lock;
  161. 'D' 4 readers;
  162. 'D' 8 writer;
  163. 'A' QLp 12 $head;
  164. 'A' QLp 16 $tail;
  165. };
  166. defn
  167. RWLock(addr) {
  168. complex RWLock addr;
  169. print("Lock lock {\n");
  170. Lock(addr.lock);
  171. print("}\n");
  172. print(" readers ", addr.readers, "\n");
  173. print(" writer ", addr.writer, "\n");
  174. print(" $head ", addr.$head\X, "\n");
  175. print(" $tail ", addr.$tail\X, "\n");
  176. };
  177. sizeofRendez = 12;
  178. aggr Rendez
  179. {
  180. 'A' QLock 0 l;
  181. 'A' QLp 4 $head;
  182. 'A' QLp 8 $tail;
  183. };
  184. defn
  185. Rendez(addr) {
  186. complex Rendez addr;
  187. print(" l ", addr.l\X, "\n");
  188. print(" $head ", addr.$head\X, "\n");
  189. print(" $tail ", addr.$tail\X, "\n");
  190. };
  191. sizeofNetConnInfo = 36;
  192. aggr NetConnInfo
  193. {
  194. 'X' 0 dir;
  195. 'X' 4 root;
  196. 'X' 8 spec;
  197. 'X' 12 lsys;
  198. 'X' 16 lserv;
  199. 'X' 20 rsys;
  200. 'X' 24 rserv;
  201. 'X' 28 laddr;
  202. 'X' 32 raddr;
  203. };
  204. defn
  205. NetConnInfo(addr) {
  206. complex NetConnInfo addr;
  207. print(" dir ", addr.dir\X, "\n");
  208. print(" root ", addr.root\X, "\n");
  209. print(" spec ", addr.spec\X, "\n");
  210. print(" lsys ", addr.lsys\X, "\n");
  211. print(" lserv ", addr.lserv\X, "\n");
  212. print(" rsys ", addr.rsys\X, "\n");
  213. print(" rserv ", addr.rserv\X, "\n");
  214. print(" laddr ", addr.laddr\X, "\n");
  215. print(" raddr ", addr.raddr\X, "\n");
  216. };
  217. RFNAMEG = 1;
  218. RFENVG = 2;
  219. RFFDG = 4;
  220. RFNOTEG = 8;
  221. RFPROC = 16;
  222. RFMEM = 32;
  223. RFNOWAIT = 64;
  224. RFCNAMEG = 1024;
  225. RFCENVG = 2048;
  226. RFCFDG = 4096;
  227. RFREND = 8192;
  228. RFNOMNT = 16384;
  229. sizeofQid = 16;
  230. aggr Qid
  231. {
  232. 'W' 0 path;
  233. 'U' 8 vers;
  234. 'b' 12 type;
  235. };
  236. defn
  237. Qid(addr) {
  238. complex Qid addr;
  239. print(" path ", addr.path, "\n");
  240. print(" vers ", addr.vers, "\n");
  241. print(" type ", addr.type, "\n");
  242. };
  243. sizeofDir = 60;
  244. aggr Dir
  245. {
  246. 'u' 0 type;
  247. 'U' 4 dev;
  248. Qid 8 qid;
  249. 'U' 24 mode;
  250. 'U' 28 atime;
  251. 'U' 32 mtime;
  252. 'V' 36 length;
  253. 'X' 44 name;
  254. 'X' 48 uid;
  255. 'X' 52 gid;
  256. 'X' 56 muid;
  257. };
  258. defn
  259. Dir(addr) {
  260. complex Dir addr;
  261. print(" type ", addr.type, "\n");
  262. print(" dev ", addr.dev, "\n");
  263. print("Qid qid {\n");
  264. Qid(addr.qid);
  265. print("}\n");
  266. print(" mode ", addr.mode, "\n");
  267. print(" atime ", addr.atime, "\n");
  268. print(" mtime ", addr.mtime, "\n");
  269. print(" length ", addr.length, "\n");
  270. print(" name ", addr.name\X, "\n");
  271. print(" uid ", addr.uid\X, "\n");
  272. print(" gid ", addr.gid\X, "\n");
  273. print(" muid ", addr.muid\X, "\n");
  274. };
  275. sizeofWaitmsg = 20;
  276. aggr Waitmsg
  277. {
  278. 'D' 0 pid;
  279. 'a' 4 time;
  280. 'X' 16 msg;
  281. };
  282. defn
  283. Waitmsg(addr) {
  284. complex Waitmsg addr;
  285. print(" pid ", addr.pid, "\n");
  286. print(" time ", addr.time, "\n");
  287. print(" msg ", addr.msg\X, "\n");
  288. };
  289. sizeofIOchunk = 8;
  290. aggr IOchunk
  291. {
  292. 'X' 0 addr;
  293. 'U' 4 len;
  294. };
  295. defn
  296. IOchunk(addr) {
  297. complex IOchunk addr;
  298. print(" addr ", addr.addr\X, "\n");
  299. print(" len ", addr.len, "\n");
  300. };
  301. IPaddrlen = 16;
  302. IPv4addrlen = 4;
  303. IPv4off = 12;
  304. IPllen = 4;
  305. sizeofIplifc = 60;
  306. aggr Iplifc
  307. {
  308. 'A' Iplifc 0 next;
  309. 'a' 4 ip;
  310. 'a' 20 mask;
  311. 'a' 36 net;
  312. 'U' 52 preflt;
  313. 'U' 56 validlt;
  314. };
  315. defn
  316. Iplifc(addr) {
  317. complex Iplifc addr;
  318. print(" next ", addr.next\X, "\n");
  319. print(" ip ", addr.ip, "\n");
  320. print(" mask ", addr.mask, "\n");
  321. print(" net ", addr.net, "\n");
  322. print(" preflt ", addr.preflt, "\n");
  323. print(" validlt ", addr.validlt, "\n");
  324. };
  325. sizeofIpv6rp = 36;
  326. aggr Ipv6rp
  327. {
  328. 'D' 0 mflag;
  329. 'D' 4 oflag;
  330. 'D' 8 maxraint;
  331. 'D' 12 minraint;
  332. 'D' 16 linkmtu;
  333. 'D' 20 reachtime;
  334. 'D' 24 rxmitra;
  335. 'D' 28 ttl;
  336. 'D' 32 routerlt;
  337. };
  338. defn
  339. Ipv6rp(addr) {
  340. complex Ipv6rp addr;
  341. print(" mflag ", addr.mflag, "\n");
  342. print(" oflag ", addr.oflag, "\n");
  343. print(" maxraint ", addr.maxraint, "\n");
  344. print(" minraint ", addr.minraint, "\n");
  345. print(" linkmtu ", addr.linkmtu, "\n");
  346. print(" reachtime ", addr.reachtime, "\n");
  347. print(" rxmitra ", addr.rxmitra, "\n");
  348. print(" ttl ", addr.ttl, "\n");
  349. print(" routerlt ", addr.routerlt, "\n");
  350. };
  351. sizeofIpifc = 136;
  352. aggr Ipifc
  353. {
  354. 'A' Ipifc 0 next;
  355. 'A' Iplifc 4 lifc;
  356. 'D' 8 index;
  357. 'a' 12 dev;
  358. 'b' 76 sendra6;
  359. 'b' 77 recvra6;
  360. 'D' 80 mtu;
  361. 'U' 84 pktin;
  362. 'U' 88 pktout;
  363. 'U' 92 errin;
  364. 'U' 96 errout;
  365. Ipv6rp 100 rp;
  366. };
  367. defn
  368. Ipifc(addr) {
  369. complex Ipifc addr;
  370. print(" next ", addr.next\X, "\n");
  371. print(" lifc ", addr.lifc\X, "\n");
  372. print(" index ", addr.index, "\n");
  373. print(" dev ", addr.dev, "\n");
  374. print(" sendra6 ", addr.sendra6, "\n");
  375. print(" recvra6 ", addr.recvra6, "\n");
  376. print(" mtu ", addr.mtu, "\n");
  377. print(" pktin ", addr.pktin, "\n");
  378. print(" pktout ", addr.pktout, "\n");
  379. print(" errin ", addr.errin, "\n");
  380. print(" errout ", addr.errout, "\n");
  381. print("Ipv6rp rp {\n");
  382. Ipv6rp(addr.rp);
  383. print("}\n");
  384. };
  385. OUdphdrsize = 36;
  386. sizeofOUdphdr = 36;
  387. aggr OUdphdr
  388. {
  389. 'a' 0 raddr;
  390. 'a' 16 laddr;
  391. 'a' 32 rport;
  392. 'a' 34 lport;
  393. };
  394. defn
  395. OUdphdr(addr) {
  396. complex OUdphdr addr;
  397. print(" raddr ", addr.raddr, "\n");
  398. print(" laddr ", addr.laddr, "\n");
  399. print(" rport ", addr.rport, "\n");
  400. print(" lport ", addr.lport, "\n");
  401. };
  402. Udphdrsize = 52;
  403. sizeofUdphdr = 52;
  404. aggr Udphdr
  405. {
  406. 'a' 0 raddr;
  407. 'a' 16 laddr;
  408. 'a' 32 ifcaddr;
  409. 'a' 48 rport;
  410. 'a' 50 lport;
  411. };
  412. defn
  413. Udphdr(addr) {
  414. complex Udphdr addr;
  415. print(" raddr ", addr.raddr, "\n");
  416. print(" laddr ", addr.laddr, "\n");
  417. print(" ifcaddr ", addr.ifcaddr, "\n");
  418. print(" rport ", addr.rport, "\n");
  419. print(" lport ", addr.lport, "\n");
  420. };
  421. sizeofPool = 88;
  422. aggr Pool
  423. {
  424. 'X' 0 name;
  425. 'U' 4 maxsize;
  426. 'U' 8 cursize;
  427. 'U' 12 curfree;
  428. 'U' 16 curalloc;
  429. 'U' 20 minarena;
  430. 'U' 24 quantum;
  431. 'U' 28 minblock;
  432. 'X' 32 freeroot;
  433. 'X' 36 arenalist;
  434. 'X' 40 alloc;
  435. 'X' 44 merge;
  436. 'X' 48 move;
  437. 'D' 52 flags;
  438. 'D' 56 nfree;
  439. 'D' 60 lastcompact;
  440. 'X' 64 lock;
  441. 'X' 68 unlock;
  442. 'X' 72 print;
  443. 'X' 76 panic;
  444. 'X' 80 logstack;
  445. 'X' 84 private;
  446. };
  447. defn
  448. Pool(addr) {
  449. complex Pool addr;
  450. print(" name ", addr.name\X, "\n");
  451. print(" maxsize ", addr.maxsize, "\n");
  452. print(" cursize ", addr.cursize, "\n");
  453. print(" curfree ", addr.curfree, "\n");
  454. print(" curalloc ", addr.curalloc, "\n");
  455. print(" minarena ", addr.minarena, "\n");
  456. print(" quantum ", addr.quantum, "\n");
  457. print(" minblock ", addr.minblock, "\n");
  458. print(" freeroot ", addr.freeroot\X, "\n");
  459. print(" arenalist ", addr.arenalist\X, "\n");
  460. print(" alloc ", addr.alloc\X, "\n");
  461. print(" merge ", addr.merge\X, "\n");
  462. print(" move ", addr.move\X, "\n");
  463. print(" flags ", addr.flags, "\n");
  464. print(" nfree ", addr.nfree, "\n");
  465. print(" lastcompact ", addr.lastcompact, "\n");
  466. print(" lock ", addr.lock\X, "\n");
  467. print(" unlock ", addr.unlock\X, "\n");
  468. print(" print ", addr.print\X, "\n");
  469. print(" panic ", addr.panic\X, "\n");
  470. print(" logstack ", addr.logstack\X, "\n");
  471. print(" private ", addr.private\X, "\n");
  472. };
  473. complex Pool mainmem;
  474. complex Pool imagmem;
  475. POOL_ANTAGONISM = 1;
  476. POOL_PARANOIA = 2;
  477. POOL_VERBOSITY = 4;
  478. POOL_DEBUGGING = 8;
  479. POOL_LOGGING = 16;
  480. POOL_TOLERANCE = 32;
  481. POOL_NOREUSE = 64;
  482. Ta = 1;
  483. Tns = 2;
  484. Tmd = 3;
  485. Tmf = 4;
  486. Tcname = 5;
  487. Tsoa = 6;
  488. Tmb = 7;
  489. Tmg = 8;
  490. Tmr = 9;
  491. Tnull = 10;
  492. Twks = 11;
  493. Tptr = 12;
  494. Thinfo = 13;
  495. Tminfo = 14;
  496. Tmx = 15;
  497. Ttxt = 16;
  498. Trp = 17;
  499. Tafsdb = 18;
  500. Tx25 = 19;
  501. Tisdn = 20;
  502. Trt = 21;
  503. Tnsap = 22;
  504. Tnsapptr = 23;
  505. Tsig = 24;
  506. Tkey = 25;
  507. Tpx = 26;
  508. Tgpos = 27;
  509. Taaaa = 28;
  510. Tloc = 29;
  511. Tnxt = 30;
  512. Teid = 31;
  513. Tnimloc = 32;
  514. Tsrv = 33;
  515. Tatma = 34;
  516. Tnaptr = 35;
  517. Tkx = 36;
  518. Tcert = 37;
  519. Ta6 = 38;
  520. Tdname = 39;
  521. Tsink = 40;
  522. Topt = 41;
  523. Tapl = 42;
  524. Tds = 43;
  525. Tsshfp = 44;
  526. Tipseckey = 45;
  527. Trrsig = 46;
  528. Tnsec = 47;
  529. Tdnskey = 48;
  530. Tspf = 99;
  531. Tuinfo = 100;
  532. Tuid = 101;
  533. Tgid = 102;
  534. Tunspec = 103;
  535. Ttkey = 249;
  536. Ttsig = 250;
  537. Tixfr = 251;
  538. Taxfr = 252;
  539. Tmailb = 253;
  540. Tmaila = 254;
  541. Tall = 255;
  542. Csym = 0;
  543. Cin = 1;
  544. Ccs = 2;
  545. Cch = 3;
  546. Chs = 4;
  547. Call = 255;
  548. Oquery = 0;
  549. Oinverse = 2048;
  550. Ostatus = 4096;
  551. Onotify = 8192;
  552. Oupdate = 10240;
  553. Omask = 30720;
  554. Rok = 0;
  555. Rformat = 1;
  556. Rserver = 2;
  557. Rname = 3;
  558. Runimplimented = 4;
  559. Rrefused = 5;
  560. Ryxdomain = 6;
  561. Ryxrrset = 7;
  562. Rnxrrset = 8;
  563. Rnotauth = 9;
  564. Rnotzone = 10;
  565. Rbadvers = 16;
  566. Rbadkey = 17;
  567. Rbadtime = 18;
  568. Rbadmode = 19;
  569. Rbadname = 20;
  570. Rbadalg = 21;
  571. Rmask = 31;
  572. Rtimeout = 32;
  573. Fresp = 32768;
  574. Fauth = 1024;
  575. Ftrunc = 512;
  576. Frecurse = 256;
  577. Fcanrec = 128;
  578. Domlen = 256;
  579. Labellen = 256;
  580. Strlen = 256;
  581. Iplen = 32;
  582. Min = 60;
  583. Hour = 3600;
  584. Day = 86400;
  585. Week = 604800;
  586. Year = 31449600;
  587. DEFTTL = 86400;
  588. Reserved = 300;
  589. Maxudp = 512;
  590. Maxudpin = 2048;
  591. HTLEN = 4096;
  592. RRmagic = 3735927486;
  593. DNmagic = 2702221584;
  594. Maxactive = 32;
  595. sizeofRequest = 20;
  596. aggr Request
  597. {
  598. 'D' 0 isslave;
  599. 'U' 4 aborttime;
  600. 'a' 8 mret;
  601. 'D' 16 id;
  602. };
  603. defn
  604. Request(addr) {
  605. complex Request addr;
  606. print(" isslave ", addr.isslave, "\n");
  607. print(" aborttime ", addr.aborttime, "\n");
  608. print(" mret ", addr.mret, "\n");
  609. print(" id ", addr.id, "\n");
  610. };
  611. sizeofDN = 32;
  612. aggr DN
  613. {
  614. 'A' DN 0 next;
  615. 'U' 4 magic;
  616. 'X' 8 name;
  617. 'X' 12 rr;
  618. 'U' 16 referenced;
  619. 'U' 20 lookuptime;
  620. 'u' 24 class;
  621. 'C' 26 refs;
  622. 'C' 27 nonexistent;
  623. 'U' 28 ordinal;
  624. };
  625. defn
  626. DN(addr) {
  627. complex DN addr;
  628. print(" next ", addr.next\X, "\n");
  629. print(" magic ", addr.magic, "\n");
  630. print(" name ", addr.name\X, "\n");
  631. print(" rr ", addr.rr\X, "\n");
  632. print(" referenced ", addr.referenced, "\n");
  633. print(" lookuptime ", addr.lookuptime, "\n");
  634. print(" class ", addr.class, "\n");
  635. print(" refs ", addr.refs, "\n");
  636. print(" nonexistent ", addr.nonexistent, "\n");
  637. print(" ordinal ", addr.ordinal, "\n");
  638. };
  639. sizeofKey = 20;
  640. aggr Key
  641. {
  642. 'D' 0 flags;
  643. 'D' 4 proto;
  644. 'D' 8 alg;
  645. 'D' 12 dlen;
  646. 'X' 16 data;
  647. };
  648. defn
  649. Key(addr) {
  650. complex Key addr;
  651. print(" flags ", addr.flags, "\n");
  652. print(" proto ", addr.proto, "\n");
  653. print(" alg ", addr.alg, "\n");
  654. print(" dlen ", addr.dlen, "\n");
  655. print(" data ", addr.data\X, "\n");
  656. };
  657. sizeofCert = 20;
  658. aggr Cert
  659. {
  660. 'D' 0 type;
  661. 'D' 4 tag;
  662. 'D' 8 alg;
  663. 'D' 12 dlen;
  664. 'X' 16 data;
  665. };
  666. defn
  667. Cert(addr) {
  668. complex Cert addr;
  669. print(" type ", addr.type, "\n");
  670. print(" tag ", addr.tag, "\n");
  671. print(" alg ", addr.alg, "\n");
  672. print(" dlen ", addr.dlen, "\n");
  673. print(" data ", addr.data\X, "\n");
  674. };
  675. sizeofSig = 40;
  676. aggr Sig
  677. {
  678. 'D' 0 type;
  679. 'D' 4 alg;
  680. 'D' 8 labels;
  681. 'U' 12 ttl;
  682. 'U' 16 exp;
  683. 'U' 20 incep;
  684. 'D' 24 tag;
  685. 'A' DN 28 signer;
  686. 'D' 32 dlen;
  687. 'X' 36 data;
  688. };
  689. defn
  690. Sig(addr) {
  691. complex Sig addr;
  692. print(" type ", addr.type, "\n");
  693. print(" alg ", addr.alg, "\n");
  694. print(" labels ", addr.labels, "\n");
  695. print(" ttl ", addr.ttl, "\n");
  696. print(" exp ", addr.exp, "\n");
  697. print(" incep ", addr.incep, "\n");
  698. print(" tag ", addr.tag, "\n");
  699. print(" signer ", addr.signer\X, "\n");
  700. print(" dlen ", addr.dlen, "\n");
  701. print(" data ", addr.data\X, "\n");
  702. };
  703. sizeofNull = 8;
  704. aggr Null
  705. {
  706. 'D' 0 dlen;
  707. 'X' 4 data;
  708. };
  709. defn
  710. Null(addr) {
  711. complex Null addr;
  712. print(" dlen ", addr.dlen, "\n");
  713. print(" data ", addr.data\X, "\n");
  714. };
  715. sizeofTxt = 8;
  716. aggr Txt
  717. {
  718. 'A' Txt 0 next;
  719. 'X' 4 p;
  720. };
  721. defn
  722. Txt(addr) {
  723. complex Txt addr;
  724. print(" next ", addr.next\X, "\n");
  725. print(" p ", addr.p\X, "\n");
  726. };
  727. sizeof_2_ = 4;
  728. aggr _2_
  729. {
  730. 'A' DN 0 negsoaowner;
  731. 'A' DN 0 host;
  732. 'A' DN 0 cpu;
  733. 'A' DN 0 mb;
  734. 'A' DN 0 ip;
  735. 'A' DN 0 rp;
  736. 'D' 0 cruftlen;
  737. 'U' 0 arg0;
  738. };
  739. defn
  740. _2_(addr) {
  741. complex _2_ addr;
  742. print(" negsoaowner ", addr.negsoaowner\X, "\n");
  743. print(" host ", addr.host\X, "\n");
  744. print(" cpu ", addr.cpu\X, "\n");
  745. print(" mb ", addr.mb\X, "\n");
  746. print(" ip ", addr.ip\X, "\n");
  747. print(" rp ", addr.rp\X, "\n");
  748. print(" cruftlen ", addr.cruftlen, "\n");
  749. print(" arg0 ", addr.arg0, "\n");
  750. };
  751. sizeof_3_ = 4;
  752. aggr _3_
  753. {
  754. 'D' 0 negrcode;
  755. 'A' DN 0 rmb;
  756. 'A' DN 0 ptr;
  757. 'A' DN 0 os;
  758. 'U' 0 pref;
  759. 'U' 0 $local;
  760. 'U' 0 arg1;
  761. };
  762. defn
  763. _3_(addr) {
  764. complex _3_ addr;
  765. print(" negrcode ", addr.negrcode, "\n");
  766. print(" rmb ", addr.rmb\X, "\n");
  767. print(" ptr ", addr.ptr\X, "\n");
  768. print(" os ", addr.os\X, "\n");
  769. print(" pref ", addr.pref, "\n");
  770. print(" $local ", addr.$local, "\n");
  771. print(" arg1 ", addr.arg1, "\n");
  772. };
  773. sizeof_4_ = 4;
  774. aggr _4_
  775. {
  776. 'X' 0 soa;
  777. 'A' Key 0 key;
  778. 'A' Cert 0 cert;
  779. 'A' Sig 0 sig;
  780. 'A' Null 0 null;
  781. 'A' Txt 0 txt;
  782. };
  783. defn
  784. _4_(addr) {
  785. complex _4_ addr;
  786. print(" soa ", addr.soa\X, "\n");
  787. print(" key ", addr.key\X, "\n");
  788. print(" cert ", addr.cert\X, "\n");
  789. print(" sig ", addr.sig\X, "\n");
  790. print(" null ", addr.null\X, "\n");
  791. print(" txt ", addr.txt\X, "\n");
  792. };
  793. sizeofRR = 52;
  794. aggr RR
  795. {
  796. 'A' RR 0 next;
  797. 'U' 4 magic;
  798. 'A' DN 8 owner;
  799. 'b' 12 negative;
  800. 'U' 16 pc;
  801. 'U' 20 ttl;
  802. 'U' 24 expire;
  803. 'u' 28 type;
  804. 'u' 30 query;
  805. 'b' 32 auth;
  806. 'b' 33 db;
  807. 'b' 34 cached;
  808. 'U' 36 marker;
  809. {
  810. 'A' DN 40 negsoaowner;
  811. 'A' DN 40 host;
  812. 'A' DN 40 cpu;
  813. 'A' DN 40 mb;
  814. 'A' DN 40 ip;
  815. 'A' DN 40 rp;
  816. 'D' 40 cruftlen;
  817. 'U' 40 arg0;
  818. };
  819. {
  820. 'D' 44 negrcode;
  821. 'A' DN 44 rmb;
  822. 'A' DN 44 ptr;
  823. 'A' DN 44 os;
  824. 'U' 44 pref;
  825. 'U' 44 $local;
  826. 'U' 44 arg1;
  827. };
  828. {
  829. 'X' 48 soa;
  830. 'A' Key 48 key;
  831. 'A' Cert 48 cert;
  832. 'A' Sig 48 sig;
  833. 'A' Null 48 null;
  834. 'A' Txt 48 txt;
  835. };
  836. };
  837. defn
  838. RR(addr) {
  839. complex RR addr;
  840. print(" next ", addr.next\X, "\n");
  841. print(" magic ", addr.magic, "\n");
  842. print(" owner ", addr.owner\X, "\n");
  843. print(" negative ", addr.negative, "\n");
  844. print(" pc ", addr.pc, "\n");
  845. print(" ttl ", addr.ttl, "\n");
  846. print(" expire ", addr.expire, "\n");
  847. print(" type ", addr.type, "\n");
  848. print(" query ", addr.query, "\n");
  849. print(" auth ", addr.auth, "\n");
  850. print(" db ", addr.db, "\n");
  851. print(" cached ", addr.cached, "\n");
  852. print(" marker ", addr.marker, "\n");
  853. print("_2_ {\n");
  854. _2_(addr+40);
  855. print("}\n");
  856. print("_3_ {\n");
  857. _3_(addr+44);
  858. print("}\n");
  859. print("_4_ {\n");
  860. _4_(addr+48);
  861. print("}\n");
  862. };
  863. sizeofServer = 8;
  864. aggr Server
  865. {
  866. 'A' Server 0 next;
  867. 'X' 4 name;
  868. };
  869. defn
  870. Server(addr) {
  871. complex Server addr;
  872. print(" next ", addr.next\X, "\n");
  873. print(" name ", addr.name\X, "\n");
  874. };
  875. sizeofSOA = 24;
  876. aggr SOA
  877. {
  878. 'U' 0 serial;
  879. 'U' 4 refresh;
  880. 'U' 8 retry;
  881. 'U' 12 expire;
  882. 'U' 16 minttl;
  883. 'A' Server 20 slaves;
  884. };
  885. defn
  886. SOA(addr) {
  887. complex SOA addr;
  888. print(" serial ", addr.serial, "\n");
  889. print(" refresh ", addr.refresh, "\n");
  890. print(" retry ", addr.retry, "\n");
  891. print(" expire ", addr.expire, "\n");
  892. print(" minttl ", addr.minttl, "\n");
  893. print(" slaves ", addr.slaves\X, "\n");
  894. };
  895. sizeofDNSmsg = 40;
  896. aggr DNSmsg
  897. {
  898. 'u' 0 id;
  899. 'D' 4 flags;
  900. 'D' 8 qdcount;
  901. 'A' RR 12 qd;
  902. 'D' 16 ancount;
  903. 'A' RR 20 an;
  904. 'D' 24 nscount;
  905. 'A' RR 28 ns;
  906. 'D' 32 arcount;
  907. 'A' RR 36 ar;
  908. };
  909. defn
  910. DNSmsg(addr) {
  911. complex DNSmsg addr;
  912. print(" id ", addr.id, "\n");
  913. print(" flags ", addr.flags, "\n");
  914. print(" qdcount ", addr.qdcount, "\n");
  915. print(" qd ", addr.qd\X, "\n");
  916. print(" ancount ", addr.ancount, "\n");
  917. print(" an ", addr.an\X, "\n");
  918. print(" nscount ", addr.nscount, "\n");
  919. print(" ns ", addr.ns\X, "\n");
  920. print(" arcount ", addr.arcount, "\n");
  921. print(" ar ", addr.ar\X, "\n");
  922. };
  923. sizeofArea = 20;
  924. aggr Area
  925. {
  926. 'A' Area 0 next;
  927. 'D' 4 len;
  928. 'A' RR 8 soarr;
  929. 'D' 12 neednotify;
  930. 'D' 16 needrefresh;
  931. };
  932. defn
  933. Area(addr) {
  934. complex Area addr;
  935. print(" next ", addr.next\X, "\n");
  936. print(" len ", addr.len, "\n");
  937. print(" soarr ", addr.soarr\X, "\n");
  938. print(" neednotify ", addr.neednotify, "\n");
  939. print(" needrefresh ", addr.needrefresh, "\n");
  940. };
  941. Recurse = 0;
  942. Dontrecurse = 1;
  943. NOneg = 2;
  944. OKneg = 3;
  945. complex Area owned;
  946. complex Area delegated;
  947. sizeof_5_ = 24;
  948. aggr _5_
  949. {
  950. {
  951. 'D' 0 val;
  952. };
  953. 'U' 4 names;
  954. 'U' 8 oldest;
  955. 'D' 12 active;
  956. 'D' 16 mutex;
  957. 'D' 20 id;
  958. };
  959. defn
  960. _5_(addr) {
  961. complex _5_ addr;
  962. print("Lock {\n");
  963. Lock(addr+0);
  964. print("}\n");
  965. print(" names ", addr.names, "\n");
  966. print(" oldest ", addr.oldest, "\n");
  967. print(" active ", addr.active, "\n");
  968. print(" mutex ", addr.mutex, "\n");
  969. print(" id ", addr.id, "\n");
  970. };
  971. complex _5_ dnvars;
  972. complex Lock dnlock;
  973. complex DN dnlookup:l;
  974. complex DN dnlookup:dp;
  975. complex DN dndump:dp;
  976. complex RR dndump:rp;
  977. complex DN dnpurge:dp;
  978. complex RR dnpurge:rp;
  979. complex RR dnpurge:srp;
  980. complex DN dnage:dp;
  981. complex RR dnage:l;
  982. complex RR dnage:rp;
  983. complex RR dnage:next;
  984. complex DN dnageall:dp;
  985. complex DN dnageall:l;
  986. complex RR dnageall:rp;
  987. complex DN dnagedb:dp;
  988. complex RR dnagedb:rp;
  989. complex DN dnauthdb:dp;
  990. complex Area dnauthdb:area;
  991. complex RR dnauthdb:rp;
  992. complex Request getactivity:req;
  993. complex RR rrattach1:new;
  994. complex RR rrattach1:l;
  995. complex RR rrattach1:rp;
  996. complex DN rrattach1:dp;
  997. complex RR rrattach:rp;
  998. complex RR rrattach:next;
  999. complex RR rralloc:rp;
  1000. complex RR rrfree:rp;
  1001. complex DN rrfree:dp;
  1002. complex RR rrfree:nrp;
  1003. complex Txt rrfree:t;
  1004. complex RR rrfreelist:rp;
  1005. complex RR rrfreelist:next;
  1006. complex RR rrcopy:rp;
  1007. complex RR rrcopy:last;
  1008. complex RR rrcopy:nrp;
  1009. complex SOA rrcopy:soa;
  1010. complex Key rrcopy:key;
  1011. complex Cert rrcopy:cert;
  1012. complex Sig rrcopy:sig;
  1013. complex Null rrcopy:null;
  1014. complex Txt rrcopy:t;
  1015. complex Txt rrcopy:nt;
  1016. complex Txt rrcopy:l;
  1017. complex DN rrlookup:dp;
  1018. complex RR rrlookup:rp;
  1019. complex RR rrlookup:first;
  1020. complex RR rrlookup:last;
  1021. complex RR rrcat:start;
  1022. complex RR rrcat:rp;
  1023. complex RR rrcat:last;
  1024. complex RR rrremneg:l;
  1025. complex RR rrremneg:nl;
  1026. complex RR rrremneg:rp;
  1027. complex RR rrremneg:first;
  1028. complex RR rrremtype:l;
  1029. complex RR rrremtype:nl;
  1030. complex RR rrremtype:rp;
  1031. complex RR rrremtype:first;
  1032. complex Fmt rrfmt:f;
  1033. complex RR rrfmt:rp;
  1034. complex Fmt rrfmt:fstr;
  1035. complex Server rrfmt:s;
  1036. complex Txt rrfmt:t;
  1037. complex Fmt rravfmt:f;
  1038. complex RR rravfmt:rp;
  1039. complex Fmt rravfmt:fstr;
  1040. complex Server rravfmt:s;
  1041. complex Txt rravfmt:t;
  1042. complex Request slave:req;
  1043. complex DN dncheck:dp;
  1044. complex RR dncheck:rp;
  1045. complex Pool mainmem;
  1046. complex RR rrequiv:r1;
  1047. complex RR rrequiv:r2;
  1048. complex RR unique:rp;
  1049. complex RR unique:l;
  1050. complex RR unique:nrp;
  1051. complex RR randomize:rp;
  1052. complex RR randomize:first;
  1053. complex RR randomize:last;
  1054. complex RR randomize:x;
  1055. complex RR randomize:base;
  1056. complex Fmt sencodefmt:f;
  1057. complex DN mkptr:dp;
  1058. complex DN mkptr:ipdp;
  1059. complex RR mkptr:rp;
  1060. complex DN dnptr:dp;
  1061. complex RR dnptr:rp;
  1062. complex RR dnptr:nrp;
  1063. complex RR dnptr:first;
  1064. complex RR dnptr:l;
  1065. complex Server freeserverlist:s;
  1066. complex Server freeserverlist:next;
  1067. complex Server addserver:l;
  1068. complex Server addserver:s;
  1069. complex Server copyserverlist:s;
  1070. complex Server copyserverlist:ns;