extern int wstyle;
extern int ovreq, ovsub, ovreq2, ovsub2;
ovmain( x, f, n )
{ switch ( x )
{ case 0: return ( quit( f, n ));
case 1: return ( ctrlg());
case 4:
case 2: wstyle = ( x > 3 ) + (( n < 0 ) ? 2 : 0 );
if ( wstyle & 1 )
{ if ( wstyle & 2 )
mlwrite( "[vi WORD mode]" );
else
mlwrite( "[emacs WORD mode]" );
}
else
{ if ( wstyle & 2 )
mlwrite( "[vi word mode]" );
else
mlwrite( "[emacs word mode]" );
}
return( TRUE );
case 3: return ( quit( FALSE, n ));
}
}
#ifdef NEVER
/*
* Fancy quit command, as implemented
* by Norm. If the current buffer has changed
* do a write current buffer and exit emacs,
* otherwise simply exit.
*/
quickexit(f, n)
register int f, n;
{
if ( ( curbp->b_flag & ( BFCHG | BFTEMP )) == BFTEMP )
{ /* changed buffer, not [List] */
ovreq = 9; /* save */
ovsub = 0;
ovreq2 = 30; /* conditionally quit */
ovsub2 = 3;
}
return( TRUE );
}
#endif
/*
* Quit command. If an argument, always
* quit. Otherwise confirm if a buffer has been
* changed and not written out. Normally bound
* to "C-X C-C".
*/
quit(f, n)
{
register int s;
if (f != FALSE /* Argument forces it. */
|| anycb() == FALSE /* All buffers clean. */
|| (s=mlyesno("Quit")) == TRUE)
{ /* User says it's OK. */
vttidy();
exit(0);
}
return (s);
}
/*
* Look through the list of
* buffers. Return TRUE if there
* are any changed buffers. Buffers
* that hold magic internal stuff are
* not considered; who cares if the
* list of buffer names is hacked.
* Return FALSE if no buffers
* have been changed.
*/
anycb()
{
register BUFFER *bp;
bp = bheadp;
while (bp != NULL)
{ if ( ( bp->b_flag & ( BFTEMP | BFCHG )) == BFCHG )
return (TRUE);
bp = bp->b_bufp;
}
return (FALSE);
}
/*
* Clean up the virtual terminal
* system, in anticipation for a return to the
* operating system. Move down to the last line and
* clear it out (the next system prompt will be
* written in the line). Shut down the channel
* to the terminal.
*/
vttidy()
{
movecursor( 23, 0 );
ansieeol();
}
