/*
 * -- $Header: /cec/src/nestor/servers/R3/shXlib/XLoadFont.c,v 1.1.1.1 90/04/23 10:01:31 spanachi Exp $
 */

#include "copyright.h"

/* $XConsortium: XLoadFont.c,v 11.8 88/09/06 16:09:01 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	*/

/* -- MULTIPLEX Extension -- */

#include "Xlibint.h"

/* additional includes -- */
#include "resources.h"

Font XLoadFont (dpy, name)
    register Display *dpy;
    char *name;
{
    register long nbytes;
    Font fid;
    register xOpenFontReq *req;
    LockDisplay(dpy);
    GetReq(OpenFont, req);
    nbytes = req->nbytes = name ? strlen(name) : 0;
    req->fid = fid = XAllocID(dpy);
    req->length += (nbytes+3)>>2;
    Data (dpy, name, nbytes);

    /* -- store the new resource if it is necessary -- */
    if( XmuXStoreResources( dpy ) )
	XmuXInsertFontInfo( dpy , fid , name ) ;

    UnlockDisplay(dpy);
    SyncHandle();
    return (fid); 
       /* can't return (req->fid) since request may have already been sent */
}