From bf448a6421c4fd0340d6bba70aba3b0a713d049b Mon Sep 17 00:00:00 2001
From: apnadkarni <apnmbx-wits@yahoo.com>
Date: Sun, 12 Feb 2023 11:04:16 +0000
Subject: Added 'encoding profiles'

---
 generic/tclEncoding.c | 31 ++++++++++++++++++++++++++++++-
 tests/cmdAH.test      |  9 +++++++++
 2 files changed, 39 insertions(+), 1 deletion(-)

diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c
index d2f3551..e8e1756 100644
--- a/generic/tclEncoding.c
+++ b/generic/tclEncoding.c
@@ -4278,7 +4278,7 @@ TclEncodingProfileIdToName(
     }
     return NULL;
 }
-
+
 /*
  *------------------------------------------------------------------------
  *
@@ -4321,6 +4321,35 @@ int TclEncodingExternalFlagsToInternal(int flags)
     }
     return flags;
 }
+
+/*
+ *------------------------------------------------------------------------
+ *
+ * TclGetEncodingProfiles --
+ *
+ *	Get the list of supported encoding profiles.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The list of profile names is stored in the interpreter result.
+ *
+ *------------------------------------------------------------------------
+ */
+void
+TclGetEncodingProfiles(Tcl_Interp *interp)
+{
+    int i, n;
+    Tcl_Obj *objPtr;
+    n = sizeof(encodingProfiles) / sizeof(encodingProfiles[0]);
+    objPtr = Tcl_NewListObj(n, NULL);
+    for (i = 0; i < n; ++i) {
+	Tcl_ListObjAppendElement(
+	    interp, objPtr, Tcl_NewStringObj(encodingProfiles[i].name, -1));
+    }
+    Tcl_SetObjResult(interp, objPtr);
+}
 
 /*
  * Local Variables:
diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index 7b2d99f..c666513 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.test
@@ -178,6 +178,7 @@ set "numargErrors(encoding system)" {^wrong # args: should be "(encoding |::tcl:
 set "numargErrors(encoding convertfrom)" {^wrong # args: should be "(encoding |::tcl::encoding::)convertfrom \?\?-profile profile\? \?-failindex var\? \?encoding\?\? data"$}
 set "numargErrors(encoding convertto)" {^wrong # args: should be "(encoding |::tcl::encoding::)convertto \?\?-profile profile\? \?-failindex var\? \?encoding\?\? data"$}
 set "numargErrors(encoding names)" {wrong # args: should be "encoding names"}
+set "numargErrors(encoding profiles)" {wrong # args: should be "encoding profiles"}
 
 set encProfiles {tcl8 strict replace}
 
@@ -202,6 +203,7 @@ set encValidStrings {
 set encInvalidBytes {
     ascii \x41\xe9\x42 default A\u00E9B     -1 {non-ASCII}
     ascii \x41\xe9\x42 tcl8    A\u00E9B     -1 {non-ASCII}
+    ascii \x41\xe9\x42 replace A\uFFFDB     -1 {non-ASCII}
     ascii \x41\xe9\x42 strict  A             1 {non-ASCII}
 
     utf-8 \x41\xC0\x42     default   A\u00C0B -1 C0
@@ -565,6 +567,13 @@ test cmdAH-4.5.2 {encoding names should include at least utf-8 and iso8859-1 and
 } -result {1 1 1}
 
 #
+# encoding profiles 4.6.*
+badnumargs cmdAH-4.6.1 {encoding profiles} {foo}
+test cmdAH-4.6.2 {encoding profiles} -body {
+    lsort [encoding profiles]
+} -result {replace strict tcl8}
+
+#
 # file command
 
 test cmdAH-5.1 {Tcl_FileObjCmd} -returnCodes error -body {
-- 
cgit v0.12