projects
/
idzebra-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7a49c3d
)
Fixes for Tcl UTF8 character handling.
author
Adam Dickmeiss
<adam@indexdata.dk>
Tue, 22 May 2001 21:02:26 +0000
(21:02 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Tue, 22 May 2001 21:02:26 +0000
(21:02 +0000)
recctrl/regxread.c
patch
|
blob
|
history
diff --git
a/recctrl/regxread.c
b/recctrl/regxread.c
index
73744fc
..
5ec5624
100644
(file)
--- a/
recctrl/regxread.c
+++ b/
recctrl/regxread.c
@@
-3,7
+3,10
@@
* All rights reserved.
*
* $Log: regxread.c,v $
* All rights reserved.
*
* $Log: regxread.c,v $
- * Revision 1.35 2001-03-29 21:31:31 adam
+ * Revision 1.36 2001-05-22 21:02:26 adam
+ * Fixes for Tcl UTF8 character handling.
+ *
+ * Revision 1.35 2001/03/29 21:31:31 adam
* Fixed "record begin" for Tcl filter.
*
* Revision 1.34 2000/11/29 14:24:01 adam
* Fixed "record begin" for Tcl filter.
*
* Revision 1.34 2000/11/29 14:24:01 adam
@@
-1401,7
+1404,14
@@
static int cmd_tcl_data (ClientData clientData, Tcl_Interp *interp,
while (argi < argc)
{
while (argi < argc)
{
+#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION > 0)
+ Tcl_DString ds;
+ char *native = Tcl_UtfToExternalDString(0, argv[argi], -1, &ds);
+ execData (spec, native, strlen(native), textFlag);
+ Tcl_DStringFree (&ds);
+#else
execData (spec, argv[argi], strlen(argv[argi]), textFlag);
execData (spec, argv[argi], strlen(argv[argi]), textFlag);
+#endif
argi++;
}
if (element)
argi++;
}
if (element)