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

LazUtils: Masks: rename ReverseRange to AddRangeReverse.

Browse Source 
Note: code contains writeln's, so it will crash if no console is available.
This commit is contained in:
Bart 2021-11-09 19:06:49 +01:00
parent ef974cb238
commit 3679a90e37
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/masks.pas
View File

@ -219,11 +219,11 @@ type
procedure AddAnyChar; procedure AddAnyChar;
procedure AddLiteral; procedure AddLiteral;
procedure AddRange(lFirstRange, lSecondRange: Integer); procedure AddRange(lFirstRange, lSecondRange: Integer);
procedure AddRangeReverse(lFirstRange, lSecondRange: Integer);
procedure CompileRange; procedure CompileRange;
procedure CompileEscapeCharPlusLiteral; procedure CompileEscapeCharPlusLiteral;
procedure CompileSpecialChar; procedure CompileSpecialChar;
function GetMask: String; virtual; function GetMask: String; virtual;
procedure ReverseRange(lFirstRange, lSecondRange: Integer);
procedure SetMask(AValue: String); virtual; procedure SetMask(AValue: String); virtual;
protected protected
fOriginalMask: String; fOriginalMask: String;
@ -745,7 +745,7 @@ begin
fMaskInd:=lSecondRange; fMaskInd:=lSecondRange;
end; end;
procedure TMaskUTF8.ReverseRange(lFirstRange, lSecondRange: Integer); procedure TMaskUTF8.AddRangeReverse(lFirstRange, lSecondRange: Integer);
begin begin
fCPLength:=UTF8CodepointSizeFast(@fMask[lSecondRange]); fCPLength:=UTF8CodepointSizeFast(@fMask[lSecondRange]);
Add(fCPLength,@fMask[lSecondRange]); Add(fCPLength,@fMask[lSecondRange]);
@ -865,7 +865,7 @@ begin
or (CompareUTF8Sequences(@fMask[lFirstRange],@fMask[lSecondRange])<0) then or (CompareUTF8Sequences(@fMask[lFirstRange],@fMask[lSecondRange])<0) then
AddRange(lFirstRange, lSecondRange) AddRange(lFirstRange, lSecondRange)
else else
ReverseRange(lFirstRange, lSecondRange); AddRangeReverse(lFirstRange, lSecondRange);
fLastOC:=TMaskParsedCode.Range; fLastOC:=TMaskParsedCode.Range;
end //is a range end //is a range