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

* Rename units using fp prefix

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-11-13 15:17:57 +01:00
parent 82fdbbbbdc
commit 009c19a400
12 changed files with 35 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-hash/examples/demosha256.pp
View File

@ -3,7 +3,7 @@ program demosha256;
{$mode objfpc}
{$h+}
uses SysUtils, sha256, hashutils;
uses SysUtils, fpsha256, fphashutils;
procedure SHA256Test;

32
packages/fcl-hash/fpmake.pp
View File

@ -31,22 +31,22 @@ begin
P.Dependencies.Add('rtl-extra');
P.Version:='3.3.1';
T:=P.Targets.AddUnit('src/ecc.pp');
T:=P.Targets.AddUnit('src/hashutils.pp');
T.Dependencies.AddUnit('ecc');
T:=P.Targets.AddUnit('src/sha256.pp');
T.Dependencies.AddUnit('hashutils');
T:=P.Targets.AddUnit('src/sha512.pp');
T.Dependencies.AddUnit('hashutils');
T:=P.Targets.AddUnit('src/asn.pp');
T.Dependencies.AddUnit('hashutils');
T:=P.Targets.AddUnit('src/pem.pp');
T.Dependencies.AddUnit('hashutils');
T.Dependencies.AddUnit('asn');
T:=P.Targets.AddUnit('src/ecdsa.pp');
T.Dependencies.AddUnit('hashutils');
T.Dependencies.AddUnit('ecc');
T.Dependencies.AddUnit('sha256');
T:=P.Targets.AddUnit('src/fpecc.pp');
T:=P.Targets.AddUnit('src/fphashutils.pp');
T.Dependencies.AddUnit('fpecc');
T:=P.Targets.AddUnit('src/fpsha256.pp');
T.Dependencies.AddUnit('fphashutils');
T:=P.Targets.AddUnit('src/fpsha512.pp');
T.Dependencies.AddUnit('fphashutils');
T:=P.Targets.AddUnit('src/fpasn.pp');
T.Dependencies.AddUnit('fphashutils');
T:=P.Targets.AddUnit('src/fppem.pp');
T.Dependencies.AddUnit('fphashutils');
T.Dependencies.AddUnit('fpasn');
T:=P.Targets.AddUnit('src/fpecdsa.pp');
T.Dependencies.AddUnit('fphashutils');
T.Dependencies.AddUnit('fpecc');
T.Dependencies.AddUnit('fpsha256');
T:=P.Targets.AddUnit('src/onetimepass.pp');
T:=P.Targets.AddExampleunit('examples/demosha256.pp');

2
packages/fcl-hash/src/asn.pp → packages/fcl-hash/src/fpasn.pp
View File

@ -1,4 +1,4 @@
unit asn;
unit fpasn;
{$mode ObjFPC}{$H+}
{$modeswitch advancedrecords}

4
packages/fcl-hash/src/ecc.pp → packages/fcl-hash/src/fpecc.pp
View File

@ -10,7 +10,7 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
{$mode delphi}
unit ECC;
unit fpECC;
interface
@ -71,7 +71,7 @@ var
implementation
uses sysutils, hashutils;
uses sysutils, fphashutils;
type
UInt128 = record

4
packages/fcl-hash/src/ecdsa.pp → packages/fcl-hash/src/fpecdsa.pp
View File

@ -1,11 +1,11 @@
unit ecdsa;
unit fpecdsa;
{$mode ObjFPC}{$H+}
{$modeswitch advancedrecords}
interface
uses
sysutils, ecc, sha256;
sysutils, fpecc, fpsha256;
Type
{ TECDSA }

2
packages/fcl-hash/src/hashutils.pp → packages/fcl-hash/src/fphashutils.pp
View File

@ -9,7 +9,7 @@
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
unit hashutils;
unit fphashutils;
{$mode ObjFPC}{$H+}
{$modeswitch advancedrecords}

6
packages/fcl-hash/src/pem.pp → packages/fcl-hash/src/fppem.pp
View File

@ -1,11 +1,11 @@
unit pem;
unit fppem;
{$mode ObjFPC}{$H+}
interface
uses
Classes, SysUtils, ecc;
Classes, SysUtils, fpecc;
const
_BEGIN_CERTIFICATE = '-----BEGIN CERTIFICATE-----';
@ -34,7 +34,7 @@ Function PemLoadECDSA(const aStream : TStream; out PrivateKey: TEccPrivateKey; o
implementation
uses basenenc, sha256, asn, hashutils;
uses basenenc, fpsha256, fpasn, fphashutils;
procedure PemLoadPublicKey64FromList(List: TStrings; out PrivateKey: TEccPrivateKey; out PublicKey: TEccPublicKey; out PublicKeyX64, PublicKeyY64, ThumbPrint: AnsiString);

4
packages/fcl-hash/src/sha256.pp → packages/fcl-hash/src/fpsha256.pp
View File

@ -11,7 +11,7 @@
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
unit sha256;
unit fpsha256;
{$mode ObjFPC}{$H+}
{$MODESWITCH advancedrecords}
@ -68,7 +68,7 @@ Const
implementation
uses hashutils;
uses fphashutils;
//------------------------------------------------------------------------------
// SHA256

4
packages/fcl-hash/src/sha512.pp → packages/fcl-hash/src/fpsha512.pp
View File

@ -11,7 +11,7 @@
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
unit sha512;
unit fpsha512;
{$mode ObjFPC}{$H+}
{$modeswitch advancedrecords}
@ -20,7 +20,7 @@ unit sha512;
interface
uses
Classes, SysUtils, hashutils;
Classes, SysUtils, fphashutils;
Type
THashBuffer = array[0..127] of Byte;

4
packages/fcl-hash/tests/utestpem.pp
View File

@ -5,7 +5,7 @@ unit utestpem;
interface
uses
Classes, SysUtils, fpcunit, testregistry, asn, pem;
Classes, SysUtils, fpcunit, testregistry, fpasn, fppem;
Type
@ -18,7 +18,7 @@ Type
implementation
uses basenenc, hashutils, ecc;
uses basenenc, fphashutils, fpecc;
{ TTestPEM }

4
packages/fcl-hash/tests/utestsha256.pp
View File

@ -5,7 +5,7 @@ unit utestsha256;
interface
uses
Classes, SysUtils, fpcunit, testutils, testregistry, ecc, sha256, hashutils;
Classes, SysUtils, fpcunit, testutils, testregistry, fpecc, fpsha256, fphashutils;
type
@ -51,7 +51,7 @@ type
implementation
uses
pem, ecdsa, basenenc;
fppem, fpecdsa, basenenc;
{ TTestECDSASHA256 }

2
packages/fcl-hash/tests/utestsha512.pp
View File

@ -5,7 +5,7 @@ unit utestsha512;
interface
uses
Classes, SysUtils, fpcunit, testutils, testregistry, sha512, hashutils;
Classes, SysUtils, fpcunit, testutils, testregistry, fpsha512, fphashutils;
type