struct command_line *cmd;
if (args == NULL)
- error ("if/while commands require arguments.\n");
+ error (_("if/while commands require arguments."));
cmd = (struct command_line *) xmalloc (sizeof (struct command_line));
cmd->next = NULL;
/* Read in the body of this command. */
if (recurse_read_control_structure (cmd) == invalid_control)
{
- warning ("error reading in control structure\n");
+ warning (_("Error reading in control structure."));
do_cleanups (old_chain);
return NULL;
}
return;
if (++user_call_depth > max_user_call_depth)
- error ("Max user call depth exceeded -- command aborted\n");
+ error (_("Max user call depth exceeded -- command aborted."));
old_chain = make_cleanup (do_restore_user_call_depth, &user_call_depth);
ret = execute_control_command (cmdlines);
if (ret != simple_control && ret != break_control)
{
- warning ("Error in control structure.\n");
+ warning (_("Error in control structure."));
break;
}
cmdlines = cmdlines->next;
}
default:
- warning ("Invalid control type in command structure.");
+ warning (_("Invalid control type in command structure."));
break;
}
if (arg_count >= MAXUSERARGS)
{
- error ("user defined function may only have %d arguments.\n",
+ error (_("user defined function may only have %d arguments."),
MAXUSERARGS);
return old_chain;
}
if (i >= user_args->count)
{
- error ("Missing argument %d in user function.\n", i);
+ error (_("Missing argument %d in user function."), i);
return NULL;
}
len += user_args->a[i].len;
int i = 0;
if (control_level >= 254)
- error ("Control nesting too deep!\n");
+ error (_("Control nesting too deep!"));
/* Set a prompt based on the nesting of the control commands. */
if (instream == stdin || (instream == 0 && deprecated_readline_hook != NULL))
/* Sanity checks. */
if (current_cmd->control_type == simple_control)
- {
- error ("Recursed on a simple control type\n");
- return invalid_control;
- }
+ error (_("Recursed on a simple control type."));
if (current_body > current_cmd->body_count)
- {
- error ("Allocated body is smaller than this command type needs\n");
- return invalid_control;
- }
+ error (_("Allocated body is smaller than this command type needs."));
/* Read lines from the input stream and build control structures. */
while (1)
while (*p)
{
if (!isalnum (*p) && *p != '-' && *p != '_')
- error ("Junk in argument list: \"%s\"", p);
+ error (_("Junk in argument list: \"%s\""), p);
p++;
}
}
else
q = query ("Really redefine built-in command \"%s\"? ", c->name);
if (!q)
- error ("Command \"%s\" not redefined.", c->name);
+ error (_("Command \"%s\" not redefined."), c->name);
}
/* If this new command is a hook, then mark the command which it
hookc = 0;
if (!hookc)
{
- warning ("Your new `%s' command does not hook any existing command.",
+ warning (_("Your new `%s' command does not hook any existing command."),
comname);
if (!query ("Proceed? "))
- error ("Not confirmed.");
+ error (_("Not confirmed."));
}
}
c = lookup_cmd (&tem, cmdlist, "", 0, 1);
if (c->class != class_user)
- error ("Command \"%s\" is built-in.", comname);
+ error (_("Command \"%s\" is built-in."), comname);
sprintf (tmpbuf, "Type documentation for \"%s\".", comname);
doclines = read_command_lines (tmpbuf, from_tty);