Return to XFontWidths.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / X / Xlib

BSD 4.3tahoe

#include <X/mit-copyright.h>

/* $Header: /var/lib/cvsd/repos/CSRG/43BSDTahoe/new/X/Xlib/XFontWidths.c,v 1.1.1.1 2018/04/24 16:12:58 root Exp $ */
/* Copyright    Massachusetts Institute of Technology    1985	*/

#include "XlibInternal.h"

short *XFontWidths (font)
	Font font;
{
	register Display *dpy;
	register XReq *req;
	XRep rep;
	short *buf;
	int nbytes;

	GetReq(X_FontWidths, 0);
	req->param.l[0] = font;
	if (!_XReply(dpy, &rep))
	    return(NULL);
	nbytes = rep.param.l[0];
	if ((buf = (short *) malloc(nbytes*sizeof(short)/psizeof(short))) == NULL) {
	    errno = ENOMEM;
	    _XIOError(dpy);
	}
#ifdef BIGSHORTS
	{
        ushort_p *proto_shorts = (ushort_p *) malloc (nbytes);
	_XReadPad (dpy, (char *)proto_shorts, nbytes);
	UnpackShorts(proto_shorts, buf, nbytes);
	free((char *)proto_shorts);
	}
#else
	_XReadPad(dpy, (char *)buf, nbytes);
#endif
	return (buf);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.