monetdb-perl: DBD/monetdb.pm annotate

author	Sjoerd Mullender <sjoerd@acm.org>
date	Mon, 31 Oct 2022 16:18:43 +0100 (2022-10-31)
parents	b0ac51c36919
children

rev	line source
0 cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	1 package DBD::monetdb;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	2
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	3 use strict;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	4 use DBI();
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	5 use Encode();
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	6 use MonetDB::CLI();
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	7
56 cbac6d996b87 Version 1.3. Sjoerd Mullender <sjoerd@acm.org> parents: 54 diff changeset	8 our $VERSION = '1.3';
0 cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	9 our $drh = undef;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	10
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	11 require DBD::monetdb::GetInfo;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	12 require DBD::monetdb::TypeInfo;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	13
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	14
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	15 sub driver {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	16 return $drh if $drh;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	17
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	18 my ($class, $attr) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	19
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	20 $drh = DBI::_new_drh($class .'::dr', {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	21 Name => 'monetdb',
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	22 Version => $VERSION,
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	23 Attribution => 'DBD::monetdb by Martin Kersten, Arjan Scherpenisse and Steffen Goeldner',
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	24 });
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	25 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	26
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	27
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	28 sub CLONE {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	29 undef $drh;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	30 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	31
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	32
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	33
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	34 package DBD::monetdb::dr;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	35
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	36 $DBD::monetdb::dr::imp_data_size = 0;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	37
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	38
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	39 sub connect {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	40 my ($drh, $dsn, $user, $password, $attr) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	41
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	42 my %dsn;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	43 for ( split /;\|:/, $dsn \|\|'') {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	44 if ( my ( $k, $v ) = /(.?)=(.)/) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	45 $k = 'host' if $k eq 'hostname';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	46 $k = 'database' if $k eq 'dbname' \|\| $k eq 'db';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	47 $dsn{$k} = $v;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	48 next;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	49 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	50 for my $k ( qw(host port database language) ) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	51 $dsn{$k} = $_, last unless defined $dsn{$k};
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	52 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	53 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	54 my $lang = $dsn{language} \|\| 'sql';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	55 my $host = $dsn{host} \|\| 'localhost';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	56 my $port = $dsn{port} \|\| 50000;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	57 $user \|\|= 'monetdb';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	58 $password \|\|= 'monetdb';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	59 my $db = $dsn{database} \|\| 'demo';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	60
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	61 my $cxn = eval { MonetDB::CLI->connect($host, $port, $user, $password, $lang, $db) };
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	62 return $drh->set_err(-1, $@) if $@;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	63
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	64 my ($outer, $dbh) = DBI::_new_dbh($drh, { Name => $dsn });
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	65
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	66 $dbh->STORE('Active', 1 );
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	67
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	68 $dbh->{monetdb_connection} = $cxn;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	69 $dbh->{monetdb_language} = $lang;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	70
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	71 return $outer;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	72 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	73
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	74
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	75 sub data_sources {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	76 return ('dbi:monetdb:');
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	77 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	78
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	79
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	80
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	81 package DBD::monetdb::db;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	82
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	83 $DBD::monetdb::db::imp_data_size = 0;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	84
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	85
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	86 sub ping {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	87 my ($dbh) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	88
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	89 my $statement = $dbh->{monetdb_language} eq 'sql' ? 'select 7' : 'io.print(7);';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	90 my $rv = $dbh->selectrow_array($statement) \|\| 0;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	91 $dbh->set_err(undef, undef);
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	92 $rv == 7 ? 1 : 0;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	93 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	94
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	95
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	96 sub quote {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	97 my ($dbh, $value, $type) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	98
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	99 return $dbh->{monetdb_language} eq 'sql' ? 'NULL' : 'nil'
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	100 unless defined $value;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	101
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	102 $value = Encode::encode_utf8($value);
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	103
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	104 for ($value) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	105 s/'/''/g;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	106 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	107
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	108 $type \|\|= DBI::SQL_VARCHAR();
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	109
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	110 my $prefix = $DBD::monetdb::TypeInfo::prefixes{$type} \|\| '';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	111 my $suffix = $DBD::monetdb::TypeInfo::suffixes{$type} \|\| '';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	112
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	113 if ( $dbh->{monetdb_language} ne 'sql') {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	114 $prefix = q(") if $prefix eq q(');
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	115 $suffix = q(") if $suffix eq q(');
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	116 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	117 return $prefix . $value . $suffix;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	118 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	119
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	120
54 b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	121 sub _split_query_params {
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	122 my $query = shift;
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	123
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	124 # print STDERR "QUERY ??$query??\n";
0 cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	125
54 b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	126 my @parts;
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	127 my $expect_placeholder = 0;
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	128 while ($query =~ m {(
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	129 [?]
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	130 \| (?:
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	131 -- [^\n]*
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	132 \| [^?'eErR"]
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	133 \| [eE]? ' (?: \\. \| [^\\']++ )*+ '
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	134 \| [rR] ' (?: '' \| [^']++ )*+ '
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	135 \| " (?: "" \| [^"]++ )*+ "
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	136 \| [eE]? ' (?: \\. \| [^\\']++ )*+ $
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	137 \| [rR] ' (?: '' \| [^']++ )*+ $
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	138 \| " (?: "" \| [^"]++ )*+ $
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	139 \| \w+
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	140 )++
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	141 )}gsx) {
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	142 # print STDERR " $expect_placeholder TOK ??$1??\n";
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	143 if ($1 eq '?') {
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	144 push @parts, '' unless $expect_placeholder;
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	145 $expect_placeholder = 0;
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	146 } else {
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	147 die "internal error: expecting placeholder" if $expect_placeholder;
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	148 push @parts, $1;
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	149 $expect_placeholder = 1;
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	150 }
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	151 }
0 cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	152
54 b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	153 my $tail;
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	154 if ($expect_placeholder) {
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	155 $tail = pop @parts;
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	156 } else {
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	157 $tail = '';
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	158 }
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	159
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	160 # for (@parts) {
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	161 # print STDERR " PART ??$_??\n";
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	162 # }
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	163 # print STDERR " TAIL ??$tail??\n";
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	164 return \@parts, $tail;
0 cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	165 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	166
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	167
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	168 sub prepare {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	169 my ($dbh, $statement, $attr) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	170
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	171 my $cxn = $dbh->{monetdb_connection};
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	172 my $hdl = eval { $cxn->new_handle };
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	173 return $dbh->set_err(-1, $@) if $@;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	174
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	175 my ($outer, $sth) = DBI::_new_sth($dbh, { Statement => $statement });
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	176
54 b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	177 my ($parts, $tail) = _split_query_params($statement);
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	178
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	179 $sth->STORE('NUM_OF_PARAMS', scalar(@{$parts}));
0 cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	180
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	181 $sth->{monetdb_hdl} = $hdl;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	182 $sth->{monetdb_params} = [];
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	183 $sth->{monetdb_types} = [];
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	184 $sth->{monetdb_rows} = -1;
54 b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	185 $sth->{monetdb_parts} = $parts;
b0ac51c36919 Properly handle bound parameters with question marks in them Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com> parents: 51 diff changeset	186 $sth->{monetdb_tail} = $tail;
0 cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	187
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	188 return $outer;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	189 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	190
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	191
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	192 sub commit {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	193 my($dbh) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	194
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	195 if ($dbh->FETCH('AutoCommit')) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	196 warn 'Commit ineffective while AutoCommit is on' if $dbh->FETCH('Warn');
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	197 return 0;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	198 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	199 if ($dbh->{monetdb_language} eq 'sql') {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	200 return $dbh->do('commit')
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	201 && $dbh->do('start transaction');
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	202 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	203 else {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	204 return $dbh->do('commit();');
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	205 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	206 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	207
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	208
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	209 sub rollback {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	210 my($dbh) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	211
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	212 if ($dbh->FETCH('AutoCommit')) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	213 warn 'Rollback ineffective while AutoCommit is on' if $dbh->FETCH('Warn');
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	214 return 0;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	215 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	216 if ($dbh->{monetdb_language} eq 'sql') {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	217 return $dbh->do('rollback')
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	218 && $dbh->do('start transaction');
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	219 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	220 else {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	221 return $dbh->do('abort();');
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	222 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	223 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	224
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	225
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	226 *get_info = \&DBD::monetdb::GetInfo::get_info;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	227
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	228
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	229 sub monetdb_catalog_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	230 my($dbh) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	231 my $sql = <<'SQL';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	232 select cast( null as varchar( 128 ) ) as table_cat
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	233 , cast( null as varchar( 128 ) ) as table_schem
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	234 , cast( null as varchar( 128 ) ) as table_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	235 , cast( null as varchar( 254 ) ) as table_type
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	236 , cast( null as varchar( 254 ) ) as remarks
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	237 where 0 = 1
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	238 order by table_cat
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	239 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	240 my $sth = $dbh->prepare($sql) or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	241 $sth->execute or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	242 return $sth;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	243 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	244
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	245
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	246 sub monetdb_schema_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	247 my($dbh) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	248 my $sql = <<'SQL';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	249 select cast( null as varchar( 128 ) ) as table_cat
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	250 , "name" as table_schem
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	251 , cast( null as varchar( 128 ) ) as table_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	252 , cast( null as varchar( 254 ) ) as table_type
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	253 , cast( null as varchar( 254 ) ) as remarks
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	254 from sys."schemas"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	255 order by table_schem
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	256 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	257 my $sth = $dbh->prepare($sql) or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	258 $sth->execute or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	259 return $sth;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	260 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	261
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	262
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	263 my $ttp = {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	264 'TABLE' => 't."type" = 0 and t."system" = false and t."temporary" = 0 and s.name <> \'tmp\''
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	265 ,'GLOBAL TEMPORARY' => 't."type" = 0 and t."system" = false and t."temporary" = 0 and s.name = \'tmp\''
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	266 ,'SYSTEM TABLE' => 't."type" = 0 and t."system" = true and t."temporary" = 0'
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	267 ,'LOCAL TEMPORARY' => 't."type" = 0 and t."system" = false and t."temporary" = 1'
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	268 ,'VIEW' => 't."type" = 1 '
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	269 };
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	270
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	271
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	272 sub monetdb_tabletype_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	273 my($dbh) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	274 my $sql = <<"SQL";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	275 select distinct
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	276 cast( null as varchar( 128 ) ) as table_cat
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	277 , cast( null as varchar( 128 ) ) as table_schem
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	278 , cast( null as varchar( 128 ) ) as table_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	279 , case
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	280 when $ttp->{'TABLE' } then cast('TABLE' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	281 when $ttp->{'SYSTEM TABLE' } then cast('SYSTEM TABLE' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	282 when $ttp->{'LOCAL TEMPORARY' } then cast('LOCAL TEMPORARY' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	283 when $ttp->{'GLOBAL TEMPORARY'} then cast('GLOBAL TEMPORARY' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	284 when $ttp->{'VIEW' } then cast('VIEW' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	285 else cast('INTERNAL TABLE TYPE' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	286 end as table_type
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	287 , cast( null as varchar( 254 ) ) as remarks
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	288 from sys."tables" t, sys."schemas" s
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	289 where t."schema_id" = s."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	290 order by table_type
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	291 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	292 my $sth = $dbh->prepare($sql) or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	293 $sth->execute or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	294 return $sth;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	295 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	296
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	297
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	298 sub monetdb_table_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	299 my($dbh, $c, $s, $t, $tt) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	300 my $sql = <<"SQL";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	301 select cast( null as varchar( 128 ) ) as table_cat
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	302 , s."name" as table_schem
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	303 , t."name" as table_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	304 , case
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	305 when $ttp->{'TABLE' } then cast('TABLE' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	306 when $ttp->{'SYSTEM TABLE' } then cast('SYSTEM TABLE' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	307 when $ttp->{'LOCAL TEMPORARY' } then cast('LOCAL TEMPORARY' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	308 when $ttp->{'GLOBAL TEMPORARY'} then cast('GLOBAL TEMPORARY' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	309 when $ttp->{'VIEW' } then cast('VIEW' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	310 else cast('INTERNAL TABLE TYPE' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	311 end as table_type
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	312 , cast( null as varchar( 254 ) ) as remarks
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	313 from sys."schemas" s
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	314 , sys."tables" t
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	315 where t."schema_id" = s."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	316 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	317 my @bv = ();
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	318 $sql .= qq( and s."name" like ?\n), push @bv, $s if $s;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	319 $sql .= qq( and t."name" like ?\n), push @bv, $t if $t;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	320 if ( @$tt ) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	321 $sql .= " and ( 1 = 0\n";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	322 for ( @$tt ) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	323 my $p = $ttp->{uc $_};
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	324 $sql .= " or $p\n" if $p;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	325 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	326 $sql .= " )\n";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	327 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	328 $sql .= " order by table_type, table_schem, table_name\n";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	329 my $sth = $dbh->prepare($sql) or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	330 $sth->execute(@bv) or return;
1 f899cb48b4cc Turned into independent repository. Sjoerd Mullender <sjoerd@acm.org> parents: 0 diff changeset	331
0 cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	332 $dbh->set_err(0,"Catalog parameter c has to be an empty string, as MonetDB does not support multiple catalogs") if $c ne "";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	333 return $sth;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	334 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	335
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	336
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	337 sub table_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	338 my($dbh, $c, $s, $t, $tt) = @_;
1 f899cb48b4cc Turned into independent repository. Sjoerd Mullender <sjoerd@acm.org> parents: 0 diff changeset	339
0 cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	340 if ( defined $c && defined $s && defined $t ) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	341 if ( $c eq '%' && $s eq '' && $t eq '') {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	342 return monetdb_catalog_info($dbh);
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	343 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	344 elsif ( $c eq '' && $s eq '%' && $t eq '') {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	345 return monetdb_schema_info($dbh);
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	346 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	347 elsif ( $c eq '' && $s eq '' && $t eq '' && defined $tt && $tt eq '%') {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	348 return monetdb_tabletype_info($dbh);
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	349 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	350 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	351 my @tt;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	352 if ( defined $tt ) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	353 @tt = split /,/, $tt;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	354 s/^\s'?//, s/'?\s$// for @tt;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	355 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	356 return monetdb_table_info($dbh, $c, $s, $t, \@tt);
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	357 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	358
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	359
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	360 sub column_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	361 my($dbh, $catalog, $schema, $table, $column) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	362 # TODO: test $catalog for equality with empty string
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	363 my $sql = <<'SQL';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	364 select cast( null as varchar( 128 ) ) as table_cat
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	365 , s."name" as table_schem
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	366 , t."name" as table_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	367 , c."name" as column_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	368 , cast( 0 as smallint ) as data_type -- ...
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	369 , c."type" as type_name -- TODO
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	370 , cast( c."type_digits" as integer ) as column_size -- TODO
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	371 , cast( null as integer ) as buffer_length -- TODO
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	372 , cast( c."type_scale" as smallint ) as decimal_digits -- TODO
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	373 , cast( null as smallint ) as num_prec_radix -- TODO
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	374 , case c."null"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	375 when false then cast( 0 as smallint ) -- SQL_NO_NULLS
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	376 when true then cast( 1 as smallint ) -- SQL_NULLABLE
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	377 end as nullable
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	378 , cast( null as varchar( 254 ) ) as remarks
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	379 , c."default" as column_def
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	380 , cast( 0 as smallint ) as sql_data_type -- ...
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	381 , cast( null as smallint ) as sql_datetime_sub -- ...
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	382 , cast( null as integer ) as char_octet_length -- TODO
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	383 , cast( c."number" + 1 as integer ) as ordinal_position
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	384 , case c."null"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	385 when false then cast('NO' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	386 when true then cast('YES' as varchar( 254 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	387 end as is_nullable
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	388 from sys."schemas" s
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	389 , sys."tables" t
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	390 , sys."columns" c
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	391 where t."schema_id" = s."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	392 and c."table_id" = t."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	393 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	394 my @bv = ();
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	395 $sql .= qq( and s."name" like ?\n), push @bv, $schema if $schema;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	396 $sql .= qq( and t."name" like ?\n), push @bv, $table if $table;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	397 $sql .= qq( and c."name" like ?\n), push @bv, $column if $column;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	398 $sql .= " order by table_cat, table_schem, table_name, ordinal_position\n";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	399 my $sth = $dbh->prepare($sql) or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	400 $sth->execute(@bv) or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	401 $dbh->set_err(0,"Catalog parameter catalog has to be an empty string, as MonetDB does not support multiple catalogs") if $catalog ne "";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	402 my $rows;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	403 while ( my $row = $sth->fetch ) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	404 $row->[ 4] = $DBD::monetdb::TypeInfo::typeinfo{$row->[5]}->[ 1];
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	405 $row->[13] = $DBD::monetdb::TypeInfo::typeinfo{$row->[5]}->[15];
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	406 $row->[14] = $DBD::monetdb::TypeInfo::typeinfo{$row->[5]}->[16];
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	407 push @$rows, [ @$row ];
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	408 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	409 return DBI->connect('dbi:Sponge:','','', { RaiseError => 1 } )->prepare(
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	410 $sth->{Statement},
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	411 { rows => $rows, NAME => $sth->{NAME}, TYPE => $sth->{TYPE} }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	412 );
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	413 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	414
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	415
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	416 sub primary_key_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	417 my($dbh, $catalog, $schema, $table) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	418 # TODO: test $catalog for equality with empty string
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	419 return $dbh->set_err(-1,'Undefined schema','HY009') unless defined $schema;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	420 return $dbh->set_err(-1,'Undefined table' ,'HY009') unless defined $table;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	421 my $sql = <<'SQL';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	422 select cast( null as varchar( 128 ) ) as table_cat
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	423 , s."name" as table_schem
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	424 , t."name" as table_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	425 , c."name" as column_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	426 , cast( c."nr" + 1 as smallint ) as key_seq
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	427 , k."name" as pk_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	428 from sys."schemas" s
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	429 , sys."tables" t
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	430 , sys."keys" k
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	431 , sys."objects" c
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	432 where t."schema_id" = s."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	433 and k."table_id" = t."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	434 and c."id" = k."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	435 and s."name" = ?
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	436 and t."name" = ?
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	437 and k."type" = 0
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	438 order by table_schem, table_name, key_seq
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	439 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	440 my $sth = $dbh->prepare($sql) or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	441 $sth->execute($schema, $table) or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	442 $dbh->set_err(0,"Catalog parameter catalog has to be an empty string, as MonetDB does not support multiple catalogs") if $catalog ne "";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	443 return $sth;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	444 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	445
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	446
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	447 sub foreign_key_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	448 my($dbh, $c1, $s1, $t1, $c2, $s2, $t2) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	449 my $sql = <<'SQL';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	450 select cast( null as varchar( 128 ) ) as uk_table_cat
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	451 , uks."name" as uk_table_schem
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	452 , ukt."name" as uk_table_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	453 , ukc."name" as uk_column_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	454 , cast( null as varchar( 128 ) ) as fk_table_cat
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	455 , fks."name" as fk_table_schem
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	456 , fkt."name" as fk_table_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	457 , fkc."name" as fk_column_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	458 , cast( fkc."nr" + 1 as smallint ) as ordinal_position
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	459 , cast( 3 as smallint ) as update_rule -- SQL_NO_ACTION
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	460 , cast( 3 as smallint ) as delete_rule -- SQL_NO_ACTION
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	461 , fkk."name" as fk_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	462 , ukk."name" as uk_name
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	463 , cast( 7 as smallint ) as deferability -- SQL_NOT_DEFERRABLE
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	464 , case ukk."type"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	465 when 0 then cast('PRIMARY' as varchar( 7 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	466 when 1 then cast('UNIQUE' as varchar( 7 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	467 else cast( ukk."type" as varchar( 7 ) )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	468 end as unique_or_primary
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	469 from sys."schemas" uks
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	470 , sys."tables" ukt
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	471 , sys."keys" ukk
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	472 , sys."objects" ukc
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	473 , sys."schemas" fks
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	474 , sys."tables" fkt
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	475 , sys."keys" fkk
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	476 , sys."objects" fkc
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	477 where ukt."schema_id" = uks."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	478 and ukk."table_id" = ukt."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	479 and ukc."id" = ukk."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	480 and fkt."schema_id" = fks."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	481 and fkk."table_id" = fkt."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	482 and fkc."id" = fkk."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	483 -- and ukk."type" IN ( 0, 1 )
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	484 -- and fkk."type" = 2
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	485 -- and fkk."rkey" > -1
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	486 and fkk."rkey" = ukk."id"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	487 and fkc."nr" = ukc."nr"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	488 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	489 my @bv = ();
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	490 $sql .= qq( and uks."name" = ?\n), push @bv, $s1 if $s1;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	491 $sql .= qq( and ukt."name" = ?\n), push @bv, $t1 if $t1;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	492 $sql .= qq( and fks."name" = ?\n), push @bv, $s2 if $s2;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	493 $sql .= qq( and fkt."name" = ?\n), push @bv, $t2 if $t2;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	494 $sql .= qq( and ukk."type" = 0\n) if $t1 && !$t2;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	495 $sql .= " order by uk_table_schem, uk_table_name, fk_table_schem, fk_table_name, ordinal_position\n";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	496 my $sth = $dbh->prepare($sql) or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	497 $sth->execute(@bv) or return;
50 96edc4137944 When processing query results, check all lines to see if a line contains an error message (i.e. starts with a '!'). Ying Zhang <y.zhang@cwi.nl> parents: 49 diff changeset	498 $dbh->set_err(0,"Catalog parameters c1 and c2 have to be an empty strings, as MonetDB does not support multiple catalogs") if $c1 ne "" \|\| $c2 ne "";
0 cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	499 return $sth;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	500 }

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

1 package DBD::monetdb;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

2

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

3 use strict;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

4 use DBI();

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

5 use Encode();

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

6 use MonetDB::CLI();

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

7

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

9 our $drh = undef;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

10

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

11 require DBD::monetdb::GetInfo;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

12 require DBD::monetdb::TypeInfo;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

13

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

14

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

15 sub driver {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

16 return $drh if $drh;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

17

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

18 my ($class, $attr) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

19

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

20 $drh = DBI::_new_drh($class .'::dr', {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

21 Name => 'monetdb',

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

22 Version => $VERSION,

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

23 Attribution => 'DBD::monetdb by Martin Kersten, Arjan Scherpenisse and Steffen Goeldner',

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

24 });

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

25 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

26

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

27

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

28 sub CLONE {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

29 undef $drh;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

30 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

31

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

32

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

33

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

34 package DBD::monetdb::dr;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

35

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

36 $DBD::monetdb::dr::imp_data_size = 0;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

37

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

38

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

39 sub connect {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

40 my ($drh, $dsn, $user, $password, $attr) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

41

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

42 my %dsn;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

43 for ( split /;|:/, $dsn ||'') {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

44 if ( my ( $k, $v ) = /(.*?)=(.*)/) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

45 $k = 'host' if $k eq 'hostname';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

46 $k = 'database' if $k eq 'dbname' || $k eq 'db';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

47 $dsn{$k} = $v;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

48 next;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

49 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

50 for my $k ( qw(host port database language) ) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

51 $dsn{$k} = $_, last unless defined $dsn{$k};

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

52 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

53 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

54 my $lang = $dsn{language} || 'sql';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

55 my $host = $dsn{host} || 'localhost';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

56 my $port = $dsn{port} || 50000;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

57 $user ||= 'monetdb';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

58 $password ||= 'monetdb';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

59 my $db = $dsn{database} || 'demo';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

60

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

61 my $cxn = eval { MonetDB::CLI->connect($host, $port, $user, $password, $lang, $db) };

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

62 return $drh->set_err(-1, $@) if $@;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

63

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

64 my ($outer, $dbh) = DBI::_new_dbh($drh, { Name => $dsn });

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

65

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

66 $dbh->STORE('Active', 1 );

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

67

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

68 $dbh->{monetdb_connection} = $cxn;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

69 $dbh->{monetdb_language} = $lang;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

70

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

71 return $outer;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

72 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

73

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

74

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

75 sub data_sources {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

76 return ('dbi:monetdb:');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

77 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

78

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

79

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

80

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

81 package DBD::monetdb::db;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

82

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

83 $DBD::monetdb::db::imp_data_size = 0;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

84

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

85

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

86 sub ping {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

87 my ($dbh) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

88

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

89 my $statement = $dbh->{monetdb_language} eq 'sql' ? 'select 7' : 'io.print(7);';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

90 my $rv = $dbh->selectrow_array($statement) || 0;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

91 $dbh->set_err(undef, undef);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

92 $rv == 7 ? 1 : 0;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

93 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

94

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

95

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

96 sub quote {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

97 my ($dbh, $value, $type) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

98

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

99 return $dbh->{monetdb_language} eq 'sql' ? 'NULL' : 'nil'

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

100 unless defined $value;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

101

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

102 $value = Encode::encode_utf8($value);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

103

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

104 for ($value) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

105 s/'/''/g;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

106 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

107

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

108 $type ||= DBI::SQL_VARCHAR();

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

109

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

110 my $prefix = $DBD::monetdb::TypeInfo::prefixes{$type} || '';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

111 my $suffix = $DBD::monetdb::TypeInfo::suffixes{$type} || '';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

112

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

113 if ( $dbh->{monetdb_language} ne 'sql') {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

114 $prefix = q(") if $prefix eq q(');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

115 $suffix = q(") if $suffix eq q(');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

116 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

117 return $prefix . $value . $suffix;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

118 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

119

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

120

54

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

121 sub _split_query_params {

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

122 my $query = shift;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

123

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

124 # print STDERR "QUERY ??$query??\n";

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

125

54

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

126 my @parts;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

127 my $expect_placeholder = 0;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

128 while ($query =~ m {(

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

129 [?]

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

130 | (?:

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

131 -- [^\n]*

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

132 | [^?'eErR"]

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

133 | [eE]? ' (?: \\. | [^\\']++ )*+ '

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

134 | [rR] ' (?: '' | [^']++ )*+ '

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

135 | " (?: "" | [^"]++ )*+ "

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

136 | [eE]? ' (?: \\. | [^\\']++ )*+ $

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

137 | [rR] ' (?: '' | [^']++ )*+ $

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

138 | " (?: "" | [^"]++ )*+ $

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

139 | \w+

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

140 )++

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

141 )}gsx) {

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

142 # print STDERR " $expect_placeholder TOK ??$1??\n";

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

143 if ($1 eq '?') {

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

144 push @parts, '' unless $expect_placeholder;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

145 $expect_placeholder = 0;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

146 } else {

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

147 die "internal error: expecting placeholder" if $expect_placeholder;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

148 push @parts, $1;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

149 $expect_placeholder = 1;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

150 }

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

151 }

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

152

54

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

153 my $tail;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

154 if ($expect_placeholder) {

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

155 $tail = pop @parts;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

156 } else {

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

157 $tail = '';

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

158 }

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

159

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

160 # for (@parts) {

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

161 # print STDERR " PART ??$_??\n";

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

162 # }

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

163 # print STDERR " TAIL ??$tail??\n";

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

164 return \@parts, $tail;

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

165 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

166

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

167

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

168 sub prepare {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

169 my ($dbh, $statement, $attr) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

170

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

171 my $cxn = $dbh->{monetdb_connection};

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

172 my $hdl = eval { $cxn->new_handle };

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

173 return $dbh->set_err(-1, $@) if $@;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

174

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

175 my ($outer, $sth) = DBI::_new_sth($dbh, { Statement => $statement });

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

176

54

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

177 my ($parts, $tail) = _split_query_params($statement);

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

178

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

179 $sth->STORE('NUM_OF_PARAMS', scalar(@{$parts}));

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

180

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

181 $sth->{monetdb_hdl} = $hdl;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

182 $sth->{monetdb_params} = [];

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

183 $sth->{monetdb_types} = [];

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

184 $sth->{monetdb_rows} = -1;

54

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

185 $sth->{monetdb_parts} = $parts;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

186 $sth->{monetdb_tail} = $tail;

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

187

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

188 return $outer;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

189 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

190

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

191

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

192 sub commit {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

193 my($dbh) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

194

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

195 if ($dbh->FETCH('AutoCommit')) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

196 warn 'Commit ineffective while AutoCommit is on' if $dbh->FETCH('Warn');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

197 return 0;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

198 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

199 if ($dbh->{monetdb_language} eq 'sql') {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

200 return $dbh->do('commit')

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

201 && $dbh->do('start transaction');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

202 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

203 else {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

204 return $dbh->do('commit();');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

205 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

206 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

207

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

208

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

209 sub rollback {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

210 my($dbh) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

211

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

212 if ($dbh->FETCH('AutoCommit')) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

213 warn 'Rollback ineffective while AutoCommit is on' if $dbh->FETCH('Warn');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

214 return 0;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

215 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

216 if ($dbh->{monetdb_language} eq 'sql') {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

217 return $dbh->do('rollback')

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

218 && $dbh->do('start transaction');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

219 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

220 else {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

221 return $dbh->do('abort();');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

222 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

223 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

224

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

225

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

226 *get_info = \&DBD::monetdb::GetInfo::get_info;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

227

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

228

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

229 sub monetdb_catalog_info {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

230 my($dbh) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

231 my $sql = <<'SQL';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

232 select cast( null as varchar( 128 ) ) as table_cat

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

233 , cast( null as varchar( 128 ) ) as table_schem

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

234 , cast( null as varchar( 128 ) ) as table_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

235 , cast( null as varchar( 254 ) ) as table_type

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

236 , cast( null as varchar( 254 ) ) as remarks

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

237 where 0 = 1

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

238 order by table_cat

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

239 SQL

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

240 my $sth = $dbh->prepare($sql) or return;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

241 $sth->execute or return;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

242 return $sth;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

243 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

244

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

245

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

246 sub monetdb_schema_info {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

247 my($dbh) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

248 my $sql = <<'SQL';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

249 select cast( null as varchar( 128 ) ) as table_cat

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

250 , "name" as table_schem

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

251 , cast( null as varchar( 128 ) ) as table_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

252 , cast( null as varchar( 254 ) ) as table_type

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

253 , cast( null as varchar( 254 ) ) as remarks

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

254 from sys."schemas"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

255 order by table_schem

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

256 SQL

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

257 my $sth = $dbh->prepare($sql) or return;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

258 $sth->execute or return;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

259 return $sth;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

260 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

261

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

262

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

263 my $ttp = {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

264 'TABLE' => 't."type" = 0 and t."system" = false and t."temporary" = 0 and s.name <> \'tmp\''

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

265 ,'GLOBAL TEMPORARY' => 't."type" = 0 and t."system" = false and t."temporary" = 0 and s.name = \'tmp\''

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

266 ,'SYSTEM TABLE' => 't."type" = 0 and t."system" = true and t."temporary" = 0'

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

267 ,'LOCAL TEMPORARY' => 't."type" = 0 and t."system" = false and t."temporary" = 1'

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

268 ,'VIEW' => 't."type" = 1 '

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

269 };

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

270

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

271

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

272 sub monetdb_tabletype_info {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

273 my($dbh) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

274 my $sql = <<"SQL";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

275 select distinct

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

276 cast( null as varchar( 128 ) ) as table_cat

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

277 , cast( null as varchar( 128 ) ) as table_schem

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

278 , cast( null as varchar( 128 ) ) as table_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

279 , case

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

280 when $ttp->{'TABLE' } then cast('TABLE' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

281 when $ttp->{'SYSTEM TABLE' } then cast('SYSTEM TABLE' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

282 when $ttp->{'LOCAL TEMPORARY' } then cast('LOCAL TEMPORARY' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

283 when $ttp->{'GLOBAL TEMPORARY'} then cast('GLOBAL TEMPORARY' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

284 when $ttp->{'VIEW' } then cast('VIEW' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

285 else cast('INTERNAL TABLE TYPE' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

286 end as table_type

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

287 , cast( null as varchar( 254 ) ) as remarks

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

288 from sys."tables" t, sys."schemas" s

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

289 where t."schema_id" = s."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

290 order by table_type

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

291 SQL

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

292 my $sth = $dbh->prepare($sql) or return;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

293 $sth->execute or return;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

294 return $sth;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

295 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

296

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

297

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

298 sub monetdb_table_info {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

299 my($dbh, $c, $s, $t, $tt) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

300 my $sql = <<"SQL";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

301 select cast( null as varchar( 128 ) ) as table_cat

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

302 , s."name" as table_schem

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

303 , t."name" as table_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

304 , case

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

305 when $ttp->{'TABLE' } then cast('TABLE' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

306 when $ttp->{'SYSTEM TABLE' } then cast('SYSTEM TABLE' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

307 when $ttp->{'LOCAL TEMPORARY' } then cast('LOCAL TEMPORARY' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

308 when $ttp->{'GLOBAL TEMPORARY'} then cast('GLOBAL TEMPORARY' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

309 when $ttp->{'VIEW' } then cast('VIEW' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

310 else cast('INTERNAL TABLE TYPE' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

311 end as table_type

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

312 , cast( null as varchar( 254 ) ) as remarks

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

313 from sys."schemas" s

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

314 , sys."tables" t

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

315 where t."schema_id" = s."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

316 SQL

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

317 my @bv = ();

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

318 $sql .= qq( and s."name" like ?\n), push @bv, $s if $s;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

319 $sql .= qq( and t."name" like ?\n), push @bv, $t if $t;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

320 if ( @$tt ) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

321 $sql .= " and ( 1 = 0\n";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

322 for ( @$tt ) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

323 my $p = $ttp->{uc $_};

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

324 $sql .= " or $p\n" if $p;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

325 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

326 $sql .= " )\n";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

327 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

328 $sql .= " order by table_type, table_schem, table_name\n";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

329 my $sth = $dbh->prepare($sql) or return;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

330 $sth->execute(@bv) or return;

1

f899cb48b4cc Turned into independent repository.

Sjoerd Mullender <sjoerd@acm.org>

parents: 0

diff changeset

331

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

332 $dbh->set_err(0,"Catalog parameter c has to be an empty string, as MonetDB does not support multiple catalogs") if $c ne "";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

333 return $sth;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

334 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

335

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

336

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

337 sub table_info {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

338 my($dbh, $c, $s, $t, $tt) = @_;

1

f899cb48b4cc Turned into independent repository.

Sjoerd Mullender <sjoerd@acm.org>

parents: 0

diff changeset

339

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

340 if ( defined $c && defined $s && defined $t ) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

341 if ( $c eq '%' && $s eq '' && $t eq '') {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

342 return monetdb_catalog_info($dbh);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

343 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

344 elsif ( $c eq '' && $s eq '%' && $t eq '') {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

345 return monetdb_schema_info($dbh);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

346 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

347 elsif ( $c eq '' && $s eq '' && $t eq '' && defined $tt && $tt eq '%') {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

348 return monetdb_tabletype_info($dbh);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

349 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

350 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

351 my @tt;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

352 if ( defined $tt ) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

353 @tt = split /,/, $tt;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

354 s/^\s*'?//, s/'?\s*$// for @tt;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

355 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

356 return monetdb_table_info($dbh, $c, $s, $t, \@tt);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

357 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

358

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

359

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

360 sub column_info {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

361 my($dbh, $catalog, $schema, $table, $column) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

362 # TODO: test $catalog for equality with empty string

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

363 my $sql = <<'SQL';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

364 select cast( null as varchar( 128 ) ) as table_cat

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

365 , s."name" as table_schem

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

366 , t."name" as table_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

367 , c."name" as column_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

368 , cast( 0 as smallint ) as data_type -- ...

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

369 , c."type" as type_name -- TODO

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

370 , cast( c."type_digits" as integer ) as column_size -- TODO

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

371 , cast( null as integer ) as buffer_length -- TODO

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

372 , cast( c."type_scale" as smallint ) as decimal_digits -- TODO

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

373 , cast( null as smallint ) as num_prec_radix -- TODO

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

374 , case c."null"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

375 when false then cast( 0 as smallint ) -- SQL_NO_NULLS

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

376 when true then cast( 1 as smallint ) -- SQL_NULLABLE

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

377 end as nullable

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

378 , cast( null as varchar( 254 ) ) as remarks

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

379 , c."default" as column_def

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

380 , cast( 0 as smallint ) as sql_data_type -- ...

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

381 , cast( null as smallint ) as sql_datetime_sub -- ...

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

382 , cast( null as integer ) as char_octet_length -- TODO

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

383 , cast( c."number" + 1 as integer ) as ordinal_position

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

384 , case c."null"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

385 when false then cast('NO' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

386 when true then cast('YES' as varchar( 254 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

387 end as is_nullable

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

388 from sys."schemas" s

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

389 , sys."tables" t

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

390 , sys."columns" c

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

391 where t."schema_id" = s."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

392 and c."table_id" = t."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

393 SQL

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

394 my @bv = ();

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

395 $sql .= qq( and s."name" like ?\n), push @bv, $schema if $schema;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

396 $sql .= qq( and t."name" like ?\n), push @bv, $table if $table;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

397 $sql .= qq( and c."name" like ?\n), push @bv, $column if $column;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

398 $sql .= " order by table_cat, table_schem, table_name, ordinal_position\n";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

399 my $sth = $dbh->prepare($sql) or return;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

400 $sth->execute(@bv) or return;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

401 $dbh->set_err(0,"Catalog parameter catalog has to be an empty string, as MonetDB does not support multiple catalogs") if $catalog ne "";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

402 my $rows;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

403 while ( my $row = $sth->fetch ) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

404 $row->[ 4] = $DBD::monetdb::TypeInfo::typeinfo{$row->[5]}->[ 1];

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

405 $row->[13] = $DBD::monetdb::TypeInfo::typeinfo{$row->[5]}->[15];

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

406 $row->[14] = $DBD::monetdb::TypeInfo::typeinfo{$row->[5]}->[16];

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

407 push @$rows, [ @$row ];

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

408 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

409 return DBI->connect('dbi:Sponge:','','', { RaiseError => 1 } )->prepare(

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

410 $sth->{Statement},

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

411 { rows => $rows, NAME => $sth->{NAME}, TYPE => $sth->{TYPE} }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

412 );

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

413 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

414

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

415

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

416 sub primary_key_info {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

417 my($dbh, $catalog, $schema, $table) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

418 # TODO: test $catalog for equality with empty string

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

419 return $dbh->set_err(-1,'Undefined schema','HY009') unless defined $schema;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

420 return $dbh->set_err(-1,'Undefined table' ,'HY009') unless defined $table;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

421 my $sql = <<'SQL';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

422 select cast( null as varchar( 128 ) ) as table_cat

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

423 , s."name" as table_schem

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

424 , t."name" as table_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

425 , c."name" as column_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

426 , cast( c."nr" + 1 as smallint ) as key_seq

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

427 , k."name" as pk_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

428 from sys."schemas" s

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

429 , sys."tables" t

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

430 , sys."keys" k

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

431 , sys."objects" c

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

432 where t."schema_id" = s."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

433 and k."table_id" = t."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

434 and c."id" = k."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

435 and s."name" = ?

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

436 and t."name" = ?

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

437 and k."type" = 0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

438 order by table_schem, table_name, key_seq

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

439 SQL

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

440 my $sth = $dbh->prepare($sql) or return;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

441 $sth->execute($schema, $table) or return;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

442 $dbh->set_err(0,"Catalog parameter catalog has to be an empty string, as MonetDB does not support multiple catalogs") if $catalog ne "";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

443 return $sth;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

444 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

445

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

446

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

447 sub foreign_key_info {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

448 my($dbh, $c1, $s1, $t1, $c2, $s2, $t2) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

449 my $sql = <<'SQL';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

450 select cast( null as varchar( 128 ) ) as uk_table_cat

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

451 , uks."name" as uk_table_schem

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

452 , ukt."name" as uk_table_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

453 , ukc."name" as uk_column_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

454 , cast( null as varchar( 128 ) ) as fk_table_cat

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

455 , fks."name" as fk_table_schem

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

456 , fkt."name" as fk_table_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

457 , fkc."name" as fk_column_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

458 , cast( fkc."nr" + 1 as smallint ) as ordinal_position

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

459 , cast( 3 as smallint ) as update_rule -- SQL_NO_ACTION

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

460 , cast( 3 as smallint ) as delete_rule -- SQL_NO_ACTION

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

461 , fkk."name" as fk_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

462 , ukk."name" as uk_name

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

463 , cast( 7 as smallint ) as deferability -- SQL_NOT_DEFERRABLE

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

464 , case ukk."type"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

465 when 0 then cast('PRIMARY' as varchar( 7 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

466 when 1 then cast('UNIQUE' as varchar( 7 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

467 else cast( ukk."type" as varchar( 7 ) )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

468 end as unique_or_primary

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

469 from sys."schemas" uks

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

470 , sys."tables" ukt

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

471 , sys."keys" ukk

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

472 , sys."objects" ukc

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

473 , sys."schemas" fks

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

474 , sys."tables" fkt

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

475 , sys."keys" fkk

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

476 , sys."objects" fkc

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

477 where ukt."schema_id" = uks."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

478 and ukk."table_id" = ukt."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

479 and ukc."id" = ukk."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

480 and fkt."schema_id" = fks."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

481 and fkk."table_id" = fkt."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

482 and fkc."id" = fkk."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

483 -- and ukk."type" IN ( 0, 1 )

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

484 -- and fkk."type" = 2

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

485 -- and fkk."rkey" > -1

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

486 and fkk."rkey" = ukk."id"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

487 and fkc."nr" = ukc."nr"

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

488 SQL

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

489 my @bv = ();

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

490 $sql .= qq( and uks."name" = ?\n), push @bv, $s1 if $s1;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

491 $sql .= qq( and ukt."name" = ?\n), push @bv, $t1 if $t1;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

492 $sql .= qq( and fks."name" = ?\n), push @bv, $s2 if $s2;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

493 $sql .= qq( and fkt."name" = ?\n), push @bv, $t2 if $t2;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

494 $sql .= qq( and ukk."type" = 0\n) if $t1 && !$t2;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

495 $sql .= " order by uk_table_schem, uk_table_name, fk_table_schem, fk_table_name, ordinal_position\n";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

496 my $sth = $dbh->prepare($sql) or return;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

497 $sth->execute(@bv) or return;

50

96edc4137944 When processing query results, check all lines to see if a line contains an error message (i.e. starts with a '!').

Ying Zhang <y.zhang@cwi.nl>

parents: 49

diff changeset

498 $dbh->set_err(0,"Catalog parameters c1 and c2 have to be an empty strings, as MonetDB does not support multiple catalogs") if $c1 ne "" || $c2 ne "";

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

499 return $sth;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

500 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

501

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

502

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

503 *type_info_all = \&DBD::monetdb::TypeInfo::type_info_all;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

504

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

505

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

506 sub tables {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

507 my ($dbh, @args) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

508

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

509 # TODO: !! warn: 0 CLEARED by call to fetchall_arrayref method

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

510 return $dbh->SUPER::tables( @args ) if $dbh->{monetdb_language} eq 'sql';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

511

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

512 return eval{ @{$dbh->selectcol_arrayref('ls();')} };

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

513 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

514

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

515

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

516 sub disconnect {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

517 my ($dbh) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

518

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

519 delete $dbh->{monetdb_connection};

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

520 $dbh->STORE('Active', 0 );

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

521 return 1;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

522 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

523

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

524

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

525 sub FETCH {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

526 my ($dbh, $key) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

527

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

528 return $dbh->{$key} if $key =~ /^monetdb_/;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

529 return $dbh->SUPER::FETCH($key);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

530 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

531

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

532

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

533 sub STORE {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

534 my ($dbh, $key, $value) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

535

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

536 if ($key eq 'AutoCommit') {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

537 return 1 if $dbh->{monetdb_language} ne 'sql';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

538 my $old_value = $dbh->{$key};

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

539 if ($value && defined $old_value && !$old_value) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

540 $dbh->do('commit')

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

541 or return $dbh->set_err($dbh->err, $dbh->errstr);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

542 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

543 elsif (!$value && (!defined $old_value || $old_value)) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

544 $dbh->do('start transaction')

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

545 or return $dbh->set_err($dbh->err, $dbh->errstr);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

546 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

547 $dbh->{$key} = $value;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

548 return 1;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

549 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

550 elsif ($key =~ /^monetdb_/) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

551 $dbh->{$key} = $value;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

552 return 1;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

553 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

554 return $dbh->SUPER::STORE($key, $value);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

555 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

556

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

557

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

558 sub DESTROY {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

559 my ($dbh) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

560

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

561 $dbh->disconnect if $dbh->FETCH('Active');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

562 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

563

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

564

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

565

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

566 package DBD::monetdb::st;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

567

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

568 $DBD::monetdb::st::imp_data_size = 0;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

569

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

570

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

571 sub bind_param {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

572 my ($sth, $index, $value, $attr) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

573

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

574 $sth->{monetdb_params}[$index-1] = $value;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

575 $sth->{monetdb_types}[$index-1] = ref $attr ? $attr->{TYPE} : $attr;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

576 return 1;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

577 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

578

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

579

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

580 sub execute {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

581 my($sth, @bind_values) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

582 my $dbh = $sth->{Database};

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

583

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

584 $sth->STORE('Active', 0 ); # we don't need to call $sth->finish because

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

585 # mapi_query_handle() calls finish_handle()

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

586

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

587 $sth->bind_param($_, $bind_values[$_-1]) or return for 1 .. @bind_values;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

588

54

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

589 my $parts = $sth->{monetdb_parts};

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

590 my $nparts = @$parts;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

591 my $tail = $sth->{monetdb_tail};

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

592

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

593 my $params = $sth->{monetdb_params};

54

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

594 my $nparams = @$params;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

595 if ($nparams != $nparts) {

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

596 return $sth->set_err(-1, "$nparams value bound while $nparts expected");

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

597 }

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

598

54

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

599 my $statement;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

600 if ($nparts > 0) {

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

601 my @stmt = ();

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

602 for (1 .. $nparts) {

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

603 my $quoted_param = $dbh->quote($params->[$_-1], $sth->{monetdb_types}[$_-1]);

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

604 push @stmt, $parts->[$_ - 1], $quoted_param;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

605 }

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

606 push @stmt, $tail;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

607 $statement = join('', @stmt);

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

608 } else {

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

609 $statement = $tail;

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

610 }

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

611

b0ac51c36919 Properly handle bound parameters with question marks in them

Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>

parents: 51

diff changeset

612 # print STDERR "# $statement\n";

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

613 $sth->trace_msg(" -- Statement: $statement\n", 5);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

614

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

615 my $hdl = $sth->{monetdb_hdl};

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

616 eval{ $hdl->query($statement) };

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

617 return $sth->set_err(-1, $@) if $@;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

618

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

619 my $rows = $hdl->rows_affected;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

620

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

621 if ( $dbh->{monetdb_language} eq 'sql' && $hdl->querytype != 1 ) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

622 $sth->{monetdb_rows} = $rows;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

623 return $rows || '0E0';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

624 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

625 my ( @names, @types, @precisions, @nullables );

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

626 my $field_count = $hdl->columncount;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

627 for ( 0 .. $field_count-1 ) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

628 push @names , $hdl->name ($_);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

629 push @types , $hdl->type ($_);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

630 push @precisions, $hdl->length($_);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

631 push @nullables , 2; # TODO

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

632 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

633 $sth->STORE('NUM_OF_FIELDS', $field_count) unless $sth->FETCH('NUM_OF_FIELDS');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

634 $sth->{NAME} = \@names;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

635 $sth->{TYPE} = [ map { $DBD::monetdb::TypeInfo::typeinfo{$_}->[1] } @types ];

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

636 $sth->{PRECISION} = \@precisions; # TODO

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

637 $sth->{SCALE} = [];

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

638 $sth->{NULLABLE} = \@nullables;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

639 $sth->STORE('Active', 1 );

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

640

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

641 $sth->{monetdb_rows} = 0;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

642

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

643 return $rows || '0E0';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

644 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

645

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

646

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

647 sub fetch {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

648 my ($sth) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

649

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

650 return $sth->set_err(-900,'Statement handle not marked as Active')

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

651 unless $sth->FETCH('Active');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

652 my $hdl = $sth->{monetdb_hdl};

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

653 my $field_count = eval{ $hdl->fetch };

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

654 unless ( $field_count ) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

655 $sth->STORE('Active', 0 );

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

656 $sth->set_err(-1, $@) if $@;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

657 return;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

658 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

659 my @row = map $hdl->{currow}[$_], 0 .. $field_count-1; # encapsulation break but saves a microsecond per cell

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

660 map { s/\s+$// } @row if $sth->FETCH('ChopBlanks');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

661

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

662 $sth->{monetdb_rows}++;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

663 return $sth->_set_fbav(\@row);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

664 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

665

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

666 *fetchrow_arrayref = \&fetch;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

667

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

668

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

669 sub rows {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

670 my ($sth) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

671

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

672 return $sth->{monetdb_rows};

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

673 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

674

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

675

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

676 sub finish {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

677 my ($sth) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

678 my $hdl = $sth->{monetdb_hdl};

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

679

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

680 eval{ $hdl->finish };

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

681 return $sth->set_err(-1, $@) if $@;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

682

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

683 return $sth->SUPER::finish; # sets Active off

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

684 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

685

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

686

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

687 sub FETCH {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

688 my ($sth, $key) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

689

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

690 if ( $key =~ /^monetdb_/) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

691 return $sth->{$key};

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

692 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

693 elsif ( $key eq 'ParamValues') {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

694 my $p = $sth->{monetdb_params};

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

695 return { map { $_ => $p->[$_-1] } 1 .. $sth->FETCH('NUM_OF_PARAMS') };

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

696 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

697 return $sth->SUPER::FETCH($key);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

698 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

699

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

700

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

701 sub STORE {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

702 my ($sth, $key, $value) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

703

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

704 if ($key =~ /^monetdb_/) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

705 $sth->{$key} = $value;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

706 return 1;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

707 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

708 return $sth->SUPER::STORE($key, $value);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

709 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

710

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

711

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

712 sub DESTROY {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

713 my ($sth) = @_;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

714

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

715 $sth->STORE('Active', 0 );

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

716 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

717

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

718

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

719 1;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

720

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

721 __END__

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

722

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

723 =head1 NAME

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

724

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

725 DBD::monetdb - MonetDB Driver for DBI

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

726

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

727 =head1 SYNOPSIS

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

728

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

729 use DBI();

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

730

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

731 my $dbh = DBI->connect('dbi:monetdb:');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

732

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

733 my $sth = $dbh->prepare('SELECT * FROM env() env');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

734 $sth->execute;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

735 $sth->dump_results;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

736

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

737 =head1 DESCRIPTION

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

738

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

739 DBD::monetdb is a Pure Perl client interface for the MonetDB Database Server.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

740 It requires MonetDB::CLI (and one of its implementations).

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

741

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

742 =head2 Outline Usage

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

743

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

744 From perl you activate the interface with the statement

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

745

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

746 use DBI;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

747

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

748 After that you can connect to multiple MonetDB database servers

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

749 and send multiple queries to any of them via a simple object oriented

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

750 interface. Two types of objects are available: database handles and

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

751 statement handles. Perl returns a database handle to the connect

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

752 method like so:

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

753

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

754 $dbh = DBI->connect("dbi:monetdb:host=$host",

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

755 $user, $password, { RaiseError => 1 } );

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

756

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

757 Once you have connected to a database, you can can execute SQL

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

758 statements with:

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

759

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

760 my $sql = sprintf('INSERT INTO foo VALUES (%d, %s)',

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

761 $number, $dbh->quote('name'));

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

762 $dbh->do($sql);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

763

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

764 See L<DBI> for details on the quote and do methods. An alternative

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

765 approach is

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

766

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

767 $dbh->do('INSERT INTO foo VALUES (?, ?)', undef, $number, $name);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

768

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

769 in which case the quote method is executed automatically. See also

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

770 the bind_param method in L<DBI>.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

771

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

772 If you want to retrieve results, you need to create a so-called

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

773 statement handle with:

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

774

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

775 $sth = $dbh->prepare("SELECT id, name FROM $table");

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

776 $sth->execute;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

777

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

778 This statement handle can be used for multiple things. First of all

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

779 you can retreive a row of data:

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

780

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

781 my $row = $sth->fetch;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

782

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

783 If your table has columns ID and NAME, then $row will be array ref with

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

784 index 0 and 1.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

785

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

786 =head2 Example

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

787

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

788 #!/usr/bin/perl

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

789

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

790 use strict;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

791 use DBI;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

792

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

793 # Connect to the database.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

794 my $dbh = DBI->connect('dbi:monetdb:host=localhost',

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

795 'joe', "joe's password", { RaiseError => 1 } );

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

796

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

797 # Drop table 'foo'. This may fail, if 'foo' doesn't exist.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

798 # Thus we put an eval around it.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

799 eval { $dbh->do('DROP TABLE foo') };

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

800 print "Dropping foo failed: $@\n" if $@;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

801

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

802 # Create a new table 'foo'. This must not fail, thus we don't

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

803 # catch errors.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

804 $dbh->do('CREATE TABLE foo (id INTEGER, name VARCHAR(20))');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

805

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

806 # INSERT some data into 'foo'. We are using $dbh->quote() for

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

807 # quoting the name.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

808 $dbh->do('INSERT INTO foo VALUES (1, ' . $dbh->quote('Tim') . ')');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

809

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

810 # Same thing, but using placeholders

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

811 $dbh->do('INSERT INTO foo VALUES (?, ?)', undef, 2, 'Jochen');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

812

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

813 # Now retrieve data from the table.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

814 my $sth = $dbh->prepare('SELECT id, name FROM foo');

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

815 $sth->execute;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

816 while ( my $row = $sth->fetch ) {

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

817 print "Found a row: id = $row->[0], name = $row->[1]\n";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

818 }

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

819

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

820 # Disconnect from the database.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

821 $dbh->disconnect;

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

822

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

823 =head1 METHODS

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

824

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

825 =head2 Driver Handle Methods

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

826

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

827 =over

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

828

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

829 =item B<connect>

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

830

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

831 use DBI();

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

832

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

833 $dsn = 'dbi:monetdb:';

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

834 $dsn = "dbi:monetdb:host=$host";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

835 $dsn = "dbi:monetdb:host=$host;port=$port";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

836 $dsn = "dbi:monetdb:host=$host;database=$database";

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

837

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

838 $dbh = DBI->connect($dsn, $user, $password);

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

839

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

840 =over

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

841

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

842 =item host

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

843

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

844 The default host to connect to is 'localhost', i.e. your workstation.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

845

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

846 =item port

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

847

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

848 The port the MonetDB daemon listens to. Default for MonetDB is 50000.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

849

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

850 =item database

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

851

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

852 The name of the database to connect to.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

853

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

854 =back

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

855

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

856 =back

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

857

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

858 =head2 Database Handle Methods

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

859

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

860 The following methods are currently not supported:

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

861

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

862 last_insert_id

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

863

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

864 All MetaData methods are supported. However, column_info() currently doesn't

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

865 provide length (size, ...) related information.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

866 The foreign_key_info() method returns a SQL/CLI like result set,

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

867 because it provides additional information about unique keys.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

868

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

869 =head2 Statement Handle Methods

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

870

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

871 The following methods are currently not supported:

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

872

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

873 bind_param_inout

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

874 more_results

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

875 blob_read

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

876

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

877 =head1 ATTRIBUTES

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

878

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

879 The following attributes are currently not supported:

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

880

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

881 LongReadLen

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

882 LongTruncOk

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

883

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

884 =head2 Database Handle Attributes

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

885

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

886 The following attributes are currently not supported:

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

887

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

888 RowCacheSize

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

889

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

890 =head2 Statement Handle Attributes

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

891

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

892 The following attributes are currently not (or not correctly) supported:

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

893

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

894 PRECISION (MonetDB semantic != DBI semantic)

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

895 SCALE (empty)

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

896 NULLABLE (SQL_NULLABLE_UNKNOWN = 2)

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

897 CursorName

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

898 RowsInCache

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

899

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

900 =head1 AUTHORS

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

901

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

902 Martin Kersten E<lt>Martin.Kersten@cwi.nlE<gt> implemented the initial Mapi

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

903 based version of the driver (F<monet.pm>).

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

904 Arjan Scherpenisse E<lt>acscherp@science.uva.nlE<gt> renamed this module to

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

905 F<monetdbPP.pm> and derived the new MapiLib based version (F<monetdb.pm>).

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

906 Current maintainer is Steffen Goeldner E<lt>sgoeldner@cpan.orgE<gt>.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

907

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

908 =head1 COPYRIGHT AND LICENCE

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

909

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

910 This Source Code Form is subject to the terms of the Mozilla Public

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

911 License, v. 2.0. If a copy of the MPL was not distributed with this

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

912 file, You can obtain one at http://mozilla.org/MPL/2.0/.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

913

12

8c8bd15f7a0b Updated copyright year.

Sjoerd Mullender <sjoerd@acm.org>

parents: 11

diff changeset

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

915

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

916

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

917 Contributor(s): Steffen Goeldner.

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

918

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

919 =head1 SEE ALSO

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

920

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

921 =head2 MonetDB

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

922

11

b9e0744b2396 Point to our https site.

Sjoerd Mullender <sjoerd@acm.org>

parents: 4

diff changeset

923 Homepage : https://www.monetdb.org/

0

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

924

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

925 =head2 Perl modules

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

926

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

927 L<DBI>, L<MonetDB::CLI>

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

928

cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.

Sjoerd Mullender <sjoerd@acm.org>

parents:

diff changeset

929 =cut

Mercurial > hg > monetdb-perl

annotate DBD/monetdb.pm @ 56:cbac6d996b87 v1.3