/*
* Extract the word at dot without changing dot position.
*/
int
curtoken(int f, int n, char *token)
{
struct line *odotp;
int odoto, tdoto, odotline, size, r;
char c;
/* Underscore character is to be treated as "inword" while
* processing tokens unlike mg's default word traversal. Save
* and restore it's cinfo value so that tag matching works for
* identifier with underscore.
*/
c = cinfo['_'];
cinfo['_'] = _MG_W;
odotp = curwp->w_dotp;
odoto = curwp->w_doto;
odotline = curwp->w_dotline;
/* Move backword unless we are at the beginning of a word or at
* beginning of line.
*/
if (!atbow())
if ((r = backword(f, n)) == FALSE)
goto cleanup;
tdoto = curwp->w_doto;
if ((r = forwword(f, n)) == FALSE)
goto cleanup;
/* strip away leading whitespace if any like emacs. */
while (ltext(curwp->w_dotp) &&
isspace(lgetc(curwp->w_dotp, tdoto)))
tdoto++;
size = curwp->w_doto - tdoto;
if (size <= 0 || size >= MAX_TOKEN ||
ltext(curwp->w_dotp) == NULL) {
r = FALSE;
goto cleanup;
}
strncpy(token, ltext(curwp->w_dotp) + tdoto, size);
token[size] = '\0';
r = TRUE;
cleanup:
cinfo['_'] = c;
curwp->w_dotp = odotp;
curwp->w_doto = odoto;
curwp->w_dotline = odotline;
return (r);
}
/* ARGSUSED */
int
backword(int f, int n)
{
if (n < 0)
return (forwword(f | FFRAND, -n));
if (backchar(FFRAND, 1) == FALSE)
return (FALSE);
while (n--) {
while (inword() == FALSE) {
if (backchar(FFRAND, 1) == FALSE)
return (TRUE);
}
while (inword() != FALSE) {
if (backchar(FFRAND, 1) == FALSE)
return (TRUE);
}
}
return (forwchar(FFRAND, 1));
}
/*
* Move the cursor backward by "n" words. All of the details of motion are
* performed by the "backchar" and "forwchar" routines. Error if you try to
* move beyond the buffers.
*/
int
backword(int f, int n)
{
if (n < 0)
return (forwword(f, -n));
if (backchar_no_header_editor(FALSE, 1) == FALSE)
return (FALSE);
while (n--) {
while (inword() == FALSE) {
if (backchar_no_header_editor(FALSE, 1) == FALSE)
return (FALSE);
}
while (inword() != FALSE) {
if (backchar_no_header_editor(FALSE, 1) == FALSE)
return (FALSE);
}
}
return (forwchar(FALSE, 1));
}
/*
* $Log: region.c,v $
* Revision 1.3 2001/05/25 15:37:21 amura
* now buffers have only one mark (before windows have one mark)
*
* Revision 1.2 2001/02/18 17:07:27 amura
* append AUTOSAVE feature (but NOW not work)
*
* Revision 1.1.1.1 2000/06/27 01:47:56 amura
* import to CVS
*
*/
#include "config.h" /* 90.12.20 by S.Yoshida */
#include "def.h"
#ifdef UNDO
#include "undo.h"
#endif
int getregion pro((REGION*));
static int setsize pro((REGION*,RSIZE));
#ifdef CHGMISC /* 97.11.10 by M.Suzuki */
copywordregion(f, n)
{
setmark(f, n);
forwword(f,n);
return copyregion(f, n);
}
/*
* spell() - check for potentially missspelled words and offer them for
* correction
*/
int
spell(int f, int n)
{
int status, next, ret;
char ccb[NLINE], *sp, *fn, *lp, *wsp, c, spc[NLINE];
UCS *b;
UCS wb[NLINE], cb[NLINE];
EML eml;
setimark(0, 1);
emlwrite(_("Checking spelling..."), NULL); /* greetings */
if(alt_speller)
return(alt_editor(1, 0)); /* f == 1 means fork speller */
if((fn = writetmp(0, NULL)) == NULL){
emlwrite(_("Can't write temp file for spell checker"), NULL);
return(-1);
}
if((sp = (char *)getenv("SPELL")) == NULL)
sp = SPELLER;
/* exists? */
ret = (strlen(sp) + 1);
snprintf(spc, sizeof(spc), "%s", sp);
for(lp = spc, ret = FIOERR; *lp; lp++){
if((wsp = strpbrk(lp, " \t")) != NULL){
c = *wsp;
*wsp = '\0';
}
if(strchr(lp, '/')){
ret = fexist(lp, "x", (off_t *)NULL);
}
else{
char *path, fname[MAXPATH+1];
if(!(path = getenv("PATH")))
path = ":/bin:/usr/bin";
ret = ~FIOSUC;
while(ret != FIOSUC && *path && pathcat(fname, &path, lp))
ret = fexist(fname, "x", (off_t *)NULL);
}
if(wsp)
*wsp = c;
if(ret == FIOSUC)
break;
}
if(ret != FIOSUC){
eml.s = sp;
emlwrite(_("\007Spell-checking file \"%s\" not found"), &eml);
return(-1);
}
snprintf(ccb, sizeof(ccb), "( %s ) < %s", sp, fn);
if(P_open(ccb) != FIOSUC){ /* read output from command */
our_unlink(fn);
emlwrite(_("Can't fork spell checker"), NULL);
return(-1);
}
ret = 1;
while(ffgetline(wb, NLINE, NULL, 0) == FIOSUC && ret){
if((b = ucs4_strchr(wb, (UCS) '\n')) != NULL)
*b = '\0';
ucs4_strncpy(cb, wb, NLINE);
cb[NLINE-1] = '\0';
gotobob(0, 1);
status = TRUE;
next = 1;
while(status){
if(next++)
if(movetoword(wb) != TRUE)
break;
update();
(*term.t_rev)(1);
pputs(wb, 1); /* highlight word */
(*term.t_rev)(0);
if(ucs4_strcmp(cb, wb)){
char prompt[2*NLINE + 32];
char *wbu, *cbu;
wbu = ucs4_to_utf8_cpystr(wb);
cbu = ucs4_to_utf8_cpystr(cb);
snprintf(prompt, sizeof(prompt), _("Replace \"%s\" with \"%s\""), wbu, cbu);
status=mlyesno_utf8(prompt, TRUE);
if(wbu)
fs_give((void **) &wbu);
if(cbu)
fs_give((void **) &cbu);
}
else{
UCS *p;
p = utf8_to_ucs4_cpystr(_("Edit a replacement: "));
status=mlreplyd(p, cb, NLINE, QDEFLT, NULL);
if(p)
fs_give((void **) &p);
}
curwp->w_flag |= WFMOVE; /* put cursor back */
sgarbk = 0; /* fake no-keymenu-change! */
update();
pputs(wb, 0); /* un-highlight */
switch(status){
case TRUE:
chword(wb, cb, 0); /* correct word */
case FALSE:
update(); /* place cursor */
break;
case ABORT:
emlwrite(_("Spell Checking Cancelled"), NULL);
ret = FALSE;
status = FALSE;
break;
case HELPCH:
if(Pmaster){
VARS_TO_SAVE *saved_state;
saved_state = save_pico_state();
(*Pmaster->helper)(pinespellhelp,
_("Help with Spelling Checker"), 1);
if(saved_state){
restore_pico_state(saved_state);
free_pico_state(saved_state);
}
}
else
pico_help(spellhelp, _("Help with Spelling Checker"), 1);
case (CTRL|'L'):
next = 0; /* don't get next word */
sgarbf = TRUE; /* repaint full screen */
update();
status = TRUE;
continue;
default:
emlwrite("Huh?", NULL); /* shouldn't get here, but.. */
status = TRUE;
sleep(1);
break;
}
forwword(0, 1); /* goto next word */
}
}
P_close(); /* clean up */
our_unlink(fn);
swapimark(0, 1);
curwp->w_flag |= WFHARD|WFMODE;
sgarbk = TRUE;
if(ret)
emlwrite(_("Done checking spelling"), NULL);
return(ret);
}