Mercurial > hg > octave-nkf > gnulib-hg

annotate lib/error.c @ 724:3f555c6de1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use #if, not #ifdef in test for HAVE_CONFIG_H.
author Jim Meyering <jim@meyering.net>
date Thu, 10 Oct 1996 02:50:37 +0000
parents d9aac329ede7
children 44ac216afb5b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
1 /* error.c -- error handler for noninteractive utilities
572
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
2 Copyright (C) 1990, 91, 92, 93, 94, 95, 96 Free Software Foundation, Inc.
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
3
724
3f555c6de1b9 Use #if, not #ifdef in test for HAVE_CONFIG_H.
Jim Meyering <jim@meyering.net>
parents: 719
diff changeset
4 This program is free software; you can redistribute it and/or modify
3f555c6de1b9 Use #if, not #ifdef in test for HAVE_CONFIG_H.
Jim Meyering <jim@meyering.net>
parents: 719
diff changeset
5 it under the terms of the GNU General Public License as published by
3f555c6de1b9 Use #if, not #ifdef in test for HAVE_CONFIG_H.
Jim Meyering <jim@meyering.net>
parents: 719
diff changeset
6 the Free Software Foundation; either version 2, or (at your option)
3f555c6de1b9 Use #if, not #ifdef in test for HAVE_CONFIG_H.
Jim Meyering <jim@meyering.net>
parents: 719
diff changeset
7 any later version.
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
8
724
3f555c6de1b9 Use #if, not #ifdef in test for HAVE_CONFIG_H.
Jim Meyering <jim@meyering.net>
parents: 719
diff changeset
9 This program is distributed in the hope that it will be useful,
3f555c6de1b9 Use #if, not #ifdef in test for HAVE_CONFIG_H.
Jim Meyering <jim@meyering.net>
parents: 719
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
3f555c6de1b9 Use #if, not #ifdef in test for HAVE_CONFIG_H.
Jim Meyering <jim@meyering.net>
parents: 719
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3f555c6de1b9 Use #if, not #ifdef in test for HAVE_CONFIG_H.
Jim Meyering <jim@meyering.net>
parents: 719
diff changeset
12 GNU General Public License for more details.
572
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
13
724
3f555c6de1b9 Use #if, not #ifdef in test for HAVE_CONFIG_H.
Jim Meyering <jim@meyering.net>
parents: 719
diff changeset
14 You should have received a copy of the GNU General Public License
3f555c6de1b9 Use #if, not #ifdef in test for HAVE_CONFIG_H.
Jim Meyering <jim@meyering.net>
parents: 719
diff changeset
15 along with this program; if not, write to the Free Software Foundation,
3f555c6de1b9 Use #if, not #ifdef in test for HAVE_CONFIG_H.
Jim Meyering <jim@meyering.net>
parents: 719
diff changeset
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
17
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
18 /* Written by David MacKenzie <djm@gnu.ai.mit.edu>. */
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
19
724
3f555c6de1b9 Use #if, not #ifdef in test for HAVE_CONFIG_H.
Jim Meyering <jim@meyering.net>
parents: 719
diff changeset
20 #if HAVE_CONFIG_H
589
7a4c77f099c7 Indent cpp-directives.
Jim Meyering <jim@meyering.net>
parents: 577
diff changeset
21 # include <config.h>
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
22 #endif
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
23
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
24 #include <stdio.h>
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
25
527
c6cca2ddbf8d new version from FSF
Jim Meyering <jim@meyering.net>
parents: 482
diff changeset
26 #if HAVE_VPRINTF || HAVE_DOPRNT || _LIBC
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
27 # if __STDC__
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
28 # include <stdarg.h>
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
29 # define VA_START(args, lastarg) va_start(args, lastarg)
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
30 # else
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
31 # include <varargs.h>
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
32 # define VA_START(args, lastarg) va_start(args)
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
33 # endif
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
34 #else
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
35 # define va_alist a1, a2, a3, a4, a5, a6, a7, a8
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
36 # define va_dcl char *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8;
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
37 #endif
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
38
527
c6cca2ddbf8d new version from FSF
Jim Meyering <jim@meyering.net>
parents: 482
diff changeset
39 #if STDC_HEADERS || _LIBC
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
40 # include <stdlib.h>
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
41 # include <string.h>
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
42 #else
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
43 void exit ();
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
44 #endif
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
45
572
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
46 #ifndef _
589
7a4c77f099c7 Indent cpp-directives.
Jim Meyering <jim@meyering.net>
parents: 577
diff changeset
47 # define _(String) String
572
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
48 #endif
440
79626753a234 merge with 1.11.1a
Jim Meyering <jim@meyering.net>
parents: 398
diff changeset
49
719
d9aac329ede7 Include error.h to align with libit -- under protest, François :-).
Jim Meyering <jim@meyering.net>
parents: 589
diff changeset
50 /* Get prototypes for the functions defined here. */
d9aac329ede7 Include error.h to align with libit -- under protest, François :-).
Jim Meyering <jim@meyering.net>
parents: 589
diff changeset
51 #include <error.h>
d9aac329ede7 Include error.h to align with libit -- under protest, François :-).
Jim Meyering <jim@meyering.net>
parents: 589
diff changeset
52
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
53 /* If NULL, error will flush stdout, then print on stderr the program
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
54 name, a colon and a space. Otherwise, error will call this
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
55 function without parameters instead. */
572
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
56 void (*error_print_progname) (
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
57 #if __STDC__ - 0
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
58 void
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
59 #endif
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
60 );
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
61
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
62 /* This variable is incremented each time `error' is called. */
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
63 unsigned int error_message_count;
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
64
527
c6cca2ddbf8d new version from FSF
Jim Meyering <jim@meyering.net>
parents: 482
diff changeset
65 #ifdef _LIBC
572
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
66 /* In the GNU C library, there is a predefined variable for this. */
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
67
589
7a4c77f099c7 Indent cpp-directives.
Jim Meyering <jim@meyering.net>
parents: 577
diff changeset
68 # define program_name program_invocation_name
7a4c77f099c7 Indent cpp-directives.
Jim Meyering <jim@meyering.net>
parents: 577
diff changeset
69 # include <errno.h>
572
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
70
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
71 #else
527
c6cca2ddbf8d new version from FSF
Jim Meyering <jim@meyering.net>
parents: 482
diff changeset
72
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
73 /* The calling program should define program_name and set it to the
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
74 name of the executing program. */
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
75 extern char *program_name;
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
76
589
7a4c77f099c7 Indent cpp-directives.
Jim Meyering <jim@meyering.net>
parents: 577
diff changeset
77 # if HAVE_STRERROR
7a4c77f099c7 Indent cpp-directives.
Jim Meyering <jim@meyering.net>
parents: 577
diff changeset
78 # ifndef strerror /* On some systems, strerror is a macro */
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
79 char *strerror ();
589
7a4c77f099c7 Indent cpp-directives.
Jim Meyering <jim@meyering.net>
parents: 577
diff changeset
80 # endif
7a4c77f099c7 Indent cpp-directives.
Jim Meyering <jim@meyering.net>
parents: 577
diff changeset
81 # else
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
82 static char *
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
83 private_strerror (errnum)
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
84 int errnum;
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
85 {
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
86 extern char *sys_errlist[];
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
87 extern int sys_nerr;
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
88
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
89 if (errnum > 0 && errnum <= sys_nerr)
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
90 return sys_errlist[errnum];
572
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
91 return _("Unknown system error");
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
92 }
589
7a4c77f099c7 Indent cpp-directives.
Jim Meyering <jim@meyering.net>
parents: 577
diff changeset
93 # define strerror private_strerror
7a4c77f099c7 Indent cpp-directives.
Jim Meyering <jim@meyering.net>
parents: 577
diff changeset
94 # endif /* HAVE_STRERROR */
572
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
95 #endif /* _LIBC */
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
96
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
97 /* Print the program name and error message MESSAGE, which is a printf-style
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
98 format string with optional args.
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
99 If ERRNUM is nonzero, print its corresponding system error message.
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
100 Exit with status STATUS if it is nonzero. */
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
101 /* VARARGS */
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
102
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
103 void
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
104 #if defined(VA_START) && __STDC__
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
105 error (int status, int errnum, const char *message, ...)
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
106 #else
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
107 error (status, errnum, message, va_alist)
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
108 int status;
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
109 int errnum;
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
110 char *message;
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
111 va_dcl
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
112 #endif
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
113 {
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
114 #ifdef VA_START
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
115 va_list args;
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
116 #endif
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
117
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
118 if (error_print_progname)
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
119 (*error_print_progname) ();
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
120 else
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
121 {
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
122 fflush (stdout);
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
123 fprintf (stderr, "%s: ", program_name);
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
124 }
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
125
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
126 #ifdef VA_START
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
127 VA_START (args, message);
527
c6cca2ddbf8d new version from FSF
Jim Meyering <jim@meyering.net>
parents: 482
diff changeset
128 # if HAVE_VPRINTF || _LIBC
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
129 vfprintf (stderr, message, args);
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
130 # else
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
131 _doprnt (message, args, stderr);
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
132 # endif
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
133 va_end (args);
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
134 #else
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
135 fprintf (stderr, message, a1, a2, a3, a4, a5, a6, a7, a8);
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
136 #endif
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
137
440
79626753a234 merge with 1.11.1a
Jim Meyering <jim@meyering.net>
parents: 398
diff changeset
138 ++error_message_count;
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
139 if (errnum)
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
140 fprintf (stderr, ": %s", strerror (errnum));
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
141 putc ('\n', stderr);
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
142 fflush (stderr);
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
143 if (status)
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
144 exit (status);
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
145 }
572
55f487a8aeab Update from libc.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
146
573
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
147 /* Sometimes we want to have at most one error per line. This
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
148 variable controls whether this mode is selected or not. */
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
149 int error_one_per_line;
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
150
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
151 void
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
152 #if defined(VA_START) && __STDC__
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
153 error_at_line (int status, int errnum, const char *file_name,
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
154 unsigned int line_number, const char *message, ...)
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
155 #else
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
156 error_at_line (status, errnum, file_name, line_number, message, va_alist)
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
157 int status;
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
158 int errnum;
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
159 const char *file_name;
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
160 unsigned int line_number;
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
161 char *message;
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
162 va_dcl
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
163 #endif
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
164 {
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
165 #ifdef VA_START
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
166 va_list args;
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
167 #endif
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
168
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
169 if (error_one_per_line)
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
170 {
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
171 static const char *old_file_name;
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
172 static unsigned int old_line_number;
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
173
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
174 if (old_line_number == line_number &&
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
175 (file_name == old_file_name || !strcmp (old_file_name, file_name)))
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
176 /* Simply return and print nothing. */
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
177 return;
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
178
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
179 old_file_name = file_name;
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
180 old_line_number = line_number;
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
181 }
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
182
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
183 if (error_print_progname)
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
184 (*error_print_progname) ();
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
185 else
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
186 {
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
187 fflush (stdout);
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
188 fprintf (stderr, "%s:", program_name);
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
189 }
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
190
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
191 if (file_name != NULL)
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
192 fprintf (stderr, "%s:%d: ", file_name, line_number);
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
193
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
194 #ifdef VA_START
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
195 VA_START (args, message);
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
196 # if HAVE_VPRINTF || _LIBC
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
197 vfprintf (stderr, message, args);
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
198 # else
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
199 _doprnt (message, args, stderr);
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
200 # endif
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
201 va_end (args);
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
202 #else
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
203 fprintf (stderr, message, a1, a2, a3, a4, a5, a6, a7, a8);
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
204 #endif
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
205
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
206 ++error_message_count;
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
207 if (errnum)
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
208 fprintf (stderr, ": %s", strerror (errnum));
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
209 putc ('\n', stderr);
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
210 fflush (stderr);
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
211 if (status)
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
212 exit (status);
8a90f3b04017 update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents: 572
diff changeset
213 }