Logo Search packages:      
Sourcecode: hanterm-classic version File versions  Download package

cursor.c

/*
 *    $XConsortium: cursor.c,v 1.13 91/05/10 16:57:14 gildea Exp $
 */

/*
 * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
 *
 *                         All Rights Reserved
 *
 * Permission to use, copy, modify, and distribute this software and its
 * documentation for any purpose and without fee is hereby granted,
 * provided that the above copyright notice appear in all copies and that
 * both that copyright notice and this permission notice appear in
 * supporting documentation, and that the name of Digital Equipment
 * Corporation not be used in advertising or publicity pertaining to
 * distribution of the software without specific, written prior permission.
 *
 *
 * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
 * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
 * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
 * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
 * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
 * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
 * SOFTWARE.
 */

/* cursor.c */

#include "ptyx.h"       /* also gets Xlib.h */

extern void Scroll();
extern void RevScroll();

static void _CheckSelection(screen)
register TScreen *screen;
{
    extern XtermWidget term;  /* %%% gross */

    if (screen->cur_row > screen->endHRow ||
      (screen->cur_row == screen->endHRow &&
       screen->cur_col >= screen->endHCol)) {}
    else
      DisownSelection(term);
}



/*
 * Moves the cursor to the specified position, checking for bounds.
 * (this includes scrolling regions)
 * The origin is considered to be 0, 0 for this procedure.
 */
CursorSet(screen, row, col, flags)
register TScreen  *screen;
register int      row, col;
unsigned    flags;
{
      register int maxr;

      col = (col < 0 ? 0 : col);
      screen->cur_col = (col <= screen->max_col ? col : screen->max_col);
      maxr = screen->max_row;
      if (flags & ORIGIN) {
            row += screen->top_marg;
            maxr = screen->bot_marg;
      }
      row = (row < 0 ? 0 : row);
      screen->cur_row = (row <= maxr ? row : maxr);
      screen->do_wrap = 0;
      _CheckSelection(screen);
}

/*
 * moves the cursor left n, no wrap around
 */
CursorBack(screen, n)
register TScreen  *screen;
int         n;
{
      register int i, j, k, rev;
      extern XtermWidget term;

      if((rev = (term->flags & (REVERSEWRAP | WRAPAROUND)) ==
       (REVERSEWRAP | WRAPAROUND)) && screen->do_wrap)
            n--;
      if ((screen->cur_col -= n) < 0) {
            if(rev) {
                  if((i = (j = screen->max_col + 1) * screen->cur_row +
                   screen->cur_col) < 0) {
                        k = j * (screen->max_row + 1);
                        i += ((-i) / k + 1) * k;
                  }
                  screen->cur_row = i / j;
                  screen->cur_col = i % j;
            } else
                  screen->cur_col = 0;
      }
      screen->do_wrap = 0;
      _CheckSelection(screen);
}

/*
 * moves the cursor forward n, no wraparound
 */
CursorForward(screen, n)
register TScreen  *screen;
int         n;
{
      screen->cur_col += n;
      if (screen->cur_col > screen->max_col)
            screen->cur_col = screen->max_col;
      screen->do_wrap = 0;
      _CheckSelection(screen);
}

/* 
 * moves the cursor down n, no scrolling.
 * Won't pass bottom margin or bottom of screen.
 */
CursorDown(screen, n)
register TScreen  *screen;
int         n;
{
      register int max;

      max = (screen->cur_row > screen->bot_marg ?
            screen->max_row : screen->bot_marg);

      screen->cur_row += n;
      if (screen->cur_row > max)
            screen->cur_row = max;
      screen->do_wrap = 0;
      _CheckSelection(screen);
}

/* 
 * moves the cursor up n, no linestarving.
 * Won't pass top margin or top of screen.
 */
CursorUp(screen, n)
register TScreen  *screen;
int         n;
{
      register int min;

      min = (screen->cur_row < screen->top_marg ?
            0 : screen->top_marg);

      screen->cur_row -= n;
      if (screen->cur_row < min)
            screen->cur_row = min;
      screen->do_wrap = 0;
      _CheckSelection(screen);
}

/* 
 * Moves cursor down amount lines, scrolls if necessary.
 * Won't leave scrolling region. No carriage return.
 */
void Index(screen, amount)
register TScreen  *screen;
register int      amount;
{
      register int j;

      /* 
       * indexing when below scrolling region is cursor down.
       * if cursor high enough, no scrolling necessary.
       */
      if (screen->cur_row > screen->bot_marg
       || screen->cur_row + amount <= screen->bot_marg) {
            CursorDown(screen, amount);
            return;
      }

      CursorDown(screen, j = screen->bot_marg - screen->cur_row);
      Scroll(screen, amount - j);
}

/*
 * Moves cursor up amount lines, reverse scrolls if necessary.
 * Won't leave scrolling region. No carriage return.
 */
void RevIndex(screen, amount)
register TScreen  *screen;
register int      amount;
{
      /*
       * reverse indexing when above scrolling region is cursor up.
       * if cursor low enough, no reverse indexing needed
       */
      if (screen->cur_row < screen->top_marg
       || screen->cur_row-amount >= screen->top_marg) {
            CursorUp(screen, amount);
            return;
      }

      RevScroll(screen, amount - (screen->cur_row - screen->top_marg));
      CursorUp(screen, screen->cur_row - screen->top_marg);
}

/*
 * Moves Cursor To First Column In Line
 */
CarriageReturn(screen)
register TScreen *screen;
{
      screen->cur_col = 0;
      screen->do_wrap = 0;
      _CheckSelection(screen);
}

/*
 * Save Cursor and Attributes
 */
CursorSave(term, sc)
register XtermWidget term;
register SavedCursor *sc;
{
      register TScreen *screen = &term->screen;

      sc->row = screen->cur_row;
      sc->col = screen->cur_col;
      sc->flags = term->flags;
      sc->curgl = screen->curgl;
      sc->curgr = screen->curgr;

      /* by ysyun@bulsai, 1999/03/18 */
      sc->foreground = term->cur_foreground;
      sc->background = term->cur_background;
      /* end of insertion */

      /* no overlap - dkim@surecom.com */
      memcpy(sc->gsets, screen->gsets, sizeof(screen->gsets));
}

/*
 * Restore Cursor and Attributes
 */
CursorRestore(term, sc)
register XtermWidget term;
register SavedCursor *sc;
{
      register TScreen *screen = &term->screen;

      /* no overlap - dkim@surecom.com */
      memcpy(screen->gsets, sc->gsets, sizeof(screen->gsets));
      screen->curgl = sc->curgl;
      screen->curgr = sc->curgr;

      /* by ysyun@bulsai.kaist.ac.kr 1999/03/08 */
      term->cur_foreground = sc->foreground;
      term->cur_background = sc->background;
      /* end of insertion */

      /* add the FG_COLOR|BG_COLOR by ysyun */
      term->flags &= ~(BOLD|INVERSE|UNDERLINE|ORIGIN|FG_COLOR|BG_COLOR);
      term->flags |= sc->flags & (BOLD|INVERSE|UNDERLINE|ORIGIN|FG_COLOR|BG_COLOR);
      CursorSet (screen, (term->flags & ORIGIN) ? sc->row - screen->top_marg
                     : sc->row, sc->col, term->flags);
}

Generated by  Doxygen 1.6.0   Back to index