database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-07-23 03:21:12 +03:00
Code Activity

Clean up badly-formatted error messages from pg_connect.

Browse Source
This commit is contained in:
Tom Lane
2000-02-27 07:44:22 +00:00
parent 750549db34
commit a065827554
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/interfaces/libpgtcl/pgtclCmds.c
View File

@ -8,7 +8,7 @@
* *
* *
* IDENTIFICATION * IDENTIFICATION
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.46 2000/01/26 05:58:43 momjian Exp $ * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.47 2000/02/27 07:44:22 tgl Exp $
* *
*------------------------------------------------------------------------- *-------------------------------------------------------------------------
*/ */
@ -287,8 +287,8 @@ Pg_connect(ClientData cData, Tcl_Interp *interp, int argc, char *argv[])
if (argc == 1) if (argc == 1)
{ {
Tcl_AppendResult(interp, "pg_connect: database name missing\n", 0); Tcl_AppendResult(interp, "pg_connect: database name missing\n", 0);
Tcl_AppendResult(interp, "pg_connect databaseName [-host hostName] [-port portNumber] [-tty pgtty]]\n", 0); Tcl_AppendResult(interp, "pg_connect databaseName [-host hostName] [-port portNumber] [-tty pgtty]\n", 0);
Tcl_AppendResult(interp, "pg_connect -conninfo <conninfo-string>", 0); Tcl_AppendResult(interp, "pg_connect -conninfo conninfoString", 0);
return TCL_ERROR; return TCL_ERROR;
} }
@ -302,7 +302,7 @@ Pg_connect(ClientData cData, Tcl_Interp *interp, int argc, char *argv[])
if (argc != 3) if (argc != 3)
{ {
Tcl_AppendResult(interp, "pg_connect: syntax error\n", 0); Tcl_AppendResult(interp, "pg_connect: syntax error\n", 0);
Tcl_AppendResult(interp, "pg_connect -conninfo <conninfo-string>", 0); Tcl_AppendResult(interp, "pg_connect -conninfo conninfoString", 0);
return TCL_ERROR; return TCL_ERROR;
} }
conn = PQconnectdb(argv[2]); conn = PQconnectdb(argv[2]);
@ -341,16 +341,17 @@ Pg_connect(ClientData cData, Tcl_Interp *interp, int argc, char *argv[])
} }
else else
{ {
Tcl_AppendResult(interp, "Bad option to pg_connect : \n", Tcl_AppendResult(interp, "Bad option to pg_connect: ",
argv[i], 0); argv[i], 0);
Tcl_AppendResult(interp, "pg_connect databaseName [-host hostName] [-port portNumber] [-tty pgtty]]", 0); Tcl_AppendResult(interp, "\npg_connect databaseName [-host hostName] [-port portNumber] [-tty pgtty]", 0);
return TCL_ERROR; return TCL_ERROR;
} }
} /* while */ } /* while */
if ((i % 2 != 0) || i != argc) if ((i % 2 != 0) || i != argc)
{ {
Tcl_AppendResult(interp, "wrong # of arguments to pg_connect\n", argv[i], 0); Tcl_AppendResult(interp, "wrong # of arguments to pg_connect: ",
Tcl_AppendResult(interp, "pg_connect databaseName [-host hostName] [-port portNumber] [-tty pgtty]]", 0); argv[i], 0);
Tcl_AppendResult(interp, "\npg_connect databaseName [-host hostName] [-port portNumber] [-tty pgtty]", 0);
return TCL_ERROR; return TCL_ERROR;
} }
} }