scallop 0.0.2

/* error.c -- Functions for handling errors. */

/* Copyright (C) 1993-2021 Free Software Foundation, Inc.

   This file is part of GNU Bash, the Bourne Again SHell.

   Bash is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation, either version 3 of the License, or
   (at your option) any later version.

   Bash is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with Bash.  If not, see <http://www.gnu.org/licenses/>.
*/

#include "config.h"

#include "bashtypes.h"
#include <fcntl.h>

#if defined (HAVE_UNISTD_H)
#  include <unistd.h>
#endif

#if defined (PREFER_STDARG)
#  include <stdarg.h>
#else
#  include <varargs.h>
#endif

#include <stdio.h>

#include <errno.h>
#if !defined (errno)
extern int errno;
#endif /* !errno */

#include "bashansi.h"
#include "bashintl.h"

#include "shell.h"
#include "execute_cmd.h"
#include "flags.h"
#include "input.h"

#if defined (HISTORY)
#  include "bashhist.h"
#endif

/* Shared memory buffer used to inject errors. */
void *SHM_BUF;

extern int executing_line_number PARAMS((void));

#if defined (JOB_CONTROL)
extern pid_t shell_pgrp;
extern int give_terminal_to PARAMS((pid_t, int));
#endif /* JOB_CONTROL */

#if defined (ARRAY_VARS)
extern const char * const bash_badsub_errmsg;
#endif

static void error_prolog PARAMS((int, char *));

/* The current maintainer of the shell.  You change this in the
   Makefile. */
#if !defined (MAINTAINER)
#define MAINTAINER "bash-maintainers@gnu.org"
#endif

const char * const the_current_maintainer = MAINTAINER;

int gnu_error_format = 0;

static void
error_prolog (print_lineno, buf)
     int print_lineno;
     char *buf;
{
  char *ename;
  int line;

  ename = get_name_for_error ();
  line = (print_lineno && interactive_shell == 0) ? executing_line_number () : -1;

  if (line > 0)
    snprintf (buf, MAX_ERROR_LEN, "%s:%s%d: ", ename, gnu_error_format ? "" : _(" line "), line);
  else
    snprintf (buf, MAX_ERROR_LEN, "%s: ", ename);
}

/* Return the name of the shell or the shell script for error reporting. */
char *
get_name_for_error ()
{
  char *name;
#if defined (ARRAY_VARS)
  SHELL_VAR *bash_source_v;
  ARRAY *bash_source_a;
#endif

  name = (char *)NULL;
  if (interactive_shell == 0)
    {
#if defined (ARRAY_VARS)
      bash_source_v = find_variable ("BASH_SOURCE");
      if (bash_source_v && array_p (bash_source_v) &&
	  (bash_source_a = array_cell (bash_source_v)))
	name = array_reference (bash_source_a, 0);
      if (name == 0 || *name == '\0')	/* XXX - was just name == 0 */
#endif
	name = dollar_vars[0];
    }
  if (name == 0 && shell_name && *shell_name)
    name = base_pathname (shell_name);
  if (name == 0)
#if defined (PROGRAM)
    name = PROGRAM;
#else
    name = "bash";
#endif

  return (name);
}

/* Report an error having to do with FILENAME.  This does not use
   sys_error so the filename is not interpreted as a printf-style
   format string. */
void
file_error (filename)
     const char *filename;
{
  report_error ("%s: %s", filename, strerror (errno));
}

void
#if defined (PREFER_STDARG)
programming_error (const char *format, ...)
#else
programming_error (format, va_alist)
     const char *format;
     va_dcl
#endif
{
  va_list args;
  char buf[MAX_ERROR_LEN] = "";
  char *h;

#if defined (JOB_CONTROL)
  give_terminal_to (shell_pgrp, 0);
#endif /* JOB_CONTROL */

  SH_VA_START (args, format);
  vsnprintf(buf + strlen(buf), MAX_ERROR_LEN - strlen(buf), format, args);
  va_end (args);

#if defined (BUILD_LIBRARY)
  scallop_error(buf);
#else
  fprintf (stderr, "%s\n", buf);

#if defined (HISTORY)
  if (remember_on_history)
    {
      h = last_history_line ();
      fprintf (stderr, _("last command: %s\n"), h ? h : "(null)");
    }
#endif

#if 0
  fprintf (stderr, "Report this to %s\n", the_current_maintainer);
#endif

  fprintf (stderr, _("Aborting..."));
  fflush (stderr);
#endif /* BUILD_LIBRARY */

  abort ();
}

/* Print an error message and, if `set -e' has been executed, exit the
   shell.  Used in this file by file_error and programming_error.  Used
   outside this file mostly to report substitution and expansion errors,
   and for bad invocation options. */
void
#if defined (PREFER_STDARG)
report_error (const char *format, ...)
#else
report_error (format, va_alist)
     const char *format;
     va_dcl
#endif
{
  va_list args;
  char buf[MAX_ERROR_LEN] = "";

  error_prolog (1, &buf[0]);

  SH_VA_START (args, format);
  vsnprintf(buf + strlen(buf), MAX_ERROR_LEN - strlen(buf), format, args);
  va_end (args);

#if defined (BUILD_LIBRARY)
  scallop_error(buf);
#else
  fprintf (stderr, "%s\n", buf);
#endif

  if (exit_immediately_on_error)
    {
      if (last_command_exit_value == 0)
	last_command_exit_value = EXECUTION_FAILURE;
      exit_shell (last_command_exit_value);
    }
}

void
#if defined (PREFER_STDARG)
fatal_error (const char *format, ...)
#else
fatal_error (format, va_alist)
     const char *format;
     va_dcl
#endif
{
  va_list args;
  char buf[MAX_ERROR_LEN] = "";

  error_prolog (0, &buf[0]);

  SH_VA_START (args, format);
  vsnprintf(buf + strlen(buf), MAX_ERROR_LEN - strlen(buf), format, args);
  va_end (args);

#if defined (BUILD_LIBRARY)
  scallop_error(buf);
#else
  fprintf (stderr, "%s\n", buf);
#endif

  sh_exit (2);
}

void
#if defined (PREFER_STDARG)
internal_error (const char *format, ...)
#else
internal_error (format, va_alist)
     const char *format;
     va_dcl
#endif
{
  va_list args;
  char buf[MAX_ERROR_LEN] = "";

  error_prolog (1, &buf[0]);

  SH_VA_START (args, format);
  vsnprintf(buf + strlen(buf), MAX_ERROR_LEN - strlen(buf), format, args);
  va_end (args);

#if defined (BUILD_LIBRARY)
  scallop_error(buf);
#else
  fprintf (stderr, "%s\n", buf);
#endif
}

void
#if defined (PREFER_STDARG)
internal_warning (const char *format, ...)
#else
internal_warning (format, va_alist)
     const char *format;
     va_dcl
#endif
{
  va_list args;
  char buf[MAX_ERROR_LEN] = "";

  error_prolog (1, &buf[0]);
#if !defined (BUILD_LIBRARY)
  fprintf (stderr, _("warning: "));
#endif

  SH_VA_START (args, format);
  vsnprintf(buf + strlen(buf), MAX_ERROR_LEN - strlen(buf), format, args);
  va_end (args);

#if defined (BUILD_LIBRARY)
  scallop_warning(buf);
#else
  fprintf (stderr, "%s\n", buf);
#endif
}

void
#if defined (PREFER_STDARG)
internal_inform (const char *format, ...)
#else
internal_inform (format, va_alist)
     const char *format;
     va_dcl
#endif
{
  va_list args;
  char buf[MAX_ERROR_LEN] = "";

  error_prolog (1, &buf[0]);
  /* TRANSLATORS: this is a prefix for informational messages. */
#if !defined (BUILD_LIBRARY)
  fprintf (stderr, _("INFORM: "));
#endif

  SH_VA_START (args, format);
  vsnprintf(buf + strlen(buf), MAX_ERROR_LEN - strlen(buf), format, args);
  va_end (args);

#if defined (BUILD_LIBRARY)
  scallop_warning(buf);
#else
  fprintf (stderr, "%s\n", buf);
#endif
}

void
#if defined (PREFER_STDARG)
internal_debug (const char *format, ...)
#else
internal_debug (format, va_alist)
     const char *format;
     va_dcl
#endif
{
#ifdef DEBUG
  va_list args;

  error_prolog (1);
  fprintf (stderr, _("DEBUG warning: "));

  SH_VA_START (args, format);

  vfprintf (stderr, format, args);
  fprintf (stderr, "\n");

  va_end (args);
#else
  return;
#endif
}

void
#if defined (PREFER_STDARG)
sys_error (const char *format, ...)
#else
sys_error (format, va_alist)
     const char *format;
     va_dcl
#endif
{
  int e;
  va_list args;
  char buf[MAX_ERROR_LEN] = "";

  e = errno;
  error_prolog (0, &buf[0]);

  SH_VA_START (args, format);
  vsnprintf(buf + strlen(buf), MAX_ERROR_LEN - strlen(buf), format, args);
  va_end (args);
  snprintf(buf + strlen(buf), MAX_ERROR_LEN - strlen(buf), ": %s", strerror (e));

#if defined (BUILD_LIBRARY)
  scallop_warning(buf);
#else
  fprintf (stderr, "%s\n", buf);
#endif
}

/* An error from the parser takes the general form

	shell_name: input file name: line number: message

   The input file name and line number are omitted if the shell is
   currently interactive.  If the shell is not currently interactive,
   the input file name is inserted only if it is different from the
   shell name. */
void
#if defined (PREFER_STDARG)
parser_error (int lineno, const char *format, ...)
#else
parser_error (lineno, format, va_alist)
     int lineno;
     const char *format;
     va_dcl
#endif
{
  va_list args;
  char buf[MAX_ERROR_LEN] = "";
  char *ename, *iname;

  ename = get_name_for_error ();
  iname = yy_input_name ();

  if (interactive)
    snprintf (buf, MAX_ERROR_LEN, "%s: ", ename);
  else if (interactive_shell)
    snprintf (buf, MAX_ERROR_LEN, "%s: %s:%s%d: ", ename, iname, gnu_error_format ? "" : _(" line "), lineno);
  else if (STREQ (ename, iname))
    snprintf (buf, MAX_ERROR_LEN, "%s:%s%d: ", ename, gnu_error_format ? "" : _(" line "), lineno);
  else
    snprintf (buf, MAX_ERROR_LEN, "%s: %s:%s%d: ", ename, iname, gnu_error_format ? "" : _(" line "), lineno);

  SH_VA_START (args, format);
  vsnprintf(buf + strlen(buf), MAX_ERROR_LEN - strlen(buf), format, args);
  va_end (args);

#if defined (BUILD_LIBRARY)
  scallop_error(buf);
#else
  fprintf (stderr, "%s\n", buf);
#endif

  if (exit_immediately_on_error)
    exit_shell (last_command_exit_value = 2);
}

#ifdef DEBUG
/* This assumes ASCII and is suitable only for debugging */
char *
strescape (str)
     const char *str;
{
  char *r, *result;
  unsigned char *s;

  r = result = (char *)xmalloc (strlen (str) * 2 + 1);

  for (s = (unsigned char *)str; s && *s; s++)
    {
      if (*s < ' ')
	{
	  *r++ = '^';
	  *r++ = *s+64;
	}
      else if (*s == 127)
	{
	  *r++ = '^';
	  *r++ = '?';
	}
     else
	*r++ = *s;
    }

  *r = '\0';
  return result;
}

void
#if defined (PREFER_STDARG)
itrace (const char *format, ...)
#else
itrace (format, va_alist)
     const char *format;
     va_dcl
#endif
{
  va_list args;

  fprintf(stderr, "TRACE: pid %ld: ", (long)getpid());

  SH_VA_START (args, format);

  vfprintf (stderr, format, args);
  fprintf (stderr, "\n");

  va_end (args);

  fflush(stderr);
}

/* A trace function for silent debugging -- doesn't require a control
   terminal. */
void
#if defined (PREFER_STDARG)
trace (const char *format, ...)
#else
trace (format, va_alist)
     const char *format;
     va_dcl
#endif
{
  va_list args;
  static FILE *tracefp = (FILE *)NULL;

  if (tracefp == NULL)
    tracefp = fopen("/tmp/bash-trace.log", "a+");

  if (tracefp == NULL)
    tracefp = stderr;
  else
    fcntl (fileno (tracefp), F_SETFD, 1);     /* close-on-exec */

  fprintf(tracefp, "TRACE: pid %ld: ", (long)getpid());

  SH_VA_START (args, format);

  vfprintf (tracefp, format, args);
  fprintf (tracefp, "\n");

  va_end (args);

  fflush(tracefp);
}

#endif /* DEBUG */

/* **************************************************************** */
/*								    */
/*  		    Common error reporting			    */
/*								    */
/* **************************************************************** */


static const char * const cmd_error_table[] = {
	N_("unknown command error"),	/* CMDERR_DEFAULT */
	N_("bad command type"),		/* CMDERR_BADTYPE */
	N_("bad connector"),		/* CMDERR_BADCONN */
	N_("bad jump"),			/* CMDERR_BADJUMP */
	0
};

void
command_error (func, code, e, flags)
     const char *func;
     int code, e, flags;	/* flags currently unused */
{
  if (code > CMDERR_LAST)
    code = CMDERR_DEFAULT;

  programming_error ("%s: %s: %d", func, _(cmd_error_table[code]), e);
}

char *
command_errstr (code)
     int code;
{
  if (code > CMDERR_LAST)
    code = CMDERR_DEFAULT;

  return (_(cmd_error_table[code]));
}

#ifdef ARRAY_VARS
void
err_badarraysub (s)
     const char *s;
{
  report_error ("%s: %s", s, _(bash_badsub_errmsg));
}
#endif

void
err_unboundvar (s)
     const char *s;
{
  report_error (_("%s: unbound variable"), s);
}

void
err_readonly (s)
     const char *s;
{
  report_error (_("%s: readonly variable"), s);
}