Ver código fonte

* Dotted filenames for package sqlite

Michaël Van Canneyt 2 anos atrás
pai
commit
e3bba8cf36

+ 3 - 0
packages/sqlite/namespaced/Api.Sqlite.pp

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

+ 3 - 0
packages/sqlite/namespaced/Api.Sqlite3.pas

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

+ 3 - 0
packages/sqlite/namespaced/Api.Sqlite3db.pas

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

+ 3 - 0
packages/sqlite/namespaced/Api.Sqlite3dyn.pas

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

+ 3 - 0
packages/sqlite/namespaced/Api.Sqlite3ext.pp

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

+ 3 - 0
packages/sqlite/namespaced/Api.Sqlitedb.pas

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

+ 8 - 0
packages/sqlite/namespaces.lst

@@ -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 - 0
packages/sqlite/src/sqlite.pp

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

+ 14 - 0
packages/sqlite/src/sqlite3.inc

@@ -11,6 +11,19 @@
 
 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
   ctypes,
 {$ifdef LOAD_DYNAMICALLY}
@@ -22,6 +35,7 @@ uses
     {$linklib sqlite3}
   {$endif}
 {$endif}
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 {$IFDEF WINDOWS}

+ 2 - 0
packages/sqlite/src/sqlite3.pp

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

+ 6 - 0
packages/sqlite/src/sqlite3db.pas

@@ -6,11 +6,17 @@ O. Rinaudo - 2005 - [email protected]
 G. Marcou  - 2007 - [email protected]
 *************************************************************}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit SQLite3DB;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses  System.Classes,System.Strings,Api.Sqlite3;
+{$ELSE FPC_DOTTEDUNITS}
 uses  Classes,strings,sqlite3;
+{$ENDIF FPC_DOTTEDUNITS}
 {*************************************************************}
 {*************************************************************}
 type

+ 2 - 0
packages/sqlite/src/sqlite3dyn.pp

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

+ 8 - 0
packages/sqlite/src/sqlite3ext.pp

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

+ 6 - 0
packages/sqlite/src/sqlitedb.pas

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