home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 January / Chip_2001-01_cd1.bin / tema / mysql / mysql-3.23.28g-win-source.exe / sql / procedure.cpp < prev    next >
C/C++ Source or Header  |  1999-10-21  |  2KB  |  69 lines
  1. /* Copyright (C) 1979-1996 TcX AB & Monty Program KB & Detron HB
  2.  
  3.    This software is distributed with NO WARRANTY OF ANY KIND.  No author or
  4.    distributor accepts any responsibility for the consequences of using it, or
  5.    for whether it serves any particular purpose or works at all, unless he or
  6.    she says so in writing.  Refer to the Free Public License (the "License")
  7.    for full details.
  8.  
  9.    Every copy of this file must include a copy of the License, normally in a
  10.    plain ASCII text file named PUBLIC.    The License grants you the right to
  11.    copy, modify and redistribute this file, but only under certain conditions
  12.    described in the License.  Among other things, the License requires that
  13.    the copyright notice and this notice be preserved on all copies. */
  14.  
  15. /* Procedures (functions with changes output of select) */
  16.  
  17. #ifdef __GNUC__
  18. #pragma implementation                // gcc: Class implementation
  19. #endif
  20.  
  21. #include "mysql_priv.h"
  22. #include "procedure.h"
  23. #include "sql_analyse.h"            // Includes procedure
  24. #ifdef USE_PROC_RANGE
  25. #include "proc_range.h"
  26. #endif
  27.  
  28. static struct st_procedure_def {
  29.   const char *name;
  30.   Procedure *(*init)(THD *thd,ORDER *param,select_result *result,
  31.              List<Item> &field_list);
  32. } sql_procs[] = {
  33. #ifdef USE_PROC_RANGE
  34.   { "split_sum",proc_sum_range_init },        // Internal procedure at TCX
  35.   { "split_count",proc_count_range_init },    // Internal procedure at TCX
  36.   { "matris_ranges",proc_matris_range_init },    // Internal procedure at TCX
  37. #endif
  38.   { "analyse",proc_analyse_init }        // Analyse a result
  39. };
  40.  
  41. /*****************************************************************************
  42. ** Setup handling of procedure
  43. ** Return 0 if everything is ok
  44. *****************************************************************************/
  45.  
  46. Procedure *
  47. setup_procedure(THD *thd,ORDER *param,select_result *result,
  48.         List<Item> &field_list,int *error)
  49. {
  50.   uint i;
  51.   DBUG_ENTER("setup_procedure");
  52.   *error=0;
  53.   if (!param)
  54.     DBUG_RETURN(0);
  55.   for (i=0 ; i < array_elements(sql_procs) ; i++)
  56.   {
  57.     if (!my_strcasecmp((*param->item)->name,sql_procs[i].name))
  58.     {
  59.       Procedure *proc=(*sql_procs[i].init)(thd,param,result,field_list);
  60.       *error= !proc;
  61.       DBUG_RETURN(proc);
  62.     }
  63.   }
  64.   my_printf_error(ER_UNKNOWN_PROCEDURE,ER(ER_UNKNOWN_PROCEDURE),MYF(0),
  65.           (*param->item)->name);
  66.   *error=1;
  67.   DBUG_RETURN(0);
  68. }
  69.