comparison src/postgresql.h @ 406:b8cc9ab3f761 r21-2-33

Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents 2f8bb876ab1d
children de805c49cfc1
comparison
equal deleted inserted replaced
405:0e08f63c74d2 406:b8cc9ab3f761
55 #define XSETPGRESULT(x, p) XSETRECORD (x, p, pgresult) 55 #define XSETPGRESULT(x, p) XSETRECORD (x, p, pgresult)
56 #define PGRESULTP(x) RECORDP (x, pgresult) 56 #define PGRESULTP(x) RECORDP (x, pgresult)
57 #define CHECK_PGRESULT(x) CHECK_RECORD (x, pgresult) 57 #define CHECK_PGRESULT(x) CHECK_RECORD (x, pgresult)
58 #define CONCHECK_PGRESULT(x) CONCHECK_RECORD (x, pgresult) 58 #define CONCHECK_PGRESULT(x) CONCHECK_RECORD (x, pgresult)
59 59
60 /****/
61 #ifdef HAVE_POSTGRESQLV7
62
63 #ifdef LIBPQ_7_0_IS_FIXED /* this is broken in released 7.0b1 */
64
65 /* PGsetenvHandle is an opaque object and we need to be able to store
66 them in Lisp code in order to make asynchronous environment calls.
67 */
68 struct Lisp_PGsetenvHandle
69 {
70 struct lcrecord_header header;
71 PGsetenvHandle *pgsetenv;
72 };
73 typedef struct Lisp_PGsetenvHandle Lisp_PGsetenvHandle;
74
75 DECLARE_LRECORD (pgsetenv, Lisp_PGsetenvHandle);
76
77 #define XPGSETENV(x) XRECORD (x, pgsetenv, Lisp_PGsetenvHandle)
78 #define XSETPGSETENV(x, p) XSETRECORD (x, p, pgsetenv)
79 #define PGSETENVP(x) RECORDP (x, pgsetenv)
80 #define CHECK_PGSETENV(x) CHECK_RECORD (x, pgsetenv)
81 #define CONCHECK_PGSETENV(x) CONCHECK_RECORD (x, pgsetenv)
82
83 #endif /* LIBPQ_7_0_IS_FIXED */
84
85 #endif /* HAVE_POSTGRESQLV7 */
86
87 #endif /* XEMACS_POSTGRESQL_H__ */ 60 #endif /* XEMACS_POSTGRESQL_H__ */