ソースを参照

* Dotted filenames for package os4units

Michaël Van Canneyt 2 年 前
コミット
09dd03240d
47 ファイル変更250 行追加0 行削除
  1. 3 0
      packages/os4units/namespaced/AmigaApi.Agraphics.pas
  2. 3 0
      packages/os4units/namespaced/AmigaApi.Amigados.pas
  3. 3 0
      packages/os4units/namespaced/AmigaApi.Asl.pas
  4. 3 0
      packages/os4units/namespaced/AmigaApi.Clipboard.pas
  5. 3 0
      packages/os4units/namespaced/AmigaApi.Console.pas
  6. 3 0
      packages/os4units/namespaced/AmigaApi.Conunit.pas
  7. 3 0
      packages/os4units/namespaced/AmigaApi.Cybergraphics.pas
  8. 3 0
      packages/os4units/namespaced/AmigaApi.Datatypes.pas
  9. 3 0
      packages/os4units/namespaced/AmigaApi.Diskfont.pas
  10. 3 0
      packages/os4units/namespaced/AmigaApi.Exec.pas
  11. 3 0
      packages/os4units/namespaced/AmigaApi.Icon.pas
  12. 3 0
      packages/os4units/namespaced/AmigaApi.Iffparse.pas
  13. 3 0
      packages/os4units/namespaced/AmigaApi.Inputevent.pas
  14. 3 0
      packages/os4units/namespaced/AmigaApi.Intuition.pas
  15. 3 0
      packages/os4units/namespaced/AmigaApi.Keymap.pas
  16. 3 0
      packages/os4units/namespaced/AmigaApi.Layers.pas
  17. 3 0
      packages/os4units/namespaced/AmigaApi.Locale.pas
  18. 3 0
      packages/os4units/namespaced/AmigaApi.Mui.pas
  19. 3 0
      packages/os4units/namespaced/AmigaApi.Picasso96api.pas
  20. 3 0
      packages/os4units/namespaced/AmigaApi.Serial.pas
  21. 3 0
      packages/os4units/namespaced/AmigaApi.Timer.pas
  22. 3 0
      packages/os4units/namespaced/AmigaApi.Utility.pas
  23. 3 0
      packages/os4units/namespaced/AmigaApi.Workbench.pas
  24. 25 0
      packages/os4units/namespaces.lst
  25. 7 0
      packages/os4units/src/agraphics.pas
  26. 7 0
      packages/os4units/src/amigados.pas
  27. 7 0
      packages/os4units/src/asl.pas
  28. 7 0
      packages/os4units/src/clipboard.pas
  29. 7 0
      packages/os4units/src/console.pas
  30. 7 0
      packages/os4units/src/conunit.pas
  31. 7 0
      packages/os4units/src/cybergraphics.pas
  32. 8 0
      packages/os4units/src/datatypes.pas
  33. 7 0
      packages/os4units/src/diskfont.pas
  34. 2 0
      packages/os4units/src/exec.pas
  35. 7 0
      packages/os4units/src/icon.pas
  36. 7 0
      packages/os4units/src/iffparse.pas
  37. 6 0
      packages/os4units/src/inputevent.pas
  38. 7 0
      packages/os4units/src/intuition.pas
  39. 7 0
      packages/os4units/src/keymap.pas
  40. 7 0
      packages/os4units/src/layers.pas
  41. 7 0
      packages/os4units/src/locale.pas
  42. 7 0
      packages/os4units/src/mui.pas
  43. 7 0
      packages/os4units/src/picasso96api.pas
  44. 7 0
      packages/os4units/src/serial.pas
  45. 7 0
      packages/os4units/src/timer.pas
  46. 7 0
      packages/os4units/src/utility.pas
  47. 7 0
      packages/os4units/src/workbench.pas

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Agraphics.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Amigados.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Asl.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Clipboard.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Console.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Conunit.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Cybergraphics.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Datatypes.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Diskfont.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Exec.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Icon.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Iffparse.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Inputevent.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Intuition.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Keymap.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Layers.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Locale.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Mui.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Picasso96api.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Serial.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Timer.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Utility.pas

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

+ 3 - 0
packages/os4units/namespaced/AmigaApi.Workbench.pas

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

+ 25 - 0
packages/os4units/namespaces.lst

@@ -0,0 +1,25 @@
+src/console.pas=namespaced/AmigaApi.Console.pas
+{s*:src/}=namespaced/
+{i+:src/}
+src/utility.pas=namespaced/AmigaApi.Utility.pas
+src/mui.pas=namespaced/AmigaApi.Mui.pas
+src/datatypes.pas=namespaced/AmigaApi.Datatypes.pas
+src/exec.pas=namespaced/AmigaApi.Exec.pas
+src/workbench.pas=namespaced/AmigaApi.Workbench.pas
+src/icon.pas=namespaced/AmigaApi.Icon.pas
+src/keymap.pas=namespaced/AmigaApi.Keymap.pas
+src/serial.pas=namespaced/AmigaApi.Serial.pas
+src/agraphics.pas=namespaced/AmigaApi.Agraphics.pas
+src/conunit.pas=namespaced/AmigaApi.Conunit.pas
+src/layers.pas=namespaced/AmigaApi.Layers.pas
+src/diskfont.pas=namespaced/AmigaApi.Diskfont.pas
+src/timer.pas=namespaced/AmigaApi.Timer.pas
+src/iffparse.pas=namespaced/AmigaApi.Iffparse.pas
+src/intuition.pas=namespaced/AmigaApi.Intuition.pas
+src/asl.pas=namespaced/AmigaApi.Asl.pas
+src/cybergraphics.pas=namespaced/AmigaApi.Cybergraphics.pas
+src/locale.pas=namespaced/AmigaApi.Locale.pas
+src/inputevent.pas=namespaced/AmigaApi.Inputevent.pas
+src/amigados.pas=namespaced/AmigaApi.Amigados.pas
+src/clipboard.pas=namespaced/AmigaApi.Clipboard.pas
+src/picasso96api.pas=namespaced/AmigaApi.Picasso96api.pas

+ 7 - 0
packages/os4units/src/agraphics.pas

@@ -14,12 +14,19 @@
  **********************************************************************}
 {$PACKRECORDS 2}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit agraphics;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  Amiga.Core.Exec, Amiga.Core.Utility;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   exec, utility;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 // tag definitions for BltBitMapTagList, BltBitMapTags

+ 7 - 0
packages/os4units/src/amigados.pas

@@ -15,12 +15,19 @@
 
 {$PACKRECORDS 2}
 
+{$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}
 
 const
 // Predefined Amiga DOS global constants

+ 7 - 0
packages/os4units/src/asl.pas

@@ -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';

+ 7 - 0
packages/os4units/src/clipboard.pas

@@ -12,12 +12,19 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit clipboard;
+{$ENDIF FPC_DOTTEDUNITS}
 {$PACKRECORDS 2}
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  Amiga.Core.Exec;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   exec;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
   CBD_POST           = CMD_NONSTD + 0;

+ 7 - 0
packages/os4units/src/console.pas

@@ -21,12 +21,19 @@
     [email protected]  Nils Sjoholm
 }
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit console;
+{$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}
 
 const
 

+ 7 - 0
packages/os4units/src/conunit.pas

@@ -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 - 0
packages/os4units/src/cybergraphics.pas

@@ -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';

+ 8 - 0
packages/os4units/src/datatypes.pas

@@ -14,13 +14,21 @@
  **********************************************************************}
 {$PACKRECORDS 2}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit datatypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  Amiga.Core.Exec, Amiga.Core.Amigados, Amiga.Core.Intuition, Amiga.Core.Utility,
+  Amiga.Core.Agraphics, Amiga.Core.Iffparse;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   exec, amigados, intuition, utility,
   agraphics, iffparse;
+{$ENDIF FPC_DOTTEDUNITS}
 
 // datatypes
 const

+ 7 - 0
packages/os4units/src/diskfont.pas

@@ -12,12 +12,19 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$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; // including null terminator

+ 2 - 0
packages/os4units/src/exec.pas

@@ -13,7 +13,9 @@
 
  **********************************************************************}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit exec;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$PACKRECORDS 2}
 

+ 7 - 0
packages/os4units/src/icon.pas

@@ -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}
 
 const
   ICONNAME: PAnsiChar = 'icon.library';

+ 7 - 0
packages/os4units/src/iffparse.pas

@@ -14,12 +14,19 @@
  **********************************************************************}
 {$PACKRECORDS 2}
 
+{$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}
 
 
 // Struct associated with an active IFF stream. "iff_Stream" is a value used by the client's read/write/seek functions -

+ 6 - 0
packages/os4units/src/inputevent.pas

@@ -14,11 +14,17 @@
 
  **********************************************************************}
 {$PACKRECORDS 2}
+{$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 - 0
packages/os4units/src/intuition.pas

@@ -14,12 +14,19 @@
  **********************************************************************}
 {$PACKRECORDS 2}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit intuition;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  Amiga.Core.Exec, Amiga.Core.Agraphics, Amiga.Core.Utility, Amiga.Core.Inputevent, Amiga.Core.Timer, Amiga.Core.Layers;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   exec, agraphics, utility, inputevent, timer, layers;
+{$ENDIF FPC_DOTTEDUNITS}
 
 //***** User visible handles on objects, classes, messages
 type

+ 7 - 0
packages/os4units/src/keymap.pas

@@ -14,12 +14,19 @@
  **********************************************************************}
 {$PACKRECORDS 2}
 
+{$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
   PKeyMap = ^TKeyMap;

+ 7 - 0
packages/os4units/src/layers.pas

@@ -14,12 +14,19 @@
  **********************************************************************}
 {$PACKRECORDS 2}
 
+{$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
   LAYERSIMPLE           = 1;

+ 7 - 0
packages/os4units/src/locale.pas

@@ -15,11 +15,18 @@
 
 {$PACKRECORDS 2}
 
+{$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}
 
 const
 // constants for GetLocaleStr()

+ 7 - 0
packages/os4units/src/mui.pas

@@ -13,7 +13,9 @@
 
  **********************************************************************}
 {$packrecords C}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit mui;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
@@ -113,8 +115,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 - 0
packages/os4units/src/picasso96api.pas

@@ -12,12 +12,19 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit picasso96api;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  Amiga.Core.Exec, Amiga.Core.Utility, Amiga.Core.Agraphics, Amiga.Core.Intuition;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Exec, utility, agraphics, intuition;
+{$ENDIF FPC_DOTTEDUNITS}
 
 // Picasso96.h -- include File
 //  (C) Copyright 1996-98 Alexander Kneer & Tobias Abt

+ 7 - 0
packages/os4units/src/serial.pas

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

+ 7 - 0
packages/os4units/src/timer.pas

@@ -14,12 +14,19 @@
  **********************************************************************}
 {$PACKRECORDS 2}
 
+{$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
 // unit defintions

+ 7 - 0
packages/os4units/src/utility.pas

@@ -16,12 +16,19 @@
 
 {$PACKRECORDS 2}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit utility;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  Amiga.Core.Exec;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   exec;
+{$ENDIF FPC_DOTTEDUNITS}
 
 type
   PClockData = ^TClockData;

+ 7 - 0
packages/os4units/src/workbench.pas

@@ -12,13 +12,20 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit Workbench;
+{$ENDIF FPC_DOTTEDUNITS}
 {$PACKRECORDS 2}
 
 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}
 
 // ###### workbench/startup.h ###############################################