command.c

如果RH

    int	 stop_no, nbytes;

    string = XFetchBytes(display, &nbytes);
    if (nbytes == 0) {
	UpdateMessageWindow(UNDISPLAY_HELP, NULL);
	bell(0);
	return;
    }
    if ((stop_no = atoi(string)) > 0)
	sprintf(command, "undisplay %d\n", stop_no);
    else
    	sprintf(command, "undisplay %s\n", string);
    send_command(command);
    AppendDialogText(command);
    XFree (string);           /* AJK */
}
#endif /* NOT GDB */

#ifndef GDB	/* >>>>>>>>>> NOT USED FOR GDB <<<<<<<<<<<<<<< */
/* ARGSUSED */
static void Dump(w, client_data, call_data)
    Widget w;
    XtPointer client_data;
    XtPointer call_data;
{
    char *funcname;
    int nbytes;

    funcname = XFetchBytes(display, &nbytes);
    if (nbytes == 0)
    	strcpy(command, "dump\n");
    else {
    	sprintf(command, "dump %s\n", funcname);
	XFree (funcname);           /* AJK */
      }
    send_command(command);
    AppendDialogText(command);
}
#endif /* NOT GDB */


/*  Beginning from startpos, this routine searches text forward for 
 *  searchstring, and returns 1 if searchstring is found, also returning 
 *  the left and right positions of the matched string in left and right; 
 *  else 0 is returned.
 *  It also does wrap-around search.
 */
static int forwardSearch(text, startpos, searchstring, left, right)
    char *text;
    int  startpos;
    char *searchstring;
    XawTextPosition  *left, *right;
{
    int  searchlength, searchsize, i, n=0;
    char *s1, *s2;

    searchlength = strlen(searchstring);
    searchsize = strlen(text) - searchlength;
    for (i=startpos+1; i < searchsize; i++) {
	n = searchlength;
	s1 = &text[i];
	s2 = searchstring;
	while (--n >= 0 && *s1++ == *s2++);
	if (n < 0) break;
    }
    if (n < 0) {
    	*left = i;
    	*right = i+searchlength;
    	return 1;
    }
    else {
	for (i=0; i <= startpos; i++) {
	    n = searchlength;
	    s1 = &text[i];
	    s2 = searchstring;
	    while (--n >= 0 && *s1++ == *s2++);
	    if (n < 0) break;
	}
	if (n < 0) {
	    *left = i;
	    *right = i+searchlength;
	    return 1;
	}
	return 0;
    }
}
	

/*  Similar to forwardSearch(), except that it does a reverse search
 */
static int reverseSearch(text, startpos, searchstring, left, right)
    char 	    *text;
    XawTextPosition  startpos;
    char 	    *searchstring;
    XawTextPosition  *left, *right;
{
    int  searchlength, i, n=0;
    char *s1, *s2;

    searchlength = strlen(searchstring);
    for (i=startpos; i >= searchlength; i--) {
	n = searchlength;
	s1 = &text[i];
	s2 = &searchstring[searchlength-1];
	while (--n >= 0 && *--s1 == *s2--);
	if (n < 0) break;
    }
    if (n < 0) {
    	*right = i;
    	*left = *right-searchlength;
    	return 1;
    }
    else {
	for (i=strlen(text); i > startpos; i--) {
	    n = searchlength;
	    s1 = &text[i];
	    s2 = &searchstring[searchlength-1];
	    while (--n >= 0 && *--s1 == *s2--);
	    if (n < 0) break;
	}
	if (n < 0) {
            *right = i;
            *left = *right-searchlength;
	    return 1;
	}
	return 0;
    }
}

/* ARGSUSED */
void PopupSearch(w, client_data, call_data)
    Widget w;
    XtPointer client_data;
    XtPointer call_data;
{
    Arg 	args[MAXARGS];
    Cardinal 	n;
    Dimension	popup_width, dialog_width;
    Position	x, y;

    if (!displayedFile) {
	UpdateMessageWindow(SEARCH_HELP, NULL);
	bell(0);
    }
    else {
	XtRealizeWidget(searchPopupShell);
	n = 0;
	XtSetArg(args[n], XtNwidth, &popup_width);			n++;
	XtGetValues(searchPopupShell, args, n);
	n = 0;
	XtSetArg(args[n], XtNwidth, &dialog_width);			n++;
	XtGetValues(dialogWindow, args, n);
	XtTranslateCoords(dialogWindow, 
			  (Position)(dialog_width - popup_width)/2, 10, &x, &y);
	n = 0;
	XtSetArg(args[n], XtNx, x);					n++;
	XtSetArg(args[n], XtNy, y);					n++;
	XtSetValues(searchPopupShell, args, n);
	XtPopup(searchPopupShell, XtGrabNone);
    }
}


/* ARGSUSED */
/*  This routine handles both forward and reverse text search.
 *  If no text has been entered, the contents of the cut buffer are used
 *  for searching.
 */ 
static void Search(w, direction, call_data)
    Widget w;
    XtPointer direction;
    XtPointer call_data;
{
    XawTextBlock    	textblock;
    XawTextPosition	pos, left, right;
    char		*searchString;

    searchString = XawDialogGetValueString(searchPopup);
    if (strlen(searchString) == 0) {
	textblock.ptr = XFetchBytes(display, &textblock.length);
	if (!textblock.ptr) {
	    UpdateMessageWindow("No search string selected", NULL);
	    bell(0);
	    return;
	}
	searchString = textblock.ptr;
    }
    pos = XawTextGetInsertionPoint(sourceWindow);
    if ((direction == (XtPointer)FORWARD && 
	forwardSearch(displayedFile->buf, pos, searchString, &left, &right)) ||
        (direction == (XtPointer)REVERSE && 
	reverseSearch(displayedFile->buf, pos, searchString, &left, &right))) {
        AdjustText(TextPositionToLine(left));
        XawTextSetSelection(sourceWindow, left, right);
        XawTextSetInsertionPoint(sourceWindow, left);
    }
    else {
        if (direction == (XtPointer)FORWARD)
            UpdateMessageWindow("String not found", NULL);
        else if (direction == (XtPointer)REVERSE)
            UpdateMessageWindow("String not found", NULL);
        else
#ifdef GDB
            UpdateMessageWindow("xxgdb error: illegal search direction", NULL);
#else
            UpdateMessageWindow("xdbx error: illegal search direction", NULL);
#endif
        bell(0);
    }
}

/* ARGSUSED */
static void DoneSearch(w, client_data, call_data)
    Widget w;
    XtPointer client_data;
    XtPointer call_data;
{
    XtPopdown(client_data);
}

/* ARGSUSED */
static void Activate(w, event, params, num_params)
    Widget w;
    XEvent *event;
    String *params;
    Cardinal *num_params;
{
    Search(w, (XtPointer)FORWARD, NULL);
    DoneSearch(w, (XtPointer)searchPopupShell, NULL);
}

static void CreateSearchPopup()
{
    Widget	dialogValue;
    Arg 	args[MAXARGS];
    Cardinal 	n;

    static XtActionsRec search_actions[] = {
        {"Activate", Activate},
        {NULL, NULL}
    };

    static String translations = "#override\n\
        <Key>Return:         Activate() \n\
    ";

    n = 0;
    XtSetArg(args[n], XtNinput, True);					n++;
    XtSetArg(args[n], XtNallowShellResize, True);			n++;
    searchPopupShell = XtCreatePopupShell("Search", transientShellWidgetClass, 
	toplevel, args, n);

    n = 0;
    XtSetArg(args[n], XtNlabel, "Enter search string :");		n++;
    XtSetArg(args[n], XtNvalue, SearchString);				n++;
    searchPopup = XtCreateManagedWidget("searchPopup", dialogWidgetClass, 
	searchPopupShell, args, n);
    
    AddButton(searchPopup, "<<", Search, (XtPointer) REVERSE);
    AddButton(searchPopup, ">>", Search, (XtPointer) FORWARD);
    AddButton(searchPopup, "DONE", DoneSearch, (XtPointer)searchPopupShell);

    dialogValue = XtNameToWidget(searchPopup, "value");
    XtOverrideTranslations(dialogValue, XtParseTranslationTable(translations));
    XtAppAddActions(app_context, search_actions, XtNumber(search_actions));
}



static Widget AddButton(parent, name, function, client_data)
Widget parent;
char *name;
void (*function) ();
XtPointer client_data;		/* callback registered data */
{
    Widget 	button;
    Arg 	args[MAXARGS];
    Cardinal 	n;

    static XtActionsRec command_actions[] = {
	{"ButtonSet", (XtActionProc) ButtonSet},
        {NULL, NULL}
    };

    static String translations = "\
	<EnterWindow>:	highlight() \n\
	<LeaveWindow>:	reset() \n\
	<Btn1Down>:	set()\n\
	<Btn1Up>:	ButtonSet(1) notify() unset() \n\
	<Btn3Down>:	set()\n\
	<Btn3Up>:	ButtonSet(3) notify() unset()\n\
    ";

    n = 0;
    XtSetArg(args[n], XtNresize, (XtArgVal) False);			n++;
    if (strcmp(name, "print") == 0 || strcmp(name, "print *") == 0) {
	XtSetArg(args[n], XtNtranslations, 
	    XtParseTranslationTable(translations)); 			n++;
    }
    button = XtCreateManagedWidget(name, commandWidgetClass, parent, args, n);
    XtAddCallback(button, XtNcallback, function, client_data);
    XtAppAddActions(app_context, command_actions, XtNumber(command_actions));
    return (button);
}


static void CreateButtons (parent)
Widget parent;
{
    int i=0;

#ifdef GDB	/* >>>>>>>>>>>>>> GDB ONLY <<<<<<<<<<<<<<<< */
    button[i++] = AddButton (parent, "run", DoIt, "run\n");
    button[i++] = AddButton (parent, "cont", DoIt, "cont\n");
    button[i++] = AddButton (parent, "next", DoIt, "next\n");
    button[i++] = AddButton (parent, "step", DoIt, "step\n");
    button[i++] = AddButton (parent, "finish", DoIt, "finish\n");
    button[i++] = AddButton (parent, "break", Break, "break");
    button[i++] = AddButton (parent, "tbreak", Break, "tbreak");
    button[i++] = AddButton (parent, "delete", Delete, NULL);
    button[i++] = AddButton (parent, "up", DoIt, "up\n");
    button[i++] = AddButton (parent, "down", DoIt, "down\n");
    button[i++] = AddButton (parent, "print", Print, (XtPointer)0);
    button[i++] = AddButton (parent, "print *", Print, (XtPointer)1);
    button[i++] = AddButton (parent, "display", Display_, NULL);
    button[i++] = AddButton (parent, "undisplay", Undisplay, NULL);
    button[i++] = AddButton (parent, "show display", DoIt, "info display\n");     /* AJK */
    button[i++] = AddButton (parent, "args", DoIt, "info args\n");
    button[i++] = AddButton (parent, "locals", DoIt, "info locals\n");
    button[i++] = AddButton (parent, "stack", DoIt, "info stack\n");
#ifdef EDIT_BUTTON
    button[i++] = AddButton (parent, "edit", EdCallback, NULL);
#endif
    button[i++] = AddButton (parent, "search", PopupSearch, NULL);
    button[i++] = AddButton (parent, "interrupt", Interrupt, NULL);	/* DH */
    button[i++] = AddButton (parent, "file", File, NULL);
    button[i++] = AddButton (parent, "show brkpts", DoIt, "info breakpoints\n");  /* AJK */
    button[i++] = AddButton (parent, "yes", DoIt, "y\n");                         /* AJK */
    button[i++] = AddButton (parent, "no", DoIt, "n\n");                          /* AJK */
    button[i++] = AddButton (parent, "quit", Quit, NULL);
#else	/* >>>>>>>>>> IF NOT GDB <<<<<<<<<<<<<<< */


    button[i++] = AddButton (parent, "run", DoIt, "run\n");
    button[i++] = AddButton (parent, "rerun", DoIt, "rerun\n");               /* AJK */
    button[i++] = AddButton (parent, "cont", DoIt, "cont\n");
    button[i++] = AddButton (parent, "next", DoIt, "next\n");
    button[i++] = AddButton (parent, "step", DoIt, "step\n");
    button[i++] = AddButton (parent, "nexti", DoIt, "nexti\n");               /* AJK */
    button[i++] = AddButton (parent, "stepi", DoIt, "stepi\n");               /* AJK */
#ifdef BSD
    button[i++] = AddButton (parent, "return", Return, "return\n");
#endif
    button[i++] = AddButton (parent, "stop at", Stop_at, NULL);
    button[i++] = AddButton (parent, "stop in", Stop_in, NULL);
    button[i++] = AddButton (parent, "delete", Delete, NULL);
    button[i++] = AddButton (parent, "where", DoIt, "where\n");
    button[i++] = AddButton (parent, "up", DoIt, "up\n");
    button[i++] = AddButton (parent, "down", DoIt, "down\n");
    button[i++] = AddButton (parent, "print", Print, (XtPointer)0);
    button[i++] = AddButton (parent, "print *", Print, (XtPointer)1);
    button[i++] = AddButton (parent, "func", Func, NULL);
    button[i++] = AddButton (parent, "file", File, NULL);
    button[i++] = AddButton (parent, "status", DoIt, "status\n");
#ifndef BSD
    button[i++] = AddButton (parent, "display", Display_, NULL);
    button[i++] = AddButton (parent, "undisplay", Undisplay, NULL);
#endif
    button[i++] = AddButton (parent, "dump", Dump, NULL);
    button[i++] = AddButton (parent, "search", PopupSearch, NULL);
    button[i++] = AddButton (parent, "trace",   WhCmds, "trace");    /* AJK */
    button[i++] = AddButton (parent, "whereis", WhCmds, "whereis");  /* AJK */
    button[i++] = AddButton (parent, "whatis",  WhCmds, "whatis");   /* AJK */
    button[i++] = AddButton (parent, "which",   WhCmds, "which");    /* AJK */
    button[i++] = AddButton (parent, "dbxenv",  DoIt, "dbxenv\n");   /* AJK */
    button[i++] = AddButton (parent, "make",    DoIt, "make\n");     /* AJK */
    button[i++] = AddButton (parent, "modules", DoIt, "modules\n");  /* AJK */
    button[i++] = AddButton (parent, "pwd",     DoIt, "pwd\n");      /* AJK */
    button[i++] = AddButton (parent, "quit", Quit, NULL);
#endif /* NOT GDB */

    button[i++] = NULL;
    CreateSearchPopup();
}


/*  Create a command widget, and the buttons.  */

void CreateCommandPanel(parent)
Widget parent;
{
    Arg args[10];
    Cardinal n;

    n = 0;
    commandWindow = XtCreateManagedWidget("commandWindow", boxWidgetClass, 
					  parent, args, n);
    CreateButtons(commandWindow);
#ifndef GDB /* (PW)12MAR93 : for gdb, use pwd command of gdb */
#ifndef SYSV 
    getwd(cwd);
#endif
#endif /* not GDB */
}

/**************************************************************************
 *
 *  Command queue functions
 *
 **************************************************************************/

/*  Append command to end of the command queue and send the command to dbx */

void send_command(command)
char *command;
{
    CommandRec *p, *q, *r;

#ifndef GDB 
#ifdef BSD 
    /* Save the command if it is not a blank command; else use the 
       last saved command instead */
    if (strcspn(command, " \n"))
	strcpy(savedCommand, command);
    else
	strcpy(command, savedCommand);
#endif
#endif	/* not GDB */

    p = (CommandRec *)XtNew(CommandRec);
    p->command = XtNewString(command);
    p->next = NULL;
    if (!commandQueue)
	commandQueue = p;
    else {
	q = commandQueue;
	while ((r = q->next))
	    q = r;
	q->next = p;
    }

#ifdef GDB
	write_dbx_available();
#else
    write_dbx(command);
#endif /* GDB */
}

/*  Read command at the head of the command queue */

char *get_command()
{
    if (commandQueue) {
	return (commandQueue->command);
    }
    else
	return NULL;
}

/*  Delete command from the head of the command queue */

void delete_command()
{
    CommandRec *p;

    if ((p = commandQueue)) {
	commandQueue = p->next;
	XtFree(p->command);
	XtFree((void*)p);
    }
}

/*  Insert command into head of queue */

void insert_command(command)
char *command;
{
    CommandRec *p;

    p = (CommandRec *)XtNew(CommandRec);
    p->command = XtNewString(command);
    p->next = NULL;
    if (!commandQueue)
	commandQueue = p;
    else {
	p->next = commandQueue;
	commandQueue = p;
    }
}