gettext-tools/src/po-xerror.c

   1 /* Error handling during reading and writing of PO files.
   2    Copyright (C) 2005-2007, 2015 Free Software Foundation, Inc.
   3    Written by Bruno Haible <bruno@clisp.org>, 2005.
   4
   5    This program is free software: you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by
   7    the Free Software Foundation; either version 3 of the License, or
   8    (at your option) any later version.
   9
  10    This program is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13    GNU General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  17
  18
  19 #ifdef HAVE_CONFIG_H
  20 # include "config.h"
  21 #endif
  22
  23 /* Specification.  */
  24 #include "po-xerror.h"
  25
  26 #include <error.h>
  27 #include <stdio.h>
  28 #include <stdlib.h>
  29
  30 #include "message.h"
  31 #include "progname.h"
  32 #include "error-progname.h"
  33 #include "xalloc.h"
  34 #include "xerror.h"
  35 #include "error.h"
  36 #include "xvasprintf.h"
  37 #include "po-error.h"
  38 #include "gettext.h"
  39
  40 #define _(str) gettext (str)
  41
  42
  43 static void
  44 xerror (int severity, const char *prefix_tail,
  45         const char *filename, size_t lineno, size_t column,
  46         int multiline_p, const char *message_text)
  47 {
  48   if (multiline_p)
  49     {
  50       bool old_error_with_progname = error_with_progname;
  51       char *prefix;
  52
  53       if (filename != NULL)
  54         {
  55           if (lineno != (size_t)(-1))
  56             {
  57               if (column != (size_t)(-1))
  58                 prefix =
  59                   xasprintf ("%s:%ld:%ld: %s", filename,
  60                              (long) lineno, (long) column, prefix_tail);
  61               else
  62                 prefix =
  63                   xasprintf ("%s:%ld: %s", filename,
  64                              (long) lineno, prefix_tail);
  65             }
  66           else
  67             prefix = xasprintf ("%s: %s", filename, prefix_tail);
  68           error_with_progname = false;
  69         }
  70       else
  71         prefix = xasprintf ("%s: %s", program_name, prefix_tail);
  72
  73       if (severity >= PO_SEVERITY_ERROR)
  74         po_multiline_error (prefix, xstrdup (message_text));
  75       else
  76         po_multiline_warning (prefix, xstrdup (message_text));
  77       error_with_progname = old_error_with_progname;
  78
  79       if (severity == PO_SEVERITY_FATAL_ERROR)
  80         exit (EXIT_FAILURE);
  81     }
  82   else
  83     {
  84       int exit_status =
  85         (severity == PO_SEVERITY_FATAL_ERROR ? EXIT_FAILURE : 0);
  86
  87       if (filename != NULL)
  88         {
  89           error_with_progname = false;
  90           if (lineno != (size_t)(-1))
  91             {
  92               if (column != (size_t)(-1))
  93                 po_error (exit_status, 0, "%s:%ld:%ld: %s%s",
  94                           filename, (long) lineno, (long) column,
  95                           prefix_tail, message_text);
  96               else
  97                 po_error_at_line (exit_status, 0, filename, lineno, "%s%s",
  98                                   prefix_tail, message_text);
  99             }
 100           else
 101             po_error (exit_status, 0, "%s: %s%s",
 102                       filename, prefix_tail, message_text);
 103           error_with_progname = true;
 104         }
 105       else
 106         po_error (exit_status, 0, "%s%s", prefix_tail, message_text);
 107       if (severity < PO_SEVERITY_ERROR)
 108         --error_message_count;
 109     }
 110 }
 111
 112 /* The default error handler is based on the lower-level error handler
 113    in po-error.h, so that gettext-po.h can offer to override one or the
 114    other.  */
 115 void
 116 textmode_xerror (int severity,
 117                  const struct message_ty *message,
 118                  const char *filename, size_t lineno, size_t column,
 119                  int multiline_p, const char *message_text)
 120 {
 121   const char *prefix_tail =
 122     (severity == PO_SEVERITY_WARNING ? _("warning: ") : "");
 123
 124   if (message != NULL && (filename == NULL || lineno == (size_t)(-1)))
 125     {
 126       filename = message->pos.file_name;
 127       lineno = message->pos.line_number;
 128       column = (size_t)(-1);
 129     }
 130
 131   xerror (severity, prefix_tail, filename, lineno, column,
 132           multiline_p, message_text);
 133 }
 134
 135 void
 136 textmode_xerror2 (int severity,
 137                   const struct message_ty *message1,
 138                   const char *filename1, size_t lineno1, size_t column1,
 139                   int multiline_p1, const char *message_text1,
 140                   const struct message_ty *message2,
 141                   const char *filename2, size_t lineno2, size_t column2,
 142                   int multiline_p2, const char *message_text2)
 143 {
 144   int severity1 = /* Don't exit before both texts have been output.  */
 145     (severity == PO_SEVERITY_FATAL_ERROR ? PO_SEVERITY_ERROR : severity);
 146   const char *prefix_tail =
 147     (severity == PO_SEVERITY_WARNING ? _("warning: ") : "");
 148
 149   if (message1 != NULL && (filename1 == NULL || lineno1 == (size_t)(-1)))
 150     {
 151       filename1 = message1->pos.file_name;
 152       lineno1 = message1->pos.line_number;
 153       column1 = (size_t)(-1);
 154     }
 155
 156   if (message2 != NULL && (filename2 == NULL || lineno2 == (size_t)(-1)))
 157     {
 158       filename2 = message2->pos.file_name;
 159       lineno2 = message2->pos.line_number;
 160       column2 = (size_t)(-1);
 161     }
 162
 163   if (multiline_p1)
 164     xerror (severity1, prefix_tail, filename1, lineno1, column1, multiline_p1,
 165             message_text1);
 166   else
 167     {
 168       char *message_text1_extended = xasprintf ("%s...", message_text1);
 169       xerror (severity1, prefix_tail, filename1, lineno1, column1,
 170               multiline_p1, message_text1_extended);
 171       free (message_text1_extended);
 172     }
 173
 174   {
 175     char *message_text2_extended = xasprintf ("...%s", message_text2);
 176     xerror (severity, prefix_tail, filename2, lineno2, column2,
 177             multiline_p2, message_text2_extended);
 178     free (message_text2_extended);
 179   }
 180
 181   if (severity >= PO_SEVERITY_ERROR)
 182     /* error_message_count needs to be incremented only by 1, not by 2.  */
 183     --error_message_count;
 184 }
 185
 186 void (*po_xerror) (int severity,
 187                    const struct message_ty *message,
 188                    const char *filename, size_t lineno, size_t column,
 189                    int multiline_p, const char *message_text)
 190   = textmode_xerror;
 191
 192 void (*po_xerror2) (int severity,
 193                     const struct message_ty *message1,
 194                     const char *filename1, size_t lineno1, size_t column1,
 195                     int multiline_p1, const char *message_text1,
 196                     const struct message_ty *message2,
 197                     const char *filename2, size_t lineno2, size_t column2,
 198                     int multiline_p2, const char *message_text2)
 199   = textmode_xerror2;