home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / vmsnet / sources / 351 < prev    next >
Encoding:
Internet Message Format  |  1992-09-03  |  47.7 KB
  1. Path: sparky!uunet!elroy.jpl.nasa.gov!sdd.hp.com!network.ucsd.edu!mvb.saic.com!vmsnet-sources
  2. From: mahan@tgv.com (Patrick L. Mahan - TGV Window Washer)
  3. Newsgroups: vmsnet.sources
  4. Subject: XSCOPE/VMS 1.0, part 04/08
  5. Message-ID: <8045407@MVB.SAIC.COM>
  6. Date: Fri, 04 Sep 1992 05:34:24 GMT
  7. Reply-To: mahan@tgv.com
  8. Organization: TGV Incorporated (Tech Support) in Santa Cruz, CA
  9. Lines: 1582
  10. Approved: Mark.Berryman@Mvb.Saic.Com
  11.  
  12. Submitted-by: mahan@tgv.com (Patrick L. Mahan - TGV Window Washer)
  13. Posting-number: Volume 3, Issue 156
  14. Archive-name: xscope/part04
  15.  
  16.  
  17. -+-+-+-+-+-+-+-+ START OF PART 4 -+-+-+-+-+-+-+-+
  18. XMapRequestEvent(buf)
  19. X     unsigned char *buf;
  20. X`7B
  21. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* MapRequest */ ;
  22. X  if (Verbose < 1)
  23. X    return;
  24. X  printfield(buf, 2, 2, CARD16, "sequence number");
  25. X  PrintField(buf, 4, 4, WINDOW, "parent");
  26. X  PrintField(buf, 8, 4, WINDOW, "window");
  27. X`7D
  28. X
  29. XReparentNotifyEvent(buf)
  30. X     unsigned char *buf;
  31. X`7B
  32. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* ReparentNotify */ ;
  33. X  if (Verbose < 1)
  34. X    return;
  35. X  printfield(buf, 2, 2, CARD16, "sequence number");
  36. X  PrintField(buf, 4, 4, WINDOW, "event");
  37. X  PrintField(buf, 8, 4, WINDOW, "window");
  38. X  PrintField(buf, 12, 4, WINDOW, "parent");
  39. X  PrintField(buf, 16, 2, INT16, "x");
  40. X  PrintField(buf, 18, 2, INT16, "y");
  41. X  PrintField(buf, 20, 1, BOOL, "override-redirect");
  42. X`7D
  43. X
  44. XConfigureNotifyEvent(buf)
  45. X     unsigned char *buf;
  46. X`7B
  47. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* ConfigureNotify */ ;
  48. X  if (Verbose < 1)
  49. X    return;
  50. X  printfield(buf, 2, 2, CARD16, "sequence number");
  51. X  PrintField(buf, 4, 4, WINDOW, "event");
  52. X  PrintField(buf, 8, 4, WINDOW, "window");
  53. X  PrintField(buf, 12, 4, WINDOW, "above-sibling");
  54. X  PrintField(buf, 16, 2, INT16, "x");
  55. X  PrintField(buf, 18, 2, INT16, "y");
  56. X  PrintField(buf, 20, 2, CARD16, "width");
  57. X  PrintField(buf, 22, 2, CARD16, "height");
  58. X  PrintField(buf, 24, 2, CARD16, "border-width");
  59. X  PrintField(buf, 26, 1, BOOL, "override-redirect");
  60. X`7D
  61. X
  62. XConfigureRequestEvent(buf)
  63. X     unsigned char *buf;
  64. X`7B
  65. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* ConfigureRequest */ ;
  66. X  if (Verbose < 1)
  67. X    return;
  68. X  PrintField(buf, 1, 1, STACKMODE, "stack-mode");
  69. X  printfield(buf, 2, 2, CARD16, "sequence number");
  70. X  PrintField(buf, 4, 4, WINDOW, "parent");
  71. X  PrintField(buf, 8, 4, WINDOW, "window");
  72. X  PrintField(buf, 12, 4, WINDOW, "sibling");
  73. X  PrintField(buf, 16, 2, INT16, "x");
  74. X  PrintField(buf, 18, 2, INT16, "y");
  75. X  PrintField(buf, 20, 2, CARD16, "width");
  76. X  PrintField(buf, 22, 2, CARD16, "height");
  77. X  PrintField(buf, 24, 2, CARD16, "border-width");
  78. X  PrintField(buf, 26, 2, CONFIGURE_BITMASK, "value-mask");
  79. X`7D
  80. X
  81. XGravityNotifyEvent(buf)
  82. X     unsigned char *buf;
  83. X`7B
  84. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* GravityNotify */ ;
  85. X  if (Verbose < 1)
  86. X    return;
  87. X  printfield(buf, 2, 2, CARD16, "sequence number");
  88. X  PrintField(buf, 4, 4, WINDOW, "event");
  89. X  PrintField(buf, 8, 4, WINDOW, "window");
  90. X  PrintField(buf, 12, 2, INT16, "x");
  91. X  PrintField(buf, 14, 2, INT16, "y");
  92. X`7D
  93. X
  94. XResizeRequestEvent(buf)
  95. X     unsigned char *buf;
  96. X`7B
  97. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* ResizeRequest */ ;
  98. X  if (Verbose < 1)
  99. X    return;
  100. X  printfield(buf, 2, 2, CARD16, "sequence number");
  101. X  PrintField(buf, 4, 4, WINDOW, "window");
  102. X  PrintField(buf, 8, 2, CARD16, "width");
  103. X  PrintField(buf, 10, 2, CARD16, "height");
  104. X`7D
  105. X
  106. XCirculateNotifyEvent(buf)
  107. X     unsigned char *buf;
  108. X`7B
  109. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* CirculateNotify */ ;
  110. X  if (Verbose < 1)
  111. X    return;
  112. X  printfield(buf, 2, 2, CARD16, "sequence number");
  113. X  PrintField(buf, 4, 4, WINDOW, "event");
  114. X  PrintField(buf, 8, 4, WINDOW, "window");
  115. X  PrintField(buf, 12, 4, WINDOW, "parent");
  116. X  PrintField(buf, 16, 1, CIRSTAT, "place");
  117. X`7D
  118. X
  119. XCirculateRequestEvent(buf)
  120. X     unsigned char *buf;
  121. X`7B
  122. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* CirculateRequest */ ;
  123. X  if (Verbose < 1)
  124. X    return;
  125. X  printfield(buf, 2, 2, CARD16, "sequence number");
  126. X  PrintField(buf, 4, 4, WINDOW, "parent");
  127. X  PrintField(buf, 8, 4, WINDOW, "window");
  128. X  PrintField(buf, 16, 1, CIRSTAT, "place");
  129. X`7D
  130. X
  131. XPropertyNotifyEvent(buf)
  132. X     unsigned char *buf;
  133. X`7B
  134. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* PropertyNotify */ ;
  135. X  if (Verbose < 1)
  136. X    return;
  137. X  printfield(buf, 2, 2, CARD16, "sequence number");
  138. X  PrintField(buf, 4, 4, WINDOW, "window");
  139. X  PrintField(buf, 8, 4, ATOM, "atom");
  140. X  PrintField(buf, 12, 4, TIMESTAMP, "time");
  141. X  PrintField(buf, 16, 1, PROPCHANGE, "state");
  142. X`7D
  143. X
  144. XSelectionClearEvent(buf)
  145. X     unsigned char *buf;
  146. X`7B
  147. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* SelectionClear */ ;
  148. X  if (Verbose < 1)
  149. X    return;
  150. X  printfield(buf, 2, 2, CARD16, "sequence number");
  151. X  PrintField(buf, 4, 4, TIMESTAMP, "time");
  152. X  PrintField(buf, 8, 4, WINDOW, "owner");
  153. X  PrintField(buf, 12, 4, ATOM, "selection");
  154. X`7D
  155. X
  156. XSelectionRequestEvent(buf)
  157. X     unsigned char *buf;
  158. X`7B
  159. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* SelectionRequest */ ;
  160. X  if (Verbose < 1)
  161. X    return;
  162. X  printfield(buf, 2, 2, CARD16, "sequence number");
  163. X  PrintField(buf, 4, 4, TIMESTAMP, "time");
  164. X  PrintField(buf, 8, 4, WINDOW, "owner");
  165. X  PrintField(buf, 12, 4, WINDOW, "requestor");
  166. X  PrintField(buf, 16, 4, ATOM, "selection");
  167. X  PrintField(buf, 20, 4, ATOM, "target");
  168. X  PrintField(buf, 24, 4, ATOM, "property");
  169. X`7D
  170. X
  171. XSelectionNotifyEvent(buf)
  172. X     unsigned char *buf;
  173. X`7B
  174. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* SelectionNotify */ ;
  175. X  if (Verbose < 1)
  176. X    return;
  177. X  printfield(buf, 2, 2, CARD16, "sequence number");
  178. X  PrintField(buf, 4, 4, TIMESTAMP, "time");
  179. X  PrintField(buf, 8, 4, WINDOW, "requestor");
  180. X  PrintField(buf, 12, 4, ATOM, "selection");
  181. X  PrintField(buf, 16, 4, ATOM, "target");
  182. X  PrintField(buf, 20, 4, ATOM, "property");
  183. X`7D
  184. X
  185. XColormapNotifyEvent(buf)
  186. X     unsigned char *buf;
  187. X`7B
  188. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* ColormapNotify */ ;
  189. X  if (Verbose < 1)
  190. X    return;
  191. X  printfield(buf, 2, 2, CARD16, "sequence number");
  192. X  PrintField(buf, 4, 4, WINDOW, "window");
  193. X  PrintField(buf, 8, 4, COLORMAP, "colormap");
  194. X  PrintField(buf, 12, 1, BOOL, "new");
  195. X  PrintField(buf, 13, 1, CMAPCHANGE, "state");
  196. X`7D
  197. X
  198. XClientMessageEvent(buf)
  199. X     unsigned char *buf;
  200. X`7B
  201. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* ClientMessage */ ;
  202. X  if (Verbose < 1)
  203. X    return;
  204. X  PrintField(buf, 1, 1, CARD8, "format");
  205. X  printfield(buf, 2, 2, CARD16, "sequence number");
  206. X  PrintField(buf, 4, 4, WINDOW, "window");
  207. X  PrintField(buf, 8, 4, ATOM, "type");
  208. X  PrintBytes(&buf`5B12`5D, (long)20,"data");
  209. X`7D
  210. X
  211. XMappingNotifyEvent(buf)
  212. X     unsigned char *buf;
  213. X`7B
  214. X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* MappingNotify */ ;
  215. X  if (Verbose < 1)
  216. X    return;
  217. X  printfield(buf, 2, 2, CARD16, "sequence number");
  218. X  PrintField(buf, 4, 1, MAPOBJECT, "request");
  219. X  PrintField(buf, 5, 1, KEYCODE, "first-keycode");
  220. X  PrintField(buf, 6, 1, CARD8, "count");
  221. X`7D
  222. X
  223. X/* ************************************************************ */
  224. X/*`09`09`09`09`09`09`09`09*/
  225. X/*`09`09`09`09`09`09`09`09*/
  226. X/* ************************************************************ */
  227. X
  228. X/* Request and Reply Printing procedures */
  229. X
  230. XCreateWindow(buf)
  231. X     unsigned char *buf;
  232. X`7B
  233. X  /* Request CreateWindow is opcode 1 */
  234. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CreateWindow */ ;
  235. X  if (Verbose < 1)
  236. X    return;
  237. X  if (Verbose > 1)
  238. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  239. X
  240. X  PrintField(buf, 1, 1, CARD8, "depth");
  241. X  printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
  242. X  PrintField(buf, 4, 4, WINDOW, "wid");
  243. X  PrintField(buf, 8, 4, WINDOW, "parent");
  244. X  PrintField(buf, 12, 2, INT16, "x");
  245. X  PrintField(buf, 14, 2, INT16, "y");
  246. X  PrintField(buf, 16, 2, CARD16, "width");
  247. X  PrintField(buf, 18, 2, CARD16, "height");
  248. X  PrintField(buf, 20, 2, CARD16, "border-width");
  249. X  PrintField(buf, 22, 2, WINDOWCLASS, "class");
  250. X  PrintField(buf, 24, 4, VISUALIDC, "visual");
  251. X  PrintField(buf, 28, 4, WINDOW_BITMASK, "value-mask");
  252. X  PrintValues(&buf`5B28`5D, 4, WINDOW_BITMASK, &buf`5B32`5D, "value-list");
  253. X`7D
  254. X
  255. XChangeWindowAttributes(buf)
  256. X     unsigned char *buf;
  257. X`7B
  258. X  /* Request ChangeWindowAttributes is opcode 2 */
  259. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangeWindowAttributes */
  260. V ;
  261. X  if (Verbose < 1)
  262. X    return;
  263. X  if (Verbose > 1)
  264. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  265. X
  266. X  printfield(buf, 2, 2, DVALUE2(3 + n), "request length");
  267. X  PrintField(buf, 4, 4, WINDOW, "window");
  268. X  PrintField(buf, 8, 4, WINDOW_BITMASK, "value-mask");
  269. X  PrintValues(&buf`5B8`5D, 4, WINDOW_BITMASK, &buf`5B12`5D, "value-list");
  270. X`7D
  271. X
  272. XGetWindowAttributes(buf)
  273. X     unsigned char *buf;
  274. X`7B
  275. X  /* Request GetWindowAttributes is opcode 3 */
  276. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetWindowAttributes */ ;
  277. X  if (Verbose < 1)
  278. X    return;
  279. X  if (Verbose > 1)
  280. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  281. X
  282. X  printfield(buf, 2, 2, CONST2(2), "request length");
  283. X  PrintField(buf, 4, 4, WINDOW, "window");
  284. X`7D
  285. X
  286. XGetWindowAttributesReply(buf)
  287. X     unsigned char *buf;
  288. X`7B
  289. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetWindowAttributes */ ;
  290. X  if (Verbose < 1)
  291. X    return;
  292. X  PrintField(buf, 1, 1, BACKSTORE, "backing-store");
  293. X  printfield(buf, 2, 2, CARD16, "sequence number");
  294. X  printfield(buf, 4, 4, CONST4(3), "reply length");
  295. X  PrintField(buf, 8, 4, VISUALID, "visual");
  296. X  PrintField(buf, 12, 2, WINDOWCLASS, "class");
  297. X  PrintField(buf, 14, 1, BITGRAVITY, "bit-gravity");
  298. X  PrintField(buf, 15, 1, WINGRAVITY, "win-gravity");
  299. X  PrintField(buf, 16, 4, CARD32, "backing-planes");
  300. X  PrintField(buf, 20, 4, CARD32, "backing-pixel");
  301. X  PrintField(buf, 24, 1, BOOL, "save-under");
  302. X  PrintField(buf, 25, 1, BOOL, "map-is-installed");
  303. X  PrintField(buf, 26, 1, MAPSTATE, "map-state");
  304. X  PrintField(buf, 27, 1, BOOL, "override-redirect");
  305. X  PrintField(buf, 28, 4, COLORMAP, "colormap");
  306. X  PrintField(buf, 32, 4, SETofEVENT, "all-event-masks");
  307. X  PrintField(buf, 36, 4, SETofEVENT, "your-event-mask");
  308. X  PrintField(buf, 40, 2, SETofDEVICEEVENT, "do-not-propagate-mask");
  309. X`7D
  310. X
  311. XDestroyWindow(buf)
  312. X     unsigned char *buf;
  313. X`7B
  314. X  /* Request DestroyWindow is opcode 4 */
  315. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* DestroyWindow */ ;
  316. X  if (Verbose < 1)
  317. X    return;
  318. X  if (Verbose > 1)
  319. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  320. X
  321. X  printfield(buf, 2, 2, CONST2(2), "request length");
  322. X  PrintField(buf, 4, 4, WINDOW, "window");
  323. X`7D
  324. X
  325. XDestroySubwindows(buf)
  326. X     unsigned char *buf;
  327. X`7B
  328. X  /* Request DestroySubwindows is opcode 5 */
  329. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* DestroySubwindows */ ;
  330. X  if (Verbose < 1)
  331. X    return;
  332. X  if (Verbose > 1)
  333. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  334. X
  335. X  printfield(buf, 2, 2, CONST2(2), "request length");
  336. X  PrintField(buf, 4, 4, WINDOW, "window");
  337. X`7D
  338. X
  339. XChangeSaveSet(buf)
  340. X     unsigned char *buf;
  341. X`7B
  342. X  /* Request ChangeSaveSet is opcode 6 */
  343. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangeSaveSet */ ;
  344. X  if (Verbose < 1)
  345. X    return;
  346. X  if (Verbose > 1)
  347. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  348. X
  349. X  PrintField(buf, 1, 1, INS_DEL, "mode");
  350. X  printfield(buf, 2, 2, CONST2(2), "request length");
  351. X  PrintField(buf, 4, 4, WINDOW, "window");
  352. X`7D
  353. X
  354. XReparentWindow(buf)
  355. X     unsigned char *buf;
  356. X`7B
  357. X  /* Request ReparentWindow is opcode 7 */
  358. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ReparentWindow */ ;
  359. X  if (Verbose < 1)
  360. X    return;
  361. X  if (Verbose > 1)
  362. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  363. X
  364. X  printfield(buf, 2, 2, CONST2(4), "request length");
  365. X  PrintField(buf, 4, 4, WINDOW, "window");
  366. X  PrintField(buf, 8, 4, WINDOW, "parent");
  367. X  PrintField(buf, 12, 2, INT16, "x");
  368. X  PrintField(buf, 14, 2, INT16, "y");
  369. X`7D
  370. X
  371. XMapWindow(buf)
  372. X     unsigned char *buf;
  373. X`7B
  374. X  /* Request MapWindow is opcode 8 */
  375. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* MapWindow */ ;
  376. X  if (Verbose < 1)
  377. X    return;
  378. X  if (Verbose > 1)
  379. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  380. X
  381. X  printfield(buf, 2, 2, CONST2(2), "request length");
  382. X  PrintField(buf, 4, 4, WINDOW, "window");
  383. X`7D
  384. X
  385. XMapSubwindows(buf)
  386. X     unsigned char *buf;
  387. X`7B
  388. X  /* Request MapSubwindows is opcode 9 */
  389. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* MapSubwindows */ ;
  390. X  if (Verbose < 1)
  391. X    return;
  392. X  if (Verbose > 1)
  393. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  394. X
  395. X  printfield(buf, 2, 2, CONST2(2), "request length");
  396. X  PrintField(buf, 4, 4, WINDOW, "window");
  397. X`7D
  398. X
  399. XUnmapWindow(buf)
  400. X     unsigned char *buf;
  401. X`7B
  402. X  /* Request UnmapWindow is opcode 10 */
  403. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UnmapWindow */ ;
  404. X  if (Verbose < 1)
  405. X    return;
  406. X  if (Verbose > 1)
  407. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  408. X
  409. X  printfield(buf, 2, 2, CONST2(2), "request length");
  410. X  PrintField(buf, 4, 4, WINDOW, "window");
  411. X`7D
  412. X
  413. XUnmapSubwindows(buf)
  414. X     unsigned char *buf;
  415. X`7B
  416. X  /* Request UnmapSubwindows is opcode 11 */
  417. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UnmapSubwindows */ ;
  418. X  if (Verbose < 1)
  419. X    return;
  420. X  if (Verbose > 1)
  421. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  422. X
  423. X  printfield(buf, 2, 2, CONST2(2), "request length");
  424. X  PrintField(buf, 4, 4, WINDOW, "window");
  425. X`7D
  426. X
  427. XConfigureWindow(buf)
  428. X     unsigned char *buf;
  429. X`7B
  430. X  /* Request ConfigureWindow is opcode 12 */
  431. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ConfigureWindow */ ;
  432. X  if (Verbose < 1)
  433. X    return;
  434. X  if (Verbose > 1)
  435. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  436. X
  437. X  printfield(buf, 2, 2, DVALUE2(3 + n), "request length");
  438. X  PrintField(buf, 4, 4, WINDOW, "window");
  439. X  PrintField(buf, 8, 2, CONFIGURE_BITMASK, "value-mask");
  440. X  PrintValues(&buf`5B8`5D, 2, CONFIGURE_BITMASK, &buf`5B12`5D, "value-list")
  441. V;
  442. X`7D
  443. X
  444. XCirculateWindow(buf)
  445. X     unsigned char *buf;
  446. X`7B
  447. X  /* Request CirculateWindow is opcode 13 */
  448. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CirculateWindow */ ;
  449. X  if (Verbose < 1)
  450. X    return;
  451. X  if (Verbose > 1)
  452. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  453. X
  454. X  PrintField(buf, 1, 1, CIRMODE, "direction");
  455. X  printfield(buf, 2, 2, CONST2(2), "request length");
  456. X  PrintField(buf, 4, 4, WINDOW, "window");
  457. X`7D
  458. X
  459. XGetGeometry(buf)
  460. X     unsigned char *buf;
  461. X`7B
  462. X  /* Request GetGeometry is opcode 14 */
  463. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetGeometry */ ;
  464. X  if (Verbose < 1)
  465. X    return;
  466. X  if (Verbose > 1)
  467. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  468. X
  469. X  printfield(buf, 2, 2, CONST2(2), "request length");
  470. X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
  471. X`7D
  472. X
  473. XGetGeometryReply(buf)
  474. X     unsigned char *buf;
  475. X`7B
  476. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetGeometry */ ;
  477. X  if (Verbose < 1)
  478. X    return;
  479. X  PrintField(buf, 1, 1, CARD8, "depth");
  480. X  printfield(buf, 2, 2, CARD16, "sequence number");
  481. X  printfield(buf, 4, 4, CONST4(0), "reply length");
  482. X  PrintField(buf, 8, 4, WINDOW, "root");
  483. X  PrintField(buf, 12, 2, INT16, "x");
  484. X  PrintField(buf, 14, 2, INT16, "y");
  485. X  PrintField(buf, 16, 2, CARD16, "width");
  486. X  PrintField(buf, 18, 2, CARD16, "height");
  487. X  PrintField(buf, 20, 2, CARD16, "border-width");
  488. X`7D
  489. X
  490. XQueryTree(buf)
  491. X     unsigned char *buf;
  492. X`7B
  493. X  /* Request QueryTree is opcode 15 */
  494. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* QueryTree */ ;
  495. X  if (Verbose < 1)
  496. X    return;
  497. X  if (Verbose > 1)
  498. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  499. X
  500. X  printfield(buf, 2, 2, CONST2(2), "request length");
  501. X  PrintField(buf, 4, 4, WINDOW, "window");
  502. X`7D
  503. X
  504. XQueryTreeReply(buf)
  505. X     unsigned char *buf;
  506. X`7B
  507. X  short   n;
  508. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* QueryTree */ ;
  509. X  if (Verbose < 1)
  510. X    return;
  511. X  printfield(buf, 2, 2, CARD16, "sequence number");
  512. X  printfield(buf, 4, 4, DVALUE4(n), "reply length");
  513. X  PrintField(buf, 8, 4, WINDOW, "root");
  514. X  PrintField(buf, 12, 4, WINDOW, "parent");
  515. X  printfield(buf, 16, 2, DVALUE2(n), "number of children");
  516. X  n = IShort(&buf`5B16`5D);
  517. X  PrintList(&buf`5B32`5D, (long)n, WINDOW, "children");
  518. X`7D
  519. X
  520. XInternAtom(buf)
  521. X     unsigned char *buf;
  522. X`7B
  523. X  short   n;
  524. X  /* Request InternAtom is opcode 16 */
  525. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* InternAtom */ ;
  526. X  if (Verbose < 1)
  527. X    return;
  528. X  if (Verbose > 1)
  529. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  530. X
  531. X  PrintField(buf, 1, 1, BOOL, "only-if-exists");
  532. X  printfield(buf, 2, 2, DVALUE2(2 + (n + p) / 4), "request length");
  533. X  printfield(buf, 4, 2, DVALUE2(n), "length of name");
  534. X  n = IShort(&buf`5B4`5D);
  535. X  PrintString8(&buf`5B8`5D, n, "name");
  536. X`7D
  537. X
  538. XInternAtomReply(buf)
  539. X     unsigned char *buf;
  540. X`7B
  541. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* InternAtom */ ;
  542. X  if (Verbose < 1)
  543. X    return;
  544. X  printfield(buf, 2, 2, CARD16, "sequence number");
  545. X  printfield(buf, 4, 4, CONST4(0), "reply length");
  546. X  PrintField(buf, 8, 4, ATOM, "atom");
  547. X`7D
  548. X
  549. XGetAtomName(buf)
  550. X     unsigned char *buf;
  551. X`7B
  552. X  /* Request GetAtomName is opcode 17 */
  553. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetAtomName */ ;
  554. X  if (Verbose < 1)
  555. X    return;
  556. X  if (Verbose > 1)
  557. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  558. X
  559. X  printfield(buf, 2, 2, CONST2(2), "request length");
  560. X  PrintField(buf, 4, 4, ATOM, "atom");
  561. X`7D
  562. X
  563. XGetAtomNameReply(buf)
  564. X     unsigned char *buf;
  565. X`7B
  566. X  short   n;
  567. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetAtomName */ ;
  568. X  if (Verbose < 1)
  569. X    return;
  570. X  printfield(buf, 2, 2, CARD16, "sequence number");
  571. X  printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
  572. X  printfield(buf, 8, 2, DVALUE2(n), "length of name");
  573. X  n = IShort(&buf`5B8`5D);
  574. X  PrintString8(&buf`5B32`5D, n, "name");
  575. X`7D
  576. X
  577. XChangeProperty(buf)
  578. X     unsigned char *buf;
  579. X`7B
  580. X  long    n;
  581. X  short   unit;
  582. X  long    type;
  583. X
  584. X  /* Request ChangeProperty is opcode 18 */
  585. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangeProperty */ ;
  586. X  if (Verbose < 1)
  587. X    return;
  588. X  if (Verbose > 1)
  589. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  590. X
  591. X  PrintField(buf, 1, 1, CHANGEMODE, "mode");
  592. X  printfield(buf, 2, 2, DVALUE2(6 + (n + p) / 4), "request length");
  593. X  PrintField(buf, 4, 4, WINDOW, "window");
  594. X  PrintField(buf, 8, 4, ATOM, "property");
  595. X  PrintField(buf, 12, 4, ATOM, "type");
  596. X  type = ILong(&buf`5B12`5D);
  597. X  PrintField(buf, 16, 1, CARD8, "format");
  598. X  unit = IByte(&buf`5B16`5D) / 8;
  599. X  printfield(buf, 20, 4, CARD32, "length of data");
  600. X  n = ILong(&buf`5B20`5D);
  601. X  if (type == 31 /* string */)
  602. X    PrintString8(&buf`5B24`5D, n * unit, "data");
  603. X  else
  604. X    PrintBytes(&buf`5B24`5D, n * unit, "data");
  605. X`7D
  606. X
  607. XDeleteProperty(buf)
  608. X     unsigned char *buf;
  609. X`7B
  610. X  /* Request DeleteProperty is opcode 19 */
  611. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* DeleteProperty */ ;
  612. X  if (Verbose < 1)
  613. X    return;
  614. X  if (Verbose > 1)
  615. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  616. X
  617. X  printfield(buf, 2, 2, CONST2(3), "request length");
  618. X  PrintField(buf, 4, 4, WINDOW, "window");
  619. X  PrintField(buf, 8, 4, ATOM, "property");
  620. X`7D
  621. X
  622. XGetProperty(buf)
  623. X     unsigned char *buf;
  624. X`7B
  625. X  /* Request GetProperty is opcode 20 */
  626. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetProperty */ ;
  627. X  if (Verbose < 1)
  628. X    return;
  629. X  if (Verbose > 1)
  630. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  631. X
  632. X  PrintField(buf, 1, 1, BOOL, "delete");
  633. X  printfield(buf, 2, 2, CONST2(6), "request length");
  634. X  PrintField(buf, 4, 4, WINDOW, "window");
  635. X  PrintField(buf, 8, 4, ATOM, "property");
  636. X  PrintField(buf, 12, 4, ATOMT, "type");
  637. X  PrintField(buf, 16, 4, CARD32, "long-offset");
  638. X  printfield(buf, 20, 4, CARD32, "long-length");
  639. X`7D
  640. X
  641. XGetPropertyReply(buf)
  642. X     unsigned char *buf;
  643. X`7B
  644. X  long    n;
  645. X  short   unit;
  646. X  long    type;
  647. X
  648. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetProperty */ ;
  649. X  if (Verbose < 1)
  650. X    return;
  651. X  PrintField(buf, 1, 1, CARD8, "format");
  652. X  unit = IByte(&buf`5B1`5D) / 8;
  653. X  printfield(buf, 2, 2, CARD16, "sequence number");
  654. X  printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
  655. X  PrintField(buf, 8, 4, ATOM, "type");
  656. X  type = ILong(&buf`5B8`5D);
  657. X  PrintField(buf, 12, 4, CARD32, "bytes-after");
  658. X  printfield(buf, 16, 4, CARD32, "length of value");
  659. X  n = ILong(&buf`5B16`5D);
  660. X  if (type == 31 /* string */)
  661. X    PrintString8(&buf`5B32`5D, n * unit, "value");
  662. X  else
  663. X    PrintBytes(&buf`5B32`5D, n * unit, "value");
  664. X`7D
  665. X
  666. XListProperties(buf)
  667. X     unsigned char *buf;
  668. X`7B
  669. X  /* Request ListProperties is opcode 21 */
  670. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ListProperties */ ;
  671. X  if (Verbose < 1)
  672. X    return;
  673. X  if (Verbose > 1)
  674. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  675. X
  676. X  printfield(buf, 2, 2, CONST2(2), "request length");
  677. X  PrintField(buf, 4, 4, WINDOW, "window");
  678. X`7D
  679. X
  680. XListPropertiesReply(buf)
  681. X     unsigned char *buf;
  682. X`7B
  683. X  short   n;
  684. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* ListProperties */ ;
  685. X  if (Verbose < 1)
  686. X    return;
  687. X  printfield(buf, 2, 2, CARD16, "sequence number");
  688. X  printfield(buf, 4, 4, DVALUE4(n), "reply length");
  689. X  printfield(buf, 8, 2, DVALUE2(n), "number of atoms");
  690. X  n = IShort(&buf`5B8`5D);
  691. X  PrintList(&buf`5B32`5D, (long)n, ATOM, "atoms");
  692. X`7D
  693. X
  694. XSetSelectionOwner(buf)
  695. X     unsigned char *buf;
  696. X`7B
  697. X  /* Request SetSelectionOwner is opcode 22 */
  698. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetSelectionOwner */ ;
  699. X  if (Verbose < 1)
  700. X    return;
  701. X  if (Verbose > 1)
  702. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  703. X
  704. X  printfield(buf, 2, 2, CONST2(4), "request length");
  705. X  PrintField(buf, 4, 4, WINDOW, "owner");
  706. X  PrintField(buf, 8, 4, ATOM, "selection");
  707. X  PrintField(buf, 12, 4, TIMESTAMP, "time");
  708. X`7D
  709. X
  710. XGetSelectionOwner(buf)
  711. X     unsigned char *buf;
  712. X`7B
  713. X  /* Request GetSelectionOwner is opcode 23 */
  714. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetSelectionOwner */ ;
  715. X  if (Verbose < 1)
  716. X    return;
  717. X  if (Verbose > 1)
  718. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  719. X
  720. X  printfield(buf, 2, 2, CONST2(2), "request length");
  721. X  PrintField(buf, 4, 4, ATOM, "selection");
  722. X`7D
  723. X
  724. XGetSelectionOwnerReply(buf)
  725. X     unsigned char *buf;
  726. X`7B
  727. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetSelectionOwner */ ;
  728. X  if (Verbose < 1)
  729. X    return;
  730. X  printfield(buf, 2, 2, CARD16, "sequence number");
  731. X  printfield(buf, 4, 4, CONST4(0), "reply length");
  732. X  PrintField(buf, 8, 4, WINDOW, "owner");
  733. X`7D
  734. X
  735. XConvertSelection(buf)
  736. X     unsigned char *buf;
  737. X`7B
  738. X  /* Request ConvertSelection is opcode 24 */
  739. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ConvertSelection */ ;
  740. X  if (Verbose < 1)
  741. X    return;
  742. X  if (Verbose > 1)
  743. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  744. X
  745. X  printfield(buf, 2, 2, CONST2(6), "request length");
  746. X  PrintField(buf, 4, 4, WINDOW, "requestor");
  747. X  PrintField(buf, 8, 4, ATOM, "selection");
  748. X  PrintField(buf, 12, 4, ATOM, "target");
  749. X  PrintField(buf, 16, 4, ATOM, "property");
  750. X  PrintField(buf, 20, 4, TIMESTAMP, "time");
  751. X`7D
  752. X
  753. XSendEvent(buf)
  754. X     unsigned char *buf;
  755. X`7B
  756. X  /* Request SendEvent is opcode 25 */
  757. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SendEvent */ ;
  758. X  if (Verbose < 1)
  759. X    return;
  760. X  if (Verbose > 1)
  761. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  762. X
  763. X  PrintField(buf, 1, 1, BOOL, "propagate");
  764. X  printfield(buf, 2, 2, CONST2(11), "request length");
  765. X  PrintField(buf, 4, 4, WINDOWD, "destination");
  766. X  PrintField(buf, 8, 4, SETofEVENT, "event-mask");
  767. X  PrintField(buf, 12, 32, EVENTFORM, "event");
  768. X`7D
  769. X
  770. XGrabPointer(buf)
  771. X     unsigned char *buf;
  772. X`7B
  773. X  /* Request GrabPointer is opcode 26 */
  774. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GrabPointer */ ;
  775. X  if (Verbose < 1)
  776. X    return;
  777. X  if (Verbose > 1)
  778. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  779. X
  780. X  PrintField(buf, 1, 1, BOOL, "owner-events");
  781. X  printfield(buf, 2, 2, CONST2(6), "request length");
  782. X  PrintField(buf, 4, 4, WINDOW, "grab-window");
  783. X  PrintField(buf, 8, 2, SETofPOINTEREVENT, "event-mask");
  784. X  PrintField(buf, 10, 1, PK_MODE, "pointer-mode");
  785. X  PrintField(buf, 11, 1, PK_MODE, "keyboard-mode");
  786. X  PrintField(buf, 12, 4, WINDOW, "confine-to");
  787. X  PrintField(buf, 16, 4, CURSOR, "cursor");
  788. X  PrintField(buf, 20, 4, TIMESTAMP, "time");
  789. X`7D
  790. X
  791. XGrabPointerReply(buf)
  792. X     unsigned char *buf;
  793. X`7B
  794. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GrabPointer */ ;
  795. X  if (Verbose < 1)
  796. X    return;
  797. X  PrintField(buf, 1, 1, GRABSTAT, "status");
  798. X  printfield(buf, 2, 2, CARD16, "sequence number");
  799. X  printfield(buf, 4, 4, CONST4(0), "reply length");
  800. X`7D
  801. X
  802. XUngrabPointer(buf)
  803. X     unsigned char *buf;
  804. X`7B
  805. X  /* Request UngrabPointer is opcode 27 */
  806. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UngrabPointer */ ;
  807. X  if (Verbose < 1)
  808. X    return;
  809. X  if (Verbose > 1)
  810. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  811. X
  812. X  printfield(buf, 2, 2, CONST2(2), "request length");
  813. X  PrintField(buf, 4, 4, TIMESTAMP, "time");
  814. X`7D
  815. X
  816. XGrabButton(buf)
  817. X     unsigned char *buf;
  818. X`7B
  819. X  /* Request GrabButton is opcode 28 */
  820. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GrabButton */ ;
  821. X  if (Verbose < 1)
  822. X    return;
  823. X  if (Verbose > 1)
  824. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  825. X
  826. X  PrintField(buf, 1, 1, BOOL, "owner-events");
  827. X  printfield(buf, 2, 2, CONST2(6), "request length");
  828. X  PrintField(buf, 4, 4, WINDOW, "grab-window");
  829. X  PrintField(buf, 8, 2, SETofPOINTEREVENT, "event-mask");
  830. X  PrintField(buf, 10, 1, PK_MODE, "pointer-mode");
  831. X  PrintField(buf, 11, 1, PK_MODE, "keyboard-mode");
  832. X  PrintField(buf, 12, 4, WINDOW, "confine-to");
  833. X  PrintField(buf, 16, 4, CURSOR, "cursor");
  834. X  PrintField(buf, 20, 1, BUTTONA, "button");
  835. X  PrintField(buf, 22, 2, SETofKEYMASK, "modifiers");
  836. X`7D
  837. X
  838. XUngrabButton(buf)
  839. X     unsigned char *buf;
  840. X`7B
  841. X  /* Request UngrabButton is opcode 29 */
  842. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UngrabButton */ ;
  843. X  if (Verbose < 1)
  844. X    return;
  845. X  if (Verbose > 1)
  846. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  847. X
  848. X  PrintField(buf, 1, 1, BUTTONA, "button");
  849. X  printfield(buf, 2, 2, CONST2(3), "request length");
  850. X  PrintField(buf, 4, 4, WINDOW, "grab-window");
  851. X  PrintField(buf, 8, 2, SETofKEYMASK, "modifiers");
  852. X`7D
  853. X
  854. XChangeActivePointerGrab(buf)
  855. X     unsigned char *buf;
  856. X`7B
  857. X  /* Request ChangeActivePointerGrab is opcode 30 */
  858. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangeActivePointerGrab *
  859. V/ ;
  860. X  if (Verbose < 1)
  861. X    return;
  862. X  if (Verbose > 1)
  863. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  864. X
  865. X  printfield(buf, 2, 2, CONST2(4), "request length");
  866. X  PrintField(buf, 4, 4, CURSOR, "cursor");
  867. X  PrintField(buf, 8, 4, TIMESTAMP, "time");
  868. X  PrintField(buf, 12, 2, SETofPOINTEREVENT, "event-mask");
  869. X`7D
  870. X
  871. XGrabKeyboard(buf)
  872. X     unsigned char *buf;
  873. X`7B
  874. X  /* Request GrabKeyboard is opcode 31 */
  875. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GrabKeyboard */ ;
  876. X  if (Verbose < 1)
  877. X    return;
  878. X  if (Verbose > 1)
  879. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  880. X
  881. X  PrintField(buf, 1, 1, BOOL, "owner-events");
  882. X  printfield(buf, 2, 2, CONST2(4), "request length");
  883. X  PrintField(buf, 4, 4, WINDOW, "grab-window");
  884. X  PrintField(buf, 8, 4, TIMESTAMP, "time");
  885. X  PrintField(buf, 12, 1, PK_MODE, "pointer-mode");
  886. X  PrintField(buf, 13, 1, PK_MODE, "keyboard-mode");
  887. X`7D
  888. X
  889. XGrabKeyboardReply(buf)
  890. X     unsigned char *buf;
  891. X`7B
  892. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GrabKeyboard */ ;
  893. X  if (Verbose < 1)
  894. X    return;
  895. X  PrintField(buf, 1, 1, GRABSTAT, "status");
  896. X  printfield(buf, 2, 2, CARD16, "sequence number");
  897. X  printfield(buf, 4, 4, CONST4(0), "reply length");
  898. X`7D
  899. X
  900. XUngrabKeyboard(buf)
  901. X     unsigned char *buf;
  902. X`7B
  903. X  /* Request UngrabKeyboard is opcode 32 */
  904. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UngrabKeyboard */ ;
  905. X  if (Verbose < 1)
  906. X    return;
  907. X  if (Verbose > 1)
  908. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  909. X
  910. X  printfield(buf, 2, 2, CONST2(2), "request length");
  911. X  PrintField(buf, 4, 4, TIMESTAMP, "time");
  912. X`7D
  913. X
  914. XGrabKey(buf)
  915. X     unsigned char *buf;
  916. X`7B
  917. X  /* Request GrabKey is opcode 33 */
  918. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GrabKey */ ;
  919. X  if (Verbose < 1)
  920. X    return;
  921. X  if (Verbose > 1)
  922. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  923. X
  924. X  PrintField(buf, 1, 1, BOOL, "owner-events");
  925. X  printfield(buf, 2, 2, CONST2(4), "request length");
  926. X  PrintField(buf, 4, 4, WINDOW, "grab-window");
  927. X  PrintField(buf, 8, 2, SETofKEYMASK, "modifiers");
  928. X  PrintField(buf, 10, 1, KEYCODEA, "key");
  929. X  PrintField(buf, 11, 1, PK_MODE, "pointer-mode");
  930. X  PrintField(buf, 12, 1, PK_MODE, "keyboard-mode");
  931. X`7D
  932. X
  933. XUngrabKey(buf)
  934. X     unsigned char *buf;
  935. X`7B
  936. X  /* Request UngrabKey is opcode 34 */
  937. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UngrabKey */ ;
  938. X  if (Verbose < 1)
  939. X    return;
  940. X  if (Verbose > 1)
  941. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  942. X
  943. X  PrintField(buf, 1, 1, KEYCODEA, "key");
  944. X  printfield(buf, 2, 2, CONST2(3), "request length");
  945. X  PrintField(buf, 4, 4, WINDOW, "grab-window");
  946. X  PrintField(buf, 8, 2, SETofKEYMASK, "modifiers");
  947. X`7D
  948. X
  949. XAllowEvents(buf)
  950. X     unsigned char *buf;
  951. X`7B
  952. X  /* Request AllowEvents is opcode 35 */
  953. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* AllowEvents */ ;
  954. X  if (Verbose < 1)
  955. X    return;
  956. X  if (Verbose > 1)
  957. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  958. X
  959. X  PrintField(buf, 1, 1, EVENTMODE, "mode");
  960. X  printfield(buf, 2, 2, CONST2(2), "request length");
  961. X  PrintField(buf, 4, 4, TIMESTAMP, "time");
  962. X`7D
  963. X
  964. XGrabServer(buf)
  965. X     unsigned char *buf;
  966. X`7B
  967. X  /* Request GrabServer is opcode 36 */
  968. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GrabServer */ ;
  969. X  if (Verbose < 1)
  970. X    return;
  971. X  if (Verbose > 1)
  972. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  973. X
  974. X  printfield(buf, 2, 2, CONST2(1), "request length");
  975. X`7D
  976. X
  977. XUngrabServer(buf)
  978. X     unsigned char *buf;
  979. X`7B
  980. X  /* Request UngrabServer is opcode 37 */
  981. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UngrabServer */ ;
  982. X  if (Verbose < 1)
  983. X    return;
  984. X  if (Verbose > 1)
  985. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  986. X
  987. X  printfield(buf, 2, 2, CONST2(1), "request length");
  988. X`7D
  989. X
  990. XQueryPointer(buf)
  991. X     unsigned char *buf;
  992. X`7B
  993. X  /* Request QueryPointer is opcode 38 */
  994. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* QueryPointer */ ;
  995. X  if (Verbose < 1)
  996. X    return;
  997. X  if (Verbose > 1)
  998. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  999. X
  1000. X  printfield(buf, 2, 2, CONST2(2), "request length");
  1001. X  PrintField(buf, 4, 4, WINDOW, "window");
  1002. X`7D
  1003. X
  1004. XQueryPointerReply(buf)
  1005. X     unsigned char *buf;
  1006. X`7B
  1007. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* QueryPointer */ ;
  1008. X  if (Verbose < 1)
  1009. X    return;
  1010. X  PrintField(buf, 1, 1, BOOL, "same-screen");
  1011. X  printfield(buf, 2, 2, CARD16, "sequence number");
  1012. X  printfield(buf, 4, 4, CONST4(0), "reply length");
  1013. X  PrintField(buf, 8, 4, WINDOW, "root");
  1014. X  PrintField(buf, 12, 4, WINDOW, "child");
  1015. X  PrintField(buf, 16, 2, INT16, "root-x");
  1016. X  PrintField(buf, 18, 2, INT16, "root-y");
  1017. X  PrintField(buf, 20, 2, INT16, "win-x");
  1018. X  PrintField(buf, 22, 2, INT16, "win-y");
  1019. X  PrintField(buf, 24, 2, SETofKEYBUTMASK, "mask");
  1020. X`7D
  1021. X
  1022. XGetMotionEvents(buf)
  1023. X     unsigned char *buf;
  1024. X`7B
  1025. X  /* Request GetMotionEvents is opcode 39 */
  1026. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetMotionEvents */ ;
  1027. X  if (Verbose < 1)
  1028. X    return;
  1029. X  if (Verbose > 1)
  1030. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1031. X
  1032. X  printfield(buf, 2, 2, CONST2(4), "request length");
  1033. X  PrintField(buf, 4, 4, WINDOW, "window");
  1034. X  PrintField(buf, 8, 4, TIMESTAMP, "start");
  1035. X  PrintField(buf, 12, 4, TIMESTAMP, "stop");
  1036. X`7D
  1037. X
  1038. XGetMotionEventsReply(buf)
  1039. X     unsigned char *buf;
  1040. X`7B
  1041. X  long   n;
  1042. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetMotionEvents */ ;
  1043. X  if (Verbose < 1)
  1044. X    return;
  1045. X  printfield(buf, 2, 2, CARD16, "sequence number");
  1046. X  printfield(buf, 4, 4, DVALUE4(2*n), "reply length");
  1047. X  printfield(buf, 8, 4, DVALUE4(n), "number of events");
  1048. X  n = ILong(&buf`5B8`5D);
  1049. X  PrintList(&buf`5B32`5D, n, TIMECOORD, "events");
  1050. X`7D
  1051. X
  1052. XTranslateCoordinates(buf)
  1053. X     unsigned char *buf;
  1054. X`7B
  1055. X  /* Request TranslateCoordinates is opcode 40 */
  1056. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* TranslateCoordinates */ ;
  1057. X  if (Verbose < 1)
  1058. X    return;
  1059. X  if (Verbose > 1)
  1060. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1061. X
  1062. X  printfield(buf, 2, 2, CONST2(4), "request length");
  1063. X  PrintField(buf, 4, 4, WINDOW, "src-window");
  1064. X  PrintField(buf, 8, 4, WINDOW, "dst-window");
  1065. X  PrintField(buf, 12, 2, INT16, "src-x");
  1066. X  PrintField(buf, 14, 2, INT16, "src-y");
  1067. X`7D
  1068. X
  1069. XTranslateCoordinatesReply(buf)
  1070. X     unsigned char *buf;
  1071. X`7B
  1072. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* TranslateCoordinates */ ;
  1073. X  if (Verbose < 1)
  1074. X    return;
  1075. X  PrintField(buf, 1, 1, BOOL, "same-screen");
  1076. X  printfield(buf, 2, 2, CARD16, "sequence number");
  1077. X  printfield(buf, 4, 4, CONST4(0), "reply length");
  1078. X  PrintField(buf, 8, 4, WINDOW, "child");
  1079. X  PrintField(buf, 12, 2, INT16, "dst-x");
  1080. X  PrintField(buf, 14, 2, INT16, "dst-y");
  1081. X`7D
  1082. X
  1083. XWarpPointer(buf)
  1084. X     unsigned char *buf;
  1085. X`7B
  1086. X  /* Request WarpPointer is opcode 41 */
  1087. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* WarpPointer */ ;
  1088. X  if (Verbose < 1)
  1089. X    return;
  1090. X  if (Verbose > 1)
  1091. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1092. X
  1093. X  printfield(buf, 2, 2, CONST2(6), "request length");
  1094. X  PrintField(buf, 4, 4, WINDOW, "src-window");
  1095. X  PrintField(buf, 8, 4, WINDOW, "dst-window");
  1096. X  PrintField(buf, 12, 2, INT16, "src-x");
  1097. X  PrintField(buf, 14, 2, INT16, "src-y");
  1098. X  PrintField(buf, 16, 2, CARD16, "src-width");
  1099. X  PrintField(buf, 18, 2, CARD16, "src-height");
  1100. X  PrintField(buf, 20, 2, INT16, "dst-x");
  1101. X  PrintField(buf, 22, 2, INT16, "dst-y");
  1102. X`7D
  1103. X
  1104. XSetInputFocus(buf)
  1105. X     unsigned char *buf;
  1106. X`7B
  1107. X  /* Request SetInputFocus is opcode 42 */
  1108. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetInputFocus */ ;
  1109. X  if (Verbose < 1)
  1110. X    return;
  1111. X  if (Verbose > 1)
  1112. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1113. X
  1114. X  PrintField(buf, 1, 1, FOCUSAGENT, "revert-to");
  1115. X  printfield(buf, 2, 2, CONST2(3), "request length");
  1116. X  PrintField(buf, 4, 4, WINDOWNR, "focus");
  1117. X  PrintField(buf, 8, 4, TIMESTAMP, "time");
  1118. X`7D
  1119. X
  1120. XGetInputFocus(buf)
  1121. X     unsigned char *buf;
  1122. X`7B
  1123. X  /* Request GetInputFocus is opcode 43 */
  1124. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetInputFocus */ ;
  1125. X  if (Verbose < 1)
  1126. X    return;
  1127. X  if (Verbose > 1)
  1128. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1129. X
  1130. X  printfield(buf, 2, 2, CONST2(1), "request length");
  1131. X`7D
  1132. X
  1133. XGetInputFocusReply(buf)
  1134. X     unsigned char *buf;
  1135. X`7B
  1136. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetInputFocus */ ;
  1137. X  if (Verbose < 1)
  1138. X    return;
  1139. X  PrintField(buf, 1, 1, FOCUSAGENT, "revert-to");
  1140. X  printfield(buf, 2, 2, CARD16, "sequence number");
  1141. X  printfield(buf, 4, 4, CONST4(0), "reply length");
  1142. X  PrintField(buf, 8, 4, WINDOWNR, "focus");
  1143. X`7D
  1144. X
  1145. XQueryKeymap(buf)
  1146. X     unsigned char *buf;
  1147. X`7B
  1148. X  /* Request QueryKeymap is opcode 44 */
  1149. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* QueryKeymap */ ;
  1150. X  if (Verbose < 1)
  1151. X    return;
  1152. X  if (Verbose > 1)
  1153. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1154. X
  1155. X  printfield(buf, 2, 2, CONST2(1), "request length");
  1156. X`7D
  1157. X
  1158. XQueryKeymapReply(buf)
  1159. X     unsigned char *buf;
  1160. X`7B
  1161. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* QueryKeymap */ ;
  1162. X  if (Verbose < 1)
  1163. X    return;
  1164. X  printfield(buf, 2, 2, CARD16, "sequence number");
  1165. X  printfield(buf, 4, 4, CONST4(2), "reply length");
  1166. X  PrintBytes(&buf`5B8`5D, 32L, "keys");
  1167. X`7D
  1168. X
  1169. XOpenFont(buf)
  1170. X     unsigned char *buf;
  1171. X`7B
  1172. X  short   n;
  1173. X  /* Request OpenFont is opcode 45 */
  1174. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* OpenFont */ ;
  1175. X  if (Verbose < 1)
  1176. X    return;
  1177. X  if (Verbose > 1)
  1178. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1179. X
  1180. X  printfield(buf, 2, 2, DVALUE2(3 + (n + p) / 4), "request length");
  1181. X  PrintField(buf, 4, 4, FONT, "font-id");
  1182. X  printfield(buf, 8, 2, DVALUE2(n), "length of name");
  1183. X  n = IShort(&buf`5B8`5D);
  1184. X  PrintString8(&buf`5B12`5D, n, "name");
  1185. X`7D
  1186. X
  1187. XCloseFont(buf)
  1188. X     unsigned char *buf;
  1189. X`7B
  1190. X  /* Request CloseFont is opcode 46 */
  1191. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CloseFont */ ;
  1192. X  if (Verbose < 1)
  1193. X    return;
  1194. X  if (Verbose > 1)
  1195. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1196. X
  1197. X  printfield(buf, 2, 2, CONST2(2), "request length");
  1198. X  PrintField(buf, 4, 4, FONT, "font");
  1199. X`7D
  1200. X
  1201. XQueryFont(buf)
  1202. X     unsigned char *buf;
  1203. X`7B
  1204. X  /* Request QueryFont is opcode 47 */
  1205. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* QueryFont */ ;
  1206. X  if (Verbose < 1)
  1207. X    return;
  1208. X  if (Verbose > 1)
  1209. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1210. X
  1211. X  printfield(buf, 2, 2, CONST2(2), "request length");
  1212. X  PrintField(buf, 4, 4, FONTABLE, "font");
  1213. X`7D
  1214. X
  1215. XQueryFontReply(buf)
  1216. X     unsigned char *buf;
  1217. X`7B
  1218. X  short   n;
  1219. X  long    m;
  1220. X  long   k;
  1221. X
  1222. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* QueryFont */ ;
  1223. X  if (Verbose < 1)
  1224. X    return;
  1225. X  printfield(buf, 2, 2, CARD16, "sequence number");
  1226. X  printfield(buf, 4, 4, DVALUE4(7 + 2*n + 3*m), "reply length");
  1227. X  PrintField(buf, 8, 12, CHARINFO, "min-bounds");
  1228. X  PrintField(buf, 24, 12, CHARINFO, "max-bounds");
  1229. X  PrintField(buf, 40, 2, CARD16, "min-char-or-byte2");
  1230. X  PrintField(buf, 42, 2, CARD16, "max-char-or-byte2");
  1231. X  PrintField(buf, 44, 2, CARD16, "default-char");
  1232. X  printfield(buf, 46, 2, DVALUE2(n), "number of FONTPROPs");
  1233. X  n = IShort(&buf`5B46`5D);
  1234. X  PrintField(buf, 48, 1, DIRECT, "draw-direction");
  1235. X  PrintField(buf, 49, 1, CARD8, "min-byte1");
  1236. X  PrintField(buf, 50, 1, CARD8, "max-byte1");
  1237. X  PrintField(buf, 51, 1, BOOL, "all-chars-exist");
  1238. X  PrintField(buf, 52, 2, INT16, "font-ascent");
  1239. X  PrintField(buf, 54, 2, INT16, "font-descent");
  1240. X  printfield(buf, 56, 4, DVALUE4(m), "number of CHARINFOs");
  1241. X  m = ILong(&buf`5B56`5D);
  1242. X  k = PrintList(&buf`5B60`5D, (long)n, FONTPROP, "properties");
  1243. X  PrintList(&buf`5B60 + k`5D, (long)m, CHARINFO, "char-infos");
  1244. X`7D
  1245. X
  1246. XQueryTextExtents(buf)
  1247. X     unsigned char *buf;
  1248. X`7B
  1249. X  short   n;
  1250. X
  1251. X  /* Request QueryTextExtents is opcode 48 */
  1252. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* QueryTextExtents */ ;
  1253. X  if (Verbose < 1)
  1254. X    return;
  1255. X  if (Verbose > 1)
  1256. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1257. X
  1258. X  printfield(buf, 1, 1, BOOL, "odd length?");
  1259. X  printfield(buf, 2, 2, DVALUE2(2 + (2*n + p) / 4), "request length");
  1260. X  n = (IShort(&buf`5B2`5D) - 2) * 4 / 2;
  1261. X  if (IBool(&buf`5B1`5D))
  1262. X    n -= 1;
  1263. X  PrintField(buf, 4, 4, FONTABLE, "font");
  1264. X  PrintString16(&buf`5B8`5D, n, "string");
  1265. X`7D
  1266. X
  1267. XQueryTextExtentsReply(buf)
  1268. X     unsigned char *buf;
  1269. X`7B
  1270. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* QueryTextExtents */ ;
  1271. X  if (Verbose < 1)
  1272. X    return;
  1273. X  PrintField(buf, 1, 1, DIRECT, "draw-direction");
  1274. X  printfield(buf, 2, 2, CARD16, "sequence number");
  1275. X  printfield(buf, 4, 4, CONST4(0), "reply length");
  1276. X  PrintField(buf, 8, 2, INT16, "font-ascent");
  1277. X  PrintField(buf, 10, 2, INT16, "font-descent");
  1278. X  PrintField(buf, 12, 2, INT16, "overall-ascent");
  1279. X  PrintField(buf, 14, 2, INT16, "overall-descent");
  1280. X  PrintField(buf, 16, 4, INT32, "overall-width");
  1281. X  PrintField(buf, 20, 4, INT32, "overall-left");
  1282. X  PrintField(buf, 24, 4, INT32, "overall-right");
  1283. X`7D
  1284. X
  1285. XListFonts(buf)
  1286. X     unsigned char *buf;
  1287. X`7B
  1288. X  short   n;
  1289. X  /* Request ListFonts is opcode 49 */
  1290. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ListFonts */ ;
  1291. X  if (Verbose < 1)
  1292. X    return;
  1293. X  if (Verbose > 1)
  1294. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1295. X
  1296. X  printfield(buf, 2, 2, DVALUE2(2 + (n + p) / 4), "request length");
  1297. X  PrintField(buf, 4, 2, CARD16, "max-names");
  1298. X  printfield(buf, 6, 2, DVALUE2(n), "length of pattern");
  1299. X  n = IShort(&buf`5B6`5D);
  1300. X  PrintString8(&buf`5B8`5D, n, "pattern");
  1301. X`7D
  1302. X
  1303. XListFontsReply(buf)
  1304. X     unsigned char *buf;
  1305. X`7B
  1306. X  short   n;
  1307. X
  1308. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* ListFonts */ ;
  1309. X  if (Verbose < 1)
  1310. X    return;
  1311. X  printfield(buf, 2, 2, CARD16, "sequence number");
  1312. X  printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
  1313. X  printfield(buf, 8, 2, CARD16, "number of names");
  1314. X  n = IShort(&buf`5B8`5D);
  1315. X  PrintListSTR(&buf`5B32`5D, (long)n, "names");
  1316. X`7D
  1317. X
  1318. XListFontsWithInfo(buf)
  1319. X     unsigned char *buf;
  1320. X`7B
  1321. X  short   n;
  1322. X  /* Request ListFontsWithInfo is opcode 50 */
  1323. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ListFontsWithInfo */ ;
  1324. X  if (Verbose < 1)
  1325. X    return;
  1326. X  if (Verbose > 1)
  1327. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1328. X
  1329. X  printfield(buf, 2, 2, DVALUE2(2 + (n + p) / 4), "request length");
  1330. X  PrintField(buf, 4, 2, CARD16, "max-names");
  1331. X  printfield(buf, 6, 2, DVALUE2(n), "length of pattern");
  1332. X  n = IShort(&buf`5B6`5D);
  1333. X  PrintString8(&buf`5B8`5D, n, "pattern");
  1334. X`7D
  1335. X
  1336. XListFontsWithInfoReply(buf)
  1337. X     unsigned char *buf;
  1338. X`7B
  1339. X  short which;
  1340. X
  1341. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* ListFontsWithInfo */ ;
  1342. X  if (Verbose < 1) return;
  1343. X  which = IByte(&buf`5B1`5D);
  1344. X  if (which != 0)
  1345. X    `7B
  1346. X      ListFontsWithInfoReply1(buf);
  1347. X      KeepLastReplyExpected();
  1348. X    `7D
  1349. X  else
  1350. X    ListFontsWithInfoReply2(buf);
  1351. X`7D
  1352. X
  1353. XListFontsWithInfoReply1(buf)
  1354. X     unsigned char *buf;
  1355. X`7B
  1356. X  short   n;
  1357. X  short   m;
  1358. X  printfield(buf, 1, 1, DVALUE1(n), "length of name in bytes");
  1359. X  n = IByte(&buf`5B1`5D);
  1360. X  printfield(buf, 2, 2, CARD16, "sequence number");
  1361. X  printfield(buf, 4, 4, DVALUE4(7 + 2*m + (n + p) / 4), "reply length");
  1362. X  PrintField(buf, 8, 12, CHARINFO, "min-bounds");
  1363. X  PrintField(buf, 24, 12, CHARINFO, "max-bounds");
  1364. X  PrintField(buf, 40, 2, CARD16, "min-char-or-byte2");
  1365. X  PrintField(buf, 42, 2, CARD16, "max-char-or-byte2");
  1366. X  PrintField(buf, 44, 2, CARD16, "default-char");
  1367. X  printfield(buf, 46, 2, DVALUE2(m), "number of FONTPROPs");
  1368. X  m = IShort(&buf`5B46`5D);
  1369. X  PrintField(buf, 48, 1, DIRECT, "draw-direction");
  1370. X  PrintField(buf, 49, 1, CARD8, "min-byte1");
  1371. X  PrintField(buf, 50, 1, CARD8, "max-byte1");
  1372. X  PrintField(buf, 51, 1, BOOL, "all-chars-exist");
  1373. X  PrintField(buf, 52, 2, INT16, "font-ascent");
  1374. X  PrintField(buf, 54, 2, INT16, "font-descent");
  1375. X  PrintField(buf, 56, 4, CARD32, "replies-hint");
  1376. X  PrintList(&buf`5B60`5D, (long)m, FONTPROP, "properties");
  1377. X  PrintString8(&buf`5B60 + 8 * m`5D, n, "name");
  1378. X`7D
  1379. X
  1380. XListFontsWithInfoReply2(buf)
  1381. X     unsigned char *buf;
  1382. X`7B
  1383. X  PrintField(buf, 1, 1, CONST1(0), "last-reply indicator");
  1384. X  printfield(buf, 2, 2, CARD16, "sequence number");
  1385. X  printfield(buf, 4, 4, CONST4(7), "reply length");
  1386. X`7D
  1387. X
  1388. XSetFontPath(buf)
  1389. X     unsigned char *buf;
  1390. X`7B
  1391. X  short   n;
  1392. X  /* Request SetFontPath is opcode 51 */
  1393. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetFontPath */ ;
  1394. X  if (Verbose < 1)
  1395. X    return;
  1396. X  if (Verbose > 1)
  1397. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1398. X
  1399. X  printfield(buf, 2, 2, DVALUE2(2 + (n + p) / 4), "request length");
  1400. X  printfield(buf, 4, 2, CARD16, "number of paths");
  1401. X  n = IShort(&buf`5B4`5D);
  1402. X  PrintListSTR(&buf`5B8`5D, (long)n, "paths");
  1403. X`7D
  1404. X
  1405. XGetFontPath(buf)
  1406. X     unsigned char *buf;
  1407. X`7B
  1408. X  /* Request GetFontPath is opcode 52 */
  1409. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetFontPath */ ;
  1410. X  if (Verbose < 1)
  1411. X    return;
  1412. X  if (Verbose > 1)
  1413. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1414. X
  1415. X  PrintField(buf, 2, 2, CONST2(1), "request list");
  1416. X`7D
  1417. X
  1418. XGetFontPathReply(buf)
  1419. X     unsigned char *buf;
  1420. X`7B
  1421. X  short   n;
  1422. X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetFontPath */ ;
  1423. X  if (Verbose < 1)
  1424. X    return;
  1425. X  printfield(buf, 2, 2, CARD16, "sequence number");
  1426. X  printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
  1427. X  printfield(buf, 8, 2, CARD16, "number of paths");
  1428. X  n = IShort(&buf`5B8`5D);
  1429. X  PrintListSTR(&buf`5B32`5D, (long)n, "paths");
  1430. X`7D
  1431. X
  1432. XCreatePixmap(buf)
  1433. X     unsigned char *buf;
  1434. X`7B
  1435. X  /* Request CreatePixmap is opcode 53 */
  1436. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CreatePixmap */ ;
  1437. X  if (Verbose < 1)
  1438. X    return;
  1439. X  if (Verbose > 1)
  1440. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1441. X
  1442. X  PrintField(buf, 1, 1, CARD8, "depth");
  1443. X  printfield(buf, 2, 2, CONST2(4), "request length");
  1444. X  PrintField(buf, 4, 4, PIXMAP, "pixmap-id");
  1445. X  PrintField(buf, 8, 4, DRAWABLE, "drawable");
  1446. X  PrintField(buf, 12, 2, CARD16, "width");
  1447. X  PrintField(buf, 14, 2, CARD16, "height");
  1448. X`7D
  1449. X
  1450. XFreePixmap(buf)
  1451. X     unsigned char *buf;
  1452. X`7B
  1453. X  /* Request FreePixmap is opcode 54 */
  1454. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* FreePixmap */ ;
  1455. X  if (Verbose < 1)
  1456. X    return;
  1457. X  if (Verbose > 1)
  1458. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1459. X
  1460. X  printfield(buf, 2, 2, CONST2(2), "request length");
  1461. X  PrintField(buf, 4, 4, PIXMAP, "pixmap");
  1462. X`7D
  1463. X
  1464. XCreateGC(buf)
  1465. X     unsigned char *buf;
  1466. X`7B
  1467. X  /* Request CreateGC is opcode 55 */
  1468. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CreateGC */ ;
  1469. X  if (Verbose < 1)
  1470. X    return;
  1471. X  if (Verbose > 1)
  1472. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1473. X
  1474. X  printfield(buf, 2, 2, DVALUE2(4 + n), "request length");
  1475. X  PrintField(buf, 4, 4, GCONTEXT, "graphic-context-id");
  1476. X  PrintField(buf, 8, 4, DRAWABLE, "drawable");
  1477. X  PrintField(buf, 12, 4, GC_BITMASK, "value-mask");
  1478. X  PrintValues(&buf`5B12`5D, 4, GC_BITMASK, &buf`5B16`5D, "value-list");
  1479. X`7D
  1480. X
  1481. XChangeGC(buf)
  1482. X     unsigned char *buf;
  1483. X`7B
  1484. X  /* Request ChangeGC is opcode 56 */
  1485. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangeGC */ ;
  1486. X  if (Verbose < 1)
  1487. X    return;
  1488. X  if (Verbose > 1)
  1489. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1490. X
  1491. X  printfield(buf, 2, 2, DVALUE2(3 + n), "request length");
  1492. X  PrintField(buf, 4, 4, GCONTEXT, "gc");
  1493. X  PrintField(buf, 8, 4, GC_BITMASK, "value-mask");
  1494. X  PrintValues(&buf`5B8`5D, 4, GC_BITMASK, &buf`5B12`5D, "value-list");
  1495. X`7D
  1496. X
  1497. XCopyGC(buf)
  1498. X     unsigned char *buf;
  1499. X`7B
  1500. X  /* Request CopyGC is opcode 57 */
  1501. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CopyGC */ ;
  1502. X  if (Verbose < 1)
  1503. X    return;
  1504. X  if (Verbose > 1)
  1505. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1506. X
  1507. X  printfield(buf, 2, 2, CONST2(4), "request length");
  1508. X  PrintField(buf, 4, 4, GCONTEXT, "src-gc");
  1509. X  PrintField(buf, 8, 4, GCONTEXT, "dst-gc");
  1510. X  PrintField(buf, 12, 4, GC_BITMASK, "value-mask");
  1511. X`7D
  1512. X
  1513. XSetDashes(buf)
  1514. X     unsigned char *buf;
  1515. X`7B
  1516. X  short   n;
  1517. X  /* Request SetDashes is opcode 58 */
  1518. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetDashes */ ;
  1519. X  if (Verbose < 1)
  1520. X    return;
  1521. X  if (Verbose > 1)
  1522. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1523. X
  1524. X  printfield(buf, 2, 2, DVALUE2(3 + (n + p) / 4), "request length");
  1525. X  PrintField(buf, 4, 4, GCONTEXT, "gc");
  1526. X  PrintField(buf, 8, 2, CARD16, "dash-offset");
  1527. X  printfield(buf, 10, 2, DVALUE2(n), "length of dashes");
  1528. X  n = IShort(&buf`5B10`5D);
  1529. X  PrintBytes(&buf`5B12`5D, (long)n, "dashes");
  1530. X`7D
  1531. X
  1532. XSetClipRectangles(buf)
  1533. X     unsigned char *buf;
  1534. X`7B
  1535. X  short   n;
  1536. X
  1537. X  /* Request SetClipRectangles is opcode 59 */
  1538. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetClipRectangles */ ;
  1539. X  if (Verbose < 1)
  1540. X    return;
  1541. X  if (Verbose > 1)
  1542. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1543. X
  1544. X  PrintField(buf, 1, 1, RECTORDER, "ordering");
  1545. X  printfield(buf, 2, 2, DVALUE2(3 + 2*n), "request length");
  1546. X  n = (IShort(&buf`5B2`5D) - 3) / 2;
  1547. X  PrintField(buf, 4, 4, GCONTEXT, "gc");
  1548. X  PrintField(buf, 8, 2, INT16, "clip-x-origin");
  1549. X  PrintField(buf, 10, 2, INT16, "clip-y-origin");
  1550. X  PrintList(&buf`5B12`5D, (long)n, RECTANGLE, "rectangles");
  1551. X`7D
  1552. X
  1553. XFreeGC(buf)
  1554. X     unsigned char *buf;
  1555. X`7B
  1556. X  /* Request FreeGC is opcode 60 */
  1557. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* FreeGC */ ;
  1558. X  if (Verbose < 1)
  1559. X    return;
  1560. X  if (Verbose > 1)
  1561. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1562. X
  1563. X  printfield(buf, 2, 2, CONST2(2), "request length");
  1564. X  PrintField(buf, 4, 4, GCONTEXT, "gc");
  1565. X`7D
  1566. X
  1567. XClearArea(buf)
  1568. X     unsigned char *buf;
  1569. X`7B
  1570. X  /* Request ClearArea is opcode 61 */
  1571. X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ClearArea */ ;
  1572. X  if (Verbose < 1)
  1573. X    return;
  1574. X  if (Verbose > 1)
  1575. X    PrintField(SBf, 0, 4, INT32, "sequence number");
  1576. X
  1577. X  PrintField(buf, 1, 1, BOOL, "exposures");
  1578. X  printfield(buf, 2, 2, CONST2(4), "request length");
  1579. X  PrintField(buf, 4, 4, WINDOW, "window");
  1580. X  PrintField(buf, 8, 2, INT16, "x");
  1581. X  PrintField(buf, 10, 2, INT16, "y");
  1582. X  PrintField(buf, 12, 2, CARD16, "width");
  1583. X  PrintField(buf, 14, 2, CARD16, "height");
  1584. +-+-+-+-+-+-+-+-  END  OF PART 4 +-+-+-+-+-+-+-+-
  1585. --
  1586. Patrick L. Mahan
  1587.  
  1588. --- TGV Window Washer ------------------------------- Mahan@TGV.COM ---------
  1589.  
  1590. Waking a person unnecessarily should not be considered  - Lazarus Long
  1591. a capital crime.  For a first offense, that is            From the Notebooks of
  1592.                               Lazarus Long
  1593.  
  1594.