provide available connections

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/sqlclient/trunk@37985 72102866-910b-0410-8b05-ffd578937521

SQLClient.h

@@ -1424,6 +1424,10 @@ SQLCLIENT_PRIVATE
   NSTimeInterval        _failWaits;     /** Time waiting for timewouts */
 }
 
+/** Returns the count of currently available connections in the pool.
+ */
+- (int) availableConnections;
+
 /**
  * Creates a pool of clients using a single client configuration.<br />
  * Calls -initWithConfiguration:name:pool: (passing NO to say the client

SQLClientPool.m

@@ -56,6 +56,24 @@
 
 @implementation	SQLClientPool
 
+- (int) availableConnections
+{
+  int   available;
+  int   index;
+
+  [self _lock];
+  available = index = max;
+  while (index-- > 0)
+    {
+      if (YES ==  u[index])
+        {
+          available--;
+        }
+    }
+  [self _unlock];
+  return available;
+}
+
 - (void) dealloc
 {
   SQLClient     **clients;