diff options
Diffstat (limited to 'src/interfaces/libpgtcl/pgtcl.c')
| -rw-r--r-- | src/interfaces/libpgtcl/pgtcl.c | 165 |
1 files changed, 0 insertions, 165 deletions
diff --git a/src/interfaces/libpgtcl/pgtcl.c b/src/interfaces/libpgtcl/pgtcl.c deleted file mode 100644 index a415d63be65..00000000000 --- a/src/interfaces/libpgtcl/pgtcl.c +++ /dev/null @@ -1,165 +0,0 @@ -/*------------------------------------------------------------------------- - * - * 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-2002, 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.25 2002/06/20 20:29:53 momjian Exp $ - * - *------------------------------------------------------------------------- - */ - -#include "postgres_fe.h" -#include "libpgtcl.h" -#include "pgtclCmds.h" -#include "pgtclId.h" - -/* - * Pgtcl_Init - * initialization package for the PGTCL Tcl package - * - */ - -int -Pgtcl_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) - 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_PkgProvide(interp, "Pgtcl", "1.3"); - - return TCL_OK; -} - - -int -Pgtcl_SafeInit(Tcl_Interp *interp) -{ - return Pgtcl_Init(interp); -} |