← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to drizzled/field/str.cc

  • Committer: Brian Aker
  • Date: 2009-03-27 22:55:28 UTC
  • mto: This revision was merged to the branch mainline in revision 968.
  • Revision ID: brian@tangent.org-20090327225528-8y76cfx8a4oemqv9
Remove ref_count

Show diffs side-by-side

added added

removed removed

Lines of Context:
drizzled/field/str.cc
 
1
/* - mode: c++; c-basic-offset: 2; indent-tabs-mode: nil; -*-
 
2
 *  vim:expandtab:shiftwidth=2:tabstop=2:smarttab:
 
3
 *
 
4
 *  Copyright (C) 2008 MySQL
 
5
 *
 
6
 *  This program is free software; you can redistribute it and/or modify
 
7
 *  it under the terms of the GNU General Public License as published by
 
8
 *  the Free Software Foundation; either version 2 of the License, or
 
9
 *  (at your option) any later version.
 
10
 *
 
11
 *  This program is distributed in the hope that it will be useful,
 
12
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 
13
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
14
 *  GNU General Public License for more details.
 
15
 *
 
16
 *  You should have received a copy of the GNU General Public License
 
17
 *  along with this program; if not, write to the Free Software
 
18
 *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 
19
 */
 
20
 
 
21
 
 
22
#include <drizzled/server_includes.h>
 
23
#include <drizzled/field/str.h>
 
24
#include <drizzled/error.h>
 
25
#include <drizzled/table.h>
 
26
#include <drizzled/session.h>
 
27
 
 
28
 
 
29
Field_str::Field_str(unsigned char *ptr_arg,uint32_t len_arg,
 
30
                     unsigned char *null_ptr_arg,
 
31
                     unsigned char null_bit_arg, utype unireg_check_arg,
 
32
                     const char *field_name_arg,
 
33
                     const CHARSET_INFO * const charset_arg)
 
34
  :Field(ptr_arg, len_arg, null_ptr_arg, null_bit_arg,
 
35
         unireg_check_arg, field_name_arg)
 
36
{
 
37
  field_charset= charset_arg;
 
38
  if (charset_arg->state & MY_CS_BINSORT)
 
39
    flags|=BINARY_FLAG;
 
40
  field_derivation= DERIVATION_IMPLICIT;
 
41
}
 
42
 
 
43
/**
 
44
  Decimal representation of Field_str.
 
45
 
 
46
  @param d         value for storing
 
47
 
 
48
  @note
 
49
    Field_str is the base class for fields like Field_enum,
 
50
    Field_date and some similar. Some dates use fraction and also
 
51
    string value should be converted to floating point value according
 
52
    our rules, so we use double to store value of decimal in string.
 
53
 
 
54
  @todo
 
55
    use decimal2string?
 
56
 
 
57
  @retval
 
58
    0     OK
 
59
  @retval
 
60
    !=0  error
 
61
*/
 
62
 
 
63
int Field_str::store_decimal(const my_decimal *d)
 
64
{
 
65
  double val;
 
66
  /* TODO: use decimal2string? */
 
67
  int err= warn_if_overflow(my_decimal2double(E_DEC_FATAL_ERROR &
 
68
                                            ~E_DEC_OVERFLOW, d, &val));
 
69
  return err | store(val);
 
70
}
 
71
 
 
72
my_decimal *Field_str::val_decimal(my_decimal *decimal_value)
 
73
{
 
74
  int64_t nr= val_int();
 
75
  int2my_decimal(E_DEC_FATAL_ERROR, nr, 0, decimal_value);
 
76
  return decimal_value;
 
77
}
 
78
 
 
79
/**
 
80
  Store double value in Field_varstring.
 
81
 
 
82
  Pretty prints double number into field_length characters buffer.
 
83
 
 
84
  @param nr            number
 
85
*/
 
86
 
 
87
int Field_str::store(double nr)
 
88
{
 
89
  char buff[DOUBLE_TO_STRING_CONVERSION_BUFFER_SIZE];
 
90
  uint32_t local_char_length= field_length / charset()->mbmaxlen;
 
91
  size_t length;
 
92
  bool error;
 
93
 
 
94
  length= my_gcvt(nr, MY_GCVT_ARG_DOUBLE, local_char_length, buff, &error);
 
95
  if (error)
 
96
  {
 
97
    if (table->in_use->abort_on_warning)
 
98
      set_warning(DRIZZLE_ERROR::WARN_LEVEL_ERROR, ER_DATA_TOO_LONG, 1);
 
99
    else
 
100
      set_warning(DRIZZLE_ERROR::WARN_LEVEL_WARN, ER_WARN_DATA_TRUNCATED, 1);
 
101
  }
 
102
  return store(buff, length, charset());
 
103
}
 
104
 
 
105
/* If one of the fields is binary and the other one isn't return 1 else 0 */
 
106
 
 
107
bool Field_str::compare_str_field_flags(Create_field *new_field_ptr,
 
108
                                        uint32_t flag_arg)
 
109
{
 
110
  return (((new_field_ptr->flags & (BINCMP_FLAG | BINARY_FLAG)) &&
 
111
          !(flag_arg & (BINCMP_FLAG | BINARY_FLAG))) ||
 
112
         (!(new_field_ptr->flags & (BINCMP_FLAG | BINARY_FLAG)) &&
 
113
          (flag_arg & (BINCMP_FLAG | BINARY_FLAG))));
 
114
}
 
115
 
 
116
 
 
117
uint32_t Field_str::is_equal(Create_field *new_field_ptr)
 
118
{
 
119
  if (compare_str_field_flags(new_field_ptr, flags))
 
120
    return 0;
 
121
 
 
122
  return ((new_field_ptr->sql_type == real_type()) &&
 
123
          new_field_ptr->charset == field_charset &&
 
124
          new_field_ptr->length == max_display_length());
 
125
}
 
126
 
 
127
 
 
128
bool check_string_copy_error(Field_str *field,
 
129
                             const char *well_formed_error_pos,
 
130
                             const char *cannot_convert_error_pos,
 
131
                             const char *end,
 
132
                             const CHARSET_INFO * const cs)
 
133
{
 
134
  const char *pos, *end_orig;
 
135
  char tmp[64], *t;
 
136
 
 
137
  if (!(pos= well_formed_error_pos) &&
 
138
      !(pos= cannot_convert_error_pos))
 
139
    return false;
 
140
 
 
141
  end_orig= end;
 
142
  set_if_smaller(end, pos + 6);
 
143
 
 
144
  for (t= tmp; pos < end; pos++)
 
145
  {
 
146
    /*
 
147
      If the source string is ASCII compatible (mbminlen==1)
 
148
      and the source character is in ASCII printable range (0x20..0x7F),
 
149
      then display the character as is.
 
150
 
 
151
      Otherwise, if the source string is not ASCII compatible (e.g. UCS2),
 
152
      or the source character is not in the printable range,
 
153
      then print the character using HEX notation.
 
154
    */
 
155
    if (((unsigned char) *pos) >= 0x20 &&
 
156
        ((unsigned char) *pos) <= 0x7F &&
 
157
        cs->mbminlen == 1)
 
158
    {
 
159
      *t++= *pos;
 
160
    }
 
161
    else
 
162
    {
 
163
      *t++= '\\';
 
164
      *t++= 'x';
 
165
      *t++= _dig_vec_upper[((unsigned char) *pos) >> 4];
 
166
      *t++= _dig_vec_upper[((unsigned char) *pos) & 15];
 
167
    }
 
168
  }
 
169
  if (end_orig > end)
 
170
  {
 
171
    *t++= '.';
 
172
    *t++= '.';
 
173
    *t++= '.';
 
174
  }
 
175
  *t= '\0';
 
176
  push_warning_printf(field->table->in_use,
 
177
                      field->table->in_use->abort_on_warning ?
 
178
                      DRIZZLE_ERROR::WARN_LEVEL_ERROR :
 
179
                      DRIZZLE_ERROR::WARN_LEVEL_WARN,
 
180
                      ER_TRUNCATED_WRONG_VALUE_FOR_FIELD,
 
181
                      ER(ER_TRUNCATED_WRONG_VALUE_FOR_FIELD),
 
182
                      "string", tmp, field->field_name,
 
183
                      (uint32_t) field->table->in_use->row_count);
 
184
  return true;
 
185
}
 
186