diff options
Diffstat (limited to 'libXaw/src/AsciiSink.c')
| -rw-r--r-- | libXaw/src/AsciiSink.c | 3899 |
1 files changed, 1948 insertions, 1951 deletions
diff --git a/libXaw/src/AsciiSink.c b/libXaw/src/AsciiSink.c index ad35a127c..a20cf63d3 100644 --- a/libXaw/src/AsciiSink.c +++ b/libXaw/src/AsciiSink.c @@ -1,1951 +1,1948 @@ -/* $Xorg: AsciiSink.c,v 1.4 2001/02/09 02:03:42 xorgcvs Exp $ */ - -/*********************************************************** - -Copyright 1987, 1988, 1994, 1998 The Open Group - -Permission to use, copy, modify, distribute, and sell this software and its -documentation for any purpose is hereby granted without fee, provided that -the above copyright notice appear in all copies and that both that -copyright notice and this permission notice appear in supporting -documentation. - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN -CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of The Open Group shall not be -used in advertising or otherwise to promote the sale, use or other dealings -in this Software without prior written authorization from The Open Group. - - -Copyright 1987, 1988 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 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. - -******************************************************************/ -/* $XFree86: xc/lib/Xaw/AsciiSink.c,v 1.26 2001/12/14 19:54:38 dawes Exp $ */ - -#ifdef HAVE_CONFIG_H -#include <config.h> -#endif -#include <stdio.h> -#include <stdlib.h> -#include <X11/IntrinsicP.h> -#include <X11/StringDefs.h> -#include <X11/Xatom.h> -#include <X11/Xaw/XawInit.h> -#include <X11/Xaw/AsciiSinkP.h> -#include <X11/Xaw/AsciiSrcP.h> -#include <X11/Xaw/TextP.h> -#include "Private.h" - -#ifdef GETLASTPOS -#undef GETLASTPOS /* We will use our own GETLASTPOS */ -#endif - -#define GETLASTPOS \ - XawTextSourceScan(source, 0, XawstAll, XawsdRight, 1, True) - -/* - * Class Methods - */ -static void XawAsciiSinkClassPartInitialize(WidgetClass); -static void XawAsciiSinkInitialize(Widget, Widget, ArgList, Cardinal*); -static void XawAsciiSinkDestroy(Widget); -static void XawAsciiSinkResize(Widget); -static Boolean XawAsciiSinkSetValues(Widget, Widget, Widget, - ArgList, Cardinal*); -static int MaxLines(Widget, unsigned int); -static int MaxHeight(Widget, int); -static void SetTabs(Widget, int, short*); -static void DisplayText(Widget, int, int, - XawTextPosition, XawTextPosition, Bool); -static void InsertCursor(Widget, int, int, XawTextInsertState); -static void FindPosition(Widget, XawTextPosition, int, int, Bool, - XawTextPosition*, int*, int*); -static void FindDistance(Widget, XawTextPosition, int, XawTextPosition, int*, - XawTextPosition*, int*); -static void Resolve(Widget, XawTextPosition, int, int, XawTextPosition*); -static void GetCursorBounds(Widget, XRectangle*); -#ifndef OLDXAW -static void AsciiPreparePaint(Widget, int, int, - XawTextPosition, XawTextPosition, Bool); -static void AsciiDoPaint(Widget); -#endif - -/* - * Prototypes - */ -static void GetGC(AsciiSinkObject); -static int CharWidth(AsciiSinkObject, XFontStruct*, int, unsigned int); -static unsigned int PaintText(Widget w, GC gc, int x, int y, - char *buf, int len, Bool); - -/* - * Defined in TextSink.c - */ -void _XawTextSinkClearToBackground(Widget, int, int, unsigned, unsigned); - -/* - * Initialization - */ -#define offset(field) XtOffsetOf(AsciiSinkRec, ascii_sink.field) -static XtResource resources[] = { - { - XtNfont, - XtCFont, - XtRFontStruct, - sizeof(XFontStruct*), - offset(font), - XtRString, - XtDefaultFont - }, - { - XtNecho, - XtCOutput, - XtRBoolean, - sizeof(Boolean), - offset(echo), - XtRImmediate, - (XtPointer)True - }, - { - XtNdisplayNonprinting, - XtCOutput, - XtRBoolean, - sizeof(Boolean), - offset(display_nonprinting), - XtRImmediate, - (XtPointer) - True - }, -}; -#undef offset - -#define Superclass (&textSinkClassRec) -AsciiSinkClassRec asciiSinkClassRec = { - /* object */ - { - (WidgetClass)Superclass, /* superclass */ - "AsciiSink", /* class_name */ - sizeof(AsciiSinkRec), /* widget_size */ - XawInitializeWidgetSet, /* class_initialize */ - XawAsciiSinkClassPartInitialize, /* class_part_initialize */ - False, /* class_inited */ - XawAsciiSinkInitialize, /* initialize */ - NULL, /* initialize_hook */ - NULL, /* obj1 */ - NULL, /* obj2 */ - 0, /* obj3 */ - resources, /* resources */ - XtNumber(resources), /* num_resources */ - NULLQUARK, /* xrm_class */ - False, /* obj4 */ - False, /* obj5 */ - False, /* obj6 */ - False, /* obj7 */ - XawAsciiSinkDestroy, /* destroy */ - (XtProc)XawAsciiSinkResize, /* obj8 */ - NULL, /* obj9 */ - XawAsciiSinkSetValues, /* set_values */ - NULL, /* set_values_hook */ - NULL, /* obj10 */ - NULL, /* get_values_hook */ - NULL, /* obj11 */ - XtVersion, /* version */ - NULL, /* callback_private */ - NULL, /* obj12 */ - NULL, /* obj13 */ - NULL, /* obj14 */ - NULL, /* extension */ - }, - /* text_sink */ - { - DisplayText, /* DisplayText */ - InsertCursor, /* InsertCursor */ - XtInheritClearToBackground, /* ClearToBackground */ - FindPosition, /* FindPosition */ - FindDistance, /* FindDistance */ - Resolve, /* Resolve */ - MaxLines, /* MaxLines */ - MaxHeight, /* MaxHeight */ - SetTabs, /* SetTabs */ - GetCursorBounds, /* GetCursorBounds */ -#ifndef OLDXAW - NULL /* extension */ -#endif - }, - /* ascii_sink */ - { - NULL, /* extension */ - } -}; - -WidgetClass asciiSinkObjectClass = (WidgetClass)&asciiSinkClassRec; - -/* - * Implementation - */ -static void -XawAsciiSinkClassPartInitialize(WidgetClass wc) -{ -#ifndef OLDXAW - AsciiSinkObjectClass cclass = (AsciiSinkObjectClass)wc; - XrmQuark record_type = XrmPermStringToQuark("TextSink"); - TextSinkExt ext = cclass->text_sink_class.extension; - - while (ext) { - if (ext->record_type == record_type && - ext->version == 1) { - ext->PreparePaint = AsciiPreparePaint; - ext->DoPaint = AsciiDoPaint; - break; - } - ext = (TextSinkExt)ext->next_extension; - } - if (ext == NULL) - XtError("TextSinkClass: cannot resolve extension.\n"); -#endif -} - -static int -CharWidth(AsciiSinkObject sink, XFontStruct *font, int x, unsigned int c) -{ - int width = 0; - - if (c == XawLF) - return (0); - - if (c == XawTAB) { - int i; - Position *tab; - - width = x; - /* Adjust for Left Margin */ - x -= ((TextWidget)XtParent((Widget)sink))->text.left_margin; - - i = 0; - tab = sink->text_sink.tabs; - /*CONSTCOND*/ - while (1) { - if (x >= 0 && x < *tab) - return (*tab - x); - /* Start again */ - if (++i >= sink->text_sink.tab_count) { - x -= *tab; - i = 0; - tab = sink->text_sink.tabs; - if (width == x) - return (0); - } - else - ++tab; - } - /*NOTREACHED*/ - } - - if ((c & 0177) < XawSP || c == 0177) { - if (sink->ascii_sink.display_nonprinting) { - if (c > 0177) { - width = CharWidth(sink, font, x, '\\'); - width += CharWidth(sink, font, x, ((c >> 6) & 7) + '0'); - width += CharWidth(sink, font, x, ((c >> 3) & 7) + '0'); - c = (c & 7) + '0'; - } - else { - width = CharWidth(sink, font, x, '^'); - if ((c |= 0100) == 0177) - c = '?'; - } - } - else - c = XawSP; - } - - if (font->per_char - && (c >= font->min_char_or_byte2 && c <= font->max_char_or_byte2)) - width += font->per_char[c - font->min_char_or_byte2].width; - else - width += font->min_bounds.width; - - return (width); -} - -#ifndef OLDXAW -static int -GetTextWidth(TextWidget ctx, int current_width, XFontStruct *font, - XawTextPosition from, int length) -{ - int i, width = 0; - XawTextBlock block; - XawTextPosition pos = from; - - while (length > 0) { - pos = XawTextSourceRead(ctx->text.source, from, &block, length); - length -= pos - from; - from = pos; - for (i = 0; i < block.length; i++) - width += CharWidth((AsciiSinkObject)ctx->text.sink, font, - current_width + width, - (unsigned char)block.ptr[i]); - } - - return (width); -} - -static -void CalculateBearing(TextWidget ctx, XawTextPosition position, int x, int y, - int ascent, int descent, Bool highlight, Bool right) -{ -/* - * Sample case: - * - * lbearing| width |rbearing - * | | - * | #### - * | ### | - * | #### | - * | #### | - * | ########## | - * | #### | - * | #### | - * | #### | - * | #### | - * |### | - * #### | - * | | - * - */ - AsciiSinkObject sink = (AsciiSinkObject)ctx->text.sink; - XawTextAnchor *anchor; - XawTextEntity *entity; - XawTextProperty *property; - XawTextPaintStruct *paint; - XawTextBlock block; - XFontStruct *font; - - property = NULL; - if (XawTextSourceAnchorAndEntity(ctx->text.source, position, - &anchor, &entity) && - (property = XawTextSinkGetProperty((Widget)sink, - entity->property)) != NULL && - (property->mask & XAW_TPROP_FONT)) - font = property->font; - else - font = sink->ascii_sink.font; - if (right) { - if (font->max_bounds.rbearing > 0) { - int rbearing = font->max_bounds.rbearing - font->max_bounds.width; - unsigned char c; - - (void)XawTextSourceRead(ctx->text.source, position, &block, 1); - c = *(unsigned char*)block.ptr; - if (c == '\t' || c == '\n') - c = ' '; - else if ((c & 0177) < XawSP || c == 0177) { - if (sink->ascii_sink.display_nonprinting) - c = c > 0177 ? (c & 7) + '0' : c + '@'; - else - c = ' '; - } - if (font->per_char && - (c >= font->min_char_or_byte2 && c <= font->max_char_or_byte2)) - rbearing = font->per_char[c - font->min_char_or_byte2].rbearing - - font->per_char[c - font->min_char_or_byte2].width; - if (rbearing > 0) { - paint = XtNew(XawTextPaintStruct); - paint->next = sink->text_sink.paint->bearings; - sink->text_sink.paint->bearings = paint; - paint->x = x - (paint->width = CharWidth(sink, font, 0, c)); - paint->y = y + ascent; - paint->property = property; - paint->max_ascent = ascent; - paint->max_descent = descent; - paint->backtabs = NULL; - paint->highlight = highlight; - paint->length = 1; - paint->text = XtMalloc(1); - paint->text[0] = c; - } - } - } - else { - if (font->min_bounds.lbearing < 0) { - int lbearing = font->min_bounds.lbearing; - unsigned char c; - - (void)XawTextSourceRead(ctx->text.source, position, &block, 1); - c = *(unsigned char*)block.ptr; - if (c == '\t' || c == '\n') - c = ' '; - else if ((c & 0177) < XawSP || c == 0177) { - if (sink->ascii_sink.display_nonprinting) - c = c > 0177 ? '\\' : c + '^'; - else - c = ' '; - } - if (font->per_char && - (c >= font->min_char_or_byte2 && c <= font->max_char_or_byte2)) - lbearing = font->per_char[c - font->min_char_or_byte2].lbearing; - if (lbearing < 0) { - paint = XtNew(XawTextPaintStruct); - paint->next = sink->text_sink.paint->bearings; - sink->text_sink.paint->bearings = paint; - paint->x = x; - paint->width = -CharWidth(sink, font, 0, c); - paint->y = y + ascent; - paint->property = property; - paint->max_ascent = ascent; - paint->max_descent = descent; - paint->backtabs = NULL; - paint->highlight = highlight; - paint->length = 1; - paint->text = XtMalloc(1); - paint->text[0] = c; - } - } - } -} - -static void -AsciiPreparePaint(Widget w, int y, int line, - XawTextPosition from, XawTextPosition to, Bool highlight) -{ - static XmuSegment segment; - static XmuScanline next; - static XmuScanline scanline = {0, &segment, &next}; - static XmuArea area = {&scanline}; - - TextWidget ctx = (TextWidget)XtParent(w); - AsciiSinkObject sink = (AsciiSinkObject)ctx->text.sink; - XawTextPosition left, right, pos, pos2, tmp, length; - XawTextAnchor *anchor; - XawTextEntity *entity; - XawTextProperty *property; - int i, ascent = 0, descent = 0, xl, xr, x = ctx->text.left_margin, bufsiz; - XawTextBlock block; - XFontStruct *font; - XawTextPaintStruct *paint; - - if (!sink->ascii_sink.echo) - return; - - /* pass 1: calculate ascent/descent values and x coordinate */ - /* XXX the MAX ascent/descent value should be in the line table XXX */ - /* XXX the x coordinate can be a parameter, but since it is required - to calculate the ascent/descent, do it here to avoid an extra - search in the entities */ - pos = tmp = left = ctx->text.lt.info[line].position; - right = ctx->text.lt.info[line + 1].position; - right = XawMin(right, ctx->text.lastPos + 1); - while (pos < right) { - if (XawTextSourceAnchorAndEntity(ctx->text.source, pos, - &anchor, &entity)) { - if ((property = XawTextSinkGetProperty((Widget)sink, - entity->property)) != NULL && - (property->mask & XAW_TPROP_FONT)) - font = property->font; - else - font = sink->ascii_sink.font; - tmp = pos; - pos = anchor->position + entity->offset + entity->length; - if ((length = XawMin(from, pos) - tmp) > 0) - x += GetTextWidth(ctx, x, font, tmp, length); - ascent = XawMax(font->ascent, ascent); - descent = XawMax(font->descent, descent); - } - else if (anchor) { - ascent = XawMax(sink->ascii_sink.font->ascent, ascent); - descent = XawMax(sink->ascii_sink.font->descent, descent); - while (entity && pos < right) { - tmp = pos; - if ((pos = anchor->position + entity->offset) < tmp) - pos = tmp; - else { - if ((length = XawMin(from, pos) - tmp) > 0) { - x += GetTextWidth(ctx, x, sink->ascii_sink.font, tmp, - length); - tmp += length; - } - if (pos < right) { - pos += entity->length; - if ((property = XawTextSinkGetProperty((Widget)sink, - entity->property)) != NULL && - (property->mask & XAW_TPROP_FONT)) - font = property->font; - else - font = sink->ascii_sink.font; - if ((length = XawMin(from, pos) - tmp) > 0) - x += GetTextWidth(ctx, x, font, tmp, length); - ascent = XawMax(font->ascent, ascent); - descent = XawMax(font->descent, descent); - } - } - entity = entity->next; - } - - if (anchor->entities == NULL) { - tmp = XawMin(pos, from); - if ((length = from - tmp) > 0) - x += GetTextWidth(ctx, x, sink->ascii_sink.font, tmp, length); - break; - } - } - else { - tmp = XawMin(pos, from); - if ((length = from - tmp) > 0) - x += GetTextWidth(ctx, x, sink->ascii_sink.font, tmp, length); - ascent = XawMax(sink->ascii_sink.font->ascent, ascent); - descent = XawMax(sink->ascii_sink.font->descent, descent); - break; - } - } - if (!ascent) - ascent = sink->ascii_sink.font->ascent; - if (!descent) - descent = sink->ascii_sink.font->descent; - - xl = x; - - /* pass 2: feed the XawTextPaintStruct lists */ - pos = from; - while (pos < to) { - paint = XtNew(XawTextPaintStruct); - paint->next = sink->text_sink.paint->paint; - sink->text_sink.paint->paint = paint; - paint->x = x; - paint->y = y + ascent; - paint->property = NULL; - paint->max_ascent = ascent; - paint->max_descent = descent; - paint->backtabs = NULL; - paint->highlight = highlight; - - tmp = pos; - if (XawTextSourceAnchorAndEntity(ctx->text.source, pos, - &anchor, &entity)) { - pos = anchor->position + entity->offset + entity->length; - if ((paint->property = XawTextSinkGetProperty((Widget)sink, - entity->property)) != NULL && - (paint->property->mask & XAW_TPROP_FONT)) - font = paint->property->font; - else - font = sink->ascii_sink.font; - } - else { - if (anchor) { - while (entity && anchor->position + entity->offset < pos) - entity = entity->next; - if (entity) - pos = anchor->position + entity->offset; - else - pos = to; - } - else - pos = to; - font = sink->ascii_sink.font; - } - pos = XawMin(pos, to); - length = pos - tmp; - - paint->text = XtMalloc(bufsiz = pos - tmp + 4); - paint->length = 0; - segment.x1 = x; - - pos2 = tmp; - while (length > 0) { - pos2 = XawTextSourceRead(ctx->text.source, tmp, &block, length); - length = pos - pos2; - tmp = pos2; - for (i = 0; i < block.length; i++) { - unsigned char c = (unsigned char)block.ptr[i]; - - if (paint->length + 4 > bufsiz) - paint->text = XtRealloc(paint->text, bufsiz += 32); - paint->text[paint->length] = c; - if (c == '\n') { - x += CharWidth(sink, font, 0, ' '); - continue; - } - if (c == '\t') { - x += XTextWidth(font, paint->text, paint->length); - segment.x2 = x + CharWidth(sink, font, x, '\t'); - - if (XmuValidSegment(&segment)) { - if (!highlight && (paint->property && - (paint->property->mask & XAW_TPROP_BACKGROUND))) { - if (ascent > font->ascent) { - scanline.y = y; - next.y = y + ascent - font->ascent; - XmuAreaOr(sink->text_sink.paint->clip, &area); - } - if (descent >= font->descent) { - scanline.y = y + ascent + font->descent; - next.y = scanline.y + descent - font->descent + 1; - XmuAreaOr(sink->text_sink.paint->clip, &area); - } - if (paint->backtabs == NULL) - paint->backtabs = XmuCreateArea(); - scanline.y = y + ascent - font->ascent; - next.y = y + ascent + font->descent; - XmuAreaOr(paint->backtabs, &area); - } - else { - scanline.y = y; - next.y = ctx->text.lt.info[line + 1].y; - if (highlight) { - if (!sink->text_sink.paint->hightabs) - sink->text_sink.paint->hightabs = - XmuCreateArea(); - XmuAreaOr(sink->text_sink.paint->hightabs, &area); - } - else - XmuAreaOr(sink->text_sink.paint->clip, &area); - } - } - - paint->width = segment.x2 - segment.x1; - x = segment.x1 = segment.x2; - - if (paint->length == 0) { - paint->x = x; - continue; - } - paint->text = XtRealloc(paint->text, paint->length); - property = paint->property; - paint = XtNew(XawTextPaintStruct); - paint->next = sink->text_sink.paint->paint; - sink->text_sink.paint->paint = paint; - paint->x = x; - paint->y = y + ascent; - paint->property = property; - paint->max_ascent = ascent; - paint->max_descent = descent; - paint->backtabs = NULL; - paint->highlight = highlight; - paint->text = XtMalloc(bufsiz = pos - tmp - length + - block.length - i + 4); - paint->length = 0; - continue; - } - if ((c & 0177) < XawSP || c == 0177) { - if (sink->ascii_sink.display_nonprinting) { - if (c > 0177) { - paint->text[paint->length++] = '\\'; - paint->text[paint->length++] = ((c >> 6) & 7) + '0'; - paint->text[paint->length++] = ((c >> 3) & 7) + '0'; - paint->text[paint->length] = (c & 7) + '0'; - } - else { - c |= 0100; - paint->text[paint->length++] = '^'; - paint->text[paint->length] = c == 0177 ? '?' : c; - } - } - else - paint->text[paint->length] = ' '; - } - paint->length++; - } - } - - x += XTextWidth(font, paint->text, paint->length); - segment.x2 = x; - if (XmuValidSegment(&segment)) { - /* erase only what really is needed */ - /*if (!highlight || (paint->property && - (paint->property->mask & XAW_TPROP_BACKGROUND))) { - if (ascent > font->ascent) { - scanline.y = y; - next.y = y + ascent - font->ascent; - XmuAreaOr(sink->text_sink.paint->clip, &area); - } - if (descent > font->descent) { - scanline.y = y + ascent + font->descent; - next.y = scanline.y + descent - font->descent; - XmuAreaOr(sink->text_sink.paint->clip, &area); - } - } - else*/ { - scanline.y = y; - next.y = ctx->text.lt.info[line + 1].y; - XmuAreaOr(sink->text_sink.paint->clip, &area); - } - } - - paint->width = x - segment.x1; - } - - xr = x; - - /* pass 3: bearing clipping */ - if (left < from) { - CalculateBearing(ctx, from - 1, xl, y, ascent, descent, highlight, True); - if (ctx->text.s.left < ctx->text.s.right) { - if (ctx->text.s.right == from) - CalculateBearing(ctx, from, xl, y, ascent, descent, True, False); - else if (ctx->text.s.left == from) - CalculateBearing(ctx, from, xl, y, ascent, descent, False, False); - } - } - right = XawMin(right, ctx->text.lastPos); - if (right >= to && to > from) { - if (to < right) - CalculateBearing(ctx, to, xr, y, ascent, descent, highlight, False); - if (ctx->text.s.left < ctx->text.s.right) { - if (ctx->text.s.right == to) - CalculateBearing(ctx, to - 1, xr, y, ascent, descent, False, True); - else if (ctx->text.s.left == to) - CalculateBearing(ctx, to - 1, xr, y, ascent, descent, True, True); - } - } -} - -static int -qcmp_paint_struct(_Xconst void *left, _Xconst void *right) -{ - return ((*(XawTextPaintStruct**)left)->property - - (*(XawTextPaintStruct**)right)->property); -} - -static void -AsciiDoPaint(Widget w) -{ - TextWidget ctx = (TextWidget)XtParent(w); - AsciiSinkObject sink = (AsciiSinkObject)ctx->text.sink; - XmuScanline *scan; - XmuSegment *seg; - XawTextPaintList *list = sink->text_sink.paint; -#if 0 - XawTextPaintStruct *base, *head; -#endif - XawTextPaintStruct *paint = list->paint; - XawTextProperty *property; - XFontStruct *font = NULL; - XRectangle *rects; - int n_rects, i_rects; - GC gc; - Bool highlight; - XRectangle rect; - int width, height, line_width = -1; - XGCValues values; - - /* pass 1: clear clipping areas */ - /* XXX Don't use XDrawImageString because the font may be italic, and - will get incorrectly drawn. Probably, it could be a good idea to - check if this is the case, and do special processing. But this - will need to be checked if required. */ - for (scan = list->clip->scanline; scan && scan->next; scan = scan->next) - for (seg = scan->segment; seg; seg = seg->next) - _XawTextSinkClearToBackground(ctx->text.sink, - seg->x1, scan->y, - seg->x2 - seg->x1, - scan->next->y - scan->y); - - /* pass 2: optimize drawing list to avoid too much GC change requests */ - /* XXX this assumes there will not exist entities drawn over other - entities. */ -#if 0 - while (paint) { - base = paint; - head = paint->next; - while (head) { - if (head->property == paint->property) { - base->next = head->next; - head->next = paint->next; - paint->next = head; - paint = head; - } - base = head; - head = head->next; - } - paint = paint->next; - } -#endif - if (paint && paint->next) { - XawTextPaintStruct **paints; - int i = 0, n_paints = 0; - - while (paint) { - paint = paint->next; - ++n_paints; - } - paints = (XawTextPaintStruct**) - XtMalloc(n_paints * sizeof(XawTextPaintStruct)); - paint = list->paint; - while (paint) { - paints[i++] = paint; - paint = paint->next; - } - qsort((void*)paints, n_paints, sizeof(XawTextPaintStruct*), - qcmp_paint_struct); - list->paint = paints[0]; - for (i = 0; i < n_paints - 1; i++) - paints[i]->next = paints[i + 1]; - paints[i]->next = NULL; - XtFree((XtPointer)paints); - } - - /* pass 3: clip gc */ - gc = sink->ascii_sink.normgc; - - rect.x = ctx->text.r_margin.left; - rect.y = ctx->text.r_margin.top; - width = (int)XtWidth(ctx) - RHMargins(ctx); - height = (int)XtHeight(ctx) - RVMargins(ctx); - rect.width = width; - rect.height = height; - if (width >= 0 && height >= 0) - XSetClipRectangles(XtDisplay((Widget)ctx), gc, - 0, 0, &rect, 1, Unsorted); - else - XSetClipMask(XtDisplay((Widget)ctx), gc, None); - - /* pass 4: draw backgrounds */ - paint = list->paint; - property = NULL; - rects = NULL; - i_rects = n_rects = 0; - while (paint) { - if (paint->property && (paint->property->mask & XAW_TPROP_BACKGROUND)) { - if (property != paint->property) { - if (i_rects) - XFillRectangles(XtDisplay(ctx), XtWindow(ctx), gc, - rects, i_rects); - i_rects = 0; - property = paint->property; - if (property->mask & XAW_TPROP_FONT) - font = property->font; - else - font = sink->ascii_sink.font; - XSetForeground(XtDisplay(ctx), gc, property->background); - } - if (i_rects <= n_rects) - rects = (XRectangle*) - XtRealloc((XtPointer)rects, sizeof(XRectangle) * - ++n_rects); - rects[i_rects].x = paint->x; - rects[i_rects].y = paint->y - font->ascent; - rects[i_rects].width = paint->width; - rects[i_rects++].height = font->ascent + font->descent; - - if (paint->backtabs) { - for (scan = paint->backtabs->scanline; scan && scan->next; - scan = scan->next) - for (seg = scan->segment; seg; seg = seg->next) { - if (i_rects <= n_rects) - rects = (XRectangle*) - XtRealloc((XtPointer)rects, sizeof(XRectangle) * - ++n_rects); - rects[i_rects].x = seg->x1; - rects[i_rects].y = scan->y; - rects[i_rects].width = seg->x2 - seg->x1; - rects[i_rects++].height = scan->next->y - scan->y; - } - } - - - } - paint = paint->next; - } - if (i_rects) - XFillRectangles(XtDisplay(ctx), XtWindow(ctx), gc, rects, i_rects); - - paint = list->paint; - i_rects = 0; - while (paint) { - if (paint->highlight) { - if (i_rects == 0) - XSetForeground(XtDisplay(ctx), gc, sink->text_sink.cursor_color); - if (i_rects <= n_rects) - rects = (XRectangle*) - XtRealloc((XtPointer)rects, sizeof(XRectangle) * - ++n_rects); - rects[i_rects].x = paint->x; - rects[i_rects].y = paint->y - paint->max_ascent; - rects[i_rects].width = paint->width; - rects[i_rects++].height = paint->max_ascent + paint->max_descent + 1; - } - paint = paint->next; - } - if (list->hightabs) { - for (scan = list->hightabs->scanline; scan && scan->next; - scan = scan->next) - for (seg = scan->segment; seg; seg = seg->next) { - if (i_rects == 0) - XSetForeground(XtDisplay(ctx), gc, - sink->text_sink.cursor_color); - if (i_rects <= n_rects) - rects = (XRectangle*) - XtRealloc((XtPointer)rects, sizeof(XRectangle) * - ++n_rects); - rects[i_rects].x = seg->x1; - rects[i_rects].y = scan->y; - rects[i_rects].width = seg->x2 - seg->x1; - rects[i_rects++].height = scan->next->y - scan->y; - } - } - - if (i_rects) - XFillRectangles(XtDisplay(ctx), XtWindow(ctx), gc, rects, i_rects); - if (rects) - XtFree((XtPointer)rects); - - /* pass 5: draw text! */ - paint = list->paint; - if (paint && (property = paint->property) == NULL) { - font = sink->ascii_sink.font; - XSetFont(XtDisplay(ctx), gc, font->fid); - if (!paint->highlight) - XSetForeground(XtDisplay(ctx), gc, sink->text_sink.foreground); - } - else - property = NULL; - highlight = False; - while (paint) { - if (!highlight && paint->highlight) - XSetForeground(XtDisplay(ctx), gc, sink->text_sink.background); - if (highlight || paint->highlight || paint->property != property) { - if (!paint->property || !(paint->property->mask & XAW_TPROP_FONT)) - font = sink->ascii_sink.font; - else - font = paint->property->font; - XSetFont(XtDisplay(ctx), gc, font->fid); - if (!paint->highlight) { - if (!paint->property || - !(paint->property->mask & XAW_TPROP_FOREGROUND)) - XSetForeground(XtDisplay(ctx), gc, - sink->text_sink.foreground); - else - XSetForeground(XtDisplay(ctx), gc, - paint->property->foreground); - } - highlight = paint->highlight; - property = paint->property; - } - - if (paint->x < XtWidth(ctx) && paint->x + paint->width > 0) { - XDrawString(XtDisplay(ctx), XtWindow(ctx), gc, paint->x, paint->y, - paint->text, paint->length); - if (property) { - if (property->mask & XAW_TPROP_UNDERLINE) { - if (line_width != property->underline_thickness) { - values.line_width = line_width = - property->underline_thickness; - XChangeGC(XtDisplay(ctx), gc, GCLineWidth, &values); - } - - XDrawLine(XtDisplay(ctx), XtWindow(ctx), gc, paint->x, - paint->y + property->underline_position, - paint->x + paint->width, - paint->y + property->underline_position); - } - if (property->mask & XAW_TPROP_OVERSTRIKE) { - if (line_width != property->underline_thickness) { - values.line_width = line_width = - property->underline_thickness; - XChangeGC(XtDisplay(ctx), gc, GCLineWidth, &values); - } - - XDrawLine(XtDisplay(ctx), XtWindow(ctx), gc, paint->x, - paint->y - (font->ascent>>1) + (font->descent>>1), - paint->x + paint->width, - paint->y - (font->ascent>>1) + (font->descent>>1)); - } - } - } - - paint = paint->next; - } - - /* pass 6: bearing clipping */ - /* dont care on order of drawing or caching of state (by now) */ - paint = list->bearings; - while (paint) { - XRectangle rect; - - if (paint->highlight) - XSetForeground(XtDisplay(ctx), gc, sink->text_sink.background); - if (!paint->property || !(paint->property->mask & XAW_TPROP_FONT)) - font = sink->ascii_sink.font; - else - font = paint->property->font; - XSetFont(XtDisplay(ctx), gc, font->fid); - if (!paint->highlight) { - if (!paint->property || - !(paint->property->mask & XAW_TPROP_FOREGROUND)) - XSetForeground(XtDisplay(ctx), gc, sink->text_sink.foreground); - else - XSetForeground(XtDisplay(ctx), gc, paint->property->foreground); - } - if (paint->x < XtWidth(ctx) && paint->x + paint->width > 0) { - rect.x = paint->x + paint->width; - rect.width = XawAbs(paint->width); /* more than enough */ - rect.y = paint->y - font->ascent; - rect.height = rect.y + font->ascent + font->descent; - XSetClipRectangles(XtDisplay((Widget)ctx), gc, - 0, 0, &rect, 1, Unsorted); - XDrawString(XtDisplay(ctx), XtWindow(ctx), gc, paint->x, paint->y, - paint->text, paint->length); - } - paint = paint->next; - } -} -#endif - -/* - * Function: - * PaintText - * - * Parameters: - * w - text sink object - * gc - gc to paint text with - * x - location to paint the text - * y - "" - * buf - buffer and length of text to paint. - * len - "" - * clear_bg - clear background before drawing ? - * - * Description: - * Actually paints the text into the window. - * - * Returns: - * the width of the text painted - */ -static unsigned int -PaintText(Widget w, GC gc, int x, int y, char *buf, int len, Bool clear_bg) -{ - AsciiSinkObject sink = (AsciiSinkObject)w; - TextWidget ctx = (TextWidget)XtParent(w); - int width = XTextWidth(sink->ascii_sink.font, buf, len); - - if ((x > XtWidth(ctx)) || width <= -x) /* Don't draw if we can't see it */ - return (width); - - if (clear_bg) { - _XawTextSinkClearToBackground(w, x, y - sink->ascii_sink.font->ascent, - width, sink->ascii_sink.font->ascent - + sink->ascii_sink.font->descent); - XDrawString(XtDisplay(ctx), XtWindow(ctx), gc, x, y, buf, len); - } - else - XDrawImageString(XtDisplay(ctx), XtWindow(ctx), gc, x, y, buf, len); - - return (width); -} - -static void -DisplayText(Widget w, int x, int y, - XawTextPosition pos1, XawTextPosition pos2, Bool highlight) -{ - TextWidget ctx = (TextWidget)XtParent(w); - AsciiSinkObject sink = (AsciiSinkObject)w; - XFontStruct *font = sink->ascii_sink.font; - Widget source = XawTextGetSource(XtParent(w)); - unsigned char buf[260]; - int j, k; - XawTextBlock blk; - GC gc, invgc, tabgc; - int max_x; - Bool clear_bg; - - if (!sink->ascii_sink.echo || !ctx->text.lt.lines) - return; - - max_x = (int)XtWidth(ctx) - ctx->text.r_margin.right; - clear_bg = !highlight && ctx->core.background_pixmap != XtUnspecifiedPixmap; - - gc = highlight ? sink->ascii_sink.invgc : sink->ascii_sink.normgc; - invgc = highlight ? sink->ascii_sink.normgc : sink->ascii_sink.invgc; - - if (highlight && sink->ascii_sink.xorgc) - tabgc = sink->ascii_sink.xorgc; - else - tabgc = invgc; - - y += sink->ascii_sink.font->ascent; - for (j = 0; pos1 < pos2;) { - pos1 = XawTextSourceRead(source, pos1, &blk, pos2 - pos1); - for (k = 0; k < blk.length; k++) { - if (j >= sizeof(buf) - 4) { /* buffer full, dump the text */ - if ((x += PaintText(w, gc, x, y, (char*)buf, j, clear_bg)) - >= max_x) - return; - j = 0; - } - buf[j] = blk.ptr[k]; - if (buf[j] == XawLF) /* line feeds ('\n') are not printed */ - continue; - - else if (buf[j] == '\t') { - int width; - - if (j != 0 - && (x += PaintText(w, gc, x, y, (char*)buf, j, clear_bg)) - >= max_x) - return; - - if ((width = CharWidth(sink, font, x, '\t')) > -x) { - if (clear_bg) - _XawTextSinkClearToBackground(w, x, y-font->ascent, width, - font->ascent+font->descent); - else - XFillRectangle(XtDisplayOfObject(w), XtWindowOfObject(w), - tabgc, x, y - font->ascent, width, - font->ascent + font->descent); - } - - if ((x += width) >= max_x) - return; - - j = -1; - } - else if ((buf[j] & 0177) < XawSP || buf[j] == 0177) { - if (sink->ascii_sink.display_nonprinting) { - unsigned char c = buf[j]; - - if (c > 0177) { - buf[j++] = '\\'; - buf[j++] = ((c >> 6) & 7) + '0'; - buf[j++] = ((c >> 3) & 7) + '0'; - buf[j] = (c & 7) + '0'; - } - else { - c |= 0100; - buf[j++] = '^'; - buf[j] = c == 0177 ? '?' : c; - } - } - else - buf[j] = ' '; - } - j++; - } - } - - if (j > 0) - (void)PaintText(w, gc, x, y, (char*)buf, j, clear_bg); -} - -/* - * Function: - * GetCursorBounds - * - * Parameters: - * w - text sink object - * rect - X rectangle to return the cursor bounds - * - * Description: - * Returns the size and location of the cursor. - */ -static void -GetCursorBounds(Widget w, XRectangle *rect) -{ - AsciiSinkObject sink = (AsciiSinkObject)w; - XFontStruct *font = sink->ascii_sink.font; - unsigned char ch; -#ifndef OLDXAW - TextWidget ctx = (TextWidget)XtParent(w); - XawTextBlock block; - XawTextAnchor *anchor; - XawTextEntity *entity; - XawTextProperty *property; - - if (XawTextSourceAnchorAndEntity(XawTextGetSource(XtParent(w)), - sink->ascii_sink.cursor_position, - &anchor, &entity)) { - if ((property = XawTextSinkGetProperty((Widget)sink, - entity->property)) != NULL && - (property->mask & XAW_TPROP_FONT)) - font = property->font; - } - (void)XawTextSourceRead(XawTextGetSource((Widget)ctx), - ctx->text.insertPos, &block, 1); - if (!block.length || block.ptr[0] == '\n' || block.ptr[0] == '\t') - ch = ' '; - else if ((*((unsigned char*)block.ptr) & 0177) < XawSP || - *(unsigned char*)block.ptr == 0177) { - if (sink->ascii_sink.display_nonprinting) - ch = *((unsigned char*)block.ptr) > 0177 ? '\\' : '^'; - else - ch = ' '; - } - else - ch = *(unsigned char*)block.ptr; -#else - ch = ' '; -#endif - - rect->width = CharWidth(sink, font, 0, ch); - rect->height = font->descent + font->ascent + 1; - - rect->x = sink->ascii_sink.cursor_x; - rect->y = sink->ascii_sink.cursor_y - font->ascent; -} - -/* this function is required to support diferent fonts and correctly place - * the cursor. There are better ways to calculate the base line, but there is - * no place/code (yet) to store this information. - */ -static int -FindCursorY(TextWidget ctx, XawTextPosition position) -{ - int y, line, ascent; - AsciiSinkObject sink = (AsciiSinkObject)ctx->text.sink; -#ifndef OLDXAW - XawTextAnchor *anchor; - XawTextEntity *entity; - XawTextProperty *property; - XawTextPosition left, right; -#endif - - for (line = 0; line < ctx->text.lt.lines; line++) - if (position < ctx->text.lt.info[line + 1].position) - break; - - y = ctx->text.lt.info[line].y; -#ifndef OLDXAW - ascent = 0; - left = ctx->text.lt.info[line].position; - right = ctx->text.lt.info[line + 1].position; - right = XawMin(right, ctx->text.lastPos + 1); - while (left < right) { - if (XawTextSourceAnchorAndEntity(ctx->text.source, left, - &anchor, &entity)) { - if ((property = XawTextSinkGetProperty((Widget)sink, - entity->property)) != NULL && - (property->mask & XAW_TPROP_FONT)) - ascent = XawMax(property->font->ascent, ascent); - else - ascent = XawMax(sink->ascii_sink.font->ascent, ascent); - left = anchor->position + entity->offset + entity->length; - } - else if (anchor) { - ascent = XawMax(sink->ascii_sink.font->ascent, ascent); - while (entity) { - XawTextPosition tmp = anchor->position + entity->offset + entity->length; - - if (tmp > left && tmp < right) { - left = tmp; - if ((property = XawTextSinkGetProperty((Widget)sink, - entity->property)) != NULL && - (property->mask & XAW_TPROP_FONT)) - ascent = XawMax(property->font->ascent, ascent); - else - ascent = XawMax(sink->ascii_sink.font->ascent, ascent); - } - entity = entity->next; - } - if (entity == NULL) - break; - } - else { - ascent = XawMax(sink->ascii_sink.font->ascent, ascent); - break; - } - } - if (!ascent) - ascent = sink->ascii_sink.font->ascent; -#else - ascent = sink->ascii_sink.font->ascent; -#endif - - return (y + ascent); -} - -static void -InsertCursor(Widget w, int x, int y, XawTextInsertState state) -{ - AsciiSinkObject sink = (AsciiSinkObject)w; - XFontStruct *font = sink->ascii_sink.font; - TextWidget ctx = (TextWidget)XtParent(w); - XawTextPosition position = XawTextGetInsertionPoint((Widget)ctx); - Boolean overflow = (x & 0xffff8000) != 0; -#ifndef OLDXAW - XawTextAnchor *anchor; - XawTextEntity *entity; - XawTextProperty *property; -#endif - - if (XtIsRealized((Widget)ctx)) { - int fheight; - XawTextBlock block; - XawTextPosition selection_start, selection_end; - Boolean has_selection; - - if (!sink->ascii_sink.echo) { - if (sink->ascii_sink.laststate != state) { - int width = CharWidth(sink, font, 0, ' ') - 1; - - x = ctx->text.margin.left; - y = ctx->text.margin.top; - font = sink->ascii_sink.font; - fheight = font->ascent + font->descent; - if (state == XawisOn) { - if (ctx->text.hasfocus) - XFillRectangle(XtDisplay(ctx), XtWindow(ctx), - sink->ascii_sink.xorgc, x, y, - width + 1, fheight + 1); - else - XDrawRectangle(XtDisplay(ctx), XtWindow(ctx), - sink->ascii_sink.xorgc, x, y, - width, fheight); - - } - else - _XawTextSinkClearToBackground(w, x, y, - width + 1, fheight + 1); - } - sink->ascii_sink.cursor_x = x; - sink->ascii_sink.cursor_y = y; - sink->ascii_sink.laststate = state; - return; - } - - - XawTextGetSelectionPos((Widget)ctx, &selection_start, &selection_end); - has_selection = selection_start != selection_end; - - if (sink->ascii_sink.laststate != state) { - unsigned char ch; - -#ifndef OLDXAW - if (XawTextSourceAnchorAndEntity(ctx->text.source, - position, &anchor, &entity) && - (property = XawTextSinkGetProperty((Widget)sink, - entity->property)) != NULL && - (property->mask & XAW_TPROP_FONT)) - font = property->font; - else - font = sink->ascii_sink.font; -#endif - - fheight = font->ascent + font->descent; - (void)XawTextSourceRead(XawTextGetSource((Widget)ctx), - position, &block, 1); - if (!block.length || block.ptr[0] == '\n' || block.ptr[0] == '\t') - ch = ' '; - else if ((*((unsigned char*)block.ptr) & 0177) < XawSP - || *(unsigned char*)block.ptr == 0177) { - if (sink->ascii_sink.display_nonprinting) - ch = *((unsigned char*)block.ptr) > 0177 ? '\\' : '^'; - else - ch = ' '; - } - else - ch = *(unsigned char*)block.ptr; - - y = FindCursorY(ctx, position); - if (ctx->text.hasfocus && !has_selection) - XFillRectangle(XtDisplay(ctx), XtWindow(ctx), - sink->ascii_sink.xorgc, x, y - font->ascent, - CharWidth(sink, font, 0, ch), fheight + 1); - else - XDrawRectangle(XtDisplay(ctx), XtWindow(ctx), - sink->ascii_sink.xorgc, x, y - font->ascent, - CharWidth(sink, font, 0, ch) - 1, fheight); - } - } - - sink->ascii_sink.cursor_x = overflow ? -16384 : x; - sink->ascii_sink.cursor_y = y; - sink->ascii_sink.laststate = state; - sink->ascii_sink.cursor_position = position; -} - -/* - * Given two positions, find the distance between them - */ -static void -FindDistance(Widget w, XawTextPosition fromPos, int fromx, - XawTextPosition toPos, int *resWidth, - XawTextPosition *resPos, int *resHeight) -{ -#ifndef OLDXAW - AsciiSinkObject sink = (AsciiSinkObject)w; - TextWidget ctx = (TextWidget)XtParent(w); - XFontStruct *font = sink->ascii_sink.font; - Widget source = ctx->text.source; - XawTextPosition idx, pos; - unsigned char c; - XawTextBlock blk; - int i, rWidth, ascent = 0, descent = 0; - XawTextAnchor *anchor; - XawTextEntity *entity; - XawTextProperty *property; - Cardinal length; - Bool done = False; - - pos = idx = fromPos; - rWidth = 0; - c = 0; - - while (!done) { - if (XawTextSourceAnchorAndEntity(source, pos, &anchor, &entity)) { - length = anchor->position + entity->offset + entity->length; - length = XawMin(toPos, length) - pos; - if ((property = XawTextSinkGetProperty((Widget)sink, - entity->property)) != NULL && - (property->mask & XAW_TPROP_FONT)) - font = property->font; - else - font = sink->ascii_sink.font; - } - else { - if (anchor) { - while (entity && anchor->position + entity->offset < pos) - entity = entity->next; - if (entity) { - length = anchor->position + entity->offset; - length = XawMin(toPos, length) - pos; - } - else - length = XawMin(toPos - pos, 4096); - } - else - length = XawMin(toPos - pos, 4096); - font = sink->ascii_sink.font; - } - - ascent = XawMax(font->ascent, ascent); - descent = XawMax(font->descent, descent); - - pos = XawTextSourceRead(source, pos, &blk, length); - if (blk.length == 0 && pos == idx) /* eof reached */ - break; - - idx = blk.firstPos; - for (i = 0; idx < toPos; i++, idx++) { - if (i >= blk.length) - break; - c = blk.ptr[i]; - rWidth += CharWidth(sink, font, fromx + rWidth, c); - if (c == XawLF) { - idx++; - done = True; - break; - } - } - if (idx >= toPos) - break; - } - - *resPos = idx; - *resWidth = rWidth; - *resHeight = ascent + descent + 1; -#else - AsciiSinkObject sink = (AsciiSinkObject)w; - TextWidget ctx = (TextWidget)XtParent(w); - XFontStruct *font = sink->ascii_sink.font; - Widget source = ctx->text.source; - XawTextPosition idx, pos; - unsigned char c; - XawTextBlock blk; - int i, rWidth; - - pos = XawTextSourceRead(source, fromPos, &blk, toPos - fromPos); - rWidth = 0; - for (i = 0, idx = fromPos; idx < toPos; i++, idx++) { - if (i >= blk.length) { - i = 0; - pos = XawTextSourceRead(source, pos, &blk, toPos - pos); - if (blk.length == 0) - break; - } - c = blk.ptr[i]; - rWidth += CharWidth(sink, font, fromx + rWidth, c); - if (c == XawLF) { - idx++; - break; - } - } - - *resPos = idx; - *resWidth = rWidth; - *resHeight = font->ascent + font->descent + 1; -#endif -} - -static void -FindPosition(Widget w, XawTextPosition fromPos, int fromx, int width, - Bool stopAtWordBreak, XawTextPosition *resPos, - int *resWidth, int *resHeight) -{ -#ifndef OLDXAW - AsciiSinkObject sink = (AsciiSinkObject)w; - TextWidget ctx = (TextWidget)XtParent(w); - Widget source = ctx->text.source; - XFontStruct *font = sink->ascii_sink.font; - XawTextPosition idx, pos, whiteSpacePosition = 0; - int i, lastWidth, whiteSpaceWidth, rWidth, ascent = 0, descent = 0; - Boolean whiteSpaceSeen; - unsigned char c; - XawTextBlock blk; - XawTextAnchor *anchor; - XawTextEntity *entity; - XawTextProperty *property; - Cardinal length; - Bool done = False; - - pos = idx = fromPos; - rWidth = lastWidth = whiteSpaceWidth = 0; - whiteSpaceSeen = False; - c = 0; - - while (!done) { - font = sink->ascii_sink.font; - if (XawTextSourceAnchorAndEntity(source, pos, &anchor, &entity)) { - length = anchor->position + entity->offset + entity->length - pos; - if ((property = XawTextSinkGetProperty((Widget)sink, - entity->property)) != NULL && - (property->mask & XAW_TPROP_FONT)) - font = property->font; - } - else { - if (anchor) { - while (entity && anchor->position + entity->offset < pos) - entity = entity->next; - if (entity) - length = anchor->position + entity->offset - pos; - else - length = 4096; - } - else - length = 4096; - } - - ascent = XawMax(font->ascent, ascent); - descent = XawMax(font->descent, descent); - - pos = XawTextSourceRead(source, pos, &blk, length); - if (blk.length == 0 && pos == idx) /* eof reached */ - break; - - idx = blk.firstPos; - for (i = 0; rWidth <= width && i < blk.length; i++, idx++) { - c = blk.ptr[i]; - lastWidth = rWidth; - rWidth += CharWidth(sink, font, fromx + rWidth, c); - - if (c == XawLF) { - idx++; - done = True; - break; - } - else if ((c == XawSP || c == XawTAB) && rWidth <= width) { - whiteSpaceSeen = True; - whiteSpacePosition = idx; - whiteSpaceWidth = rWidth; - } - } - if (rWidth > width) - break; - } - - if (rWidth > width && idx > fromPos) { - idx--; - rWidth = lastWidth; - if (stopAtWordBreak && whiteSpaceSeen) { - idx = whiteSpacePosition + 1; - rWidth = whiteSpaceWidth; - } - } - - if (idx >= ctx->text.lastPos && c != XawLF) - idx = ctx->text.lastPos + 1; - - *resPos = idx; - *resWidth = rWidth; - *resHeight = ascent + descent + 1; -#else - AsciiSinkObject sink = (AsciiSinkObject)w; - TextWidget ctx = (TextWidget)XtParent(w); - Widget source = ctx->text.source; - XFontStruct *font = sink->ascii_sink.font; - XawTextPosition idx, pos, whiteSpacePosition = 0; - int i, lastWidth, whiteSpaceWidth, rWidth; - Boolean whiteSpaceSeen; - unsigned char c; - XawTextBlock blk; - - pos = XawTextSourceRead(source, fromPos, &blk, BUFSIZ); - rWidth = lastWidth = whiteSpaceWidth = 0; - whiteSpaceSeen = False; - c = 0; - - for (i = 0, idx = fromPos; rWidth <= width; i++, idx++) { - if (i >= blk.length) { - i = 0; - pos = XawTextSourceRead(source, pos, &blk, BUFSIZ); - if (blk.length == 0) - break; - } - c = blk.ptr[i]; - lastWidth = rWidth; - rWidth += CharWidth(sink, font, fromx + rWidth, c); - - if (c == XawLF) { - idx++; - break; - } - else if ((c == XawSP || c == XawTAB) && rWidth <= width) { - whiteSpaceSeen = True; - whiteSpacePosition = idx; - whiteSpaceWidth = rWidth; - } - } - - if (rWidth > width && idx > fromPos) { - idx--; - rWidth = lastWidth; - if (stopAtWordBreak && whiteSpaceSeen) { - idx = whiteSpacePosition + 1; - rWidth = whiteSpaceWidth; - } - } - - if (idx >= ctx->text.lastPos && c != XawLF) - idx = ctx->text.lastPos + 1; - - *resPos = idx; - *resWidth = rWidth; - *resHeight = font->ascent + font->descent + 1; -#endif -} - -static void -Resolve(Widget w, XawTextPosition pos, int fromx, int width, - XawTextPosition *pos_return) -{ - int resWidth, resHeight; - Widget source = XawTextGetSource(XtParent(w)); - - FindPosition(w, pos, fromx, width, False, pos_return, &resWidth, &resHeight); - if (*pos_return > GETLASTPOS) - *pos_return = GETLASTPOS; -} - -static void -GetGC(AsciiSinkObject sink) -{ - XtGCMask valuemask = (GCFont | GCGraphicsExposures | GCClipXOrigin | - GCForeground | GCBackground); - XGCValues values; - - /* XXX We dont want do share a gc that will change the clip-mask */ - values.clip_x_origin = (long)sink; - values.clip_mask = None; - values.font = sink->ascii_sink.font->fid; - values.graphics_exposures = False; - - values.foreground = sink->text_sink.foreground; - values.background = sink->text_sink.background; - sink->ascii_sink.normgc = XtAllocateGC((Widget)sink, 0, valuemask, &values, - GCClipMask | GCFont | GCForeground | - GCBackground, 0); - - values.foreground = sink->text_sink.background; -#ifndef OLDXAW - values.background = sink->text_sink.cursor_color; -#else - values.background = sink->text_sink.foreground; -#endif - sink->ascii_sink.invgc = XtAllocateGC((Widget)sink, 0, valuemask, &values, - GCClipMask | GCFont, 0); - - valuemask |= GCFunction; - values.function = GXxor; -#ifndef OLDXAW - values.foreground = sink->text_sink.background ^ sink->text_sink.cursor_color; -#else - values.foreground = sink->text_sink.background ^ sink->text_sink.foreground; -#endif - values.background = 0L; - sink->ascii_sink.xorgc = XtAllocateGC((Widget)sink, 0, valuemask, - &values, GCClipMask | GCFont, 0); - - XawAsciiSinkResize((Widget)sink); -} - -/* Function: - * XawAsciiSinkInitialize - * - * Parameters: - * request - the requested and new values for the object instance - * cnew - "" - * - * Description: - * Initializes the TextSink Object. - */ -/*ARGSUSED*/ -static void -XawAsciiSinkInitialize(Widget request, Widget cnew, - ArgList args, Cardinal *num_args) -{ - AsciiSinkObject sink = (AsciiSinkObject)cnew; - - GetGC(sink); - - if (!sink->ascii_sink.font) XtError("Aborting: no font found\n"); - - sink->ascii_sink.cursor_position = 0; - sink->ascii_sink.laststate = XawisOff; - sink->ascii_sink.cursor_x = sink->ascii_sink.cursor_y = 0; -} - -/* - * Function: - * XawAsciiSinkDestroy - * - * Parameters: - * w - AsciiSink Object - * - * Description: - * This function cleans up when the object is destroyed. - */ -static void -XawAsciiSinkDestroy(Widget w) -{ - AsciiSinkObject sink = (AsciiSinkObject)w; - - XtReleaseGC(w, sink->ascii_sink.normgc); - XtReleaseGC(w, sink->ascii_sink.invgc); - XtReleaseGC(w, sink->ascii_sink.xorgc); - - sink->ascii_sink.normgc = - sink->ascii_sink.invgc = - sink->ascii_sink.xorgc = NULL; -} - -static void -XawAsciiSinkResize(Widget w) -{ - TextWidget ctx = (TextWidget)XtParent(w); - AsciiSinkObject sink = (AsciiSinkObject)w; - XRectangle rect; - int width, height; - - if (w->core.widget_class != asciiSinkObjectClass) - return; - - rect.x = ctx->text.r_margin.left; - rect.y = ctx->text.r_margin.top; - width = (int)XtWidth(ctx) - RHMargins(ctx); - height = (int)XtHeight(ctx) - RVMargins(ctx); - rect.width = width; - rect.height = height; - - if (sink->ascii_sink.normgc) { - if (width >= 0 && height >= 0) - XSetClipRectangles(XtDisplay((Widget)ctx), sink->ascii_sink.normgc, - 0, 0, &rect, 1, Unsorted); - else - XSetClipMask(XtDisplay((Widget)ctx), sink->ascii_sink.normgc, None); - } - if (sink->ascii_sink.invgc) { - if (width >= 0 && height >= 0) - XSetClipRectangles(XtDisplay((Widget)ctx), sink->ascii_sink.invgc, - 0, 0, &rect, 1, Unsorted); - else - XSetClipMask(XtDisplay((Widget)ctx), sink->ascii_sink.invgc, None); - } - if (sink->ascii_sink.xorgc) { - if (width >= 0 && height >= 0) - XSetClipRectangles(XtDisplay((Widget)ctx), sink->ascii_sink.xorgc, - 0, 0, &rect, 1, Unsorted); - else - XSetClipMask(XtDisplay((Widget)ctx), sink->ascii_sink.xorgc, None); - } -} - -/* - * Function: - * XawAsciiSinkSetValues - * - * Parameters: - * current - current state of the object - * request - what was requested - * cnew - what the object will become - * - * Description: - * Sets the values for the AsciiSink. - * - * Returns: - * True if redisplay is needed - */ -/*ARGSUSED*/ -static Boolean -XawAsciiSinkSetValues(Widget current, Widget request, Widget cnew, - ArgList args, Cardinal *num_args) -{ - AsciiSinkObject w = (AsciiSinkObject)cnew; - AsciiSinkObject old_w = (AsciiSinkObject)current; - - if (w->ascii_sink.font != old_w->ascii_sink.font - || w->text_sink.background != old_w->text_sink.background - || w->text_sink.foreground != old_w->text_sink.foreground -#ifndef OLDXAW - || w->text_sink.cursor_color != old_w->text_sink.cursor_color - || w->text_sink.properties != old_w->text_sink.properties -#endif - ) { -#ifdef OLDXAW - XtReleaseGC(cnew, w->ascii_sink.normgc); - XtReleaseGC(cnew, w->ascii_sink.invgc); - XtReleaseGC(cnew, w->ascii_sink.xorgc); - GetGC(w); -#endif - ((TextWidget)XtParent(cnew))->text.redisplay_needed = True; - } - else if (w->ascii_sink.echo != old_w->ascii_sink.echo - || w->ascii_sink.display_nonprinting - != old_w->ascii_sink.display_nonprinting) - ((TextWidget)XtParent(cnew))->text.redisplay_needed = True; -#ifndef OLDXAW - if (w->text_sink.properties != old_w->text_sink.properties) { - XawTextProperty *property = - XawTextSinkGetProperty(cnew, XrmStringToQuark("default")); - - if (property) { - if (property->mask & XAW_TPROP_FONT) - w->ascii_sink.font = property->font; - if (property->mask & XAW_TPROP_FOREGROUND) - w->text_sink.foreground = property->foreground; - if (property->mask & XAW_TPROP_BACKGROUND) - w->text_sink.background = property->background; - } - } -#endif - - return (False); -} - -/* - * Function: - * MaxLines - * - * Parameters: - * w - AsciiSink Object - * height - height to fit lines into - * - * Description: - * Finds the Maximum number of lines that will fit in a given height. - * - * Returns: - * The number of lines that will fit - */ -/*ARGSUSED*/ -static int -MaxLines(Widget w, unsigned int height) -{ - AsciiSinkObject sink = (AsciiSinkObject)w; - int font_height; - - font_height = sink->ascii_sink.font->ascent + sink->ascii_sink.font->descent + 1; - - return ((int)height / font_height); -} - -/* - * Function: - * MaxHeight - * - * Parameters: - * w - AsciiSink Object - * lines - number of lines - * - * Description: - * Finds the Minium height that will contain a given number lines. - * - * Returns: - * the height - */ -static int -MaxHeight(Widget w, int lines) -{ - AsciiSinkObject sink = (AsciiSinkObject)w; - - return (lines * (sink->ascii_sink.font->ascent + - sink->ascii_sink.font->descent + 1)); -} - -/* - * Function: - * SetTabs - * - * Parameters: - * w - AsciiSink Object - * tab_count - number of tabs in the list - * tabs - text positions of the tabs - * - * Description: - * Sets the Tab stops. - */ -static void -SetTabs(Widget w, int tab_count, short *tabs) -{ - AsciiSinkObject sink = (AsciiSinkObject)w; - int i; - Atom XA_FIGURE_WIDTH; - unsigned long figure_width = 0; - XFontStruct *font = sink->ascii_sink.font; - - /* - * Find the figure width of the current font - */ - XA_FIGURE_WIDTH = XInternAtom(XtDisplayOfObject(w), "FIGURE_WIDTH", False); - if (XA_FIGURE_WIDTH != None - && (!XGetFontProperty(font, XA_FIGURE_WIDTH, &figure_width) - || figure_width == 0)) { - if (font->per_char && font->min_char_or_byte2 <= '$' - && font->max_char_or_byte2 >= '$') - figure_width = font->per_char['$' - font->min_char_or_byte2].width; - else - figure_width = font->max_bounds.width; - } - - if (tab_count > sink->text_sink.tab_count) { - sink->text_sink.tabs = (Position *) - XtRealloc((char*)sink->text_sink.tabs, tab_count * sizeof(Position)); - sink->text_sink.char_tabs = (short *) - XtRealloc((char*)sink->text_sink.char_tabs, tab_count * sizeof(short)); - } - - for (i = 0 ; i < tab_count ; i++) { - sink->text_sink.tabs[i] = tabs[i] * figure_width; - sink->text_sink.char_tabs[i] = tabs[i]; - } - - sink->text_sink.tab_count = tab_count; - -#ifndef NO_TAB_FIX - { - TextWidget ctx = (TextWidget)XtParent(w); - ctx->text.redisplay_needed = True; - _XawTextBuildLineTable(ctx, ctx->text.lt.top, True); - } -#endif -} +/***********************************************************
+
+Copyright 1987, 1988, 1994, 1998 The Open Group
+
+Permission to use, copy, modify, distribute, and sell this software and its
+documentation for any purpose is hereby granted without fee, provided that
+the above copyright notice appear in all copies and that both that
+copyright notice and this permission notice appear in supporting
+documentation.
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+Except as contained in this notice, the name of The Open Group shall not be
+used in advertising or otherwise to promote the sale, use or other dealings
+in this Software without prior written authorization from The Open Group.
+
+
+Copyright 1987, 1988 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 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.
+
+******************************************************************/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include <stdio.h>
+#include <stdlib.h>
+#include <X11/IntrinsicP.h>
+#include <X11/StringDefs.h>
+#include <X11/Xatom.h>
+#include <X11/Xaw/XawInit.h>
+#include <X11/Xaw/AsciiSinkP.h>
+#include <X11/Xaw/AsciiSrcP.h>
+#include <X11/Xaw/TextP.h>
+#include "Private.h"
+
+#ifdef GETLASTPOS
+#undef GETLASTPOS /* We will use our own GETLASTPOS */
+#endif
+
+#define GETLASTPOS \
+ XawTextSourceScan(source, 0, XawstAll, XawsdRight, 1, True)
+
+/*
+ * Class Methods
+ */
+static void XawAsciiSinkClassPartInitialize(WidgetClass);
+static void XawAsciiSinkInitialize(Widget, Widget, ArgList, Cardinal*);
+static void XawAsciiSinkDestroy(Widget);
+static void XawAsciiSinkResize(Widget);
+static Boolean XawAsciiSinkSetValues(Widget, Widget, Widget,
+ ArgList, Cardinal*);
+static int MaxLines(Widget, unsigned int);
+static int MaxHeight(Widget, int);
+static void SetTabs(Widget, int, short*);
+static void DisplayText(Widget, int, int,
+ XawTextPosition, XawTextPosition, Bool);
+static void InsertCursor(Widget, int, int, XawTextInsertState);
+static void FindPosition(Widget, XawTextPosition, int, int, Bool,
+ XawTextPosition*, int*, int*);
+static void FindDistance(Widget, XawTextPosition, int, XawTextPosition, int*,
+ XawTextPosition*, int*);
+static void Resolve(Widget, XawTextPosition, int, int, XawTextPosition*);
+static void GetCursorBounds(Widget, XRectangle*);
+#ifndef OLDXAW
+static void AsciiPreparePaint(Widget, int, int,
+ XawTextPosition, XawTextPosition, Bool);
+static void AsciiDoPaint(Widget);
+#endif
+
+/*
+ * Prototypes
+ */
+static void GetGC(AsciiSinkObject);
+static int CharWidth(AsciiSinkObject, XFontStruct*, int, unsigned int);
+static unsigned int PaintText(Widget w, GC gc, int x, int y,
+ char *buf, int len, Bool);
+
+/*
+ * Defined in TextSink.c
+ */
+void _XawTextSinkClearToBackground(Widget, int, int, unsigned, unsigned);
+
+/*
+ * Initialization
+ */
+#define offset(field) XtOffsetOf(AsciiSinkRec, ascii_sink.field)
+static XtResource resources[] = {
+ {
+ XtNfont,
+ XtCFont,
+ XtRFontStruct,
+ sizeof(XFontStruct*),
+ offset(font),
+ XtRString,
+ XtDefaultFont
+ },
+ {
+ XtNecho,
+ XtCOutput,
+ XtRBoolean,
+ sizeof(Boolean),
+ offset(echo),
+ XtRImmediate,
+ (XtPointer)True
+ },
+ {
+ XtNdisplayNonprinting,
+ XtCOutput,
+ XtRBoolean,
+ sizeof(Boolean),
+ offset(display_nonprinting),
+ XtRImmediate,
+ (XtPointer)
+ True
+ },
+};
+#undef offset
+
+#define Superclass (&textSinkClassRec)
+AsciiSinkClassRec asciiSinkClassRec = {
+ /* object */
+ {
+ (WidgetClass)Superclass, /* superclass */
+ "AsciiSink", /* class_name */
+ sizeof(AsciiSinkRec), /* widget_size */
+ XawInitializeWidgetSet, /* class_initialize */
+ XawAsciiSinkClassPartInitialize, /* class_part_initialize */
+ False, /* class_inited */
+ XawAsciiSinkInitialize, /* initialize */
+ NULL, /* initialize_hook */
+ NULL, /* obj1 */
+ NULL, /* obj2 */
+ 0, /* obj3 */
+ resources, /* resources */
+ XtNumber(resources), /* num_resources */
+ NULLQUARK, /* xrm_class */
+ False, /* obj4 */
+ False, /* obj5 */
+ False, /* obj6 */
+ False, /* obj7 */
+ XawAsciiSinkDestroy, /* destroy */
+ (XtProc)XawAsciiSinkResize, /* obj8 */
+ NULL, /* obj9 */
+ XawAsciiSinkSetValues, /* set_values */
+ NULL, /* set_values_hook */
+ NULL, /* obj10 */
+ NULL, /* get_values_hook */
+ NULL, /* obj11 */
+ XtVersion, /* version */
+ NULL, /* callback_private */
+ NULL, /* obj12 */
+ NULL, /* obj13 */
+ NULL, /* obj14 */
+ NULL, /* extension */
+ },
+ /* text_sink */
+ {
+ DisplayText, /* DisplayText */
+ InsertCursor, /* InsertCursor */
+ XtInheritClearToBackground, /* ClearToBackground */
+ FindPosition, /* FindPosition */
+ FindDistance, /* FindDistance */
+ Resolve, /* Resolve */
+ MaxLines, /* MaxLines */
+ MaxHeight, /* MaxHeight */
+ SetTabs, /* SetTabs */
+ GetCursorBounds, /* GetCursorBounds */
+#ifndef OLDXAW
+ NULL /* extension */
+#endif
+ },
+ /* ascii_sink */
+ {
+ NULL, /* extension */
+ }
+};
+
+WidgetClass asciiSinkObjectClass = (WidgetClass)&asciiSinkClassRec;
+
+/*
+ * Implementation
+ */
+static void
+XawAsciiSinkClassPartInitialize(WidgetClass wc)
+{
+#ifndef OLDXAW
+ AsciiSinkObjectClass cclass = (AsciiSinkObjectClass)wc;
+ XrmQuark record_type = XrmPermStringToQuark("TextSink");
+ TextSinkExt ext = cclass->text_sink_class.extension;
+
+ while (ext) {
+ if (ext->record_type == record_type &&
+ ext->version == 1) {
+ ext->PreparePaint = AsciiPreparePaint;
+ ext->DoPaint = AsciiDoPaint;
+ break;
+ }
+ ext = (TextSinkExt)ext->next_extension;
+ }
+ if (ext == NULL)
+ XtError("TextSinkClass: cannot resolve extension.\n");
+#endif
+}
+
+static int
+CharWidth(AsciiSinkObject sink, XFontStruct *font, int x, unsigned int c)
+{
+ int width = 0;
+
+ if (c == XawLF)
+ return (0);
+
+ if (c == XawTAB) {
+ int i;
+ Position *tab;
+
+ width = x;
+ /* Adjust for Left Margin */
+ x -= ((TextWidget)XtParent((Widget)sink))->text.left_margin;
+
+ i = 0;
+ tab = sink->text_sink.tabs;
+ /*CONSTCOND*/
+ while (1) {
+ if (x >= 0 && x < *tab)
+ return (*tab - x);
+ /* Start again */
+ if (++i >= sink->text_sink.tab_count) {
+ x -= *tab;
+ i = 0;
+ tab = sink->text_sink.tabs;
+ if (width == x)
+ return (0);
+ }
+ else
+ ++tab;
+ }
+ /*NOTREACHED*/
+ }
+
+ if ((c & 0177) < XawSP || c == 0177) {
+ if (sink->ascii_sink.display_nonprinting) {
+ if (c > 0177) {
+ width = CharWidth(sink, font, x, '\\');
+ width += CharWidth(sink, font, x, ((c >> 6) & 7) + '0');
+ width += CharWidth(sink, font, x, ((c >> 3) & 7) + '0');
+ c = (c & 7) + '0';
+ }
+ else {
+ width = CharWidth(sink, font, x, '^');
+ if ((c |= 0100) == 0177)
+ c = '?';
+ }
+ }
+ else
+ c = XawSP;
+ }
+
+ if (font->per_char
+ && (c >= font->min_char_or_byte2 && c <= font->max_char_or_byte2))
+ width += font->per_char[c - font->min_char_or_byte2].width;
+ else
+ width += font->min_bounds.width;
+
+ return (width);
+}
+
+#ifndef OLDXAW
+static int
+GetTextWidth(TextWidget ctx, int current_width, XFontStruct *font,
+ XawTextPosition from, int length)
+{
+ int i, width = 0;
+ XawTextBlock block;
+ XawTextPosition pos = from;
+
+ while (length > 0) {
+ pos = XawTextSourceRead(ctx->text.source, from, &block, length);
+ length -= pos - from;
+ from = pos;
+ for (i = 0; i < block.length; i++)
+ width += CharWidth((AsciiSinkObject)ctx->text.sink, font,
+ current_width + width,
+ (unsigned char)block.ptr[i]);
+ }
+
+ return (width);
+}
+
+static
+void CalculateBearing(TextWidget ctx, XawTextPosition position, int x, int y,
+ int ascent, int descent, Bool highlight, Bool right)
+{
+/*
+ * Sample case:
+ *
+ * lbearing| width |rbearing
+ * | |
+ * | ####
+ * | ### |
+ * | #### |
+ * | #### |
+ * | ########## |
+ * | #### |
+ * | #### |
+ * | #### |
+ * | #### |
+ * |### |
+ * #### |
+ * | |
+ *
+ */
+ AsciiSinkObject sink = (AsciiSinkObject)ctx->text.sink;
+ XawTextAnchor *anchor;
+ XawTextEntity *entity;
+ XawTextProperty *property;
+ XawTextPaintStruct *paint;
+ XawTextBlock block;
+ XFontStruct *font;
+
+ property = NULL;
+ if (XawTextSourceAnchorAndEntity(ctx->text.source, position,
+ &anchor, &entity) &&
+ (property = XawTextSinkGetProperty((Widget)sink,
+ entity->property)) != NULL &&
+ (property->mask & XAW_TPROP_FONT))
+ font = property->font;
+ else
+ font = sink->ascii_sink.font;
+ if (right) {
+ if (font->max_bounds.rbearing > 0) {
+ int rbearing = font->max_bounds.rbearing - font->max_bounds.width;
+ unsigned char c;
+
+ (void)XawTextSourceRead(ctx->text.source, position, &block, 1);
+ c = *(unsigned char*)block.ptr;
+ if (c == '\t' || c == '\n')
+ c = ' ';
+ else if ((c & 0177) < XawSP || c == 0177) {
+ if (sink->ascii_sink.display_nonprinting)
+ c = c > 0177 ? (c & 7) + '0' : c + '@';
+ else
+ c = ' ';
+ }
+ if (font->per_char &&
+ (c >= font->min_char_or_byte2 && c <= font->max_char_or_byte2))
+ rbearing = font->per_char[c - font->min_char_or_byte2].rbearing -
+ font->per_char[c - font->min_char_or_byte2].width;
+ if (rbearing > 0) {
+ paint = XtNew(XawTextPaintStruct);
+ paint->next = sink->text_sink.paint->bearings;
+ sink->text_sink.paint->bearings = paint;
+ paint->x = x - (paint->width = CharWidth(sink, font, 0, c));
+ paint->y = y + ascent;
+ paint->property = property;
+ paint->max_ascent = ascent;
+ paint->max_descent = descent;
+ paint->backtabs = NULL;
+ paint->highlight = highlight;
+ paint->length = 1;
+ paint->text = XtMalloc(1);
+ paint->text[0] = c;
+ }
+ }
+ }
+ else {
+ if (font->min_bounds.lbearing < 0) {
+ int lbearing = font->min_bounds.lbearing;
+ unsigned char c;
+
+ (void)XawTextSourceRead(ctx->text.source, position, &block, 1);
+ c = *(unsigned char*)block.ptr;
+ if (c == '\t' || c == '\n')
+ c = ' ';
+ else if ((c & 0177) < XawSP || c == 0177) {
+ if (sink->ascii_sink.display_nonprinting)
+ c = c > 0177 ? '\\' : c + '^';
+ else
+ c = ' ';
+ }
+ if (font->per_char &&
+ (c >= font->min_char_or_byte2 && c <= font->max_char_or_byte2))
+ lbearing = font->per_char[c - font->min_char_or_byte2].lbearing;
+ if (lbearing < 0) {
+ paint = XtNew(XawTextPaintStruct);
+ paint->next = sink->text_sink.paint->bearings;
+ sink->text_sink.paint->bearings = paint;
+ paint->x = x;
+ paint->width = -CharWidth(sink, font, 0, c);
+ paint->y = y + ascent;
+ paint->property = property;
+ paint->max_ascent = ascent;
+ paint->max_descent = descent;
+ paint->backtabs = NULL;
+ paint->highlight = highlight;
+ paint->length = 1;
+ paint->text = XtMalloc(1);
+ paint->text[0] = c;
+ }
+ }
+ }
+}
+
+static void
+AsciiPreparePaint(Widget w, int y, int line,
+ XawTextPosition from, XawTextPosition to, Bool highlight)
+{
+ static XmuSegment segment;
+ static XmuScanline next;
+ static XmuScanline scanline = {0, &segment, &next};
+ static XmuArea area = {&scanline};
+
+ TextWidget ctx = (TextWidget)XtParent(w);
+ AsciiSinkObject sink = (AsciiSinkObject)ctx->text.sink;
+ XawTextPosition left, right, pos, pos2, tmp, length;
+ XawTextAnchor *anchor;
+ XawTextEntity *entity;
+ XawTextProperty *property;
+ int i, ascent = 0, descent = 0, xl, xr, x = ctx->text.left_margin, bufsiz;
+ XawTextBlock block;
+ XFontStruct *font;
+ XawTextPaintStruct *paint;
+
+ if (!sink->ascii_sink.echo)
+ return;
+
+ /* pass 1: calculate ascent/descent values and x coordinate */
+ /* XXX the MAX ascent/descent value should be in the line table XXX */
+ /* XXX the x coordinate can be a parameter, but since it is required
+ to calculate the ascent/descent, do it here to avoid an extra
+ search in the entities */
+ pos = tmp = left = ctx->text.lt.info[line].position;
+ right = ctx->text.lt.info[line + 1].position;
+ right = XawMin(right, ctx->text.lastPos + 1);
+ while (pos < right) {
+ if (XawTextSourceAnchorAndEntity(ctx->text.source, pos,
+ &anchor, &entity)) {
+ if ((property = XawTextSinkGetProperty((Widget)sink,
+ entity->property)) != NULL &&
+ (property->mask & XAW_TPROP_FONT))
+ font = property->font;
+ else
+ font = sink->ascii_sink.font;
+ tmp = pos;
+ pos = anchor->position + entity->offset + entity->length;
+ if ((length = XawMin(from, pos) - tmp) > 0)
+ x += GetTextWidth(ctx, x, font, tmp, length);
+ ascent = XawMax(font->ascent, ascent);
+ descent = XawMax(font->descent, descent);
+ }
+ else if (anchor) {
+ ascent = XawMax(sink->ascii_sink.font->ascent, ascent);
+ descent = XawMax(sink->ascii_sink.font->descent, descent);
+ while (entity && pos < right) {
+ tmp = pos;
+ if ((pos = anchor->position + entity->offset) < tmp)
+ pos = tmp;
+ else {
+ if ((length = XawMin(from, pos) - tmp) > 0) {
+ x += GetTextWidth(ctx, x, sink->ascii_sink.font, tmp,
+ length);
+ tmp += length;
+ }
+ if (pos < right) {
+ pos += entity->length;
+ if ((property = XawTextSinkGetProperty((Widget)sink,
+ entity->property)) != NULL &&
+ (property->mask & XAW_TPROP_FONT))
+ font = property->font;
+ else
+ font = sink->ascii_sink.font;
+ if ((length = XawMin(from, pos) - tmp) > 0)
+ x += GetTextWidth(ctx, x, font, tmp, length);
+ ascent = XawMax(font->ascent, ascent);
+ descent = XawMax(font->descent, descent);
+ }
+ }
+ entity = entity->next;
+ }
+
+ if (anchor->entities == NULL) {
+ tmp = XawMin(pos, from);
+ if ((length = from - tmp) > 0)
+ x += GetTextWidth(ctx, x, sink->ascii_sink.font, tmp, length);
+ break;
+ }
+ }
+ else {
+ tmp = XawMin(pos, from);
+ if ((length = from - tmp) > 0)
+ x += GetTextWidth(ctx, x, sink->ascii_sink.font, tmp, length);
+ ascent = XawMax(sink->ascii_sink.font->ascent, ascent);
+ descent = XawMax(sink->ascii_sink.font->descent, descent);
+ break;
+ }
+ }
+ if (!ascent)
+ ascent = sink->ascii_sink.font->ascent;
+ if (!descent)
+ descent = sink->ascii_sink.font->descent;
+
+ xl = x;
+
+ /* pass 2: feed the XawTextPaintStruct lists */
+ pos = from;
+ while (pos < to) {
+ paint = XtNew(XawTextPaintStruct);
+ paint->next = sink->text_sink.paint->paint;
+ sink->text_sink.paint->paint = paint;
+ paint->x = x;
+ paint->y = y + ascent;
+ paint->property = NULL;
+ paint->max_ascent = ascent;
+ paint->max_descent = descent;
+ paint->backtabs = NULL;
+ paint->highlight = highlight;
+
+ tmp = pos;
+ if (XawTextSourceAnchorAndEntity(ctx->text.source, pos,
+ &anchor, &entity)) {
+ pos = anchor->position + entity->offset + entity->length;
+ if ((paint->property = XawTextSinkGetProperty((Widget)sink,
+ entity->property)) != NULL &&
+ (paint->property->mask & XAW_TPROP_FONT))
+ font = paint->property->font;
+ else
+ font = sink->ascii_sink.font;
+ }
+ else {
+ if (anchor) {
+ while (entity && anchor->position + entity->offset < pos)
+ entity = entity->next;
+ if (entity)
+ pos = anchor->position + entity->offset;
+ else
+ pos = to;
+ }
+ else
+ pos = to;
+ font = sink->ascii_sink.font;
+ }
+ pos = XawMin(pos, to);
+ length = pos - tmp;
+
+ paint->text = XtMalloc(bufsiz = pos - tmp + 4);
+ paint->length = 0;
+ segment.x1 = x;
+
+ pos2 = tmp;
+ while (length > 0) {
+ pos2 = XawTextSourceRead(ctx->text.source, tmp, &block, length);
+ length = pos - pos2;
+ tmp = pos2;
+ for (i = 0; i < block.length; i++) {
+ unsigned char c = (unsigned char)block.ptr[i];
+
+ if (paint->length + 4 > bufsiz)
+ paint->text = XtRealloc(paint->text, bufsiz += 32);
+ paint->text[paint->length] = c;
+ if (c == '\n') {
+ x += CharWidth(sink, font, 0, ' ');
+ continue;
+ }
+ if (c == '\t') {
+ x += XTextWidth(font, paint->text, paint->length);
+ segment.x2 = x + CharWidth(sink, font, x, '\t');
+
+ if (XmuValidSegment(&segment)) {
+ if (!highlight && (paint->property &&
+ (paint->property->mask & XAW_TPROP_BACKGROUND))) {
+ if (ascent > font->ascent) {
+ scanline.y = y;
+ next.y = y + ascent - font->ascent;
+ XmuAreaOr(sink->text_sink.paint->clip, &area);
+ }
+ if (descent >= font->descent) {
+ scanline.y = y + ascent + font->descent;
+ next.y = scanline.y + descent - font->descent + 1;
+ XmuAreaOr(sink->text_sink.paint->clip, &area);
+ }
+ if (paint->backtabs == NULL)
+ paint->backtabs = XmuCreateArea();
+ scanline.y = y + ascent - font->ascent;
+ next.y = y + ascent + font->descent;
+ XmuAreaOr(paint->backtabs, &area);
+ }
+ else {
+ scanline.y = y;
+ next.y = ctx->text.lt.info[line + 1].y;
+ if (highlight) {
+ if (!sink->text_sink.paint->hightabs)
+ sink->text_sink.paint->hightabs =
+ XmuCreateArea();
+ XmuAreaOr(sink->text_sink.paint->hightabs, &area);
+ }
+ else
+ XmuAreaOr(sink->text_sink.paint->clip, &area);
+ }
+ }
+
+ paint->width = segment.x2 - segment.x1;
+ x = segment.x1 = segment.x2;
+
+ if (paint->length == 0) {
+ paint->x = x;
+ continue;
+ }
+ paint->text = XtRealloc(paint->text, paint->length);
+ property = paint->property;
+ paint = XtNew(XawTextPaintStruct);
+ paint->next = sink->text_sink.paint->paint;
+ sink->text_sink.paint->paint = paint;
+ paint->x = x;
+ paint->y = y + ascent;
+ paint->property = property;
+ paint->max_ascent = ascent;
+ paint->max_descent = descent;
+ paint->backtabs = NULL;
+ paint->highlight = highlight;
+ paint->text = XtMalloc(bufsiz = pos - tmp - length +
+ block.length - i + 4);
+ paint->length = 0;
+ continue;
+ }
+ if ((c & 0177) < XawSP || c == 0177) {
+ if (sink->ascii_sink.display_nonprinting) {
+ if (c > 0177) {
+ paint->text[paint->length++] = '\\';
+ paint->text[paint->length++] = ((c >> 6) & 7) + '0';
+ paint->text[paint->length++] = ((c >> 3) & 7) + '0';
+ paint->text[paint->length] = (c & 7) + '0';
+ }
+ else {
+ c |= 0100;
+ paint->text[paint->length++] = '^';
+ paint->text[paint->length] = c == 0177 ? '?' : c;
+ }
+ }
+ else
+ paint->text[paint->length] = ' ';
+ }
+ paint->length++;
+ }
+ }
+
+ x += XTextWidth(font, paint->text, paint->length);
+ segment.x2 = x;
+ if (XmuValidSegment(&segment)) {
+ /* erase only what really is needed */
+ /*if (!highlight || (paint->property &&
+ (paint->property->mask & XAW_TPROP_BACKGROUND))) {
+ if (ascent > font->ascent) {
+ scanline.y = y;
+ next.y = y + ascent - font->ascent;
+ XmuAreaOr(sink->text_sink.paint->clip, &area);
+ }
+ if (descent > font->descent) {
+ scanline.y = y + ascent + font->descent;
+ next.y = scanline.y + descent - font->descent;
+ XmuAreaOr(sink->text_sink.paint->clip, &area);
+ }
+ }
+ else*/ {
+ scanline.y = y;
+ next.y = ctx->text.lt.info[line + 1].y;
+ XmuAreaOr(sink->text_sink.paint->clip, &area);
+ }
+ }
+
+ paint->width = x - segment.x1;
+ }
+
+ xr = x;
+
+ /* pass 3: bearing clipping */
+ if (left < from) {
+ CalculateBearing(ctx, from - 1, xl, y, ascent, descent, highlight, True);
+ if (ctx->text.s.left < ctx->text.s.right) {
+ if (ctx->text.s.right == from)
+ CalculateBearing(ctx, from, xl, y, ascent, descent, True, False);
+ else if (ctx->text.s.left == from)
+ CalculateBearing(ctx, from, xl, y, ascent, descent, False, False);
+ }
+ }
+ right = XawMin(right, ctx->text.lastPos);
+ if (right >= to && to > from) {
+ if (to < right)
+ CalculateBearing(ctx, to, xr, y, ascent, descent, highlight, False);
+ if (ctx->text.s.left < ctx->text.s.right) {
+ if (ctx->text.s.right == to)
+ CalculateBearing(ctx, to - 1, xr, y, ascent, descent, False, True);
+ else if (ctx->text.s.left == to)
+ CalculateBearing(ctx, to - 1, xr, y, ascent, descent, True, True);
+ }
+ }
+}
+
+static int
+qcmp_paint_struct(_Xconst void *left, _Xconst void *right)
+{
+ return ((*(XawTextPaintStruct**)left)->property -
+ (*(XawTextPaintStruct**)right)->property);
+}
+
+static void
+AsciiDoPaint(Widget w)
+{
+ TextWidget ctx = (TextWidget)XtParent(w);
+ AsciiSinkObject sink = (AsciiSinkObject)ctx->text.sink;
+ XmuScanline *scan;
+ XmuSegment *seg;
+ XawTextPaintList *list = sink->text_sink.paint;
+#if 0
+ XawTextPaintStruct *base, *head;
+#endif
+ XawTextPaintStruct *paint = list->paint;
+ XawTextProperty *property;
+ XFontStruct *font = NULL;
+ XRectangle *rects;
+ int n_rects, i_rects;
+ GC gc;
+ Bool highlight;
+ XRectangle rect;
+ int width, height, line_width = -1;
+ XGCValues values;
+
+ /* pass 1: clear clipping areas */
+ /* XXX Don't use XDrawImageString because the font may be italic, and
+ will get incorrectly drawn. Probably, it could be a good idea to
+ check if this is the case, and do special processing. But this
+ will need to be checked if required. */
+ for (scan = list->clip->scanline; scan && scan->next; scan = scan->next)
+ for (seg = scan->segment; seg; seg = seg->next)
+ _XawTextSinkClearToBackground(ctx->text.sink,
+ seg->x1, scan->y,
+ seg->x2 - seg->x1,
+ scan->next->y - scan->y);
+
+ /* pass 2: optimize drawing list to avoid too much GC change requests */
+ /* XXX this assumes there will not exist entities drawn over other
+ entities. */
+#if 0
+ while (paint) {
+ base = paint;
+ head = paint->next;
+ while (head) {
+ if (head->property == paint->property) {
+ base->next = head->next;
+ head->next = paint->next;
+ paint->next = head;
+ paint = head;
+ }
+ base = head;
+ head = head->next;
+ }
+ paint = paint->next;
+ }
+#endif
+ if (paint && paint->next) {
+ XawTextPaintStruct **paints;
+ int i = 0, n_paints = 0;
+
+ while (paint) {
+ paint = paint->next;
+ ++n_paints;
+ }
+ paints = (XawTextPaintStruct**)
+ XtMalloc(n_paints * sizeof(XawTextPaintStruct));
+ paint = list->paint;
+ while (paint) {
+ paints[i++] = paint;
+ paint = paint->next;
+ }
+ qsort((void*)paints, n_paints, sizeof(XawTextPaintStruct*),
+ qcmp_paint_struct);
+ list->paint = paints[0];
+ for (i = 0; i < n_paints - 1; i++)
+ paints[i]->next = paints[i + 1];
+ paints[i]->next = NULL;
+ XtFree((XtPointer)paints);
+ }
+
+ /* pass 3: clip gc */
+ gc = sink->ascii_sink.normgc;
+
+ rect.x = ctx->text.r_margin.left;
+ rect.y = ctx->text.r_margin.top;
+ width = (int)XtWidth(ctx) - RHMargins(ctx);
+ height = (int)XtHeight(ctx) - RVMargins(ctx);
+ rect.width = width;
+ rect.height = height;
+ if (width >= 0 && height >= 0)
+ XSetClipRectangles(XtDisplay((Widget)ctx), gc,
+ 0, 0, &rect, 1, Unsorted);
+ else
+ XSetClipMask(XtDisplay((Widget)ctx), gc, None);
+
+ /* pass 4: draw backgrounds */
+ paint = list->paint;
+ property = NULL;
+ rects = NULL;
+ i_rects = n_rects = 0;
+ while (paint) {
+ if (paint->property && (paint->property->mask & XAW_TPROP_BACKGROUND)) {
+ if (property != paint->property) {
+ if (i_rects)
+ XFillRectangles(XtDisplay(ctx), XtWindow(ctx), gc,
+ rects, i_rects);
+ i_rects = 0;
+ property = paint->property;
+ if (property->mask & XAW_TPROP_FONT)
+ font = property->font;
+ else
+ font = sink->ascii_sink.font;
+ XSetForeground(XtDisplay(ctx), gc, property->background);
+ }
+ if (i_rects <= n_rects)
+ rects = (XRectangle*)
+ XtRealloc((XtPointer)rects, sizeof(XRectangle) *
+ ++n_rects);
+ rects[i_rects].x = paint->x;
+ rects[i_rects].y = paint->y - font->ascent;
+ rects[i_rects].width = paint->width;
+ rects[i_rects++].height = font->ascent + font->descent;
+
+ if (paint->backtabs) {
+ for (scan = paint->backtabs->scanline; scan && scan->next;
+ scan = scan->next)
+ for (seg = scan->segment; seg; seg = seg->next) {
+ if (i_rects <= n_rects)
+ rects = (XRectangle*)
+ XtRealloc((XtPointer)rects, sizeof(XRectangle) *
+ ++n_rects);
+ rects[i_rects].x = seg->x1;
+ rects[i_rects].y = scan->y;
+ rects[i_rects].width = seg->x2 - seg->x1;
+ rects[i_rects++].height = scan->next->y - scan->y;
+ }
+ }
+
+
+ }
+ paint = paint->next;
+ }
+ if (i_rects)
+ XFillRectangles(XtDisplay(ctx), XtWindow(ctx), gc, rects, i_rects);
+
+ paint = list->paint;
+ i_rects = 0;
+ while (paint) {
+ if (paint->highlight) {
+ if (i_rects == 0)
+ XSetForeground(XtDisplay(ctx), gc, sink->text_sink.cursor_color);
+ if (i_rects <= n_rects)
+ rects = (XRectangle*)
+ XtRealloc((XtPointer)rects, sizeof(XRectangle) *
+ ++n_rects);
+ rects[i_rects].x = paint->x;
+ rects[i_rects].y = paint->y - paint->max_ascent;
+ rects[i_rects].width = paint->width;
+ rects[i_rects++].height = paint->max_ascent + paint->max_descent + 1;
+ }
+ paint = paint->next;
+ }
+ if (list->hightabs) {
+ for (scan = list->hightabs->scanline; scan && scan->next;
+ scan = scan->next)
+ for (seg = scan->segment; seg; seg = seg->next) {
+ if (i_rects == 0)
+ XSetForeground(XtDisplay(ctx), gc,
+ sink->text_sink.cursor_color);
+ if (i_rects <= n_rects)
+ rects = (XRectangle*)
+ XtRealloc((XtPointer)rects, sizeof(XRectangle) *
+ ++n_rects);
+ rects[i_rects].x = seg->x1;
+ rects[i_rects].y = scan->y;
+ rects[i_rects].width = seg->x2 - seg->x1;
+ rects[i_rects++].height = scan->next->y - scan->y;
+ }
+ }
+
+ if (i_rects)
+ XFillRectangles(XtDisplay(ctx), XtWindow(ctx), gc, rects, i_rects);
+ if (rects)
+ XtFree((XtPointer)rects);
+
+ /* pass 5: draw text! */
+ paint = list->paint;
+ if (paint && (property = paint->property) == NULL) {
+ font = sink->ascii_sink.font;
+ XSetFont(XtDisplay(ctx), gc, font->fid);
+ if (!paint->highlight)
+ XSetForeground(XtDisplay(ctx), gc, sink->text_sink.foreground);
+ }
+ else
+ property = NULL;
+ highlight = False;
+ while (paint) {
+ if (!highlight && paint->highlight)
+ XSetForeground(XtDisplay(ctx), gc, sink->text_sink.background);
+ if (highlight || paint->highlight || paint->property != property) {
+ if (!paint->property || !(paint->property->mask & XAW_TPROP_FONT))
+ font = sink->ascii_sink.font;
+ else
+ font = paint->property->font;
+ XSetFont(XtDisplay(ctx), gc, font->fid);
+ if (!paint->highlight) {
+ if (!paint->property ||
+ !(paint->property->mask & XAW_TPROP_FOREGROUND))
+ XSetForeground(XtDisplay(ctx), gc,
+ sink->text_sink.foreground);
+ else
+ XSetForeground(XtDisplay(ctx), gc,
+ paint->property->foreground);
+ }
+ highlight = paint->highlight;
+ property = paint->property;
+ }
+
+ if (paint->x < XtWidth(ctx) && paint->x + paint->width > 0) {
+ XDrawString(XtDisplay(ctx), XtWindow(ctx), gc, paint->x, paint->y,
+ paint->text, paint->length);
+ if (property) {
+ if (property->mask & XAW_TPROP_UNDERLINE) {
+ if (line_width != property->underline_thickness) {
+ values.line_width = line_width =
+ property->underline_thickness;
+ XChangeGC(XtDisplay(ctx), gc, GCLineWidth, &values);
+ }
+
+ XDrawLine(XtDisplay(ctx), XtWindow(ctx), gc, paint->x,
+ paint->y + property->underline_position,
+ paint->x + paint->width,
+ paint->y + property->underline_position);
+ }
+ if (property->mask & XAW_TPROP_OVERSTRIKE) {
+ if (line_width != property->underline_thickness) {
+ values.line_width = line_width =
+ property->underline_thickness;
+ XChangeGC(XtDisplay(ctx), gc, GCLineWidth, &values);
+ }
+
+ XDrawLine(XtDisplay(ctx), XtWindow(ctx), gc, paint->x,
+ paint->y - (font->ascent>>1) + (font->descent>>1),
+ paint->x + paint->width,
+ paint->y - (font->ascent>>1) + (font->descent>>1));
+ }
+ }
+ }
+
+ paint = paint->next;
+ }
+
+ /* pass 6: bearing clipping */
+ /* dont care on order of drawing or caching of state (by now) */
+ paint = list->bearings;
+ while (paint) {
+ XRectangle rect;
+
+ if (paint->highlight)
+ XSetForeground(XtDisplay(ctx), gc, sink->text_sink.background);
+ if (!paint->property || !(paint->property->mask & XAW_TPROP_FONT))
+ font = sink->ascii_sink.font;
+ else
+ font = paint->property->font;
+ XSetFont(XtDisplay(ctx), gc, font->fid);
+ if (!paint->highlight) {
+ if (!paint->property ||
+ !(paint->property->mask & XAW_TPROP_FOREGROUND))
+ XSetForeground(XtDisplay(ctx), gc, sink->text_sink.foreground);
+ else
+ XSetForeground(XtDisplay(ctx), gc, paint->property->foreground);
+ }
+ if (paint->x < XtWidth(ctx) && paint->x + paint->width > 0) {
+ rect.x = paint->x + paint->width;
+ rect.width = XawAbs(paint->width); /* more than enough */
+ rect.y = paint->y - font->ascent;
+ rect.height = rect.y + font->ascent + font->descent;
+ XSetClipRectangles(XtDisplay((Widget)ctx), gc,
+ 0, 0, &rect, 1, Unsorted);
+ XDrawString(XtDisplay(ctx), XtWindow(ctx), gc, paint->x, paint->y,
+ paint->text, paint->length);
+ }
+ paint = paint->next;
+ }
+}
+#endif
+
+/*
+ * Function:
+ * PaintText
+ *
+ * Parameters:
+ * w - text sink object
+ * gc - gc to paint text with
+ * x - location to paint the text
+ * y - ""
+ * buf - buffer and length of text to paint.
+ * len - ""
+ * clear_bg - clear background before drawing ?
+ *
+ * Description:
+ * Actually paints the text into the window.
+ *
+ * Returns:
+ * the width of the text painted
+ */
+static unsigned int
+PaintText(Widget w, GC gc, int x, int y, char *buf, int len, Bool clear_bg)
+{
+ AsciiSinkObject sink = (AsciiSinkObject)w;
+ TextWidget ctx = (TextWidget)XtParent(w);
+ int width = XTextWidth(sink->ascii_sink.font, buf, len);
+
+ if ((x > XtWidth(ctx)) || width <= -x) /* Don't draw if we can't see it */
+ return (width);
+
+ if (clear_bg) {
+ _XawTextSinkClearToBackground(w, x, y - sink->ascii_sink.font->ascent,
+ width, sink->ascii_sink.font->ascent
+ + sink->ascii_sink.font->descent);
+ XDrawString(XtDisplay(ctx), XtWindow(ctx), gc, x, y, buf, len);
+ }
+ else
+ XDrawImageString(XtDisplay(ctx), XtWindow(ctx), gc, x, y, buf, len);
+
+ return (width);
+}
+
+static void
+DisplayText(Widget w, int x, int y,
+ XawTextPosition pos1, XawTextPosition pos2, Bool highlight)
+{
+ TextWidget ctx = (TextWidget)XtParent(w);
+ AsciiSinkObject sink = (AsciiSinkObject)w;
+ XFontStruct *font = sink->ascii_sink.font;
+ Widget source = XawTextGetSource(XtParent(w));
+ unsigned char buf[260];
+ int j, k;
+ XawTextBlock blk;
+ GC gc, invgc, tabgc;
+ int max_x;
+ Bool clear_bg;
+
+ if (!sink->ascii_sink.echo || !ctx->text.lt.lines)
+ return;
+
+ max_x = (int)XtWidth(ctx) - ctx->text.r_margin.right;
+ clear_bg = !highlight && ctx->core.background_pixmap != XtUnspecifiedPixmap;
+
+ gc = highlight ? sink->ascii_sink.invgc : sink->ascii_sink.normgc;
+ invgc = highlight ? sink->ascii_sink.normgc : sink->ascii_sink.invgc;
+
+ if (highlight && sink->ascii_sink.xorgc)
+ tabgc = sink->ascii_sink.xorgc;
+ else
+ tabgc = invgc;
+
+ y += sink->ascii_sink.font->ascent;
+ for (j = 0; pos1 < pos2;) {
+ pos1 = XawTextSourceRead(source, pos1, &blk, pos2 - pos1);
+ for (k = 0; k < blk.length; k++) {
+ if (j >= sizeof(buf) - 4) { /* buffer full, dump the text */
+ if ((x += PaintText(w, gc, x, y, (char*)buf, j, clear_bg))
+ >= max_x)
+ return;
+ j = 0;
+ }
+ buf[j] = blk.ptr[k];
+ if (buf[j] == XawLF) /* line feeds ('\n') are not printed */
+ continue;
+
+ else if (buf[j] == '\t') {
+ int width;
+
+ if (j != 0
+ && (x += PaintText(w, gc, x, y, (char*)buf, j, clear_bg))
+ >= max_x)
+ return;
+
+ if ((width = CharWidth(sink, font, x, '\t')) > -x) {
+ if (clear_bg)
+ _XawTextSinkClearToBackground(w, x, y-font->ascent, width,
+ font->ascent+font->descent);
+ else
+ XFillRectangle(XtDisplayOfObject(w), XtWindowOfObject(w),
+ tabgc, x, y - font->ascent, width,
+ font->ascent + font->descent);
+ }
+
+ if ((x += width) >= max_x)
+ return;
+
+ j = -1;
+ }
+ else if ((buf[j] & 0177) < XawSP || buf[j] == 0177) {
+ if (sink->ascii_sink.display_nonprinting) {
+ unsigned char c = buf[j];
+
+ if (c > 0177) {
+ buf[j++] = '\\';
+ buf[j++] = ((c >> 6) & 7) + '0';
+ buf[j++] = ((c >> 3) & 7) + '0';
+ buf[j] = (c & 7) + '0';
+ }
+ else {
+ c |= 0100;
+ buf[j++] = '^';
+ buf[j] = c == 0177 ? '?' : c;
+ }
+ }
+ else
+ buf[j] = ' ';
+ }
+ j++;
+ }
+ }
+
+ if (j > 0)
+ (void)PaintText(w, gc, x, y, (char*)buf, j, clear_bg);
+}
+
+/*
+ * Function:
+ * GetCursorBounds
+ *
+ * Parameters:
+ * w - text sink object
+ * rect - X rectangle to return the cursor bounds
+ *
+ * Description:
+ * Returns the size and location of the cursor.
+ */
+static void
+GetCursorBounds(Widget w, XRectangle *rect)
+{
+ AsciiSinkObject sink = (AsciiSinkObject)w;
+ XFontStruct *font = sink->ascii_sink.font;
+ unsigned char ch;
+#ifndef OLDXAW
+ TextWidget ctx = (TextWidget)XtParent(w);
+ XawTextBlock block;
+ XawTextAnchor *anchor;
+ XawTextEntity *entity;
+ XawTextProperty *property;
+
+ if (XawTextSourceAnchorAndEntity(XawTextGetSource(XtParent(w)),
+ sink->ascii_sink.cursor_position,
+ &anchor, &entity)) {
+ if ((property = XawTextSinkGetProperty((Widget)sink,
+ entity->property)) != NULL &&
+ (property->mask & XAW_TPROP_FONT))
+ font = property->font;
+ }
+ (void)XawTextSourceRead(XawTextGetSource((Widget)ctx),
+ ctx->text.insertPos, &block, 1);
+ if (!block.length || block.ptr[0] == '\n' || block.ptr[0] == '\t')
+ ch = ' ';
+ else if ((*((unsigned char*)block.ptr) & 0177) < XawSP ||
+ *(unsigned char*)block.ptr == 0177) {
+ if (sink->ascii_sink.display_nonprinting)
+ ch = *((unsigned char*)block.ptr) > 0177 ? '\\' : '^';
+ else
+ ch = ' ';
+ }
+ else
+ ch = *(unsigned char*)block.ptr;
+#else
+ ch = ' ';
+#endif
+
+ rect->width = CharWidth(sink, font, 0, ch);
+ rect->height = font->descent + font->ascent + 1;
+
+ rect->x = sink->ascii_sink.cursor_x;
+ rect->y = sink->ascii_sink.cursor_y - font->ascent;
+}
+
+/* this function is required to support diferent fonts and correctly place
+ * the cursor. There are better ways to calculate the base line, but there is
+ * no place/code (yet) to store this information.
+ */
+static int
+FindCursorY(TextWidget ctx, XawTextPosition position)
+{
+ int y, line, ascent;
+ AsciiSinkObject sink = (AsciiSinkObject)ctx->text.sink;
+#ifndef OLDXAW
+ XawTextAnchor *anchor;
+ XawTextEntity *entity;
+ XawTextProperty *property;
+ XawTextPosition left, right;
+#endif
+
+ for (line = 0; line < ctx->text.lt.lines; line++)
+ if (position < ctx->text.lt.info[line + 1].position)
+ break;
+
+ y = ctx->text.lt.info[line].y;
+#ifndef OLDXAW
+ ascent = 0;
+ left = ctx->text.lt.info[line].position;
+ right = ctx->text.lt.info[line + 1].position;
+ right = XawMin(right, ctx->text.lastPos + 1);
+ while (left < right) {
+ if (XawTextSourceAnchorAndEntity(ctx->text.source, left,
+ &anchor, &entity)) {
+ if ((property = XawTextSinkGetProperty((Widget)sink,
+ entity->property)) != NULL &&
+ (property->mask & XAW_TPROP_FONT))
+ ascent = XawMax(property->font->ascent, ascent);
+ else
+ ascent = XawMax(sink->ascii_sink.font->ascent, ascent);
+ left = anchor->position + entity->offset + entity->length;
+ }
+ else if (anchor) {
+ ascent = XawMax(sink->ascii_sink.font->ascent, ascent);
+ while (entity) {
+ XawTextPosition tmp = anchor->position + entity->offset + entity->length;
+
+ if (tmp > left && tmp < right) {
+ left = tmp;
+ if ((property = XawTextSinkGetProperty((Widget)sink,
+ entity->property)) != NULL &&
+ (property->mask & XAW_TPROP_FONT))
+ ascent = XawMax(property->font->ascent, ascent);
+ else
+ ascent = XawMax(sink->ascii_sink.font->ascent, ascent);
+ }
+ entity = entity->next;
+ }
+ if (entity == NULL)
+ break;
+ }
+ else {
+ ascent = XawMax(sink->ascii_sink.font->ascent, ascent);
+ break;
+ }
+ }
+ if (!ascent)
+ ascent = sink->ascii_sink.font->ascent;
+#else
+ ascent = sink->ascii_sink.font->ascent;
+#endif
+
+ return (y + ascent);
+}
+
+static void
+InsertCursor(Widget w, int x, int y, XawTextInsertState state)
+{
+ AsciiSinkObject sink = (AsciiSinkObject)w;
+ XFontStruct *font = sink->ascii_sink.font;
+ TextWidget ctx = (TextWidget)XtParent(w);
+ XawTextPosition position = XawTextGetInsertionPoint((Widget)ctx);
+ Boolean overflow = (x & 0xffff8000) != 0;
+#ifndef OLDXAW
+ XawTextAnchor *anchor;
+ XawTextEntity *entity;
+ XawTextProperty *property;
+#endif
+
+ if (XtIsRealized((Widget)ctx)) {
+ int fheight;
+ XawTextBlock block;
+ XawTextPosition selection_start, selection_end;
+ Boolean has_selection;
+
+ if (!sink->ascii_sink.echo) {
+ if (sink->ascii_sink.laststate != state) {
+ int width = CharWidth(sink, font, 0, ' ') - 1;
+
+ x = ctx->text.margin.left;
+ y = ctx->text.margin.top;
+ font = sink->ascii_sink.font;
+ fheight = font->ascent + font->descent;
+ if (state == XawisOn) {
+ if (ctx->text.hasfocus)
+ XFillRectangle(XtDisplay(ctx), XtWindow(ctx),
+ sink->ascii_sink.xorgc, x, y,
+ width + 1, fheight + 1);
+ else
+ XDrawRectangle(XtDisplay(ctx), XtWindow(ctx),
+ sink->ascii_sink.xorgc, x, y,
+ width, fheight);
+
+ }
+ else
+ _XawTextSinkClearToBackground(w, x, y,
+ width + 1, fheight + 1);
+ }
+ sink->ascii_sink.cursor_x = x;
+ sink->ascii_sink.cursor_y = y;
+ sink->ascii_sink.laststate = state;
+ return;
+ }
+
+
+ XawTextGetSelectionPos((Widget)ctx, &selection_start, &selection_end);
+ has_selection = selection_start != selection_end;
+
+ if (sink->ascii_sink.laststate != state) {
+ unsigned char ch;
+
+#ifndef OLDXAW
+ if (XawTextSourceAnchorAndEntity(ctx->text.source,
+ position, &anchor, &entity) &&
+ (property = XawTextSinkGetProperty((Widget)sink,
+ entity->property)) != NULL &&
+ (property->mask & XAW_TPROP_FONT))
+ font = property->font;
+ else
+ font = sink->ascii_sink.font;
+#endif
+
+ fheight = font->ascent + font->descent;
+ (void)XawTextSourceRead(XawTextGetSource((Widget)ctx),
+ position, &block, 1);
+ if (!block.length || block.ptr[0] == '\n' || block.ptr[0] == '\t')
+ ch = ' ';
+ else if ((*((unsigned char*)block.ptr) & 0177) < XawSP
+ || *(unsigned char*)block.ptr == 0177) {
+ if (sink->ascii_sink.display_nonprinting)
+ ch = *((unsigned char*)block.ptr) > 0177 ? '\\' : '^';
+ else
+ ch = ' ';
+ }
+ else
+ ch = *(unsigned char*)block.ptr;
+
+ y = FindCursorY(ctx, position);
+ if (ctx->text.hasfocus && !has_selection)
+ XFillRectangle(XtDisplay(ctx), XtWindow(ctx),
+ sink->ascii_sink.xorgc, x, y - font->ascent,
+ CharWidth(sink, font, 0, ch), fheight + 1);
+ else
+ XDrawRectangle(XtDisplay(ctx), XtWindow(ctx),
+ sink->ascii_sink.xorgc, x, y - font->ascent,
+ CharWidth(sink, font, 0, ch) - 1, fheight);
+ }
+ }
+
+ sink->ascii_sink.cursor_x = overflow ? -16384 : x;
+ sink->ascii_sink.cursor_y = y;
+ sink->ascii_sink.laststate = state;
+ sink->ascii_sink.cursor_position = position;
+}
+
+/*
+ * Given two positions, find the distance between them
+ */
+static void
+FindDistance(Widget w, XawTextPosition fromPos, int fromx,
+ XawTextPosition toPos, int *resWidth,
+ XawTextPosition *resPos, int *resHeight)
+{
+#ifndef OLDXAW
+ AsciiSinkObject sink = (AsciiSinkObject)w;
+ TextWidget ctx = (TextWidget)XtParent(w);
+ XFontStruct *font = sink->ascii_sink.font;
+ Widget source = ctx->text.source;
+ XawTextPosition idx, pos;
+ unsigned char c;
+ XawTextBlock blk;
+ int i, rWidth, ascent = 0, descent = 0;
+ XawTextAnchor *anchor;
+ XawTextEntity *entity;
+ XawTextProperty *property;
+ Cardinal length;
+ Bool done = False;
+
+ pos = idx = fromPos;
+ rWidth = 0;
+ c = 0;
+
+ while (!done) {
+ if (XawTextSourceAnchorAndEntity(source, pos, &anchor, &entity)) {
+ length = anchor->position + entity->offset + entity->length;
+ length = XawMin(toPos, length) - pos;
+ if ((property = XawTextSinkGetProperty((Widget)sink,
+ entity->property)) != NULL &&
+ (property->mask & XAW_TPROP_FONT))
+ font = property->font;
+ else
+ font = sink->ascii_sink.font;
+ }
+ else {
+ if (anchor) {
+ while (entity && anchor->position + entity->offset < pos)
+ entity = entity->next;
+ if (entity) {
+ length = anchor->position + entity->offset;
+ length = XawMin(toPos, length) - pos;
+ }
+ else
+ length = XawMin(toPos - pos, 4096);
+ }
+ else
+ length = XawMin(toPos - pos, 4096);
+ font = sink->ascii_sink.font;
+ }
+
+ ascent = XawMax(font->ascent, ascent);
+ descent = XawMax(font->descent, descent);
+
+ pos = XawTextSourceRead(source, pos, &blk, length);
+ if (blk.length == 0 && pos == idx) /* eof reached */
+ break;
+
+ idx = blk.firstPos;
+ for (i = 0; idx < toPos; i++, idx++) {
+ if (i >= blk.length)
+ break;
+ c = blk.ptr[i];
+ rWidth += CharWidth(sink, font, fromx + rWidth, c);
+ if (c == XawLF) {
+ idx++;
+ done = True;
+ break;
+ }
+ }
+ if (idx >= toPos)
+ break;
+ }
+
+ *resPos = idx;
+ *resWidth = rWidth;
+ *resHeight = ascent + descent + 1;
+#else
+ AsciiSinkObject sink = (AsciiSinkObject)w;
+ TextWidget ctx = (TextWidget)XtParent(w);
+ XFontStruct *font = sink->ascii_sink.font;
+ Widget source = ctx->text.source;
+ XawTextPosition idx, pos;
+ unsigned char c;
+ XawTextBlock blk;
+ int i, rWidth;
+
+ pos = XawTextSourceRead(source, fromPos, &blk, toPos - fromPos);
+ rWidth = 0;
+ for (i = 0, idx = fromPos; idx < toPos; i++, idx++) {
+ if (i >= blk.length) {
+ i = 0;
+ pos = XawTextSourceRead(source, pos, &blk, toPos - pos);
+ if (blk.length == 0)
+ break;
+ }
+ c = blk.ptr[i];
+ rWidth += CharWidth(sink, font, fromx + rWidth, c);
+ if (c == XawLF) {
+ idx++;
+ break;
+ }
+ }
+
+ *resPos = idx;
+ *resWidth = rWidth;
+ *resHeight = font->ascent + font->descent + 1;
+#endif
+}
+
+static void
+FindPosition(Widget w, XawTextPosition fromPos, int fromx, int width,
+ Bool stopAtWordBreak, XawTextPosition *resPos,
+ int *resWidth, int *resHeight)
+{
+#ifndef OLDXAW
+ AsciiSinkObject sink = (AsciiSinkObject)w;
+ TextWidget ctx = (TextWidget)XtParent(w);
+ Widget source = ctx->text.source;
+ XFontStruct *font = sink->ascii_sink.font;
+ XawTextPosition idx, pos, whiteSpacePosition = 0;
+ int i, lastWidth, whiteSpaceWidth, rWidth, ascent = 0, descent = 0;
+ Boolean whiteSpaceSeen;
+ unsigned char c;
+ XawTextBlock blk;
+ XawTextAnchor *anchor;
+ XawTextEntity *entity;
+ XawTextProperty *property;
+ Cardinal length;
+ Bool done = False;
+
+ pos = idx = fromPos;
+ rWidth = lastWidth = whiteSpaceWidth = 0;
+ whiteSpaceSeen = False;
+ c = 0;
+
+ while (!done) {
+ font = sink->ascii_sink.font;
+ if (XawTextSourceAnchorAndEntity(source, pos, &anchor, &entity)) {
+ length = anchor->position + entity->offset + entity->length - pos;
+ if ((property = XawTextSinkGetProperty((Widget)sink,
+ entity->property)) != NULL &&
+ (property->mask & XAW_TPROP_FONT))
+ font = property->font;
+ }
+ else {
+ if (anchor) {
+ while (entity && anchor->position + entity->offset < pos)
+ entity = entity->next;
+ if (entity)
+ length = anchor->position + entity->offset - pos;
+ else
+ length = 4096;
+ }
+ else
+ length = 4096;
+ }
+
+ ascent = XawMax(font->ascent, ascent);
+ descent = XawMax(font->descent, descent);
+
+ pos = XawTextSourceRead(source, pos, &blk, length);
+ if (blk.length == 0 && pos == idx) /* eof reached */
+ break;
+
+ idx = blk.firstPos;
+ for (i = 0; rWidth <= width && i < blk.length; i++, idx++) {
+ c = blk.ptr[i];
+ lastWidth = rWidth;
+ rWidth += CharWidth(sink, font, fromx + rWidth, c);
+
+ if (c == XawLF) {
+ idx++;
+ done = True;
+ break;
+ }
+ else if ((c == XawSP || c == XawTAB) && rWidth <= width) {
+ whiteSpaceSeen = True;
+ whiteSpacePosition = idx;
+ whiteSpaceWidth = rWidth;
+ }
+ }
+ if (rWidth > width)
+ break;
+ }
+
+ if (rWidth > width && idx > fromPos) {
+ idx--;
+ rWidth = lastWidth;
+ if (stopAtWordBreak && whiteSpaceSeen) {
+ idx = whiteSpacePosition + 1;
+ rWidth = whiteSpaceWidth;
+ }
+ }
+
+ if (idx >= ctx->text.lastPos && c != XawLF)
+ idx = ctx->text.lastPos + 1;
+
+ *resPos = idx;
+ *resWidth = rWidth;
+ *resHeight = ascent + descent + 1;
+#else
+ AsciiSinkObject sink = (AsciiSinkObject)w;
+ TextWidget ctx = (TextWidget)XtParent(w);
+ Widget source = ctx->text.source;
+ XFontStruct *font = sink->ascii_sink.font;
+ XawTextPosition idx, pos, whiteSpacePosition = 0;
+ int i, lastWidth, whiteSpaceWidth, rWidth;
+ Boolean whiteSpaceSeen;
+ unsigned char c;
+ XawTextBlock blk;
+
+ pos = XawTextSourceRead(source, fromPos, &blk, BUFSIZ);
+ rWidth = lastWidth = whiteSpaceWidth = 0;
+ whiteSpaceSeen = False;
+ c = 0;
+
+ for (i = 0, idx = fromPos; rWidth <= width; i++, idx++) {
+ if (i >= blk.length) {
+ i = 0;
+ pos = XawTextSourceRead(source, pos, &blk, BUFSIZ);
+ if (blk.length == 0)
+ break;
+ }
+ c = blk.ptr[i];
+ lastWidth = rWidth;
+ rWidth += CharWidth(sink, font, fromx + rWidth, c);
+
+ if (c == XawLF) {
+ idx++;
+ break;
+ }
+ else if ((c == XawSP || c == XawTAB) && rWidth <= width) {
+ whiteSpaceSeen = True;
+ whiteSpacePosition = idx;
+ whiteSpaceWidth = rWidth;
+ }
+ }
+
+ if (rWidth > width && idx > fromPos) {
+ idx--;
+ rWidth = lastWidth;
+ if (stopAtWordBreak && whiteSpaceSeen) {
+ idx = whiteSpacePosition + 1;
+ rWidth = whiteSpaceWidth;
+ }
+ }
+
+ if (idx >= ctx->text.lastPos && c != XawLF)
+ idx = ctx->text.lastPos + 1;
+
+ *resPos = idx;
+ *resWidth = rWidth;
+ *resHeight = font->ascent + font->descent + 1;
+#endif
+}
+
+static void
+Resolve(Widget w, XawTextPosition pos, int fromx, int width,
+ XawTextPosition *pos_return)
+{
+ int resWidth, resHeight;
+ Widget source = XawTextGetSource(XtParent(w));
+
+ FindPosition(w, pos, fromx, width, False, pos_return, &resWidth, &resHeight);
+ if (*pos_return > GETLASTPOS)
+ *pos_return = GETLASTPOS;
+}
+
+static void
+GetGC(AsciiSinkObject sink)
+{
+ XtGCMask valuemask = (GCFont | GCGraphicsExposures | GCClipXOrigin |
+ GCForeground | GCBackground);
+ XGCValues values;
+
+ /* XXX We dont want do share a gc that will change the clip-mask */
+ values.clip_x_origin = (long)sink;
+ values.clip_mask = None;
+ values.font = sink->ascii_sink.font->fid;
+ values.graphics_exposures = False;
+
+ values.foreground = sink->text_sink.foreground;
+ values.background = sink->text_sink.background;
+ sink->ascii_sink.normgc = XtAllocateGC((Widget)sink, 0, valuemask, &values,
+ GCClipMask | GCFont | GCForeground |
+ GCBackground, 0);
+
+ values.foreground = sink->text_sink.background;
+#ifndef OLDXAW
+ values.background = sink->text_sink.cursor_color;
+#else
+ values.background = sink->text_sink.foreground;
+#endif
+ sink->ascii_sink.invgc = XtAllocateGC((Widget)sink, 0, valuemask, &values,
+ GCClipMask | GCFont, 0);
+
+ valuemask |= GCFunction;
+ values.function = GXxor;
+#ifndef OLDXAW
+ values.foreground = sink->text_sink.background ^ sink->text_sink.cursor_color;
+#else
+ values.foreground = sink->text_sink.background ^ sink->text_sink.foreground;
+#endif
+ values.background = 0L;
+ sink->ascii_sink.xorgc = XtAllocateGC((Widget)sink, 0, valuemask,
+ &values, GCClipMask | GCFont, 0);
+
+ XawAsciiSinkResize((Widget)sink);
+}
+
+/* Function:
+ * XawAsciiSinkInitialize
+ *
+ * Parameters:
+ * request - the requested and new values for the object instance
+ * cnew - ""
+ *
+ * Description:
+ * Initializes the TextSink Object.
+ */
+/*ARGSUSED*/
+static void
+XawAsciiSinkInitialize(Widget request, Widget cnew,
+ ArgList args, Cardinal *num_args)
+{
+ AsciiSinkObject sink = (AsciiSinkObject)cnew;
+
+ GetGC(sink);
+
+ if (!sink->ascii_sink.font) XtError("Aborting: no font found\n");
+
+ sink->ascii_sink.cursor_position = 0;
+ sink->ascii_sink.laststate = XawisOff;
+ sink->ascii_sink.cursor_x = sink->ascii_sink.cursor_y = 0;
+}
+
+/*
+ * Function:
+ * XawAsciiSinkDestroy
+ *
+ * Parameters:
+ * w - AsciiSink Object
+ *
+ * Description:
+ * This function cleans up when the object is destroyed.
+ */
+static void
+XawAsciiSinkDestroy(Widget w)
+{
+ AsciiSinkObject sink = (AsciiSinkObject)w;
+
+ XtReleaseGC(w, sink->ascii_sink.normgc);
+ XtReleaseGC(w, sink->ascii_sink.invgc);
+ XtReleaseGC(w, sink->ascii_sink.xorgc);
+
+ sink->ascii_sink.normgc =
+ sink->ascii_sink.invgc =
+ sink->ascii_sink.xorgc = NULL;
+}
+
+static void
+XawAsciiSinkResize(Widget w)
+{
+ TextWidget ctx = (TextWidget)XtParent(w);
+ AsciiSinkObject sink = (AsciiSinkObject)w;
+ XRectangle rect;
+ int width, height;
+
+ if (w->core.widget_class != asciiSinkObjectClass)
+ return;
+
+ rect.x = ctx->text.r_margin.left;
+ rect.y = ctx->text.r_margin.top;
+ width = (int)XtWidth(ctx) - RHMargins(ctx);
+ height = (int)XtHeight(ctx) - RVMargins(ctx);
+ rect.width = width;
+ rect.height = height;
+
+ if (sink->ascii_sink.normgc) {
+ if (width >= 0 && height >= 0)
+ XSetClipRectangles(XtDisplay((Widget)ctx), sink->ascii_sink.normgc,
+ 0, 0, &rect, 1, Unsorted);
+ else
+ XSetClipMask(XtDisplay((Widget)ctx), sink->ascii_sink.normgc, None);
+ }
+ if (sink->ascii_sink.invgc) {
+ if (width >= 0 && height >= 0)
+ XSetClipRectangles(XtDisplay((Widget)ctx), sink->ascii_sink.invgc,
+ 0, 0, &rect, 1, Unsorted);
+ else
+ XSetClipMask(XtDisplay((Widget)ctx), sink->ascii_sink.invgc, None);
+ }
+ if (sink->ascii_sink.xorgc) {
+ if (width >= 0 && height >= 0)
+ XSetClipRectangles(XtDisplay((Widget)ctx), sink->ascii_sink.xorgc,
+ 0, 0, &rect, 1, Unsorted);
+ else
+ XSetClipMask(XtDisplay((Widget)ctx), sink->ascii_sink.xorgc, None);
+ }
+}
+
+/*
+ * Function:
+ * XawAsciiSinkSetValues
+ *
+ * Parameters:
+ * current - current state of the object
+ * request - what was requested
+ * cnew - what the object will become
+ *
+ * Description:
+ * Sets the values for the AsciiSink.
+ *
+ * Returns:
+ * True if redisplay is needed
+ */
+/*ARGSUSED*/
+static Boolean
+XawAsciiSinkSetValues(Widget current, Widget request, Widget cnew,
+ ArgList args, Cardinal *num_args)
+{
+ AsciiSinkObject w = (AsciiSinkObject)cnew;
+ AsciiSinkObject old_w = (AsciiSinkObject)current;
+
+ if (w->ascii_sink.font != old_w->ascii_sink.font
+ || w->text_sink.background != old_w->text_sink.background
+ || w->text_sink.foreground != old_w->text_sink.foreground
+#ifndef OLDXAW
+ || w->text_sink.cursor_color != old_w->text_sink.cursor_color
+ || w->text_sink.properties != old_w->text_sink.properties
+#endif
+ ) {
+#ifdef OLDXAW
+ XtReleaseGC(cnew, w->ascii_sink.normgc);
+ XtReleaseGC(cnew, w->ascii_sink.invgc);
+ XtReleaseGC(cnew, w->ascii_sink.xorgc);
+ GetGC(w);
+#endif
+ ((TextWidget)XtParent(cnew))->text.redisplay_needed = True;
+ }
+ else if (w->ascii_sink.echo != old_w->ascii_sink.echo
+ || w->ascii_sink.display_nonprinting
+ != old_w->ascii_sink.display_nonprinting)
+ ((TextWidget)XtParent(cnew))->text.redisplay_needed = True;
+#ifndef OLDXAW
+ if (w->text_sink.properties != old_w->text_sink.properties) {
+ XawTextProperty *property =
+ XawTextSinkGetProperty(cnew, XrmStringToQuark("default"));
+
+ if (property) {
+ if (property->mask & XAW_TPROP_FONT)
+ w->ascii_sink.font = property->font;
+ if (property->mask & XAW_TPROP_FOREGROUND)
+ w->text_sink.foreground = property->foreground;
+ if (property->mask & XAW_TPROP_BACKGROUND)
+ w->text_sink.background = property->background;
+ }
+ }
+#endif
+
+ return (False);
+}
+
+/*
+ * Function:
+ * MaxLines
+ *
+ * Parameters:
+ * w - AsciiSink Object
+ * height - height to fit lines into
+ *
+ * Description:
+ * Finds the Maximum number of lines that will fit in a given height.
+ *
+ * Returns:
+ * The number of lines that will fit
+ */
+/*ARGSUSED*/
+static int
+MaxLines(Widget w, unsigned int height)
+{
+ AsciiSinkObject sink = (AsciiSinkObject)w;
+ int font_height;
+
+ font_height = sink->ascii_sink.font->ascent + sink->ascii_sink.font->descent + 1;
+
+ return ((int)height / font_height);
+}
+
+/*
+ * Function:
+ * MaxHeight
+ *
+ * Parameters:
+ * w - AsciiSink Object
+ * lines - number of lines
+ *
+ * Description:
+ * Finds the Minium height that will contain a given number lines.
+ *
+ * Returns:
+ * the height
+ */
+static int
+MaxHeight(Widget w, int lines)
+{
+ AsciiSinkObject sink = (AsciiSinkObject)w;
+
+ return (lines * (sink->ascii_sink.font->ascent +
+ sink->ascii_sink.font->descent + 1));
+}
+
+/*
+ * Function:
+ * SetTabs
+ *
+ * Parameters:
+ * w - AsciiSink Object
+ * tab_count - number of tabs in the list
+ * tabs - text positions of the tabs
+ *
+ * Description:
+ * Sets the Tab stops.
+ */
+static void
+SetTabs(Widget w, int tab_count, short *tabs)
+{
+ AsciiSinkObject sink = (AsciiSinkObject)w;
+ int i;
+ Atom XA_FIGURE_WIDTH;
+ unsigned long figure_width = 0;
+ XFontStruct *font = sink->ascii_sink.font;
+
+ /*
+ * Find the figure width of the current font
+ */
+ XA_FIGURE_WIDTH = XInternAtom(XtDisplayOfObject(w), "FIGURE_WIDTH", False);
+ if (XA_FIGURE_WIDTH != None
+ && (!XGetFontProperty(font, XA_FIGURE_WIDTH, &figure_width)
+ || figure_width == 0)) {
+ if (font->per_char && font->min_char_or_byte2 <= '$'
+ && font->max_char_or_byte2 >= '$')
+ figure_width = font->per_char['$' - font->min_char_or_byte2].width;
+ else
+ figure_width = font->max_bounds.width;
+ }
+
+ if (tab_count > sink->text_sink.tab_count) {
+ sink->text_sink.tabs = (Position *)
+ XtRealloc((char*)sink->text_sink.tabs, tab_count * sizeof(Position));
+ sink->text_sink.char_tabs = (short *)
+ XtRealloc((char*)sink->text_sink.char_tabs, tab_count * sizeof(short));
+ }
+
+ for (i = 0 ; i < tab_count ; i++) {
+ sink->text_sink.tabs[i] = tabs[i] * figure_width;
+ sink->text_sink.char_tabs[i] = tabs[i];
+ }
+
+ sink->text_sink.tab_count = tab_count;
+
+#ifndef NO_TAB_FIX
+ {
+ TextWidget ctx = (TextWidget)XtParent(w);
+ ctx->text.redisplay_needed = True;
+ _XawTextBuildLineTable(ctx, ctx->text.lt.top, True);
+ }
+#endif
+}
|