Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Skip to content

Commit 234776d

Browse files
Edmund MerglEdmund Mergl
Edmund Mergl
authored and
Edmund Mergl
committed
*** empty log message ***
1 parent 09e41a0 commit 234776d

File tree

10 files changed

+59
-21
lines changed

10 files changed

+59
-21
lines changed

‎src/interfaces/perl5/ApachePg.pl

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -2,11 +2,11 @@
22

33
# demo script, has been tested with:
44
# - Postgres-6.1
5-
# - apache_1.2b8
6-
# - mod_perl-0.97
7-
# - perl5.003_93
5+
# - apache_1.2
6+
# - mod_perl-1.0
7+
# - perl5.004
88

9-
use CGI::Apache;
9+
use CGI;
1010
use Pg;
1111
use strict;
1212

‎src/interfaces/perl5/Changes

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -51,7 +51,7 @@ Revision history for Perl extension Pg.
5151
- changed test.pl for large objects:
5252
test only lo_import and lo_export
5353

54-
1.6.0 Apr 29, 1997
54+
1.6.1 Jun 02 1997
5555
- renamed to pgsql_perl5
5656
- adapted to PostgreSQL-6.1
5757
- test only functions, which are also

‎src/interfaces/perl5/Makefile.PL

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
#-------------------------------------------------------
22
#
3-
# $Id: Makefile.PL,v 1.1.1.1 1997/04/29 19:37:09 mergl Exp $
3+
# $Id: Makefile.PL,v 1.2 1997/06/02 19:41:59 mergl Exp $
44
#
55
# Copyright (c) 1997 Edmund Mergl
66
#

‎src/interfaces/perl5/Pg.pm

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
#-------------------------------------------------------
22
#
3-
# $Id: Pg.pm,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
3+
# $Id: Pg.pm,v 1.2 1997/06/02 19:42:01 mergl Exp $
44
#
55
# Copyright (c) 1997 Edmund Mergl
66
#
@@ -83,7 +83,7 @@ require 5.003;
8383
PGRES_InvalidOid
8484
);
8585

86-
$VERSION = '1.6.0';
86+
$VERSION = '1.6.1';
8787

8888
sub AUTOLOAD {
8989
# This AUTOLOAD is used to 'autoload' constants from the constant()

‎src/interfaces/perl5/Pg.xs

Lines changed: 25 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
/*-------------------------------------------------------
22
*
3-
* $Id: Pg.xs,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
3+
* $Id: Pg.xs,v 1.2 1997/06/02 19:42:03 mergl Exp $
44
*
55
* Copyright (c) 1997 Edmund Mergl
66
*
@@ -424,6 +424,18 @@ PQclear(res)
424424
PGresult * res
425425

426426

427+
void
428+
PQdisplayTuples(res, fp, fillAlign, fieldSep, printHeader, quiet)
429+
PGresult * res
430+
FILE * fp
431+
int fillAlign
432+
char * fieldSep
433+
int printHeader
434+
int quiet
435+
CODE:
436+
PQdisplayTuples(res, fp, fillAlign, (const char *)fieldSep, printHeader, quiet);
437+
438+
427439
void
428440
PQprintTuples(res, fout, printAttName, terseOutput, width)
429441
PGresult * res
@@ -904,6 +916,18 @@ PQgetisnull(res, tup_num, field_num)
904916
int field_num
905917

906918

919+
void
920+
PQdisplayTuples(res, fp, fillAlign, fieldSep, printHeader, quiet)
921+
PGresult * res
922+
FILE * fp
923+
int fillAlign
924+
char * fieldSep
925+
int printHeader
926+
int quiet
927+
CODE:
928+
PQdisplayTuples(res, fp, fillAlign, (const char *)fieldSep, printHeader, quiet);
929+
930+
907931
void
908932
PQprintTuples(res, fout, printAttName, terseOutput, width)
909933
PG_result res

‎src/interfaces/perl5/README

Lines changed: 19 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
#-------------------------------------------------------
22
#
3-
# $Id: README,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
3+
# $Id: README,v 1.2 1997/06/02 19:42:05 mergl Exp $
44
#
55
# Copyright (c) 1997 Edmund Mergl
66
#
@@ -25,13 +25,17 @@ programmers.
2525

2626

2727

28-
COPYRIGHT INFO
29-
--------------
28+
COPYRIGHT:
29+
----------
30+
31+
This program is free software; you can redistribute it and/or modify
32+
it under the terms of either:
33+
34+
a) the GNU General Public License as published by the Free
35+
Software Foundation; or
36+
37+
b) the "Artistic License", as specified in the Perl README file.
3038

31-
This Postgres-Perl interface is copyright 1996, 1997 Edmund Mergl. You are
32-
free to use it for any purpose, commercial or noncommercial, provided
33-
that if you redistribute the source code, this statement of copyright
34-
remains attached.
3539

3640

3741
IF YOU HAVE PROBLEMS:
@@ -98,8 +102,15 @@ If you have compile errors like "XS_VERSION_BOOTCHECK undeclared", make a
98102
If this file is not present, you need to recompile and reinstall perl.
99103

100104

105+
DOCUMENTATION:
106+
--------------
107+
108+
Detailed documentation can be found in Pg.pm. Use 'perldoc Pg' after
109+
installation to read the documentation.
110+
111+
101112
---------------------------------------------------------------------------
102113

103-
Edmund Mergl <E.Mergl@bawue.de> April 29, 1997
114+
Edmund Mergl <E.Mergl@bawue.de> June 02, 1997
104115

105116
---------------------------------------------------------------------------

‎src/interfaces/perl5/test.pl

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
#-------------------------------------------------------
22
#
3-
# $Id: test.pl,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
3+
# $Id: test.pl,v 1.2 1997/06/02 19:42:07 mergl Exp $
44
#
55
# Copyright (c) 1997 Edmund Mergl
66
#
@@ -65,6 +65,7 @@
6565
# getisnull
6666
# print
6767
# notifies
68+
# displayTuples
6869
# printTuples
6970
# lo_import
7071
# lo_export

‎src/interfaces/perl5/test.pl.newstyle

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
#-------------------------------------------------------
22
#
3-
# $Id: test.pl.newstyle,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
3+
# $Id: test.pl.newstyle,v 1.2 1997/06/02 19:42:11 mergl Exp $
44
#
55
# Copyright (c) 1997 Edmund Mergl
66
#
@@ -68,6 +68,7 @@ $| = 1;
6868
# tty
6969
# getlength
7070
# getisnull
71+
# displayTuples
7172
# printTuples
7273
# lo_open
7374
# lo_close

‎src/interfaces/perl5/test.pl.oldstyle

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
#-------------------------------------------------------
22
#
3-
# $Id: test.pl.oldstyle,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
3+
# $Id: test.pl.oldstyle,v 1.2 1997/06/02 19:42:13 mergl Exp $
44
#
55
# Copyright (c) 1997 Edmund Mergl
66
#
@@ -68,6 +68,7 @@ $| = 1;
6868
# PQtty()
6969
# PQgetlength()
7070
# PQgetisnull()
71+
# PQdisplayTuples()
7172
# PQprintTuples()
7273
# PQlo_open()
7374
# PQlo_close()

‎src/interfaces/perl5/typemap

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
#-------------------------------------------------------
22
#
3-
# $Id: typemap,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
3+
# $Id: typemap,v 1.2 1997/06/02 19:42:14 mergl Exp $
44
#
55
# Copyright (c) 1997 Edmund Mergl
66
#

0 commit comments

Comments
 (0)