88 *
99 *
1010 * IDENTIFICATION
11- * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.46 2000/01/26 05:58:43 momjian Exp $
11+ * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.47 2000/02/27 07:44:22 tgl Exp $
1212 *
1313 *-------------------------------------------------------------------------
1414 */
@@ -287,8 +287,8 @@ Pg_connect(ClientData cData, Tcl_Interp *interp, int argc, char *argv[])
287287if (argc == 1 )
288288{
289289Tcl_AppendResult (interp ,"pg_connect: database name missing\n" ,0 );
290- Tcl_AppendResult (interp ,"pg_connect databaseName [-host hostName] [-port portNumber] [-tty pgtty]] \n" ,0 );
291- Tcl_AppendResult (interp ,"pg_connect -conninfo<conninfo-string> " ,0 );
290+ Tcl_AppendResult (interp ,"pg_connect databaseName [-host hostName] [-port portNumber] [-tty pgtty]\n" ,0 );
291+ Tcl_AppendResult (interp ,"pg_connect -conninfoconninfoString " ,0 );
292292return TCL_ERROR ;
293293
294294}
@@ -302,7 +302,7 @@ Pg_connect(ClientData cData, Tcl_Interp *interp, int argc, char *argv[])
302302if (argc != 3 )
303303{
304304Tcl_AppendResult (interp ,"pg_connect: syntax error\n" ,0 );
305- Tcl_AppendResult (interp ,"pg_connect -conninfo<conninfo-string> " ,0 );
305+ Tcl_AppendResult (interp ,"pg_connect -conninfoconninfoString " ,0 );
306306return TCL_ERROR ;
307307}
308308conn = PQconnectdb (argv [2 ]);
@@ -341,16 +341,17 @@ Pg_connect(ClientData cData, Tcl_Interp *interp, int argc, char *argv[])
341341}
342342else
343343{
344- Tcl_AppendResult (interp ,"Bad option to pg_connect : \n " ,
344+ Tcl_AppendResult (interp ,"Bad option to pg_connect: " ,
345345argv [i ],0 );
346- Tcl_AppendResult (interp ,"pg_connect databaseName [-host hostName] [-port portNumber] [-tty pgtty] ]" ,0 );
346+ Tcl_AppendResult (interp ,"\npg_connect databaseName [-host hostName] [-port portNumber] [-tty pgtty]" ,0 );
347347return TCL_ERROR ;
348348}
349349}/* while */
350350if ((i %2 != 0 )|| i != argc )
351351{
352- Tcl_AppendResult (interp ,"wrong # of arguments to pg_connect\n" ,argv [i ],0 );
353- Tcl_AppendResult (interp ,"pg_connect databaseName [-host hostName] [-port portNumber] [-tty pgtty]]" ,0 );
352+ Tcl_AppendResult (interp ,"wrong # of arguments to pg_connect: " ,
353+ argv [i ],0 );
354+ Tcl_AppendResult (interp ,"\npg_connect databaseName [-host hostName] [-port portNumber] [-tty pgtty]" ,0 );
354355return TCL_ERROR ;
355356}
356357}