Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/C/Lyx/src/ (Lyx Textverarbeitung ^©) Datei vom 12.0.1999 mit Größe 8 kB

Quelle lyxfr1.C Sprache: C

/* This file is part of
* ======================================================
*
*           LyX, The Document Processor
*
*     Copyright (C) 1995 Matthias Ettrich,
*           Copyright (C) 1995-1998 The LyX Team.
*
*======================================================*/

#include <config.h>

#include <ctype.h>
#include <string.h>
#include <stdlib.h>

#ifdef __GNUG__
#pragma implementation
#endif

#include "LString.h"
#include "lyx_main.h"
#include FORMS_H_LOCATION
#include "form1.h"
#include "lyxfr0.h"
#include "lyxfr1.h"
#include "lyxfunc.h"
#include "lyxscreen.h"
#include "error.h"
#include "lyxtext.h"
#include "gettext.h"
#include "LyXView.h"
#include "lyx_gui_misc.h"

extern BufferView *current_view; // called too many times in this file...

// Maximum length copied from the current selection to the search string
const int LYXSEARCH_MAXLEN =  128;

// function prototypes

bool IsLetterCharOrDigit(char ch);

// If nothing selected, select the word at the cursor.
// Returns the current selection
// Note: this function should be in LyXText!
LString const GetSelectionOrWordAtCursor(LyXText *lt);

// Returns the current selection. If nothing is selected or if the selection
// spans 2 paragraphs, an empty string is returned.
LString const GetCurrentSelectionAsString(LyXText *lt);

// This is a copy of SetSelectionOverString from text.C
// It does the same, but uses only the length as a parameter
void SetSelectionOverLenChars(LyXText *lt, int len);

//-------------------------------------------------------------

bool IsLetterCharOrDigit(char ch)
{
return IsLetterChar(ch) || isdigit(ch);
}

// Returns the current selection. If nothing is selected or if the selection
// spans 2 paragraphs, an empty string is returned.
LString const GetCurrentSelectionAsString(LyXText *lt)
{
LyXParagraph  *par;
int   pos;
int  endpos;
int  i;
char  sz[LYXSEARCH_MAXLEN];
char  ch;
bool  fPrevIsSpace;

sz[0] = 0;
par = lt->cursor.par;
if (lt->selection && (lt->sel_cursor.par == par)) {
  // (selected) and (begin/end in same paragraph)
  pos = lt->sel_start_cursor.pos;
  endpos = lt->sel_end_cursor.pos;
  i = 0;
  fPrevIsSpace = false;
  while ((i < LYXSEARCH_MAXLEN-2) &&
   (pos < par->Last()) && (pos < endpos)) {
   ch = par->GetChar(pos);

   //HB??: Maybe (ch <= ' ')
   if ((ch == ' ') || ((unsigned char)ch <= LYX_META_INSET)) {
    // consecutive spaces --> 1 space char
    if (fPrevIsSpace) {
     pos++;  // Next text pos
     continue; // same search pos
    }
    sz[i] = ' ';
    fPrevIsSpace = true;
   } else {
    sz[i] = ch;
    fPrevIsSpace = false;
   }
   pos++;
   i++;
  }
  sz[i] = 0;
}
return LString(sz);
}

// If nothing selected, select the word at the cursor.
// Returns the current selection
LString const GetSelectionOrWordAtCursor(LyXText *lt)
{
lt->SelectWordWhenUnderCursor();
return GetCurrentSelectionAsString(lt);
}

// This is a copy of SetSelectionOverString from text.C
// It does the same, but uses only the length as a parameter
void SetSelectionOverLenChars(LyXText *lt, int len)
{
lt->sel_cursor = lt->cursor;
int i;
for (i=0; i < len; i++)
  lt->CursorRight();
lt->SetSelection();
}

//------------------------------

void LyXFindReplace1::StartSearch()
{
LyXFindReplace0::StartSearch();
SetReplaceEnabled(!current_view->currentBuffer()->isReadonly());

if (lsSearch.empty())
  SetSearchString(GetSelectionOrWordAtCursor(current_view->currentBuffer()->text));
}

void LyXFindReplace1::SearchReplaceCB()
{
if (!current_view->getScreen())
  return;
if (current_view->currentBuffer()->isReadonly())
         return;
if (!current_view->currentBuffer()->text->selection) {
  LyXBell();
  return;
}
LString const replacestring = ReplaceString();

current_view->getScreen()->HideCursor();
current_view->currentBuffer()->update(-2);

// clear the selection (if there is any)
current_view->getScreen()->ToggleSelection(false);
current_view->currentBuffer()->text->
  ReplaceSelectionWithString(replacestring.c_str());
current_view->currentBuffer()->text->
  SetSelectionOverString(replacestring.c_str());
current_view->currentBuffer()->update(1);

// jump to next match:
SearchCB( searchForward );
}

void LyXFindReplace1::SearchCB(bool fForward)
{
LyXText  *ltCur;

// store search direction
searchForward = fForward;

if (!current_view->getScreen())
  return;

current_view->getScreen()->HideCursor();
current_view->currentBuffer()->update(-2);
ltCur = current_view->currentBuffer()->text;
if (ltCur->selection)
  ltCur->cursor = fForward ? ltCur->sel_end_cursor :
                                                 ltCur->sel_start_cursor;

ReInitFromForm();
iLenSelected = SearchString().length();

if (!ValidSearchData() ||
     (fForward ? SearchForward(ltCur) : SearchBackward(ltCur))) {
  current_view->currentBuffer()->update(-2);

  // clear the selection (if there is any)
  current_view->getScreen()->ToggleSelection();
  current_view->currentBuffer()->text->ClearSelection();

  // set the new selection
  SetSelectionOverLenChars(current_view->currentBuffer()->text, iLenSelected);
  current_view->getScreen()->ToggleSelection(false);
} else
  LyXBell();

if (current_view->getWorkArea()->focus)
  current_view->getScreen()->ShowCursor();
}

// if the string can be found: return true and set the cursor to
// the new position
// (was: LyXText::SearchForward(char const* string) in text2.C )
bool LyXFindReplace1::SearchForward(LyXText *lt)
{
LyXParagraph *par;
int pos;

par = lt->cursor.par;
pos = lt->cursor.pos;

while (par && !IsSearchStringInText(par,pos)) {
  if (pos<par->Last()-1)
   pos++;
  else {
   pos = 0;
   par = par->Next();
  }
}
if (par) {
  lt->SetCursor(par,pos);
  return true;
} else
  return false;
}

// if the string can be found: return true and set the cursor to
// the new position
// (was: LyXText::SearchBackward(char const* string) in text2.C )
bool LyXFindReplace1::SearchBackward(LyXText *lt)
{
LyXParagraph *par = lt->cursor.par;
int pos = lt->cursor.pos;

do {
  if (pos>0)
   pos--;
  else {
   // We skip empty paragraphs (Asger)
   do {
    par = par->Previous();
    if (par)
     pos = par->Last()-1;
   } while (par && pos<0);
  }
} while (par && !IsSearchStringInText(par,pos));

if (par) {
  lt->SetCursor(par,pos);
  return true;
} else
  return false;
}

/* Compares 2 char values.
return value is
    > 0 if chSearch > ch2
    = 0 if chSearch == ch2
    < 0 if chSearch < ch2
*/
int LyXFindReplace1::CompareChars(char chSearch, char chText)
{
if (CaseSensitive())
  return (chSearch - chText);
return (toupper((unsigned char) chSearch) - toupper((unsigned char) chText));
}

// returns true if the search string is at the specified position
// (Copied from the original "LyXText::IsStringInText" in text2.C )
bool LyXFindReplace1::IsSearchStringInText(LyXParagraph *par, int pos)
{
const char *szSearch;
char  chSrch = 0;
char  chText;
bool  fPrevIsSpace;
int  iText;
int   iSrch;

szSearch = SearchString().c_str();

if (par) {
  fPrevIsSpace = false;
  iText = 0; iSrch = 0;
  while (pos+iText < par->Last() &&
                       (chSrch = szSearch[iSrch]) != 0) {
   chText = par->GetChar(pos+iText);
   if ((chText == ' ') ||
                            ((unsigned char)chText <= LYX_META_INSET))
   {
    if (fPrevIsSpace) {
     iText++;  // next Text pos
     continue; // same search pos
    }
    chText = ' ';
    fPrevIsSpace = true;
   } else
    fPrevIsSpace = false;
   if (CompareChars(chSrch, chText) != 0)
    break;

   iSrch++;
   iText++;
  }

  if (!szSearch[iSrch]) {
   if ((!MatchWord()) ||
       (((pos <= 0) || (!IsLetterCharOrDigit(par->GetChar(pos-1)))) &&
        ((pos+iText >= par->Last()) ||
         (!IsLetterCharOrDigit(par->GetChar(pos + iText))))))
   {
    iLenSelected = iText;
    return true;
   }
  }
}
return false;
}

quality87%

¤ Dauer der Verarbeitung: 0.25 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.