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