1 files changed, 0 insertions, 64 deletions
diff --git a/src/interfaces/libpgtcl/pgtclId.h b/src/interfaces/libpgtcl/pgtclId.h
deleted file mode 100644
index fd5006bcad9..00000000000
--- a/src/interfaces/libpgtcl/pgtclId.h
+++ /dev/null
@@ -1,64 +0,0 @@
-/*-------------------------------------------------------------------------
- *
- * pgtclId.h
- *
- *	Contains Tcl "channel" interface routines, plus useful routines
- *	to convert between strings and pointers.  These are needed because
- *	everything in Tcl is a string, but in C, pointers to data structures
- *	are needed.
- *
- * Portions Copyright (c) 1996-2003, PostgreSQL Global Development Group
- * Portions Copyright (c) 1994, Regents of the University of California
- *
- * $PostgreSQL: pgsql/src/interfaces/libpgtcl/pgtclId.h,v 1.25 2003/11/29 22:41:25 pgsql Exp $
- *
- *-------------------------------------------------------------------------
- */
-
-extern void PgSetConnectionId(Tcl_Interp *interp, PGconn *conn);
-
-#if TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION == 5
-/* Only Tcl 7.5 had drivers with this signature */
-#define DRIVER_DEL_PROTO ClientData cData, Tcl_Interp *interp, \
-	Tcl_File inFile, Tcl_File outFile
-#define DRIVER_OUTPUT_PROTO ClientData cData, Tcl_File outFile, char *buf, \
-	int bufSize, int *errorCodePtr
-#define DRIVER_INPUT_PROTO ClientData cData, Tcl_File inFile, char *buf, \
-	int bufSize, int *errorCodePtr
-#else
-/* Tcl 7.6 and beyond use this signature */
-#define DRIVER_OUTPUT_PROTO ClientData cData, CONST84 char *buf, int bufSize, \
-	int *errorCodePtr
-#define DRIVER_INPUT_PROTO ClientData cData, char *buf, int bufSize, \
-	int *errorCodePtr
-#define DRIVER_DEL_PROTO ClientData cData, Tcl_Interp *interp
-#endif
-
-extern PGconn *PgGetConnectionId(Tcl_Interp *interp, CONST84 char *id,
-				  Pg_ConnectionId **);
-extern int	PgDelConnectionId(DRIVER_DEL_PROTO);
-extern int	PgOutputProc(DRIVER_OUTPUT_PROTO);
-extern int	PgInputProc(DRIVER_INPUT_PROTO);
-extern int PgSetResultId(Tcl_Interp *interp, CONST84 char *connid,
-			  PGresult *res);
-extern PGresult *PgGetResultId(Tcl_Interp *interp, CONST84 char *id);
-extern void PgDelResultId(Tcl_Interp *interp, CONST84 char *id);
-extern int	PgGetConnByResultId(Tcl_Interp *interp, CONST84 char *resid);
-extern void PgStartNotifyEventSource(Pg_ConnectionId * connid);
-extern void PgStopNotifyEventSource(Pg_ConnectionId * connid, bool allevents);
-extern void PgNotifyTransferEvents(Pg_ConnectionId * connid);
-extern void PgConnLossTransferEvents(Pg_ConnectionId * connid);
-extern void PgNotifyInterpDelete(ClientData clientData, Tcl_Interp *interp);
-
-/* GetFileProc is needed in Tcl 7.6 *only* ... it went away again in 8.0 */
-#if TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION >= 6
-#define HAVE_TCL_GETFILEPROC 1
-#else
-#define HAVE_TCL_GETFILEPROC 0
-#endif
-
-#if HAVE_TCL_GETFILEPROC
-extern Tcl_File PgGetFileProc(ClientData cData, int direction);
-#endif
-
-extern Tcl_ChannelType Pg_ConnType;