From 234776dbbcab467b1fc8f5926a19c609341be08f Mon Sep 17 00:00:00 2001
From: Edmund Mergl <E.Mergl@bawue.de>
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 53bd6b89162..670fbbecb62 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 60d6709bf1f..cc8ff1a5f17 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 afd34734964..7c4579df8eb 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 adff08d53ec..ab7dcd789f1 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 8cffb5afd69..771c81db7ab 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
*
@@ -424,6 +424,18 @@ PQclear(res)
PGresult * 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
@@ -904,6 +916,18 @@ PQgetisnull(res, tup_num, field_num)
int 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
diff --git a/src/interfaces/perl5/README b/src/interfaces/perl5/README
index 869aeeff0e7..25b79dbb454 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 <E.Mergl@bawue.de> April 29, 1997
+ Edmund Mergl <E.Mergl@bawue.de> June 02, 1997
---------------------------------------------------------------------------
diff --git a/src/interfaces/perl5/test.pl b/src/interfaces/perl5/test.pl
index 3d5b513e9f2..9588369db3b 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 5d6a1e3d3c4..40c5ab355b6 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 408c2b66c6e..ad19b15c2f5 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 a57abcfabb6..1083ed9ad65 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
#
--
GitLab