Mercurial > hg > xemacs-beta
annotate modules/postgresql/postgresql.h @ 5658:289cf21be887
Don't augment ENVIRONMENT when that's not indicated, #'macroexpand.
This reflects better understanding on my part of the &environment macro
keyword, and I've expanded the Lisp manual and docstrings to reflect that.
lisp/ChangeLog addition:
2012-05-06 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (block): Comment on why we can't use &environment
here.
* cl-macs.el (defmacro*): Document &environment in more detail.
* cl-macs.el (macrolet): Use &environment, instead of referencing
byte-compile-macro-environment directly.
* cl-macs.el (symbol-macrolet): Ditto.
* cl-macs.el (lexical-let): Ditto.
* cl-macs.el (labels): Ditto.
man/ChangeLog addition:
2012-05-06 Aidan Kehoe <kehoea@parhasard.net>
* lispref/macros.texi (Expansion):
Cross-reference to documentation of #'cl-prettyexpand, #'defmacro*
when talking about #'macroexpand.
tests/ChangeLog addition:
2012-05-06 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
Use &environment appropriately in #'macrolet, instead of relying
on #'macroexpand to guess what we mean.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 06 May 2012 15:29:59 +0100 |
| parents | 8bda66cd0414 |
| children |
| rev | line source |
|---|---|
| 996 | 1 /* |
| 2 postgresql.h -- Emacs Lisp binding to libpq.so | |
| 3 Copyright (C) 2000 Electrotechnical Laboratory, JAPAN. | |
| 4 Licensed to the Free Software Foundation. | |
| 5 | |
| 3820 | 6 Author: SL Baur <steve@xemacs.org> |
| 7 Maintainer: SL Baur <steve@xemacs.org> | |
| 996 | 8 |
|
5425
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
9 This file is part of XEmacs. |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
10 |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
11 XEmacs is free software: you can redistribute it and/or modify it |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
12 under the terms of the GNU General Public License as published by the |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
13 Free Software Foundation, either version 3 of the License, or (at your |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
14 option) any later version. |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
15 |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
16 XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
17 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
18 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
19 for more details. |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
20 |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
21 You should have received a copy of the GNU General Public License |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
22 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
|
8bda66cd0414
Convert misc remaining files with GPLv2 or later to GPLv3 or later
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
23 |
| 996 | 24 Please send patches to this file to me first before submitting them to |
| 25 xemacs-patches. | |
| 26 */ | |
| 27 | |
| 28 #ifndef INCLUDED_postgresql_h_ | |
| 29 #define INCLUDED_postgresql_h_ 1 | |
| 30 | |
| 31 #define message message_ /* Yuck */ | |
| 32 #include LIBPQ_FE_H_FILE /* main PostgreSQL header file */ | |
| 33 #undef message | |
| 34 | |
| 35 #define BLCKSZ 8192 /* size of a default Postgres disk block */ | |
| 36 /* | |
| 37 This file contains the GCC bug workaround code for the private | |
| 38 LRECORD types. | |
| 39 */ | |
| 40 | |
| 41 /* PGconn is an opaque object and we need to be able to store them in | |
| 42 Lisp code because libpq supports multiple connections. | |
| 43 */ | |
| 44 struct Lisp_PGconn | |
| 45 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
46 NORMAL_LISP_OBJECT_HEADER header; |
| 996 | 47 PGconn *pgconn; |
| 48 }; | |
| 49 typedef struct Lisp_PGconn Lisp_PGconn; | |
| 50 | |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
3820
diff
changeset
|
51 DECLARE_LISP_OBJECT (pgconn, Lisp_PGconn); |
| 996 | 52 |
| 53 #define XPGCONN(x) XRECORD (x, pgconn, Lisp_PGconn) | |
| 54 #define wrap_pgconn(p) wrap_record (p, pgconn) | |
| 55 #define PGCONNP(x) RECORDP (x, pgconn) | |
| 56 #define CHECK_PGCONN(x) CHECK_RECORD (x, pgconn) | |
| 57 #define CONCHECK_PGCONN(x) CONCHECK_RECORD (x, pgconn) | |
| 58 | |
| 59 /****/ | |
| 60 | |
| 61 /* PGresult is an opaque object and we need to be able to store them in | |
| 62 Lisp code. | |
| 63 */ | |
| 64 struct Lisp_PGresult | |
| 65 { | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
66 NORMAL_LISP_OBJECT_HEADER header; |
| 996 | 67 PGresult *pgresult; |
| 68 }; | |
| 69 typedef struct Lisp_PGresult Lisp_PGresult; | |
| 70 | |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
3820
diff
changeset
|
71 DECLARE_LISP_OBJECT (pgresult, Lisp_PGresult); |
| 996 | 72 |
| 73 #define XPGRESULT(x) XRECORD (x, pgresult, Lisp_PGresult) | |
| 74 #define wrap_pgresult(p) wrap_record (p, pgresult) | |
| 75 #define PGRESULTP(x) RECORDP (x, pgresult) | |
| 76 #define CHECK_PGRESULT(x) CHECK_RECORD (x, pgresult) | |
| 77 #define CONCHECK_PGRESULT(x) CONCHECK_RECORD (x, pgresult) | |
| 78 | |
| 79 #endif /* INCLUDED_postgresql_h_ */ |