1 /* load.c - load image from file
3 * Raster graphics library
5 * Copyright (c) 1997 Alfredo K. Kojima
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Library General Public
9 * License as published by the Free Software Foundation; either
10 * version 2 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Library General Public License for more details.
17 * You should have received a copy of the GNU Library General Public
18 * License along with this library; if not, write to the Free
19 * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
41 typedef struct RCachedImage
{
44 time_t last_modif
; /* last time file was modified */
45 time_t last_use
; /* last time image was used */
52 static int RImageCacheSize
= -1;
55 * Max. size of image to store in cache
57 static int RImageCacheMaxImage
= -1; /* 0 = any size */
59 #define IMAGE_CACHE_SIZE 8
61 #define IMAGE_CACHE_MAX_IMAGE 64*64
63 static RCachedImage
*RImageCache
;
77 /* How many image types do we have. */
78 /* Increase this when adding new image types! */
82 static int identFile(char *path
);
84 extern RImage
*RLoadPPM(RContext
*context
, char *file_name
, int index
);
86 extern RImage
*RLoadXPM(RContext
*context
, char *file
, int index
);
90 extern RImage
*RLoadTIFF(RContext
*context
, char *file
, int index
);
93 extern RImage
*RLoadPNG(RContext
*context
, char *file
, int index
);
96 extern RImage
*RLoadJPEG(RContext
*context
, char *file_name
, int index
);
99 extern RImage
*RLoadGIF(RContext
*context
, char *file_name
, int index
);
108 tmp
= malloc(strlen(s
)+1);
111 return strcpy(tmp
, s
);
116 RSupportedFileFormats(void)
118 static char *tmp
[IM_TYPES
+1];
148 tmp
= getenv("RIMAGE_CACHE");
149 if (!tmp
|| sscanf(tmp
, "%i", &RImageCacheSize
)!=1) {
150 RImageCacheSize
= IMAGE_CACHE_SIZE
;
152 if (RImageCacheSize
<0)
155 tmp
= getenv("RIMAGE_CACHE_SIZE");
156 if (!tmp
|| sscanf(tmp
, "%i", &RImageCacheMaxImage
)!=1) {
157 RImageCacheMaxImage
= IMAGE_CACHE_MAX_IMAGE
;
160 if (RImageCacheSize
>0) {
161 RImageCache
= malloc(sizeof(RCachedImage
)*RImageCacheSize
);
162 if (RImageCache
==NULL
) {
163 printf("wrlib: out of memory for image cache\n");
166 memset(RImageCache
, 0, sizeof(RCachedImage
)*RImageCacheSize
);
172 RLoadImage(RContext
*context
, char *file
, int index
)
174 RImage
*image
= NULL
;
180 if (RImageCacheSize
<0) {
184 if (RImageCacheSize
>0) {
186 for (i
=0; i
<RImageCacheSize
; i
++) {
187 if (RImageCache
[i
].file
188 && strcmp(file
, RImageCache
[i
].file
)==0) {
190 if (stat(file
, &st
)==0
191 && st
.st_mtime
== RImageCache
[i
].last_modif
) {
192 RImageCache
[i
].last_use
= time(NULL
);
194 return RCloneImage(RImageCache
[i
].image
);
197 free(RImageCache
[i
].file
);
198 RImageCache
[i
].file
= NULL
;
199 RDestroyImage(RImageCache
[i
].image
);
205 switch (identFile(file
)) {
210 RErrorCode
= RERR_BADFORMAT
;
214 image
= RLoadXPM(context
, file
, index
);
219 image
= RLoadTIFF(context
, file
, index
);
221 #endif /* USE_TIFF */
225 image
= RLoadPNG(context
, file
, index
);
231 image
= RLoadJPEG(context
, file
, index
);
233 #endif /* USE_JPEG */
237 image
= RLoadGIF(context
, file
, index
);
242 image
= RLoadPPM(context
, file
, index
);
246 RErrorCode
= RERR_BADFORMAT
;
251 /* store image in cache */
252 if (RImageCacheSize
>0 && image
&&
253 (RImageCacheMaxImage
==0
254 || RImageCacheMaxImage
>= image
->width
*image
->height
)) {
255 time_t oldest
=time(NULL
);
259 for (i
=0; i
<RImageCacheSize
; i
++) {
260 if (!RImageCache
[i
].file
) {
261 RImageCache
[i
].file
= malloc(strlen(file
)+1);
262 strcpy(RImageCache
[i
].file
, file
);
263 RImageCache
[i
].image
= RCloneImage(image
);
264 RImageCache
[i
].last_modif
= st
.st_mtime
;
265 RImageCache
[i
].last_use
= time(NULL
);
269 if (oldest
> RImageCache
[i
].last_use
) {
270 oldest
= RImageCache
[i
].last_use
;
276 /* if no slot available, dump least recently used one */
278 free(RImageCache
[oldest_idx
].file
);
279 RDestroyImage(RImageCache
[oldest_idx
].image
);
280 RImageCache
[oldest_idx
].file
= malloc(strlen(file
)+1);
281 strcpy(RImageCache
[oldest_idx
].file
, file
);
282 RImageCache
[oldest_idx
].image
= RCloneImage(image
);
283 RImageCache
[oldest_idx
].last_modif
= st
.st_mtime
;
284 RImageCache
[oldest_idx
].last_use
= time(NULL
);
296 identFile(char *path
)
299 unsigned char buffer
[32];
303 fd
= open(path
, O_RDONLY
);
305 RErrorCode
= RERR_OPEN
;
308 if (read(fd
, buffer
, 32)<1) {
310 RErrorCode
= RERR_READ
;
316 if (strncmp((char*)buffer
, "/* XPM */", 9)==0)
320 if ((buffer
[0]=='I' && buffer
[1]=='I' && buffer
[2]=='*' && buffer
[3]==0)
321 ||(buffer
[0]=='M' && buffer
[1]=='M' && buffer
[2]==0 && buffer
[3]=='*'))
326 if (png_check_sig(buffer
, 8))
330 /* check for raw PPM or PGM */
331 if (buffer
[0]=='P' && (buffer
[1]=='5' || buffer
[1]=='6'))
335 if (buffer
[0] == 0xff && buffer
[1] == 0xd8)
339 if (buffer
[0] == 'G' && buffer
[1] == 'I' && buffer
[2] == 'F')