Return to XCharWidths.c CVS log

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

Initial revision

#include <X/mit-copyright.h>

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

#include "XlibInternal.h"
/* returns number of widths on success, NULL on error */

int XCharWidths (chars, len, font, widths)
    	char *chars;  /* not necessarily null-terminated */
	int len;
	Font font;
	short *widths;
{
	register Display *dpy;
	register XReq *req;
	XRep rep;

	GetReq(X_CharWidths, 0);
	req->param.l[0] = font;
	req->params2 = len;
	Data (dpy, chars, len);
	if (!_XReply(dpy, &rep))
	    return(NULL);

#ifdef BIGSHORTS
	{
        ushort_p *proto_shorts = (ushort_p *) malloc (rep.param.l[0]);
	_XReadPad (dpy, (char *)proto_shorts, rep.param.l[0]);
	UnpackShorts(proto_shorts, widths, rep.param.l[0]);
	free((char *)proto_shorts);
	}
#else
	_XReadPad (dpy, (char *)widths, rep.param.l[0]);
#endif
	return(rep.param.l[0] >> 1);
}

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