浏览代码

* Dotted filenames for package dts

Michaël Van Canneyt 2 年之前
父节点
当前提交
043f6188af
共有 3 个文件被更改,包括 13 次插入0 次删除
  1. 3 0
      packages/dts/namespaced/Api.Dts.pas
  2. 3 0
      packages/dts/namespaces.lst
  3. 7 0
      packages/dts/src/dts.pas

+ 3 - 0
packages/dts/namespaced/Api.Dts.pas

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

+ 3 - 0
packages/dts/namespaces.lst

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

+ 7 - 0
packages/dts/src/dts.pas

@@ -252,15 +252,22 @@ loop on input bytes:
         convert samples to integer and queue to soundcard
         convert samples to integer and queue to soundcard
 }
 }
 
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit dts;
 unit dts;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}
 {$mode objfpc}
 {$MINENUMSIZE 4}
 {$MINENUMSIZE 4}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.CTypes;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   ctypes;
   ctypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$UNDEF LIBA52_DOUBLE}
 {$UNDEF LIBA52_DOUBLE}