diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-02-12 11:04:16 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-02-12 11:04:16 (GMT) |
commit | e78ac0a10645b7a3952dfc1a9dda2d9221ba3bd3 (patch) | |
tree | 6d45ababc6bd6d2dcb3646760ebd8019a6076a3b /generic/tclEncoding.c | |
parent | 486c0943f4f861dd0bf46b6d7298f42253b6551b (diff) | |
download | tcl-e78ac0a10645b7a3952dfc1a9dda2d9221ba3bd3.zip tcl-e78ac0a10645b7a3952dfc1a9dda2d9221ba3bd3.tar.gz tcl-e78ac0a10645b7a3952dfc1a9dda2d9221ba3bd3.tar.bz2 |
Added 'encoding profiles'
Diffstat (limited to 'generic/tclEncoding.c')
-rw-r--r-- | generic/tclEncoding.c | 31 |
1 files changed, 30 insertions, 1 deletions
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: |