--- /dev/null
+# ODBC extensions
+# Thomas Lockhart 2000-04-03
+
+SRCDIR= ../../src
+
+include $(SRCDIR)/Makefile.global
+
+ifndef PGLIB
+ PGLIB= .
+endif
+
+CFLAGS+= $(CFLAGS_SL) -I$(SRCDIR)/include
+
+TARGETS_7= odbc.sql
+TARGETS_PRE7= odbc$(DLSUFFIX) odbc-pre7.sql
+
+TARGETS= $(TARGETS_7)
+
+CLEANFILES+= $(TARGETS) $(TARGETS_PRE7)
+
+all:: $(TARGETS)
+
+install: all
+ifneq ($(filter odbc$(DLSUFFIX), $(TARGETS)),)
+ -test -d $(PGLIB) || $(INSTALL) -d $(PGLIB)
+ $(INSTALL) odbc$(DLSUFFIX) $(PGLIB)
+endif
+
+pre7:
+ $(MAKE) TARGETS="$(TARGETS) $(TARGETS_PRE7)"
+
+install-pre7:
+ $(MAKE) TARGETS="$(TARGETS) $(TARGETS_PRE7)" install
+
+odbc-pre7.sql: odbc-pre7.source odbc.sql
+ rm -f $@; \
+ cat $^ \
+ | sed -e "s:_OBJWD_:$(PGLIB):g" \
+ -e "s:_DLSUFFIX_:$(DLSUFFIX):g" \
+ -e "s:float(15):float8:g" > $@
+
+%.sql: %.source
+ rm -f $@; \
+ sed -e "s:_OBJWD_:$(PGLIB):g" \
+ -e "s:_DLSUFFIX_:$(DLSUFFIX):g" < $< > $@
+
+clean:
+ rm -f $(TARGETS) *.o
--- /dev/null
+This directory contains support functions for the ODBC driver
+supplied with PostgreSQL-7.0.
+
+To enable additional ODBC functions with PostgreSQL-7.0, simply
+execute the commands in odbc.sql:
+
+psql
+Welcome to psql, the PostgreSQL interactive terminal.
+
+Type: \copyright for distribution terms
+ \h for help with SQL commands
+ \? for help on internal slash commands
+ \g or terminate with semicolon to execute query
+ \q to quit
+
+postgres=# \i odbc.sql
+CREATE
+...
+
+
+To enable additional ODBC functions with versions of PostgreSQL
+prior to PostgreSQL-7.0 (e.g. PostgreSQL-6.5.3), build the shared
+library and SQL commands as follows:
+
+make pre7
+psql
+Welcome to psql, the PostgreSQL interactive terminal.
+
+Type: \copyright for distribution terms
+ \h for help with SQL commands
+ \? for help on internal slash commands
+ \g or terminate with semicolon to execute query
+ \q to quit
+
+postgres=# \i odbc-pre7.sql
+CREATE
+...
+
--- /dev/null
+-- ODBC-pre7.sql
+--
+-- Use float8 rather than float(15) since pre-7.0 does not accept
+-- SQL92 type names of this form in the CREATE FUNCTION command.
+--
+
+--
+-- Character string manipulation
+--
+
+--
+-- Compatibility functions for pre-v7.0.
+-- These should be applied to pre-v7.0 databases
+-- when using the v7.0 ODBC driver.
+--
+
+CREATE FUNCTION char_length(text)
+ RETURNS integer
+ AS 'SELECT length(CAST($1 AS text))'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION pow(float8)
+ RETURNS float8
+ AS 'SELECT dpow($1)'
+ LANGUAGE 'SQL';
+
+--
+-- Extensions for ODBC compliance in v7.0.
+-- In the current driver, ODBC functions must map directly into a
+-- Postgres function. So in some cases we must create a compatible
+-- function.
+--
+
+CREATE FUNCTION ascii(text)
+ RETURNS integer
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'ascii'
+ LANGUAGE 'C';
+
+CREATE FUNCTION ichar(integer)
+ RETURNS char(1)
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'ichar'
+ LANGUAGE 'C';
+
+CREATE FUNCTION insert(text, integer, integer, text)
+ RETURNS text
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'insert'
+ LANGUAGE 'C';
+
+-- replace all occurences of $2 with $3
+CREATE FUNCTION replace(text, text, text)
+ RETURNS text
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'replace'
+ LANGUAGE 'C';
+
+-- return the string repeated n times
+CREATE FUNCTION repeat(text, integer)
+ RETURNS text
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'repeat'
+ LANGUAGE 'C';
+
+--
+-- Mathematical functions for pre-v7.0
+--
+
+CREATE FUNCTION dround(float8)
+ RETURNS float8
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'dround'
+ LANGUAGE 'C';
+
+CREATE FUNCTION round(float8)
+ RETURNS float8
+ AS 'SELECT dround($1)'
+ LANGUAGE 'SQL';
+
+--
+-- Math functions present in backend, but not in catalog for v7.0
+--
+
+CREATE FUNCTION acos(float8)
+ RETURNS float8
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'dacos'
+ LANGUAGE 'C';
+
+CREATE FUNCTION asin(float8)
+ RETURNS float8
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'dasin'
+ LANGUAGE 'C';
+
+CREATE FUNCTION atan(float8)
+ RETURNS float8
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'datan'
+ LANGUAGE 'C';
+
+CREATE FUNCTION atan2(float8,float8)
+ RETURNS float8
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'datan2'
+ LANGUAGE 'C';
+
+CREATE FUNCTION cos(float8)
+ RETURNS float8
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'dcos'
+ LANGUAGE 'C';
+
+CREATE FUNCTION cot(float8)
+ RETURNS float8
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'dcot'
+ LANGUAGE 'C';
+
+CREATE FUNCTION sin(float8)
+ RETURNS float8
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'dsin'
+ LANGUAGE 'C';
+
+CREATE FUNCTION dtan(float8)
+ RETURNS float8
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'dtan'
+ LANGUAGE 'C';
+
+CREATE FUNCTION degrees(float8)
+ RETURNS float8
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'degrees'
+ LANGUAGE 'C';
+
+CREATE FUNCTION pi()
+ RETURNS float8
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'dpi'
+ LANGUAGE 'C';
+
+CREATE FUNCTION radians(float8)
+ RETURNS float8
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'radians'
+ LANGUAGE 'C';
+
+-- random number generator currently requires RAND_MAX be available
+CREATE FUNCTION random()
+ RETURNS float8
+ AS '_OBJWD_/odbc_DLSUFFIX_', 'drandom'
+ LANGUAGE 'C';
+
+CREATE FUNCTION truncate(numeric,integer)
+ RETURNS numeric
+ AS 'SELECT trunc($1, $2)'
+ LANGUAGE 'SQL';
+
+--
+-- Date/time functions for v7.0
+--
+
+CREATE FUNCTION interval_mul(interval,float8)
+ RETURNS interval
+ AS '_OBJWD_/odbc_DLSUFFIX_'
+ LANGUAGE 'C';
+
+CREATE OPERATOR * (
+ LEFTARG = interval,
+ RIGHTARG = float8,
+ PROCEDURE = interval_mul
+);
+
+
+
+
--- /dev/null
+#include <stdlib.h>
+#include <ctype.h>
+#include <errno.h>
+
+#include <float.h> /* faked on sunos4 */
+
+#include <math.h>
+
+#include "postgres.h"
+#ifdef HAVE_LIMITS_H
+#include <limits.h>
+#ifndef MAXINT
+#define MAXINT INT_MAX
+#endif
+#else
+#ifdef HAVE_VALUES_H
+#include <values.h>
+#endif
+#endif
+#include "fmgr.h"
+#include "utils/timestamp.h"
+#include "utils/builtins.h"
+
+
+int4 ascii(text *string);
+text *ichar(int4 cvalue);
+text *repeat(text *string, int4 count);
+Interval *interval_mul(Interval *span1, float8 *arg2);
+float64 dasin(float64 arg1);
+float64 datan(float64 arg1);
+float64 datan2(float64 arg1, float64 arg2);
+float64 dcos(float64 arg1);
+float64 dcot(float64 arg1);
+float64 dsin(float64 arg1);
+float64 dtan(float64 arg1);
+float64 degrees(float64 arg1);
+float64 dpi(void);
+float64 radians(float64 arg1);
+float64 drandom(void);
+void setseed(int32 seed);
+
+
+int4
+ascii(text *string)
+{
+ if (!PointerIsValid(string))
+ return 0;
+
+ if (VARSIZE(string) <= VARHDRSZ)
+ return 0;
+
+ return ((int) *(VARDATA(string)));
+} /* ascii() */
+
+
+text *
+ichar(int4 cvalue)
+{
+ text *result;
+
+ result = (text *) palloc(VARHDRSZ + 1);
+ VARSIZE(result) = VARHDRSZ + 1;
+ *VARDATA(result) = (char) cvalue;
+
+ return result;
+} /* ichar() */
+
+
+text *
+repeat(text *string, int4 count)
+{
+ text *result;
+ int slen, tlen;
+ int i;
+ char *cp;
+
+ if (count < 0)
+ count = 0;
+
+ slen = (VARSIZE(string)-VARHDRSZ);
+ tlen = (VARHDRSZ + (count * slen));
+
+ result = (text *) palloc(tlen);
+
+ VARSIZE(result) = tlen;
+ cp = VARDATA(result);
+ for (i = 0; i < count; i++)
+ {
+ memcpy(cp, VARDATA(string), slen);
+ cp += slen;
+ }
+
+ return result;
+} /* ichar() */
+
+Interval *
+interval_mul(Interval *span1, float8 *arg2)
+{
+ Interval *result;
+ double months;
+
+ if ((!PointerIsValid(span1)) || (!PointerIsValid(arg2)))
+ return NULL;
+
+ if (!PointerIsValid(result = palloc(sizeof(Interval))))
+ elog(ERROR, "Memory allocation failed, can't divide intervals");
+
+ months = (span1->month * *arg2);
+ result->month = rint(months);
+ result->time = JROUND(span1->time * *arg2);
+ result->time += JROUND((months - result->month) * 30);
+
+ return result;
+} /* interval_mul() */
+
+/*
+ * dasin - returns a pointer to the arcsin of arg1 (radians)
+ */
+float64
+dasin(float64 arg1)
+{
+ float64 result;
+ double tmp;
+
+ if (!PointerIsValid(arg1))
+ return (float64) NULL;
+
+ result = (float64) palloc(sizeof(float64data));
+
+ tmp = *arg1;
+ errno = 0;
+ *result = (float64data) asin(tmp);
+ if (errno != 0
+#ifdef HAVE_FINITE
+ || !finite(*result)
+#endif
+ )
+ elog(ERROR, "dasin(%f) input is out of range", *arg1);
+
+ CheckFloat8Val(*result);
+ return result;
+} /* dasin() */
+
+
+/*
+ * datan - returns a pointer to the arctan of arg1 (radians)
+ */
+float64
+datan(float64 arg1)
+{
+ float64 result;
+ double tmp;
+
+ if (!PointerIsValid(arg1))
+ return (float64) NULL;
+
+ result = (float64) palloc(sizeof(float64data));
+
+ tmp = *arg1;
+ errno = 0;
+ *result = (float64data) atan(tmp);
+ if (errno != 0
+#ifdef HAVE_FINITE
+ || !finite(*result)
+#endif
+ )
+ elog(ERROR, "atan(%f) input is out of range", *arg1);
+
+ CheckFloat8Val(*result);
+ return result;
+} /* datan() */
+
+
+/*
+ * atan2 - returns a pointer to the arctan2 of arg1 (radians)
+ */
+float64
+datan2(float64 arg1, float64 arg2)
+{
+ float64 result;
+
+ if (!PointerIsValid(arg1) || !PointerIsValid(arg1))
+ return (float64) NULL;
+
+ result = (float64) palloc(sizeof(float64data));
+
+ errno = 0;
+ *result = (float64data) atan2(*arg1, *arg2);
+ if (errno != 0
+#ifdef HAVE_FINITE
+ || !finite(*result)
+#endif
+ )
+ elog(ERROR, "atan2(%f,%f) input is out of range", *arg1, *arg2);
+
+ CheckFloat8Val(*result);
+ return result;
+} /* datan2() */
+
+
+/*
+ * dcos - returns a pointer to the cosine of arg1 (radians)
+ */
+float64
+dcos(float64 arg1)
+{
+ float64 result;
+ double tmp;
+
+ if (!PointerIsValid(arg1))
+ return (float64) NULL;
+
+ result = (float64) palloc(sizeof(float64data));
+
+ tmp = *arg1;
+ errno = 0;
+ *result = (float64data) cos(tmp);
+ if (errno != 0
+#ifdef HAVE_FINITE
+ || !finite(*result)
+#endif
+ )
+ elog(ERROR, "dcos(%f) input is out of range", *arg1);
+
+ CheckFloat8Val(*result);
+ return result;
+} /* dcos() */
+
+
+/*
+ * dcot - returns a pointer to the cotangent of arg1 (radians)
+ */
+float64
+dcot(float64 arg1)
+{
+ float64 result;
+ double tmp;
+
+ if (!PointerIsValid(arg1))
+ return (float64) NULL;
+
+ result = (float64) palloc(sizeof(float64data));
+
+ tmp = *arg1;
+ errno = 0;
+ *result = (float64data) tan(tmp);
+ if ((errno != 0) || (*result == 0.0)
+#ifdef HAVE_FINITE
+ || !finite(*result)
+#endif
+ )
+ elog(ERROR, "dcot(%f) input is out of range", *arg1);
+
+ *result = 1.0/(*result);
+ CheckFloat8Val(*result);
+ return result;
+} /* dcot() */
+
+
+/*
+ * dsin - returns a pointer to the sine of arg1 (radians)
+ */
+float64
+dsin(float64 arg1)
+{
+ float64 result;
+ double tmp;
+
+ if (!PointerIsValid(arg1))
+ return (float64) NULL;
+
+ result = (float64) palloc(sizeof(float64data));
+
+ tmp = *arg1;
+ errno = 0;
+ *result = (float64data) sin(tmp);
+ if (errno != 0
+#ifdef HAVE_FINITE
+ || !finite(*result)
+#endif
+ )
+ elog(ERROR, "dsin(%f) input is out of range", *arg1);
+
+ CheckFloat8Val(*result);
+ return result;
+} /* dsin() */
+
+
+/*
+ * dtan - returns a pointer to the tangent of arg1 (radians)
+ */
+float64
+dtan(float64 arg1)
+{
+ float64 result;
+ double tmp;
+
+ if (!PointerIsValid(arg1))
+ return (float64) NULL;
+
+ result = (float64) palloc(sizeof(float64data));
+
+ tmp = *arg1;
+ errno = 0;
+ *result = (float64data) tan(tmp);
+ if (errno != 0
+#ifdef HAVE_FINITE
+ || !finite(*result)
+#endif
+ )
+ elog(ERROR, "dtan(%f) input is out of range", *arg1);
+
+ CheckFloat8Val(*result);
+ return result;
+} /* dtan() */
+
+
+#ifndef M_PI
+/* from my RH5.2 gcc math.h file - thomas 2000-04-03 */
+#define M_PI 3.14159265358979323846
+#endif
+
+
+/*
+ * degrees - returns a pointer to degrees converted from radians
+ */
+float64
+degrees(float64 arg1)
+{
+ float64 result;
+
+ if (!arg1)
+ return (float64) NULL;
+
+ result = (float64) palloc(sizeof(float64data));
+
+ *result = ((*arg1) * (180.0 / M_PI));
+
+ CheckFloat8Val(*result);
+ return result;
+} /* degrees() */
+
+
+/*
+ * dpi - returns a pointer to degrees converted to radians
+ */
+float64
+dpi(void)
+{
+ float64 result;
+
+ result = (float64) palloc(sizeof(float64data));
+
+ *result = (M_PI);
+
+ return result;
+} /* dpi() */
+
+
+/*
+ * radians - returns a pointer to radians converted from degrees
+ */
+float64
+radians(float64 arg1)
+{
+ float64 result;
+
+ if (!arg1)
+ return (float64) NULL;
+
+ result = (float64) palloc(sizeof(float64data));
+
+ *result = ((*arg1) * (M_PI / 180.0));
+
+ CheckFloat8Val(*result);
+ return result;
+} /* radians() */
+
+
+#ifdef RAND_MAX
+
+/*
+ * drandom - returns a random number
+ */
+float64
+drandom(void)
+{
+ float64 result;
+
+ result = (float64) palloc(sizeof(float64data));
+
+ /* result 0.0-1.0 */
+ *result = (((double)rand()) / RAND_MAX);
+
+ CheckFloat8Val(*result);
+ return result;
+} /* drandom() */
+
+
+/*
+ * setseed - set seed for the random number generator
+ */
+void
+setseed(int32 seed)
+{
+ srand(seed);
+
+ return;
+} /* setseed() */
+
+#endif
+
+
--- /dev/null
+-- ODBC.sql
+--
+
+--
+-- Character string manipulation
+--
+
+--
+-- Extensions for ODBC compliance in v7.0.
+-- In the current driver, ODBC functions must map directly into a
+-- Postgres function. So in some cases we must create a compatible
+-- function.
+--
+
+-- truncate on the left
+CREATE FUNCTION ltrunc(text, integer)
+ RETURNS text
+ AS 'SELECT substring($1 FROM 1 FOR $2)'
+ LANGUAGE 'SQL';
+
+-- truncate on the right
+CREATE FUNCTION rtrunc(text, integer)
+ RETURNS text
+ AS 'SELECT substring($1 FROM (char_length($1)-($2)+1) FOR $2)'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION space(integer)
+ RETURNS text
+ AS 'SELECT lpad('''', $1, '' '')'
+ LANGUAGE 'SQL';
+
+--
+-- Mathematical functions
+--
+
+CREATE FUNCTION truncate(numeric,integer)
+ RETURNS numeric
+ AS 'SELECT trunc($1, $2)'
+ LANGUAGE 'SQL';
+
+--
+-- Date/time functions for v7.0
+--
+
+CREATE FUNCTION curdate()
+ RETURNS date
+ AS 'SELECT CAST(''now'' AS date)'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION curtime()
+ RETURNS time
+ AS 'SELECT CAST(''now'' AS time)'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION dayname(timestamp)
+ RETURNS text
+ AS 'SELECT to_char($1,''Day'')'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION dayofmonth(timestamp)
+ RETURNS integer
+ AS 'SELECT CAST(date_part(''day'', $1) AS integer)'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION dayofweek(timestamp)
+ RETURNS integer
+ AS 'SELECT ( CAST(date_part(''dow'', $1) AS integer) + 1)'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION dayofyear(timestamp)
+ RETURNS integer
+ AS 'SELECT CAST(date_part(''doy'', $1) AS integer)'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION hour(timestamp)
+ RETURNS integer
+ AS 'SELECT CAST(date_part(''hour'', $1) AS integer)'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION minute(timestamp)
+ RETURNS integer
+ AS 'SELECT CAST(date_part(''minute'', $1) AS integer)'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION odbc_month(timestamp)
+ RETURNS integer
+ AS 'SELECT CAST(date_part(''month'', $1) AS integer)'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION monthname(timestamp)
+ RETURNS text
+ AS 'SELECT to_char($1, ''Month'')'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION quarter(timestamp)
+ RETURNS integer
+ AS 'SELECT CAST(date_part(''quarter'', $1) AS integer)'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION second(timestamp)
+ RETURNS integer
+ AS 'SELECT CAST(date_part(''second'', $1) AS integer)'
+ LANGUAGE 'SQL';
+
+/*
+-- The first argument is an integer constant denoting the units
+-- of the second argument. Until we know the actual values, we
+-- cannot implement these. - thomas 2000-04-11
+CREATE FUNCTION timestampadd(integer,integer,timestamp)
+ RETURNS timestamp
+ AS 'SELECT CAST(($3 + ($2 * $1)) AS timestamp)'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION timestampdiff(integer,integer,timestamp)
+ RETURNS timestamp
+ AS 'SELECT CAST(($3 + ($2 * $1)) AS timestamp)'
+ LANGUAGE 'SQL';
+*/
+
+CREATE FUNCTION week(timestamp)
+ RETURNS integer
+ AS 'SELECT CAST(date_part(''week'', $1) AS integer)'
+ LANGUAGE 'SQL';
+
+CREATE FUNCTION year(timestamp)
+ RETURNS integer
+ AS 'SELECT CAST(date_part(''year'', $1) AS integer)'
+ LANGUAGE 'SQL';
+
+--
+-- System functions.
+--
+
+/*
+CREATE FUNCTION database()
+ RETURNS text
+ AS 'SELECT ...'
+ LANGUAGE 'SQL';
+*/
+
+CREATE FUNCTION odbc_user()
+ RETURNS text
+ AS 'SELECT CAST(USER AS text)'
+ LANGUAGE 'SQL';
+
projects / postgresql / commitdiff