/*
* Fill the current paragraph according to the current fill column
*/
int
fillpara(int f, int n)
{
UCS *qstr, qstr2[NSTRING], c;
int quotelevel = -1;
REGION addedregion;
char action = 'P';
if(curbp->b_mode&MDVIEW){ /* don't allow this command if */
return(rdonly()); /* we are in read only mode */
}
else if (fillcol == 0) { /* no fill column set */
mlwrite_utf8("No fill column set", NULL);
return(FALSE);
}
else if(curwp->w_dotp == curbp->b_linep && !curwp->w_markp) /* don't wrap! */
return(FALSE);
/*
* If there is already a region set, then we may use it
* instead of the current paragraph.
*/
if(curwp->w_markp){
int k, rv;
KEYMENU menu_justify[12];
char prompt[100];
for(k = 0; k < 12; k++){
menu_justify[k].name = NULL;
KS_OSDATASET(&menu_justify[k], KS_NONE);
}
menu_justify[1].name = "R";
menu_justify[1].label = "[" N_("Region") "]";
menu_justify[6].name = "^C";
menu_justify[6].label = N_("Cancel");
menu_justify[7].name = "P";
menu_justify[7].label = N_("Paragraph");
menu_justify[2].name = "Q";
menu_justify[2].label = N_("Quotelevel");
wkeyhelp(menu_justify); /* paint menu */
sgarbk = TRUE;
if(Pmaster && curwp)
curwp->w_flag |= WFMODE;
strncpy(prompt, "justify Region, Paragraph; or fix Quotelevel ? ", sizeof(prompt));
prompt[sizeof(prompt)-1] = '\0';
mlwrite_utf8(prompt, NULL);
(*term.t_rev)(1);
rv = -1;
while(1){
switch(c = GetKey()){
case (CTRL|'C') : /* Bail out! */
case F2 :
pputs_utf8(_("ABORT"), 1);
rv = ABORT;
emlwrite("", NULL);
break;
case (CTRL|'M') : /* default */
case 'r' :
case 'R' :
case F3 :
pputs_utf8(_("Region"), 1);
rv = 'R';
break;
case 'p' :
case 'P' :
case F7 :
pputs_utf8(_("Paragraph"), 1);
rv = 'P';
break;
case 'q' :
case 'Q' :
case F8 :
case '0' : case '1' : case '2' : case '3' : case '4' :
case '5' : case '6' : case '7' : case '8' : case '9' :
pputs_utf8(_("Quotelevel"), 1);
while(rv == -1){
switch(c){
case 'q' :
case 'Q' :
case F8 :
{char num[20];
num[0] = '\0';
switch(mlreplyd_utf8("Quote Level ? ", num, sizeof(num), QNORML, NULL)){
case TRUE:
if(isdigit(num[0])){
quotelevel = atoi(num);
if(quotelevel < 0){
emlwrite("Quote Level cannot be negative", NULL);
sleep(3);
}
else if(quotelevel > 20){
emlwrite("Quote Level should be less than 20", NULL);
rv = ABORT;
}
else{
rv = 'Q';
}
}
else if(num[0]){
emlwrite("Quote Level should be a number", NULL);
sleep(3);
}
break;
case HELPCH:
emlwrite("Enter the number of quotes you want before the text", NULL);
sleep(3);
break;
default:
emlwrite("Quote Level is a number", NULL);
rv = ABORT;
break;
}
}
break;
case '0' : case '1' : case '2' : case '3' : case '4' :
case '5' : case '6' : case '7' : case '8' : case '9' :
rv = 'Q';
quotelevel = (int) (c - '0');
break;
}
}
break;
case (CTRL|'G') :
if(term.t_mrow == 0 && km_popped == 0){
movecursor(term.t_nrow-2, 0);
peeol();
term.t_mrow = 2;
(*term.t_rev)(0);
wkeyhelp(menu_justify);
mlwrite_utf8(prompt, NULL);
(*term.t_rev)(1);
sgarbk = TRUE; /* mark menu dirty */
km_popped++;
break;
}
/* else fall through */
default:
(*term.t_beep)();
case NODATA :
break;
}
(*term.t_flush)();
if(rv != -1){
(*term.t_rev)(0);
if(km_popped){
term.t_mrow = 0;
movecursor(term.t_nrow, 0);
peeol();
sgarbf = 1;
km_popped = 0;
}
action = rv;
break;
}
}
if(action != ABORT)
emlwrite("", NULL);
}
if(action == 'R' && curwp->w_markp){
/* let yank() know that it may be restoring a paragraph */
thisflag |= CFFILL;
if(!Pmaster)
sgarbk = TRUE;
curwp->w_flag |= WFMODE;
swap_mark_and_dot_if_mark_comes_first();
/* determine if we're justifying quoted text or not */
qstr = (glo_quote_str
&& quote_match(glo_quote_str,
curwp->w_doto > 0 ? curwp->w_dotp->l_fp : curwp->w_dotp,
qstr2, NSTRING)
&& *qstr2) ? qstr2 : NULL;
/*
* Fillregion moves dot to the end of the filled region.
*/
if(!fillregion(qstr, &addedregion))
return(FALSE);
set_last_region_added(&addedregion);
}
else if(action == 'P'){
/*
* Justfiy the current paragraph.
*/
if(curwp->w_markp) /* clear mark if already set */
setmark(0,0);
if(gotoeop(FALSE, 1) == FALSE)
return(FALSE);
/* determine if we're justifying quoted text or not */
qstr = (glo_quote_str
&& quote_match(glo_quote_str,
curwp->w_dotp, qstr2, NSTRING)
&& *qstr2) ? qstr2 : NULL;
setmark(0,0); /* mark last line of para */
/* jump back to the beginning of the paragraph */
gotobop(FALSE, 1);
/* let yank() know that it may be restoring a paragraph */
thisflag |= (CFFILL | CFFLPA);
if(!Pmaster)
sgarbk = TRUE;
curwp->w_flag |= WFMODE;
curwp->w_doto = 0; /* start region at beginning of line */
/*
* Fillregion moves dot to the end of the filled region.
*/
if(!fillregion(qstr, &addedregion))
return(FALSE);
set_last_region_added(&addedregion);
/* Leave cursor on first char of first line after justified region */
curwp->w_dotp = lforw(curwp->w_dotp);
curwp->w_doto = 0;
if(curwp->w_markp)
setmark(0,0); /* clear mark */
}
else if(action == 'Q'){
/* let yank() know that it may be restoring a paragraph */
thisflag |= CFFILL;
if(!Pmaster)
sgarbk = TRUE;
curwp->w_flag |= WFHARD;
swap_mark_and_dot_if_mark_comes_first();
if(!setquotelevelinregion(quotelevel, &addedregion))
return(FALSE);
set_last_region_added(&addedregion);
}
else{
/* abort */
}
return(TRUE);
}
/*
* scrollw - takes beginning row and ending row to diplay an array
* of text lines. returns either 0 if scrolling terminated
* normally or the value of a ctrl character typed to end it.
*
* updates -
* 01/11/89 - added stripe call if 1st char is tilde - '~'
*
*/
int
wscrollw(int begrow, int endrow, char *utf8textp[], int textlen)
{
register int loffset = 0;
register int prevoffset = -1;
register int dlines;
register int i;
register int cont;
register int done = 0;
register char *buf;
UCS c;
dlines = endrow - begrow - 1;
while(!done) {
/*
* diplay a page loop ...
*/
if(prevoffset != loffset){
for(i = 0; i < dlines; i++){
movecursor(i + begrow, 0);
peeol();
if((loffset+i) < textlen){
buf = _(&(utf8textp[loffset+i][0]));
if(*buf == '~'){
buf++;
wstripe(begrow+i, 0, buf, '~');
}
else{
pputs_utf8(buf, 0);
}
}
}
/*
* put up the options prompt
*/
movecursor(begrow + dlines, 0);
cont = (loffset+dlines < textlen);
if(cont){ /* continue ? */
menu_scroll[NEXT_KEY].name = "^V";
/* TRANSLATORS: Next Page, a command key label */
menu_scroll[NEXT_KEY].label = N_("Next Pg");
}
else
menu_scroll[NEXT_KEY].name = NULL;
if(loffset){
menu_scroll[PREV_KEY].name = "^Y";
/* TRANSLATORS: Previous Page */
menu_scroll[PREV_KEY].label = N_("Prev Pg");
}
else
menu_scroll[PREV_KEY].name = NULL;
wkeyhelp(menu_scroll);
}
(*term.t_flush)();
c = GetKey();
prevoffset = loffset;
switch(c){
case (CTRL|'X') : /* quit */
case F2 :
done = 1;
break;
case (CTRL|'Y') : /* prev page */
case F7 : /* prev page */
if((loffset-dlines-OVERLAP) > 0){
loffset -= (dlines-OVERLAP);
}
else{
if(loffset != 0){
prevoffset = -1;
}
else{
(*term.t_beep)();
}
loffset = 0;
}
break;
case (CTRL|'V') : /* next page */
case F8 :
if(cont){
loffset += (dlines-OVERLAP);
}
else{
(*term.t_beep)();
}
break;
case '\016' : /* prev-line */
case (CTRL|'N') :
if(cont)
loffset++;
else
(*term.t_beep)();
break;
case '\020' : /* prev-line */
case (CTRL|'P') :
if(loffset > 0)
loffset--;
else
(*term.t_beep)();
break;
case '\014' : /* refresh */
case (CTRL|'L') : /* refresh */
modeline(curwp);
update();
prevoffset = -1;
break;
case NODATA :
break;
#ifdef notdef
/*
* We don't handle window resize events correctly when in pico help.
* resize_pico() redraws the edit window instead of the help window.
* A ^L will redraw the help text. What we'd like is something like
* a KEY_RESIZE return from GetKey. If we had that we could exit
* wscrollw with a FALSE return value and have that cause us to loop
* back into wscrollw with the adjusted size. That would still mean
* the edit text would be redrawn first...
*/
#endif /* notdef */
default :
unknown_command(c);
break;
}
}
return(TRUE);
}
