* ada-exp.y, ada-lex.l, ada-typeprint.c: I18n markup.

* ada-tasks.c, ada-lang.c: I18n markup.
Editorial: change "can not" => "cannot" throughout.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index d6d453f..3b7e2f6 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2006-01-07  Paul N. Hilfinger <hilfinger@adacore.com>
+
+       * ada-exp.y, ada-lex.l, ada-typeprint.c: I18n markup.
+       * ada-tasks.c, ada-lang.c: I18n markup.  
+       Editorial: change "can not" => "cannot" throughout.
+
 2006-01-07  Mark Kettenis  <kettenis@gnu.org>
 
        * Makefile.in: Sort dependencies.

diff --git a/gdb/ada-exp.y b/gdb/ada-exp.y
index 9e8abaf..c45e201 100644 (file)
--- a/gdb/ada-exp.y
+++ b/gdb/ada-exp.y
@@ -252,7 +252,7 @@ primary :   primary '(' arglist ')'
                          if ($1 != NULL)
                            {
                              if ($3 != 1)
-                               error ("Invalid conversion");
+                               error (_("Invalid conversion"));
                              write_exp_elt_opcode (UNOP_CAST);
                              write_exp_elt_type ($1);
                              write_exp_elt_opcode (UNOP_CAST);
@@ -270,7 +270,7 @@ primary :   var_or_type '\'' save_qualifier { type_qualifier = $1; }
                   '(' exp ')'
                        {
                          if ($1 == NULL)
-                           error ("Type required for qualification");
+                           error (_("Type required for qualification"));
                          write_exp_elt_opcode (UNOP_QUAL);
                          write_exp_elt_type ($1);
                          write_exp_elt_opcode (UNOP_QUAL);
@@ -288,7 +288,7 @@ primary :
                        { if ($1 == NULL) 
                             write_exp_elt_opcode (TERNOP_SLICE);
                          else
-                           error ("Cannot slice a type");
+                           error (_("Cannot slice a type"));
                        }
        ;
 
@@ -356,7 +356,7 @@ simple_exp :        '{' var_or_type '}' simple_exp  %prec '.'
                /* GDB extension */
                        { 
                          if ($2 == NULL)
-                           error ("Type required within braces in coercion");
+                           error (_("Type required within braces in coercion"));
                          write_exp_elt_opcode (UNOP_MEMVAL);
                          write_exp_elt_type ($2);
                          write_exp_elt_opcode (UNOP_MEMVAL);
@@ -426,7 +426,7 @@ relation :  simple_exp IN simple_exp DOTDOT simple_exp
        |       simple_exp IN var_or_type       %prec TICK_ACCESS
                        { 
                          if ($3 == NULL)
-                           error ("Right operand of 'in' must be type");
+                           error (_("Right operand of 'in' must be type"));
                          write_exp_elt_opcode (UNOP_IN_RANGE);
                          write_exp_elt_type ($3);
                          write_exp_elt_opcode (UNOP_IN_RANGE);
@@ -444,7 +444,7 @@ relation :  simple_exp IN simple_exp DOTDOT simple_exp
        |       simple_exp NOT IN var_or_type   %prec TICK_ACCESS
                        { 
                          if ($4 == NULL)
-                           error ("Right operand of 'in' must be type");
+                           error (_("Right operand of 'in' must be type"));
                          write_exp_elt_opcode (UNOP_IN_RANGE);
                          write_exp_elt_type ($4);
                          write_exp_elt_opcode (UNOP_IN_RANGE);
@@ -557,7 +557,7 @@ type_prefix :
                 var_or_type
                        { 
                          if ($1 == NULL)
-                           error ("Prefix must be type");
+                           error (_("Prefix must be type"));
                          write_exp_elt_opcode (OP_TYPE);
                          write_exp_elt_type ($1);
                          write_exp_elt_opcode (OP_TYPE); }
@@ -602,7 +602,7 @@ primary     :       STRING
        ;
 
 primary        :       NEW NAME
-                       { error ("NEW not implemented."); }
+                       { error (_("NEW not implemented.")); }
        ;
 
 var_or_type:   NAME        %prec VAR
@@ -768,7 +768,7 @@ ada_parse (void)
 void
 yyerror (char *msg)
 {
-  error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr);
+  error (_("A %s in expression, near `%s'."), (msg ? msg : _("error")), lexptr);
 }
 
 /* The operator name corresponding to operator symbol STRING (adds
@@ -796,7 +796,7 @@ string_to_operator (struct stoken string)
          return string;
        }
     }
-  error ("Invalid operator symbol `%s'", string.ptr);
+  error (_("Invalid operator symbol `%s'"), string.ptr);
 }
 
 /* Emit expression to access an instance of SYM, in block BLOCK (if
@@ -856,7 +856,7 @@ write_object_renaming (struct block *orig_left_context,
   enum { SIMPLE_INDEX, LOWER_BOUND, UPPER_BOUND } slice_state;
 
   if (max_depth <= 0)
-    error ("Could not find renamed symbol");
+    error (_("Could not find renamed symbol"));
 
   /* if orig_left_context is null, then use the currently selected
      block; otherwise we might fail our symbol lookup below.  */
@@ -887,7 +887,7 @@ write_object_renaming (struct block *orig_left_context,
   name[suffix-expr] = '\000';
   sym = lookup_symbol (name, orig_left_context, VAR_DOMAIN, 0, NULL);
   if (sym == NULL)
-    error ("Could not find renamed variable: %s", ada_decode (name));
+    error (_("Could not find renamed variable: %s"), ada_decode (name));
   if (ada_is_object_renaming (sym))
     write_object_renaming (orig_left_context, sym, max_depth-1);
   else
@@ -943,7 +943,7 @@ write_object_renaming (struct block *orig_left_context,
            index_sym =
              lookup_symbol (index_name, NULL, VAR_DOMAIN, 0, NULL);
            if (index_sym == NULL)
-             error ("Could not find %s", index_name);
+             error (_("Could not find %s"), index_name);
            write_var_from_sym (NULL, block_found, sym);
          }
        if (slice_state == SIMPLE_INDEX)
@@ -989,7 +989,7 @@ write_object_renaming (struct block *orig_left_context,
     return;
 
  BadEncoding:
-  error ("Internal error in encoding of renaming declaration: %s",
+  error (_("Internal error in encoding of renaming declaration: %s"),
         SYMBOL_LINKAGE_NAME (renaming));
 }
 
@@ -1021,14 +1021,14 @@ block_lookup (struct block *context, char *raw_name)
   else if (nsyms == 0 || SYMBOL_CLASS (syms[0].sym) != LOC_BLOCK)
     {
       if (context == NULL)
-       error ("No file or function \"%s\".", raw_name);
+       error (_("No file or function \"%s\"."), raw_name);
       else
-       error ("No function \"%s\" in specified context.", raw_name);
+       error (_("No function \"%s\" in specified context."), raw_name);
     }
   else
     {
       if (nsyms > 1)
-       warning ("Function name \"%s\" ambiguous here", raw_name);
+       warning (_("Function name \"%s\" ambiguous here"), raw_name);
       return SYMBOL_BLOCK_VALUE (syms[0].sym);
     }
 }
@@ -1210,7 +1210,7 @@ write_var_or_type (struct block *block, struct stoken name0)
              struct type *type = SYMBOL_TYPE (type_sym);
 
              if (TYPE_CODE (type) == TYPE_CODE_VOID)
-               error ("`%s' matches only void type name(s)", name0.ptr);
+               error (_("`%s' matches only void type name(s)"), name0.ptr);
              else if (ada_is_object_renaming (type_sym))
                {
                  write_object_renaming (block, type_sym, 
@@ -1238,7 +1238,7 @@ write_var_or_type (struct block *block, struct stoken name0)
              else if (tail_index == name_len)
                return type;
              else 
-               error ("Invalid attempt to select from type: \"%s\".", name0.ptr);
+               error (_("Invalid attempt to select from type: \"%s\"."), name0.ptr);
            }
          else if (tail_index == name_len && nsyms == 0)
            {
@@ -1271,7 +1271,7 @@ write_var_or_type (struct block *block, struct stoken name0)
              if (tail_index == name_len
                  && strncmp (encoded_name, "standard__", 
                              sizeof ("standard__") - 1) == 0)
-               error ("No definition of \"%s\" found.", name0.ptr);
+               error (_("No definition of \"%s\" found."), name0.ptr);
 
              tail_index = chop_selector (encoded_name, tail_index);
            } 
@@ -1284,16 +1284,16 @@ write_var_or_type (struct block *block, struct stoken name0)
        }
 
       if (!have_full_symbols () && !have_partial_symbols () && block == NULL)
-       error ("No symbol table is loaded.  Use the \"file\" command.");
+       error (_("No symbol table is loaded.  Use the \"file\" command."));
       if (block == expression_context_block)
-       error ("No definition of \"%s\" in current context.", name0.ptr);
+       error (_("No definition of \"%s\" in current context."), name0.ptr);
       else
-       error ("No definition of \"%s\" in specified context.", name0.ptr);
+       error (_("No definition of \"%s\" in specified context."), name0.ptr);
       
     TryAfterRenaming: ;
     }
 
-  error ("Could not find renamed symbol \"%s\"", name0.ptr);
+  error (_("Could not find renamed symbol \"%s\""), name0.ptr);
 
 }
 
@@ -1327,7 +1327,7 @@ write_name_assoc (struct stoken name)
     }
   else
     if (write_var_or_type (NULL, name) != NULL)
-      error ("Invalid use of type.");
+      error (_("Invalid use of type."));
 }
 
 /* Convert the character literal whose ASCII value would be VAL to the

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 0eb572a..023f984 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -4352,7 +4352,7 @@ is_package_name (const char *name)
      "_ada_" followed by NAME can be found.  */
 
   /* Do a quick check that NAME does not contain "__", since library-level
-     functions names can not contain "__" in them.  */
+     functions names cannot contain "__" in them.  */
   if (strstr (name, "__") != NULL)
     return 0;
 
@@ -6827,7 +6827,7 @@ to_fixed_array_type (struct type *type0, struct value *dval,
          debugging data.  */
       /* Create a fixed version of the array element type.
          We're not providing the address of an element here,
-         and thus the actual object value can not be inspected to do
+         and thus the actual object value cannot be inspected to do
          the conversion.  This should not be a problem, since arrays of
          unconstrained objects are not allowed.  In particular, all
          the elements of an array of a tagged type should all be of
@@ -6855,7 +6855,7 @@ to_fixed_array_type (struct type *type0, struct value *dval,
          debugging data.  */
       /* Create a fixed version of the array element type.
          We're not providing the address of an element here,
-         and thus the actual object value can not be inspected to do
+         and thus the actual object value cannot be inspected to do
          the conversion.  This should not be a problem, since arrays of
          unconstrained objects are not allowed.  In particular, all
          the elements of an array of a tagged type should all be of
@@ -7692,7 +7692,7 @@ aggregate_assign_positional (struct value *container,
   LONGEST ind = longest_to_int (exp->elts[*pos + 1].longconst) + low;
   
   if (ind - 1 == high)
-    warning ("Extra components in aggregate ignored.");
+    warning (_("Extra components in aggregate ignored."));
   if (ind <= high)
     {
       add_component_interval (ind, ind, indices, num_indices, max_indices);
@@ -8145,8 +8145,8 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp,
                                                    nargs, argvec + 1));
 
         default:
-          error (_("Attempt to index or call something other than an \
-array or function"));
+          error (_("Attempt to index or call something other than an "
+                  "array or function"));
         }
 
     case TERNOP_SLICE:
@@ -8239,8 +8239,8 @@ array or function"));
       switch (TYPE_CODE (type))
         {
         default:
-          lim_warning (_("Membership test incompletely implemented; \
-always returns true"));
+          lim_warning (_("Membership test incompletely implemented; "
+                        "always returns true"));
           return value_from_longest (builtin_type_int, (LONGEST) 1);
 
         case TYPE_CODE_RANGE:
@@ -8585,7 +8585,7 @@ always returns true"));
         return
           ada_to_fixed_value (unwrap_value
                               (ada_value_struct_elt
-                               (arg1, &exp->elts[pc + 2].string, "record")));
+                               (arg1, &exp->elts[pc + 2].string, _("record"))));
     case OP_TYPE:
       /* The value is not supposed to be used.  This is here to make it
          easier to accommodate expressions that contain types.  */
@@ -8608,11 +8608,11 @@ always returns true"));
          {
          case OP_NAME:
            error (_("Undefined name, ambiguous name, or renaming used in "
-                  "component association: %s."), &exp->elts[pc+2].string);
+                    "component association: %s."), &exp->elts[pc+2].string);
          case OP_AGGREGATE:
            error (_("Aggregates only allowed on the right of an assignment"));
          default:
-           internal_error (__FILE__, __LINE__, "aggregate apparently mangled");
+           internal_error (__FILE__, __LINE__, _("aggregate apparently mangled"));
          }
 
       ada_forward_operator_length (exp, pc, &oplen, &nargs);

diff --git a/gdb/ada-lex.l b/gdb/ada-lex.l
index f8746ec..156e0b8 100644 (file)
--- a/gdb/ada-lex.l
+++ b/gdb/ada-lex.l
@@ -124,11 +124,11 @@ static int find_dot_all (const char *);
                }
 
 {NUM10}"#"{NUM16}"."{NUM16}"#"{EXP} {
-                   error ("Based real literals not implemented yet.");
+                   error (_("Based real literals not implemented yet."));
                }
 
 {NUM10}"#"{NUM16}"."{NUM16}"#" {
-                   error ("Based real literals not implemented yet.");
+                   error (_("Based real literals not implemented yet."));
                }
 
 <INITIAL>"'"({GRAPHIC}|\")"'" {
@@ -151,7 +151,7 @@ static int find_dot_all (const char *);
                }
 
 \"              {
-                   error ("ill-formed or non-terminated string literal");
+                   error (_("ill-formed or non-terminated string literal"));
                }
 
 
@@ -264,7 +264,7 @@ xor         { return XOR; }
 
        /* CATCH-ALL ERROR CASE */
 
-.              { error ("Invalid character '%s' in expression.", yytext); }
+.              { error (_("Invalid character '%s' in expression."), yytext); }
 %%
 
 #include <ctype.h>
@@ -380,7 +380,7 @@ processInt (const char *base0, const char *num0, const char *exp0)
     {
       base = strtol (base0, (char **) NULL, 10);
       if (base < 2 || base > 16)
-       error ("Invalid base: %d.", base);
+       error (_("Invalid base: %d."), base);
     }
 
   if (exp0 == NULL)
@@ -391,14 +391,14 @@ processInt (const char *base0, const char *num0, const char *exp0)
   errno = 0;
   result = strtoulst (num0, (const char **) &trailer, base);
   if (errno == ERANGE)
-    error ("Integer literal out of range");
+    error (_("Integer literal out of range"));
   if (isxdigit(*trailer))
-    error ("Invalid digit `%c' in based literal", *trailer);
+    error (_("Invalid digit `%c' in based literal"), *trailer);
 
   while (exp > 0)
     {
       if (result > (ULONG_MAX / base))
-       error ("Integer literal out of range");
+       error (_("Integer literal out of range"));
       result *= base;
       exp -= 1;
     }
@@ -652,10 +652,10 @@ processAttribute (const char *str)
        if (k == -1)
          k = i;
        else
-         error ("ambiguous attribute name: `%s'", str);
+         error (_("ambiguous attribute name: `%s'"), str);
       }
   if (k == -1)
-    error ("unrecognized attribute: `%s'", str);
+    error (_("unrecognized attribute: `%s'"), str);
 
   return attributes[k].code;
 }

diff --git a/gdb/ada-typeprint.c b/gdb/ada-typeprint.c
index bd9964b..e3397d7 100644 (file)
--- a/gdb/ada-typeprint.c
+++ b/gdb/ada-typeprint.c
@@ -380,7 +380,7 @@ print_array_type (struct type *type, struct ui_file *stream, int show,
        type = ada_coerce_to_simple_array_type (type);
       if (type == NULL)
         {
-          fprintf_filtered (stream, "<undecipherable array type>");
+          fprintf_filtered (stream, _("<undecipherable array type>"));
           return;
         }
       if (ada_is_simple_array_type (type))
@@ -813,7 +813,7 @@ ada_print_type (struct type *type0, char *varstring, struct ui_file *stream,
          {
            char *name = ada_type_name (type);
            if (!ada_is_range_type_name (name))
-             fprintf_filtered (stream, "<%d-byte integer>",
+             fprintf_filtered (stream, _("<%d-byte integer>"),
                                TYPE_LENGTH (type));
            else
              {
@@ -837,7 +837,7 @@ ada_print_type (struct type *type0, char *varstring, struct ui_file *stream,
          }
        break;
       case TYPE_CODE_FLT:
-       fprintf_filtered (stream, "<%d-byte float>", TYPE_LENGTH (type));
+       fprintf_filtered (stream, _("<%d-byte float>"), TYPE_LENGTH (type));
        break;
       case TYPE_CODE_ENUM:
        if (show < 0)
@@ -850,7 +850,7 @@ ada_print_type (struct type *type0, char *varstring, struct ui_file *stream,
          print_array_type (type, stream, show, level);
        else if (ada_is_bogus_array_descriptor (type))
          fprintf_filtered (stream,
-                           "array (?) of ? (<mal-formed descriptor>)");
+                           _("array (?) of ? (<mal-formed descriptor>)"));
        else
          print_record_type (type, stream, show, level);
        break;