rlecat.c File Reference

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

Include dependency graph for rlecat.c:

Go to the source code of this file.

Macros
#define	_XOPEN_SOURCE   /* For mkstemp */

Functions
static void	rep_file ()
void	main (int argc, char **argv)
static void	rep_file (rle_hdr *in_hdr, rle_hdr *out_hdr, int rep_cnt)

Variables
static char	rcsid [] = "$Header: /l/spencer/src/urt/tools/RCS/rlecat.c,v 3.0.1.4 1992/04/30 14:11:43 spencer Exp $"

Macro Definition Documentation

#define _XOPEN_SOURCE   /* For mkstemp */

Definition at line 19 of file rlecat.c.

Function Documentation

void main	(	int	argc,
		char **	argv
	)

Definition at line 72 of file rlecat.c.

{
    CONST_DECL char **infname = NULL,
               *outfname = NULL;
    CONST_DECL char *dash = "-";    /* Used to fake a request for stdin. */
    static char temp[] = "rlecatXXXXXX";
    int     cflag = 0,
                nflag = 0,
                rep_cnt = 0,
                oflag = 0,
                nfiles = 0;
    int     rle_cnt, rle_err, y, nskip;
    int         file_cnt;
    FILE       *outfile, *tmpfile = NULL;
    rle_hdr     in_hdr, out_hdr;
    rle_hdr     tmp_hdr;    /* Header for temp file for repeats. */
    char        buf[BUFSIZ];    /* For building title comment. */
    rle_op    **rows;       /* Storage for input data. */
    int        *n_op;       /* Number of ops per row. */

    in_hdr = *rle_hdr_init( NULL );
    out_hdr = *rle_hdr_init( NULL );

    if ( scanargs( argc, argv, "% c%- n%-repeat-count!d o%-outfile!s files%*s",
           &cflag, &nflag, &rep_cnt,
           &oflag, &outfname, &nfiles, &infname ) == 0 )
    exit( 1 );

    /* If no input, use standard input. */
    if ( nfiles == 0 )
    {
    nfiles = 1;
    infname = ‐
    }

    /* Open the output file now, to make sure we can. */
    outfile = rle_open_f_noexit( cmd_name( argv ), outfname, "w" );

    /* If requesting repeats, create temp file. */
    if ( nflag )
    {
    if ( rep_cnt < 2 )
        nflag = 0;      /* Not really repeating! */
    else
    {
        /* we dont have to use rle_open_f() because all it does in
         * this case is run fopen() ... we're creating a file so all
         * the checks for opening an existing file aren't needed */
        int fd = mkstemp(temp);
        if (fd == -1 || (tmpfile = fdopen(fd, "w+")) == NULL) {
        perror("Unable to open tempfile");
        exit(-1);
        }
    }
    }

    /* For each file, read it and write it. */
    rle_names( &out_hdr, cmd_name( argv ), outfname, 0 );
    for ( file_cnt = 0; file_cnt < nfiles; file_cnt++ )
    {
    /* Open the input file. */
    rle_names( &in_hdr, out_hdr.cmd, infname[file_cnt], 0 );
    in_hdr.rle_file =
        rle_open_f_noexit( in_hdr.cmd, infname[file_cnt], "r" );
    if ( in_hdr.rle_file == NULL )
        continue;

    /* Count the input images. */
    for ( rle_cnt = 0;
          (rle_err = rle_get_setup( &in_hdr )) == RLE_SUCCESS;
          rle_cnt++ )
    {
        /* The output header is a copy of the input header.  The only
         * difference is the FILE pointer.
         */
        (void)rle_hdr_cp( &in_hdr, &out_hdr );
        out_hdr.rle_file = outfile;

        /* Add to the history comment. */
        rle_addhist( argv, &in_hdr, &out_hdr );

        /* Build the title comment. */
        if ( rle_getcom( "title", &in_hdr ) ||
         rle_getcom( "TITLE", &in_hdr ) )
        ;       /* Don't disturb existing title. */
        else
        if ( in_hdr.rle_file != stdin )
        {
            if ( rle_cnt == 0 )
            sprintf( buf, "TITLE=%s", infname[file_cnt] );
            else
            sprintf( buf, "TITLE=%s(%d)", infname[file_cnt],
                 rle_cnt+1 );
            rle_putcom( buf, &out_hdr );
        }

        /* Write the output image header. */
        rle_put_setup( &out_hdr );

        if ( nflag )
        {
        (void)rle_hdr_cp( &out_hdr, &tmp_hdr );
        tmp_hdr.rle_file = tmpfile;
        rle_put_setup( &tmp_hdr );
        }

        /* Allocate memory into which the image scanlines can be read.
         * This should happen after the above adjustment, to minimize
         * the amount of memory allocated.
         */
        if ( rle_raw_alloc( &in_hdr, &rows, &n_op ) < 0 )
        RLE_CHECK_ALLOC( cmd_name( argv ), 0, "image memory" );

        /* Read the input image and copy it to the output file. */
        y = in_hdr.ymin - 1;
        while ( (nskip = rle_getraw( &in_hdr, rows, n_op )) != 32768 )
        {
        nskip -= y;
        y += nskip;
        if ( nskip > 1 )
            rle_skiprow( &out_hdr, nskip - 1 );

        /* Write the processed scanline. */
        rle_putraw( rows, n_op, &out_hdr );
        if ( nflag )
        {
            if ( nskip > 1 )
            rle_skiprow( &tmp_hdr, nskip - 1 );
            rle_putraw( rows, n_op, &tmp_hdr );
        }

        rle_freeraw( &in_hdr, rows, n_op );
        }

        /* Free memory. */
        rle_raw_free( &in_hdr, rows, n_op );

        /* Write an end-of-image code. */
        rle_puteof( &out_hdr );
        if ( nflag )
        rle_puteof( &tmp_hdr );

        /* If not collating, do the repeats now. */
        if ( !cflag && nflag )
        rep_file( &tmp_hdr, &out_hdr, rep_cnt );
    }

    /* Close the input file. */
    fclose( in_hdr.rle_file );

    /* Check for an error.  EOF or EMPTY is ok if at least one image
     * has been read.  Otherwise, print an error message.
     */
    if ( rle_cnt == 0 || (rle_err != RLE_EOF && rle_err != RLE_EMPTY) )
        rle_get_error( rle_err, in_hdr.cmd, in_hdr.file_name );
    }

    /* If collating, do the repeats here. */
    if ( cflag && nflag )
    rep_file( &tmp_hdr, &out_hdr, rep_cnt );

    /* If repeating, delete the temp file. */
    if ( nflag )
    unlink( temp );

    exit( 0 );          /* All ok. */
}

static void rep_file ( )

static

static void rep_file ( rle_hdr *  in_hdr, rle_hdr *  out_hdr, int  rep_cnt  )

static

Definition at line 263 of file rlecat.c.

{
    long int pos = ftell( in_hdr->rle_file );
    char buf[BUFSIZ];
    int n, nr;

    while ( --rep_cnt > 0 )
    {
    rewind( in_hdr->rle_file );
    for ( n = 0;
          n < pos && (nr = fread( buf, 1, BUFSIZ, in_hdr->rle_file )) > 0;
          n += nr )
    {
        if ( pos - n < nr )
        nr = pos - n;
        fwrite( buf, 1, nr, out_hdr->rle_file );
    }
    }

    rewind( in_hdr->rle_file );
}

Variable Documentation

char rcsid[] = "$Header: /l/spencer/src/urt/tools/RCS/rlecat.c,v 3.0.1.4 1992/04/30 14:11:43 spencer Exp $"

static

Definition at line 11 of file rlecat.c.