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

* Dotted filenames for package arosunits

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:57:59 +01:00
parent 8307b72f74
commit 9a5f95b3a4
55 changed files with 295 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/arosunits/namespaced/AROSApi.Agraphics.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Agraphics;
{$DEFINE FPC_DOTTEDUNITS}
{$i agraphics.pas}

3
packages/arosunits/namespaced/AROSApi.Amigados.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Amigados;
{$DEFINE FPC_DOTTEDUNITS}
{$i amigados.pas}

3
packages/arosunits/namespaced/AROSApi.Asl.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Asl;
{$DEFINE FPC_DOTTEDUNITS}
{$i asl.pas}

3
packages/arosunits/namespaced/AROSApi.Clipboard.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Clipboard;
{$DEFINE FPC_DOTTEDUNITS}
{$i clipboard.pas}

3
packages/arosunits/namespaced/AROSApi.Commodities.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Commodities;
{$DEFINE FPC_DOTTEDUNITS}
{$i commodities.pas}

3
packages/arosunits/namespaced/AROSApi.Console.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Console;
{$DEFINE FPC_DOTTEDUNITS}
{$i console.pas}

3
packages/arosunits/namespaced/AROSApi.Conunit.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Conunit;
{$DEFINE FPC_DOTTEDUNITS}
{$i conunit.pas}

3
packages/arosunits/namespaced/AROSApi.Cybergraphics.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Cybergraphics;
{$DEFINE FPC_DOTTEDUNITS}
{$i cybergraphics.pas}

3
packages/arosunits/namespaced/AROSApi.Datatypes.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Datatypes;
{$DEFINE FPC_DOTTEDUNITS}
{$i datatypes.pas}

3
packages/arosunits/namespaced/AROSApi.Diskfont.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Diskfont;
{$DEFINE FPC_DOTTEDUNITS}
{$i diskfont.pas}

3
packages/arosunits/namespaced/AROSApi.Exec.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Exec;
{$DEFINE FPC_DOTTEDUNITS}
{$i exec.pas}

3
packages/arosunits/namespaced/AROSApi.Gadtools.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Gadtools;
{$DEFINE FPC_DOTTEDUNITS}
{$i gadtools.pas}

3
packages/arosunits/namespaced/AROSApi.Hardware.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Hardware;
{$DEFINE FPC_DOTTEDUNITS}
{$i hardware.pas}

3
packages/arosunits/namespaced/AROSApi.Icon.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Icon;
{$DEFINE FPC_DOTTEDUNITS}
{$i icon.pas}

3
packages/arosunits/namespaced/AROSApi.Iffparse.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Iffparse;
{$DEFINE FPC_DOTTEDUNITS}
{$i iffparse.pas}

3
packages/arosunits/namespaced/AROSApi.Inputevent.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Inputevent;
{$DEFINE FPC_DOTTEDUNITS}
{$i inputevent.pas}

3
packages/arosunits/namespaced/AROSApi.Intuition.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Intuition;
{$DEFINE FPC_DOTTEDUNITS}
{$i intuition.pas}

3
packages/arosunits/namespaced/AROSApi.Keymap.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Keymap;
{$DEFINE FPC_DOTTEDUNITS}
{$i keymap.pas}

3
packages/arosunits/namespaced/AROSApi.Layers.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Layers;
{$DEFINE FPC_DOTTEDUNITS}
{$i layers.pas}

3
packages/arosunits/namespaced/AROSApi.Locale.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Locale;
{$DEFINE FPC_DOTTEDUNITS}
{$i locale.pas}

3
packages/arosunits/namespaced/AROSApi.Longarray.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Longarray;
{$DEFINE FPC_DOTTEDUNITS}
{$i longarray.pas}

3
packages/arosunits/namespaced/AROSApi.Mui.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Mui;
{$DEFINE FPC_DOTTEDUNITS}
{$i mui.pas}

3
packages/arosunits/namespaced/AROSApi.Serial.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Serial;
{$DEFINE FPC_DOTTEDUNITS}
{$i serial.pas}

3
packages/arosunits/namespaced/AROSApi.Tagsarray.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Tagsarray;
{$DEFINE FPC_DOTTEDUNITS}
{$i tagsarray.pas}

3
packages/arosunits/namespaced/AROSApi.Timer.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Timer;
{$DEFINE FPC_DOTTEDUNITS}
{$i timer.pas}

3
packages/arosunits/namespaced/AROSApi.Utility.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Utility;
{$DEFINE FPC_DOTTEDUNITS}
{$i utility.pas}

3
packages/arosunits/namespaced/AROSApi.Workbench.pas Normal file
View File

@ -0,0 +1,3 @@
unit AROSApi.Workbench;
{$DEFINE FPC_DOTTEDUNITS}
{$i workbench.pas}

29
packages/arosunits/namespaces.lst Normal file
View File

@ -0,0 +1,29 @@
src/gadtools.pas=namespaced/AROSApi.Gadtools.pas
{s*:src/}=namespaced/
{i+:src/}
src/console.pas=namespaced/AROSApi.Console.pas
src/utility.pas=namespaced/AROSApi.Utility.pas
src/mui.pas=namespaced/AROSApi.Mui.pas
src/datatypes.pas=namespaced/AROSApi.Datatypes.pas
src/exec.pas=namespaced/AROSApi.Exec.pas
src/workbench.pas=namespaced/AROSApi.Workbench.pas
src/icon.pas=namespaced/AROSApi.Icon.pas
src/hardware.pas=namespaced/AROSApi.Hardware.pas
src/keymap.pas=namespaced/AROSApi.Keymap.pas
src/commodities.pas=namespaced/AROSApi.Commodities.pas
src/serial.pas=namespaced/AROSApi.Serial.pas
src/agraphics.pas=namespaced/AROSApi.Agraphics.pas
src/conunit.pas=namespaced/AROSApi.Conunit.pas
src/layers.pas=namespaced/AROSApi.Layers.pas
src/diskfont.pas=namespaced/AROSApi.Diskfont.pas
src/tagsarray.pas=namespaced/AROSApi.Tagsarray.pas
src/timer.pas=namespaced/AROSApi.Timer.pas
src/iffparse.pas=namespaced/AROSApi.Iffparse.pas
src/intuition.pas=namespaced/AROSApi.Intuition.pas
src/asl.pas=namespaced/AROSApi.Asl.pas
src/cybergraphics.pas=namespaced/AROSApi.Cybergraphics.pas
src/longarray.pas=namespaced/AROSApi.Longarray.pas
src/locale.pas=namespaced/AROSApi.Locale.pas
src/inputevent.pas=namespaced/AROSApi.Inputevent.pas
src/amigados.pas=namespaced/AROSApi.Amigados.pas
src/clipboard.pas=namespaced/AROSApi.Clipboard.pas

7
packages/arosunits/src/agraphics.pas
View File

@ -13,12 +13,19 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit agraphics;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Hardware, Amiga.Core.Utility;
{$ELSE FPC_DOTTEDUNITS}
uses
Exec, Hardware, Utility;
{$ENDIF FPC_DOTTEDUNITS}
{$PACKRECORDS C}
const

7
packages/arosunits/src/amigados.pas
View File

@ -22,12 +22,19 @@
{$define AROS_FAST_BPTR}
{$IFNDEF FPC_DOTTEDUNITS}
unit amigados;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Utility, Amiga.Core.Timer;
{$ELSE FPC_DOTTEDUNITS}
uses
exec, utility, timer;
{$ENDIF FPC_DOTTEDUNITS}
{$PACKRECORDS C}

7
packages/arosunits/src/asl.pas
View File

@ -13,12 +13,19 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit asl;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Utility, Amiga.Core.Workbench, Amiga.Core.Agraphics;
{$ELSE FPC_DOTTEDUNITS}
uses
exec, utility, workbench, agraphics;
{$ENDIF FPC_DOTTEDUNITS}
const
ASLNAME: PAnsiChar = 'asl.library';

11
packages/arosunits/src/clipboard.pas
View File

@ -13,12 +13,18 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit clipboard;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$H+}
{$IFDEF FPC_DOTTEDUNITS}
uses Amiga.Core.Exec;
{$ELSE FPC_DOTTEDUNITS}
uses exec;
{$ENDIF FPC_DOTTEDUNITS}
const
CBD_POST = CMD_NONSTD + 0;
@ -79,8 +85,13 @@ function PutTextToClip(ClipUnit: Byte; Text: AnsiString): Boolean;
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Iffparse;
{$ELSE FPC_DOTTEDUNITS}
uses
iffparse;
{$ENDIF FPC_DOTTEDUNITS}
const
ID_FTXT = 1179932756;

7
packages/arosunits/src/commodities.pas
View File

@ -13,12 +13,19 @@
**********************************************************************}
{$PACKRECORDS C}
{$IFNDEF FPC_DOTTEDUNITS}
unit commodities;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Inputevent, Amiga.Core.Keymap;
{$ELSE FPC_DOTTEDUNITS}
uses
exec, inputevent, keymap;
{$ENDIF FPC_DOTTEDUNITS}
type
CxObj = LongInt;

7
packages/arosunits/src/console.pas
View File

@ -21,12 +21,19 @@
nils.sjoholm@mailbox.swipnet.se Nils Sjoholm
}
{$IFNDEF FPC_DOTTEDUNITS}
unit console;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Inputevent, Amiga.Core.Keymap, Amiga.Core.Utility, Amiga.Core.Amigados;
{$ELSE FPC_DOTTEDUNITS}
uses
exec, inputevent, keymap, utility, amigados;
{$ENDIF FPC_DOTTEDUNITS}
const

7
packages/arosunits/src/conunit.pas
View File

@ -14,12 +14,19 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit conunit;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Console, Amiga.Core.Keymap, Amiga.Core.Inputevent, Amiga.Core.Intuition, Amiga.Core.Agraphics;
{$ELSE FPC_DOTTEDUNITS}
uses
exec, console, keymap, inputevent, intuition, agraphics;
{$ENDIF FPC_DOTTEDUNITS}
const
{ ---- console unit numbers for OpenDevice() }

7
packages/arosunits/src/cybergraphics.pas
View File

@ -13,12 +13,19 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit cybergraphics;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Agraphics, Amiga.Core.Utility;
{$ELSE FPC_DOTTEDUNITS}
uses
Exec, agraphics, utility;
{$ENDIF FPC_DOTTEDUNITS}
const
CYBERGFXNAME = 'cybergraphics.library';

7
packages/arosunits/src/datatypes.pas
View File

@ -12,12 +12,19 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit datatypes;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Amigados, Amiga.Core.Utility, Amiga.Core.Agraphics, Amiga.Core.Intuition, Amiga.Core.Iffparse;
{$ELSE FPC_DOTTEDUNITS}
uses
Exec, AmigaDOS, Utility, AGraphics, Intuition, IFFParse;
{$ENDIF FPC_DOTTEDUNITS}
const
DATATYPESNAME = 'datatypes.library';

6
packages/arosunits/src/diskfont.pas
View File

@ -13,11 +13,17 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit diskfont;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses Amiga.Core.Exec, Amiga.Core.Agraphics,Amiga.Core.Utility;
{$ELSE FPC_DOTTEDUNITS}
uses exec, agraphics,utility;
{$ENDIF FPC_DOTTEDUNITS}
const
MAXFONTPATH = 256;

2
packages/arosunits/src/exec.pas
View File

@ -26,7 +26,9 @@ defines:
}
{$IFNDEF FPC_DOTTEDUNITS}
unit Exec;
{$ENDIF FPC_DOTTEDUNITS}
{$PACKRECORDS C}

7
packages/arosunits/src/gadtools.pas
View File

@ -13,12 +13,19 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit gadtools;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Intuition, Amiga.Core.Agraphics, Amiga.Core.Utility;
{$ELSE FPC_DOTTEDUNITS}
uses
exec, intuition, agraphics, utility;
{$ENDIF FPC_DOTTEDUNITS}
{------------------------------------------------------------------------}

7
packages/arosunits/src/hardware.pas
View File

@ -17,12 +17,19 @@
registers and bits in the Complex Interface Adapter (CIA) chip
}
{$IFNDEF FPC_DOTTEDUNITS}
unit hardware;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec;
{$ELSE FPC_DOTTEDUNITS}
uses
Exec;
{$ENDIF FPC_DOTTEDUNITS}
{
* ciaa is on an ODD Pointer (e.g. the low Byte) -- $bfe001

7
packages/arosunits/src/icon.pas
View File

@ -13,12 +13,19 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit icon;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Workbench, Amiga.Core.Utility, Amiga.Core.Amigados, Amiga.Core.Agraphics, Amiga.Core.Intuition;
{$ELSE FPC_DOTTEDUNITS}
uses
exec, workbench, utility, amigados, agraphics, intuition;
{$ENDIF FPC_DOTTEDUNITS}
//,datatypes;
const

6
packages/arosunits/src/iffparse.pas
View File

@ -13,11 +13,17 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit iffparse;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses Amiga.Core.Exec, Amiga.Core.Clipboard, Amiga.Core.Utility;
{$ELSE FPC_DOTTEDUNITS}
uses exec, clipboard, utility;
{$ENDIF FPC_DOTTEDUNITS}
const
IFFPARSENAME : PAnsiChar = 'iffparse.library';

7
packages/arosunits/src/inputevent.pas
View File

@ -13,12 +13,19 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit inputevent;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Utility, Amiga.Core.Timer;
{$ELSE FPC_DOTTEDUNITS}
uses
exec, utility, timer;
{$ENDIF FPC_DOTTEDUNITS}
const

7
packages/arosunits/src/intuition.pas
View File

@ -12,14 +12,21 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit Intuition;
{$ENDIF FPC_DOTTEDUNITS}
{$define INTUI_V36_NAMES_ONLY}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Utility, Amiga.Core.Agraphics, Amiga.Core.Inputevent, Amiga.Core.Timer, Amiga.Core.Layers, Amiga.Core.Keymap;
{$ELSE FPC_DOTTEDUNITS}
uses
Exec, Utility, AGraphics, InputEvent, Timer, Layers, Keymap;
{$ENDIF FPC_DOTTEDUNITS}
type

6
packages/arosunits/src/keymap.pas
View File

@ -14,11 +14,17 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit Keymap;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses Amiga.Core.Exec, Amiga.Core.Inputevent;
{$ELSE FPC_DOTTEDUNITS}
uses exec, inputevent;
{$ENDIF FPC_DOTTEDUNITS}
Type

7
packages/arosunits/src/layers.pas
View File

@ -13,11 +13,18 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit layers;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Agraphics, Amiga.Core.Utility;
{$ELSE FPC_DOTTEDUNITS}
uses
exec, agraphics, utility;
{$ENDIF FPC_DOTTEDUNITS}
const

7
packages/arosunits/src/locale.pas
View File

@ -13,12 +13,19 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit locale;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Amigados, Amiga.Core.Utility;
{$ELSE FPC_DOTTEDUNITS}
uses
exec, amigados, utility;
{$ENDIF FPC_DOTTEDUNITS}
type
PLocaleBase = ^TLocaleBase;

7
packages/arosunits/src/longarray.pas
View File

@ -26,12 +26,19 @@
nils.sjoholm@mailbox.swipnet.se
}
{$IFNDEF FPC_DOTTEDUNITS}
unit longarray;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec;
{$ELSE FPC_DOTTEDUNITS}
uses
Exec;
{$ENDIF FPC_DOTTEDUNITS}
type
PArgList = ^TArgList;

7
packages/arosunits/src/mui.pas
View File

@ -13,7 +13,9 @@
**********************************************************************}
{$packrecords C}
{$IFNDEF FPC_DOTTEDUNITS}
unit mui;
{$ENDIF FPC_DOTTEDUNITS}
interface
@ -121,8 +123,13 @@ interface
Items marked with "Custom Class" are for use in custom classes only!
}
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Intuition, Amiga.Core.Utility, Amiga.Core.Agraphics, Amiga.Core.Iffparse;
{$ELSE FPC_DOTTEDUNITS}
uses
exec, intuition, utility, agraphics, iffparse;
{$ENDIF FPC_DOTTEDUNITS}
const

7
packages/arosunits/src/serial.pas
View File

@ -14,12 +14,19 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit serial;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec;
{$ELSE FPC_DOTTEDUNITS}
uses
exec;
{$ENDIF FPC_DOTTEDUNITS}
type

7
packages/arosunits/src/tagsarray.pas
View File

@ -14,13 +14,20 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit tagsarray;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec, Amiga.Core.Utility;
{$ELSE FPC_DOTTEDUNITS}
uses
Exec, Utility;
{$ENDIF FPC_DOTTEDUNITS}
type
TTagsList = array of ttagitem;

7
packages/arosunits/src/timer.pas
View File

@ -26,12 +26,19 @@
}
{$IFNDEF FPC_DOTTEDUNITS}
unit timer;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec;
{$ELSE FPC_DOTTEDUNITS}
uses
exec;
{$ENDIF FPC_DOTTEDUNITS}
const

7
packages/arosunits/src/utility.pas
View File

@ -12,14 +12,21 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit utility;
{$ENDIF FPC_DOTTEDUNITS}
{$PACKRECORDS C}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
Amiga.Core.Exec;
{$ELSE FPC_DOTTEDUNITS}
uses
Exec;
{$ENDIF FPC_DOTTEDUNITS}
type
PClockData = ^TClockData;

7
packages/arosunits/src/workbench.pas
View File

@ -12,13 +12,20 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit Workbench;
{$ENDIF FPC_DOTTEDUNITS}
{$PACKRECORDS C}
Interface
{$IFDEF FPC_DOTTEDUNITS}
Uses
Amiga.Core.Exec, Amiga.Core.Amigados, Amiga.Core.Utility, Amiga.Core.Intuition, Amiga.Core.Agraphics;
{$ELSE FPC_DOTTEDUNITS}
Uses
exec, AmigaDos, Utility, Intuition, AGraphics;
{$ENDIF FPC_DOTTEDUNITS}
// NOTE:
// - unit based on AROS ABIv0 sources d.d. 16-oct-2013