/* Copyright (C) 2000 MySQL AB & MySQL Finland AB & TCX DataKonsult 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; either version 2 of the License, or
   (at your option) any later version.

   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 */


/* This file defines all string functions */

#ifdef __GNUC__
#pragma interface			/* gcc class implementation */
#endif

extern my_bool opt_old_passwords; /* Need this variable for some functions */ 


class Item_str_func :public Item_func
{
public:
  Item_str_func() :Item_func() { decimals=NOT_FIXED_DEC; }
  Item_str_func(Item *a) :Item_func(a) {decimals=NOT_FIXED_DEC; }
  Item_str_func(Item *a,Item *b) :Item_func(a,b) { decimals=NOT_FIXED_DEC; }
  Item_str_func(Item *a,Item *b,Item *c) :Item_func(a,b,c) { decimals=NOT_FIXED_DEC; }
  Item_str_func(Item *a,Item *b,Item *c,Item *d) :Item_func(a,b,c,d) {decimals=NOT_FIXED_DEC; }
  Item_str_func(Item *a,Item *b,Item *c,Item *d, Item* e) :Item_func(a,b,c,d,e) {decimals=NOT_FIXED_DEC; }
  Item_str_func(List<Item> &list) :Item_func(list) {decimals=NOT_FIXED_DEC; }
  longlong val_int();
  double val();
  enum Item_result result_type () const { return STRING_RESULT; }
  void left_right_max_length();
};

class Item_func_md5 :public Item_str_func
{
  String tmp_value;
public:
  Item_func_md5(Item *a) :Item_str_func(a) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "md5"; }
};


class Item_func_sha :public Item_str_func
{
public:
  Item_func_sha(Item *a) :Item_str_func(a) {}  
  String *val_str(String *);    
  void fix_length_and_dec();      
  const char *func_name() const { return "sha"; }	
};

class Item_func_aes_encrypt :public Item_str_func
{
public:
  Item_func_aes_encrypt(Item *a, Item *b) :Item_str_func(a,b) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "aes_encrypt"; }
};

class Item_func_aes_decrypt :public Item_str_func	
{
public:
  Item_func_aes_decrypt(Item *a, Item *b) :Item_str_func(a,b) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "aes_decrypt"; }
};


class Item_func_concat :public Item_str_func
{
  String tmp_value;
public:
  Item_func_concat(List<Item> &list) :Item_str_func(list) {}
  Item_func_concat(Item *a,Item *b) :Item_str_func(a,b) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "concat"; }
};

class Item_func_concat_ws :public Item_str_func
{
  Item *separator;
  String tmp_value;

public:
  Item_func_concat_ws(Item *a,List<Item> &list) 
    :Item_str_func(list),separator(a) {}
  ~Item_func_concat_ws() { delete separator; }
  String *val_str(String *);
  void fix_length_and_dec();
  void update_used_tables();
  bool fix_fields(THD *thd, TABLE_LIST *tlist, Item **ref)
  {
    return (separator->check_cols(1) ||
	    separator->fix_fields(thd, tlist, &separator) ||
	    Item_func::fix_fields(thd, tlist, ref));
  }
 const char *func_name() const { return "concat_ws"; }
 bool check_loop(uint id)
 {
   DBUG_ENTER("Item_func_concat_ws::check_loop");
   if (Item_str_func::check_loop(id))
     DBUG_RETURN(1);
   DBUG_RETURN(separator->check_loop(id));
 }
};

class Item_func_reverse :public Item_str_func
{
public:
  Item_func_reverse(Item *a) :Item_str_func(a) {}
  String *val_str(String *);
  void fix_length_and_dec();
};


class Item_func_replace :public Item_str_func
{
  String tmp_value,tmp_value2;
public:
  Item_func_replace(Item *org,Item *find,Item *replace)
    :Item_str_func(org,find,replace) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "replace"; }
};


class Item_func_insert :public Item_str_func
{
  String tmp_value;
public:
  Item_func_insert(Item *org,Item *start,Item *length,Item *new_str)
    :Item_str_func(org,start,length,new_str) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "insert"; }
};


class Item_str_conv :public Item_str_func
{
public:
  Item_str_conv(Item *item) :Item_str_func(item) {}
  void fix_length_and_dec() { max_length = args[0]->max_length; }
};


class Item_func_lcase :public Item_str_conv
{
public:
  Item_func_lcase(Item *item) :Item_str_conv(item) {}
  String *val_str(String *);
  const char *func_name() const { return "lcase"; }
};

class Item_func_ucase :public Item_str_conv
{
public:
  Item_func_ucase(Item *item) :Item_str_conv(item) {}
  String *val_str(String *);
  const char *func_name() const { return "ucase"; }
};


class Item_func_left :public Item_str_func
{
public:
  Item_func_left(Item *a,Item *b) :Item_str_func(a,b) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "left"; }
};


class Item_func_right :public Item_str_func
{
  String tmp_value;
public:
  Item_func_right(Item *a,Item *b) :Item_str_func(a,b) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "right"; }
};


class Item_func_substr :public Item_str_func
{
  String tmp_value;
public:
  Item_func_substr(Item *a,Item *b) :Item_str_func(a,b) {}
  Item_func_substr(Item *a,Item *b,Item *c) :Item_str_func(a,b,c) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "substr"; }
};


class Item_func_substr_index :public Item_str_func
{
  String tmp_value;
public:
  Item_func_substr_index(Item *a,Item *b,Item *c) :Item_str_func(a,b,c) {}
  String *val_str(String *);
  void fix_length_and_dec() { max_length= args[0]->max_length; }
  const char *func_name() const { return "substr_index"; }
};


class Item_func_ltrim :public Item_str_func
{
  String tmp_value;
public:
  Item_func_ltrim(Item *a,Item *b) :Item_str_func(a,b) {}
  String *val_str(String *);
  void fix_length_and_dec() { max_length= args[0]->max_length; }
  const char *func_name() const { return "ltrim"; }
};


class Item_func_rtrim :public Item_str_func
{
  String tmp_value;
public:
  Item_func_rtrim(Item *a,Item *b) :Item_str_func(a,b) {}
  String *val_str(String *);
  void fix_length_and_dec() { max_length= args[0]->max_length; }
  const char *func_name() const { return "rtrim"; }
};

class Item_func_trim :public Item_str_func
{
  String tmp_value;
public:
  Item_func_trim(Item *a,Item *b) :Item_str_func(a,b) {}
  String *val_str(String *);
  void fix_length_and_dec() { max_length= args[0]->max_length; }
  const char *func_name() const { return "trim"; }
};


class Item_func_password :public Item_str_func
{
  char tmp_value[64]; /* This should be enough for new password format */
public:
  Item_func_password(Item *a) :Item_str_func(a) {}
  Item_func_password(Item *a, Item *b) :Item_str_func(a,b) {}
  String *val_str(String *);
  void fix_length_and_dec() { max_length = get_password_length(opt_old_passwords); }
  const char *func_name() const { return "password"; }
};


class Item_func_old_password :public Item_str_func
{
  char tmp_value[16]; /* old password length */
public:
  Item_func_old_password(Item *a) :Item_str_func(a) {}
  String *val_str(String *);
  void fix_length_and_dec() { max_length = get_password_length(1); }
  const char *func_name() const { return "old_password"; }
};



class Item_func_des_encrypt :public Item_str_func
{
  String tmp_value;
public:
  Item_func_des_encrypt(Item *a) :Item_str_func(a) {}
  Item_func_des_encrypt(Item *a, Item *b): Item_str_func(a,b) {}
  String *val_str(String *);
  void fix_length_and_dec()
  { maybe_null=1; max_length = args[0]->max_length+8; }
  const char *func_name() const { return "des_encrypt"; }
};

class Item_func_des_decrypt :public Item_str_func
{
  String tmp_value;
public:
  Item_func_des_decrypt(Item *a) :Item_str_func(a) {}
  Item_func_des_decrypt(Item *a, Item *b): Item_str_func(a,b) {}
  String *val_str(String *);
  void fix_length_and_dec() { maybe_null=1; max_length = args[0]->max_length; }
  const char *func_name() const { return "des_decrypt"; }
};

class Item_func_encrypt :public Item_str_func
{
  String tmp_value;
public:
  Item_func_encrypt(Item *a) :Item_str_func(a) {}
  Item_func_encrypt(Item *a, Item *b): Item_str_func(a,b) {}
  String *val_str(String *);
  void fix_length_and_dec() { maybe_null=1; max_length = 13; }
};

#include "sql_crypt.h"

class Item_func_encode :public Item_str_func
{
 protected:
  SQL_CRYPT sql_crypt;
public:
  Item_func_encode(Item *a, char *seed):
    Item_str_func(a),sql_crypt(seed) {}
  String *val_str(String *);
  void fix_length_and_dec();
};

class Item_func_decode :public Item_func_encode
{
public:
  Item_func_decode(Item *a, char *seed): Item_func_encode(a,seed) {}
  String *val_str(String *);
};


class Item_func_database :public Item_str_func
{
public:
  Item_func_database() {}
  String *val_str(String *);
  void fix_length_and_dec() 
  { 
    max_length= MAX_FIELD_NAME * thd_charset()->mbmaxlen; 
    set_charset(thd_charset());
  }
  const char *func_name() const { return "database"; }
};

class Item_func_user :public Item_str_func
{
public:
  Item_func_user() {}
  String *val_str(String *);
  void fix_length_and_dec() 
  { 
    max_length= (USERNAME_LENGTH+HOSTNAME_LENGTH+1)*thd_charset()->mbmaxlen; 
    set_charset(thd_charset());
  }
  const char *func_name() const { return "user"; }
};


class Item_func_soundex :public Item_str_func
{
  String tmp_value;
public:
  Item_func_soundex(Item *a) :Item_str_func(a) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "soundex"; }
};


class Item_func_elt :public Item_str_func
{
  Item *item;

public:
  Item_func_elt(Item *a,List<Item> &list) :Item_str_func(list),item(a) {}
  ~Item_func_elt() { delete item; }
  double val();
  longlong val_int();
  String *val_str(String *str);
  bool fix_fields(THD *thd, TABLE_LIST *tlist, Item **ref)
  {
    return (item->check_cols(1) ||
	    item->fix_fields(thd, tlist, &item) ||
	    Item_func::fix_fields(thd, tlist, ref));
  }
  void fix_length_and_dec();
  void update_used_tables();
  const char *func_name() const { return "elt"; }
  bool check_loop(uint id)
  {
    DBUG_ENTER("Item_func_elt::check_loop");
    if (Item_str_func::check_loop(id))
      DBUG_RETURN(1);
    DBUG_RETURN(item->check_loop(id));
  }
};


class Item_func_make_set :public Item_str_func
{
  Item *item;
  String tmp_str;

public:
  Item_func_make_set(Item *a,List<Item> &list) :Item_str_func(list),item(a) {}
  ~Item_func_make_set() { delete item; }
  String *val_str(String *str);
  bool fix_fields(THD *thd, TABLE_LIST *tlist, Item **ref)
  {
    return (item->check_cols(1) ||
	    item->fix_fields(thd, tlist, &item) ||
	    Item_func::fix_fields(thd, tlist, ref));
  }
  void fix_length_and_dec();
  void update_used_tables();
  const char *func_name() const { return "make_set"; }
  bool check_loop(uint id)
  {
    DBUG_ENTER("Item_func_make_set::check_loop");
    if (Item_str_func::check_loop(id))
      DBUG_RETURN(1);
    DBUG_RETURN(item->check_loop(id));
  }
};


class Item_func_format :public Item_str_func
{
  String tmp_str;
public:
  Item_func_format(Item *org,int dec);
  String *val_str(String *);
  void fix_length_and_dec()
  {
    max_length=args[0]->max_length+(args[0]->max_length-args[0]->decimals)/3;
  }
  const char *func_name() const { return "format"; }
};


class Item_func_char :public Item_str_func
{
public:
  Item_func_char(List<Item> &list) :Item_str_func(list) {}
  String *val_str(String *);
  void fix_length_and_dec() { maybe_null=0; max_length=arg_count; }
  const char *func_name() const { return "char"; }
};


class Item_func_repeat :public Item_str_func
{
  String tmp_value;
public:
  Item_func_repeat(Item *arg1,Item *arg2) :Item_str_func(arg1,arg2) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "repeat"; }
};


class Item_func_rpad :public Item_str_func
{
  String tmp_value;
public:
  Item_func_rpad(Item *arg1,Item *arg2,Item *arg3)
    :Item_str_func(arg1,arg2,arg3) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "rpad"; }
};


class Item_func_lpad :public Item_str_func
{
  String tmp_value;
public:
  Item_func_lpad(Item *arg1,Item *arg2,Item *arg3)
    :Item_str_func(arg1,arg2,arg3) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "lpad"; }
};


class Item_func_conv :public Item_str_func
{
public:
  Item_func_conv(Item *a,Item *b,Item *c) :Item_str_func(a,b,c) {}
  const char *func_name() const { return "conv"; }
  String *val_str(String *);
  void fix_length_and_dec() { decimals=0; max_length=64; }
};


class Item_func_hex :public Item_str_func
{
  String tmp_value;
public:
  Item_func_hex(Item *a) :Item_str_func(a) {}
  const char *func_name() const { return "hex"; }
  String *val_str(String *);
  void fix_length_and_dec() { decimals=0; max_length=args[0]->max_length*2; }
};


class Item_func_binary :public Item_str_func
{
public:
  Item_func_binary(Item *a) :Item_str_func(a) {}
  const char *func_name() const { return "binary"; }
  String *val_str(String *a)
  {
    String *tmp=args[0]->val_str(a);
    null_value=args[0]->null_value;
    tmp->set_charset(my_charset_bin);
    return tmp;
  }
  void fix_length_and_dec() 
  { 
    set_charset(my_charset_bin); 
    max_length=args[0]->max_length; 
  }
  void print(String *str) { print_op(str); }
};


class Item_load_file :public Item_str_func
{
  String tmp_value;
public:
  Item_load_file(Item *a) :Item_str_func(a) {}
  String *val_str(String *);
  const char *func_name() const { return "load_file"; }
  void fix_length_and_dec()
  { 
    set_charset(my_charset_bin);
    maybe_null=1; 
    max_length=MAX_BLOB_WIDTH;
  }
};


class Item_func_export_set: public Item_str_func
{
 public:
  Item_func_export_set(Item *a,Item *b,Item* c) :Item_str_func(a,b,c) {}
  Item_func_export_set(Item *a,Item *b,Item* c,Item* d) :Item_str_func(a,b,c,d) {}
  Item_func_export_set(Item *a,Item *b,Item* c,Item* d,Item* e) :Item_str_func(a,b,c,d,e) {}
  String  *val_str(String *str);
  void fix_length_and_dec();
  const char *func_name() const { return "export_set"; }
};

class Item_func_inet_ntoa : public Item_str_func
{
public:
  Item_func_inet_ntoa(Item *a) :Item_str_func(a)
    {
    }
  String* val_str(String* str);
  const char *func_name() const { return "inet_ntoa"; }
  void fix_length_and_dec() { decimals = 0; max_length=3*8+7; }
};

class Item_func_quote :public Item_str_func
{
public:
  Item_func_quote(Item *a) :Item_str_func(a) {}
  const char *func_name() const { return "quote"; }
  String *val_str(String *);
  void fix_length_and_dec() { max_length= args[0]->max_length * 2 + 2; }
};

class Item_func_conv_charset :public Item_str_func
{
  CHARSET_INFO *conv_charset;
public:
  Item_func_conv_charset(Item *a, CHARSET_INFO *cs) :Item_str_func(a) 
  { conv_charset=cs; }
  bool fix_fields(THD *thd,struct st_table_list *tables,Item **ref);
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "conv_charset"; }
};

class Item_func_set_collation :public Item_str_func
{
  CHARSET_INFO *set_collation;
public:
  Item_func_set_collation(Item *a, CHARSET_INFO *cs) :Item_str_func(a) 
  { set_collation=cs; }
  bool fix_fields(THD *thd,struct st_table_list *tables, Item **ref);
  String *val_str(String *);
  void fix_length_and_dec() 
  { max_length = args[0]->max_length; }
  bool eq(const Item *item, bool binary_cmp) const;
  const char *func_name() const { return "set_collation"; }
};

class Item_func_conv_charset3 :public Item_str_func
{
public:
  Item_func_conv_charset3(Item *arg1,Item *arg2,Item *arg3)
    :Item_str_func(arg1,arg2,arg3) {}
  String *val_str(String *);
  void fix_length_and_dec();
  const char *func_name() const { return "conv_charset3"; }
};

class Item_func_charset :public Item_str_func
{
public:
  Item_func_charset(Item *a) :Item_str_func(a) {}
  String *val_str(String *);
  const char *func_name() const { return "charset"; }
  void fix_length_and_dec() 
  {
     max_length=40; // should be enough
     set_charset(thd_charset());
  };
};


/*******************************************************
Spatial functions
********************************************************/

class Item_func_geometry_from_text :public Item_str_func
{
public:
  Item_func_geometry_from_text(Item *a) :Item_str_func(a) {}
  const char *func_name() const { return "geometryfromtext"; }
  String *val_str(String *);
  void fix_length_and_dec();
};

class Item_func_as_text :public Item_str_func
{
public:
  Item_func_as_text(Item *a) :Item_str_func(a) {}
  const char *func_name() const { return "astext"; }
  String *val_str(String *);
  void fix_length_and_dec();
};

class Item_func_geometry_type :public Item_str_func
{
public:
  Item_func_geometry_type(Item *a) :Item_str_func(a) {}
  String *val_str(String *);
  const char *func_name() const { return "geometrytype"; }
  void fix_length_and_dec() 
  {
     max_length=20; // "GeometryCollection" is the most long
  };
};

class Item_func_centroid :public Item_str_func
{
public:
  Item_func_centroid(Item *a) :Item_str_func(a) {}
  const char *func_name() const { return "centroid"; }
  String *val_str(String *);
  void fix_length_and_dec(){max_length=MAX_BLOB_WIDTH;}
};

class Item_func_envelope :public Item_str_func
{
public:
  Item_func_envelope(Item *a) :Item_str_func(a) {}
  const char *func_name() const { return "envelope"; }
  String *val_str(String *);
  void fix_length_and_dec(){max_length=MAX_BLOB_WIDTH;}
};

class Item_func_point :public Item_str_func
{
public:
  Item_func_point(Item *a,Item *b) :Item_str_func(a,b) {}
  const char *func_name() const { return "point"; }
  String *val_str(String *);
  void fix_length_and_dec(){max_length=MAX_BLOB_WIDTH;}
};

class Item_func_spatial_decomp :public Item_str_func
{
  enum Functype decomp_func;
public:
  Item_func_spatial_decomp(Item *a, Item_func::Functype ft) :
  	Item_str_func(a) { decomp_func = ft; }
  const char *func_name() const 
  { 
    switch (decomp_func)
    {
      case SP_STARTPOINT:
        return "startpoint";
      case SP_ENDPOINT:
        return "endpoint";
      case SP_EXTERIORRING:
        return "exteriorring";
      default:
        return "spatial_decomp_unknown"; 
    }
  }
  String *val_str(String *);
  void fix_length_and_dec(){max_length=MAX_BLOB_WIDTH;}
};

class Item_func_spatial_decomp_n :public Item_str_func
{
  enum Functype decomp_func_n;
public:
  Item_func_spatial_decomp_n(Item *a, Item *b, Item_func::Functype ft) :
  	Item_str_func(a, b) { decomp_func_n = ft; }
  const char *func_name() const 
  { 
    switch (decomp_func_n)
    {
      case SP_POINTN:
        return "pointn";
      case SP_GEOMETRYN:
        return "geometryn";
      case SP_INTERIORRINGN:
        return "interiorringn";
      default:
        return "spatial_decomp_n_unknown"; 
    }
  }
  String *val_str(String *);
  void fix_length_and_dec(){max_length=MAX_BLOB_WIDTH;}
};


class Item_func_spatial_collection :public Item_str_func
{
  String tmp_value;
  enum Geometry::wkbType coll_type; 
  enum Geometry::wkbType item_type;
public:
  Item_func_spatial_collection(
     List<Item> &list, enum Geometry::wkbType ct, enum Geometry::wkbType it) :
  Item_str_func(list)
  {
    coll_type=ct;
    item_type=it;
  }
  String *val_str(String *);
  void fix_length_and_dec(){max_length=MAX_BLOB_WIDTH;}
  const char *func_name() const { return "multipoint"; }
};


/*
class Item_func_multipoint :public Item_str_func
{
  String tmp_value;
public:
  Item_func_multipoint(List<Item> &list) :Item_str_func(list) {}
  String *val_str(String *);
  void fix_length_and_dec(){max_length=MAX_BLOB_WIDTH;}
  const char *func_name() const { return "multipoint"; }
};

class Item_func_linestring :public Item_str_func
{
  String tmp_value;
public:
  Item_func_linestring(List<Item> &list) :Item_str_func(list) {}
  String *val_str(String *);
  void fix_length_and_dec(){max_length=MAX_BLOB_WIDTH;}
  const char *func_name() const { return "linestring"; }
};

class Item_func_multilinestring :public Item_str_func
{
  String tmp_value;
public:
  Item_func_multilinestring(List<Item> &list) :Item_str_func(list) {}
  String *val_str(String *);
  void fix_length_and_dec(){max_length=MAX_BLOB_WIDTH;}
  const char *func_name() const { return "multilinestring"; }
};

class Item_func_polygon :public Item_str_func
{
  String tmp_value;
public:
  Item_func_polygon(List<Item> &list) :Item_str_func(list) {}
  String *val_str(String *);
  void fix_length_and_dec(){max_length=MAX_BLOB_WIDTH;}
  const char *func_name() const { return "polygon"; }
};

class Item_func_multipolygon :public Item_str_func
{
  String tmp_value;
public:
  Item_func_multipolygon(List<Item> &list) :Item_str_func(list) {}
  String *val_str(String *);
  void fix_length_and_dec(){max_length=MAX_BLOB_WIDTH;}
  const char *func_name() const { return "multipolygon"; }
};

class Item_func_geometrycollection :public Item_str_func
{
  String tmp_value;
public:
  Item_func_geometrycollection(List<Item> &list) :Item_str_func(list) {}
  String *val_str(String *);
  void fix_length_and_dec(){max_length=MAX_BLOB_WIDTH;}
  const char *func_name() const { return "geometrycollection"; }
};

*/