comparison lib-src/etags.c @ 57013:c2ab1ac6a36b

[LONG_OPTIONS]: make it TRUE (ifdef) or FALSE for ease of use.

57012:28b649226666

 *
 * Francesco Potort́ <[e-mail]> has maintained and improved it since 1993.
 *
 */

char pot_etags_version[] = "@(#) pot revision number is 16.56";

#define	TRUE	1
#define	FALSE	0

#ifdef DEBUG

#ifndef _GNU_SOURCE
# define _GNU_SOURCE 1		/* enables some compiler checks on GNU */
#endif

/* WIN32_NATIVE is for Xemacs.
   MSDOS, WINDOWSNT, DOS_NT are for Emacs. */
#ifdef WIN32_NATIVE
# undef MSDOS
# undef  WINDOWSNT

#if !defined (S_ISREG) && defined (S_IFREG)
# define S_ISREG(m)	(((m) & S_IFMT) == S_IFREG)
#endif

#ifdef LONG_OPTIONS
# include <getopt.h>
#else
# define getopt_long(argc,argv,optstr,lopts,lind) getopt (argc, argv, optstr)
  extern char *optarg;
  extern int optind, opterr;

static bool need_filebuf;	/* some regexes are multi-line */
#else
# define need_filebuf FALSE
#endif /* ETAGS_REGEXPS */

#ifdef LONG_OPTIONS
static struct option longopts[] =
{
  { "packages-only",      no_argument,	     &packages_only, 	 TRUE  },
  { "c++",		  no_argument,	     NULL,	     	 'C'   },
  { "declarations",	  no_argument,	     &declarations,  	 TRUE  },

    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
  puts ("You may use unambiguous abbreviations for the long option names.");
#else
  puts ("Long option names do not work with this executable, as it is not\n\
linked with GNU getopt.");
#endif /* LONG_OPTIONS */
  puts ("  A - as file name means read names from stdin (one per line).\n\
Absolute names are stored in the output file as they are.\n\
Relative ones are stored relative to the output file's directory.\n");

  if (!CTAGS)

  optstring = "-";
#ifdef ETAGS_REGEXPS
  optstring = "-r:Rc:";
#endif /* ETAGS_REGEXPS */
#ifndef LONG_OPTIONS
  optstring = optstring + 1;
#endif /* LONG_OPTIONS */
  optstring = concat (optstring,
		      "Cf:Il:o:SVhH",
		      (CTAGS) ? "BxdtTuvw" : "aDi:");

  while ((opt = getopt_long (argc, argv, optstring, longopts, 0)) != EOF)

}

static void
suggest_asking_for_help ()
{

#ifdef LONG_OPTIONS
fprintf (stderr, "\tTry `%s %s' for a complete list of options.\n",
	 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

57013:c2ab1ac6a36b

 *
 * Francesco Potort́ <[e-mail]> has maintained and improved it since 1993.
 *
 */

char pot_etags_version[] = "@(#) pot revision number is 16.58";

#define	TRUE	1
#define	FALSE	0

#ifdef DEBUG

#ifndef _GNU_SOURCE
# define _GNU_SOURCE 1		/* enables some compiler checks on GNU */
#endif

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

/* WIN32_NATIVE is for Xemacs.
   MSDOS, WINDOWSNT, DOS_NT are for Emacs. */
#ifdef WIN32_NATIVE
# undef MSDOS
# undef  WINDOWSNT

#if !defined (S_ISREG) && defined (S_IFREG)
# define S_ISREG(m)	(((m) & S_IFMT) == S_IFREG)
#endif

#if LONG_OPTIONS
# include <getopt.h>
#else
# define getopt_long(argc,argv,optstr,lopts,lind) getopt (argc, argv, optstr)
  extern char *optarg;
  extern int optind, opterr;

static bool need_filebuf;	/* some regexes are multi-line */
#else
# define need_filebuf FALSE
#endif /* ETAGS_REGEXPS */

#if LONG_OPTIONS
static struct option longopts[] =
{
  { "packages-only",      no_argument,	     &packages_only, 	 TRUE  },
  { "c++",		  no_argument,	     NULL,	     	 'C'   },
  { "declarations",	  no_argument,	     &declarations,  	 TRUE  },

    exit (EXIT_SUCCESS);

  printf ("Usage: %s [options] [[regex-option ...] file-name] ...\n\
\n\
These are the options accepted by %s.\n", progname, progname);
  if (LONG_OPTIONS)
    puts ("You may use unambiguous abbreviations for the long option names.");
  else
    puts ("Long option names do not work with this executable, as it is not\n\
linked with GNU getopt.");
  puts ("  A - as file name means read names from stdin (one per line).\n\
Absolute names are stored in the output file as they are.\n\
Relative ones are stored relative to the output file's directory.\n");

  if (!CTAGS)

  optstring = "-";
#ifdef ETAGS_REGEXPS
  optstring = "-r:Rc:";
#endif /* ETAGS_REGEXPS */
  if (LONG_OPTIONS)
    optstring += 1;
  optstring = concat (optstring,
		      "Cf:Il:o:SVhH",
		      (CTAGS) ? "BxdtTuvw" : "aDi:");

  while ((opt = getopt_long (argc, argv, optstring, longopts, 0)) != EOF)

}

static void
suggest_asking_for_help ()
{
  fprintf (stderr, "\tTry `%s %s' for a complete list of options.\n",
	   progname, LONG_OPTIONS ? "--help" : "-h");
  exit (EXIT_FAILURE);
}

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