/*
** Timer proc for flushing output buffers periodically when the process
** takes too long.
*/
static void flushTimeoutProc(XtPointer clientData, XtIntervalId *id)
{
WindowInfo *window = (WindowInfo *)clientData;
shellCmdInfo *cmdData = window->shellCmdData;
textBuffer *buf = TextGetBuffer(cmdData->textW);
int len;
char *outText;
/* shouldn't happen, but it would be bad if it did */
if (cmdData->textW == NULL)
return;
outText = coalesceOutput(&cmdData->outBufs, &len);
if (len != 0) {
if (BufSubstituteNullChars(outText, len, buf)) {
safeBufReplace(buf, &cmdData->leftPos, &cmdData->rightPos, outText);
TextSetCursorPos(cmdData->textW, cmdData->leftPos+strlen(outText));
cmdData->leftPos += len;
cmdData->rightPos = cmdData->leftPos;
} else
fprintf(stderr, "NEdit: Too much binary data\n");
}
XtFree(outText);
/* re-establish the timer proc (this routine) to continue processing */
cmdData->flushTimeoutID = XtAppAddTimeOut(
XtWidgetToApplicationContext(window->shell),
OUTPUT_FLUSH_FREQ, flushTimeoutProc, clientData);
}
/*
** Change a help window to display a new topic. (Help window data is stored
** and indexed by topic so if a given topic is already displayed or has been
** positioned by the user, it can be found and popped back up in the same
** place.) To change the topic displayed, the stored data has to be relocated.
*/
static void changeWindowTopic(int existingTopic, enum HelpTopic newTopic)
{
char *helpText, *styleData;
/* Relocate the window/widget/buffer information */
if (newTopic != existingTopic)
{
HelpWindows[newTopic] = HelpWindows[existingTopic];
HelpWindows[existingTopic] = NULL;
HelpStyleBuffers[newTopic] = HelpStyleBuffers[existingTopic];
HelpStyleBuffers[existingTopic] = NULL;
HelpTextPanes[newTopic] = HelpTextPanes[existingTopic];
HelpTextPanes[existingTopic] = NULL;
setHelpWinTitle(HelpWindows[newTopic], newTopic);
}
/* Set the existing text widget to display the new text. Because it's
highlighted, we have to turn off highlighting before changing the
displayed text to prevent the text widget from trying to apply the
old, mismatched, highlighting to the new text */
helpText = stitch(HelpTextPanes[newTopic], HelpText[newTopic], &styleData);
TextDAttachHighlightData(((TextWidget)HelpTextPanes[newTopic])->text.textD,
NULL, NULL, 0, '\0', NULL, NULL);
BufSetAll(TextGetBuffer(HelpTextPanes[newTopic]), helpText);
XtFree(helpText);
BufSetAll(HelpStyleBuffers[newTopic], styleData);
XtFree(styleData);
TextDAttachHighlightData(((TextWidget)HelpTextPanes[newTopic])->text.textD,
HelpStyleBuffers[newTopic], HelpStyleInfo, N_STYLES, '\0', NULL,
NULL);
}
/*
** Search the help text. If allSections is true, searches all of the help
** text, otherwise searches only in parentTopic.
*/
static void searchHelpText(Widget parent, int parentTopic,
const char *searchFor, int allSections, int startPos, int startTopic)
{
int topic, beginMatch, endMatch;
int found = False;
char * helpText = NULL;
/* Search for the string */
for (topic=startTopic; topic<NUM_TOPICS; topic++)
{
if (!allSections && topic != parentTopic)
continue;
helpText = stitch(parent, HelpText[topic], NULL);
if (SearchString(helpText, searchFor, SEARCH_FORWARD, SEARCH_LITERAL,
False, topic == startTopic ? startPos : 0, &beginMatch,
&endMatch, NULL, NULL, GetPrefDelimiters()))
{
found = True;
XtFree(helpText);
break;
}
XtFree(helpText);
}
if (!found)
{
if (startPos != 0 || (allSections && startTopic != 0))
{
/* Wrap search */
searchHelpText(parent, parentTopic, searchFor, allSections, 0, 0);
return;
}
DialogF(DF_INF, parent, 1, "String Not Found", "String Not Found", "OK");
return;
}
/* update navigation history */
if (parentTopic != topic)
{
navHistForw[parentTopic]= topic;
navHistBack[topic]= parentTopic;
}
/* If the appropriate window is already up, bring it to the top, if not,
make the parent window become this topic */
changeTopicOrRaise(parentTopic, topic);
BufSelect(TextGetBuffer(HelpTextPanes[topic]), beginMatch, endMatch);
TextSetCursorPos(HelpTextPanes[topic], endMatch);
/* Save the search information for search-again */
strcpy(LastSearchString, searchFor);
LastSearchTopic = topic;
LastSearchPos = endMatch;
LastSearchWasAllTopics = allSections;
}
static void printCB(Widget w, XtPointer clientData, XtPointer callData)
{
int topic, helpStringLen;
char *helpString;
if ((topic = findTopicFromShellWidget((Widget)clientData)) == -1)
return; /* shouldn't happen */
helpString = TextGetWrapped(HelpTextPanes[topic], 0,
TextGetBuffer(HelpTextPanes[topic])->length, &helpStringLen);
PrintString(helpString, helpStringLen, HelpWindows[topic],
HelpTitles[topic]);
XtFree(helpString);
}
/*
** Clean up after the execution of a shell command sub-process and present
** the output/errors to the user as requested in the initial issueCommand
** call. If "terminatedOnError" is true, don't bother trying to read the
** output, just close the i/o descriptors, free the memory, and restore the
** user interface state.
*/
static void finishCmdExecution(WindowInfo *window, int terminatedOnError)
{
shellCmdInfo *cmdData = window->shellCmdData;
textBuffer *buf;
int status, failure, errorReport, reselectStart, outTextLen, errTextLen;
int resp, cancel = False, fromMacro = cmdData->fromMacro;
char *outText, *errText = NULL;
/* Cancel any pending i/o on the file descriptors */
if (cmdData->stdoutInputID != 0)
XtRemoveInput(cmdData->stdoutInputID);
if (cmdData->stdinInputID != 0)
XtRemoveInput(cmdData->stdinInputID);
if (cmdData->stderrInputID != 0)
XtRemoveInput(cmdData->stderrInputID);
/* Close any file descriptors remaining open */
close(cmdData->stdoutFD);
if (cmdData->flags & ERROR_DIALOGS)
close(cmdData->stderrFD);
if (cmdData->inPtr != NULL)
close(cmdData->stdinFD);
/* Free the provided input text */
if (cmdData->input != NULL)
XtFree(cmdData->input);
/* Cancel pending timeouts */
if (cmdData->flushTimeoutID != 0)
XtRemoveTimeOut(cmdData->flushTimeoutID);
if (cmdData->bannerTimeoutID != 0)
XtRemoveTimeOut(cmdData->bannerTimeoutID);
/* Clean up waiting-for-shell-command-to-complete mode */
if (!cmdData->fromMacro) {
EndWait(window->shell);
SetSensitive(window, window->cancelShellItem, False);
if (cmdData->bannerIsUp)
ClearModeMessage(window);
}
/* If the process was killed or became inaccessable, give up */
if (terminatedOnError) {
freeBufList(&cmdData->outBufs);
freeBufList(&cmdData->errBufs);
waitpid(cmdData->childPid, &status, 0);
goto cmdDone;
}
/* Assemble the output from the process' stderr and stdout streams into
null terminated strings, and free the buffer lists used to collect it */
outText = coalesceOutput(&cmdData->outBufs, &outTextLen);
if (cmdData->flags & ERROR_DIALOGS)
errText = coalesceOutput(&cmdData->errBufs, &errTextLen);
/* Wait for the child process to complete and get its return status */
waitpid(cmdData->childPid, &status, 0);
/* Present error and stderr-information dialogs. If a command returned
error output, or if the process' exit status indicated failure,
present the information to the user. */
if (cmdData->flags & ERROR_DIALOGS)
{
failure = WIFEXITED(status) && WEXITSTATUS(status) != 0;
errorReport = *errText != '\0';
if (failure && errorReport)
{
removeTrailingNewlines(errText);
truncateString(errText, DF_MAX_MSG_LENGTH);
resp = DialogF(DF_WARN, window->shell, 2, "Warning", "%s", "Cancel",
"Proceed", errText);
cancel = resp == 1;
} else if (failure)
{
truncateString(outText, DF_MAX_MSG_LENGTH-70);
resp = DialogF(DF_WARN, window->shell, 2, "Command Failure",
"Command reported failed exit status.\n"
"Output from command:\n%s", "Cancel", "Proceed", outText);
cancel = resp == 1;
} else if (errorReport)
{
removeTrailingNewlines(errText);
truncateString(errText, DF_MAX_MSG_LENGTH);
resp = DialogF(DF_INF, window->shell, 2, "Information", "%s",
"Proceed", "Cancel", errText);
cancel = resp == 2;
}
XtFree(errText);
if (cancel)
{
XtFree(outText);
goto cmdDone;
}
}
/* If output is to a dialog, present the dialog. Otherwise insert the
(remaining) output in the text widget as requested, and move the
insert point to the end */
if (cmdData->flags & OUTPUT_TO_DIALOG) {
removeTrailingNewlines(outText);
if (*outText != '\0')
createOutputDialog(window->shell, outText);
} else if (cmdData->flags & OUTPUT_TO_STRING) {
ReturnShellCommandOutput(window,outText, WEXITSTATUS(status));
} else {
buf = TextGetBuffer(cmdData->textW);
if (!BufSubstituteNullChars(outText, outTextLen, buf)) {
fprintf(stderr,"NEdit: Too much binary data in shell cmd output\n");
outText[0] = '\0';
}
if (cmdData->flags & REPLACE_SELECTION) {
reselectStart = buf->primary.rectangular ? -1 : buf->primary.start;
BufReplaceSelected(buf, outText);
TextSetCursorPos(cmdData->textW, buf->cursorPosHint);
if (reselectStart != -1)
BufSelect(buf, reselectStart, reselectStart + strlen(outText));
} else {
safeBufReplace(buf, &cmdData->leftPos, &cmdData->rightPos, outText);
TextSetCursorPos(cmdData->textW, cmdData->leftPos+strlen(outText));
}
}
/* If the command requires the file to be reloaded afterward, reload it */
if (cmdData->flags & RELOAD_FILE_AFTER)
RevertToSaved(window);
/* Command is complete, free data structure and continue macro execution */
XtFree(outText);
cmdDone:
XtFree((char *)cmdData);
window->shellCmdData = NULL;
if (fromMacro)
ResumeMacroExecution(window);
}
/*
** Create a new help window displaying a given subject, "topic"
**
** Important hint: If this widget is restructured or the name of the text
** subwidget is changed don't forget to adapt the default translations of the
** help text. They are located in nedit.c, look for
** static char *fallbackResources
** (currently: nedit.helpForm.sw.helpText*translations...)
*/
static Widget createHelpPanel(enum HelpTopic topic)
{
Arg al[50];
int ac;
Widget appShell, btn, closeBtn, form, btnFW;
Widget sw, hScrollBar, vScrollBar;
XmString st1;
char * helpText = NULL;
char * styleData = NULL;
ac = 0;
XtSetArg(al[ac], XmNdeleteResponse, XmDO_NOTHING); ac++;
appShell = CreateWidget(TheAppShell, "help",
topLevelShellWidgetClass, al, ac);
AddSmallIcon(appShell);
/* With openmotif 2.1.30, a crash may occur when the text widget of the
help window is (slowly) resized to a zero width. By imposing a
minimum _window_ width, we can work around this problem. The minimum
width should be larger than the width of the scrollbar. 50 is probably
a safe value; this leaves room for a few characters */
XtVaSetValues(appShell, XtNminWidth, 50, NULL);
form = XtVaCreateManagedWidget("helpForm", xmFormWidgetClass, appShell,
NULL);
XtVaSetValues(form, XmNshadowThickness, 0, NULL);
/* Create the bottom row of buttons */
btn = XtVaCreateManagedWidget("find", xmPushButtonWidgetClass, form,
XmNlabelString, st1=XmStringCreateSimple("Find..."),
XmNmnemonic, 'F',
XmNbottomAttachment, XmATTACH_FORM,
XmNleftAttachment, XmATTACH_POSITION,
XmNleftPosition, 3,
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, 25,
NULL);
XtAddCallback(btn, XmNactivateCallback, searchHelpCB, appShell);
XmStringFree(st1);
btn = XtVaCreateManagedWidget("findAgain", xmPushButtonWidgetClass, form,
XmNlabelString, st1=XmStringCreateSimple("Find Again"),
XmNmnemonic, 'A',
XmNbottomAttachment, XmATTACH_FORM,
XmNleftAttachment, XmATTACH_POSITION,
XmNleftPosition, 27,
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, 49,
NULL);
XtAddCallback(btn, XmNactivateCallback, searchHelpAgainCB, appShell);
XmStringFree(st1);
btn = XtVaCreateManagedWidget("print", xmPushButtonWidgetClass, form,
XmNlabelString, st1=XmStringCreateSimple("Print..."),
XmNmnemonic, 'P',
XmNbottomAttachment, XmATTACH_FORM,
XmNleftAttachment, XmATTACH_POSITION,
XmNleftPosition, 51,
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, 73,
NULL);
XtAddCallback(btn, XmNactivateCallback, printCB, appShell);
XmStringFree(st1);
closeBtn = XtVaCreateManagedWidget("close",
xmPushButtonWidgetClass, form,
XmNlabelString, st1=XmStringCreateSimple("Close"),
XmNbottomAttachment, XmATTACH_FORM,
XmNleftAttachment, XmATTACH_POSITION,
XmNleftPosition, 75,
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, 97,
NULL);
XtAddCallback(closeBtn, XmNactivateCallback, closeCB, appShell);
XmStringFree(st1);
/* Create the next row of buttons (for navigation) */
btn = XtVaCreateManagedWidget("prevTopic", xmPushButtonWidgetClass, form,
XmNlabelString, st1=XmStringCreateSimple("<< Browse"),
XmNmnemonic, 'o',
XmNbottomAttachment, XmATTACH_WIDGET,
XmNbottomWidget, closeBtn,
XmNleftAttachment, XmATTACH_POSITION,
XmNleftPosition, 51,
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, 73,
NULL);
XtAddCallback(btn, XmNactivateCallback, prevTopicCB, appShell);
XmStringFree(st1);
btn = XtVaCreateManagedWidget("nextTopic", xmPushButtonWidgetClass, form,
XmNlabelString, st1=XmStringCreateSimple("Browse >>"),
XmNmnemonic, 'e',
XmNbottomAttachment, XmATTACH_WIDGET,
XmNbottomWidget, closeBtn,
XmNleftAttachment, XmATTACH_POSITION,
XmNleftPosition, 75,
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, 97,
NULL);
XtAddCallback(btn, XmNactivateCallback, nextTopicCB, appShell);
XmStringFree(st1);
btn = XtVaCreateManagedWidget("histBack", xmPushButtonWidgetClass, form,
XmNlabelString, st1=XmStringCreateSimple("Back"),
XmNmnemonic, 'B',
XmNbottomAttachment, XmATTACH_WIDGET,
XmNbottomWidget, closeBtn,
XmNleftAttachment, XmATTACH_POSITION,
XmNleftPosition, 3,
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, 25,
NULL);
XtAddCallback(btn, XmNactivateCallback, bwHistoryCB, appShell);
XmStringFree(st1);
btnFW = XtVaCreateManagedWidget("histForw", xmPushButtonWidgetClass, form,
XmNlabelString, st1=XmStringCreateSimple("Forward"),
XmNmnemonic, 'w',
XmNbottomAttachment, XmATTACH_WIDGET,
XmNbottomWidget, closeBtn,
XmNleftAttachment, XmATTACH_POSITION,
XmNleftPosition, 27,
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, 49,
NULL);
XtAddCallback(btnFW, XmNactivateCallback, fwHistoryCB, appShell);
XmStringFree(st1);
/* Create a text widget inside of a scrolled window widget */
sw = XtVaCreateManagedWidget("sw", xmScrolledWindowWidgetClass, form,
XmNshadowThickness, 2,
XmNtopAttachment, XmATTACH_FORM,
XmNleftAttachment, XmATTACH_FORM,
XmNrightAttachment, XmATTACH_FORM,
XmNbottomAttachment, XmATTACH_WIDGET,
XmNbottomWidget, btnFW,
NULL);
hScrollBar = XtVaCreateManagedWidget("hScrollBar",
xmScrollBarWidgetClass, sw,
XmNorientation, XmHORIZONTAL,
XmNrepeatDelay, 10,
NULL);
vScrollBar = XtVaCreateManagedWidget("vScrollBar",
xmScrollBarWidgetClass, sw,
XmNorientation, XmVERTICAL,
XmNrepeatDelay, 10,
NULL);
/* Make sure the fixed size help font is loaded, such that we can base
our text widget size calculation on it. */
loadFontsAndColors(sw, 'A');
HelpTextPanes[topic] = XtVaCreateManagedWidget("helpText",
textWidgetClass, sw,
textNfont, HelpStyleInfo[0].font, /* MUST correspond to 'A' above */
textNrows, 30,
textNcolumns, 65,
textNbacklightCharTypes, NULL,
textNhScrollBar, hScrollBar,
textNvScrollBar, vScrollBar,
textNreadOnly, True,
textNcontinuousWrap, True,
textNautoShowInsertPos, True,
NULL);
XtVaSetValues(sw, XmNworkWindow, HelpTextPanes[topic],
XmNhorizontalScrollBar, hScrollBar,
XmNverticalScrollBar, vScrollBar,
NULL);
/* Initialize help style information, if it hasn't already been init'd */
initHelpStyles (HelpTextPanes[topic]);
/* Put together the text to display and separate it into parallel text
and style data for display by the widget */
helpText = stitch (HelpTextPanes[topic], HelpText[topic], &styleData);
/* Stuff the text into the widget's text buffer */
BufSetAll (TextGetBuffer (HelpTextPanes[topic]) , helpText);
XtFree (helpText);
/* Create a style buffer for the text widget and fill it with the style
data which was generated along with the text content */
HelpStyleBuffers[topic] = BufCreate();
BufSetAll(HelpStyleBuffers[topic], styleData);
XtFree (styleData);
TextDAttachHighlightData(((TextWidget)HelpTextPanes[topic])->text.textD,
HelpStyleBuffers[topic], HelpStyleInfo, N_STYLES, '\0', NULL, NULL);
/* This shouldn't be necessary (what's wrong in text.c?) */
HandleXSelections(HelpTextPanes[topic]);
/* Process dialog mnemonic keys */
AddDialogMnemonicHandler(form, FALSE);
/* Set the default button */
XtVaSetValues(form, XmNdefaultButton, closeBtn, NULL);
XtVaSetValues(form, XmNcancelButton, closeBtn, NULL);
/* realize all of the widgets in the new window */
RealizeWithoutForcingPosition(appShell);
/* Give the text pane the initial focus */
XmProcessTraversal(HelpTextPanes[topic], XmTRAVERSE_CURRENT);
/* Make close command in window menu gracefully prompt for close */
AddMotifCloseCallback(appShell, (XtCallbackProc)closeCB, appShell);
/* Initialize navigation information, if it hasn't already been init'd */
initNavigationHistory();
/* Set the window title */
setHelpWinTitle(appShell, topic);
#ifdef EDITRES
XtAddEventHandler (appShell, (EventMask)0, True,
(XtEventHandler)_XEditResCheckMessages, NULL);
#endif /* EDITRES */
return appShell;
}
