source.h

Go to the documentation of this file.

/* Continue until the next command to be executed. */
#define DEPENDS_COMMANDS " depends commands"

#include <glob.h>
#include "help/source.h"

static debug_return_t
dbg_cmd_source(char *psz_filename)
{
  if (psz_filename && *psz_filename) {
    FILE *p_source_file;
    char *psz_expanded_file;
        glob_t p;

        glob(psz_filename, 0, NULL, &p);
        if (0 == p.gl_pathc) {
      struct stat stat_buf;
      int ret = stat(psz_filename, &stat_buf);
      if (ret != 0) {
        dbg_errmsg("Can't find file %s:\n\t%s", psz_filename, strerror(errno));
        return debug_cmd_error;
      }
      psz_expanded_file = psz_filename;
    } else if (1 != p.gl_pathc) {
      dbg_errmsg("Expansion of %s doesn't lead to a single filename. \n"
                 "Got %zu matches",
                 psz_filename, (size_t)p.gl_pathv);
      return debug_cmd_error;

    } else {
      psz_expanded_file = p.gl_pathv[0];
    }

    p_source_file = fopen(psz_expanded_file, "r");

    if (p_source_file != NULL) {
      debug_return_t debug_return = debug_readloop;
      char line[2048];
      while (!feof(p_source_file) && debug_return == debug_readloop)
        {
          char *s;
          char *shut_up_gcc_warning = fgets(line, 2048, p_source_file);
          if (feof(p_source_file)) break;
          chomp(shut_up_gcc_warning);
          if ( *(s=stripwhite(line)) ) debug_return=execute_line(s);
        }
      fclose(p_source_file);
    } else
      dbg_errmsg("error reading file %s (expanded to %s):\n\t%s",
                 psz_filename, psz_expanded_file, strerror(errno));

    globfree(&p);
  }  else {
    dbg_errmsg("Expecting a file name");
    return debug_cmd_error;
  }
  return debug_readloop;
}

static void
dbg_cmd_source_init(unsigned int c)
{
  short_command[c].func = &dbg_cmd_source;
  short_command[c].use = _("source *file-glob*");
}


/*
 * Local variables:
 * eval: (c-set-style "gnu")
 * indent-tabs-mode: nil
 * End:
 */