Subversion Repositories planix.SVN

/*
 * General purpose routines.
 */

#define _BSD_EXTENSION

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <ctype.h>
#include <sys/types.h>
#include <fcntl.h>

#include "gen.h"
#include "ext.h"
#include "path.h"

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

int
out_list(str)
    char        *str;
{
    int         start, stop;

/*
 * Grab page ranges from str, save them in olist[], and update the nolist
 * count. Range syntax matches nroff/troff syntax.
 */

    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, 0);

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

        if ( *str != '\0' ) str++;
    }
    olist[nolist] = 0;
    return 0;
}

in_olist(num)
    int         num;
{
    int         i;

/*
 * Return ON if num is in the current page range list. Print everything if
 * there's no list.
 */
    if ( nolist == 0 )
        return(ON);

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

int
setencoding(name)
    char        *name;
{
    char        path[150];

/*
 * Include the font encoding file selected by name. It's a full pathname if
 * it begins with /, otherwise append suffix ".enc" and look for the file in
 * ENCODINGDIR. Missing files are silently ignored.
 */

    if ( name == NULL )
        name = "Default";

    if ( *name == '/' )
        strcpy(path, name);
    else sprintf(path, "%s/%s.enc", ENCODINGDIR, name);

    if ( cat(path) == TRUE )
        writing = strncmp(name, "UTF", 3) == 0;
    return 0;
}

cat(file)
    char        *file;
{
    int         fd_in;
    int         fd_out;
    char        buf[512];
    int         count;

/*
 * Copy *file to stdout. Return FALSE is there was a problem.
 */

    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);
}

str_convert(str, err)
    char        **str;
    int         err;
{
    int         i;

/*
 *
 * Grab the next integer from **str and return its value or err if *str
 * isn't an integer. *str is modified after each digit is read.
 *
 */

    if ( ! isdigit(**str) )
        return(err);

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

    return(i);
}

void
error(int kind, char *fmt, ...)
{
        char buf[256];
        va_list arg;

        if (fmt) {
                va_start(arg, fmt);
                vsnprintf(buf, sizeof buf, fmt, arg);
                va_end(arg);
                fprintf(stderr, "%s: %s", prog_name, buf);
                if (lineno > 0)
                        fprintf(stderr, " (line %d)", lineno);
                if (position > 0)
                        fprintf(stderr, " (near byte %d)", position);
                putc('\n', stderr);
        }
        if (kind == FATAL && ignore == OFF) {
                if (temp_file != NULL)
                        unlink(temp_file);
                exit(x_stat | 01);
        }
}

/*
 * Signal handler for translators.
 */
void
interrupt(int sig)
{
    USED(sig);
    if ( temp_file != NULL )
        unlink(temp_file);
    exit(1);
}