Parcourir la source

* Dotted filenames for package a52

Michaël Van Canneyt il y a 2 ans
Parent
commit
46785d3884

+ 3 - 0
packages/a52/namespaced/Api.A52.pas

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

+ 3 - 0
packages/a52/namespaces.lst

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

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

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