* Dotted filenames for package tosunits

packages/tosunits/namespaced/AtariApi.Aes.pas

@@ -0,0 +1,3 @@
+unit AtariApi.Aes;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i aes.pas}

packages/tosunits/namespaced/AtariApi.Bios.pas

@@ -0,0 +1,3 @@
+unit AtariApi.Bios;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i bios.pas}

packages/tosunits/namespaced/AtariApi.Gem.pas

@@ -0,0 +1,3 @@
+unit AtariApi.Gem;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i gem.pas}

packages/tosunits/namespaced/AtariApi.Gemcmmn.pas

@@ -0,0 +1,3 @@
+unit AtariApi.Gemcmmn;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i gemcmmn.pas}

packages/tosunits/namespaced/AtariApi.Gemdos.pas

@@ -0,0 +1,3 @@
+unit AtariApi.Gemdos;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i gemdos.pas}

packages/tosunits/namespaced/AtariApi.Metados.pas

@@ -0,0 +1,3 @@
+unit AtariApi.Metados;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i metados.pas}

packages/tosunits/namespaced/AtariApi.Nf_ops.pas

@@ -0,0 +1,3 @@
+unit AtariApi.Nf_ops;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i nf_ops.pas}

packages/tosunits/namespaced/AtariApi.Tos.pas

@@ -0,0 +1,3 @@
+unit AtariApi.Tos;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i tos.pas}

packages/tosunits/namespaced/AtariApi.Vdi.pas

@@ -0,0 +1,3 @@
+unit AtariApi.Vdi;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i vdi.pas}

packages/tosunits/namespaced/AtariApi.Xbios.pas

@@ -0,0 +1,3 @@
+unit AtariApi.Xbios;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i xbios.pas}

packages/tosunits/namespaces.lst

@@ -0,0 +1,12 @@
+src/gemdos.pas=namespaced/AtariApi.Gemdos.pas
+{s*:src/}=namespaced/
+{i+:src/}
+src/vdi.pas=namespaced/AtariApi.Vdi.pas
+src/tos.pas=namespaced/AtariApi.Tos.pas
+src/nf_ops.pas=namespaced/AtariApi.Nf_ops.pas
+src/gem.pas=namespaced/AtariApi.Gem.pas
+src/aes.pas=namespaced/AtariApi.Aes.pas
+src/metados.pas=namespaced/AtariApi.Metados.pas
+src/gemcmmn.pas=namespaced/AtariApi.Gemcmmn.pas
+src/bios.pas=namespaced/AtariApi.Bios.pas
+src/xbios.pas=namespaced/AtariApi.Xbios.pas

packages/tosunits/src/aes.pas

@@ -16,11 +16,17 @@
 {$MODESWITCH OUT+}
 {$PACKRECORDS 2}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit aes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses AtariApi.Gemcmmn;
+{$ELSE FPC_DOTTEDUNITS}
 uses gemcmmn;
+{$ENDIF FPC_DOTTEDUNITS}
 
 { The API description of this file is based on the information available
   online at: https://freemint.github.io/tos.hyp/en/index.html }

packages/tosunits/src/bios.pas

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

packages/tosunits/src/gem.pas

@@ -21,11 +21,17 @@
 {$MODESWITCH OUT+}
 {$PACKRECORDS 2}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit gem;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses AtariApi.Aes, AtariApi.Vdi, AtariApi.Gemcmmn;
+{$ELSE FPC_DOTTEDUNITS}
 uses aes, vdi, gemcmmn;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
         LWhite          = DWHITE;

packages/tosunits/src/gemcmmn.pas

@@ -21,7 +21,9 @@
 {$MODESWITCH OUT+}
 {$PACKRECORDS 2}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit gemcmmn;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 

packages/tosunits/src/gemdos.pas

@@ -14,7 +14,9 @@
 
 {$PACKRECORDS 2}
 {$MODESWITCH OUT+}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit gemdos;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 

packages/tosunits/src/metados.pas

@@ -14,7 +14,9 @@
 
 {$PACKRECORDS 2}
 {$MODESWITCH OUT+}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit metados;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 

packages/tosunits/src/nf_ops.pas

@@ -20,7 +20,9 @@
 {$S-}
 {$B-}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit NF_OPS;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
@@ -92,8 +94,13 @@ function nf_exit(exitcode: integer): longint;
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+    AtariApi.Xbios;
+{$ELSE FPC_DOTTEDUNITS}
 uses
     xbios;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
     NATFEAT_ID = $7300;
@@ -132,7 +139,7 @@ asm
   * on ColdFire, the NATFEAT_ID opcode is actually
   * "mvs.b d0,d1".
   * But since there is no emulator that emulates a ColdFire,
-  * this feature isn't available.
+  * this feature is not available.
   *)
   moveq #0,d0
 {$ELSE}

packages/tosunits/src/tos.pas

@@ -21,11 +21,17 @@
 {$MODESWITCH OUT+}
 {$LONGSTRINGS OFF} { this unit always uses shortstrings }
 {$PACKRECORDS 2}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit tos;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses AtariApi.Gemdos, AtariApi.Xbios, AtariApi.Bios, AtariApi.Metados;
+{$ELSE FPC_DOTTEDUNITS}
 uses gemdos, xbios, bios, metados;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
     FO_READ     = 0;

packages/tosunits/src/vdi.pas

@@ -16,11 +16,17 @@
 {$MODESWITCH OUT+}
 {$PACKRECORDS 2}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit vdi;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses AtariApi.Gemcmmn;
+{$ELSE FPC_DOTTEDUNITS}
 uses gemcmmn;
+{$ENDIF FPC_DOTTEDUNITS}
 
 { The API description of this file is based on the information available
   online at: https://freemint.github.io/tos.hyp/en/index.html }
@@ -396,6 +402,7 @@ var
   _ptsin: TVDIPtsIn;
   _ptsout: TVDIPtsOut;
 
+{$ifndef FPDOC}
 const
   pblock: TVDIPB = (
     control: @_contrl;
@@ -404,6 +411,7 @@ const
     intout: @_intout;
     ptsout: @_ptsout;
   ); public name 'vdipb';
+{$ENDIF}
 
 function string_to_vdi(const src: shortstring; dst: psmallint): smallint;
 var
@@ -455,7 +463,7 @@ asm
   movea.l     (a7)+,a2
 end;
 
-function vq_vgdos: LongInt; assembler; assembler; nostackframe;
+function vq_vgdos: LongInt; assembler; nostackframe;
 asm
   pea.l       (a2)
   moveq.l     #-2,d0

packages/tosunits/src/xbios.pas

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