Browse Source

* Dotted filenames for package libxml

Michaël Van Canneyt 2 years ago
parent
commit
0cb53989cc

+ 3 - 0
packages/libxml/namespaced/Api.XML.Xml2.pas

@@ -0,0 +1,3 @@
+unit Api.XML.Xml2;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i xml2.pas}

+ 3 - 0
packages/libxml/namespaced/Api.XML.Xsd.pas

@@ -0,0 +1,3 @@
+unit Api.XML.Xsd;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i xmlxsd.pas}

+ 3 - 0
packages/libxml/namespaced/Api.XML.Xsdparser.pas

@@ -0,0 +1,3 @@
+unit Api.XML.Xsdparser;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i xmlxsdparser.pas}

+ 5 - 0
packages/libxml/namespaces.lst

@@ -0,0 +1,5 @@
+src/xmlxsdparser.pas=namespaced/Api.XML.Xsdparser.pas
+{s*:src/}=namespaced/
+{i+:src/}
+src/xml2.pas=namespaced/Api.XML.Xml2.pas
+src/xmlxsd.pas=namespaced/Api.XML.Xsd.pas

+ 8 - 0
packages/libxml/src/xml2.pas

@@ -3,7 +3,9 @@
   Copyright (C) 2008 by Ivo Steinmann
   Copyright (C) 2008 by Ivo Steinmann
 }
 }
 
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit xml2;
 unit xml2;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}
 {$mode objfpc}
 {$H+}
 {$H+}
@@ -14,9 +16,15 @@ unit xml2;
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.DynLibs,
+  System.CTypes;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   dynlibs,
   dynlibs,
   ctypes;
   ctypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 const
 const
 {$IF Defined(WINDOWS)}
 {$IF Defined(WINDOWS)}

+ 13 - 0
packages/libxml/src/xmlxsd.pas

@@ -3,13 +3,25 @@
   Copyright (C) 2008 by Ivo Steinmann
   Copyright (C) 2008 by Ivo Steinmann
 }
 }
 
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit xmlxsd;
 unit xmlxsd;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}
 {$mode objfpc}
 {$H+}
 {$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.CTypes,
+  Api.XML.Xml2,
+  Api.XML.Xsdparser,
+  System.Math,
+  System.Classes,
+  System.DateUtils,
+  System.SysUtils;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   ctypes,
   ctypes,
   xml2,
   xml2,
@@ -18,6 +30,7 @@ uses
   Classes,
   Classes,
   DateUtils,
   DateUtils,
   SysUtils;
   SysUtils;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 resourcestring
 resourcestring
   SChildNotFound = 'child %s not found';
   SChildNotFound = 'child %s not found';

+ 12 - 0
packages/libxml/src/xmlxsdparser.pas

@@ -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';