Browse Source

* Dotted filenames for package fcl-mustache

Michaël Van Canneyt 2 years ago
parent
commit
6b308b9416

+ 3 - 0
packages/fcl-mustache/namespaced/Mustache.Base.pp

@@ -0,0 +1,3 @@
+unit Mustache.Base;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpmustache.pp}

+ 3 - 0
packages/fcl-mustache/namespaced/Mustache.Data.pp

@@ -0,0 +1,3 @@
+unit Mustache.Data;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpdbmustache.pp}

+ 3 - 0
packages/fcl-mustache/namespaced/Mustache.Extended.pp

@@ -0,0 +1,3 @@
+unit Mustache.Extended;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpexmustache.pp}

+ 5 - 0
packages/fcl-mustache/namespaces.lst

@@ -0,0 +1,5 @@
+src/fpmustache.pp=namespaced/Mustache.Base.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/fpexmustache.pp=namespaced/Mustache.Extended.pp
+src/fpdbmustache.pp=namespaced/Mustache.Data.pp

+ 11 - 0
packages/fcl-mustache/src/fpdbmustache.pp

@@ -13,14 +13,21 @@
 
  **********************************************************************}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpdbmustache;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode ObjFPC}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, Data.Db, Mustache.Base;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes, SysUtils, db, fpMustache;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Type
 
@@ -79,7 +86,11 @@ Type
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.StrUtils;
+{$ELSE FPC_DOTTEDUNITS}
 uses StrUtils;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Resourcestring
   SErrPopSectionNoPush = 'PopSection %s without push';

+ 11 - 0
packages/fcl-mustache/src/fpexmustache.pp

@@ -13,14 +13,21 @@
 
  **********************************************************************}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpexmustache;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode ObjFPC}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, Fcl.Expressions, Mustache.Base, FpJson.Data;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes, fpexprpars, fpmustache, fpjson;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Type
 
@@ -102,7 +109,11 @@ Type
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.SysUtils;
+{$ELSE FPC_DOTTEDUNITS}
 uses sysutils;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Resourcestring
   SErrLengthStartMustBe1 = 'Length expression start delimiter must be 1';

+ 11 - 0
packages/fcl-mustache/src/fpmustache.pp

@@ -13,14 +13,21 @@
 
  **********************************************************************}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpmustache;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}{$H+}
 {$WARN 5024 off : Parameter "$1" not used}
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, FpJson.Data;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes, SysUtils, fpjson;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Type
   EMustache = Class(Exception);
@@ -333,7 +340,11 @@ Const
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.TypInfo;
+{$ELSE FPC_DOTTEDUNITS}
 uses TypInfo;
+{$ENDIF FPC_DOTTEDUNITS}