monetdb-perl: DBD/monetdb.pm annotate

author	Sjoerd Mullender <sjoerd@acm.org>
date	Mon, 19 Sep 2016 15:15:52 +0200 (2016-09-19)
parents
children	f899cb48b4cc

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