/*
 * -- $Header: /cec/src/nestor/servers/R3/shXlib/XIntAtom.c,v 1.1.1.1 90/04/23 10:00:54 spanachi Exp $
 */
#include "copyright.h"

/* $XConsortium: XIntAtom.c,v 11.12 88/09/06 16:08:47 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	*/
/* -- MULTIPLEX Extension -- */

#define NEED_REPLIES
#include "Xlibint.h"

/* -- additional includes -- */
#include "utils.h"
#include "map.h"

Atom XInternAtom (calling_dpy, name, onlyIfExists)
   /* -- must rename or else macro GetReq will fail -- */
    register Display *calling_dpy;
    char *name;
    Bool onlyIfExists;
{
    register long nbytes;
    xInternAtomReply rep;
    register xInternAtomReq *req;
    /* -- additional variables -- */
    register Display *dpy ;
    register int i , loop ;
    register Atom dflt_atom ;

    /* -- flush default dpy's queue to keep buffers aligned -- */
    XmuXFlushDefault( calling_dpy ) ;
    loop = True ;
    for( i = 0 ; ( dpy = XmuXGetDisplay( calling_dpy , i ) ) != NULL && loop ;
	 i++ )
    {
	LockDisplay(dpy);
	GetReq(InternAtom, req);
	nbytes = req->nbytes = name ? strlen(name) : 0;
	req->onlyIfExists = onlyIfExists;
	req->length += (nbytes+3)>>2;
	/* -- use single drain routine here -- */
	_XmuXSingleSend (dpy, name, nbytes);
    	/* use _XSend instead of Data, since the following _XReply
           will always flush the buffer anyway */
	if(_XReply (dpy, (xReply *)&rep, 0, xTrue) == 0) rep.atom = None;
	if( i == 0 )
	    dflt_atom = rep.atom ;
	else
	    /* 
	     * -- insert the two atom values if they differ and application
	       */
	    if( dflt_atom != rep.atom )
	    {
		XmuXInsertID( dpy , dflt_atom , rep.atom , FromClient ) ;
		XmuXInsertID( dpy , rep.atom , dflt_atom , FromServer ) ;
	    }
	UnlockDisplay(dpy);
	SyncHandle();
	/* -- if application doesn't createthe atom we won't loop -- */
	if( onlyIfExists )
	    loop = False ;
    }
	return (dflt_atom);
}