paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 22:49:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #29393

Browse Source 
git-svn-id: trunk@33299 -
This commit is contained in:
michael 2016-03-20 17:55:16 +00:00
parent 6ab9435e44
commit f1a7d07f8e
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
packages/rtl-objpas/src/inc/strutils.pp
View File

@ -2591,9 +2591,10 @@ begin
end;
end;
Function isMatch(inputstr,wilds : string; CWild, CinputWord: integer;MaxInputword,maxwilds : word) : Boolean;
Function isMatch(level : Integer; inputstr,wilds : string; CWild, CinputWord: integer;MaxInputword,maxwilds : word; Out EOS : Boolean) : Boolean;
begin
EOS:=False;
Result:=True;
repeat
if Wilds[CWild] = '*' then { handling of '*' }
@ -2609,10 +2610,12 @@ begin
Repeat
while (inputStr[CinputWord]<>Wilds[CWild]) and (CinputWord <= MaxinputWord) do
inc(CinputWord);
Result:=isMatch(inputstr,wilds,CWild, CinputWord,MaxInputword,maxwilds);
Result:=isMatch(Level+1,inputstr,wilds,CWild, CinputWord,MaxInputword,maxwilds,EOS);
if not Result then
Inc(cInputWord);
Until Result or (CinputWord>=MaxinputWord);
if Result and EOS then
Exit;
Continue;
end;
if Wilds[CWild] = '?' then { equal to '?' }
@ -2632,9 +2635,17 @@ begin
Result:=false;
Exit;
until (CinputWord > MaxinputWord) or (CWild > MaxWilds);
{ no completed evaluation }
if (CinputWord <= MaxinputWord) or (CWild <= MaxWilds) then
Result:=false;
{ no completed evaluation, we need to check what happened }
if (CinputWord < MaxinputWord) or (CWild < MaxWilds) then
Result:=false
else if (CWild>Maxwilds) then
EOS:=False
else
begin
EOS:=Wilds[CWild]='*';
if not EOS then
Result:=False;
end
end;
function isWild(inputStr, Wilds: string; ignoreCase: boolean): boolean;
@ -2642,6 +2653,8 @@ function isWild(inputStr, Wilds: string; ignoreCase: boolean): boolean;
var
i: integer;
MaxinputWord, MaxWilds: integer; { Length of inputStr and Wilds }
eos : Boolean;
begin
Result:=true;
if Wilds = inputStr then
@ -2667,7 +2680,7 @@ begin
inputStr:=AnsiUpperCase(inputStr);
Wilds:=AnsiUpperCase(Wilds);
end;
Result:=isMatch(inputStr,wilds,1,1,MaxinputWord, MaxWilds);
Result:=isMatch(1,inputStr,wilds,1,1,MaxinputWord, MaxWilds,EOS);
end;