/*
 * -- $Header: /cec/src/nestor/servers/R3/shXlib/XFontNames.c,v 1.1.1.1 90/04/23 09:57:30 spanachi Exp $
 */
#include "copyright.h"

/* $XConsortium: XFontNames.c,v 11.19 88/09/06 16:07:25 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	*/
/* -- MULTIPLEX Extension -- */
#define NEED_REPLIES
#include "Xlibint.h"

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

char **XListFonts(dpy, pattern, maxNames, actualCount)
register Display *dpy;
char *pattern;  /* null-terminated */
int maxNames;
int *actualCount;	/* RETURN */
{       
    register long nbytes;
    register int i;
    register int length;
    char **flist;
    char *ch;
    xListFontsReply rep;
    register xListFontsReq *req;

    /* -- flush dpy to keep buffers aligned -- */
    XmuXFlushDefault( dpy ) ;
    /* -- switch to the chalk holder display -- */
    dpy = XmuXChalkDisplay( dpy ) ;

    LockDisplay(dpy);
    GetReq(ListFonts, req);
    req->maxNames = maxNames;
    nbytes = req->nbytes = pattern ? strlen (pattern) : 0;
    req->length += (nbytes + 3) >> 2;
    _XSend (dpy, pattern, nbytes);
       /* use _XSend instead of Data, since following _XReply will flush buffer */

    (void) _XReply (dpy, (xReply *)&rep, 0, xFalse);
    *actualCount = rep.nFonts;
    if (*actualCount) {
	    flist = (char **)Xmalloc ((unsigned)rep.nFonts * sizeof(char *));
	    ch = (char *) Xmalloc((unsigned)(rep.length * 4) + 1);
        	/* +1 to leave room for last null-terminator */
	    _XReadPad (dpy, ch, (long)(rep.length * 4));
	    /*
	     * unpack into null terminated strings.
	     */
	    length = *ch;
	    for (i = 0; i < rep.nFonts; i++) {
		flist[i] = ch + 1;  /* skip over length */
		ch += length + 1;  /* find next length ... */
		length = *ch;
		*ch = '\0';  /* and replace with null-termination */
	    }
	}
    else flist = NULL;
    UnlockDisplay(dpy);
    SyncHandle();
    return (flist);
}

XFreeFontNames(list)
char **list;
{       
	if (list != NULL) {
		Xfree (list[0]-1);
		Xfree ((char *)list);
	}
}