* Dotted filenames for package fcl-pdf

packages/fcl-pdf/namespaced/FpPdf.Commands.pp

@@ -0,0 +1,3 @@
+unit FpPdf.Commands;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fppdfcommands.pp}

packages/fcl-pdf/namespaced/FpPdf.Consts.pp

@@ -0,0 +1,3 @@
+unit FpPdf.Consts;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fppdfconsts.pp}

packages/fcl-pdf/namespaced/FpPdf.FontTextMapping.pp

@@ -0,0 +1,3 @@
+unit FpPdf.FontTextMapping;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpfonttextmapping.pp}

packages/fcl-pdf/namespaced/FpPdf.Objects.pp

@@ -0,0 +1,3 @@
+unit FpPdf.Objects;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fppdfobjects.pp}

packages/fcl-pdf/namespaced/FpPdf.Parser.pp

@@ -0,0 +1,3 @@
+unit FpPdf.Parser;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fppdfparser.pp}

packages/fcl-pdf/namespaced/FpPdf.Pdf.pp

@@ -0,0 +1,3 @@
+unit FpPdf.Pdf;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fppdf.pp}

packages/fcl-pdf/namespaced/FpPdf.Predict.pp

@@ -0,0 +1,3 @@
+unit FpPdf.Predict;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fppdfpredict.pp}

packages/fcl-pdf/namespaced/FpPdf.Scanner.pp

@@ -0,0 +1,3 @@
+unit FpPdf.Scanner;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fppdfscanner.pp}

packages/fcl-pdf/namespaced/FpPdf.Source.pp

@@ -0,0 +1,3 @@
+unit FpPdf.Source;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fppdfsource.pp}

packages/fcl-pdf/namespaced/FpPdf.Ttf.Encodings.pp

@@ -0,0 +1,3 @@
+unit FpPdf.Ttf.Encodings;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpttfencodings.pp}

packages/fcl-pdf/namespaced/FpPdf.Ttf.Parser.pp

@@ -0,0 +1,3 @@
+unit FpPdf.Ttf.Parser;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpparsettf.pp}

packages/fcl-pdf/namespaced/FpPdf.Ttf.Subsetter.pp

@@ -0,0 +1,3 @@
+unit FpPdf.Ttf.Subsetter;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpttfsubsetter.pp}

packages/fcl-pdf/namespaced/FpPdf.Ttf.pp

@@ -0,0 +1,3 @@
+unit FpPdf.Ttf;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpttf.pp}

packages/fcl-pdf/namespaces.lst

@@ -0,0 +1,15 @@
+src/fppdfpredict.pp=namespaced/FpPdf.Predict.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/fppdfparser.pp=namespaced/FpPdf.Parser.pp
+src/fppdfobjects.pp=namespaced/FpPdf.Objects.pp
+src/fppdfscanner.pp=namespaced/FpPdf.Scanner.pp
+src/fpfonttextmapping.pp=namespaced/FpPdf.FontTextMapping.pp
+src/fpttfsubsetter.pp=namespaced/FpPdf.Ttf.Subsetter.pp
+src/fppdfconsts.pp=namespaced/FpPdf.Consts.pp
+src/fppdf.pp=namespaced/FpPdf.Pdf.pp
+src/fpttfencodings.pp=namespaced/FpPdf.Ttf.Encodings.pp
+src/fpttf.pp=namespaced/FpPdf.Ttf.pp
+src/fpparsettf.pp=namespaced/FpPdf.Ttf.Parser.pp
+src/fppdfsource.pp=namespaced/FpPdf.Source.pp
+src/fppdfcommands.pp=namespaced/FpPdf.Commands.pp

packages/fcl-pdf/src/fpfonttextmapping.pp

@@ -14,16 +14,25 @@
 
  **********************************************************************}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit FPFontTextMapping;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes,
+  System.SysUtils,
+  System.Contnrs;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes,
   SysUtils,
   contnrs;
+{$ENDIF FPC_DOTTEDUNITS}
 
 type
 

packages/fcl-pdf/src/fpparsettf.pp

@@ -12,7 +12,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpparsettf;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}
 {$h+}
@@ -22,10 +24,17 @@ unit fpparsettf;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes,
+  System.SysUtils,
+  FpPdf.Ttf.Encodings;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes,
   SysUtils,
   fpttfencodings;
+{$ENDIF FPC_DOTTEDUNITS}
 
 type
   ETTF = Class(Exception);

packages/fcl-pdf/src/fppdf.pp

@@ -20,7 +20,9 @@
        If you do localise anything, make sure you know what you are doing.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpPDF;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}{$H+}
 
@@ -29,6 +31,19 @@ unit fpPDF;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes,
+  System.SysUtils,
+  System.StrUtils,
+  System.Contnrs,
+  FpImage,
+  FpImage.Reader.JPEG, FpImage.Reader.PNG, FpImage.Reader.Bitmap, // these are required for auto image-handler functionality
+  System.ZLib.Zstream,
+  FpPdf.Ttf.Parser,
+  FpPdf.Ttf.Subsetter,
+  FpPdf.FontTextMapping;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes,
   SysUtils,
@@ -40,6 +55,7 @@ uses
   fpparsettf,
   fpTTFSubsetter,
   FPFontTextMapping;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Const
   { Some popular predefined colors. Channel format is: RRGGBB }
@@ -1258,10 +1274,17 @@ Operator = (a,b : TPDFPaper) z : boolean;
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Math,
+  System.Hash.Md5,
+  FpPdf.Ttf;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   math,
   md5,
   fpttf;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 resourcestring

packages/fcl-pdf/src/fppdfcommands.pp

@@ -1,11 +1,17 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fppdfcommands;
+{$ENDIF}
 
 {$mode ObjFPC}{$H+}
 
 interface
 
 uses
+{$IFDEF FPC_DOTTEDUNITS}
+  System.Classes, System.SysUtils, FpPdf.Consts, System.Types, FpPdf.Objects;
+{$ELSE}
   Classes, SysUtils, fppdfconsts, types, fppdfobjects;
+{$ENDIF}
 
 Type
 

packages/fcl-pdf/src/fppdfconsts.pp

@@ -1,4 +1,20 @@
+{ **********************************************************************
+  This file is part of the Free Component Library
+
+  PDF names/constants.
+  Copyright (c) 2022 by Michael Van Canneyt [email protected]
+
+  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.
+
+  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fppdfconsts;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode ObjFPC}{$H+}
 

packages/fcl-pdf/src/fppdfobjects.pp

@@ -14,7 +14,9 @@
 
   **********************************************************************}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fppdfobjects;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode ObjFPC}{$H+}
 {$modeswitch advancedrecords}
@@ -25,9 +27,11 @@ unit fppdfobjects;
 interface
 
 uses
-  TypInfo,
-  Types,
-  rtlConsts, SysUtils, Classes, Contnrs, fppdfconsts;
+{$IFDEF FPC_DOTTEDUNITS}
+  System.TypInfo, System.Types, System.RtlConsts, System.SysUtils, System.Classes, System.Contnrs, FpPdf.Consts;
+{$ELSE FPC_DOTTEDUNITS}
+  TypInfo, Types, rtlConsts, SysUtils, Classes, Contnrs, fppdfconsts;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Const
   PDFTextArraySpaceTreshold = 200;

packages/fcl-pdf/src/fppdfparser.pp

@@ -13,7 +13,9 @@
 
   **********************************************************************}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fppdfparser;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode ObjFPC}{$H+}
 {$J-}
@@ -25,7 +27,11 @@ unit fppdfparser;
 interface
 
 uses
+{$IFDEF FPC_DOTTEDUNITS}
+  System.Types, System.TypInfo, System.Classes, System.SysUtils, FpPdf.Objects, FpPdf.Scanner, FpPdf.Source, Fcl.Streams.Extra, FpPdf.Predict, FpPdf.Commands;
+{$ELSE FPC_DOTTEDUNITS}
   Types, Typinfo, Classes, SysUtils, fppdfobjects, fppdfscanner, fppdfsource, streamex, fppdfpredict, fppdfcommands;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Const
   PDFMaxTrailerDistance = 6;  // Maximum number of bytes to scan backwards for trailer dictionary end: >>
@@ -244,7 +250,11 @@ Const
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.StrUtils, System.ZLib.Zstream, System.Hash.Ascii85, Fcl.Streams.Chained, Fcl.Streams.LZW, FpPdf.Consts;
+{$ELSE FPC_DOTTEDUNITS}
 uses strutils, zstream, ascii85, chainstream, lzwstream, fppdfconsts;
+{$ENDIF FPC_DOTTEDUNITS}
 
 resourcestring
   SErrNoStartXRef = 'No startxref found, starting at position %d';

packages/fcl-pdf/src/fppdfpredict.pp

@@ -13,14 +13,21 @@
 
   **********************************************************************}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fppdfpredict;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode ObjFPC}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, FpImage.Reader.PNG  ;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes, SysUtils, fpreadpng  ;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Type
   EPDFPredict = Class(Exception);

packages/fcl-pdf/src/fppdfscanner.pp

@@ -12,14 +12,21 @@
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
   **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fppdfscanner;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode ObjFPC}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, FpPdf.Objects, FpPdf.Source;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes, SysUtils, fppdfobjects, fppdfsource;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Const
   PDFStringLengthDelta = 100;

packages/fcl-pdf/src/fppdfsource.pp

@@ -18,14 +18,21 @@
   we implement this here.
 }
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fppdfsource;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode ObjFPC}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes, SysUtils;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Const
   PDFDefaultBufferSize  = 4 * 1024; // 4K buffer

packages/fcl-pdf/src/fpttf.pp

@@ -17,7 +17,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpTTF;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}{$H+}
 
@@ -25,11 +27,19 @@ unit fpTTF;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes,
+  System.SysUtils,
+  System.Contnrs,
+  FpPdf.Ttf.Parser;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes,
   SysUtils,
   contnrs,
   fpparsettf;
+{$ENDIF FPC_DOTTEDUNITS}
 
 type
 
@@ -136,6 +146,17 @@ function gTTFontCache: TFPFontCacheList;
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  Xml.Dom
+  ,Xml.Read
+  {$ifdef mswindows}
+  ,WinApi.Windows  // for SHGetFolderPath API call used by gTTFontCache.ReadStandardFonts() method
+  ,WinApi.Shlobj
+  ,WinApi.Activex
+  {$endif}
+  ;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   DOM
   ,XMLRead
@@ -144,6 +165,7 @@ uses
   Shlobj,activex
   {$endif}
   ;
+{$ENDIF FPC_DOTTEDUNITS}
 
 resourcestring
   rsNoSearchPathDefined = 'No search path was defined';
@@ -380,7 +402,7 @@ var
   lFont: TFPFontCacheItem;
   s: String;
 begin
-  if SysUtils.FindFirst(AFontPath + AllFilesMask, faAnyFile, sr) = 0 then
+  if {$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.FindFirst(AFontPath + AllFilesMask, faAnyFile, sr) = 0 then
   begin
     repeat
       // check if special files to skip
@@ -404,9 +426,9 @@ begin
           end;
         end;
       end;
-    until SysUtils.FindNext(sr) <> 0;
+    until {$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.FindNext(sr) <> 0;
   end;
-  SysUtils.FindClose(sr);
+  {$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.FindClose(sr);
 end;
 
 procedure TFPFontCacheList.SetDPI(AValue: integer);

packages/fcl-pdf/src/fpttfencodings.pp

@@ -13,14 +13,21 @@
 
  **********************************************************************}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpttfencodings;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.SysUtils;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   SysUtils;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Type
   TTTFEncoding =

packages/fcl-pdf/src/fpttfsubsetter.pp

@@ -14,7 +14,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpTTFSubsetter;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}{$H+}
 
@@ -25,12 +27,21 @@ unit fpTTFSubsetter;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes,
+  System.SysUtils,
+  System.Contnrs,
+  FpPdf.Ttf.Parser,
+  FpPdf.FontTextMapping;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes,
   SysUtils,
   contnrs,
   fpparsettf,
   FPFontTextMapping;
+{$ENDIF FPC_DOTTEDUNITS}
 
 type
   ETTFSubsetter = class(Exception);
@@ -155,8 +166,13 @@ type
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Math;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   math;
+{$ENDIF FPC_DOTTEDUNITS}
 
 resourcestring
   rsErrFontInfoNotAssigned = 'FontInfo was not assigned';