paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 14:53:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package fcl-sound

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:00 +01:00
parent d3df269339
commit 93def13823
7 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-sound/namespaced/System.Sound.Wav.Format.pas Normal file
View File

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

3
packages/fcl-sound/namespaced/System.Sound.Wav.Reader.pas Normal file
View File

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

3
packages/fcl-sound/namespaced/System.Sound.Wav.Writer.pas Normal file
View File

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

5
packages/fcl-sound/namespaces.lst Normal file
View File

@ -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

2
packages/fcl-sound/src/fpwavformat.pas
View File

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

13
packages/fcl-sound/src/fpwavreader.pas
View File

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

13
packages/fcl-sound/src/fpwavwriter.pas
View File

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