Category : Windows 3.X Files
Archive : PMAN151.ZIP
Filename : READPCX.C
Output of file : READPCX.C contained in archive : PMAN151.ZIP
* *
* readpcx.c *
* *
* This file is part of PICTURE MAN image file converter/processor *
* *
* 1992 Potapov WORKS, STOIK Ltd. *
* *
* This file contains source code for PCX file reader *
* *
* Compiler: MS C v.6.00A *
* *
* You may use, modify and distribute this text freely *
* *
\************************************************************************/
#include
#include "custconv.h"
#define BUFSIZE 4096
#define SEEK_SET 0
#define SEEK_END 2
typedef struct {
int file, bplin, pos, buflen, count;
BYTE byte, buffer[BUFSIZE];
int iCur;
}PCXStruct;
/************************************************************************\
* *
* ROUTINE: int FAR PASCAL LibMain(HANDLE hModule, WORD wDataSeg, *
* WORD cbHeapSize, LPSTR lpszCmdLine) *
* PURPOSE: DLL entry point. *
* *
\************************************************************************/
int FAR PASCAL LibMain(HANDLE hModule, WORD wDataSeg,
WORD cbHeapSize, LPSTR lpszCmdLine)
{
return 1;
}
/************************************************************************\
* *
* ROUTINE: int FAR PASCAL WEP(int bSystemExit) *
* *
* PURPOSE: DLL exit procedure *
* *
\************************************************************************/
int FAR PASCAL WEP(int bSystemExit)
{
return 1;
}
/************************************************************************\
* *
* ROUTINE: WORD FAR PASCAL Magic(void) *
* *
* PURPOSE: Identification routine *
* RETURNS: 'Magic number' SRC_MAGIC *
* *
\************************************************************************/
WORD FAR PASCAL Magic(void)
{
return SRC_MAGIC;
}
/************************************************************************\
* *
* ROUTINE: DWORD FAR PASCAL GetFlags(void) *
* *
* PURPOSE: Sets flag for SetOptions Dialog box *
* *
* PARAMETERS: None *
* *
* RETURNS: *
* INFO_HASOPTIONS if converter supports SetOptions dialog box *
* 0ul otherwise *
* *
\************************************************************************/
DWORD FAR PASCAL GetFlags(void)
{
return 0ul;
}
/************************************************************************\
* *
* ROUTINE: void FAR PASCAL GetDescription(LPSTR str) *
* *
* PURPOSE: Sets format name *
* *
* PARAMETERS: LPSTR str - pointer for format name storage. The length *
* name must be less than 40! *
* *
\************************************************************************/
void FAR PASCAL GetDescription(LPSTR str)
{
lstrcpy(str,"ZSoft PaintBrush PCX");
}
/************************************************************************\
* *
* ROUTINE: void FAR PASCAL GetExtension(LPSTR str) *
* *
* PURPOSE: Sets format file extension *
* *
* PARAMETERS: LPSTR str - pointer for format file extension. *
* *
\************************************************************************/
void FAR PASCAL GetExtension(LPSTR str)
{
lstrcpy(str,"PCX");
}
/************************************************************************\
* *
* ROUTINE: int FAR PASCAL GetPrivateSize() *
* *
* PURPOSE: Returns size of private memory block *
* *
* *
\************************************************************************/
int FAR PASCAL GetPrivateSize()
{
return sizeof(PCXStruct);
}
/************************************************************************/
/************************************************************************/
/************************************************************************/
/* PCX File Header */
typedef struct {
char manuf; /* Always =10 for Paintbrush */
char hard; /* Version information */
char encod; /* Run-length encoding (=1) */
char bitpx; /* Bits per pixel */
unsigned x1; /* Picture dimensions (incl) */
unsigned y1;
unsigned x2;
unsigned y2;
unsigned hres; /* Display horiz resolution */
unsigned vres; /* Display vert resolution */
char clrma[48]; /* Pallete */
char vmode; /* (ignored) */
char nplanes; /* Number of planes (ver 2.5=0)*/
unsigned bplin; /* Bytes per line */
unsigned palinfo; /* Palette Info (1=col, 2=gray)*/
unsigned shres; /* Scanner resolution */
unsigned svres; /* */
char xtra[54]; /* Extra space (filler) */
} pcxheader;
/************************************************************************\
* *
* ROUTINE: int FAR PASCAL ReadHeader(LPINFO p, void FAR * lpPrivate) *
* *
* PURPOSE: Reads image header. Fills INFO structure. *
* *
* PARAMETERS: LPINFO p - pointer to INFO structure *
* void far * lpPrivate - pointer to *
* custom structure to store private data *
* RETURNS: *
* OK - Success *
* BADFORMAT - Bad signature *
* UNSUPPORTED- Unsupported subformat *
* BADFILE - Error in file structure *
* CANNOTOPEN - Cannot open src/dest *
* INTERNAL - Reserved *
* BADDLL - Error initializing DLL *
* BADREQUEST - Unsupported type of conversion *
* BADTEMPFILE- Error creating/reading tempfile *
* NOMEMORY - No enough global heap *
* NODISK - No enough disk space *
* USERABORT - Cancelled by user *
* BADPARMS - Conflicting parameters *
* *
\************************************************************************/
int FAR PASCAL ReadHeader(LPINFO p, void far * lpPrivate)
{
pcxheader hdr;
int i,j;
char c;
HANDLE hTmp;
PCXStruct far *lpPCXStruct = lpPrivate;
if( _llseek(p->file,0l,SEEK_SET) == -1 ) return BADFILE;
if( _lread(p->file,(LPSTR)&hdr,sizeof(hdr)) != sizeof(hdr))
return BADFILE;
if( hdr.manuf != 10 || hdr.encod != 1 ) return BADFORMAT;
if( (hdr.bitpx != 1 || (hdr.nplanes != 1 && hdr.nplanes != 4)) &&
(hdr.bitpx != 8 || (hdr.nplanes != 1 && hdr.nplanes != 3)))
return UNSUPPORTED;
p->w = hdr.x2-hdr.x1+1;
p->h = hdr.y2-hdr.y1+1;
p->nplanes = hdr.nplanes;
p->bplin = hdr.bplin;
p->xres = (DWORD)hdr.hres;
p->yres = (DWORD)hdr.vres;
p->resunit = RES_SCREEN;
p->flags = INFO_COMPRESSED | INFO_FORWARD;
if( hdr.bitpx < 8 ) p->flags |= INFO_PACKED;
if( hdr.nplanes > 1 ) p->flags |= INFO_SEPARATE;
p->bps = hdr.bitpx * hdr.nplanes;
p->numcolors= ( p->bps == 24 ) ? 0u : (1u << p->bps);
if(p->bps == 8)
{
if(_llseek(p->file,-0x301l,SEEK_END) == -1
|| _lread(p->file,&c,1) != 1 ) return BADFILE;
if(c == 0x0C )
{
for(i=0;i<256;i++)
for(j = 0; j < 3; j++)
if(_lread(p->file,&(p->pal[j][i]),1) != 1 )
return BADFILE;
if(_llseek(p->file,sizeof(pcxheader),SEEK_SET) == -1)
return BADFILE;
p->flags |= INFO_COLOR | INFO_PALETTE;
}
}
else if(p->bps == 4)
{
for( i = 0; i < 16; i++)
for(j = 0; j < 3; j++)
p->pal[j][i] = hdr.clrma[i*3+j];
p->flags |= INFO_COLOR | INFO_PALETTE;
}
else if(p->bps == 24) p->flags |= INFO_COLOR;
lpPCXStruct->file = p->file;
lpPCXStruct->bplin = hdr.nplanes * hdr.bplin;
lpPCXStruct->count = 0;
lpPCXStruct->pos = 0;
lpPCXStruct->buflen= 0;
return OK;
}
/************************************************************************/
/************************************************************************/
/************************************************************************/
/* useful subfunction */
static int getbuf(void far *lpPrivate)
{
PCXStruct far *lpPCXStruct = lpPrivate;
lpPCXStruct->pos = 1;
if( (lpPCXStruct->buflen = _lread(lpPCXStruct->file,lpPCXStruct->buffer,BUFSIZE)) <= 0 ) return -1;
return (int)lpPCXStruct->buffer[0];
}
/* useful subfunction */
static int getbyte(void far *lpPrivate)
{
PCXStruct far *lpPCXStruct = lpPrivate;
return (lpPCXStruct->pos
(int)lpPCXStruct->buffer[lpPCXStruct->pos++] :
getbuf(lpPrivate);
}
/************************************************************************\
* *
* ROUTINE: int FAR PASCAL ReadRow(int row, LPBYTE p, *
* void far * lpPrivate) *
* *
* PURPOSE: Reads image row. *
* *
* PARAMETERS: int row - the number of row to read *
* LPBYTE p - pointer to buffer to store image row *
* void far * lpPrivate - pointer to *
* custom structure to store private data *
* *
* RETURNS: *
* OK - Success *
* BADFORMAT - Bad signature *
* UNSUPPORTED- Unsupported subformat *
* BADFILE - Error in file structure *
* CANNOTOPEN - Cannot open src/dest *
* INTERNAL - Reserved *
* BADDLL - Error initializing DLL *
* BADREQUEST - Unsupported type of conversion *
* BADTEMPFILE- Error creating/reading tempfile *
* NOMEMORY - No enough global heap *
* NODISK - No enough disk space *
* USERABORT - Cancelled by user *
* BADPARMS - Conflicting parameters *
* *
\************************************************************************/
int FAR PASCAL ReadRow(int row, LPBYTE p, void far *lpPrivate)
{
int len,n;
LPBYTE buf;
PCXStruct far *lpPCXStruct = lpPrivate;
while(lpPCXStruct->iCur <= row)
{
buf = p;
len = lpPCXStruct->bplin;
while(len)
{
while(lpPCXStruct->count && len)
{
*buf++ = lpPCXStruct->byte; lpPCXStruct->count--; len--;
}
if(!len) goto Done;
if( ( n = getbyte(lpPrivate)) == -1 ) return BADFILE;
if( ( n & 0xC0) == 0xC0 )
{
lpPCXStruct->count = n & 0x3F;
if( ( n = getbyte(lpPrivate)) == -1 ) return BADFILE;
lpPCXStruct->byte = (BYTE)n;
}
else
{
*buf++ = (BYTE)n; len--;
}
}
Done:
lpPCXStruct->iCur++;
}
return OK;
}
/************************************************************************\
* *
* ROUTINE: void FAR PASCAL CleanUp(void far *lpPrivate) *
* void far * lpPrivate - pointer to *
* custom structure to store private data *
* *
* PURPOSE: Frees all auxiliary buffers. Terminates conversion. *
* *
\************************************************************************/
void FAR PASCAL CleanUp(void far *lpPrivate)
{
}
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/