Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

Commit234776d

Browse files
Edmund MerglEdmund Mergl
Edmund Mergl
authored and
Edmund Mergl
committed
*** empty log message ***
1 parent09e41a0 commit234776d

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
subAUTOLOAD {
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+
intfillAlign
432+
char*fieldSep
433+
intprintHeader
434+
intquiet
435+
CODE:
436+
PQdisplayTuples(res,fp,fillAlign, (constchar*)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
intfield_num
905917

906918

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

‎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)
[8]ページ先頭
©2009-2025 Movatter.jp