dd2b095f87
git-svn-id: file:///fltk/svn/fltk/branches/branch-1.3@10156 ea41ed52-d2ee-0310-a9c1-e6b18d33e121
145 lines
3.7 KiB
C++
145 lines
3.7 KiB
C++
//
|
|
// "$Id$"
|
|
//
|
|
// Fl_XPM_Image routines.
|
|
//
|
|
// Copyright 1997-2010 by Bill Spitzak and others.
|
|
//
|
|
// This library is free software. Distribution and use rights are outlined in
|
|
// the file "COPYING" which should have been included with this file. If this
|
|
// file is missing or damaged, see the license at:
|
|
//
|
|
// http://www.fltk.org/COPYING.php
|
|
//
|
|
// Please report all bugs and problems on the following page:
|
|
//
|
|
// http://www.fltk.org/str.php
|
|
//
|
|
// Contents:
|
|
//
|
|
//
|
|
|
|
//
|
|
// Include necessary header files...
|
|
//
|
|
|
|
#include <FL/Fl.H>
|
|
#include <FL/Fl_XPM_Image.H>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <FL/fl_utf8.h>
|
|
#include "flstring.h"
|
|
|
|
|
|
//
|
|
// 'hexdigit()' - Convert a hex digit to an integer.
|
|
//
|
|
|
|
static int hexdigit(int x) { // I - Hex digit...
|
|
if (isdigit(x)) return x-'0';
|
|
if (isupper(x)) return x-'A'+10;
|
|
if (islower(x)) return x-'a'+10;
|
|
return 20;
|
|
}
|
|
|
|
#define MAXSIZE 2048
|
|
#define INITIALLINES 256
|
|
/**
|
|
The constructor loads the XPM image from the name filename.
|
|
<P>The destructor free all memory and server resources that are used by
|
|
the image.
|
|
*/
|
|
Fl_XPM_Image::Fl_XPM_Image(const char *name) : Fl_Pixmap((char *const*)0) {
|
|
FILE *f;
|
|
|
|
if ((f = fl_fopen(name, "rb")) == NULL) return;
|
|
|
|
// read all the c-strings out of the file:
|
|
char** new_data = new char *[INITIALLINES];
|
|
char** temp_data;
|
|
int malloc_size = INITIALLINES;
|
|
char buffer[MAXSIZE+20];
|
|
int i = 0;
|
|
int W,H,ncolors,chars_per_pixel;
|
|
while (fgets(buffer,MAXSIZE+20,f)) {
|
|
if (buffer[0] != '\"') continue;
|
|
char *myp = buffer;
|
|
char *q = buffer+1;
|
|
while (*q != '\"' && myp < buffer+MAXSIZE) {
|
|
if (*q == '\\') switch (*++q) {
|
|
case '\r':
|
|
case '\n':
|
|
if (!fgets(q,(int) (buffer+MAXSIZE+20-q),f)) { /* no problem if we hit EOF */ } break;
|
|
case 0:
|
|
break;
|
|
case 'x': {
|
|
q++;
|
|
int n = 0;
|
|
for (int x = 0; x < 2; x++) {
|
|
int xd = hexdigit(*q);
|
|
if (xd > 15) break;
|
|
n = (n<<4)+xd;
|
|
q++;
|
|
}
|
|
*myp++ = n;
|
|
} break;
|
|
default: {
|
|
int c = *q++;
|
|
if (c>='0' && c<='7') {
|
|
c -= '0';
|
|
for (int x=0; x<2; x++) {
|
|
int xd = hexdigit(*q);
|
|
if (xd>7) break;
|
|
c = (c<<3)+xd;
|
|
q++;
|
|
}
|
|
}
|
|
*myp++ = c;
|
|
} break;
|
|
} else {
|
|
*myp++ = *q++;
|
|
}
|
|
}
|
|
*myp++ = 0;
|
|
if (i >= malloc_size) {
|
|
temp_data = new char *[malloc_size + INITIALLINES];
|
|
memcpy(temp_data, new_data, sizeof(char *) * malloc_size);
|
|
delete[] new_data;
|
|
new_data = temp_data;
|
|
malloc_size += INITIALLINES;
|
|
}
|
|
// first line has 4 ints: width, height, ncolors, chars_per_pixel
|
|
// followed by color segment:
|
|
// if ncolors < 0 this is FLTK (non standard) compressed colormap - all colors coded in single line of 4*ncolors bytes
|
|
// otherwise - ncolor lines of at least chars_per_pixel bytes
|
|
// followed by pic segment: H lines of at least chars_per_pixel*W bytes
|
|
// next line: would have loved to use measure_pixmap, but it doesn't return all the data!
|
|
if ((!i) && (sscanf(buffer,"%d%d%d%d", &W, &H, &ncolors, &chars_per_pixel) < 4)) goto bad_data; // first line
|
|
else if ((i > (ncolors<0?1:ncolors)) && (myp-buffer-1<W*chars_per_pixel)) goto bad_data; // pic segment
|
|
else if (myp-buffer-1<(ncolors<0?-ncolors*4:chars_per_pixel)) goto bad_data; // color segment
|
|
new_data[i] = new char[myp-buffer+1];
|
|
memcpy(new_data[i], buffer,myp-buffer);
|
|
new_data[i][myp-buffer] = 0;
|
|
i++;
|
|
}
|
|
|
|
fclose(f);
|
|
f = NULL;
|
|
if ((!i) || (i<1+(ncolors<0?1:ncolors)+H)) goto bad_data;
|
|
data((const char **)new_data, i);
|
|
alloc_data = 1;
|
|
|
|
measure();
|
|
return;
|
|
// dealloc and close as needed when bad data was found
|
|
bad_data:
|
|
while (i > 0) delete[] new_data[--i];
|
|
delete[] new_data;
|
|
if (f) fclose(f);
|
|
}
|
|
|
|
|
|
//
|
|
// End of "$Id$".
|
|
//
|