cheung%SW.MCC.COM@MCC.COM (Po Cheung) (08/28/90)
Submitted-by: cheung%SW.MCC.COM@MCC.COM (Po Cheung)
Posting-number: Volume 8, Issue 107
Archive-name: xdbx/part03
#! /bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of archive 3 (of 7)."
# Contents: filemenu.c parser.c regex.h xdbx.man
# Wrapped by cheung@espresso.sw.mcc.com on Fri Aug 24 03:24:49 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'filemenu.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'filemenu.c'\"
else
echo shar: Extracting \"'filemenu.c'\" \(11073 characters\)
sed "s/^X//" >'filemenu.c' <<'END_OF_FILE'
X/*****************************************************************************
X *
X * xdbx - X Window System interface to the dbx debugger
X *
X * Copyright 1989 The University of Texas at Austin
X * Copyright 1990 Microelectronics and Computer Technology Corporation
X *
X * Permission to use, copy, modify, and distribute this software and its
X * documentation for any purpose and without fee is hereby granted,
X * provided that the above copyright notice appear in all copies and that
X * both that copyright notice and this permission notice appear in
X * supporting documentation, and that the name of The University of Texas
X * and Microelectronics and Computer Technology Corporation (MCC) not be
X * used in advertising or publicity pertaining to distribution of
X * the software without specific, written prior permission. The
X * University of Texas and MCC makes no representations about the
X * suitability of this software for any purpose. It is provided "as is"
X * without express or implied warranty.
X *
X * THE UNIVERSITY OF TEXAS AND MCC DISCLAIMS ALL WARRANTIES WITH REGARD TO
X * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
X * FITNESS, IN NO EVENT SHALL THE UNIVERSITY OF TEXAS OR MCC BE LIABLE FOR
X * ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
X * RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
X * CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
X * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
X *
X * Author: Po Cheung
X * Created: March 10, 1989
X *
X *****************************************************************************/
X
X/* filemenu.c
X *
X * Construct a file menu (directory browser) which allows a user to go
X * up and down the directory tree, to select text files to display, and
X * to select executable files to debug. The file menu is popped up by
X * the 'file' command button.
X * Duane Voth (duanev@mcc.com) contributed to the layout of the file menu,
X * plus some code and ideas.
X *
X * changeDir(): Record the current working directory.
X * InList(): Select files to be displayed in the menu.
X * ScanDir(): Scan the directory and record selected filenames.
X * DisplayMenuFile(): Callback for the file menu.
X * CancelFileMenu(): Pop down the file menu.
X * SetUpFileMenu(): Create the file menu popupshell.
X * UpdateFileMenu(): Update entries in the file menu.
X * File(): Command callback for the 'file' command button.
X */
X
X#include <ctype.h>
X#include <X11/Xos.h>
X#include <sys/stat.h>
X#ifdef SUNOS4
X#include <dirent.h>
X#else
X#include <sys/dir.h>
X#endif
X#include "global.h"
X
X#define MAXCOLUMNS 8 /* max number of columns in file menu */
X#define FILES_PER_COL 10 /* # of files per column in file menu */
X
Xchar cwd[MAXPATHLEN]; /* current working directory of dbx */
Xstatic char fileMenuDir[MAXPATHLEN];/* current directory of file menu */
Xstatic char **filelist; /* list of file names in fileMenu */
Xstatic int nfiles = 0; /* number of files in filelist */
Xstatic Widget popupshell, /* parent of popup */
X popup, /* vpane widget containing file menu */
X fileMenu, /* list widget as file menu */
X fileMenuLabel; /* label widget as file menu label */
X
Xvoid File(), UpdateFileMenu();
X
X/* Change working directory to 'dir'.
X * For Berkeley dbx, modify static global variable, cwd, to keep track of
X * current working directory.
X * For Sun dbx, change working directory of dbx.
X */
Xstatic void changeDir(dir)
Xchar *dir;
X{
X char command[LINESIZ];
X
X#ifdef BSD
X int i;
X
X if (strcmp(dir, "./") == NULL)
X return;
X if (dir[0] == '/' || dir[0] == '~')
X strcpy(cwd, dir);
X if (strcmp(dir, "../") == NULL) {
X for (i=strlen(cwd); cwd[i] != '/' && i > 0; i--);
X cwd[i] = '\0';
X if (strcmp(cwd, "") == NULL)
X strcpy(cwd, "/");
X }
X else {
X sprintf(cwd, "%s/%s", cwd, dir);
X LASTCH(cwd) = '\0';
X }
X#else
X sprintf(command, "cd %s\n", dir);
X query_dbx(command);
X#endif
X}
X
X
X/* Determines if a directory entry should appear in the file menu.
X * The files included in the menu are :
X * .. (parent directory)
X * directories
X * text files
X * executable files
X */
Xstatic int InList(entry)
XDirectory *entry;
X{
X char pathname[LINESIZ];
X struct stat statbuf;
X
X if (strcmp(entry->d_name, ".") == NULL || /* ignore current directory */
X LASTCH(entry->d_name) == '~' || /* ignore Emacs backup files */
X (LASTCH(entry->d_name) == 'o' && SECLASTCH(entry->d_name) == '.'))
X /* ignore object files */
X return False;
X if (entry->d_name[0] == '.' && entry->d_name[1] != '.')
X return False; /* ignore hidden files */
X if (strcmp(cwd, "")) /* give full path name */
X sprintf(pathname, "%s/%s", cwd, entry->d_name);
X else
X strcpy(pathname, entry->d_name);
X if (stat(pathname, &statbuf) == -1)
X return False;
X if (statbuf.st_mode & S_IFDIR) { /* is directory */
X strcat(entry->d_name, "/");
X ++(entry->d_namlen);
X return True;
X }
X if (statbuf.st_mode & S_IEXEC) { /* is executable */
X strcat(entry->d_name, "*");
X ++(entry->d_namlen);
X return True;
X }
X return True;
X}
X
X
X/* Scans the working directory for files selected by InList(), sorted
X * alphabetically, and stored in an array of pointers to directory
X * entries called namelist.
X * The names of the selected files are stored in filelist.
X */
Xstatic void ScanDir(dir)
Xchar *dir;
X{
X extern alphasort();
X Directory **namelist;
X int i, j;
X
X nfiles = scandir(dir, &namelist, InList, alphasort);
X if (nfiles == -1) {
X UpdateMessageWindow("scandir: cannot open %s", dir);
X return;
X }
X if (filelist) {
X for (i=0; filelist[i]; i++)
X XtFree(filelist[i]);
X XtFree(filelist);
X }
X filelist = (char **) XtMalloc((nfiles+1) * sizeof(char *));
X i = 0;
X for (j=0; j<nfiles; j++) {
X filelist[i++] = XtNewString(namelist[j]->d_name);
X XtFree(namelist[j]);
X }
X filelist[i++] = NULL;
X XtFree(namelist);
X return;
X}
X
X
X/* Callback for the fileMenu list widget.
X * > if the selected item is a directory, display contents of that directory.
X * > (Sun dbx only) if the selected item is an executable file, issue the
X * debug command.
X * > if the selected item is a readable file, display the file.
X */
X/* ARGSUSED */
Xstatic void DisplayMenuFile(w, popupshell, call_data)
X Widget w;
X Widget popupshell;
X XawListReturnStruct *call_data;
X{
X char string[LINESIZ], *filename, command[LINESIZ];
X
X XtPopdown(popupshell);
X filename = call_data->string;
X if (filename == NULL) return;
X if (LASTCH(filename) == '/') {
X changeDir(filename);
X XtDestroyWidget(popupshell);
X UpdateFileMenu(); /* create new menu */
X File(); /* pop it up */
X }
X else if (LASTCH(filename) == '*') {
X UpdateMessageWindow("");
X#ifndef BSD
X strcpy(string, filename);
X LASTCH(string) = '\0';
X sprintf(command, "debug %s\n", string);
X send_command(command);
X AppendDialogText(command);
X#endif
X }
X else {
X UpdateMessageWindow("");
X sprintf(command, "file %s\n", filename);
X send_command(command);
X AppendDialogText(command);
X }
X}
X
X
X/* Callback to popdown the file menu
X */
X/* ARGSUSED */
Xstatic void CancelFileMenu(w, popupshell, call_data)
X Widget w;
X Widget popupshell;
X caddr_t call_data;
X{
X XtPopdown(popupshell);
X UpdateMessageWindow("");
X}
X
X
X/* Creates a popup shell with its child being a vpane widget containing
X * a file menu label, a file menu containing file names returned from
X * ScanDir(), and a cancel command button.
X * When an item in the list is selected, DisplayMenuFile is called.
X */
Xstatic void SetUpFileMenu(dir)
Xchar *dir;
X{
X Widget cancelButton;
X Arg args[MAXARGS];
X Cardinal n;
X char menulabel[LINESIZ];
X int ncolumns;
X
X n = 0;
X popupshell = XtCreatePopupShell("File Directory", transientShellWidgetClass,
X toplevel, args, n);
X
X n = 0;
X popup = XtCreateManagedWidget("popup", panedWidgetClass, popupshell,
X args, n);
X ScanDir(dir);
X strcpy(fileMenuDir, dir);
X
X n = 0;
X sprintf(menulabel, " %s ", dir);
X XtSetArg(args[n], XtNlabel, (XtArgVal) menulabel); n++;
X XtSetArg(args[n], XtNjustify, (XtArgVal) XtJustifyCenter); n++;
X fileMenuLabel = XtCreateManagedWidget("fileMenuLabel", labelWidgetClass,
X popup, args, n);
X
X n = 0;
X ncolumns = nfiles/FILES_PER_COL + 1;
X ncolumns = MIN(ncolumns, MAXCOLUMNS);
X XtSetArg(args[n], XtNlist, filelist); n++;
X XtSetArg(args[n], XtNverticalList, True); n++;
X XtSetArg(args[n], XtNdefaultColumns, (XtArgVal) ncolumns); n++;
X fileMenu = XtCreateManagedWidget("fileMenu", listWidgetClass,
X popup, args, n);
X XtAddCallback(fileMenu, XtNcallback, DisplayMenuFile, popupshell);
X
X n = 0;
X XtSetArg(args[n], XtNresize, False); n++;
X XtSetArg(args[n], XtNlabel, "CANCEL"); n++;
X cancelButton = XtCreateManagedWidget("cancelButton", commandWidgetClass,
X popup, args, n);
X XtAddCallback(cancelButton, XtNcallback, CancelFileMenu, popupshell);
X
X DisableWindowResize(fileMenuLabel);
X DisableWindowResize(cancelButton);
X}
X
X
X/* This routine is called when there is a a change in current directory.
X * It destroys the existing popup shell and creates a new file menu based
X * on the new current directory. A new directory list is created.
X */
Xstatic void UpdateFileMenu()
X{
X SetUpFileMenu(cwd);
X query_dbx("use\n");
X}
X
X
X/* File command button callback.
X */
X/* ARGSUSED */
Xvoid File(w, client_data, call_data)
X Widget w;
X caddr_t client_data;
X caddr_t call_data;
X{
X Arg args[MAXARGS];
X Cardinal n;
X Position x, y, x_offset;
X Dimension fileMenu_width, fileMenuLabel_width, border_width,
X width, dialog_width;
X
X XDefineCursor(display, XtWindow(toplevel), watch);
X XDefineCursor(display, XtWindow(sourceWindow), watch);
X XDefineCursor(display, XtWindow(dialogWindow), watch);
X XFlush(display);
X if (strcmp(fileMenuDir, cwd))
X UpdateFileMenu();
X
X n = 0;
X XtSetArg(args[n], XtNwidth, &fileMenu_width); n++;
X XtSetArg(args[n], XtNborderWidth, &border_width); n++;
X XtGetValues(fileMenu, args, n);
X
X n = 0;
X XtSetArg(args[n], XtNwidth, &fileMenuLabel_width); n++;
X XtGetValues(fileMenuLabel, args, n);
X
X n = 0;
X XtSetArg(args[n], XtNwidth, &dialog_width); n++;
X XtGetValues(dialogWindow, args, n);
X
X width = MAX(fileMenu_width, fileMenuLabel_width);
X x_offset = (Position) (dialog_width - width - border_width);
X XtTranslateCoords(dialogWindow, x_offset, 0, &x, &y);
X
X x = MAX(0, x);
X y = MAX(0, y);
X
X n = 0;
X XtSetArg(args[n], XtNx, x); n++;
X XtSetArg(args[n], XtNy, y); n++;
X XtSetValues(popupshell, args, n);
X XtPopup(popupshell, XtGrabNonexclusive);
X
X UpdateMessageWindow("Select a file or directory");
X XUndefineCursor(display, XtWindow(toplevel));
X XUndefineCursor(display, XtWindow(sourceWindow));
X XUndefineCursor(display, XtWindow(dialogWindow));
X}
END_OF_FILE
if test 11073 -ne `wc -c <'filemenu.c'`; then
echo shar: \"'filemenu.c'\" unpacked with wrong size!
fi
# end of 'filemenu.c'
fi
if test -f 'parser.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'parser.c'\"
else
echo shar: Extracting \"'parser.c'\" \(10614 characters\)
sed "s/^X//" >'parser.c' <<'END_OF_FILE'
X/*****************************************************************************
X *
X * xdbx - X Window System interface to the dbx debugger
X *
X * Copyright 1989 The University of Texas at Austin
X * Copyright 1990 Microelectronics and Computer Technology Corporation
X *
X * Permission to use, copy, modify, and distribute this software and its
X * documentation for any purpose and without fee is hereby granted,
X * provided that the above copyright notice appear in all copies and that
X * both that copyright notice and this permission notice appear in
X * supporting documentation, and that the name of The University of Texas
X * and Microelectronics and Computer Technology Corporation (MCC) not be
X * used in advertising or publicity pertaining to distribution of
X * the software without specific, written prior permission. The
X * University of Texas and MCC makes no representations about the
X * suitability of this software for any purpose. It is provided "as is"
X * without express or implied warranty.
X *
X * THE UNIVERSITY OF TEXAS AND MCC DISCLAIMS ALL WARRANTIES WITH REGARD TO
X * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
X * FITNESS, IN NO EVENT SHALL THE UNIVERSITY OF TEXAS OR MCC BE LIABLE FOR
X * ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
X * RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
X * CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
X * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
X *
X * Author: Po Cheung
X * Created: March 10, 1989
X *
X *****************************************************************************/
X
X/* parser.c:
X *
X * Parse output messages from dbx using regular expression pattern matching,
X * and take appropriate action.
X *
X * compile(): Compile the regular expressions in a table.
X * match(): Try to best match a given string with the regular
X * expressions found in the table and return an index.
X * parser_init(): Initialization.
X * parse(): Parse the dbx output and invoke the appropriate action
X * handler.
X * filter(): Modify the dbx output before it gets displayed on the
X * dialog window.
X * query_dbx(): Send a query command to dbx and process it.
X */
X
X#include "global.h"
X#include "regex.h"
X#ifdef BSD
X#ifdef MIPS
X#include "mips_regex.h"
X#else
X#include "bsd_regex.h"
X#endif
X#else
X#include "sun_regex.h"
X#endif
X
X#define BYTEWIDTH 8
X#define RE_BUFFER 100
X
XTokens Token; /* gloabl token structure */
XBoolean Parse = True; /* Parse flag for parse routine */
X
X/*
X * Compile all the regular expression patterns in a pattern table.
X * A pattern table is an array of pattern records.
X * Each pattern record consists of a regular
X * expression, a buffer for the to-be-compiled regular expression,
X * and an array to associate a given token with a matched register number.
X */
Xstatic void compile(patternTable)
XPatternRec *patternTable;
X{
X PatternRec *p;
X char fastmap[(1 << BYTEWIDTH)];
X int i;
X
X for (i=0; patternTable[i].pat; i++) {
X p = &patternTable[i];
X p->buf = (struct re_pattern_buffer *)
X XtMalloc (sizeof (struct re_pattern_buffer));
X p->buf->allocated = RE_BUFFER;
X p->buf->buffer = (char *) XtMalloc (p->buf->allocated);
X p->buf->fastmap = fastmap;
X p->buf->translate = NULL;
X re_compile_pattern(p->pat, strlen(p->pat), p->buf);
X re_compile_fastmap(p->buf);
X }
X}
X
X/*
X * This routine tries to match a given string with each regular
X * expression in a given pattern table. The best match is found, and
X * the function returns an index to the pattern table.
X */
Xstatic int match(patternTable, string, type)
X PatternRec *patternTable;
X char *string;
X int type;
X{
X struct re_registers regs;
X int m, bestmatch = -1, index = -1, i, j, r, start, n;
X char *s;
X
X if (strcmp(string, "") == NULL) return -1;
X for (i=0; patternTable[i].pat; i++) {
X if (type != C_ANY && type != i)
X continue;
X m = re_match(patternTable[i].buf, string, strlen(string), 0, ®s);
X if (m == -2 ) { /* match error - failure stack overflow */
X fprintf(stderr, "xdbx error: regular expression matching failed \
X(failure stack overflow)\n");
X return (-1);
X }
X if (m > bestmatch) {
X bestmatch = m;
X index = i;
X Token.mesg = Token.file = Token.func = Token.display = NULL;
X Token.line = Token.stop = 0;
X for (j=0; j<NTOKENS; j++) {
X if ((r = patternTable[i].reg_token[j]) >= 0) {
X start = regs.start[r];
X if ((n = regs.end[r] - start) > 0) {
X s = (char *) XtMalloc ((n+1) * sizeof(char));
X strncpy(s, string+start, n);
X s[n] = '\0';
X switch (j) {
X case TK_MESG: Token.mesg = s; break;
X case TK_STOP: Token.stop = atoi(s); XtFree(s); break;
X case TK_FUNC: Token.func = s; break;
X case TK_LINE: Token.line = atoi(s); XtFree(s); break;
X case TK_FILE: Token.file = s; break;
X case TK_DISP: Token.display = s; break;
X }
X }
X }
X }
X }
X }
X return index;
X}
X
X/* Compile the regular expressions in the output and command pattern tables. */
X
Xvoid parser_init()
X{
X compile(output_pattern);
X compile(command_pattern);
X compile(dataPattern);
X}
X
X
X/* This routine first parses the command string.
X * If the command is one of run, cont, next, step, stop at, stop in,
X * where, up, or down, it parses the dbx output to decide what action
X * to take and dispatch it to one of the handlers.
X * For other commands, the appropriate handler is called.
X *
X * !!! This routine has to be re-entrant.
X */
Xvoid parse(output, command)
Xchar *output;
Xchar *command;
X{
X int command_type;
X char *output_string;
X
X if (debug) {
X fprintf(stderr, "parse(output = %s, command = %s)\n", output, command);
X }
X
X /* Make a local copy of `output' and use that instead */
X output_string = XtNewString(output);
X if (output) strcpy(output, "");
X
X if (!command) {
X if (match(output_pattern, output_string, O_DEBUG) != -1)
X debug_handler();
X debug_init();
X return;
X }
X if (!Parse)
X return;
X
X command_type = match(command_pattern, command, C_ANY);
X switch (command_type) {
X case C_EXEC:
X if (match(output_pattern, output_string, O_EXEC) != -1)
X exec_handler();
X else if (match(output_pattern, output_string, O_DONE) != -1)
X done_handler();
X else
X bell(0);
X break;
X case C_STOPAT:
X if (match(output_pattern, output_string, O_STOPAT) != -1)
X stop_at_handler();
X else
X bell(0);
X break;
X case C_STOPIN:
X if (match(output_pattern, output_string, O_STOPIN) != -1)
X stop_in_handler();
X else
X bell(0);
X break;
X case C_UPDOWN:
X if (match(output_pattern, output_string, O_UPDOWN) != -1)
X updown_handler();
X else
X bell(0);
X break;
X case C_SEARCH:
X if (match(output_pattern, output_string, O_SEARCH) != -1)
X search_handler();
X else
X bell(0);
X break;
X case C_DELETE:
X delete_handler();
X break;
X case C_FILE:
X if (match(output_pattern, output_string, O_FILE) != -1)
X file_handler(); /* command was 'file' */
X else
X LoadCurrentFile(); /* command was 'file ...' */
X break;
X case C_LIST:
X if (match(output_pattern, output_string, O_LIST) != -1)
X list_handler();
X else
X bell(0);
X break;
X case C_FUNC:
X#ifdef MIPS
X if (match(output_pattern, output_string, O_FUNC) != -1)
X#else
X if (strcmp(output_string, "") == NULL)
X#endif
X func_handler();
X else
X bell(0);
X break;
X case C_USE:
X use_handler(output_string);
X break;
X#ifndef BSD
X case C_PRINT:
X if (match(output_pattern, output_string, O_PRINT) != -1)
X print_handler(output_string);
X else
X bell(0);
X break;
X case C_DEBUG:
X if (match(output_pattern, output_string, O_DEBUG) != -1)
X debug_handler();
X else
X bell(0);
X break;
X case C_CD:
X if (strcmp(output_string, "") == NULL)
X cd_handler();
X else
X bell(0);
X break;
X case C_PWD:
X pwd_handler(output_string);
X break;
X case C_DISPLAY:
X if (strcmp(output_string, "") == NULL ||
X match(output_pattern, output_string, O_PRINT) != -1)
X display_handler();
X else
X bell(0);
X break;
X#endif
X#ifdef BSD
X case C_STATUS:
X break;
X#endif
X default:
X break;
X }
X XtFree(output_string);
X}
X
X
X/* This function edits the dbx output so that unnecessary information is
X * not displayed on the dialog window.
X * It filters away the some output returned by the execution commands;
X * output from the search commands, and the display command.
X * On Sun dbx, it also filters away part of the output returned by the
X * up and down commands.
X */
Xvoid filter(string, output, command)
Xchar *string, *output, *command;
X{
X struct re_registers regs;
X char *p;
X int r;
X static Boolean deleteRest = False;
X int command_type = -1;
X
X if (output == NULL || strcmp(output, "") == NULL)
X return;
X
X#ifdef BSD
X if (!command) {
X AppendDialogText(string);
X return;
X }
X#endif
X
X if (command)
X command_type = match(command_pattern, command, C_ANY);
X if (command_type == C_EXEC) {
X if (re_match(output_pattern[O_EXEC].buf, string, strlen(string), 0,
X ®s) > 0) {
X r = output_pattern[O_EXEC].reg_token[TK_MESG];
X for (p=string+regs.start[r]; p!=string && *(p-1) != '\n'; p--);
X strcpy(p, "");
X if (!Prompt)
X deleteRest = True;
X }
X else if (deleteRest) {
X strcpy(string, "");
X if (Prompt)
X deleteRest = False;
X }
X AppendDialogText(string);
X return;
X }
X
X if (Prompt) {
X char *s;
X
X s = XtNewString(output);
X switch (command_type) {
X#ifndef BSD
X case C_UPDOWN:
X if (match(output_pattern, s, O_UPDOWN) != -1)
X strcpy(s, Token.mesg);
X break;
X case C_DISPLAY:
X if (match(output_pattern, s, O_PRINT) != -1)
X strcpy(s, "");
X break;
X#endif
X#ifdef MIPS
X case C_UPDOWN:
X if (match(output_pattern, s, O_UPDOWN) != -1)
X strcpy(s, Token.mesg);
X strcat(s, "\n");
X break;
X case C_FUNC:
X if (match(output_pattern, s, O_FUNC) != -1)
X strcpy(s, "");
X break;
X#endif
X case C_SEARCH:
X if (match(output_pattern, s, O_SEARCH) != -1)
X strcpy(s, "");
X break;
X case C_LIST:
X if (match(output_pattern, s, O_LIST) != -1)
X strcpy(s, "");
X break;
X default:
X s = XtNewString(string); /* append 'string' only */
X break;
X }
X AppendDialogText(s);
X XtFree(s);
X }
X else {
X switch (command_type) {
X#ifndef BSD
X case C_UPDOWN:
X case C_DISPLAY:
X#endif
X#ifdef MIPS
X case C_UPDOWN:
X case C_FUNC:
X#endif
X case C_SEARCH:
X case C_LIST:
X break;
X default:
X AppendDialogText(string);
X break;
X }
X }
X}
END_OF_FILE
if test 10614 -ne `wc -c <'parser.c'`; then
echo shar: \"'parser.c'\" unpacked with wrong size!
fi
# end of 'parser.c'
fi
if test -f 'regex.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'regex.h'\"
else
echo shar: Extracting \"'regex.h'\" \(10832 characters\)
sed "s/^X//" >'regex.h' <<'END_OF_FILE'
X/* Definitions for data structures callers pass the regex library.
X Copyright (C) 1985 Free Software Foundation, Inc.
X
X NO WARRANTY
X
X BECAUSE THIS PROGRAM IS LICENSED FREE OF CHARGE, WE PROVIDE ABSOLUTELY
XNO WARRANTY, TO THE EXTENT PERMITTED BY APPLICABLE STATE LAW. EXCEPT
XWHEN OTHERWISE STATED IN WRITING, FREE SOFTWARE FOUNDATION, INC,
XRICHARD M. STALLMAN AND/OR OTHER PARTIES PROVIDE THIS PROGRAM "AS IS"
XWITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
XBUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
XFITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY
XAND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE
XDEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR
XCORRECTION.
X
X IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW WILL RICHARD M.
XSTALLMAN, THE FREE SOFTWARE FOUNDATION, INC., AND/OR ANY OTHER PARTY
XWHO MAY MODIFY AND REDISTRIBUTE THIS PROGRAM AS PERMITTED BELOW, BE
XLIABLE TO YOU FOR DAMAGES, INCLUDING ANY LOST PROFITS, LOST MONIES, OR
XOTHER SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
XUSE OR INABILITY TO USE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR
XDATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY THIRD PARTIES OR
XA FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS) THIS
XPROGRAM, EVEN IF YOU HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH
XDAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY.
X
X GENERAL PUBLIC LICENSE TO COPY
X
X 1. You may copy and distribute verbatim copies of this source file
Xas you receive it, in any medium, provided that you conspicuously and
Xappropriately publish on each copy a valid copyright notice "Copyright
X(C) 1985 Free Software Foundation, Inc."; and include following the
Xcopyright notice a verbatim copy of the above disclaimer of warranty
Xand of this License. You may charge a distribution fee for the
Xphysical act of transferring a copy.
X
X 2. You may modify your copy or copies of this source file or
Xany portion of it, and copy and distribute such modifications under
Xthe terms of Paragraph 1 above, provided that you also do the following:
X
X a) cause the modified files to carry prominent notices stating
X that you changed the files and the date of any change; and
X
X b) cause the whole of any work that you distribute or publish,
X that in whole or in part contains or is a derivative of this
X program or any part thereof, to be licensed at no charge to all
X third parties on terms identical to those contained in this
X License Agreement (except that you may choose to grant more extensive
X warranty protection to some or all third parties, at your option).
X
X c) You may charge a distribution fee for the physical act of
X transferring a copy, and you may at your option offer warranty
X protection in exchange for a fee.
X
XMere aggregation of another unrelated program with this program (or its
Xderivative) on a volume of a storage or distribution medium does not bring
Xthe other program under the scope of these terms.
X
X 3. You may copy and distribute this program (or a portion or derivative
Xof it, under Paragraph 2) in object code or executable form under the terms
Xof Paragraphs 1 and 2 above provided that you also do one of the following:
X
X a) accompany it with the complete corresponding machine-readable
X source code, which must be distributed under the terms of
X Paragraphs 1 and 2 above; or,
X
X b) accompany it with a written offer, valid for at least three
X years, to give any third party free (except for a nominal
X shipping charge) a complete machine-readable copy of the
X corresponding source code, to be distributed under the terms of
X Paragraphs 1 and 2 above; or,
X
X c) accompany it with the information you received as to where the
X corresponding source code may be obtained. (This alternative is
X allowed only for noncommercial distribution and only if you
X received the program in object code or executable form alone.)
X
XFor an executable file, complete source code means all the source code for
Xall modules it contains; but, as a special exception, it need not include
Xsource code for modules which are standard libraries that accompany the
Xoperating system on which the executable file runs.
X
X 4. You may not copy, sublicense, distribute or transfer this program
Xexcept as expressly provided under this License Agreement. Any attempt
Xotherwise to copy, sublicense, distribute or transfer this program is void and
Xyour rights to use the program under this License agreement shall be
Xautomatically terminated. However, parties who have received computer
Xsoftware programs from you with this License Agreement will not have
Xtheir licenses terminated so long as such parties remain in full compliance.
X
X 5. If you wish to incorporate parts of this program into other free
Xprograms whose distribution conditions are different, write to the Free
XSoftware Foundation at 675 Mass Ave, Cambridge, MA 02139. We have not yet
Xworked out a simple rule that can be stated here, but we will often permit
Xthis. We will be guided by the two goals of preserving the free status of
Xall derivatives of our free software and of promoting the sharing and reuse of
Xsoftware.
X
X
XIn other words, you are welcome to use, share and improve this program.
XYou are forbidden to forbid anyone else to use, share and improve
Xwhat you give them. Help stamp out software-hoarding! */
X
X
X#ifndef RE_NREGS
X#define RE_NREGS 10
X#endif
X
X/* This data structure is used to represent a compiled pattern. */
X
Xstruct re_pattern_buffer
X {
X char *buffer; /* Space holding the compiled pattern commands. */
X int allocated; /* Size of space that buffer points to */
X int used; /* Length of portion of buffer actually occupied */
X char *fastmap; /* Pointer to fastmap, if any, or zero if none. */
X /* re_search uses the fastmap, if there is one,
X to skip quickly over totally implausible characters */
X char *translate; /* Translate table to apply to all characters
X before comparing.
X Or zero for no translation.
X The translation is applied to a pattern when it is compiled
X and to data when it is matched. */
X char fastmap_accurate;
X /* Set to zero when a new pattern is stored,
X set to one when the fastmap is updated from it. */
X char can_be_null; /* Set to one by compiling fastmap
X if this pattern might match the null string.
X It does not necessarily match the null string
X in that case, but if this is zero, it cannot.
X 2 as value means can match null string
X but at end of range or before a character
X listed in the fastmap. */
X };
X
X/* Structure to store "register" contents data in.
X
X Pass the address of such a structure as an argument to re_match, etc.,
X if you want this information back.
X
X start[i] and end[i] record the string matched by \( ... \) grouping i,
X for i from 1 to RE_NREGS - 1.
X start[0] and end[0] record the entire string matched. */
X
Xstruct re_registers
X {
X int start[RE_NREGS];
X int end[RE_NREGS];
X };
X
X/* These are the command codes that appear in compiled regular expressions,
X one per byte.
X Some command codes are followed by argument bytes.
X A command code can specify any interpretation whatever for its arguments.
X Zero-bytes may appear in the compiled regular expression. */
X
Xenum regexpcode
X {
X unused,
X exactn, /* followed by one byte giving n, and then by n literal bytes */
X begline, /* fails unless at beginning of line */
X endline, /* fails unless at end of line */
X jump, /* followed by two bytes giving relative address to jump to */
X on_failure_jump, /* followed by two bytes giving relative address of place
X to resume at in case of failure. */
X finalize_jump, /* Throw away latest failure point and then
X jump to address. */
X maybe_finalize_jump, /* Like jump but finalize if safe to do so.
X This is used to jump back to the beginning
X of a repeat. If the command that follows
X this jump is clearly incompatible with the
X one at the beginning of the repeat, such that
X we can be sure that there is no use backtracking
X out of repetitions already completed,
X then we finalize. */
X dummy_failure_jump, /* jump, and push a dummy failure point.
X This failure point will be thrown away
X if an attempt is made to use it for a failure.
X A + construct makes this before the first repeat. */
X anychar, /* matches any one character */
X charset, /* matches any one char belonging to specified set.
X First following byte is # bitmap bytes.
X Then come bytes for a bit-map saying which chars are in.
X Bits in each byte are ordered low-bit-first.
X A character is in the set if its bit is 1.
X A character too large to have a bit in the map
X is automatically not in the set */
X charset_not, /* similar but match any character that is NOT one
X of those specified */
X start_memory, /* starts remembering the text that is matched
X and stores it in a memory register.
X followed by one byte containing the register number.
X Register numbers must be in the range 0 through NREGS. */
X stop_memory, /* stops remembering the text that is matched
X and stores it in a memory register.
X followed by one byte containing the register number.
X Register numbers must be in the range 0 through NREGS. */
X duplicate, /* match a duplicate of something remembered.
X Followed by one byte containing the index of the memory register. */
X before_dot, /* Succeeds if before dot */
X at_dot, /* Succeeds if at dot */
X after_dot, /* Succeeds if after dot */
X begbuf, /* Succeeds if at beginning of buffer */
X endbuf, /* Succeeds if at end of buffer */
X wordchar, /* Matches any word-constituent character */
X notwordchar, /* Matches any char that is not a word-constituent */
X wordbeg, /* Succeeds if at word beginning */
X wordend, /* Succeeds if at word end */
X wordbound, /* Succeeds if at a word boundary */
X notwordbound, /* Succeeds if not at a word boundary */
X syntaxspec, /* Matches any character whose syntax is specified.
X followed by a byte which contains a syntax code, Sword
X or such like */
X notsyntaxspec /* Matches any character whose syntax differs from
X the specified. */
X };
X
Xextern char *re_compile_pattern ();
X/* Is this really advertised? */
Xextern void re_compile_fastmap ();
Xextern int re_search (), re_search_2 ();
Xextern int re_match (), re_match_2 ();
X
X/* 4.2 bsd compatibility (yuck) */
Xextern char *re_comp ();
Xextern int re_exec ();
X
X#ifdef SYNTAX_TABLE
Xextern char *re_syntax_table;
X#endif
END_OF_FILE
if test 10832 -ne `wc -c <'regex.h'`; then
echo shar: \"'regex.h'\" unpacked with wrong size!
fi
# end of 'regex.h'
fi
if test -f 'xdbx.man' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'xdbx.man'\"
else
echo shar: Extracting \"'xdbx.man'\" \(10825 characters\)
sed "s/^X//" >'xdbx.man' <<'END_OF_FILE'
X.TH XDBX 1 "July 25 1990" "X Version 11"
X.SH NAME
Xxdbx \- X window system interface to the dbx debugger.
X.SH SYNOPSIS
X.B xdbx
X[ \fI-toolkitoption ... \fP] [\fI-xdbxoption ... \fP] [\fI-dbxoption ... \fP] [\fIobjfile\fP
X[ \fIcorefile\fP ]]
X.SH DESCRIPTION
X\fIXdbx\fP is a graphical user interface to the \fIdbx\fP debugger under the
XX Window System. It provides visual feedback and mouse input for the
Xuser to control program execution through breakpoints, to examine and
Xtraverse the function call stack, to display values of
Xvariables and data structures, and to browse source files and functions.
X.LP
X\fIXdbx\fP allows initial dbx commands stored in the file \fI.dbxinit\fP
Xto be executed immediately after the symbolic information is
Xread. If \fI.dbxinit\fP does not exist in the current directory, the
Xuser's home directory is searched (\fI~/.dbxinit\fP).
X.LP
X\fIObjfile\fP is an object file produced by a compiler with the
Xappropriate option (-g) specified to produce symbol table
Xinformation for dbx. For Sun dbx, if no \fIobjfile\fP is specified,
Xthe \fBdebug\fP command can be used later to specify the program to be
Xdebugged.
X.LP
XIf a file named \fIcore\fP exists in the current directory or a
X\fIcorefile\fP is specified, \fIxdbx\fP can be used to examine the
Xstate of the program when the core dump occurred.
X.LP
XThe name of the debugger invoked by \fIxdbx\fP is, by default, dbx, but
Xit can be overridden with the environment variable DEBUGGER.
X.SH OPTIONS
X\fIXdbx\fP accepts all of the standard X Toolkit command line options
X(see \fIX\fP(1)), and all the dbx options (see \fIdbx\fP(1)), plus
Xthe following xdbx specific options:
X.IP -bigicon
XUses a 64x64 icon instead of the default 48x48 icon.
X.SH SUBWINDOWS
X\fIXdbx\fP consists of the following subwindows:
X.IP "File Window" 20
XDisplay the full pathname of the file displayed in the source window,
Xand the line number of the caret.
X.IP "Source Window" 20
XDisplay the contents of a source file.
X.IP "Message Window" 20
XDisplay the execution status and error messages of \fIxdbx\fP .
X.IP "Command Window" 20
XProvide a list of the common dbx commands which are invoked by simply
Xclicking the LEFT mouse button.
X.IP "Dialogue Window" 20
XProvide a typing interface to dbx.
X.IP "Display Window" 20
XProvide a window for displaying variables each time execution stops.
X(Sun dbx only)
X.LP
XThe relative sizes of the source window, command window, and the dialogue
Xwindow can be adjusted by dragging the grip (a small square near the
Xright edge of a horizontal border) with the LEFT mouse button down.
X.SH SELECTION
XText selection in the source window is modified to make it easier to
Xselect C expressions. LEFT mouse button down selects a C expression by
Xhighlighting it in reverse-video. LEFT mouse button down also positions the
Xcaret and updates the line label accordingly.
X.LP
XC expression selection is based on the resource \fIdelimiters\fP which
Xdetermines the set of characters that delimits a C expression. (The
Xdefault word selection behavior in the Athena text widget selects a
Xword delimited by white spaces.) Text selection adjustment is possible
Xby holding the LEFT mouse button down and dragging.
X.LP
XA LEFT mouse button click with the SHIFT button down prints the value
Xof the expression selected.
X.LP
X.SH SCROLLBAR
XPressing the LEFT mouse button scrolls the text forward, whereas
Xpressing the RIGHT mouse button scrolls the text backward. The amount
Xof scrolling depends on the distance of the pointer button away from
Xthe top of the scrollbar. If the button is pressed at the top of the
Xscrollbar, only one line of text is scrolled. If the button is pressed
Xat the bottom of the scrollbar, one screenful of text is scrolled.
X.LP
XPressing the MIDDLE mouse button changes the thumb position of the
Xscrollbar. Dragging the MIDDLE mouse button down moves the thumb along
Xand changes the text displayed.
X.SH COMMAND BUTTONS
X.SS "Execution Commands"
X.IP "\fBrun\fP" 12
XBegin program execution.
X.IP "\fBcont\fP"
XContinue execution from where it stopped.
X.IP "\fBstep\fP"
XExecute one source line, stepping into a function if the source line
Xcontains a function call.
X.IP "\fBnext\fP"
XExecute one source line, without stepping into any function call.
X.IP "\fBreturn\fP"
X(Berkeley dbx only) Continue execution until the selected procedure
Xreturns; the current procedure is used if none is selected.
X
X.LP
X.SS "Breakpoint Commands"
X.IP "\fBstop at\fP" 10
XStop program execution at the line selected. To set a breakpoint in
Xthe program, place the caret on the source line and click the \fBstop
Xat\fP button. A stop sign will appear next to the source line.
X.IP "\fBstop in\fP"
XStop program execution in the function selected. To set a breakpoint
Xin a function, select the function name and click the \fBstop in\fP
Xbutton. A stop sign will be placed near the first executable line of
Xthe function.
X.IP "\fBdelete\fP"
XRemove the breakpoint on the source line selected or the breakpoint
Xnumber selected.
X.IP "\fBstatus\fP"
XShow the current breakpoints and traces.
X
X.LP
X.SS "Stack Commands"
X.IP "\fBwhere\fP" 10
XShow a stack trace of the functions called.
X.IP "\fBup\fP"
XMove up one level on the call stack.
X.IP "\fBdown\fP"
XMove down one level on the call stack.
X
X.LP
X.SS "Data Display Commands"
X.IP "\fBprint\fP" 10
XPrint the value of a selected expression.
X.IP "\fBprint *\fP"
XPrint the value of the object the selected expression is pointing to.
X.IP "\fBdisplay\fP"
XDisplay the value of a selected expression in the display window,
Xupdating its value every time execution stops. (Sun dbx only)
X.IP "\fBundisplay\fP"
XStop displaying the value of the selected expression in the display
Xwindow. If the selected expression is a constant, it refers to the
Xdisplay number associated with an expression in the display window.
X(Sun dbx only)
X.IP "\fBdump\fP"
XPrint the names and values of local variables and parameters in the
Xcurrent or selected function.
X
X.LP
X.SS "Miscellaneous Commands"
X.IP "\fBfunc\fP"
XDisplay a selected function on the source window, and change the scope
Xfor variable name resolution to the selected function. The file scope
Xis changed to the file containing the function.
X.IP "\fBfile\fP"
XPop up a directory browser that allows the user to move up and down
Xin the directory tree, to select a text file to be displayed, or (in
XSun dbx) to select an executable file to debug. Directory entries are
Xmarked with a trailing slash (`/') and executables with a trailing
Xasterisk (`*'). Filenames beginning with a dot (`.') or ending with a
Xtilde (`~') are not listed in the menu.
X.IP "\fBsearch\fP"
XPop up a search panel which allows both forward (>>) and reverse (<<)
Xsearch of text strings in the source file. Hitting carriage return
Xafter entering the search string will begin a forward search and pop
Xdown the search panel.
X.IP "\fBquit\fP"
XExit \fIxdbx\fP.
X
X.LP
X.SS "Displaying C Data Structures (Sun dbx only)"
X\fIXdbx\fP provides some primitive support for graphically displaying C
Xstructures and the ability of following pointers. Pressing the RIGHT
Xmouse button on the \fBprint\fP (or \fBprint *\fP) command button
Xdisplays the value of the selected expression (or the value the
Xselected expression is pointing to) in a popup. If the value is a
Xpointer or a structure containing pointers, the user can examine the
Xvalue of the object that pointer is pointing to by clicking the pointer
Xvalue. This will create another popup that displays the object the
Xpointer points to. Clicking the label of the popup pops down itself
Xand all of its descendants.
X.SH X DEFAULTS
XTo change the default values of widget resources used in \fIxdbx\fP,
Xyou need to reference the widgets by name or by class. The widget
Xhierarchies for the main window, the file menu, the search dialog box,
Xand the popup data display used in xdbx are shown as follows, with the
Xname of the widget followed by the name of its class in parentheses:
X.nf
X
XMain window:
X toplevel (ToplevelShell)
X vpane (Paned)
X fileWindow (Form)
X fileLabel (Label)
X lineLabel (Label)
X sourceForm (Form)
X sourceWindow (AsciiText)
X messageWindow (Label)
X commandWindow (Box)
X run (Command)
X cont (Command)
X next (Command)
X return (Command)
X step (Command)
X stop at (Command)
X stop in (Command)
X delete (Command)
X where (Command)
X up (Command)
X down (Command)
X print (Command)
X print * (Command)
X func (Command)
X file (Command)
X status (Command)
X display (Command)
X undisplay (Command)
X dump (Command)
X search (Command)
X quit (Command)
X dialogWindow (AsciiText)
X displayWindow (AsciiText)
X
XFile menu:
X File Directory (TransientShell)
X popup (Paned)
X fileMenuLabel (Label)
X fileMenu (List)
X cancelButton (Command)
X
XSearch dialog box:
X Search (TransientShell)
X searchPopup (Dialog)
X << (Command)
X >> (Command)
X DONE (Command)
X
XData display popup:
X Data Popup (TransientShell)
X popup (Form)
X label (Label)
X dataDpyWindow (AsciiText)
X.LP
X.fi
XIn addition to the standard X resources, \fIxdbx\fP uses the following
Xapplication-specific resources for user customization. The value in
Xparentheses is the default value.
X.IP \fBbell\fP
XIf True, the bell is on. (True)
X.IP \fBdisplayWindow\fP
XIf True, the display window appears on start up. (False)
X.IP \fBdelimiters\fP
XThe set of delimiters for word selection. (" !%^&*()+=~|;:{},/#<?\"\n\t")
X.IP \fBprompt\fP
XThe prompt string used in xdbx. ("(xdbx) ")
X.IP \fBstop_color\fP
XColor of the stop sign. (Red)
X.IP \fBarrow_color\fP
XColor of the arrow sign. (Blue)
X.IP \fBupdown_color\fP
XColor of the updown sign. (Blue)
X.IP \fBbomb_color\fP
XColor of the bomb sign. (Red)
X.IP \fBdataDpyMaxHeight\fP
XMaximum height of the data display window. (300)
X.IP \fBdataDpyMaxWidth\fP
XMaximum width of the data display window. (600)
X.LP
X
X.SH FILES
X.nf
Xa.out default object file
Xcore default core file
X\&.dbxinit local initial commands file
X~/.dbxinit user's initial commands file
X.SH SEE ALSO
XX(1), dbx(1)
X.SH LIMITATIONS
XXdbx does not handle all the dbx commands properly. Only a subset of
Xthe commands is supported:
X.nf
X
X run stop at where print list display return
X cont stop in up dump / undisplay
X next delete down func ?
X step status use file quit
X
X.SH BUGS
XSparc dbx does not always return correct source line position after
Xan up or down command. Also, the file variable in sparc dbx sometimes
Xhas an extra slash, as in /file.c, which could break what normally works.
XOne way of getting around the latter is to specify the current directory
Xbefore the program name, as in 'xdbx ./a.out' or 'debug ./a.out'.
X.SH COPYRIGHT
XCopyright 1989 The University of Texas at Austin
XCopyright 1990 Microelectronics and Computer Technology Corporation
X.SH AUTHOR
XPo Cheung
END_OF_FILE
if test 10825 -ne `wc -c <'xdbx.man'`; then
echo shar: \"'xdbx.man'\" unpacked with wrong size!
fi
# end of 'xdbx.man'
fi
echo shar: End of archive 3 \(of 7\).
cp /dev/null ark3isdone
MISSING=""
for I in 1 2 3 4 5 6 7 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 7 archives.
rm -f ark[1-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0
dan
----------------------------------------------------
O'Reilly && Associates argv@sun.com / argv@ora.com
Opinions expressed reflect those of the author only.