Mercurial > hg > octave-kai > gnulib-hg

annotate lib/fatal.c @ 4642:9f5b3245e524

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove K&R cruft.
author Paul Eggert <eggert@cs.ucla.edu>
date Tue, 09 Sep 2003 06:37:10 +0000
parents fcd34d3861a4
children 4753d416bf20
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4333
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
1 /* Fatal exits for noninteractive utilities
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
2
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
3 Copyright (C) 2001, 2003 Free Software Foundation, Inc.
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
4
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
5 This program is free software; you can redistribute it and/or modify
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
6 it under the terms of the GNU General Public License as published by
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
7 the Free Software Foundation; either version 2, or (at your option)
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
8 any later version.
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
9
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
10 This program is distributed in the hope that it will be useful,
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
13 GNU General Public License for more details.
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
14
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
15 You should have received a copy of the GNU General Public License along
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
16 with this program; if not, write to the Free Software Foundation,
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
17 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
fcd34d3861a4 in lib:
Paul Eggert <eggert@cs.ucla.edu>
parents: 3618
diff changeset
18
2449
Jim Meyering <jim@meyering.net>
parents:
diff changeset
19 #ifdef HAVE_CONFIG_H
Jim Meyering <jim@meyering.net>
parents:
diff changeset
20 # include <config.h>
Jim Meyering <jim@meyering.net>
parents:
diff changeset
21 #endif
Jim Meyering <jim@meyering.net>
parents:
diff changeset
22
3618
72422d1e9181 Include unlocked-io.h.
Jim Meyering <jim@meyering.net>
parents: 2451
diff changeset
23 /* FIXME: define EXIT_FAILURE */
72422d1e9181 Include unlocked-io.h.
Jim Meyering <jim@meyering.net>
parents: 2451
diff changeset
24
4642
9f5b3245e524 Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4333
diff changeset
25 #include "fatal.h"
2449
Jim Meyering <jim@meyering.net>
parents:
diff changeset
26
4642
9f5b3245e524 Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4333
diff changeset
27 #include <stdarg.h>
9f5b3245e524 Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4333
diff changeset
28 #include <stdio.h>
9f5b3245e524 Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4333
diff changeset
29 #include <stdlib.h>
9f5b3245e524 Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4333
diff changeset
30 #include <string.h>
2449
Jim Meyering <jim@meyering.net>
parents:
diff changeset
31
Jim Meyering <jim@meyering.net>
parents:
diff changeset
32 #ifdef _LIBC
Jim Meyering <jim@meyering.net>
parents:
diff changeset
33 # define program_name program_invocation_name
Jim Meyering <jim@meyering.net>
parents:
diff changeset
34 #else /* not _LIBC */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
35 /* The calling program should define program_name and set it to the
Jim Meyering <jim@meyering.net>
parents:
diff changeset
36 name of the executing program. */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
37 extern char *program_name;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
38 #endif
Jim Meyering <jim@meyering.net>
parents:
diff changeset
39
3618
72422d1e9181 Include unlocked-io.h.
Jim Meyering <jim@meyering.net>
parents: 2451
diff changeset
40 #include "unlocked-io.h"
2449
Jim Meyering <jim@meyering.net>
parents:
diff changeset
41
Jim Meyering <jim@meyering.net>
parents:
diff changeset
42 /* Like error, but always exit with EXIT_FAILURE. */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
43
Jim Meyering <jim@meyering.net>
parents:
diff changeset
44 void
Jim Meyering <jim@meyering.net>
parents:
diff changeset
45 fatal (int errnum, const char *message, ...)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
46 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
47 va_list args;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
48
Jim Meyering <jim@meyering.net>
parents:
diff changeset
49 if (error_print_progname)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
50 (*error_print_progname) ();
Jim Meyering <jim@meyering.net>
parents:
diff changeset
51 else
Jim Meyering <jim@meyering.net>
parents:
diff changeset
52 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
53 fflush (stdout);
Jim Meyering <jim@meyering.net>
parents:
diff changeset
54 fprintf (stderr, "%s: ", program_name);
Jim Meyering <jim@meyering.net>
parents:
diff changeset
55 }
Jim Meyering <jim@meyering.net>
parents:
diff changeset
56
4642
9f5b3245e524 Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4333
diff changeset
57 va_start (args, message);
2449
Jim Meyering <jim@meyering.net>
parents:
diff changeset
58 error (EXIT_FAILURE, errnum, message, args);
4642
9f5b3245e524 Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4333
diff changeset
59
9f5b3245e524 Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4333
diff changeset
60 /* The following code isn't reachable, but pacifies some compilers. */
2449
Jim Meyering <jim@meyering.net>
parents:
diff changeset
61 va_end (args);
4642
9f5b3245e524 Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4333
diff changeset
62 abort ();
2449
Jim Meyering <jim@meyering.net>
parents:
diff changeset
63 }