Browse Source

* fix headers other packages up to (but not including) fcl-res (which are generated files) bug #39481

marcoonthegit 3 năm trước cách đây
mục cha
commit
476a4f0f91
31 tập tin đã thay đổi với 468 bổ sung7 xóa
  1. 16 0
      packages/fcl-fpcunit/src/DUnitCompatibleInterface.inc
  2. 15 0
      packages/fcl-fpcunit/src/digesttestreport.pp
  3. 15 0
      packages/fcl-image/tests/tcbarcodes.pas
  4. 15 0
      packages/fcl-json/src/fpjsonrtti.pp
  5. 15 0
      packages/fcl-json/src/jsonini.pp
  6. 15 0
      packages/fcl-net/src/amiga/resolve.inc
  7. 14 0
      packages/fcl-net/src/aros/resolve.inc
  8. 15 0
      packages/fcl-net/src/sslbase.pp
  9. 15 0
      packages/fcl-net/src/unix/resolve.inc
  10. 14 0
      packages/fcl-net/src/win/resolve.inc
  11. 14 0
      packages/fcl-passrc/src/passrcutil.pp
  12. 15 0
      packages/fcl-pdf/src/fontmetrics_stdpdf.inc
  13. 14 2
      packages/fcl-process/src/amicommon/process.inc
  14. 14 2
      packages/fcl-process/src/amicommon/simpleipc.inc
  15. 13 2
      packages/fcl-process/src/dummy/process.inc
  16. 16 0
      packages/fcl-registry/src/regdef.inc
  17. 15 0
      packages/fcl-registry/src/regini.inc
  18. 16 0
      packages/fcl-registry/src/registry.pp
  19. 17 0
      packages/fcl-registry/src/winreg.inc
  20. 17 0
      packages/fcl-registry/src/xmlreg.pp
  21. 16 0
      packages/fcl-registry/src/xregreg.inc
  22. 16 1
      packages/fcl-report/src/fpreportdata.pp
  23. 15 0
      packages/fcl-report/src/fpreportdatacsv.pp
  24. 15 0
      packages/fcl-report/src/fpreportdatadbf.pp
  25. 15 0
      packages/fcl-report/src/fpreportdatajson.pp
  26. 15 0
      packages/fcl-report/src/fpreporthtmlutil.pp
  27. 15 0
      packages/fcl-report/test/tcbasereport.pp
  28. 15 0
      packages/fcl-report/test/tchtmlparser.pas
  29. 15 0
      packages/fcl-report/test/tcreportdom.pp
  30. 15 0
      packages/fcl-report/test/tcreportgenerator.pas
  31. 16 0
      packages/fcl-report/test/tcreportstreamer.pp

+ 16 - 0
packages/fcl-fpcunit/src/DUnitCompatibleInterface.inc

@@ -1,5 +1,21 @@
 {%MainUnit fpcunit.pp}
 
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canney and other members of the
+    Free Pascal development team
+
+    DUnit compatibility
+
+    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.
+
+ **********************************************************************}
+
 {$IFDEF read_interface}
 
     class procedure Check(pValue: boolean; pMessage: string = '');

+ 15 - 0
packages/fcl-fpcunit/src/digesttestreport.pp

@@ -1,4 +1,19 @@
 unit DigestTestReport;
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canney and other members of the
+    Free Pascal development team
+
+    Digest Test Report
+
+    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.
+
+ **********************************************************************}
 
 {$mode objfpc}{$H+}
 

+ 15 - 0
packages/fcl-image/tests/tcbarcodes.pas

@@ -1,4 +1,19 @@
 unit tcbarcodes;
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canney and other members of the
+    Free Pascal development team
+
+    Test Bar codes
+
+    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.
+
+ **********************************************************************}
 
 {$mode objfpc}{$H+}
 

+ 15 - 0
packages/fcl-json/src/fpjsonrtti.pp

@@ -1,4 +1,19 @@
 unit fpjsonrtti;
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canney and other members of the
+    Free Pascal development team
+
+    Json RTTI support
+
+    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.
+
+ **********************************************************************}
 
 {$mode objfpc}
 

+ 15 - 0
packages/fcl-json/src/jsonini.pp

@@ -1,4 +1,19 @@
 unit jsonini;
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canney and other members of the
+    Free Pascal development team
+
+    Json ini support
+
+    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.
+
+ **********************************************************************}
 
 {$mode objfpc}
 {$h+}

+ 15 - 0
packages/fcl-net/src/amiga/resolve.inc

@@ -1,3 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canney and other members of the
+    Free Pascal development team
+
+    Amiga parts of the resolver
+
+    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.
+
+ **********************************************************************}
 
 uses
   Sysutils;

+ 14 - 0
packages/fcl-net/src/aros/resolve.inc

@@ -1,4 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canney and other members of the
+    Free Pascal development team
 
+    Aros parts of the resolver
+
+    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.
+
+ **********************************************************************}
 uses
   Sysutils;
 const

+ 15 - 0
packages/fcl-net/src/sslbase.pp

@@ -1,4 +1,19 @@
 unit sslbase;
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canney and other members of the
+    Free Pascal development team
+
+    SSL Base unit
+
+    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.
+
+ **********************************************************************}
 
 {$mode objfpc}{$H+}
 

+ 15 - 0
packages/fcl-net/src/unix/resolve.inc

@@ -1,3 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canney and other members of the
+    Free Pascal development team
+
+    *nix parts of the resolver
+
+    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.
+
+ **********************************************************************}
 uses
   initc;
 

+ 14 - 0
packages/fcl-net/src/win/resolve.inc

@@ -1,4 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canney and other members of the
+    Free Pascal development team
 
+    Winapi parts of the resolver
+
+    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.
+
+ **********************************************************************}
 uses winsock;
 
 Type

+ 14 - 0
packages/fcl-passrc/src/passrcutil.pp

@@ -1,5 +1,19 @@
 unit passrcutil;
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canney and other members of the
+    Free Pascal development team
 
+    fcl-passrc utils
+
+    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.
+
+ **********************************************************************}
 {$mode objfpc}{$H+}
 
 interface

+ 15 - 0
packages/fcl-pdf/src/fontmetrics_stdpdf.inc

@@ -1,3 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canney and other members of the
+    Free Pascal development team
+
+    Font Metrics for standard pdf
+
+    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.
+
+ **********************************************************************}
 const
 
   // helvetica  (used metric equivalent Liberation Sans as substitute)

+ 14 - 2
packages/fcl-process/src/amicommon/process.inc

@@ -1,6 +1,18 @@
 {
-  Dummy process.inc - the simplest version based on SysUtils.ExecuteProcess
-}
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Karoly Balogh and other members of the
+    Free Pascal development team
+
+    Amiga  Dummy process.inc - the simplest version based on SysUtils.ExecuteProcess
+
+    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.
+
+ **********************************************************************}
 
 uses
   Exec, AmigaDos, Utility;

+ 14 - 2
packages/fcl-process/src/amicommon/simpleipc.inc

@@ -1,6 +1,18 @@
 {
-  Amiga style simpleipc.inc
-}
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Karoly Balogh and other members of the
+    Free Pascal development team
+
+    Amiga style simple ipc
+
+    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.
+
+ **********************************************************************}
 
 {$DEFINE OSNEEDIPCINITDONE}
 

+ 13 - 2
packages/fcl-process/src/dummy/process.inc

@@ -1,7 +1,18 @@
 {
-  Dummy process.inc - the simplest version based on SysUtils.ExecuteProcess
-}
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
 
+    Dummy process.inc - the simplest version based on SysUtils.ExecuteProcess
+
+    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.
+
+ **********************************************************************}
 
 Resourcestring
   SNoCommandLine        = 'Cannot execute empty command-line';

+ 16 - 0
packages/fcl-registry/src/regdef.inc

@@ -1,3 +1,19 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    Registry definitions
+
+    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.
+
+ **********************************************************************}
+
 Type
   HKEY = THandle;
   PHKEY = ^HKEY;

+ 15 - 0
packages/fcl-registry/src/regini.inc

@@ -1,3 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    Registry ini file support
+
+    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.
+
+ **********************************************************************}
 
 {******************************************************************************
                                 TRegIniFile

+ 16 - 0
packages/fcl-registry/src/registry.pp

@@ -1,3 +1,19 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    Core registry unit
+
+    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 Registry;
 
 {$mode objfpc}

+ 17 - 0
packages/fcl-registry/src/winreg.inc

@@ -1,3 +1,20 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    Winapi Registry support
+
+    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.
+
+ **********************************************************************}
+
+
 Const
   RegDataWords : Array [TRegDataType] of DWORD
                = (REG_NONE,REG_SZ,REG_EXPAND_SZ,REG_BINARY,REG_DWORD,REG_DWORD_BIG_ENDIAN,

+ 17 - 0
packages/fcl-registry/src/xmlreg.pp

@@ -1,3 +1,20 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    XML Registry emulation
+
+    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.
+
+ **********************************************************************}
+
+
 {$mode objfpc}
 {$h+}
 

+ 16 - 0
packages/fcl-registry/src/xregreg.inc

@@ -1,3 +1,19 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    XML Registry aux support
+
+    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.
+
+ **********************************************************************}
+
 
 { ---------------------------------------------------------------------
     System dependent Registry implementation - using XML file.

+ 16 - 1
packages/fcl-report/src/fpreportdata.pp

@@ -1,5 +1,20 @@
-unit fpreportdata;
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    report data 
+
+    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 fpreportdata;
 {$mode objfpc}{$H+}
 
 interface

+ 15 - 0
packages/fcl-report/src/fpreportdatacsv.pp

@@ -1,3 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    report data csv
+
+    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 fpreportdatacsv;
 
 {$mode objfpc}{$H+}

+ 15 - 0
packages/fcl-report/src/fpreportdatadbf.pp

@@ -1,3 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    report data dbf
+
+    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 fpreportdatadbf;
 
 {$mode objfpc}{$H+}

+ 15 - 0
packages/fcl-report/src/fpreportdatajson.pp

@@ -1,3 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    report data json
+
+    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 fpreportdatajson;
 
 {$mode objfpc}{$H+}

+ 15 - 0
packages/fcl-report/src/fpreporthtmlutil.pp

@@ -1,3 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    report html util
+
+    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 fpreporthtmlutil;
 
 {$mode objfpc}{$H+}

+ 15 - 0
packages/fcl-report/test/tcbasereport.pp

@@ -1,3 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    base report tests 
+
+    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 tcbasereport;
 
 {$mode objfpc}{$H+}

+ 15 - 0
packages/fcl-report/test/tchtmlparser.pas

@@ -1,3 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    report html parser test
+
+    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 tchtmlparser;
 
 {$mode objfpc}{$H+}

+ 15 - 0
packages/fcl-report/test/tcreportdom.pp

@@ -1,3 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    test report dom
+
+    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 tcreportdom;
 
 {$mode objfpc}{$H+}

+ 15 - 0
packages/fcl-report/test/tcreportgenerator.pas

@@ -1,3 +1,18 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    test report generator
+
+    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 tcreportgenerator;
 
 {$mode objfpc}{$H+}

+ 16 - 0
packages/fcl-report/test/tcreportstreamer.pp

@@ -1,3 +1,19 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2022 by Michael van Canneyt and other members of the
+    Free Pascal development team
+
+    test report streamer
+
+    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 tcreportstreamer;
 
 {$mode objfpc}{$H+}