[wxWidgets.git] / src / mac / xpm / parse.c

/*
 * Copyright (C) 1989-95 GROUPE BULL
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to
 * deal in the Software without restriction, including without limitation the
 * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
 * sell copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
 * GROUPE BULL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
 * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 *
 * Except as contained in this notice, the name of GROUPE BULL shall not be
 * used in advertising or otherwise to promote the sale, use or other dealings
 * in this Software without prior written authorization from GROUPE BULL.
 */

/*****************************************************************************\
* parse.c:                                                                    *
*                                                                             *
*  XPM library                                                                *
*  Parse an XPM file or array and store the found informations                *
*  in the given XpmImage structure.                                           *
*                                                                             *
*  Developed by Arnaud Le Hors                                                *
\*****************************************************************************/

/*
 * The code related to FOR_MSW has been added by
 * HeDu (hedu@cul-ipn.uni-kiel.de) 4/94
 */

#include "XpmI.h"
#include <ctype.h>

LFUNC(ParsePixels, int, (xpmData *data, unsigned int width,
			 unsigned int height, unsigned int ncolors,
			 unsigned int cpp, XpmColor *colorTable,
			 xpmHashTable *hashtable, unsigned int **pixels));

char *xpmColorKeys[] = {
    "s",				/* key #1: symbol */
    "m",				/* key #2: mono visual */
    "g4",				/* key #3: 4 grays visual */
    "g",				/* key #4: gray visual */
    "c",				/* key #5: color visual */
};

int
xpmParseValues(data, width, height, ncolors, cpp,
	    x_hotspot, y_hotspot, hotspot, extensions)
    xpmData *data;
    unsigned int *width, *height, *ncolors, *cpp;
    unsigned int *x_hotspot, *y_hotspot, *hotspot;
    unsigned int *extensions;
{
    unsigned int l;
    char buf[BUFSIZ];

    if (!data->format) {		/* XPM 2 or 3 */

	/*
	 * read values: width, height, ncolors, chars_per_pixel
	 */
	if (!(xpmNextUI(data, width) && xpmNextUI(data, height)
	      && xpmNextUI(data, ncolors) && xpmNextUI(data, cpp)))
	    return (XpmFileInvalid);

	/*
	 * read optional information (hotspot and/or XPMEXT) if any
	 */
	l = xpmNextWord(data, buf, BUFSIZ);
	if (l) {
	    *extensions = (l == 6 && !strncmp("XPMEXT", buf, 6));
	    if (*extensions)
		*hotspot = (xpmNextUI(data, x_hotspot)
			    && xpmNextUI(data, y_hotspot));
	    else {
		*hotspot = (xpmatoui(buf, l, x_hotspot)
			    && xpmNextUI(data, y_hotspot));
		l = xpmNextWord(data, buf, BUFSIZ);
		*extensions = (l == 6 && !strncmp("XPMEXT", buf, 6));
	    }
	}
    } else {

	/*
	 * XPM 1 file read values: width, height, ncolors, chars_per_pixel
	 */
	int i;
	char *ptr;
	Bool got_one, saw_width = False, saw_height = False;
	Bool saw_ncolors = False, saw_chars_per_pixel = False;

	for (i = 0; i < 4; i++) {
	    l = xpmNextWord(data, buf, BUFSIZ);
	    if (l != 7 || strncmp("#define", buf, 7))
			return (XpmFileInvalid);
	    l = xpmNextWord(data, buf, BUFSIZ);
	    if (!l)
			return (XpmFileInvalid);
	    buf[l] = '\0';
	    ptr = buf;
	    got_one = False;
	    while (!got_one) {
	    #if defined(macintosh) || defined(__APPLE__)
	    // we have a strange parameter problem here
		ptr = strchr(ptr, '_'); // index
	    #else
		ptr = index(ptr, '_'); 
		#endif
		if (!ptr)
		    return (XpmFileInvalid);
		switch (l - (ptr - buf)) {
		case 6:
		    if (saw_width || strncmp("_width", ptr, 6)
			|| !xpmNextUI(data, width))
			return (XpmFileInvalid);
		    else
			saw_width = True;
		    got_one = True;
		    break;
		case 7:
		    if (saw_height || strncmp("_height", ptr, 7)
			|| !xpmNextUI(data, height))
			return (XpmFileInvalid);
		    else
			saw_height = True;
		    got_one = True;
		    break;
		case 8:
		    if (saw_ncolors || strncmp("_ncolors", ptr, 8)
			|| !xpmNextUI(data, ncolors))
			return (XpmFileInvalid);
		    else
			saw_ncolors = True;
		    got_one = True;
		    break;
		case 16:
		    if (saw_chars_per_pixel
			|| strncmp("_chars_per_pixel", ptr, 16)
			|| !xpmNextUI(data, cpp))
			return (XpmFileInvalid);
		    else
			saw_chars_per_pixel = True;
		    got_one = True;
		    break;
		default:
		    ptr++;
		}
	    }
	    /* skip the end of line */
	    xpmNextString(data);
	}
	if (!saw_width || !saw_height || !saw_ncolors || !saw_chars_per_pixel)
	  return (XpmFileInvalid);

	*hotspot = 0;
	*extensions = 0;
    }
    return (XpmSuccess);
}

int
xpmParseColors(data, ncolors, cpp, colorTablePtr, hashtable)
    xpmData *data;
    unsigned int ncolors;
    unsigned int cpp;
    XpmColor **colorTablePtr;
    xpmHashTable *hashtable;
{
    unsigned int key, l, a, b;
    unsigned int curkey;		/* current color key */
    unsigned int lastwaskey;		/* key read */
    char buf[BUFSIZ];
    char curbuf[BUFSIZ];		/* current buffer */
    char **sptr, *s;
    XpmColor *color;
    XpmColor *colorTable;
    char **defaults;
    int ErrorStatus;

    colorTable = (XpmColor *) XpmCalloc(ncolors, sizeof(XpmColor));
    if (!colorTable)
	return (XpmNoMemory);

    if (!data->format) {		/* XPM 2 or 3 */
	for (a = 0, color = colorTable; a < ncolors; a++, color++) {
	    xpmNextString(data);	/* skip the line */

	    /*
	     * read pixel value
	     */
	    color->string = (char *) XpmMalloc(cpp + 1);
	    if (!color->string) {
		xpmFreeColorTable(colorTable, ncolors);
		return (XpmNoMemory);
	    }
	    for (b = 0, s = color->string; b < cpp; b++, s++)
		*s = xpmGetC(data);
	    *s = '\0';

	    /*
	     * store the string in the hashtable with its color index number
	     */
	    if (USE_HASHTABLE) {
		ErrorStatus =
		    xpmHashIntern(hashtable, color->string, HashAtomData(a));
		if (ErrorStatus != XpmSuccess) {
		    xpmFreeColorTable(colorTable, ncolors);
		    return (ErrorStatus);
		}
	    }

	    /*
	     * read color keys and values
	     */
	    defaults = (char **) color;
	    curkey = 0;
	    lastwaskey = 0;
	    *curbuf = '\0';		/* init curbuf */
	    while ((l = xpmNextWord(data, buf, BUFSIZ))!=NULL ) {
		if (!lastwaskey) {
		    for (key = 0, sptr = xpmColorKeys; key < NKEYS; key++,
			 sptr++)
			if ((strlen(*sptr) == l) && (!strncmp(*sptr, buf, l)))
			    break;
		}
		if (!lastwaskey && key < NKEYS) {	/* open new key */
		    if (curkey) {	/* flush string */
			s = (char *) XpmMalloc(strlen(curbuf) + 1);
			if (!s) {
			    xpmFreeColorTable(colorTable, ncolors);
			    return (XpmNoMemory);
			}
			defaults[curkey] = s;
			strcpy(s, curbuf);
		    }
		    curkey = key + 1;	/* set new key  */
		    *curbuf = '\0';	/* reset curbuf */
		    lastwaskey = 1;
		} else {
		    if (!curkey) {	/* key without value */
			xpmFreeColorTable(colorTable, ncolors);
			return (XpmFileInvalid);
		    }
		    if (!lastwaskey)
			strcat(curbuf, " ");	/* append space */
		    buf[l] = '\0';
		    strcat(curbuf, buf);/* append buf */
		    lastwaskey = 0;
		}
	    }
	    if (!curkey) {		/* key without value */
		xpmFreeColorTable(colorTable, ncolors);
		return (XpmFileInvalid);
	    }
	    s = defaults[curkey] = (char *) XpmMalloc(strlen(curbuf) + 1);
	    if (!s) {
		xpmFreeColorTable(colorTable, ncolors);
		return (XpmNoMemory);
	    }
	    strcpy(s, curbuf);
	}
    } else {				/* XPM 1 */
	/* get to the beginning of the first string */
	data->Bos = '"';
	data->Eos = '\0';
	xpmNextString(data);
	data->Eos = '"';
	for (a = 0, color = colorTable; a < ncolors; a++, color++) {

	    /*
	     * read pixel value
	     */
	    color->string = (char *) XpmMalloc(cpp + 1);
	    if (!color->string) {
		xpmFreeColorTable(colorTable, ncolors);
		return (XpmNoMemory);
	    }
	    for (b = 0, s = color->string; b < cpp; b++, s++)
		*s = xpmGetC(data);
	    *s = '\0';

	    /*
	     * store the string in the hashtable with its color index number
	     */
	    if (USE_HASHTABLE) {
		ErrorStatus =
		    xpmHashIntern(hashtable, color->string, HashAtomData(a));
		if (ErrorStatus != XpmSuccess) {
		    xpmFreeColorTable(colorTable, ncolors);
		    return (ErrorStatus);
		}
	    }

	    /*
	     * read color values
	     */
	    xpmNextString(data);	/* get to the next string */
	    *curbuf = '\0';		/* init curbuf */
	    while ((l = xpmNextWord(data, buf, BUFSIZ))!=NULL ) {
		if (*curbuf != '\0')
		    strcat(curbuf, " ");/* append space */
		buf[l] = '\0';
		strcat(curbuf, buf);	/* append buf */
	    }
	    s = (char *) XpmMalloc(strlen(curbuf) + 1);
	    if (!s) {
		xpmFreeColorTable(colorTable, ncolors);
		return (XpmNoMemory);
	    }
	    strcpy(s, curbuf);
	    color->c_color = s;
	    *curbuf = '\0';		/* reset curbuf */
	    if (a < ncolors - 1)
		xpmNextString(data);	/* get to the next string */
	}
    }
    *colorTablePtr = colorTable;
    return (XpmSuccess);
}

static int
ParsePixels(data, width, height, ncolors, cpp, colorTable, hashtable, pixels)
    xpmData *data;
    unsigned int width;
    unsigned int height;
    unsigned int ncolors;
    unsigned int cpp;
    XpmColor *colorTable;
    xpmHashTable *hashtable;
    unsigned int **pixels;
{
    unsigned int *iptr, *iptr2;
    unsigned int a, x, y;

#ifndef FOR_MSW
    iptr2 = (unsigned int *) XpmMalloc(sizeof(unsigned int) * width * height);
#else

    /*
     * special treatment to trick DOS malloc(size_t) where size_t is 16 bit!!
     * XpmMalloc is defined to longMalloc(long) and checks the 16 bit boundary
     */
    iptr2 = (unsigned int *)
	XpmMalloc((long) sizeof(unsigned int) * (long) width * (long) height);
#endif
    if (!iptr2)
	return (XpmNoMemory);

    iptr = iptr2;

    switch (cpp) {

    case (1):				/* Optimize for single character
					 * colors */
	{
	    unsigned short colidx[256];

	    bzero((char *)colidx, 256 * sizeof(short));
	    for (a = 0; a < ncolors; a++)
		colidx[(unsigned char)colorTable[a].string[0]] = a + 1;

	    for (y = 0; y < height; y++) {
		xpmNextString(data);
		for (x = 0; x < width; x++, iptr++) {
		    int c = xpmGetC(data);

		    if (c > 0 && c < 256 && colidx[c] != 0)
			*iptr = colidx[c] - 1;
		    else {
			XpmFree(iptr2);
			return (XpmFileInvalid);
		    }
		}
	    }
	}
	break;

    case (2):				/* Optimize for double character
					 * colors */
	{

/* free all allocated pointers at all exits */
#define FREE_CIDX {int f; for (f = 0; f < 256; f++) \
if (cidx[f]) XpmFree(cidx[f]);}

	    /* array of pointers malloced by need */
	    unsigned short *cidx[256];
	    int char1;

	    bzero((char *)cidx, 256 * sizeof(unsigned short *)); /* init */
	    for (a = 0; a < ncolors; a++) {
		char1 = colorTable[a].string[0];
		if (cidx[char1] == NULL) { /* get new memory */
		    cidx[char1] = (unsigned short *)
			XpmCalloc(256, sizeof(unsigned short));
		    if (cidx[char1] == NULL) { /* new block failed */
			FREE_CIDX;
			XpmFree(iptr2);
			return (XpmNoMemory);
		    }
		}
		cidx[char1][(unsigned char)colorTable[a].string[1]] = a + 1;
	    }

	    for (y = 0; y < height; y++) {
		xpmNextString(data);
		for (x = 0; x < width; x++, iptr++) {
		    int cc1 = xpmGetC(data);
		    if (cc1 > 0 && cc1 < 256) {
			int cc2 = xpmGetC(data);
			if (cc2 > 0 && cc2 < 256 &&
			    cidx[cc1] && cidx[cc1][cc2] != 0)
			    *iptr = cidx[cc1][cc2] - 1;
			else {
			    FREE_CIDX;
			    XpmFree(iptr2);
			    return (XpmFileInvalid);
			}
		    } else {
			FREE_CIDX;
			XpmFree(iptr2);
			return (XpmFileInvalid);
		    }
		}
	    }
	    FREE_CIDX;
	}
	break;

    default:				/* Non-optimized case of long color
					 * names */
	{
	    char *s;
	    char buf[BUFSIZ];

	    buf[cpp] = '\0';
	    if (USE_HASHTABLE) {
		xpmHashAtom *slot;

		for (y = 0; y < height; y++) {
		    xpmNextString(data);
		    for (x = 0; x < width; x++, iptr++) {
			for (a = 0, s = buf; a < cpp; a++, s++)
			    *s = xpmGetC(data);
			slot = xpmHashSlot(hashtable, buf);
			if (!*slot) {	/* no color matches */
			    XpmFree(iptr2);
			    return (XpmFileInvalid);
			}
			*iptr = HashColorIndex(slot);
		    }
		}
	    } else {
		for (y = 0; y < height; y++) {
		    xpmNextString(data);
		    for (x = 0; x < width; x++, iptr++) {
			for (a = 0, s = buf; a < cpp; a++, s++)
			    *s = xpmGetC(data);
			for (a = 0; a < ncolors; a++)
			    if (!strcmp(colorTable[a].string, buf))
				break;
			if (a == ncolors) {	/* no color matches */
			    XpmFree(iptr2);
			    return (XpmFileInvalid);
			}
			*iptr = a;
		    }
		}
	    }
	}
	break;
    }
    *pixels = iptr2;
    return (XpmSuccess);
}

int
xpmParseExtensions(data, extensions, nextensions)
    xpmData *data;
    XpmExtension **extensions;
    unsigned int *nextensions;
{
    XpmExtension *exts = NULL, *ext;
    unsigned int num = 0;
    unsigned int nlines, a, l, notstart, notend = 0;
    int status;
    char *string, *s, *s2, **sp;

    xpmNextString(data);
    exts = (XpmExtension *) XpmMalloc(sizeof(XpmExtension));
    /* get the whole string */
    status = xpmGetString(data, &string, &l);
    if (status != XpmSuccess) {
	XpmFree(exts);
	return (status);
    }
    /* look for the key word XPMEXT, skip lines before this */
    while ((notstart = strncmp("XPMEXT", string, 6))!=NULL 
	   && (notend = strncmp("XPMENDEXT", string, 9))!=NULL ) {
	XpmFree(string);
	xpmNextString(data);
	status = xpmGetString(data, &string, &l);
	if (status != XpmSuccess) {
	    XpmFree(exts);
	    return (status);
	}
    }
    if (!notstart)
	notend = strncmp("XPMENDEXT", string, 9);
    while (!notstart && notend) {
	/* there starts an extension */
	ext = (XpmExtension *)
	    XpmRealloc(exts, (num + 1) * sizeof(XpmExtension));
	if (!ext) {
	    XpmFree(string);
	    XpmFreeExtensions(exts, num);
	    return (XpmNoMemory);
	}
	exts = ext;
	ext += num;
	/* skip whitespace and store its name */
	s2 = s = string + 6;
	while (isspace(*s2))
	    s2++;
	a = s2 - s;
	ext->name = (char *) XpmMalloc(l - a - 6);
	if (!ext->name) {
	    XpmFree(string);
	    ext->lines = NULL;
	    ext->nlines = 0;
	    XpmFreeExtensions(exts, num + 1);
	    return (XpmNoMemory);
	}
	strncpy(ext->name, s + a, l - a - 6);
	XpmFree(string);
	/* now store the related lines */
	xpmNextString(data);
	status = xpmGetString(data, &string, &l);
	if (status != XpmSuccess) {
	    ext->lines = NULL;
	    ext->nlines = 0;
	    XpmFreeExtensions(exts, num + 1);
	    return (status);
	}
	ext->lines = (char **) XpmMalloc(sizeof(char *));
	nlines = 0;
	while ((notstart = strncmp("XPMEXT", string, 6))!=NULL 
	       && (notend = strncmp("XPMENDEXT", string, 9))!=NULL ) {
	    sp = (char **)
		XpmRealloc(ext->lines, (nlines + 1) * sizeof(char *));
	    if (!sp) {
		XpmFree(string);
		ext->nlines = nlines;
		XpmFreeExtensions(exts, num + 1);
		return (XpmNoMemory);
	    }
	    ext->lines = sp;
	    ext->lines[nlines] = string;
	    nlines++;
	    xpmNextString(data);
	    status = xpmGetString(data, &string, &l);
	    if (status != XpmSuccess) {
		ext->nlines = nlines;
		XpmFreeExtensions(exts, num + 1);
		return (status);
	    }
	}
	if (!nlines) {
	    XpmFree(ext->lines);
	    ext->lines = NULL;
	}
	ext->nlines = nlines;
	num++;
    }
    if (!num) {
	XpmFree(string);
	XpmFree(exts);
	exts = NULL;
    } else if (!notend)
	XpmFree(string);
    *nextensions = num;
    *extensions = exts;
    return (XpmSuccess);
}


/* function call in case of error */
#undef RETURN
#define RETURN(status) \
{ \
      goto error; \
}

/*
 * This function parses an Xpm file or data and store the found informations
 * in an an XpmImage structure which is returned.
 */
int
xpmParseData(data, image, info)
    xpmData *data;
    XpmImage *image;
    XpmInfo *info;
{
    /* variables to return */
    unsigned int width, height, ncolors, cpp;
    unsigned int x_hotspot, y_hotspot, hotspot = 0, extensions = 0;
    XpmColor *colorTable = NULL;
    unsigned int *pixelindex = NULL;
    char *hints_cmt = NULL;
    char *colors_cmt = NULL;
    char *pixels_cmt = NULL;

    unsigned int cmts;
    int ErrorStatus;
    xpmHashTable hashtable;

    cmts = info && (info->valuemask & XpmReturnComments);

    /*
     * parse the header
     */
    ErrorStatus = xpmParseHeader(data);
    if (ErrorStatus != XpmSuccess)
	return (ErrorStatus);

    /*
     * read values
     */
    ErrorStatus = xpmParseValues(data, &width, &height, &ncolors, &cpp,
				 &x_hotspot, &y_hotspot, &hotspot,
				 &extensions);
    if (ErrorStatus != XpmSuccess)
	return (ErrorStatus);

    /*
     * store the hints comment line
     */
    if (cmts)
	xpmGetCmt(data, &hints_cmt);

    /*
     * init the hastable
     */
    if (USE_HASHTABLE) {
	ErrorStatus = xpmHashTableInit(&hashtable);
	if (ErrorStatus != XpmSuccess)
	    return (ErrorStatus);
    }

    /*
     * read colors
     */
    ErrorStatus = xpmParseColors(data, ncolors, cpp, &colorTable, &hashtable);
    if (ErrorStatus != XpmSuccess) {
	if (USE_HASHTABLE)
	    xpmHashTableFree(&hashtable);
	RETURN(ErrorStatus);
    }

    /*
     * store the colors comment line
     */
    if (cmts)
	xpmGetCmt(data, &colors_cmt);

    /*
     * read pixels and index them on color number
     */
    ErrorStatus = ParsePixels(data, width, height, ncolors, cpp, colorTable,
			      &hashtable, &pixelindex);

    /*
     * free the hastable
     */
    if (USE_HASHTABLE)
	xpmHashTableFree(&hashtable);

    if (ErrorStatus != XpmSuccess)
	RETURN(ErrorStatus);

    /*
     * store the pixels comment line
     */
    if (cmts)
	xpmGetCmt(data, &pixels_cmt);

    /*
     * parse extensions
     */
    if (info && (info->valuemask & XpmReturnExtensions))
	if (extensions) {
	    ErrorStatus = xpmParseExtensions(data, &info->extensions,
					     &info->nextensions);
	    if (ErrorStatus != XpmSuccess)
		RETURN(ErrorStatus);
	} else {
	    info->extensions = NULL;
	    info->nextensions = 0;
	}

    /*
     * store found informations in the XpmImage structure
     */
    image->width = width;
    image->height = height;
    image->cpp = cpp;
    image->ncolors = ncolors;
    image->colorTable = colorTable;
    image->data = pixelindex;

    if (info) {
	if (cmts) {
	    info->hints_cmt = hints_cmt;
	    info->colors_cmt = colors_cmt;
	    info->pixels_cmt = pixels_cmt;
	}
	if (hotspot) {
	    info->x_hotspot = x_hotspot;
	    info->y_hotspot = y_hotspot;
	    info->valuemask |= XpmHotspot;
	}
    }
    return (XpmSuccess);

/* exit point in case of error, free only locally allocated variables */
error:
    if (colorTable)
	xpmFreeColorTable(colorTable, ncolors);
    if (pixelindex)
	XpmFree(pixelindex);
    if (hints_cmt)
	XpmFree(hints_cmt);
    if (colors_cmt)
	XpmFree(colors_cmt);
    if (pixels_cmt)
	XpmFree(pixels_cmt);

    return(ErrorStatus);
}
Commit	Line	Data
0240e8b1 SC	1	/*
	2	* Copyright (C) 1989-95 GROUPE BULL
	3	*
	4	* Permission is hereby granted, free of charge, to any person obtaining a copy
	5	* of this software and associated documentation files (the "Software"), to
	6	* deal in the Software without restriction, including without limitation the
	7	* rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
	8	* sell copies of the Software, and to permit persons to whom the Software is
	9	* furnished to do so, subject to the following conditions:
	10	*
	11	* The above copyright notice and this permission notice shall be included in
	12	* all copies or substantial portions of the Software.
	13	*
	14	* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
	15	* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
	16	* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
	17	* GROUPE BULL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
	18	* AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
	19	* CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
	20	*
	21	* Except as contained in this notice, the name of GROUPE BULL shall not be
	22	* used in advertising or otherwise to promote the sale, use or other dealings
	23	* in this Software without prior written authorization from GROUPE BULL.
	24	*/
	25
	26	/*****************************************************************************\
	27	* parse.c: *
	28	* *
	29	* XPM library *
	30	* Parse an XPM file or array and store the found informations *
	31	* in the given XpmImage structure. *
	32	* *
	33	* Developed by Arnaud Le Hors *
	34	\*****************************************************************************/
	35
	36	/*
	37	* The code related to FOR_MSW has been added by
	38	* HeDu (hedu@cul-ipn.uni-kiel.de) 4/94
	39	*/
	40
2f1ae414	41	#include "XpmI.h"
0240e8b1 SC	42	#include <ctype.h>
	43
	44	LFUNC(ParsePixels, int, (xpmData *data, unsigned int width,
	45	unsigned int height, unsigned int ncolors,
	46	unsigned int cpp, XpmColor *colorTable,
	47	xpmHashTable hashtable, unsigned int *pixels));
	48
	49	char *xpmColorKeys[] = {
	50	"s", /* key #1: symbol */
	51	"m", /* key #2: mono visual */
	52	"g4", /* key #3: 4 grays visual */
	53	"g", /* key #4: gray visual */
	54	"c", /* key #5: color visual */
	55	};
	56
	57	int
	58	xpmParseValues(data, width, height, ncolors, cpp,
	59	x_hotspot, y_hotspot, hotspot, extensions)
	60	xpmData *data;
	61	unsigned int width, height, ncolors, cpp;
	62	unsigned int x_hotspot, y_hotspot, *hotspot;
	63	unsigned int *extensions;
	64	{
	65	unsigned int l;
	66	char buf[BUFSIZ];
	67
	68	if (!data->format) { /* XPM 2 or 3 */
	69
	70	/*
	71	* read values: width, height, ncolors, chars_per_pixel
	72	*/
	73	if (!(xpmNextUI(data, width) && xpmNextUI(data, height)
	74	&& xpmNextUI(data, ncolors) && xpmNextUI(data, cpp)))
	75	return (XpmFileInvalid);
	76
	77	/*
	78	* read optional information (hotspot and/or XPMEXT) if any
	79	*/
	80	l = xpmNextWord(data, buf, BUFSIZ);
	81	if (l) {
	82	*extensions = (l == 6 && !strncmp("XPMEXT", buf, 6));
	83	if (*extensions)
	84	*hotspot = (xpmNextUI(data, x_hotspot)
	85	&& xpmNextUI(data, y_hotspot));
	86	else {
	87	*hotspot = (xpmatoui(buf, l, x_hotspot)
	88	&& xpmNextUI(data, y_hotspot));
	89	l = xpmNextWord(data, buf, BUFSIZ);
	90	*extensions = (l == 6 && !strncmp("XPMEXT", buf, 6));
	91	}
	92	}
	93	} else {
	94
	95	/*
	96	* XPM 1 file read values: width, height, ncolors, chars_per_pixel
	97	*/
	98	int i;
	99	char *ptr;
	100	Bool got_one, saw_width = False, saw_height = False;
	101	Bool saw_ncolors = False, saw_chars_per_pixel = False;
	102
	103	for (i = 0; i < 4; i++) {
	104	l = xpmNextWord(data, buf, BUFSIZ);
	105	if (l != 7 \|\| strncmp("#define", buf, 7))
106	return (XpmFileInvalid);
107	l = xpmNextWord(data, buf, BUFSIZ);
108	if (!l)
109	return (XpmFileInvalid);
110	buf[l] = '\0';
111	ptr = buf;
112	got_one = False;
113	while (!got_one) {
9c1175db GD	114	#if defined(macintosh) \|\| defined(__APPLE__)
9c1175db GD	115	// we have a strange parameter problem here
0240e8b1 SC	116	ptr = strchr(ptr, '_'); // index
	117	#else
	118	ptr = index(ptr, '_');
	119	#endif
	120	if (!ptr)
	121	return (XpmFileInvalid);
	122	switch (l - (ptr - buf)) {
	123	case 6:
	124	if (saw_width \|\| strncmp("_width", ptr, 6)
	125	\|\| !xpmNextUI(data, width))
	126	return (XpmFileInvalid);
	127	else
	128	saw_width = True;
	129	got_one = True;
	130	break;
	131	case 7:
	132	if (saw_height \|\| strncmp("_height", ptr, 7)
	133	\|\| !xpmNextUI(data, height))
	134	return (XpmFileInvalid);
	135	else
	136	saw_height = True;
	137	got_one = True;
	138	break;
	139	case 8:
	140	if (saw_ncolors \|\| strncmp("_ncolors", ptr, 8)
	141	\|\| !xpmNextUI(data, ncolors))
	142	return (XpmFileInvalid);
	143	else
	144	saw_ncolors = True;
	145	got_one = True;
	146	break;
	147	case 16:
	148	if (saw_chars_per_pixel
	149	\|\| strncmp("_chars_per_pixel", ptr, 16)
	150	\|\| !xpmNextUI(data, cpp))
	151	return (XpmFileInvalid);
	152	else
	153	saw_chars_per_pixel = True;
	154	got_one = True;
	155	break;
	156	default:
	157	ptr++;
	158	}
	159	}
	160	/* skip the end of line */
	161	xpmNextString(data);
	162	}
	163	if (!saw_width \|\| !saw_height \|\| !saw_ncolors \|\| !saw_chars_per_pixel)
	164	return (XpmFileInvalid);
	165
	166	*hotspot = 0;
	167	*extensions = 0;
	168	}
	169	return (XpmSuccess);
	170	}
	171
	172	int
	173	xpmParseColors(data, ncolors, cpp, colorTablePtr, hashtable)
	174	xpmData *data;
	175	unsigned int ncolors;
	176	unsigned int cpp;
	177	XpmColor **colorTablePtr;
	178	xpmHashTable *hashtable;
	179	{
180	unsigned int key, l, a, b;
181	unsigned int curkey; /* current color key */
182	unsigned int lastwaskey; /* key read */
183	char buf[BUFSIZ];
184	char curbuf[BUFSIZ]; /* current buffer */
185	char *sptr, s;
186	XpmColor *color;
187	XpmColor *colorTable;
188	char **defaults;
189	int ErrorStatus;
190
191	colorTable = (XpmColor *) XpmCalloc(ncolors, sizeof(XpmColor));
192	if (!colorTable)
193	return (XpmNoMemory);
194
195	if (!data->format) { /* XPM 2 or 3 */
196	for (a = 0, color = colorTable; a < ncolors; a++, color++) {
197	xpmNextString(data); /* skip the line */
198
199	/*
200	* read pixel value
201	*/
202	color->string = (char *) XpmMalloc(cpp + 1);
203	if (!color->string) {
204	xpmFreeColorTable(colorTable, ncolors);
205	return (XpmNoMemory);
206	}
207	for (b = 0, s = color->string; b < cpp; b++, s++)
208	*s = xpmGetC(data);
209	*s = '\0';
210
211	/*
212	* store the string in the hashtable with its color index number
213	*/
214	if (USE_HASHTABLE) {
215	ErrorStatus =
216	xpmHashIntern(hashtable, color->string, HashAtomData(a));
217	if (ErrorStatus != XpmSuccess) {
218	xpmFreeColorTable(colorTable, ncolors);
219	return (ErrorStatus);
220	}
221	}
222
223	/*
224	* read color keys and values
225	*/
226	defaults = (char **) color;
227	curkey = 0;
228	lastwaskey = 0;
229	curbuf = '\0'; / init curbuf */
230	while ((l = xpmNextWord(data, buf, BUFSIZ))!=NULL ) {
231	if (!lastwaskey) {
232	for (key = 0, sptr = xpmColorKeys; key < NKEYS; key++,
233	sptr++)
234	if ((strlen(sptr) == l) && (!strncmp(sptr, buf, l)))
235	break;
236	}
237	if (!lastwaskey && key < NKEYS) { /* open new key */
238	if (curkey) { /* flush string */
239	s = (char *) XpmMalloc(strlen(curbuf) + 1);
240	if (!s) {
241	xpmFreeColorTable(colorTable, ncolors);
242	return (XpmNoMemory);
243	}
244	defaults[curkey] = s;
245	strcpy(s, curbuf);
246	}
247	curkey = key + 1; /* set new key */
248	curbuf = '\0'; / reset curbuf */
249	lastwaskey = 1;
250	} else {
251	if (!curkey) { /* key without value */
252	xpmFreeColorTable(colorTable, ncolors);
253	return (XpmFileInvalid);
254	}
255	if (!lastwaskey)
256	strcat(curbuf, " "); /* append space */
257	buf[l] = '\0';
258	strcat(curbuf, buf);/* append buf */
259	lastwaskey = 0;
260	}
261	}
262	if (!curkey) { /* key without value */
263	xpmFreeColorTable(colorTable, ncolors);
264	return (XpmFileInvalid);
265	}
266	s = defaults[curkey] = (char *) XpmMalloc(strlen(curbuf) + 1);
267	if (!s) {
268	xpmFreeColorTable(colorTable, ncolors);
269	return (XpmNoMemory);
270	}
271	strcpy(s, curbuf);
272	}
273	} else { /* XPM 1 */
274	/* get to the beginning of the first string */
275	data->Bos = '"';
276	data->Eos = '\0';
277	xpmNextString(data);
278	data->Eos = '"';
279	for (a = 0, color = colorTable; a < ncolors; a++, color++) {
280
281	/*
282	* read pixel value
283	*/
284	color->string = (char *) XpmMalloc(cpp + 1);
285	if (!color->string) {
286	xpmFreeColorTable(colorTable, ncolors);
287	return (XpmNoMemory);
288	}
289	for (b = 0, s = color->string; b < cpp; b++, s++)
290	*s = xpmGetC(data);
291	*s = '\0';
292
293	/*
294	* store the string in the hashtable with its color index number
295	*/
296	if (USE_HASHTABLE) {
297	ErrorStatus =
298	xpmHashIntern(hashtable, color->string, HashAtomData(a));
299	if (ErrorStatus != XpmSuccess) {
300	xpmFreeColorTable(colorTable, ncolors);
301	return (ErrorStatus);
302	}
303	}
304
305	/*
306	* read color values
307	*/
308	xpmNextString(data); /* get to the next string */
309	curbuf = '\0'; / init curbuf */
310	while ((l = xpmNextWord(data, buf, BUFSIZ))!=NULL ) {
311	if (*curbuf != '\0')
312	strcat(curbuf, " ");/* append space */
313	buf[l] = '\0';
314	strcat(curbuf, buf); /* append buf */
315	}
316	s = (char *) XpmMalloc(strlen(curbuf) + 1);
317	if (!s) {
318	xpmFreeColorTable(colorTable, ncolors);
319	return (XpmNoMemory);
320	}
321	strcpy(s, curbuf);
322	color->c_color = s;
323	curbuf = '\0'; / reset curbuf */
324	if (a < ncolors - 1)
325	xpmNextString(data); /* get to the next string */
326	}
327	}
328	*colorTablePtr = colorTable;
329	return (XpmSuccess);
330	}
331
332	static int
333	ParsePixels(data, width, height, ncolors, cpp, colorTable, hashtable, pixels)
334	xpmData *data;
335	unsigned int width;
336	unsigned int height;
337	unsigned int ncolors;
338	unsigned int cpp;
339	XpmColor *colorTable;
340	xpmHashTable *hashtable;
341	unsigned int **pixels;
342	{
343	unsigned int iptr, iptr2;
344	unsigned int a, x, y;
345
346	#ifndef FOR_MSW
347	iptr2 = (unsigned int ) XpmMalloc(sizeof(unsigned int) width * height);
348	#else
349
350	/*
351	* special treatment to trick DOS malloc(size_t) where size_t is 16 bit!!
352	* XpmMalloc is defined to longMalloc(long) and checks the 16 bit boundary
353	*/
354	iptr2 = (unsigned int *)
355	XpmMalloc((long) sizeof(unsigned int) * (long) width * (long) height);
356	#endif
357	if (!iptr2)
358	return (XpmNoMemory);
359
360	iptr = iptr2;
361
362	switch (cpp) {
363
364	case (1): /* Optimize for single character
365	* colors */
366	{
367	unsigned short colidx[256];
368
369	bzero((char )colidx, 256 sizeof(short));
370	for (a = 0; a < ncolors; a++)
371	colidx[(unsigned char)colorTable[a].string[0]] = a + 1;
372
373	for (y = 0; y < height; y++) {
374	xpmNextString(data);
375	for (x = 0; x < width; x++, iptr++) {
376	int c = xpmGetC(data);
377
378	if (c > 0 && c < 256 && colidx[c] != 0)
379	*iptr = colidx[c] - 1;
380	else {
381	XpmFree(iptr2);
382	return (XpmFileInvalid);
383	}
384	}
385	}
386	}
387	break;
388
389	case (2): /* Optimize for double character
390	* colors */
391	{
392
393	/* free all allocated pointers at all exits */
394	#define FREE_CIDX {int f; for (f = 0; f < 256; f++) \
395	if (cidx[f]) XpmFree(cidx[f]);}
396
397	/* array of pointers malloced by need */
398	unsigned short *cidx[256];
399	int char1;
400
401	bzero((char )cidx, 256 sizeof(unsigned short )); / init */
402	for (a = 0; a < ncolors; a++) {
403	char1 = colorTable[a].string[0];
404	if (cidx[char1] == NULL) { /* get new memory */
405	cidx[char1] = (unsigned short *)
406	XpmCalloc(256, sizeof(unsigned short));
407	if (cidx[char1] == NULL) { /* new block failed */
408	FREE_CIDX;
409	XpmFree(iptr2);
410	return (XpmNoMemory);
411	}
412	}
413	cidx[char1][(unsigned char)colorTable[a].string[1]] = a + 1;
414	}
415
416	for (y = 0; y < height; y++) {
417	xpmNextString(data);
418	for (x = 0; x < width; x++, iptr++) {
419	int cc1 = xpmGetC(data);
420	if (cc1 > 0 && cc1 < 256) {
421	int cc2 = xpmGetC(data);
422	if (cc2 > 0 && cc2 < 256 &&
423	cidx[cc1] && cidx[cc1][cc2] != 0)
424	*iptr = cidx[cc1][cc2] - 1;
425	else {
426	FREE_CIDX;
427	XpmFree(iptr2);
428	return (XpmFileInvalid);
429	}
430	} else {
431	FREE_CIDX;
432	XpmFree(iptr2);
433	return (XpmFileInvalid);
434	}
435	}
436	}
437	FREE_CIDX;
438	}
439	break;
440
441	default: /* Non-optimized case of long color
442	* names */
443	{
444	char *s;
445	char buf[BUFSIZ];
446
447	buf[cpp] = '\0';
448	if (USE_HASHTABLE) {
449	xpmHashAtom *slot;
450
451	for (y = 0; y < height; y++) {
452	xpmNextString(data);
453	for (x = 0; x < width; x++, iptr++) {
454	for (a = 0, s = buf; a < cpp; a++, s++)
455	*s = xpmGetC(data);
456	slot = xpmHashSlot(hashtable, buf);
457	if (!slot) { / no color matches */
458	XpmFree(iptr2);
459	return (XpmFileInvalid);
460	}
461	*iptr = HashColorIndex(slot);
462	}
463	}
464	} else {
465	for (y = 0; y < height; y++) {
466	xpmNextString(data);
467	for (x = 0; x < width; x++, iptr++) {
468	for (a = 0, s = buf; a < cpp; a++, s++)
469	*s = xpmGetC(data);
470	for (a = 0; a < ncolors; a++)
471	if (!strcmp(colorTable[a].string, buf))
472	break;
473	if (a == ncolors) { /* no color matches */
474	XpmFree(iptr2);
475	return (XpmFileInvalid);
476	}
477	*iptr = a;
478	}
479	}
480	}
481	}
482	break;
483	}
484	*pixels = iptr2;
485	return (XpmSuccess);
486	}
487
488	int
489	xpmParseExtensions(data, extensions, nextensions)
490	xpmData *data;
491	XpmExtension **extensions;
492	unsigned int *nextensions;
493	{
494	XpmExtension exts = NULL, ext;
495	unsigned int num = 0;
496	unsigned int nlines, a, l, notstart, notend = 0;
497	int status;
498	char string, s, s2, *sp;
499
500	xpmNextString(data);
501	exts = (XpmExtension *) XpmMalloc(sizeof(XpmExtension));
502	/* get the whole string */
503	status = xpmGetString(data, &string, &l);
504	if (status != XpmSuccess) {
505	XpmFree(exts);
506	return (status);
507	}
508	/* look for the key word XPMEXT, skip lines before this */
509	while ((notstart = strncmp("XPMEXT", string, 6))!=NULL
510	&& (notend = strncmp("XPMENDEXT", string, 9))!=NULL ) {
511	XpmFree(string);
512	xpmNextString(data);
513	status = xpmGetString(data, &string, &l);
514	if (status != XpmSuccess) {
515	XpmFree(exts);
516	return (status);
517	}
518	}
519	if (!notstart)
520	notend = strncmp("XPMENDEXT", string, 9);
521	while (!notstart && notend) {
522	/* there starts an extension */
523	ext = (XpmExtension *)
524	XpmRealloc(exts, (num + 1) * sizeof(XpmExtension));
525	if (!ext) {
526	XpmFree(string);
527	XpmFreeExtensions(exts, num);
528	return (XpmNoMemory);
529	}
530	exts = ext;
531	ext += num;
532	/* skip whitespace and store its name */
533	s2 = s = string + 6;
534	while (isspace(*s2))
535	s2++;
536	a = s2 - s;
537	ext->name = (char *) XpmMalloc(l - a - 6);
538	if (!ext->name) {
539	XpmFree(string);
540	ext->lines = NULL;
541	ext->nlines = 0;
542	XpmFreeExtensions(exts, num + 1);
543	return (XpmNoMemory);
544	}
545	strncpy(ext->name, s + a, l - a - 6);
546	XpmFree(string);
547	/* now store the related lines */
548	xpmNextString(data);
549	status = xpmGetString(data, &string, &l);
550	if (status != XpmSuccess) {
551	ext->lines = NULL;
552	ext->nlines = 0;
553	XpmFreeExtensions(exts, num + 1);
554	return (status);
555	}
556	ext->lines = (char *) XpmMalloc(sizeof(char ));
557	nlines = 0;
558	while ((notstart = strncmp("XPMEXT", string, 6))!=NULL
559	&& (notend = strncmp("XPMENDEXT", string, 9))!=NULL ) {
560	sp = (char **)
561	XpmRealloc(ext->lines, (nlines + 1) * sizeof(char *));
562	if (!sp) {
563	XpmFree(string);
564	ext->nlines = nlines;
565	XpmFreeExtensions(exts, num + 1);
566	return (XpmNoMemory);
567	}
568	ext->lines = sp;
569	ext->lines[nlines] = string;
570	nlines++;
571	xpmNextString(data);
572	status = xpmGetString(data, &string, &l);
573	if (status != XpmSuccess) {
574	ext->nlines = nlines;
575	XpmFreeExtensions(exts, num + 1);
576	return (status);
577	}
578	}
579	if (!nlines) {
580	XpmFree(ext->lines);
581	ext->lines = NULL;
582	}
583	ext->nlines = nlines;
584	num++;
585	}
586	if (!num) {
587	XpmFree(string);
588	XpmFree(exts);
589	exts = NULL;
590	} else if (!notend)
591	XpmFree(string);
592	*nextensions = num;
593	*extensions = exts;
594	return (XpmSuccess);
595	}
596
597
598	/* function call in case of error */
599	#undef RETURN
600	#define RETURN(status) \
601	{ \
602	goto error; \
603	}
604
605	/*
606	* This function parses an Xpm file or data and store the found informations
607	* in an an XpmImage structure which is returned.
608	*/
609	int
610	xpmParseData(data, image, info)
611	xpmData *data;
612	XpmImage *image;
613	XpmInfo *info;
614	{
615	/* variables to return */
616	unsigned int width, height, ncolors, cpp;
617	unsigned int x_hotspot, y_hotspot, hotspot = 0, extensions = 0;
618	XpmColor *colorTable = NULL;
619	unsigned int *pixelindex = NULL;
620	char *hints_cmt = NULL;
621	char *colors_cmt = NULL;
622	char *pixels_cmt = NULL;
623
624	unsigned int cmts;
625	int ErrorStatus;
626	xpmHashTable hashtable;
627
628	cmts = info && (info->valuemask & XpmReturnComments);
629
630	/*
631	* parse the header
632	*/
633	ErrorStatus = xpmParseHeader(data);
634	if (ErrorStatus != XpmSuccess)
635	return (ErrorStatus);
636
637	/*
638	* read values
639	*/
640	ErrorStatus = xpmParseValues(data, &width, &height, &ncolors, &cpp,
641	&x_hotspot, &y_hotspot, &hotspot,
642	&extensions);
643	if (ErrorStatus != XpmSuccess)
644	return (ErrorStatus);
645
646	/*
647	* store the hints comment line
648	*/
649	if (cmts)
650	xpmGetCmt(data, &hints_cmt);
651
652	/*
653	* init the hastable
654	*/
655	if (USE_HASHTABLE) {
656	ErrorStatus = xpmHashTableInit(&hashtable);
657	if (ErrorStatus != XpmSuccess)
658	return (ErrorStatus);
659	}
660
661	/*
662	* read colors
663	*/
664	ErrorStatus = xpmParseColors(data, ncolors, cpp, &colorTable, &hashtable);
665	if (ErrorStatus != XpmSuccess) {
666	if (USE_HASHTABLE)
667	xpmHashTableFree(&hashtable);
668	RETURN(ErrorStatus);
669	}
670
671	/*
672	* store the colors comment line
673	*/
674	if (cmts)
675	xpmGetCmt(data, &colors_cmt);
676
677	/*
678	* read pixels and index them on color number
679	*/
680	ErrorStatus = ParsePixels(data, width, height, ncolors, cpp, colorTable,
681	&hashtable, &pixelindex);
682
683	/*
684	* free the hastable
685	*/
686	if (USE_HASHTABLE)
687	xpmHashTableFree(&hashtable);
688
689	if (ErrorStatus != XpmSuccess)
690	RETURN(ErrorStatus);
691
692	/*
693	* store the pixels comment line
694	*/
695	if (cmts)
696	xpmGetCmt(data, &pixels_cmt);
697
698	/*
699	* parse extensions
700	*/
701	if (info && (info->valuemask & XpmReturnExtensions))
702	if (extensions) {
703	ErrorStatus = xpmParseExtensions(data, &info->extensions,
704	&info->nextensions);
705	if (ErrorStatus != XpmSuccess)
706	RETURN(ErrorStatus);
707	} else {
708	info->extensions = NULL;
709	info->nextensions = 0;
710	}
711
712	/*
713	* store found informations in the XpmImage structure
714	*/
715	image->width = width;
716	image->height = height;
717	image->cpp = cpp;
718	image->ncolors = ncolors;
719	image->colorTable = colorTable;
720	image->data = pixelindex;
721
722	if (info) {
723	if (cmts) {
724	info->hints_cmt = hints_cmt;
725	info->colors_cmt = colors_cmt;
726	info->pixels_cmt = pixels_cmt;
727	}
728	if (hotspot) {
729	info->x_hotspot = x_hotspot;
730	info->y_hotspot = y_hotspot;
731	info->valuemask \|= XpmHotspot;
732	}
733	}
734	return (XpmSuccess);
735
736	/* exit point in case of error, free only locally allocated variables */
737	error:
738	if (colorTable)
739	xpmFreeColorTable(colorTable, ncolors);
740	if (pixelindex)
741	XpmFree(pixelindex);
742	if (hints_cmt)
743	XpmFree(hints_cmt);
744	if (colors_cmt)
745	XpmFree(colors_cmt);
746	if (pixels_cmt)
747	XpmFree(pixels_cmt);
748
749	return(ErrorStatus);
750	}