Mercurial > hg > xemacs-beta

comparison modules/postgresql/postgresql.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents 9fc738581a9d
children 6fa9919a9a0b
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
185 { XD_END } 185 { XD_END }
186 }; 186 };
187 187
188 static Lisp_Object 188 static Lisp_Object
189 #ifdef RUNNING_XEMACS_21_1 189 #ifdef RUNNING_XEMACS_21_1
190 mark_pgconn (Lisp_Object obj, void (*markobj) (Lisp_Object)) 190 mark_pgconn (Lisp_Object UNUSED (obj),
191 void (*UNUSED_ARG (markobj)) (Lisp_Object) ATTRIBUTE_UNUSED)
191 #else 192 #else
192 mark_pgconn (Lisp_Object obj) 193 mark_pgconn (Lisp_Object UNUSED (obj))
193 #endif 194 #endif
194 { 195 {
195 return Qnil; 196 return Qnil;
196 } 197 }
197 198
198 static void 199 static void
199 print_pgconn (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 200 print_pgconn (Lisp_Object obj, Lisp_Object printcharfun,
201 int UNUSED (escapeflag))
200 { 202 {
201 char buf[256]; 203 char buf[256];
202 PGconn *P; 204 PGconn *P;
203 ConnStatusType cst; 205 ConnStatusType cst;
204 char *host="", *db="", *user="", *port=""; 206 char *host="", *db="", *user="", *port="";
293 }; 295 };
294 296
295 297
296 static Lisp_Object 298 static Lisp_Object
297 #ifdef RUNNING_XEMACS_21_1 299 #ifdef RUNNING_XEMACS_21_1
298 mark_pgresult (Lisp_Object obj, void (*markobj) (Lisp_Object)) 300 mark_pgresult (Lisp_Object UNUSED (obj),
301 void (*UNUSED_ARG (markobj)) (Lisp_Object) ATTRIBUTE_UNUSED)
299 #else 302 #else
300 mark_pgresult (Lisp_Object obj) 303 mark_pgresult (Lisp_Object UNUSED (obj))
301 #endif 304 #endif
302 { 305 {
303 return Qnil; 306 return Qnil;
304 } 307 }
305 308
306 #define RESULT_TUPLES_FMT "#<PGresult %s[%d] - %s>" 309 #define RESULT_TUPLES_FMT "#<PGresult %s[%d] - %s>"
307 #define RESULT_CMD_TUPLES_FMT "#<PGresult %s[%s] - %s>" 310 #define RESULT_CMD_TUPLES_FMT "#<PGresult %s[%s] - %s>"
308 #define RESULT_DEFAULT_FMT "#<PGresult %s - %s>" 311 #define RESULT_DEFAULT_FMT "#<PGresult %s - %s>"
309 static void 312 static void
310 print_pgresult (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 313 print_pgresult (Lisp_Object obj, Lisp_Object printcharfun,
314 int UNUSED (escapeflag))
311 { 315 {
312 char buf[1024]; 316 char buf[1024];
313 PGresult *res; 317 PGresult *res;
314 318
315 res = (XPGRESULT (obj))->pgresult; 319 res = (XPGRESULT (obj))->pgresult;
401 405
402 /***********************/ 406 /***********************/
403 407
404 /* notices */ 408 /* notices */
405 static void 409 static void
406 xemacs_notice_processor (void *arg, const char *msg) 410 xemacs_notice_processor (void *UNUSED (arg), const char *msg)
407 { 411 {
408 warn_when_safe (Qpostgresql, Qnotice, "%s", msg); 412 warn_when_safe (Qpostgresql, Qnotice, "%s", msg);
409 } 413 }
410 414
411 /* There are four ways (as of PostgreSQL v7) to connect to a database. 415 /* There are four ways (as of PostgreSQL v7) to connect to a database.