From 05692dfdf2fe5f33a9215caaeaaa6b0c22333db7 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Tue, 29 May 2001 08:51:59 +0000 Subject: [PATCH] More fixes for character encodings. --- recctrl/regxread.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/recctrl/regxread.c b/recctrl/regxread.c index 5ec5624..6fdbd89 100644 --- a/recctrl/regxread.c +++ b/recctrl/regxread.c @@ -3,7 +3,10 @@ * All rights reserved. * * $Log: regxread.c,v $ - * Revision 1.36 2001-05-22 21:02:26 adam + * Revision 1.37 2001-05-29 08:51:59 adam + * More fixes for character encodings. + * + * 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 @@ -2102,7 +2105,9 @@ data1_node *grs_read_tcl (struct grs_read_info *p) if (*curLexSpec) lexSpecDestroy (curLexSpec); *curLexSpec = lexSpecCreate (p->type, p->dh); + Tcl_FindExecutable(""); tcl_interp = (*curLexSpec)->tcl_interp = Tcl_CreateInterp(); + Tcl_Init(tcl_interp); Tcl_CreateCommand (tcl_interp, "begin", cmd_tcl_begin, *curLexSpec, 0); Tcl_CreateCommand (tcl_interp, "end", cmd_tcl_end, *curLexSpec, 0); Tcl_CreateCommand (tcl_interp, "data", cmd_tcl_data, *curLexSpec, 0); -- 1.7.10.4