1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
/* Copyright (c) 1993,1994, Joseph Arceneaux. All rights reserved.
Copyright (C) 1986, 1989, 1992 Free Software Foundation, Inc. All rights
reserved.
This file is subject to the terms of the GNU General Public License as
published by the Free Software Foundation. A copy of this license is
included with this software distribution in the file COPYING. If you
do not have a copy, you may obtain a copy by writing to the Free
Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
This software is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details. */
#include "sys.h"
#include "indent.h"
#include "globs.h"
#ifdef HAVE_MALLOC_H
#include <malloc.h>
#endif
#include <stdlib.h>
#include <errno.h>
RCSTAG_CC ("$Id: globs.c,v 1.7 1999/08/04 16:01:22 carlo Exp $");
/* Like malloc but get error if no storage available. size really should be
size_t, but not all systems have size_t, so I hope "unsigned" will work.
It works for GNU style machines, where it is 32 bits, and works on
MS-DOS. */
char *
xmalloc (size)
unsigned size;
{
char *val = (char *) malloc (size);
if (!val)
{
fprintf (stderr, "indent: Virtual memory exhausted.\n");
exit (system_error);
}
#if defined (DEBUG)
/* Fill it with garbage to detect code which depends on stuff being
zero-filled. */
memset (val, 'x', size);
#endif
return val;
}
/* Like realloc but get error if no storage available. */
char *
xrealloc (ptr, size)
char *ptr;
unsigned size;
{
char *val = (char *) realloc (ptr, size);
if (!val)
{
fprintf (stderr, "indent: Virtual memory exhausted.\n");
exit (system_error);
}
return val;
}
void
message (kind, string, a0, a1)
char *kind, *string;
unsigned int *a0, *a1;
{
if (kind)
fprintf (stderr, "indent: %s:%d: %s:", in_name, line_no, kind);
fprintf (stderr, string, a0, a1);
fprintf (stderr, "\n");
}
/* Print a fatal error message and exit, or, if compiled with
"DEBUG" defined, abort (). */
void
fatal (string, a0)
char *string;
char *a0;
{
fprintf (stderr, "indent: Fatal Error: ");
fprintf (stderr, string, a0);
fprintf (stderr, "\n");
#ifdef DEBUG
abort ();
#endif /* DEBUG */
if (errno)
{
fprintf (stderr, "indent: System Error: ");
perror (0);
}
exit (indent_fatal);
}
|
