Added support for catalog functions:
- SQLColumPrivileges() (odbc-sql-column-privileges) - SQLColumns() (odbc-sql-columns) - SQLForeignKeys() (odbc-sql-foreign-keys) - SQLPrimaryKeys() (odbc-sql-primary-keys) - SQLProcedureColumns() (odbc-sql-proecedure-columns) - SQLProcedures() (odbc-sql-procedures) - SQLSpecialColumns() (odbc-sql-special-columns) - SQLStatistics() (odbc-sql-statistics) - SQLTablePrivileges() (odbc-sql-table-privileges) - SQLTables() (odbc-sql-tables)
This commit is contained in:
eknauel
parent
1599136ffa
commit
7ddfc3211c
533
scsh/odbc/odbc.c
533
scsh/odbc/odbc.c
|
|
@ -1683,6 +1683,529 @@ s48_value odbc_sql_describe_col(s48_value stmt_handle, s48_value column_number)
|
||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
/* Returns a list of columns and associated privileges for one or more tables */
|
||||||
|
void odbc_sql_column_privileges(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value table_name,
|
||||||
|
s48_value column_name)
|
||||||
|
{
|
||||||
|
SQLHSTMT sh;
|
||||||
|
SQLCHAR *catalog, *schema, *table, *column;
|
||||||
|
SQLRETURN retval;
|
||||||
|
|
||||||
|
ODBC_DEBUG_PRINTF("odbc_sql_column_privileges\n");
|
||||||
|
|
||||||
|
sh = (SQLHSTMT) s48_extract_integer(stmt_handle);
|
||||||
|
catalog = (SQLCHAR *) s48_extract_string(catalog_name);
|
||||||
|
schema = (SQLCHAR *) s48_extract_string(schema_name);
|
||||||
|
table = (SQLCHAR *) s48_extract_string(table_name);
|
||||||
|
column = (SQLCHAR *) s48_extract_string(column_name);
|
||||||
|
|
||||||
|
retval = SQLColumnPrivileges(sh,
|
||||||
|
catalog, S48_STRING_LENGTH(catalog_name),
|
||||||
|
schema, S48_STRING_LENGTH(schema_name),
|
||||||
|
table, S48_STRING_LENGTH(table_name),
|
||||||
|
column, S48_STRING_LENGTH(column_name));
|
||||||
|
|
||||||
|
switch (retval)
|
||||||
|
{
|
||||||
|
case SQL_SUCCESS: case SQL_SUCCESS_WITH_INFO:
|
||||||
|
{
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
case SQL_STILL_EXECUTING:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLColumnPrivileges returned SQL_STILL_EXECUTING. Not implemented yet");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_ERROR:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLColumnPrivileges returned SQL_ERROR");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_INVALID_HANDLE:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLColumnPrivileges got invalid handle");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
default:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLColumnPrivileges returned unknown error code");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Returns the list of column names in a specified table */
|
||||||
|
void odbc_sql_columns(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value table_name,
|
||||||
|
s48_value column_name)
|
||||||
|
{
|
||||||
|
SQLHSTMT sh;
|
||||||
|
SQLCHAR *catalog, *schema, *table, *column;
|
||||||
|
SQLRETURN retval;
|
||||||
|
|
||||||
|
ODBC_DEBUG_PRINTF("odbc_sql_columns\n");
|
||||||
|
|
||||||
|
sh = (SQLHSTMT) s48_extract_integer(stmt_handle);
|
||||||
|
catalog = (SQLCHAR *) s48_extract_string(catalog_name);
|
||||||
|
schema = (SQLCHAR *) s48_extract_string(schema_name);
|
||||||
|
table = (SQLCHAR *) s48_extract_string(table_name);
|
||||||
|
column = (SQLCHAR *) s48_extract_string(column_name);
|
||||||
|
|
||||||
|
retval = SQLColumns(sh,
|
||||||
|
catalog, S48_STRING_LENGTH(catalog_name),
|
||||||
|
schema, S48_STRING_LENGTH(schema_name),
|
||||||
|
table, S48_STRING_LENGTH(table_name),
|
||||||
|
column, S48_STRING_LENGTH(column_name));
|
||||||
|
|
||||||
|
switch (retval)
|
||||||
|
{
|
||||||
|
case SQL_SUCCESS: case SQL_SUCCESS_WITH_INFO:
|
||||||
|
{
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
case SQL_STILL_EXECUTING:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLColumns returned SQL_STILL_EXECUTING. Not implemented yet");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_ERROR:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLColumns returned SQL_ERROR");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_INVALID_HANDLE:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLColumns got invalid handle");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
default:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLColumns returned unknown error code");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Returns a list of columns names that make up foreign keys,
|
||||||
|
if the exist for a specified table */
|
||||||
|
void odbc_sql_foreign_keys(s48_value stmt_handle, s48_value pk_catalog_name,
|
||||||
|
s48_value pk_schema_name, s48_value pk_table_name,
|
||||||
|
s48_value fk_catalog_name, s48_value fk_schema_name,
|
||||||
|
s48_value fk_table_name)
|
||||||
|
{
|
||||||
|
SQLHSTMT sh;
|
||||||
|
SQLCHAR *pk_catalog, *pk_schema, *pk_table;
|
||||||
|
SQLCHAR *fk_catalog, *fk_schema, *fk_table;
|
||||||
|
SQLRETURN retval;
|
||||||
|
|
||||||
|
ODBC_DEBUG_PRINTF("odbc_sql_foreign_keys\n");
|
||||||
|
|
||||||
|
sh = (SQLHSTMT) s48_extract_integer(stmt_handle);
|
||||||
|
pk_catalog = (SQLCHAR *) s48_extract_string(pk_catalog_name);
|
||||||
|
pk_schema = (SQLCHAR *) s48_extract_string(pk_schema_name);
|
||||||
|
pk_table = (SQLCHAR *) s48_extract_string(pk_table_name);
|
||||||
|
fk_catalog = (SQLCHAR *) s48_extract_string(fk_catalog_name);
|
||||||
|
fk_schema = (SQLCHAR *) s48_extract_string(fk_schema_name);
|
||||||
|
fk_table = (SQLCHAR *) s48_extract_string(fk_table_name);
|
||||||
|
|
||||||
|
retval = SQLForeignKeys(sh,
|
||||||
|
pk_catalog, S48_STRING_LENGTH(pk_catalog_name),
|
||||||
|
pk_schema, S48_STRING_LENGTH(pk_schema_name),
|
||||||
|
pk_table, S48_STRING_LENGTH(pk_table_name),
|
||||||
|
fk_catalog, S48_STRING_LENGTH(fk_catalog_name),
|
||||||
|
fk_schema, S48_STRING_LENGTH(fk_schema_name),
|
||||||
|
fk_table, S48_STRING_LENGTH(fk_table_name));
|
||||||
|
|
||||||
|
switch (retval)
|
||||||
|
{
|
||||||
|
case SQL_SUCCESS: case SQL_SUCCESS_WITH_INFO:
|
||||||
|
{
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
case SQL_STILL_EXECUTING:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLForeignKeys returned SQL_STILL_EXECUTING. Not implemented");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_ERROR:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLForeignKeys returned SQL_ERROR");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_INVALID_HANDLE:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLForeignKeys got invalid handle");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
default:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLForeignKeys returned unknwon error code");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Returns the list of column names that make up the primary key for a table */
|
||||||
|
void odbc_sql_primary_keys(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value table_name)
|
||||||
|
{
|
||||||
|
SQLHSTMT sh;
|
||||||
|
SQLCHAR *catalog, *schema, *table;
|
||||||
|
SQLRETURN retval;
|
||||||
|
|
||||||
|
ODBC_DEBUG_PRINTF("odbc_sql_primary_keys\n");
|
||||||
|
|
||||||
|
sh = (SQLHSTMT) s48_extract_integer(stmt_handle);
|
||||||
|
catalog = (SQLCHAR *) s48_extract_string(catalog_name);
|
||||||
|
schema = (SQLCHAR *) s48_extract_string(schema_name);
|
||||||
|
table = (SQLCHAR *) s48_extract_string(table_name);
|
||||||
|
|
||||||
|
retval = SQLPrimaryKeys(sh,
|
||||||
|
catalog, S48_STRING_LENGTH(catalog_name),
|
||||||
|
schema, S48_STRING_LENGTH(schema_name),
|
||||||
|
table, S48_STRING_LENGTH(table_name));
|
||||||
|
|
||||||
|
switch (retval)
|
||||||
|
{
|
||||||
|
case SQL_SUCCESS: case SQL_SUCCESS_WITH_INFO:
|
||||||
|
{
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
case SQL_STILL_EXECUTING:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLPrimaryKeys returned SQL_STILL_EXECUTING. Not implemented");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_ERROR:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLPrimaryKeys returned SQL_ERROR");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_INVALID_HANDLE:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLPrimaryKeys got invalid handle");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
default:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLPrimaryKeys returned unknown error code");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Returns the list of input and output parameters, as well as the columns
|
||||||
|
that make up the result set for the specified procedures */
|
||||||
|
void odbc_sql_procedure_columns(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value proc_name,
|
||||||
|
s48_value column_name)
|
||||||
|
{
|
||||||
|
SQLHSTMT sh;
|
||||||
|
SQLCHAR *catalog, *schema, *proc, *column;
|
||||||
|
SQLRETURN retval;
|
||||||
|
|
||||||
|
ODBC_DEBUG_PRINTF("odbc_sql_procedure_columns\n");
|
||||||
|
|
||||||
|
sh = (SQLHSTMT) s48_extract_integer(stmt_handle);
|
||||||
|
catalog = (SQLCHAR *) s48_extract_string(catalog_name);
|
||||||
|
schema = (SQLCHAR *) s48_extract_string(schema_name);
|
||||||
|
proc = (SQLCHAR *) s48_extract_string(proc_name);
|
||||||
|
column = (SQLCHAR *) s48_extract_string(column_name);
|
||||||
|
|
||||||
|
retval = SQLProcedureColumns(sh,
|
||||||
|
catalog, S48_STRING_LENGTH(catalog_name),
|
||||||
|
schema, S48_STRING_LENGTH(schema_name),
|
||||||
|
proc, S48_STRING_LENGTH(proc_name),
|
||||||
|
column, S48_STRING_LENGTH(column_name));
|
||||||
|
|
||||||
|
switch (retval)
|
||||||
|
{
|
||||||
|
case SQL_SUCCESS: case SQL_SUCCESS_WITH_INFO:
|
||||||
|
{
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
case SQL_STILL_EXECUTING:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLProcedureColumns returned SQL_STILL_EXECUTING. Not implemented");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_ERROR:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLProcedureColumns returned SQL_ERROR");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_INVALID_HANDLE:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLProcedureColumns got invalid handle");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
default:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLProcedureColumns return unknown error code");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Returns the list of procedure names stored in a specific data source. */
|
||||||
|
void odbc_sql_procedures(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value proc_name)
|
||||||
|
{
|
||||||
|
SQLHSTMT sh;
|
||||||
|
SQLCHAR *catalog, *schema, *proc;
|
||||||
|
SQLRETURN retval;
|
||||||
|
|
||||||
|
ODBC_DEBUG_PRINTF("odbc_sql_procedures\n");
|
||||||
|
|
||||||
|
sh = (SQLHSTMT) s48_extract_integer(stmt_handle);
|
||||||
|
catalog = (SQLCHAR *) s48_extract_string(catalog_name);
|
||||||
|
schema = (SQLCHAR *) s48_extract_string(schema_name);
|
||||||
|
proc = (SQLCHAR *) s48_extract_string(proc_name);
|
||||||
|
|
||||||
|
retval = SQLProcedures(sh,
|
||||||
|
catalog, S48_STRING_LENGTH(catalog_name),
|
||||||
|
schema, S48_STRING_LENGTH(schema_name),
|
||||||
|
proc, S48_STRING_LENGTH(proc_name));
|
||||||
|
|
||||||
|
switch (retval)
|
||||||
|
{
|
||||||
|
case SQL_SUCCESS: case SQL_SUCCESS_WITH_INFO:
|
||||||
|
{
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
case SQL_STILL_EXECUTING:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLProcedures returned SQL_STILL_EXECUTING. Not implemented");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_ERROR:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLProcedures returned SQL_ERROR");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_INVALID_HANDLE:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLProcedures got invalid handle");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
default:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLProcedures returned unknown error code");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Returns information about the optimal set of columns that uniquely identifies
|
||||||
|
a row in a specified table, or the columns that are automatically updated
|
||||||
|
when any value in the row is updated by a transaction */
|
||||||
|
void odbc_sql_special_columns(s48_value stmt_handle, s48_value identifier_type,
|
||||||
|
s48_value catalog_name, s48_value schema_name,
|
||||||
|
s48_value table_name, s48_value scope,
|
||||||
|
s48_value nullable)
|
||||||
|
{
|
||||||
|
SQLHSTMT sh;
|
||||||
|
SQLCHAR *catalog, *schema, *table;
|
||||||
|
SQLSMALLINT s, n, it;
|
||||||
|
SQLRETURN retval;
|
||||||
|
|
||||||
|
ODBC_DEBUG_PRINTF("odbc_sql_special_columns\n");
|
||||||
|
|
||||||
|
sh = (SQLHSTMT) s48_extract_integer(stmt_handle);
|
||||||
|
it = (SQLSMALLINT) s48_extract_integer(identifier_type);
|
||||||
|
catalog = (SQLCHAR *) s48_extract_string(catalog_name);
|
||||||
|
schema = (SQLCHAR *) s48_extract_string(schema_name);
|
||||||
|
table = (SQLCHAR *) s48_extract_string(table_name);
|
||||||
|
s = (SQLSMALLINT) s48_extract_integer(scope);
|
||||||
|
n = (SQLSMALLINT) s48_extract_integer(nullable);
|
||||||
|
|
||||||
|
retval = SQLSpecialColumns(sh, it,
|
||||||
|
catalog, S48_STRING_LENGTH(catalog_name),
|
||||||
|
schema, S48_STRING_LENGTH(schema_name),
|
||||||
|
table, S48_STRING_LENGTH(table_name),
|
||||||
|
s, n);
|
||||||
|
|
||||||
|
switch (retval)
|
||||||
|
{
|
||||||
|
case SQL_SUCCESS: case SQL_SUCCESS_WITH_INFO:
|
||||||
|
{
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
case SQL_STILL_EXECUTING:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLSpecialColumns returned SQL_STILL_EXECUTING. Not implemented");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_ERROR:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLSpecialColumns returned SQL_ERROR");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_INVALID_HANDLE:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLSpecialColumns got invalid handle");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
default:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLSpecialColumns returned unknown error code");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Returns statistics about a single table and the list of indexes associated
|
||||||
|
with the table */
|
||||||
|
void odbc_sql_statistics(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value table_name,
|
||||||
|
s48_value unique, s48_value reserved)
|
||||||
|
{
|
||||||
|
SQLHSTMT sh;
|
||||||
|
SQLCHAR *catalog, *schema, *table;
|
||||||
|
SQLSMALLINT u, r;
|
||||||
|
SQLRETURN retval;
|
||||||
|
|
||||||
|
ODBC_DEBUG_PRINTF("odbc_sql_statistics\n");
|
||||||
|
|
||||||
|
sh = (SQLHSTMT) s48_extract_integer(stmt_handle);
|
||||||
|
catalog = (SQLCHAR *) s48_extract_string(catalog_name);
|
||||||
|
schema = (SQLCHAR *) s48_extract_string(schema_name);
|
||||||
|
table = (SQLCHAR *) s48_extract_string(table_name);
|
||||||
|
u = (SQLSMALLINT) s48_extract_integer(unique);
|
||||||
|
r = (SQLSMALLINT) s48_extract_integer(reserved);
|
||||||
|
|
||||||
|
retval = SQLStatistics(sh,
|
||||||
|
catalog, S48_STRING_LENGTH(catalog_name),
|
||||||
|
schema, S48_STRING_LENGTH(schema_name),
|
||||||
|
table, S48_STRING_LENGTH(table_name),
|
||||||
|
u, r);
|
||||||
|
|
||||||
|
switch (retval)
|
||||||
|
{
|
||||||
|
case SQL_SUCCESS: case SQL_SUCCESS_WITH_INFO:
|
||||||
|
{
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
case SQL_STILL_EXECUTING:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLStatistics returned SQL_STILL_EXECUTING. Not implemented");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_ERROR:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLStatistics returned SQL_ERROR");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_INVALID_HANDLE:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLStatistics got invalid handle");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
default:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLStatistics returned unknown error code");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Returns a list of tables and the privileges associated with each table */
|
||||||
|
void odbc_sql_table_privileges(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value table_name)
|
||||||
|
{
|
||||||
|
SQLHSTMT sh;
|
||||||
|
SQLCHAR *catalog, *schema, *table;
|
||||||
|
SQLRETURN retval;
|
||||||
|
|
||||||
|
ODBC_DEBUG_PRINTF("odbc_sql_table_privileges\n");
|
||||||
|
|
||||||
|
sh = (SQLHSTMT) s48_extract_integer(stmt_handle);
|
||||||
|
catalog = (SQLCHAR *) s48_extract_string(catalog_name);
|
||||||
|
schema = (SQLCHAR *) s48_extract_string(schema_name);
|
||||||
|
table = (SQLCHAR *) s48_extract_string(table_name);
|
||||||
|
|
||||||
|
retval = SQLTablePrivileges(sh,
|
||||||
|
catalog, S48_STRING_LENGTH(catalog_name),
|
||||||
|
schema, S48_STRING_LENGTH(schema_name),
|
||||||
|
table, S48_STRING_LENGTH(table_name));
|
||||||
|
|
||||||
|
switch (retval)
|
||||||
|
{
|
||||||
|
case SQL_SUCCESS: case SQL_SUCCESS_WITH_INFO:
|
||||||
|
{
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
case SQL_STILL_EXECUTING:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLTablePrivileges returned SQL_STILL_EXECUTING. Not implemented");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_ERROR:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLTablePrivileges returned SQL_ERROR");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_INVALID_HANDLE:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLTablePrivileges got invalid handle");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
default:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLTablePrivileges returned unknown error code");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Returns the list of table names stored in a specific data source */
|
||||||
|
void odbc_sql_tables(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value table_name,
|
||||||
|
s48_value table_type)
|
||||||
|
{
|
||||||
|
SQLHSTMT sh;
|
||||||
|
SQLCHAR *catalog, *schema, *tablen, *tablet;
|
||||||
|
SQLRETURN retval;
|
||||||
|
|
||||||
|
ODBC_DEBUG_PRINTF("odbc_sql_tables\n");
|
||||||
|
|
||||||
|
retval = SQLTables(sh,
|
||||||
|
catalog, S48_STRING_LENGTH(catalog_name),
|
||||||
|
schema, S48_STRING_LENGTH(schema_name),
|
||||||
|
tablen, S48_STRING_LENGTH(table_name),
|
||||||
|
tablet, S48_STRING_LENGTH(table_type));
|
||||||
|
|
||||||
|
switch (retval)
|
||||||
|
{
|
||||||
|
case SQL_SUCCESS: case SQL_SUCCESS_WITH_INFO:
|
||||||
|
{
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
case SQL_STILL_EXECUTING:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLTables returned SQL_STILL_EXECUTING. Not implemented");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_ERROR:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLTables returned SQL_ERROR");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case SQL_INVALID_HANDLE:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLTables got invalid handle");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
default:
|
||||||
|
{
|
||||||
|
ODBC_RAISE_EXCEPTION("SQLTables returned unknown error code");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
*
|
*
|
||||||
* PART 9
|
* PART 9
|
||||||
|
|
@ -2225,6 +2748,16 @@ void s48_init_odbc(void)
|
||||||
S48_EXPORT_FUNCTION(odbc_sql_describe_col);
|
S48_EXPORT_FUNCTION(odbc_sql_describe_col);
|
||||||
|
|
||||||
/* PART 8 */
|
/* PART 8 */
|
||||||
|
S48_EXPORT_FUNCTION(odbc_sql_column_privileges);
|
||||||
|
S48_EXPORT_FUNCTION(odbc_sql_columns);
|
||||||
|
S48_EXPORT_FUNCTION(odbc_sql_foreign_keys);
|
||||||
|
S48_EXPORT_FUNCTION(odbc_sql_primary_keys);
|
||||||
|
S48_EXPORT_FUNCTION(odbc_sql_procedure_columns);
|
||||||
|
S48_EXPORT_FUNCTION(odbc_sql_procedures);
|
||||||
|
S48_EXPORT_FUNCTION(odbc_sql_special_columns);
|
||||||
|
S48_EXPORT_FUNCTION(odbc_sql_statistics);
|
||||||
|
S48_EXPORT_FUNCTION(odbc_sql_table_privileges);
|
||||||
|
S48_EXPORT_FUNCTION(odbc_sql_tables);
|
||||||
|
|
||||||
/* PART 9 */
|
/* PART 9 */
|
||||||
S48_EXPORT_FUNCTION(odbc_sql_free_statement);
|
S48_EXPORT_FUNCTION(odbc_sql_free_statement);
|
||||||
|
|
|
||||||
|
|
@ -254,6 +254,60 @@ s48_value odbc_sql_describe_col(s48_value stmt_handle, s48_value column_number);
|
||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
/* Returns a list of columns and associated privileges for one or more tables */
|
||||||
|
void odbc_sql_column_privileges(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value table_name,
|
||||||
|
s48_value column_name);
|
||||||
|
|
||||||
|
/* Returns the list of column names in a specified table */
|
||||||
|
void odbc_sql_columns(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value table_name,
|
||||||
|
s48_value column_name);
|
||||||
|
|
||||||
|
/* Returns a list of columns names that make up foreign keys,
|
||||||
|
if the exist for a specified table */
|
||||||
|
void odbc_sql_foreign_keys(s48_value stmt_handle, s48_value pk_catalog_name,
|
||||||
|
s48_value pk_schema_name, s48_value pk_table_name,
|
||||||
|
s48_value fk_catalog_name, s48_value fk_schema_name,
|
||||||
|
s48_value fk_table_name);
|
||||||
|
|
||||||
|
/* Returns the list of column names that make up the primary key for a table */
|
||||||
|
void odbc_sql_primary_keys(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value table_name);
|
||||||
|
|
||||||
|
/* Returns the list of input and output parameters, as well as the columns
|
||||||
|
that make up the result set for the specified procedures */
|
||||||
|
void odbc_sql_procedure_columns(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value proc_name,
|
||||||
|
s48_value column_name);
|
||||||
|
|
||||||
|
/* Returns the list of procedure names stored in a specific data source. */
|
||||||
|
void odbc_sql_procedures(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value proc_name);
|
||||||
|
|
||||||
|
/* Returns information about the optimal set of columns that uniquely identifies
|
||||||
|
a row in a specified table, or the columns that are automatically updated
|
||||||
|
when any value in the row is updated by a transaction */
|
||||||
|
void odbc_sql_special_columns(s48_value stmt_handle, s48_value identifier_type,
|
||||||
|
s48_value catalog_name, s48_value schema_name,
|
||||||
|
s48_value table_name, s48_value scope,
|
||||||
|
s48_value nullable);
|
||||||
|
|
||||||
|
/* Returns statistics about a single table and the list of indexes associated
|
||||||
|
with the table */
|
||||||
|
void odbc_sql_statistics(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value table_name,
|
||||||
|
s48_value unique, s48_value reserved);
|
||||||
|
|
||||||
|
/* Returns a list of tables and the privileges associated with each table */
|
||||||
|
void odbc_sql_table_privileges(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value table_name);
|
||||||
|
|
||||||
|
/* Returns the list of table names stored in a specific data source */
|
||||||
|
void odbc_sql_tables(s48_value stmt_handle, s48_value catalog_name,
|
||||||
|
s48_value schema_name, s48_value table_name,
|
||||||
|
s48_value table_type);
|
||||||
|
|
||||||
/*
|
/*
|
||||||
*
|
*
|
||||||
* PART 9
|
* PART 9
|
||||||
|
|
|
||||||
|
|
@ -367,6 +367,27 @@
|
||||||
(define sql-datatype-time 92)
|
(define sql-datatype-time 92)
|
||||||
(define sql-datatype-timestamp 93)
|
(define sql-datatype-timestamp 93)
|
||||||
|
|
||||||
|
; possible identifier-type arguments for SQLSpecialColumns() (odbc-sql-special-columns)
|
||||||
|
(define sql-best-rowid 1)
|
||||||
|
(define sql-rowver 2)
|
||||||
|
|
||||||
|
; possible scope arguments for SQLSpecialColumns() (odbc-sql-special-columns)
|
||||||
|
(define sql-scope-currow 0)
|
||||||
|
(define sql-scope-transaction 1)
|
||||||
|
(define sql-scope-session 2)
|
||||||
|
|
||||||
|
; possible nullable arguments for SQLSpecialColumns() (odbc-sql-special-columns)
|
||||||
|
(define sql-no-nulls 0)
|
||||||
|
(define sql-nullable 1)
|
||||||
|
|
||||||
|
; possible unique arguments for SQLStatistics() (odbc-sql-statistics)
|
||||||
|
(define sql-index-unique 0)
|
||||||
|
(define sql-index-all 1)
|
||||||
|
|
||||||
|
; possible reserved arguments for SQLStatistics() (odbc-sql-statistics)
|
||||||
|
(define sql-ensure 1)
|
||||||
|
(define sql-quick 0)
|
||||||
|
|
||||||
;;; ODBC return values
|
;;; ODBC return values
|
||||||
(define sql-error -1)
|
(define sql-error -1)
|
||||||
(define sql-success 0)
|
(define sql-success 0)
|
||||||
|
|
@ -649,7 +670,111 @@
|
||||||
|
|
||||||
;;; PART 8
|
;;; PART 8
|
||||||
|
|
||||||
;;; PART 9
|
(define (odbc-sql-column-privileges stmt-handle catalog-name schema-name
|
||||||
|
table-name column-name)
|
||||||
|
(check-arg statement-handle? stmt-handle odbc-sql-column-privileges)
|
||||||
|
(odbc-sql-column-privileges-internal (statement-handle-handle stmt-handle)
|
||||||
|
catalog-name schema-name
|
||||||
|
table-name column-name))
|
||||||
|
|
||||||
|
(import-lambda-definition odbc-sql-column-privileges-internal
|
||||||
|
(stmt-handle catalog-name schema-name table-name column-name)
|
||||||
|
"odbc_sql_column_privileges")
|
||||||
|
|
||||||
|
(define (odbc-sql-columns stmt-handle catalog-name schema-name
|
||||||
|
table-name column-name)
|
||||||
|
(check-arg statement-handle? stmt-handle odbc-sql-columns)
|
||||||
|
(odbc-sql-columns-internal (statement-handle-handle stmt-handle)
|
||||||
|
catalog-name schema-name table-name column-name))
|
||||||
|
|
||||||
|
(import-lambda-definition odbc-sql-columns-internal
|
||||||
|
(stmt-handle catalog-name schema-name table-name column-name)
|
||||||
|
"odbc_sql_columns")
|
||||||
|
|
||||||
|
(define (odbc-sql-foreign-keys stmt-handle
|
||||||
|
pk-catalog-name pk-schema-name pk-table-name
|
||||||
|
fk-catalog-name fk-schema-name fk-table-name)
|
||||||
|
(check-arg statement-handle? stmt-handle odbc-sql-foreign-keys)
|
||||||
|
(odbc-sql-foreign-keys-internal (statement-handle-handle stmt-handle)
|
||||||
|
pk-catalog-name pk-schema-name pk-table-name
|
||||||
|
fk-catalog-name fk-schema-name fk-table-name))
|
||||||
|
|
||||||
|
(import-lambda-definition odbc-sql-foreign-keys-internal
|
||||||
|
(stmt-handle
|
||||||
|
pk-catalog-name pk-schema-name pk-table-name
|
||||||
|
fk-catalog-name fk-schema-name fk-table-name)
|
||||||
|
"odbc_sql_foreign_keys")
|
||||||
|
|
||||||
|
(define (odbc-sql-primary-keys stmt-handle catalog-name schema-name table-name)
|
||||||
|
(check-arg statement-handle? stmt-handle odbc-sql-primary-keys)
|
||||||
|
(odbc-sql-primary-keys-internal (statement-handle-handle stmt-handle)
|
||||||
|
catalog-name schema-name table-name))
|
||||||
|
|
||||||
|
(import-lambda-definition odbc-sql-primary-keys-internal
|
||||||
|
(stmt-handle catalog-name schema-name table-name)
|
||||||
|
"odbc_sql_primary_keys")
|
||||||
|
|
||||||
|
(define (odbc-sql-procedure-columns stmt-handle catalog-name schema-name
|
||||||
|
proc-name column-name)
|
||||||
|
(check-arg statement-handle? stmt-handle odbc-sql-procedure-columns)
|
||||||
|
(odbc-sql-procedure-columns-internal (statement-handle-handle stmt-handle)
|
||||||
|
catalog-name schema-name proc-name column-name))
|
||||||
|
|
||||||
|
(import-lambda-definition odbc-sql-procedure-columns-internal
|
||||||
|
(stmt-handle catalog-name schema-name proc-name column-name)
|
||||||
|
"odbc_sql_procedure_columns")
|
||||||
|
|
||||||
|
(define (odbc-sql-procedures stmt-handle catalog-name schema-name proc-name)
|
||||||
|
(check-arg statement-handle? stmt-handle odbc-sql-procedures)
|
||||||
|
(odbc-sql-procedures-internal (statement-handle-handle stmt-handle)
|
||||||
|
catalog-name schema-name proc-name))
|
||||||
|
|
||||||
|
(import-lambda-definition odbc-sql-procedures-internal
|
||||||
|
(stmt-handle catalog-name schema-name proc-name)
|
||||||
|
"odbc_sql_procedures")
|
||||||
|
|
||||||
|
(define (odbc-sql-special-columns stmt-handle identifier-type catalog-name
|
||||||
|
schema-name table-name scope nullable)
|
||||||
|
(check-arg statement-handle? stmt-handle odbc-sql-special-columns)
|
||||||
|
(odbc-sql-special-columns-internal (statement-handle-handle stmt-handle)
|
||||||
|
identifier-type catalog-name
|
||||||
|
schema-name table-name schema-name nullable))
|
||||||
|
|
||||||
|
(import-lambda-definition odbc-sql-special-columns-internal
|
||||||
|
(stmt-handle identifier-type catalog-name
|
||||||
|
schema-name table-name scope nullable?)
|
||||||
|
"odbc_sql_special_columns")
|
||||||
|
|
||||||
|
(define (odbc-sql-statistics stmt-handle catalog-name schema-name table-name
|
||||||
|
unique reserved)
|
||||||
|
(check-arg statement-handle? stmt-handle odbc-sql-statistics)
|
||||||
|
(odbc-sql-statistics-internal (statement-handle-handle stmt-handle)
|
||||||
|
catalog-name schema-name table-name unique reserved))
|
||||||
|
|
||||||
|
(import-lambda-definition odbc-sql-statistics-internal
|
||||||
|
(stmt-handle catalog-name schema-name table-name
|
||||||
|
unique reserved)
|
||||||
|
"odbc_sql_statistics")
|
||||||
|
|
||||||
|
(define (odbc-sql-table-privileges stmt-handle catalog-name schema-name table-name)
|
||||||
|
(check-arg statement-handle? stmt-handle odbc-sql-table-privileges)
|
||||||
|
(odbc-sql-table-privileges-internal (statement-handle-handle stmt-handle)
|
||||||
|
catalog-name schema-name table-name))
|
||||||
|
|
||||||
|
(import-lambda-definition odbc-sql-table-privileges-internal
|
||||||
|
(stmt-handle catalog-name schema-name table-name)
|
||||||
|
"odbc_sql_table_privileges")
|
||||||
|
|
||||||
|
(define (odbc-sql-tables stmt-handle catalog-name schema-name table-name table-type)
|
||||||
|
(check-arg statement-handle? stmt-handle odbc-sql-tables)
|
||||||
|
(odbc-sql-tables-internal (statement-handle-handle stmt-handle)
|
||||||
|
catalog-name schema-name table-name table-type))
|
||||||
|
|
||||||
|
(import-lambda-definition odbc-sql-tables-internal
|
||||||
|
(stmt-handle catalog-name schema-name table-type table-type)
|
||||||
|
"odbc_sql_tables")
|
||||||
|
|
||||||
|
;;; part 9
|
||||||
|
|
||||||
(define (odbc-sql-free-statement stmt-handle option)
|
(define (odbc-sql-free-statement stmt-handle option)
|
||||||
(check-arg statement-handle? stmt-handle odbc-sql-free-statement)
|
(check-arg statement-handle? stmt-handle odbc-sql-free-statement)
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue