open-dsi
/
postgres
mirror of https://github.com/postgres/postgres
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Clean up badly-formatted error messages from pg_connect.

Browse Source
REL7_0_PATCHES
Tom Lane 26 years ago
parent 750549db34
commit a065827554
1 changed files with 9 additions and 8 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 17
      src/interfaces/libpgtcl/pgtclCmds.c

17
src/interfaces/libpgtcl/pgtclCmds.c
Unescape 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;
} }
} }

Write Preview
Loading…
Cancel
Save