From f126fbe2cfc71ae1a7c78321ead4381548da971d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Mon, 6 Mar 2023 14:57:58 +0100
Subject: [PATCH] * Dotted filenames for package tcl

---
 packages/tcl/namespaced/Api.Tcl80.pp | 3 +++
 packages/tcl/namespaces.lst          | 3 +++
 packages/tcl/src/tcl80.pp            | 6 ++++++
 3 files changed, 12 insertions(+)
 create mode 100644 packages/tcl/namespaced/Api.Tcl80.pp
 create mode 100644 packages/tcl/namespaces.lst

diff --git a/packages/tcl/namespaced/Api.Tcl80.pp b/packages/tcl/namespaced/Api.Tcl80.pp
new file mode 100644
index 0000000000..1ca4d8f119
--- /dev/null
+++ b/packages/tcl/namespaced/Api.Tcl80.pp
@@ -0,0 +1,3 @@
+unit Api.Tcl80;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i tcl80.pp}
diff --git a/packages/tcl/namespaces.lst b/packages/tcl/namespaces.lst
new file mode 100644
index 0000000000..fdccccec90
--- /dev/null
+++ b/packages/tcl/namespaces.lst
@@ -0,0 +1,3 @@
+src/tcl80.pp=namespaced/Api.Tcl80.pp
+{s*:src/}=namespaced/
+{i+:src/}
diff --git a/packages/tcl/src/tcl80.pp b/packages/tcl/src/tcl80.pp
index eddc8c93e0..8bdd5ef7ca 100644
--- a/packages/tcl/src/tcl80.pp
+++ b/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