mouse.c

/*_ mouse.c   Mon Jan 16 1989 */
/* $Header$ */

#include        <stdio.h>
#include	"ed.h"

#if MOUSE

#if IBMPC || _WIN32
#include	<msmouse.h>
#include	<disp.h>
#endif
#include	<time.h>

static int clicks = 0;		/* number of clicks we've seen		*/
static clock_t lastclick;	/* time of last click			*/

static void mouse_tocursor(unsigned *px, unsigned *py);
static void mouse_findpos(unsigned col, unsigned row, struct WINDOW **p_wp,
	struct LINE **p_lp, int *p_doto);
static void mouse_markdrag(struct WINDOW *wp, struct LINE *lp, int doto);
static int mouse_leftisdown();
static void mouse_windrag(struct WINDOW *wp);

/*********************************
 * Call this routine in the main command loop.
 * It handles any mouse commands.
 * Returns:
 *	0	no mouse input
 *	!=0	value is a keystroke
 */

int mouse_command()
{   unsigned x,y;
    struct WINDOW *wp;
    struct LINE *lp;
    int status;

    if (!mouse)				/* if no mouse installed	*/
	return 0;
    status = msm_getstatus(&x,&y);	/* read button status		*/
    mouse_tocursor(&x,&y);		/* collect real cursor coords	*/
    if (status & 1)			/* if left button is down	*/
    {	int doto;

	mouse_findpos(x,y,&wp,&lp,&doto);
	if (wp && lp)
	{   markcol = wp->w_startcol + x;
	    mouse_markdrag(wp,lp,doto);
	}
	else
	{   if (wp)
	    {
		curbp = wp->w_bufp;
		curwp = wp;
		/* Examine window action buttons	*/
		switch (x)
		{   case 0:
			window_only(FALSE,1);
			goto L2;
		    case 1:
			window_split(FALSE,1);
			goto L2;
		    case 2:
			delwind(FALSE,1);
		    L2:	update();
			goto L1;
		    case 3:
			do
			{   window_mvup(FALSE,1);
			    update();
			} while (mouse_leftisdown());
			break;
		    case 4:
			do
			{   window_mvdn(FALSE,1);
			    update();
			} while (mouse_leftisdown());
			break;
		    default:
			mouse_windrag(wp);
			break;
		}
		update();
	    }
	    else
	    L1:
		while (mouse_leftisdown())	/* wait till button goes up */
		    ;
	    clicks = 0;
	}
    }
#if IBMPC || _WIN32
    else if (status & 2)		/* if right button is down	*/
    {
	return memenu_mouse(y,x);
    }
#endif
    return 0;
}

/*******************************
 * Convert from Microsoft coordinates to proper cursor coordinates.
 */

static void mouse_tocursor(unsigned *px, unsigned *py)
{
#if IBMPC
    if (disp_mode == 0 || disp_mode == 1)
	*px /= 16;
    else
	*px /= 8;
    *py /= 8;
#endif
}

/***************************
 * Set cursor at row,col.
 */

static void mouse_findpos(unsigned col, unsigned row, struct WINDOW **p_wp,
	struct LINE **p_lp, int *p_doto)
{   int r;
    int i;
    struct WINDOW *wp;
    struct LINE *lp;

    *p_wp = NULL;
    *p_lp = NULL;
    *p_doto = 0;			/* default cases		*/
    r = 0;				/* starting row for window	*/
    for (wp = wheadp; wp; wp = wp->w_wndp)
    {
	if (row <= r + wp->w_ntrows)
	{
	    *p_wp = wp;
	    if (row == r + wp->w_ntrows)
		return;
	    for (lp = wp->w_linep; lp != wp->w_bufp->b_linep; lp = lforw(lp))
	    {	if (row == r)
		    break;
		r++;
	    }
	    *p_lp = lp;
	    /* Determine offset into line corresponding to col		*/
	    *p_doto = coltodoto(lp,wp->w_startcol + col);
	    return;
	}
	r += wp->w_ntrows + 1;
    }
}

/*****************************
 * Given an initial position, drag the mouse, marking
 * text as we go.
 */

static void mouse_markdrag(struct WINDOW *wp, struct LINE *lp, int doto)
{   unsigned x,y;

    curbp = wp->w_bufp;
    curwp = wp;
    if (lp != wp->w_dotp)	/* if on different line		*/
    {   wp->w_dotp = lp;
	wp->w_flag |= WFMOVE;
    }
    wp->w_doto = doto;
    wp->w_markp = lp;
    wp->w_marko = doto;		/* set new mark			*/
    curwp->w_flag |= WFHARD;
    update();

    /* Continue marking until button goes up			*/
    while (msm_getstatus(&x,&y) & 1)
    {
	mouse_tocursor(&x,&y);	/* collect real cursor coords	*/
	mouse_findpos(x,y,&wp,&lp,&doto);
	if (wp && wp == curwp && lp)
	{
	    if (wp->w_markp || lp != wp->w_dotp) /* if on different line */
	    {
		wp->w_dotp = lp;
		wp->w_flag |= WFMOVE;
	    }
	    wp->w_doto = doto;
	}
	else if (!wp ||
	    wp != curwp && wp->w_toprow > curwp->w_toprow ||
	    wp == curwp && !lp)
		window_mvdn(FALSE,1);
	else
		window_mvup(FALSE,1);
	curgoal = curwp->w_startcol + x;
	lastflag |= CFCPCN;	/* behave as if forwline() or backline() */
	update();
    }
    /* If mark start and mark end match, then no mark		*/
    if (wp->w_markp == wp->w_dotp &&
	wp->w_marko == wp->w_doto)
    {	clock_t thisclick;

	wp->w_markp = NULL;
	thisclick = clock();
	if (clicks)
	{
#if __GNUC__
	    if (thisclick - lastclick > CLOCKS_PER_SEC / 4)
#else
	    if (thisclick - lastclick > CLK_TCK/2)
#endif
		clicks = 0;
	}
	clicks++;
	lastclick = thisclick;

#if linux || __OpenBSD__ || __FreeBSD__ || __APPLE__
	clicks = 0;
#endif
	switch (clicks)
	{   case 1:
		break;
	    case 2:
		word_select(FALSE,1);
		goto L1;
	    case 3:
		word_lineselect(FALSE,1);
	    L1:
		mlerase();
		update();
		break;
	    default:
		clicks = 0;
		break;
	}
    }
    else
	clicks = 0;
}

/*****************************
 * Given an initial position, drag the border of the window around.
 */

static void mouse_windrag(struct WINDOW *wp)
{   unsigned x,y;
    struct LINE *lp;
    int doto;

    /* Continue dragging window until button goes up			*/
    while (msm_getstatus(&x,&y) & 1)
    {
	mouse_tocursor(&x,&y);		/* collect real cursor coords	*/
	mouse_findpos(x,y,&wp,&lp,&doto);
	if (wp && wp == curwp && lp ||
	    wp != curwp && wp && wp->w_toprow < curwp->w_toprow)
	    window_shrink(FALSE,1);
	else if (!wp ||
	    wp != curwp && wp->w_toprow > curwp->w_toprow)
	    window_enlarge(FALSE,1);
	update();
    }
}

/*****************************
 * Return !=0 if left button is down.
 */

static int mouse_leftisdown()
{   unsigned x,y;

    return msm_getstatus(&x,&y) & 1;
}
#endif /* MOUSE */