/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*      Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*        All Rights Reserved   */

/*
 *
 * A few general purpose routines.
 *
 */


#include <stdio.h>
#include <stdarg.h>
#include <ctype.h>
#include <fcntl.h>

#include "gen.h"                        /* a few general purpose definitions */
#include "ext.h"                        /* external variable declarations */


int     nolist = 0;                     /* number of specified ranges */
int     olist[50];                      /* processing range pairs */



void
error(int kind, char *mesg, ...)
{


/*
 *
 * Called when we've run into some kind of program error. *mesg is printed using
 * the control string arguments a?. We'll quit if we're not ignoring errors and
 * kind is FATAL.
 *
 */


    if ( mesg != NULL && *mesg != '\0' )  {
        va_list ap;

        fprintf(stderr, "%s: ", prog_name);
        va_start(ap, mesg);
        vfprintf(stderr, mesg, ap);
        va_end(ap);
        if ( lineno > 0 )
            fprintf(stderr, " (line %d)", lineno);
        if ( position > 0 )
            fprintf(stderr, " (near byte %d)", position);
        putc('\n', stderr);
    }   /* End if */

    if ( kind == FATAL && ignore == OFF )  {
        if ( temp_file != NULL )
            unlink(temp_file);
        exit(x_stat | 01);
    }   /* End if */

}   /* End of error */


/*****************************************************************************/

/*****************************************************************************/


void
out_list(str)


    char        *str;                   /* process ranges in this string */


{


    int         start, stop;            /* end points */


/*
 *
 * Called to get the processing ranges that were specified by using the -o option.
 * The range syntax should be identical to the one used in nroff and troff.
 *
 */


    while ( *str && nolist < sizeof(olist) - 2 )  {
        start = stop = str_convert(&str, 0);

        if ( *str == '-' && *str++ )
            stop = str_convert(&str, 9999);

        if ( start > stop )
            error(FATAL, "illegal range %d-%d", start, stop);

        olist[nolist++] = start;
        olist[nolist++] = stop;

        if ( *str != '\0' ) str++;

    }   /* End while */

    olist[nolist] = 0;

}   /* End of out_list */


/*****************************************************************************/


int
in_olist(num)


    int         num;                    /* should we print this page? */


{


    int         i;                      /* just a loop index */


/*
 *
 * Returns ON if num represents a page that we're supposed to print. If no ranges
 * were selected nolist will be 0 and we'll print everything.
 *
 */


    if ( nolist == 0 )                  /* everything's included */
        return(ON);

    for ( i = 0; i < nolist; i += 2 )
        if ( num >= olist[i] && num <= olist[i+1] )
            return(ON);

    return(OFF);

}   /* End of in_olist */


/*****************************************************************************/


int
cat(file)


    char        *file;                  /* copy this file to stdout */


{


    int         fd_in;                  /* for the input */
    int         fd_out;                 /* and output files */
    char        buf[512];               /* buffer for reads and writes */
    int         count;                  /* number of bytes we just read */


/*
 *
 * Copies *file to stdout - mostly for the prologue. Returns FALSE if there was a
 * problem and TRUE otherwise.
 *
 */


    fflush(stdout);

    if ( (fd_in = open(file, O_RDONLY)) == -1 )
        return(FALSE);

    fd_out = fileno(stdout);
    while ( (count = read(fd_in, buf, sizeof(buf))) > 0 )
        write(fd_out, buf, count);

    close(fd_in);

    return(TRUE);

}   /* End of cat */


/*****************************************************************************/


int
str_convert(str, err)


    char        **str;                  /* get next number from this string */
    int         err;                    /* value returned on error */


{


    int         i;                      /* just a loop index */


/*
 *
 * Gets the next integer from **str and returns its value to the caller. If **str
 * isn't an integer err is returned. *str is updated after each digit is processed.
 *
 */


    if ( ! isdigit(**str) )             /* something's wrong */
        return(err);

    for ( i = 0; isdigit(**str); *str += 1 )
        i = 10 * i + **str - '0';

    return(i);

}   /* End of str_convert */


/*****************************************************************************/




void interrupt(sig)


    int         sig;                    /* signal that we caught */


{


/*
 *
 * Called when we get a signal that we're supposed to catch.
 *
 */


    if ( temp_file != NULL )
        unlink(temp_file);

    exit(1);

}   /* End of interrupt */


/*****************************************************************************/