diff options
Diffstat (limited to 'xedit.c')
| -rw-r--r-- | xedit.c | 629 |
1 files changed, 629 insertions, 0 deletions
@@ -0,0 +1,629 @@ +/* $XConsortium: xedit.c,v 1.28 94/03/26 17:06:28 rws Exp $ */ + +/* + * COPYRIGHT 1987 + * DIGITAL EQUIPMENT CORPORATION + * MAYNARD, MASSACHUSETTS + * ALL RIGHTS RESERVED. + * + * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND + * SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. + * DIGITAL MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THIS SOFTWARE FOR + * ANY PURPOSE. IT IS SUPPLIED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY. + * + * IF THE SOFTWARE IS MODIFIED IN A MANNER CREATING DERIVATIVE COPYRIGHT RIGHTS, + * APPROPRIATE LEGENDS MAY BE PLACED ON THE DERIVATIVE WORK IN ADDITION TO THAT + * SET FORTH ABOVE. + * + * + * Permission to use, copy, modify, and distribute this software and its + * documentation for any purpose and without fee is hereby granted, provided + * that the above copyright notice appear in all copies and that both that + * copyright notice and this permission notice appear in supporting + * documentation, and that the name of Digital Equipment Corporation not be + * used in advertising or publicity pertaining to distribution of the software + * without specific, written prior permission. + */ +/* $XFree86: xc/programs/xedit/xedit.c,v 1.18 2002/11/10 23:21:57 paulo Exp $ */ + +#include <X11/IntrinsicP.h> +#include "xedit.h" +#include <X11/Xaw/SmeBSB.h> +#include <time.h> +#include <sys/stat.h> +#include <X11/CoreP.h> + +#include <stdlib.h> + +#define randomize() srand((unsigned)time((time_t*)NULL)) + +static XtActionsRec actions[] = { +{"quit", QuitAction}, +{"save-file", SaveFile}, +{"load-file", LoadFile}, +{"find-file", FindFile}, +{"cancel-find-file", CancelFindFile}, +{"file-completion", FileCompletion}, +{"popup-menu", PopupMenu}, +{"kill-file", KillFile}, +{"split-window", SplitWindow}, +{"dir-window", DirWindow}, +{"delete-window", DeleteWindow}, +{"xedit-focus", XeditFocus}, +{"other-window", OtherWindow}, +{"switch-source", SwitchSource}, +#ifndef __UNIXOS2__ +{"lisp-eval", XeditLispEval}, +{"xedit-print-lisp-eval", XeditPrintLispEval}, +{"xedit-keyboard-reset",XeditKeyboardReset}, +#endif +{"ispell", IspellAction}, +{"line-edit", LineEditAction} +}; + +#define DEF_HINT_INTERVAL 300 /* in seconds, 5 minutes */ + +static Atom wm_delete_window; +static Widget hintswindow; +static int position_format_mask; +static XawTextPositionInfo infos[3]; + +Widget topwindow, textwindow, messwidget, labelwindow, filenamewindow; +Widget scratch, hpane, vpanes[2], labels[3], texts[3], forms[3], positions[3]; +Widget options_popup, dirlabel, dirwindow; +Boolean international; +Boolean line_edit; +XawTextWrapMode wrapmodes[3]; + +extern void ResetSourceChanged(xedit_flist_item*); + +static void makeButtonsAndBoxes(Widget); +static void HintsTimer(XtPointer, XtIntervalId*); +static void PositionChanged(Widget, XtPointer, XtPointer); +static void StartFormatPosition(void); +static void StartHints(void); + +Display *CurDpy; + +struct _app_resources app_resources; +struct _xedit_flist flist; + +#define Offset(field) XtOffsetOf(struct _app_resources, field) + +static XtResource resources[] = { + {"enableBackups", "EnableBackups", XtRBoolean, sizeof(Boolean), + Offset(enableBackups), XtRImmediate, FALSE}, + {"backupNamePrefix", "BackupNamePrefix", XtRString, sizeof(char *), + Offset(backupNamePrefix),XtRString, ""}, + {"backupNameSuffix", "BackupNameSuffix", XtRString, sizeof(char *), + Offset(backupNameSuffix),XtRString, ".BAK"}, + {"hints", "Hint", XtRString, sizeof(char *), + Offset(hints.resource), XtRImmediate, NULL}, + {"hintsInterval", XtCInterval, XtRInt, sizeof(long), + Offset(hints.interval), XtRImmediate, (XtPointer)DEF_HINT_INTERVAL}, + {"changedBitmap", XtRBitmap, XtRString, sizeof(char*), + Offset(changed_pixmap_name), XtRString, "dot"}, + {"positionFormat", "Format", XtRString, sizeof(char*), + Offset(position_format), XtRString, "L%l"}, + {"autoReplace", "Replace", XtRString, sizeof(char*), + Offset(auto_replace), XtRImmediate, NULL}, +}; + +#undef Offset + +int +main(int argc, char *argv[]) +{ + XtAppContext appcon; + unsigned num_loaded = 0; + + XtSetLanguageProc(NULL, NULL, NULL); + topwindow = XtAppInitialize(&appcon, "Xedit", NULL, 0, &argc, argv, NULL, NULL, 0); + + XtAppAddActions(appcon, actions, XtNumber(actions)); + XtOverrideTranslations + (topwindow, XtParseTranslationTable ("<Message>WM_PROTOCOLS: quit()")); + + XtGetApplicationResources(topwindow, (XtPointer) &app_resources, resources, + XtNumber(resources), NULL, 0); + + CurDpy = XtDisplay(topwindow); + XawSimpleMenuAddGlobalActions(appcon); + XtRegisterGrabAction(PopupMenu, True, + ButtonPressMask | ButtonReleaseMask, + GrabModeAsync, GrabModeAsync); + + makeButtonsAndBoxes(topwindow); + + StartHints(); + StartFormatPosition(); + (void)StartHooks(appcon); + if (position_format_mask == 0) { + int i; + + for (i = 0; i < 3; i++) + XtRemoveCallback(texts[i], XtNpositionCallback, PositionChanged, NULL); + } + XtRealizeWidget(topwindow); + +#ifndef __UNIXOS2__ + XeditLispInitialize(); +#endif + + options_popup = XtCreatePopupShell("optionsMenu", simpleMenuWidgetClass, + topwindow, NULL, 0); + XtRealizeWidget(options_popup); + XtAddCallback(XtCreateManagedWidget("ispell", smeBSBObjectClass, + options_popup, NULL, 0), + XtNcallback, IspellCallback, NULL); + CreateEditPopup(); + + wm_delete_window = XInternAtom(XtDisplay(topwindow), "WM_DELETE_WINDOW", + False); + (void) XSetWMProtocols (XtDisplay(topwindow), XtWindow(topwindow), + &wm_delete_window, 1); + + /* This first call is just to save the default font and colors */ + UpdateTextProperties(0); + + if (argc > 1) { + Boolean exists; + xedit_flist_item *item; + FileAccess file_access; + char *filename; + Widget source; + Arg args[2]; + unsigned i, num_args; + char buf[BUFSIZ]; + + for (i = 1; i < argc; i++) { + struct stat st; + + num_args = 0; + filename = ResolveName(argv[i]); + if (filename == NULL || FindTextSource(NULL, filename) != NULL) + continue; + if (stat(filename, &st) == 0 && !S_ISREG(st.st_mode)) { + if (S_ISDIR(st.st_mode)) { + if (!num_loaded) { + char path[BUFSIZ + 1]; + + strncpy(path, filename, sizeof(path) - 2); + path[sizeof(path) - 2] = '\0'; + if (*path) { + if (path[strlen(path) - 1] != '/') + strcat(path, "/"); + } + else + strcpy(path, "./"); + XtSetArg(args[0], XtNlabel, ""); + XtSetValues(dirlabel, args, 1); + SwitchDirWindow(True); + DirWindowCB(dirwindow, path, NULL); + ++num_loaded; + } + continue; + } + } + + switch (file_access = CheckFilePermissions(filename, &exists)) { + case NO_READ: + if (exists) + XmuSnprintf(buf, sizeof(buf), "File %s, %s %s", argv[i], + "exists, and could not be opened for", + "reading.\n"); + else + XmuSnprintf(buf, sizeof(buf), "File %s %s %s %s", argv[i], + "does not exist, and", + "the directory could not be opened for", + "writing.\n"); + break; + case READ_OK: + XtSetArg(args[num_args], XtNeditType, XawtextRead); num_args++; + XmuSnprintf(buf, sizeof(buf), "File %s opened READ ONLY.\n", + argv[i]); + break; + case WRITE_OK: + XtSetArg(args[num_args], XtNeditType, XawtextEdit); num_args++; + XmuSnprintf(buf, sizeof(buf), "File %s opened read - write.\n", + argv[i]); + break; + } + if (file_access != NO_READ) { + int flags; + + if (exists) { + flags = EXISTS_BIT; + XtSetArg(args[num_args], XtNstring, filename);num_args++; + } + else { + flags = 0; + XtSetArg(args[num_args], XtNstring, NULL); num_args++; + } + source = XtVaCreateWidget("textSource", international ? + multiSrcObjectClass + : asciiSrcObjectClass, topwindow, + XtNtype, XawAsciiFile, + XtNeditType, XawtextEdit, + NULL, NULL); + XtSetValues(source, args, num_args); + item = AddTextSource(source, argv[i], filename, + flags, file_access); + XtAddCallback(item->source, XtNcallback, SourceChanged, + (XtPointer)item); + if (exists && file_access == WRITE_OK) + item->mode = st.st_mode & (S_IRWXU | S_IRWXG | S_IRWXO); + if (!num_loaded) + SwitchTextSource(item); + ++num_loaded; + ResetSourceChanged(item); + } + XeditPrintf(buf); + } + } + + if (!flist.pixmap && strlen(app_resources.changed_pixmap_name)) { + XrmValue from, to; + + from.size = strlen(app_resources.changed_pixmap_name); + from.addr = app_resources.changed_pixmap_name; + to.size = sizeof(Pixmap); + to.addr = (XtPointer)&(flist.pixmap); + + XtConvertAndStore(flist.popup, XtRString, &from, XtRBitmap, &to); + } + + if (num_loaded == 0) { + XtSetKeyboardFocus(topwindow, filenamewindow); + XtVaSetValues(textwindow, XtNwrap, XawtextWrapLine, NULL); + } + else + XtSetKeyboardFocus(topwindow, textwindow); + + XtAppMainLoop(appcon); + exit(0); +} + +static void +makeButtonsAndBoxes(Widget parent) +{ + Widget outer, b_row, viewport; + Arg arglist[10]; + Cardinal num_args; + xedit_flist_item *item; + static char *labelWindow = "labelWindow", *editWindow = "editWindow"; + static char *formWindow = "formWindow", *positionWindow = "positionWindow"; + + outer = XtCreateManagedWidget("paned", panedWidgetClass, parent, + NULL, ZERO); + + b_row = XtCreateManagedWidget("buttons", panedWidgetClass, outer, NULL, ZERO); + { + MakeCommandButton(b_row, "quit", DoQuit); + MakeCommandButton(b_row, "save", DoSave); + MakeCommandButton(b_row, "load", DoLoad); + filenamewindow = MakeStringBox(b_row, "filename", NULL); + } + hintswindow = XtCreateManagedWidget("bc_label", labelWidgetClass, + outer, NULL, ZERO); + + num_args = 0; + XtSetArg(arglist[num_args], XtNeditType, XawtextEdit); ++num_args; + messwidget = XtCreateManagedWidget("messageWindow", asciiTextWidgetClass, + outer, arglist, num_args); + + num_args = 0; + XtSetArg(arglist[num_args], XtNorientation, XtorientHorizontal); ++num_args; + hpane = XtCreateManagedWidget("hpane", panedWidgetClass, outer, + arglist, num_args); + + num_args = 0; + XtSetArg(arglist[num_args], XtNorientation, XtorientVertical); ++num_args; + vpanes[0] = XtCreateManagedWidget("vpane", panedWidgetClass, hpane, + arglist, num_args); + XtSetArg(arglist[num_args], XtNheight, 1); ++num_args; + XtSetArg(arglist[num_args], XtNwidth, 1); ++num_args; + vpanes[1] = XtCreateWidget("vpane", panedWidgetClass, hpane, + arglist, num_args); + + forms[0] = XtCreateManagedWidget(formWindow, formWidgetClass, + vpanes[0], NULL, 0); + labelwindow = XtCreateManagedWidget(labelWindow,labelWidgetClass, + forms[0], NULL, 0); + labels[0] = labelwindow; + positions[0] = XtCreateManagedWidget(positionWindow,labelWidgetClass, + forms[0], NULL, 0); + + forms[2] = XtCreateWidget(formWindow, formWidgetClass, + vpanes[1], NULL, 0); + labels[2] = XtCreateManagedWidget(labelWindow,labelWidgetClass, + forms[2], NULL, 0); + positions[2] = XtCreateManagedWidget(positionWindow,labelWidgetClass, + forms[2], NULL, 0); + + num_args = 0; + XtSetArg(arglist[num_args], XtNtype, XawAsciiFile); ++num_args; + XtSetArg(arglist[num_args], XtNeditType, XawtextEdit); ++num_args; + textwindow = XtCreateManagedWidget(editWindow, asciiTextWidgetClass, + vpanes[0], arglist, num_args); + num_args = 0; + XtSetArg(arglist[num_args], XtNinternational, &international); ++num_args; + XtGetValues(textwindow, arglist, num_args); + + num_args = 0; + XtSetArg(arglist[num_args], XtNtype, XawAsciiFile); ++num_args; + XtSetArg(arglist[num_args], XtNeditType, XawtextEdit); ++num_args; + scratch = XtVaCreateWidget("textSource", international ? + multiSrcObjectClass + : asciiSrcObjectClass, topwindow, + XtNtype, XawAsciiFile, + XtNeditType, XawtextEdit, + NULL, NULL); + XtSetValues(scratch, arglist, num_args); + + num_args = 0; + XtSetArg(arglist[num_args], XtNtextSource, scratch); ++num_args; + XtSetValues(textwindow, arglist, num_args); + + texts[0] = textwindow; + num_args = 0; + XtSetArg(arglist[num_args], XtNtextSource, scratch); ++num_args; + XtSetArg(arglist[num_args], XtNdisplayCaret, False); ++num_args; + texts[2] = XtCreateWidget(editWindow, asciiTextWidgetClass, + vpanes[1], arglist, num_args); + + forms[1] = XtCreateWidget(formWindow, formWidgetClass, + vpanes[0], NULL, 0); + labels[1] = XtCreateManagedWidget(labelWindow,labelWidgetClass, + forms[1], NULL, 0); + positions[1] = XtCreateManagedWidget(positionWindow,labelWidgetClass, + forms[1], NULL, 0); + + texts[1] = XtCreateWidget(editWindow, asciiTextWidgetClass, + vpanes[0], arglist, num_args); + + dirlabel = XtCreateWidget("dirlabel", labelWidgetClass, + vpanes[1], NULL, 0); + num_args = 0; + XtSetArg(arglist[num_args], XtNheight, 1); ++num_args; + XtSetArg(arglist[num_args], XtNwidth, 1); ++num_args; + viewport = XtCreateWidget("viewport", viewportWidgetClass, + vpanes[1], arglist, num_args); + dirwindow = XtCreateManagedWidget("dirwindow", listWidgetClass, + viewport, NULL, 0); + + item = AddTextSource(scratch, "*scratch*", "*scratch*", + 0, WRITE_OK); + item->wrap = XawtextWrapLine; + item->flags |= WRAP_BIT; + XtAddCallback(item->source, XtNcallback, SourceChanged, + (XtPointer)item); + ResetSourceChanged(item); + flist.current = item; + + for (num_args = 0; num_args < 3; num_args++) + XtAddCallback(texts[num_args], XtNpositionCallback, PositionChanged, NULL); + + for (num_args = 0; num_args < 3; num_args++) { + XtSetArg(arglist[0], XtNwrap, &wrapmodes[num_args]); + XtGetValues(texts[num_args], arglist, 1); + } + + XtAddCallback(dirwindow, XtNcallback, DirWindowCB, NULL); +} + +/* Function Name: Feep + * Description: feeps the bell. + * Arguments: none. + * Returns: none. + */ + +void +Feep(void) +{ + XBell(CurDpy, 0); +} + +#define l_BIT 0x01 +#define c_BIT 0x02 +#define p_BIT 0x04 +#define s_BIT 0x08 +#define MAX_FMT_LEN 30 + +static void +StartFormatPosition(void) +{ + char *fmt = app_resources.position_format; + + if (fmt) + while (*fmt) + if (*fmt++ == '%') { + int len = 0; + + if (*fmt == '-') { + ++fmt; + ++len; + } + while (*fmt >= '0' && *fmt <= '9') { + ++fmt; + if (++len >= MAX_FMT_LEN) { + XtAppWarning(XtWidgetToApplicationContext(topwindow), + "Format too large to formatPosition"); + position_format_mask = 0; + return; + } + } + switch (*fmt++) { + case 'l': position_format_mask |= l_BIT; break; + case 'c': position_format_mask |= c_BIT; break; + case 'p': position_format_mask |= p_BIT; break; + case 's': position_format_mask |= s_BIT; break; + case '%': break; + default: { + char msg[256]; + + XmuSnprintf(msg, sizeof(msg), + "Unknown format \"%%%c\" in positionFormat", + fmt[-1]); + XtAppWarning(XtWidgetToApplicationContext(topwindow), + msg); + position_format_mask = 0; + return; + } + } + } +} + +/*ARGSUSED*/ +static void +PositionChanged(Widget w, XtPointer client_data, XtPointer call_data) +{ + int idx; + XawTextPositionInfo *info = (XawTextPositionInfo*)call_data; + + for (idx = 0; idx < 3; idx++) + if (w == texts[idx]) + break; + if (idx > 2) + return; + + if (((position_format_mask & l_BIT) + && infos[idx].line_number != info->line_number) + || ((position_format_mask & c_BIT) + && infos[idx].column_number != info->column_number) + || ((position_format_mask & p_BIT) + && infos[idx].insert_position != info->insert_position) + || ((position_format_mask & s_BIT) + && infos[idx].last_position != info->last_position) + || infos[idx].overwrite_mode != info->overwrite_mode) { + int len = 6; + Arg args[1]; + char buffer[256], *str = app_resources.position_format; + char fmt_buf[MAX_FMT_LEN + 2], *fmt; + + memcpy(&infos[idx], info, sizeof(XawTextPositionInfo)); + if (info->overwrite_mode) + strcpy(buffer, "Ovrwt "); + else + strcpy(buffer, " "); + while (*str) { + switch (*str) { + case '%': + fmt = fmt_buf; + *fmt++ = *str++; + if (*str == '-') + *fmt++ = *str++; + /*CONSTCOND*/ + while (*str >= '0' && *str <= '9') { + /* StartPositionFormat() already checked the format + * length. + */ + *fmt++ = *str++; + } + *fmt++ = 'd'; + *fmt = '\0'; + switch (*str) { + case 'l': + XmuSnprintf(&buffer[len], sizeof(buffer) - len, + fmt_buf, info->line_number); + break; + case 'c': + XmuSnprintf(&buffer[len], sizeof(buffer) - len, + fmt_buf, info->column_number); + break; + case 'p': + XmuSnprintf(&buffer[len], sizeof(buffer) - len, + fmt_buf, info->insert_position); + break; + case 's': + XmuSnprintf(&buffer[len], sizeof(buffer) - len, + fmt_buf, info->last_position); + break; + case '%': + strcpy(&buffer[len], "%"); + break; + } + len += strlen(&buffer[len]); + break; + default: + buffer[len++] = *str; + break; + } + if (len >= sizeof(buffer) - 1) + break; + ++str; + } + buffer[len] = '\0'; + + XtSetArg(args[0], XtNlabel, buffer); + XtSetValues(positions[idx], args, 1); + } +} + +/*ARGSUSED*/ +static void +HintsTimer(XtPointer closure, XtIntervalId *id) +{ + Arg args[1]; + xedit_hints *hints = (xedit_hints*)closure; + + hints->cur_hint = rand() % hints->num_hints; + + XtSetArg(args[0], XtNlabel, hints->hints[hints->cur_hint]); + XtSetValues(hintswindow, args, 1); + + hints->timer = XtAppAddTimeOut(XtWidgetToApplicationContext(topwindow), + hints->interval, HintsTimer, closure); +} + +#define MAX_HINT_LEN 255 +#define MIN_HINT_INTERVAL 5 +static void +StartHints(void) +{ + char *str, *p; + unsigned i, len; + xedit_hints *hints = &(app_resources.hints); + + /* if resource was not set, or was overriden */ + if (hints->resource == NULL || !*hints->resource) + return; + + randomize(); + + if (hints->interval < MIN_HINT_INTERVAL) + hints->interval = DEF_HINT_INTERVAL; + hints->interval *= 1000; + hints->hints = (char**)XtMalloc(sizeof(char*)); + hints->hints[hints->cur_hint = 0] = p = hints->resource; + hints->num_hints = 1; + + while ((p = strchr(p, '\n')) != NULL) { + if (*++p == '\0') + break; + hints->hints = (char**) + XtRealloc((char*)hints->hints, + sizeof(char*) * (hints->num_hints + 1)); + hints->hints[hints->num_hints++] = p; + } + + /* make a private copy of the resource values, so that one can change + * the Xrm database safely. + */ + for (i = 0; i < hints->num_hints; i++) { + if ((p = strchr(hints->hints[i], '\n')) != NULL) + len = p - hints->hints[i]; + else + len = strlen(hints->hints[i]); + if (len > MAX_HINT_LEN) + len = MAX_HINT_LEN; + str = XtMalloc(len + 1); + strncpy(str, hints->hints[i], len); + str[len] = '\0'; + hints->hints[i] = str; + } + + hints->timer = XtAppAddTimeOut(XtWidgetToApplicationContext(topwindow), + hints->interval, HintsTimer, + (XtPointer)hints); +} |