comparison lib-src/etags.c @ 55408:1c425ce93ce9

(GOOD, BAD): Delete macros. Throughout, replace w/ `EXIT_SUCCESS' and `EXIT_FAILURE', respectively. (main): Use `EXIT_SUCCESS' or `EXIT_FAILURE' for return value.

55407:21d7b97dbe73

#ifdef CTAGS
# undef  CTAGS
# define CTAGS TRUE
#else
# define CTAGS FALSE
#endif

/* Exit codes for success and failure.  */
#ifdef VMS
# define	GOOD	1
# define	BAD	0
#else
# define	GOOD	0
# define	BAD	1
#endif

#define streq(s,t)	(assert((s)!=NULL || (t)!=NULL), !strcmp (s, t))
#define strcaseeq(s,t)	(assert((s)!=NULL && (t)!=NULL), !etags_strcasecmp (s, t))
#define strneq(s,t,n)	(assert((s)!=NULL || (t)!=NULL), !strncmp (s, t, n))

{
  printf ("%s (%s %s)\n", (CTAGS) ? "ctags" : "etags", EMACS_NAME, VERSION);
  puts ("Copyright (C) 2002 Free Software Foundation, Inc. and Ken Arnold");
  puts ("This program is distributed under the same terms as Emacs");

  exit (GOOD);
}

static void
print_help (argbuffer)
     argument *argbuffer;

	puts (argbuffer->lang->help);
	help_for_lang = TRUE;
      }

  if (help_for_lang)
    exit (GOOD);

  printf ("Usage: %s [options] [[regex-option ...] file-name] ...\n\
\n\
These are the options accepted by %s.\n", progname, progname);
#ifdef LONG_OPTIONS

  print_language_names ();

  puts ("");
  puts ("Report bugs to [e-mail]");

  exit (GOOD);
}


#ifdef VMS			/* VMS specific functions */

	    fprintf (tagf, "\f\n%s,include\n", *included_files++);
	}

      if (fclose (tagf) == EOF)
	pfatal (tagfile);
      exit (GOOD);
    }

  if (update)
    {
      char cmd[BUFSIZ];

	      continue;		/* the for loop */
	    }
	  sprintf (cmd,
		   "mv %s OTAGS;fgrep -v '\t%s\t' OTAGS >%s;rm OTAGS",
		   tagfile, argbuffer[i].what, tagfile);
	  if (system (cmd) != GOOD)
	    fatal ("failed to execute shell command", (char *)NULL);
	}
      append_to_tagfile = TRUE;
    }

    {
      char cmd[2*BUFSIZ+10];
      sprintf (cmd, "sort -o %.*s %.*s", BUFSIZ, tagfile, BUFSIZ, tagfile);
      exit (system (cmd));
    }
  return GOOD;
}


/*
 * Return a compressor given the file name.  If EXTPTR is non-zero,

void
fatal (s1, s2)
     char *s1, *s2;
{
  error (s1, s2);
  exit (BAD);
}

static void
pfatal (s1)
     char *s1;
{
  perror (s1);
  exit (BAD);
}

static void
suggest_asking_for_help ()
{

	 progname, "--help");
#else
fprintf (stderr, "\tTry `%s %s' for a complete list of options.\n",
	 progname, "-h");
#endif
  exit (BAD);
}

/* Print error message.  `s1' is printf control string, `s2' is arg for it. */
static void
error (s1, s2)

 * End:
 */

/* arch-tag: 8a9b748d-390c-4922-99db-2eeefa921051
   (do not change this comment) */

55408:1c425ce93ce9

#ifdef CTAGS
# undef  CTAGS
# define CTAGS TRUE
#else
# define CTAGS FALSE
#endif

#define streq(s,t)	(assert((s)!=NULL || (t)!=NULL), !strcmp (s, t))
#define strcaseeq(s,t)	(assert((s)!=NULL && (t)!=NULL), !etags_strcasecmp (s, t))
#define strneq(s,t,n)	(assert((s)!=NULL || (t)!=NULL), !strncmp (s, t, n))

{
  printf ("%s (%s %s)\n", (CTAGS) ? "ctags" : "etags", EMACS_NAME, VERSION);
  puts ("Copyright (C) 2002 Free Software Foundation, Inc. and Ken Arnold");
  puts ("This program is distributed under the same terms as Emacs");

  exit (EXIT_SUCCESS);
}

static void
print_help (argbuffer)
     argument *argbuffer;

	puts (argbuffer->lang->help);
	help_for_lang = TRUE;
      }

  if (help_for_lang)
    exit (EXIT_SUCCESS);

  printf ("Usage: %s [options] [[regex-option ...] file-name] ...\n\
\n\
These are the options accepted by %s.\n", progname, progname);
#ifdef LONG_OPTIONS

  print_language_names ();

  puts ("");
  puts ("Report bugs to [e-mail]");

  exit (EXIT_SUCCESS);
}


#ifdef VMS			/* VMS specific functions */

	    fprintf (tagf, "\f\n%s,include\n", *included_files++);
	}

      if (fclose (tagf) == EOF)
	pfatal (tagfile);
      exit (EXIT_SUCCESS);
    }

  if (update)
    {
      char cmd[BUFSIZ];

	      continue;		/* the for loop */
	    }
	  sprintf (cmd,
		   "mv %s OTAGS;fgrep -v '\t%s\t' OTAGS >%s;rm OTAGS",
		   tagfile, argbuffer[i].what, tagfile);
	  if (system (cmd) != EXIT_SUCCESS)
	    fatal ("failed to execute shell command", (char *)NULL);
	}
      append_to_tagfile = TRUE;
    }

    {
      char cmd[2*BUFSIZ+10];
      sprintf (cmd, "sort -o %.*s %.*s", BUFSIZ, tagfile, BUFSIZ, tagfile);
      exit (system (cmd));
    }
  return EXIT_SUCCESS;
}


/*
 * Return a compressor given the file name.  If EXTPTR is non-zero,

void
fatal (s1, s2)
     char *s1, *s2;
{
  error (s1, s2);
  exit (EXIT_FAILURE);
}

static void
pfatal (s1)
     char *s1;
{
  perror (s1);
  exit (EXIT_FAILURE);
}

static void
suggest_asking_for_help ()
{

	 progname, "--help");
#else
fprintf (stderr, "\tTry `%s %s' for a complete list of options.\n",
	 progname, "-h");
#endif
  exit (EXIT_FAILURE);
}

/* Print error message.  `s1' is printf control string, `s2' is arg for it. */
static void
error (s1, s2)

 * End:
 */

/* arch-tag: 8a9b748d-390c-4922-99db-2eeefa921051
   (do not change this comment) */

/* etags.c ends here */