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

Fix 34119: factor out IsDigit function

Browse Source 
git-svn-id: trunk@39609 -
This commit is contained in:
michael 2018-08-12 09:14:27 +00:00
parent 2d2ba5f0cd
commit a3f756013d
1 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packages/regexpr/src/regexpr.pas
View File

@ -269,6 +269,7 @@ type
{$ENDIF}
function IsWordChar(AChar : REChar) : Boolean; inline;
function IsSpaceChar(AChar : PRegExprChar) : Boolean; inline;
function IsDigit(AChar : PRegExprChar) : Boolean; inline;
// Mark programm as having to be [re]compiled
procedure InvalidateProgramm;
@ -1391,6 +1392,12 @@ begin
Result:=Pos(AChar^,fSpaceChars)>0;
end;
function TRegExpr.IsDigit(AChar: PRegExprChar): Boolean;
begin
// Avoid Unicode char-> ansi char conversion in case of unicode regexp.
Result:=Ord(AChar^) in [Ord('0')..Ord('9')]
end;
procedure TRegExpr.InvalidateProgramm;
begin
if programm <> nil then begin
@ -2684,17 +2691,17 @@ function TRegExpr.regrepeat (p : PRegExprChar; AMax : PtrInt) : PtrInt;
UNTIL Result >= AMax;
end;
ANYDIGIT:
while (Result < TheMax) and
(scan^ >= '0') and (scan^ <= '9') do begin
while (Result < TheMax) and isDigit(Scan) do
begin
inc (Result);
inc (scan);
end;
end;
NOTDIGIT:
while (Result < TheMax) and
((scan^ < '0') or (scan^ > '9')) do begin
while (Result < TheMax) and not IsDigit(Scan) do
begin
inc (Result);
inc (scan);
end;
end;
{$IFNDEF UseSetOfChar} //###0.929
ANYLETTER:
while (Result < TheMax) and IsWordChar(scan^) do //###0.940
@ -2895,13 +2902,13 @@ function TRegExpr.MatchPrim (prog : PRegExprChar) : boolean;
inc (reginput);
end;
ANYDIGIT: begin
if (reginput^ = #0) or (reginput^ < '0') or (reginput^ > '9')
then EXIT;
if (reginput^ = #0) or Not IsDigit(reginput) then
EXIT;
inc (reginput);
end;
NOTDIGIT: begin
if (reginput^ = #0) or ((reginput^ >= '0') and (reginput^ <= '9'))
then EXIT;
if (reginput^ = #0) or IsDigit(reginput) then
EXIT;
inc (reginput);
end;
{$IFNDEF UseSetOfChar} //###0.929
@ -3563,6 +3570,7 @@ function TRegExpr.ExecPrim (AOffset: PtrInt) : boolean;
--------------------------------------------------------------}
function TRegExpr.ExecNext : boolean;
var offset : PtrInt;
begin