projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
be67789
)
r1701: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Fri, 29 Mar 2002 09:37:24 +0000
(09:37 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Fri, 29 Mar 2002 09:37:24 +0000
(09:37 +0000)
ChangeLog
patch
|
blob
|
history
interfaces/mysql/mysql-sql.cl
patch
|
blob
|
history
interfaces/postgresql-socket/postgresql-socket-sql.cl
patch
|
blob
|
history
interfaces/postgresql/postgresql-api.cl
patch
|
blob
|
history
interfaces/postgresql/postgresql-package.cl
patch
|
blob
|
history
interfaces/postgresql/postgresql-sql.cl
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index 96be4fcfdf29b0b4263a5a96fa3176caa92d929a..4ba5547324a60c977d1625ba48638c65e515a9ce 100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-2,6
+2,11
@@
* Separated db-interface and conditions from sql/sql.cl
* Improved foreign library loading testing
* Separated db-interface and conditions from sql/sql.cl
* Improved foreign library loading testing
+
+ * interfaces/postgresql/postgresql-api.cl
+ Added PQisBusy function
+
+ * Optimizes :types processing if value is nil
27 Mar 2002 Kevin Rosenberg (kevin@rosenberg.net)
* interfaces/postgresql-socket/postgresql-socket-api.cl:
27 Mar 2002 Kevin Rosenberg (kevin@rosenberg.net)
* interfaces/postgresql-socket/postgresql-socket-api.cl:
diff --git
a/interfaces/mysql/mysql-sql.cl
b/interfaces/mysql/mysql-sql.cl
index 2623aed20f2944a0bc089a14a4912a66367bdf05..0d1c05fa24fddce2ba8a093a210b9c4a682b9471 100644
(file)
--- a/
interfaces/mysql/mysql-sql.cl
+++ b/
interfaces/mysql/mysql-sql.cl
@@
-8,7
+8,7
@@
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: mysql-sql.cl,v 1.1
5 2002/03/27 12:09:39
kevin Exp $
+;;;; $Id: mysql-sql.cl,v 1.1
6 2002/03/29 09:37:24
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@
-68,14
+68,16
@@
(nreverse new-types)))
(defun canonicalize-types (types num-fields res-ptr)
(nreverse new-types)))
(defun canonicalize-types (types num-fields res-ptr)
- (let ((auto-list (make-type-list-for-auto num-fields res-ptr)))
- (cond
- ((listp types)
- (canonicalize-type-list types auto-list))
- ((eq types :auto)
- auto-list)
- (t
- nil))))
+ (if (null types)
+ nil
+ (let ((auto-list (make-type-list-for-auto num-fields res-ptr)))
+ (cond
+ ((listp types)
+ (canonicalize-type-list types auto-list))
+ ((eq types :auto)
+ auto-list)
+ (t
+ nil)))))
(defmethod database-initialize-database-type ((database-type (eql :mysql)))
t)
(defmethod database-initialize-database-type ((database-type (eql :mysql)))
t)
diff --git
a/interfaces/postgresql-socket/postgresql-socket-sql.cl
b/interfaces/postgresql-socket/postgresql-socket-sql.cl
index 7e79bd1a1a553d11ea20755cdb4c79e3b4396650..3a0d4911945ea815e310fada64ca9d3fdff5df6f 100644
(file)
--- a/
interfaces/postgresql-socket/postgresql-socket-sql.cl
+++ b/
interfaces/postgresql-socket/postgresql-socket-sql.cl
@@
-8,7
+8,7
@@
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: postgresql-socket-sql.cl,v 1.
9 2002/03/29 08:28:1
4 kevin Exp $
+;;;; $Id: postgresql-socket-sql.cl,v 1.
10 2002/03/29 09:37:2
4 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@
-67,14
+67,16
@@
t))))
(defun canonicalize-types (types cursor)
t))))
(defun canonicalize-types (types cursor)
- (let ((auto-list (make-type-list-for-auto cursor)))
- (cond
- ((listp types)
- (canonicalize-type-list types auto-list))
- ((eq types :auto)
- auto-list)
- (t
- nil))))
+ (if (null types)
+ nil
+ (let ((auto-list (make-type-list-for-auto cursor)))
+ (cond
+ ((listp types)
+ (canonicalize-type-list types auto-list))
+ ((eq types :auto)
+ auto-list)
+ (t
+ nil)))))
(defun canonicalize-type-list (types auto-list)
"Ensure a field type list meets expectations.
(defun canonicalize-type-list (types auto-list)
"Ensure a field type list meets expectations.
diff --git
a/interfaces/postgresql/postgresql-api.cl
b/interfaces/postgresql/postgresql-api.cl
index b12de513e14005b2998bf90928e187bf0099f5dd..83ba30723d6b2dc2f77673b1fc90419602346b96 100644
(file)
--- a/
interfaces/postgresql/postgresql-api.cl
+++ b/
interfaces/postgresql/postgresql-api.cl
@@
-8,7
+8,7
@@
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: postgresql-api.cl,v 1.
4 2002/03/27 08:09:25
kevin Exp $
+;;;; $Id: postgresql-api.cl,v 1.
5 2002/03/29 09:37:24
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@
-196,3
+196,9
@@
((res pgsql-result))
:module "postgresql"
:returning :void)
((res pgsql-result))
:module "postgresql"
:returning :void)
+
+(declaim (inline PQisBusy))
+(uffi:def-function ("PQisBusy" PQisBusy)
+ ((conn pgsql-conn))
+ :module "postgresql"
+ :returning :int)
diff --git
a/interfaces/postgresql/postgresql-package.cl
b/interfaces/postgresql/postgresql-package.cl
index e6845d8115b91c604373d4de3c2c186ee7b0c5b2..96f0bfb4a77d9c75ecbfb11cee192557136db203 100644
(file)
--- a/
interfaces/postgresql/postgresql-package.cl
+++ b/
interfaces/postgresql/postgresql-package.cl
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: postgresql-package.cl,v 1.
5 2002/03/27 08:09:25
kevin Exp $
+;;;; $Id: postgresql-package.cl,v 1.
6 2002/03/29 09:37:24
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-68,6
+68,7
@@
#:PQgetlength
#:PQgetisnull
#:PQclear
#:PQgetlength
#:PQgetisnull
#:PQclear
+ #:PQisBusy
)
(:documentation "This is the low-level interface to PostgreSQL."))
)
(:documentation "This is the low-level interface to PostgreSQL."))
diff --git
a/interfaces/postgresql/postgresql-sql.cl
b/interfaces/postgresql/postgresql-sql.cl
index 24def53c2d16deb6eaedfd05f81a2ef32a1ee7a9..275ac39b360ac1358ac0f2e0effaceb7a56a2ae9 100644
(file)
--- a/
interfaces/postgresql/postgresql-sql.cl
+++ b/
interfaces/postgresql/postgresql-sql.cl
@@
-8,7
+8,7
@@
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: postgresql-sql.cl,v 1.1
1 2002/03/27 12:09:39
kevin Exp $
+;;;; $Id: postgresql-sql.cl,v 1.1
2 2002/03/29 09:37:24
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@
-52,14
+52,16
@@
(nreverse new-types)))
(defun canonicalize-types (types num-fields res-ptr)
(nreverse new-types)))
(defun canonicalize-types (types num-fields res-ptr)
- (let ((auto-list (make-type-list-for-auto num-fields res-ptr)))
- (cond
- ((listp types)
- (canonicalize-type-list types auto-list))
- ((eq types :auto)
- auto-list)
- (t
- nil))))
+ (if (null types)
+ nil
+ (let ((auto-list (make-type-list-for-auto num-fields res-ptr)))
+ (cond
+ ((listp types)
+ (canonicalize-type-list types auto-list))
+ ((eq types :auto)
+ auto-list)
+ (t
+ nil)))))
(defun tidy-error-message (message)
(unless (stringp message)
(defun tidy-error-message (message)
(unless (stringp message)