mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix breakage for pltcl modules. pg_get_enconv_by_encoding() has been

Browse Source 
changed since CREATE CONVERSION supported.
This commit is contained in:
Tatsuo Ishii 2002-07-18 04:16:07 +00:00
parent 404e9a12a5
commit 3d7a9ac769
1 changed files with 3 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/pl/tcl/pltcl.c
View File

@ -31,7 +31,7 @@
* ENHANCEMENTS, OR MODIFICATIONS.
*
* IDENTIFICATION
* $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.56 2002/06/15 19:54:24 momjian Exp $
* $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.57 2002/07/18 04:16:07 ishii Exp $
*
**********************************************************************/
@ -65,20 +65,16 @@
#include "mb/pg_wchar.h"
static pg_enconv *tcl_enconv;
static unsigned char *
utf_u2e(unsigned char *src)
{
return pg_do_encoding_conversion(src, strlen(src),
NULL, tcl_enconv->from_unicode);
return pg_do_encoding_conversion(src, strlen(src), PG_UNICODE, GetDatabaseEncoding());
}
static unsigned char *
utf_e2u(unsigned char *src)
{
return pg_do_encoding_conversion(src, strlen(src),
tcl_enconv->to_unicode, NULL);
return pg_do_encoding_conversion(src, strlen(src), GetDatabaseEncoding(), PG_UNICODE);
}
#define PLTCL_UTF
@ -211,14 +207,6 @@ pltcl_init_all(void)
if (!pltcl_firstcall)
return;
#ifdef PLTCL_UTF
/************************************************************
* Do unicode conversion initialization
************************************************************/
tcl_enconv = pg_get_enconv_by_encoding(GetDatabaseEncoding());
#endif
/************************************************************
* Create the dummy hold interpreter to prevent close of
* stdout and stderr on DeleteInterp