2 * Copyright (c) 1989, 1993
3 * The Regents of the University of California. All rights reserved.
5 * This code is derived from software contributed to Berkeley by
6 * Ozan Yigit at York University.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 * 3. All advertising materials mentioning features or use of this software
17 * must display the following acknowledgement:
18 * This product includes software developed by the University of
19 * California, Berkeley and its contributors.
20 * 4. Neither the name of the University nor the names of its contributors
21 * may be used to endorse or promote products derived from this software
22 * without specific prior written permission.
24 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
39 static char sccsid[] = "@(#)misc.c 8.1 (Berkeley) 6/6/93";
41 static const char rcsid[] =
45 #include <sys/types.h>
54 #include "pathnames.h"
57 * find the index of second str in the first str.
68 for (p = s1; *p; p++) {
69 for (t = p, m = s2; *m && *m == *t; m++, t++);
76 * putback - push character back onto input
89 errx(1, "too many characters pushed back");
93 * pbstr - push string back onto input
94 * putback is replicated to improve
99 register unsigned char *s;
101 register unsigned char *es;
102 register unsigned char *zp;
113 if ((bp = zp) == endpbb)
114 errx(1, "too many characters pushed back");
118 * pbnum - convert number to string, push back on input.
126 num = (n < 0) ? -n : n;
128 putback(num % 10 + '0');
130 while ((num /= 10) > 0);
137 * chrsave - put single char on string space
146 errx(1, "string space overflow");
150 * read in a diversion file, and dispose it.
159 if (active == outfile[n])
160 errx(1, "undivert: diversion still active");
161 (void) fclose(outfile[n]);
163 m4temp[UNIQUE] = n + '0';
164 if ((dfil = fopen(m4temp, "r")) == NULL)
165 errx(1, "%s: cannot undivert", m4temp);
167 while ((c = getc(dfil)) != EOF)
174 if (unlink(m4temp) == -1)
176 errx(1, "%s: cannot unlink", m4temp);
183 errx(1, "interrupted");
187 * killdiv - get rid of the diversion files
194 for (n = 0; n < MAXOUT; n++)
195 if (outfile[n] != NULL) {
196 (void) fclose(outfile[n]);
197 m4temp[UNIQUE] = n + '0';
199 (void) remove(m4temp);
201 (void) unlink(m4temp);
210 register char *p = malloc(n);
221 register char *p = strdup(s);
233 if ((p = strrchr(s, '/')) == NULL)
242 fprintf(stderr, "usage: m4 [-Dname[=val]] [-Uname]\n");