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

* Dotted filenames for package ami-extra

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:07 +01:00 committed by Pierre Muller
parent ea9d6c9574
commit 2b02f55257
9 changed files with 45 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/ami-extra/namespaced/AmigaApi.Amsgbox.pas Normal file
View File

@ -0,0 +1,3 @@
unit AmigaApi.Amsgbox;
{$DEFINE FPC_DOTTEDUNITS}
{$i amsgbox.pas}

3
packages/ami-extra/namespaced/AmigaApi.Cliputils.pas Normal file
View File

@ -0,0 +1,3 @@
unit AmigaApi.Cliputils;
{$DEFINE FPC_DOTTEDUNITS}
{$i cliputils.pas}

3
packages/ami-extra/namespaced/AmigaApi.Muihelper.pas Normal file
View File

@ -0,0 +1,3 @@
unit AmigaApi.Muihelper;
{$DEFINE FPC_DOTTEDUNITS}
{$i muihelper.pas}

3
packages/ami-extra/namespaced/AmigaApi.Pcq.pas Normal file
View File

@ -0,0 +1,3 @@
unit AmigaApi.Pcq;
{$DEFINE FPC_DOTTEDUNITS}
{$i pcq.pas}

6
packages/ami-extra/namespaces.lst Normal file
View File

@ -0,0 +1,6 @@
src/pcq.pas=namespaced/AmigaApi.Pcq.pas
{s*:src/}=namespaced/
{i+:src/}
src/amsgbox.pas=namespaced/AmigaApi.Amsgbox.pas
src/muihelper.pas=namespaced/AmigaApi.Muihelper.pas
src/cliputils.pas=namespaced/AmigaApi.Cliputils.pas

7
packages/ami-extra/src/amsgbox.pas
View File

@ -22,7 +22,9 @@
nils.sjoholm@mailbox.swipnet.se Nils Sjoholm
}
{$IFNDEF FPC_DOTTEDUNITS}
unit AMsgBox;
{$ENDIF FPC_DOTTEDUNITS}
interface
@ -33,8 +35,13 @@ function MessageBox(const tit,txt,gad:PAnsiChar): LongInt;
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Intuition;
{$ELSE FPC_DOTTEDUNITS}
uses
intuition;
{$ENDIF FPC_DOTTEDUNITS}
FUNCTION MessageBox(const tit,txt,gad:RawByteString): LongInt;
begin

7
packages/ami-extra/src/cliputils.pas
View File

@ -15,7 +15,9 @@
{$MODE OBJFPC}
{$H+}
{$IFNDEF FPC_DOTTEDUNITS}
unit cliputils;
{$ENDIF FPC_DOTTEDUNITS}
interface
@ -24,8 +26,13 @@ function PutTextToClip(ClipUnit: Byte; Text: AnsiString): Boolean;
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Clipboard, Amiga.Core.Iffparse;
{$ELSE FPC_DOTTEDUNITS}
uses
exec, clipboard, iffparse;
{$ENDIF FPC_DOTTEDUNITS}
const
ID_FTXT = 1179932756;

7
packages/ami-extra/src/muihelper.pas
View File

@ -19,12 +19,19 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit muihelper;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Intuition, Amiga.Other.Mui, Amiga.Core.Amigados, Amiga.Core.Utility;
{$ELSE FPC_DOTTEDUNITS}
uses
exec, intuition, mui, amigados, utility;
{$ENDIF FPC_DOTTEDUNITS}
type
THookFunc = function(Hook: PHook; Obj: PObject_; Msg: Pointer): PtrInt;

6
packages/ami-extra/src/pcq.pas
View File

@ -14,7 +14,9 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit pcq;
{$ENDIF FPC_DOTTEDUNITS}
{
@ -54,7 +56,11 @@ unit pcq;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses Amiga.Core.Exec,System.Strings;
{$ELSE FPC_DOTTEDUNITS}
uses exec,strings;
{$ENDIF FPC_DOTTEDUNITS}
function CheckBreak: boolean;