postgres 0.7.9.2008.01.03 → 0.7.9.2008.01.09

data/ext/compat.c

@@ -1,485 +0,0 @@
-/************************************************
-
-  compat.c -
-
-  Author: matz 
-  created at: Tue May 13 20:07:35 JST 1997
-
-  Author: ematsu
-  modified at: Wed Jan 20 16:41:51 1999
-
-  $Author: jdavis $
-  $Date: 2007-12-04 14:25:44 -0800 (Tue, 04 Dec 2007) $
-************************************************/
-
-#include "compat.h"
-
-#ifndef HAVE_PQDESCRIBEPREPARED
-PGresult *
-PQdescribePrepared(PGconn *conn, const char *stmtName)
-{
-	rb_raise(rb_eStandardError, "PQdescribePrepared not supported by this client version.");
-}
-#endif /* HAVE_PQDESCRIBEPREPARED */
-
-#ifndef HAVE_PQDESCRIBEPORTAL
-PGresult *
-PQdescribePortal(PGconn *conn, const char *portalName)
-{
-	rb_raise(rb_eStandardError, "PQdescribePortal not supported by this client version.");
-}
-#endif /* HAVE_PQDESCRIBEPORTAL */
-
-#ifndef HAVE_PQESCAPESTRINGCONN
-size_t
-PQescapeStringConn(PGconn *conn, char *to, const char *from, 
-	size_t length, int *error)
-{
-	return PQescapeString(to,from,length);
-}
-
-unsigned char *
-PQescapeByteaConn(PGconn *conn, const unsigned char *from, 
-	size_t from_length, size_t *to_length)
-{
-	return PQescapeBytea(from, from_length, to_length);
-}
-#endif /* HAVE_PQESCAPESTRINGCONN */
-
-#ifndef HAVE_PQPREPARE
-PGresult *
-PQprepare(PGconn *conn, const char *stmtName, const char *query,
-	int nParams, const Oid *paramTypes)
-{
-	rb_raise(rb_eStandardError, "PQprepare not supported by this client version.");
-}
-#endif /* HAVE_PQPREPARE */
-
-#ifndef HAVE_PQCONNECTIONUSEDPASSWORD
-int
-PQconnectionUsedPassword(PGconn *conn)
-{
-	rb_raise(rb_eStandardError, 
-		"PQconnectionUsedPassword not supported by this client version.");
-}
-#endif /* HAVE_PQCONNECTIONUSEDPASSWORD */
-
-#ifndef HAVE_PQISTHREADSAFE
-int
-PQisthreadsafe()
-{
-	return Qfalse;
-}
-#endif /* HAVE_PQISTHREADSAFE */
-
-#ifndef HAVE_LO_TRUNCATE
-int
-lo_truncate(PGconn *conn, int fd, size_t len)
-{
-	rb_raise(rb_eStandardError, "lo_truncate not supported by this client version.");
-}
-#endif /* HAVE_LO_TRUNCATE */
-
-#ifndef HAVE_LO_CREATE
-Oid
-lo_create(PGconn *conn, Oid lobjId)
-{
-	rb_raise(rb_eStandardError, "lo_create not supported by this client version.");
-}
-#endif /* HAVE_LO_CREATE */
-
-#ifndef HAVE_PQNPARAMS
-int
-PQnparams(const PGresult *res)
-{
-	rb_raise(rb_eStandardError, "PQnparams not supported by this client version.");
-}
-#endif /* HAVE_PQNPARAMS */
-
-#ifndef HAVE_PQPARAMTYPE
-Oid
-PQparamtype(const PGresult *res, int param_number)
-{
-	rb_raise(rb_eStandardError, "PQparamtype not supported by this client version.");
-}
-#endif /* HAVE_PQPARAMTYPE */
-
-#ifndef HAVE_PQSERVERVERSION
-int
-PQserverVersion(const PGconn* conn)
-{
-	rb_raise(rb_eStandardError, "PQserverVersion not supported by this client version.");
-}
-#endif /* HAVE_PQSERVERVERSION */
-
-#ifndef HAVE_PQSENDDESCRIBEPREPARED
-int
-PQsendDescribePrepared(PGconn *conn, const char *stmtName)
-{
-	rb_raise(rb_eStandardError, "PQsendDescribePrepared not supported by this client version.");
-}
-#endif /* HAVE_PQSENDDESCRIBEPREPARED */
-
-#ifndef HAVE_PQSENDDESCRIBEPORTAL
-int
-PQsendDescribePortal(PGconn *conn, const char *portalName)
-{
-	rb_raise(rb_eStandardError, "PQsendDescribePortal not supported by this client version.");
-}
-#endif /* HAVE_PQSENDDESCRIBEPORTAL */
-
-#ifndef HAVE_PQSENDPREPARE
-int
-PQsendPrepare(PGconn *conn, const char *stmtName, const char *query,
-	int nParams, const Oid *paramTypes)
-{
-	rb_raise(rb_eStandardError, "PQsendPrepare not supported by this client version.");
-}
-#endif /* HAVE_PQSENDPREPARE */
-
-#ifndef HAVE_PQENCRYPTPASSWORD
-char *
-PQencryptPassword(const char *passwd, const char *user)
-{
-	rb_raise(rb_eStandardError, "PQencryptPassword not supported by this client version.");
-}
-#endif /* HAVE_PQENCRYPTPASSWORD */
-
-#ifndef HAVE_PQEXECPARAMS
-PGresult *
-PQexecParams(PGconn *conn, const char *command, int nParams, 
-	const Oid *paramTypes, const char * const * paramValues, const int *paramLengths, 
-	const int *paramFormats, int resultFormat)
-{
-	rb_raise(rb_eStandardError, "PQexecParams not supported by this client version.");
-}
-
-#define BIND_PARAM_PATTERN "\\$(\\d+)"
-#include <ruby.h>
-#include <re.h>
-PGresult *
-PQexecParams_compat(PGconn *conn, VALUE command, VALUE values)
-{
-    VALUE bind_param_re = rb_reg_new(BIND_PARAM_PATTERN, 7, 0);
-    VALUE result = rb_str_buf_new(RSTRING(command)->len);
-    char* ptr = RSTRING(command)->ptr;
-    int scan = 0;
-    while ((scan = rb_reg_search(bind_param_re, command, scan, 0)) > 0) {
-        VALUE match = rb_backref_get();
-        int pos = BindParamNumber(match);
-        if (pos < RARRAY(values)->len) {
-            rb_str_buf_cat(result, ptr, scan - (ptr - RSTRING(command)->ptr));
-            ptr = RSTRING(command)->ptr + scan;
-            rb_str_buf_append(result, RARRAY(values)->ptr[pos]);
-        }
-        scan += RSTRING(rb_reg_nth_match(0, match))->len;
-        ptr += RSTRING(rb_reg_nth_match(0, match))->len;
-    }
-    rb_str_buf_cat(result, ptr, RSTRING(command)->len - (ptr - RSTRING(command)->ptr));
-
-    return PQexec(conn, StringValuePtr(result));
-}
-#endif /* HAVE_PQEXECPARAMS */
-
-
-/**************************************************************************
-
-IF ANY CODE IS COPIED FROM POSTGRESQL, PLACE IT AFTER THIS COMMENT.
-THE BSD LICENSE REQUIRES THAT YOU MAINTAIN THIS COPYRIGHT NOTICE.
-
-***************************************************************************
-
-Portions of code after this point were copied from the PostgreSQL source
-distribution, available at http://www.postgresql.org
-
-***************************************************************************
-
-Portions Copyright (c) 1996-2007, PostgreSQL Global Development Group
-
-Portions Copyright (c) 1994, The Regents of the University of California
-
-Permission to use, copy, modify, and distribute this software and its
-documentation for any purpose, without fee, and without a written agreement
-is hereby granted, provided that the above copyright notice and this
-paragraph and the following two paragraphs appear in all copies.
-
-IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
-DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING
-LOST PROFITS, ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS
-DOCUMENTATION, EVEN IF THE UNIVERSITY OF CALIFORNIA HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGE.
-
-THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
-INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
-AND FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
-ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATIONS TO
-PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
-
-**************************************************************************/
-
-#ifndef HAVE_PQSETCLIENTENCODING
-
-int
-PQsetClientEncoding(PGconn *conn, const char *encoding)
-{
-	char        qbuf[128];
-	static const char query[] = "set client_encoding to '%s'";
-	PGresult   *res;
-	int         status;
-
-	if (!conn || conn->status != CONNECTION_OK)
-		return -1;
-
-	if (!encoding)
-		return -1;
-
-	/* check query buffer overflow */
-	if (sizeof(qbuf) < (sizeof(query) + strlen(encoding)))
-		return -1;
-
-	/* ok, now send a query */
-	sprintf(qbuf, query, encoding);
-	res = PQexec(conn, qbuf);
-
-	if (res == NULL)
-	return -1;
-	if (res->resultStatus != PGRES_COMMAND_OK)
-	status = -1;
-	else
-	{
-		/*
-		 * In protocol 2 we have to assume the setting will stick, and adjust
-		 * our state immediately.  In protocol 3 and up we can rely on the
-		 * backend to report the parameter value, and we'll change state at
-		 * that time.
-		 */
-		if (PG_PROTOCOL_MAJOR(conn->pversion) < 3)
-			pqSaveParameterStatus(conn, "client_encoding", encoding);
-		status = 0;             /* everything is ok */
-	}
-	PQclear(res);
-	return status;
-}
-#endif /* HAVE_PQSETCLIENTENCODING */
-
-#ifndef HAVE_PQESCAPESTRING
-/*
- * Escaping arbitrary strings to get valid SQL literal strings.
- *
- * Replaces "\\" with "\\\\" and "'" with "''".
- *
- * length is the length of the source string.  (Note: if a terminating NUL
- * is encountered sooner, PQescapeString stops short of "length"; the behavior
- * is thus rather like strncpy.)
- *
- * For safety the buffer at "to" must be at least 2*length + 1 bytes long.
- * A terminating NUL character is added to the output string, whether the
- * input is NUL-terminated or not.
- *
- * Returns the actual length of the output (not counting the terminating NUL).
- */
-size_t
-PQescapeString(char *to, const char *from, size_t length)
-{
-	const char *source = from;
-	char	   *target = to;
-	size_t		remaining = length;
-
-	while (remaining > 0 && *source != '\0')
-	{
-		switch (*source)
-		{
-			case '\\':
-				*target++ = '\\';
-				*target++ = '\\';
-				break;
-
-			case '\'':
-				*target++ = '\'';
-				*target++ = '\'';
-				break;
-
-			default:
-				*target++ = *source;
-				break;
-		}
-		source++;
-		remaining--;
-	}
-
-	/* Write the terminating NUL character. */
-	*target = '\0';
-
-	return target - to;
-}
-
-/*
- *		PQescapeBytea	- converts from binary string to the
- *		minimal encoding necessary to include the string in an SQL
- *		INSERT statement with a bytea type column as the target.
- *
- *		The following transformations are applied
- *		'\0' == ASCII  0 == \\000
- *		'\'' == ASCII 39 == \'
- *		'\\' == ASCII 92 == \\\\
- *		anything < 0x20, or > 0x7e ---> \\ooo
- *										(where ooo is an octal expression)
- */
-unsigned char *
-PQescapeBytea(const unsigned char *bintext, size_t binlen, size_t *bytealen)
-{
-	const unsigned char *vp;
-	unsigned char *rp;
-	unsigned char *result;
-	size_t		i;
-	size_t		len;
-
-	/*
-	 * empty string has 1 char ('\0')
-	 */
-	len = 1;
-
-	vp = bintext;
-	for (i = binlen; i > 0; i--, vp++)
-	{
-		if (*vp < 0x20 || *vp > 0x7e)
-			len += 5;			/* '5' is for '\\ooo' */
-		else if (*vp == '\'')
-			len += 2;
-		else if (*vp == '\\')
-			len += 4;
-		else
-			len++;
-	}
-
-	rp = result = (unsigned char *) malloc(len);
-	if (rp == NULL)
-		return NULL;
-
-	vp = bintext;
-	*bytealen = len;
-
-	for (i = binlen; i > 0; i--, vp++)
-	{
-		if (*vp < 0x20 || *vp > 0x7e)
-		{
-			(void) sprintf(rp, "\\\\%03o", *vp);
-			rp += 5;
-		}
-		else if (*vp == '\'')
-		{
-			rp[0] = '\\';
-			rp[1] = '\'';
-			rp += 2;
-		}
-		else if (*vp == '\\')
-		{
-			rp[0] = '\\';
-			rp[1] = '\\';
-			rp[2] = '\\';
-			rp[3] = '\\';
-			rp += 4;
-		}
-		else
-			*rp++ = *vp;
-	}
-	*rp = '\0';
-
-	return result;
-}
-
-#define ISFIRSTOCTDIGIT(CH) ((CH) >= '0' && (CH) <= '3')
-#define ISOCTDIGIT(CH) ((CH) >= '0' && (CH) <= '7')
-#define OCTVAL(CH) ((CH) - '0')
-
-/*
- *		PQunescapeBytea - converts the null terminated string representation
- *		of a bytea, strtext, into binary, filling a buffer. It returns a
- *		pointer to the buffer (or NULL on error), and the size of the
- *		buffer in retbuflen. The pointer may subsequently be used as an
- *		argument to the function free(3). It is the reverse of PQescapeBytea.
- *
- *		The following transformations are made:
- *		\\	 == ASCII 92 == \
- *		\ooo == a byte whose value = ooo (ooo is an octal number)
- *		\x	 == x (x is any character not matched by the above transformations)
- */
-unsigned char *
-PQunescapeBytea(const unsigned char *strtext, size_t *retbuflen)
-{
-	size_t		strtextlen,
-				buflen;
-	unsigned char *buffer,
-			   *tmpbuf;
-	size_t		i,
-				j;
-
-	if (strtext == NULL)
-		return NULL;
-
-	strtextlen = strlen(strtext);
-
-	/*
-	 * Length of input is max length of output, but add one to avoid
-	 * unportable malloc(0) if input is zero-length.
-	 */
-	buffer = (unsigned char *) malloc(strtextlen + 1);
-	if (buffer == NULL)
-		return NULL;
-
-	for (i = j = 0; i < strtextlen;)
-	{
-		switch (strtext[i])
-		{
-			case '\\':
-				i++;
-				if (strtext[i] == '\\')
-					buffer[j++] = strtext[i++];
-				else
-				{
-					if ((ISFIRSTOCTDIGIT(strtext[i])) &&
-						(ISOCTDIGIT(strtext[i + 1])) &&
-						(ISOCTDIGIT(strtext[i + 2])))
-					{
-						int			byte;
-
-						byte = OCTVAL(strtext[i++]);
-						byte = (byte << 3) + OCTVAL(strtext[i++]);
-						byte = (byte << 3) + OCTVAL(strtext[i++]);
-						buffer[j++] = byte;
-					}
-				}
-
-				/*
-				 * Note: if we see '\' followed by something that isn't a
-				 * recognized escape sequence, we loop around having done
-				 * nothing except advance i.  Therefore the something will
-				 * be emitted as ordinary data on the next cycle. Corner
-				 * case: '\' at end of string will just be discarded.
-				 */
-				break;
-
-			default:
-				buffer[j++] = strtext[i++];
-				break;
-		}
-	}
-	buflen = j;					/* buflen is the length of the dequoted
-								 * data */
-
-	/* Shrink the buffer to be no larger than necessary */
-	/* +1 avoids unportable behavior when buflen==0 */
-	tmpbuf = realloc(buffer, buflen + 1);
-
-	/* It would only be a very brain-dead realloc that could fail, but... */
-	if (!tmpbuf)
-	{
-		free(buffer);
-		return NULL;
-	}
-
-	*retbuflen = buflen;
-	return tmpbuf;
-}
-#endif
-

data/ext/compat.h

@@ -1,130 +0,0 @@
-
-#ifndef __compat_h
-#define __compat_h
-
-#include <stdlib.h>
-
-#include "ruby.h"
-#include "rubyio.h"
-#include "libpq-fe.h"
-#include "libpq/libpq-fs.h"              /* large-object interface */
-
-#if RUBY_VERSION_CODE < 180
-#define rb_check_string_type(x) rb_check_convert_type(x, T_STRING, "String", "to_str")
-#endif /* RUBY_VERSION_CODE < 180 */
-
-#ifndef RARRAY_LEN
-#define RARRAY_LEN(x) RARRAY((x))->len
-#endif /* RARRAY_LEN */
-
-#ifndef RSTRING_LEN
-#define RSTRING_LEN(x) RSTRING((x))->len
-#endif /* RSTRING_LEN */
-
-#ifndef RSTRING_PTR
-#define RSTRING_PTR(x) RSTRING((x))->ptr
-#endif /* RSTRING_PTR */
-
-#ifndef StringValuePtr
-#define StringValuePtr(x) STR2CSTR(x)
-#endif /* StringValuePtr */
-
-#ifndef HAVE_PG_ENCODING_TO_CHAR
-#define pg_encoding_to_char(x) "SQL_ASCII"
-#endif /* HAVE_PG_ENCODING_TO_CHAR */
-
-#ifndef PG_DIAG_INTERNAL_POSITION
-#define PG_DIAG_INTERNAL_POSITION 'p'
-#endif /* PG_DIAG_INTERNAL_POSITION */
-
-#ifndef PG_DIAG_INTERNAL_QUERY
-#define PG_DIAG_INTERNAL_QUERY  'q'
-#endif /* PG_DIAG_INTERNAL_QUERY */
-
-#ifndef HAVE_PQFREEMEM
-#define PQfreemem(ptr) free(ptr)
-#endif /* HAVE_PQFREEMEM */
-
-#ifndef HAVE_PQSETCLIENTENCODING
-int PQsetClientEncoding(PGconn *conn, const char *encoding)
-#endif /* HAVE_PQSETCLIENTENCODING */
-
-#ifndef HAVE_PQESCAPESTRING
-size_t PQescapeString(char *to, const char *from, size_t length);
-unsigned char * PQescapeBytea(const unsigned char *bintext, size_t binlen, size_t *bytealen);
-unsigned char * PQunescapeBytea(const unsigned char *strtext, size_t *retbuflen);
-#endif /* HAVE_PQESCAPESTRING */
-
-#ifndef HAVE_PQESCAPESTRINGCONN
-size_t PQescapeStringConn(PGconn *conn, char *to, const char *from, 
-	size_t length, int *error);
-unsigned char *PQescapeByteaConn(PGconn *conn, const unsigned char *from, 
-	size_t from_length, size_t *to_length);
-#endif /* HAVE_PQESCAPESTRINGCONN */
-
-#ifndef HAVE_PQPREPARE
-PGresult *PQprepare(PGconn *conn, const char *stmtName, const char *query,
-	int nParams, const Oid *paramTypes);
-#endif /* HAVE_PQPREPARE */
-
-#ifndef HAVE_PQDESCRIBEPREPARED
-PGresult * PQdescribePrepared(PGconn *conn, const char *stmtName);
-#endif /* HAVE_PQDESCRIBEPREPARED */
-
-#ifndef HAVE_PQDESCRIBEPORTAL
-PGresult * PQdescribePortal(PGconn *conn, const char *portalName);
-#endif /* HAVE_PQDESCRIBEPORTAL */
-
-#ifndef HAVE_PQCONNECTIONUSEDPASSWORD
-int PQconnectionUsedPassword(PGconn *conn);
-#endif /* HAVE_PQCONNECTIONUSEDPASSWORD */
-
-#ifndef HAVE_PQISTHREADSAFE
-int PQisthreadsafe(void);
-#endif /* HAVE_PQISTHREADSAFE */
-
-#ifndef HAVE_LO_TRUNCATE
-int lo_truncate(PGconn *conn, int fd, size_t len);
-#endif /* HAVE_LO_TRUNCATE */
-
-#ifndef HAVE_LO_CREATE
-Oid lo_create(PGconn *conn, Oid lobjId);
-#endif /* HAVE_LO_CREATE */
-
-#ifndef HAVE_PQNPARAMS
-int PQnparams(const PGresult *res);
-#endif /* HAVE_PQNPARAMS */
-
-#ifndef HAVE_PQPARAMTYPE
-Oid PQparamtype(const PGresult *res, int param_number);
-#endif /* HAVE_PQPARAMTYPE */
-
-#ifndef HAVE_PQSERVERVERSION
-int PQserverVersion(const PGconn* conn);
-#endif /* HAVE_PQSERVERVERSION */
-
-#ifndef HAVE_PQEXECPARAMS
-PGresult *PQexecParams(PGconn *conn, const char *command, int nParams, 
-	const Oid *paramTypes, const char * const * paramValues, const int *paramLengths, 
-	const int *paramFormats, int resultFormat);
-PGresult *PQexecParams_compat(PGconn *conn, VALUE command, VALUE values);
-#endif /* HAVE_PQEXECPARAMS */
-
-#ifndef HAVE_PQSENDDESCRIBEPREPARED
-int PQsendDescribePrepared(PGconn *conn, const char *stmtName);
-#endif /* HAVE_PQSENDDESCRIBEPREPARED */
-
-#ifndef HAVE_PQSENDDESCRIBEPORTAL
-int PQsendDescribePortal(PGconn *conn, const char *portalName);
-#endif /* HAVE_PQSENDDESCRIBEPORTAL */
-
-#ifndef HAVE_PQSENDPREPARE
-int PQsendPrepare(PGconn *conn, const char *stmtName, const char *query,
-	int nParams, const Oid *paramTypes);
-#endif /* HAVE_PQSENDPREPARE */
-
-#ifndef HAVE_PQENCRYPTPASSWORD
-char *PQencryptPassword(const char *passwd, const char *user);
-#endif /* HAVE_PQENCRYPTPASSWORD */
-
-#endif /* __compat_h */