ref: 2c6cc121339ade33ac5aa4b46356df1cd5469fbe
dir: /sys/src/cmd/aux/antiword/imgexam.c/
/* * imgexam.c * Copyright (C) 2000-2004 A.J. van Os; Released under GNU GPL * * Description: * Functions to examine image headers * *================================================================ * Part of this software is based on: * jpeg2ps - convert JPEG compressed images to PostScript Level 2 * Copyright (C) 1994-99 Thomas Merz (tm@muc.de) *================================================================ * The credit should go to him, but all the bugs are mine. */ #include <stdio.h> #include <string.h> #include <ctype.h> #include "antiword.h" /* BMP compression types */ #define BI_RGB 0 #define BI_RLE8 1 #define BI_RLE4 2 /* PNG colortype bits */ #define PNG_CB_PALETTE 0x01 #define PNG_CB_COLOR 0x02 #define PNG_CB_ALPHA 0x04 /* Instance signature */ #define MSOBI_WMF 0x0216 #define MSOBI_EMF 0x03d4 #define MSOBI_PICT 0x0542 #define MSOBI_PNG 0x06e0 #define MSOBI_JPEG 0x046a #define MSOBI_DIB 0x07a8 /* The following enum is stolen from the IJG JPEG library */ typedef enum { /* JPEG marker codes */ M_SOF0 = 0xc0, /* baseline DCT */ M_SOF1 = 0xc1, /* extended sequential DCT */ M_SOF2 = 0xc2, /* progressive DCT */ M_SOF3 = 0xc3, /* lossless (sequential) */ M_SOF5 = 0xc5, /* differential sequential DCT */ M_SOF6 = 0xc6, /* differential progressive DCT */ M_SOF7 = 0xc7, /* differential lossless */ M_JPG = 0xc8, /* JPEG extensions */ M_SOF9 = 0xc9, /* extended sequential DCT */ M_SOF10 = 0xca, /* progressive DCT */ M_SOF11 = 0xcb, /* lossless (sequential) */ M_SOF13 = 0xcd, /* differential sequential DCT */ M_SOF14 = 0xce, /* differential progressive DCT */ M_SOF15 = 0xcf, /* differential lossless */ M_DHT = 0xc4, /* define Huffman tables */ M_DAC = 0xcc, /* define arithmetic conditioning table */ M_RST0 = 0xd0, /* restart */ M_RST1 = 0xd1, /* restart */ M_RST2 = 0xd2, /* restart */ M_RST3 = 0xd3, /* restart */ M_RST4 = 0xd4, /* restart */ M_RST5 = 0xd5, /* restart */ M_RST6 = 0xd6, /* restart */ M_RST7 = 0xd7, /* restart */ M_SOI = 0xd8, /* start of image */ M_EOI = 0xd9, /* end of image */ M_SOS = 0xda, /* start of scan */ M_DQT = 0xdb, /* define quantization tables */ M_DNL = 0xdc, /* define number of lines */ M_DRI = 0xdd, /* define restart interval */ M_DHP = 0xde, /* define hierarchical progression */ M_EXP = 0xdf, /* expand reference image(s) */ M_APP0 = 0xe0, /* application marker, used for JFIF */ M_APP1 = 0xe1, /* application marker */ M_APP2 = 0xe2, /* application marker */ M_APP3 = 0xe3, /* application marker */ M_APP4 = 0xe4, /* application marker */ M_APP5 = 0xe5, /* application marker */ M_APP6 = 0xe6, /* application marker */ M_APP7 = 0xe7, /* application marker */ M_APP8 = 0xe8, /* application marker */ M_APP9 = 0xe9, /* application marker */ M_APP10 = 0xea, /* application marker */ M_APP11 = 0xeb, /* application marker */ M_APP12 = 0xec, /* application marker */ M_APP13 = 0xed, /* application marker */ M_APP14 = 0xee, /* application marker, used by Adobe */ M_APP15 = 0xef, /* application marker */ M_JPG0 = 0xf0, /* reserved for JPEG extensions */ M_JPG13 = 0xfd, /* reserved for JPEG extensions */ M_COM = 0xfe, /* comment */ M_TEM = 0x01 /* temporary use */ } JPEG_MARKER; /* * bFillPaletteDIB - fill the palette part of the imagesdata * * returns TRUE if the images must be a color image, otherwise FALSE; */ static BOOL bFillPaletteDIB(FILE *pFile, imagedata_type *pImg, BOOL bNewFormat) { int iIndex; BOOL bIsColorPalette; fail(pFile == NULL); fail(pImg == NULL); if (pImg->uiBitsPerComponent > 8) { /* No palette, image uses more than 256 colors */ return TRUE; } if (pImg->iColorsUsed <= 0) { /* Not specified, so compute the number of colors used */ pImg->iColorsUsed = 1 << pImg->uiBitsPerComponent; } fail(pImg->iColorsUsed > 256); if (pImg->iColorsUsed > 256) { pImg->iColorsUsed = 256; } bIsColorPalette = FALSE; for (iIndex = 0; iIndex < pImg->iColorsUsed; iIndex++) { /* From BGR order to RGB order */ pImg->aucPalette[iIndex][2] = (UCHAR)iNextByte(pFile); pImg->aucPalette[iIndex][1] = (UCHAR)iNextByte(pFile); pImg->aucPalette[iIndex][0] = (UCHAR)iNextByte(pFile); if (bNewFormat) { (void)iNextByte(pFile); } NO_DBG_PRINT_BLOCK(pImg->aucPalette[iIndex], 3); if (pImg->aucPalette[iIndex][0] != pImg->aucPalette[iIndex][1] || pImg->aucPalette[iIndex][1] != pImg->aucPalette[iIndex][2]) { bIsColorPalette = TRUE; } } return bIsColorPalette; } /* end of bFillPaletteDIB */ /* * bExamineDIB - Examine a DIB header * * return TRUE if successful, otherwise FALSE */ static BOOL bExamineDIB(FILE *pFile, imagedata_type *pImg) { size_t tHeaderSize; int iPlanes, iCompression; tHeaderSize = (size_t)ulNextLong(pFile); switch (tHeaderSize) { case 12: pImg->iWidth = (int)usNextWord(pFile); pImg->iHeight = (int)usNextWord(pFile); iPlanes = (int)usNextWord(pFile); pImg->uiBitsPerComponent = (UINT)usNextWord(pFile); iCompression = BI_RGB; pImg->iColorsUsed = 0; break; case 40: case 64: pImg->iWidth = (int)ulNextLong(pFile); pImg->iHeight = (int)ulNextLong(pFile); iPlanes = (int)usNextWord(pFile); pImg->uiBitsPerComponent = (UINT)usNextWord(pFile); iCompression = (int)ulNextLong(pFile); (void)tSkipBytes(pFile, 12); pImg->iColorsUsed = (int)ulNextLong(pFile); (void)tSkipBytes(pFile, tHeaderSize - 36); break; default: DBG_DEC(tHeaderSize); return FALSE; } DBG_DEC(pImg->iWidth); DBG_DEC(pImg->iHeight); DBG_DEC(pImg->uiBitsPerComponent); DBG_DEC(iCompression); DBG_DEC(pImg->iColorsUsed); /* Do some sanity checks with the parameters */ if (iPlanes != 1) { DBG_DEC(iPlanes); return FALSE; } if (pImg->iWidth <= 0 || pImg->iHeight <= 0) { DBG_DEC(pImg->iWidth); DBG_DEC(pImg->iHeight); return FALSE; } if (pImg->uiBitsPerComponent != 1 && pImg->uiBitsPerComponent != 4 && pImg->uiBitsPerComponent != 8 && pImg->uiBitsPerComponent != 24) { DBG_DEC(pImg->uiBitsPerComponent); return FALSE; } if (iCompression != BI_RGB && (pImg->uiBitsPerComponent == 1 || pImg->uiBitsPerComponent == 24)) { return FALSE; } if (iCompression == BI_RLE8 && pImg->uiBitsPerComponent == 4) { return FALSE; } if (iCompression == BI_RLE4 && pImg->uiBitsPerComponent == 8) { return FALSE; } switch (iCompression) { case BI_RGB: pImg->eCompression = compression_none; break; case BI_RLE4: pImg->eCompression = compression_rle4; break; case BI_RLE8: pImg->eCompression = compression_rle8; break; default: DBG_DEC(iCompression); return FALSE; } pImg->bColorImage = bFillPaletteDIB(pFile, pImg, tHeaderSize > 12); if (pImg->uiBitsPerComponent <= 8) { pImg->iComponents = 1; } else { pImg->iComponents = (int)(pImg->uiBitsPerComponent / 8); } return TRUE; } /* end of bExamineDIB */ /* * iNextMarker - read the next JPEG marker */ static int iNextMarker(FILE *pFile) { int iMarker; do { do { iMarker = iNextByte(pFile); } while (iMarker != 0xff && iMarker != EOF); if (iMarker == EOF) { return EOF; } do { iMarker = iNextByte(pFile); } while (iMarker == 0xff); } while (iMarker == 0x00); /* repeat if ff/00 */ return iMarker; } /* end of iNextMarker */ /* * bExamineJPEG - Examine a JPEG header * * return TRUE if successful, otherwise FALSE */ static BOOL bExamineJPEG(FILE *pFile, imagedata_type *pImg) { size_t tLength; int iMarker, iIndex; char appstring[10]; BOOL bSOFDone; tLength = 0; bSOFDone = FALSE; /* process JPEG markers */ while (!bSOFDone && (iMarker = iNextMarker(pFile)) != (int)M_EOI) { switch (iMarker) { case EOF: DBG_MSG("Error: unexpected end of JPEG file"); return FALSE; /* The following are not officially supported in PostScript level 2 */ 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: DBG_HEX(iMarker); return FALSE; case M_SOF0: case M_SOF1: tLength = (size_t)usNextWordBE(pFile); pImg->uiBitsPerComponent = (UINT)iNextByte(pFile); pImg->iHeight = (int)usNextWordBE(pFile); pImg->iWidth = (int)usNextWordBE(pFile); pImg->iComponents = iNextByte(pFile); bSOFDone = TRUE; break; case M_APP14: /* * Check for Adobe application marker. It is known (per Adobe's * TN5116) to contain the string "Adobe" at the start of the * APP14 marker. */ tLength = (size_t)usNextWordBE(pFile); if (tLength < 12) { (void)tSkipBytes(pFile, tLength - 2); } else { for (iIndex = 0; iIndex < 5; iIndex++) { appstring[iIndex] = (char)iNextByte(pFile); } appstring[5] = '\0'; if (STREQ(appstring, "Adobe")) { pImg->bAdobe = TRUE; } (void)tSkipBytes(pFile, tLength - 7); } break; case M_SOI: /* ignore markers without parameters */ case M_EOI: case M_TEM: case M_RST0: case M_RST1: case M_RST2: case M_RST3: case M_RST4: case M_RST5: case M_RST6: case M_RST7: break; default: /* skip variable length markers */ tLength = (size_t)usNextWordBE(pFile); (void)tSkipBytes(pFile, tLength - 2); break; } } DBG_DEC(pImg->iWidth); DBG_DEC(pImg->iHeight); DBG_DEC(pImg->uiBitsPerComponent); DBG_DEC(pImg->iComponents); /* Do some sanity checks with the parameters */ if (pImg->iHeight <= 0 || pImg->iWidth <= 0 || pImg->iComponents <= 0) { DBG_DEC(pImg->iHeight); DBG_DEC(pImg->iWidth); DBG_DEC(pImg->iComponents); return FALSE; } /* Some broken JPEG files have this but they print anyway... */ if (pImg->iComponents * 3 + 8 != (int)tLength) { DBG_MSG("Warning: SOF marker has incorrect length - ignored"); } if (pImg->uiBitsPerComponent != 8) { DBG_DEC(pImg->uiBitsPerComponent); DBG_MSG("Not supported in PostScript level 2"); return FALSE; } if (pImg->iComponents != 1 && pImg->iComponents != 3 && pImg->iComponents != 4) { DBG_DEC(pImg->iComponents); return FALSE; } pImg->bColorImage = pImg->iComponents >= 3; pImg->iColorsUsed = 0; pImg->eCompression = compression_jpeg; return TRUE; } /* end of bExamineJPEG */ /* * bFillPalettePNG - fill the palette part of the imagesdata * * returns TRUE if sucessful, otherwise FALSE; */ static BOOL bFillPalettePNG(FILE *pFile, imagedata_type *pImg, size_t tLength) { int iIndex, iEntries; fail(pFile == NULL); fail(pImg == NULL); if (pImg->uiBitsPerComponent > 8) { /* No palette, image uses more than 256 colors */ return TRUE; } if (!pImg->bColorImage) { /* Only color images can have a palette */ return FALSE; } if (tLength % 3 != 0) { /* Each palette entry takes three bytes */ DBG_DEC(tLength); return FALSE; } iEntries = (int)(tLength / 3); DBG_DEC(iEntries); pImg->iColorsUsed = 1 << pImg->uiBitsPerComponent; DBG_DEC(pImg->iColorsUsed); if (iEntries > 256) { DBG_DEC(iEntries); return FALSE; } for (iIndex = 0; iIndex < iEntries; iIndex++) { pImg->aucPalette[iIndex][0] = (UCHAR)iNextByte(pFile); pImg->aucPalette[iIndex][1] = (UCHAR)iNextByte(pFile); pImg->aucPalette[iIndex][2] = (UCHAR)iNextByte(pFile); NO_DBG_PRINT_BLOCK(pImg->aucPalette[iIndex], 3); } for (;iIndex < pImg->iColorsUsed; iIndex++) { pImg->aucPalette[iIndex][0] = 0; pImg->aucPalette[iIndex][1] = 0; pImg->aucPalette[iIndex][2] = 0; } return TRUE; } /* end of bFillPalettePNG */ /* * bExaminePNG - Examine a PNG header * * return TRUE if successful, otherwise FALSE */ static BOOL bExaminePNG(FILE *pFile, imagedata_type *pImg) { size_t tLength; ULONG ulLong1, ulLong2, ulName; int iIndex, iTmp; int iCompressionMethod, iFilterMethod, iInterlaceMethod; int iColor, iIncrement; BOOL bHasPalette, bHasAlpha; UCHAR aucBuf[4]; /* Check signature */ ulLong1 = ulNextLongBE(pFile); ulLong2 = ulNextLongBE(pFile); if (ulLong1 != 0x89504e47UL || ulLong2 != 0x0d0a1a0aUL) { DBG_HEX(ulLong1); DBG_HEX(ulLong2); return FALSE; } ulName = 0x00; bHasPalette = FALSE; /* Examine chunks */ while (ulName != PNG_CN_IEND) { tLength = (size_t)ulNextLongBE(pFile); ulName = 0x00; for (iIndex = 0; iIndex < (int)elementsof(aucBuf); iIndex++) { aucBuf[iIndex] = (UCHAR)iNextByte(pFile); if (!isalpha(aucBuf[iIndex])) { DBG_HEX(aucBuf[iIndex]); return FALSE; } ulName <<= 8; ulName |= aucBuf[iIndex]; } switch (ulName) { case PNG_CN_IHDR: /* Header chunck */ if (tLength < 13) { DBG_DEC(tLength); return FALSE; } pImg->iWidth = (int)ulNextLongBE(pFile); pImg->iHeight = (int)ulNextLongBE(pFile); pImg->uiBitsPerComponent = (UINT)iNextByte(pFile); iTmp = iNextByte(pFile); NO_DBG_HEX(iTmp); pImg->bColorImage = (iTmp & PNG_CB_COLOR) != 0; bHasPalette = (iTmp & PNG_CB_PALETTE) != 0; bHasAlpha = (iTmp & PNG_CB_ALPHA) != 0; if (bHasPalette && pImg->uiBitsPerComponent > 8) { /* This should not happen */ return FALSE; } pImg->iComponents = (bHasPalette || !pImg->bColorImage) ? 1 : 3; if (bHasAlpha) { pImg->iComponents++; } iCompressionMethod = iNextByte(pFile); if (iCompressionMethod != 0) { DBG_DEC(iCompressionMethod); return FALSE; } iFilterMethod = iNextByte(pFile); if (iFilterMethod != 0) { DBG_DEC(iFilterMethod); return FALSE; } iInterlaceMethod = iNextByte(pFile); if (iInterlaceMethod != 0) { DBG_DEC(iInterlaceMethod); return FALSE; } pImg->iColorsUsed = 0; (void)tSkipBytes(pFile, tLength - 13 + 4); break; case PNG_CN_PLTE: if (!bHasPalette) { return FALSE; } if (!bFillPalettePNG(pFile, pImg, tLength)) { return FALSE; } (void)tSkipBytes(pFile, 4); break; default: (void)tSkipBytes(pFile, tLength + 4); break; } } DBG_DEC(pImg->iWidth); DBG_DEC(pImg->iHeight); DBG_DEC(pImg->uiBitsPerComponent); DBG_DEC(pImg->iColorsUsed); DBG_DEC(pImg->iComponents); /* Do some sanity checks with the parameters */ if (pImg->iWidth <= 0 || pImg->iHeight <= 0) { return FALSE; } if (pImg->uiBitsPerComponent != 1 && pImg->uiBitsPerComponent != 2 && pImg->uiBitsPerComponent != 4 && pImg->uiBitsPerComponent != 8 && pImg->uiBitsPerComponent != 16) { DBG_DEC(pImg->uiBitsPerComponent); return FALSE; } if (pImg->iComponents != 1 && pImg->iComponents != 3) { /* Not supported */ DBG_DEC(pImg->iComponents); return FALSE; } if (pImg->uiBitsPerComponent > 8) { /* Not supported */ DBG_DEC(pImg->uiBitsPerComponent); return FALSE; } if (pImg->iColorsUsed == 0 && pImg->iComponents == 1 && pImg->uiBitsPerComponent <= 4) { /* * No palette is supplied, but PostScript needs one in these * cases, so we add a default palette here */ pImg->iColorsUsed = 1 << pImg->uiBitsPerComponent; iIncrement = 0xff / (pImg->iColorsUsed - 1); for (iIndex = 0, iColor = 0x00; iIndex < pImg->iColorsUsed; iIndex++, iColor += iIncrement) { pImg->aucPalette[iIndex][0] = (UCHAR)iColor; pImg->aucPalette[iIndex][1] = (UCHAR)iColor; pImg->aucPalette[iIndex][2] = (UCHAR)iColor; } /* Just to be sure */ pImg->bColorImage = FALSE; } pImg->eCompression = compression_zlib; return TRUE; } /* end of bExaminePNG */ /* * bExamineWMF - Examine a WMF header * * return TRUE if successful, otherwise FALSE */ static BOOL bExamineWMF(FILE *pFile, imagedata_type *pImg) { ULONG ulFileSize, ulMaxRecord, ulMagic; USHORT usType, usHeaderSize, usVersion, usNoObjects; usType = usNextWord(pFile); usHeaderSize = usNextWord(pFile); ulMagic = ((ULONG)usHeaderSize << 16) | (ULONG)usType; usVersion = usNextWord(pFile); ulFileSize = ulNextLong(pFile); usNoObjects = usNextWord(pFile); ulMaxRecord = ulNextLong(pFile); DBG_HEX(ulMagic); DBG_DEC(usType); DBG_DEC(usHeaderSize); DBG_HEX(usVersion); DBG_DEC(ulFileSize); DBG_DEC(usNoObjects); DBG_DEC(ulMaxRecord); return FALSE; } /* end of bExamineWMF */ #if !defined(__riscos) /* * vImage2Papersize - make sure the image fits on the paper * * This function should not be needed if Word would do a proper job */ static void vImage2Papersize(imagedata_type *pImg) { static int iNetPageHeight = -1; static int iNetPageWidth = -1; options_type tOptions; double dVerFactor, dHorFactor, dFactor; DBG_MSG("vImage2Papersize"); fail(pImg == NULL); if (iNetPageHeight < 0 || iNetPageWidth < 0) { /* Get the page dimensions from the options */ vGetOptions(&tOptions); /* Add 999 to err on the save side */ iNetPageHeight = tOptions.iPageHeight - (lDrawUnits2MilliPoints( PS_TOP_MARGIN + PS_BOTTOM_MARGIN) + 999) / 1000; iNetPageWidth = tOptions.iPageWidth - (lDrawUnits2MilliPoints( PS_LEFT_MARGIN + PS_RIGHT_MARGIN) + 999) / 1000; DBG_DEC(iNetPageHeight); DBG_DEC(iNetPageWidth); } if (pImg->iVerSizeScaled < iNetPageHeight && pImg->iHorSizeScaled < iNetPageWidth) { /* The image fits on the paper */ return; } dVerFactor = (double)iNetPageHeight / (double)pImg->iVerSizeScaled; dHorFactor = (double)iNetPageWidth / (double)pImg->iHorSizeScaled; dFactor = min(dVerFactor, dHorFactor); DBG_FLT(dFactor); /* Round down, just to be on the save side */ pImg->iVerSizeScaled = (int)(pImg->iVerSizeScaled * dFactor); pImg->iHorSizeScaled = (int)(pImg->iHorSizeScaled * dFactor); } /* end of vImage2Papersize */ #endif /* !__riscos */ /* * tFind6Image - skip until the image is found * * Find the image in Word 6/7 files * * returns the new position when a image is found, otherwise -1 */ static size_t tFind6Image(FILE *pFile, size_t tPosition, size_t tLength, imagetype_enum *peImageType) { ULONG ulMarker; size_t tRecordLength, tToSkip; USHORT usMarker; fail(pFile == NULL); fail(peImageType == NULL); *peImageType = imagetype_is_unknown; if (tPosition + 18 >= tLength) { return (size_t)-1; } ulMarker = ulNextLong(pFile); if (ulMarker != 0x00090001) { DBG_HEX(ulMarker); return (size_t)-1; } usMarker = usNextWord(pFile); if (usMarker != 0x0300) { DBG_HEX(usMarker); return (size_t)-1; } (void)tSkipBytes(pFile, 10); usMarker = usNextWord(pFile); if (usMarker != 0x0000) { DBG_HEX(usMarker); return (size_t)-1; } tPosition += 18; while (tPosition + 6 <= tLength) { tRecordLength = (size_t)ulNextLong(pFile); usMarker = usNextWord(pFile); tPosition += 6; NO_DBG_DEC(tRecordLength); NO_DBG_HEX(usMarker); switch (usMarker) { case 0x0000: DBG_HEX(ulGetDataOffset(pFile)); return (size_t)-1; case 0x0b41: DBG_MSG("DIB"); *peImageType = imagetype_is_dib; tPosition += tSkipBytes(pFile, 20); return tPosition; case 0x0f43: DBG_MSG("DIB"); *peImageType = imagetype_is_dib; tPosition += tSkipBytes(pFile, 22); return tPosition; default: if (tRecordLength < 3) { break; } if (tRecordLength > SIZE_T_MAX / 2) { /* * No need to compute the number of bytes * to skip */ DBG_DEC(tRecordLength); DBG_HEX(tRecordLength); DBG_FIXME(); return (size_t)-1; } tToSkip = tRecordLength * 2 - 6; if (tToSkip > tLength - tPosition) { /* You can't skip this number of bytes */ DBG_DEC(tToSkip); DBG_DEC(tLength - tPosition); return (size_t)-1; } tPosition += tSkipBytes(pFile, tToSkip); break; } } return (size_t)-1; } /* end of tFind6Image */ /* * tFind8Image - skip until the image is found * * Find the image in Word 8/9/10 files * * returns the new position when a image is found, otherwise -1 */ static size_t tFind8Image(FILE *pFile, size_t tPosition, size_t tLength, imagetype_enum *peImageType) { size_t tRecordLength, tNameLen; USHORT usRecordVersion, usRecordType, usRecordInstance; USHORT usTmp; fail(pFile == NULL); fail(peImageType == NULL); *peImageType = imagetype_is_unknown; while (tPosition + 8 <= tLength) { usTmp = usNextWord(pFile); usRecordVersion = usTmp & 0x000f; usRecordInstance = usTmp >> 4; usRecordType = usNextWord(pFile); tRecordLength = (size_t)ulNextLong(pFile); tPosition += 8; NO_DBG_HEX(usRecordVersion); NO_DBG_HEX(usRecordInstance); NO_DBG_HEX(usRecordType); NO_DBG_DEC(tRecordLength); switch (usRecordType) { case 0xf000: case 0xf001: case 0xf002: case 0xf003: case 0xf004: case 0xf005: break; case 0xf007: tPosition += tSkipBytes(pFile, 33); tNameLen = (size_t)iNextByte(pFile); tPosition++; DBG_DEC_C(tNameLen != 0, tNameLen); tPosition += tSkipBytes(pFile, 2 + tNameLen * 2); break; case 0xf008: tPosition += tSkipBytes(pFile, 8); break; case 0xf009: tPosition += tSkipBytes(pFile, 16); break; case 0xf006: case 0xf00a: case 0xf00b: case 0xf00d: case 0xf00e: case 0xf00f: case 0xf010: case 0xf011: case 0xf122: tPosition += tSkipBytes(pFile, tRecordLength); break; case 0xf01a: DBG_MSG("EMF"); *peImageType = imagetype_is_emf; tPosition += tSkipBytes(pFile, 50); if ((usRecordInstance ^ MSOBI_EMF) == 1) { tPosition += tSkipBytes(pFile, 16); } return tPosition; case 0xf01b: DBG_MSG("WMF"); *peImageType = imagetype_is_wmf; tPosition += tSkipBytes(pFile, 50); if ((usRecordInstance ^ MSOBI_WMF) == 1) { tPosition += tSkipBytes(pFile, 16); } return tPosition; case 0xf01c: DBG_MSG("PICT"); *peImageType = imagetype_is_pict; tPosition += tSkipBytes(pFile, 50); if ((usRecordInstance ^ MSOBI_PICT) == 1) { tPosition += tSkipBytes(pFile, 16); } return tPosition; case 0xf01d: DBG_MSG("JPEG"); *peImageType = imagetype_is_jpeg; tPosition += tSkipBytes(pFile, 17); if ((usRecordInstance ^ MSOBI_JPEG) == 1) { tPosition += tSkipBytes(pFile, 16); } return tPosition; case 0xf01e: DBG_MSG("PNG"); *peImageType = imagetype_is_png; tPosition += tSkipBytes(pFile, 17); if ((usRecordInstance ^ MSOBI_PNG) == 1) { tPosition += tSkipBytes(pFile, 16); } return tPosition; case 0xf01f: DBG_MSG("DIB"); /* DIB is a BMP minus its 14 byte header */ *peImageType = imagetype_is_dib; tPosition += tSkipBytes(pFile, 17); if ((usRecordInstance ^ MSOBI_DIB) == 1) { tPosition += tSkipBytes(pFile, 16); } return tPosition; case 0xf00c: default: DBG_HEX(usRecordType); DBG_DEC_C(tRecordLength % 4 != 0, tRecordLength); DBG_FIXME(); return (size_t)-1; } } return (size_t)-1; } /* end of tFind8Image */ /* * eExamineImage - Examine the image * * Returns an indication of the amount of information found */ image_info_enum eExamineImage(FILE *pFile, ULONG ulFileOffsetImage, imagedata_type *pImg) { long lTmp; size_t tWordHeaderLen, tLength, tPos; int iType, iHorSize, iVerSize; USHORT usHorScalingFactor, usVerScalingFactor; if (ulFileOffsetImage == FC_INVALID) { return image_no_information; } DBG_HEX(ulFileOffsetImage); if (!bSetDataOffset(pFile, ulFileOffsetImage)) { return image_no_information; } tLength = (size_t)ulNextLong(pFile); DBG_DEC(tLength); if (tLength < 46) { /* Smaller than the smallest known header */ DBG_FIXME(); return image_no_information; } tWordHeaderLen = (size_t)usNextWord(pFile); DBG_DEC(tWordHeaderLen); fail(tWordHeaderLen != 46 && tWordHeaderLen != 58 && tWordHeaderLen != 68); if (tLength < tWordHeaderLen) { /* Smaller than the current header */ return image_no_information; } iType = (int)usNextWord(pFile); DBG_DEC(iType); (void)tSkipBytes(pFile, 28 - 8); lTmp = lTwips2MilliPoints(usNextWord(pFile)); iHorSize = (int)(lTmp / 1000); if (lTmp % 1000 != 0) { iHorSize++; } DBG_DEC(iHorSize); lTmp = lTwips2MilliPoints(usNextWord(pFile)); iVerSize = (int)(lTmp / 1000); if (lTmp % 1000 != 0) { iVerSize++; } DBG_DEC(iVerSize); usHorScalingFactor = usNextWord(pFile); DBG_DEC(usHorScalingFactor); usVerScalingFactor = usNextWord(pFile); DBG_DEC(usVerScalingFactor); /* Sanity checks */ lTmp = (long)iHorSize * (long)usHorScalingFactor; if (lTmp < 2835) { /* This image would be less than 1 millimeter wide */ DBG_DEC(lTmp); return image_no_information; } lTmp = (long)iVerSize * (long)usVerScalingFactor; if (lTmp < 2835) { /* This image would be less than 1 millimeter high */ DBG_DEC(lTmp); return image_no_information; } /* Skip the rest of the header */ (void)tSkipBytes(pFile, tWordHeaderLen - 36); tPos = tWordHeaderLen; (void)memset(pImg, 0, sizeof(*pImg)); switch (iType) { case 7: case 8: tPos = tFind6Image(pFile, tPos, tLength, &pImg->eImageType); if (tPos == (size_t)-1) { /* No image found */ return image_no_information; } DBG_HEX(tPos); break; case 94: /* Word 6/7, no image just a pathname */ pImg->eImageType = imagetype_is_external; DBG_HEX(ulFileOffsetImage + tPos); break; case 100: tPos = tFind8Image(pFile, tPos, tLength, &pImg->eImageType); if (tPos == (size_t)-1) { /* No image found */ return image_no_information; } DBG_HEX(tPos); break; case 102: /* Word 8/9/10, no image just a pathname or URL */ pImg->eImageType = imagetype_is_external; DBG_HEX(ulFileOffsetImage + tPos); break; default: DBG_DEC(iType); DBG_HEX(ulFileOffsetImage + tPos); DBG_FIXME(); return image_no_information; } /* Minimal information is now available */ pImg->tLength = tLength; pImg->tPosition = tPos; pImg->iHorSizeScaled = (int)(((long)iHorSize * (long)usHorScalingFactor + 500) / 1000); pImg->iVerSizeScaled = (int)(((long)iVerSize * (long)usVerScalingFactor + 500) / 1000); #if !defined(__riscos) vImage2Papersize(pImg); #endif /* !__riscos */ /* Image type specific examinations */ switch (pImg->eImageType) { case imagetype_is_dib: if (bExamineDIB(pFile, pImg)) { return image_full_information; } return image_minimal_information; case imagetype_is_jpeg: if (bExamineJPEG(pFile, pImg)) { return image_full_information; } return image_minimal_information; case imagetype_is_png: if (bExaminePNG(pFile, pImg)) { return image_full_information; } return image_minimal_information; case imagetype_is_wmf: if (bExamineWMF(pFile, pImg)) { return image_full_information; } return image_minimal_information; case imagetype_is_emf: case imagetype_is_pict: case imagetype_is_external: return image_minimal_information; case imagetype_is_unknown: default: return image_no_information; } } /* end of eExamineImage */