rle_getraw.c File Reference

#include <stdio.h>
#include "rle.h"
#include "rle_raw.h"

Include dependency graph for rle_getraw.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. */

Functions
unsigned int	rle_getraw (rle_hdr *the_hdr, scanraw, nraw)
void	rle_freeraw (rle_hdr *the_hdr, scanraw, nraw)

Variables
static char	rcs_ident [] = "$Id: rle_getraw.c,v 3.0.1.1 1992/01/28 18:20:36 spencer Exp spencer $"

Macro Definition Documentation

#define DATUM

(

inst

)

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

Definition at line 46 of file rle_getraw.c.

#define LONGP

(

inst

)

(inst[0] & LONG)

Definition at line 45 of file rle_getraw.c.

#define OPCODE

(

inst

)

(inst[0] & ~LONG)

Definition at line 44 of file rle_getraw.c.

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

Definition at line 39 of file rle_getraw.c.

Function Documentation

void rle_freeraw	(	rle_hdr *	the_hdr,
		scanraw	,
		nraw
	)

Definition at line 268 of file rle_getraw.c.

{
    int c, i;
    register rle_op * raw_p;

    for ( c = -the_hdr->alpha; c < the_hdr->ncolors; c++ )
    if ( RLE_BIT( *the_hdr, c ) )
        for ( i = nraw[c], raw_p = scanraw[c]; i > 0; i--, raw_p++ )
        if ( raw_p->opcode == RByteDataOp )
        {
            if ( raw_p->u.pixels )
            free( raw_p->u.pixels );
            else
            fprintf( stderr,
     "%s(%s): rle_freeraw given NULL pixel pointer, %d[%d].\n",
                 the_hdr->cmd, the_hdr->file_name,
                 c, nraw[c] - i );
            raw_p->u.pixels = NULL;
        }
}

unsigned int rle_getraw	(	rle_hdr *	the_hdr,
		scanraw	,
		nraw
	)

Definition at line 78 of file rle_getraw.c.

{
    register int channel;
    register rle_op * rawp = NULL;
    FILE *infile = the_hdr->rle_file;
    char inst[2];
    int scan_x = the_hdr->xmin;
    register int was_data;
    short word, long_data, nc, been_some = 0;

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

    /* Set run lengths to 0 */
    for ( channel = (the_hdr->alpha ? -1 : 0);
      channel < the_hdr->ncolors;
      channel++ )
    if ( RLE_BIT( *the_hdr, channel ) )
         nraw[channel] = 0;
    channel = 0;

    if ( the_hdr->priv.get.is_eof )
    return 32768;       /* too big for 16 bits, signal EOF */

    /* Otherwise, read and interpret instructions until a skipLines
     * instruction is encountered.
     */
    for (was_data = 0;;)
    {
        inst[0] = getc( infile );
    inst[1] = getc( infile );
    if ( feof(infile) )
    {
        the_hdr->priv.get.is_eof = 1;
        break;      /* <--- one of the exits */
    }

    switch( OPCODE(inst) )
    {
    case RSkipLinesOp:
        was_data = 1;
        if ( LONGP(inst) )
        {
        VAXSHORT( the_hdr->priv.get.vert_skip, infile );
        }
        else
        the_hdr->priv.get.vert_skip = DATUM(inst);
        break;          /* need to break for() here, too */

    case RSetColorOp:
        was_data = 1;
        channel = DATUM(inst);  /* select color channel */
        if ( channel == 255 )
        channel = -1;
        scan_x = the_hdr->xmin;
        if ( RLE_BIT( *the_hdr, channel ) )
        rawp = scanraw[channel];
        else
        rawp = NULL;
        break;

    case RSkipPixelsOp:
        was_data = 1;
        if ( LONGP(inst) )
        {
            VAXSHORT( long_data, infile );
        scan_x += long_data;
        }
        else
        {
        scan_x += DATUM(inst);
        }
        break;

    case RByteDataOp:
        was_data = 1;
        if ( LONGP(inst) )
        {
            VAXSHORT( nc, infile );
        }
        else
        nc = DATUM(inst);
        nc++;
        if ( rawp != NULL )
        {
        rawp->opcode = RByteDataOp;
        rawp->xloc = scan_x;
        rawp->length = nc;
        rawp->u.pixels = (rle_pixel *)malloc( (unsigned)nc );
        fread( (char *)rawp->u.pixels, 1, nc, infile );
        if ( nc & 1 )
            (void)getc( infile );   /* throw away odd byte */
        rawp++;
        nraw[channel]++;
        }
        else
        if ( the_hdr->priv.get.is_seek )
            fseek( infile, ((nc + 1) / 2) * 2, 1 );
        else
        {
            register int ii;
            for ( ii = ((nc + 1) / 2) * 2; ii > 0; ii-- )
            (void) getc( infile );  /* discard it */
        }

        scan_x += nc;
        been_some = 1;
        break;

    case RRunDataOp:
        was_data = 1;
        if ( LONGP(inst) )
        {
            VAXSHORT( nc, infile );
        }
        else
        nc = DATUM(inst);

        nc++;
        VAXSHORT( word, infile );
        if ( rawp != NULL )
        {
        rawp->opcode = RRunDataOp;
        rawp->xloc = scan_x;
        rawp->length = nc;
        rawp->u.run_val = word;
        rawp++;
        nraw[channel]++;
        }
        scan_x += nc;
        been_some = 1;
        break;

    case REOFOp:
        the_hdr->priv.get.is_eof = 1;
        break;

    default:
        fprintf( stderr,
             "%s: rle_getraw: Unrecognized opcode: %d, reading %s\n",
             the_hdr->cmd, OPCODE(inst), the_hdr->file_name );
        exit(1);
    }
    if ( OPCODE(inst) == REOFOp )
        break;          /* <--- the other loop exit */
    if ( OPCODE(inst) == RSkipLinesOp )
    {
        if ( been_some )
        break;          /* <--- the other loop exit */
        else
        /* No data on that scanline, so move up to this scanline */
        the_hdr->priv.get.scan_y +=
            the_hdr->priv.get.vert_skip;
    }
    }

    /* If at top of image, skip any remaining. */
    if ( the_hdr->priv.get.scan_y >= the_hdr->ymax )
    {
    int y = the_hdr->priv.get.scan_y;
    while ( rle_getskip( the_hdr ) != 32768 )
        ;
    return y;
    }

    /* Return current Y value */
    return (was_data == 0) ? 32768 : the_hdr->priv.get.scan_y;
}

Variable Documentation

char rcs_ident[] = "$Id: rle_getraw.c,v 3.0.1.1 1992/01/28 18:20:36 spencer Exp spencer $"

static

Definition at line 31 of file rle_getraw.c.