Browse Source

* Dotted filenames for package matroska

Michaël Van Canneyt 2 years ago
parent
commit
9e083789ba

+ 3 - 0
packages/matroska/namespaced/Api.Matroska.pas

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

+ 3 - 0
packages/matroska/namespaces.lst

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

+ 8 - 1
packages/matroska/src/matroska.pas

@@ -32,15 +32,22 @@
 **
 **********************************************************************)
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit matroska;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}
 {$MINENUMSIZE 4}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.CTypes;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   ctypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$IFDEF WINDOWS}
   {$DEFINE DYNLINK}
@@ -230,4 +237,4 @@ int matroska_track_close(matroska_track);
 
 implementation
 
-end.
+end.