/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ /* * 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 */ intout_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);} intsetencoding(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);} voiderror(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. */voidinterrupt(int sig){    USED(sig);    if ( temp_file != NULL )	unlink(temp_file);    exit(1);}