|
@@ -5,13 +5,24 @@
|
|
Copyright (C) 2011 by Ivo Steinmann
|
|
Copyright (C) 2011 by Ivo Steinmann
|
|
}
|
|
}
|
|
|
|
|
|
|
|
+{$IFNDEF FPC_DOTTEDUNITS}
|
|
unit xmlxsdparser;
|
|
unit xmlxsdparser;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
|
{$mode objfpc}
|
|
{$mode objfpc}
|
|
{$H+}
|
|
{$H+}
|
|
|
|
|
|
interface
|
|
interface
|
|
|
|
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
+uses
|
|
|
|
+ {$IFDEF MSWINDOWS}WinApi.Windows,{$ENDIF}
|
|
|
|
+ {$IFDEF UNIX}UnixApi.Unix,{$ENDIF}
|
|
|
|
+ System.SysUtils,
|
|
|
|
+ System.DateUtils,
|
|
|
|
+ System.Math,
|
|
|
|
+ System.Classes;
|
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
uses
|
|
uses
|
|
{$IFDEF MSWINDOWS}windows,{$ENDIF}
|
|
{$IFDEF MSWINDOWS}windows,{$ENDIF}
|
|
{$IFDEF UNIX}unix,{$ENDIF}
|
|
{$IFDEF UNIX}unix,{$ENDIF}
|
|
@@ -19,6 +30,7 @@ uses
|
|
dateutils,
|
|
dateutils,
|
|
math,
|
|
math,
|
|
Classes;
|
|
Classes;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
|
resourcestring
|
|
resourcestring
|
|
SXsdParserError = 'parsing "%s" as "%s" failed';
|
|
SXsdParserError = 'parsing "%s" as "%s" failed';
|