rle_cp.c File Reference

#include "rle.h"
#include "rle_code.h"
#include "rle_put.h"

Include dependency graph for rle_cp.c:

Go to the source code of this file.

Macros
#define	VAXSHORT(var, fp)   { var = fgetc(fp)&0xFF; var |= (fgetc(fp)) << 8; }
#define	OPCODE(inst)   (inst[0] & ~LONG)
#define	LONGP(inst)   (inst[0] & LONG)
#define	DATUM(inst)   (inst[1] & 0xff) /* Make sure it's unsigned. */
#define	put16(a)    (putc((a)&0xff,outfile),putc(((a)>>8)&0xff,outfile))

Functions
void	rle_cp (rle_hdr *in_hdr, rle_hdr *the_hdr)

Macro Definition Documentation

#define DATUM

(

inst

)

(inst[1] & 0xff) /* Make sure it's unsigned. */

Definition at line 40 of file rle_cp.c.

#define LONGP

(

inst

)

(inst[0] & LONG)

Definition at line 39 of file rle_cp.c.

#define OPCODE

(

inst

)

(inst[0] & ~LONG)

Definition at line 38 of file rle_cp.c.

#define put16

(

a

)

(putc((a)&0xff,outfile),putc(((a)>>8)&0xff,outfile))

Definition at line 43 of file rle_cp.c.

#define VAXSHORT	(		var,
			fp
	)		{ var = fgetc(fp)&0xFF; var |= (fgetc(fp)) << 8; }

Definition at line 33 of file rle_cp.c.

Function Documentation

void rle_cp	(	rle_hdr *	in_hdr,
		rle_hdr *	the_hdr
	)

Definition at line 69 of file rle_cp.c.

{
    register FILE *infile = in_hdr->rle_file;
    register FILE *outfile = the_hdr->rle_file;
    char inst[2];
    short nc, buflen;
    char *buffer;

    /* Add in vertical skip from last scanline */
    if ( in_hdr->priv.get.vert_skip > 0 )
    {
    in_hdr->priv.get.scan_y += in_hdr->priv.get.vert_skip;
    if ( in_hdr->priv.get.vert_skip > 1 )
        rle_skiprow( the_hdr, in_hdr->priv.get.vert_skip - 1 );
    }

    if ( in_hdr->priv.get.is_eof )
    {
    rle_puteof( the_hdr );
    return;
    }

    if ( the_hdr->priv.put.nblank > 0 )
    {
    SkipBlankLines( the_hdr->priv.put.nblank );
    the_hdr->priv.put.nblank = 0;
    }

    /* Allocate memory for reading byte data. */
    buflen = in_hdr->xmax - in_hdr->xmin + 2;
    buffer = (char *)malloc( buflen );

    /* Otherwise, read and write instructions until an EOF
     * instruction is encountered.
     */
    for (;;)
    {
        inst[0] = getc( infile );
    inst[1] = getc( infile );

    /* Don't 'put' the instruction until we know what it is. */
    if ( feof(infile) )
    {
        in_hdr->priv.get.is_eof = 1;
        rle_puteof( the_hdr );
        break;      /* <--- one of the exits */
    }

    switch( OPCODE(inst) )
    {
    case RSkipLinesOp:
        putc( inst[0], outfile );
        putc( inst[1], outfile );
        if ( LONGP(inst) )
        {
        putc( getc( infile ), outfile );
        putc( getc( infile ), outfile );
        }
        break;          /* need to break for() here, too */

    case RSetColorOp:
        putc( inst[0], outfile );
        putc( inst[1], outfile );
        break;

    case RSkipPixelsOp:
        putc( inst[0], outfile );
        putc( inst[1], outfile );
        if ( LONGP(inst) )
        {
        putc( getc( infile ), outfile );
        putc( getc( infile ), outfile );
        }
        break;

    case RByteDataOp:
        putc( inst[0], outfile );
        putc( inst[1], outfile );
        if ( LONGP(inst) )
        {
            VAXSHORT( nc, infile );
        put16( nc );
        }
        else
        nc = DATUM(inst);
        nc++;
        nc = 2 * ((nc + 1) / 2);
        /* Total paranoia.  nc should never be > buflen. */
        while ( nc > buflen )
        {
        fread( buffer, nc, 1, infile );
        fwrite( buffer, nc, 1, outfile );
        nc -= buflen;
        }

        fread( buffer, nc, 1, infile );
        fwrite( buffer, nc, 1, outfile );
        break;

    case RRunDataOp:
        putc( inst[0], outfile );
        putc( inst[1], outfile );
        if ( LONGP(inst) )
        {
        putc( getc( infile ), outfile );
        putc( getc( infile ), outfile );
        }

        putc( getc( infile ), outfile );
        putc( getc( infile ), outfile );
        break;

    case REOFOp:
        in_hdr->priv.get.is_eof = 1;
        rle_puteof( the_hdr );
        break;

    default:
        fprintf( stderr,
             "%s: rle_cp: Unrecognized opcode: %d, reading %s\n",
             the_hdr->cmd, OPCODE(inst), the_hdr->file_name );
        fflush( the_hdr->rle_file );
        exit(1);
    }
    if ( OPCODE(inst) == REOFOp )
        break;          /* <--- the other loop exit */
    }

    /* Just in case the caller does something silly like calling rle_getrow. */
    in_hdr->priv.get.scan_y = in_hdr->ymax;
    in_hdr->priv.get.vert_skip = 0;

    return;
}