ref: 9ced712a2ad70557a8ceb89ff3b969b92c85f68c
dir: /sys/src/cmd/aux/antiword/dib2eps.c/
/*
* dib2eps.c
* Copyright (C) 2000-2003 A.J. van Os; Released under GPL
*
* Description:
* Functions to translate dib pictures into eps
*
*================================================================
* This part of the software is based on:
* The Windows Bitmap Decoder Class part of paintlib
* Paintlib is copyright (c) 1996-2000 Ulrich von Zadow
*================================================================
* The credit should go to him, but all the bugs are mine.
*/
#include <stdio.h>
#include "antiword.h"
/*
* vDecode1bpp - decode an uncompressed 1 bit per pixel image
*/
static void
vDecode1bpp(FILE *pInFile, FILE *pOutFile, const imagedata_type *pImg)
{
size_t tPadding;
int iX, iY, iN, iByte, iTmp, iEighthWidth, iUse;
DBG_MSG("vDecode1bpp");
fail(pOutFile == NULL);
fail(pImg == NULL);
fail(pImg->iColorsUsed < 1 || pImg->iColorsUsed > 2);
DBG_DEC(pImg->iWidth);
DBG_DEC(pImg->iHeight);
iEighthWidth = (pImg->iWidth + 7) / 8;
tPadding = (size_t)(ROUND4(iEighthWidth) - iEighthWidth);
for (iY = 0; iY < pImg->iHeight; iY++) {
for (iX = 0; iX < iEighthWidth; iX++) {
iByte = iNextByte(pInFile);
if (iByte == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
if (iX == iEighthWidth - 1 && pImg->iWidth % 8 != 0) {
iUse = pImg->iWidth % 8;
} else {
iUse = 8;
}
for (iN = 0; iN < iUse; iN++) {
switch (iN) {
case 0: iTmp = (iByte & 0x80) / 128; break;
case 1: iTmp = (iByte & 0x40) / 64; break;
case 2: iTmp = (iByte & 0x20) / 32; break;
case 3: iTmp = (iByte & 0x10) / 16; break;
case 4: iTmp = (iByte & 0x08) / 8; break;
case 5: iTmp = (iByte & 0x04) / 4; break;
case 6: iTmp = (iByte & 0x02) / 2; break;
case 7: iTmp = (iByte & 0x01); break;
default: iTmp = 0; break;
}
vASCII85EncodeByte(pOutFile, iTmp);
}
}
(void)tSkipBytes(pInFile, tPadding);
}
vASCII85EncodeByte(pOutFile, EOF);
} /* end of vDecode1bpp */
/*
* vDecode4bpp - decode an uncompressed 4 bits per pixel image
*/
static void
vDecode4bpp(FILE *pInFile, FILE *pOutFile, const imagedata_type *pImg)
{
size_t tPadding;
int iX, iY, iN, iByte, iTmp, iHalfWidth, iUse;
DBG_MSG("vDecode4bpp");
fail(pInFile == NULL);
fail(pOutFile == NULL);
fail(pImg == NULL);
fail(pImg->iColorsUsed < 1 || pImg->iColorsUsed > 16);
DBG_DEC(pImg->iWidth);
DBG_DEC(pImg->iHeight);
iHalfWidth = (pImg->iWidth + 1) / 2;
tPadding = (size_t)(ROUND4(iHalfWidth) - iHalfWidth);
for (iY = 0; iY < pImg->iHeight; iY++) {
for (iX = 0; iX < iHalfWidth; iX++) {
iByte = iNextByte(pInFile);
if (iByte == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
if (iX == iHalfWidth - 1 && odd(pImg->iWidth)) {
iUse = 1;
} else {
iUse = 2;
}
for (iN = 0; iN < iUse; iN++) {
if (odd(iN)) {
iTmp = iByte & 0x0f;
} else {
iTmp = (iByte & 0xf0) / 16;
}
vASCII85EncodeByte(pOutFile, iTmp);
}
}
(void)tSkipBytes(pInFile, tPadding);
}
vASCII85EncodeByte(pOutFile, EOF);
} /* end of vDecode4bpp */
/*
* vDecode8bpp - decode an uncompressed 8 bits per pixel image
*/
static void
vDecode8bpp(FILE *pInFile, FILE *pOutFile, const imagedata_type *pImg)
{
size_t tPadding;
int iX, iY, iByte;
DBG_MSG("vDecode8bpp");
fail(pInFile == NULL);
fail(pOutFile == NULL);
fail(pImg == NULL);
fail(pImg->iColorsUsed < 1 || pImg->iColorsUsed > 256);
DBG_DEC(pImg->iWidth);
DBG_DEC(pImg->iHeight);
tPadding = (size_t)(ROUND4(pImg->iWidth) - pImg->iWidth);
for (iY = 0; iY < pImg->iHeight; iY++) {
for (iX = 0; iX < pImg->iWidth; iX++) {
iByte = iNextByte(pInFile);
if (iByte == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
vASCII85EncodeByte(pOutFile, iByte);
}
(void)tSkipBytes(pInFile, tPadding);
}
vASCII85EncodeByte(pOutFile, EOF);
} /* end of vDecode8bpp */
/*
* vDecode24bpp - decode an uncompressed 24 bits per pixel image
*/
static void
vDecode24bpp(FILE *pInFile, FILE *pOutFile, const imagedata_type *pImg)
{
size_t tPadding;
int iX, iY, iBlue, iGreen, iRed, iTripleWidth;
DBG_MSG("vDecode24bpp");
fail(pInFile == NULL);
fail(pOutFile == NULL);
fail(pImg == NULL);
fail(!pImg->bColorImage);
DBG_DEC(pImg->iWidth);
DBG_DEC(pImg->iHeight);
iTripleWidth = pImg->iWidth * 3;
tPadding = (size_t)(ROUND4(iTripleWidth) - iTripleWidth);
for (iY = 0; iY < pImg->iHeight; iY++) {
for (iX = 0; iX < pImg->iWidth; iX++) {
/* Change from BGR order to RGB order */
iBlue = iNextByte(pInFile);
if (iBlue == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
iGreen = iNextByte(pInFile);
if (iGreen == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
iRed = iNextByte(pInFile);
if (iRed == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
vASCII85EncodeByte(pOutFile, iRed);
vASCII85EncodeByte(pOutFile, iGreen);
vASCII85EncodeByte(pOutFile, iBlue);
}
(void)tSkipBytes(pInFile, tPadding);
}
vASCII85EncodeByte(pOutFile, EOF);
} /* end of vDecode24bpp */
/*
* vDecodeRle4 - decode a RLE compressed 4 bits per pixel image
*/
static void
vDecodeRle4(FILE *pInFile, FILE *pOutFile, const imagedata_type *pImg)
{
int iX, iY, iByte, iTmp, iRunLength, iRun;
BOOL bEOF, bEOL;
DBG_MSG("vDecodeRle4");
fail(pInFile == NULL);
fail(pOutFile == NULL);
fail(pImg == NULL);
fail(pImg->iColorsUsed < 1 || pImg->iColorsUsed > 16);
DBG_DEC(pImg->iWidth);
DBG_DEC(pImg->iHeight);
bEOF = FALSE;
for (iY = 0; iY < pImg->iHeight && !bEOF; iY++) {
bEOL = FALSE;
iX = 0;
while (!bEOL) {
iRunLength = iNextByte(pInFile);
if (iRunLength == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
if (iRunLength != 0) {
/*
* Encoded packet:
* RunLength pixels, all the "same" value
*/
iByte = iNextByte(pInFile);
if (iByte == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
for (iRun = 0; iRun < iRunLength; iRun++) {
if (odd(iRun)) {
iTmp = iByte & 0x0f;
} else {
iTmp = (iByte & 0xf0) / 16;
}
if (iX < pImg->iWidth) {
vASCII85EncodeByte(pOutFile, iTmp);
}
iX++;
}
continue;
}
/* Literal or escape */
iRunLength = iNextByte(pInFile);
if (iRunLength == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
if (iRunLength == 0) { /* End of line escape */
bEOL = TRUE;
} else if (iRunLength == 1) { /* End of file escape */
bEOF = TRUE;
bEOL = TRUE;
} else if (iRunLength == 2) { /* Delta escape */
DBG_MSG("RLE4: encountered delta escape");
bEOF = TRUE;
bEOL = TRUE;
} else { /* Literal packet */
iByte = 0;
for (iRun = 0; iRun < iRunLength; iRun++) {
if (odd(iRun)) {
iTmp = iByte & 0x0f;
} else {
iByte = iNextByte(pInFile);
if (iByte == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
iTmp = (iByte & 0xf0) / 16;
}
if (iX < pImg->iWidth) {
vASCII85EncodeByte(pOutFile, iTmp);
}
iX++;
}
/* Padding if the number of bytes is odd */
if (odd((iRunLength + 1) / 2)) {
(void)tSkipBytes(pInFile, 1);
}
}
}
DBG_DEC_C(iX != pImg->iWidth, iX);
}
vASCII85EncodeByte(pOutFile, EOF);
} /* end of vDecodeRle4 */
/*
* vDecodeRle8 - decode a RLE compressed 8 bits per pixel image
*/
static void
vDecodeRle8(FILE *pInFile, FILE *pOutFile, const imagedata_type *pImg)
{
int iX, iY, iByte, iRunLength, iRun;
BOOL bEOF, bEOL;
DBG_MSG("vDecodeRle8");
fail(pInFile == NULL);
fail(pOutFile == NULL);
fail(pImg == NULL);
fail(pImg->iColorsUsed < 1 || pImg->iColorsUsed > 256);
DBG_DEC(pImg->iWidth);
DBG_DEC(pImg->iHeight);
bEOF = FALSE;
for (iY = 0; iY < pImg->iHeight && !bEOF; iY++) {
bEOL = FALSE;
iX = 0;
while (!bEOL) {
iRunLength = iNextByte(pInFile);
if (iRunLength == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
if (iRunLength != 0) {
/*
* Encoded packet:
* RunLength pixels, all the same value
*/
iByte = iNextByte(pInFile);
if (iByte == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
for (iRun = 0; iRun < iRunLength; iRun++) {
if (iX < pImg->iWidth) {
vASCII85EncodeByte(pOutFile, iByte);
}
iX++;
}
continue;
}
/* Literal or escape */
iRunLength = iNextByte(pInFile);
if (iRunLength == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
if (iRunLength == 0) { /* End of line escape */
bEOL = TRUE;
} else if (iRunLength == 1) { /* End of file escape */
bEOF = TRUE;
bEOL = TRUE;
} else if (iRunLength == 2) { /* Delta escape */
DBG_MSG("RLE8: encountered delta escape");
bEOF = TRUE;
bEOL = TRUE;
} else { /* Literal packet */
for (iRun = 0; iRun < iRunLength; iRun++) {
iByte = iNextByte(pInFile);
if (iByte == EOF) {
vASCII85EncodeByte(pOutFile, EOF);
return;
}
if (iX < pImg->iWidth) {
vASCII85EncodeByte(pOutFile, iByte);
}
iX++;
}
/* Padding if the number of bytes is odd */
if (odd(iRunLength)) {
(void)tSkipBytes(pInFile, 1);
}
}
}
DBG_DEC_C(iX != pImg->iWidth, iX);
}
vASCII85EncodeByte(pOutFile, EOF);
} /* end of vDecodeRle8 */
/*
* vDecodeDIB - decode a dib picture
*/
static void
vDecodeDIB(FILE *pInFile, FILE *pOutFile, const imagedata_type *pImg)
{
size_t tHeaderSize;
fail(pInFile == NULL);
fail(pOutFile == NULL);
fail(pImg == NULL);
/* Skip the bitmap info header */
tHeaderSize = (size_t)ulNextLong(pInFile);
(void)tSkipBytes(pInFile, tHeaderSize - 4);
/* Skip the colortable */
if (pImg->uiBitsPerComponent <= 8) {
(void)tSkipBytes(pInFile,
(size_t)(pImg->iColorsUsed *
((tHeaderSize > 12) ? 4 : 3)));
}
switch (pImg->uiBitsPerComponent) {
case 1:
fail(pImg->eCompression != compression_none);
vDecode1bpp(pInFile, pOutFile, pImg);
break;
case 4:
fail(pImg->eCompression != compression_none &&
pImg->eCompression != compression_rle4);
if (pImg->eCompression == compression_rle4) {
vDecodeRle4(pInFile, pOutFile, pImg);
} else {
vDecode4bpp(pInFile, pOutFile, pImg);
}
break;
case 8:
fail(pImg->eCompression != compression_none &&
pImg->eCompression != compression_rle8);
if (pImg->eCompression == compression_rle8) {
vDecodeRle8(pInFile, pOutFile, pImg);
} else {
vDecode8bpp(pInFile, pOutFile, pImg);
}
break;
case 24:
fail(pImg->eCompression != compression_none);
vDecode24bpp(pInFile, pOutFile, pImg);
break;
default:
DBG_DEC(pImg->uiBitsPerComponent);
break;
}
} /* end of vDecodeDIB */
#if defined(DEBUG)
/*
* vCopy2File
*/
static void
vCopy2File(FILE *pInFile, ULONG ulFileOffset, size_t tPictureLen)
{
static int iPicCounter = 0;
FILE *pOutFile;
size_t tIndex;
int iTmp;
char szFilename[30];
if (!bSetDataOffset(pInFile, ulFileOffset)) {
return;
}
sprintf(szFilename, "/tmp/pic/pic%04d.bmp", ++iPicCounter);
pOutFile = fopen(szFilename, "wb");
if (pOutFile == NULL) {
return;
}
/* Turn a dib into a bmp by adding a fake 14 byte header */
(void)putc('B', pOutFile);
(void)putc('M', pOutFile);
for (iTmp = 0; iTmp < 12; iTmp++) {
if (putc(0, pOutFile) == EOF) {
break;
}
}
for (tIndex = 0; tIndex < tPictureLen; tIndex++) {
iTmp = iNextByte(pInFile);
if (putc(iTmp, pOutFile) == EOF) {
break;
}
}
(void)fclose(pOutFile);
} /* end of vCopy2File */
#endif /* DEBUG */
/*
* bTranslateDIB - translate a DIB picture
*
* This function translates a picture from dib to eps
*
* return TRUE when sucessful, otherwise FALSE
*/
BOOL
bTranslateDIB(diagram_type *pDiag, FILE *pInFile,
ULONG ulFileOffset, const imagedata_type *pImg)
{
#if defined(DEBUG)
fail(pImg->tPosition > pImg->tLength);
vCopy2File(pInFile, ulFileOffset, pImg->tLength - pImg->tPosition);
#endif /* DEBUG */
/* Seek to start position of DIB data */
if (!bSetDataOffset(pInFile, ulFileOffset)) {
return FALSE;
}
vImagePrologue(pDiag, pImg);
vDecodeDIB(pInFile, pDiag->pOutFile, pImg);
vImageEpilogue(pDiag);
return TRUE;
} /* end of bTranslateDIB */