paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

multi replace: started replacement

Browse Source 
git-svn-id: trunk@9193 -
This commit is contained in:
mattias 2006-04-26 23:50:25 +00:00
parent d4afb52019
commit 3b5d21d836
4 changed files with 235 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

244
ide/frmsearch.pas
View File

@ -67,6 +67,7 @@ type
fMatches: longint;
fPad: string;
fParsedMasks: TStringList; //Holds the parsed masks.
FPromptOnReplace: boolean;
fRecursive: boolean;
fRegExp: Boolean;
FReplaceText: string;
@ -103,6 +104,7 @@ type
property SearchMask: string read fMask write fMask;
property Pad: string read fPad write fPad;
property ResultsWindow: integer read fResultsWindow write fResultsWindow;
property PromptOnReplace: boolean read FPromptOnReplace write FPromptOnReplace;
end;
var
@ -177,6 +179,7 @@ end;//GetOptions
procedure TSearchForm.DoSearch;
begin
PromptOnReplace:=true;
lblSearchText.Caption:= fSearchFor;
fMatches:= 0;
ParseMask;
@ -191,7 +194,7 @@ begin
end;//if
if Assigned(fResultsList) and (fResultsList.Count = 0) then
fResultsList.Add(lisFileNotFound);
Self.Close;
Close;
end;//DoSearch
procedure TSearchForm.SearchFile(TheFileName: string);
@ -276,79 +279,211 @@ procedure TSearchForm.SearchFile(TheFileName: string);
{Start SearchFile ============================================================}
var
ThisFile: TSourceLog; //The original File being searched
UpperFile: TSourceLog; //The working File being searched
Line: integer; //Loop Counter
Match: integer; //Position of match in line.
TempSearch: string; //Temp Storage for the search string.
MatchLen: integer;
OriginalFile: TSourceLog; // The original File being searched
CaseFile: TSourceLog; // The working File being searched
Line: integer; // Loop Counter
Match: integer; // Position of match in line.
CurLine: String;
TempSearch: string; // Temp Storage for the search string.
MatchLen: integer;
RE: TRegExpr;
Found: Boolean;
TrimmedMatch: LongInt;
LastMatchStart: LongInt;
LastMatchEnd: Integer;
WorkLine: String;
TrimmedCurLine: String;
SearchAllHitsInLine: boolean;
PromptOnReplace: boolean;
SrcEditValid: Boolean;// true if SrcEdit is valid
SrcEdit: TSourceEditorInterface;
PaintLockEnabled: Boolean;
ReplacedText: PChar;
ReplacedTextCapacity: integer;
ReplacedTextLength: integer;
ReplacedTextOriginalPos: integer;// 1-based
function FileIsOpenInSourceEditor: boolean;
begin
if not SrcEditValid then
SrcEdit:=SourceEditorWindow.SourceEditorIntfWithFilename(TheFileName);
SrcEditValid:=true;
Result:=SrcEdit<>nil;
end;
procedure GrowNewText(NewLength: integer);
var
NewCapacity: Integer;
begin
if NewLength<=ReplacedTextCapacity then exit;
// grow
// first double
NewCapacity:=ReplacedTextCapacity*2;
if NewLength>NewCapacity then begin
// double is not enough, use the original size as minimum
if NewCapacity<1 then
NewCapacity:=OriginalFile.SourceLength+1000;
if NewLength>NewCapacity then begin
// still not enough -> grow to new length
NewCapacity:=NewLength;
end;
end;
ReplacedTextCapacity:=NewCapacity;
ReAllocMem(ReplacedText,ReplacedTextCapacity);
end;
procedure EnablePaintLock;
begin
if (not PaintLockEnabled) and FileIsOpenInSourceEditor then begin
PaintLockEnabled:=true;
SrcEdit.BeginUpdate;
end;
end;
procedure DisablePaintLock;
begin
if PaintLockEnabled then
SrcEdit.EndUpdate;
PaintLockEnabled:=false;
end;
procedure EndLocks;
begin
DisablePaintLock;
SrcEditValid:=false;
end;
procedure DoReplaceLine;
var
ASearch: String;
AReplace: String;
Action: TSrcEditReplaceAction;
OriginalTextPos: integer; // 1-based
GapLength: Integer;
NewLength: Integer;
begin
// create replacement
AReplace:=ReplaceText;
if fRegExp then
AReplace:=RE.Substitute(AReplace);
// ask the user
if PromptOnReplace then begin
// open the place in the source editor
if LazarusIDE.DoOpenFileAndJumpToPos(TheFileName,Point(Match,Line),-1,-1,
[ofUseCache,ofDoNotLoadResource,ofVirtualFile,ofRegularFile])
EndLocks;
if LazarusIDE.DoOpenFileAndJumpToPos(TheFileName,Point(Match,Line+1),
-1,-1,[ofUseCache,ofDoNotLoadResource,ofVirtualFile,ofRegularFile])
<>mrOk then
begin
fAbort:=true;
exit;
end;
ASearch:=copy(CurLine,Match,MatchLen);
AReplace:=ReplaceText;
if fRegExp then
AReplace:=RE.Substitute(AReplace);
SourceEditorWindow.ActiveEditor.AskReplace(Self,ASearch,AReplace,
Line,Match,Action);
// select found text
if not FileIsOpenInSourceEditor then
RaiseGDBException('inconsistency');
SrcEdit.SelectText(Line+1,Match,Line+1,Match+MatchLen);
SrcEdit.AskReplace(Self,ASearch,AReplace,Line,Match,Action);
case Action of
seraSkip: exit;
seraReplace: ;
seraReplaceAll: PromptOnReplace:=false;
seraSkip: exit;
seraReplace: ;
seraReplaceAll: PromptOnReplace:=false;
else
fAbort:=true;
exit;
end;
end;
// TODO: create change text
if FileIsOpenInSourceEditor then begin
// change text in source editor
EnablePaintLock;
SrcEdit.SelectText(Line+1,Match,Line+1,Match+MatchLen);
SrcEdit.Selection:=AReplace;
end else begin
// change text in memory/disk
OriginalFile.LineColToPosition(Line+1,Match,OriginalTextPos);
GapLength:=OriginalTextPos-ReplacedTextOriginalPos;
NewLength:=ReplacedTextLength+GapLength+length(AReplace);
GrowNewText(NewLength);
//writeln('DoReplaceLine Line=',Line,' Match=',Match,' OriginalTextPos=',OriginalTextPos,' ReplacedTextOriginalPos=',ReplacedTextOriginalPos,' GapLength=',GapLength,' NewLength=',NewLength,' "',AReplace,'" ReplacedTextCapacity=',ReplacedTextCapacity);
// copy the text between the last and this replacement
if GapLength>0 then begin
System.Move(OriginalFile.Source[ReplacedTextOriginalPos],
ReplacedText[ReplacedTextLength],GapLength);
inc(ReplacedTextLength,GapLength);
end;
// copy the replacement
if AReplace<>'' then begin
System.Move(AReplace[1],ReplacedText[ReplacedTextLength],length(AReplace));
inc(ReplacedTextLength,length(AReplace));
end;
// save original position behind found position
OriginalFile.LineColToPosition(Line+1,Match+MatchLen,ReplacedTextOriginalPos);
end;
end;
procedure CommitChanges;
var
GapLength: Integer;
NewLength: Integer;
NewText: string;
CurResult: TModalResult;
begin
EndLocks;
if ReplacedText<>nil then begin
if not fAbort then begin
GapLength:=OriginalFile.SourceLength-ReplacedTextOriginalPos;
NewLength:=ReplacedTextLength+GapLength;
GrowNewText(NewLength);
// copy the text between the last and this replacement
if GapLength>0 then begin
System.Move(OriginalFile.Source[ReplacedTextOriginalPos],
ReplacedText[ReplacedTextLength],GapLength);
inc(ReplacedTextLength,GapLength);
end;
SetLength(NewText,ReplacedTextLength);
if NewText<>'' then
System.Move(ReplacedText[0],NewText[1],length(NewText));
OriginalFile.Source:=NewText;
if not OriginalFile.SaveToFile(TheFileName) then begin
CurResult:=MessageDlg('Write error',
'Error writing file "'+TheFileName+'"',
mtError,[mbCancel,mbAbort],0);
if CurResult=mrAbort then fAbort:=true;
end;
end;
FreeMem(ReplacedText);
end;
end;
var
WorkLine: String;
TrimmedCurLine: String;
TrimmedMatch: LongInt;
LastMatchStart: LongInt;
LastMatchEnd: Integer;
Found: Boolean;
begin
if fAbort then exit;
ThisFile:=nil;
UpperFile:=nil;
OriginalFile:=nil;
CaseFile:=nil;
RE:=nil;
PromptOnReplace:=fReplace;
SearchAllHitsInLine:=fReplace;
SrcEdit:=nil;
SrcEditValid:=false;
PaintLockEnabled:=false;
ReplacedText:=nil;
ReplacedTextCapacity:=0;
ReplacedTextLength:=0;
ReplacedTextOriginalPos:=1;
fResultsList.BeginUpdate;
try
MatchLen:= Length(fSearchFor);
TempSearch:= fSearchFor;
ThisFile:= TSourceLog.Create('');
ThisFile.LoadFromFile(TheFileName);
OriginalFile:= TSourceLog.Create('');
OriginalFile.LoadFromFile(TheFileName);
if fCaseSensitive then begin
UpperFile:=ThisFile;
CaseFile:=OriginalFile;
end else begin
UpperFile:=TSourceLog.Create(UpperCaseStr(ThisFile.Source));
CaseFile:=TSourceLog.Create(UpperCaseStr(OriginalFile.Source));
TempSearch:=UpperCaseStr(TempSearch);
end;
@ -363,13 +498,15 @@ begin
end;
end;
//writeln('TheFileName=',TheFileName,' len=',ThisFile.SourceLength,' Cnt=',ThisFile.LineCount,' TempSearch=',TempSearch);
//writeln('TheFileName=',TheFileName,' len=',OriginalFile.SourceLength,' Cnt=',OriginalFile.LineCount,' TempSearch=',TempSearch);
Application.ProcessMessages;
CurLine:='';
for Line:= 0 to ThisFile.LineCount -1 do
for Line:= 0 to OriginalFile.LineCount -1 do
begin
if (Line and $fff)=0 then
if (Line and $fff)=0 then begin
EndLocks;
Application.ProcessMessages;
end;
Match:=1;
MatchLen:=0;
repeat
@ -381,7 +518,7 @@ begin
if fRegExp then begin
// search every line for regular expression
if LastMatchStart=LastMatchEnd then begin
CurLine:=ThisFile.GetLine(Line);
CurLine:=OriginalFile.GetLine(Line);
WorkLine:=CurLine;
end else begin
WorkLine:=copy(CurLine,LastMatchEnd,length(CurLine));
@ -392,10 +529,10 @@ begin
MatchLen:= Re.MatchLen[0];
end;
end else begin
Found:=SearchInLine(TempSearch,UpperFile,Line,
Found:=SearchInLine(TempSearch,CaseFile,Line,
fWholeWord,LastMatchEnd,Match);
if Found then begin
CurLine:=ThisFile.GetLine(Line);
CurLine:=OriginalFile.GetLine(Line);
MatchLen:=length(TempSearch);
end;
end;
@ -403,14 +540,16 @@ begin
// add found place
if Found then begin
//DebugLn('TSearchForm.SearchFile CurLine="',CurLine,'" Found=',dbgs(Found),' Match=',dbgs(Match),' MatchLen=',dbgs(MatchLen),' Line=',dbgs(Line));
if fReplace then
DoReplaceLine;
TrimmedMatch:=Match;
TrimmedCurLine:=TrimLineAndMatch(CurLine,TrimmedMatch);
SearchResultsView.AddMatch(fResultsWindow,
TheFileName,Point(Match,Line+1),
TrimmedCurLine, TrimmedMatch, MatchLen);
UpdateMatches;
if fReplace then begin
DoReplaceLine
end else begin
TrimmedMatch:=Match;
TrimmedCurLine:=TrimLineAndMatch(CurLine,TrimmedMatch);
SearchResultsView.AddMatch(fResultsWindow,
TheFileName,Point(Match,Line+1),
TrimmedCurLine, TrimmedMatch, MatchLen);
UpdateMatches;
end;
end else
break;
until fAbort or (not SearchAllHitsInLine) or (MatchLen<1);
@ -429,10 +568,11 @@ begin
end;//for
finally
if ThisFile=UpperFile then
UpperFile:=nil;
FreeAndNil(ThisFile);
FreeAndNil(UpperFile);
CommitChanges;
if OriginalFile=CaseFile then
CaseFile:=nil;
FreeAndNil(OriginalFile);
FreeAndNil(CaseFile);
FreeAndNil(RE);
fResultsList.EndUpdate;
end;

20
ide/main.pp
View File

@ -626,7 +626,7 @@ type
PageIndex: integer; Flags: TOpenFlags): TModalResult; override;
function DoSaveAll(Flags: TSaveFlags): TModalResult;
procedure DoRestart;
function DoOpenMainUnit(ProjectLoading: boolean): TModalResult;
function DoOpenMainUnit(Flags: TOpenFlags): TModalResult;
function DoRevertMainUnit: TModalResult;
function DoViewUnitsAndForms(OnlyForms: boolean): TModalResult;
procedure DoViewUnitDependencies;
@ -3006,7 +3006,7 @@ end;
procedure TMainIDE.mnuViewProjectSourceClicked(Sender: TObject);
begin
DoOpenMainUnit(false);
DoOpenMainUnit([]);
end;
procedure TMainIDE.mnuViewProjectTodosClicked(Sender: TObject);
@ -4512,7 +4512,7 @@ begin
Handled:=false;
Ext:=lowercase(ExtractFileExt(AFilename));
if ([ofProjectLoading,ofRegularFile]*Flags<>[]) and (ToolStatus=itNone)
if ([ofProjectLoading,ofRegularFile]*Flags=[]) and (ToolStatus=itNone)
and (Ext='.lpi') then begin
// this is a project info file -> load whole project
Result:=DoOpenProjectFile(AFilename,[ofAddToRecent]);
@ -5876,7 +5876,7 @@ begin
and (CompareFilenames(Project1.MainFilename,AFilename,
not (ofVirtualFile in Flags))=0)
then begin
Result:=DoOpenMainUnit(ofProjectLoading in Flags);
Result:=DoOpenMainUnit(Flags);
exit;
end;
@ -6025,9 +6025,8 @@ begin
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.DoOpenEditorFile END');{$ENDIF}
end;
function TMainIDE.DoOpenMainUnit(ProjectLoading: boolean): TModalResult;
function TMainIDE.DoOpenMainUnit(Flags: TOpenFlags): TModalResult;
var MainUnitInfo: TUnitInfo;
OpenFlags: TOpenFlags;
begin
{$IFDEF IDE_VERBOSE}
debugln('[TMainIDE.DoOpenMainUnit] A ProjectLoading=',BoolToStr(ProjectLoading),' MainUnitID=',IntToStr(Project1.MainUnitID));
@ -6037,7 +6036,8 @@ begin
MainUnitInfo:=Project1.MainUnitInfo;
// check if main unit is already open in source editor
if (MainUnitInfo.EditorIndex>=0) and (not ProjectLoading) then begin
if (MainUnitInfo.EditorIndex>=0) and (not (ofProjectLoading in Flags)) then
begin
// already loaded -> switch to source editor
SourceNotebook.Notebook.PageIndex:=MainUnitInfo.EditorIndex;
Result:=mrOk;
@ -6045,9 +6045,7 @@ begin
end;
// open file in source notebook
OpenFlags:=[];
if ProjectLoading then Include(OpenFlags,ofProjectLoading);
Result:=DoOpenFileInSourceEditor(MainUnitInfo,-1,OpenFlags);
Result:=DoOpenFileInSourceEditor(MainUnitInfo,-1,Flags);
if Result<>mrOk then exit;
Result:=mrOk;
@ -6135,7 +6133,7 @@ Begin
SourceNoteBook.Notebook.PageIndex := AnUnitInfo.EditorIndex;
end else begin
if Project1.MainUnitInfo = AnUnitInfo then
Result:=DoOpenMainUnit(false)
Result:=DoOpenMainUnit([])
else
Result:=DoOpenEditorFile(AnUnitInfo.Filename,-1,[ofOnlyIfExists]);
if Result=mrAbort then exit;

14
ide/uniteditor.pp
View File

@ -527,7 +527,7 @@ type
Shift: TShiftstate; X,Y: Integer);
procedure EditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
//hintwindow stuff
// hintwindow stuff
FHintWindow: THintWindow;
FHintTimer: TTimer;
procedure HintTimer(Sender: TObject);
@ -553,6 +553,7 @@ type
function OnSourceMarksGetSourceEditor(ASynEdit: TCustomSynEdit): TObject;
function OnSourceMarksGetFilename(ASourceEditor: TObject): string;
function GetItems(Index: integer): TSourceEditorInterface; override;
function GetEditors(Index:integer): TSourceEditor;
procedure KeyDownBeforeInterface(var Key: Word; Shift: TShiftState); override;
@ -572,6 +573,7 @@ type
property Editors[Index:integer]:TSourceEditor read GetEditors;
function EditorCount:integer;
function Count: integer; override;
function Empty: boolean;
function FindSourceEditorWithPageIndex(PageIndex:integer):TSourceEditor;
@ -3648,6 +3650,11 @@ begin
Result:=TSourceEditor(ASourceEditor).Filename;
end;
function TSourceNotebook.GetItems(Index: integer): TSourceEditorInterface;
begin
Result:=TSourceEditorInterface(FSourceEditorList[Index]);
end;
function TSourceNotebook.OnSourceMarksGetSourceEditor(ASynEdit: TCustomSynEdit
): TObject;
begin
@ -4971,6 +4978,11 @@ begin
Result:=FSourceEditorList.Count;
end;
function TSourceNotebook.Count: integer;
begin
Result:=FSourceEditorList.Count;
end;
Procedure TSourceNotebook.CloseClicked(Sender: TObject);
Begin
if Assigned(FOnCloseClicked) then FOnCloseClicked(Sender);

22
ideintf/srceditorintf.pas
View File

@ -20,7 +20,7 @@ unit SrcEditorIntf;
interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, ProjectIntf;
Classes, SysUtils, LCLProc, FileUtil, Forms, Controls, ProjectIntf;
type
TSrcEditSearchOption = (sesoMatchCase, sesoWholeWord, sesoBackwards,
@ -123,12 +123,18 @@ type
{ TSourceEditorWindowInterface }
TSourceEditorWindowInterface = class(TForm)
protected
function GetItems(Index: integer): TSourceEditorInterface; virtual; abstract;
protected
function GetActiveEditor: TSourceEditorInterface; virtual; abstract;
procedure SetActiveEditor(const AValue: TSourceEditorInterface); virtual; abstract;
public
function SourceEditorIntfWithFilename(
const Filename: string): TSourceEditorInterface;
property ActiveEditor: TSourceEditorInterface read GetActiveEditor
write SetActiveEditor;
function Count: integer; virtual; abstract;
property Items[Index: integer]: TSourceEditorInterface read GetItems; default;
end;
@ -278,5 +284,19 @@ begin
Result:=true;
end;
{ TSourceEditorWindowInterface }
function TSourceEditorWindowInterface.SourceEditorIntfWithFilename(
const Filename: string): TSourceEditorInterface;
var
i: Integer;
begin
for i:=Count-1 downto 0 do begin
Result:=Items[i];
if CompareFilenames(Result.Filename,Filename)=0 then exit;
end;
Result:=nil;
end;
end.