|
@@ -5,6 +5,9 @@
|
|
|
|
|
|
|
|
Compatibility unit for the old regexpr unit.
|
|
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,
|
|
See the file COPYING.FPC, included in this distribution,
|
|
|
for details about the copyright.
|
|
for details about the copyright.
|
|
|
|
|
|
|
@@ -14,7 +17,7 @@
|
|
|
|
|
|
|
|
**********************************************************************}
|
|
**********************************************************************}
|
|
|
|
|
|
|
|
-unit RegExpr;
|
|
|
|
|
|
|
+unit OldRegExpr;
|
|
|
|
|
|
|
|
{$mode objfpc}{$H+}
|
|
{$mode objfpc}{$H+}
|
|
|
|
|
|
|
@@ -61,7 +64,7 @@ end;
|
|
|
|
|
|
|
|
function GenerateRegExprEngine(regexpr: pchar; flags: tregexprflags
|
|
function GenerateRegExprEngine(regexpr: pchar; flags: tregexprflags
|
|
|
): TREGExprEngine;
|
|
): TREGExprEngine;
|
|
|
-
|
|
|
|
|
|
|
+
|
|
|
var r: TRegExprEngine;
|
|
var r: TRegExprEngine;
|
|
|
|
|
|
|
|
begin
|
|
begin
|
pierre