diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-27 15:13:36 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-27 15:13:36 (GMT) |
commit | 8225b1fd250bbd3d71a52ca514ae343a91dfcdc5 (patch) | |
tree | a91dde691bf66a3e79e57ac8058f0ab98348bc68 /generic/tclInt.h | |
parent | af64c95042a9706c6d45118c8f341aafa5c26686 (diff) | |
parent | 192dc7dffdb4bd9d434e1f54830711df4fed4672 (diff) | |
download | tcl-8225b1fd250bbd3d71a52ca514ae343a91dfcdc5.zip tcl-8225b1fd250bbd3d71a52ca514ae343a91dfcdc5.tar.gz tcl-8225b1fd250bbd3d71a52ca514ae343a91dfcdc5.tar.bz2 |
Rebase to 9.0. Add more filname encoding checks
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r-- | generic/tclInt.h | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 9c7ad17..89a3f4c 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -2878,6 +2878,13 @@ typedef Tcl_Channel (TclOpenFileChannelProc_)(Tcl_Interp *interp, typedef void (TclInitProcessGlobalValueProc)(char **valuePtr, TCL_HASH_TYPE *lengthPtr, Tcl_Encoding *encodingPtr); +MODULE_SCOPE Tcl_Encoding TclUtf8Encoding; /* static encoding for "UTF-8" */ +#ifdef _WIN32 +# define TCLFSENCODING TclUtf8Encoding /* On Windows, all Unicode (except surrogates) are valid */ +#else +# define TCLFSENCODING NULL /* On Non-Windows, use the system encoding for validation checks */ +#endif + /* * A ProcessGlobalValue struct exists for each internal value in Tcl that is * to be shared among several threads. Each thread sees a (Tcl_Obj) copy of @@ -3035,7 +3042,6 @@ TclEncodingProfileNameToId(Tcl_Interp *interp, int *profilePtr); MODULE_SCOPE const char *TclEncodingProfileIdToName(Tcl_Interp *interp, int profileId); -MODULE_SCOPE int TclEncodingSetProfileFlags(int flags); MODULE_SCOPE void TclGetEncodingProfiles(Tcl_Interp *interp); /* |