paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 20:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: moved AdjustPositionAfterInsert

Browse Source 
git-svn-id: trunk@14280 -
This commit is contained in:
mattias 2008-02-27 14:08:53 +00:00
parent ce09782485
commit e748b6291f
2 changed files with 23 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/codetools/basiccodetools.pas
View File

@ -121,6 +121,8 @@ function CountNeededLineEndsToAddForward(const Src: string;
StartPos, MinLineEnds: integer): integer; StartPos, MinLineEnds: integer): integer;
function CountNeededLineEndsToAddBackward(const Src: string; function CountNeededLineEndsToAddBackward(const Src: string;
StartPos, MinLineEnds: integer): integer; StartPos, MinLineEnds: integer): integer;
procedure AdjustPositionAfterInsert(var p: integer; IsStart: boolean;
FromPos, ToPos, DiffPos: integer);
// comparison // comparison
function CompareText(Txt1: PChar; Len1: integer; Txt2: PChar; Len2: integer; function CompareText(Txt1: PChar; Len1: integer; Txt2: PChar; Len2: integer;
@ -4061,6 +4063,27 @@ begin
end; end;
end; end;
procedure AdjustPositionAfterInsert(var p: integer; IsStart: boolean; FromPos,
ToPos, DiffPos: integer);
begin
if (ToPos>FromPos) then begin
// replace
if p>FromPos then begin
if p>ToPos then
inc(p,DiffPos)
else
p:=FromPos;
end;
end else begin
// insert
if IsStart then begin
if p>=FromPos then inc(p,DiffPos);
end else begin
if p>FromPos then inc(p,DiffPos);
end;
end;
end;
function CompareText(Txt1: PChar; Len1: integer; Txt2: PChar; Len2: integer; function CompareText(Txt1: PChar; Len1: integer; Txt2: PChar; Len2: integer;
CaseSensitive: boolean): integer; CaseSensitive: boolean): integer;
begin begin

24
components/codetools/directivestree.pas
View File

@ -274,9 +274,6 @@ function ComparePCharWithH2PasFuncName(Name, H2PasFunc: Pointer): integer;
function CDNodeDescAsString(Desc: TCompilerDirectiveNodeDesc): string; function CDNodeDescAsString(Desc: TCompilerDirectiveNodeDesc): string;
function CDNodeSubDescAsString(Desc: TCompilerDirectiveNodeDesc): string; function CDNodeSubDescAsString(Desc: TCompilerDirectiveNodeDesc): string;
procedure AdjustPositionAfterInsert(var p: integer; IsStart: boolean;
FromPos, ToPos, DiffPos: integer);
implementation implementation
type type
@ -391,27 +388,6 @@ begin
end; end;
end; end;
procedure AdjustPositionAfterInsert(var p: integer;
IsStart: boolean; FromPos, ToPos, DiffPos: integer);
begin
if (ToPos>FromPos) then begin
// replace
if p>FromPos then begin
if p>ToPos then
inc(p,DiffPos)
else
p:=FromPos;
end;
end else begin
// insert
if IsStart then begin
if p>=FromPos then inc(p,DiffPos);
end else begin
if p>FromPos then inc(p,DiffPos);
end;
end;
end;
{ TCompilerDirectivesTree } { TCompilerDirectivesTree }