Fresh Fish 5/FreshFish_July-August1994.bin/bbs/util/mg-3b.lha/mg-3b/src.LZH/amiga/ttymouse.c

C/C++ Source or Header | 1990-05-23 | 5.2 KB | 292 lines

/*
 * Name:    MG 2a Commodore Amiga mouse handling Created:    Distant past
 * Last edit:    28-Nov-87  [e-mail]
 */

#include "mouse.h"

#ifdef    MOUSE

#include <exec/types.h>
#include <intuition/intuition.h>

#undef TRUE
#undef FALSE
#include "def.h"
#include "line.h"
#include "buffer.h"
#include "window.h"



extern int      ttmouse();
extern int      forwline();
extern int      forwchar();

/* stuff for go-to-window-and-do-it functions */
extern int      reposition();
extern int      delfword();
extern int      killline();
extern int      forwdel();
extern int      justone();
extern int      killregion();
extern int      yank();
extern int      forwpage();
extern int      backpage();
extern int      splitwind();
extern int      delwind();
extern int      gotobob();
extern int      gotoeob();
extern int      enlargewind();
extern int      shrinkwind();

#ifndef    NO_PROTO
static int dottomouse PROTO((void));
#endif

/*
 * Handle the mouse click that's been passed by ttgetc() and position dot
 * where the user pointed at.  If this is the same position where the user
 * pointed the last time, set the mark, whether or not this is a true
 * double-click. This isn't a true double-click, but it does most of what we
 * want.
 */

static USHORT   oldrow = HUGE, oldcol = HUGE;    /* last mouse click     */
static USHORT   newrow, newcol;    /* next mouse click     */

amigamouse(f, n)
{
    if (!dottomouse())    /* sets newrow, newcol     */
        return (FALSE);
    if ((newrow == oldrow) && (newcol == oldcol))
        setmark(FFRAND, 1);    /* double-click         */
    oldrow = newrow;    /* save state         */
    oldcol = newcol;
    return (TRUE);
}

/*
 * Recenter on selected line
 */
mreposition(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (reposition(f, n));
}

/*
 * Delete word after selected char
 */
mdelfword(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (delfword(f, n));
}

/*
 * Move to selection, kill line
 */
mkillline(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (killline(f, n));
}

/*
 * Move to selection, kill word
 */
mforwdel(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (forwdel(f, n));
}

/*
 * Move to selection, kill line
 */
mdelwhite(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (justone(f, n));
}

/*
 * Set mark, move to selection, kill region.
 */
mkillregion(f, n)
{
    register struct line *p_old;
    register short  o_old;

    p_old = curwp->w_markp;    /* Save old mark */
    o_old = curwp->w_marko;
    isetmark();        /* and set current one */
    if (!dottomouse()) {
        curwp->w_markp = p_old;    /* Oops - put mark back */
        curwp->w_marko = o_old;
        return (FALSE);
    }
    return (killregion(f, n));
}

/*
 * Move to selection, yank kill buffer
 */
myank(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (yank(f, n));
}

/*
 * Select window pointed to by mouse, then scroll down
 */

mforwpage(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (forwpage(f, n));
}

/*
 * Select buffer, scroll page down
 */
mbackpage(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (backpage(f, n));
}

/*
 * Select the window, split it.
 */
msplitwind(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (splitwind(f, n));
}

/*
 * Select the buffer, delete it.
 */
mdelwind(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (delwind(f, n));
}

/*
 * Select window, goto beginning of buffer
 */
mgotobob(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (gotobob(f, n));
}

/*
 * Select window, go to end of buffer
 */
mgotoeob(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (gotoeob(f, n));
}

/*
 * Select window, enlarge it.
 */
menlargewind(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (enlargewind(f, n));
}

/*
 * Select window, shrink it.
 */
mshrinkwind(f, n)
{
    if (!dottomouse())
        return (FALSE);
    return (shrinkwind(f, n));
}

/*
 * Utility routine to move dot to where the user clicked.  If in mode line,
 * chooses that buffer as the one to work on.
 */
static
dottomouse()
{
    register struct window *wp;
    register int    dot;
    register int    col;
    register int    c;
    int             getkey();


    /*
     * read the next 2 characters to get the col, row info, using
     * getkey() to record them (or re-read them if in a macro).
     */
    newcol = getkey(DISSCR) - M_X_ZERO;
    newrow = getkey(DISSCR) - M_Y_ZERO;

    /* find out which window was clicked in                 */
    for (wp = wheadp; wp != NULL; wp = wp->w_wndp)
        if ((newrow >= wp->w_toprow) &&
            (newrow <= (wp->w_toprow + wp->w_ntrows)))
            break;

    if (wp == NULL)        /* echo line         */
        return (ABORT);
    else if (newrow == wp->w_toprow + wp->w_ntrows) {    /* mode line */
        curwp = wp;    /* just change buffer     */
        curbp = wp->w_bufp;
    } else {
        /* move to selected window, move dot to top left     */
        curwp = wp;
        curbp = wp->w_bufp;
        curwp->w_dotp = wp->w_linep;
        curwp->w_doto = 0;

        /* go forward the correct # of lines          */
        forwline(FFRAND, newrow - curwp->w_toprow);

        /* go forward the correct # of characters     */
        /* need to count them out because of tabs     */
        col = dot = 0;
        while ((col < newcol) && (dot < llength(curwp->w_dotp))) {
            c = lgetc(curwp->w_dotp, dot++);
            if (c == CCHR('I'))
                col |= 0x07;
            else if (ISCTRL(c) != FALSE)
                ++col;
            ++col;
        }
        if (col > newcol)
            dot--;    /* back up to tab/ctrl char */
        forwchar(FFRAND, dot);
    }
    return (TRUE);
}

#else
#include "nullfile.h"
#endif