comparison lib-src/etags.c @ 16373:d50369f4bb41

* etags.c (print_version): Print copyright info. * etags.c (print_help): Print the bug reporting address. (main): Use return as the last instruction, instead of exit. * etags.c (main): Don't open the tags file in cxref mode.

16372:e311d5372d8c

 *	Regexp tags by Tom Tromey.
 *
 *	Francesco Potorti` ([e-mail]) is the current maintainer.
 */

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

#define	TRUE	1
#define	FALSE	0

#ifndef DEBUG

# define VERSION "19"
#endif
void
print_version ()
{
  printf ("%s for Emacs version %s\n", (CTAGS) ? "ctags" : "etags", VERSION);

  exit (GOOD);
}

void

-h, --help\n\
        Print this help message.");

  print_language_names ();

  exit (GOOD);
}


enum argument_type

  /* If CTAGS, we are here.  process_file did not write the tags yet,
     because we want them ordered.  Let's do it now. */
  if (cxref_style)
    {
      tagf = fopen (tagfile, append_to_tagfile ? "a" : "w");
      if (tagf == NULL)
	pfatal (tagfile);
      put_entries (head);
      exit (GOOD);
    }

  if (update)

    {
      char cmd[BUFSIZ];
      sprintf (cmd, "sort %s -o %s", tagfile, tagfile);
      exit (system (cmd));
    }
  exit (GOOD);
}


/*
 * Return a Lang_function given the name.

	{
	  if (p > buffer && p[-1] == '\r')
	    {
	      *--p = '\0';
#ifdef DOS_NT
	      /* Assume CRLF->LF translation will be performed by Emacs
		 when loading this file, so CRs won't appear in the buffer.
		 It would be cleaner to compensate within Emacs;
		 however, Emacs does not know how many CRs were deleted
		 before any given point in the file.  */
	      chars_deleted = 1;
#else
	      chars_deleted = 2;
#endif
	    }

16373:d50369f4bb41

 *	Regexp tags by Tom Tromey.
 *
 *	Francesco Potorti` ([e-mail]) is the current maintainer.
 */

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

#define	TRUE	1
#define	FALSE	0

#ifndef DEBUG

# define VERSION "19"
#endif
void
print_version ()
{
  printf ("%s (GNU Emacs %s)\n", (CTAGS) ? "ctags" : "etags", VERSION);
  puts ("Copyright (C) 1996 Free Software Foundation, Inc. and Ken Arnold");
  puts ("This program is distributed under the same terms as Emacs");

  exit (GOOD);
}

void

-h, --help\n\
        Print this help message.");

  print_language_names ();

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

  exit (GOOD);
}


enum argument_type

  /* If CTAGS, we are here.  process_file did not write the tags yet,
     because we want them ordered.  Let's do it now. */
  if (cxref_style)
    {
      put_entries (head);
      exit (GOOD);
    }

  if (update)

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


/*
 * Return a Lang_function given the name.

	{
	  if (p > buffer && p[-1] == '\r')
	    {
	      *--p = '\0';
#ifdef DOS_NT
	     /* Assume CRLF->LF translation will be performed by Emacs
		when loading this file, so CRs won't appear in the buffer.
		It would be cleaner to compensate within Emacs;
		however, Emacs does not know how many CRs were deleted
		before any given point in the file.  */
	      chars_deleted = 1;
#else
	      chars_deleted = 2;
#endif
	    }