1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
{
This file is part of the Free Pascal packages library.
Copyright (c) 2008 by Joost van der Sluis, member of the
Free Pascal development team
Compatibility unit for the old regexpr unit.
Renaming to OldRegExpr after insertion of the newer
RegExpr unit by Andrey V. Sorokin in 2011-08.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit OldRegExpr;
{$mode objfpc}{$H+}
interface
uses
Regex;
type
tregexprflag = (
ref_singleline,
{** This indicates that a start of line is either the
start of the pattern or a linebreak. }
ref_multiline,
{** The match will be done in a case-insensitive way
according to US-ASCII character set. }
ref_caseinsensitive);
tregexprflags = set of tregexprflag;
TRegExprEngine = TRegexEngine;
function GenerateRegExprEngine(regexpr : pchar;flags : tregexprflags;var RegExprEngine: TRegExprEngine): boolean;
function GenerateRegExprEngine(regexpr : pchar;flags : tregexprflags): TREGExprEngine;
procedure DestroyRegExprEngine(var regexpr : TRegExprEngine);
function RegExprPos(RegExprEngine : TRegExprEngine;p : pchar;var index,len : longint) : boolean;
function RegExprReplaceAll(RegExprEngine : TRegExprEngine;const src,newstr : ansistring;var dest : ansistring) : sizeint;
function RegExprEscapeStr (const S : string) : string;
implementation
function GenerateRegExprEngine(regexpr: pchar; flags: tregexprflags;
var RegExprEngine: TRegExprEngine): boolean;
var ErrorPos : Integer;
ErrorCode : TRegexError;
begin
RegExprEngine := TRegExprEngine.Create(regexpr);
if ref_multiline in flags then RegExprEngine.MultiLine:=True;
if ref_caseinsensitive in flags then RegExprEngine.IgnoreCase:=True;
Result := RegExprEngine.Parse(ErrorPos,ErrorCode);
end;
function GenerateRegExprEngine(regexpr: pchar; flags: tregexprflags
): TREGExprEngine;
var r: TRegExprEngine;
begin
GenerateRegExprEngine(regexpr,flags,r);
GenerateRegExprEngine:=r;
end;
procedure DestroyRegExprEngine(var regexpr: TRegExprEngine);
begin
if regexpr <> nil then
regexpr.Free;
regexpr := nil;
end;
function RegExprPos(RegExprEngine: TRegExprEngine; p: pchar; var index,
len: longint): boolean;
begin
Len := 1;
Result := RegExprEngine.MatchString(p,index,len);
Len := Len - index;
Dec(Index);
if not Result then
begin
index := -1;
len := 0;
end;
end;
function RegExprReplaceAll(RegExprEngine: TRegExprEngine; const src,
newstr: ansistring; var dest: ansistring): sizeint;
begin
result := RegExprEngine.ReplaceAllString(src,newstr,Dest);
end;
function RegExprEscapeStr(const S: string): string;
var
i, len : integer;
s1: string;
begin
RegExprEscapeStr:= '';
s1:='';
if (S = '') then
exit;
len := Length (S);
for i := 1 to len do
begin
if (S [i] in ['(','|', '.', '*', '?', '^', '$', '-', '[', '{', '}', ']', ')', '\']) then
begin
s1 := s1 + '\';
end;
s1 := s1 + S[i];
end;
RegExprEscapeStr:=s1;
end;
end.
|
