Hi list,
First of all, please CC me on replies, as I am not subscribed to this list.
I am trying to build a plugin library to be run alongside postgresql. I
have installed MSys and Mingw, and managed to compile postgresql (rc2,
configured without zlib support). I did not install it, but rather used
the binary install from the pginstaller project.
I then take my plugin library (an implementation of the utinyint type),
and run the following commands (reverse engineered from the usual
postgresql build process):
gcc -I$PGSRC/src/include -I$PGSRC/src/include/port/win32 tinyint.c -c -o
tinyint.o
dlltool --export-all --output-def libmssql.def tinyint.o
$PGSRC/src/backend/libpostgres.a
dlltool --dllname libmssql.dll --def libmssql.def --output-lib libmssql.a
dlltool --dllname libmssql.dll --output-exp libmssql.exp --def libmssql.def
gcc -o libmssql.dll -Wl,--base-file,libmssql.base libmssql.exp tinyint.o
$PGSRC/src/backend/libpostgres.a
I'm not sure why the following two lines are necessary, but as that's
the process that postgres.exe goes through, I did them as well. They do
not matter as far as my problem is concerned:
dlltool --dllname libmssql.dll --base-file libmssql.base --output-exp
libmssql.exp --def libmssql.def
gcc -o libmssql.dll libmssql.exp tinyint.o $PGSRC/src/backend/libpostgres.a
When this process is done, I get a compiled libmssql.dll, which I place
at c:\program files\postgresql\8.0.0-rc2\lib. I then create a new
database, and run the following command:
create function utinyintin( cstring ) returns utinyint AS 'libmssql',
'utinyintin' LANGUAGE C IMMUTABLE STRICT;
The result is this:
ERROR: unrecognized API version 6646896 reported by info function
"pg_finfo_utinyintin"
Any help in understanding where this is going wrong would be greatly
appreciated. Could this be some difference between building from source
and the binary installation used? If so, what do I need to do
differently in order to make it work?
Attached is the source for tinyint.c
Many thanks,
Shachar
--
Shachar Shemesh
Lingnu Open Source Consulting ltd.
http://www.lingnu.com/
#include "postgres.h"
#include "fmgr.h"
#include "libpq/pqformat.h"
#ifndef TINY_MAX
#define TINY_MAX (0xFF)
#endif
#ifndef PG_GETARG_UINT8
#define PG_GETARG_UINT8(n) DatumGetUInt8(PG_GETARG_DATUM(n))
#endif
#ifndef PG_RETURN_UINT8
#define PG_RETURN_UINT8(x) return UInt8GetDatum(x)
#endif
/*
* DatumGetInt8
* Returns 8-bit integer value of a datum.
*/
#ifndef DatumGetInt8
#define DatumGetInt8(X) ((int8) GET_1_BYTE(X))
#endif
/*
* tinyintin - converts "num" to unsigned byte
*/
PG_FUNCTION_INFO_V1(utinyintin);
Datum
utinyintin(PG_FUNCTION_ARGS)
{
char *num = PG_GETARG_CSTRING(0);
int32 res=pg_atoi(num, sizeof(int32), '\0');
/* As pg_atoi is signed, we get the number in a int32 and do our own bounds
* checking. This results in an incorrect error if the number is bigger than
* 2^31-1, or smaller than -2^31. The error message will say that the number
* is too big for 32 bits, which is true but slightly misleading.
* The alternative is to rewrite pg_atoi, which doesn't seem worth the trouble.
*/
if( res<0 || res>TINY_MAX )
ereport(ERROR, (errcode(ERRCODE_NUMERIC_VALUE_OUT_OF_RANGE),
errmsg("value \"%s\" is out of range for type tinyint", num)));
PG_RETURN_UINT8(res);
}
/*
* tinyintout - converts unsigned byte to "num"
*/
PG_FUNCTION_INFO_V1(utinyintout);
Datum
utinyintout(PG_FUNCTION_ARGS)
{
uint8 arg1 = PG_GETARG_UINT8(0);
char *result = (char *) palloc(4); /* no sign, 3 digits, '\0' */
pg_itoa(arg1, result);
PG_RETURN_CSTRING(result);
}
/*
* tinyintrecv - converts external binary format to tinyint
*/
PG_FUNCTION_INFO_V1(utinyintrecv);
Datum
utinyintrecv(PG_FUNCTION_ARGS)
{
StringInfo buf = (StringInfo) PG_GETARG_POINTER(0);
PG_RETURN_UINT8((uint8) pq_getmsgint(buf, sizeof(uint8)));
}
/*
* tinyintsend - converts tinyint to binary format
*/
PG_FUNCTION_INFO_V1(utinyintsend);
Datum
utinyintsend(PG_FUNCTION_ARGS)
{
uint8 arg1 = PG_GETARG_UINT8(0);
StringInfoData buf;
pq_begintypsend(&buf);
pq_sendint(&buf, arg1, sizeof(uint8));
PG_RETURN_BYTEA_P(pq_endtypsend(&buf));
}
PG_FUNCTION_INFO_V1(utinytoi2);
Datum
utinytoi2(PG_FUNCTION_ARGS)
{
uint8 arg1 = PG_GETARG_UINT8(0);
PG_RETURN_INT16((int16) arg1);
}
PG_FUNCTION_INFO_V1(utinytoi4);
Datum
utinytoi4(PG_FUNCTION_ARGS)
{
uint8 arg1 = PG_GETARG_UINT8(0);
PG_RETURN_INT32((int32) arg1);
}
PG_FUNCTION_INFO_V1(i2toutiny);
Datum
i2toutiny(PG_FUNCTION_ARGS)
{
int16 arg1 = PG_GETARG_INT16(0);
if (arg1 < 0 || arg1 > TINY_MAX)
ereport(ERROR,
(errcode(ERRCODE_NUMERIC_VALUE_OUT_OF_RANGE),
errmsg("integer out of range")));
PG_RETURN_UINT8((uint8) arg1);
}
PG_FUNCTION_INFO_V1(i4toutiny);
Datum
i4toutiny(PG_FUNCTION_ARGS)
{
int32 arg1 = PG_GETARG_INT32(0);
if (arg1 < 0 || arg1 > TINY_MAX)
ereport(ERROR,
(errcode(ERRCODE_NUMERIC_VALUE_OUT_OF_RANGE),
errmsg("integer out of range")));
PG_RETURN_UINT8((uint8) arg1);
}
PG_FUNCTION_INFO_V1(utinyint_text);
Datum
utinyint_text(PG_FUNCTION_ARGS)
{
uint8 arg1 = PG_GETARG_UINT8(0);
text *result = (text *) palloc(4 + VARHDRSZ); /* no sign,4 digits, '\0' */
pg_itoa(arg1, VARDATA(result));
VARATT_SIZEP(result) = strlen(VARDATA(result)) + VARHDRSZ;
PG_RETURN_TEXT_P(result);
}
PG_FUNCTION_INFO_V1(text_utinyint);
Datum
text_utinyint(PG_FUNCTION_ARGS)
{
text *string = PG_GETARG_TEXT_P(0);
Datum result;
int len;
char *str;
len = VARSIZE(string) - VARHDRSZ;
str = palloc(len + 1);
memcpy(str, VARDATA(string), len);
*(str + len) = '\0';
result = DirectFunctionCall1(utinyintin, CStringGetDatum(str));
pfree(str);
return result;
}
/* Comparation functions */
PG_FUNCTION_INFO_V1(utinyinteq);
Datum
utinyinteq(PG_FUNCTION_ARGS)
{
uint8 arg1 = PG_GETARG_UINT8(0);
uint8 arg2 = PG_GETARG_UINT8(1);
PG_RETURN_BOOL(arg1 == arg2);
}
PG_FUNCTION_INFO_V1(utinyintne);
Datum
utinyintne(PG_FUNCTION_ARGS)
{
uint8 arg1 = PG_GETARG_UINT8(0);
uint8 arg2 = PG_GETARG_UINT8(1);
PG_RETURN_BOOL(arg1 != arg2);
}
PG_FUNCTION_INFO_V1(utinyintlt);
Datum
utinyintlt(PG_FUNCTION_ARGS)
{
uint8 arg1 = PG_GETARG_UINT8(0);
uint8 arg2 = PG_GETARG_UINT8(1);
PG_RETURN_BOOL(arg1 < arg2);
}
PG_FUNCTION_INFO_V1(utinyintle);
Datum
utinyintle(PG_FUNCTION_ARGS)
{
uint8 arg1 = PG_GETARG_UINT8(0);
uint8 arg2 = PG_GETARG_UINT8(1);
PG_RETURN_BOOL(arg1 <= arg2);
}
PG_FUNCTION_INFO_V1(utinyintgt);
Datum
utinyintgt(PG_FUNCTION_ARGS)
{
uint8 arg1 = PG_GETARG_UINT8(0);
uint8 arg2 = PG_GETARG_UINT8(1);
PG_RETURN_BOOL(arg1 > arg2);
}
PG_FUNCTION_INFO_V1(utinyintge);
Datum
utinyintge(PG_FUNCTION_ARGS)
{
uint8 arg1 = PG_GETARG_UINT8(0);
uint8 arg2 = PG_GETARG_UINT8(1);
PG_RETURN_BOOL(arg1 >= arg2);
}
PG_FUNCTION_INFO_V1(btutinyintcmp);
Datum
btutinyintcmp(PG_FUNCTION_ARGS)
{
uint8 a=PG_GETARG_UINT8(0);
uint8 b=PG_GETARG_UINT8(1);
if(a>b)
PG_RETURN_INT32(1);
else if (a==b)
PG_RETURN_INT32(0);
else
PG_RETURN_INT32(-1);
}
PG_FUNCTION_INFO_V1(hashutinyint);
Datum
hashutinyint(PG_FUNCTION_ARGS)
{
PG_RETURN_UINT32(~PG_GETARG_UINT8(0));
}
