483.1.5
by Lee
clean up code for Field_str |
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> |
|
550
by Monty Taylor
Moved error.h into just the files that need it. |
24 |
#include <drizzled/error.h> |
584.1.15
by Monty Taylor
The mega-patch from hell. Renamed sql_class to session (since that's what it is) and removed it and field and table from common_includes. |
25 |
#include <drizzled/table.h> |
26 |
#include <drizzled/session.h> |
|
27 |
||
483.1.5
by Lee
clean up code for Field_str |
28 |
|
779.3.10
by Monty Taylor
Turned on -Wshadow. |
29 |
Field_str::Field_str(unsigned char *ptr_arg,uint32_t len_arg, |
30 |
unsigned char *null_ptr_arg, |
|
483.1.5
by Lee
clean up code for Field_str |
31 |
unsigned char null_bit_arg, utype unireg_check_arg, |
779.3.10
by Monty Taylor
Turned on -Wshadow. |
32 |
const char *field_name_arg, |
33 |
const CHARSET_INFO * const charset_arg) |
|
483.1.5
by Lee
clean up code for Field_str |
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 |
||
779.3.10
by Monty Taylor
Turned on -Wshadow. |
107 |
bool Field_str::compare_str_field_flags(Create_field *new_field_ptr, |
108 |
uint32_t flag_arg) |
|
483.1.5
by Lee
clean up code for Field_str |
109 |
{
|
779.3.10
by Monty Taylor
Turned on -Wshadow. |
110 |
return (((new_field_ptr->flags & (BINCMP_FLAG | BINARY_FLAG)) && |
483.1.5
by Lee
clean up code for Field_str |
111 |
!(flag_arg & (BINCMP_FLAG | BINARY_FLAG))) || |
779.3.10
by Monty Taylor
Turned on -Wshadow. |
112 |
(!(new_field_ptr->flags & (BINCMP_FLAG | BINARY_FLAG)) && |
483.1.5
by Lee
clean up code for Field_str |
113 |
(flag_arg & (BINCMP_FLAG | BINARY_FLAG)))); |
114 |
}
|
|
115 |
||
116 |
||
779.3.10
by Monty Taylor
Turned on -Wshadow. |
117 |
uint32_t Field_str::is_equal(Create_field *new_field_ptr) |
483.1.5
by Lee
clean up code for Field_str |
118 |
{
|
779.3.10
by Monty Taylor
Turned on -Wshadow. |
119 |
if (compare_str_field_flags(new_field_ptr, flags)) |
483.1.5
by Lee
clean up code for Field_str |
120 |
return 0; |
121 |
||
779.3.10
by Monty Taylor
Turned on -Wshadow. |
122 |
return ((new_field_ptr->sql_type == real_type()) && |
123 |
new_field_ptr->charset == field_charset && |
|
124 |
new_field_ptr->length == max_display_length()); |
|
483.1.5
by Lee
clean up code for Field_str |
125 |
}
|
584.5.1
by Monty Taylor
Removed field includes from field.h. |
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 |