gambas-source-code/main/lib/image/image_stat.c
Benoît Minisini b936c83f0d [CONFIGURATION]
* NEW: Update copyright strings.

[DEVELOPMENT ENVIRONMENT]
* NEW: Display menu shortcuts inside the form editor.


git-svn-id: svn://localhost/gambas/trunk@3670 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2011-03-21 00:04:10 +00:00

1402 lines
36 KiB
C

/***************************************************************************
image_stat.c
(c) 2000-2011 Benoît Minisini <gambas@users.sourceforge.net>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
This program 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 General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
***************************************************************************/
/* This product includes PHP software, freely available from
http://www.php.net/software/
*/
/*
+----------------------------------------------------------------------+
| PHP Version 5 |
+----------------------------------------------------------------------+
| Copyright (c) 1997-2008 The PHP Group |
+----------------------------------------------------------------------+
| This source file is subject to version 3.01 of the PHP license, |
| that is bundled with this package in the file LICENSE, and is |
| available through the world-wide-web at the following url: |
| http://www.php.net/license/3_01.txt |
| If you did not receive a copy of the PHP license and are unable to |
| obtain it through the world-wide-web, please send a note to |
| license@php.net so we can mail you a copy immediately. |
+----------------------------------------------------------------------+
| Authors: Rasmus Lerdorf <rasmus@php.net> |
| Marcus Boerger <helly@php.net> |
+----------------------------------------------------------------------+
*/
/* $Id: image.c,v 1.114.2.2.2.7 2007/12/31 07:20:12 sebastian Exp $ */
/* This code is freely adapted from the /ext/standard/image.c file
of PHP 5.2.4
*/
#define __IMAGE_STAT_C
#include <stdlib.h>
#include <stdio.h>
#if HAVE_FCNTL_H
#include <fcntl.h>
#endif
#if HAVE_UNISTD_H
#include <unistd.h>
#endif
#include "image_stat.h"
#define emalloc malloc
#define erealloc realloc
#define efree free
const char *IMAGE_error = NULL;
/* file type markers */
const char _signature_gif[3] = {'G', 'I', 'F'};
const char _signature_psd[4] = {'8', 'B', 'P', 'S'};
const char _signature_bmp[2] = {'B', 'M'};
const char _signature_swf[3] = {'F', 'W', 'S'};
const char _signature_swc[3] = {'C', 'W', 'S'};
const char _signature_jpg[3] = {(char) 0xff, (char) 0xd8, (char) 0xff};
const char _signature_png[8] = {(char) 0x89, (char) 0x50, (char) 0x4e, (char) 0x47,
(char) 0x0d, (char) 0x0a, (char) 0x1a, (char) 0x0a};
const char _signature_tif_ii[4] = {'I','I', (char)0x2A, (char)0x00};
const char _signature_tif_mm[4] = {'M','M', (char)0x00, (char)0x2A};
const char _signature_jpc[3] = {(char)0xff, (char)0x4f, (char)0xff};
const char _signature_jp2[12] = {(char)0x00, (char)0x00, (char)0x00, (char)0x0c,
(char)0x6a, (char)0x50, (char)0x20, (char)0x20,
(char)0x0d, (char)0x0a, (char)0x87, (char)0x0a};
const char _signature_iff[4] = {'F','O','R','M'};
static int stream_seek(IMAGE_STREAM *stream, int pos, int whence)
{
switch (whence)
{
case SEEK_CUR:
if ((stream->pos + pos) >= stream->len)
return 1;
if ((stream->pos + pos) < 0)
return 1;
stream->pos += pos;
return 0;
case SEEK_SET:
if (pos < 0 || pos >= stream->len)
return 1;
stream->pos = pos;
return 0;
default:
return 1;
}
}
static int stream_read(IMAGE_STREAM *stream, void *addr, int len)
{
int lmax = stream->len - stream->pos;
if (len > lmax)
len = lmax;
memcpy(addr, stream->addr + stream->pos, len);
stream->pos += len;
return len;
}
static int stream_getc(IMAGE_STREAM *stream)
{
if (stream->pos >= stream->len)
return EOF;
return (unsigned char)stream->addr[stream->pos++];
}
/* REMEMBER TO ADD MIME-TYPE TO FUNCTION php_image_type_to_mime_type */
/* PCX must check first 64bytes and byte 0=0x0a and byte2 < 0x06 */
/* return info as a struct, to make expansion easier */
/* {{{ handle_gif
* routine to handle GIF files. If only everything were that easy... ;} */
static int handle_gif (IMAGE_STREAM * stream, IMAGE_INFO *result)
{
unsigned char dim[5];
if (stream_seek(stream, 3, SEEK_CUR))
return 1;
if (stream_read(stream, dim, sizeof(dim)) != sizeof(dim))
return 1;
result->width = (unsigned int)dim[0] | (((unsigned int)dim[1])<<8);
result->height = (unsigned int)dim[2] | (((unsigned int)dim[3])<<8);
result->depth = dim[4]&0x80 ? ((((unsigned int)dim[4])&0x07) + 1) : 0;
return 0;
}
#if 0
/* {{{ handle_psd
*/
static int handle_psd (IMAGE_STREAM * stream, IMAGE_INFO *result)
{
unsigned char dim[8];
if (stream_seek(stream, 11, SEEK_CUR))
return 1;
if (stream_read(stream, dim, sizeof(dim)) != sizeof(dim))
return 1;
result->height = (((unsigned int)dim[0]) << 24) + (((unsigned int)dim[1]) << 16) + (((unsigned int)dim[2]) << 8) + ((unsigned int)dim[3]);
result->width = (((unsigned int)dim[4]) << 24) + (((unsigned int)dim[5]) << 16) + (((unsigned int)dim[6]) << 8) + ((unsigned int)dim[7]);
return 0;
}
#endif
/* {{{ handle_bmp
*/
static int handle_bmp (IMAGE_STREAM * stream, IMAGE_INFO *result)
{
unsigned char dim[16];
int size;
if (stream_seek(stream, 11, SEEK_CUR))
return 1;
if (stream_read(stream, dim, sizeof(dim)) != sizeof(dim))
return 1;
size = (((unsigned int)dim[ 3]) << 24) + (((unsigned int)dim[ 2]) << 16) + (((unsigned int)dim[ 1]) << 8) + ((unsigned int) dim[ 0]);
if (size == 12) {
result->width = (((unsigned int)dim[ 5]) << 8) + ((unsigned int) dim[ 4]);
result->height = (((unsigned int)dim[ 7]) << 8) + ((unsigned int) dim[ 6]);
result->depth = ((unsigned int)dim[11]);
} else if (size > 12 && (size <= 64 || size == 108)) {
result->width = (((unsigned int)dim[ 7]) << 24) + (((unsigned int)dim[ 6]) << 16) + (((unsigned int)dim[ 5]) << 8) + ((unsigned int) dim[ 4]);
result->height = (((unsigned int)dim[11]) << 24) + (((unsigned int)dim[10]) << 16) + (((unsigned int)dim[ 9]) << 8) + ((unsigned int) dim[ 8]);
result->depth = (((unsigned int)dim[15]) << 8) + ((unsigned int)dim[14]);
} else {
return 1;
}
return 0;
}
#if 0
/* {{{ php_swf_get_bits
* routines to handle SWF files. */
static unsigned long int php_swf_get_bits (unsigned char* buffer, unsigned int pos, unsigned int count)
{
unsigned int loop;
unsigned long int result = 0;
for (loop = pos; loop < pos + count; loop++)
{
result = result +
((((buffer[loop / 8]) >> (7 - (loop % 8))) & 0x01) << (count - (loop - pos) - 1));
}
return result;
}
#if HAVE_ZLIB && !defined(COMPILE_DL_ZLIB)
/* {{{ handle_swc
*/
static IMAGE_INFO *handle_swc(IMAGE_STREAM * stream)
{
IMAGE_INFO *result = NULL;
long bits;
unsigned char a[64];
unsigned long len=64, szlength;
int factor=1,maxfactor=16;
int slength, status=0;
char *b, *buf=NULL, *bufz=NULL;
b = ecalloc (1, len + 1);
if (stream_seek(stream, 5, SEEK_CUR))
return NULL;
if (stream_read(stream, a, sizeof(a)) != sizeof(a))
return NULL;
if (uncompress(b, &len, a, sizeof(a)) != Z_OK) {
/* failed to decompress the file, will try reading the rest of the file */
if (stream_seek(stream, 8, SEEK_SET))
return NULL;
slength = stream_copy_to_mem(stream, &bufz, stream_COPY_ALL, 0);
/*
* zlib::uncompress() wants to know the output data length
* if none was given as a parameter
* we try from input length * 2 up to input length * 2^8
* doubling it whenever it wasn't big enough
* that should be eneugh for all real life cases
*/
do {
szlength=slength*(1<<factor++);
buf = (char *) erealloc(buf,szlength);
status = uncompress(buf, &szlength, bufz, slength);
} while ((status==Z_BUF_ERROR)&&(factor<maxfactor));
if (bufz) {
pefree(bufz, 0);
}
if (status == Z_OK) {
memcpy(b, buf, len);
}
if (buf) {
efree(buf);
}
}
if (!status) {
result = (IMAGE_INFO *) ecalloc (1, sizeof (IMAGE_INFO));
bits = php_swf_get_bits (b, 0, 5);
result->width = (php_swf_get_bits (b, 5 + bits, bits) -
php_swf_get_bits (b, 5, bits)) / 20;
result->height = (php_swf_get_bits (b, 5 + (3 * bits), bits) -
php_swf_get_bits (b, 5 + (2 * bits), bits)) / 20;
} else {
result = NULL;
}
efree (b);
return result;
}
#endif
/* {{{ handle_swf
*/
static IMAGE_INFO *handle_swf (IMAGE_STREAM * stream)
{
IMAGE_INFO *result = NULL;
long bits;
unsigned char a[32];
if (stream_seek(stream, 5, SEEK_CUR))
return NULL;
if (stream_read(stream, a, sizeof(a)) != sizeof(a))
return NULL;
result = (IMAGE_INFO *) ecalloc (1, sizeof (IMAGE_INFO));
bits = php_swf_get_bits (a, 0, 5);
result->width = (php_swf_get_bits (a, 5 + bits, bits) -
php_swf_get_bits (a, 5, bits)) / 20;
result->height = (php_swf_get_bits (a, 5 + (3 * bits), bits) -
php_swf_get_bits (a, 5 + (2 * bits), bits)) / 20;
result->bits = 0;
result->channels = 0;
return result;
}
#endif
/* {{{ handle_png
* routine to handle PNG files */
static int handle_png (IMAGE_STREAM * stream, IMAGE_INFO *result)
{
unsigned char dim[13];
/* Width: 4 bytes
* Height: 4 bytes
* Bit depth: 1 byte
* Color type: 1 byte
* Compression method: 1 byte
* Filter method: 1 byte
* Interlace method: 1 byte
*/
if (stream_seek(stream, 8, SEEK_CUR))
return 1;
if((stream_read(stream, dim, sizeof(dim))) < sizeof(dim))
return 1;
result->width = (((unsigned int)dim[0]) << 24) + (((unsigned int)dim[1]) << 16) + (((unsigned int)dim[2]) << 8) + ((unsigned int)dim[3]);
result->height = (((unsigned int)dim[4]) << 24) + (((unsigned int)dim[5]) << 16) + (((unsigned int)dim[6]) << 8) + ((unsigned int)dim[7]);
switch (dim[9])
{
case 0: result->depth = 8; break;
case 2: result->depth = 24; break;
case 3: result->depth = 8; break;
case 4: result->depth = 32; break;
case 6: result->depth = 32; break;
default: result->depth = 32; break;
}
return 0;
}
/* routines to handle JPEG data */
/* some defines for the different JPEG block types */
#define M_SOF0 0xC0 /* Start Of Frame N */
#define M_SOF1 0xC1 /* N indicates which compression process */
#define M_SOF2 0xC2 /* Only SOF0-SOF2 are now in common use */
#define M_SOF3 0xC3
#define M_SOF5 0xC5 /* NB: codes C4 and CC are NOT SOF markers */
#define M_SOF6 0xC6
#define M_SOF7 0xC7
#define M_SOF9 0xC9
#define M_SOF10 0xCA
#define M_SOF11 0xCB
#define M_SOF13 0xCD
#define M_SOF14 0xCE
#define M_SOF15 0xCF
#define M_SOI 0xD8
#define M_EOI 0xD9 /* End Of Image (end of datastream) */
#define M_SOS 0xDA /* Start Of Scan (begins compressed data) */
#define M_APP0 0xe0
#define M_APP1 0xe1
#define M_APP2 0xe2
#define M_APP3 0xe3
#define M_APP4 0xe4
#define M_APP5 0xe5
#define M_APP6 0xe6
#define M_APP7 0xe7
#define M_APP8 0xe8
#define M_APP9 0xe9
#define M_APP10 0xea
#define M_APP11 0xeb
#define M_APP12 0xec
#define M_APP13 0xed
#define M_APP14 0xee
#define M_APP15 0xef
#define M_COM 0xFE /* COMment */
#define M_PSEUDO 0xFFD8 /* pseudo marker for start of image(byte 0) */
/* {{{ php_read2
*/
static unsigned short php_read2(IMAGE_STREAM * stream)
{
unsigned char a[2];
/* just return 0 if we hit the end-of-file */
if((stream_read(stream, a, sizeof(a))) <= 0) return 0;
return (((unsigned short)a[0]) << 8) + ((unsigned short)a[1]);
}
/* {{{ php_next_marker
* get next marker byte from file */
static unsigned int php_next_marker(IMAGE_STREAM * stream, int last_marker, int comment_correction, int ff_read)
{
int a=0, marker;
/* get marker byte, swallowing possible padding */
if (last_marker==M_COM && comment_correction) {
/* some software does not count the length bytes of COM section */
/* one company doing so is very much envolved in JPEG... so we accept too */
/* by the way: some of those companies changed their code now... */
comment_correction = 2;
} else {
last_marker = 0;
comment_correction = 0;
}
if (ff_read) {
a = 1; /* already read 0xff in filetype detection */
}
do {
if ((marker = stream_getc(stream)) == EOF)
{
return M_EOI;/* we hit EOF */
}
if (last_marker==M_COM && comment_correction>0)
{
if (marker != 0xFF)
{
marker = 0xff;
comment_correction--;
} else {
last_marker = M_PSEUDO; /* stop skipping non 0xff for M_COM */
}
}
if (++a > 25)
{
/* who knows the maxim amount of 0xff? though 7 */
/* but found other implementations */
return M_EOI;
}
} while (marker == 0xff);
if (a < 2)
{
return M_EOI; /* at least one 0xff is needed before marker code */
}
if ( last_marker==M_COM && comment_correction)
{
return M_EOI; /* ah illegal: char after COM section not 0xFF */
}
return (unsigned int)marker;
}
/* {{{ php_skip_variable
* skip over a variable-length block; assumes proper length marker */
static int php_skip_variable(IMAGE_STREAM * stream)
{
int length = php_read2(stream);
if (length < 2) {
return 0;
}
length = length - 2;
stream_seek(stream, length, SEEK_CUR);
return 1;
}
#if 0
/* {{{ php_read_APP
*/
static int php_read_APP(IMAGE_STREAM * stream, unsigned int marker, zval *info)
{
unsigned short length;
unsigned char *buffer;
unsigned char markername[16];
zval *tmp;
length = php_read2(stream);
if (length < 2) {
return 0;
}
length -= 2; /* length includes itself */
buffer = emalloc(length);
if (stream_read(stream, buffer, (long) length) <= 0) {
efree(buffer);
return 0;
}
snprintf(markername, sizeof(markername), "APP%d", marker - M_APP0);
if (zend_hash_find(Z_ARRVAL_P(info), markername, strlen(markername)+1, (void **) &tmp) == FAILURE) {
/* XXX we onyl catch the 1st tag of it's kind! */
add_assoc_stringl(info, markername, buffer, length, 1);
}
efree(buffer);
return 1;
}
#endif
/* {{{ handle_jpeg
main loop to parse JPEG structure */
static int handle_jpeg (IMAGE_STREAM * stream, IMAGE_INFO *result) //, zval *info)
{
unsigned int marker = M_PSEUDO;
unsigned short length, ff_read=1;
int ret = 1;
for (;;) {
marker = php_next_marker(stream, marker, 1, ff_read);
ff_read = 0;
switch (marker) {
case M_SOF0:
case M_SOF1:
case M_SOF2:
case M_SOF3:
case M_SOF5:
case M_SOF6:
case M_SOF7:
case M_SOF9:
case M_SOF10:
case M_SOF11:
case M_SOF13:
case M_SOF14:
case M_SOF15:
#if 0
if (ret == 1) {
#endif
/* handle SOFn block */
length = php_read2(stream);
stream_getc(stream);
result->height = php_read2(stream);
result->width = php_read2(stream);
stream_getc(stream);
result->depth = 24;
return 0;
#if 0
if (!info || length < 8) { /* if we don't want an extanded info -> return */
return result;
}
if (stream_seek(stream, length - 8, SEEK_CUR)) { /* file error after info */
return result;
}
#endif
#if 0
} else {
if (!php_skip_variable(stream)) {
return ret;
}
}
#endif
break;
case M_APP0:
case M_APP1:
case M_APP2:
case M_APP3:
case M_APP4:
case M_APP5:
case M_APP6:
case M_APP7:
case M_APP8:
case M_APP9:
case M_APP10:
case M_APP11:
case M_APP12:
case M_APP13:
case M_APP14:
case M_APP15:
if (!php_skip_variable(stream))
return ret;
#if 0
if (info) {
if (!php_read_APP(stream, marker, info)) { /* read all the app markes... */
return result;
}
} else {
if (!php_skip_variable(stream)) {
return result;
}
}
#endif
break;
case M_SOS:
case M_EOI:
return ret; /* we're about to hit image data, or are at EOF. stop processing. */
default:
if (!php_skip_variable(stream)) { /* anything else isn't interesting */
return ret;
}
break;
}
}
return ret; /* perhaps image broken -> no info but size */
}
#if 0
/* {{{ php_read4
*/
static unsigned int php_read4(IMAGE_STREAM * stream)
{
unsigned char a[4];
/* just return 0 if we hit the end-of-file */
if ((stream_read(stream, a, sizeof(a))) != sizeof(a)) return 0;
return (((unsigned int)a[0]) << 24)
+ (((unsigned int)a[1]) << 16)
+ (((unsigned int)a[2]) << 8)
+ (((unsigned int)a[3]));
}
/* {{{ JPEG 2000 Marker Codes */
#define JPEG2000_MARKER_PREFIX 0xFF /* All marker codes start with this */
#define JPEG2000_MARKER_SOC 0x4F /* Start of Codestream */
#define JPEG2000_MARKER_SOT 0x90 /* Start of Tile part */
#define JPEG2000_MARKER_SOD 0x93 /* Start of Data */
#define JPEG2000_MARKER_EOC 0xD9 /* End of Codestream */
#define JPEG2000_MARKER_SIZ 0x51 /* Image and tile size */
#define JPEG2000_MARKER_COD 0x52 /* Coding style default */
#define JPEG2000_MARKER_COC 0x53 /* Coding style component */
#define JPEG2000_MARKER_RGN 0x5E /* Region of interest */
#define JPEG2000_MARKER_QCD 0x5C /* Quantization default */
#define JPEG2000_MARKER_QCC 0x5D /* Quantization component */
#define JPEG2000_MARKER_POC 0x5F /* Progression order change */
#define JPEG2000_MARKER_TLM 0x55 /* Tile-part lengths */
#define JPEG2000_MARKER_PLM 0x57 /* Packet length, main header */
#define JPEG2000_MARKER_PLT 0x58 /* Packet length, tile-part header */
#define JPEG2000_MARKER_PPM 0x60 /* Packed packet headers, main header */
#define JPEG2000_MARKER_PPT 0x61 /* Packed packet headers, tile part header */
#define JPEG2000_MARKER_SOP 0x91 /* Start of packet */
#define JPEG2000_MARKER_EPH 0x92 /* End of packet header */
#define JPEG2000_MARKER_CRG 0x63 /* Component registration */
#define JPEG2000_MARKER_COM 0x64 /* Comment */
/* {{{ handle_jpc
Main loop to parse JPEG2000 raw codestream structure */
static IMAGE_INFO *handle_jpc(IMAGE_STREAM * stream)
{
IMAGE_INFO *result = NULL;
unsigned short dummy_short;
int highest_bit_depth, bit_depth;
unsigned char first_marker_id;
unsigned int i;
/* JPEG 2000 components can be vastly different from one another.
Each component can be sampled at a different resolution, use
a different colour space, have a seperate colour depth, and
be compressed totally differently! This makes giving a single
"bit depth" answer somewhat problematic. For this implementation
we'll use the highest depth encountered. */
/* Get the single byte that remains after the file type indentification */
first_marker_id = stream_getc(stream);
/* Ensure that this marker is SIZ (as is mandated by the standard) */
if (first_marker_id != JPEG2000_MARKER_SIZ) {
php_error_docref(NULL, E_WARNING, "JPEG2000 codestream corrupt(Expected SIZ marker not found after SOC)");
return NULL;
}
result = (IMAGE_INFO *)ecalloc(1, sizeof(IMAGE_INFO));
dummy_short = php_read2(stream); /* Lsiz */
dummy_short = php_read2(stream); /* Rsiz */
result->width = php_read4(stream); /* Xsiz */
result->height = php_read4(stream); /* Ysiz */
#if MBO_0
php_read4(stream); /* XOsiz */
php_read4(stream); /* YOsiz */
php_read4(stream); /* XTsiz */
php_read4(stream); /* YTsiz */
php_read4(stream); /* XTOsiz */
php_read4(stream); /* YTOsiz */
#else
if (stream_seek(stream, 24, SEEK_CUR)) {
efree(result);
return NULL;
}
#endif
result->channels = php_read2(stream); /* Csiz */
if (result->channels < 0 || result->channels > 256) {
efree(result);
return NULL;
}
/* Collect bit depth info */
highest_bit_depth = bit_depth = 0;
for (i = 0; i < result->channels; i++) {
bit_depth = stream_getc(stream); /* Ssiz[i] */
bit_depth++;
if (bit_depth > highest_bit_depth) {
highest_bit_depth = bit_depth;
}
stream_getc(stream); /* XRsiz[i] */
stream_getc(stream); /* YRsiz[i] */
}
result->bits = highest_bit_depth;
return result;
}
/* {{{ handle_jp2
main loop to parse JPEG 2000 JP2 wrapper format structure */
static IMAGE_INFO *handle_jp2(IMAGE_STREAM *stream)
{
IMAGE_INFO *result = NULL;
unsigned int box_length;
unsigned int box_type;
char jp2c_box_id[] = {(char)0x6a, (char)0x70, (char)0x32, (char)0x63};
/* JP2 is a wrapper format for JPEG 2000. Data is contained within "boxes".
Boxes themselves can be contained within "super-boxes". Super-Boxes can
contain super-boxes which provides us with a hierarchical storage system.
It is valid for a JP2 file to contain multiple individual codestreams.
We'll just look for the first codestream at the root of the box structure
and handle that.
*/
for (;;)
{
box_length = php_read4(stream); /* LBox */
/* TBox */
if (stream_read(stream, (void *)&box_type, sizeof(box_type)) != sizeof(box_type)) {
/* Use this as a general "out of stream" error */
break;
}
if (box_length == 1) {
/* We won't handle XLBoxes */
return NULL;
}
if (!memcmp(&box_type, jp2c_box_id, 4))
{
/* Skip the first 3 bytes to emulate the file type examination */
stream_seek(stream, 3, SEEK_CUR);
result = handle_jpc(stream);
break;
}
/* Stop if this was the last box */
if ((int)box_length <= 0) {
break;
}
/* Skip over LBox (Which includes both TBox and LBox itself */
if (stream_seek(stream, box_length - 8, SEEK_CUR)) {
break;
}
}
if (result == NULL) {
php_error_docref(NULL, E_WARNING, "JP2 file has no codestreams at root level");
}
return result;
}
#endif
/* {{{ tiff constants
*/
const int php_tiff_bytes_per_format[] = {0, 1, 1, 2, 4, 8, 1, 1, 2, 4, 8, 4, 8};
/* uncompressed only */
#define TAG_IMAGEWIDTH 0x0100
#define TAG_IMAGEHEIGHT 0x0101
/* compressed images only */
#define TAG_COMP_IMAGEWIDTH 0xA002
#define TAG_COMP_IMAGEHEIGHT 0xA003
#define TAG_FMT_BYTE 1
#define TAG_FMT_STRING 2
#define TAG_FMT_USHORT 3
#define TAG_FMT_ULONG 4
#define TAG_FMT_URATIONAL 5
#define TAG_FMT_SBYTE 6
#define TAG_FMT_UNDEFINED 7
#define TAG_FMT_SSHORT 8
#define TAG_FMT_SLONG 9
#define TAG_FMT_SRATIONAL 10
#define TAG_FMT_SINGLE 11
#define TAG_FMT_DOUBLE 12
/* {{{ php_ifd_get16u
* Convert a 16 bit unsigned value from file's native byte order */
static int php_ifd_get16u(void *Short, int motorola_intel)
{
if (motorola_intel) {
return (((unsigned char *)Short)[0] << 8) | ((unsigned char *)Short)[1];
} else {
return (((unsigned char *)Short)[1] << 8) | ((unsigned char *)Short)[0];
}
}
/* {{{ php_ifd_get16s
* Convert a 16 bit signed value from file's native byte order */
static signed short php_ifd_get16s(void *Short, int motorola_intel)
{
return (signed short)php_ifd_get16u(Short, motorola_intel);
}
/* {{{ php_ifd_get32s
* Convert a 32 bit signed value from file's native byte order */
static int php_ifd_get32s(void *Long, int motorola_intel)
{
if (motorola_intel) {
return ((( char *)Long)[0] << 24) | (((unsigned char *)Long)[1] << 16)
| (((unsigned char *)Long)[2] << 8 ) | (((unsigned char *)Long)[3] << 0 );
} else {
return ((( char *)Long)[3] << 24) | (((unsigned char *)Long)[2] << 16)
| (((unsigned char *)Long)[1] << 8 ) | (((unsigned char *)Long)[0] << 0 );
}
}
/* {{{ php_ifd_get32u
* Convert a 32 bit unsigned value from file's native byte order */
static unsigned php_ifd_get32u(void *Long, int motorola_intel)
{
return (unsigned)php_ifd_get32s(Long, motorola_intel) & 0xffffffff;
}
/* {{{ handle_tiff
main loop to parse TIFF structure */
static int handle_tiff (IMAGE_STREAM * stream, IMAGE_INFO *result, int motorola_intel)
{
int i, num_entries;
unsigned char *dir_entry;
size_t ifd_size, dir_size, entry_value, width=0, height=0, ifd_addr;
int entry_tag , entry_type;
char *ifd_data, ifd_ptr[4];
if (stream_read(stream, ifd_ptr, 4) != 4)
return 1;
ifd_addr = php_ifd_get32u(ifd_ptr, motorola_intel);
if (stream_seek(stream, ifd_addr-8, SEEK_CUR))
return 1;
ifd_size = 2;
ifd_data = emalloc(ifd_size);
if (stream_read(stream, ifd_data, 2) != 2) {
efree(ifd_data);
return 1;
}
num_entries = php_ifd_get16u(ifd_data, motorola_intel);
dir_size = 2/*num dir entries*/ +12/*length of entry*/*num_entries +4/* offset to next ifd (points to thumbnail or NULL)*/;
ifd_size = dir_size;
ifd_data = erealloc(ifd_data,ifd_size);
if (stream_read(stream, ifd_data+2, dir_size-2) != dir_size-2) {
efree(ifd_data);
return 1;
}
/* now we have the directory we can look how long it should be */
ifd_size = dir_size;
for(i=0;i<num_entries;i++) {
dir_entry = (unsigned char *)(ifd_data+2+i*12);
entry_tag = php_ifd_get16u(dir_entry+0, motorola_intel);
entry_type = php_ifd_get16u(dir_entry+2, motorola_intel);
switch(entry_type) {
case TAG_FMT_BYTE:
case TAG_FMT_SBYTE:
entry_value = (size_t)(dir_entry[8]);
break;
case TAG_FMT_USHORT:
entry_value = php_ifd_get16u(dir_entry+8, motorola_intel);
break;
case TAG_FMT_SSHORT:
entry_value = php_ifd_get16s(dir_entry+8, motorola_intel);
break;
case TAG_FMT_ULONG:
entry_value = php_ifd_get32u(dir_entry+8, motorola_intel);
break;
case TAG_FMT_SLONG:
entry_value = php_ifd_get32s(dir_entry+8, motorola_intel);
break;
default:
continue;
}
switch(entry_tag) {
case TAG_IMAGEWIDTH:
case TAG_COMP_IMAGEWIDTH:
width = entry_value;
break;
case TAG_IMAGEHEIGHT:
case TAG_COMP_IMAGEHEIGHT:
height = entry_value;
break;
}
}
efree(ifd_data);
if ( width && height) {
/* not the same when in for-loop */
result->height = height;
result->width = width;
result->depth = 24;
return 0;
}
return 1;
}
#if 0
/* {{{ handle_psd
*/
static IMAGE_INFO *handle_iff(IMAGE_STREAM * stream)
{
IMAGE_INFO * result;
unsigned char a[10];
int chunkId;
int size;
short width, height, bits;
if (stream_read(stream, a, 8) != 8) {
return NULL;
}
if (strncmp(a+4, "ILBM", 4) && strncmp(a+4, "PBM ", 4)) {
return NULL;
}
/* loop chunks to find BMHD chunk */
do {
if (stream_read(stream, a, 8) != 8) {
return NULL;
}
chunkId = php_ifd_get32s(a+0, 1);
size = php_ifd_get32s(a+4, 1);
if (size < 0) {
return NULL;
}
if ((size & 1) == 1) {
size++;
}
if (chunkId == 0x424d4844) { /* BMHD chunk */
if (size < 9 || stream_read(stream, a, 9) != 9) {
return NULL;
}
width = php_ifd_get16s(a+0, 1);
height = php_ifd_get16s(a+2, 1);
bits = a[8] & 0xff;
if (width > 0 && height > 0 && bits > 0 && bits < 33) {
result = (IMAGE_INFO *) ecalloc(1, sizeof(IMAGE_INFO));
result->width = width;
result->height = height;
result->bits = bits;
result->channels = 0;
return result;
}
} else {
if (stream_seek(stream, size, SEEK_CUR)) {
return NULL;
}
}
} while (1);
}
/* {{{ php_get_wbmp
* int WBMP file format type
* byte Header Type
* byte Extended Header
* byte Header Data (type 00 = multibyte)
* byte Header Data (type 11 = name/pairs)
* int Number of columns
* int Number of rows
*/
static int php_get_wbmp(IMAGE_STREAM *stream, IMAGE_INFO **result, int check)
{
int i, width = 0, height = 0;
if (stream_rewind(stream)) {
return 0;
}
/* get type */
if (stream_getc(stream) != 0) {
return 0;
}
/* skip header */
do {
i = stream_getc(stream);
if (i < 0) {
return 0;
}
} while (i & 0x80);
/* get width */
do {
i = stream_getc(stream);
if (i < 0) {
return 0;
}
width = (width << 7) | (i & 0x7f);
} while (i & 0x80);
/* get height */
do {
i = stream_getc(stream);
if (i < 0) {
return 0;
}
height = (height << 7) | (i & 0x7f);
} while (i & 0x80);
/* maximum valid sizes for wbmp (although 127x127 may be a more accurate one) */
if (!height || !width || height > 2048 || width > 2048) {
return 0;
}
if (!check) {
(*result)->width = width;
(*result)->height = height;
}
return IMAGE_FILETYPE_WBMP;
}
/* {{{ handle_wbmp
*/
static IMAGE_INFO *handle_wbmp(IMAGE_STREAM * stream)
{
IMAGE_INFO *result = (IMAGE_INFO *) ecalloc(1, sizeof(IMAGE_INFO));
if (!php_get_wbmp(stream, &result, 0)) {
efree(result);
return NULL;
}
return result;
}
#endif
#if 0
/* {{{ php_get_xbm
*/
static int php_get_xbm(IMAGE_STREAM *stream, IMAGE_INFO **result)
{
char *fline;
char *iname;
char *type;
int value;
unsigned int width = 0, height = 0;
if (result) {
*result = NULL;
}
if (stream_rewind(stream)) {
return 0;
}
while ((fline=stream_gets(stream, NULL, 0)) != NULL) {
iname = estrdup(fline); /* simple way to get necessary buffer of required size */
if (sscanf(fline, "#define %s %d", iname, &value) == 2) {
if (!(type = strrchr(iname, '_'))) {
type = iname;
} else {
type++;
}
if (!strcmp("width", type)) {
width = (unsigned int) value;
if (height) {
efree(iname);
break;
}
}
if (!strcmp("height", type)) {
height = (unsigned int) value;
if (width) {
efree(iname);
break;
}
}
}
efree(fline);
efree(iname);
}
if (fline) {
efree(fline);
}
if (width && height) {
if (result) {
*result = (IMAGE_INFO *) ecalloc(1, sizeof(IMAGE_INFO));
(*result)->width = width;
(*result)->height = height;
}
return IMAGE_FILETYPE_XBM;
}
return 0;
}
/* {{{ handle_xbm
*/
static IMAGE_INFO *handle_xbm(IMAGE_STREAM * stream)
{
IMAGE_INFO *result;
php_get_xbm(stream, &result);
return result;
}
#endif
/* {{{ php_image_type_to_mime_type
* Convert internal image_type to mime type */
char *php_image_type_to_mime_type(int image_type)
{
switch( image_type) {
case IMAGE_FILETYPE_GIF:
return "image/gif";
case IMAGE_FILETYPE_JPEG:
return "image/jpeg";
case IMAGE_FILETYPE_PNG:
return "image/png";
/*case IMAGE_FILETYPE_SWF:
case IMAGE_FILETYPE_SWC:
return "application/x-shockwave-flash";
case IMAGE_FILETYPE_PSD:
return "image/psd";*/
case IMAGE_FILETYPE_BMP:
return "image/bmp";
case IMAGE_FILETYPE_TIFF_II:
case IMAGE_FILETYPE_TIFF_MM:
return "image/tiff";
/*case IMAGE_FILETYPE_IFF:
return "image/iff";
case IMAGE_FILETYPE_WBMP:
return "image/vnd.wap.wbmp";
case IMAGE_FILETYPE_JPC:
return "application/octet-stream";
case IMAGE_FILETYPE_JP2:
return "image/jp2";
case IMAGE_FILETYPE_XBM:
return "image/xbm";*/
default:
case IMAGE_FILETYPE_UNKNOWN:
return "application/octet-stream"; /* suppose binary format */
}
}
#if 0
/* {{{ proto string image_type_to_mime_type(int imagetype)
Get Mime-Type for image-type returned by getimagesize, exif_read_data, exif_thumbnail, exif_imagetype */
PHP_FUNCTION(image_type_to_mime_type)
{
zval **p_image_type;
int arg_c = ZEND_NUM_ARGS();
if ((arg_c!=1) || zend_get_parameters_ex(arg_c, &p_image_type) == FAILURE) {
RETVAL_FALSE;
WRONG_PARAM_COUNT;
}
convert_to_long_ex(p_image_type);
ZVAL_STRING(return_value, (char*)php_image_type_to_mime_type(Z_LVAL_PP(p_image_type)), 1);
}
/* {{{ proto string image_type_to_extension(int imagetype [, bool include_dot])
Get file extension for image-type returned by getimagesize, exif_read_data, exif_thumbnail, exif_imagetype */
PHP_FUNCTION(image_type_to_extension)
{
long image_type;
zend_bool inc_dot=1;
if (zend_parse_parameters(ZEND_NUM_ARGS(), "l|b", &image_type, &inc_dot) == FAILURE) {
RETURN_FALSE;
}
switch (image_type) {
case IMAGE_FILETYPE_GIF:
RETURN_STRING(".gif" + !inc_dot, 1);
case IMAGE_FILETYPE_JPEG:
RETURN_STRING(".jpeg" + !inc_dot, 1);
case IMAGE_FILETYPE_PNG:
RETURN_STRING(".png" + !inc_dot, 1);
case IMAGE_FILETYPE_SWF:
case IMAGE_FILETYPE_SWC:
RETURN_STRING(".swf" + !inc_dot, 1);
case IMAGE_FILETYPE_PSD:
RETURN_STRING(".psd" + !inc_dot, 1);
case IMAGE_FILETYPE_BMP:
case IMAGE_FILETYPE_WBMP:
RETURN_STRING(".bmp" + !inc_dot, 1);
case IMAGE_FILETYPE_TIFF_II:
case IMAGE_FILETYPE_TIFF_MM:
RETURN_STRING(".tiff" + !inc_dot, 1);
case IMAGE_FILETYPE_IFF:
RETURN_STRING(".iff" + !inc_dot, 1);
case IMAGE_FILETYPE_JPC:
RETURN_STRING(".jpc" + !inc_dot, 1);
case IMAGE_FILETYPE_JP2:
RETURN_STRING(".jp2" + !inc_dot, 1);
case IMAGE_FILETYPE_JPX:
RETURN_STRING(".jpx" + !inc_dot, 1);
case IMAGE_FILETYPE_JB2:
RETURN_STRING(".jb2" + !inc_dot, 1);
case IMAGE_FILETYPE_XBM:
RETURN_STRING(".xbm" + !inc_dot, 1);
}
RETURN_FALSE;
}
#endif
/* {{{ php_imagetype
detect filetype from first bytes */
int php_getimagetype(IMAGE_STREAM * stream)
{
char filetype[12];
if((stream_read(stream, filetype, 3)) != 3) {
IMAGE_error = "Read error";
return IMAGE_FILETYPE_ERROR;
}
/* BYTES READ: 3 */
if (!memcmp(filetype, _signature_gif, 3)) {
return IMAGE_FILETYPE_GIF;
} else if (!memcmp(filetype, _signature_jpg, 3)) {
return IMAGE_FILETYPE_JPEG;
} else if (!memcmp(filetype, _signature_png, 3)) {
if (stream_read(stream, filetype+3, 5) != 5) {
IMAGE_error = "Read error";
return IMAGE_FILETYPE_ERROR;
}
if (!memcmp(filetype, _signature_png, 8)) {
return IMAGE_FILETYPE_PNG;
} else {
IMAGE_error = "PNG file corrupted by ASCII conversion";
return IMAGE_FILETYPE_ERROR;
}
/*
} else if (!memcmp(filetype, _signature_swf, 3)) {
return IMAGE_FILETYPE_SWF;
} else if (!memcmp(filetype, _signature_swc, 3)) {
return IMAGE_FILETYPE_SWC;
} else if (!memcmp(filetype, _signature_psd, 3)) {
return IMAGE_FILETYPE_PSD;
*/
} else if (!memcmp(filetype, _signature_bmp, 2)) {
return IMAGE_FILETYPE_BMP;
/*
} else if (!memcmp(filetype, _signature_jpc, 3)) {
return IMAGE_FILETYPE_JPC;
*/
}
if (stream_read(stream, filetype+3, 1) != 1) {
IMAGE_error = "Read error";
return IMAGE_FILETYPE_ERROR;
}
/* BYTES READ: 4 */
if (!memcmp(filetype, _signature_tif_ii, 4)) {
return IMAGE_FILETYPE_TIFF_II;
} else
if (!memcmp(filetype, _signature_tif_mm, 4)) {
return IMAGE_FILETYPE_TIFF_MM;
}
/*
if (!memcmp(filetype, _signature_iff, 4)) {
return IMAGE_FILETYPE_IFF;
}*/
#if 0
if (stream_read(stream, filetype+4, 8) != 8) {
IMAGE_error = "Read error";
return IMAGE_FILETYPE_ERROR;
}
/* BYTES READ: 12 */
if (!memcmp(filetype, _signature_jp2, 12)) {
return IMAGE_FILETYPE_JP2;
}
/* AFTER ALL ABOVE FAILED */
if (php_get_wbmp(stream, NULL, 1)) {
return IMAGE_FILETYPE_WBMP;
}
if (php_get_xbm(stream, NULL)) {
return IMAGE_FILETYPE_XBM;
}
#endif
return IMAGE_FILETYPE_UNKNOWN;
}
int IMAGE_get_info(IMAGE_STREAM *stream, IMAGE_INFO *result)
{
int itype = 0;
int err;
itype = php_getimagetype(stream);
if (itype == IMAGE_FILETYPE_ERROR)
return 1;
result->type = php_image_type_to_mime_type(itype);
//fprintf(stderr, "type = %s\n", result->type);
switch( itype) {
case IMAGE_FILETYPE_GIF:
err = handle_gif (stream, result);
break;
case IMAGE_FILETYPE_JPEG:
err = handle_jpeg(stream, result);
break;
case IMAGE_FILETYPE_PNG:
err = handle_png(stream, result);
break;
/*
case IMAGE_FILETYPE_SWF:
result = handle_swf(stream);
break;
case IMAGE_FILETYPE_SWC:
#if HAVE_ZLIB && !defined(COMPILE_DL_ZLIB)
result = handle_swc(stream);
#else
php_error_docref(NULL, E_NOTICE, "The image is a compressed SWF file, but you do not have a static version of the zlib extension enabled");
#endif
break;
case IMAGE_FILETYPE_PSD:
result = handle_psd(stream);
break;*/
case IMAGE_FILETYPE_BMP:
err = handle_bmp(stream, result);
break;
case IMAGE_FILETYPE_TIFF_II:
err = handle_tiff(stream, result, 0);
break;
case IMAGE_FILETYPE_TIFF_MM:
err = handle_tiff(stream, result, 1);
break;
/*case IMAGE_FILETYPE_JPC:
result = handle_jpc(stream);
break;
case IMAGE_FILETYPE_JP2:
result = handle_jp2(stream);
break;
case IMAGE_FILETYPE_IFF:
result = handle_iff(stream);
break;
case IMAGE_FILETYPE_WBMP:
result = handle_wbmp(stream);
break;
case IMAGE_FILETYPE_XBM:
result = handle_xbm(stream);
break;*/
default:
case IMAGE_FILETYPE_UNKNOWN:
err = 0;
break;
}
if (err)
IMAGE_error = "Cannot read file";
return err;
}