monetdb-perl: DBD/monetdb.pm annotate

author	Sjoerd Mullender <sjoerd@acm.org>
date	Wed, 02 Jun 2021 17:19:26 +0200 (2021-06-02)
parents	8a0be77580c3
children	44da5de4a725

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
48 1bdbb3ca1ae0 Update internal version numbers, and make sure they get updated in the future. Sjoerd Mullender <sjoerd@acm.org> parents: 17 diff changeset	8 our $VERSION = '1.01';
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
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	121 sub _count_param {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	122 my $statement = shift;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	123 my $num = 0;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	124
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	125 $statement =~ s{
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	126 ' (?: \\. \| [^\\']++ )*+ ' \|
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	127 " (?: \\. \| [^\\"]++ )*+ '
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	128 }{}gx;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	129
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	130 return $statement =~ tr/?/?/;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	131 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	132
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	133
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	134 sub prepare {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	135 my ($dbh, $statement, $attr) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	136
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	137 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	138 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	139 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	140
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	141 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	142
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	143 $sth->STORE('NUM_OF_PARAMS', _count_param($statement));
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	144
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	145 $sth->{monetdb_hdl} = $hdl;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	146 $sth->{monetdb_params} = [];
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	147 $sth->{monetdb_types} = [];
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	148 $sth->{monetdb_rows} = -1;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	149
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	150 return $outer;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	151 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	152
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	153
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	154 sub commit {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	155 my($dbh) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	156
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	157 if ($dbh->FETCH('AutoCommit')) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	158 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	159 return 0;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	160 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	161 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	162 return $dbh->do('commit')
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	163 && $dbh->do('start transaction');
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	164 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	165 else {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	166 return $dbh->do('commit();');
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 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	169
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 sub rollback {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	172 my($dbh) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	173
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	174 if ($dbh->FETCH('AutoCommit')) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	175 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	176 return 0;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	177 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	178 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	179 return $dbh->do('rollback')
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	180 && $dbh->do('start transaction');
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	181 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	182 else {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	183 return $dbh->do('abort();');
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	184 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	185 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	186
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 *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	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 sub monetdb_catalog_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	192 my($dbh) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	193 my $sql = <<'SQL';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	194 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	195 , 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	196 , 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	197 , 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	198 , 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	199 where 0 = 1
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	200 order by table_cat
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	201 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	202 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	203 $sth->execute or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	204 return $sth;
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 sub monetdb_schema_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	209 my($dbh) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	210 my $sql = <<'SQL';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	211 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	212 , "name" as table_schem
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	213 , 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	214 , 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	215 , 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	216 from sys."schemas"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	217 order by table_schem
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	218 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	219 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	220 $sth->execute or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	221 return $sth;
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 my $ttp = {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	226 '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	227 ,'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	228 ,'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	229 ,'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	230 ,'VIEW' => 't."type" = 1 '
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	231 };
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	232
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	233
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	234 sub monetdb_tabletype_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	235 my($dbh) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	236 my $sql = <<"SQL";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	237 select distinct
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	238 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	239 , 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	240 , 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	241 , case
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	242 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	243 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	244 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	245 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	246 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	247 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	248 end as table_type
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	249 , 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	250 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	251 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	252 order by table_type
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	253 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	254 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	255 $sth->execute or return;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	256 return $sth;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	257 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	258
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	259
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	260 sub monetdb_table_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	261 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	262 my $sql = <<"SQL";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	263 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	264 , 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	265 , 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	266 , case
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	267 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	268 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	269 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	270 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	271 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	272 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	273 end as table_type
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	274 , 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	275 from sys."schemas" s
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	276 , sys."tables" t
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	277 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	278 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	279 my @bv = ();
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	280 $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	281 $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	282 if ( @$tt ) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	283 $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	284 for ( @$tt ) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	285 my $p = $ttp->{uc $_};
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	286 $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	287 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	288 $sql .= " )\n";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	289 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	290 $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	291 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	292 $sth->execute(@bv) or return;
1 f899cb48b4cc Turned into independent repository. Sjoerd Mullender <sjoerd@acm.org> parents: 0 diff changeset	293
0 cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	294 $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	295 return $sth;
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
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	299 sub table_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	300 my($dbh, $c, $s, $t, $tt) = @_;
1 f899cb48b4cc Turned into independent repository. Sjoerd Mullender <sjoerd@acm.org> parents: 0 diff changeset	301
0 cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	302 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	303 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	304 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	305 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	306 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	307 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	308 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	309 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	310 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	311 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	312 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	313 my @tt;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	314 if ( defined $tt ) {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	315 @tt = split /,/, $tt;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	316 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	317 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	318 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	319 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	320
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	321
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	322 sub column_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	323 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	324 # 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	325 my $sql = <<'SQL';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	326 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	327 , 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	328 , 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	329 , 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	330 , 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	331 , 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	332 , 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	333 , 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	334 , 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	335 , 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	336 , case c."null"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	337 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	338 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	339 end as nullable
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	340 , 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	341 , 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	342 , 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	343 , 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	344 , 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	345 , 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	346 , case c."null"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	347 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	348 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	349 end as is_nullable
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	350 from sys."schemas" s
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	351 , sys."tables" t
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	352 , sys."columns" c
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	353 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	354 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	355 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	356 my @bv = ();
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	357 $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	358 $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	359 $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	360 $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	361 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	362 $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	363 $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	364 my $rows;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	365 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	366 $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	367 $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	368 $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	369 push @$rows, [ @$row ];
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	370 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	371 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	372 $sth->{Statement},
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	373 { 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	374 );
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	375 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	376
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	377
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	378 sub primary_key_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	379 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	380 # 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	381 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	382 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	383 my $sql = <<'SQL';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	384 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	385 , 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	386 , 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	387 , 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	388 , 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	389 , 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	390 from sys."schemas" s
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	391 , sys."tables" t
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	392 , sys."keys" k
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	393 , sys."objects" c
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	394 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	395 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	396 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	397 and s."name" = ?
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	398 and t."name" = ?
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	399 and k."type" = 0
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	400 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	401 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	402 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	403 $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	404 $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	405 return $sth;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	406 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	407
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 sub foreign_key_info {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	410 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	411 my $sql = <<'SQL';
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	412 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	413 , 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	414 , 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	415 , 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	416 , 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	417 , 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	418 , 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	419 , 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	420 , 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	421 , 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	422 , 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	423 , 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	424 , 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	425 , 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	426 , case ukk."type"
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	427 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	428 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	429 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	430 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	431 from sys."schemas" uks
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	432 , sys."tables" ukt
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	433 , sys."keys" ukk
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	434 , sys."objects" ukc
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	435 , sys."schemas" fks
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	436 , sys."tables" fkt
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	437 , sys."keys" fkk
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	438 , sys."objects" fkc
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	439 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	440 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	441 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	442 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	443 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	444 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	445 -- 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	446 -- and fkk."type" = 2
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	447 -- and fkk."rkey" > -1
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	448 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	449 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	450 SQL
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	451 my @bv = ();
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	452 $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	453 $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	454 $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	455 $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	456 $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	457 $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	458 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	459 $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	460 $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 "";
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	461 return $sth;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	462 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	463
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	464
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	465 *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	466
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	467
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	468 sub tables {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	469 my ($dbh, @args) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	470
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	471 # 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	472 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	473
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	474 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	475 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	476
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	477
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	478 sub disconnect {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	479 my ($dbh) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	480
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	481 delete $dbh->{monetdb_connection};
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	482 $dbh->STORE('Active', 0 );
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	483 return 1;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	484 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	485
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	486
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	487 sub FETCH {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	488 my ($dbh, $key) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	489
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	490 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	491 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	492 }
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	493
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	494
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	495 sub STORE {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	496 my ($dbh, $key, $value) = @_;
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	497
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	498 if ($key eq 'AutoCommit') {
cedccb7e0143 Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a. Sjoerd Mullender <sjoerd@acm.org> parents: diff changeset	499 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	500 my $old_value = $dbh->{$key};

0

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