BSD 4_4 release
[unix-history] / usr / src / usr.bin / sed / misc.c
CommitLineData
4a67a271
KB
1/*-
2 * Copyright (c) 1992 Diomidis Spinellis.
ad787160
C
3 * Copyright (c) 1992, 1993
4 * The Regents of the University of California. All rights reserved.
4a67a271
KB
5 *
6 * This code is derived from software contributed to Berkeley by
7 * Diomidis Spinellis of Imperial College, University of London.
8 *
ad787160
C
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions
11 * are met:
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the above copyright
15 * notice, this list of conditions and the following disclaimer in the
16 * documentation and/or other materials provided with the distribution.
17 * 3. All advertising materials mentioning features or use of this software
18 * must display the following acknowledgement:
19 * This product includes software developed by the University of
20 * California, Berkeley and its contributors.
21 * 4. Neither the name of the University nor the names of its contributors
22 * may be used to endorse or promote products derived from this software
23 * without specific prior written permission.
24 *
25 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
26 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
27 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
28 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
29 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
30 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
31 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
32 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
33 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
34 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
35 * SUCH DAMAGE.
4a67a271
KB
36 */
37
38#ifndef lint
ad787160 39static char sccsid[] = "@(#)misc.c 8.1 (Berkeley) 6/6/93";
4a67a271
KB
40#endif /* not lint */
41
42#include <sys/types.h>
43
44#include <errno.h>
45#include <regex.h>
46#include <stdio.h>
47#include <stdlib.h>
48#include <string.h>
49
50#include "defs.h"
51#include "extern.h"
52
53/*
54 * malloc with result test
55 */
56void *
57xmalloc(size)
58 u_int size;
59{
60 void *p;
61
62 if ((p = malloc(size)) == NULL)
63 err(FATAL, "%s", strerror(errno));
64 return (p);
65}
66
67/*
68 * realloc with result test
69 */
70void *
71xrealloc(p, size)
72 void *p;
73 u_int size;
74{
75 if (p == NULL) /* Compatibility hack. */
76 return (xmalloc(size));
77
78 if ((p = realloc(p, size)) == NULL)
79 err(FATAL, "%s", strerror(errno));
80 return (p);
81}
82
83/*
84 * Return a string for a regular expression error passed. This is a overkill,
85 * because of the silly semantics of regerror (we can never know the size of
86 * the buffer).
87 */
88char *
89strregerror(errcode, preg)
90 int errcode;
91 regex_t *preg;
92{
93 static char *oe;
94 size_t s;
95
96 if (oe != NULL)
97 free(oe);
98 s = regerror(errcode, preg, "", 0);
99 oe = xmalloc(s);
100 (void)regerror(errcode, preg, oe, s);
101 return (oe);
102}
103
104#if __STDC__
105#include <stdarg.h>
106#else
107#include <varargs.h>
108#endif
109/*
110 * Error reporting function
111 */
112void
113#if __STDC__
114err(int severity, const char *fmt, ...)
115#else
116err(severity, fmt, va_alist)
117 int severity;
118 char *fmt;
119 va_dcl
120#endif
121{
122 va_list ap;
123#if __STDC__
124 va_start(ap, fmt);
125#else
126 va_start(ap);
127#endif
128 (void)fprintf(stderr, "sed: ");
129 switch (severity) {
130 case WARNING:
131 case COMPILE:
6e6c11f3 132 (void)fprintf(stderr, "%lu: %s: ", linenum, fname);
4a67a271
KB
133 }
134 (void)vfprintf(stderr, fmt, ap);
135 va_end(ap);
136 (void)fprintf(stderr, "\n");
9b81e1f6
KB
137 if (severity == WARNING)
138 return;
139 exit(1);
4a67a271
KB
140 /* NOTREACHED */
141}