diff options
Diffstat (limited to 'src/interfaces/libpgtcl/pgtclId.h')
-rw-r--r-- | src/interfaces/libpgtcl/pgtclId.h | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/src/interfaces/libpgtcl/pgtclId.h b/src/interfaces/libpgtcl/pgtclId.h index addb4e260c..963fbbaeb9 100644 --- a/src/interfaces/libpgtcl/pgtclId.h +++ b/src/interfaces/libpgtcl/pgtclId.h @@ -1,17 +1,18 @@ /*------------------------------------------------------------------------- -* -* pgtclId.h-- -* useful routines to convert between strings and pointers -* Needed because everything in tcl is a string, but often, pointers -* to data structures are needed. -* -* -* Copyright (c) 1994, Regents of the University of California -* -* $Id: pgtclId.h,v 1.8 1998/09/01 04:39:59 momjian Exp $ -* -*------------------------------------------------------------------------- -*/ + * + * 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. + * + * Copyright (c) 1994, Regents of the University of California + * + * $Id: pgtclId.h,v 1.9 1998/09/21 01:02:04 momjian Exp $ + * + *------------------------------------------------------------------------- + */ extern void PgSetConnectionId(Tcl_Interp * interp, PGconn *conn); @@ -32,8 +33,8 @@ extern void PgSetConnectionId(Tcl_Interp * interp, PGconn *conn); #define DRIVER_DEL_PROTO ClientData cData, Tcl_Interp *interp #endif -extern PGconn *PgGetConnectionId(Tcl_Interp * interp, char *id, \ - Pg_ConnectionId **); +extern PGconn *PgGetConnectionId(Tcl_Interp * interp, char *id, + Pg_ConnectionId **); extern PgDelConnectionId(DRIVER_DEL_PROTO); extern int PgOutputProc(DRIVER_OUTPUT_PROTO); extern PgInputProc(DRIVER_INPUT_PROTO); @@ -46,8 +47,8 @@ extern void PgStopNotifyEventSource(Pg_ConnectionId * connid); extern void PgNotifyTransferEvents(Pg_ConnectionId * connid); extern void PgNotifyInterpDelete(ClientData clientData, Tcl_Interp * interp); -/* GetFileProc is needed in Tcl 7.6 and later */ -#if (TCL_MAJOR_VERSION * 100 + TCL_MINOR_VERSION) >= 706 +/* 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 @@ -55,7 +56,6 @@ extern void PgNotifyInterpDelete(ClientData clientData, Tcl_Interp * interp); #if HAVE_TCL_GETFILEPROC extern Tcl_File PgGetFileProc(ClientData cData, int direction); - #endif extern Tcl_ChannelType Pg_ConnType; |