/*------------------------------------------------------------------------- * * pgtcl.c * *	libpgtcl is a tcl package for front-ends to interface with PostgreSQL. *	It's a Tcl wrapper for libpq. * * Portions Copyright (c) 1996-2003, PostgreSQL Global Development Group * Portions Copyright (c) 1994, Regents of the University of California * * * IDENTIFICATION *	  $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.28.4.1 2004/02/02 01:00:58 neilc Exp $ * *------------------------------------------------------------------------- */#include "postgres_fe.h"#include "libpgtcl.h"#include "pgtclCmds.h"#include "pgtclId.h"/* * Pgtcl_Init *	  initialization package for the PGTCL Tcl package * */intPgtcl_Init(Tcl_Interp *interp){	double		tclversion;	/*	 * finish off the ChannelType struct.  Much easier to do it here then	 * to guess where it might be by position in the struct.  This is	 * needed for Tcl7.6 *only*, which has the getfileproc.	 */#if HAVE_TCL_GETFILEPROC	Pg_ConnType.getFileProc = PgGetFileProc;#endif	/*	 * Tcl versions >= 8.1 use UTF-8 for their internal string	 * representation. Therefore PGCLIENTENCODING must be set to UNICODE	 * for these versions.	 */	Tcl_GetDouble(interp, Tcl_GetVar(interp, "tcl_version", TCL_GLOBAL_ONLY), &tclversion);	if (tclversion >= 8.1)		Tcl_PutEnv("PGCLIENTENCODING=UNICODE");	/* register all pgtcl commands */	Tcl_CreateCommand(interp,					  "pg_conndefaults",					  Pg_conndefaults,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_connect",					  Pg_connect,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_disconnect",					  Pg_disconnect,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_exec",					  Pg_exec,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_select",					  Pg_select,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_result",					  Pg_result,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_execute",					  Pg_execute,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_lo_open",					  Pg_lo_open,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_lo_close",					  Pg_lo_close,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);#ifdef PGTCL_USE_TCLOBJ	Tcl_CreateObjCommand(interp,						 "pg_lo_read",						 Pg_lo_read,						 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateObjCommand(interp,						 "pg_lo_write",						 Pg_lo_write,						 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);#else	Tcl_CreateCommand(interp,					  "pg_lo_read",					  Pg_lo_read,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_lo_write",					  Pg_lo_write,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);#endif	Tcl_CreateCommand(interp,					  "pg_lo_lseek",					  Pg_lo_lseek,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_lo_creat",					  Pg_lo_creat,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_lo_tell",					  Pg_lo_tell,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_lo_unlink",					  Pg_lo_unlink,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_lo_import",					  Pg_lo_import,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_lo_export",					  Pg_lo_export,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_listen",					  Pg_listen,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_CreateCommand(interp,					  "pg_on_connection_loss",					  Pg_on_connection_loss,					  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);	Tcl_PkgProvide(interp, "Pgtcl", "1.4");	return TCL_OK;}intPgtcl_SafeInit(Tcl_Interp *interp){	return Pgtcl_Init(interp);}