浏览代码

* Dotted filenames for package libsee

Michaël Van Canneyt 2 年之前
父节点
当前提交
d201478f85
共有 3 个文件被更改,包括 18 次插入0 次删除
  1. 3 0
      packages/libsee/namespaced/Api.Libsee.pas
  2. 3 0
      packages/libsee/namespaces.lst
  3. 12 0
      packages/libsee/src/libsee.pas

+ 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}
 {$h+}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit libsee;
+{$ENDIF FPC_DOTTEDUNITS}
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.CTypes;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   ctypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {
   Automatically converted by H2Pas 1.0.0 from libsee.c
@@ -586,8 +593,13 @@ Function  LibseeLoaded : Boolean;
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+    System.SysUtils, System.DynLibs;
+{$ELSE FPC_DOTTEDUNITS}
 uses
     SysUtils, dynlibs;
+{$ENDIF FPC_DOTTEDUNITS}
     
 {$ifndef libseehelper}
 function new_SEE_interpreter : PSEE_Interpreter;