paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 00:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package libxml

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:57:55 +01:00
parent c357977a1e
commit 0cb53989cc
7 changed files with 47 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/libxml/namespaced/Api.XML.Xml2.pas Normal file
View File

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

3
packages/libxml/namespaced/Api.XML.Xsd.pas Normal file
View File

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

3
packages/libxml/namespaced/Api.XML.Xsdparser.pas Normal file
View File

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

5
packages/libxml/namespaces.lst Normal file
View File

@ -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
packages/libxml/src/xml2.pas
View File

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

13
packages/libxml/src/xmlxsd.pas
View File

@ -3,13 +3,25 @@
Copyright (C) 2008 by Ivo Steinmann
}
{$IFNDEF FPC_DOTTEDUNITS}
unit xmlxsd;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}
{$H+}
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
ctypes,
xml2,
@ -18,6 +30,7 @@ uses
Classes,
DateUtils,
SysUtils;
{$ENDIF FPC_DOTTEDUNITS}
resourcestring
SChildNotFound = 'child %s not found';

12
packages/libxml/src/xmlxsdparser.pas
View File

@ -5,13 +5,24 @@
Copyright (C) 2011 by Ivo Steinmann
}
{$IFNDEF FPC_DOTTEDUNITS}
unit xmlxsdparser;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}
{$H+}
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
{$IFDEF MSWINDOWS}windows,{$ENDIF}
{$IFDEF UNIX}unix,{$ENDIF}
@ -19,6 +30,7 @@ uses
dateutils,
math,
Classes;
{$ENDIF FPC_DOTTEDUNITS}
resourcestring
SXsdParserError = 'parsing "%s" as "%s" failed';