paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 19:40:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package os2units

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:57:55 +01:00 committed by Pierre Muller
parent ea973c9fa0
commit 844b41ff5f
27 changed files with 138 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/os2units/namespaced/OS2Api.Buildall.pas Normal file
View File

@ -0,0 +1,3 @@
unit OS2Api.Buildall;
{$DEFINE FPC_DOTTEDUNITS}
{$i buildall.pas}

3
packages/os2units/namespaced/OS2Api.Clkdll.pas Normal file
View File

@ -0,0 +1,3 @@
unit OS2Api.Clkdll;
{$DEFINE FPC_DOTTEDUNITS}
{$i clkdll.pas}

3
packages/os2units/namespaced/OS2Api.Dive.pas Normal file
View File

@ -0,0 +1,3 @@
unit OS2Api.Dive;
{$DEFINE FPC_DOTTEDUNITS}
{$i dive.pas}

3
packages/os2units/namespaced/OS2Api.Ftpapi.pas Normal file
View File

@ -0,0 +1,3 @@
unit OS2Api.Ftpapi;
{$DEFINE FPC_DOTTEDUNITS}
{$i ftpapi.pas}

3
packages/os2units/namespaced/OS2Api.Hwvideo.pas Normal file
View File

@ -0,0 +1,3 @@
unit OS2Api.Hwvideo;
{$DEFINE FPC_DOTTEDUNITS}
{$i hwvideo.pas}

3
packages/os2units/namespaced/OS2Api.Lvm.pas Normal file
View File

@ -0,0 +1,3 @@
unit OS2Api.Lvm;
{$DEFINE FPC_DOTTEDUNITS}
{$i lvm.pas}

3
packages/os2units/namespaced/OS2Api.Mci.pas Normal file
View File

@ -0,0 +1,3 @@
unit OS2Api.Mci;
{$DEFINE FPC_DOTTEDUNITS}
{$i mci.pas}

3
packages/os2units/namespaced/OS2Api.Mciapi.pas Normal file
View File

@ -0,0 +1,3 @@
unit OS2Api.Mciapi;
{$DEFINE FPC_DOTTEDUNITS}
{$i mciapi.pas}

3
packages/os2units/namespaced/OS2Api.Mcidrv.pas Normal file
View File

@ -0,0 +1,3 @@
unit OS2Api.Mcidrv;
{$DEFINE FPC_DOTTEDUNITS}
{$i mcidrv.pas}

3
packages/os2units/namespaced/OS2Api.Mmbase.pas Normal file
View File

@ -0,0 +1,3 @@
unit OS2Api.Mmbase;
{$DEFINE FPC_DOTTEDUNITS}
{$i mmbase.pas}

3
packages/os2units/namespaced/OS2Api.Mmio.pas Normal file
View File

@ -0,0 +1,3 @@
unit OS2Api.Mmio;
{$DEFINE FPC_DOTTEDUNITS}
{$i mmio.pas}

3
packages/os2units/namespaced/OS2Api.Som.pas Normal file
View File

@ -0,0 +1,3 @@
unit OS2Api.Som;
{$DEFINE FPC_DOTTEDUNITS}
{$i som.pas}

3
packages/os2units/namespaced/OS2Api.Sw.pas Normal file
View File

@ -0,0 +1,3 @@
unit OS2Api.Sw;
{$DEFINE FPC_DOTTEDUNITS}
{$i sw.pas}

15
packages/os2units/namespaces.lst Normal file
View File

@ -0,0 +1,15 @@
src/lvm.pas=namespaced/OS2Api.Lvm.pas
{s*:src/}=namespaced/
{i+:src/}
src/mmio.pas=namespaced/OS2Api.Mmio.pas
src/clkdll.pas=namespaced/OS2Api.Clkdll.pas
src/mciapi.pas=namespaced/OS2Api.Mciapi.pas
src/sw.pas=namespaced/OS2Api.Sw.pas
src/mcidrv.pas=namespaced/OS2Api.Mcidrv.pas
src/dive.pas=namespaced/OS2Api.Dive.pas
src/som.pas=namespaced/OS2Api.Som.pas
src/hwvideo.pas=namespaced/OS2Api.Hwvideo.pas
src/buildall.pas=namespaced/OS2Api.Buildall.pas
src/mmbase.pas=namespaced/OS2Api.Mmbase.pas
src/ftpapi.pas=namespaced/OS2Api.Ftpapi.pas
src/mci.pas=namespaced/OS2Api.Mci.pas

14
packages/os2units/src/buildall.pas
View File

@ -1,7 +1,20 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit Buildall; Unit Buildall;
{$ENDIF FPC_DOTTEDUNITS}
Interface Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
OS2Api.Sw,
OS2Api.Mmbase,
OS2Api.Dive,
OS2Api.Hwvideo,
OS2Api.Mci,
OS2Api.Mciapi,
OS2Api.Mcidrv,
OS2Api.Mmio;
{$ELSE FPC_DOTTEDUNITS}
Uses Uses
sw, sw,
mmbase, mmbase,
@ -11,6 +24,7 @@ Uses
mciapi, mciapi,
mcidrv, mcidrv,
mmio; mmio;
{$ENDIF FPC_DOTTEDUNITS}
Implementation Implementation

7
packages/os2units/src/clkdll.pas
View File

@ -26,12 +26,19 @@ with OS/2 and eComStation. However, the Clock API DLL is not Rexx
enabled. enabled.
} }
{$IFNDEF FPC_DOTTEDUNITS}
Unit clkdll; Unit clkdll;
{$ENDIF FPC_DOTTEDUNITS}
Interface Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
OS2Api.doscalls;
{$ELSE FPC_DOTTEDUNITS}
Uses Uses
DosCalls; DosCalls;
{$ENDIF FPC_DOTTEDUNITS}
{ {
If you need to know the universal world time call this API. The If you need to know the universal world time call this API. The

6
packages/os2units/src/dive.pas
View File

@ -30,14 +30,20 @@
****************************************************************************} ****************************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
Unit DIVE; Unit DIVE;
{$ENDIF FPC_DOTTEDUNITS}
{Warning: This code is alfa. Future versions of this unit will propably {Warning: This code is alfa. Future versions of this unit will propably
not be compatible.} not be compatible.}
Interface Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses OS2Api.os2def, OS2Api.pmwin, OS2Api.Mmbase;
{$ELSE FPC_DOTTEDUNITS}
Uses OS2Def, PMWin, MMBase; Uses OS2Def, PMWin, MMBase;
{$ENDIF FPC_DOTTEDUNITS}
Const Max_Dive_Instances = 64; Const Max_Dive_Instances = 64;

9
packages/os2units/src/ftpapi.pas
View File

@ -29,7 +29,9 @@ not be compatible.
@todo(Rework some functions to support strings longer then 255 chars) @todo(Rework some functions to support strings longer then 255 chars)
@todo(Finish functions description) @todo(Finish functions description)
} }
{$IFNDEF FPC_DOTTEDUNITS}
unit FTPAPI; unit FTPAPI;
{$ENDIF FPC_DOTTEDUNITS}
{**************************************************************************** {****************************************************************************
@ -40,10 +42,17 @@ unit FTPAPI;
interface interface
{$IFDEF FPC_DOTTEDUNITS}
uses
OS2Api.os2def,
OS2Api.pmwin,
System.Strings;
{$ELSE FPC_DOTTEDUNITS}
uses uses
OS2Def, OS2Def,
PMWin, PMWin,
Strings; Strings;
{$ENDIF FPC_DOTTEDUNITS}
Const Const
// window message id for post xfer updates // window message id for post xfer updates

9
packages/os2units/src/hwvideo.pas
View File

@ -31,14 +31,23 @@ Warning: This code is alfa. Future versions of this unit will propably
not be compatible. not be compatible.
} }
{$IFNDEF FPC_DOTTEDUNITS}
Unit HWVideo; Unit HWVideo;
{$ENDIF FPC_DOTTEDUNITS}
Interface Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
OS2Api.os2def,
OS2Api.pmwin,
OS2Api.pmgpi;
{$ELSE FPC_DOTTEDUNITS}
Uses Uses
Os2Def, Os2Def,
PMWin, PMWin,
PMGpi; PMGpi;
{$ENDIF FPC_DOTTEDUNITS}
// GRADD function class // GRADD function class
Const Const

4
packages/os2units/src/lvm.pas
View File

@ -22,7 +22,9 @@
MA 02110-1301, USA. MA 02110-1301, USA.
} }
{$IFNDEF FPC_DOTTEDUNITS}
Unit LVM; Unit LVM;
{$ENDIF FPC_DOTTEDUNITS}
{$PACKRECORDS C} {$PACKRECORDS C}
@ -33,7 +35,7 @@ Interface
{$endif} {$endif}
{$ifdef linux} {$ifdef linux}
{$define lvm2} { $define lvm2}
{$endif} {$endif}
// The number of bytes in a sector on the disk. // The number of bytes in a sector on the disk.

9
packages/os2units/src/mci.pas
View File

@ -30,14 +30,23 @@ This is Media Control Interface of MMPM/2.
Warning: This code is alfa. Future versions of this unit will propably Warning: This code is alfa. Future versions of this unit will propably
not be compatible. not be compatible.
} }
{$IFNDEF FPC_DOTTEDUNITS}
Unit mci; Unit mci;
{$ENDIF FPC_DOTTEDUNITS}
Interface Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
OS2Api.Mmbase,
OS2Api.os2def,
OS2Api.pmgpi;
{$ELSE FPC_DOTTEDUNITS}
Uses Uses
mmbase, mmbase,
os2def, os2def,
pmgpi; pmgpi;
{$ENDIF FPC_DOTTEDUNITS}
Const Const
MCI_TRUE = 1; MCI_TRUE = 1;

2
packages/os2units/src/mciapi.pas
View File

@ -32,7 +32,9 @@ See "Multimedia with REXX" for more information.).
Warning: This code is alfa. Future versions of this unit will propably Warning: This code is alfa. Future versions of this unit will propably
not be compatible. not be compatible.
} }
{$IFNDEF FPC_DOTTEDUNITS}
Unit mciapi; Unit mciapi;
{$ENDIF FPC_DOTTEDUNITS}
{$MODE ObjFPC} {$MODE ObjFPC}

2
packages/os2units/src/mcidrv.pas
View File

@ -30,7 +30,9 @@ MCI drivers interface
Warning: This code is alfa. Future versions of this unit will propably Warning: This code is alfa. Future versions of this unit will propably
not be compatible. not be compatible.
} }
{$IFNDEF FPC_DOTTEDUNITS}
Unit mcidrv; Unit mcidrv;
{$ENDIF FPC_DOTTEDUNITS}
Interface Interface

6
packages/os2units/src/mmbase.pas
View File

@ -45,13 +45,19 @@ not be compatible.
//* Revised by Yuri Prokushev (prokushev@freemail.ru) */ //* Revised by Yuri Prokushev (prokushev@freemail.ru) */
//****************************************************************************/ //****************************************************************************/
{$IFNDEF FPC_DOTTEDUNITS}
Unit mmbase; Unit mmbase;
{$ENDIF FPC_DOTTEDUNITS}
{$MODE ObjFPC} {$MODE ObjFPC}
Interface Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses OS2Api.os2def;
{$ELSE FPC_DOTTEDUNITS}
Uses Os2Def; Uses Os2Def;
{$ENDIF FPC_DOTTEDUNITS}
Type Type
VERSION = WORD; VERSION = WORD;

7
packages/os2units/src/mmio.pas
View File

@ -30,12 +30,19 @@ OS/2 2.0 Multimedia Extensions Input/Output Manager
Warning: This code is alfa. Future versions of this unit will propably Warning: This code is alfa. Future versions of this unit will propably
not be compatible. not be compatible.
} }
{$IFNDEF FPC_DOTTEDUNITS}
Unit MMIO; Unit MMIO;
{$ENDIF FPC_DOTTEDUNITS}
Interface Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
OS2Api.Mmbase;
{$ELSE FPC_DOTTEDUNITS}
Uses Uses
MMBase; MMBase;
{$ENDIF FPC_DOTTEDUNITS}
Const Const
LibName='MMPM'; // !!TODO!! Subject to replace by MMIO LibName='MMPM'; // !!TODO!! Subject to replace by MMIO

2
packages/os2units/src/som.pas
View File

@ -20,7 +20,9 @@
**********************************************************************} **********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
Unit SOM; Unit SOM;
{$ENDIF FPC_DOTTEDUNITS}
Interface Interface

8
packages/os2units/src/sw.pas
View File

@ -30,13 +30,21 @@ function prototypes for Multimedia Applets.
Warning: This code is alfa. Future versions of this unit will propably Warning: This code is alfa. Future versions of this unit will propably
not be compatible. not be compatible.
} }
{$IFNDEF FPC_DOTTEDUNITS}
Unit SW; Unit SW;
{$ENDIF FPC_DOTTEDUNITS}
Interface Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
OS2Api.os2def,
OS2Api.pmwin;
{$ELSE FPC_DOTTEDUNITS}
Uses Uses
Os2Def, Os2Def,
PmWin; PmWin;
{$ENDIF FPC_DOTTEDUNITS}
Const Const
MAX_SMBDTEXT=35; MAX_SMBDTEXT=35;