Mercurial > hg > xemacs-beta
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__ */ |