paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package sqlite

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:08 +01:00
parent 07db644128
commit e3bba8cf36
14 changed files with 66 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/sqlite/namespaced/Api.Sqlite.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Sqlite;
{$DEFINE FPC_DOTTEDUNITS}
{$i sqlite.pp}

3
packages/sqlite/namespaced/Api.Sqlite3.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Sqlite3;
{$DEFINE FPC_DOTTEDUNITS}
{$i sqlite3.pp}

3
packages/sqlite/namespaced/Api.Sqlite3db.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Sqlite3db;
{$DEFINE FPC_DOTTEDUNITS}
{$i sqlite3db.pas}

3
packages/sqlite/namespaced/Api.Sqlite3dyn.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Sqlite3dyn;
{$DEFINE FPC_DOTTEDUNITS}
{$i sqlite3dyn.pp}

3
packages/sqlite/namespaced/Api.Sqlite3ext.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Sqlite3ext;
{$DEFINE FPC_DOTTEDUNITS}
{$i sqlite3ext.pp}

3
packages/sqlite/namespaced/Api.Sqlitedb.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Sqlitedb;
{$DEFINE FPC_DOTTEDUNITS}
{$i sqlitedb.pas}

8
packages/sqlite/namespaces.lst Normal file
View File

@ -0,0 +1,8 @@
src/sqlite3.pp=namespaced/Api.Sqlite3.pp
{s*:src/}=namespaced/
{i+:src/}
src/sqlite.pp=namespaced/Api.Sqlite.pp
src/sqlite3ext.pp=namespaced/Api.Sqlite3ext.pp
src/sqlite3db.pas=namespaced/Api.Sqlite3db.pas
src/sqlitedb.pas=namespaced/Api.Sqlitedb.pas
src/sqlite3dyn.pp=namespaced/Api.Sqlite3dyn.pp

2
packages/sqlite/src/sqlite.pp
View File

@ -4,7 +4,9 @@
{$linklib c} {$linklib c}
{$endif} {$endif}
{$IFNDEF FPC_DOTTEDUNITS}
unit SQLite; unit SQLite;
{$ENDIF FPC_DOTTEDUNITS}
interface interface

14
packages/sqlite/src/sqlite3.inc
View File

@ -11,6 +11,19 @@
interface interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.CTypes,
{$ifdef LOAD_DYNAMICALLY}
System.SysUtils, System.DynLibs;
{$else}
System.DynLibs;
{$ifdef darwin}
{$linklib sqlite3}
{$endif}
{$endif}
{$ELSE FPC_DOTTEDUNITS}
uses uses
ctypes, ctypes,
{$ifdef LOAD_DYNAMICALLY} {$ifdef LOAD_DYNAMICALLY}
@ -22,6 +35,7 @@ uses
{$linklib sqlite3} {$linklib sqlite3}
{$endif} {$endif}
{$endif} {$endif}
{$ENDIF FPC_DOTTEDUNITS}
const const
{$IFDEF WINDOWS} {$IFDEF WINDOWS}

2
packages/sqlite/src/sqlite3.pp
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit SQLite3; unit SQLite3;
{$ENDIF FPC_DOTTEDUNITS}
{$i sqlite3.inc} {$i sqlite3.inc}

6
packages/sqlite/src/sqlite3db.pas
View File

@ -6,11 +6,17 @@ O. Rinaudo - 2005 - orinaudo@gmail.com
G. Marcou - 2007 - g.marcou@chimie.u-strasbg.fr G. Marcou - 2007 - g.marcou@chimie.u-strasbg.fr
*************************************************************} *************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit SQLite3DB; unit SQLite3DB;
{$ENDIF FPC_DOTTEDUNITS}
interface interface
{$IFDEF FPC_DOTTEDUNITS}
uses System.Classes,System.Strings,Api.Sqlite3;
{$ELSE FPC_DOTTEDUNITS}
uses Classes,strings,sqlite3; uses Classes,strings,sqlite3;
{$ENDIF FPC_DOTTEDUNITS}
{*************************************************************} {*************************************************************}
{*************************************************************} {*************************************************************}
type type

2
packages/sqlite/src/sqlite3dyn.pp
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit SQLite3Dyn; unit SQLite3Dyn;
{$ENDIF FPC_DOTTEDUNITS}
{$DEFINE LOAD_DYNAMICALLY} {$DEFINE LOAD_DYNAMICALLY}

8
packages/sqlite/src/sqlite3ext.pp
View File

@ -15,15 +15,23 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
} }
{$IFNDEF FPC_DOTTEDUNITS}
unit SQLite3Ext; unit SQLite3Ext;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$h+} {$mode objfpc}{$h+}
interface interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.CTypes,
Api.Sqlite3;
{$ELSE FPC_DOTTEDUNITS}
uses uses
ctypes, ctypes,
sqlite3; sqlite3;
{$ENDIF FPC_DOTTEDUNITS}
{$packrecords c} {$packrecords c}

6
packages/sqlite/src/sqlitedb.pas
View File

@ -1,11 +1,17 @@
{$mode objfpc} {$mode objfpc}
{$h+} {$h+}
{$IFNDEF FPC_DOTTEDUNITS}
unit SQLiteDB; unit SQLiteDB;
{$ENDIF FPC_DOTTEDUNITS}
interface interface
{$IFDEF FPC_DOTTEDUNITS}
uses System.Classes,System.Strings,Api.Sqlite;
{$ELSE FPC_DOTTEDUNITS}
uses Classes,strings,sqlite; uses Classes,strings,sqlite;
{$ENDIF FPC_DOTTEDUNITS}
type type
TSQLiteExecCallback = function(Sender: pointer; Columns: Integer; ColumnValues: PPAnsiChar; ColumnNames: PPAnsiChar): integer of object; cdecl; TSQLiteExecCallback = function(Sender: pointer; Columns: Integer; ColumnValues: PPAnsiChar; ColumnNames: PPAnsiChar): integer of object; cdecl;