rlesplit.c File Reference

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

Include dependency graph for rlesplit.c:

Go to the source code of this file.

Functions
void	main (int argc, char **argv)

Variables
char	rcsid [] = "$Header: /tmp_mnt/n/itn/hendrix/u/spencer/RCS/rlesplit.c,v 3.0.1.2 1992/04/30 14:13:55 spencer Exp spencer $"

Function Documentation

void main	(	int	argc,
		char **	argv
	)

Definition at line 60 of file rlesplit.c.

{
    register CONST_DECL char * cp, * slashp;
    int num = 1, oflag = 0, digits = 3, tflag = 0;
    int rle_err;
    CONST_DECL char *infname = NULL, *format = "%s%0*d.rle";
    static char nullpref[] = "";
    char *prefix = nullpref;
    char *title;
    char filebuf[BUFSIZ];
    rle_hdr     in_hdr, out_hdr;

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

    if ( scanargs( argc, argv,
           "% n%-number!ddigits%d o%-prefix!s t%- infile%s\n(\
\tSplit a multi-image file into separate files.\n\
\t-n\tSpecify number assigned to first image, optionally specify\n\
\t\tnumber of digits used for numbering (default 3).\n\
\t-o\tSpecify output filename prefix.  If not specified, input\n\
\t\tfile name (without .rle) will be used.  Output file names are\n\
\t\tof the form prefix.number.rle.\n\
\t-t\tUse TITLE (or title) comment as file name.  They should be distinct.)",
           &num, &num, &digits, &oflag, &prefix, &tflag,
           &infname ) == 0 )
    exit( 1 );

    /* Open input file */
    in_hdr.rle_file = rle_open_f(cmd_name( argv ), infname, "r");
    rle_names( &in_hdr, cmd_name( argv ), infname, 0 );

    if ( oflag || infname )
    {
    format = "%s.%0*d.rle";
    if ( !oflag )
    {
        /* Strip ".rle" suffix from input file name */
        /* Avoid strrchr, rindex problem */
        for ( cp = infname; *cp; cp++ )
        ;       /* find end of name */
        /* Look for last slash */
        for ( slashp = cp - 1; *slashp != '/' && slashp > infname; )
        slashp--;
        if ( *slashp == '/' )
        slashp++;
        /* Look for last dot */
        while ( *--cp != '.' && cp > infname )
        ;       /* find last . */
        if ( strcmp( cp, ".rle" ) != 0 )
        cp = infname + strlen( infname );
        /* Make null full string buffer */
        prefix = (char *)calloc( cp - slashp + 1, 1 );
        RLE_CHECK_ALLOC( in_hdr.cmd, prefix, 0 );
        /* Copy everything but suffix */
        strncpy( prefix, infname, cp - slashp );
    }
    }

    while ( (rle_err = rle_get_setup( &in_hdr )) == RLE_SUCCESS )
    {
    /* Copy input to output file */
    if ( tflag &&
         ( (title=rle_getcom( "TITLE", &in_hdr)) ||
           (title=rle_getcom( "title", &in_hdr)) ) &&
         *title != '\0' )
        sprintf( filebuf, "%s%s", prefix, title );
    else
        sprintf( filebuf, format, prefix, digits, num++ );

    fprintf( stderr, "%s: Creating %s\n", cmd_name( argv ), filebuf );
    (void)rle_hdr_cp( &in_hdr, &out_hdr );
    rle_names( &out_hdr, out_hdr.cmd, filebuf, 0 );
        out_hdr.rle_file = rle_open_f(out_hdr.cmd, filebuf, "w");
    rle_addhist( argv, &in_hdr, &out_hdr );

    rle_put_setup( &out_hdr );

    /* Copy the image to the output file. */
    rle_cp( &in_hdr, &out_hdr );

    rle_close_f( out_hdr.rle_file );
    }

    if ( rle_err != RLE_EOF && rle_err != RLE_EMPTY )
    rle_get_error( rle_err, cmd_name( argv ), infname );

    exit( 0 );
}

Variable Documentation

char rcsid[] = "$Header: /tmp_mnt/n/itn/hendrix/u/spencer/RCS/rlesplit.c,v 3.0.1.2 1992/04/30 14:13:55 spencer Exp spencer $"

Definition at line 11 of file rlesplit.c.