adapted Makefile.PL to be build in source tree
This commit is contained in:
Edmund Mergl
parent
fc06df7070
commit
df58a902f9
|
|
@ -1,5 +1,22 @@
|
|||
#-------------------------------------------------------
|
||||
#
|
||||
# $Id: Changes,v 1.7 1998/06/01 16:41:18 mergl Exp $
|
||||
#
|
||||
# Copyright (c) 1997, 1998 Edmund Mergl
|
||||
#
|
||||
#-------------------------------------------------------
|
||||
|
||||
Revision history for Perl extension Pg.
|
||||
|
||||
|
||||
1.7.4 May 28 1998
|
||||
- applied patches from
|
||||
Brook Milligan <brook@trillium.NMSU.Edu>:
|
||||
o changed Makefile.PL to look for include files
|
||||
and libs in the source tree, except when the
|
||||
environment variable POSTGRES_HOME is set.
|
||||
o bug-fix in test.pl
|
||||
|
||||
1.7.3 Mar 28 1998
|
||||
- linking again with the shared version of libpq
|
||||
due to problems on several operating systems.
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
#-------------------------------------------------------
|
||||
#
|
||||
# $Id: Makefile.PL,v 1.7 1998/04/14 21:14:34 mergl Exp $
|
||||
# $Id: Makefile.PL,v 1.8 1998/06/01 16:41:19 mergl Exp $
|
||||
#
|
||||
# Copyright (c) 1997 Edmund Mergl
|
||||
# Copyright (c) 1997, 1998 Edmund Mergl
|
||||
#
|
||||
#-------------------------------------------------------
|
||||
|
||||
|
|
@ -10,33 +10,55 @@ use ExtUtils::MakeMaker;
|
|||
use Config;
|
||||
use strict;
|
||||
|
||||
print "\nConfiguring Pg\n";
|
||||
print "Remember to actually read the README file !\n";
|
||||
die "\nYou didn't read the README file !\n" unless ($] >= 5.002);
|
||||
# because the perl5 interface is always contained in the source tree,
|
||||
# we can be sure about the location of the include files and libs.
|
||||
# For development and testing we still test for POSTGRES_HOME.
|
||||
#
|
||||
#print "\nConfiguring Pg\n";
|
||||
#print "Remember to actually read the README file !\n";
|
||||
#die "\nYou didn't read the README file !\n" unless ($] >= 5.002);
|
||||
#
|
||||
#if (! $ENV{POSTGRES_HOME}) {
|
||||
# warn "\$POSTGRES_HOME not defined. Searching for PostgreSQL...\n";
|
||||
# foreach(qw(../../../ /usr/local/pgsql /usr/pgsql /home/pgsql /opt/pgsql /usr/local/postgres /usr/postgres /home/postgres /opt/postgres)) {
|
||||
# if (-d "$_/lib") {
|
||||
# $ENV{POSTGRES_HOME} = $_;
|
||||
# last;
|
||||
# }
|
||||
# }
|
||||
#}
|
||||
#
|
||||
#if (-d "$ENV{POSTGRES_HOME}/lib") {
|
||||
# print "Found PostgreSQL in $ENV{POSTGRES_HOME}\n";
|
||||
#} else {
|
||||
# die "Unable to determine PostgreSQL\n";
|
||||
#}
|
||||
|
||||
my %opts;
|
||||
|
||||
if (! $ENV{POSTGRES_HOME}) {
|
||||
warn "\$POSTGRES_HOME not defined. Searching for PostgreSQL...\n";
|
||||
foreach(qw(/usr/local/pgsql /usr/pgsql /home/pgsql /opt/pgsql /usr/local/postgres /usr/postgres /home/postgres /opt/postgres)) {
|
||||
if (-d "$_/lib") {
|
||||
$ENV{POSTGRES_HOME} = $_;
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (-d "$ENV{POSTGRES_HOME}/lib") {
|
||||
print "Found PostgreSQL in $ENV{POSTGRES_HOME}\n";
|
||||
my $cwd = `pwd`;
|
||||
chop $cwd;
|
||||
|
||||
%opts = (
|
||||
NAME => 'Pg',
|
||||
VERSION_FROM => 'Pg.pm',
|
||||
INC => "-I$cwd/../libpq -I$cwd/../../include",
|
||||
OBJECT => "Pg\$(OBJ_EXT)",
|
||||
LIBS => ["-L$cwd/../libpq -lpq"],
|
||||
);
|
||||
|
||||
} else {
|
||||
die "Unable to determine PostgreSQL\n";
|
||||
}
|
||||
|
||||
my %opts = (
|
||||
NAME => 'Pg',
|
||||
VERSION_FROM => 'Pg.pm',
|
||||
INC => "-I$ENV{POSTGRES_HOME}/include -I/usr/local/include/pgsql -I/usr/include/pgsql",
|
||||
OBJECT => "Pg\$(OBJ_EXT)",
|
||||
LIBS => ["-L$ENV{POSTGRES_HOME}/lib -lpq"],
|
||||
);
|
||||
%opts = (
|
||||
NAME => 'Pg',
|
||||
VERSION_FROM => 'Pg.pm',
|
||||
INC => "-I$ENV{POSTGRES_HOME}/include",
|
||||
OBJECT => "Pg\$(OBJ_EXT)",
|
||||
LIBS => ["-L$ENV{POSTGRES_HOME}/lib -lpq"],
|
||||
);
|
||||
}
|
||||
|
||||
|
||||
WriteMakefile(%opts);
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
#-------------------------------------------------------
|
||||
#
|
||||
# $Id: Pg.pm,v 1.6 1998/04/14 21:14:35 mergl Exp $
|
||||
# $Id: Pg.pm,v 1.7 1998/06/01 16:41:19 mergl Exp $
|
||||
#
|
||||
# Copyright (c) 1997 Edmund Mergl
|
||||
# Copyright (c) 1997, 1998 Edmund Mergl
|
||||
#
|
||||
#-------------------------------------------------------
|
||||
|
||||
|
|
@ -84,7 +84,7 @@ require 5.002;
|
|||
PGRES_InvalidOid
|
||||
);
|
||||
|
||||
$Pg::VERSION = '1.7.3';
|
||||
$Pg::VERSION = '1.7.4';
|
||||
|
||||
sub AUTOLOAD {
|
||||
# This AUTOLOAD is used to 'autoload' constants from the constant()
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
/*-------------------------------------------------------
|
||||
*
|
||||
* $Id: Pg.xs,v 1.6 1998/04/14 21:14:36 mergl Exp $
|
||||
* $Id: Pg.xs,v 1.7 1998/06/01 16:41:19 mergl Exp $
|
||||
*
|
||||
* Copyright (c) 1997 Edmund Mergl
|
||||
* Copyright (c) 1997, 1998 Edmund Mergl
|
||||
*
|
||||
*-------------------------------------------------------*/
|
||||
|
||||
|
|
|
|||
|
|
@ -1,15 +1,15 @@
|
|||
#-------------------------------------------------------
|
||||
#
|
||||
# $Id: README,v 1.6 1998/04/14 21:14:37 mergl Exp $
|
||||
# $Id: README,v 1.7 1998/06/01 16:41:19 mergl Exp $
|
||||
#
|
||||
# Copyright (c) 1997 Edmund Mergl
|
||||
# Copyright (c) 1997, 1998 Edmund Mergl
|
||||
#
|
||||
#-------------------------------------------------------
|
||||
|
||||
DESCRIPTION:
|
||||
------------
|
||||
|
||||
This is version 1.7.3 of pgsql_perl5 (previously called pg95perl5).
|
||||
This is version 1.7.4 of pgsql_perl5 (previously called pg95perl5).
|
||||
|
||||
Pgsql_perl5 is an interface between Larry Wall's language perl version 5 and
|
||||
the database PostgreSQL (previously Postgres95). This has been done by using
|
||||
|
|
@ -63,13 +63,16 @@ PLATFORMS:
|
|||
INSTALLATION:
|
||||
-------------
|
||||
|
||||
Using dynamic loading for perl extensions, the preferred method is to unpack
|
||||
the tar file outside the perl source tree. This assumes, that you already
|
||||
have installed perl5.
|
||||
Since the perl5 interface is always contained in the source tree of PostgreSQL,
|
||||
it is usually build together with PostgreSQL itself. This can be obtained by
|
||||
adding the option '--with-perl' to the configure command.
|
||||
|
||||
In case you need to build the perl interface stand alone, you need to set the
|
||||
environment variable POSTGRES_HOME, pointing to the PostgreSQL home-directory.
|
||||
Also PostgreSQL needs to be installed having the include files in
|
||||
$POSTGRES_HOME/include and the libs in $POSTGRES_HOME/lib. Then you have to
|
||||
build the module as any standard perl-module with the following commands:
|
||||
|
||||
The Makefile checks the environment variable POSTGRES_HOME as well some
|
||||
standard locations, to find the root directory of your Postgres installation.
|
||||
|
||||
1. perl Makefile.PL
|
||||
2. make
|
||||
3. make test
|
||||
|
|
@ -117,7 +120,6 @@ HP users: if you get error messages like:
|
|||
Dan Lauterbach <danla@dimensional.com>
|
||||
|
||||
|
||||
|
||||
DOCUMENTATION:
|
||||
--------------
|
||||
|
||||
|
|
@ -127,6 +129,6 @@ installation to read the documentation.
|
|||
|
||||
---------------------------------------------------------------------------
|
||||
|
||||
Edmund Mergl <E.Mergl@bawue.de> March 28, 1998
|
||||
Edmund Mergl <E.Mergl@bawue.de> May 28, 1998
|
||||
|
||||
---------------------------------------------------------------------------
|
||||
|
|
|
|||
|
|
@ -1,5 +1,13 @@
|
|||
#!/usr/local/bin/perl
|
||||
|
||||
#-------------------------------------------------------
|
||||
#
|
||||
# $Id: ApachePg.pl,v 1.4 1998/06/01 16:41:26 mergl Exp $
|
||||
#
|
||||
# Copyright (c) 1997, 1998 Edmund Mergl
|
||||
#
|
||||
#-------------------------------------------------------
|
||||
|
||||
# demo script, tested with:
|
||||
# - PostgreSQL-6.3
|
||||
# - apache_1.3
|
||||
|
|
@ -37,7 +45,7 @@ if ($query->param) {
|
|||
print "<P><CENTER><TABLE CELLPADDING=4 CELLSPACING=2 BORDER=1>\n";
|
||||
my @row;
|
||||
while (@row = $result->fetchrow) {
|
||||
print "<TR><TD>", join("</TD><TD>", @row), "</TD></TR>\n";
|
||||
print "<TR><TD>", join("</TD><TD>", @row), "</TD></TR>";
|
||||
}
|
||||
print "</TABLE></CENTER><P>\n";
|
||||
} else {
|
||||
|
|
|
|||
|
|
@ -2,9 +2,9 @@
|
|||
|
||||
#-------------------------------------------------------
|
||||
#
|
||||
# $Id: example.newstyle,v 1.4 1998/04/14 21:14:50 mergl Exp $
|
||||
# $Id: example.newstyle,v 1.5 1998/06/01 16:41:27 mergl Exp $
|
||||
#
|
||||
# Copyright (c) 1997 Edmund Mergl
|
||||
# Copyright (c) 1997, 1998 Edmund Mergl
|
||||
#
|
||||
#-------------------------------------------------------
|
||||
|
||||
|
|
@ -122,7 +122,7 @@ cmp_ne("", $port);
|
|||
######################### create and insert into table
|
||||
# 8-19
|
||||
|
||||
$result = $conn->exec("CREATE TABLE person (id int4, name char16)");
|
||||
$result = $conn->exec("CREATE TABLE person (id int4, name char(16))");
|
||||
cmp_eq(PGRES_COMMAND_OK, $result->resultStatus);
|
||||
cmp_eq("CREATE", $result->cmdStatus);
|
||||
|
||||
|
|
@ -143,7 +143,7 @@ $ret = 0;
|
|||
while (-1 != $ret) {
|
||||
$ret = $conn->getline($string, 256);
|
||||
last if $string eq "\\.";
|
||||
cmp_eq("$i Edmund Mergl", $string);
|
||||
cmp_eq("$i Edmund Mergl ", $string);
|
||||
$i ++;
|
||||
}
|
||||
|
||||
|
|
@ -190,8 +190,8 @@ for ($k = 0; $k < $result->nfields; $k++) {
|
|||
cmp_eq(4, $fsize);
|
||||
} else {
|
||||
cmp_eq("name", $fname);
|
||||
cmp_eq(20, $ftype);
|
||||
cmp_eq(16, $fsize);
|
||||
cmp_eq(1042, $ftype);
|
||||
cmp_eq(-1, $fsize);
|
||||
}
|
||||
$fnumber = $result->fnumber($fname);
|
||||
cmp_eq($k, $fnumber);
|
||||
|
|
@ -201,7 +201,7 @@ $string = "";
|
|||
while (@row = $result->fetchrow) {
|
||||
$string = join(" ", @row);
|
||||
}
|
||||
cmp_eq("5 Edmund Mergl", $string);
|
||||
cmp_eq("5 Edmund Mergl ", $string);
|
||||
|
||||
######################### PQnotifies
|
||||
# 43-46
|
||||
|
|
|
|||
|
|
@ -2,9 +2,9 @@
|
|||
|
||||
#-------------------------------------------------------
|
||||
#
|
||||
# $Id: example.oldstyle,v 1.4 1998/04/14 21:14:52 mergl Exp $
|
||||
# $Id: example.oldstyle,v 1.5 1998/06/01 16:41:27 mergl Exp $
|
||||
#
|
||||
# Copyright (c) 1997 Edmund Mergl
|
||||
# Copyright (c) 1997, 1998 Edmund Mergl
|
||||
#
|
||||
#-------------------------------------------------------
|
||||
|
||||
|
|
@ -126,7 +126,7 @@ cmp_ne("", $port);
|
|||
######################### create and insert into table
|
||||
# 8-19
|
||||
|
||||
$result = PQexec($conn, "CREATE TABLE person (id int4, name char16)");
|
||||
$result = PQexec($conn, "CREATE TABLE person (id int4, name char(16))");
|
||||
cmp_eq(PGRES_COMMAND_OK, PQresultStatus($result));
|
||||
cmp_eq("CREATE", PQcmdStatus($result));
|
||||
PQclear($result);
|
||||
|
|
@ -150,7 +150,7 @@ $ret = 0;
|
|||
while (-1 != $ret) {
|
||||
$ret = PQgetline($conn, $string, 256);
|
||||
last if $string eq "\\.";
|
||||
cmp_eq("$i Edmund Mergl", $string);
|
||||
cmp_eq("$i Edmund Mergl ", $string);
|
||||
$i++;
|
||||
}
|
||||
|
||||
|
|
@ -201,8 +201,8 @@ for ($k = 0; $k < PQnfields($result); $k++) {
|
|||
cmp_eq(4, $fsize);
|
||||
} else {
|
||||
cmp_eq("name", $fname);
|
||||
cmp_eq(20, $ftype);
|
||||
cmp_eq(16, $fsize);
|
||||
cmp_eq(1042, $ftype);
|
||||
cmp_eq(-1, $fsize);
|
||||
}
|
||||
$fnumber = PQfnumber($result, $fname);
|
||||
cmp_eq($k, $fnumber);
|
||||
|
|
@ -214,7 +214,7 @@ for ($k = 0; $k < PQntuples($result); $k++) {
|
|||
$string .= PQgetvalue($result, $k, $l) . " ";
|
||||
}
|
||||
$i = $k + 1;
|
||||
cmp_eq("$i Edmund Mergl ", $string);
|
||||
cmp_eq("$i Edmund Mergl ", $string);
|
||||
}
|
||||
|
||||
PQclear($result);
|
||||
|
|
|
|||
|
|
@ -2,9 +2,9 @@
|
|||
|
||||
#-------------------------------------------------------
|
||||
#
|
||||
# $Id: test.pl,v 1.7 1998/04/14 21:14:38 mergl Exp $
|
||||
# $Id: test.pl,v 1.8 1998/06/01 16:41:20 mergl Exp $
|
||||
#
|
||||
# Copyright (c) 1997 Edmund Mergl
|
||||
# Copyright (c) 1997, 1998 Edmund Mergl
|
||||
#
|
||||
#-------------------------------------------------------
|
||||
|
||||
|
|
@ -122,7 +122,7 @@ cmp_ne("", $port);
|
|||
######################### create and insert into table
|
||||
# 8-19
|
||||
|
||||
$result = $conn->exec("CREATE TABLE person (id int4, name char16)");
|
||||
$result = $conn->exec("CREATE TABLE person (id int4, name char(16))");
|
||||
cmp_eq(PGRES_COMMAND_OK, $result->resultStatus);
|
||||
cmp_eq("CREATE", $result->cmdStatus);
|
||||
|
||||
|
|
@ -143,8 +143,8 @@ $ret = 0;
|
|||
while (-1 != $ret) {
|
||||
$ret = $conn->getline($string, 256);
|
||||
last if $string eq "\\.";
|
||||
cmp_eq("$i Edmund Mergl", $string);
|
||||
$i ++;
|
||||
cmp_eq("$i Edmund Mergl ", $string);
|
||||
$i++;
|
||||
}
|
||||
|
||||
cmp_eq(0, $conn->endcopy);
|
||||
|
|
@ -190,8 +190,8 @@ for ($k = 0; $k < $result->nfields; $k++) {
|
|||
cmp_eq(4, $fsize);
|
||||
} else {
|
||||
cmp_eq("name", $fname);
|
||||
cmp_eq(20, $ftype);
|
||||
cmp_eq(16, $fsize);
|
||||
cmp_eq(1042, $ftype);
|
||||
cmp_eq(-1, $fsize);
|
||||
}
|
||||
$fnumber = $result->fnumber($fname);
|
||||
cmp_eq($k, $fnumber);
|
||||
|
|
@ -201,7 +201,7 @@ $string = "";
|
|||
while (@row = $result->fetchrow) {
|
||||
$string = join(" ", @row);
|
||||
}
|
||||
cmp_eq("5 Edmund Mergl", $string);
|
||||
cmp_eq("5 Edmund Mergl ", $string);
|
||||
|
||||
######################### debug, PQuntrace
|
||||
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
#-------------------------------------------------------
|
||||
#
|
||||
# $Id: typemap,v 1.6 1998/04/14 21:14:39 mergl Exp $
|
||||
# $Id: typemap,v 1.7 1998/06/01 16:41:20 mergl Exp $
|
||||
#
|
||||
# Copyright (c) 1997 Edmund Mergl
|
||||
# Copyright (c) 1997, 1998 Edmund Mergl
|
||||
#
|
||||
#-------------------------------------------------------
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue