/* * 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 (c) 1984, 1986, 1987, 1988, 1989 AT&T */ /* All Rights Reserved */ /* * Copyright 2002 Sun Microsystems, Inc. All rights reserved. * Use is subject to license terms. */ /* from OpenSolaris "misc.c 1.6 05/06/08 SMI" */ /* * Portions Copyright (c) 2005 Gunnar Ritter, Freiburg i. Br., Germany * * Sccsid @(#)misc.c 1.14 (gritter) 12/25/06 */ /* * * A few general purpose routines. * */ #include #include #include #include #include #include #include #include "gen.h" /* a few general purpose definitions */ #include "ext.h" /* external variable declarations */ #include "path.h" #include "asciitype.h" static int nolist = 0; /* number of specified ranges */ static int olist[512]; /* 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 %ld)", lineno); if ( position > 0 ) fprintf(stderr, " (near byte %ld)", position); if ( printed > 0 ) fprintf(stderr, " (page %d)", printed); 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 */ /*****************************************************************************/ /* for the AFM handling functions from troff */ void verrprint(char *fmt, va_list ap) { fprintf(stderr, "%s: ", prog_name); vfprintf(stderr, fmt, ap); putc('\n', stderr); } void errprint(char *fmt, ...) { va_list ap; va_start(ap, fmt); verrprint(fmt, ap); va_end(ap); } /*****************************************************************************/ void out_list ( 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 ( 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 ( char *file, /* copy this file to out */ FILE *out ) { 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(out); if ( (fd_in = open(file, O_RDONLY)) == -1 ) return(FALSE); fd_out = fileno(out); 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 ( char **str, /* get next number from this string */ int err /* value returned on error */ ) { int i; /* just a loop index */ int c; /* * * 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(c = **str) ) /* something's wrong */ return(err); for ( i = 0; isdigit(c = **str); *str += 1 ) i = 10 * i + c - '0'; return(i); } /* End of str_convert */ /*****************************************************************************/ void interrupt( 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 */ /*****************************************************************************/ char * tempname(const char *sfx) { size_t l = strlen(TEMPDIR) + strlen(sfx) + 10; char *pat = malloc(l); snprintf(pat, l, "%s/%sXXXXXX", TEMPDIR, sfx); if (close(mkstemp(pat)) < 0) return NULL; return pat; } /*****************************************************************************/ #if defined (__GLIBC__) && defined (_IO_getc_unlocked) #undef getc #define getc(f) _IO_getc_unlocked(f) #endif #define LSIZE 512 int psskip(size_t n, FILE *fp) { return fseek(fp, n, SEEK_CUR); } char *psgetline(char **line, size_t *linesize, size_t *llen, FILE *fp) { int c; size_t n = 0; int nl = 0; if (*line == NULL || *linesize < LSIZE + n + 1) *line = realloc(*line, *linesize = LSIZE + n + 1); for (;;) { if (n >= *linesize - LSIZE / 2) *line = realloc(*line, *linesize += LSIZE); c = getc(fp); if (c != EOF) { if (nl && c != '\n') { ungetc(c, fp); break; } (*line)[n++] = c; (*line)[n] = '\0'; if (c == '\n') break; if (c == '\r') nl = 1; } else { if (n > 0) break; else return NULL; } } if (llen) *llen = n; return *line; } /*****************************************************************************/ int sget(char *buf, size_t size, FILE *fp) { int c, n = 0; do c = getc(fp); while (spacechar(c)); if (c != EOF) do { if (n+1 < size) buf[n++] = c; c = getc(fp); } while (c != EOF && !spacechar(c)); ungetc(c, fp); buf[n] = 0; return n > 1 ? 1 : c == EOF ? EOF : 0; }