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

* Dotted filenames for package regexpr

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:03 +01:00
parent 43812138ca
commit d5ae0a0b99
8 changed files with 52 additions and 0 deletions

3
packages/regexpr/namespaced/System.Oldregexpr.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.Oldregexpr;
{$DEFINE FPC_DOTTEDUNITS}
{$i oldregexpr.pp}

3
packages/regexpr/namespaced/System.Regex.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.Regex;
{$DEFINE FPC_DOTTEDUNITS}
{$i regex.pp}

3
packages/regexpr/namespaced/System.Regexpr.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Regexpr;
{$DEFINE FPC_DOTTEDUNITS}
{$i regexpr.pas}

3
packages/regexpr/namespaced/System.URegexpr.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.URegexpr;
{$DEFINE FPC_DOTTEDUNITS}
{$i uregexpr.pp}

6
packages/regexpr/namespaces.lst Normal file
View File

@ -0,0 +1,6 @@
src/regexpr.pas=namespaced/System.Regexpr.pas
src/uregexpr.pp=namespaced/System.URegexpr.pas
{s*:src/}=namespaced/
{i+:src/}
src/oldregexpr.pp=namespaced/System.Oldregexpr.pp
src/regex.pp=namespaced/System.Regex.pp

7
packages/regexpr/src/oldregexpr.pp
View File

@ -17,15 +17,22 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit OldRegExpr;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}
{$H-}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Regex;
{$ELSE FPC_DOTTEDUNITS}
uses
Regex;
{$ENDIF FPC_DOTTEDUNITS}
type
tregexprflag = (

12
packages/regexpr/src/regex.pp
View File

@ -19,7 +19,9 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit Regex;
{$ENDIF FPC_DOTTEDUNITS}
{$mode Delphi}
{$H-}
@ -62,9 +64,15 @@ interface
followed by concatenation, finally followed by alternation.
}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.SysUtils,
System.Classes;
{$ELSE FPC_DOTTEDUNITS}
uses
SysUtils,
Classes;
{$ENDIF FPC_DOTTEDUNITS}
type
TUpcaseFunc = function(aCh : AnsiChar) : AnsiChar;
@ -193,7 +201,11 @@ Resourcestring
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses System.StrUtils;
{$ELSE FPC_DOTTEDUNITS}
uses strutils;
{$ENDIF FPC_DOTTEDUNITS}
const
MetaCharacters : set of AnsiChar =

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

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit regexpr;
{$ENDIF FPC_DOTTEDUNITS}
{
TRegExpr class library
@ -106,6 +108,18 @@ interface
{$IFDEF D8} {$DEFINE InlineFuncs} {$ENDIF}
{$IFDEF FPC} {$DEFINE InlineFuncs} {$ENDIF}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.SysUtils, // Exception
{$IFDEF D2009}
{$IFDEF D_XE2}
System.System.Character,
{$ELSE}
System.Character,
{$ENDIF}
{$ENDIF}
System.Classes; // TStrings in Split method
{$ELSE FPC_DOTTEDUNITS}
uses
SysUtils, // Exception
{$IFDEF D2009}
@ -116,6 +130,7 @@ uses
{$ENDIF}
{$ENDIF}
Classes; // TStrings in Split method
{$ENDIF FPC_DOTTEDUNITS}
type
{$IFNDEF FPC}