getinfo.pm

这个是内存数据库的客户端

# The contents of this file are subject to the MonetDB Public License
# Version 1.1 (the "License"); you may not use this file except in
# compliance with the License. You may obtain a copy of the License at
# http://monetdb.cwi.nl/Legal/MonetDBLicense-1.1.html
#
# Software distributed under the License is distributed on an "AS IS"
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
# License for the specific language governing rights and limitations
# under the License.
#
# The Original Code is the MonetDB Database System.
#
# The Initial Developer of the Original Code is CWI.
# Portions created by CWI are Copyright (C) 1997-2007 CWI.
# All Rights Reserved.

package DBD::monetdb::GetInfo;

use strict;
use DBD::monetdb();

my $sql_driver = 'monetdb';
my $sql_ver_fmt = '%02d.%02d.%04d';   # ODBC version string: ##.##.#####
my $sql_driver_ver = sprintf $sql_ver_fmt, split(/\./, $DBD::monetdb::VERSION);

my @Keywords = qw(
BOOLEAN
COLUMNS
FLOOR
IMPORT
REAL
);

sub sql_keywords {
  return join ',', @Keywords;
}

sub sql_dbms_version {
  my $dbh = shift;
  return sprintf $sql_ver_fmt, 4, 6, 2;  # TODO: mapi_...
}

sub sql_data_source_name {
  my $dbh = shift;
  return "dbi:$sql_driver:" . $dbh->{Name};
}

sub sql_user_name {
  my $dbh = shift;
  return $dbh->{Username};
}

my %info = (
     20 => 'Y',                           # SQL_ACCESSIBLE_PROCEDURES
     19 => 'N',                           # SQL_ACCESSIBLE_TABLES
      0 => 0,                             # SQL_ACTIVE_CONNECTIONS
    116 => 0,                             # SQL_ACTIVE_ENVIRONMENTS
      1 => 0,                             # SQL_ACTIVE_STATEMENTS
    169 => 127,                           # SQL_AGGREGATE_FUNCTIONS
    117 => 0,                             # SQL_ALTER_DOMAIN
     86 => 55656,                         # SQL_ALTER_TABLE
  10021 => 0,                             # SQL_ASYNC_MODE
    120 => 2,                             # SQL_BATCH_ROW_COUNT
    121 => 3,                             # SQL_BATCH_SUPPORT
     82 => 0,                             # SQL_BOOKMARK_PERSISTENCE
    114 => 0,                             # SQL_CATALOG_LOCATION
  10003 => 'N',                           # SQL_CATALOG_NAME
     41 => '',                            # SQL_CATALOG_NAME_SEPARATOR
     42 => '',                            # SQL_CATALOG_TERM
     92 => 0,                             # SQL_CATALOG_USAGE
  10004 => 'UTF-8',                       # SQL_COLLATING_SEQUENCE
  10004 => 'UTF-8',                       # SQL_COLLATION_SEQ
     87 => 'Y',                           # SQL_COLUMN_ALIAS
     22 => 0,                             # SQL_CONCAT_NULL_BEHAVIOR
     53 => 2097151,                       # SQL_CONVERT_BIGINT
     54 => 2097151,                       # SQL_CONVERT_BINARY
     55 => 2097151,                       # SQL_CONVERT_BIT
     56 => 2097151,                       # SQL_CONVERT_CHAR
     57 => 2097151,                       # SQL_CONVERT_DATE
     58 => 2097151,                       # SQL_CONVERT_DECIMAL
     59 => 2097151,                       # SQL_CONVERT_DOUBLE
     60 => 2097151,                       # SQL_CONVERT_FLOAT
     48 => 3,                             # SQL_CONVERT_FUNCTIONS
#   173 => undef,                         # SQL_CONVERT_GUID
     61 => 2097151,                       # SQL_CONVERT_INTEGER
    123 => 2097151,                       # SQL_CONVERT_INTERVAL_DAY_TIME
    124 => 2097151,                       # SQL_CONVERT_INTERVAL_YEAR_MONTH
     71 => 2097151,                       # SQL_CONVERT_LONGVARBINARY
     62 => 2097151,                       # SQL_CONVERT_LONGVARCHAR
     63 => 2097151,                       # SQL_CONVERT_NUMERIC
     64 => 2097151,                       # SQL_CONVERT_REAL
     65 => 2097151,                       # SQL_CONVERT_SMALLINT
     66 => 2097151,                       # SQL_CONVERT_TIME
     67 => 2097151,                       # SQL_CONVERT_TIMESTAMP
     68 => 2097151,                       # SQL_CONVERT_TINYINT
     69 => 2097151,                       # SQL_CONVERT_VARBINARY
     70 => 2097151,                       # SQL_CONVERT_VARCHAR
#   122 => undef,                         # SQL_CONVERT_WCHAR
#   125 => undef,                         # SQL_CONVERT_WLONGVARCHAR
#   126 => undef,                         # SQL_CONVERT_WVARCHAR
     74 => 2,                             # SQL_CORRELATION_NAME
    127 => 0,                             # SQL_CREATE_ASSERTION
    128 => 0,                             # SQL_CREATE_CHARACTER_SET
    129 => 0,                             # SQL_CREATE_COLLATION
    130 => 0,                             # SQL_CREATE_DOMAIN
    131 => 3,                             # SQL_CREATE_SCHEMA
    132 => 13851,                         # SQL_CREATE_TABLE
    133 => 0,                             # SQL_CREATE_TRANSLATION
    134 => 3,                             # SQL_CREATE_VIEW
     23 => 0,                             # SQL_CURSOR_COMMIT_BEHAVIOR
     24 => 0,                             # SQL_CURSOR_ROLLBACK_BEHAVIOR
  10001 => 1,                             # SQL_CURSOR_SENSITIVITY
      2 => \&sql_data_source_name,        # SQL_DATA_SOURCE_NAME
     25 => 'N',                           # SQL_DATA_SOURCE_READ_ONLY
    119 => 0,                             # SQL_DATETIME_LITERALS
     17 => 'MonetDB',                     # SQL_DBMS_NAME
     18 => \&sql_dbms_version,            # SQL_DBMS_VERSION
    170 => 0,                             # SQL_DDL_INDEX
     26 => 2,                             # SQL_DEFAULT_TRANSACTION_ISOLATION
     26 => 2,                             # SQL_DEFAULT_TXN_ISOLATION
  10002 => 'N',                           # SQL_DESCRIBE_PARAMETER
#-  171 => '03.52.6019.0000',             # SQL_DM_VER
#-    3 => 28510912,                      # SQL_DRIVER_HDBC
#   135 => undef,                         # SQL_DRIVER_HDESC
#-    4 => 28510880,                      # SQL_DRIVER_HENV
#    76 => undef,                         # SQL_DRIVER_HLIB
#     5 => undef,                         # SQL_DRIVER_HSTMT
      6 => $INC{'DBD/monetdb.pm'},        # SQL_DRIVER_NAME
#-   77 => '03.52',                       # SQL_DRIVER_ODBC_VER
      7 => $sql_driver_ver,               # SQL_DRIVER_VER
    136 => 0,                             # SQL_DROP_ASSERTION
    137 => 0,                             # SQL_DROP_CHARACTER_SET
    138 => 0,                             # SQL_DROP_COLLATION
    139 => 0,                             # SQL_DROP_DOMAIN
    140 => 0,                             # SQL_DROP_SCHEMA
    141 => 0,                             # SQL_DROP_TABLE
    142 => 0,                             # SQL_DROP_TRANSLATION
    143 => 0,                             # SQL_DROP_VIEW
    144 => 0,                             # SQL_DYNAMIC_CURSOR_ATTRIBUTES1
    145 => 0,                             # SQL_DYNAMIC_CURSOR_ATTRIBUTES2
     27 => 'Y',                           # SQL_EXPRESSIONS_IN_ORDERBY
      8 => 1,                             # SQL_FETCH_DIRECTION