/* * General purpose routines. */ #define _BSD_EXTENSION #include #include #include #include #include #include #include #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); }