Runput.c File Reference

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

Include dependency graph for Runput.c:

Go to the source code of this file.

Macros
#define	UPPER   255 /* anything bigger ain't a byte */
#define	put16(a)    (putc((a)&0xff,rle_fd),putc(((a)>>8)&0xff,rle_fd))
#define	mk_short_1(oper, a1)
#define	mk_short_2(oper, a1, a2)
#define	mk_long_1(oper, a1)
#define	mk_long_2(oper, a1, a2)
#define	mk_inst_1(oper, a1)
#define	mk_inst_2(oper, a1, a2)
#define	RSkipLines(n)    mk_inst_1(RSkipLinesOp,(n))
#define	RSetColor(c)    mk_short_1(RSetColorOp,(c))
#define	RSkipPixels(n)    mk_inst_1(RSkipPixelsOp,(n))
#define	RNewLine   RSkipLines(1)
#define	RByteData(n)    mk_inst_1(RByteDataOp,n)
#define	RRunData(n, c)    mk_inst_2(RRunDataOp,(n),(c))
#define	REOF   mk_inst_1(REOFOp,0)

Functions
char *	vax_pshort ()
void	RunSetup (rle_hdr *the_hdr)
void	RunSkipBlankLines (int nblank, rle_hdr *the_hdr)
void	RunSetColor (int c, rle_hdr *the_hdr)
void	RunSkipPixels (int nskip, int last, int wasrun, rle_hdr *the_hdr)
void	RunNewScanLine (int flag, rle_hdr *the_hdr)
void	Runputdata (rle_pixel *buf, int n, rle_hdr *the_hdr)
void	Runputrun (int color, int n, int last, rle_hdr *the_hdr)
void	RunputEof (rle_hdr *the_hdr)

Macro Definition Documentation

#define mk_inst_1	(		oper,
			a1
	)

Value:

/* one argument inst */ \
    if (a1>UPPER) (mk_long_1(oper,a1)); else (mk_short_1(oper,a1))

Definition at line 124 of file Runput.c.

#define mk_inst_2	(		oper,
			a1,
			a2
	)

Value:

/* two argument inst */ \
    if (a1>UPPER) (mk_long_2(oper,a1,a2)); else (mk_short_2(oper,a1,a2))

Definition at line 127 of file Runput.c.

#define mk_long_1	(		oper,
			a1
	)

Value:

/* one argument long */ \
    putc((char)(LONG|oper),rle_fd), putc('\0', rle_fd), put16(a1)

Definition at line 114 of file Runput.c.

#define mk_long_2	(		oper,
			a1,
			a2
	)

Value:

/* two argument long */ \
    putc((char)(LONG|oper),rle_fd), putc('\0', rle_fd), \
    put16(a1), put16(a2)

Definition at line 117 of file Runput.c.

#define mk_short_1	(		oper,
			a1
	)

Value:

/* one argument short */ \
    putc(oper,rle_fd), putc((char)a1,rle_fd)

Definition at line 107 of file Runput.c.

#define mk_short_2	(		oper,
			a1,
			a2
	)

Value:

/* two argument short */ \
    putc(oper,rle_fd), putc((char)a1,rle_fd), put16(a2)

Definition at line 110 of file Runput.c.

#define put16

(

a

)

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

Definition at line 104 of file Runput.c.

#define RByteData

(

n

)

mk_inst_1(RByteDataOp,n)

Definition at line 143 of file Runput.c.

#define REOF   mk_inst_1(REOFOp,0)

Definition at line 155 of file Runput.c.

#define RNewLine   RSkipLines(1)

Definition at line 141 of file Runput.c.

#define RRunData	(		n,
			c
	)		mk_inst_2(RRunDataOp,(n),(c))

Definition at line 150 of file Runput.c.

#define RSetColor

(

c

)

mk_short_1(RSetColorOp,(c))

Definition at line 135 of file Runput.c.

#define RSkipLines

(

n

)

mk_inst_1(RSkipLinesOp,(n))

Definition at line 133 of file Runput.c.

#define RSkipPixels

(

n

)

mk_inst_1(RSkipPixelsOp,(n))

Definition at line 139 of file Runput.c.

#define UPPER   255 /* anything bigger ain't a byte */

Definition at line 98 of file Runput.c.

Function Documentation

void RunNewScanLine	(	int	flag,
		rle_hdr *	the_hdr
	)

Definition at line 312 of file Runput.c.

{
    register FILE * rle_fd = the_hdr->rle_file;
    if (flag)
    {
    RNewLine;
    }
}

void Runputdata	(	rle_pixel *	buf,
		int	n,
		rle_hdr *	the_hdr
	)

Definition at line 328 of file Runput.c.

{
    register FILE * rle_fd = the_hdr->rle_file;
    if (n == 0)
    return;

    RByteData(n-1);
    fwrite((char *)buf, n, 1, rle_fd);
    if ( n & 1 )
    putc( 0, rle_fd );
}

void RunputEof

(

rle_hdr *

the_hdr

)

Definition at line 364 of file Runput.c.

{
    register FILE * rle_fd = the_hdr->rle_file;
    REOF;
}

void Runputrun	(	int	color,
		int	n,
		int	last,
		rle_hdr *	the_hdr
	)

Definition at line 350 of file Runput.c.

{
    register FILE * rle_fd = the_hdr->rle_file;
    RRunData(n-1,color);
}

void RunSetColor	(	int	c,
		rle_hdr *	the_hdr
	)

Definition at line 280 of file Runput.c.

{
    register FILE * rle_fd = the_hdr->rle_file;
    RSetColor(c);
}

void RunSetup

(

rle_hdr *

the_hdr

)

Definition at line 165 of file Runput.c.

{
    struct XtndRsetup setup;
    register FILE * rle_fd = the_hdr->rle_file;

    put16( RLE_MAGIC );

    if ( the_hdr->background == 2 )
    setup.h_flags = H_CLEARFIRST;
    else if ( the_hdr->background == 0 )
    setup.h_flags = H_NO_BACKGROUND;
    else
    setup.h_flags = 0;
    if ( the_hdr->alpha )
    setup.h_flags |= H_ALPHA;
    if ( the_hdr->comments != NULL && *the_hdr->comments != NULL )
    setup.h_flags |= H_COMMENT;

    setup.h_ncolors = the_hdr->ncolors;
    setup.h_pixelbits = 8;      /* Grinnell dependent */
    if ( the_hdr->ncmap > 0 && the_hdr->cmap == NULL )
    {
    fprintf( stderr,
       "%s: Color map of size %d*%d specified, but not supplied, writing %s\n",
         the_hdr->cmd, the_hdr->ncmap, (1 << the_hdr->cmaplen),
         the_hdr->file_name );
    the_hdr->ncmap = 0;
    }
    setup.h_cmaplen = the_hdr->cmaplen; /* log2 of color map size */
    setup.h_ncmap = the_hdr->ncmap; /* no of color channels */
    vax_pshort(setup.hc_xpos,the_hdr->xmin);
    vax_pshort(setup.hc_ypos,the_hdr->ymin);
    vax_pshort(setup.hc_xlen,the_hdr->xmax - the_hdr->xmin + 1);
    vax_pshort(setup.hc_ylen,the_hdr->ymax - the_hdr->ymin + 1);
    fwrite((char *)&setup, SETUPSIZE, 1, rle_fd);
    if ( the_hdr->background != 0 )
    {
    register int i;
    register rle_pixel *background =
        (rle_pixel *)malloc( (unsigned)(the_hdr->ncolors + 1) );
    register int *bg_color;
    /* 
     * If even number of bg color bytes, put out one more to get to 
     * 16 bit boundary.
     */
    bg_color = the_hdr->bg_color;
    for ( i = 0; i < the_hdr->ncolors; i++ )
        background[i] =  *bg_color++;
    /* Extra byte, if written, should be 0. */
    background[i] = 0;
    fwrite((char *)background, (the_hdr->ncolors / 2) * 2 + 1, 1, rle_fd);
    free( background );
    }
    else
    putc( '\0', rle_fd );
    if (the_hdr->ncmap > 0)
    {
    /* Big-endian machines are harder */
    register int i, nmap = (1 << the_hdr->cmaplen) *
                   the_hdr->ncmap;
    register char *h_cmap = (char *)malloc( nmap * 2 );
    if ( h_cmap == NULL )
    {
        fprintf( stderr,
         "%s: Malloc failed for color map of size %d, writing %s\n",
             the_hdr->cmd, nmap, the_hdr->file_name );
        exit( 1 );
    }
    for ( i = 0; i < nmap; i++ )
        vax_pshort( &h_cmap[i*2], the_hdr->cmap[i] );

    fwrite( h_cmap, nmap, 2, rle_fd );
    free( h_cmap );
    }

    /* Now write out comments if given */
    if ( setup.h_flags & H_COMMENT )
    {
    int comlen;
    register CONST_DECL char ** com_p;

    /* Get the total length of comments */
    comlen = 0;
    for ( com_p = the_hdr->comments; *com_p != NULL; com_p++ )
        comlen += 1 + strlen( *com_p );

    put16( comlen );
    for ( com_p = the_hdr->comments; *com_p != NULL; com_p++ )
        fwrite( *com_p, 1, strlen( *com_p ) + 1, rle_fd );

    if ( comlen & 1 )   /* if odd length, round up */
        putc( '\0', rle_fd );
    }
}

void RunSkipBlankLines	(	int	nblank,
		rle_hdr *	the_hdr
	)

Definition at line 266 of file Runput.c.

{
    register FILE * rle_fd = the_hdr->rle_file;
    RSkipLines(nblank);
}

void RunSkipPixels	(	int	nskip,
		int	last,
		int	wasrun,
		rle_hdr *	the_hdr
	)

Definition at line 295 of file Runput.c.

{
    register FILE * rle_fd = the_hdr->rle_file;
    if (! last && nskip > 0)
    {
    RSkipPixels(nskip);
    }
}

char* vax_pshort

(

)