mirror of
https://github.com/postgres/postgres.git
synced 2025-06-25 01:02:05 +03:00
pgindent run.
This commit is contained in:
@ -10,7 +10,7 @@
|
||||
*
|
||||
*
|
||||
* IDENTIFICATION
|
||||
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.26 2002/09/02 21:51:47 tgl Exp $
|
||||
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.27 2002/09/04 20:31:46 momjian Exp $
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
@ -151,7 +151,7 @@ Pgtcl_Init(Tcl_Interp *interp)
|
||||
"pg_listen",
|
||||
Pg_listen,
|
||||
(ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
|
||||
|
||||
|
||||
Tcl_CreateCommand(interp,
|
||||
"pg_on_connection_loss",
|
||||
Pg_on_connection_loss,
|
||||
|
@ -8,7 +8,7 @@
|
||||
*
|
||||
*
|
||||
* IDENTIFICATION
|
||||
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.67 2002/09/02 23:41:16 tgl Exp $
|
||||
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.68 2002/09/04 20:31:46 momjian Exp $
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
@ -1577,7 +1577,10 @@ Pg_lo_import(ClientData cData, Tcl_Interp *interp, int argc, char *argv[])
|
||||
lobjId = lo_import(conn, filename);
|
||||
if (lobjId == InvalidOid)
|
||||
{
|
||||
/* What is the maximum size of this? FIXME if this is not a good quess */
|
||||
/*
|
||||
* What is the maximum size of this? FIXME if this is not a good
|
||||
* quess
|
||||
*/
|
||||
snprintf(interp->result, 128, "Pg_lo_import of '%s' failed", filename);
|
||||
return TCL_ERROR;
|
||||
}
|
||||
@ -2040,10 +2043,10 @@ Pg_on_connection_loss(ClientData cData, Tcl_Interp *interp, int argc, char *argv
|
||||
if (callback)
|
||||
{
|
||||
/*
|
||||
* Start the notify event source if it isn't already running.
|
||||
* The notify source will cause Tcl to watch read-ready on the
|
||||
* connection socket, so that we find out quickly if the connection
|
||||
* drops.
|
||||
* Start the notify event source if it isn't already running. The
|
||||
* notify source will cause Tcl to watch read-ready on the
|
||||
* connection socket, so that we find out quickly if the
|
||||
* connection drops.
|
||||
*/
|
||||
PgStartNotifyEventSource(connid);
|
||||
}
|
||||
|
@ -6,7 +6,7 @@
|
||||
* Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
|
||||
* Portions Copyright (c) 1994, Regents of the University of California
|
||||
*
|
||||
* $Id: pgtclCmds.h,v 1.27 2002/09/02 21:51:47 tgl Exp $
|
||||
* $Id: pgtclCmds.h,v 1.28 2002/09/04 20:31:46 momjian Exp $
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
@ -134,6 +134,6 @@ extern int Pg_lo_export(
|
||||
extern int Pg_listen(
|
||||
ClientData cData, Tcl_Interp *interp, int argc, char *argv[]);
|
||||
extern int Pg_on_connection_loss(
|
||||
ClientData cData, Tcl_Interp *interp, int argc, char *argv[]);
|
||||
ClientData cData, Tcl_Interp *interp, int argc, char *argv[]);
|
||||
|
||||
#endif /* PGTCLCMDS_H */
|
||||
|
@ -13,7 +13,7 @@
|
||||
* Portions Copyright (c) 1994, Regents of the University of California
|
||||
*
|
||||
* IDENTIFICATION
|
||||
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclId.c,v 1.34 2002/09/02 23:41:17 tgl Exp $
|
||||
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclId.c,v 1.35 2002/09/04 20:31:46 momjian Exp $
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
@ -289,7 +289,7 @@ PgDelConnectionId(DRIVER_DEL_PROTO)
|
||||
connid->conn = NULL;
|
||||
|
||||
/*
|
||||
* Kill the notifier channel, too. We must not do this until after
|
||||
* Kill the notifier channel, too. We must not do this until after
|
||||
* we've closed the libpq connection, because Tcl will try to close
|
||||
* the socket itself!
|
||||
*
|
||||
@ -653,8 +653,8 @@ PgNotifyTransferEvents(Pg_ConnectionId * connid)
|
||||
* This is also a good place to check for unexpected closure of the
|
||||
* connection (ie, backend crash), in which case we must shut down the
|
||||
* notify event source to keep Tcl from trying to select() on the now-
|
||||
* closed socket descriptor. But don't kill on-connection-loss events;
|
||||
* in fact, register one.
|
||||
* closed socket descriptor. But don't kill on-connection-loss
|
||||
* events; in fact, register one.
|
||||
*/
|
||||
if (PQsocket(connid->conn) < 0)
|
||||
PgConnLossTransferEvents(connid);
|
||||
@ -678,9 +678,10 @@ PgConnLossTransferEvents(Pg_ConnectionId * connid)
|
||||
}
|
||||
|
||||
/*
|
||||
* Shut down the notify event source to keep Tcl from trying to select()
|
||||
* on the now-closed socket descriptor. And zap any unprocessed notify
|
||||
* events ... but not, of course, the connection-loss event.
|
||||
* Shut down the notify event source to keep Tcl from trying to
|
||||
* select() on the now-closed socket descriptor. And zap any
|
||||
* unprocessed notify events ... but not, of course, the
|
||||
* connection-loss event.
|
||||
*/
|
||||
PgStopNotifyEventSource(connid, false);
|
||||
}
|
||||
@ -770,8 +771,8 @@ Pg_Notify_FileHandler(ClientData clientData, int mask)
|
||||
else
|
||||
{
|
||||
/*
|
||||
* If there is no input but we have read-ready,
|
||||
* assume this means we lost the connection.
|
||||
* If there is no input but we have read-ready, assume this means
|
||||
* we lost the connection.
|
||||
*/
|
||||
PgConnLossTransferEvents(connid);
|
||||
}
|
||||
|
Reference in New Issue
Block a user