← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to drizzled/field/str.cc

  • Committer: Monty Taylor
  • Date: 2008-11-16 05:36:13 UTC
  • mto: (584.1.9 devel)
  • mto: This revision was merged to the branch mainline in revision 589.
  • Revision ID: monty@inaugust.com-20081116053613-bld4rqxhlkb49c02
Split out cache_row and type_holder.

Show diffs side-by-side

added added

removed removed

Lines of Context:
drizzled/field/str.cc
19
19
 */
20
20
 
21
21
 
22
 
#include "config.h"
 
22
#include <drizzled/server_includes.h>
23
23
#include <drizzled/field/str.h>
24
24
#include <drizzled/error.h>
25
 
#include <drizzled/table.h>
26
 
#include <drizzled/session.h>
27
 
#include "drizzled/internal/m_string.h"
28
 
 
29
 
namespace drizzled
30
 
{
31
 
 
32
 
namespace internal
33
 
{
34
 
extern char _dig_vec_upper[];
35
 
}
36
 
 
37
 
Field_str::Field_str(unsigned char *ptr_arg,
38
 
                     uint32_t len_arg,
39
 
                     unsigned char *null_ptr_arg,
40
 
                     unsigned char null_bit_arg,
41
 
                     const char *field_name_arg,
42
 
                     const CHARSET_INFO * const charset_arg)
43
 
  :Field(ptr_arg, len_arg,
44
 
         null_ptr_arg,
45
 
         null_bit_arg,
46
 
         Field::NONE,
47
 
         field_name_arg)
 
25
 
 
26
Field_str::Field_str(unsigned char *ptr_arg,uint32_t len_arg, unsigned char *null_ptr_arg,
 
27
                     unsigned char null_bit_arg, utype unireg_check_arg,
 
28
                     const char *field_name_arg, const CHARSET_INFO * const charset_arg)
 
29
  :Field(ptr_arg, len_arg, null_ptr_arg, null_bit_arg,
 
30
         unireg_check_arg, field_name_arg)
48
31
{
49
32
  field_charset= charset_arg;
50
33
  if (charset_arg->state & MY_CS_BINSORT)
51
 
    flags|= BINARY_FLAG;
 
34
    flags|=BINARY_FLAG;
52
35
  field_derivation= DERIVATION_IMPLICIT;
53
36
}
54
37
 
55
 
/*
56
 
  Check if we lost any important data and send a truncation error/warning
57
 
 
58
 
  SYNOPSIS
59
 
    Field_str::report_if_important_data()
60
 
    ptr                      - Truncated rest of string
61
 
    end                      - End of truncated string
62
 
 
63
 
  RETURN VALUES
64
 
    0   - None was truncated (or we don't count cut fields)
65
 
    2   - Some bytes was truncated
66
 
 
67
 
  NOTE
68
 
    Check if we lost any important data (anything in a binary string,
69
 
    or any non-space in others). If only trailing spaces was lost,
70
 
    send a truncation note, otherwise send a truncation error.
71
 
*/
72
 
 
73
 
int
74
 
Field_str::report_if_important_data(const char *field_ptr, const char *end)
75
 
{
76
 
  if ((field_ptr < end) && getTable()->in_use->count_cuted_fields)
77
 
  {
78
 
    set_warning(DRIZZLE_ERROR::WARN_LEVEL_ERROR, ER_DATA_TOO_LONG, 1);
79
 
 
80
 
    return 2;
81
 
  }
82
 
  return 0;
83
 
}
84
 
 
85
38
/**
86
39
  Decimal representation of Field_str.
87
40
 
102
55
    !=0  error
103
56
*/
104
57
 
105
 
int Field_str::store_decimal(const type::Decimal *d)
 
58
int Field_str::store_decimal(const my_decimal *d)
106
59
{
107
 
  char buff[DECIMAL_MAX_STR_LENGTH+1];
108
 
  String str(buff, sizeof(buff), &my_charset_bin);
109
 
  class_decimal2string(d, 0, &str);
110
 
  return store(str.ptr(), str.length(), str.charset());
 
60
  double val;
 
61
  /* TODO: use decimal2string? */
 
62
  int err= warn_if_overflow(my_decimal2double(E_DEC_FATAL_ERROR &
 
63
                                            ~E_DEC_OVERFLOW, d, &val));
 
64
  return err | store(val);
111
65
}
112
66
 
113
 
type::Decimal *Field_str::val_decimal(type::Decimal *decimal_value)
 
67
my_decimal *Field_str::val_decimal(my_decimal *decimal_value)
114
68
{
115
69
  int64_t nr= val_int();
116
 
  int2_class_decimal(E_DEC_FATAL_ERROR, nr, 0, decimal_value);
 
70
  int2my_decimal(E_DEC_FATAL_ERROR, nr, 0, decimal_value);
117
71
  return decimal_value;
118
72
}
119
73
 
132
86
  size_t length;
133
87
  bool error;
134
88
 
135
 
  ASSERT_COLUMN_MARKED_FOR_WRITE;
136
 
 
137
 
  length= internal::my_gcvt(nr, internal::MY_GCVT_ARG_DOUBLE, local_char_length, buff, &error);
 
89
  length= my_gcvt(nr, MY_GCVT_ARG_DOUBLE, local_char_length, buff, &error);
138
90
  if (error)
139
91
  {
140
 
    if (getTable()->getSession()->abortOnWarning())
141
 
    {
 
92
    if (table->in_use->abort_on_warning)
142
93
      set_warning(DRIZZLE_ERROR::WARN_LEVEL_ERROR, ER_DATA_TOO_LONG, 1);
143
 
    }
144
94
    else
145
 
    {
146
95
      set_warning(DRIZZLE_ERROR::WARN_LEVEL_WARN, ER_WARN_DATA_TRUNCATED, 1);
147
 
    }
148
96
  }
149
97
  return store(buff, length, charset());
150
98
}
151
99
 
152
 
 
153
 
bool check_string_copy_error(Field_str *field,
154
 
                             const char *well_formed_error_pos,
155
 
                             const char *cannot_convert_error_pos,
156
 
                             const char *end,
157
 
                             const CHARSET_INFO * const cs)
158
 
{
159
 
  const char *pos, *end_orig;
160
 
  char tmp[64], *t;
161
 
 
162
 
  if (!(pos= well_formed_error_pos) &&
163
 
      !(pos= cannot_convert_error_pos))
164
 
    return false;
165
 
 
166
 
  end_orig= end;
167
 
  set_if_smaller(end, pos + 6);
168
 
 
169
 
  for (t= tmp; pos < end; pos++)
170
 
  {
171
 
    /*
172
 
      If the source string is ASCII compatible (mbminlen==1)
173
 
      and the source character is in ASCII printable range (0x20..0x7F),
174
 
      then display the character as is.
175
 
 
176
 
      Otherwise, if the source string is not ASCII compatible (e.g. UCS2),
177
 
      or the source character is not in the printable range,
178
 
      then print the character using HEX notation.
179
 
    */
180
 
    if (((unsigned char) *pos) >= 0x20 &&
181
 
        ((unsigned char) *pos) <= 0x7F &&
182
 
        cs->mbminlen == 1)
183
 
    {
184
 
      *t++= *pos;
185
 
    }
186
 
    else
187
 
    {
188
 
      *t++= '\\';
189
 
      *t++= 'x';
190
 
      *t++= internal::_dig_vec_upper[((unsigned char) *pos) >> 4];
191
 
      *t++= internal::_dig_vec_upper[((unsigned char) *pos) & 15];
192
 
    }
193
 
  }
194
 
  if (end_orig > end)
195
 
  {
196
 
    *t++= '.';
197
 
    *t++= '.';
198
 
    *t++= '.';
199
 
  }
200
 
  *t= '\0';
201
 
  push_warning_printf(field->getTable()->in_use,
202
 
                      field->getTable()->in_use->abortOnWarning() ?
203
 
                      DRIZZLE_ERROR::WARN_LEVEL_ERROR :
204
 
                      DRIZZLE_ERROR::WARN_LEVEL_WARN,
205
 
                      ER_TRUNCATED_WRONG_VALUE_FOR_FIELD,
206
 
                      ER(ER_TRUNCATED_WRONG_VALUE_FOR_FIELD),
207
 
                      "string", tmp, field->field_name,
208
 
                      (uint32_t) field->getTable()->in_use->row_count);
209
 
  return true;
210
 
}
211
 
 
212
 
uint32_t Field_str::max_data_length() const
213
 
{
214
 
  return field_length + (field_length > 255 ? 2 : 1);
215
 
}
216
 
 
217
 
} /* namespace drizzled */
 
100
/* If one of the fields is binary and the other one isn't return 1 else 0 */
 
101
 
 
102
bool Field_str::compare_str_field_flags(Create_field *new_field, uint32_t flag_arg)
 
103
{
 
104
  return (((new_field->flags & (BINCMP_FLAG | BINARY_FLAG)) &&
 
105
          !(flag_arg & (BINCMP_FLAG | BINARY_FLAG))) ||
 
106
         (!(new_field->flags & (BINCMP_FLAG | BINARY_FLAG)) &&
 
107
          (flag_arg & (BINCMP_FLAG | BINARY_FLAG))));
 
108
}
 
109
 
 
110
 
 
111
uint32_t Field_str::is_equal(Create_field *new_field)
 
112
{
 
113
  if (compare_str_field_flags(new_field, flags))
 
114
    return 0;
 
115
 
 
116
  return ((new_field->sql_type == real_type()) &&
 
117
          new_field->charset == field_charset &&
 
118
          new_field->length == max_display_length());
 
119
}