#include "global.h"
#include "build.h"
#include "vp.h"
#include "version.h"
#include "scanner.h"
#include <stdlib.h>
#if defined(USE_NCURSES) && !defined(RENAMED_NCURSES)
#include <ncurses.h>
#else
#include <curses.h>
#endif
#include <sys/types.h>
#include <sys/stat.h>
#define EDITOR "vi"
#define HOME "/"
#define SHELL "sh"
#define LINEFLAG "+%s"
#define TMPDIR "/tmp"
#ifndef DFLT_INCDIR
#define DFLT_INCDIR "/usr/include"
#endif
static char const rcsid[] = "$Id: main.c,v 1.4 2004/07/09 21:34:45 nicolai Exp $";
char dichar1[] = " teisaprnl(of)=c";
char dichar2[] = " tnerpla";
char dicode1[256];
char dicode2[256];
char *editor, *shell, *lineflag;
char *home;
BOOL lineflagafterfile;
char *argv0;
BOOL compress = YES;
BOOL dbtruncated;
int dispcomponents = 1;
#if CCS
BOOL displayversion;
#endif
BOOL editallprompt = YES;
int fileargc;
char **fileargv;
int fileversion;
BOOL incurses = NO;
BOOL invertedindex;
BOOL isuptodate;
BOOL kernelmode;
BOOL linemode = NO;
BOOL verbosemode = NO;
BOOL recurse_dir = NO;
char *namefile;
BOOL ogs;
char *prependpath;
FILE *refsfound;
#if 0
BOOL select_large = NO;
#endif
char temp1[PATHLEN + 1];
char temp2[PATHLEN + 1];
long totalterms;
BOOL trun_syms;
char tempstring[8192];
char *tmpdir;
static BOOL onesearch;
static char *reflines;
static void initcompress(void);
static void longusage(void);
static void skiplist(FILE *oldrefs);
static void usage(void);
#ifdef HAVE_FIXKEYPAD
void fixkeypad();
#endif
int
main(int argc, char **argv)
{
FILE *names;
int oldnum;
char path[PATHLEN + 1];
FILE *oldrefs;
char *s;
int c, i;
pid_t pid;
struct stat stat_buf;
yyin = stdin;
yyout = stdout;
argv0 = argv[0];
while (--argc > 0 && (*++argv)[0] == '-') {
if (strequal(argv[0], "--help")
|| strequal(argv[0], "-h")) {
longusage();
myexit(0);
}
if (strequal(argv[0], "--version")
|| strequal(argv[0], "-V")) {
#if CCS
displayversion = YES;
#else
fprintf(stderr, "%s: version %d%s\n", argv0,
FILEVERSION, FIXVERSION);
myexit(0);
#endif
}
for (s = argv[0] + 1; *s != '\0'; s++) {
if (isdigit((unsigned char)*s)) {
field = *s - '0';
if (field > 8) {
field = 8;
}
if (*++s == '\0' && --argc > 0) {
s = *++argv;
}
if (strlen(s) > PATLEN) {
(void) fprintf(stderr, "cscope: pattern too long, cannot be > %d characters\n", PATLEN);
myexit(1);
}
(void) strcpy(pattern, s);
goto nextarg;
}
switch (*s) {
case '-':
--argc;
++argv;
goto lastarg;
case 'b':
buildonly = YES;
linemode = YES;
break;
case 'c':
compress = NO;
break;
case 'C':
caseless = YES;
egrepcaseless(caseless);
break;
case 'd':
isuptodate = YES;
break;
case 'e':
editallprompt = NO;
break;
case 'k':
kernelmode = YES;
break;
case 'L':
onesearch = YES;
case 'l':
linemode = YES;
break;
case 'v':
verbosemode = YES;
break;
case 'o':
ogs = YES;
break;
case 'q':
invertedindex = YES;
break;
case 'T':
trun_syms = YES;
break;
case 'u':
unconditional = YES;
break;
case 'U':
fileschanged = YES;
break;
case 'R':
recurse_dir = YES;
break;
case 'f':
case 'F':
case 'i':
case 'I':
case 'p':
case 'P':
case 's':
case 'S':
c = *s;
if (*++s == '\0' && --argc > 0) {
s = *++argv;
}
if (*s == '\0') {
(void) fprintf(stderr, "%s: -%c option: missing or empty value\n",
argv0, c);
goto usage;
}
switch (c) {
case 'f':
reffile = s;
(void) strcpy(path, s);
#ifdef SHORT_NAMES_ONLY
s = mybasename(path);
if (strlen(s) > 11) {
s[11] = '\0';
}
#endif
s = path + strlen(path);
(void) strcpy(s, ".in");
invname = stralloc(path);
(void) strcpy(s, ".po");
invpost = stralloc(path);
break;
case 'F':
reflines = s;
break;
case 'i':
namefile = s;
break;
case 'I':
includedir(s);
break;
case 'p':
if (*s < '0' || *s > '9' ) {
(void) fprintf(stderr, "%s: -p option: missing or invalid numeric value\n",
argv0);
goto usage;
}
dispcomponents = atoi(s);
break;
case 'P':
prependpath = s;
break;
case 's':
case 'S':
sourcedir(s);
break;
}
goto nextarg;
#if 0
case 't':
select_large = YES;
break;
#endif
default:
(void) fprintf(stderr, "%s: unknown option: -%c\n", argv0,
*s);
usage:
(void) usage();
(void) fprintf(stderr, "Try the -h option for more information.\n");
myexit(1);
}
}
nextarg: ;
}
lastarg:
editor = mygetenv("EDITOR", EDITOR);
editor = mygetenv("VIEWER", editor);
editor = mygetenv("CSCOPE_EDITOR", editor);
home = mygetenv("HOME", HOME);
shell = mygetenv("SHELL", SHELL);
lineflag = mygetenv("CSCOPE_LINEFLAG", LINEFLAG);
lineflagafterfile = getenv("CSCOPE_LINEFLAG_AFTER_FILE")?1:0;
tmpdir = mygetenv("TMPDIR", TMPDIR);
if (namefile && strcmp(namefile, "-") == 0 && !buildonly)
{
fprintf (stderr, "cscope: Must use -b if file list comes from stdin\n");
myexit(1);
}
if (lstat (tmpdir, &stat_buf))
{
fprintf (stderr, "cscope: Temporary directory %s does not exist or cannot be accessed\n", tmpdir);
fprintf (stderr, "cscope: Please create the directory or set the environment variable\ncscope: TMPDIR to a valid directory\n");
myexit(1);
}
pid = getpid();
(void) sprintf(temp1, "%s/cscope%d.1", tmpdir, pid);
(void) sprintf(temp2, "%s/cscope%d.2", tmpdir, pid);
if (signal(SIGINT, SIG_IGN) != SIG_IGN) {
(void) signal(SIGINT, myexit);
(void) signal(SIGQUIT, myexit);
}
(void) signal(SIGHUP, myexit);
if (reffile[0] != '/' && access(".", WRITE) != 0) {
(void) sprintf(path, "%s/%s", home, reffile);
if (isuptodate == NO || access(path, READ) == 0) {
reffile = stralloc(path);
(void) sprintf(path, "%s/%s", home, invname);
invname = stralloc(path);
(void) sprintf(path, "%s/%s", home, invpost);
invpost = stralloc(path);
}
}
if (linemode == NO)
{
(void) signal(SIGINT, SIG_IGN);
(void) signal(SIGPIPE, SIG_IGN);
(void) initscr();
entercurses();
#if TERMINFO
(void) keypad(stdscr, TRUE);
#ifdef HAVE_FIXKEYPAD
fixkeypad();
#endif
#endif
#if UNIXPC
standend();
#endif
dispinit();
setfield();
postmsg("");
display();
}
if (isuptodate == YES) {
if ((oldrefs = vpfopen(reffile, "rb")) == NULL) {
posterr("cscope: cannot open file %s\n", reffile);
myexit(1);
}
if (fscanf(oldrefs, "cscope %d %*s", &fileversion) != 1) {
posterr("cscope: cannot read file version from file %s\n", reffile);
myexit(1);
}
if (fileversion >= 8) {
compress = YES;
invertedindex = NO;
for (;;) {
(void) getc(oldrefs);
if ((c = getc(oldrefs)) != '-') {
(void) ungetc(c, oldrefs);
break;
}
switch (c = getc(oldrefs)) {
case 'c':
compress = NO;
break;
case 'q':
invertedindex = YES;
(void) fscanf(oldrefs, "%ld", &totalterms);
break;
case 'T':
dbtruncated = YES;
trun_syms = YES;
break;
}
}
initcompress();
seek_to_trailer(oldrefs);
}
skiplist(oldrefs);
skiplist(oldrefs);
if (fscanf(oldrefs, "%d", &nsrcfiles) != 1) {
posterr("cscope: cannot read source file size from file %s\n", reffile);
myexit(1);
}
srcfiles = mymalloc(nsrcfiles * sizeof(char *));
if (fileversion >= 9) {
if (fscanf(oldrefs, "%d", &oldnum) != 1) {
posterr("cscope: cannot read string space size from file %s\n", reffile);
myexit(1);
}
s = (char *)mymalloc((unsigned) oldnum);
(void) getc(oldrefs);
if (fread(s, oldnum, 1, oldrefs) != 1) {
posterr("cscope: cannot read source file names from file %s\n", reffile);
myexit(1);
}
for (i = 0; i < nsrcfiles; ++i) {
srcfiles[i] = s;
for (++s; *s != '\n'; ++s) {
;
}
*s = '\0';
++s;
}
if ((namefile != NULL && (names = vpfopen(namefile, "r")) != NULL)
|| (names = vpfopen(NAMEFILE, "r")) != NULL) {
while (fscanf(names, "%s", path) == 1 && *path == '-') {
i = path[1];
s = path + 2;
if (*s == '\0') {
(void) fscanf(names, "%s", path);
s = path;
}
switch (i) {
case 'p':
if (*s < '0' || *s > '9') {
posterr("cscope: -p option in file %s: missing or invalid numeric value\n", namefile);
}
dispcomponents = atoi(s);
}
}
(void) fclose(names);
}
}
else {
for (i = 0; i < nsrcfiles; ++i) {
if (fscanf(oldrefs, "%s", path) != 1) {
posterr("cscope: cannot read source file name from file %s\n", reffile);
myexit(1);
}
srcfiles[i] = stralloc(path);
}
}
(void) fclose(oldrefs);
}
else {
fileargc = argc;
fileargv = argv;
if ((s = getenv("SOURCEDIRS")) != NULL) {
sourcedir(s);
}
srcfiles = mymalloc(msrcfiles * sizeof(char *));
makefilelist();
if (nsrcfiles == 0) {
posterr( "cscope: no source files found\n");
myexit(1);
}
if ((s = getenv("INCLUDEDIRS")) != NULL) {
includedir(s);
}
if (kernelmode == NO) {
includedir(DFLT_INCDIR);
}
initsymtab();
setup_build_filenames(reffile);
initcompress();
if (linemode == NO || verbosemode == YES)
postmsg("Building cross-reference...");
build();
if (linemode == NO )
postmsg("");
if (buildonly == YES) {
myexit(0);
}
}
opendatabase();
if (linemode == YES) {
if (*pattern != '\0') {
if (search() == YES) {
while ((c = getc(refsfound)) != EOF) {
(void) putchar(c);
}
}
}
if (onesearch == YES) {
myexit(0);
}
for (;;) {
char buf[PATLEN + 2];
(void) printf(">> ");
(void) fflush(stdout);
if (fgets(buf, sizeof(buf), stdin) == NULL) {
myexit(0);
}
if (*(s = buf + strlen(buf) - 1) == '\n') {
*s = '\0';
}
switch (*buf) {
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
field = *buf - '0';
(void) strcpy(pattern, buf + 1);
(void) search();
(void) printf("cscope: %d lines\n", totallines);
while ((c = getc(refsfound)) != EOF) {
(void) putchar(c);
}
break;
case 'c':
case ctrl('C'):
if (caseless == NO) {
caseless = YES;
}
else {
caseless = NO;
}
egrepcaseless(caseless);
break;
case 'r':
case ctrl('R'):
freefilelist();
makefilelist();
case 'R':
rebuild();
(void) putchar('\n');
break;
case 'C':
freefilelist();
(void) putchar('\n');
break;
case 'F':
(void) strcpy(path, buf + 1);
if (infilelist(path) == NO &&
(s = inviewpath(path)) != NULL) {
addsrcfile(s);
}
(void) putchar('\n');
break;
case 'q':
case ctrl('D'):
case ctrl('Z'):
myexit(0);
default:
(void) fprintf(stderr, "cscope: unknown command '%s'\n", buf);
break;
}
}
}
if (errorsfound == YES) {
errorsfound = NO;
askforreturn();
}
if (*pattern != '\0') {
atfield();
(void) command(ctrl('Y'));
}
else if (reflines != NULL) {
(void) readrefs(reflines);
}
display();
for (;;) {
if (!selecting)
atfield();
if ((c = mygetch()) == EOF || c == ctrl('D') || c == ctrl('Z')) {
break;
}
if (command(c) == YES) {
display();
}
if (selecting)
{
move(displine[curdispline], 0);
refresh();
}
}
myexit(0);
return 0;
}
void
cannotopen(char *file)
{
posterr("Cannot open file %s", file);
}
void
cannotwrite(char *file)
{
#if HAVE_SNPRINTF
char msg[MSGLEN + 1];
(void) snprintf(msg, sizeof(msg),
"Removed file %s because write failed", file);
#else
char *msg = mymalloc(50+strlen(file));
(void) sprintf(msg, "Removed file %s because write failed", file);
#endif
myperror(msg);
#if !HAVE_SNPRINTF
free(msg);
#endif
(void) unlink(file);
myexit(1);
}
static void
initcompress(void)
{
int i;
if (compress == YES) {
for (i = 0; i < 16; ++i) {
dicode1[(unsigned char) (dichar1[i])] = i * 8 + 1;
}
for (i = 0; i < 8; ++i) {
dicode2[(unsigned char) (dichar2[i])] = i + 1;
}
}
}
static void
skiplist(FILE *oldrefs)
{
int i;
if (fscanf(oldrefs, "%d", &i) != 1) {
posterr("cscope: cannot read list size from file %s\n", reffile);
myexit(1);
}
while (--i >= 0) {
if (fscanf(oldrefs, "%*s") != 0) {
posterr("cscope: cannot read list name from file %s\n", reffile);
myexit(1);
}
}
}
void
entercurses(void)
{
incurses = YES;
#ifndef __MSDOS__
(void) nonl();
#endif
(void) cbreak();
(void) noecho();
(void) clear();
mouseinit();
drawscrollbar(topline, nextline);
}
void
exitcurses(void)
{
(void) move(LINES - 1, 0);
(void) clrtoeol();
(void) refresh();
(void) endwin();
incurses = NO;
mousecleanup();
(void) fflush(stdout);
}
static void
usage(void)
{
(void) fprintf(stderr, "Usage: cscope [-bcCdehklLqRTuUvV] [-f file] [-F file] [-i file] [-I dir] [-s dir]\n");
(void) fprintf(stderr, " [-p number] [-P path] [-[0-8] pattern] [source files]\n");
}
static void
longusage(void)
{
(void) usage();
(void) fprintf(stderr, "\n");
(void) fprintf(stderr, "-b Build the cross-reference only.\n");
(void) fprintf(stderr, "-C Ignore letter case when searching.\n");
(void) fprintf(stderr, "-c Use only ASCII characters in the cross-ref file (don't compress).\n");
(void) fprintf(stderr, "-d Do not update the cross-reference.\n");
(void) fprintf(stderr, "-e Suppress the <Ctrl>-e command prompt between files.\n");
(void) fprintf(stderr, "-F symfile Read symbol reference lines from symfile.\n");
(void) fprintf(stderr, "-f reffile Use reffile as cross-ref file name instead of %s.\n", REFFILE);
(void) fprintf(stderr, "-h This help screen.\n");
(void) fprintf(stderr, "-I incdir Look in incdir for any #include files.\n");
(void) fprintf(stderr, "-i namefile Browse through files listed in namefile, instead of %s\n", NAMEFILE);
(void) fprintf(stderr, "-k Kernel Mode - don't use %s for #include files.\n", DFLT_INCDIR);
(void) fprintf(stderr, "-L Do a single search with line-oriented output.\n");
(void) fprintf(stderr, "-l Line-oriented interface.\n");
(void) fprintf(stderr, "-num pattern Go to input field num (counting from 0) and find pattern.\n");
(void) fprintf(stderr, "-P path Prepend path to relative file names in pre-built cross-ref file.\n");
(void) fprintf(stderr, "-p n Display the last n file path components.\n");
(void) fprintf(stderr, "-q Build an inverted index for quick symbol searching.\n");
(void) fprintf(stderr, "-R Recurse directories for files.\n");
(void) fprintf(stderr, "-s dir Look in dir for additional source files.\n");
(void) fprintf(stderr, "-T Use only the first eight characters to match against C symbols.\n");
(void) fprintf(stderr, "-U Check file time stamps.\n");
(void) fprintf(stderr, "-u Unconditionally build the cross-reference file.\n");
(void) fprintf(stderr, "-v Be more verbose in line mode.\n");
(void) fprintf(stderr, "-V Print the version number.\n");
(void) fprintf(stderr, "\n");
(void) fprintf(stderr, "Please see the manpage for more information.\n");
}
void
myexit(int sig)
{
if (refsfound != NULL)
fclose(refsfound);
if (temp1[0] != '\0') {
(void) unlink(temp1);
(void) unlink(temp2);
}
if (incurses == YES) {
exitcurses();
}
if (sig == SIGQUIT) {
(void) abort();
}
freefilelist();
freeinclist();
freesrclist();
freecrossref();
free_newbuildfiles();
exit(sig);
}