* Dotted filenames for package fcl-sound

packages/fcl-sound/namespaced/System.Sound.Wav.Format.pas

@@ -0,0 +1,3 @@
+unit System.Sound.Wav.Format;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpwavformat.pas}

packages/fcl-sound/namespaced/System.Sound.Wav.Reader.pas

@@ -0,0 +1,3 @@
+unit System.Sound.Wav.Reader;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpwavreader.pas}

packages/fcl-sound/namespaced/System.Sound.Wav.Writer.pas

@@ -0,0 +1,3 @@
+unit System.Sound.Wav.Writer;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpwavwriter.pas}

packages/fcl-sound/namespaces.lst

@@ -0,0 +1,5 @@
+src/fpwavformat.pas=namespaced/System.Sound.Wav.Format.pas
+{s*:src/}=namespaced/
+{i+:src/}
+src/fpwavreader.pas=namespaced/System.Sound.Wav.Reader.pas
+src/fpwavwriter.pas=namespaced/System.Sound.Wav.Writer.pas

packages/fcl-sound/src/fpwavformat.pas

@@ -13,7 +13,9 @@
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpwavformat;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}{$H+}
 

packages/fcl-sound/src/fpwavreader.pas

@@ -13,15 +13,23 @@
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpwavreader;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Sound.Wav.Format,
+  System.Classes;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   fpWavFormat,
   Classes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 type
   { TWaveReader }
@@ -43,8 +51,13 @@ type
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.SysUtils;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   SysUtils;
+{$ENDIF FPC_DOTTEDUNITS}
 
 procedure LEtoN(var fmt: TWaveFormat); overload;
 begin

packages/fcl-sound/src/fpwavwriter.pas

@@ -13,15 +13,23 @@
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpwavwriter;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Sound.Wav.Format,
+  System.Classes;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   fpWavFormat,
   Classes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 type
   { TWaveReader }
@@ -44,8 +52,13 @@ type
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.SysUtils;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   SysUtils;
+{$ENDIF FPC_DOTTEDUNITS}
 
 procedure NtoLE(var fmt: TWaveFormat); overload;
 begin