/*

Copyright � 2000 Matthias Wandel, The PHP Group, Curtis Galloway

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 THE AUTHORS OR COPYRIGHT HOLDERS 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.

*/

#include <sys/time.h>
#include <malloc.h>
#include <stdio.h>
#include <string.h>

#include <math.h>
#include <sys/stat.h>
#include <stdarg.h>
#include <fcntl.h>

#include "exif.h"

typedef unsigned char uchar;

#ifndef TRUE
#define TRUE 1
#define FALSE 0
#endif

/* 
   This structure stores global state for an EXIF image file.
*/
typedef struct {
	exif_data_t *d;
	int MotorolaOrder;
	const char *filename;

	char *Thumbnail;
	int ThumbnailSize;
} ImageInfoType;

void *(*exif_malloc_fn)(int);
void *(*exif_realloc_fn)(void *, int);
void (*exif_free_fn)(void *);

static char *
exif_strndup(char *str, int len)
{
	char *rval = (*exif_malloc_fn)(len+1);
	strncpy(rval, str, len);
	rval[len] = '\0';
	return rval;
}

struct exif_data *
exif_alloc(void)
{
	exif_data_t *d;

	d = (*exif_malloc_fn)(sizeof(exif_data_t));
	bzero(d, sizeof(*d));
	return d;
}

static void
exif_error(char *fmt, ...)
{
	va_list ap;
	va_start(ap, fmt);
	vprintf(fmt, ap);
	va_end(ap);
}


/* This structure is used to store a section of a Jpeg file. */
typedef struct {
    uchar *Data;
    int      Type;
    unsigned Size;
} Section_t;

#define EXIT_FAILURE  1
#define EXIT_SUCCESS  0


/* 
   JPEG markers consist of one or more 0xFF bytes, followed by a marker
   code byte (which is not an FF).  Here are the marker codes of interest
   in this program.  (See jdmarker.c for a more complete list.)
*/

#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            /* Start Of Image (beginning of datastream) */
#define M_EOI   0xD9            /* End Of Image (end of datastream)         */
#define M_SOS   0xDA            /* Start Of Scan (begins compressed data)   */
#define M_EXIF  0xE1            
#define M_COM   0xFE            /* COMment                                  */


#define PSEUDO_IMAGE_MARKER 0x123; /* Extra value. */

#define EXIF_ALLOC_SIZE 16

/*
 * The name gets copied, so you can pass a static string;
 * the data is not copied, so if it is a string,
 * you must allocate it yourself.
 */
static int
exif_append_data(exif_data_t **d_p,
				 char *name,
				 char rec_type,
				 int exif_format,
				 exif_rec_data_t *data)
{
	exif_data_t *d = *d_p;

	if (rec_type == '\0')
		return EXIT_FAILURE;

	if (d->n_alloc <= d->n_recs) {
		d->n_alloc += EXIF_ALLOC_SIZE;
		d = (*exif_realloc_fn)(d, sizeof(exif_data_t) +
							   sizeof(exif_record_t) * d->n_alloc);
		*d_p = d;
	}
	d->recs[d->n_recs].rec_type = rec_type;
	bcopy(data, &d->recs[d->n_recs].rec_data, sizeof(exif_rec_data_t));
	d->recs[d->n_recs].rec_name = (char*)strdup(name);
	d->n_recs++;
	return EXIT_SUCCESS;
}

/*
   Get 16 bits motorola order (always) for jpeg header stuff.
*/
static int
Get16m(void *Short)
{
    return (((uchar *)Short)[0] << 8) | ((uchar *)Short)[1];
}


/*
   Process a COM marker.
   We want to print out the marker contents as legible text;
   we must guard against random junk and varying newline representations.
*/
static void
process_COM (ImageInfoType *ImageInfo, uchar *Data, int length)
{
    int ch;
    char *Comment;
    int nch;
    int a;
    exif_rec_data_t rd;

    nch = 0;
    Comment = (*exif_malloc_fn)(length+1);

    for (a=2;a<length;a++) {
        ch = Data[a];

        if (ch == '\r' && Data[a+1] == '\n') continue; /* Remove cr followed by lf. */

        if (isprint(ch) || ch == '\n' || ch == '\t') {
            Comment[nch++] = (char)ch;
        } else {
            Comment[nch++] = '?';
        }
    }

    Comment[nch] = '\0'; /* Null terminate */

    rd.s = Comment;
    exif_append_data(&ImageInfo->d, "Comment", 's', EXIF_FMT_COMPUTED, &rd);
}
 
/* Process a SOFn marker.  This is useful for the image dimensions. */
static void
process_SOFn (ImageInfoType *ImageInfo, uchar *Data, int marker)
{
    int data_precision, num_components;
    const char *process;
    exif_rec_data_t rd;

    data_precision = Data[2];
    rd.l = Get16m(Data+3);
    exif_append_data(&ImageInfo->d,
					 "Height",
					 'l',
					 EXIF_FMT_COMPUTED,
					 &rd);
    rd.l = Get16m(Data+5);
    exif_append_data(&ImageInfo->d,
					 "Width",
					 'l',
					 EXIF_FMT_COMPUTED,
					 &rd);
    num_components = Data[7];

    if (num_components == 3) {
		rd.l = 1;
    } else {
		rd.l = 0;
    }
    exif_append_data(&ImageInfo->d, "IsColor", 'l', EXIF_FMT_COMPUTED, &rd);

    switch (marker) {
	case M_SOF0:  process = "Baseline";  break;
	case M_SOF1:  process = "Extended sequential";  break;
	case M_SOF2:  process = "Progressive";  break;
	case M_SOF3:  process = "Lossless";  break;
	case M_SOF5:  process = "Differential sequential";  break;
	case M_SOF6:  process = "Differential progressive";  break;
	case M_SOF7:  process = "Differential lossless";  break;
	case M_SOF9:  process = "Extended sequential, arithmetic coding";  break;
	case M_SOF10: process = "Progressive, arithmetic coding";  break;
	case M_SOF11: process = "Lossless, arithmetic coding";  break;
	case M_SOF13: process = "Differential sequential, arithmetic coding";  break;
	case M_SOF14: process = "Differential progressive, arithmetic coding"; break;
	case M_SOF15: process = "Differential lossless, arithmetic coding";  break;
	default:      process = "Unknown";  break;
    }
}

/*
   Describes format descriptor
*/
static int ExifBytesPerFormat[] = {0,1,1,2,4,8,1,1,2,4,8,4,8};
#define NUM_FORMATS EXIF_FMT_DOUBLE

/*
   Describes tag values
*/

#define TAG_EXIF_OFFSET       0x8769
#define TAG_INTEROP_OFFSET    0xa005

#define TAG_COMPRESSION       0x0103

#define TAG_MAKE              0x010F
#define TAG_MODEL             0x0110
#define TAG_ORIENTATION       0x0112

#define TAG_SOFTWARE          0x0131

/* Olympus specific tags */
#define TAG_SPECIALMODE       0x0200
#define TAG_JPEGQUAL          0x0201
#define TAG_MACRO             0x0202
#define TAG_DIGIZOOM          0x0204
#define TAG_SOFTWARERELEASE   0x0207
#define TAG_PICTINFO          0x0208
#define TAG_CAMERAID          0x0209
/* end Olympus specific tags */

#define TAG_COPYRIGHT         0x8298

#define TAG_EXPOSURETIME      0x829A
#define TAG_FNUMBER           0x829D

#define TAG_GPSINFO           0x8825
#define TAG_ISOSPEED          0x8827
#define TAG_EXIFVERSION       0x9000

#define TAG_SHUTTERSPEED      0x9201
#define TAG_APERTURE          0x9202
#define TAG_MAXAPERTURE       0x9205
#define TAG_FOCALLENGTH       0x920A

#define TAG_DATETIME_ORIGINAL 0x9003
#define TAG_USERCOMMENT       0x9286

#define TAG_SUBJECT_DISTANCE  0x9206
#define TAG_LIGHT_SOURCE      0x9208
#define TAG_FLASH             0x9209

#define TAG_FOCALPLANEXRES    0xa20E
#define TAG_FOCALPLANEUNITS   0xa210
#define TAG_IMAGEWIDTH        0xA002

struct ExifTag {
    unsigned short Tag;
    char *Desc;
	void (*Func)();
};



/* Convert a 16 bit unsigned value from file's native byte order */
static int
Get16u(void *Short, int MotorolaOrder)
{
    if (MotorolaOrder) {
        return (((uchar *)Short)[0] << 8) | ((uchar *)Short)[1];
    } else {
        return (((uchar *)Short)[1] << 8) | ((uchar *)Short)[0];
    }
}

/* Convert a 32 bit signed value from file's native byte order */
static int
Get32s(void *Long, int MotorolaOrder)
{
    if (MotorolaOrder) {
        return  ((( char *)Long)[0] << 24) | (((uchar *)Long)[1] << 16)
			| (((uchar *)Long)[2] << 8 ) | (((uchar *)Long)[3] << 0 );
    } else {
        return  ((( char *)Long)[3] << 24) | (((uchar *)Long)[2] << 16)
			| (((uchar *)Long)[1] << 8 ) | (((uchar *)Long)[0] << 0 );
    }
}

/* Convert a 32 bit unsigned value from file's native byte order */
static unsigned
Get32u(void *Long, int MotorolaOrder)
{
    return (unsigned)Get32s(Long, MotorolaOrder) & 0xffffffff;
}


/* Evaluate number, be it int, rational, or float from directory. */
static double
ConvertAnyFormat(void *ValuePtr, int Format, int MotorolaOrder)
{
    double Value;
    Value = 0;

    switch(Format) {
	case EXIF_FMT_SBYTE:     Value = *(signed char *)ValuePtr;  break;
	case EXIF_FMT_BYTE:      Value = *(uchar *)ValuePtr;        break;

	case EXIF_FMT_USHORT:    Value = Get16u(ValuePtr,MotorolaOrder);          break;
	case EXIF_FMT_ULONG:     Value = Get32u(ValuePtr,MotorolaOrder);          break;

	case EXIF_FMT_URATIONAL:
	case EXIF_FMT_SRATIONAL: 
		{
			int Num,Den;
			Num = Get32s(ValuePtr,MotorolaOrder);
			Den = Get32s(4+(char *)ValuePtr,MotorolaOrder);
			if (Den == 0) {
				Value = 0;
			} else {
				Value = (double)Num/Den;
			}
			break;
		}

	case EXIF_FMT_SSHORT:    Value = (signed short)Get16u(ValuePtr,MotorolaOrder);  break;
	case EXIF_FMT_SLONG:     Value = Get32s(ValuePtr,MotorolaOrder);                break;

        /* Not sure if this is correct (never seen float used in Exif format) */
	case EXIF_FMT_SINGLE:    Value = (double)*(float *)ValuePtr;      break;
	case EXIF_FMT_DOUBLE:    Value = *(double *)ValuePtr;             break;
    }
    return Value;
}

/* Evaluate number, be it int, rational, or float from directory. */
static char
ConvertAnyFormat2(void *ValuePtr, int ByteCount, int Format, int MotorolaOrder, exif_rec_data_t *data_p)
{
	char *str, *p;
	char r_type;
	unsigned char c;
	static char hexdigits[] = "0123456789ABCDEF";

    switch(Format) {
	case EXIF_FMT_STRING:
		data_p->s = exif_strndup(ValuePtr, ByteCount);
		r_type = 's';
		break;

	case EXIF_FMT_SBYTE:
		data_p->l = (long)*(signed char *)ValuePtr;
		r_type = 'l';
		break;

	case EXIF_FMT_BYTE:
		data_p->l = (long)*(uchar *)ValuePtr;
		r_type = 'l';
        break;

	case EXIF_FMT_USHORT:
		data_p->l = (long)Get16u(ValuePtr,MotorolaOrder);
		r_type = 'l';
		break;
	case EXIF_FMT_ULONG:
		data_p->l = (long)Get32u(ValuePtr,MotorolaOrder);
		r_type = 'l';
		break;

	case EXIF_FMT_URATIONAL:
	case EXIF_FMT_SRATIONAL: 
		{
			int Num,Den;
			data_p->r.num = Get32s(ValuePtr,MotorolaOrder);
			data_p->r.denom = Get32s(4+(char *)ValuePtr,MotorolaOrder);
			r_type = 'r';
			break;
		}

	case EXIF_FMT_SSHORT:
		data_p->l = (signed short)Get16u(ValuePtr,MotorolaOrder);
		r_type = 'l';
		break;
	case EXIF_FMT_SLONG:
		data_p->l = (long)Get32s(ValuePtr,MotorolaOrder);
		r_type = 'l';
		break;

        /* Not sure if this is correct (never seen float used in Exif format) */
	case EXIF_FMT_SINGLE:
		data_p->f = *(float *)ValuePtr;
		r_type = 'f';
		break;

	case EXIF_FMT_DOUBLE:
		data_p->g = *(double *)ValuePtr;
		r_type = 'f';
		break;

	default:
		/* unknown type */
		p = str = (*exif_malloc_fn)(ByteCount*2 + 1);
		while (ByteCount--) {
			c = *(unsigned char *)ValuePtr++;
			*p++ = hexdigits[c / 16];
			*p++ = hexdigits[c % 16];
		}
		*p++ = '\0';
		data_p->s = str;
		r_type = 's';
		break;
    }
    return r_type;
}


static void
ProcessFocalPlaneUnits(ImageInfoType *ImageInfo,
					   void *ValuePtr,
					   int ByteCount,
					   int Format,
					   struct ExifTag *tag_p)
{
    exif_rec_data_t rd;
	float FocalPlaneUnits;

	switch((int)ConvertAnyFormat(ValuePtr, Format, ImageInfo->MotorolaOrder)) {
	case 1:
		FocalPlaneUnits = 25.4;
		break; /* inch */
	case 2: 
		/* According to the information I was using, 2 means meters.
		   But looking at the Canon PowerShot's files, inches is the only
		   sensible value. */
		FocalPlaneUnits = 25.4;
		break;

	case 3:
		FocalPlaneUnits = 10;
		break;  /* centimeter */
	case 4:
		FocalPlaneUnits = 1;
		break;  /* milimeter  */
	case 5:
		FocalPlaneUnits = .001;
		break;  /* micrometer */
	}

	rd.f = FocalPlaneUnits;
	exif_append_data(&ImageInfo->d,
					 "FocalPlaneUnits",
					 'f',
					 Format,
					 &rd);
}

static void
ProcessVersion(ImageInfoType *ImageInfo,
				   void *ValuePtr,
				   int ByteCount,
				   int Format,
				   struct ExifTag *tag_p)
{
    exif_rec_data_t rd;
	rd.s = exif_strndup(ValuePtr, ByteCount);
	exif_append_data(&ImageInfo->d,
					 tag_p->Desc,
					 's',
					 Format,
					 &rd);
}

static void
ProcessUserComment(ImageInfoType *ImageInfo,
				   void *_ValuePtr,
				   int ByteCount,
				   int Format,
				   struct ExifTag *tag_p)
{
	char *ValuePtr = (char *)_ValuePtr;
    exif_rec_data_t rd;
	int a;

	/* Olympus has this padded with trailing spaces.  Remove these first. */
	for (a=ByteCount;;) {
		a--;
		if ((ValuePtr)[a] == ' ') {
			(ValuePtr)[a] = '\0';
		} else {
			break;
		}
		if (a == 0) break;
	}

	/* Copy the comment */
	if (memcmp(ValuePtr, "ASCII",5) == 0) {
		for (a=5;a<10;a++) {
			int c;
			c = (ValuePtr)[a];
			if (c != '\0' && c != ' ') {
				rd.s = exif_strndup(a+ValuePtr, ByteCount - a);
				exif_append_data(&ImageInfo->d,
								 "UserComment",
								 's',
								 Format,
								 &rd);
				break;
			}
		}
                    
	} else {
		rd.s = exif_strndup(ValuePtr, ByteCount);
		exif_append_data(&ImageInfo->d,
						 "UserComment",
						 's',
						 Format,
						 &rd);
	}
}

static void
ProcessShutterSpeed(ImageInfoType *ImageInfo,
					void *ValuePtr,
					int ByteCount,
					int Format,
					struct ExifTag *tag_p)
{
    exif_rec_data_t rd;
	char rec_type;

	rec_type = ConvertAnyFormat2(ValuePtr, ByteCount, Format,
								 ImageInfo->MotorolaOrder,
								 &rd);
	exif_append_data(&ImageInfo->d,
					 tag_p->Desc,
					 rec_type,
					 Format,
					 &rd);

	/* Convert shutter speed value to shutter speed;
	 * shutter speed is 1/(2**ShutterSpeedValue)
     */
	rd.r.denom = (int)pow(2.0, ((double)rd.r.num)/((double)rd.r.denom));
	rd.r.num = 1;
	exif_append_data(&ImageInfo->d,
					 "ShutterSpeed",
					 'r',
					 EXIF_FMT_COMPUTED,
					 &rd);
	
}

static void
ProcessAperture(ImageInfoType *ImageInfo,
				void *ValuePtr,
				int ByteCount,
				int Format,
				struct ExifTag *tag_p)
{
    exif_rec_data_t rd;
	char rec_type;
	double fstop;
	char label[32];

	rec_type = ConvertAnyFormat2(ValuePtr, ByteCount, Format,
								 ImageInfo->MotorolaOrder,
								 &rd);
	exif_append_data(&ImageInfo->d,
					 tag_p->Desc,
					 rec_type,
					 Format,
					 &rd);

	if (exif_find_record(ImageInfo->d, "FNumber") == NULL) {
		/* Convert aperture to F-stop. */
		fstop = pow(sqrt(2), ((double)rd.r.num)/((double)rd.r.denom));
		sprintf(label, "f%.1g", fstop);
		rd.s = (char*)strdup(label);
		exif_append_data(&ImageInfo->d,
						 "FNumber",
						 's',
						 EXIF_FMT_COMPUTED,
						 &rd);
	}
}

static void
ProcessCanonMakerNote(ImageInfoType *ImageInfo,
				 void *ValuePtr,
				 int ByteCount,
				 int Format,
				 struct ExifTag *tag_p,
				 char *OffsetBase)
{
	
	/* This is for the Canon MakerNote. */
	/* XXX - go by value of Maker tag. */
    exif_rec_data_t rd;
	char rec_type;
	unsigned long n_dir, tag, format, components, offset;
	char label[32];
	void *OffsetPtr;

	n_dir = Get16u(ValuePtr, ImageInfo->MotorolaOrder);
	ValuePtr += 2;
	while (n_dir--) {
		tag = Get16u(ValuePtr, ImageInfo->MotorolaOrder);
		ValuePtr += 2;
		format = Get16u(ValuePtr, ImageInfo->MotorolaOrder);
		ValuePtr += 2;
		components = Get32u(ValuePtr, ImageInfo->MotorolaOrder);
		ValuePtr += 4;
		offset = Get32u(ValuePtr, ImageInfo->MotorolaOrder);
        ByteCount = components * ExifBytesPerFormat[format];
		if (ByteCount > 4) {
			OffsetPtr = OffsetBase + offset;
		} else {
			OffsetPtr = ValuePtr;
		}
		ValuePtr += 4;
		rec_type = ConvertAnyFormat2(OffsetPtr, ByteCount, format,
									 ImageInfo->MotorolaOrder,
									 &rd);
		sprintf(label, "MakerNote%04x", tag);
		exif_append_data(&ImageInfo->d,
						 label,
						 rec_type,
						 format,
						 &rd);
		
	}
}


struct MakerNote {
	char *Make;
	void (*Func)();
};

static struct MakerNote
MakerProcessors[] = {
	{"Canon", ProcessCanonMakerNote},
    {NULL, NULL}
};

static void
ProcessMakerNote(ImageInfoType *ImageInfo,
				 void *ValuePtr,
				 int ByteCount,
				 int Format,
				 struct ExifTag *tag_p,
				 char *OffsetBase)
{
	struct MakerNote *mn_p;
	exif_record_t *rec_p;

	rec_p = exif_find_record(ImageInfo->d, "Make");
	if (rec_p == NULL) {
		return;
	}

	for(mn_p = &MakerProcessors[0]; mn_p->Make != NULL; mn_p++) {
		if (strcmp(mn_p->Make, rec_p->rec_data.s) == 0) {
			(*mn_p->Func)(ImageInfo, ValuePtr, ByteCount, Format, tag_p, OffsetBase);
			break;
		}
	}
}

static struct ExifTag
TagTable[] = {
	{   0x0001, "InteroperabilityIndex"},
	{   0x0002, "InteroperabilityVersion", ProcessVersion},
	{	0x0100,	"ImageWidth"},
	{	0x0101,	"ImageLength"},
	{	0x0102,	"BitsPerSample"},
	{	0x0103,	"Compression"},
	{	0x0106,	"PhotometricInterpretation"},
	{	0x010A,	"FillOrder"},
	{	0x010D,	"DocumentName"},
	{	0x010E,	"ImageDescription"},
	{	0x010F,	"Make"},
	{	0x0110,	"Model"},
	{	0x0111,	"StripOffsets"},
	{	0x0112,	"Orientation"},
	{	0x0115,	"SamplesPerPixel"},
	{	0x0116,	"RowsPerStrip"},
	{	0x0117,	"StripByteCounts"},
	{	0x011A,	"XResolution"},
	{	0x011B,	"YResolution"},
	{	0x011C,	"PlanarConfiguration"},
	{	0x0128,	"ResolutionUnit"},
	{	0x012D,	"TransferFunction"},
	{	0x0131,	"Software"},
	{	0x0132,	"DateTime"},
	{	0x013B,	"Artist"},
	{	0x013E,	"WhitePoint"},
	{	0x013F,	"PrimaryChromaticities"},
	{	0x0156,	"TransferRange"},
	{	0x0200,	"JPEGProc"},
	{	0x0201,	"JPEGInterchangeFormat"},
	{	0x0202,	"JPEGInterchangeFormatLength"},
	{	0x0211,	"YCbCrCoefficients"},
	{	0x0212,	"YCbCrSubSampling"},
	{	0x0213,	"YCbCrPositioning"},
	{	0x0214,	"ReferenceBlackWhite"},
	{   0x1000, "RelatedImageFileFormat"},
	{   0x1001, "RelatedImageWidth"},
	{   0x1002, "RelatedImageLength"},
	{	0x828D,	"CFARepeatPatternDim"},
	{	0x828E,	"CFAPattern"},
	{	0x828F,	"BatteryLevel"},
	{	0x8298,	"Copyright"},
	{	0x829A,	"ExposureTime"},
	{	0x829D,	"FNumber"},
	{	0x83BB,	"IPTC/NAA"},
	{	0x8769,	"ExifOffset"},
	{	0x8773,	"InterColorProfile"},
	{	0x8822,	"ExposureProgram"},
	{	0x8824,	"SpectralSensitivity"},
	{	0x8825,	"GPSInfo"},
	{	0x8827,	"ISOSpeedRatings"},
	{	0x8828,	"OECF"},
	{	0x9000,	"ExifVersion", ProcessVersion},
	{	0x9003,	"DateTimeOriginal"},
	{	0x9004,	"DateTimeDigitized"},
	{	0x9101,	"ComponentsConfiguration"},
	{	0x9102,	"CompressedBitsPerPixel"},
	{	0x9201,	"ShutterSpeedValue", ProcessShutterSpeed},
	{	0x9202,	"ApertureValue", ProcessAperture},
	{	0x9203,	"BrightnessValue"},
	{	0x9204,	"ExposureBiasValue"},
	{	0x9205,	"MaxApertureValue", ProcessAperture},
	{	0x9206,	"SubjectDistance"},
	{	0x9207,	"MeteringMode"},
	{	0x9208,	"LightSource"},
	{	0x9209,	"Flash"},
	{	0x920A,	"FocalLength"},
	{	0x927C,	"MakerNote", ProcessMakerNote},
	{	0x9286,	"UserComment", ProcessUserComment},
	{	0x9290,	"SubSecTime"},
	{	0x9291,	"SubSecTimeOriginal"},
	{	0x9292,	"SubSecTimeDigitized"},
	{	0xA000,	"FlashPixVersion", ProcessVersion},
	{	0xA001,	"ColorSpace"},
	{	0xA002,	"ExifImageWidth"},
	{	0xA003,	"ExifImageLength"},
	{	0xA005,	"InteroperabilityOffset"},
	{	0xA20B,	"FlashEnergy"},			        /* 0x920B in TIFF/EP */
	{	0xA20C,	"SpatialFrequencyResponse"},	/* 0x920C    -  -    */
	{	0xA20E,	"FocalPlaneXResolution"},    	/* 0x920E    -  -    */
	{	0xA20F,	"FocalPlaneYResolution"},	    /* 0x920F    -  -    */
	{	0xA210,	"FocalPlaneResolutionUnit", ProcessFocalPlaneUnits},
	                                            /* 0x9210    -  -    */
	{	0xA214,	"SubjectLocation"},		        /* 0x9214    -  -    */
	{	0xA215,	"ExposureIndex"},		        /* 0x9215    -  -    */
	{	0xA217,	"SensingMethod"},		        /* 0x9217    -  -    */
	{	0xA300,	"FileSource"},
	{	0xA301,	"SceneType"},
	{        0, NULL}
} ;



/* Process one of the nested EXIF directories. */
static int
ProcessExifDir(ImageInfoType *ImageInfo, char *DirStart, char *OffsetBase, unsigned ExifLength, char *LastExifRefd)
{
    int de;
    int a;
    int NumDirEntries;
    exif_rec_data_t rd;
	char rec_type;
	char label[32];

    NumDirEntries = Get16u(DirStart, ImageInfo->MotorolaOrder);

    if ((DirStart+2+NumDirEntries*12) > (OffsetBase+ExifLength)) {
		exif_error("Illegally sized directory");
		return FALSE;
    }


    for (de=0;de<NumDirEntries;de++) {
        int Tag, Format, Components;
        char *ValuePtr;
        int ByteCount;
        char *DirEntry;
		struct ExifTag *tag_p;

        DirEntry = DirStart+2+12*de;

        Tag = Get16u(DirEntry, ImageInfo->MotorolaOrder);
        Format = Get16u(DirEntry+2, ImageInfo->MotorolaOrder);
        Components = Get32u(DirEntry+4, ImageInfo->MotorolaOrder);

        if ((Format-1) >= NUM_FORMATS) {
            /* (-1) catches illegal zero case as unsigned underflows to positive large. */
			exif_error("Illegal format code in EXIF dir");
			return FALSE;
        }

        ByteCount = Components * ExifBytesPerFormat[Format];

        if (ByteCount > 4) {
            unsigned OffsetVal;
            OffsetVal = Get32u(DirEntry+8, ImageInfo->MotorolaOrder);
            /* If its bigger than 4 bytes, the dir entry contains an offset. */
            if (OffsetVal+ByteCount > ExifLength) {
                /* Bogus pointer offset and / or bytecount value */
				/*                printf("Offset %d bytes %d ExifLen %d\n",OffsetVal, ByteCount, ExifLength); */

				exif_error("Illegal pointer offset value in EXIF");
				return FALSE;
            }
            ValuePtr = OffsetBase+OffsetVal;
        } else {
            /* 4 bytes or less and value is in the dir entry itself */
            ValuePtr = DirEntry+8;
        }

        if (LastExifRefd < ValuePtr+ByteCount) {
            /* 
			   Keep track of last byte in the exif header that was actually referenced.
               That way, we know where the discardable thumbnail data begins.
			*/
            LastExifRefd = ValuePtr+ByteCount;
        }

        if (Tag == TAG_EXIF_OFFSET || Tag == TAG_INTEROP_OFFSET) {
            char *SubdirStart;
            SubdirStart = OffsetBase + Get32u(ValuePtr, ImageInfo->MotorolaOrder);
            if (SubdirStart < OffsetBase || SubdirStart > OffsetBase+ExifLength) {
				exif_error("Illegal subdirectory link");
				return FALSE;
            }
            ProcessExifDir(ImageInfo, SubdirStart, OffsetBase, ExifLength, LastExifRefd);
            continue;
        }

		/* Search through tag table */
		for (tag_p = &TagTable[0]; tag_p->Desc != NULL; tag_p++) {
			if (tag_p->Tag == Tag) {
				if (tag_p->Func != NULL) {
					(*tag_p->Func)(ImageInfo, ValuePtr, ByteCount, Format, tag_p, OffsetBase);
				} else {
					rec_type = ConvertAnyFormat2(ValuePtr, ByteCount, Format,
												 ImageInfo->MotorolaOrder,
												 &rd);
					exif_append_data(&ImageInfo->d,
									 tag_p->Desc,
									 rec_type,
									 Format,
									 &rd);
				}
				break;
			}
		}
		if (tag_p->Desc == NULL) {
			rec_type = ConvertAnyFormat2(ValuePtr, ByteCount, Format,
										 ImageInfo->MotorolaOrder,
										 &rd);
			sprintf(label, "0x%04x", Tag);
			exif_append_data(&ImageInfo->d,
							 label,
							 rec_type,
							 Format,
							 &rd);
		}
	}
    return TRUE;
}

/* 
   Process an EXIF marker
   Describes all the drivel that most digital cameras include...
*/
static int
process_EXIF (ImageInfoType *ImageInfo, char *CharBuf, unsigned int length, char *LastExifRefd)
{
	int cc;
	exif_rec_data_t rd;
	LastExifRefd = CharBuf;

	{   /* Check the EXIF header component */
		static const uchar ExifHeader[] = {0x45, 0x78, 0x69, 0x66, 0x00, 0x00};
		if (memcmp(CharBuf+2, ExifHeader,6)) {
			exif_error("Incorrect Exif header");
			return FALSE;
		}
	}

	if (memcmp(CharBuf+8,"II",2) == 0) {
		ImageInfo->MotorolaOrder = 0;
	} else {
		if (memcmp(CharBuf+8,"MM",2) == 0) {
			ImageInfo->MotorolaOrder = 1;
		} else {
			exif_error("Invalid Exif alignment marker.");
			return FALSE;
		}
	}

	/* Check the next two values for correctness. */
	if (Get16u(CharBuf+10,ImageInfo->MotorolaOrder) != 0x2a
		|| Get32u(CharBuf+12,ImageInfo->MotorolaOrder) != 0x08) {
		exif_error("Invalid Exif start (1, NULL)");
		return FALSE;
	}

	/* First directory starts 16 bytes in.  Offsets start at 8 bytes in. */
	cc = ProcessExifDir(ImageInfo, CharBuf+16, CharBuf+8, length-6, LastExifRefd);
	if (cc != TRUE) {
		return cc;
	}
	return TRUE;
}
 
/* Parse the marker stream until SOS or EOI is seen; */
static int 
scan_JPEG_header (ImageInfoType *ImageInfo, FILE *infile, Section_t *Sections, int *SectionsRead, int ReadAll, char *LastExifRefd)
{
    int a;
    int HaveCom = FALSE;

    a = fgetc(infile);
    if (a != 0xff || fgetc(infile) != M_SOI) {
        return FALSE;
    }

    for(*SectionsRead=0;*SectionsRead < 19;) {
        int itemlen;
        int marker = 0;
        int ll,lh, got;
        uchar *Data;

        for (a=0;a<7;a++) {
            marker = fgetc(infile);
            if (marker != 0xff) break;
        }
        if (marker == 0xff) {
            /* 0xff is legal padding, but if we get that many, something's wrong. */
			exif_error("too many padding bytes!");
			return FALSE;
        }

        Sections[*SectionsRead].Type = marker;
  
        /* Read the length of the section. */
        lh = fgetc(infile);
        ll = fgetc(infile);

        itemlen = (lh << 8) | ll;

        if (itemlen < 2) {
			exif_error("invalid marker");
			return FALSE;
        }

        Sections[*SectionsRead].Size = itemlen;

        Data = (uchar *)(*exif_malloc_fn)(itemlen+1); /* Add 1 to allow sticking a 0 at the end. */
        Sections[*SectionsRead].Data = Data;

        /* Store first two pre-read bytes. */
        Data[0] = (uchar)lh;
        Data[1] = (uchar)ll;

        got = fread(Data+2, 1, itemlen-2, infile); /* Read the whole section. */
        if (got != itemlen-2) {
			exif_error("reading from file");
			return FALSE;
        }
        *SectionsRead += 1;

        switch(marker) {
		case M_SOS:   /* stop before hitting compressed data  */
			/* If reading entire image is requested, read the rest of the data. */
			if (ReadAll) {
				int cp, ep, size;
				/* Determine how much file is left. */
				cp = ftell(infile);
				fseek(infile, 0, SEEK_END);
				ep = ftell(infile);
				fseek(infile, cp, SEEK_SET);

				size = ep-cp;
				Data = (uchar *)(*exif_malloc_fn)(size);
				if (Data == NULL) {
					exif_error("could not allocate data for entire image");
					return FALSE;
				}

				got = fread(Data, 1, size, infile);
				if (got != size) {
					exif_error("could not read the rest of the image");
					return FALSE;
				}

				Sections[*SectionsRead].Data = Data;
				Sections[*SectionsRead].Size = size;
				Sections[*SectionsRead].Type = PSEUDO_IMAGE_MARKER;
				(*SectionsRead)++;
				/*
				 *HaveAll = 1;
				 */
			}
			return TRUE;

		case M_EOI:   /* in case it's a tables-only JPEG stream */
			exif_error("No image in jpeg!");
			return FALSE;

		case M_COM: /* Comment section */
			if (HaveCom) {
				(*SectionsRead) -= 1;
				(*exif_free_fn)(Sections[*SectionsRead].Data);
			} else {
				process_COM(ImageInfo, Data, itemlen);
				HaveCom = TRUE;
			}
			break;

		case M_EXIF:
			if (*SectionsRead <= 2) {
				/* Seen files from some 'U-lead' software with Vivitar scanner
				   that uses marker 31 later in the file (no clue what for!) */
				process_EXIF(ImageInfo, (char *)Data, itemlen, LastExifRefd);
			}
			break;

		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:
			process_SOFn(ImageInfo, Data, marker);
			break;
		default:
			/* skip any other marker silently. */
			break;
        }
    }
    return TRUE;
}

/* 
   Discard read data.
*/
static void
DiscardData(Section_t *Sections, int *SectionsRead)
{
    int a;
    for (a=0;a<*SectionsRead-1;a++) {
        (*exif_free_fn)(Sections[a].Data);
    }
    *SectionsRead = 0;
}

/* 
   Read image data.
*/
static int
ReadJpegFile(ImageInfoType *ImageInfo, Section_t *Sections, 
			 int *SectionsRead, int fd, 
			 int ReadAll, char *LastExifRefd)
{
    FILE *infile;
    int ret;
	char *tmp;
	char **p_argv;
	int p_argc;

    infile = fdopen(fd, "rb"); /* Unix ignores 'b', windows needs it. */

    if (infile == NULL) {
		exif_error("Unable to open '%s'", ImageInfo->filename);
		return FALSE;
    }

    /* Start with an empty image information structure. */
    memset(ImageInfo, 0, sizeof(*ImageInfo));
    memset(Sections, 0, sizeof(*Sections));

    ImageInfo->d = exif_alloc();

    /* Scan the JPEG headers. */
    ret = scan_JPEG_header(ImageInfo, infile, Sections, SectionsRead, ReadAll, LastExifRefd);
    if (!ret) {
		exif_error("Invalid Jpeg file: '%s'",ImageInfo->filename);
		return FALSE;
    }

    fclose(infile);

    return ret;
}

static int
read_jpeg_exif(ImageInfoType *ImageInfo, int fd, int ReadAll)
{
	Section_t Sections[20];
	int SectionsRead;
	char *LastExifRefd=NULL;
	int ret;
	int thumbsize=0;

	ret = ReadJpegFile(ImageInfo, Sections, &SectionsRead, fd, ReadAll, LastExifRefd); 
#if 0
	/*
	 * Thought this might pick out the embedded thumbnail, but it doesn't work.   -RL
     */
	for (i=0;i<SectionsRead-1;i++) {
		if (Sections[i].Type == M_EXIF) {
			thumbsize = Sections[i].Size;
			if(thumbsize>0) {
				ImageInfo->Thumbnail = (*exif_malloc_fn)(thumbsize+5);
				ImageInfo->ThumbnailSize = thumbsize;
				ImageInfo->Thumbnail[0] = 0xff;
				ImageInfo->Thumbnail[1] = 0xd8;
				ImageInfo->Thumbnail[2] = 0xff;
				memcpy(ImageInfo->Thumbnail+4, Sections[i].Data, thumbsize+4);
			}
		}
	}
#endif
    if (ret != FALSE) {
        DiscardData(Sections, &SectionsRead);
    }
	return(ret);
}

exif_data_t *
exif_parse_fd(int fd)
{
	ImageInfoType ImageInfo;

	ImageInfo.filename = "<file stream>";
	if (read_jpeg_exif(&ImageInfo, fd, 1) != TRUE) {
		return NULL;
	}
	return ImageInfo.d;
}

exif_data_t *
exif_parse_file(const char *filename)
{
	ImageInfoType ImageInfo;
	int fd;
	
	ImageInfo.filename = filename;
	fd = open(filename, O_RDONLY);
	if (fd < 0) {
		return NULL;
	}

	if (read_jpeg_exif(&ImageInfo, fd, 1) != TRUE) {
		return NULL;
	}
	return ImageInfo.d;
}

void
exif_free_data(struct exif_data *d)
{
	int i;
	for (i=0; i<d->n_recs; i++) {
		(*exif_free_fn)(d->recs[i].rec_name);
		if (d->recs[i].rec_type == 's') {
			(*exif_free_fn)(d->recs[i].rec_data.s);
		}
	}
	(*exif_free_fn)(d);
}

void
exif_init(void *(*malloc_fn)(int),
		  void (*free_fn)(void *),
		  void *(*realloc_fn)(void *, int))
{
	if (malloc_fn == NULL) {
		malloc_fn = (void *(*)(int))malloc;
	}
	exif_malloc_fn = malloc_fn;
	if (free_fn == NULL) {
		free_fn = (void (*)(void *))free;
	}
	exif_free_fn = free_fn;
	if (realloc_fn == NULL) {
		realloc_fn = (void *(*)(void *, int))realloc;
	}
	exif_realloc_fn = realloc_fn;
}

extern exif_record_t *
exif_find_record(exif_data_t *d, const char *rec_name)
{
	int i;
	for (i=0; i<d->n_recs; i++) {
		if (strcmp(d->recs[i].rec_name, rec_name) == 0) {
			return &d->recs[i];
		}
	}
	return NULL;
}

/*
 * Local variables:
 * tab-width: 4
 * c-basic-offset: 4
 * End:
 */