#if (!defined(lint) && !defined(SABER))

static char Xrcsid[] = "$XConsortium: TextAction.c,v 1.23 89/12/10 11:30:43 rws Exp $";

#endif /* lint && SABER */

/***********************************************************

Copyright 1989 by the Massachusetts Institute of Technology,

Cambridge, 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 names of Digital or MIT 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.

******************************************************************/

/*

 * NOTE:  There are some ASCII Dependancies on '\n' and '\0' that I

 *        am not too thrilled with.  There is also the implicit assumption

 *        that the individual characters will fit inside a "char".

 *        It would be nice if we could generalize this a but more.  If

 *        anyone out there comes up with an implementation of this stuff

 *        that has no dependency on ASCII, please send the code back to us.

 *

 *						Chris D. Peterson     

 *						MIT X Consortium 

 */

#include <stdio.h>

#include <stdlib.h>		/* For atoi() */

#include <ctype.h>

#include <X11/Xlib.h>		/* For XFetchBuffer() */

#include <X11/Xatom.h>

#include <X11/IntrinsicP.h>

#include <X11/StringDefs.h>

#include <X11/Xmu/Atoms.h>

#include <X11/Xmu/Misc.h>

#include <./Xaw3_1TextP.h>

#define SrcScan                XawTextSourceScan

#define FindDist               XawTextSinkFindDistance

#define FindPos                XawTextSinkFindPosition

/*

 * These are defined in TextPop.c

 */

void _XawTextInsertFileAction(), _XawTextInsertFile(), _XawTextSearch();

void _XawTextSearch(), _XawTextDoSearchAction(), _XawTextDoReplaceAction();

void _XawTextSetField(), _XawTextPopdownSearchAction();

/*

 * These are defined in Text.c

 */

char * _XawTextGetText();

void  _XawTextBuildLineTable(), _XawTextAlterSelection(), _XawTextVScroll();

void  _XawTextSetSelection(),   _XawTextCheckResize(),  _XawTextExecuteUpdate();

void  _XawTextSetScrollBars(),  _XawTextClearAndCenterDisplay();

Atom *_XawTextSelectionList();

void  _XawTextPrepareToUpdate(TextWidget ctx);

int   _XawTextReplace(TextWidget ctx,

		      XawTextPosition pos1, XawTextPosition pos2,

		      XawTextBlock *text);

static void

StartAction(ctx, event)

TextWidget ctx;

XEvent *event;

{

  _XawTextPrepareToUpdate(ctx);

  if (event != NULL) {

    switch (event->type) {

    case ButtonPress:

    case ButtonRelease:

      ctx->text.time = event->xbutton.time;

      ctx->text.ev_x = event->xbutton.x;

      ctx->text.ev_y = event->xbutton.y;

      break;

    case KeyPress:

    case KeyRelease:

      ctx->text.time = event->xkey.time;

      ctx->text.ev_x = event->xkey.x;

      ctx->text.ev_y = event->xkey.y;

      break;

    case MotionNotify:

      ctx->text.time = event->xmotion.time;

      ctx->text.ev_x = event->xmotion.x;

      ctx->text.ev_y = event->xmotion.y;

      break;

    case EnterNotify:

    case LeaveNotify:

      ctx->text.time = event->xcrossing.time;

      ctx->text.ev_x = event->xcrossing.x;

      ctx->text.ev_y = event->xcrossing.y;

    }

  }

}

static void

EndAction(ctx)

TextWidget ctx;

{

  _XawTextCheckResize(ctx);

  _XawTextExecuteUpdate(ctx);

  ctx->text.mult = 1;

}

#ifdef XAW_BC

/*

 * These functions are superceeded by insert-selection.

 */

static void

StuffFromBuffer(ctx, buffer)

TextWidget ctx;

int buffer;

{

  XawTextBlock text;

  text.ptr = XFetchBuffer(XtDisplay(ctx), &(text.length), buffer);

  text.firstPos = 0;

  if (_XawTextReplace(ctx, ctx->text.insertPos, ctx->text.insertPos, &text)) {

    XBell(XtDisplay(ctx), 0);

    return;

  }

  ctx->text.insertPos = SrcScan(ctx->text.source, ctx->text.insertPos,

				XawstPositions, XawsdRight, text.length, TRUE);

  XtFree(text.ptr);

}

static void 

UnKill(ctx, event)

TextWidget ctx;

XEvent *event;

{

  StartAction(ctx, event);

  StuffFromBuffer(ctx, 1);

  EndAction(ctx);

}

static void

Stuff(ctx, event)

TextWidget ctx;

XEvent *event;

{

  StartAction(ctx, event);

  StuffFromBuffer(ctx, 0);

  EndAction(ctx);

}

#endif	/* XAW_BC */

struct _SelectionList {

    String *params;

    Cardinal count;

    Time time;

};

static void GetSelection();

/* ARGSUSED */

static void 

_SelectionReceived(w, client_data, selection, type, value, length, format)

Widget w;

caddr_t client_data;

Atom *selection, *type;

caddr_t value;

unsigned long *length;

int *format;

{

  TextWidget ctx = (TextWidget)w;

  XawTextBlock text;

  if (*type == 0 /*XT_CONVERT_FAIL*/ || *length == 0) {

    struct _SelectionList* list = (struct _SelectionList*)client_data;

    if (list != NULL) {

      GetSelection(w, list->time, list->params, list->count);

      XtFree(client_data);

    }

    return;

  }

  StartAction(ctx, (XEvent *)NULL);

  text.ptr = (char*)value;

  text.firstPos = 0;

  text.length = *length;

  text.format = FMT8BIT;

  if (_XawTextReplace(ctx, ctx->text.insertPos, ctx->text.insertPos, &text)) {

    XBell(XtDisplay(ctx), 0);

    return;

  }

  ctx->text.insertPos = SrcScan(ctx->text.source, ctx->text.insertPos, 

				XawstPositions, XawsdRight, text.length, TRUE);

  EndAction(ctx);

  _XawTextSetScrollBars(ctx);

  XtFree(client_data);

  XtFree(value);

}

static void 

GetSelection(w, time, params, num_params)

Widget w;

Time time;

String *params;			/* selections in precedence order */

Cardinal num_params;

{

    Atom selection;

    int buffer;

    XmuInternStrings(XtDisplay(w), params, (Cardinal)1, &selection);

    switch (selection) {

      case XA_CUT_BUFFER0: buffer = 0; break;

      case XA_CUT_BUFFER1: buffer = 1; break;

      case XA_CUT_BUFFER2: buffer = 2; break;

      case XA_CUT_BUFFER3: buffer = 3; break;

      case XA_CUT_BUFFER4: buffer = 4; break;

      case XA_CUT_BUFFER5: buffer = 5; break;

      case XA_CUT_BUFFER6: buffer = 6; break;

      case XA_CUT_BUFFER7: buffer = 7; break;

      default:	       buffer = -1;

    }

    if (buffer >= 0) {

	int nbytes;

	unsigned long length;

	int fmt8 = 8;

	Atom type = XA_STRING;

	char *line = XFetchBuffer(XtDisplay(w), &nbytes, buffer);

	if (length = nbytes)

	    _SelectionReceived(w, (caddr_t)NULL, &selection, &type, (caddr_t)line,

			       &length, &fmt8);

	else if (num_params > 1)

	    GetSelection(w, time, params+1, num_params-1);

    } else {

	struct _SelectionList* list;

	if (--num_params) {

	    list = XtNew(struct _SelectionList);

	    list->params = params + 1;

	    list->count = num_params;

	    list->time = time;

	} else list = NULL;

	XtGetSelectionValue(w, selection, XA_STRING,

			    (XtSelectionCallbackProc)_SelectionReceived,

			    (caddr_t)list, time);

    }

}

static void 

InsertSelection(w, event, params, num_params)

Widget w;

XEvent *event;

String *params;		/* precedence list of selections to try */

Cardinal *num_params;

{

  StartAction((TextWidget)w, event); /* Get Time. */

  GetSelection(w, ((TextWidget)w)->text.time, params, *num_params);

  EndAction((TextWidget)w);

}

/************************************************************

 *

 * Routines for Moving Around.

 *

 ************************************************************/

static void

Move(ctx, event, dir, type, include)

TextWidget ctx;

XEvent *event;

XawTextScanDirection dir;

XawTextScanType type;

Boolean include;

{

  StartAction(ctx, event);

  ctx->text.insertPos = SrcScan(ctx->text.source, ctx->text.insertPos,

				type, dir, ctx->text.mult, include);

  EndAction(ctx);

}

static void 

MoveForwardChar(w, event)

Widget w;

XEvent *event;

{

   Move((TextWidget) w, event, XawsdRight, XawstPositions, TRUE);

}

static void 

MoveBackwardChar(w, event)

Widget w;

XEvent *event;

{

  Move((TextWidget) w, event, XawsdLeft, XawstPositions, TRUE);

}

static void 

MoveForwardWord(w, event)

Widget w;

XEvent *event;

{

  Move((TextWidget) w, event, XawsdRight, XawstWhiteSpace, FALSE);

}

static void 

MoveBackwardWord(w, event)

Widget w;

XEvent *event;

{

  Move((TextWidget) w, event, XawsdLeft, XawstWhiteSpace, FALSE);

}

static void MoveForwardParagraph(w, event)

Widget w;

XEvent *event;

{

  Move((TextWidget) w, event, XawsdRight, XawstParagraph, FALSE);

}

static void MoveBackwardParagraph(w, event)

Widget w;

XEvent *event;

{

  Move((TextWidget) w, event, XawsdLeft, XawstParagraph, FALSE);

}

static void 

MoveToLineEnd(w, event)

Widget w;

XEvent *event;

{

  Move((TextWidget) w, event, XawsdRight, XawstEOL, FALSE);

}

static void 

MoveToLineStart(w, event)

Widget w;

XEvent *event;

{

  Move((TextWidget) w, event, XawsdLeft, XawstEOL, FALSE);

}

static void

MoveLine(ctx, event, dir)

TextWidget ctx;

XEvent *event;

XawTextScanDirection dir;

{

  XawTextPosition new, next_line, junk;

  int from_left, garbage;

  StartAction(ctx, event);

  if (dir == XawsdLeft)

    ctx->text.mult++;

  new = SrcScan(ctx->text.source, ctx->text.insertPos,

		XawstEOL, XawsdLeft, 1, FALSE);

  FindDist(ctx->text.sink, new, ctx->text.margin.left, ctx->text.insertPos,

	   &from_left, &junk, &garbage);

  new = SrcScan(ctx->text.source, ctx->text.insertPos, XawstEOL, dir,

		ctx->text.mult, (dir == XawsdRight));

  next_line = SrcScan(ctx->text.source, new, XawstEOL, XawsdRight, 1, FALSE);

  FindPos(ctx->text.sink, new, ctx->text.margin.left, from_left, FALSE,

	  &(ctx->text.insertPos), &garbage, &garbage);

  if (ctx->text.insertPos > next_line)

    ctx->text.insertPos = next_line;

  EndAction(ctx);

}

static void 

MoveNextLine(w, event)

Widget w;

XEvent *event;

{

  MoveLine( (TextWidget) w, event, XawsdRight);

}

static void 

MovePreviousLine(w, event)

Widget w;

XEvent *event;

{

  MoveLine( (TextWidget) w, event, XawsdLeft);

}

static void

MoveBeginningOfFile(w, event)

Widget w;

XEvent *event;

{

  Move((TextWidget) w, event, XawsdLeft, XawstAll, TRUE);

}

static void 

MoveEndOfFile(w, event)

Widget w;

XEvent *event;

{

  Move((TextWidget) w, event, XawsdRight, XawstAll, TRUE);

}

static void 

Scroll(ctx, event, dir)

TextWidget ctx;

XEvent *event;

XawTextScanDirection dir;

{

  StartAction(ctx, event);

  if (dir == XawsdLeft)

    _XawTextVScroll(ctx, ctx->text.mult);

  else

    _XawTextVScroll(ctx, -ctx->text.mult);

  EndAction(ctx);

}

static void 

ScrollOneLineUp(w, event)

Widget w;

XEvent *event;

{

  Scroll( (TextWidget) w, event, XawsdLeft);

}

static void 

ScrollOneLineDown(w, event)

Widget w;

XEvent *event;

{

  Scroll( (TextWidget) w, event, XawsdRight);

}

static void 

MovePage(ctx, event, dir)

TextWidget ctx;

XEvent *event;

XawTextScanDirection dir;

{

  int scroll_val = Max(1, ctx->text.lt.lines - 2);

  if (dir == XawsdLeft)

    scroll_val = -scroll_val;

  StartAction(ctx, event);

  _XawTextVScroll(ctx, scroll_val);

  ctx->text.insertPos = ctx->text.lt.top;

  EndAction(ctx);

}

static void 

MoveNextPage(w, event)

Widget w;

XEvent *event;

{

  MovePage((TextWidget) w, event, XawsdRight);

}

static void 

MovePreviousPage(w, event)

Widget w;

XEvent *event;

{

  MovePage((TextWidget) w, event, XawsdLeft);

}

/************************************************************

 *

 * Delete Routines.

 *

 ************************************************************/

static void 

_DeleteOrKill(ctx, from, to, kill)

TextWidget ctx;

XawTextPosition from, to;

Boolean	kill;

{

  XawTextBlock text;

  char *ptr;

  if (kill && from < to) {

    ptr = _XawTextGetText(ctx, from, to);

    XStoreBuffer(XtDisplay(ctx), ptr, strlen(ptr), 1);

    XtFree(ptr);

  }

  text.length = 0;

  text.firstPos = 0;

  if (_XawTextReplace(ctx, from, to, &text)) {

    XBell(XtDisplay(ctx), 50);

    return;

  }

  ctx->text.insertPos = from;

  ctx->text.showposition = TRUE; 

}

static void

DeleteOrKill(ctx, event, dir, type, include, kill)

TextWidget	   ctx;

XEvent *event;

XawTextScanDirection dir;

XawTextScanType type;

Boolean	   include, kill;

{

  XawTextPosition from, to;