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

static char Xrcsid[] = "$XConsortium: Text.c,v 1.136 89/12/15 12:10:56 kit Exp $";

#endif /* lint && SABER */

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

Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts,

and 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.

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

#include <stdio.h>

#include <X11/IntrinsicP.h>

#include <X11/StringDefs.h>

#include <X11/Shell.h>

#include <X11/Xatom.h>

#include <X11/Xmu/Atoms.h>

#include <X11/Xmu/CharSet.h>

#include <X11/Xmu/Converters.h>

#include <X11/Xmu/StdSel.h>

#include <X11/Xmu/Misc.h>

#include <./Xaw3_1XawInit.h>

#include <./Xaw3_1Cardinals.h>

#include <./Xaw3_1Scrollbar.h>

#include <./Xaw3_1TextP.h>

#ifdef SYSV

#ifndef bcopy

#define bcopy(a,b,c) memmove(b,a,c)

#endif

#ifndef bzero

#define bzero(a,b) memset(a,0,b)

#endif

#endif

Atom FMT8BIT = NULL;

#define SinkClearToBG          XawTextSinkClearToBackground

#define SrcScan                XawTextSourceScan

#define SrcRead                XawTextSourceRead

#define SrcReplace             XawTextSourceReplace

#define SrcSearch              XawTextSourceSearch

#define SrcCvtSel              XawTextSourceConvertSelection

#define SrcSetSelection        XawTextSourceSetSelection

#ifndef SYSV

extern void bcopy();

#endif

extern int errno, sys_nerr;

extern char* sys_errlist[];

#define BIGNUM ((Dimension)32023)

#define MULTI_CLICK_TIME 500L

#define IsValidLine(ctx, num) ( ((num) == 0) || \

			        ((ctx)->text.lt.info[(num)].position != 0) )

/*

 * Defined in Text.c

 */

static void VScroll(), VJump(), HScroll(), HJump(), ClearWindow(); 

static void DisplayTextWindow(), ModifySelection();

static void UpdateTextInLine(), UpdateTextInRectangle();

static Boolean LineAndXYForPosition();

static XawTextPosition FindGoodPosition(), _BuildLineTable();

void _XawTextAlterSelection(), _XawTextExecuteUpdate();

void _XawTextBuildLineTable(), _XawTextSetScrollBars();

void _XawTextPrepareToUpdate(TextWidget ctx);

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

 *

 * Full class record constant

 *

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

static XawTextSelectType defaultSelectTypes[] = {

  XawselectPosition, XawselectWord, XawselectLine, XawselectParagraph,

  XawselectAll,      XawselectNull,

};

static caddr_t defaultSelectTypesPtr = (caddr_t)defaultSelectTypes;

extern char *_XawDefaultTextTranslations1, *_XawDefaultTextTranslations2,

  *_XawDefaultTextTranslations3;

static Dimension defWidth = 100;

static Dimension defHeight = DEFAULT_TEXT_HEIGHT;

#define offset(field) XtOffset(TextWidget, field)

static XtResource resources[] = {

  {XtNwidth, XtCWidth, XtRDimension, sizeof(Dimension),

     offset(core.width), XtRDimension, (caddr_t)&defWidth},

  {XtNcursor, XtCCursor, XtRCursor, sizeof(Cursor),

     offset(simple.cursor), XtRString, "xterm"},

  {XtNheight, XtCHeight, XtRDimension, sizeof(Dimension),

     offset(core.height), XtRDimension, (caddr_t)&defHeight},

  {XtNdisplayPosition, XtCTextPosition, XtRInt, sizeof(XawTextPosition), 

     offset(text.lt.top), XtRImmediate, (caddr_t)0},

  {XtNinsertPosition, XtCTextPosition, XtRInt, sizeof(XawTextPosition),

     offset(text.insertPos), XtRImmediate,(caddr_t)0},

  {XtNleftMargin, XtCMargin, XtRPosition, sizeof (Position),

     offset(text.r_margin.left), XtRImmediate, (caddr_t)2},

  {XtNrightMargin, XtCMargin, XtRPosition, sizeof (Position),

     offset(text.r_margin.right), XtRImmediate, (caddr_t)4},

  {XtNtopMargin, XtCMargin, XtRPosition, sizeof (Position),

     offset(text.r_margin.top), XtRImmediate, (caddr_t)2},

  {XtNbottomMargin, XtCMargin, XtRPosition, sizeof (Position),

     offset(text.r_margin.bottom), XtRImmediate, (caddr_t)2},

  {XtNselectTypes, XtCSelectTypes, XtRPointer,

     sizeof(XawTextSelectType*), offset(text.sarray),

     XtRPointer, (caddr_t)&defaultSelectTypesPtr},

  {XtNtextSource, XtCTextSource, XtRWidget, sizeof (Widget),

     offset(text.source), XtRImmediate, NULL},

  {XtNtextSink, XtCTextSink, XtRWidget, sizeof (Widget),

     offset(text.sink), XtRImmediate, NULL},

  {XtNdisplayCaret, XtCOutput, XtRBoolean, sizeof(Boolean),

     offset(text.display_caret), XtRImmediate, (caddr_t)True},

  {XtNscrollVertical, XtCScroll, XtRScrollMode, sizeof(XawTextScrollMode),

     offset(text.scroll_vert), XtRImmediate, (caddr_t) XawtextScrollNever},

  {XtNscrollHorizontal, XtCScroll, XtRScrollMode, sizeof(XawTextScrollMode),

     offset(text.scroll_horiz), XtRImmediate, (caddr_t) XawtextScrollNever},

  {XtNwrap, XtCWrap, XtRWrapMode, sizeof(XawTextWrapMode),

     offset(text.wrap), XtRImmediate, (caddr_t) XawtextWrapNever},

  {XtNresize, XtCResize, XtRResizeMode, sizeof(XawTextResizeMode),

     offset(text.resize), XtRImmediate, (caddr_t) XawtextResizeNever},

  {XtNautoFill, XtCAutoFill, XtRBoolean, sizeof(Boolean),

     offset(text.auto_fill), XtRImmediate, (caddr_t) FALSE},

#ifdef XAW_BC

/*

 * This resource is obsolete. 

 */

  {XtNtextOptions, XtCTextOptions, XtRInt, sizeof (int),

     offset(text.options), XtRImmediate, (caddr_t)0},

#endif

};

#undef offset

#define done(address, type) \

        { toVal->size = sizeof(type); toVal->addr = (caddr_t) address; }

/* ARGSUSED */

static void 

CvtStringToEditMode(args, num_args, fromVal, toVal)

XrmValuePtr args;		/* unused */

Cardinal	*num_args;	/* unused */

XrmValuePtr	fromVal;

XrmValuePtr	toVal;

{

  static XawTextEditType editType;

  static  XrmQuark  QRead, QAppend, QEdit;

  XrmQuark    q;

  char        lowerName[BUFSIZ];

  static Boolean inited = FALSE;

  if ( !inited ) {

    QRead   = XrmStringToQuark(XtEtextRead);

    QAppend = XrmStringToQuark(XtEtextAppend);

    QEdit   = XrmStringToQuark(XtEtextEdit);

    inited = TRUE;

  }

  XmuCopyISOLatin1Lowered (lowerName, (char *)fromVal->addr);

  q = XrmStringToQuark(lowerName);

  if       (q == QRead)          editType = XawtextRead;

  else if (q == QAppend)         editType = XawtextAppend;

  else if (q == QEdit)           editType = XawtextEdit;

  else {

    done(NULL, 0);

    return;

  }

  done(&editType, XawTextEditType);

  return;

}

/* ARGSUSED */

static void 

CvtStringToScrollMode(args, num_args, fromVal, toVal)

XrmValuePtr args;		/* unused */

Cardinal	*num_args;	/* unused */

XrmValuePtr	fromVal;

XrmValuePtr	toVal;

{

  static XawTextScrollMode scrollMode;

  static  XrmQuark  QScrollNever, QScrollAlways, QScrollWhenNeeded;

  XrmQuark    q;

  char        lowerName[BUFSIZ];

  static Boolean inited = FALSE;

  if ( !inited ) {

    QScrollNever      = XrmStringToQuark(XtEtextScrollNever);

    QScrollWhenNeeded = XrmStringToQuark(XtEtextScrollWhenNeeded);

    QScrollAlways     = XrmStringToQuark(XtEtextScrollAlways);

    inited = TRUE;

  }

  XmuCopyISOLatin1Lowered (lowerName, (char *)fromVal->addr);

  q = XrmStringToQuark(lowerName);

  if      (q == QScrollNever)          scrollMode = XawtextScrollNever;

  else if (q == QScrollWhenNeeded)     scrollMode = XawtextScrollWhenNeeded;

  else if (q == QScrollAlways)         scrollMode = XawtextScrollAlways;

  else {

    done(NULL, 0);

    return;

  }

  done(&scrollMode, XawTextScrollMode);

  return;

}

/* ARGSUSED */

static void 

CvtStringToWrapMode(args, num_args, fromVal, toVal)

XrmValuePtr args;		/* unused */

Cardinal	*num_args;	/* unused */

XrmValuePtr	fromVal;

XrmValuePtr	toVal;

{

  static XawTextWrapMode wrapMode;

  static  XrmQuark QWrapNever, QWrapLine, QWrapWord;

  XrmQuark    q;

  char        lowerName[BUFSIZ];

  static Boolean inited = FALSE;

  if ( !inited ) {

    QWrapNever = XrmStringToQuark(XtEtextWrapNever);

    QWrapLine  = XrmStringToQuark(XtEtextWrapLine);

    QWrapWord  = XrmStringToQuark(XtEtextWrapWord);

    inited = TRUE;

  }

  XmuCopyISOLatin1Lowered (lowerName, (char *)fromVal->addr);

  q = XrmStringToQuark(lowerName);

  if      (q == QWrapNever)     wrapMode = XawtextWrapNever;

  else if (q == QWrapLine)      wrapMode = XawtextWrapLine;

  else if (q == QWrapWord)      wrapMode = XawtextWrapWord;

  else {

    done(NULL, 0);

    return;

  }

  done(&wrapMode, XawTextWrapMode);

  return;

}

/* ARGSUSED */

static void 

CvtStringToResizeMode(args, num_args, fromVal, toVal)

XrmValuePtr args;		/* unused */

Cardinal	*num_args;	/* unused */

XrmValuePtr	fromVal;

XrmValuePtr	toVal;

{

  static XawTextResizeMode resizeMode;

  static  XrmQuark  QResizeNever, QResizeWidth, QResizeHeight, QResizeBoth;

  XrmQuark    q;

  char        lowerName[BUFSIZ];

  static Boolean inited = FALSE;

  if ( !inited ) {

    QResizeNever      = XrmStringToQuark(XtEtextResizeNever);

    QResizeWidth      = XrmStringToQuark(XtEtextResizeWidth);

    QResizeHeight     = XrmStringToQuark(XtEtextResizeHeight);

    QResizeBoth       = XrmStringToQuark(XtEtextResizeBoth);

    inited = TRUE;

  }

  XmuCopyISOLatin1Lowered (lowerName, (char *)fromVal->addr);

  q = XrmStringToQuark(lowerName);

  if      (q == QResizeNever)          resizeMode = XawtextResizeNever;

  else if (q == QResizeWidth)          resizeMode = XawtextResizeWidth;

  else if (q == QResizeHeight)         resizeMode = XawtextResizeHeight;

  else if (q == QResizeBoth)           resizeMode = XawtextResizeBoth;

  else {

    done(NULL, 0);

    return;

  }

  done(&resizeMode, XawTextResizeMode);

  return;

}

#undef done

static void 

ClassInitialize()

{

  int len1 = strlen (_XawDefaultTextTranslations1);

  int len2 = strlen (_XawDefaultTextTranslations2);

  int len3 = strlen (_XawDefaultTextTranslations3);

  char *buf = XtMalloc (len1 + len2 + len3 + 1);

  char *cp = buf;

  XawInitializeWidgetSet();

/* 

 * Set the number of actions.

 */

  textClassRec.core_class.num_actions = textActionsTableCount;

  strcpy (cp, _XawDefaultTextTranslations1); cp += len1;

  strcpy (cp, _XawDefaultTextTranslations2); cp += len2;

  strcpy (cp, _XawDefaultTextTranslations3);

  textWidgetClass->core_class.tm_table = buf;

  XtAddConverter(XtRString, XtREditMode,   CvtStringToEditMode,   NULL, 0);

  XtAddConverter(XtRString, XtRScrollMode, CvtStringToScrollMode, NULL, 0);

  XtAddConverter(XtRString, XtRWrapMode,   CvtStringToWrapMode,   NULL, 0);

  XtAddConverter(XtRString, XtRResizeMode, CvtStringToResizeMode, NULL, 0);

}

/*	Function Name: PositionHScrollBar.

 *	Description: Positions the Horizontal scrollbar.

 *	Arguments: ctx - the text widget.

 *	Returns: none

 */

static void

PositionHScrollBar(ctx)

TextWidget ctx;

{

  Widget vbar = ctx->text.vbar, hbar = ctx->text.hbar;

  Position top, left = 0;

  if (ctx->text.hbar == NULL) return;

  if (vbar != NULL)

    left += (Position) (vbar->core.width + vbar->core.border_width);

  XtResizeWidget( hbar, ctx->core.width - left, hbar->core.height,

		 hbar->core.border_width );

  left -= (Position) hbar->core.border_width;

  top = ctx->core.height - ( hbar->core.height + hbar->core.border_width);

  XtMoveWidget( hbar, left, top); 

}

/*	Function Name: PositionVScrollBar.

 *	Description: Positions the Vertical scrollbar.

 *	Arguments: ctx - the text widget.

 *	Returns: none.

 */

static void

PositionVScrollBar(ctx)

TextWidget ctx;

{

  Widget vbar = ctx->text.vbar;

  Dimension bw;

  if (vbar == NULL) return;

  bw = vbar->core.border_width;

  XtResizeWidget( vbar, vbar->core.width, ctx->core.height, bw);

  XtMoveWidget( vbar, -(Position)bw, -(Position)bw );

}

static void 

CreateVScrollBar(ctx)

TextWidget ctx;

{

  Widget vbar;

  if (ctx->text.vbar != NULL) return;

  ctx->text.vbar = vbar =

    XtCreateWidget("vScrollbar", scrollbarWidgetClass, (Widget)ctx, NULL, ZERO);

  XtAddCallback( vbar, XtNscrollProc, VScroll, (caddr_t)ctx );

  XtAddCallback( vbar, XtNjumpProc, VJump, (caddr_t)ctx );

  ctx->text.r_margin.left += vbar->core.width + vbar->core.border_width;

  ctx->text.margin.left = ctx->text.r_margin.left;

  PositionVScrollBar(ctx);

  PositionHScrollBar(ctx);	/* May modify location of Horiz. Bar. */

  if (XtIsRealized((Widget)ctx)) {

    XtRealizeWidget(vbar);

    XtMapWidget(vbar);

  }

}

/*	Function Name: DestroyVScrollBar

 *	Description: Removes a vertical ScrollBar.

 *	Arguments: ctx - the parent text widget.

 *	Returns: none.

 */

static void

DestroyVScrollBar(ctx)

TextWidget ctx;

{

  Widget vbar = ctx->text.vbar;

  if (vbar == NULL) return;

  ctx->text.r_margin.left -= vbar->core.width + vbar->core.border_width;

  ctx->text.margin.left = ctx->text.r_margin.left;

  XtDestroyWidget(vbar);

  ctx->text.vbar = NULL;

  PositionHScrollBar(ctx);

}

static void 

CreateHScrollBar(ctx)

TextWidget ctx;

{

  Arg args[1];

  Widget hbar;

  if (ctx->text.hbar != NULL) return;

  XtSetArg(args[0], XtNorientation, XtorientHorizontal);

  ctx->text.hbar = hbar =

    XtCreateWidget("hScrollbar", scrollbarWidgetClass, (Widget)ctx, args, ONE);

  XtAddCallback( hbar, XtNscrollProc, HScroll, (caddr_t)ctx );

  XtAddCallback( hbar, XtNjumpProc, HJump, (caddr_t)ctx );

  PositionHScrollBar(ctx);

  if (XtIsRealized((Widget)ctx)) {

    XtRealizeWidget(hbar);

    XtMapWidget(hbar);

  }

}

/*	Function Name: DestroyHScrollBar

 *	Description: Removes a horizontal ScrollBar.

 *	Arguments: ctx - the parent text widget.

 *	Returns: none.

 */

static void

DestroyHScrollBar(ctx)

TextWidget ctx;

{

  Widget hbar = ctx->text.hbar;

  if (hbar == NULL) return;

/*

  ctx->text.r_margin.bottom -= hbar->core.height + hbar->core.border_width;

  ctx->text.margin.bottom = ctx->text.r_margin.bottom;

*/

  XtDestroyWidget(hbar);

  ctx->text.hbar = NULL;

}

/* ARGSUSED */

static void 

Initialize(request, new, args, num_args)

Widget request, new;

ArgList args;			/* unused */

Cardinal *num_args;		/* unused */

{

  TextWidget ctx = (TextWidget) new;

  char error_buf[BUFSIZ];

  if (!FMT8BIT)

    FMT8BIT = XInternAtom(XtDisplay(new), "FMT8BIT", False);

  ctx->text.lt.lines = 0;

  ctx->text.lt.info = NULL;

  bzero((char *) &(ctx->text.origSel), sizeof(XawTextSelection));

  bzero((char *) &(ctx->text.s), sizeof(XawTextSelection)); 

  ctx->text.s.type = XawselectPosition;

  ctx->text.hbar = ctx->text.vbar = (Widget) NULL;

  ctx->text.lasttime = 0; /* ||| correct? */

  ctx->text.time = 0; /* ||| correct? */

  ctx->text.showposition = TRUE;

  ctx->text.lastPos = (ctx->text.source != NULL) ? GETLASTPOS : 0;

  ctx->text.file_insert = NULL;

  ctx->text.search = NULL;

  ctx->text.updateFrom = (XawTextPosition *) XtMalloc(ONE);

  ctx->text.updateTo = (XawTextPosition *) XtMalloc(ONE);

  ctx->text.numranges = ctx->text.maxranges = 0;

  ctx->text.gc = DefaultGCOfScreen(XtScreen(ctx)); 

  ctx->text.hasfocus = FALSE;

  ctx->text.margin = ctx->text.r_margin; /* Strucure copy. */

  ctx->text.update_disabled = FALSE;

  ctx->text.old_insert = -1;

  ctx->text.mult = 1;

  ctx->text.single_char = FALSE;

#ifdef XAW_BC

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

 * For Compatability.          */

  if (ctx->text.options != 0)

    XawTextChangeOptions((Widget) ctx, ctx->text.options);

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

#endif /* XAW_BC */  

  if (ctx->core.height == DEFAULT_TEXT_HEIGHT) {

    ctx->core.height = VMargins(ctx);

    if (ctx->text.sink != NULL)

      ctx->core.height += XawTextSinkMaxHeight(ctx->text.sink, 1);

  }

  if (ctx->text.scroll_vert != XawtextScrollNever) 

    if ( (ctx->text.resize == XawtextResizeHeight) ||

     	 (ctx->text.resize == XawtextResizeBoth) ) {

      sprintf(error_buf, "Text Widget (%s):\n %s %s.", ctx->core.name,

	      "Vertical scrolling not allowed with height resize.\n",