/* Ask the user about every occurence of orig pattern and replace it with a
repl pattern if the response is affirmative. */
int
replace_all(UCS *orig, UCS *repl)
{
register int status = 0;
UCS *b;
UCS realpat[NPAT];
char utf8tmp[NPMT];
UCS *promptp;
UCS prompt[NPMT];
int wrapt, n = 0;
LINE *stop_line = curwp->w_dotp;
int stop_offset = curwp->w_doto;
EML eml;
while (1)
if (forscan(&wrapt, orig, stop_line, stop_offset, PTBEG)){
curwp->w_flag |= WFMOVE; /* put cursor back */
update();
(*term.t_rev)(1);
get_pat_cases(realpat, orig);
pputs(realpat, 1); /* highlight word */
(*term.t_rev)(0);
fflush(stdout);
snprintf(utf8tmp, NPMT, "Replace \"");
b = utf8_to_ucs4_cpystr(utf8tmp);
if(b){
ucs4_strncpy(prompt, b, NPMT);
prompt[NPMT-1] = '\0';
fs_give((void **) &b);
}
promptp = &prompt[ucs4_strlen(prompt)];
expandp(orig, promptp, NPMT-(promptp-prompt));
prompt[NPMT-1] = '\0';
promptp += ucs4_strlen(promptp);
b = utf8_to_ucs4_cpystr("\" with \"");
if(b){
ucs4_strncpy(promptp, b, NPMT-(promptp-prompt));
promptp += ucs4_strlen(promptp);
prompt[NPMT-1] = '\0';
fs_give((void **) &b);
}
expandp(repl, promptp, NPMT-(promptp-prompt));
prompt[NPMT-1] = '\0';
promptp += ucs4_strlen(promptp);
if((promptp-prompt) < NPMT-1){
*promptp++ = '\"';
*promptp = '\0';
}
prompt[NPMT-1] = '\0';
status = mlyesno(prompt, TRUE); /* ask user */
if (status == TRUE){
n++;
chword(realpat, repl); /* replace word */
update();
}else{
chword(realpat, realpat); /* replace word by itself */
update();
if(status == ABORT){ /* if cancelled return */
eml.s = comatose(n);
emlwrite("Replace All cancelled after %s changes", &eml);
return (ABORT); /* ... else keep looking */
}
}
}
else{
char *utf8;
utf8 = ucs4_to_utf8_cpystr(orig);
if(utf8){
eml.s = utf8;
emlwrite(_("No more matches for \"%s\""), &eml);
fs_give((void **) &utf8);
}
else
emlwrite(_("No more matches"), NULL);
return (FALSE);
}
}
/*
* 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);
}
/* Replace a pattern with the pattern the user types in one or more times. */
int
replace_pat(UCS *defpat, int *wrapt)
{
register int status;
UCS lpat[NPAT], origpat[NPAT]; /* case sensitive pattern */
EXTRAKEYS menu_pat[2];
int repl_all = FALSE;
UCS *b;
char utf8tmp[NPMT];
UCS prompt[NPMT];
UCS *promptp;
forscan(wrapt, defpat, NULL, 0, PTBEG); /* go to word to be replaced */
lpat[0] = '\0';
/* additional 'replace all' menu option */
menu_pat[0].name = "^X";
menu_pat[0].key = (CTRL|'X');
menu_pat[0].label = N_("Repl All");
KS_OSDATASET(&menu_pat[0], KS_NONE);
menu_pat[1].name = NULL;
while(1) {
update();
(*term.t_rev)(1);
get_pat_cases(origpat, defpat);
pputs(origpat, 1); /* highlight word */
(*term.t_rev)(0);
snprintf(utf8tmp, NPMT, "Replace%s \"", repl_all ? " every" : "");
b = utf8_to_ucs4_cpystr(utf8tmp);
if(b){
ucs4_strncpy(prompt, b, NPMT);
prompt[NPMT-1] = '\0';
fs_give((void **) &b);
}
promptp = &prompt[ucs4_strlen(prompt)];
expandp(defpat, promptp, NPMT-(promptp-prompt));
prompt[NPMT-1] = '\0';
promptp += ucs4_strlen(promptp);
b = utf8_to_ucs4_cpystr("\" with");
if(b){
ucs4_strncpy(promptp, b, NPMT-(promptp-prompt));
promptp += ucs4_strlen(promptp);
prompt[NPMT-1] = '\0';
fs_give((void **) &b);
}
if(rpat[0] != '\0'){
if((promptp-prompt) < NPMT-2){
*promptp++ = ' ';
*promptp++ = '[';
*promptp = '\0';
}
expandp(rpat, promptp, NPMT-(promptp-prompt));
prompt[NPMT-1] = '\0';
promptp += ucs4_strlen(promptp);
if((promptp-prompt) < NPMT-1){
*promptp++ = ']';
*promptp = '\0';
}
}
if((promptp-prompt) < NPMT-3){
*promptp++ = ' ';
*promptp++ = ':';
*promptp++ = ' ';
*promptp = '\0';
}
prompt[NPMT-1] = '\0';
status = mlreplyd(prompt, lpat, NPAT, QDEFLT, menu_pat);
curwp->w_flag |= WFMOVE;
switch(status){
case TRUE :
case FALSE :
if(lpat[0]){
ucs4_strncpy(rpat, lpat, NPAT); /* remember default */
rpat[NPAT-1] = '\0';
}
else{
ucs4_strncpy(lpat, rpat, NPAT); /* use default */
lpat[NPAT-1] = '\0';
}
if (repl_all){
status = replace_all(defpat, lpat);
}
else{
chword(defpat, lpat); /* replace word */
update();
status = TRUE;
}
if(status == TRUE)
emlwrite("", NULL);
return(status);
case HELPCH: /* help requested */
if(Pmaster){
VARS_TO_SAVE *saved_state;
saved_state = save_pico_state();
(*Pmaster->helper)(Pmaster->search_help,
_("Help for Searching"), 1);
if(saved_state){
restore_pico_state(saved_state);
free_pico_state(saved_state);
}
}
else
pico_help(SearchHelpText, _("Help for Searching"), 1);
case (CTRL|'L'): /* redraw requested */
pico_refresh(FALSE, 1);
update();
break;
case (CTRL|'X'): /* toggle replace all option */
if (repl_all){
repl_all = FALSE;
/* TRANSLATORS: abbreviation for Replace All occurences */
menu_pat[0].label = N_("Repl All");
}
else{
repl_all = TRUE;
/* TRANSLATORS: Replace just one occurence */
menu_pat[0].label = N_("Repl One");
}
break;
default:
if(status == ABORT){
emlwrite(_("Replacement Cancelled"), NULL);
pico_refresh(FALSE, 1);
}
else{
mlerase();
chword(defpat, origpat);
}
update();
return(FALSE);
}
}
}