anon/csope
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity
e7ea3e3e95
csope/src/command.c
anon e7ea3e3e95 bak
2023-08-01 19:36:53 +02:00

893 lines
21 KiB
C
Raw Blame History

/*===========================================================================
Copyright (c) 1998-2000, The Santa Cruz Operation
All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
*Redistributions of source code must retain the above copyright notice,
this list of conditions and the following disclaimer.
*Redistributions in binary form must reproduce the above copyright notice,
this list of conditions and the following disclaimer in the documentation
and/or other materials provided with the distribution.
*Neither name of The Santa Cruz Operation nor the names of its contributors
may be used to endorse or promote products derived from this software
without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
INTERRUPTION)
HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
DAMAGE.
=========================================================================*/
/* cscope - interactive C symbol or text cross-reference
*
* command functions
*/
#include "global.h"
#include "build.h" /* for rebuild() */
#include <stdlib.h>
#if defined(USE_NCURSES) && !defined(RENAMED_NCURSES)
#include <ncurses.h>
#else
#include <curses.h>
#endif
#include <ctype.h>
/* These are strictly used to test how keys are suppose to behave.
* Think of it as modes: in _input mode_ the up arrow interacts
* with the history, while in _mode mode_ it selects what operation
* to perform with the user input.
* In the original version this was handled by
* "int selecting // whether the (upper) symbol list is being browsed".
*/
extern const void const* winput;
extern const void const* wmode;
extern const void const* wresult;
extern const void const* const* current_window;
BOOL caseless; /* ignore letter case when searching */
BOOL *change; /* change this line */
BOOL changing; /* changing text */
char newpat[PATLEN + 1]; /* new pattern */
char Pattern[PATLEN + 1]; /* symbol or text pattern */
static const char appendprompt[] = "Append to file: ";
static const char pipeprompt[] = "Pipe to shell command: ";
static const char readprompt[] = "Read from file: ";
static const char toprompt[] = "To: ";
/* Internal prototypes: */
static BOOL changestring(void);
static void clearprompt(void);
static void mark(unsigned int i);
static void scrollbar(MOUSE *p);
/* execute the command */
BOOL
command(int commandc)
{
char filename[PATHLEN + 1]; /* file path name */
MOUSE *p; /* mouse data */
int c, i;
FILE *file;
struct cmd *curritem, *item; /* command history */
char *s;
switch (commandc) {
case ctrl('C'): /* toggle caseless mode */
if (caseless == NO) {
caseless = YES;
postmsg2("Caseless mode is now ON");
} else {
caseless = NO;
postmsg2("Caseless mode is now OFF");
}
egrepcaseless(caseless); /* turn on/off -i flag */
return(NO);
case ctrl('R'): /* rebuild the cross reference */
if (isuptodate == YES) {
postmsg("The -d option prevents rebuilding the symbol database");
return(NO);
}
exitcurses();
freefilelist(); /* remake the source file list */
makefilelist();
rebuild();
if (errorsfound == YES) {
errorsfound = NO;
askforreturn();
}
entercurses();
clearmsg(); /* clear any previous message */
totallines = 0;
disprefs = 0;
topline = nextline = 1;
break;
case ESC: /* possible unixpc mouse selection */
case ctrl('X'): /* mouse selection */
if ((p = getmouseaction(DUMMYCHAR)) == NULL) {
return(NO); /* unknown control sequence */
}
/* if the button number is a scrollbar tag */
if (p->button == '0') {
scrollbar(p);
break;
}
/* ignore a sweep */
if (p->x2 >= 0) {
return(NO);
}
/* if this is a line selection */
if (p->y1 > FLDLINE) {
/* find the selected line */
/* note: the selection is forced into range */
for (i = disprefs - 1; i > 0; --i) {
if (p->y1 >= displine[i]) {
break;
}
}
/* display it in the file with the editor */
editref(i);
} else { /* this is an input field selection */
field = p->y1 - FLDLINE;
/* force it into range */
if (field >= FIELDS) {
field = FIELDS - 1;
}
resetcmd();
return(NO);
}
break;
case '\t': /* go to next input field */
if (disprefs) {
horswp_field();
}
return(NO);
case '%':
verswp_field();
return(NO);
case KEY_ENTER:
case '\r':
case '\n': /* go to reference */
if (current_window == &wresult) {
editref(curdispline);
window_change = CH_ALL;
return(YES);
}
/* FALLTHROUGH */
case ctrl('N'):
case KEY_DOWN:
case KEY_RIGHT:
if (current_window == &wresult) {
if ((curdispline + 1) < disprefs) {
++curdispline;
}
} else {
field = (field + 1) % FIELDS;
resetcmd();
}
return(NO);
case ctrl('P'): /* go to previous input field */
case KEY_UP:
case KEY_LEFT:
if (current_window == &wresult) {
if (curdispline) {
--curdispline;
}
} else {
field = (field + (FIELDS - 1)) % FIELDS;
resetcmd();
}
return(NO);
case KEY_HOME: /* go to first input field */
if (current_window == &wresult) {
curdispline = 0;
} else {
field = 0;
resetcmd();
}
return(NO);
case KEY_LL: /* go to last input field */
if (current_window == &wresult) {
curdispline = disprefs;
refresh();
} else {
field = FIELDS - 1;
resetcmd();
}
return(NO);
case ' ': /* display next page */
case '+':
case ctrl('V'):
case KEY_NPAGE:
/* don't redisplay if there are no lines */
if (totallines == 0) {
return(NO);
}
/* NOTE: seekline() is not used to move to the next
* page because display() leaves the file pointer at
* the next page to optimize paging forward
*/
curdispline = 0;
break;
case ctrl('H'):
case '-': /* display previous page */
case KEY_PPAGE:
/* don't redisplay if there are no lines */
if (totallines == 0) {
return(NO);
}
curdispline = 0;
/* if there are only two pages, just go to the other one */
if (totallines <= 2 * mdisprefs) {
break;
}
/* if on first page but not at beginning, go to beginning */
nextline -= mdisprefs; /* already at next page */
if (nextline > 1 && nextline <= mdisprefs) {
nextline = 1;
} else {
nextline -= mdisprefs;
if (nextline < 1) {
nextline = totallines - mdisprefs + 1;
if (nextline < 1) {
nextline = 1;
}
}
}
seekline(nextline);
break;
case '>': /* write or append the lines to a file */
if (totallines == 0) {
postmsg("There are no lines to write to a file");
} else { /* get the file name */
move(PRLINE, 0);
addstr("Write to file: ");
s = "w";
if ((c = mygetch()) == '>') {
move(PRLINE, 0);
addstr(appendprompt);
c = '\0';
s = "a";
}
if (c != '\r' &&
mygetline("", newpat, COLS - sizeof(appendprompt), c, NO) > 0) {
shellpath(filename, sizeof(filename), newpat);
if ((file = myfopen(filename, s)) == NULL) {
cannotopen(filename);
} else {
seekline(1);
while ((c = getc(refsfound)) != EOF) {
putc(c, file);
}
seekline(topline);
fclose(file);
}
}
clearprompt();
}
return(NO); /* return to the previous field */
case '<': /* read lines from a file */
move(PRLINE, 0);
addstr(readprompt);
if (mygetline("", newpat, COLS - sizeof(readprompt), '\0', NO) > 0) {
clearprompt();
shellpath(filename, sizeof(filename), newpat);
if (readrefs(filename) == NO) {
postmsg2("Ignoring an empty file");
return(NO);
}
window_change |= CH_INPUT;
return(YES);
}
clearprompt();
return(NO);
case '^': /* pipe the lines through a shell command */
case '|': /* pipe the lines to a shell command */
if (totallines == 0) {
postmsg("There are no lines to pipe to a shell command");
return(NO);
}
/* get the shell command */
move(PRLINE, 0);
addstr(pipeprompt);
if (mygetline("", newpat, COLS - sizeof(pipeprompt), '\0', NO) == 0) {
clearprompt();
return(NO);
}
/* if the ^ command, redirect output to a temp file */
if (commandc == '^') {
strcat(strcat(newpat, " >"), temp2);
/* HBB 20020708: somebody might have even
* their non-interactive default shells
* complain about clobbering
* redirections... --> delete before
* overwriting */
remove(temp2);
}
exitcurses();
if ((file = mypopen(newpat, "w")) == NULL) {
fprintf(stderr, "\
cscope: cannot open pipe to shell command: %s\n", newpat);
} else {
seekline(1);
while ((c = getc(refsfound)) != EOF) {
putc(c, file);
}
seekline(topline);
mypclose(file);
}
if (commandc == '^') {
if (readrefs(temp2) == NO) {
postmsg("Ignoring empty output of ^ command");
}
}
askforreturn();
entercurses();
break;
#if defined(KEY_RESIZE) && !defined(__DJGPP__)
case KEY_RESIZE:
/* XXX: fill in*/
break;
#endif
case ctrl('L'): /* redraw screen */
case KEY_CLEAR:
/* XXX: no */
//clearmsg2();
//clearok(curscr, TRUE);
//wrefresh(curscr);
//drawscrollbar(topline, bottomline);
return(NO);
case '!': /* shell escape */
execute(shell, shell, NULL);
seekline(topline);
break;
case '?': /* help */
clear();
help();
clear();
seekline(topline);
break;
case ctrl('E'): /* edit all lines */
editall();
break;
case ctrl('A'):
case ctrl('Y'): /* repeat last pattern */
if (*Pattern != '\0') {
addstr(Pattern);
goto repeat;
}
break;
case ctrl('B'): /* cmd history back */
case ctrl('F'): /* cmd history fwd */
if (current_window == &wresult) {
horswp_field();
}
curritem = currentcmd();
item = (commandc == ctrl('F')) ? nextcmd() : prevcmd();
clearmsg2();
if (curritem == item) { /* inform user that we're at history end */
postmsg2("End of input field and search pattern history");
}
if (item) {
field = item->field;
addstr(item->text);
strcpy(Pattern, item->text);
switch (c = mygetch()) {
case '\r':
case '\n':
goto repeat;
case ctrl('F'):
case ctrl('B'):
myungetch(c);
clrtoeol(); /* clear current field */
break;
default:
myungetch(c);
if (mygetline(Pattern, newpat, COLS - fldcolumn - 1, '\0', caseless )) {
strcpy (Pattern, newpat);
resetcmd();
}
goto repeat;
break;
}
}
return(NO);
case '\\': /* next character is not a command */
addch('\\'); /* display the quote character */
/* get a character from the terminal */
if ((commandc = mygetch()) == EOF) {
return(NO); /* quit */
}
addstr("\b \b"); /* erase the quote character */
goto ispat;
case '.':
postmsg("The . command has been replaced by ^Y");
/* FALLTHROUGH */
default:
if (current_window == &wresult && !mouse) {
char *c;
if ((c = strchr(dispchars, commandc)))
editref(c - dispchars);
/* if this is the start of a pattern */
} else if (isprint(commandc)) {
ispat:
if (mygetline("", newpat, COLS - fldcolumn - 1,
commandc, caseless) > 0) {
strcpy(Pattern, newpat);
resetcmd(); /* reset command history */
repeat:
addcmd(field, Pattern); /* add to command history */
if (field == CHANGE) {
/* prompt for the new text */
move(PRLINE, 0);
addstr(toprompt);
mygetline("", newpat,
COLS - sizeof(toprompt),
'\0', NO);
}
/* search for the pattern */
if (search() == YES) {
curdispline = 0;
if(current_window != &wresult){
horswp_field();
}
switch (field) {
case DEFINITION:
case FILENAME:
if (totallines > 1) {
break;
}
topline = 1;
editref(0);
break;
case CHANGE:
return(changestring());
}
} else if (field == FILENAME &&
access(newpat, READ) == 0) {
/* try to edit the file anyway */
edit(newpat, "1");
}
} else { /* no pattern--the input was erased */
return(NO);
}
} else { /* control character */
return(NO);
}
} /* switch(commandc) */
window_change |= CH_INPUT;
return(YES);
}
/* clear the prompt line */
static void
clearprompt(void)
{
move(PRLINE, 0);
clrtoeol();
}
/* read references from a file */
BOOL
readrefs(char *filename)
{
FILE *file;
int c;
if ((file = myfopen(filename, "rb")) == NULL) {
cannotopen(filename);
return(NO);
}
if ((c = getc(file)) == EOF) { /* if file is empty */
fclose(file);
return(NO);
}
totallines = 0;
disprefs = 0;
nextline = 1;
if (writerefsfound() == YES) {
putc(c, refsfound);
while ((c = getc(file)) != EOF) {
putc(c, refsfound);
}
fclose(file);
fclose(refsfound);
if ( (refsfound = myfopen(temp1, "rb")) == NULL) {
cannotopen(temp1);
return(NO);
}
countrefs();
} else
fclose(file);
return(YES);
}
/* change one text string to another */
static BOOL
changestring(void)
{
char newfile[PATHLEN + 1]; /* new file name */
char oldfile[PATHLEN + 1]; /* old file name */
char linenum[NUMLEN + 1]; /* file line number */
char msg[MSGLEN + 1]; /* message */
FILE *script; /* shell script file */
BOOL anymarked = NO; /* any line marked */
MOUSE *p; /* mouse data */
int c;
unsigned int i;
char *s;
/* open the temporary file */
if ((script = myfopen(temp2, "w")) == NULL) {
cannotopen(temp2);
return(NO);
}
/* create the line change indicators */
change = calloc(totallines, sizeof(*change));
changing = YES;
mousemenu();
/* until the quit command is entered */
for (;;) {
/* display the current page of lines */
display();
same:
//atchange();
/* get a character from the terminal */
if ((c = mygetch()) == EOF || c == ctrl('D')) {
break; /* change lines */
}
if (c == ctrl('Z')) {
#ifdef SIGTSTP
kill(0, SIGTSTP);
goto same;
#else
break; /* change lines */
#endif
}
/* see if the input character is a command */
// wtf is this? ?!
switch (c) {
case ' ': /* display next page */
case '+':
case ctrl('V'):
case KEY_NPAGE:
case '-': /* display previous page */
case KEY_PPAGE:
case '!': /* shell escape */
case '?': /* help */
command(c);
break;
case ctrl('L'): /* redraw screen */
case KEY_CLEAR:
command(c);
goto same;
case ESC: /* don't change lines */
#if UNIXPC
if((p = getmouseaction(DUMMYCHAR)) == NULL) {
goto nochange; /* unknown escape sequence */
}
break;
#endif
case ctrl('G'):
goto nochange;
case '*': /* mark/unmark all displayed lines */
for (i = 0; topline + i < nextline; ++i) {
mark(i);
}
goto same;
case ctrl('A'): /* mark/unmark all lines */
for (i = 0; i < totallines; ++i) {
if (change[i] == NO) {
change[i] = YES;
} else {
change[i] = NO;
}
}
/* show that all have been marked */
seekline(totallines);
break;
case ctrl('X'): /* mouse selection */
if ((p = getmouseaction(DUMMYCHAR)) == NULL) {
goto same; /* unknown control sequence */
}
/* if the button number is a scrollbar tag */
if (p->button == '0') {
scrollbar(p);
break;
}
/* find the selected line */
/* note: the selection is forced into range */
for (i = disprefs - 1; i > 0; --i) {
if (p->y1 >= displine[i]) {
break;
}
}
mark(i);
goto same;
default:
{
/* if a line was selected */
char *cc;
if ((cc = strchr(dispchars, c)))
mark(cc - dispchars);
goto same;
} /* default case */
} /* switch(change code character) */
} /* for(ever) */
/* for each line containing the old text */
fprintf(script, "ed - <<\\!\n");
*oldfile = '\0';
seekline(1);
for (i = 0;
fscanf(refsfound, "%" PATHLEN_STR "s%*s%" NUMLEN_STR "s%*[^\n]", newfile, linenum) == 2;
++i) {
/* see if the line is to be changed */
if (change[i] == YES) {
anymarked = YES;
/* if this is a new file */
if (strcmp(newfile, oldfile) != 0) {
/* make sure it can be changed */
if (access(newfile, WRITE) != 0) {
snprintf(msg, sizeof(msg), "Cannot write to file %s", newfile);
postmsg(msg);
anymarked = NO;
break;
}
/* if there was an old file */
if (*oldfile != '\0') {
fprintf(script, "w\n"); /* save it */
}
/* edit the new file */
strcpy(oldfile, newfile);
fprintf(script, "e %s\n", oldfile);
}
/* output substitute command */
fprintf(script, "%ss/", linenum); /* change */
for (s = Pattern; *s != '\0'; ++s) {
/* old text */
if (strchr("/\\[.^*", *s) != NULL) {
putc('\\', script);
}
if (caseless == YES && isalpha((unsigned char)*s)) {
putc('[', script);
if(islower((unsigned char)*s)) {
putc(toupper((unsigned char)*s), script);
putc(*s, script);
} else {
putc(*s, script);
putc(tolower((unsigned char)*s), script);
}
putc(']', script);
} else
putc(*s, script);
}
putc('/', script); /* to */
for (s = newpat; *s != '\0'; ++s) { /* new text */
if (strchr("/\\&", *s) != NULL) {
putc('\\', script);
}
putc(*s, script);
}
fprintf(script, "/gp\n"); /* and print */
}
}
fprintf(script, "w\nq\n!\n"); /* write and quit */
fclose(script);
/* if any line was marked */
if (anymarked == YES) {
/* edit the files */
clearprompt();
refresh();
fprintf(stderr, "Changed lines:\n\r");
execute("sh", "sh", temp2, NULL);
askforreturn();
seekline(1);
} else {
nochange:
clearprompt();
}
changing = NO;
mousemenu();
fclose(script);
free(change);
return(anymarked);
}
/* mark/unmark this displayed line to be changed */
static void
mark(unsigned int i)
{
unsigned int j;
j = i + topline - 1;
if (j < totallines) {
move(displine[i], 1);
if (change[j] == NO) {
change[j] = YES;
addch('>');
} else {
change[j] = NO;
addch(' ');
}
}
}
/* scrollbar actions */
static void
scrollbar(MOUSE *p)
{
/* reposition list if it makes sense */
if (totallines == 0) {
return;
}
switch (p->percent) {
case 101: /* scroll down one page */
if (nextline + mdisprefs > totallines) {
nextline = totallines - mdisprefs + 1;
}
break;
case 102: /* scroll up one page */
nextline = topline - mdisprefs;
if (nextline < 1) {
nextline = 1;
}
break;
case 103: /* scroll down one line */
nextline = topline + 1;
break;
case 104: /* scroll up one line */
if (topline > 1) {
nextline = topline - 1;
}
break;
default:
nextline = p->percent * totallines / 100;
}
seekline(nextline);
}
/* count the references found */
void
countrefs(void)
{
char *subsystem; /* OGS subsystem name */
char *book; /* OGS book name */
char file[PATHLEN + 1]; /* file name */
char function[PATLEN + 1]; /* function name */
char linenum[NUMLEN + 1]; /* line number */
int i;
/* count the references found and find the length of the file,
function, and line number display fields */
/* HBB NOTE 2012-04-07: it may look like we shouldn't assing tempstring here,
* since it's not used. But it has to be assigned just so the return value
* of fscanf will actually reach 4. */
while (EOF != (i = fscanf(refsfound,
"%" PATHLEN_STR "s%" PATLEN_STR "s%" NUMLEN_STR "s %" TEMPSTRING_LEN_STR "[^\n]",
file, function, linenum, tempstring
)
)
) {
if ( (i != 4)
|| !isgraph((unsigned char) *file)
|| !isgraph((unsigned char) *function)
|| !isdigit((unsigned char) *linenum)
) {
postmsg("File does not have expected format");
totallines = 0;
disprefs = 0;
return;
}
if ((i = strlen(pathcomponents(file, dispcomponents))) > filelen) {
filelen = i;
}
if (ogs == YES) {
ogsnames(file, &subsystem, &book);
if ((i = strlen(subsystem)) > subsystemlen) {
subsystemlen = i;
}
if ((i = strlen(book)) > booklen) {
booklen = i;
}
}
if ((i = strlen(function)) > fcnlen) {
fcnlen = i;
}
if ((i = strlen(linenum)) > numlen) {
numlen = i;
}
++totallines;
}
rewind(refsfound);
/* restrict the width of displayed columns */
/* HBB FIXME 20060419: magic number alert! */
i = (COLS - 5) / 3;
if (ogs == YES) {
i = (COLS - 7) / 5;
}
if (filelen > i && i > 4) {
filelen = i;
}
if (subsystemlen > i && i > 9) {
subsystemlen = i;
}
if (booklen > i && i > 4) {
booklen = i;
}
if (fcnlen > i && i > 8) {
fcnlen = i;
}
}
Reference in New Issue View Git Blame Copy Permalink