* Dotted filenames for package qlunits

packages/qlunits/namespaced/SinclairApi.Qdos.pas

@@ -0,0 +1,3 @@
+unit SinclairApi.Qdos;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i qdos.pas}

packages/qlunits/namespaced/SinclairApi.Qlfloat.pas

@@ -0,0 +1,3 @@
+unit SinclairApi.Qlfloat;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i qlfloat.pas}

packages/qlunits/namespaced/SinclairApi.Qlutil.pas

@@ -0,0 +1,3 @@
+unit SinclairApi.Qlutil;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i qlutil.pas}

packages/qlunits/namespaced/SinclairApi.Sms.pas

@@ -0,0 +1,3 @@
+unit SinclairApi.Sms;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i sms.pas}

packages/qlunits/namespaces.lst

@@ -0,0 +1,6 @@
+src/qlutil.pas=namespaced/SinclairApi.Qlutil.pas
+{s*:src/}=namespaced/
+{i+:src/}
+src/sms.pas=namespaced/SinclairApi.Sms.pas
+src/qdos.pas=namespaced/SinclairApi.Qdos.pas
+src/qlfloat.pas=namespaced/SinclairApi.Qlfloat.pas

packages/qlunits/src/qdos.pas

@@ -14,7 +14,9 @@
  **********************************************************************}
 {$PACKRECORDS 2}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit qdos;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 interface
@@ -341,8 +343,13 @@ procedure sd_line(chan: Tchanid; timeout: Ttimeout; x_start: double; y_start: do
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  SinclairApi.Qlfloat;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   qlfloat;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
   _SD_POINT = $30;

packages/qlunits/src/qlfloat.pas

@@ -9,12 +9,19 @@
     https://qlwiki.qlforum.co.uk/doku.php?id=qlwiki:c68
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit qlfloat;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  SinclairApi.Qdos;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   qdos;
+{$ENDIF FPC_DOTTEDUNITS}
 
 function longint_to_qlfp(qlf: Pqlfloat; val: longint): Pqlfloat;
 function double_to_qlfp(qlf: Pqlfloat; val: Pdouble): Pqlfloat;

packages/qlunits/src/qlutil.pas

@@ -13,7 +13,9 @@
 
  **********************************************************************}
 {$MODE FPC}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit qlutil;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 

packages/qlunits/src/sms.pas

@@ -14,13 +14,20 @@
  **********************************************************************}
 {$PACKRECORDS 2}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit sms;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  SinclairApi.Qdos;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   qdos;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 { Variable/type includes before function declarations }