paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 17:06:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package cdrom

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:00 +01:00
parent 00439969ce
commit 96d1f229b5
21 changed files with 106 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/cdrom/namespaced/System.CdRom.Cddb.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.CdRom.Cddb;
{$DEFINE FPC_DOTTEDUNITS}
{$i fpcddb.pp}

3
packages/cdrom/namespaced/System.CdRom.DiscId.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.CdRom.DiscId;
{$DEFINE FPC_DOTTEDUNITS}
{$i discid.pp}

3
packages/cdrom/namespaced/System.CdRom.Linux.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.CdRom.Linux;
{$DEFINE FPC_DOTTEDUNITS}
{$i lincd.pp}

3
packages/cdrom/namespaced/System.CdRom.Major.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.CdRom.Major;
{$DEFINE FPC_DOTTEDUNITS}
{$i major.pp}

3
packages/cdrom/namespaced/System.CdRom.ScsiDefs.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.CdRom.ScsiDefs;
{$DEFINE FPC_DOTTEDUNITS}
{$i scsidefs.pp}

3
packages/cdrom/namespaced/System.CdRom.Windows.Aspi32.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.CdRom.Windows.Aspi32;
{$DEFINE FPC_DOTTEDUNITS}
{$i wnaspi32.pp}

3
packages/cdrom/namespaced/System.CdRom.Windows.IoCtl.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.CdRom.Windows.IoCtl;
{$DEFINE FPC_DOTTEDUNITS}
{$i cdromioctl.pp}

3
packages/cdrom/namespaced/System.CdRom.Windows.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.CdRom.Windows;
{$DEFINE FPC_DOTTEDUNITS}
{$i wincd.pp}

3
packages/cdrom/namespaced/System.CdRom.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.CdRom;
{$DEFINE FPC_DOTTEDUNITS}
{$i cdrom.pp}

11
packages/cdrom/namespaces.lst Normal file
View File

@ -0,0 +1,11 @@
src/fpcddb.pp=namespaced/System.CdRom.Cddb.pp
{s*:src/}=namespaced/
{i+:src/}
src/wincd.pp=namespaced/System.CdRom.Windows.pp
src/cdrom.pp=namespaced/System.CdRom.pp
src/scsidefs.pp=namespaced/System.CdRom.ScsiDefs.pp
src/major.pp=namespaced/System.CdRom.Major.pp
src/lincd.pp=namespaced/System.CdRom.Linux.pp
src/cdromioctl.pp=namespaced/System.CdRom.Windows.IoCtl.pp
src/wnaspi32.pp=namespaced/System.CdRom.Windows.Aspi32.pp
src/discid.pp=namespaced/System.CdRom.DiscId.pp

2
packages/cdrom/src/cdrom.pp
View File

@ -11,7 +11,9 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit cdrom;
{$ENDIF}
{$mode objfpc}
{$h+}

6
packages/cdrom/src/cdromioctl.pp
View File

@ -1,8 +1,14 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit cdromioctl;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses WinApi.Windows;
{$ELSE FPC_DOTTEDUNITS}
uses windows;
{$ENDIF FPC_DOTTEDUNITS}
{
Automatically converted by H2Pas 0.99.15 from cdromioctl.h

7
packages/cdrom/src/cdromlin.inc
View File

@ -1,7 +1,14 @@
{$IFDEF FPC_DOTTEDUNITS}
uses
UnixApi.Base,
UnixApi.Unix,
System.CdRom.Linux;
{$ELSE}
uses
baseunix,
unix,
lincd;
{$ENDIF}
Function ReadCDTOC(Device : AnsiString; Var CDTOC : Array of TTocEntry) : Integer;

5
packages/cdrom/src/cdromw32.inc
View File

@ -1,5 +1,8 @@
{$IFDEF FPC_DOTTEDUNITS}
uses System.CdRom.Windows;
{$ELSE}
uses wincd;
{$ENDIF}
Function ReadCDTOC(Device : AnsiString; Var CDTOC : Array of TTocEntry) : Integer;

6
packages/cdrom/src/discid.pp
View File

@ -12,13 +12,19 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit discid;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses System.CdRom,System.SysUtils;
{$ELSE FPC_DOTTEDUNITS}
uses cdrom,sysutils;
{$ENDIF FPC_DOTTEDUNITS}
Function CDDBDiscID(Const CDTOC : Array of TTocEntry; Count : Integer) : integer ;
Function GetCDDBQueryString(Const Tracks : Array of TTocEntry; Count : Integer) : AnsiString;

7
packages/cdrom/src/fpcddb.pp
View File

@ -24,14 +24,21 @@
}
{$IFNDEF FPC_DOTTEDUNITS}
unit fpcddb;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Classes, System.SysUtils;
{$ELSE FPC_DOTTEDUNITS}
uses
Classes, SysUtils;
{$ENDIF FPC_DOTTEDUNITS}
Type
TCDDisk = Class;

12
packages/cdrom/src/lincd.pp
View File

@ -11,15 +11,23 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit lincd;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
UnixApi.Base,
UnixApi.Unix;
{$ELSE FPC_DOTTEDUNITS}
uses
baseunix,
unix;
{$ENDIF FPC_DOTTEDUNITS}
{ ---------------------------------------------------------------------
cdrom.h header translation.
@ -721,7 +729,11 @@ Function DetectCd : AnsiString;
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses System.CDROM.Major,System.SysUtils;
{$ELSE FPC_DOTTEDUNITS}
uses major,sysutils;
{$ENDIF FPC_DOTTEDUNITS}
{ ---------------------------------------------------------------------
Functions from cdrom.h translation.

2
packages/cdrom/src/major.pp
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit major;
{$ENDIF FPC_DOTTEDUNITS}
interface
{

2
packages/cdrom/src/scsidefs.pp
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit scsidefs;
{$ENDIF FPC_DOTTEDUNITS}
interface

10
packages/cdrom/src/wincd.pp
View File

@ -1,13 +1,19 @@
{
}
{$IFNDEF FPC_DOTTEDUNITS}
unit WinCD;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}
{$h+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses WinApi.Windows,System.SysUtils;
{$ELSE FPC_DOTTEDUNITS}
uses Windows,SysUtils;
{$ENDIF FPC_DOTTEDUNITS}
Type
TCDAccessMethod = (camNone,camASPI,camSPTI,camIOCTL);
@ -39,7 +45,11 @@ Function GetNumDrives : Integer;
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses System.CdRom.Windows.IoCtl, System.CdRom.Windows.Aspi32, System.CdRom.ScsiDefs;
{$ELSE FPC_DOTTEDUNITS}
uses cdromioctl,wnaspi32,scsidefs;
{$ENDIF FPC_DOTTEDUNITS}
Var
CurrentAccessMethod : TCDAccessMethod;

10
packages/cdrom/src/wnaspi32.pp
View File

@ -1,10 +1,16 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit wnaspi32;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses WinApi.Windows;
{$ELSE FPC_DOTTEDUNITS}
uses Windows;
{$ENDIF FPC_DOTTEDUNITS}
type
LPSRB = Pointer;
@ -218,7 +224,11 @@ procedure UnloadASPI;
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses System.DynLibs;
{$ELSE FPC_DOTTEDUNITS}
uses dynlibs;
{$ENDIF FPC_DOTTEDUNITS}
const
HWNASPI : TLibHandle = 0;