AsciiSrc.c File Reference

#include <X11/IntrinsicP.h>
#include <stdio.h>
#include <ctype.h>
#include <errno.h>
#include <X11/StringDefs.h>
#include <X11/Xos.h>
#include <stdlib.h>
#include <X11/Xfuncs.h>
#include <X11/Xaw3d/XawInit.h>
#include <X11/Xaw3d/AsciiSrcP.h>
#include <X11/Xmu/Misc.h>
#include <X11/Xmu/CharSet.h>
#include <X11/Xaw3d/MultiSrcP.h>

Include dependency graph for AsciiSrc.c:

Go to the source code of this file.

Defines
#define	offset(field)   XtOffsetOf(AsciiSrcRec, ascii_src.field)
#define	Off_t   off_t
#define	Size_t   size_t
#define	superclass   (&textSrcClassRec)
#define	HALF_PIECE   (src->ascii_src.piece_size/2)
Functions
static XawTextPosition	Scan ()
static XawTextPosition	Search ()
static XawTextPosition	ReadText ()
static int	ReplaceText ()
static Piece *	FindPiece ()
static Piece **	AllocNewPiece ()
static FILE *	InitStringOrFile ()
static void	FreeAllPieces ()
static void	RemovePiece ()
static void	BreakPiece ()
static void	LoadPieces ()
static void	RemoveOldStringOrFile ()
static void	CvtStringToAsciiType ()
static void	ClassInitialize ()
static void	Initialize ()
static void	Destroy ()
static void	GetValuesHook ()
static String	MyStrncpy ()
static String	StorePiecesInString ()
static Boolean	SetValues ()
static Boolean	WriteToFile ()
static void	Initialize (Widget request, Widget new, ArgList args, Cardinal *num_args)
static XawTextPosition	ReadText (Widget w, XawTextPosition pos, XawTextBlock *text, int length)
static int	ReplaceText (Widget w, XawTextPosition startPos, XawTextPosition endPos, XawTextBlock *text)
static XawTextPosition	Scan (Widget w, XawTextPosition position, XawTextScanType type, XawTextScanDirection dir, int count, Boolean include)
static XawTextPosition	Search (Widget w, XawTextPosition position, XawTextScanDirection dir, XawTextBlock *text)
static Boolean	SetValues (Widget current, Widget request, Widget new, ArgList args, Cardinal *num_args)
static void	GetValuesHook (Widget w, ArgList args, Cardinal *num_args)
static void	Destroy (Widget w)
void	XawAsciiSourceFreeString (Widget w)
Boolean	XawAsciiSave (Widget w)
Boolean	XawAsciiSaveAsFile (Widget w, String name)
Boolean	XawAsciiSourceChanged (Widget w)
static void	RemoveOldStringOrFile (AsciiSrcObject src, Boolean checkString)
static Boolean	WriteToFile (String string, String name)
static String	StorePiecesInString (AsciiSrcObject src)
static FILE *	InitStringOrFile (AsciiSrcObject src, Boolean newString)
static void	LoadPieces (AsciiSrcObject src, FILE *file, char *string)
static Piece *	AllocNewPiece (AsciiSrcObject src, Piece *prev)
static void	FreeAllPieces (AsciiSrcObject src)
static void	RemovePiece (AsciiSrcObject src, Piece *piece)
static Piece *	FindPiece (AsciiSrcObject src, XawTextPosition position, XawTextPosition *first)
static String	MyStrncpy (char *s1, char *s2, int n)
static void	BreakPiece (AsciiSrcObject src, Piece *piece)
static void	CvtStringToAsciiType (XrmValuePtr args, Cardinal *num_args, XrmValuePtr fromVal, XrmValuePtr toVal)
Variables
static int	magic_value = MAGIC_VALUE
static XtResource	resources []
AsciiSrcClassRec	asciiSrcClassRec
WidgetClass	asciiSrcObjectClass = (WidgetClass)&asciiSrcClassRec

---

Define Documentation

#define HALF_PIECE   (src->ascii_src.piece_size/2)

Definition at line 1268 of file AsciiSrc.c.

Referenced by BreakPiece().

#define Off_t   off_t

Definition at line 109 of file AsciiSrc.c.

Referenced by InitStringOrFile(), and LoadPieces().

#define offset

(

field

)

XtOffsetOf(AsciiSrcRec, ascii_src.field)

Definition at line 67 of file AsciiSrc.c.

#define Size_t   size_t

Definition at line 110 of file AsciiSrc.c.

Referenced by LoadPieces().

#define superclass   (&textSrcClassRec)

Definition at line 113 of file AsciiSrc.c.

Referenced by ChangeManaged(), Realize(), and XmuWnInitializeNodes().

---

Function Documentation

static Piece* AllocNewPiece	(	AsciiSrcObject	src,
		Piece *	prev
	)			[static]

Definition at line 1138 of file AsciiSrc.c.

References _Piece::next, and _Piece::prev.

{
  Piece * piece = XtNew(Piece);

  if (prev == NULL) {
    src->ascii_src.first_piece = piece;
    piece->next = NULL;
  }
  else {
    if (prev->next != NULL)
      (prev->next)->prev = piece;
    piece->next = prev->next;
    prev->next = piece;
  }
  
  piece->prev = prev;

  return(piece);
}

static Piece* * AllocNewPiece

(

)

Referenced by BreakPiece(), and LoadPieces().

Here is the caller graph for this function:

static void BreakPiece	(	AsciiSrcObject	src,
		Piece *	piece
	)			[static]

Definition at line 1271 of file AsciiSrc.c.

References AllocNewPiece(), HALF_PIECE, _Piece::text, and _Piece::used.

{
  Piece * new = AllocNewPiece(src, piece);
  
  new->text = XtMalloc(src->ascii_src.piece_size * sizeof(unsigned char));
  strncpy(new->text, piece->text + HALF_PIECE,
          src->ascii_src.piece_size - HALF_PIECE);
  piece->used = HALF_PIECE;
  new->used = src->ascii_src.piece_size - HALF_PIECE; 
}

Here is the call graph for this function:

static void BreakPiece

(

)

Referenced by ReplaceText().

Here is the caller graph for this function:

static void ClassInitialize

(

)

[static]

Definition at line 180 of file AsciiSrc.c.

References XawInitializeWidgetSet().

{
  XawInitializeWidgetSet();
  XtAddConverter( XtRString, XtRAsciiType, CvtStringToAsciiType,
                 NULL, (Cardinal) 0);
}

Here is the call graph for this function:

static void CvtStringToAsciiType	(	XrmValuePtr	args,
		Cardinal *	num_args,
		XrmValuePtr	fromVal,
		XrmValuePtr	toVal
	)			[static]

Definition at line 1286 of file AsciiSrc.c.

References type, XawAsciiFile, XawAsciiString, XmuCopyISOLatin1Lowered(), XtEfile, and XtEstring.

{
  static XawAsciiType type;
  static XrmQuark  XtQEstring = NULLQUARK;
  static XrmQuark  XtQEfile;
  XrmQuark q;
  char lowerName[40];

  if (XtQEstring == NULLQUARK) {
    XtQEstring = XrmPermStringToQuark(XtEstring);
    XtQEfile   = XrmPermStringToQuark(XtEfile);
  }

  if (strlen ((char*)fromVal->addr) < sizeof lowerName) {
    XmuCopyISOLatin1Lowered(lowerName, (char *) fromVal->addr);
    q = XrmStringToQuark(lowerName);

    if (q == XtQEstring)     type = XawAsciiString;
    else if (q == XtQEfile)  type = XawAsciiFile;
    else {
      toVal->size = 0;
      toVal->addr = NULL;
      return;
    }
    toVal->size = sizeof type;
    toVal->addr = (XPointer) &type;
    return;
  }
  toVal->size = 0;
  toVal->addr = NULL;
}

Here is the call graph for this function:

static void CvtStringToAsciiType

(

)

static void Destroy

(

Widget

w

)

[static]

Definition at line 718 of file AsciiSrc.c.

References RemoveOldStringOrFile().

{
  RemoveOldStringOrFile((AsciiSrcObject) w, True);
}

Here is the call graph for this function:

static void Destroy

(

)

static Piece* FindPiece	(	AsciiSrcObject	src,
		XawTextPosition	position,
		XawTextPosition *	first
	)			[static]

Definition at line 1216 of file AsciiSrc.c.

{
  Piece * old_piece = NULL, * piece = src->ascii_src.first_piece;
  XawTextPosition temp;

  for ( temp = 0 ; piece != NULL ; temp += piece->used, piece = piece->next ) {
    *first = temp;
    old_piece = piece;

    if ((temp + piece->used) > position) 
      return(piece);
  }
  return(old_piece);      /* if we run off the end the return the last piece */
}

static Piece* FindPiece

(

)

[static]

Referenced by ReadText(), ReplaceText(), Scan(), and Search().

Here is the caller graph for this function:

static void FreeAllPieces

(

AsciiSrcObject

src

)

[static]

Definition at line 1167 of file AsciiSrc.c.

References first, RemovePiece(), and void().

{
  Piece * next, * first = src->ascii_src.first_piece;

  if (first->prev != NULL)
    (void) printf("Xaw AsciiSrc Object: possible memory leak in FreeAllPieces().\n");

  for ( ; first != NULL ; first = next ) {
    next = first->next;
    RemovePiece(src, first);
  }
}

Here is the call graph for this function:

static void FreeAllPieces

(

)

[static]

Referenced by RemoveOldStringOrFile(), and StorePiecesInString().

Here is the caller graph for this function:

static void GetValuesHook	(	Widget	w,
		ArgList	args,
		Cardinal *	num_args
	)			[static]

Definition at line 688 of file AsciiSrc.c.

References _AsciiSrcRec::ascii_src, _AsciiSrcPart::first_piece, i, name, streq, _AsciiSrcPart::string, _Piece::text, _AsciiSrcPart::type, _AsciiSrcPart::use_string_in_place, value, XawAsciiSave(), and XawAsciiString.

{
  AsciiSrcObject src = (AsciiSrcObject) w;
  int i;

  if (src->ascii_src.type == XawAsciiString) {
    for (i = 0; i < *num_args ; i++ ) 
      if (streq(args[i].name, XtNstring)) {
          if (src->ascii_src.use_string_in_place) {
              *((char **) args[i].value) = src->ascii_src.first_piece->text;
          }
          else {
              if (XawAsciiSave(w))      /* If save sucessful. */
                  *((char **) args[i].value) = src->ascii_src.string;
          }
        break;
      }
  }
}    

Here is the call graph for this function:

static void GetValuesHook

(

)

static void Initialize	(	Widget	request,
		Widget	new,
		ArgList	args,
		Cardinal *	num_args
	)			[static]

Definition at line 197 of file AsciiSrc.c.

References _AsciiSrcPart::allocated_string, _AsciiSrcRec::ascii_src, _AsciiSrcPart::changes, FALSE, file, InitStringOrFile(), LoadPieces(), _AsciiSrcPart::string, TextSrcPart::text_format, _AsciiSrcRec::text_src, TRUE, _AsciiSrcPart::type, _AsciiSrcPart::use_string_in_place, XawAsciiFile, XawAsciiString, and XawFmt8Bit.

{
  AsciiSrcObject src = (AsciiSrcObject) new;
  FILE * file;

/*
 * Set correct flags (override resources) depending upon widget class.
 */

  src->text_src.text_format = XawFmt8Bit;       /* data format. */

#ifdef ASCII_DISK
  if (XtIsSubclass(XtParent(new), asciiDiskWidgetClass)) {
    src->ascii_src.type = XawAsciiFile;
    src->ascii_src.string = src->ascii_src.filename;
  }
#endif

#ifdef ASCII_STRING
  if (XtIsSubclass(XtParent(new), asciiStringWidgetClass)) {
    src->ascii_src.use_string_in_place = TRUE;
    src->ascii_src.type = XawAsciiString;
  }
#endif

  src->ascii_src.changes = FALSE;
  src->ascii_src.allocated_string = FALSE;

  file = InitStringOrFile(src, src->ascii_src.type == XawAsciiFile);
  LoadPieces(src, file, NULL);

  if (file != NULL) fclose(file);
}

Here is the call graph for this function:

static void Initialize

(

void

)

Initialisation of Scilab

static FILE* InitStringOrFile	(	AsciiSrcObject	src,
		Boolean	newString
	)			[static]

Definition at line 979 of file AsciiSrc.c.

References FALSE, file, MAGIC_VALUE, Off_t, strerror(), tmpnam(), TMPSIZ, TRUE, void(), XawAsciiString, XawtextAppend, XawtextEdit, and XawtextRead.

{
    char * open_mode = NULL;
    FILE * file;
    char fileName[TMPSIZ];

    if (src->ascii_src.type == XawAsciiString) {

        if (src->ascii_src.string == NULL)
            src->ascii_src.length = 0;

        else if (! src->ascii_src.use_string_in_place) {
            src->ascii_src.string = XtNewString(src->ascii_src.string);
            src->ascii_src.allocated_string = True;
            src->ascii_src.length = strlen(src->ascii_src.string);
        }

        if (src->ascii_src.use_string_in_place) {
            src->ascii_src.length = strlen(src->ascii_src.string);
            /* In case the length resource is incorrectly set */
            if (src->ascii_src.length > src->ascii_src.ascii_length)
                src->ascii_src.ascii_length = src->ascii_src.length;

            if (src->ascii_src.ascii_length == MAGIC_VALUE) 
                src->ascii_src.piece_size = src->ascii_src.length;
            else
                src->ascii_src.piece_size = src->ascii_src.ascii_length + 1;
        }
                
        return(NULL);
    }

/*
 * type is XawAsciiFile.
 */
    
    src->ascii_src.is_tempfile = FALSE;

    switch (src->text_src.edit_mode) {
    case XawtextRead:
        if (src->ascii_src.string == NULL)
            XtErrorMsg("NoFile", "asciiSourceCreate", "XawError",
                     "Creating a read only disk widget and no file specified.",
                       NULL, 0);
        open_mode = "r";
        break;
    case XawtextAppend:
    case XawtextEdit:
        if (src->ascii_src.string == NULL) {
            src->ascii_src.string = fileName;
            (void) tmpnam(src->ascii_src.string);
            src->ascii_src.is_tempfile = TRUE;
            open_mode = "w";
        } else
            open_mode = "r+";
        break;
    default:
        XtErrorMsg("badMode", "asciiSourceCreate", "XawError",
                "Bad editMode for ascii source; must be Read, Append or Edit.",
                   NULL, NULL);
    }

    /* Allocate new memory for the temp filename, because it is held in
     * a stack variable, not static memory.  This widget does not need
     * to keep the private state field is_tempfile -- it is only accessed
     * in this routine, and its former setting is unused.
     */
    if (newString || src->ascii_src.is_tempfile) {
        src->ascii_src.string = XtNewString(src->ascii_src.string);
        src->ascii_src.allocated_string = TRUE;
    }
    
    if (!src->ascii_src.is_tempfile) {
        if ((file = fopen(src->ascii_src.string, open_mode)) != 0) {
            (void) fseek(file, (Off_t)0, 2);
            src->ascii_src.length = (XawTextPosition) ftell(file);
            return file;
        } else {
            String params[2];
            Cardinal num_params = 2;
            
            params[0] = src->ascii_src.string;
            params[1] = strerror(errno);
            XtAppWarningMsg(XtWidgetToApplicationContext((Widget)src),
                            "openError", "asciiSourceCreate", "XawWarning",
                            "Cannot open file %s; %s", params, &num_params);
        }
    } 
    src->ascii_src.length = 0;
    return((FILE *)NULL);
}

Here is the call graph for this function:

static FILE* InitStringOrFile

(

)

[static]

Referenced by Initialize(), and SetValues().

Here is the caller graph for this function:

static void LoadPieces	(	AsciiSrcObject	src,
		FILE *	file,
		char *	string
	)			[static]

Definition at line 1074 of file AsciiSrc.c.

References AllocNewPiece(), left, Min, Off_t, Size_t, _Piece::text, _Piece::used, and XawAsciiFile.

{
  char *local_str, *ptr;
  Piece * piece = NULL;
  XawTextPosition left;

  if (string == NULL) {
    if (src->ascii_src.type == XawAsciiFile) {
      local_str = XtMalloc((unsigned) (src->ascii_src.length + 1) 
                           * sizeof(unsigned char));
      if (src->ascii_src.length != 0) {
        fseek(file, (Off_t)0, 0);
        src->ascii_src.length = fread(local_str, (Size_t)sizeof(unsigned char),
                                      (Size_t)src->ascii_src.length, file);
        if (src->ascii_src.length <= 0)
          XtErrorMsg("readError", "asciiSourceCreate", "XawError",
                     "fread returned error.", NULL, NULL);
      }
      local_str[src->ascii_src.length] = '\0';
    }
    else
      local_str = src->ascii_src.string;
  }
  else
    local_str = string;

  if (src->ascii_src.use_string_in_place) {
    piece = AllocNewPiece(src, piece);
    piece->used = Min(src->ascii_src.length, src->ascii_src.piece_size);
    piece->text = src->ascii_src.string;
    return;
  }

  ptr = local_str;
  left = src->ascii_src.length;

  do {
    piece = AllocNewPiece(src, piece);

    piece->text = XtMalloc((unsigned)src->ascii_src.piece_size
                           * sizeof(unsigned char));
    piece->used = Min(left, src->ascii_src.piece_size);
    if (piece->used != 0)
      strncpy(piece->text, ptr, piece->used);

    left -= piece->used;
    ptr += piece->used;
  } while (left > 0);

  if ( (src->ascii_src.type == XawAsciiFile) && (string == NULL) )
    XtFree(local_str);
}

Here is the call graph for this function:

static void LoadPieces

(

)

Referenced by Initialize(), SetValues(), and StorePiecesInString().

Here is the caller graph for this function:

static String MyStrncpy	(	char *	s1,
		char *	s2,
		int	n
	)			[static]

Definition at line 1242 of file AsciiSrc.c.

References buf.

{
  char buf[256];
  char* temp;

  if (n == 0) return s1;

  if (n < sizeof buf) temp = buf;
  else temp = XtMalloc((unsigned)sizeof(unsigned char) * n);

  strncpy(temp, s2, n);         /* Saber has a bug that causes it to generate*/
  strncpy(s1, temp, n);         /* a bogus warning message here (CDP 6/32/89)*/

  if (temp != buf) XtFree(temp);
  return s1;
}

static String MyStrncpy

(

)

[static]

Referenced by ReplaceText().

Here is the caller graph for this function:

static XawTextPosition ReadText	(	Widget	w,
		XawTextPosition	pos,
		XawTextBlock *	text,
		int	length
	)			[static]

Definition at line 244 of file AsciiSrc.c.

References count, FindPiece(), XawTextBlock::firstPos, XawTextBlock::length, XawTextBlock::ptr, _Piece::text, and _Piece::used.

{
  AsciiSrcObject src = (AsciiSrcObject) w;
  XawTextPosition count, start;
  Piece * piece = FindPiece(src, pos, &start);
    
  text->firstPos = pos;
  text->ptr = piece->text + (pos - start);
  count = piece->used - (pos - start);
  text->length = (length > count) ? count : length;
  return(pos + text->length);
}

Here is the call graph for this function:

static XawTextPosition ReadText

(

)

static void RemoveOldStringOrFile	(	AsciiSrcObject	src,
		Boolean	checkString
	)			[static]

Definition at line 900 of file AsciiSrc.c.

References FreeAllPieces().

{
  FreeAllPieces(src);

  if (checkString && src->ascii_src.allocated_string) {
    XtFree(src->ascii_src.string);
    src->ascii_src.allocated_string = False;
    src->ascii_src.string = NULL;
  }
}

Here is the call graph for this function:

static void RemoveOldStringOrFile

(

)

[static]

Referenced by Destroy(), and SetValues().

Here is the caller graph for this function:

static void RemovePiece	(	AsciiSrcObject	src,
		Piece *	piece
	)			[static]

Definition at line 1189 of file AsciiSrc.c.

References _Piece::next, _Piece::prev, and _Piece::text.

{
  if (piece->prev == NULL)
    src->ascii_src.first_piece = piece->next;
  else
    (piece->prev)->next = piece->next;

  if (piece->next != NULL)
    (piece->next)->prev = piece->prev;

  if (!src->ascii_src.use_string_in_place)
    XtFree(piece->text);

  XtFree((char *)piece);
}

static void RemovePiece

(

)

Referenced by FreeAllPieces(), and ReplaceText().

Here is the caller graph for this function:

static int ReplaceText	(	Widget	w,
		XawTextPosition	startPos,
		XawTextPosition	endPos,
		XawTextBlock *	text
	)			[static]

Definition at line 271 of file AsciiSrc.c.

References _AsciiSrcRec::ascii_src, BreakPiece(), _AsciiSrcPart::changes, TextSrcPart::edit_mode, FindPiece(), XawTextBlock::firstPos, XawTextBlock::length, _AsciiSrcPart::length, Min, MyStrncpy(), _Piece::next, _AsciiSrcPart::piece_size, _Piece::prev, XawTextBlock::ptr, RemovePiece(), _Piece::text, _AsciiSrcRec::text_src, TRUE, _AsciiSrcPart::use_string_in_place, _Piece::used, XawEditDone, XawEditError, and XawtextRead.

{
  AsciiSrcObject src = (AsciiSrcObject) w;
  Piece *start_piece, *end_piece, *temp_piece;
  XawTextPosition start_first, end_first;
  int length, firstPos;

/*
 * Editing a read only source is not allowed.
 */

  if (src->text_src.edit_mode == XawtextRead) 
    return(XawEditError);

  start_piece = FindPiece(src, startPos, &start_first);
  end_piece = FindPiece(src, endPos, &end_first);

  src->ascii_src.changes = TRUE; /* We have changed the buffer. */

/* 
 * Remove Old Stuff. 
 */

  if (start_piece != end_piece) {
    temp_piece = start_piece->next;

/*
 * If empty and not the only piece then remove it. 
 */

    if ( ((start_piece->used = startPos - start_first) == 0) &&
         !((start_piece->next == NULL) && (start_piece->prev == NULL)) )
      RemovePiece(src, start_piece);

    while (temp_piece != end_piece) {
      temp_piece = temp_piece->next;
      RemovePiece(src, temp_piece->prev);
    }
    end_piece->used -= endPos - end_first;
    if (end_piece->used != 0)
      MyStrncpy(end_piece->text, (end_piece->text + endPos - end_first),
                (int) end_piece->used);
  }
  else {                        /* We are fully in one piece. */
    if ( (start_piece->used -= endPos - startPos) == 0) {
      if ( !((start_piece->next == NULL) && (start_piece->prev == NULL)) )
        RemovePiece(src, start_piece);
    }
    else {
      MyStrncpy(start_piece->text + (startPos - start_first),
                start_piece->text + (endPos - start_first),
                (int) (start_piece->used - (startPos - start_first)) );
      if ( src->ascii_src.use_string_in_place && 
           ((src->ascii_src.length - (endPos - startPos)) < 
            (src->ascii_src.piece_size - 1)) ) 
        start_piece->text[src->ascii_src.length - (endPos - startPos)] = '\0';
    }
  }

  src->ascii_src.length += -(endPos - startPos) + text->length;

  if ( text->length != 0) {

    /* 
     * Put in the New Stuff.
     */
    
    start_piece = FindPiece(src, startPos, &start_first);
    
    length = text->length;
    firstPos = text->firstPos;
    
    while (length > 0) {
      char * ptr;
      int fill;
      
      if (src->ascii_src.use_string_in_place) {
        if (start_piece->used == (src->ascii_src.piece_size - 1)) {
          /*
           * If we are in ascii string emulation mode. Then the
           *  string is not allowed to grow.
           */
          start_piece->used = src->ascii_src.length = 
                                                 src->ascii_src.piece_size - 1;
          start_piece->text[src->ascii_src.length] = '\0';
          return(XawEditError);
        }
      }


      if (start_piece->used == src->ascii_src.piece_size) {
        BreakPiece(src, start_piece);
        start_piece = FindPiece(src, startPos, &start_first);
      }

      fill = Min((int)(src->ascii_src.piece_size - start_piece->used), length);
      
      ptr = start_piece->text + (startPos - start_first);
      MyStrncpy(ptr + fill, ptr, 
                (int) start_piece->used - (startPos - start_first));
      strncpy(ptr, text->ptr + firstPos, fill);
      
      startPos += fill;
      firstPos += fill;
      start_piece->used += fill;
      length -= fill;
    }
  }

  if (src->ascii_src.use_string_in_place)
    start_piece->text[start_piece->used] = '\0';

  XtCallCallbacks(w, XtNcallback, NULL); /* Call callbacks, we have changed 
                                            the buffer. */

  return(XawEditDone);
}

Here is the call graph for this function:

static int ReplaceText

(

)

[static]

static XawTextPosition Scan	(	Widget	w,
		XawTextPosition	position,
		XawTextScanType	type,
		XawTextScanDirection	dir,
		int	count,
		Boolean	include
	)			[static]

Definition at line 411 of file AsciiSrc.c.

References _AsciiSrcRec::ascii_src, FALSE, FindPiece(), first, _AsciiSrcPart::length, _Piece::next, _Piece::prev, _Piece::text, TRUE, _Piece::used, XawsdRight, XawstAll, XawstEOL, XawstParagraph, XawstPositions, and XawstWhiteSpace.

{
  AsciiSrcObject src = (AsciiSrcObject) w;
  int inc;
  Piece* piece;
  XawTextPosition first, first_eol_position = 0;
  char* ptr;

  if (type == XawstAll) {       /* Optomize this common case. */
    if (dir == XawsdRight)
      return(src->ascii_src.length);
    return(0);                  /* else. */
  }

  if (position > src->ascii_src.length)
    position = src->ascii_src.length;

  if ( dir == XawsdRight ) {
    if (position == src->ascii_src.length)
/*
 * Scanning right from src->ascii_src.length???
 */
      return(src->ascii_src.length);
    inc = 1;
  }
  else {
    if (position == 0)
      return(0);                /* Scanning left from 0??? */
    inc = -1;
    position--;
  }

  piece = FindPiece(src, position, &first);

/*
 * If the buffer is empty then return 0. 
 */

  if ( piece->used == 0 ) return(0); 

  ptr = (position - first) + piece->text;

  switch (type) {
  case XawstEOL: 
  case XawstParagraph: 
  case XawstWhiteSpace: 
    for ( ; count > 0 ; count-- ) {
      Boolean non_space = FALSE, first_eol = TRUE;
      /* CONSTCOND */
      while (TRUE) {
        unsigned char c = *ptr;

        ptr += inc;
        position += inc;
        
        if (type == XawstWhiteSpace) {
          if (isspace(c)) {
            if (non_space) 
              break;
          }
          else
            non_space = TRUE;
        }
        else if (type == XawstEOL) {
          if (c == '\n') break;
        }
        else { /* XawstParagraph */
          if (first_eol) {
            if (c == '\n') {
              first_eol_position = position;
              first_eol = FALSE;
            }
          }
          else
            if ( c == '\n') 
              break;
            else if ( !isspace(c) )
              first_eol = TRUE;
        }
              

        if ( ptr < piece->text ) {
          piece = piece->prev;
          if (piece == NULL)    /* Begining of text. */
            return(0);
          ptr = piece->text + piece->used - 1;
        }
        else if ( ptr >= (piece->text + piece->used) ) {
          piece = piece->next;
          if (piece == NULL)    /* End of text. */
            return(src->ascii_src.length);
          ptr = piece->text;
        }
      }
    }
    if (!include) {
      if ( type == XawstParagraph)
        position = first_eol_position;
      position -= inc;
    }
    break;
  case XawstPositions: 
    position += count * inc;
    break;
  case XawstAll:                /* handled in special code above */
  default: 
    break;
  }

  if ( dir == XawsdLeft )
    position++;

  if (position >= src->ascii_src.length)
    return(src->ascii_src.length);
  if (position < 0)
    return(0);

  return(position);
}

Here is the call graph for this function:

static XawTextPosition Scan

(

)

[static]

static XawTextPosition Search	(	Widget	w,
		XawTextPosition	position,
		XawTextScanDirection	dir,
		XawTextBlock *	text
	)			[static]

Definition at line 547 of file AsciiSrc.c.

References buf, count, FindPiece(), first, XawTextBlock::firstPos, XawTextBlock::length, _Piece::next, _Piece::prev, XawTextBlock::ptr, _Piece::text, TRUE, _Piece::used, XawsdLeft, XawsdRight, and XawTextSearchError.

{
  AsciiSrcObject src = (AsciiSrcObject) w;
  int inc, count = 0;
  char * ptr;
  Piece * piece;
  char * buf;
  XawTextPosition first;

  if ( dir == XawsdRight )
    inc = 1;
  else {
    inc = -1;
    if (position == 0)
      return(XawTextSearchError);       /* scanning left from 0??? */
    position--;
  }

  buf = XtMalloc((unsigned)sizeof(unsigned char) * text->length);
  strncpy(buf, (text->ptr + text->firstPos), text->length);
  piece = FindPiece(src, position, &first);
  ptr = (position - first) + piece->text;

  /* CONSTCOND */
  while (TRUE) {
    if (*ptr == ((dir == XawsdRight) ? *(buf + count) 
                                     : *(buf + text->length - count - 1)) ) {
      if (count == (text->length - 1))
        break;
      else
        count++;
    }
    else {
      if (count != 0) {
        position -=inc * count;
        ptr -= inc * count;
      }
      count = 0;
    }

    ptr += inc;
    position += inc;
    
    while ( ptr < piece->text ) {
      piece = piece->prev;
      if (piece == NULL) {      /* Begining of text. */
        XtFree(buf);
        return(XawTextSearchError);
      }
      ptr = piece->text + piece->used - 1;
    }
   
    while ( ptr >= (piece->text + piece->used) ) {
      piece = piece->next;
      if (piece == NULL) {      /* End of text. */
        XtFree(buf);
        return(XawTextSearchError);
      }
      ptr = piece->text;
    }
  }

  XtFree(buf);
  if (dir == XawsdLeft)
    return(position);
  return(position - (text->length - 1));
}

Here is the call graph for this function:

static XawTextPosition Search

(

)

static Boolean SetValues	(	Widget	current,
		Widget	request,
		Widget	new,
		ArgList	args,
		Cardinal *	num_args
	)			[static]

Definition at line 629 of file AsciiSrc.c.

References _AsciiSrcRec::ascii_src, FALSE, file, i, InitStringOrFile(), LoadPieces(), name, RemoveOldStringOrFile(), streq, TRUE, _AsciiSrcPart::type, _AsciiSrcPart::use_string_in_place, and XawTextSetSource().

{
  AsciiSrcObject src =      (AsciiSrcObject) new;
  AsciiSrcObject old_src = (AsciiSrcObject) current;
  Boolean total_reset = FALSE, string_set = FALSE;
  FILE * file;
  int i;

  if ( old_src->ascii_src.use_string_in_place != 
       src->ascii_src.use_string_in_place ) {
      XtAppWarning( XtWidgetToApplicationContext(new),
           "AsciiSrc: The XtNuseStringInPlace resource may not be changed.");
       src->ascii_src.use_string_in_place = 
           old_src->ascii_src.use_string_in_place;
  }

  for (i = 0; i < *num_args ; i++ ) 
      if (streq(args[i].name, XtNstring)) {
          string_set = TRUE;
          break;
      }
  
  if ( string_set || (old_src->ascii_src.type != src->ascii_src.type) ) {
    RemoveOldStringOrFile(old_src, string_set); /* remove old info. */
    file = InitStringOrFile(src, string_set);   /* Init new info. */
    LoadPieces(src, file, NULL);    /* load new info into internal buffers. */
    if (file != NULL) fclose(file);
    XawTextSetSource( XtParent(new), new, 0);   /* Tell text widget
                                                   what happened. */
    total_reset = TRUE;
  }

  if ( old_src->ascii_src.ascii_length != src->ascii_src.ascii_length ) 
      src->ascii_src.piece_size = src->ascii_src.ascii_length;

  if ( !total_reset && 
      (old_src->ascii_src.piece_size != src->ascii_src.piece_size) ) {
      String string = StorePiecesInString(old_src);
      FreeAllPieces(old_src);
      LoadPieces(src, NULL, string);
      XtFree(string);
  }

  return(FALSE);
}

Here is the call graph for this function:

static Boolean SetValues

(

)

[static]

static String StorePiecesInString

(

AsciiSrcObject

src

)

[static]

Definition at line 944 of file AsciiSrc.c.

References first, FreeAllPieces(), LoadPieces(), _Piece::next, string, _Piece::text, and _Piece::used.

{
  String string;
  XawTextPosition first;
  Piece * piece;

  string = XtMalloc((unsigned) sizeof(unsigned char) * 
                    src->ascii_src.length + 1);
  
  for (first = 0, piece = src->ascii_src.first_piece ; piece != NULL; 
       first += piece->used, piece = piece->next) 
    strncpy(string + first, piece->text, piece->used);

  string[src->ascii_src.length] = '\0'; /* NULL terminate this sucker. */

/*
 * This will refill all pieces to capacity. 
 */

  if (src->ascii_src.data_compression) {        
    FreeAllPieces(src);
    LoadPieces(src, NULL, string);
  }

  return(string);
}

Here is the call graph for this function:

static String StorePiecesInString

(

)

Referenced by _XawMultiSave(), _XawMultiSaveAsFile(), XawAsciiSave(), and XawAsciiSaveAsFile().

Here is the caller graph for this function:

static Boolean WriteToFile	(	String	string,
		String	name
	)			[static]

Definition at line 922 of file AsciiSrc.c.

References close(), FALSE, fd, TRUE, and write().

{
  int fd;
  
  if ( ((fd = creat(name, 0666)) == -1 ) ||
       (write(fd, string, sizeof(unsigned char) * strlen(string)) == -1) )
    return(FALSE);

  if ( close(fd) == -1 ) 
    return(FALSE);

  return(TRUE);
}

Here is the call graph for this function:

static Boolean WriteToFile

(

)

Referenced by _XawMultiSave(), _XawMultiSaveAsFile(), XawAsciiSave(), and XawAsciiSaveAsFile().

Here is the caller graph for this function:

Boolean XawAsciiSave

(

Widget

w

)

Definition at line 777 of file AsciiSrc.c.

References _XawMultiSave(), _AsciiSrcPart::allocated_string, _AsciiSrcRec::ascii_src, _AsciiSrcPart::changes, FALSE, multiSrcObjectClass, StorePiecesInString(), _AsciiSrcPart::string, string, TRUE, _AsciiSrcPart::type, _AsciiSrcPart::use_string_in_place, WriteToFile(), and XawAsciiFile.

Referenced by GetValuesHook().

{
  AsciiSrcObject src = (AsciiSrcObject) w;

  /* If the src is really a multi, call the multi save. */

  if ( XtIsSubclass( w, multiSrcObjectClass ) )
      return( _XawMultiSave( w ) );

  else if ( !XtIsSubclass( w, asciiSrcObjectClass ) ) {
        XtErrorMsg("bad argument", "asciiSource", "XawError",
                "XawAsciiSave's parameter must be an asciiSrc or multiSrc.",
                   NULL, NULL);
  }

/*
 * If using the string in place then there is no need to play games
 * to get the internal info into a readable string.
 */

  if (src->ascii_src.use_string_in_place) 
    return(TRUE);

  if (src->ascii_src.type == XawAsciiFile) {
    char * string;

    if (!src->ascii_src.changes)                /* No changes to save. */
      return(TRUE);

    string = StorePiecesInString(src);

    if (WriteToFile(string, src->ascii_src.string) == FALSE) {
      XtFree(string);
      return(FALSE);
    }
    XtFree(string);
  }
  else {
    if (src->ascii_src.allocated_string == TRUE) 
      XtFree(src->ascii_src.string);
    else
      src->ascii_src.allocated_string = TRUE;
    
    src->ascii_src.string = StorePiecesInString(src);
  }
  src->ascii_src.changes = FALSE;
  return(TRUE);
}

Here is the call graph for this function:

Here is the caller graph for this function:

Boolean XawAsciiSaveAsFile	(	Widget	w,
		String	name
	)

Definition at line 839 of file AsciiSrc.c.

References _XawMultiSaveAsFile(), multiSrcObjectClass, StorePiecesInString(), string, and WriteToFile().

{
  AsciiSrcObject src = (AsciiSrcObject) w;
  String string;
  Boolean ret;

  /* If the src is really a multi, call the multi save. - */

  if ( XtIsSubclass( w, multiSrcObjectClass ) )
      return( _XawMultiSaveAsFile( w, name ) );

  else if ( !XtIsSubclass( w, asciiSrcObjectClass ) ) {
        XtErrorMsg("bad argument", "asciiSource", "XawError",
                "XawAsciiSaveAsFile's 1st parameter must be an asciiSrc or multiSrc.",
                   NULL, NULL);
  }

  string = StorePiecesInString(src); 

  ret = WriteToFile(string, name);
  XtFree(string);
  return(ret);
}

Here is the call graph for this function:

Boolean XawAsciiSourceChanged

(

Widget

w

)

Definition at line 876 of file AsciiSrc.c.

References multiSrcObjectClass.

{
  if ( XtIsSubclass( w, multiSrcObjectClass ) )
      return( ( (MultiSrcObject) w )->multi_src.changes );

  if ( XtIsSubclass( w, asciiSrcObjectClass ) )
      return( ( (AsciiSrcObject) w)->ascii_src.changes );

  XtErrorMsg("bad argument", "asciiSource", "XawError",
                "XawAsciiSourceChanged parameter must be an asciiSrc or multiSrc.",
                   NULL, NULL);

  return( True ); /* for gcc -Wall */
}

void XawAsciiSourceFreeString

(

Widget

w

)

Definition at line 741 of file AsciiSrc.c.

References _XawMultiSourceFreeString(), _AsciiSrcPart::allocated_string, _AsciiSrcRec::ascii_src, FALSE, multiSrcObjectClass, _AsciiSrcPart::string, _AsciiSrcPart::type, and XawAsciiFile.

{
  AsciiSrcObject src = (AsciiSrcObject) w;

  /* If the src is really a multi, call the multi routine.*/

  if ( XtIsSubclass( w, multiSrcObjectClass ) ) {
      _XawMultiSourceFreeString( w );
      return;
  }

  else if ( !XtIsSubclass( w, asciiSrcObjectClass ) ) {
      XtErrorMsg("bad argument", "asciiSource", "XawError",
            "XawAsciiSourceFreeString's parameter must be an asciiSrc or multiSrc.",
             NULL, NULL);
  }

  if (src->ascii_src.allocated_string && src->ascii_src.type != XawAsciiFile) {
    src->ascii_src.allocated_string = FALSE;
    XtFree(src->ascii_src.string);
    src->ascii_src.string = NULL;
  }
}

Here is the call graph for this function:

---

Variable Documentation

AsciiSrcClassRec asciiSrcClassRec

Definition at line 114 of file AsciiSrc.c.

WidgetClass asciiSrcObjectClass = (WidgetClass)&asciiSrcClassRec

Definition at line 165 of file AsciiSrc.c.

int magic_value = MAGIC_VALUE [static]

Definition at line 65 of file AsciiSrc.c.

XtResource resources[] [static]

Initial value:

 {
    {XtNstring, XtCString, XtRString, sizeof (char *),
       offset(string), XtRString, NULL},
    {XtNtype, XtCType, XtRAsciiType, sizeof (XawAsciiType),
       offset(type), XtRImmediate, (XtPointer)XawAsciiString},
    {XtNdataCompression, XtCDataCompression, XtRBoolean, sizeof (Boolean),
       offset(data_compression), XtRImmediate, (XtPointer) TRUE},
    {XtNpieceSize, XtCPieceSize, XtRInt, sizeof (XawTextPosition),
       offset(piece_size), XtRImmediate, (XtPointer) BUFSIZ},
    {XtNcallback, XtCCallback, XtRCallback, sizeof(XtPointer), 
       offset(callback), XtRCallback, (XtPointer)NULL},
    {XtNuseStringInPlace, XtCUseStringInPlace, XtRBoolean, sizeof (Boolean),
       offset(use_string_in_place), XtRImmediate, (XtPointer) FALSE},
    {XtNlength, XtCLength, XtRInt, sizeof (int),
       offset(ascii_length), XtRInt, (XtPointer) &magic_value},




 
}

Definition at line 69 of file AsciiSrc.c.

---