mirror of
https://github.com/gryf/wmaker.git
synced 2026-01-02 20:04:15 +01:00
aa99207ab4
Big files are harder to work with, so split load and save, which happen to already be independent anyway. Signed-off-by: Christophe CURIS <christophe.curis@free.fr>
449 lines
9.5 KiB
C
449 lines
9.5 KiB
C
/* nxpm.c - load "normalized" XPM image
|
|
*
|
|
* Raster graphics library
|
|
*
|
|
* Copyright (c) 1997-2003 Alfredo K. Kojima
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Library General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Library General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Library General Public
|
|
* License along with this library; if not, write to the Free
|
|
* Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
|
|
* MA 02110-1301, USA.
|
|
*/
|
|
|
|
#include <config.h>
|
|
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <assert.h>
|
|
#include <errno.h>
|
|
|
|
#include "wraster.h"
|
|
#include "imgformat.h"
|
|
|
|
/*
|
|
* Restricted support for XPM images.
|
|
*
|
|
* The images must be in the following "normalized" format:
|
|
*
|
|
*
|
|
* line content
|
|
* 1 signature comment
|
|
* 2 ignored ( normally "static char *xpm[] = {" )
|
|
* 3 "width height color_count chars" where chars is 1 or 2
|
|
* 4 color definitions. Only c values with #rrggbb or #rrrrggggbbb
|
|
* format OR None
|
|
* n data
|
|
*
|
|
* - no comments or blank lines are allowed, except for the signature
|
|
* - all lines must have at most 256 characters
|
|
* - no white spaces allowed at left of each line
|
|
*/
|
|
|
|
#define LINEWIDTH 64
|
|
|
|
#ifndef USE_XPM
|
|
|
|
static void free_color_symbol_table(unsigned char *color_table[],
|
|
unsigned short *symbol_table)
|
|
{
|
|
if (color_table[0])
|
|
free(color_table[0]);
|
|
if (color_table[1])
|
|
free(color_table[1]);
|
|
if (color_table[2])
|
|
free(color_table[2]);
|
|
if (color_table[3])
|
|
free(color_table[3]);
|
|
if (symbol_table)
|
|
free(symbol_table);
|
|
}
|
|
|
|
RImage *RGetImageFromXPMData(RContext * context, char **data)
|
|
{
|
|
RImage *image = NULL;
|
|
unsigned char *color_table[4] = { NULL, NULL, NULL, NULL };
|
|
unsigned short *symbol_table = NULL;
|
|
unsigned char *r, *g, *b, *a;
|
|
int i, j, k, line = 0;
|
|
int transp;
|
|
unsigned short color;
|
|
int bsize;
|
|
int w, h, ccount, csize;
|
|
|
|
if (sscanf(data[line++], "%i %i %i %i", &w, &h, &ccount, &csize) != 4
|
|
|| w <= 0 || h <= 0 || ccount <= 0 || csize <= 0)
|
|
goto bad_format;
|
|
|
|
if (csize != 1 && csize != 2)
|
|
goto bad_format;
|
|
|
|
color_table[0] = malloc(ccount);
|
|
color_table[1] = malloc(ccount);
|
|
color_table[2] = malloc(ccount);
|
|
color_table[3] = malloc(ccount);
|
|
symbol_table = malloc(ccount * sizeof(unsigned short));
|
|
|
|
bsize = csize * w + 16;
|
|
|
|
if (!color_table[0] || !color_table[1] || !color_table[2] || !color_table[3] || !symbol_table || !bsize) {
|
|
RErrorCode = RERR_NOMEMORY;
|
|
free_color_symbol_table(color_table, symbol_table);
|
|
return NULL;
|
|
}
|
|
|
|
transp = 0;
|
|
/* get color table */
|
|
for (i = 0; i < ccount; i++) {
|
|
symbol_table[i] = data[line][0];
|
|
if (csize == 2)
|
|
symbol_table[i] |= data[line][1] << 8;
|
|
|
|
j = csize;
|
|
while (data[line][j] != '#' && data[line][j] != 0 && data[line][j] != 'N')
|
|
j++;
|
|
|
|
if (data[line][j] == '#') {
|
|
unsigned int red, green, blue;
|
|
|
|
k = 0;
|
|
j++;
|
|
while (data[line][j + k] != 0)
|
|
k++;
|
|
if (k == 6) {
|
|
if (sscanf(&(data[line][j]), "%2x%2x%2x", &red, &green, &blue) != 3)
|
|
goto bad_format;
|
|
} else if (k == 12) {
|
|
if (sscanf(&(data[line][j]), "%4x%4x%4x", &red, &green, &blue) != 3)
|
|
goto bad_format;
|
|
red >>= 8;
|
|
green >>= 8;
|
|
blue >>= 8;
|
|
} else
|
|
goto bad_format;
|
|
|
|
color_table[0][i] = red;
|
|
color_table[1][i] = green;
|
|
color_table[2][i] = blue;
|
|
color_table[3][i] = 255;
|
|
} else if (strncmp(&(data[line][j]), "None", 4) == 0 || strncmp(&(data[line][j]), "none", 4) == 0) {
|
|
color_table[3][i] = 0;
|
|
transp = 1;
|
|
} else {
|
|
goto bad_format;
|
|
}
|
|
line++;
|
|
}
|
|
|
|
image = RCreateImage(w, h, transp);
|
|
if (!image) {
|
|
free_color_symbol_table(color_table, symbol_table);
|
|
return NULL;
|
|
}
|
|
|
|
r = image->data;
|
|
g = image->data + 1;
|
|
b = image->data + 2;
|
|
if (image->format == RRGBAFormat)
|
|
a = image->data + 3;
|
|
else
|
|
a = NULL;
|
|
|
|
for (i = 0; i < h; i++) {
|
|
if (csize == 1) {
|
|
for (j = 0; j < w; j++) {
|
|
color = data[line][j];
|
|
|
|
for (k = 0; k < ccount; k++) {
|
|
if (symbol_table[k] == color)
|
|
break;
|
|
}
|
|
if (k == ccount)
|
|
k = 0;
|
|
|
|
*r = color_table[0][k];
|
|
*g = color_table[1][k];
|
|
*b = color_table[2][k];
|
|
if (a) {
|
|
*a = color_table[3][k];
|
|
r += 4;
|
|
g += 4;
|
|
b += 4;
|
|
a += 4;
|
|
} else {
|
|
r += 3;
|
|
g += 3;
|
|
b += 3;
|
|
}
|
|
}
|
|
} else {
|
|
for (j = 0; j < w * 2; j++) {
|
|
color = data[line][j++];
|
|
color |= data[line][j];
|
|
|
|
for (k = 0; k < ccount; k++) {
|
|
if (symbol_table[k] == color)
|
|
break;
|
|
}
|
|
if (k == ccount)
|
|
k = 0;
|
|
|
|
*r = color_table[0][k];
|
|
*g = color_table[1][k];
|
|
*b = color_table[2][k];
|
|
if (a) {
|
|
*a = color_table[3][k];
|
|
r += 4;
|
|
g += 4;
|
|
b += 4;
|
|
a += 4;
|
|
} else {
|
|
r += 3;
|
|
g += 3;
|
|
b += 3;
|
|
}
|
|
}
|
|
}
|
|
line++;
|
|
}
|
|
|
|
free_color_symbol_table(color_table, symbol_table);
|
|
return image;
|
|
|
|
bad_format:
|
|
RErrorCode = RERR_BADIMAGEFILE;
|
|
free_color_symbol_table(color_table, symbol_table);
|
|
if (image)
|
|
RReleaseImage(image);
|
|
return NULL;
|
|
}
|
|
|
|
RImage *RLoadXPM(RContext * context, const char *file)
|
|
{
|
|
RImage *image = NULL;
|
|
char line[LINEWIDTH + 1];
|
|
char *buffer = NULL;
|
|
unsigned char *color_table[4] = { NULL, NULL, NULL, NULL };
|
|
unsigned short *symbol_table = NULL;
|
|
unsigned char *r, *g, *b, *a;
|
|
int i, j, k;
|
|
int transp;
|
|
unsigned short color;
|
|
int bsize;
|
|
int w, h, ccount, csize;
|
|
FILE *f;
|
|
|
|
f = fopen(file, "rb");
|
|
if (!f) {
|
|
RErrorCode = RERR_OPEN;
|
|
return NULL;
|
|
}
|
|
/* sig */
|
|
if (!fgets(line, LINEWIDTH, f))
|
|
goto bad_file;
|
|
/* declaration */
|
|
if (!fgets(line, LINEWIDTH, f))
|
|
goto bad_file;
|
|
|
|
/* data */
|
|
if (!fgets(line, LINEWIDTH, f))
|
|
goto bad_file;
|
|
|
|
if (line[0] == '/')
|
|
if (!fgets(line, LINEWIDTH, f))
|
|
goto bad_file;
|
|
|
|
if (sscanf(line, "\"%i %i %i %i\"", &w, &h, &ccount, &csize) != 4
|
|
|| w <= 0 || h <= 0 || ccount <= 0 || csize <= 0)
|
|
goto bad_file;
|
|
|
|
if (csize != 1 && csize != 2)
|
|
goto bad_format;
|
|
|
|
color_table[0] = malloc(ccount);
|
|
color_table[1] = malloc(ccount);
|
|
color_table[2] = malloc(ccount);
|
|
color_table[3] = malloc(ccount);
|
|
symbol_table = malloc(ccount * sizeof(unsigned short));
|
|
|
|
bsize = csize * w + 16;
|
|
buffer = malloc(bsize);
|
|
|
|
if (!color_table[0] || !color_table[1] || !color_table[2] ||
|
|
!color_table[3] || !symbol_table || !bsize || !buffer) {
|
|
RErrorCode = RERR_NOMEMORY;
|
|
fclose(f);
|
|
free_color_symbol_table(color_table, symbol_table);
|
|
if (buffer)
|
|
free(buffer);
|
|
return NULL;
|
|
}
|
|
|
|
transp = 0;
|
|
/* get color table */
|
|
for (i = 0; i < ccount; i++) {
|
|
if (!fgets(line, LINEWIDTH, f))
|
|
goto bad_file;
|
|
if (line[0] == '/')
|
|
if (!fgets(line, LINEWIDTH, f))
|
|
goto bad_file;
|
|
|
|
symbol_table[i] = line[1];
|
|
if (csize == 2)
|
|
symbol_table[i] |= line[2] << 8;
|
|
|
|
j = csize + 1;
|
|
while (line[j] != '#' && line[j] != '"' && line[j] != 0 && line[j] != 'N')
|
|
j++;
|
|
|
|
if (line[j] == '#') {
|
|
unsigned int red, green, blue;
|
|
|
|
k = 0;
|
|
j++;
|
|
while (line[j + k] != '"' && line[j + k] != 0)
|
|
k++;
|
|
if (k == 6) {
|
|
if (sscanf(&(line[j]), "%2x%2x%2x", &red, &green, &blue) != 3)
|
|
goto bad_format;
|
|
} else if (k == 12) {
|
|
if (sscanf(&(line[j]), "%4x%4x%4x", &red, &green, &blue) != 3)
|
|
goto bad_format;
|
|
red >>= 8;
|
|
green >>= 8;
|
|
blue >>= 8;
|
|
} else
|
|
goto bad_format;
|
|
|
|
color_table[0][i] = red;
|
|
color_table[1][i] = green;
|
|
color_table[2][i] = blue;
|
|
color_table[3][i] = 255;
|
|
} else if (strncmp(&(line[j]), "None", 4) == 0 || strncmp(&(line[j]), "none", 4) == 0) {
|
|
color_table[3][i] = 0;
|
|
transp = 1;
|
|
} else {
|
|
goto bad_format;
|
|
}
|
|
}
|
|
|
|
image = RCreateImage(w, h, transp);
|
|
if (!image) {
|
|
fclose(f);
|
|
free_color_symbol_table(color_table, symbol_table);
|
|
if (buffer)
|
|
free(buffer);
|
|
return NULL;
|
|
}
|
|
|
|
r = image->data;
|
|
g = image->data + 1;
|
|
b = image->data + 2;
|
|
if (image->format == RRGBAFormat)
|
|
a = image->data + 3;
|
|
else
|
|
a = NULL;
|
|
|
|
for (i = 0; i < h; i++) {
|
|
if (!fgets(buffer, bsize, f))
|
|
goto bad_file;
|
|
if (buffer[0] == '/')
|
|
if (!fgets(buffer, bsize, f))
|
|
goto bad_file;
|
|
|
|
if (csize == 1) {
|
|
for (j = 1; j <= w; j++) {
|
|
color = buffer[j];
|
|
|
|
for (k = 0; k < ccount; k++) {
|
|
if (symbol_table[k] == color)
|
|
break;
|
|
}
|
|
if (k == ccount)
|
|
k = 0;
|
|
|
|
*r = color_table[0][k];
|
|
*g = color_table[1][k];
|
|
*b = color_table[2][k];
|
|
if (a) {
|
|
*a = color_table[3][k];
|
|
r += 4;
|
|
g += 4;
|
|
b += 4;
|
|
a += 4;
|
|
} else {
|
|
r += 3;
|
|
g += 3;
|
|
b += 3;
|
|
}
|
|
}
|
|
} else {
|
|
for (j = 1; j <= w * 2; j++) {
|
|
color = buffer[j++];
|
|
color |= buffer[j] << 8;
|
|
|
|
for (k = 0; k < ccount; k++) {
|
|
if (symbol_table[k] == color)
|
|
break;
|
|
}
|
|
if (k == ccount) {
|
|
k = 0;
|
|
}
|
|
|
|
*r = color_table[0][k];
|
|
*g = color_table[1][k];
|
|
*b = color_table[2][k];
|
|
if (a) {
|
|
*a = color_table[3][k];
|
|
r += 4;
|
|
g += 4;
|
|
b += 4;
|
|
a += 4;
|
|
} else {
|
|
r += 3;
|
|
g += 3;
|
|
b += 3;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
fclose(f);
|
|
free_color_symbol_table(color_table, symbol_table);
|
|
if (buffer)
|
|
free(buffer);
|
|
return image;
|
|
|
|
bad_format:
|
|
RErrorCode = RERR_BADIMAGEFILE;
|
|
fclose(f);
|
|
free_color_symbol_table(color_table, symbol_table);
|
|
if (buffer)
|
|
free(buffer);
|
|
if (image)
|
|
RReleaseImage(image);
|
|
return NULL;
|
|
|
|
bad_file:
|
|
RErrorCode = RERR_BADIMAGEFILE;
|
|
fclose(f);
|
|
free_color_symbol_table(color_table, symbol_table);
|
|
if (buffer)
|
|
free(buffer);
|
|
if (image)
|
|
RReleaseImage(image);
|
|
return NULL;
|
|
}
|
|
|
|
#endif
|