diff options
author | lecoanet | 2002-12-20 13:50:50 +0000 |
---|---|---|
committer | lecoanet | 2002-12-20 13:50:50 +0000 |
commit | 0771f0f81b0a25fb5149041bde6da83f92973f0e (patch) | |
tree | 63303ad743564b3949fa1ba8389ef34251c3e1c8 /generic/Types.h | |
parent | 1bccc96e1aa9fc02c9db40de26314f8fe0fd8c5a (diff) | |
download | tkzinc-0771f0f81b0a25fb5149041bde6da83f92973f0e.zip tkzinc-0771f0f81b0a25fb5149041bde6da83f92973f0e.tar.gz tkzinc-0771f0f81b0a25fb5149041bde6da83f92973f0e.tar.bz2 tkzinc-0771f0f81b0a25fb5149041bde6da83f92973f0e.tar.xz |
Ajout de macros pour rendre le support UTF8 transparent en Perl
Diffstat (limited to 'generic/Types.h')
-rw-r--r-- | generic/Types.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/Types.h b/generic/Types.h index f46a4a0..e044555 100644 --- a/generic/Types.h +++ b/generic/Types.h @@ -387,6 +387,13 @@ typedef struct { #define CLEAR(var, mask) ((var) &= ~(mask)) #define ASSIGN(var, mask, bool) ((bool) ? SET((var), (mask)) : CLEAR((var), (mask))) +/* + * Macros for Tk8.4/perl/Tk utf compatibility + */ +#ifdef PTK +#define Tcl_NumUtfChars(str, len) ((len)<0?strlen(str):(len)) +#define Tcl_UtfAtIndex(str, index) (&(str)[(index)]) +#endif #ifdef __CPLUSPLUS__ } |