Browse Source

* Dotted filenames for package libsee

Michaël Van Canneyt 2 năm trước cách đây
mục cha
commit
d201478f85

+ 3 - 0
packages/libsee/namespaced/Api.Libsee.pas

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

+ 3 - 0
packages/libsee/namespaces.lst

@@ -0,0 +1,3 @@
+src/libsee.pas=namespaced/Api.Libsee.pas
+{s*:src/}=namespaced/
+{i+:src/}

+ 12 - 0
packages/libsee/src/libsee.pas

@@ -2,11 +2,18 @@
 
 
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit libsee;
 unit libsee;
+{$ENDIF FPC_DOTTEDUNITS}
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.CTypes;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   ctypes;
   ctypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {
 {
   Automatically converted by H2Pas 1.0.0 from libsee.c
   Automatically converted by H2Pas 1.0.0 from libsee.c
@@ -586,8 +593,13 @@ Function  LibseeLoaded : Boolean;
 
 
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+    System.SysUtils, System.DynLibs;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
     SysUtils, dynlibs;
     SysUtils, dynlibs;
+{$ENDIF FPC_DOTTEDUNITS}
     
     
 {$ifndef libseehelper}
 {$ifndef libseehelper}
 function new_SEE_interpreter : PSEE_Interpreter;
 function new_SEE_interpreter : PSEE_Interpreter;