int
main(int argc, char **argv)
{
const char *outfile = "ATAGS"; /* output file */
int exit_val; /* exit value */
int step; /* step through args */
int ch; /* getopts char */
setlocale(LC_ALL, "C");
dflag = qflag = tflag = vflag = 0;
while ((ch = getopt(argc, argv, "df:qtv")) != -1)
switch(ch) {
case 'd':
dflag++;
break;
case 'f':
outfile = optarg;
break;
case 'q':
qflag++;
break;
case 't':
tflag++;
break;
case 'v':
vflag++;
break;
case '?':
default:
usage();
}
argv += optind;
argc -= optind;
if (!argc)
usage();
setlocale(LC_COLLATE, "C");
init();
for (exit_val = step = 0; step < argc; ++step)
if (!(inf = fopen(argv[step], "r"))) {
warn("%s", argv[step]);
exit_val = 1;
}
else {
curfile = argv[step];
find_entries(argv[step]);
(void)fclose(inf);
}
if (head) {
if (!(outf = fopen(outfile, "w")))
err(1, "%s", outfile);
put_entries(head);
(void)fclose(outf);
}
exit(exit_val);
}
/*
* pfnote --
* enter a new node in the tree
*/
void
pfnote(const char *name, int ln)
{
NODE *np;
char *fp;
char nbuf[MAXTOKEN];
/*NOSTRICT*/
if (!(np = (NODE *)malloc(sizeof(NODE)))) {
warnx("too many entries to sort");
put_entries(head);
free_tree(head);
/*NOSTRICT*/
if (!(head = np = (NODE *)malloc(sizeof(NODE))))
errx(1, "out of space");
}
if (!xflag && !strcmp(name, "main")) {
if (!(fp = strrchr(curfile, '/')))
fp = curfile;
else
++fp;
(void)snprintf(nbuf, sizeof(nbuf), "M%s", fp);
fp = strrchr(nbuf, '.');
if (fp && !fp[2])
*fp = EOS;
name = nbuf;
}
if (!(np->entry = strdup(name)))
err(1, NULL);
np->file = curfile;
np->lno = ln;
np->left = np->right = 0;
if (!(np->pat = strdup(lbuf)))
err(1, NULL);
if (!head)
head = np;
else
add_node(np, head);
}
int
main(int argc, char **argv)
{
static char *outfile = "tags"; /* output file */
int aflag; /* -a: append to tags */
int uflag; /* -u: update tags */
int exit_val; /* exit value */
int step; /* step through args */
int ch; /* getopts char */
static char cmd[100]; /* too ugly to explain */
#ifdef __ORCAC203__
aflag = NO; uflag = NO;
#else
aflag = uflag = NO;
#endif
while ((ch = getopt(argc, argv, "BFadf:tuwvx")) != EOF)
switch(ch) {
case 'B':
searchar = '?';
break;
case 'F':
searchar = '/';
break;
case 'a':
aflag++;
break;
case 'd':
dflag++;
break;
case 'f':
outfile = optarg;
break;
case 't':
tflag++;
break;
case 'u':
uflag++;
break;
case 'w':
wflag++;
break;
case 'v':
vflag++;
case 'x':
xflag++;
break;
case '?':
default:
goto usage;
}
argv += optind;
argc -= optind;
if (!argc) {
usage: (void)fprintf(stderr,
"usage: ctags [-BFadtuwvx] [-f tagsfile] file ...\n");
exit(1);
}
init();
#ifdef __ORCAC203__
for (exit_val = 0, step = 0; step < argc; ++step)
#else
for (exit_val = step = 0; step < argc; ++step)
#endif
if (!(inf = fopen(argv[step], "r"))) {
warn("%s", argv[step]);
exit_val = 1;
}
else {
curfile = argv[step];
find_entries(argv[step]);
(void)fclose(inf);
}
if (head)
if (xflag)
put_entries(head);
else {
if (uflag) {
for (step = 0; step < argc; step++) {
(void)sprintf(cmd,
"mv %s OTAGS; fgrep -v '\t%s\t' OTAGS >%s; rm OTAGS",
outfile, argv[step],
outfile);
system(cmd);
}
++aflag;
}
if (!(outf = fopen(outfile, aflag ? "a" : "w")))
err(exit_val, "%s", outfile);
put_entries(head);
(void)fclose(outf);
if (uflag) {
(void)sprintf(cmd, "sort -o %s %s",
outfile, outfile);
system(cmd);
}
}
exit(exit_val);
}
int
main(int argc, char **argv)
{
static const char *outfile = "tags"; /* output file */
int aflag; /* -a: append to tags */
int uflag; /* -u: update tags */
int exit_val; /* exit value */
int step; /* step through args */
int ch; /* getopts char */
setlocale(LC_ALL, "");
aflag = uflag = NO;
tflag = YES;
while ((ch = getopt(argc, argv, "BFTadf:tuwvx")) != -1)
switch(ch) {
case 'B':
searchar = '?';
break;
case 'F':
searchar = '/';
break;
case 'T':
tflag = NO;
break;
case 'a':
aflag++;
break;
case 'd':
dflag++;
break;
case 'f':
outfile = optarg;
break;
case 't':
tflag = YES;
break;
case 'u':
uflag++;
break;
case 'w':
wflag++;
break;
case 'v':
vflag++;
case 'x':
xflag++;
break;
case '?':
default:
usage();
}
argv += optind;
argc -= optind;
if (!argc)
usage();
if (!xflag)
setlocale(LC_COLLATE, "C");
init();
for (exit_val = step = 0; step < argc; ++step)
if (!(inf = fopen(argv[step], "r"))) {
warn("%s", argv[step]);
exit_val = 1;
}
else {
curfile = argv[step];
find_entries(argv[step]);
(void)fclose(inf);
}
if (head) {
if (xflag)
put_entries(head);
else {
if (uflag) {
FILE *oldf;
regex_t *regx;
if ((oldf = fopen(outfile, "r")) == NULL)
err(1, "opening %s", outfile);
if (unlink(outfile))
err(1, "unlinking %s", outfile);
if ((outf = fopen(outfile, "w")) == NULL)
err(1, "recreating %s", outfile);
if ((regx = calloc(argc, sizeof(regex_t))) == NULL)
err(1, "RE alloc");
for (step = 0; step < argc; step++) {
(void)strcpy(lbuf, "\t");
(void)strlcat(lbuf, argv[step], LINE_MAX);
(void)strlcat(lbuf, "\t", LINE_MAX);
if (regcomp(regx + step, lbuf,
REG_NOSPEC))
warn("RE compilation failed");
}
nextline:
while (fgets(lbuf, LINE_MAX, oldf)) {
for (step = 0; step < argc; step++)
if (regexec(regx + step,
lbuf, 0, NULL, 0) == 0)
goto nextline;
fputs(lbuf, outf);
}
for (step = 0; step < argc; step++)
regfree(regx + step);
free(regx);
fclose(oldf);
fclose(outf);
++aflag;
}
if (!(outf = fopen(outfile, aflag ? "a" : "w")))
err(1, "%s", outfile);
put_entries(head);
(void)fclose(outf);
if (uflag) {
pid_t pid;
if ((pid = fork()) == -1)
err(1, "fork failed");
else if (pid == 0) {
execlp("sort", "sort", "-o", outfile,
outfile, NULL);
err(1, "exec of sort failed");
}
/* Just assume the sort went OK. The old code
did not do any checks either. */
(void)wait(NULL);
}
}
}
exit(exit_val);
}
int
main(int argc, char *argv[])
{
static char *outfile = "tags"; /* output file */
int aflag; /* -a: append to tags */
int uflag; /* -u: update tags */
int exit_val; /* exit value */
int step; /* step through args */
int ch; /* getopts char */
if (pledge("stdio rpath wpath cpath", NULL) == -1)
err(1, "pledge");
aflag = uflag = NO;
while ((ch = getopt(argc, argv, "BFadf:tuwvx")) != -1)
switch(ch) {
case 'B':
searchar = '?';
break;
case 'F':
searchar = '/';
break;
case 'a':
aflag = 1;
break;
case 'd':
dflag = 1;
break;
case 'f':
outfile = optarg;
break;
case 't':
/* backwards compatibility */
break;
case 'u':
uflag = 1;
break;
case 'w':
wflag = 1;
break;
case 'v':
vflag = 1;
case 'x':
xflag = 1;
break;
case '?':
default:
goto usage;
}
argv += optind;
argc -= optind;
if (!argc) {
usage: (void)fprintf(stderr,
"usage: ctags [-aBdFuvwx] [-f tagsfile] file ...\n");
exit(1);
}
init();
if (uflag && !vflag && !xflag)
preload_entries(outfile, argc, argv);
for (exit_val = step = 0; step < argc; ++step)
if (!(inf = fopen(argv[step], "r"))) {
warn("%s", argv[step]);
exit_val = 1;
}
else {
curfile = argv[step];
find_entries(argv[step]);
(void)fclose(inf);
}
if (head) {
if (xflag)
put_entries(head);
else {
if (!(outf = fopen(outfile, aflag ? "a" : "w")))
err(exit_val, "%s", outfile);
put_entries(head);
(void)fclose(outf);
}
}
exit(exit_val);
}
