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

* Dotted filenames for package odata

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:01 +01:00
parent 42928f9973
commit eba6b08625
11 changed files with 60 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/odata/namespaced/Web.OData.MsGraph.pp Normal file
View File

@ -0,0 +1,3 @@
unit Web.OData.MsGraph;
{$DEFINE FPC_DOTTEDUNITS}
{$i msgraph.pp}

3
packages/odata/namespaced/Web.OData.Office365Client.pp Normal file
View File

@ -0,0 +1,3 @@
unit Web.OData.Office365Client;
{$DEFINE FPC_DOTTEDUNITS}
{$i office365client.pp}

3
packages/odata/namespaced/Web.OData.Service.pp Normal file
View File

@ -0,0 +1,3 @@
unit Web.OData.Service;
{$DEFINE FPC_DOTTEDUNITS}
{$i odataservice.pp}

3
packages/odata/namespaced/Web.OData.Sharepoint.pp Normal file
View File

@ -0,0 +1,3 @@
unit Web.OData.Sharepoint;
{$DEFINE FPC_DOTTEDUNITS}
{$i sharepoint.pp}

3
packages/odata/namespaced/Web.OData.Types.pp Normal file
View File

@ -0,0 +1,3 @@
unit Web.OData.Types;
{$DEFINE FPC_DOTTEDUNITS}
{$i odatabase.pp}

7
packages/odata/namespaces.lst Normal file
View File

@ -0,0 +1,7 @@
src/msgraph.pp=namespaced/Web.OData.MsGraph.pp
{s*:src/}=namespaced/
{i+:src/}
src/sharepoint.pp=namespaced/Web.OData.Sharepoint.pp
src/odataservice.pp=namespaced/Web.OData.Service.pp
src/odatabase.pp=namespaced/Web.OData.Types.pp
src/office365client.pp=namespaced/Web.OData.Office365Client.pp

6
packages/odata/src/msgraph.pp
View File

@ -1,10 +1,16 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit msgraph;
{$ENDIF FPC_DOTTEDUNITS}
{$MODE objfpc}
{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses System.SysUtils, System.Classes, FpJson.Data, FpWeb.Rest.Base, Web.OData.Types, Web.OData.Service;
{$ELSE FPC_DOTTEDUNITS}
uses sysutils, classes, fpjson, restbase, odatabase, odataservice;
{$ENDIF FPC_DOTTEDUNITS}
(*
Options used to generate:

7
packages/odata/src/odatabase.pp
View File

@ -1,11 +1,18 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit odatabase;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.TypInfo,System.Classes, System.SysUtils, FpJson.Data, FpWeb.Rest.Base;
{$ELSE FPC_DOTTEDUNITS}
uses
TypInfo,Classes, SysUtils, fpjson, restbase;
{$ENDIF FPC_DOTTEDUNITS}
Type
TInt16 = Type Smallint;

13
packages/odata/src/odataservice.pp
View File

@ -1,5 +1,5 @@
{ **********************************************************************
This file is part of the Free Component Library (FCL)
This file is part of the Free Component Library (Fcl)
Copyright (c) 2015 The free pascal team.
Base OData service API classes
@ -12,15 +12,22 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit odataservice;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
{$DEFINE DEBUGODATASERVICE}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Classes, System.SysUtils, System.Contnrs, FpWeb.Rest.Base, Web.OData.Types, FpWeb.Client, FpJson.Data;
{$ELSE FPC_DOTTEDUNITS}
uses
Classes, SysUtils, contnrs, restbase, odatabase, fpwebclient, fpjson;
{$ENDIF FPC_DOTTEDUNITS}
Type
TODataService = Class;
@ -275,7 +282,11 @@ Function ODataFactory : TODataServiceFactory;
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses Fcl.UriParser,FpWeb.Http.Defs;
{$ELSE FPC_DOTTEDUNITS}
uses uriparser,httpdefs;
{$ENDIF FPC_DOTTEDUNITS}
{ ---------------------------------------------------------------------
TODataServiceFactory

7
packages/odata/src/office365client.pp
View File

@ -1,11 +1,18 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit office365client;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Classes, System.SysUtils, FpWeb.Client, Jwt.Oauth2, Jwt.Types;
{$ELSE FPC_DOTTEDUNITS}
uses
Classes, SysUtils, fpwebclient, fpoauth2, fpjwt;
{$ENDIF FPC_DOTTEDUNITS}
Type
TAuthMethod = (amOAuth2);

6
packages/odata/src/sharepoint.pp
View File

@ -1,10 +1,16 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit sharepoint;
{$ENDIF FPC_DOTTEDUNITS}
{$MODE objfpc}
{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses System.SysUtils, System.Classes, FpJson.Data, FpWeb.Rest.Base, Web.OData.Types, Web.OData.Service;
{$ELSE FPC_DOTTEDUNITS}
uses sysutils, classes, fpjson, restbase, odatabase, odataservice;
{$ENDIF FPC_DOTTEDUNITS}
(*
Options used to generate: