From 234776dbbcab467b1fc8f5926a19c609341be08f Mon Sep 17 00:00:00 2001 From: Edmund Mergl Date: Mon, 2 Jun 1997 19:42:14 +0000 Subject: [PATCH] *** empty log message *** --- src/interfaces/perl5/ApachePg.pl | 8 ++++---- src/interfaces/perl5/Changes | 2 +- src/interfaces/perl5/Makefile.PL | 2 +- src/interfaces/perl5/Pg.pm | 4 ++-- src/interfaces/perl5/Pg.xs | 26 +++++++++++++++++++++++++- src/interfaces/perl5/README | 27 +++++++++++++++++++-------- src/interfaces/perl5/test.pl | 3 ++- src/interfaces/perl5/test.pl.newstyle | 3 ++- src/interfaces/perl5/test.pl.oldstyle | 3 ++- src/interfaces/perl5/typemap | 2 +- 10 files changed, 59 insertions(+), 21 deletions(-) diff --git a/src/interfaces/perl5/ApachePg.pl b/src/interfaces/perl5/ApachePg.pl index 53bd6b8916..670fbbecb6 100644 --- a/src/interfaces/perl5/ApachePg.pl +++ b/src/interfaces/perl5/ApachePg.pl @@ -2,11 +2,11 @@ # demo script, has been tested with: # - Postgres-6.1 -# - apache_1.2b8 -# - mod_perl-0.97 -# - perl5.003_93 +# - apache_1.2 +# - mod_perl-1.0 +# - perl5.004 -use CGI::Apache; +use CGI; use Pg; use strict; diff --git a/src/interfaces/perl5/Changes b/src/interfaces/perl5/Changes index 60d6709bf1..cc8ff1a5f1 100644 --- a/src/interfaces/perl5/Changes +++ b/src/interfaces/perl5/Changes @@ -51,7 +51,7 @@ Revision history for Perl extension Pg. - changed test.pl for large objects: test only lo_import and lo_export -1.6.0 Apr 29, 1997 +1.6.1 Jun 02 1997 - renamed to pgsql_perl5 - adapted to PostgreSQL-6.1 - test only functions, which are also diff --git a/src/interfaces/perl5/Makefile.PL b/src/interfaces/perl5/Makefile.PL index afd3473496..7c4579df8e 100644 --- a/src/interfaces/perl5/Makefile.PL +++ b/src/interfaces/perl5/Makefile.PL @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $Id: Makefile.PL,v 1.1.1.1 1997/04/29 19:37:09 mergl Exp $ +# $Id: Makefile.PL,v 1.2 1997/06/02 19:41:59 mergl Exp $ # # Copyright (c) 1997 Edmund Mergl # diff --git a/src/interfaces/perl5/Pg.pm b/src/interfaces/perl5/Pg.pm index adff08d53e..ab7dcd789f 100644 --- a/src/interfaces/perl5/Pg.pm +++ b/src/interfaces/perl5/Pg.pm @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $Id: Pg.pm,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $ +# $Id: Pg.pm,v 1.2 1997/06/02 19:42:01 mergl Exp $ # # Copyright (c) 1997 Edmund Mergl # @@ -83,7 +83,7 @@ require 5.003; PGRES_InvalidOid ); -$VERSION = '1.6.0'; +$VERSION = '1.6.1'; sub AUTOLOAD { # This AUTOLOAD is used to 'autoload' constants from the constant() diff --git a/src/interfaces/perl5/Pg.xs b/src/interfaces/perl5/Pg.xs index 8cffb5afd6..771c81db7a 100644 --- a/src/interfaces/perl5/Pg.xs +++ b/src/interfaces/perl5/Pg.xs @@ -1,6 +1,6 @@ /*------------------------------------------------------- * - * $Id: Pg.xs,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $ + * $Id: Pg.xs,v 1.2 1997/06/02 19:42:03 mergl Exp $ * * Copyright (c) 1997 Edmund Mergl * @@ -425,6 +425,18 @@ PQclear(res) void +PQdisplayTuples(res, fp, fillAlign, fieldSep, printHeader, quiet) + PGresult * res + FILE * fp + int fillAlign + char * fieldSep + int printHeader + int quiet + CODE: + PQdisplayTuples(res, fp, fillAlign, (const char *)fieldSep, printHeader, quiet); + + +void PQprintTuples(res, fout, printAttName, terseOutput, width) PGresult * res FILE * fout @@ -905,6 +917,18 @@ PQgetisnull(res, tup_num, field_num) void +PQdisplayTuples(res, fp, fillAlign, fieldSep, printHeader, quiet) + PGresult * res + FILE * fp + int fillAlign + char * fieldSep + int printHeader + int quiet + CODE: + PQdisplayTuples(res, fp, fillAlign, (const char *)fieldSep, printHeader, quiet); + + +void PQprintTuples(res, fout, printAttName, terseOutput, width) PG_result res FILE * fout diff --git a/src/interfaces/perl5/README b/src/interfaces/perl5/README index 869aeeff0e..25b79dbb45 100644 --- a/src/interfaces/perl5/README +++ b/src/interfaces/perl5/README @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $Id: README,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $ +# $Id: README,v 1.2 1997/06/02 19:42:05 mergl Exp $ # # Copyright (c) 1997 Edmund Mergl # @@ -25,13 +25,17 @@ programmers. -COPYRIGHT INFO --------------- +COPYRIGHT: +---------- + +This program is free software; you can redistribute it and/or modify +it under the terms of either: + + a) the GNU General Public License as published by the Free + Software Foundation; or + + b) the "Artistic License", as specified in the Perl README file. -This Postgres-Perl interface is copyright 1996, 1997 Edmund Mergl. You are -free to use it for any purpose, commercial or noncommercial, provided -that if you redistribute the source code, this statement of copyright -remains attached. IF YOU HAVE PROBLEMS: @@ -98,8 +102,15 @@ If you have compile errors like "XS_VERSION_BOOTCHECK undeclared", make a If this file is not present, you need to recompile and reinstall perl. +DOCUMENTATION: +-------------- + +Detailed documentation can be found in Pg.pm. Use 'perldoc Pg' after +installation to read the documentation. + + --------------------------------------------------------------------------- - Edmund Mergl April 29, 1997 + Edmund Mergl June 02, 1997 --------------------------------------------------------------------------- diff --git a/src/interfaces/perl5/test.pl b/src/interfaces/perl5/test.pl index 3d5b513e9f..9588369db3 100644 --- a/src/interfaces/perl5/test.pl +++ b/src/interfaces/perl5/test.pl @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $Id: test.pl,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $ +# $Id: test.pl,v 1.2 1997/06/02 19:42:07 mergl Exp $ # # Copyright (c) 1997 Edmund Mergl # @@ -65,6 +65,7 @@ $| = 1; # getisnull # print # notifies +# displayTuples # printTuples # lo_import # lo_export diff --git a/src/interfaces/perl5/test.pl.newstyle b/src/interfaces/perl5/test.pl.newstyle index 5d6a1e3d3c..40c5ab355b 100644 --- a/src/interfaces/perl5/test.pl.newstyle +++ b/src/interfaces/perl5/test.pl.newstyle @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $Id: test.pl.newstyle,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $ +# $Id: test.pl.newstyle,v 1.2 1997/06/02 19:42:11 mergl Exp $ # # Copyright (c) 1997 Edmund Mergl # @@ -68,6 +68,7 @@ $| = 1; # tty # getlength # getisnull +# displayTuples # printTuples # lo_open # lo_close diff --git a/src/interfaces/perl5/test.pl.oldstyle b/src/interfaces/perl5/test.pl.oldstyle index 408c2b66c6..ad19b15c2f 100644 --- a/src/interfaces/perl5/test.pl.oldstyle +++ b/src/interfaces/perl5/test.pl.oldstyle @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $Id: test.pl.oldstyle,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $ +# $Id: test.pl.oldstyle,v 1.2 1997/06/02 19:42:13 mergl Exp $ # # Copyright (c) 1997 Edmund Mergl # @@ -68,6 +68,7 @@ $| = 1; # PQtty() # PQgetlength() # PQgetisnull() +# PQdisplayTuples() # PQprintTuples() # PQlo_open() # PQlo_close() diff --git a/src/interfaces/perl5/typemap b/src/interfaces/perl5/typemap index a57abcfabb..1083ed9ad6 100644 --- a/src/interfaces/perl5/typemap +++ b/src/interfaces/perl5/typemap @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $Id: typemap,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $ +# $Id: typemap,v 1.2 1997/06/02 19:42:14 mergl Exp $ # # Copyright (c) 1997 Edmund Mergl # -- 2.11.0