/* ********************************************************************** *\ * Copyright IBM Corporation 1988,1991 - All Rights Reserved * * For full copyright information see:'andrew/config/COPYRITE' * \* ********************************************************************** */ /* $Disclaimer: * Permission to use, copy, modify, and distribute this software and its * documentation for any purpose is hereby granted without fee, * provided that the above copyright notice appear in all copies and that * both that copyright notice, this permission notice, and the following * disclaimer appear in supporting documentation, and that the names of * IBM, Carnegie Mellon University, and other copyright holders, not be * used in advertising or publicity pertaining to distribution of the software * without specific, written prior permission. * * IBM, CARNEGIE MELLON UNIVERSITY, AND THE OTHER COPYRIGHT HOLDERS * DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT * SHALL IBM, CARNEGIE MELLON UNIVERSITY, OR ANY OTHER COPYRIGHT HOLDER * BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY * DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE * OF THIS SOFTWARE. * $ */ #ifndef NORCSID #define NORCSID static char rcsid[]="$Header: /afs/cs.cmu.edu/project/atk-dist/auis-6.3/atk/extensions/RCS/spell.c,v 2.25 1993/09/22 19:24:51 gk5g Exp $"; #endif /* xspell.c * Mega hack to get ispell capabilities in bx. * Perhaps will clean up later... */ #include /* sys/types.h sys/file.h */ #include #include #include #include #include #include #include #include #include #include #include #define Text(self) ((struct text *) self->header.view.dataobject) static FILE *inFile, *outFile; static char *wordArray[10]; static boolean expertMode; /* flags to account for variations in ispell behavior */ static boolean isvers_extranewlines = FALSE; /* in ispell 3, there were extra newlines on things. */ static boolean isvers_noaccept = FALSE; /* in ispell 4, there is no way to accept or add words in -a mode. */ /* Process handling stuff. Copied verbatim from compile.c */ #define READFD 0 /* The pipe index from which you can do a read. */ #define WRITEFD 1 /* The pipe index to which you can do a write. */ struct process { FILE *inFile, *outFile; short pid; boolean stopped; }; static struct process *StartProcess(command, inputFile, outputFile) char *command; FILE **inputFile, **outputFile; { int inpipe[2], outpipe[2], pid; struct process *thisProc; /* Create pipe for parent reading from child. */ if (inputFile != NULL) { if (pipe(inpipe) < 0) return 0; *inputFile = fdopen(inpipe[READFD], "r"); fcntl(inpipe[READFD], F_SETFD, 1); /* Set close on exec flag. */ } else if ((inpipe[WRITEFD] = open("/dev/null", O_WRONLY) < 0)) return 0; /* Create pipe for parent writing to child. */ if (outputFile != NULL) { if (pipe(outpipe) < 0) return 0; *outputFile = fdopen(outpipe[WRITEFD], "w"); fcntl(outpipe[WRITEFD], F_SETFD, 1); /* Set close on exec flag. */ } else if ((outpipe[READFD] = open("/dev/null", O_RDONLY)) < 0) return 0; if ((pid = osi_vfork()) == 0) { /* In child */ int numfds = getdtablesize(); int fd; dup2(outpipe[READFD], 0); dup2(inpipe[WRITEFD], 1); dup2(1, 2); /* Should have more control over this. */ /* Don't leave any open file descriptors for child. */ for (fd = 3; fd < numfds; fd++) close(fd); NEWPGRP(); execlp("/bin/csh", "csh", "-cf", command, (char *)NULL); exit(0); } close(outpipe[READFD]); close(inpipe[WRITEFD]); thisProc = (struct process *) malloc(sizeof(struct process)); if (inputFile != NULL) thisProc->inFile = *inputFile; else thisProc->inFile = NULL; if (outputFile != NULL) thisProc->outFile = *outputFile; else thisProc->outFile = NULL; thisProc->pid = pid; thisProc->stopped = FALSE; return thisProc; } /* Kill the speller process. Depends on the interact loop to cleanup the * zombie. */ static int KillSpeller() { fclose(inFile); fclose(outFile); return(0); /* We assume the EOF will terminate the speller. The code used to send a * SIGTERM, but this resulted in a race condition that would trash the user's * private dictionary if the last word in a document was inserted in said * dict. */ } /* Makes up a prompt line and fills in the global word array. This will be * replaced by a multiple choice question call shortly. * Really should have a bounds test on buffer... */ static int BuildQuestionLine(buffer, choices) char *buffer, *choices; { int i; if(isvers_extranewlines) { char *t; if (t = (char*) index(choices, ':')) { choices = t + 2; } } else { while (*choices == ' ') choices++; } for (i = 0; *choices != '\0' && (i < 10); i++) { sprintf(buffer, "%d) ", i); buffer += strlen(buffer); wordArray[i] = choices; while (*choices && *choices != ',' && *choices != ' ' && *choices != '\n') *buffer++ = *choices++; if (!*choices) break; *choices++ = '\0'; *buffer++ = ' '; while (*choices && *choices == ' ' || *choices == '\n') choices++; } *buffer = '\0'; return i + 1; } /* Actually spell check an entire document starting at the current cursor * position. */ /* ARGUSED */ void spell__CheckDocument(classID, self, rock) struct classheader *classID; struct textview *self; long rock; { int pos = textview_GetDotPosition(self), savePos = pos, saveLength = textview_GetDotLength(self), c; struct text *text; struct mark *tempMark; struct process *speller; char testBuf[100]; long textlen; /* Post a wait cursor. */ message_DisplayString(self, 0, "Starting spell check."); im_ForceUpdate(); text = Text(self); tempMark = text_CreateMark(text, 0, 0); /* Start up process and free process structure. */ if ((speller = StartProcess("ispell -a", &inFile, &outFile)) != NULL) free(speller); /* Not used for now. */ else { message_DisplayString(self, 0, "Unable to execute ispell."); return; } *testBuf = (char) 0; /* Do an initial rendezvous to ensure that process actually started. */ #define EatNewLine() fgets(testBuf, sizeof(testBuf), inFile) if (fputs("the\n", outFile) == EOF || fflush(outFile) == EOF || fgets(testBuf, sizeof(testBuf), inFile) == NULL || *testBuf == '\0') { message_DisplayString(self, 0, "Could not start ispell. Spell checking may not be supported at this site."); return; } else { if(*testBuf != '*') { /* testBuf must contain the ispell3 version string */ message_DisplayString(self, 10, testBuf); isvers_extranewlines = TRUE; EatNewLine(); /* eat '*' result from 'the' query */ EatNewLine(); /* eat '\n' */ } else { /* I assume that the extranewlines problem and the noaccept problem do not coexist in any one version of ispell. */ fputs("@murglexxxnonexistentword\n", outFile); fflush(outFile); fgets(testBuf, sizeof(testBuf), inFile); if (*testBuf != '*') { isvers_noaccept = TRUE; } } } while (pos<(textlen=text_GetLength(text))) { int c; while (pos][A][R]%s[I][Q] ?", expertMode ? "[E]" : ""); do { int response; int i; int len; int max; char wordBuf[200]; char *word; i = textview_GetDotPosition(self); len = textview_GetDotLength(self); if (len > sizeof(wordBuf) - 1) max = i + sizeof(wordBuf) - 1; else max = i + len; for (word = wordBuf; i < max; ++i) *word++ = text_GetChar(text, i); *word = '\0'; flag = 0; message_DisplayString(self, 0, messageBuf); response = im_GetCharacter(textview_GetIM(self)); switch (response) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': if ((response - '0') <= maxWord) { mark_SetPos(tempMark, pos); mark_SetLength(tempMark, 0); text_ReplaceCharacters(text, textview_GetDotPosition(self), textview_GetDotLength(self), wordArray[response - '0'], strlen(wordArray[response - '0'])); pos = mark_GetPos(tempMark); } else { message_DisplayString(self, 0, "Number too large. Press any key to continue."); im_GetCharacter(textview_GetIM(self)); flag = 1; } break; case ' ': message_DisplayString(self, 0, "Accepted."); break; case 'a': case 'A': if (isvers_noaccept) { message_DisplayString(self, 0, "Your ispell does not allow the 'accept' option. Press any key to continue."); im_GetCharacter(textview_GetIM(self)); flag = 1; break; } fputs("@", outFile); fputs(thisWord, outFile); fputc('\n', outFile); fflush(outFile); if (! isvers_extranewlines) { /* Snag garbage... */ fgets(buffer, sizeof(buffer), inFile); } message_DisplayString(self, 0, "Accepted for rest of session."); break; case 'r': case 'R': if (message_AskForString(self, 0, "Replacement word: ", wordBuf, wordBuf, sizeof(wordBuf)) >= 0) { mark_SetPos(tempMark, startpos); text_ReplaceCharacters(text, textview_GetDotPosition(self), textview_GetDotLength(self), wordBuf, strlen(wordBuf)); pos = mark_GetPos(tempMark); } else { message_DisplayString(self, 0, "Canceled. Press any key to continue."); im_GetCharacter(textview_GetIM(self)); flag = 1; } break; case 'i': case 'I': if (isvers_noaccept) { message_DisplayString(self, 0, "Your ispell does not allow the 'insert' option. Press any key to continue."); im_GetCharacter(textview_GetIM(self)); flag = 1; break; } putc('*', outFile); fputs(thisWord, outFile); fputc('\n', outFile); fflush(outFile); if (! isvers_extranewlines) { /* Snag garbage... */ fgets(buffer, sizeof(buffer), inFile); } message_DisplayString(self, 0, "Entered in private dict."); break; case 'q': case 'Q': case EOF: KillSpeller(); message_DisplayString(self, 0, "Spell check terminated."); textview_SetDotPosition(self, savePos); textview_SetDotLength(self, saveLength); textview_FrameDot(self, savePos); textview_WantUpdate(self, self); text_RemoveMark(text, tempMark); mark_Destroy(tempMark); return; /* Get out of here. */ case 'e': case 'E': if (expertMode) { mark_SetPos(tempMark, startpos); textview_SetDotLength(self, 0); textview_WantUpdate(self, self); message_DisplayString(self, 0, "Recursive editing, ^C exits."); im_KeyboardProcessor(); pos = mark_GetPos(tempMark); /* Recheck... */ break; } default: if (expertMode) message_DisplayString(self, 0, ": Accept once, [A]: Accept, [R]: Replace, [E] Edit, [I]: Insert in private dictionary, [Q]: Quit, : replace with that word. Press any key to continue."); else message_DisplayString(self, 0, ": Accept once, [A]: Accept, [R]: Replace, [I]: Insert in private dictionary, [Q]: Quit, : replace with that word. Press any key to continue."); im_GetCharacter(textview_GetIM(self)); flag = 1; break; } } while (flag); textview_WantUpdate(self, self); im_ForceUpdate(); break; default: /* Ispell is broken. */ break; } } } KillSpeller(); text_RemoveMark(text, tempMark); mark_Destroy(tempMark); textview_SetDotPosition(self, savePos); textview_SetDotLength(self, saveLength); message_DisplayString(self, 0, "Spell check completed."); textview_FrameDot(self, savePos); textview_WantUpdate(self, self); } static void spell_CheckSpellingCmd(self, rock) struct textview *self; long rock; { spell_CheckDocument(self, rock); } boolean spell__InitializeClass(classID) struct classheader *classID; { proctable_DefineProc("spell-check-document", (procedure) spell_CheckSpellingCmd, class_Load("textview"), NULL, "Checks spelling from the caret on."); expertMode = environ_GetProfileSwitch("expertmode", FALSE); return TRUE; }