mirror of
https://github.com/MariaDB/server.git
synced 2025-01-16 12:02:42 +01:00
1698b4f2dd
into zippy.cornsilk.net:/home/cmiller/work/mysql/mysql-5.0-enterprise-formergecomm include/config-win.h: Auto merged myisam/mi_open.c: Auto merged mysql-test/r/func_in.result: Auto merged mysql-test/r/information_schema.result: Auto merged mysql-test/r/information_schema_db.result: Auto merged mysql-test/t/func_in.test: Auto merged ndb/src/ndbapi/DictCache.cpp: Auto merged sql/ha_archive.cc: Auto merged sql/ha_myisam.cc: Auto merged sql/ha_ndbcluster.cc: Auto merged sql/item_cmpfunc.cc: Auto merged sql/item_func.cc: Auto merged sql/lex.h: Auto merged sql/lock.cc: Auto merged sql/log_event.cc: Auto merged sql/mysql_priv.h: Auto merged sql/mysqld.cc: Auto merged sql/slave.cc: Auto merged sql/sp_head.cc: Auto merged sql/sql_base.cc: Auto merged sql/sql_cache.cc: Auto merged sql/sql_class.cc: Auto merged sql/sql_class.h: Auto merged sql/sql_delete.cc: Auto merged sql/sql_insert.cc: Auto merged sql/sql_lex.cc: Auto merged sql/sql_lex.h: Auto merged sql/sql_prepare.cc: Auto merged sql/sql_repl.cc: Auto merged sql/sql_select.cc: Auto merged sql/sql_show.cc: Auto merged sql/sql_table.cc: Auto merged sql/sql_update.cc: Auto merged sql/sql_view.cc: Auto merged sql/sql_yacc.yy: Auto merged sql/table.h: Auto merged configure.in: Manual merge, convert to default community-features off. sql/set_var.cc: Manual merge. sql/sql_parse.cc: Manual merge. support-files/mysql.spec.sh: Manual merge. Disable the community-server advertisement for Enterprise. Re-enable this later.
3654 lines
94 KiB
C++
3654 lines
94 KiB
C++
/* Copyright (C) 2002 MySQL AB
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; version 2 of the License.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */
|
|
|
|
#include "mysql_priv.h"
|
|
#ifdef USE_PRAGMA_IMPLEMENTATION
|
|
#pragma implementation
|
|
#endif
|
|
#include "sp_head.h"
|
|
#include "sp.h"
|
|
#include "sp_pcontext.h"
|
|
#include "sp_rcontext.h"
|
|
#include "sp_cache.h"
|
|
|
|
/*
|
|
Sufficient max length of printed destinations and frame offsets (all uints).
|
|
*/
|
|
#define SP_INSTR_UINT_MAXLEN 8
|
|
#define SP_STMT_PRINT_MAXLEN 40
|
|
|
|
|
|
#include <my_user.h>
|
|
|
|
Item_result
|
|
sp_map_result_type(enum enum_field_types type)
|
|
{
|
|
switch (type) {
|
|
case MYSQL_TYPE_BIT:
|
|
case MYSQL_TYPE_TINY:
|
|
case MYSQL_TYPE_SHORT:
|
|
case MYSQL_TYPE_LONG:
|
|
case MYSQL_TYPE_LONGLONG:
|
|
case MYSQL_TYPE_INT24:
|
|
return INT_RESULT;
|
|
case MYSQL_TYPE_DECIMAL:
|
|
case MYSQL_TYPE_NEWDECIMAL:
|
|
return DECIMAL_RESULT;
|
|
case MYSQL_TYPE_FLOAT:
|
|
case MYSQL_TYPE_DOUBLE:
|
|
return REAL_RESULT;
|
|
default:
|
|
return STRING_RESULT;
|
|
}
|
|
}
|
|
|
|
|
|
Item::Type
|
|
sp_map_item_type(enum enum_field_types type)
|
|
{
|
|
switch (type) {
|
|
case MYSQL_TYPE_BIT:
|
|
case MYSQL_TYPE_TINY:
|
|
case MYSQL_TYPE_SHORT:
|
|
case MYSQL_TYPE_LONG:
|
|
case MYSQL_TYPE_LONGLONG:
|
|
case MYSQL_TYPE_INT24:
|
|
return Item::INT_ITEM;
|
|
case MYSQL_TYPE_DECIMAL:
|
|
case MYSQL_TYPE_NEWDECIMAL:
|
|
return Item::DECIMAL_ITEM;
|
|
case MYSQL_TYPE_FLOAT:
|
|
case MYSQL_TYPE_DOUBLE:
|
|
return Item::REAL_ITEM;
|
|
default:
|
|
return Item::STRING_ITEM;
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
Return a string representation of the Item value.
|
|
|
|
NOTE: If the item has a string result type, the string is escaped
|
|
according to its character set.
|
|
|
|
SYNOPSIS
|
|
item a pointer to the Item
|
|
str string buffer for representation of the value
|
|
|
|
RETURN
|
|
NULL on error
|
|
a pointer to valid a valid string on success
|
|
*/
|
|
|
|
static String *
|
|
sp_get_item_value(THD *thd, Item *item, String *str)
|
|
{
|
|
switch (item->result_type()) {
|
|
case REAL_RESULT:
|
|
case INT_RESULT:
|
|
case DECIMAL_RESULT:
|
|
return item->val_str(str);
|
|
|
|
case STRING_RESULT:
|
|
{
|
|
String *result= item->val_str(str);
|
|
|
|
if (!result)
|
|
return NULL;
|
|
|
|
{
|
|
char buf_holder[STRING_BUFFER_USUAL_SIZE];
|
|
String buf(buf_holder, sizeof(buf_holder), result->charset());
|
|
CHARSET_INFO *cs= thd->variables.character_set_client;
|
|
|
|
/* We must reset length of the buffer, because of String specificity. */
|
|
buf.length(0);
|
|
|
|
buf.append('_');
|
|
buf.append(result->charset()->csname);
|
|
if (cs->escape_with_backslash_is_dangerous)
|
|
buf.append(' ');
|
|
append_query_string(cs, result, &buf);
|
|
str->copy(buf);
|
|
|
|
return str;
|
|
}
|
|
}
|
|
|
|
case ROW_RESULT:
|
|
default:
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
SYNOPSIS
|
|
sp_get_flags_for_command()
|
|
|
|
DESCRIPTION
|
|
Returns a combination of:
|
|
* sp_head::MULTI_RESULTS: added if the 'cmd' is a command that might
|
|
result in multiple result sets being sent back.
|
|
* sp_head::CONTAINS_DYNAMIC_SQL: added if 'cmd' is one of PREPARE,
|
|
EXECUTE, DEALLOCATE.
|
|
*/
|
|
|
|
uint
|
|
sp_get_flags_for_command(LEX *lex)
|
|
{
|
|
uint flags;
|
|
|
|
switch (lex->sql_command) {
|
|
case SQLCOM_SELECT:
|
|
if (lex->result)
|
|
{
|
|
flags= 0; /* This is a SELECT with INTO clause */
|
|
break;
|
|
}
|
|
/* fallthrough */
|
|
case SQLCOM_ANALYZE:
|
|
case SQLCOM_OPTIMIZE:
|
|
case SQLCOM_PRELOAD_KEYS:
|
|
case SQLCOM_ASSIGN_TO_KEYCACHE:
|
|
case SQLCOM_CHECKSUM:
|
|
case SQLCOM_CHECK:
|
|
case SQLCOM_HA_READ:
|
|
case SQLCOM_SHOW_BINLOGS:
|
|
case SQLCOM_SHOW_BINLOG_EVENTS:
|
|
case SQLCOM_SHOW_CHARSETS:
|
|
case SQLCOM_SHOW_COLLATIONS:
|
|
case SQLCOM_SHOW_COLUMN_TYPES:
|
|
case SQLCOM_SHOW_CREATE:
|
|
case SQLCOM_SHOW_CREATE_DB:
|
|
case SQLCOM_SHOW_CREATE_FUNC:
|
|
case SQLCOM_SHOW_CREATE_PROC:
|
|
case SQLCOM_SHOW_DATABASES:
|
|
case SQLCOM_SHOW_ERRORS:
|
|
case SQLCOM_SHOW_FIELDS:
|
|
case SQLCOM_SHOW_GRANTS:
|
|
case SQLCOM_SHOW_INNODB_STATUS:
|
|
case SQLCOM_SHOW_KEYS:
|
|
case SQLCOM_SHOW_LOGS:
|
|
case SQLCOM_SHOW_MASTER_STAT:
|
|
case SQLCOM_SHOW_MUTEX_STATUS:
|
|
case SQLCOM_SHOW_NEW_MASTER:
|
|
case SQLCOM_SHOW_OPEN_TABLES:
|
|
case SQLCOM_SHOW_PRIVILEGES:
|
|
case SQLCOM_SHOW_PROCESSLIST:
|
|
case SQLCOM_SHOW_SLAVE_HOSTS:
|
|
case SQLCOM_SHOW_SLAVE_STAT:
|
|
case SQLCOM_SHOW_STATUS:
|
|
case SQLCOM_SHOW_STATUS_FUNC:
|
|
case SQLCOM_SHOW_STATUS_PROC:
|
|
case SQLCOM_SHOW_STORAGE_ENGINES:
|
|
case SQLCOM_SHOW_TABLES:
|
|
case SQLCOM_SHOW_VARIABLES:
|
|
case SQLCOM_SHOW_WARNS:
|
|
case SQLCOM_SHOW_PROC_CODE:
|
|
case SQLCOM_SHOW_FUNC_CODE:
|
|
case SQLCOM_REPAIR:
|
|
case SQLCOM_BACKUP_TABLE:
|
|
case SQLCOM_RESTORE_TABLE:
|
|
flags= sp_head::MULTI_RESULTS;
|
|
break;
|
|
/*
|
|
EXECUTE statement may return a result set, but doesn't have to.
|
|
We can't, however, know it in advance, and therefore must add
|
|
this statement here. This is ok, as is equivalent to a result-set
|
|
statement within an IF condition.
|
|
*/
|
|
case SQLCOM_EXECUTE:
|
|
flags= sp_head::MULTI_RESULTS | sp_head::CONTAINS_DYNAMIC_SQL;
|
|
break;
|
|
case SQLCOM_PREPARE:
|
|
case SQLCOM_DEALLOCATE_PREPARE:
|
|
flags= sp_head::CONTAINS_DYNAMIC_SQL;
|
|
break;
|
|
case SQLCOM_CREATE_TABLE:
|
|
if (lex->create_info.options & HA_LEX_CREATE_TMP_TABLE)
|
|
flags= 0;
|
|
else
|
|
flags= sp_head::HAS_COMMIT_OR_ROLLBACK;
|
|
break;
|
|
case SQLCOM_DROP_TABLE:
|
|
if (lex->drop_temporary)
|
|
flags= 0;
|
|
else
|
|
flags= sp_head::HAS_COMMIT_OR_ROLLBACK;
|
|
break;
|
|
case SQLCOM_FLUSH:
|
|
flags= sp_head::HAS_SQLCOM_FLUSH;
|
|
break;
|
|
case SQLCOM_RESET:
|
|
flags= sp_head::HAS_SQLCOM_RESET;
|
|
break;
|
|
case SQLCOM_CREATE_INDEX:
|
|
case SQLCOM_CREATE_DB:
|
|
case SQLCOM_CREATE_VIEW:
|
|
case SQLCOM_CREATE_TRIGGER:
|
|
case SQLCOM_CREATE_USER:
|
|
case SQLCOM_ALTER_TABLE:
|
|
case SQLCOM_BEGIN:
|
|
case SQLCOM_RENAME_TABLE:
|
|
case SQLCOM_RENAME_USER:
|
|
case SQLCOM_DROP_INDEX:
|
|
case SQLCOM_DROP_DB:
|
|
case SQLCOM_DROP_USER:
|
|
case SQLCOM_DROP_VIEW:
|
|
case SQLCOM_DROP_TRIGGER:
|
|
case SQLCOM_TRUNCATE:
|
|
case SQLCOM_COMMIT:
|
|
case SQLCOM_ROLLBACK:
|
|
case SQLCOM_LOAD:
|
|
case SQLCOM_LOAD_MASTER_DATA:
|
|
case SQLCOM_LOCK_TABLES:
|
|
case SQLCOM_CREATE_PROCEDURE:
|
|
case SQLCOM_CREATE_SPFUNCTION:
|
|
case SQLCOM_ALTER_PROCEDURE:
|
|
case SQLCOM_ALTER_FUNCTION:
|
|
case SQLCOM_DROP_PROCEDURE:
|
|
case SQLCOM_DROP_FUNCTION:
|
|
flags= sp_head::HAS_COMMIT_OR_ROLLBACK;
|
|
break;
|
|
default:
|
|
flags= 0;
|
|
break;
|
|
}
|
|
return flags;
|
|
}
|
|
|
|
|
|
/*
|
|
Prepare an Item for evaluation (call of fix_fields).
|
|
|
|
SYNOPSIS
|
|
sp_prepare_func_item()
|
|
thd thread handler
|
|
it_addr pointer on item refernce
|
|
|
|
RETURN
|
|
NULL error
|
|
prepared item
|
|
*/
|
|
|
|
Item *
|
|
sp_prepare_func_item(THD* thd, Item **it_addr)
|
|
{
|
|
DBUG_ENTER("sp_prepare_func_item");
|
|
it_addr= (*it_addr)->this_item_addr(thd, it_addr);
|
|
|
|
if (!(*it_addr)->fixed &&
|
|
((*it_addr)->fix_fields(thd, it_addr) ||
|
|
(*it_addr)->check_cols(1)))
|
|
{
|
|
DBUG_PRINT("info", ("fix_fields() failed"));
|
|
DBUG_RETURN(NULL);
|
|
}
|
|
DBUG_RETURN(*it_addr);
|
|
}
|
|
|
|
|
|
/*
|
|
Evaluate an expression and store the result in the field.
|
|
|
|
SYNOPSIS
|
|
sp_eval_expr()
|
|
thd - current thread object
|
|
expr_item - the root item of the expression
|
|
result_field - the field to store the result
|
|
|
|
RETURN VALUES
|
|
FALSE on success
|
|
TRUE on error
|
|
*/
|
|
|
|
bool
|
|
sp_eval_expr(THD *thd, Field *result_field, Item **expr_item_ptr)
|
|
{
|
|
Item *expr_item;
|
|
|
|
DBUG_ENTER("sp_eval_expr");
|
|
|
|
if (!(expr_item= sp_prepare_func_item(thd, expr_item_ptr)))
|
|
DBUG_RETURN(TRUE);
|
|
|
|
bool err_status= FALSE;
|
|
|
|
/*
|
|
Set THD flags to emit warnings/errors in case of overflow/type errors
|
|
during saving the item into the field.
|
|
|
|
Save original values and restore them after save.
|
|
*/
|
|
|
|
enum_check_fields save_count_cuted_fields= thd->count_cuted_fields;
|
|
bool save_abort_on_warning= thd->abort_on_warning;
|
|
bool save_no_trans_update_stmt= thd->no_trans_update.stmt;
|
|
|
|
thd->count_cuted_fields= CHECK_FIELD_ERROR_FOR_NULL;
|
|
thd->abort_on_warning=
|
|
thd->variables.sql_mode &
|
|
(MODE_STRICT_TRANS_TABLES | MODE_STRICT_ALL_TABLES);
|
|
thd->no_trans_update.stmt= FALSE;
|
|
|
|
/* Save the value in the field. Convert the value if needed. */
|
|
|
|
expr_item->save_in_field(result_field, 0);
|
|
|
|
thd->count_cuted_fields= save_count_cuted_fields;
|
|
thd->abort_on_warning= save_abort_on_warning;
|
|
thd->no_trans_update.stmt= save_no_trans_update_stmt;
|
|
|
|
if (thd->net.report_error)
|
|
{
|
|
/* Return error status if something went wrong. */
|
|
err_status= TRUE;
|
|
}
|
|
|
|
DBUG_RETURN(err_status);
|
|
}
|
|
|
|
|
|
/*
|
|
*
|
|
* sp_name
|
|
*
|
|
*/
|
|
|
|
void
|
|
sp_name::init_qname(THD *thd)
|
|
{
|
|
m_sroutines_key.length= m_db.length + m_name.length + 2;
|
|
if (!(m_sroutines_key.str= thd->alloc(m_sroutines_key.length + 1)))
|
|
return;
|
|
m_qname.length= m_sroutines_key.length - 1;
|
|
m_qname.str= m_sroutines_key.str + 1;
|
|
sprintf(m_qname.str, "%.*s.%.*s",
|
|
m_db.length, (m_db.length ? m_db.str : ""),
|
|
m_name.length, m_name.str);
|
|
}
|
|
|
|
|
|
/*
|
|
Check that the name 'ident' is ok. It's assumed to be an 'ident'
|
|
from the parser, so we only have to check length and trailing spaces.
|
|
The former is a standard requirement (and 'show status' assumes a
|
|
non-empty name), the latter is a mysql:ism as trailing spaces are
|
|
removed by get_field().
|
|
|
|
RETURN
|
|
TRUE - bad name
|
|
FALSE - name is ok
|
|
*/
|
|
|
|
bool
|
|
check_routine_name(LEX_STRING ident)
|
|
{
|
|
return (!ident.str || !ident.str[0] || ident.str[ident.length-1] == ' ');
|
|
}
|
|
|
|
/* ------------------------------------------------------------------ */
|
|
|
|
|
|
/*
|
|
*
|
|
* sp_head
|
|
*
|
|
*/
|
|
|
|
void *
|
|
sp_head::operator new(size_t size)
|
|
{
|
|
DBUG_ENTER("sp_head::operator new");
|
|
MEM_ROOT own_root;
|
|
sp_head *sp;
|
|
|
|
init_alloc_root(&own_root, MEM_ROOT_BLOCK_SIZE, MEM_ROOT_PREALLOC);
|
|
sp= (sp_head *) alloc_root(&own_root, size);
|
|
sp->main_mem_root= own_root;
|
|
DBUG_PRINT("info", ("mem_root 0x%lx", (ulong) &sp->mem_root));
|
|
DBUG_RETURN(sp);
|
|
}
|
|
|
|
void
|
|
sp_head::operator delete(void *ptr, size_t size)
|
|
{
|
|
DBUG_ENTER("sp_head::operator delete");
|
|
MEM_ROOT own_root;
|
|
sp_head *sp= (sp_head *) ptr;
|
|
|
|
/* Make a copy of main_mem_root as free_root will free the sp */
|
|
own_root= sp->main_mem_root;
|
|
DBUG_PRINT("info", ("mem_root 0x%lx moved to 0x%lx",
|
|
(ulong) &sp->mem_root, (ulong) &own_root));
|
|
free_root(&own_root, MYF(0));
|
|
|
|
DBUG_VOID_RETURN;
|
|
}
|
|
|
|
|
|
sp_head::sp_head()
|
|
:Query_arena(&main_mem_root, INITIALIZED_FOR_SP),
|
|
m_flags(0), m_recursion_level(0), m_next_cached_sp(0),
|
|
m_cont_level(0)
|
|
{
|
|
m_first_instance= this;
|
|
m_first_free_instance= this;
|
|
m_last_cached_sp= this;
|
|
|
|
m_return_field_def.charset = NULL;
|
|
|
|
extern byte *
|
|
sp_table_key(const byte *ptr, uint *plen, my_bool first);
|
|
DBUG_ENTER("sp_head::sp_head");
|
|
|
|
m_backpatch.empty();
|
|
m_cont_backpatch.empty();
|
|
m_lex.empty();
|
|
hash_init(&m_sptabs, system_charset_info, 0, 0, 0, sp_table_key, 0, 0);
|
|
hash_init(&m_sroutines, system_charset_info, 0, 0, 0, sp_sroutine_key, 0, 0);
|
|
DBUG_VOID_RETURN;
|
|
}
|
|
|
|
|
|
void
|
|
sp_head::init(LEX *lex)
|
|
{
|
|
DBUG_ENTER("sp_head::init");
|
|
|
|
lex->spcont= m_pcont= new sp_pcontext();
|
|
|
|
/*
|
|
Altough trg_table_fields list is used only in triggers we init for all
|
|
types of stored procedures to simplify reset_lex()/restore_lex() code.
|
|
*/
|
|
lex->trg_table_fields.empty();
|
|
my_init_dynamic_array(&m_instr, sizeof(sp_instr *), 16, 8);
|
|
m_param_begin= m_param_end= m_body_begin= 0;
|
|
m_qname.str= m_db.str= m_name.str= m_params.str=
|
|
m_body.str= m_defstr.str= 0;
|
|
m_qname.length= m_db.length= m_name.length= m_params.length=
|
|
m_body.length= m_defstr.length= 0;
|
|
m_return_field_def.charset= NULL;
|
|
DBUG_VOID_RETURN;
|
|
}
|
|
|
|
|
|
void
|
|
sp_head::init_sp_name(THD *thd, sp_name *spname)
|
|
{
|
|
DBUG_ENTER("sp_head::init_sp_name");
|
|
|
|
/* Must be initialized in the parser. */
|
|
|
|
DBUG_ASSERT(spname && spname->m_db.str && spname->m_db.length);
|
|
|
|
/* We have to copy strings to get them into the right memroot. */
|
|
|
|
m_db.length= spname->m_db.length;
|
|
m_db.str= strmake_root(thd->mem_root, spname->m_db.str, spname->m_db.length);
|
|
|
|
m_name.length= spname->m_name.length;
|
|
m_name.str= strmake_root(thd->mem_root, spname->m_name.str,
|
|
spname->m_name.length);
|
|
|
|
if (spname->m_qname.length == 0)
|
|
spname->init_qname(thd);
|
|
|
|
m_qname.length= spname->m_qname.length;
|
|
m_qname.str= strmake_root(thd->mem_root, spname->m_qname.str,
|
|
m_qname.length);
|
|
}
|
|
|
|
|
|
void
|
|
sp_head::init_strings(THD *thd, LEX *lex)
|
|
{
|
|
DBUG_ENTER("sp_head::init_strings");
|
|
uchar *endp; /* Used to trim the end */
|
|
/* During parsing, we must use thd->mem_root */
|
|
MEM_ROOT *root= thd->mem_root;
|
|
|
|
if (m_param_begin && m_param_end)
|
|
{
|
|
m_params.length= m_param_end - m_param_begin;
|
|
m_params.str= strmake_root(root,
|
|
(char *)m_param_begin, m_params.length);
|
|
}
|
|
|
|
/* If ptr has overrun end_of_query then end_of_query is the end */
|
|
endp= (lex->ptr > lex->end_of_query ? lex->end_of_query : lex->ptr);
|
|
/*
|
|
Trim "garbage" at the end. This is sometimes needed with the
|
|
"/ * ! VERSION... * /" wrapper in dump files.
|
|
*/
|
|
endp= skip_rear_comments(m_body_begin, endp);
|
|
|
|
m_body.length= endp - m_body_begin;
|
|
m_body.str= strmake_root(root, (char *)m_body_begin, m_body.length);
|
|
m_defstr.length= endp - lex->buf;
|
|
m_defstr.str= strmake_root(root, (char *)lex->buf, m_defstr.length);
|
|
DBUG_VOID_RETURN;
|
|
}
|
|
|
|
|
|
static TYPELIB *
|
|
create_typelib(MEM_ROOT *mem_root, create_field *field_def, List<String> *src)
|
|
{
|
|
TYPELIB *result= NULL;
|
|
CHARSET_INFO *cs= field_def->charset;
|
|
DBUG_ENTER("create_typelib");
|
|
if (src->elements)
|
|
{
|
|
result= (TYPELIB*) alloc_root(mem_root, sizeof(TYPELIB));
|
|
result->count= src->elements;
|
|
result->name= "";
|
|
if (!(result->type_names=(const char **)
|
|
alloc_root(mem_root,(sizeof(char *)+sizeof(int))*(result->count+1))))
|
|
DBUG_RETURN(0);
|
|
result->type_lengths= (unsigned int *)(result->type_names + result->count+1);
|
|
List_iterator<String> it(*src);
|
|
String conv;
|
|
for (uint i=0; i < result->count; i++)
|
|
{
|
|
uint32 dummy;
|
|
uint length;
|
|
String *tmp= it++;
|
|
|
|
if (String::needs_conversion(tmp->length(), tmp->charset(),
|
|
cs, &dummy))
|
|
{
|
|
uint cnv_errs;
|
|
conv.copy(tmp->ptr(), tmp->length(), tmp->charset(), cs, &cnv_errs);
|
|
|
|
length= conv.length();
|
|
result->type_names[i]= (char*) strmake_root(mem_root, conv.ptr(),
|
|
length);
|
|
}
|
|
else
|
|
{
|
|
length= tmp->length();
|
|
result->type_names[i]= strmake_root(mem_root, tmp->ptr(), length);
|
|
}
|
|
|
|
// Strip trailing spaces.
|
|
length= cs->cset->lengthsp(cs, result->type_names[i], length);
|
|
result->type_lengths[i]= length;
|
|
((uchar *)result->type_names[i])[length]= '\0';
|
|
}
|
|
result->type_names[result->count]= 0;
|
|
result->type_lengths[result->count]= 0;
|
|
}
|
|
DBUG_RETURN(result);
|
|
}
|
|
|
|
|
|
int
|
|
sp_head::create(THD *thd)
|
|
{
|
|
DBUG_ENTER("sp_head::create");
|
|
int ret;
|
|
|
|
DBUG_PRINT("info", ("type: %d name: %s params: %s body: %s",
|
|
m_type, m_name.str, m_params.str, m_body.str));
|
|
|
|
if (m_type == TYPE_ENUM_FUNCTION)
|
|
ret= sp_create_function(thd, this);
|
|
else
|
|
ret= sp_create_procedure(thd, this);
|
|
|
|
DBUG_RETURN(ret);
|
|
}
|
|
|
|
sp_head::~sp_head()
|
|
{
|
|
destroy();
|
|
delete m_next_cached_sp;
|
|
if (m_thd)
|
|
restore_thd_mem_root(m_thd);
|
|
}
|
|
|
|
void
|
|
sp_head::destroy()
|
|
{
|
|
sp_instr *i;
|
|
LEX *lex;
|
|
DBUG_ENTER("sp_head::destroy");
|
|
DBUG_PRINT("info", ("name: %s", m_name.str));
|
|
|
|
for (uint ip = 0 ; (i = get_instr(ip)) ; ip++)
|
|
delete i;
|
|
delete_dynamic(&m_instr);
|
|
m_pcont->destroy();
|
|
free_items();
|
|
|
|
/*
|
|
If we have non-empty LEX stack then we just came out of parser with
|
|
error. Now we should delete all auxilary LEXes and restore original
|
|
THD::lex (In this case sp_head::restore_thd_mem_root() was not called
|
|
too, so m_thd points to the current thread context).
|
|
It is safe to not update LEX::ptr because further query string parsing
|
|
and execution will be stopped anyway.
|
|
*/
|
|
DBUG_ASSERT(m_lex.is_empty() || m_thd);
|
|
while ((lex= (LEX *)m_lex.pop()))
|
|
{
|
|
lex_end(m_thd->lex);
|
|
delete m_thd->lex;
|
|
m_thd->lex= lex;
|
|
}
|
|
|
|
hash_free(&m_sptabs);
|
|
hash_free(&m_sroutines);
|
|
DBUG_VOID_RETURN;
|
|
}
|
|
|
|
|
|
/*
|
|
This is only used for result fields from functions (both during
|
|
fix_length_and_dec() and evaluation).
|
|
*/
|
|
|
|
Field *
|
|
sp_head::create_result_field(uint field_max_length, const char *field_name,
|
|
TABLE *table)
|
|
{
|
|
uint field_length;
|
|
Field *field;
|
|
|
|
DBUG_ENTER("sp_head::create_result_field");
|
|
|
|
field_length= !m_return_field_def.length ?
|
|
field_max_length : m_return_field_def.length;
|
|
|
|
field= ::make_field((char*) 0, /* field ptr */
|
|
field_length, /* field [max] length */
|
|
(uchar*) "", /* null ptr */
|
|
0, /* null bit */
|
|
m_return_field_def.pack_flag,
|
|
m_return_field_def.sql_type,
|
|
m_return_field_def.charset,
|
|
m_return_field_def.geom_type,
|
|
Field::NONE, /* unreg check */
|
|
m_return_field_def.interval,
|
|
field_name ? field_name : (const char *) m_name.str,
|
|
table);
|
|
|
|
DBUG_RETURN(field);
|
|
}
|
|
|
|
|
|
int cmp_splocal_locations(Item_splocal * const *a, Item_splocal * const *b)
|
|
{
|
|
return (int)((*a)->pos_in_query - (*b)->pos_in_query);
|
|
}
|
|
|
|
|
|
/*
|
|
StoredRoutinesBinlogging
|
|
Top-down overview:
|
|
|
|
1. Statements
|
|
|
|
Statements that have is_update_query(stmt) == TRUE are written into the
|
|
binary log verbatim.
|
|
Examples:
|
|
UPDATE tbl SET tbl.x = spfunc_w_side_effects()
|
|
UPDATE tbl SET tbl.x=1 WHERE spfunc_w_side_effect_that_returns_false(tbl.y)
|
|
|
|
Statements that have is_update_query(stmt) == FALSE (e.g. SELECTs) are not
|
|
written into binary log. Instead we catch function calls the statement
|
|
makes and write it into binary log separately (see #3).
|
|
|
|
2. PROCEDURE calls
|
|
|
|
CALL statements are not written into binary log. Instead
|
|
* Any FUNCTION invocation (in SET, IF, WHILE, OPEN CURSOR and other SP
|
|
instructions) is written into binlog separately.
|
|
|
|
* Each statement executed in SP is binlogged separately, according to rules
|
|
in #1, with the exception that we modify query string: we replace uses
|
|
of SP local variables with NAME_CONST('spvar_name', <spvar-value>) calls.
|
|
This substitution is done in subst_spvars().
|
|
|
|
3. FUNCTION calls
|
|
|
|
In sp_head::execute_function(), we check
|
|
* If this function invocation is done from a statement that is written
|
|
into the binary log.
|
|
* If there were any attempts to write events to the binary log during
|
|
function execution (grep for start_union_events and stop_union_events)
|
|
|
|
If the answers are No and Yes, we write the function call into the binary
|
|
log as "SELECT spfunc(<param1value>, <param2value>, ...)".
|
|
|
|
|
|
4. Miscellaneous issues.
|
|
|
|
4.1 User variables.
|
|
|
|
When we call mysql_bin_log.write() for an SP statement, thd->user_var_events
|
|
must hold set<{var_name, value}> pairs for all user variables used during
|
|
the statement execution.
|
|
This set is produced by tracking user variable reads during statement
|
|
execution.
|
|
|
|
Fo SPs, this has the following implications:
|
|
1) thd->user_var_events may contain events from several SP statements and
|
|
needs to be valid after exection of these statements was finished. In
|
|
order to achieve that, we
|
|
* Allocate user_var_events array elements on appropriate mem_root (grep
|
|
for user_var_events_alloc).
|
|
* Use is_query_in_union() to determine if user_var_event is created.
|
|
|
|
2) We need to empty thd->user_var_events after we have wrote a function
|
|
call. This is currently done by making
|
|
reset_dynamic(&thd->user_var_events);
|
|
calls in several different places. (TODO cosider moving this into
|
|
mysql_bin_log.write() function)
|
|
*/
|
|
|
|
|
|
/*
|
|
Replace thd->query{_length} with a string that one can write to the binlog.
|
|
|
|
SYNOPSIS
|
|
subst_spvars()
|
|
thd Current thread.
|
|
instr Instruction (we look for Item_splocal instances in
|
|
instr->free_list)
|
|
query_str Original query string
|
|
|
|
DESCRIPTION
|
|
|
|
The binlog-suitable string is produced by replacing references to SP local
|
|
variables with NAME_CONST('sp_var_name', value) calls.
|
|
|
|
RETURN
|
|
FALSE on success
|
|
thd->query{_length} either has been appropriately replaced or there
|
|
is no need for replacements.
|
|
TRUE out of memory error.
|
|
*/
|
|
|
|
static bool
|
|
subst_spvars(THD *thd, sp_instr *instr, LEX_STRING *query_str)
|
|
{
|
|
DBUG_ENTER("subst_spvars");
|
|
if (thd->prelocked_mode == NON_PRELOCKED && mysql_bin_log.is_open())
|
|
{
|
|
Dynamic_array<Item_splocal*> sp_vars_uses;
|
|
char *pbuf, *cur, buffer[512];
|
|
String qbuf(buffer, sizeof(buffer), &my_charset_bin);
|
|
int prev_pos, res;
|
|
|
|
/* Find all instances of Item_splocal used in this statement */
|
|
for (Item *item= instr->free_list; item; item= item->next)
|
|
{
|
|
if (item->is_splocal())
|
|
{
|
|
Item_splocal *item_spl= (Item_splocal*)item;
|
|
if (item_spl->pos_in_query)
|
|
sp_vars_uses.append(item_spl);
|
|
}
|
|
}
|
|
if (!sp_vars_uses.elements())
|
|
DBUG_RETURN(FALSE);
|
|
|
|
/* Sort SP var refs by their occurences in the query */
|
|
sp_vars_uses.sort(cmp_splocal_locations);
|
|
|
|
/*
|
|
Construct a statement string where SP local var refs are replaced
|
|
with "NAME_CONST(name, value)"
|
|
*/
|
|
qbuf.length(0);
|
|
cur= query_str->str;
|
|
prev_pos= res= 0;
|
|
for (Item_splocal **splocal= sp_vars_uses.front();
|
|
splocal < sp_vars_uses.back(); splocal++)
|
|
{
|
|
Item *val;
|
|
|
|
char str_buffer[STRING_BUFFER_USUAL_SIZE];
|
|
String str_value_holder(str_buffer, sizeof(str_buffer),
|
|
&my_charset_latin1);
|
|
String *str_value;
|
|
|
|
/* append the text between sp ref occurences */
|
|
res|= qbuf.append(cur + prev_pos, (*splocal)->pos_in_query - prev_pos);
|
|
prev_pos= (*splocal)->pos_in_query + (*splocal)->m_name.length;
|
|
|
|
/* append the spvar substitute */
|
|
res|= qbuf.append(STRING_WITH_LEN(" NAME_CONST('"));
|
|
res|= qbuf.append((*splocal)->m_name.str, (*splocal)->m_name.length);
|
|
res|= qbuf.append(STRING_WITH_LEN("',"));
|
|
res|= (*splocal)->fix_fields(thd, (Item **) splocal);
|
|
|
|
if (res)
|
|
break;
|
|
|
|
val= (*splocal)->this_item();
|
|
DBUG_PRINT("info", ("print %p", val));
|
|
str_value= sp_get_item_value(thd, val, &str_value_holder);
|
|
if (str_value)
|
|
res|= qbuf.append(*str_value);
|
|
else
|
|
res|= qbuf.append(STRING_WITH_LEN("NULL"));
|
|
res|= qbuf.append(')');
|
|
if (res)
|
|
break;
|
|
}
|
|
res|= qbuf.append(cur + prev_pos, query_str->length - prev_pos);
|
|
if (res)
|
|
DBUG_RETURN(TRUE);
|
|
|
|
if (!(pbuf= thd->strmake(qbuf.ptr(), qbuf.length())))
|
|
DBUG_RETURN(TRUE);
|
|
|
|
thd->query= pbuf;
|
|
thd->query_length= qbuf.length();
|
|
}
|
|
DBUG_RETURN(FALSE);
|
|
}
|
|
|
|
|
|
/*
|
|
Return appropriate error about recursion limit reaching
|
|
|
|
SYNOPSIS
|
|
sp_head::recursion_level_error()
|
|
thd Thread handle
|
|
|
|
NOTE
|
|
For functions and triggers we return error about prohibited recursion.
|
|
For stored procedures we return about reaching recursion limit.
|
|
*/
|
|
|
|
void sp_head::recursion_level_error(THD *thd)
|
|
{
|
|
if (m_type == TYPE_ENUM_PROCEDURE)
|
|
{
|
|
my_error(ER_SP_RECURSION_LIMIT, MYF(0),
|
|
thd->variables.max_sp_recursion_depth,
|
|
m_name.str);
|
|
}
|
|
else
|
|
my_error(ER_SP_NO_RECURSION, MYF(0));
|
|
}
|
|
|
|
|
|
/*
|
|
Execute the routine. The main instruction jump loop is there
|
|
Assume the parameters already set.
|
|
|
|
RETURN
|
|
FALSE on success
|
|
TRUE on error
|
|
|
|
*/
|
|
|
|
bool
|
|
sp_head::execute(THD *thd)
|
|
{
|
|
DBUG_ENTER("sp_head::execute");
|
|
char old_db_buf[NAME_LEN+1];
|
|
LEX_STRING old_db= { old_db_buf, sizeof(old_db_buf) };
|
|
bool dbchanged;
|
|
sp_rcontext *ctx;
|
|
bool err_status= FALSE;
|
|
uint ip= 0;
|
|
ulong save_sql_mode;
|
|
bool save_abort_on_warning;
|
|
Query_arena *old_arena;
|
|
/* per-instruction arena */
|
|
MEM_ROOT execute_mem_root;
|
|
Query_arena execute_arena(&execute_mem_root, INITIALIZED_FOR_SP),
|
|
backup_arena;
|
|
query_id_t old_query_id;
|
|
TABLE *old_derived_tables;
|
|
LEX *old_lex;
|
|
Item_change_list old_change_list;
|
|
String old_packet;
|
|
|
|
/* Use some extra margin for possible SP recursion and functions */
|
|
if (check_stack_overrun(thd, 8 * STACK_MIN_SIZE, (char*)&old_packet))
|
|
DBUG_RETURN(TRUE);
|
|
|
|
/* init per-instruction memroot */
|
|
init_alloc_root(&execute_mem_root, MEM_ROOT_BLOCK_SIZE, 0);
|
|
|
|
DBUG_ASSERT(!(m_flags & IS_INVOKED));
|
|
m_flags|= IS_INVOKED;
|
|
m_first_instance->m_first_free_instance= m_next_cached_sp;
|
|
if (m_next_cached_sp)
|
|
{
|
|
DBUG_PRINT("info",
|
|
("first free for 0x%lx ++: 0x%lx->0x%lx level: %lu flags %x",
|
|
(ulong)m_first_instance, (ulong) this,
|
|
(ulong) m_next_cached_sp,
|
|
m_next_cached_sp->m_recursion_level,
|
|
m_next_cached_sp->m_flags));
|
|
}
|
|
/*
|
|
Check that if there are not any instances after this one then
|
|
pointer to the last instance points on this instance or if there are
|
|
some instances after this one then recursion level of next instance
|
|
greater then recursion level of current instance on 1
|
|
*/
|
|
DBUG_ASSERT((m_next_cached_sp == 0 &&
|
|
m_first_instance->m_last_cached_sp == this) ||
|
|
(m_recursion_level + 1 == m_next_cached_sp->m_recursion_level));
|
|
|
|
/*
|
|
NOTE: The SQL Standard does not specify the context that should be
|
|
preserved for stored routines. However, at SAP/Walldorf meeting it was
|
|
decided that current database should be preserved.
|
|
*/
|
|
|
|
if (m_db.length &&
|
|
(err_status= sp_use_new_db(thd, m_db, &old_db, 0, &dbchanged)))
|
|
goto done;
|
|
|
|
if ((ctx= thd->spcont))
|
|
ctx->clear_handler();
|
|
thd->query_error= 0;
|
|
old_arena= thd->stmt_arena;
|
|
|
|
/*
|
|
We have to save/restore this info when we are changing call level to
|
|
be able properly do close_thread_tables() in instructions.
|
|
*/
|
|
old_query_id= thd->query_id;
|
|
old_derived_tables= thd->derived_tables;
|
|
thd->derived_tables= 0;
|
|
save_sql_mode= thd->variables.sql_mode;
|
|
thd->variables.sql_mode= m_sql_mode;
|
|
save_abort_on_warning= thd->abort_on_warning;
|
|
thd->abort_on_warning= 0;
|
|
|
|
/*
|
|
It is also more efficient to save/restore current thd->lex once when
|
|
do it in each instruction
|
|
*/
|
|
old_lex= thd->lex;
|
|
/*
|
|
We should also save Item tree change list to avoid rollback something
|
|
too early in the calling query.
|
|
*/
|
|
old_change_list= thd->change_list;
|
|
thd->change_list.empty();
|
|
/*
|
|
Cursors will use thd->packet, so they may corrupt data which was prepared
|
|
for sending by upper level. OTOH cursors in the same routine can share this
|
|
buffer safely so let use use routine-local packet instead of having own
|
|
packet buffer for each cursor.
|
|
|
|
It is probably safe to use same thd->convert_buff everywhere.
|
|
*/
|
|
old_packet.swap(thd->packet);
|
|
|
|
/*
|
|
Switch to per-instruction arena here. We can do it since we cleanup
|
|
arena after every instruction.
|
|
*/
|
|
thd->set_n_backup_active_arena(&execute_arena, &backup_arena);
|
|
|
|
/*
|
|
Save callers arena in order to store instruction results and out
|
|
parameters in it later during sp_eval_func_item()
|
|
*/
|
|
thd->spcont->callers_arena= &backup_arena;
|
|
|
|
do
|
|
{
|
|
sp_instr *i;
|
|
uint hip; // Handler ip
|
|
|
|
i = get_instr(ip); // Returns NULL when we're done.
|
|
if (i == NULL)
|
|
break;
|
|
DBUG_PRINT("execute", ("Instruction %u", ip));
|
|
/* Don't change NOW() in FUNCTION or TRIGGER */
|
|
if (!thd->in_sub_stmt)
|
|
thd->set_time(); // Make current_time() et al work
|
|
|
|
/*
|
|
We have to set thd->stmt_arena before executing the instruction
|
|
to store in the instruction free_list all new items, created
|
|
during the first execution (for example expanding of '*' or the
|
|
items made during other permanent subquery transformations).
|
|
*/
|
|
thd->stmt_arena= i;
|
|
|
|
/*
|
|
Will write this SP statement into binlog separately
|
|
(TODO: consider changing the condition to "not inside event union")
|
|
*/
|
|
if (thd->prelocked_mode == NON_PRELOCKED)
|
|
thd->user_var_events_alloc= thd->mem_root;
|
|
|
|
err_status= i->execute(thd, &ip);
|
|
|
|
/*
|
|
If this SP instruction have sent eof, it has caused no_send_error to be
|
|
set. Clear it back to allow the next instruction to send error. (multi-
|
|
statement execution code clears no_send_error between statements too)
|
|
*/
|
|
thd->net.no_send_error= 0;
|
|
if (i->free_list)
|
|
cleanup_items(i->free_list);
|
|
|
|
/*
|
|
If we've set thd->user_var_events_alloc to mem_root of this SP
|
|
statement, clean all the events allocated in it.
|
|
*/
|
|
if (thd->prelocked_mode == NON_PRELOCKED)
|
|
{
|
|
reset_dynamic(&thd->user_var_events);
|
|
thd->user_var_events_alloc= NULL;//DEBUG
|
|
}
|
|
|
|
/* we should cleanup free_list and memroot, used by instruction */
|
|
thd->cleanup_after_query();
|
|
free_root(&execute_mem_root, MYF(0));
|
|
|
|
/*
|
|
Check if an exception has occurred and a handler has been found
|
|
Note: We have to check even if err_status == FALSE, since warnings (and
|
|
some errors) don't return a non-zero value. We also have to check even
|
|
if thd->killed != 0, since some errors return with this even when a
|
|
handler has been found (e.g. "bad data").
|
|
*/
|
|
if (ctx)
|
|
{
|
|
uint hf;
|
|
|
|
switch (ctx->found_handler(&hip, &hf)) {
|
|
case SP_HANDLER_NONE:
|
|
break;
|
|
case SP_HANDLER_CONTINUE:
|
|
thd->restore_active_arena(&execute_arena, &backup_arena);
|
|
thd->set_n_backup_active_arena(&execute_arena, &backup_arena);
|
|
ctx->push_hstack(i->get_cont_dest());
|
|
// Fall through
|
|
default:
|
|
ip= hip;
|
|
err_status= FALSE;
|
|
ctx->clear_handler();
|
|
ctx->enter_handler(hip);
|
|
thd->clear_error();
|
|
thd->killed= THD::NOT_KILLED;
|
|
thd->mysys_var->abort= 0;
|
|
continue;
|
|
}
|
|
}
|
|
} while (!err_status && !thd->killed);
|
|
|
|
thd->restore_active_arena(&execute_arena, &backup_arena);
|
|
|
|
thd->spcont->pop_all_cursors(); // To avoid memory leaks after an error
|
|
|
|
/* Restore all saved */
|
|
old_packet.swap(thd->packet);
|
|
DBUG_ASSERT(thd->change_list.is_empty());
|
|
thd->change_list= old_change_list;
|
|
/* To avoid wiping out thd->change_list on old_change_list destruction */
|
|
old_change_list.empty();
|
|
thd->lex= old_lex;
|
|
thd->query_id= old_query_id;
|
|
DBUG_ASSERT(!thd->derived_tables);
|
|
thd->derived_tables= old_derived_tables;
|
|
thd->variables.sql_mode= save_sql_mode;
|
|
thd->abort_on_warning= save_abort_on_warning;
|
|
|
|
thd->stmt_arena= old_arena;
|
|
state= EXECUTED;
|
|
|
|
done:
|
|
DBUG_PRINT("info", ("err_status: %d killed: %d query_error: %d",
|
|
err_status, thd->killed, thd->query_error));
|
|
|
|
if (thd->killed)
|
|
err_status= TRUE;
|
|
/*
|
|
If the DB has changed, the pointer has changed too, but the
|
|
original thd->db will then have been freed
|
|
*/
|
|
if (dbchanged)
|
|
{
|
|
/*
|
|
No access check when changing back to where we came from.
|
|
(It would generate an error from mysql_change_db() when old_db=="")
|
|
*/
|
|
if (! thd->killed)
|
|
err_status|= mysql_change_db(thd, &old_db, TRUE);
|
|
}
|
|
m_flags&= ~IS_INVOKED;
|
|
DBUG_PRINT("info",
|
|
("first free for 0x%lx --: 0x%lx->0x%lx, level: %lu, flags %x",
|
|
(ulong) m_first_instance,
|
|
(ulong) m_first_instance->m_first_free_instance,
|
|
(ulong) this, m_recursion_level, m_flags));
|
|
/*
|
|
Check that we have one of following:
|
|
|
|
1) there are not free instances which means that this instance is last
|
|
in the list of instances (pointer to the last instance point on it and
|
|
ther are not other instances after this one in the list)
|
|
|
|
2) There are some free instances which mean that first free instance
|
|
should go just after this one and recursion level of that free instance
|
|
should be on 1 more then recursion level of this instance.
|
|
*/
|
|
DBUG_ASSERT((m_first_instance->m_first_free_instance == 0 &&
|
|
this == m_first_instance->m_last_cached_sp &&
|
|
m_next_cached_sp == 0) ||
|
|
(m_first_instance->m_first_free_instance != 0 &&
|
|
m_first_instance->m_first_free_instance == m_next_cached_sp &&
|
|
m_first_instance->m_first_free_instance->m_recursion_level ==
|
|
m_recursion_level + 1));
|
|
m_first_instance->m_first_free_instance= this;
|
|
|
|
DBUG_RETURN(err_status);
|
|
}
|
|
|
|
|
|
#ifndef NO_EMBEDDED_ACCESS_CHECKS
|
|
/*
|
|
set_routine_security_ctx() changes routine security context, and
|
|
checks if there is an EXECUTE privilege in new context. If there is
|
|
no EXECUTE privilege, it changes the context back and returns a
|
|
error.
|
|
|
|
SYNOPSIS
|
|
set_routine_security_ctx()
|
|
thd thread handle
|
|
sp stored routine to change the context for
|
|
is_proc TRUE is procedure, FALSE if function
|
|
save_ctx pointer to an old security context
|
|
|
|
RETURN
|
|
TRUE if there was a error, and the context wasn't changed.
|
|
FALSE if the context was changed.
|
|
*/
|
|
|
|
bool
|
|
set_routine_security_ctx(THD *thd, sp_head *sp, bool is_proc,
|
|
Security_context **save_ctx)
|
|
{
|
|
*save_ctx= 0;
|
|
if (sp_change_security_context(thd, sp, save_ctx))
|
|
return TRUE;
|
|
|
|
/*
|
|
If we changed context to run as another user, we need to check the
|
|
access right for the new context again as someone may have revoked
|
|
the right to use the procedure from this user.
|
|
|
|
TODO:
|
|
Cache if the definer has the right to use the object on the
|
|
first usage and only reset the cache if someone does a GRANT
|
|
statement that 'may' affect this.
|
|
*/
|
|
if (*save_ctx &&
|
|
check_routine_access(thd, EXECUTE_ACL,
|
|
sp->m_db.str, sp->m_name.str, is_proc, FALSE))
|
|
{
|
|
sp_restore_security_context(thd, *save_ctx);
|
|
*save_ctx= 0;
|
|
return TRUE;
|
|
}
|
|
|
|
return FALSE;
|
|
}
|
|
#endif // ! NO_EMBEDDED_ACCESS_CHECKS
|
|
|
|
|
|
/*
|
|
Execute a trigger:
|
|
- changes security context for triggers
|
|
- switch to new memroot
|
|
- call sp_head::execute
|
|
- restore old memroot
|
|
- restores security context
|
|
|
|
SYNOPSIS
|
|
sp_head::execute_trigger()
|
|
thd Thread handle
|
|
db database name
|
|
table table name
|
|
grant_info GRANT_INFO structure to be filled with
|
|
information about definer's privileges
|
|
on subject table
|
|
|
|
RETURN
|
|
FALSE on success
|
|
TRUE on error
|
|
*/
|
|
|
|
bool
|
|
sp_head::execute_trigger(THD *thd, const char *db, const char *table,
|
|
GRANT_INFO *grant_info)
|
|
{
|
|
sp_rcontext *octx = thd->spcont;
|
|
sp_rcontext *nctx = NULL;
|
|
bool err_status= FALSE;
|
|
MEM_ROOT call_mem_root;
|
|
Query_arena call_arena(&call_mem_root, Query_arena::INITIALIZED_FOR_SP);
|
|
Query_arena backup_arena;
|
|
|
|
DBUG_ENTER("sp_head::execute_trigger");
|
|
DBUG_PRINT("info", ("trigger %s", m_name.str));
|
|
|
|
#ifndef NO_EMBEDDED_ACCESS_CHECKS
|
|
Security_context *save_ctx;
|
|
if (sp_change_security_context(thd, this, &save_ctx))
|
|
DBUG_RETURN(TRUE);
|
|
|
|
/*
|
|
NOTE: TRIGGER_ACL should be used here.
|
|
*/
|
|
if (check_global_access(thd, SUPER_ACL))
|
|
{
|
|
sp_restore_security_context(thd, save_ctx);
|
|
DBUG_RETURN(TRUE);
|
|
}
|
|
|
|
/*
|
|
Fetch information about table-level privileges to GRANT_INFO
|
|
structure for subject table. Check of privileges that will use it
|
|
and information about column-level privileges will happen in
|
|
Item_trigger_field::fix_fields().
|
|
*/
|
|
fill_effective_table_privileges(thd, grant_info, db, table);
|
|
#endif // NO_EMBEDDED_ACCESS_CHECKS
|
|
|
|
/*
|
|
Prepare arena and memroot for objects which lifetime is whole
|
|
duration of trigger call (sp_rcontext, it's tables and items,
|
|
sp_cursor and Item_cache holders for case expressions). We can't
|
|
use caller's arena/memroot for those objects because in this case
|
|
some fixed amount of memory will be consumed for each trigger
|
|
invocation and so statements which involve lot of them will hog
|
|
memory.
|
|
|
|
TODO: we should create sp_rcontext once per command and reuse it
|
|
on subsequent executions of a trigger.
|
|
*/
|
|
init_sql_alloc(&call_mem_root, MEM_ROOT_BLOCK_SIZE, 0);
|
|
thd->set_n_backup_active_arena(&call_arena, &backup_arena);
|
|
|
|
if (!(nctx= new sp_rcontext(m_pcont, 0, octx)) ||
|
|
nctx->init(thd))
|
|
{
|
|
err_status= TRUE;
|
|
goto err_with_cleanup;
|
|
}
|
|
|
|
#ifndef DBUG_OFF
|
|
nctx->sp= this;
|
|
#endif
|
|
|
|
thd->spcont= nctx;
|
|
|
|
err_status= execute(thd);
|
|
|
|
err_with_cleanup:
|
|
thd->restore_active_arena(&call_arena, &backup_arena);
|
|
#ifndef NO_EMBEDDED_ACCESS_CHECKS
|
|
sp_restore_security_context(thd, save_ctx);
|
|
#endif // NO_EMBEDDED_ACCESS_CHECKS
|
|
delete nctx;
|
|
call_arena.free_items();
|
|
free_root(&call_mem_root, MYF(0));
|
|
thd->spcont= octx;
|
|
|
|
DBUG_RETURN(err_status);
|
|
}
|
|
|
|
|
|
/*
|
|
Execute a function:
|
|
- evaluate parameters
|
|
- changes security context for SUID routines
|
|
- switch to new memroot
|
|
- call sp_head::execute
|
|
- restore old memroot
|
|
- evaluate the return value
|
|
- restores security context
|
|
|
|
SYNOPSIS
|
|
sp_head::execute_function()
|
|
thd Thread handle
|
|
argp Passed arguments (these are items from containing
|
|
statement?)
|
|
argcount Number of passed arguments. We need to check if this is
|
|
correct.
|
|
return_value_fld Save result here.
|
|
|
|
RETURN
|
|
FALSE on success
|
|
TRUE on error
|
|
*/
|
|
|
|
bool
|
|
sp_head::execute_function(THD *thd, Item **argp, uint argcount,
|
|
Field *return_value_fld)
|
|
{
|
|
ulonglong binlog_save_options;
|
|
bool need_binlog_call;
|
|
uint arg_no;
|
|
sp_rcontext *octx = thd->spcont;
|
|
sp_rcontext *nctx = NULL;
|
|
char buf[STRING_BUFFER_USUAL_SIZE];
|
|
String binlog_buf(buf, sizeof(buf), &my_charset_bin);
|
|
bool err_status= FALSE;
|
|
MEM_ROOT call_mem_root;
|
|
Query_arena call_arena(&call_mem_root, Query_arena::INITIALIZED_FOR_SP);
|
|
Query_arena backup_arena;
|
|
|
|
DBUG_ENTER("sp_head::execute_function");
|
|
DBUG_PRINT("info", ("function %s", m_name.str));
|
|
|
|
/*
|
|
Check that the function is called with all specified arguments.
|
|
|
|
If it is not, use my_error() to report an error, or it will not terminate
|
|
the invoking query properly.
|
|
*/
|
|
if (argcount != m_pcont->context_var_count())
|
|
{
|
|
/*
|
|
Need to use my_error here, or it will not terminate the
|
|
invoking query properly.
|
|
*/
|
|
my_error(ER_SP_WRONG_NO_OF_ARGS, MYF(0),
|
|
"FUNCTION", m_qname.str, m_pcont->context_var_count(), argcount);
|
|
DBUG_RETURN(TRUE);
|
|
}
|
|
/*
|
|
Prepare arena and memroot for objects which lifetime is whole
|
|
duration of function call (sp_rcontext, it's tables and items,
|
|
sp_cursor and Item_cache holders for case expressions).
|
|
We can't use caller's arena/memroot for those objects because
|
|
in this case some fixed amount of memory will be consumed for
|
|
each function/trigger invocation and so statements which involve
|
|
lot of them will hog memory.
|
|
TODO: we should create sp_rcontext once per command and reuse
|
|
it on subsequent executions of a function/trigger.
|
|
*/
|
|
init_sql_alloc(&call_mem_root, MEM_ROOT_BLOCK_SIZE, 0);
|
|
thd->set_n_backup_active_arena(&call_arena, &backup_arena);
|
|
|
|
if (!(nctx= new sp_rcontext(m_pcont, return_value_fld, octx)) ||
|
|
nctx->init(thd))
|
|
{
|
|
thd->restore_active_arena(&call_arena, &backup_arena);
|
|
err_status= TRUE;
|
|
goto err_with_cleanup;
|
|
}
|
|
|
|
/*
|
|
We have to switch temporarily back to callers arena/memroot.
|
|
Function arguments belong to the caller and so the may reference
|
|
memory which they will allocate during calculation long after
|
|
this function call will be finished (e.g. in Item::cleanup()).
|
|
*/
|
|
thd->restore_active_arena(&call_arena, &backup_arena);
|
|
|
|
#ifndef DBUG_OFF
|
|
nctx->sp= this;
|
|
#endif
|
|
|
|
/* Pass arguments. */
|
|
for (arg_no= 0; arg_no < argcount; arg_no++)
|
|
{
|
|
/* Arguments must be fixed in Item_func_sp::fix_fields */
|
|
DBUG_ASSERT(argp[arg_no]->fixed);
|
|
|
|
if ((err_status= nctx->set_variable(thd, arg_no, &(argp[arg_no]))))
|
|
goto err_with_cleanup;
|
|
}
|
|
|
|
need_binlog_call= mysql_bin_log.is_open() && (thd->options & OPTION_BIN_LOG);
|
|
|
|
/*
|
|
Remember the original arguments for unrolled replication of functions
|
|
before they are changed by execution.
|
|
*/
|
|
if (need_binlog_call)
|
|
{
|
|
binlog_buf.length(0);
|
|
binlog_buf.append(STRING_WITH_LEN("SELECT "));
|
|
append_identifier(thd, &binlog_buf, m_db.str, m_db.length);
|
|
binlog_buf.append('.');
|
|
append_identifier(thd, &binlog_buf, m_name.str, m_name.length);
|
|
binlog_buf.append('(');
|
|
for (arg_no= 0; arg_no < argcount; arg_no++)
|
|
{
|
|
String str_value_holder;
|
|
String *str_value;
|
|
|
|
if (arg_no)
|
|
binlog_buf.append(',');
|
|
|
|
str_value= sp_get_item_value(thd, nctx->get_item(arg_no),
|
|
&str_value_holder);
|
|
|
|
if (str_value)
|
|
binlog_buf.append(*str_value);
|
|
else
|
|
binlog_buf.append(STRING_WITH_LEN("NULL"));
|
|
}
|
|
binlog_buf.append(')');
|
|
}
|
|
thd->spcont= nctx;
|
|
|
|
#ifndef NO_EMBEDDED_ACCESS_CHECKS
|
|
Security_context *save_security_ctx;
|
|
if (set_routine_security_ctx(thd, this, FALSE, &save_security_ctx))
|
|
{
|
|
err_status= TRUE;
|
|
goto err_with_cleanup;
|
|
}
|
|
#endif
|
|
|
|
binlog_save_options= thd->options;
|
|
if (need_binlog_call)
|
|
{
|
|
query_id_t q;
|
|
reset_dynamic(&thd->user_var_events);
|
|
/*
|
|
In case of artificially constructed events for function calls
|
|
we have separate union for each such event and hence can't use
|
|
query_id of real calling statement as the start of all these
|
|
unions (this will break logic of replication of user-defined
|
|
variables). So we use artifical value which is guaranteed to
|
|
be greater than all query_id's of all statements belonging
|
|
to previous events/unions.
|
|
Possible alternative to this is logging of all function invocations
|
|
as one select and not resetting THD::user_var_events before
|
|
each invocation.
|
|
*/
|
|
VOID(pthread_mutex_lock(&LOCK_thread_count));
|
|
q= global_query_id;
|
|
VOID(pthread_mutex_unlock(&LOCK_thread_count));
|
|
mysql_bin_log.start_union_events(thd, q + 1);
|
|
}
|
|
|
|
/*
|
|
Switch to call arena/mem_root so objects like sp_cursor or
|
|
Item_cache holders for case expressions can be allocated on it.
|
|
|
|
TODO: In future we should associate call arena/mem_root with
|
|
sp_rcontext and allocate all these objects (and sp_rcontext
|
|
itself) on it directly rather than juggle with arenas.
|
|
*/
|
|
thd->set_n_backup_active_arena(&call_arena, &backup_arena);
|
|
|
|
thd->options&= ~OPTION_BIN_LOG;
|
|
err_status= execute(thd);
|
|
thd->options= binlog_save_options;
|
|
|
|
thd->restore_active_arena(&call_arena, &backup_arena);
|
|
|
|
if (need_binlog_call)
|
|
mysql_bin_log.stop_union_events(thd);
|
|
|
|
if (need_binlog_call && thd->binlog_evt_union.unioned_events)
|
|
{
|
|
Query_log_event qinfo(thd, binlog_buf.ptr(), binlog_buf.length(),
|
|
thd->binlog_evt_union.unioned_events_trans, FALSE);
|
|
if (mysql_bin_log.write(&qinfo) &&
|
|
thd->binlog_evt_union.unioned_events_trans)
|
|
{
|
|
push_warning(thd, MYSQL_ERROR::WARN_LEVEL_WARN, ER_UNKNOWN_ERROR,
|
|
"Invoked ROUTINE modified a transactional table but MySQL "
|
|
"failed to reflect this change in the binary log");
|
|
}
|
|
reset_dynamic(&thd->user_var_events);
|
|
}
|
|
|
|
if (!err_status)
|
|
{
|
|
/* We need result only in function but not in trigger */
|
|
|
|
if (!nctx->is_return_value_set())
|
|
{
|
|
my_error(ER_SP_NORETURNEND, MYF(0), m_name.str);
|
|
err_status= TRUE;
|
|
}
|
|
}
|
|
|
|
#ifndef NO_EMBEDDED_ACCESS_CHECKS
|
|
sp_restore_security_context(thd, save_security_ctx);
|
|
#endif
|
|
|
|
err_with_cleanup:
|
|
delete nctx;
|
|
call_arena.free_items();
|
|
free_root(&call_mem_root, MYF(0));
|
|
thd->spcont= octx;
|
|
|
|
DBUG_RETURN(err_status);
|
|
}
|
|
|
|
|
|
/*
|
|
Execute a procedure.
|
|
SYNOPSIS
|
|
sp_head::execute_procedure()
|
|
thd Thread handle
|
|
args List of values passed as arguments.
|
|
|
|
DESCRIPTION
|
|
|
|
The function does the following steps:
|
|
- Set all parameters
|
|
- changes security context for SUID routines
|
|
- call sp_head::execute
|
|
- copy back values of INOUT and OUT parameters
|
|
- restores security context
|
|
|
|
RETURN
|
|
FALSE on success
|
|
TRUE on error
|
|
*/
|
|
|
|
bool
|
|
sp_head::execute_procedure(THD *thd, List<Item> *args)
|
|
{
|
|
bool err_status= FALSE;
|
|
uint params = m_pcont->context_var_count();
|
|
sp_rcontext *save_spcont, *octx;
|
|
sp_rcontext *nctx = NULL;
|
|
DBUG_ENTER("sp_head::execute_procedure");
|
|
DBUG_PRINT("info", ("procedure %s", m_name.str));
|
|
|
|
if (args->elements != params)
|
|
{
|
|
my_error(ER_SP_WRONG_NO_OF_ARGS, MYF(0), "PROCEDURE",
|
|
m_qname.str, params, args->elements);
|
|
DBUG_RETURN(TRUE);
|
|
}
|
|
|
|
save_spcont= octx= thd->spcont;
|
|
if (! octx)
|
|
{ // Create a temporary old context
|
|
if (!(octx= new sp_rcontext(m_pcont, NULL, octx)) ||
|
|
octx->init(thd))
|
|
{
|
|
delete octx; /* Delete octx if it was init() that failed. */
|
|
DBUG_RETURN(TRUE);
|
|
}
|
|
|
|
#ifndef DBUG_OFF
|
|
octx->sp= 0;
|
|
#endif
|
|
thd->spcont= octx;
|
|
|
|
/* set callers_arena to thd, for upper-level function to work */
|
|
thd->spcont->callers_arena= thd;
|
|
}
|
|
|
|
if (!(nctx= new sp_rcontext(m_pcont, NULL, octx)) ||
|
|
nctx->init(thd))
|
|
{
|
|
delete nctx; /* Delete nctx if it was init() that failed. */
|
|
thd->spcont= save_spcont;
|
|
DBUG_RETURN(TRUE);
|
|
}
|
|
#ifndef DBUG_OFF
|
|
nctx->sp= this;
|
|
#endif
|
|
|
|
if (params > 0)
|
|
{
|
|
List_iterator<Item> it_args(*args);
|
|
|
|
DBUG_PRINT("info",(" %.*s: eval args", m_name.length, m_name.str));
|
|
|
|
for (uint i= 0 ; i < params ; i++)
|
|
{
|
|
Item *arg_item= it_args++;
|
|
|
|
if (!arg_item)
|
|
break;
|
|
|
|
sp_variable_t *spvar= m_pcont->find_variable(i);
|
|
|
|
if (!spvar)
|
|
continue;
|
|
|
|
if (spvar->mode != sp_param_in)
|
|
{
|
|
Settable_routine_parameter *srp=
|
|
arg_item->get_settable_routine_parameter();
|
|
|
|
if (!srp)
|
|
{
|
|
my_error(ER_SP_NOT_VAR_ARG, MYF(0), i+1, m_qname.str);
|
|
err_status= TRUE;
|
|
break;
|
|
}
|
|
|
|
srp->set_required_privilege(spvar->mode == sp_param_inout);
|
|
}
|
|
|
|
if (spvar->mode == sp_param_out)
|
|
{
|
|
Item_null *null_item= new Item_null();
|
|
|
|
if (!null_item ||
|
|
nctx->set_variable(thd, i, (Item **)&null_item))
|
|
{
|
|
err_status= TRUE;
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (nctx->set_variable(thd, i, it_args.ref()))
|
|
{
|
|
err_status= TRUE;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
Okay, got values for all arguments. Close tables that might be used by
|
|
arguments evaluation. If arguments evaluation required prelocking mode,
|
|
we'll leave it here.
|
|
*/
|
|
if (!thd->in_sub_stmt)
|
|
close_thread_tables(thd, 0, 0);
|
|
|
|
DBUG_PRINT("info",(" %.*s: eval args done", m_name.length, m_name.str));
|
|
}
|
|
|
|
thd->spcont= nctx;
|
|
|
|
#ifndef NO_EMBEDDED_ACCESS_CHECKS
|
|
Security_context *save_security_ctx= 0;
|
|
if (!err_status)
|
|
err_status= set_routine_security_ctx(thd, this, TRUE, &save_security_ctx);
|
|
#endif
|
|
|
|
if (!err_status)
|
|
err_status= execute(thd);
|
|
|
|
/*
|
|
In the case when we weren't able to employ reuse mechanism for
|
|
OUT/INOUT paranmeters, we should reallocate memory. This
|
|
allocation should be done on the arena which will live through
|
|
all execution of calling routine.
|
|
*/
|
|
thd->spcont->callers_arena= octx->callers_arena;
|
|
|
|
if (!err_status && params > 0)
|
|
{
|
|
List_iterator<Item> it_args(*args);
|
|
|
|
/*
|
|
Copy back all OUT or INOUT values to the previous frame, or
|
|
set global user variables
|
|
*/
|
|
for (uint i= 0 ; i < params ; i++)
|
|
{
|
|
Item *arg_item= it_args++;
|
|
|
|
if (!arg_item)
|
|
break;
|
|
|
|
sp_variable_t *spvar= m_pcont->find_variable(i);
|
|
|
|
if (spvar->mode == sp_param_in)
|
|
continue;
|
|
|
|
Settable_routine_parameter *srp=
|
|
arg_item->get_settable_routine_parameter();
|
|
|
|
DBUG_ASSERT(srp);
|
|
|
|
if (srp->set_value(thd, octx, nctx->get_item_addr(i)))
|
|
{
|
|
err_status= TRUE;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
#ifndef NO_EMBEDDED_ACCESS_CHECKS
|
|
if (save_security_ctx)
|
|
sp_restore_security_context(thd, save_security_ctx);
|
|
#endif
|
|
|
|
if (!save_spcont)
|
|
delete octx;
|
|
|
|
delete nctx;
|
|
thd->spcont= save_spcont;
|
|
|
|
DBUG_RETURN(err_status);
|
|
}
|
|
|
|
|
|
// Reset lex during parsing, before we parse a sub statement.
|
|
void
|
|
sp_head::reset_lex(THD *thd)
|
|
{
|
|
DBUG_ENTER("sp_head::reset_lex");
|
|
LEX *sublex;
|
|
LEX *oldlex= thd->lex;
|
|
my_lex_states org_next_state= oldlex->next_state;
|
|
|
|
(void)m_lex.push_front(oldlex);
|
|
thd->lex= sublex= new st_lex;
|
|
|
|
/* Reset most stuff. The length arguments doesn't matter here. */
|
|
lex_start(thd, oldlex->buf, (ulong) (oldlex->end_of_query - oldlex->ptr));
|
|
|
|
/*
|
|
next_state is normally the same (0), but it happens that we swap lex in
|
|
"mid-sentence", so we must restore it.
|
|
*/
|
|
sublex->next_state= org_next_state;
|
|
/* We must reset ptr and end_of_query again */
|
|
sublex->ptr= oldlex->ptr;
|
|
sublex->end_of_query= oldlex->end_of_query;
|
|
sublex->tok_start= oldlex->tok_start;
|
|
sublex->yylineno= oldlex->yylineno;
|
|
/* And keep the SP stuff too */
|
|
sublex->sphead= oldlex->sphead;
|
|
sublex->spcont= oldlex->spcont;
|
|
/* And trigger related stuff too */
|
|
sublex->trg_chistics= oldlex->trg_chistics;
|
|
sublex->trg_table_fields.empty();
|
|
sublex->sp_lex_in_use= FALSE;
|
|
|
|
sublex->in_comment= oldlex->in_comment;
|
|
|
|
/* Reset type info. */
|
|
|
|
sublex->charset= NULL;
|
|
sublex->length= NULL;
|
|
sublex->dec= NULL;
|
|
sublex->interval_list.empty();
|
|
sublex->type= 0;
|
|
|
|
DBUG_VOID_RETURN;
|
|
}
|
|
|
|
// Restore lex during parsing, after we have parsed a sub statement.
|
|
void
|
|
sp_head::restore_lex(THD *thd)
|
|
{
|
|
DBUG_ENTER("sp_head::restore_lex");
|
|
LEX *sublex= thd->lex;
|
|
LEX *oldlex= (LEX *)m_lex.pop();
|
|
|
|
if (! oldlex)
|
|
return; // Nothing to restore
|
|
|
|
// Update some state in the old one first
|
|
oldlex->ptr= sublex->ptr;
|
|
oldlex->next_state= sublex->next_state;
|
|
oldlex->trg_table_fields.push_back(&sublex->trg_table_fields);
|
|
|
|
/*
|
|
Add routines which are used by statement to respective set for
|
|
this routine.
|
|
*/
|
|
sp_update_sp_used_routines(&m_sroutines, &sublex->sroutines);
|
|
/*
|
|
Merge tables used by this statement (but not by its functions or
|
|
procedures) to multiset of tables used by this routine.
|
|
*/
|
|
merge_table_list(thd, sublex->query_tables, sublex);
|
|
if (! sublex->sp_lex_in_use)
|
|
{
|
|
lex_end(sublex);
|
|
delete sublex;
|
|
}
|
|
thd->lex= oldlex;
|
|
DBUG_VOID_RETURN;
|
|
}
|
|
|
|
void
|
|
sp_head::push_backpatch(sp_instr *i, sp_label_t *lab)
|
|
{
|
|
bp_t *bp= (bp_t *)sql_alloc(sizeof(bp_t));
|
|
|
|
if (bp)
|
|
{
|
|
bp->lab= lab;
|
|
bp->instr= i;
|
|
(void)m_backpatch.push_front(bp);
|
|
}
|
|
}
|
|
|
|
void
|
|
sp_head::backpatch(sp_label_t *lab)
|
|
{
|
|
bp_t *bp;
|
|
uint dest= instructions();
|
|
List_iterator_fast<bp_t> li(m_backpatch);
|
|
|
|
while ((bp= li++))
|
|
{
|
|
if (bp->lab == lab)
|
|
bp->instr->backpatch(dest, lab->ctx);
|
|
}
|
|
}
|
|
|
|
/*
|
|
Prepare an instance of create_field for field creation (fill all necessary
|
|
attributes).
|
|
|
|
SYNOPSIS
|
|
sp_head::fill_field_definition()
|
|
thd [IN] Thread handle
|
|
lex [IN] Yacc parsing context
|
|
field_type [IN] Field type
|
|
field_def [OUT] An instance of create_field to be filled
|
|
|
|
RETURN
|
|
FALSE on success
|
|
TRUE on error
|
|
*/
|
|
|
|
bool
|
|
sp_head::fill_field_definition(THD *thd, LEX *lex,
|
|
enum enum_field_types field_type,
|
|
create_field *field_def)
|
|
{
|
|
HA_CREATE_INFO sp_db_info;
|
|
LEX_STRING cmt = { 0, 0 };
|
|
uint unused1= 0;
|
|
int unused2= 0;
|
|
|
|
load_db_opt_by_name(thd, m_db.str, &sp_db_info);
|
|
|
|
if (field_def->init(thd, (char*) "", field_type, lex->length, lex->dec,
|
|
lex->type, (Item*) 0, (Item*) 0, &cmt, 0,
|
|
&lex->interval_list,
|
|
(lex->charset ? lex->charset :
|
|
sp_db_info.default_table_charset),
|
|
lex->uint_geom_type))
|
|
return TRUE;
|
|
|
|
if (field_def->interval_list.elements)
|
|
field_def->interval= create_typelib(mem_root, field_def,
|
|
&field_def->interval_list);
|
|
|
|
sp_prepare_create_field(thd, field_def);
|
|
|
|
if (prepare_create_field(field_def, &unused1, &unused2, &unused2,
|
|
HA_CAN_GEOMETRY))
|
|
{
|
|
return TRUE;
|
|
}
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
|
|
void
|
|
sp_head::new_cont_backpatch(sp_instr_opt_meta *i)
|
|
{
|
|
m_cont_level+= 1;
|
|
if (i)
|
|
{
|
|
/* Use the cont. destination slot to store the level */
|
|
i->m_cont_dest= m_cont_level;
|
|
(void)m_cont_backpatch.push_front(i);
|
|
}
|
|
}
|
|
|
|
void
|
|
sp_head::add_cont_backpatch(sp_instr_opt_meta *i)
|
|
{
|
|
i->m_cont_dest= m_cont_level;
|
|
(void)m_cont_backpatch.push_front(i);
|
|
}
|
|
|
|
void
|
|
sp_head::do_cont_backpatch()
|
|
{
|
|
uint dest= instructions();
|
|
uint lev= m_cont_level--;
|
|
sp_instr_opt_meta *i;
|
|
|
|
while ((i= m_cont_backpatch.head()) && i->m_cont_dest == lev)
|
|
{
|
|
i->m_cont_dest= dest;
|
|
(void)m_cont_backpatch.pop();
|
|
}
|
|
}
|
|
|
|
void
|
|
sp_head::set_info(longlong created, longlong modified,
|
|
st_sp_chistics *chistics, ulong sql_mode)
|
|
{
|
|
m_created= created;
|
|
m_modified= modified;
|
|
m_chistics= (st_sp_chistics *) memdup_root(mem_root, (char*) chistics,
|
|
sizeof(*chistics));
|
|
if (m_chistics->comment.length == 0)
|
|
m_chistics->comment.str= 0;
|
|
else
|
|
m_chistics->comment.str= strmake_root(mem_root,
|
|
m_chistics->comment.str,
|
|
m_chistics->comment.length);
|
|
m_sql_mode= sql_mode;
|
|
}
|
|
|
|
|
|
void
|
|
sp_head::set_definer(const char *definer, uint definerlen)
|
|
{
|
|
char user_name_holder[USERNAME_LENGTH + 1];
|
|
LEX_STRING_WITH_INIT user_name(user_name_holder, USERNAME_LENGTH);
|
|
|
|
char host_name_holder[HOSTNAME_LENGTH + 1];
|
|
LEX_STRING_WITH_INIT host_name(host_name_holder, HOSTNAME_LENGTH);
|
|
|
|
parse_user(definer, definerlen, user_name.str, &user_name.length,
|
|
host_name.str, &host_name.length);
|
|
|
|
set_definer(&user_name, &host_name);
|
|
}
|
|
|
|
|
|
void
|
|
sp_head::set_definer(const LEX_STRING *user_name, const LEX_STRING *host_name)
|
|
{
|
|
m_definer_user.str= strmake_root(mem_root, user_name->str, user_name->length);
|
|
m_definer_user.length= user_name->length;
|
|
|
|
m_definer_host.str= strmake_root(mem_root, host_name->str, host_name->length);
|
|
m_definer_host.length= host_name->length;
|
|
}
|
|
|
|
|
|
void
|
|
sp_head::reset_thd_mem_root(THD *thd)
|
|
{
|
|
DBUG_ENTER("sp_head::reset_thd_mem_root");
|
|
m_thd_root= thd->mem_root;
|
|
thd->mem_root= &main_mem_root;
|
|
DBUG_PRINT("info", ("mem_root 0x%lx moved to thd mem root 0x%lx",
|
|
(ulong) &mem_root, (ulong) &thd->mem_root));
|
|
free_list= thd->free_list; // Keep the old list
|
|
thd->free_list= NULL; // Start a new one
|
|
m_thd= thd;
|
|
DBUG_VOID_RETURN;
|
|
}
|
|
|
|
void
|
|
sp_head::restore_thd_mem_root(THD *thd)
|
|
{
|
|
DBUG_ENTER("sp_head::restore_thd_mem_root");
|
|
Item *flist= free_list; // The old list
|
|
set_query_arena(thd); // Get new free_list and mem_root
|
|
state= INITIALIZED_FOR_SP;
|
|
|
|
DBUG_PRINT("info", ("mem_root 0x%lx returned from thd mem root 0x%lx",
|
|
(ulong) &mem_root, (ulong) &thd->mem_root));
|
|
thd->free_list= flist; // Restore the old one
|
|
thd->mem_root= m_thd_root;
|
|
m_thd= NULL;
|
|
DBUG_VOID_RETURN;
|
|
}
|
|
|
|
|
|
/*
|
|
Check if a user has access right to a routine
|
|
|
|
SYNOPSIS
|
|
check_show_routine_access()
|
|
thd Thread handler
|
|
sp SP
|
|
full_access Set to 1 if the user has SELECT right to the
|
|
'mysql.proc' able or is the owner of the routine
|
|
RETURN
|
|
0 ok
|
|
1 error
|
|
*/
|
|
|
|
bool check_show_routine_access(THD *thd, sp_head *sp, bool *full_access)
|
|
{
|
|
TABLE_LIST tables;
|
|
bzero((char*) &tables,sizeof(tables));
|
|
tables.db= (char*) "mysql";
|
|
tables.table_name= tables.alias= (char*) "proc";
|
|
*full_access= (!check_table_access(thd, SELECT_ACL, &tables, 1) ||
|
|
(!strcmp(sp->m_definer_user.str,
|
|
thd->security_ctx->priv_user) &&
|
|
!strcmp(sp->m_definer_host.str,
|
|
thd->security_ctx->priv_host)));
|
|
if (!*full_access)
|
|
return check_some_routine_access(thd, sp->m_db.str, sp->m_name.str,
|
|
sp->m_type == TYPE_ENUM_PROCEDURE);
|
|
return 0;
|
|
}
|
|
|
|
|
|
int
|
|
sp_head::show_create_procedure(THD *thd)
|
|
{
|
|
Protocol *protocol= thd->protocol;
|
|
char buff[2048];
|
|
String buffer(buff, sizeof(buff), system_charset_info);
|
|
int res;
|
|
List<Item> field_list;
|
|
byte *sql_mode_str;
|
|
ulong sql_mode_len;
|
|
bool full_access;
|
|
DBUG_ENTER("sp_head::show_create_procedure");
|
|
DBUG_PRINT("info", ("procedure %s", m_name.str));
|
|
|
|
LINT_INIT(sql_mode_str);
|
|
LINT_INIT(sql_mode_len);
|
|
|
|
if (check_show_routine_access(thd, this, &full_access))
|
|
DBUG_RETURN(1);
|
|
|
|
sql_mode_str=
|
|
sys_var_thd_sql_mode::symbolic_mode_representation(thd,
|
|
m_sql_mode,
|
|
&sql_mode_len);
|
|
field_list.push_back(new Item_empty_string("Procedure", NAME_LEN));
|
|
field_list.push_back(new Item_empty_string("sql_mode", sql_mode_len));
|
|
// 1024 is for not to confuse old clients
|
|
Item_empty_string *definition=
|
|
new Item_empty_string("Create Procedure", max(buffer.length(),1024));
|
|
definition->maybe_null= TRUE;
|
|
field_list.push_back(definition);
|
|
|
|
if (protocol->send_fields(&field_list, Protocol::SEND_NUM_ROWS |
|
|
Protocol::SEND_EOF))
|
|
DBUG_RETURN(1);
|
|
protocol->prepare_for_resend();
|
|
protocol->store(m_name.str, m_name.length, system_charset_info);
|
|
protocol->store((char*) sql_mode_str, sql_mode_len, system_charset_info);
|
|
if (full_access)
|
|
protocol->store(m_defstr.str, m_defstr.length, system_charset_info);
|
|
else
|
|
protocol->store_null();
|
|
res= protocol->write();
|
|
send_eof(thd);
|
|
|
|
DBUG_RETURN(res);
|
|
}
|
|
|
|
|
|
/*
|
|
Add instruction to SP
|
|
|
|
SYNOPSIS
|
|
sp_head::add_instr()
|
|
instr Instruction
|
|
*/
|
|
|
|
void sp_head::add_instr(sp_instr *instr)
|
|
{
|
|
instr->free_list= m_thd->free_list;
|
|
m_thd->free_list= 0;
|
|
/*
|
|
Memory root of every instruction is designated for permanent
|
|
transformations (optimizations) made on the parsed tree during
|
|
the first execution. It points to the memory root of the
|
|
entire stored procedure, as their life span is equal.
|
|
*/
|
|
instr->mem_root= &main_mem_root;
|
|
insert_dynamic(&m_instr, (gptr)&instr);
|
|
}
|
|
|
|
|
|
int
|
|
sp_head::show_create_function(THD *thd)
|
|
{
|
|
Protocol *protocol= thd->protocol;
|
|
char buff[2048];
|
|
String buffer(buff, sizeof(buff), system_charset_info);
|
|
int res;
|
|
List<Item> field_list;
|
|
byte *sql_mode_str;
|
|
ulong sql_mode_len;
|
|
bool full_access;
|
|
DBUG_ENTER("sp_head::show_create_function");
|
|
DBUG_PRINT("info", ("procedure %s", m_name.str));
|
|
LINT_INIT(sql_mode_str);
|
|
LINT_INIT(sql_mode_len);
|
|
|
|
if (check_show_routine_access(thd, this, &full_access))
|
|
DBUG_RETURN(1);
|
|
|
|
sql_mode_str=
|
|
sys_var_thd_sql_mode::symbolic_mode_representation(thd,
|
|
m_sql_mode,
|
|
&sql_mode_len);
|
|
field_list.push_back(new Item_empty_string("Function",NAME_LEN));
|
|
field_list.push_back(new Item_empty_string("sql_mode", sql_mode_len));
|
|
Item_empty_string *definition=
|
|
new Item_empty_string("Create Function", max(buffer.length(),1024));
|
|
definition->maybe_null= TRUE;
|
|
field_list.push_back(definition);
|
|
|
|
if (protocol->send_fields(&field_list,
|
|
Protocol::SEND_NUM_ROWS | Protocol::SEND_EOF))
|
|
DBUG_RETURN(1);
|
|
protocol->prepare_for_resend();
|
|
protocol->store(m_name.str, m_name.length, system_charset_info);
|
|
protocol->store((char*) sql_mode_str, sql_mode_len, system_charset_info);
|
|
if (full_access)
|
|
protocol->store(m_defstr.str, m_defstr.length, system_charset_info);
|
|
else
|
|
protocol->store_null();
|
|
res= protocol->write();
|
|
send_eof(thd);
|
|
|
|
DBUG_RETURN(res);
|
|
}
|
|
|
|
|
|
/*
|
|
Do some minimal optimization of the code:
|
|
1) Mark used instructions
|
|
1.1) While doing this, shortcut jumps to jump instructions
|
|
2) Compact the code, removing unused instructions
|
|
|
|
This is the main mark and move loop; it relies on the following methods
|
|
in sp_instr and its subclasses:
|
|
|
|
opt_mark() Mark instruction as reachable
|
|
opt_shortcut_jump() Shortcut jumps to the final destination;
|
|
used by opt_mark().
|
|
opt_move() Update moved instruction
|
|
set_destination() Set the new destination (jump instructions only)
|
|
*/
|
|
|
|
void sp_head::optimize()
|
|
{
|
|
List<sp_instr> bp;
|
|
sp_instr *i;
|
|
uint src, dst;
|
|
|
|
opt_mark();
|
|
|
|
bp.empty();
|
|
src= dst= 0;
|
|
while ((i= get_instr(src)))
|
|
{
|
|
if (! i->marked)
|
|
{
|
|
delete i;
|
|
src+= 1;
|
|
}
|
|
else
|
|
{
|
|
if (src != dst)
|
|
{ // Move the instruction and update prev. jumps
|
|
sp_instr *ibp;
|
|
List_iterator_fast<sp_instr> li(bp);
|
|
|
|
set_dynamic(&m_instr, (gptr)&i, dst);
|
|
while ((ibp= li++))
|
|
{
|
|
sp_instr_opt_meta *im= static_cast<sp_instr_opt_meta *>(ibp);
|
|
im->set_destination(src, dst);
|
|
}
|
|
}
|
|
i->opt_move(dst, &bp);
|
|
src+= 1;
|
|
dst+= 1;
|
|
}
|
|
}
|
|
m_instr.elements= dst;
|
|
bp.empty();
|
|
}
|
|
|
|
void sp_head::add_mark_lead(uint ip, List<sp_instr> *leads)
|
|
{
|
|
sp_instr *i= get_instr(ip);
|
|
|
|
if (i && ! i->marked)
|
|
leads->push_front(i);
|
|
}
|
|
|
|
void
|
|
sp_head::opt_mark()
|
|
{
|
|
uint ip;
|
|
sp_instr *i;
|
|
List<sp_instr> leads;
|
|
|
|
/*
|
|
Forward flow analysis algorithm in the instruction graph:
|
|
- first, add the entry point in the graph (the first instruction) to the
|
|
'leads' list of paths to explore.
|
|
- while there are still leads to explore:
|
|
- pick one lead, and follow the path forward. Mark instruction reached.
|
|
Stop only if the end of the routine is reached, or the path converge
|
|
to code already explored (marked).
|
|
- while following a path, collect in the 'leads' list any fork to
|
|
another path (caused by conditional jumps instructions), so that these
|
|
paths can be explored as well.
|
|
*/
|
|
|
|
/* Add the entry point */
|
|
i= get_instr(0);
|
|
leads.push_front(i);
|
|
|
|
/* For each path of code ... */
|
|
while (leads.elements != 0)
|
|
{
|
|
i= leads.pop();
|
|
|
|
/* Mark the entire path, collecting new leads. */
|
|
while (i && ! i->marked)
|
|
{
|
|
ip= i->opt_mark(this, & leads);
|
|
i= get_instr(ip);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
#ifndef DBUG_OFF
|
|
/*
|
|
Return the routine instructions as a result set.
|
|
Returns 0 if ok, !=0 on error.
|
|
*/
|
|
int
|
|
sp_head::show_routine_code(THD *thd)
|
|
{
|
|
Protocol *protocol= thd->protocol;
|
|
char buff[2048];
|
|
String buffer(buff, sizeof(buff), system_charset_info);
|
|
List<Item> field_list;
|
|
sp_instr *i;
|
|
bool full_access;
|
|
int res= 0;
|
|
uint ip;
|
|
DBUG_ENTER("sp_head::show_routine_code");
|
|
DBUG_PRINT("info", ("procedure: %s", m_name.str));
|
|
|
|
if (check_show_routine_access(thd, this, &full_access) || !full_access)
|
|
DBUG_RETURN(1);
|
|
|
|
field_list.push_back(new Item_uint("Pos", 9));
|
|
// 1024 is for not to confuse old clients
|
|
field_list.push_back(new Item_empty_string("Instruction",
|
|
max(buffer.length(), 1024)));
|
|
if (protocol->send_fields(&field_list, Protocol::SEND_NUM_ROWS |
|
|
Protocol::SEND_EOF))
|
|
DBUG_RETURN(1);
|
|
|
|
for (ip= 0; (i = get_instr(ip)) ; ip++)
|
|
{
|
|
/*
|
|
Consistency check. If these are different something went wrong
|
|
during optimization.
|
|
*/
|
|
if (ip != i->m_ip)
|
|
{
|
|
const char *format= "Instruction at position %u has m_ip=%u";
|
|
char tmp[sizeof(format) + 2*SP_INSTR_UINT_MAXLEN + 1];
|
|
|
|
sprintf(tmp, format, ip, i->m_ip);
|
|
/*
|
|
Since this is for debugging purposes only, we don't bother to
|
|
introduce a special error code for it.
|
|
*/
|
|
push_warning(thd, MYSQL_ERROR::WARN_LEVEL_WARN, ER_UNKNOWN_ERROR, tmp);
|
|
}
|
|
protocol->prepare_for_resend();
|
|
protocol->store((longlong)ip);
|
|
|
|
buffer.set("", 0, system_charset_info);
|
|
i->print(&buffer);
|
|
protocol->store(buffer.ptr(), buffer.length(), system_charset_info);
|
|
if ((res= protocol->write()))
|
|
break;
|
|
}
|
|
send_eof(thd);
|
|
|
|
DBUG_RETURN(res);
|
|
}
|
|
#endif // ifndef DBUG_OFF
|
|
|
|
|
|
/*
|
|
Prepare LEX and thread for execution of instruction, if requested open
|
|
and lock LEX's tables, execute instruction's core function, perform
|
|
cleanup afterwards.
|
|
|
|
SYNOPSIS
|
|
reset_lex_and_exec_core()
|
|
thd - thread context
|
|
nextp - out - next instruction
|
|
open_tables - if TRUE then check read access to tables in LEX's table
|
|
list and open and lock them (used in instructions which
|
|
need to calculate some expression and don't execute
|
|
complete statement).
|
|
sp_instr - instruction for which we prepare context, and which core
|
|
function execute by calling its exec_core() method.
|
|
|
|
NOTE
|
|
We are not saving/restoring some parts of THD which may need this because
|
|
we do this once for whole routine execution in sp_head::execute().
|
|
|
|
RETURN VALUE
|
|
0/non-0 - Success/Failure
|
|
*/
|
|
|
|
int
|
|
sp_lex_keeper::reset_lex_and_exec_core(THD *thd, uint *nextp,
|
|
bool open_tables, sp_instr* instr)
|
|
{
|
|
int res= 0;
|
|
|
|
DBUG_ASSERT(!thd->derived_tables);
|
|
DBUG_ASSERT(thd->change_list.is_empty());
|
|
/*
|
|
Use our own lex.
|
|
We should not save old value since it is saved/restored in
|
|
sp_head::execute() when we are entering/leaving routine.
|
|
*/
|
|
thd->lex= m_lex;
|
|
|
|
VOID(pthread_mutex_lock(&LOCK_thread_count));
|
|
thd->query_id= next_query_id();
|
|
VOID(pthread_mutex_unlock(&LOCK_thread_count));
|
|
|
|
if (thd->prelocked_mode == NON_PRELOCKED)
|
|
{
|
|
/*
|
|
This statement will enter/leave prelocked mode on its own.
|
|
Entering prelocked mode changes table list and related members
|
|
of LEX, so we'll need to restore them.
|
|
*/
|
|
if (lex_query_tables_own_last)
|
|
{
|
|
/*
|
|
We've already entered/left prelocked mode with this statement.
|
|
Attach the list of tables that need to be prelocked and mark m_lex
|
|
as having such list attached.
|
|
*/
|
|
*lex_query_tables_own_last= prelocking_tables;
|
|
m_lex->mark_as_requiring_prelocking(lex_query_tables_own_last);
|
|
}
|
|
}
|
|
|
|
reinit_stmt_before_use(thd, m_lex);
|
|
|
|
if (open_tables)
|
|
res= instr->exec_open_and_lock_tables(thd, m_lex->query_tables);
|
|
|
|
if (!res)
|
|
res= instr->exec_core(thd, nextp);
|
|
|
|
m_lex->unit.cleanup();
|
|
|
|
thd_proc_info(thd, "closing tables");
|
|
close_thread_tables(thd);
|
|
thd_proc_info(thd, 0);
|
|
|
|
if (m_lex->query_tables_own_last)
|
|
{
|
|
/*
|
|
We've entered and left prelocking mode when executing statement
|
|
stored in m_lex.
|
|
m_lex->query_tables(->next_global)* list now has a 'tail' - a list
|
|
of tables that are added for prelocking. (If this is the first
|
|
execution, the 'tail' was added by open_tables(), otherwise we've
|
|
attached it above in this function).
|
|
Now we'll save the 'tail', and detach it.
|
|
*/
|
|
lex_query_tables_own_last= m_lex->query_tables_own_last;
|
|
prelocking_tables= *lex_query_tables_own_last;
|
|
*lex_query_tables_own_last= NULL;
|
|
m_lex->mark_as_requiring_prelocking(NULL);
|
|
}
|
|
thd->rollback_item_tree_changes();
|
|
/* Update the state of the active arena. */
|
|
thd->stmt_arena->state= Query_arena::EXECUTED;
|
|
|
|
|
|
/*
|
|
Unlike for PS we should not call Item's destructors for newly created
|
|
items after execution of each instruction in stored routine. This is
|
|
because SP often create Item (like Item_int, Item_string etc...) when
|
|
they want to store some value in local variable, pass return value and
|
|
etc... So their life time should be longer than one instruction.
|
|
|
|
cleanup_items() is called in sp_head::execute()
|
|
*/
|
|
return res || thd->net.report_error;
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr class functions
|
|
*/
|
|
|
|
int sp_instr::exec_open_and_lock_tables(THD *thd, TABLE_LIST *tables)
|
|
{
|
|
int result;
|
|
|
|
/*
|
|
Check whenever we have access to tables for this statement
|
|
and open and lock them before executing instructions core function.
|
|
*/
|
|
if (check_table_access(thd, SELECT_ACL, tables, 0)
|
|
|| open_and_lock_tables(thd, tables))
|
|
result= -1;
|
|
else
|
|
result= 0;
|
|
|
|
return result;
|
|
}
|
|
|
|
uint sp_instr::get_cont_dest()
|
|
{
|
|
return (m_ip+1);
|
|
}
|
|
|
|
|
|
int sp_instr::exec_core(THD *thd, uint *nextp)
|
|
{
|
|
DBUG_ASSERT(0);
|
|
return 0;
|
|
}
|
|
|
|
/*
|
|
sp_instr_stmt class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_stmt::execute(THD *thd, uint *nextp)
|
|
{
|
|
char *query;
|
|
uint32 query_length;
|
|
int res;
|
|
DBUG_ENTER("sp_instr_stmt::execute");
|
|
DBUG_PRINT("info", ("command: %d", m_lex_keeper.sql_command()));
|
|
|
|
query= thd->query;
|
|
query_length= thd->query_length;
|
|
if (!(res= alloc_query(thd, m_query.str, m_query.length+1)) &&
|
|
!(res=subst_spvars(thd, this, &m_query)))
|
|
{
|
|
/*
|
|
(the order of query cache and subst_spvars calls is irrelevant because
|
|
queries with SP vars can't be cached)
|
|
*/
|
|
if (query_cache_send_result_to_client(thd,
|
|
thd->query, thd->query_length) <= 0)
|
|
{
|
|
res= m_lex_keeper.reset_lex_and_exec_core(thd, nextp, FALSE, this);
|
|
query_cache_end_of_result(thd);
|
|
}
|
|
else
|
|
*nextp= m_ip+1;
|
|
thd->query= query;
|
|
thd->query_length= query_length;
|
|
}
|
|
DBUG_RETURN(res);
|
|
}
|
|
|
|
|
|
void
|
|
sp_instr_stmt::print(String *str)
|
|
{
|
|
uint i, len;
|
|
|
|
/* stmt CMD "..." */
|
|
if (str->reserve(SP_STMT_PRINT_MAXLEN+SP_INSTR_UINT_MAXLEN+8))
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("stmt "));
|
|
str->qs_append((uint)m_lex_keeper.sql_command());
|
|
str->qs_append(STRING_WITH_LEN(" \""));
|
|
len= m_query.length;
|
|
/*
|
|
Print the query string (but not too much of it), just to indicate which
|
|
statement it is.
|
|
*/
|
|
if (len > SP_STMT_PRINT_MAXLEN)
|
|
len= SP_STMT_PRINT_MAXLEN-3;
|
|
/* Copy the query string and replace '\n' with ' ' in the process */
|
|
for (i= 0 ; i < len ; i++)
|
|
{
|
|
char c= m_query.str[i];
|
|
if (c == '\n')
|
|
c= ' ';
|
|
str->qs_append(c);
|
|
}
|
|
if (m_query.length > SP_STMT_PRINT_MAXLEN)
|
|
str->qs_append(STRING_WITH_LEN("...")); /* Indicate truncated string */
|
|
str->qs_append('"');
|
|
}
|
|
|
|
|
|
int
|
|
sp_instr_stmt::exec_core(THD *thd, uint *nextp)
|
|
{
|
|
int res= mysql_execute_command(thd);
|
|
*nextp= m_ip+1;
|
|
return res;
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr_set class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_set::execute(THD *thd, uint *nextp)
|
|
{
|
|
DBUG_ENTER("sp_instr_set::execute");
|
|
DBUG_PRINT("info", ("offset: %u", m_offset));
|
|
|
|
DBUG_RETURN(m_lex_keeper.reset_lex_and_exec_core(thd, nextp, TRUE, this));
|
|
}
|
|
|
|
|
|
int
|
|
sp_instr_set::exec_core(THD *thd, uint *nextp)
|
|
{
|
|
int res= thd->spcont->set_variable(thd, m_offset, &m_value);
|
|
|
|
if (res && thd->spcont->found_handler_here())
|
|
{
|
|
/*
|
|
Failed to evaluate the value, and a handler has been found. Reset the
|
|
variable to NULL.
|
|
*/
|
|
|
|
if (thd->spcont->set_variable(thd, m_offset, 0))
|
|
{
|
|
/* If this also failed, let's abort. */
|
|
|
|
sp_rcontext *spcont= thd->spcont;
|
|
|
|
thd->spcont= 0; /* Avoid handlers */
|
|
my_error(ER_OUT_OF_RESOURCES, MYF(0));
|
|
spcont->clear_handler();
|
|
thd->spcont= spcont;
|
|
}
|
|
}
|
|
|
|
*nextp = m_ip+1;
|
|
return res;
|
|
}
|
|
|
|
void
|
|
sp_instr_set::print(String *str)
|
|
{
|
|
/* set name@offset ... */
|
|
int rsrv = SP_INSTR_UINT_MAXLEN+6;
|
|
sp_variable_t *var = m_ctx->find_variable(m_offset);
|
|
|
|
/* 'var' should always be non-null, but just in case... */
|
|
if (var)
|
|
rsrv+= var->name.length;
|
|
if (str->reserve(rsrv))
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("set "));
|
|
if (var)
|
|
{
|
|
str->qs_append(var->name.str, var->name.length);
|
|
str->qs_append('@');
|
|
}
|
|
str->qs_append(m_offset);
|
|
str->qs_append(' ');
|
|
m_value->print(str);
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr_set_trigger_field class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_set_trigger_field::execute(THD *thd, uint *nextp)
|
|
{
|
|
DBUG_ENTER("sp_instr_set_trigger_field::execute");
|
|
DBUG_RETURN(m_lex_keeper.reset_lex_and_exec_core(thd, nextp, TRUE, this));
|
|
}
|
|
|
|
|
|
int
|
|
sp_instr_set_trigger_field::exec_core(THD *thd, uint *nextp)
|
|
{
|
|
const int res= (trigger_field->set_value(thd, &value) ? -1 : 0);
|
|
*nextp = m_ip+1;
|
|
return res;
|
|
}
|
|
|
|
void
|
|
sp_instr_set_trigger_field::print(String *str)
|
|
{
|
|
str->append(STRING_WITH_LEN("set_trigger_field "));
|
|
trigger_field->print(str);
|
|
str->append(STRING_WITH_LEN(":="));
|
|
value->print(str);
|
|
}
|
|
|
|
/*
|
|
sp_instr_opt_meta
|
|
*/
|
|
|
|
uint sp_instr_opt_meta::get_cont_dest()
|
|
{
|
|
return m_cont_dest;
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr_jump class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_jump::execute(THD *thd, uint *nextp)
|
|
{
|
|
DBUG_ENTER("sp_instr_jump::execute");
|
|
DBUG_PRINT("info", ("destination: %u", m_dest));
|
|
|
|
*nextp= m_dest;
|
|
DBUG_RETURN(0);
|
|
}
|
|
|
|
void
|
|
sp_instr_jump::print(String *str)
|
|
{
|
|
/* jump dest */
|
|
if (str->reserve(SP_INSTR_UINT_MAXLEN+5))
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("jump "));
|
|
str->qs_append(m_dest);
|
|
}
|
|
|
|
uint
|
|
sp_instr_jump::opt_mark(sp_head *sp, List<sp_instr> *leads)
|
|
{
|
|
m_dest= opt_shortcut_jump(sp, this);
|
|
if (m_dest != m_ip+1) /* Jumping to following instruction? */
|
|
marked= 1;
|
|
m_optdest= sp->get_instr(m_dest);
|
|
return m_dest;
|
|
}
|
|
|
|
uint
|
|
sp_instr_jump::opt_shortcut_jump(sp_head *sp, sp_instr *start)
|
|
{
|
|
uint dest= m_dest;
|
|
sp_instr *i;
|
|
|
|
while ((i= sp->get_instr(dest)))
|
|
{
|
|
uint ndest;
|
|
|
|
if (start == i || this == i)
|
|
break;
|
|
ndest= i->opt_shortcut_jump(sp, start);
|
|
if (ndest == dest)
|
|
break;
|
|
dest= ndest;
|
|
}
|
|
return dest;
|
|
}
|
|
|
|
void
|
|
sp_instr_jump::opt_move(uint dst, List<sp_instr> *bp)
|
|
{
|
|
if (m_dest > m_ip)
|
|
bp->push_back(this); // Forward
|
|
else if (m_optdest)
|
|
m_dest= m_optdest->m_ip; // Backward
|
|
m_ip= dst;
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr_jump_if_not class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_jump_if_not::execute(THD *thd, uint *nextp)
|
|
{
|
|
DBUG_ENTER("sp_instr_jump_if_not::execute");
|
|
DBUG_PRINT("info", ("destination: %u", m_dest));
|
|
DBUG_RETURN(m_lex_keeper.reset_lex_and_exec_core(thd, nextp, TRUE, this));
|
|
}
|
|
|
|
|
|
int
|
|
sp_instr_jump_if_not::exec_core(THD *thd, uint *nextp)
|
|
{
|
|
Item *it;
|
|
int res;
|
|
|
|
it= sp_prepare_func_item(thd, &m_expr);
|
|
if (! it)
|
|
{
|
|
res= -1;
|
|
}
|
|
else
|
|
{
|
|
res= 0;
|
|
if (! it->val_bool())
|
|
*nextp = m_dest;
|
|
else
|
|
*nextp = m_ip+1;
|
|
}
|
|
|
|
return res;
|
|
}
|
|
|
|
|
|
void
|
|
sp_instr_jump_if_not::print(String *str)
|
|
{
|
|
/* jump_if_not dest(cont) ... */
|
|
if (str->reserve(2*SP_INSTR_UINT_MAXLEN+14+32)) // Add some for the expr. too
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("jump_if_not "));
|
|
str->qs_append(m_dest);
|
|
str->qs_append('(');
|
|
str->qs_append(m_cont_dest);
|
|
str->qs_append(STRING_WITH_LEN(") "));
|
|
m_expr->print(str);
|
|
}
|
|
|
|
|
|
uint
|
|
sp_instr_jump_if_not::opt_mark(sp_head *sp, List<sp_instr> *leads)
|
|
{
|
|
sp_instr *i;
|
|
|
|
marked= 1;
|
|
if ((i= sp->get_instr(m_dest)))
|
|
{
|
|
m_dest= i->opt_shortcut_jump(sp, this);
|
|
m_optdest= sp->get_instr(m_dest);
|
|
}
|
|
sp->add_mark_lead(m_dest, leads);
|
|
if ((i= sp->get_instr(m_cont_dest)))
|
|
{
|
|
m_cont_dest= i->opt_shortcut_jump(sp, this);
|
|
m_cont_optdest= sp->get_instr(m_cont_dest);
|
|
}
|
|
sp->add_mark_lead(m_cont_dest, leads);
|
|
return m_ip+1;
|
|
}
|
|
|
|
void
|
|
sp_instr_jump_if_not::opt_move(uint dst, List<sp_instr> *bp)
|
|
{
|
|
/*
|
|
cont. destinations may point backwards after shortcutting jumps
|
|
during the mark phase. If it's still pointing forwards, only
|
|
push this for backpatching if sp_instr_jump::opt_move() will not
|
|
do it (i.e. if the m_dest points backwards).
|
|
*/
|
|
if (m_cont_dest > m_ip)
|
|
{ // Forward
|
|
if (m_dest < m_ip)
|
|
bp->push_back(this);
|
|
}
|
|
else if (m_cont_optdest)
|
|
m_cont_dest= m_cont_optdest->m_ip; // Backward
|
|
/* This will take care of m_dest and m_ip */
|
|
sp_instr_jump::opt_move(dst, bp);
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr_freturn class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_freturn::execute(THD *thd, uint *nextp)
|
|
{
|
|
DBUG_ENTER("sp_instr_freturn::execute");
|
|
DBUG_RETURN(m_lex_keeper.reset_lex_and_exec_core(thd, nextp, TRUE, this));
|
|
}
|
|
|
|
|
|
int
|
|
sp_instr_freturn::exec_core(THD *thd, uint *nextp)
|
|
{
|
|
/*
|
|
Change <next instruction pointer>, so that this will be the last
|
|
instruction in the stored function.
|
|
*/
|
|
|
|
*nextp= UINT_MAX;
|
|
|
|
/*
|
|
Evaluate the value of return expression and store it in current runtime
|
|
context.
|
|
|
|
NOTE: It's necessary to evaluate result item right here, because we must
|
|
do it in scope of execution the current context/block.
|
|
*/
|
|
|
|
return thd->spcont->set_return_value(thd, &m_value);
|
|
}
|
|
|
|
void
|
|
sp_instr_freturn::print(String *str)
|
|
{
|
|
/* freturn type expr... */
|
|
if (str->reserve(1024+8+32)) // Add some for the expr. too
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("freturn "));
|
|
str->qs_append((uint)m_type);
|
|
str->qs_append(' ');
|
|
m_value->print(str);
|
|
}
|
|
|
|
/*
|
|
sp_instr_hpush_jump class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_hpush_jump::execute(THD *thd, uint *nextp)
|
|
{
|
|
DBUG_ENTER("sp_instr_hpush_jump::execute");
|
|
List_iterator_fast<sp_cond_type_t> li(m_cond);
|
|
sp_cond_type_t *p;
|
|
|
|
while ((p= li++))
|
|
thd->spcont->push_handler(p, m_ip+1, m_type, m_frame);
|
|
|
|
*nextp= m_dest;
|
|
DBUG_RETURN(0);
|
|
}
|
|
|
|
|
|
void
|
|
sp_instr_hpush_jump::print(String *str)
|
|
{
|
|
/* hpush_jump dest fsize type */
|
|
if (str->reserve(SP_INSTR_UINT_MAXLEN*2 + 21))
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("hpush_jump "));
|
|
str->qs_append(m_dest);
|
|
str->qs_append(' ');
|
|
str->qs_append(m_frame);
|
|
switch (m_type) {
|
|
case SP_HANDLER_NONE:
|
|
str->qs_append(STRING_WITH_LEN(" NONE")); // This would be a bug
|
|
break;
|
|
case SP_HANDLER_EXIT:
|
|
str->qs_append(STRING_WITH_LEN(" EXIT"));
|
|
break;
|
|
case SP_HANDLER_CONTINUE:
|
|
str->qs_append(STRING_WITH_LEN(" CONTINUE"));
|
|
break;
|
|
case SP_HANDLER_UNDO:
|
|
str->qs_append(STRING_WITH_LEN(" UNDO"));
|
|
break;
|
|
default:
|
|
// This would be a bug as well
|
|
str->qs_append(STRING_WITH_LEN(" UNKNOWN:"));
|
|
str->qs_append(m_type);
|
|
}
|
|
}
|
|
|
|
|
|
uint
|
|
sp_instr_hpush_jump::opt_mark(sp_head *sp, List<sp_instr> *leads)
|
|
{
|
|
sp_instr *i;
|
|
|
|
marked= 1;
|
|
if ((i= sp->get_instr(m_dest)))
|
|
{
|
|
m_dest= i->opt_shortcut_jump(sp, this);
|
|
m_optdest= sp->get_instr(m_dest);
|
|
}
|
|
sp->add_mark_lead(m_dest, leads);
|
|
return m_ip+1;
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr_hpop class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_hpop::execute(THD *thd, uint *nextp)
|
|
{
|
|
DBUG_ENTER("sp_instr_hpop::execute");
|
|
thd->spcont->pop_handlers(m_count);
|
|
*nextp= m_ip+1;
|
|
DBUG_RETURN(0);
|
|
}
|
|
|
|
void
|
|
sp_instr_hpop::print(String *str)
|
|
{
|
|
/* hpop count */
|
|
if (str->reserve(SP_INSTR_UINT_MAXLEN+5))
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("hpop "));
|
|
str->qs_append(m_count);
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr_hreturn class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_hreturn::execute(THD *thd, uint *nextp)
|
|
{
|
|
DBUG_ENTER("sp_instr_hreturn::execute");
|
|
if (m_dest)
|
|
*nextp= m_dest;
|
|
else
|
|
{
|
|
*nextp= thd->spcont->pop_hstack();
|
|
}
|
|
thd->spcont->exit_handler();
|
|
DBUG_RETURN(0);
|
|
}
|
|
|
|
|
|
void
|
|
sp_instr_hreturn::print(String *str)
|
|
{
|
|
/* hreturn framesize dest */
|
|
if (str->reserve(SP_INSTR_UINT_MAXLEN*2 + 9))
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("hreturn "));
|
|
str->qs_append(m_frame);
|
|
if (m_dest)
|
|
{
|
|
str->qs_append(' ');
|
|
str->qs_append(m_dest);
|
|
}
|
|
}
|
|
|
|
|
|
uint
|
|
sp_instr_hreturn::opt_mark(sp_head *sp, List<sp_instr> *leads)
|
|
{
|
|
if (m_dest)
|
|
return sp_instr_jump::opt_mark(sp, leads);
|
|
|
|
marked= 1;
|
|
return UINT_MAX;
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr_cpush class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_cpush::execute(THD *thd, uint *nextp)
|
|
{
|
|
Query_arena backup_arena;
|
|
DBUG_ENTER("sp_instr_cpush::execute");
|
|
|
|
/*
|
|
We should create cursors in the callers arena, as
|
|
it could be (and usually is) used in several instructions.
|
|
*/
|
|
thd->set_n_backup_active_arena(thd->spcont->callers_arena, &backup_arena);
|
|
|
|
thd->spcont->push_cursor(&m_lex_keeper, this);
|
|
|
|
thd->restore_active_arena(thd->spcont->callers_arena, &backup_arena);
|
|
|
|
*nextp= m_ip+1;
|
|
|
|
DBUG_RETURN(0);
|
|
}
|
|
|
|
|
|
void
|
|
sp_instr_cpush::print(String *str)
|
|
{
|
|
LEX_STRING n;
|
|
my_bool found= m_ctx->find_cursor(m_cursor, &n);
|
|
/* cpush name@offset */
|
|
uint rsrv= SP_INSTR_UINT_MAXLEN+7;
|
|
|
|
if (found)
|
|
rsrv+= n.length;
|
|
if (str->reserve(rsrv))
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("cpush "));
|
|
if (found)
|
|
{
|
|
str->qs_append(n.str, n.length);
|
|
str->qs_append('@');
|
|
}
|
|
str->qs_append(m_cursor);
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr_cpop class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_cpop::execute(THD *thd, uint *nextp)
|
|
{
|
|
DBUG_ENTER("sp_instr_cpop::execute");
|
|
thd->spcont->pop_cursors(m_count);
|
|
*nextp= m_ip+1;
|
|
DBUG_RETURN(0);
|
|
}
|
|
|
|
|
|
void
|
|
sp_instr_cpop::print(String *str)
|
|
{
|
|
/* cpop count */
|
|
if (str->reserve(SP_INSTR_UINT_MAXLEN+5))
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("cpop "));
|
|
str->qs_append(m_count);
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr_copen class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_copen::execute(THD *thd, uint *nextp)
|
|
{
|
|
/*
|
|
We don't store a pointer to the cursor in the instruction to be
|
|
able to reuse the same instruction among different threads in future.
|
|
*/
|
|
sp_cursor *c= thd->spcont->get_cursor(m_cursor);
|
|
int res;
|
|
DBUG_ENTER("sp_instr_copen::execute");
|
|
|
|
if (! c)
|
|
res= -1;
|
|
else
|
|
{
|
|
sp_lex_keeper *lex_keeper= c->get_lex_keeper();
|
|
Query_arena *old_arena= thd->stmt_arena;
|
|
|
|
/*
|
|
Get the Query_arena from the cpush instruction, which contains
|
|
the free_list of the query, so new items (if any) are stored in
|
|
the right free_list, and we can cleanup after each open.
|
|
*/
|
|
thd->stmt_arena= c->get_instr();
|
|
res= lex_keeper->reset_lex_and_exec_core(thd, nextp, FALSE, this);
|
|
/* Cleanup the query's items */
|
|
if (thd->stmt_arena->free_list)
|
|
cleanup_items(thd->stmt_arena->free_list);
|
|
thd->stmt_arena= old_arena;
|
|
/*
|
|
Work around the fact that errors in selects are not returned properly
|
|
(but instead converted into a warning), so if a condition handler
|
|
caught, we have lost the result code.
|
|
*/
|
|
if (!res)
|
|
{
|
|
uint dummy1, dummy2;
|
|
|
|
if (thd->spcont->found_handler(&dummy1, &dummy2))
|
|
res= -1;
|
|
}
|
|
/* TODO: Assert here that we either have an error or a cursor */
|
|
}
|
|
DBUG_RETURN(res);
|
|
}
|
|
|
|
|
|
int
|
|
sp_instr_copen::exec_core(THD *thd, uint *nextp)
|
|
{
|
|
sp_cursor *c= thd->spcont->get_cursor(m_cursor);
|
|
int res= c->open(thd);
|
|
*nextp= m_ip+1;
|
|
return res;
|
|
}
|
|
|
|
void
|
|
sp_instr_copen::print(String *str)
|
|
{
|
|
LEX_STRING n;
|
|
my_bool found= m_ctx->find_cursor(m_cursor, &n);
|
|
/* copen name@offset */
|
|
uint rsrv= SP_INSTR_UINT_MAXLEN+7;
|
|
|
|
if (found)
|
|
rsrv+= n.length;
|
|
if (str->reserve(rsrv))
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("copen "));
|
|
if (found)
|
|
{
|
|
str->qs_append(n.str, n.length);
|
|
str->qs_append('@');
|
|
}
|
|
str->qs_append(m_cursor);
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr_cclose class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_cclose::execute(THD *thd, uint *nextp)
|
|
{
|
|
sp_cursor *c= thd->spcont->get_cursor(m_cursor);
|
|
int res;
|
|
DBUG_ENTER("sp_instr_cclose::execute");
|
|
|
|
if (! c)
|
|
res= -1;
|
|
else
|
|
res= c->close(thd);
|
|
*nextp= m_ip+1;
|
|
DBUG_RETURN(res);
|
|
}
|
|
|
|
|
|
void
|
|
sp_instr_cclose::print(String *str)
|
|
{
|
|
LEX_STRING n;
|
|
my_bool found= m_ctx->find_cursor(m_cursor, &n);
|
|
/* cclose name@offset */
|
|
uint rsrv= SP_INSTR_UINT_MAXLEN+8;
|
|
|
|
if (found)
|
|
rsrv+= n.length;
|
|
if (str->reserve(rsrv))
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("cclose "));
|
|
if (found)
|
|
{
|
|
str->qs_append(n.str, n.length);
|
|
str->qs_append('@');
|
|
}
|
|
str->qs_append(m_cursor);
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr_cfetch class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_cfetch::execute(THD *thd, uint *nextp)
|
|
{
|
|
sp_cursor *c= thd->spcont->get_cursor(m_cursor);
|
|
int res;
|
|
Query_arena backup_arena;
|
|
DBUG_ENTER("sp_instr_cfetch::execute");
|
|
|
|
res= c ? c->fetch(thd, &m_varlist) : -1;
|
|
|
|
*nextp= m_ip+1;
|
|
DBUG_RETURN(res);
|
|
}
|
|
|
|
|
|
void
|
|
sp_instr_cfetch::print(String *str)
|
|
{
|
|
List_iterator_fast<struct sp_variable> li(m_varlist);
|
|
sp_variable_t *pv;
|
|
LEX_STRING n;
|
|
my_bool found= m_ctx->find_cursor(m_cursor, &n);
|
|
/* cfetch name@offset vars... */
|
|
uint rsrv= SP_INSTR_UINT_MAXLEN+8;
|
|
|
|
if (found)
|
|
rsrv+= n.length;
|
|
if (str->reserve(rsrv))
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("cfetch "));
|
|
if (found)
|
|
{
|
|
str->qs_append(n.str, n.length);
|
|
str->qs_append('@');
|
|
}
|
|
str->qs_append(m_cursor);
|
|
while ((pv= li++))
|
|
{
|
|
if (str->reserve(pv->name.length+SP_INSTR_UINT_MAXLEN+2))
|
|
return;
|
|
str->qs_append(' ');
|
|
str->qs_append(pv->name.str, pv->name.length);
|
|
str->qs_append('@');
|
|
str->qs_append(pv->offset);
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
sp_instr_error class functions
|
|
*/
|
|
|
|
int
|
|
sp_instr_error::execute(THD *thd, uint *nextp)
|
|
{
|
|
DBUG_ENTER("sp_instr_error::execute");
|
|
|
|
my_message(m_errcode, ER(m_errcode), MYF(0));
|
|
*nextp= m_ip+1;
|
|
DBUG_RETURN(-1);
|
|
}
|
|
|
|
|
|
void
|
|
sp_instr_error::print(String *str)
|
|
{
|
|
/* error code */
|
|
if (str->reserve(SP_INSTR_UINT_MAXLEN+6))
|
|
return;
|
|
str->qs_append(STRING_WITH_LEN("error "));
|
|
str->qs_append(m_errcode);
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
sp_instr_set_case_expr class implementation
|
|
**************************************************************************/
|
|
|
|
int
|
|
sp_instr_set_case_expr::execute(THD *thd, uint *nextp)
|
|
{
|
|
DBUG_ENTER("sp_instr_set_case_expr::execute");
|
|
|
|
DBUG_RETURN(m_lex_keeper.reset_lex_and_exec_core(thd, nextp, TRUE, this));
|
|
}
|
|
|
|
|
|
int
|
|
sp_instr_set_case_expr::exec_core(THD *thd, uint *nextp)
|
|
{
|
|
int res= thd->spcont->set_case_expr(thd, m_case_expr_id, &m_case_expr);
|
|
|
|
if (res &&
|
|
!thd->spcont->get_case_expr(m_case_expr_id) &&
|
|
thd->spcont->found_handler_here())
|
|
{
|
|
/*
|
|
Failed to evaluate the value, the case expression is still not
|
|
initialized, and a handler has been found. Set to NULL so we can continue.
|
|
*/
|
|
|
|
Item *null_item= new Item_null();
|
|
|
|
if (!null_item ||
|
|
thd->spcont->set_case_expr(thd, m_case_expr_id, &null_item))
|
|
{
|
|
/* If this also failed, we have to abort. */
|
|
|
|
sp_rcontext *spcont= thd->spcont;
|
|
|
|
thd->spcont= 0; /* Avoid handlers */
|
|
my_error(ER_OUT_OF_RESOURCES, MYF(0));
|
|
spcont->clear_handler();
|
|
thd->spcont= spcont;
|
|
}
|
|
}
|
|
else
|
|
*nextp= m_ip+1;
|
|
|
|
return res;
|
|
}
|
|
|
|
|
|
void
|
|
sp_instr_set_case_expr::print(String *str)
|
|
{
|
|
/* set_case_expr (cont) id ... */
|
|
str->reserve(2*SP_INSTR_UINT_MAXLEN+18+32); // Add some extra for expr too
|
|
str->qs_append(STRING_WITH_LEN("set_case_expr ("));
|
|
str->qs_append(m_cont_dest);
|
|
str->qs_append(STRING_WITH_LEN(") "));
|
|
str->qs_append(m_case_expr_id);
|
|
str->qs_append(' ');
|
|
m_case_expr->print(str);
|
|
}
|
|
|
|
uint
|
|
sp_instr_set_case_expr::opt_mark(sp_head *sp, List<sp_instr> *leads)
|
|
{
|
|
sp_instr *i;
|
|
|
|
marked= 1;
|
|
if ((i= sp->get_instr(m_cont_dest)))
|
|
{
|
|
m_cont_dest= i->opt_shortcut_jump(sp, this);
|
|
m_cont_optdest= sp->get_instr(m_cont_dest);
|
|
}
|
|
sp->add_mark_lead(m_cont_dest, leads);
|
|
return m_ip+1;
|
|
}
|
|
|
|
void
|
|
sp_instr_set_case_expr::opt_move(uint dst, List<sp_instr> *bp)
|
|
{
|
|
if (m_cont_dest > m_ip)
|
|
bp->push_back(this); // Forward
|
|
else if (m_cont_optdest)
|
|
m_cont_dest= m_cont_optdest->m_ip; // Backward
|
|
m_ip= dst;
|
|
}
|
|
|
|
|
|
/* ------------------------------------------------------------------ */
|
|
|
|
/*
|
|
Security context swapping
|
|
*/
|
|
|
|
#ifndef NO_EMBEDDED_ACCESS_CHECKS
|
|
bool
|
|
sp_change_security_context(THD *thd, sp_head *sp, Security_context **backup)
|
|
{
|
|
*backup= 0;
|
|
if (sp->m_chistics->suid != SP_IS_NOT_SUID &&
|
|
(strcmp(sp->m_definer_user.str,
|
|
thd->security_ctx->priv_user) ||
|
|
my_strcasecmp(system_charset_info, sp->m_definer_host.str,
|
|
thd->security_ctx->priv_host)))
|
|
{
|
|
if (acl_getroot_no_password(&sp->m_security_ctx, sp->m_definer_user.str,
|
|
sp->m_definer_host.str,
|
|
sp->m_definer_host.str,
|
|
sp->m_db.str))
|
|
{
|
|
my_error(ER_NO_SUCH_USER, MYF(0), sp->m_definer_user.str,
|
|
sp->m_definer_host.str);
|
|
return TRUE;
|
|
}
|
|
*backup= thd->security_ctx;
|
|
thd->security_ctx= &sp->m_security_ctx;
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
void
|
|
sp_restore_security_context(THD *thd, Security_context *backup)
|
|
{
|
|
if (backup)
|
|
thd->security_ctx= backup;
|
|
}
|
|
|
|
#endif /* NO_EMBEDDED_ACCESS_CHECKS */
|
|
|
|
/*
|
|
Structure that represent all instances of one table
|
|
in optimized multi-set of tables used by routine.
|
|
*/
|
|
|
|
typedef struct st_sp_table
|
|
{
|
|
/*
|
|
Multi-set key:
|
|
db_name\0table_name\0alias\0 - for normal tables
|
|
db_name\0table_name\0 - for temporary tables
|
|
Note that in both cases we don't take last '\0' into account when
|
|
we count length of key.
|
|
*/
|
|
LEX_STRING qname;
|
|
uint db_length, table_name_length;
|
|
bool temp; /* true if corresponds to a temporary table */
|
|
thr_lock_type lock_type; /* lock type used for prelocking */
|
|
uint lock_count;
|
|
uint query_lock_count;
|
|
} SP_TABLE;
|
|
|
|
byte *
|
|
sp_table_key(const byte *ptr, uint *plen, my_bool first)
|
|
{
|
|
SP_TABLE *tab= (SP_TABLE *)ptr;
|
|
*plen= tab->qname.length;
|
|
return (byte *)tab->qname.str;
|
|
}
|
|
|
|
|
|
/*
|
|
Merge the list of tables used by some query into the multi-set of
|
|
tables used by routine.
|
|
|
|
SYNOPSIS
|
|
merge_table_list()
|
|
thd - thread context
|
|
table - table list
|
|
lex_for_tmp_check - LEX of the query for which we are merging
|
|
table list.
|
|
|
|
NOTE
|
|
This method will use LEX provided to check whenever we are creating
|
|
temporary table and mark it as such in target multi-set.
|
|
|
|
RETURN VALUE
|
|
TRUE - Success
|
|
FALSE - Error
|
|
*/
|
|
|
|
bool
|
|
sp_head::merge_table_list(THD *thd, TABLE_LIST *table, LEX *lex_for_tmp_check)
|
|
{
|
|
SP_TABLE *tab;
|
|
|
|
if (lex_for_tmp_check->sql_command == SQLCOM_DROP_TABLE &&
|
|
lex_for_tmp_check->drop_temporary)
|
|
return TRUE;
|
|
|
|
for (uint i= 0 ; i < m_sptabs.records ; i++)
|
|
{
|
|
tab= (SP_TABLE *)hash_element(&m_sptabs, i);
|
|
tab->query_lock_count= 0;
|
|
}
|
|
|
|
for (; table ; table= table->next_global)
|
|
if (!table->derived && !table->schema_table)
|
|
{
|
|
char tname[(NAME_LEN + 1) * 3]; // db\0table\0alias\0
|
|
uint tlen, alen;
|
|
|
|
tlen= table->db_length;
|
|
memcpy(tname, table->db, tlen);
|
|
tname[tlen++]= '\0';
|
|
memcpy(tname+tlen, table->table_name, table->table_name_length);
|
|
tlen+= table->table_name_length;
|
|
tname[tlen++]= '\0';
|
|
alen= strlen(table->alias);
|
|
memcpy(tname+tlen, table->alias, alen);
|
|
tlen+= alen;
|
|
tname[tlen]= '\0';
|
|
|
|
/*
|
|
We ignore alias when we check if table was already marked as temporary
|
|
(and therefore should not be prelocked). Otherwise we will erroneously
|
|
treat table with same name but with different alias as non-temporary.
|
|
*/
|
|
if ((tab= (SP_TABLE *)hash_search(&m_sptabs, (byte *)tname, tlen)) ||
|
|
((tab= (SP_TABLE *)hash_search(&m_sptabs, (byte *)tname,
|
|
tlen - alen - 1)) &&
|
|
tab->temp))
|
|
{
|
|
if (tab->lock_type < table->lock_type)
|
|
tab->lock_type= table->lock_type; // Use the table with the highest lock type
|
|
tab->query_lock_count++;
|
|
if (tab->query_lock_count > tab->lock_count)
|
|
tab->lock_count++;
|
|
}
|
|
else
|
|
{
|
|
if (!(tab= (SP_TABLE *)thd->calloc(sizeof(SP_TABLE))))
|
|
return FALSE;
|
|
if (lex_for_tmp_check->sql_command == SQLCOM_CREATE_TABLE &&
|
|
lex_for_tmp_check->query_tables == table &&
|
|
lex_for_tmp_check->create_info.options & HA_LEX_CREATE_TMP_TABLE)
|
|
{
|
|
tab->temp= TRUE;
|
|
tab->qname.length= tlen - alen - 1;
|
|
}
|
|
else
|
|
tab->qname.length= tlen;
|
|
tab->qname.str= (char*) thd->memdup(tname, tab->qname.length + 1);
|
|
if (!tab->qname.str)
|
|
return FALSE;
|
|
tab->table_name_length= table->table_name_length;
|
|
tab->db_length= table->db_length;
|
|
tab->lock_type= table->lock_type;
|
|
tab->lock_count= tab->query_lock_count= 1;
|
|
my_hash_insert(&m_sptabs, (byte *)tab);
|
|
}
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/*
|
|
Add tables used by routine to the table list.
|
|
|
|
SYNOPSIS
|
|
add_used_tables_to_table_list()
|
|
thd [in] Thread context
|
|
query_tables_last_ptr [in/out] Pointer to the next_global member of
|
|
last element of the list where tables
|
|
will be added (or to its root).
|
|
belong_to_view [in] Uppermost view which uses this routine,
|
|
0 if none.
|
|
|
|
DESCRIPTION
|
|
Converts multi-set of tables used by this routine to table list and adds
|
|
this list to the end of table list specified by 'query_tables_last_ptr'.
|
|
|
|
Elements of list will be allocated in PS memroot, so this list will be
|
|
persistent between PS executions.
|
|
|
|
RETURN VALUE
|
|
TRUE - if some elements were added, FALSE - otherwise.
|
|
*/
|
|
|
|
bool
|
|
sp_head::add_used_tables_to_table_list(THD *thd,
|
|
TABLE_LIST ***query_tables_last_ptr,
|
|
TABLE_LIST *belong_to_view)
|
|
{
|
|
uint i;
|
|
Query_arena *arena, backup;
|
|
bool result= FALSE;
|
|
DBUG_ENTER("sp_head::add_used_tables_to_table_list");
|
|
|
|
/*
|
|
Use persistent arena for table list allocation to be PS/SP friendly.
|
|
Note that we also have to copy database/table names and alias to PS/SP
|
|
memory since current instance of sp_head object can pass away before
|
|
next execution of PS/SP for which tables are added to prelocking list.
|
|
This will be fixed by introducing of proper invalidation mechanism
|
|
once new TDC is ready.
|
|
*/
|
|
arena= thd->activate_stmt_arena_if_needed(&backup);
|
|
|
|
for (i=0 ; i < m_sptabs.records ; i++)
|
|
{
|
|
char *tab_buff, *key_buff;
|
|
TABLE_LIST *table;
|
|
SP_TABLE *stab= (SP_TABLE *)hash_element(&m_sptabs, i);
|
|
if (stab->temp)
|
|
continue;
|
|
|
|
if (!(tab_buff= (char *)thd->calloc(ALIGN_SIZE(sizeof(TABLE_LIST)) *
|
|
stab->lock_count)) ||
|
|
!(key_buff= (char*)thd->memdup(stab->qname.str,
|
|
stab->qname.length + 1)))
|
|
DBUG_RETURN(FALSE);
|
|
|
|
for (uint j= 0; j < stab->lock_count; j++)
|
|
{
|
|
table= (TABLE_LIST *)tab_buff;
|
|
|
|
table->db= key_buff;
|
|
table->db_length= stab->db_length;
|
|
table->table_name= table->db + table->db_length + 1;
|
|
table->table_name_length= stab->table_name_length;
|
|
table->alias= table->table_name + table->table_name_length + 1;
|
|
table->lock_type= stab->lock_type;
|
|
table->cacheable_table= 1;
|
|
table->prelocking_placeholder= 1;
|
|
table->belong_to_view= belong_to_view;
|
|
|
|
/* Everyting else should be zeroed */
|
|
|
|
**query_tables_last_ptr= table;
|
|
table->prev_global= *query_tables_last_ptr;
|
|
*query_tables_last_ptr= &table->next_global;
|
|
|
|
tab_buff+= ALIGN_SIZE(sizeof(TABLE_LIST));
|
|
result= TRUE;
|
|
}
|
|
}
|
|
|
|
if (arena)
|
|
thd->restore_active_arena(arena, &backup);
|
|
|
|
DBUG_RETURN(result);
|
|
}
|
|
|
|
|
|
/*
|
|
Simple function for adding an explicetly named (systems) table to
|
|
the global table list, e.g. "mysql", "proc".
|
|
*/
|
|
|
|
TABLE_LIST *
|
|
sp_add_to_query_tables(THD *thd, LEX *lex,
|
|
const char *db, const char *name,
|
|
thr_lock_type locktype)
|
|
{
|
|
TABLE_LIST *table;
|
|
|
|
if (!(table= (TABLE_LIST *)thd->calloc(sizeof(TABLE_LIST))))
|
|
{
|
|
my_error(ER_OUTOFMEMORY, MYF(0), sizeof(TABLE_LIST));
|
|
return NULL;
|
|
}
|
|
table->db_length= strlen(db);
|
|
table->db= thd->strmake(db, table->db_length);
|
|
table->table_name_length= strlen(name);
|
|
table->table_name= thd->strmake(name, table->table_name_length);
|
|
table->alias= thd->strdup(name);
|
|
table->lock_type= locktype;
|
|
table->select_lex= lex->current_select; // QQ?
|
|
table->cacheable_table= 1;
|
|
|
|
lex->add_to_query_tables(table);
|
|
return table;
|
|
}
|
|
|