* Dotted filenames for package tcl

packages/tcl/namespaced/Api.Tcl80.pp

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

packages/tcl/namespaces.lst

@@ -0,0 +1,3 @@
+src/tcl80.pp=namespaced/Api.Tcl80.pp
+{s*:src/}=namespaced/
+{i+:src/}

packages/tcl/src/tcl80.pp

@@ -20,7 +20,9 @@
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  * ***********************************************************************
  *}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit Tcl80;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$MODE OBJFPC}
 {$ifdef CPUI386}
@@ -942,7 +944,11 @@ type
 
 
 implementation
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.SysUtils {, System.Classes};
+{$ELSE FPC_DOTTEDUNITS}
 uses SysUtils {, Classes};
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 // Macro emulation