of common routines in pqcomprim.c (pq communication primitives).
Not all adapted to it yet, but it's a start.
- Rewritten some of those routines, to write/read bigger chunks of
data, precomputing stuff in buffers instead of sending out byte
by byte.
- As a consequence, I need to know the endianness of the machine.
Currently I rely on getting it from machine/endian.h, but this
may not be available everywhere? (Who the hell thought it was
a good idea to pass integers to the backend the other way around
than the normal network byte order? *argl*)
- Libpq looks in the environment for magic variables, and upon
establishing a connection to the backend, sends it queries
of the form "SET var_name TO 'var_value'". This needs a change
in the backend parser (Mr. Parser, are you there? :)
- Currently it looks for two Env-Vars, namely PG_DATEFORMAT
and PG_FLOATFORMAT. What else makes sense? PG_TIMEFORMAT?
PG_TIMEZONE?
From: "Martin J. Laubach" <mjl@wwx.vip.at>
# Makefile for libpq subsystem (backend half of libpq interface)
#
# IDENTIFICATION
-# $Header: /cvsroot/pgsql/src/backend/libpq/Makefile,v 1.5 1997/03/12 21:17:45 scrappy Exp $
+# $Header: /cvsroot/pgsql/src/backend/libpq/Makefile,v 1.6 1997/03/18 20:14:32 scrappy Exp $
#
#-------------------------------------------------------------------------
LDADD+= $(KRBLIBS)
endif
-OBJS = be-dumpdata.o be-fsstubs.o be-pqexec.o \
+OBJS = be-dumpdata.o be-fsstubs.o be-pqexec.o pqcomprim.o\
auth.o hba.o pqcomm.o portal.o util.o portalbuf.o pqpacket.o pqsignal.o \
password.o
-/*-------------------------------------------------------------------------
+ /*-------------------------------------------------------------------------
*
* pqcomm.c--
* Communication functions between the Frontend and the Backend
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/libpq/pqcomm.c,v 1.12 1997/03/12 21:17:58 scrappy Exp $
+ * $Header: /cvsroot/pgsql/src/backend/libpq/pqcomm.c,v 1.13 1997/03/18 20:14:33 scrappy Exp $
*
*-------------------------------------------------------------------------
*/
* the line ended within maxlen bytes.)
* 1 in other cases
*/
-int
-PQgetline(char *s, int maxlen)
-{
- int c = '\0';
-
+int PQgetline(char *s, int maxlen)
+ {
if (!Pfin || !s || maxlen <= 1)
return(EOF);
- for (; maxlen > 1 && (c = pq_getc(Pfin)) != '\n' && c != EOF; --maxlen) {
- *s++ = c;
- }
+ if(fgets(s, maxlen - 1, Pfin) == NULL)
+ {
+ return feof(Pfin) ? EOF : 1;
+ }
+ else
+ {
+ for( ; *s; *s++)
+ {
+ if(*s == '\n')
+ {
*s = '\0';
+ break;
+ }
+ }
+ }
- if (c == EOF) {
- return(EOF); /* error -- reached EOF before \n */
- } else if (c == '\n') {
- return(0); /* done with this line */
+ return 0;
}
- return(1); /* returning a full buffer */
-}
/*
* USER FUNCTION - sends a string to the backend.
int
pq_getnchar(char *s, int off, int maxlen)
{
+ return pqGetNBytes(s + off, maxlen, Pfin);
+
+#if 0
int c = '\0';
if (Pfin == (FILE *) NULL) {
if (c == EOF)
return(EOF);
return(!EOF);
+#endif
}
/* --------------------------------
int
pq_getint(int b)
{
- int n, c, p;
-
- if (Pfin == (FILE *) NULL) {
-/* elog(DEBUG, "pq_getint: Input descriptor is null"); */
- return(EOF);
+ int n, status = 1;
+
+ if(!Pfin)
+ return EOF;
+ /* mjl: Seems inconsisten w/ return value of pq_putint (void). Also,
+ EOF is a valid return value for an int! XXX */
+
+ switch(b)
+ {
+ case 1:
+ status = ((n = fgetc(Pfin)) == EOF);
+ break;
+ case 2:
+ pqGetShort(&n, Pfin);
+ break;
+ case 4:
+ pqGetLong(&n, Pfin);
+ break;
+ default:
+ fprintf(stderr, "** Unsupported size %d\n", b);
}
- n = p = 0;
- while (b-- && (c = pq_getc(Pfin)) != EOF && p < 32) {
- n |= (c & 0xff) << p;
- p += 8;
+ if(status)
+ {
+ (void) sprintf(PQerrormsg,
+ "FATAL: pq_getint failed: errno=%d\n", errno);
+ fputs(PQerrormsg, stderr);
+ pqdebug("%s", PQerrormsg);
+ n = 0;
}
- return(n);
+ return n;
}
/* --------------------------------
void
pq_putstr(char *s)
{
- int status;
-
- if (Pfout) {
- status = fputs(s, Pfout);
- if (status == EOF) {
- (void) sprintf(PQerrormsg,
- "FATAL: pq_putstr: fputs() failed: errno=%d\n",
- errno);
- fputs(PQerrormsg, stderr);
- pqdebug("%s", PQerrormsg);
- }
- status = fputc('\0', Pfout);
- if (status == EOF) {
+ if(pqPutString(s, Pfout))
+ {
(void) sprintf(PQerrormsg,
- "FATAL: pq_putstr: fputc() failed: errno=%d\n",
- errno);
+ "FATAL: pq_putstr: fputs() failed: errno=%d\n", errno);
fputs(PQerrormsg, stderr);
pqdebug("%s", PQerrormsg);
}
- }
}
/* --------------------------------
*/
void
pq_putnchar(char *s, int n)
-{
- int status;
-
- if (Pfout) {
- while (n--) {
- status = fputc(*s++, Pfout);
- if (status == EOF) {
+ {
+ if(pqPutNBytes(s, n, Pfout))
+ {
(void) sprintf(PQerrormsg,
"FATAL: pq_putnchar: fputc() failed: errno=%d\n",
errno);
pqdebug("%s", PQerrormsg);
}
}
- }
-}
/* --------------------------------
* pq_putint - send an integer to connection
{
int status;
- if (b > 4)
- b = 4;
-
- if (Pfout) {
- while (b--) {
- status = fputc(i & 0xff, Pfout);
- i >>= 8;
- if (status == EOF) {
+ if(!Pfout) return;
+
+ status = 1;
+ switch(b)
+ {
+ case 1:
+ status = (fputc(i, Pfout) == EOF);
+ break;
+ case 2:
+ status = pqPutShort(i, Pfout);
+ break;
+ case 4:
+ status = pqPutLong(i, Pfout);
+ break;
+ default:
+ fprintf(stderr, "** Unsupported size %d\n", b);
+ }
+
+ if(status)
+ {
(void) sprintf(PQerrormsg,
- "FATAL: pq_putint: fputc() failed: errno=%d\n",
- errno);
+ "FATAL: pq_putint failed: errno=%d\n", errno);
fputs(PQerrormsg, stderr);
pqdebug("%s", PQerrormsg);
}
- }
- }
}
/* ---
#error Please write byte order macros
#endif
+/* --------------------------------------------------------------------- */
+int pqPutShort(const int integer, FILE *f)
+ {
+ int retval = 0;
+ u_short n;
+
+ n = hton_s(integer);
+ if(fwrite(&n, sizeof(u_short), 1, f) != 1)
+ retval = EOF;
+
+ return retval;
+ }
+
+/* --------------------------------------------------------------------- */
+int pqPutLong(const int integer, FILE *f)
+ {
+ int retval = 0;
+ u_long n;
+
+ n = hton_l(integer);
+ if(fwrite(&n, sizeof(u_long), 1, f) != 1)
+ retval = EOF;
+
+ return retval;
+ }
+
+/* --------------------------------------------------------------------- */
+int pqGetShort(int *result, FILE *f)
+ {
+ int retval = 0;
+ u_short n;
+
+ if(fread(&n, sizeof(u_short), 1, f) != 1)
+ retval = EOF;
+
+ *result = ntoh_s(n);
+ return retval;
+ }
+
+/* --------------------------------------------------------------------- */
+int pqGetLong(int *result, FILE *f)
+ {
+ int retval = 0;
+ u_long n;
+
+ if(fread(&n, sizeof(u_long), 1, f) != 1)
+ retval = EOF;
+
+ *result = ntoh_l(n);
+ return retval;
+ }
+
+/* --------------------------------------------------------------------- */
+/* pqGetNBytes: Read a chunk of exactly len bytes in buffer s.
+ Return 0 if ok.
+*/
+int pqGetNBytes(char* s, const int len, FILE *f)
+ {
+ int cnt;
+
+ if (f == NULL)
+ return EOF;
+
+ cnt = fread(s, 1, len, f);
+ s[cnt] = '\0';
+ /* mjl: actually needs up to len+1 bytes, is this okay? XXX */
+
+ return (cnt == len) ? 0 : EOF;
+ }
+
+/* --------------------------------------------------------------------- */
+int pqPutNBytes(const char *s, const int len, FILE *f)
+ {
+ if (f == NULL)
+ return 0;
+
+ if(fwrite(s, 1, len, f) != len)
+ return EOF;
+
+ return 0;
+ }
+
+/* --------------------------------------------------------------------- */
+int pqGetString(char *s, int len, FILE *f)
+ {
+ int c;
+
+ if (f == NULL)
+ return EOF;
+
+ while (len-- && (c = getc(f)) != EOF && c)
+ *s++ = c;
+ *s = '\0';
+ /* mjl: actually needs up to len+1 bytes, is this okay? XXX */
+
+ return 0;
+ }
+
+/* --------------------------------------------------------------------- */
+int pqPutString(const char *s, FILE *f)
+ {
+ if (f == NULL)
+ return 0;
+
+ if (fputs(s, f) == EOF)
+ return EOF;
+
+ fputc('\0', f); /* important to send an ending \0 since backend expects it */
+ fflush(f);
+
+ return 0;
+ }
+
+/* --------------------------------------------------------------------- */
+int pqGetByte(FILE *f)
+ {
+ return getc(f);
+ }
+
+/* --------------------------------------------------------------------- */
+int pqPutByte(const int c, FILE *f)
+ {
+ if(!f) return 0;
+
+ return (putc(c, f) == c) ? 0 : EOF;
+ }
+
+/* --------------------------------------------------------------------- */
+
+#include <stdlib.h>
+#include <stdio.h>
+
+#include "postgres.h"
+#include "libpq/pqcomm.h"
+
+/* --------------------------------------------------------------------- */
+/* Is the other way around than system ntoh/hton, so we roll our own
+ here */
+
+#if BYTE_ORDER == LITTLE_ENDIAN
+#define ntoh_s(n) n
+#define ntoh_l(n) n
+#define hton_s(n) n
+#define hton_l(n) n
+#endif
+#if BYTE_ORDER == BIG_ENDIAN
+#define ntoh_s(n) (u_short)(((u_char *) &n)[0] << 8 | ((u_char *) &n)[1]);
+#define ntoh_l(n) (u_long)(((u_char *)&n)[0] << 24 | ((u_char *)&n)[1] << 16 |\
+ ((u_char *)&n)[2] << 8 | ((u_char *)&n)[3]);
+#define hton_s(n) (ntoh_s(n))
+#define hton_l(n) (ntoh_l(n))
+#endif
+#if BYTE_ORDER == PDP_ENDIAN
+#endif
+#ifndef ntoh_s
+#error Please write byte order macros
+#endif
+
/* --------------------------------------------------------------------- */
int pqPutShort(const int integer, FILE *f)
{
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/utils/init/globals.c,v 1.6 1997/03/18 16:35:46 scrappy Exp $
+ * $Header: /cvsroot/pgsql/src/backend/utils/init/globals.c,v 1.7 1997/03/18 20:14:46 scrappy Exp $
*
* NOTES
* Globals used all over the place should be declared here and not
int CTimeZone = 0;
char CTZName[8] = "";
+char DateFormat[20] = "%d-%m-%Y"; /* mjl: sizes! or better malloc? XXX */
+char FloatFormat[20] = "%f";
+
char *IndexedCatalogNames[] = {
AttributeRelationName,
ProcedureRelationName,
*
* Copyright (c) 1994, Regents of the University of California
*
- * $Id: miscadmin.h,v 1.6 1997/03/18 16:36:23 scrappy Exp $
+ * $Id: miscadmin.h,v 1.7 1997/03/18 20:15:19 scrappy Exp $
*
* NOTES
* some of the information in this file will be moved to
extern int CTimeZone;
extern char CTZName[];
+extern char FloatFormat[];
+extern char DateFormat[];
+
extern Oid LastOidProcessed; /* for query rewrite */
#define MAX_PARSE_BUFFER 8192
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/interfaces/libpq/fe-connect.c,v 1.24 1997/03/12 21:23:09 scrappy Exp $
+ * $Header: /cvsroot/pgsql/src/interfaces/libpq/fe-connect.c,v 1.25 1997/03/18 20:15:39 scrappy Exp $
*
*-------------------------------------------------------------------------
*/
NULL, NULL, 0 }
};
+struct EnvironmentOptions
+ {
+ const char *envName, *pgName;
+ } EnvironmentOptions[] =
+ {
+ { "PG_DATEFORMAT", "pg_dateformat" },
+ { "PG_FLOATFORMAT", "pg_floatformat" },
+ { NULL }
+ };
+
/* ----------------
* PQconnectdb
*
conn->port = port;
+ {
+ struct EnvironmentOptions *eo;
+ char setQuery[80]; /* mjl: size okay? XXX */
+
+ for(eo = EnvironmentOptions; eo->envName; eo++)
+ {
+ const char *val;
+
+ if(val = getenv(eo->envName))
+ {
+ PGresult *res;
+
+ sprintf(setQuery, "SET %s TO \".60%s\"", eo->pgName, val);
+ res = PQexec(conn, setQuery);
+ PQclear(res); /* Don't care? */
+ }
+ }
+ }
return CONNECTION_OK;
connect_errReturn:
projects / postgresql / commitdiff