|
|
1.1 root 1: #include <X/mit-copyright.h>
2:
3: /* $Header: XQueryFont.c,v 10.4 86/02/01 15:38:59 tony Rel $ */
4: /* Copyright Massachusetts Institute of Technology 1985 */
5:
6: #include "XlibInternal.h"
7: Status XQueryFont (font, info)
8: Font font;
9: register FontInfo *info;
10: {
11: register Display *dpy;
12: register XReq *req;
13: XRep rep;
14:
15: GetReq(X_QueryFont, 0);
16: req->param.l[0] = font;
17: if (!_XReply(dpy, &rep))
18: return (0);
19: info->id = font;
20: info->height = rep.param.s[0];
21: info->width = rep.param.s[1];
22: info->firstchar = (unsigned char) rep.param.s[2];
23: info->lastchar = (unsigned char) rep.param.s[3];
24: info->baseline = rep.param.s[4];
25: info->fixedwidth = rep.param.s[5];
26: info->widths = NULL;
27: return (1);
28: }
29:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.