paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:07:56 +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
parent 5d4aa763f2
commit f67793022e
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;
{$ENDIF FPC_DOTTEDUNITS}
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
sw,
mmbase,
@ -11,6 +24,7 @@ Uses
mciapi,
mcidrv,
mmio;
{$ENDIF FPC_DOTTEDUNITS}
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.
}
{$IFNDEF FPC_DOTTEDUNITS}
Unit clkdll;
{$ENDIF FPC_DOTTEDUNITS}
Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
OS2Api.doscalls;
{$ELSE FPC_DOTTEDUNITS}
Uses
DosCalls;
{$ENDIF FPC_DOTTEDUNITS}
{
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;
{$ENDIF FPC_DOTTEDUNITS}
{Warning: This code is alfa. Future versions of this unit will propably
not be compatible.}
Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses OS2Api.os2def, OS2Api.pmwin, OS2Api.Mmbase;
{$ELSE FPC_DOTTEDUNITS}
Uses OS2Def, PMWin, MMBase;
{$ENDIF FPC_DOTTEDUNITS}
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(Finish functions description)
}
{$IFNDEF FPC_DOTTEDUNITS}
unit FTPAPI;
{$ENDIF FPC_DOTTEDUNITS}
{****************************************************************************
@ -40,10 +42,17 @@ unit FTPAPI;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
OS2Api.os2def,
OS2Api.pmwin,
System.Strings;
{$ELSE FPC_DOTTEDUNITS}
uses
OS2Def,
PMWin,
Strings;
{$ENDIF FPC_DOTTEDUNITS}
Const
// 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.
}
{$IFNDEF FPC_DOTTEDUNITS}
Unit HWVideo;
{$ENDIF FPC_DOTTEDUNITS}
Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
OS2Api.os2def,
OS2Api.pmwin,
OS2Api.pmgpi;
{$ELSE FPC_DOTTEDUNITS}
Uses
Os2Def,
PMWin,
PMGpi;
{$ENDIF FPC_DOTTEDUNITS}
// GRADD function class
Const

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

@ -22,7 +22,9 @@
MA 02110-1301, USA.
}
{$IFNDEF FPC_DOTTEDUNITS}
Unit LVM;
{$ENDIF FPC_DOTTEDUNITS}
{$PACKRECORDS C}
@ -33,7 +35,7 @@ Interface
{$endif}
{$ifdef linux}
{$define lvm2}
{ $define lvm2}
{$endif}
// 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
not be compatible.
}
{$IFNDEF FPC_DOTTEDUNITS}
Unit mci;
{$ENDIF FPC_DOTTEDUNITS}
Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
OS2Api.Mmbase,
OS2Api.os2def,
OS2Api.pmgpi;
{$ELSE FPC_DOTTEDUNITS}
Uses
mmbase,
os2def,
pmgpi;
{$ENDIF FPC_DOTTEDUNITS}
Const
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
not be compatible.
}
{$IFNDEF FPC_DOTTEDUNITS}
Unit mciapi;
{$ENDIF FPC_DOTTEDUNITS}
{$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
not be compatible.
}
{$IFNDEF FPC_DOTTEDUNITS}
Unit mcidrv;
{$ENDIF FPC_DOTTEDUNITS}
Interface

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

@ -45,13 +45,19 @@ not be compatible.
//* Revised by Yuri Prokushev (prokushev@freemail.ru) */
//****************************************************************************/
{$IFNDEF FPC_DOTTEDUNITS}
Unit mmbase;
{$ENDIF FPC_DOTTEDUNITS}
{$MODE ObjFPC}
Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses OS2Api.os2def;
{$ELSE FPC_DOTTEDUNITS}
Uses Os2Def;
{$ENDIF FPC_DOTTEDUNITS}
Type
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
not be compatible.
}
{$IFNDEF FPC_DOTTEDUNITS}
Unit MMIO;
{$ENDIF FPC_DOTTEDUNITS}
Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
OS2Api.Mmbase;
{$ELSE FPC_DOTTEDUNITS}
Uses
MMBase;
{$ENDIF FPC_DOTTEDUNITS}
Const
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;
{$ENDIF FPC_DOTTEDUNITS}
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
not be compatible.
}
{$IFNDEF FPC_DOTTEDUNITS}
Unit SW;
{$ENDIF FPC_DOTTEDUNITS}
Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
OS2Api.os2def,
OS2Api.pmwin;
{$ELSE FPC_DOTTEDUNITS}
Uses
Os2Def,
PmWin;
{$ENDIF FPC_DOTTEDUNITS}
Const
MAX_SMBDTEXT=35;