diff options
| author | Edmund Mergl | 1997-09-17 20:46:29 +0000 |
|---|---|---|
| committer | Edmund Mergl | 1997-09-17 20:46:29 +0000 |
| commit | 9e74edda053d5fcb0a5cf487232d82a8b489a893 (patch) | |
| tree | 40c661a40bb35d0cc94132bf2f940bdb8eaf1839 /src/interfaces/perl5/Pg.xs | |
| parent | b02086b30362bc1d32e43339845bbebaa6edf153 (diff) | |
*** empty log message ***
Diffstat (limited to 'src/interfaces/perl5/Pg.xs')
| -rw-r--r-- | src/interfaces/perl5/Pg.xs | 44 |
1 files changed, 28 insertions, 16 deletions
diff --git a/src/interfaces/perl5/Pg.xs b/src/interfaces/perl5/Pg.xs index 771c81db7ab..f7661d88402 100644 --- a/src/interfaces/perl5/Pg.xs +++ b/src/interfaces/perl5/Pg.xs @@ -1,6 +1,6 @@ /*------------------------------------------------------- * - * $Id: Pg.xs,v 1.2 1997/06/02 19:42:03 mergl Exp $ + * $Id: Pg.xs,v 1.3 1997/09/17 20:46:21 mergl Exp $ * * Copyright (c) 1997 Edmund Mergl * @@ -10,21 +10,9 @@ #include "perl.h" #include "XSUB.h" -#ifdef bool -#undef bool -#endif - -#ifdef DEBUG -#undef DEBUG -#endif - -#ifdef ABORT -#undef ABORT -#endif - -#include "postgres.h" #include "libpq-fe.h" + typedef struct pg_conn* PG_conn; typedef struct pg_result* PG_result; @@ -375,7 +363,7 @@ PQftype(res, field_num) int field_num -int2 +short PQfsize(res, field_num) PGresult * res int field_num @@ -399,6 +387,18 @@ PQoidStatus(res) char * +PQcmdTuples(res) + PGresult * res + PREINIT: + const char *GAGA; + CODE: + GAGA = PQcmdTuples(res); + RETVAL = (char *)GAGA; + OUTPUT: + RETVAL + + +char * PQgetvalue(res, tup_num, field_num) PGresult * res int tup_num @@ -872,7 +872,7 @@ PQftype(res, field_num) int field_num -int2 +short PQfsize(res, field_num) PG_result res int field_num @@ -896,6 +896,18 @@ PQoidStatus(res) char * +PQcmdTuples(res) + PG_result res + PREINIT: + const char *GAGA; + CODE: + GAGA = PQcmdTuples(res); + RETVAL = (char *)GAGA; + OUTPUT: + RETVAL + + +char * PQgetvalue(res, tup_num, field_num) PG_result res int tup_num |