* Dotted filenames for package xforms

packages/xforms/fpmake.pp

@@ -32,7 +32,7 @@ begin
         begin
           AddInclude('cursorfont.inc');
         end;
-    T:=P.Targets.AddProgram('fd2pascal.pp');
+    // T:=P.Targets.AddProgram('fd2pascal.pp');
 
     P.Sources.AddSrc('README.txt');
 

packages/xforms/namespaced/Api.Fd2pascal.pp

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

packages/xforms/namespaced/Api.Xforms.pp

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

packages/xforms/namespaces.lst

@@ -0,0 +1,4 @@
+src/xforms.pp=namespaced/Api.Xforms.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/fd2pascal.pp=namespaced/Api.Fd2pascal.pp

packages/xforms/src/fd2pascal.pp

@@ -21,10 +21,17 @@ Program fd2pascal;
   --------------------------------------------------------------------------- }
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  UnixApi.Base,
+  UnixApi.Unix,
+  System.SysUtils;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   baseunix,
   Unix,
   sysutils;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Const RevString = '$Revision: 1.5 $';
   NrOptions = 4;

packages/xforms/src/xforms.pp

@@ -1,14 +1,21 @@
 {
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit xforms;
+{$ENDIF FPC_DOTTEDUNITS}
 Interface
 
 {$linklib forms}
 {$linklib c}
 {$linklib m}
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  Api.X11.X,Api.X11.Xlib,Api.X11.Xutil,Api.X11.Xresource;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   x,xlib,xutil,xresource;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
   FL_VERSION=0;