int ueop(BW *bw)
{
P *q = pdup(bw->cursor, USTR "ueop");
up:
while (pisnpara(bw, q) && !piseof(q))
pnextl(q);
pbop(bw, q);
peop(bw, q);
if (q->byte != bw->cursor->byte) {
pset(bw->cursor, q);
prm(q);
return 0;
} else if (!piseof(q)) {
pnextl(q);
goto up;
} else {
prm(q);
return -1;
}
}
int uformat(BW *bw)
{
long indent;
unsigned char *indents;
B *buf;
P *b;
long curoff;
int c;
P *p, *q;
p = pdup(bw->cursor, USTR "uformat");
p_goto_bol(p);
/* Do nothing if we're not on a paragraph line */
if (pisnpara(bw, p)) {
prm(p);
return 0;
}
/* Move p to beginning of paragraph, bw->cursor to end of paragraph and
* set curoff to original cursor offset within the paragraph */
pbop(bw, p);
curoff = bw->cursor->byte - p->byte;
pset(bw->cursor, p);
peop(bw, bw->cursor);
/* Ensure that paragraph ends on a beginning of a line */
if (!pisbol(bw->cursor))
binsc(bw->cursor, '\n'), pgetc(bw->cursor);
/* Record indentation of second line of paragraph, of first line if there
* is only one line */
q = pdup(p, USTR "uformat");
pnextl(q);
if (q->line != bw->cursor->line) {
P *r = pdup(q, USTR "uformat");
indent = nindent(bw, q, 0);
pcol(r, indent);
indents = brs(q, r->byte - q->byte);
prm(r);
} else {
P *r = pdup(p, USTR "uformat");
int x, y;
indent = nindent(bw, p, 1); /* allowing * and - here */
pcol(r, indent);
indents = brs(p, r->byte - p->byte);
prm(r);
if (!bw->o.autoindent) {
/* Don't indent second line of single-line paragraphs if autoindent is off */
int x = zlen(indents);
while (x && (indents[x - 1] == ' ' || indents[x - 1] == '\t'))
indents[--x] = 0;
if (x) {
indents[x++] = ' ';
indents[x] = 0;
}
indent = txtwidth1(bw->o.charmap, bw->o.tab, indents, x);
}
for (x = 0; indents[x] && (indents[x] == ' ' || indents[x] == '\t'); ++x);
y = zlen(indents);
while (y && (indents[y - 1] == ' ' || indents[y - 1] == '\t'))
--y;
/* Don't duplicate if it looks like a bullet */
/* if (y && (indents[y - 1] == '*' || indents[y - 1] == '-') &&
(y == 1 || indents[y - 2] == ' ' || indents[y - 2] == '\t'))
indents[y - 1] = ' '; */
/* Fix C comment */
if (indents[x] == '/' && indents[x + 1] == '*')
indents[x] = ' ';
}
prm(q);
/* But if the left margin is greater, we use that instead */
if (bw->o.lmargin > indent) {
int x;
for (x = 0; indents[x] == ' ' || indents[x] == '\t'; ++x);
if (!indents[x]) {
joe_free(indents);
indent = bw->o.lmargin;
indents = joe_malloc(indent+1);
for (x = 0; x != indent; ++x)
indents[x] = ' ';
indents[x] = 0;
}
}
/* Cut paragraph into new buffer */
/* New buffer needs to inherit UTF-8 and CR-LF options */
buf = bcpy(p, bw->cursor);
buf->o.crlf = p->b->o.crlf;
buf->o.charmap = p->b->o.charmap;
bdel(p, bw->cursor);
/* text is in buffer. insert it at cursor */
/* Do first line */
b = pdup(buf->bof, USTR "uformat");
while (!piseof(b)) {
/* Set cursor position if we're at original offset */
if (b->byte == curoff)
pset(bw->cursor, p);
/* Get character from buffer */
c = pgetc(b);
/* Stop if we found end of line */
if (c == '\n') {
prgetc(b);
break;
}
/* Stop if we found white-space followed by end of line */
if (joe_isblank(b->b->o.charmap, c) && piseolblank(b)) {
prgetc(b);
break;
}
/* Insert character, advance pointer */
binsc(p, c);
pgetc(p);
/* Do word wrap if we reach right margin */
if (piscol(p) > bw->o.rmargin && !joe_isblank(p->b->o.charmap,c)) {
wrapword(bw, p, indent, bw->o.french, 1, indents);
break;
}
}
/* Do rest */
while (!piseof(b)) {
c = brch(b);
if (joe_isblank(b->b->o.charmap,c) || c == '\n') {
int f = 0;
P *d;
int g;
/* Set f if there are two spaces after . ? or ! instead of one */
/* (What is c was '\n'?) */
d=pdup(b, USTR "uformat");
g=prgetc(d);
if (g=='.' || g=='?' || g=='!') {
f = 1;
/* pset(d,b);
pgetc(d);
if (c == '\n' || piseol(d) || joe_isspace(bw->b->o.charmap,brch(d))) {
f = 1;
}
*/
}
prm(d);
/* Skip past the whitespace. Skip over indentations */
loop:
c = brch(b);
if (c == '\n') {
if (b->byte == curoff)
pset(bw->cursor, p);
pgetc(b);
while (cpara(bw, (c=brch(b)))) {
if (b->byte == curoff)
pset(bw->cursor, p);
pgetc(b);
}
}
if (joe_isblank(b->b->o.charmap,c)) {
if(b->byte == curoff)
pset(bw->cursor, p);
pgetc(b);
goto loop;
}
/* Insert proper amount of whitespace */
if (!piseof(b)) {
if (f && !bw->o.french)
binsc(p, ' '), pgetc(p);
binsc(p, ' ');
pgetc(p);
}
} else {
/* Insert characters of word and wrap if necessary */
if (b->byte == curoff)
pset(bw->cursor, p);
binsc(p, pgetc(b));
pgetc(p);
if (piscol(p) > bw->o.rmargin)
wrapword(bw, p, indent, bw->o.french, 1, indents);
}
}
binsc(p, '\n');
prm(p);
brm(buf);
joe_free(indents);
return 0;
}
int edloop(int flg)
{
int term = 0;
int ret = 0;
if (flg) {
if (maint->curwin->watom->what == TYPETW)
return 0;
else
maint->curwin->notify = &term;
}
while (!leave && (!flg || !term)) {
W *w;
MACRO *m;
BW *bw;
int c;
int auto_off = 0;
int word_off = 0;
if (exmsg && !flg) {
vsrm(exmsg);
exmsg = NULL;
}
edupd(1);
if (!ahead && !have)
ahead = 1;
if (ungot) {
c = ungotc;
ungot = 0;
} else
c = ttgetc();
/* Clear temporary messages */
w = maint->curwin;
do {
if (w->y != -1) {
msgclr(w);
}
w = (W *) (w->link.next);
} while (w != maint->curwin);
if (!ahead && c == 10)
c = 13;
more_no_auto:
/* Use special kbd if we're handing data to a shell window */
bw = (BW *)maint->curwin->object;
if (shell_kbd && (maint->curwin->watom->what & TYPETW) && bw->b->pid && !bw->b->vt && piseof(bw->cursor))
m = dokey(shell_kbd, c);
else if ((maint->curwin->watom->what & TYPETW) && bw->b->pid && bw->b->vt && bw->cursor->byte == bw->b->vt->vtcur->byte)
m = dokey(bw->b->vt->kbd, c);
else
m = dokey(maint->curwin->kbd, c);
/* leading part of backtick hack... */
/* should only do this if backtick is uquote, but you're not likely to get quick typeahead with ESC ' as uquote */
if (m && m->cmd && m->cmd->func == uquote && ttcheck()) {
m = type_backtick;
}
/* disable autoindent if it looks like a mouse paste... */
if (m && m->cmd && (m->cmd->func == utype || m->cmd->func == urtn) && (maint->curwin->watom->what & TYPETW) && (bw->o.autoindent || bw->o.wordwrap) && ttcheck()) {
auto_off = bw->o.autoindent;
bw->o.autoindent = 0;
word_off = bw->o.wordwrap;
bw->o.wordwrap = 0;
}
if (maint->curwin->main && maint->curwin->main != maint->curwin) {
int x = maint->curwin->kbd->x;
maint->curwin->main->kbd->x = x;
if (x)
maint->curwin->main->kbd->seq[x - 1] = maint->curwin->kbd->seq[x - 1];
}
if (!m)
m = timer_play();
if (m)
ret = exemac(m);
/* trailing part of backtick hack... */
/* for case where ` is very last character of pasted block */
while (!leave && (!flg || !term) && m && (m == type_backtick || (m->cmd && (m->cmd->func == utype || m->cmd->func == urtn))) && ttcheck() && havec == '`') {
ttgetc();
ret = exemac(type_backtick);
}
/* trailing part of disabled autoindent */
if (!leave && (!flg || !term) && m && (m == type_backtick || (m->cmd && (m->cmd->func == utype || m->cmd->func == urtn))) && ttcheck()) {
if (ungot) {
c = ungotc;
ungot = 0;
} else
c = ttgetc();
goto more_no_auto;
}
if (auto_off) {
auto_off = 0;
bw->o.autoindent = 1;
}
if (word_off) {
word_off = 0;
bw->o.wordwrap = 1;
}
}
if (term == -1)
return -1;
else
return ret;
}
int execmd(CMD *cmd, int k)
{
BW *bw = (BW *) maint->curwin->object;
int ret = -1;
/* Warning: bw is a BW * only if maint->curwin->watom->what &
(TYPETW|TYPEPW) */
#if junk
/* Send data to shell window: this is broken ^K ^H (help) sends its ^H to shell */
if ((maint->curwin->watom->what & TYPETW) && bw->b->pid && !bw->b->vt && piseof(bw->cursor) &&
(k==3 || k==9 || k==13 || k==8 || k==127 || k==4 || (cmd->func==utype /* && k>=32 && k<256 */))) {
unsigned char c = k;
joe_write(bw->b->out, &c, 1);
return 0;
}
#endif
if (cmd->m)
return exmacro(cmd->m, 0);
/* We don't execute if we have to fix the column position first
* (i.e., left arrow when cursor is in middle of nowhere) */
if (cmd->flag & ECHKXCOL) {
if (bw->o.hex)
bw->cursor->xcol = piscol(bw->cursor);
else if (bw->cursor->xcol != piscol(bw->cursor))
goto skip;
}
/* Don't execute command if we're in wrong type of window */
if (!(cmd->flag & maint->curwin->watom->what))
goto skip;
/* Complete selection for block commands */
if ((cmd->flag & EBLOCK) && nowmarking)
utoggle_marking(maint->curwin->object);
/* We are about to modify the file */
if ((maint->curwin->watom->what & TYPETW) && (cmd->flag & EMOD)) {
if (!modify_logic(bw,bw->b))
goto skip;
}
/* Execute command */
ret = cmd->func(maint->curwin->object, k);
if (smode)
--smode;
/* Don't update anything if we're going to leave */
if (leave)
return 0;
/* cmd->func could have changed bw on us */
/* This is bad: maint->curwin might not be the same window */
/* Safer would be to attach a pointer to curwin- if curwin
gets clobbered, so does pointer. */
bw = (BW *) maint->curwin->object;
/* Maintain position history */
/* If command was not a positioning command */
if (!(cmd->flag & EPOS)
&& (maint->curwin->watom->what & (TYPETW | TYPEPW)))
afterpos();
/* If command was not a movement */
if (!(cmd->flag & (EMOVE | EPOS)) && (maint->curwin->watom->what & (TYPETW | TYPEPW)))
aftermove(maint->curwin, bw->cursor);
if (cmd->flag & EKILL)
justkilled = 1;
else
justkilled = 0;
skip:
/* Make dislayed cursor column equal the actual cursor column
* for commands which arn't simple vertical movements */
if ((cmd->flag & EFIXXCOL) && (maint->curwin->watom->what & (TYPETW | TYPEPW)))
bw->cursor->xcol = piscol(bw->cursor);
/* Recenter cursor to middle of screen */
if (cmd->flag & EMID) {
int omid = mid;
mid = 1;
dofollows();
mid = omid;
}
if (joe_beep && ret)
ttputc(7);
return ret;
}
