* Dotted filenames for package dbus

packages/dbus/namespaced/Api.Dbus.pas

@@ -0,0 +1,3 @@
+unit Api.Dbus;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i dbus.pas}

packages/dbus/namespaced/Api.Dbuscomp.pp

@@ -0,0 +1,3 @@
+unit Api.Dbuscomp;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i dbuscomp.pp}

packages/dbus/namespaces.lst

@@ -0,0 +1,4 @@
+src/dbuscomp.pp=namespaced/Api.Dbuscomp.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/dbus.pas=namespaced/Api.Dbus.pas

packages/dbus/src/dbus.pas

@@ -26,7 +26,9 @@
  * MA 02110-1301, USA.
  *
  }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit dbus;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$ifdef fpc}
   {$mode delphi}{$H+}
@@ -48,7 +50,11 @@ unit dbus;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.CTypes;
+{$ELSE FPC_DOTTEDUNITS}
 uses ctypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 {$ifdef unix}

packages/dbus/src/dbuscomp.pp

@@ -13,14 +13,21 @@
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit dbuscomp;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}
 {$h+}
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, System.CTypes,Api.Dbus;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes, SysUtils, ctypes,dbus;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Type
 
@@ -2549,7 +2556,7 @@ Var
   B : dbus_bool_t;
 begin
   B:=Ord(Arg);
-  Append(dbus.DBUS_TYPE_BOOLEAN,B);
+  Append({$IFDEF FPC_DOTTEDUNITS}Api.{$ENDIF}dbus.DBUS_TYPE_BOOLEAN,B);
 end;
 
 procedure TDBusMessageIterator.AppendArgument(const Arg: SmallInt);