field.cc 291 KB
Newer Older
1
/*
Sergei Golubchik's avatar
Sergei Golubchik committed
2
   Copyright (c) 2000, 2013, Oracle and/or its affiliates.
3
   Copyright (c) 2008, 2013, Monty Program Ab.
unknown's avatar
unknown committed
4

unknown's avatar
unknown committed
5 6
   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
unknown's avatar
unknown committed
7
   the Free Software Foundation; version 2 of the License.
unknown's avatar
unknown committed
8

unknown's avatar
unknown committed
9 10 11 12
   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.
unknown's avatar
unknown committed
13

unknown's avatar
unknown committed
14 15
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
16 17
   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301  USA
*/
unknown's avatar
unknown committed
18

19 20 21 22 23 24
/**
  @file

  @brief
  This file implements classes defined in field.h
*/
unknown's avatar
unknown committed
25

26
#ifdef USE_PRAGMA_IMPLEMENTATION
unknown's avatar
unknown committed
27 28 29
#pragma implementation				// gcc: Class implementation
#endif

30
#include <my_global.h>
31
#include "sql_priv.h"
unknown's avatar
unknown committed
32
#include "sql_select.h"
33 34
#include "rpl_rli.h"                            // Pull in Relay_log_info
#include "slave.h"                              // Pull in rpl_master_has_bug()
35 36 37 38 39 40 41 42 43
#include "strfunc.h"                            // find_type2, find_set
#include "sql_time.h"                    // str_to_datetime_with_warn,
                                         // str_to_time_with_warn,
                                         // TIME_to_timestamp,
                                         // make_time, make_date,
                                         // make_truncated_value_warning
#include "tztime.h"                      // struct Time_zone
#include "filesort.h"                    // change_double_for_sort
#include "log_event.h"                   // class Table_map_log_event
unknown's avatar
unknown committed
44 45
#include <m_ctype.h>

unknown's avatar
unknown committed
46 47 48
// Maximum allowed exponent value for converting string to decimal
#define MAX_EXPONENT 1024

unknown's avatar
unknown committed
49
/*****************************************************************************
50
  Instansiate templates and static variables
unknown's avatar
unknown committed
51 52
*****************************************************************************/

Sergei Golubchik's avatar
Sergei Golubchik committed
53 54 55 56 57 58 59 60 61 62 63
static const char *zero_timestamp="0000-00-00 00:00:00.000000";

/* number of bytes to store second_part part of the TIMESTAMP(N) */
static uint sec_part_bytes[MAX_DATETIME_PRECISION+1]= { 0, 1, 1, 2, 2, 3, 3 };

/* number of bytes to store DATETIME(N) */
static uint datetime_hires_bytes[MAX_DATETIME_PRECISION+1]= { 5, 6, 6, 7, 7, 7, 8 };

/* number of bytes to store TIME(N) */
static uint time_hires_bytes[MAX_DATETIME_PRECISION+1]= { 3, 4, 4, 5, 5, 5, 6 };

unknown's avatar
unknown committed
64 65 66
uchar Field_null::null[1]={1};
const char field_separator=',';

67
#define DOUBLE_TO_STRING_CONVERSION_BUFFER_SIZE FLOATING_POINT_BUFFER
68 69
#define LONGLONG_TO_STRING_CONVERSION_BUFFER_SIZE 128
#define DECIMAL_TO_STRING_CONVERSION_BUFFER_SIZE 128
70
#define BLOB_PACK_LENGTH_TO_MAX_LENGH(arg) \
Sergei Golubchik's avatar
Sergei Golubchik committed
71
                        ((ulong) ((1LL << MY_MIN(arg, 4) * 8) - 1))
72

unknown's avatar
unknown committed
73
#define ASSERT_COLUMN_MARKED_FOR_READ DBUG_ASSERT(!table || (!table->read_set || bitmap_is_set(table->read_set, field_index)))
74
#define ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED DBUG_ASSERT(is_stat_field || !table || (!table->write_set || bitmap_is_set(table->write_set, field_index) || bitmap_is_set(table->vcol_set, field_index)))
75

76 77
#define FLAGSTR(S,F) ((S) & (F) ? #F " " : "")

78 79 80 81 82 83 84
/*
  Rules for merging different types of fields in UNION

  NOTE: to avoid 256*256 table, gap in table types numeration is skiped
  following #defines describe that gap and how to canculate number of fields
  and index of field in thia array.
*/
unknown's avatar
unknown committed
85 86 87
#define FIELDTYPE_TEAR_FROM (MYSQL_TYPE_BIT + 1)
#define FIELDTYPE_TEAR_TO   (MYSQL_TYPE_NEWDECIMAL - 1)
#define FIELDTYPE_NUM (FIELDTYPE_TEAR_FROM + (255 - FIELDTYPE_TEAR_TO))
88
static inline int field_type2index (enum_field_types field_type)
89
{
90
  field_type= real_type_to_type(field_type);
91 92 93 94 95
  return (field_type < FIELDTYPE_TEAR_FROM ?
          field_type :
          ((int)FIELDTYPE_TEAR_FROM) + (field_type - FIELDTYPE_TEAR_TO) - 1);
}

unknown's avatar
unknown committed
96

97 98 99 100 101
static enum_field_types field_types_merge_rules [FIELDTYPE_NUM][FIELDTYPE_NUM]=
{
  /* MYSQL_TYPE_DECIMAL -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
102
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_NEWDECIMAL,
103
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
unknown's avatar
unknown committed
104
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_NEWDECIMAL,
105 106 107
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_DOUBLE,      MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
unknown's avatar
unknown committed
108
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_VARCHAR,
109 110 111
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_DECIMAL,     MYSQL_TYPE_DECIMAL,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
unknown's avatar
unknown committed
112
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
113
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
114 115 116 117 118 119 120
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_VARCHAR,
121
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
122
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
123 124 125
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
126
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
127
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
128
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
129 130 131 132
  },
  /* MYSQL_TYPE_TINY -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
133
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_TINY,
134 135 136 137 138
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_SHORT,       MYSQL_TYPE_LONG,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_FLOAT,       MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
unknown's avatar
unknown committed
139
    MYSQL_TYPE_TINY,        MYSQL_TYPE_VARCHAR,
140 141 142
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_LONGLONG,    MYSQL_TYPE_INT24,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
unknown's avatar
unknown committed
143
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
144
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
145 146 147 148 149 150 151
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_VARCHAR,
152
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
153
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
154 155 156
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
157
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
158
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
159
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
160 161 162 163
  },
  /* MYSQL_TYPE_SHORT -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
164
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_SHORT,
165 166 167 168 169
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_SHORT,       MYSQL_TYPE_LONG,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_FLOAT,       MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
unknown's avatar
unknown committed
170
    MYSQL_TYPE_SHORT,       MYSQL_TYPE_VARCHAR,
171 172 173
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_LONGLONG,    MYSQL_TYPE_INT24,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
unknown's avatar
unknown committed
174
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
175
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
176 177 178 179 180 181 182
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_SHORT,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_VARCHAR,
183
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
184
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
185 186 187
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
188
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
189
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
190
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
191 192 193 194
  },
  /* MYSQL_TYPE_LONG -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
195
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_LONG,
196 197 198 199 200
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_LONG,        MYSQL_TYPE_LONG,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_DOUBLE,      MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
unknown's avatar
unknown committed
201
    MYSQL_TYPE_LONG,         MYSQL_TYPE_VARCHAR,
202
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
203
    MYSQL_TYPE_LONGLONG,    MYSQL_TYPE_LONG,
204
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
unknown's avatar
unknown committed
205
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
206
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
207 208 209 210 211 212 213
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_LONG,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_VARCHAR,
214
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
215
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
216 217 218
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
219
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
220
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
221
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
222 223 224 225 226 227 228 229 230 231
  },
  /* MYSQL_TYPE_FLOAT -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
    MYSQL_TYPE_DOUBLE,      MYSQL_TYPE_FLOAT,
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_FLOAT,       MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_FLOAT,       MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
unknown's avatar
unknown committed
232
    MYSQL_TYPE_FLOAT,       MYSQL_TYPE_VARCHAR,
233
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
234
    MYSQL_TYPE_FLOAT,       MYSQL_TYPE_FLOAT,
235
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
unknown's avatar
unknown committed
236
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
237
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
238 239 240 241 242 243 244
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_FLOAT,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_DOUBLE,      MYSQL_TYPE_VARCHAR,
245
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
246
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
247 248 249
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
250
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
251
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
252
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
253 254 255 256 257 258 259 260 261 262
  },
  /* MYSQL_TYPE_DOUBLE -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
    MYSQL_TYPE_DOUBLE,      MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_DOUBLE,      MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_DOUBLE,      MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
unknown's avatar
unknown committed
263
    MYSQL_TYPE_DOUBLE,      MYSQL_TYPE_VARCHAR,
264
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
265
    MYSQL_TYPE_DOUBLE,      MYSQL_TYPE_DOUBLE,
266
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
unknown's avatar
unknown committed
267
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
268
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
269 270 271 272 273 274 275
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_DOUBLE,      MYSQL_TYPE_VARCHAR,
276
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
277
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
278 279 280
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
281
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
282
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
283
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
284 285 286 287
  },
  /* MYSQL_TYPE_NULL -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
288
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_TINY,
289 290 291 292 293 294 295
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_SHORT,       MYSQL_TYPE_LONG,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_FLOAT,       MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_NULL,        MYSQL_TYPE_TIMESTAMP,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
296
    MYSQL_TYPE_LONGLONG,    MYSQL_TYPE_LONGLONG,
297 298 299 300
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_NEWDATE,     MYSQL_TYPE_TIME,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
    MYSQL_TYPE_DATETIME,    MYSQL_TYPE_YEAR,
unknown's avatar
unknown committed
301 302 303 304 305 306
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_NEWDATE,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_BIT,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_ENUM,
307 308 309 310 311
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
    MYSQL_TYPE_SET,         MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
312
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
313 314 315 316 317 318
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
    MYSQL_TYPE_STRING,      MYSQL_TYPE_GEOMETRY
  },
  /* MYSQL_TYPE_TIMESTAMP -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
319
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
320
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
unknown's avatar
unknown committed
321
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
322
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
unknown's avatar
unknown committed
323
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
324 325 326
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_TIMESTAMP,   MYSQL_TYPE_TIMESTAMP,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
unknown's avatar
unknown committed
327
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
328 329 330
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_DATETIME,    MYSQL_TYPE_DATETIME,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
331 332 333 334 335 336 337
    MYSQL_TYPE_DATETIME,    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_NEWDATE,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
338
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
339
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
340 341 342
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
343
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
344
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
345
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
346 347 348 349
  },
  /* MYSQL_TYPE_LONGLONG -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
350
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_LONGLONG,
351 352 353 354 355
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_LONGLONG,    MYSQL_TYPE_LONGLONG,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_DOUBLE,      MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
unknown's avatar
unknown committed
356
    MYSQL_TYPE_LONGLONG,    MYSQL_TYPE_VARCHAR,
357 358 359
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_LONGLONG,    MYSQL_TYPE_LONG,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
unknown's avatar
unknown committed
360
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
361
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
362 363 364 365 366 367 368
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_LONGLONG,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_NEWDATE,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_VARCHAR,
369
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
370
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
371 372 373
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
374
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
375
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
376
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
377 378 379 380
  },
  /* MYSQL_TYPE_INT24 -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
381
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_INT24,
382 383 384 385 386
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_INT24,       MYSQL_TYPE_LONG,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_FLOAT,       MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
unknown's avatar
unknown committed
387
    MYSQL_TYPE_INT24,       MYSQL_TYPE_VARCHAR,
388 389 390
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_LONGLONG,    MYSQL_TYPE_INT24,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
unknown's avatar
unknown committed
391
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
392
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
393 394 395 396 397 398 399
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_INT24,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_NEWDATE,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL    MYSQL_TYPE_ENUM
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_VARCHAR,
400
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
401
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
402 403 404
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
405
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
406
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
407
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
408 409 410 411
  },
  /* MYSQL_TYPE_DATE -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
412
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
413
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
unknown's avatar
unknown committed
414
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
415
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
unknown's avatar
unknown committed
416
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
417 418 419
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_NEWDATE,     MYSQL_TYPE_DATETIME,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
unknown's avatar
unknown committed
420
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
421 422 423
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_NEWDATE,     MYSQL_TYPE_DATETIME,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
424 425 426 427 428 429 430
    MYSQL_TYPE_DATETIME,    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_NEWDATE,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
431
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
432
    MYSQL_TYPE_VARCHAR,  MYSQL_TYPE_TINY_BLOB,
433 434 435
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
436
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
437
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
438
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
439 440 441 442
  },
  /* MYSQL_TYPE_TIME -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
443
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
444
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
unknown's avatar
unknown committed
445
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
446
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
unknown's avatar
unknown committed
447
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
448 449 450
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_TIME,        MYSQL_TYPE_DATETIME,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
unknown's avatar
unknown committed
451
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
452 453 454
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_DATETIME,    MYSQL_TYPE_TIME,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
455 456 457 458 459 460 461
    MYSQL_TYPE_DATETIME,    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_NEWDATE,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
462
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
463
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
464 465 466
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
467
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
468
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
469
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
470 471 472 473
  },
  /* MYSQL_TYPE_DATETIME -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
474
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
475
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
unknown's avatar
unknown committed
476
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
477
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
unknown's avatar
unknown committed
478
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
479 480 481
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_DATETIME,    MYSQL_TYPE_DATETIME,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
unknown's avatar
unknown committed
482
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
483 484 485
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_DATETIME,    MYSQL_TYPE_DATETIME,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
486 487 488 489 490 491 492
    MYSQL_TYPE_DATETIME,    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_NEWDATE,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
493
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
494
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
495 496 497
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
498
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
499
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
500
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
501 502 503 504 505 506 507 508 509 510
  },
  /* MYSQL_TYPE_YEAR -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
    MYSQL_TYPE_DECIMAL,     MYSQL_TYPE_TINY,
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_SHORT,       MYSQL_TYPE_LONG,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_FLOAT,       MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
unknown's avatar
unknown committed
511
    MYSQL_TYPE_YEAR,        MYSQL_TYPE_VARCHAR,
512 513 514
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_LONGLONG,    MYSQL_TYPE_INT24,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
unknown's avatar
unknown committed
515
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
516
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
517 518 519 520 521 522 523
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_YEAR,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_VARCHAR,
524
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
525
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
526 527 528
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
529
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
530
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
531
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
532 533 534 535
  },
  /* MYSQL_TYPE_NEWDATE -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
536
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
537
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
unknown's avatar
unknown committed
538
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
539
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
unknown's avatar
unknown committed
540
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
541 542 543
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_NEWDATE,     MYSQL_TYPE_DATETIME,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
unknown's avatar
unknown committed
544
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
545 546 547
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_NEWDATE,     MYSQL_TYPE_DATETIME,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647
    MYSQL_TYPE_DATETIME,    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_NEWDATE,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
  },
  /* MYSQL_TYPE_VARCHAR -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR
  },
  /* MYSQL_TYPE_BIT -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_BIT,         MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_BIT,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
  },
  /* MYSQL_TYPE_NEWDECIMAL -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_NEWDECIMAL,
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_NEWDECIMAL,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_DOUBLE,      MYSQL_TYPE_DOUBLE,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_NEWDECIMAL,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_NEWDECIMAL,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_NEWDECIMAL,  MYSQL_TYPE_VARCHAR,
648
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
649
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
650 651 652
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
653
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
654
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
655
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
656 657 658 659
  },
  /* MYSQL_TYPE_ENUM -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
660
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
661
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
unknown's avatar
unknown committed
662
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
663
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
unknown's avatar
unknown committed
664
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
665
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
unknown's avatar
unknown committed
666
    MYSQL_TYPE_ENUM,        MYSQL_TYPE_VARCHAR,
667
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
unknown's avatar
unknown committed
668
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
669
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
unknown's avatar
unknown committed
670
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
671
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
672 673 674 675 676 677 678
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
679
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
680
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
681 682 683
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
684
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
685
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
686
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
687 688 689 690
  },
  /* MYSQL_TYPE_SET -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
691
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
692
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
unknown's avatar
unknown committed
693
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
694
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
unknown's avatar
unknown committed
695
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
696
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
unknown's avatar
unknown committed
697
    MYSQL_TYPE_SET,         MYSQL_TYPE_VARCHAR,
698
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
unknown's avatar
unknown committed
699
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
700
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
unknown's avatar
unknown committed
701
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
702
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
703 704 705 706 707 708 709
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
710
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
711
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
712 713 714
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
715
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
716
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
717
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR
718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734
  },
  /* MYSQL_TYPE_TINY_BLOB -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
    MYSQL_TYPE_TINY_BLOB,   MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_TINY_BLOB,   MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_TINY_BLOB,   MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_TINY_BLOB,   MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_TINY_BLOB,   MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_TINY_BLOB,   MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
    MYSQL_TYPE_TINY_BLOB,   MYSQL_TYPE_TINY_BLOB,
unknown's avatar
unknown committed
735 736 737
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_TINY_BLOB,   MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_BIT          <16>-<245>
738
    MYSQL_TYPE_TINY_BLOB,
unknown's avatar
unknown committed
739 740
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_TINY_BLOB,   MYSQL_TYPE_TINY_BLOB,
741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
    MYSQL_TYPE_TINY_BLOB,   MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
    MYSQL_TYPE_TINY_BLOB,   MYSQL_TYPE_TINY_BLOB
  },
  /* MYSQL_TYPE_MEDIUM_BLOB -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_MEDIUM_BLOB,
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_MEDIUM_BLOB,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_MEDIUM_BLOB,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_MEDIUM_BLOB,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_MEDIUM_BLOB,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_MEDIUM_BLOB,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_MEDIUM_BLOB,
unknown's avatar
unknown committed
766 767 768
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_MEDIUM_BLOB,
  //MYSQL_TYPE_BIT          <16>-<245>
769
    MYSQL_TYPE_MEDIUM_BLOB,
unknown's avatar
unknown committed
770 771
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_MEDIUM_BLOB,
772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_MEDIUM_BLOB,
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_MEDIUM_BLOB,
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_MEDIUM_BLOB
  },
  /* MYSQL_TYPE_LONG_BLOB -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
    MYSQL_TYPE_LONG_BLOB,   MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_LONG_BLOB,   MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_LONG_BLOB,   MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_LONG_BLOB,   MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_LONG_BLOB,   MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_LONG_BLOB,   MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
    MYSQL_TYPE_LONG_BLOB,   MYSQL_TYPE_LONG_BLOB,
unknown's avatar
unknown committed
797 798 799
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_LONG_BLOB,   MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BIT          <16>-<245>
800
    MYSQL_TYPE_LONG_BLOB,
unknown's avatar
unknown committed
801 802
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_LONG_BLOB,   MYSQL_TYPE_LONG_BLOB,
803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
    MYSQL_TYPE_LONG_BLOB,   MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_LONG_BLOB,   MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
    MYSQL_TYPE_LONG_BLOB,   MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
    MYSQL_TYPE_LONG_BLOB,   MYSQL_TYPE_LONG_BLOB
  },
  /* MYSQL_TYPE_BLOB -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_BLOB,
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_BLOB,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_BLOB,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_BLOB,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_BLOB,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_BLOB,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_BLOB,
unknown's avatar
unknown committed
828 829 830
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_BLOB,
  //MYSQL_TYPE_BIT          <16>-<245>
831
    MYSQL_TYPE_BLOB,
unknown's avatar
unknown committed
832 833
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_BLOB,
834 835 836 837 838 839 840 841 842 843 844 845
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_BLOB,
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_BLOB,
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_BLOB
  },
  /* MYSQL_TYPE_VAR_STRING -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
846
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
847
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
unknown's avatar
unknown committed
848
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
849
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
unknown's avatar
unknown committed
850
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
851
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
unknown's avatar
unknown committed
852
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
853
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
unknown's avatar
unknown committed
854
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
855
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
unknown's avatar
unknown committed
856
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
857
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
858 859 860 861 862 863 864
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
865
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
866
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
867 868 869
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
870
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
871
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
unknown's avatar
unknown committed
872
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR
873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889
  },
  /* MYSQL_TYPE_STRING -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
    MYSQL_TYPE_STRING,      MYSQL_TYPE_STRING,
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
    MYSQL_TYPE_STRING,      MYSQL_TYPE_STRING,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
    MYSQL_TYPE_STRING,      MYSQL_TYPE_STRING,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
    MYSQL_TYPE_STRING,      MYSQL_TYPE_STRING,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
    MYSQL_TYPE_STRING,      MYSQL_TYPE_STRING,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
    MYSQL_TYPE_STRING,      MYSQL_TYPE_STRING,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
    MYSQL_TYPE_STRING,      MYSQL_TYPE_STRING,
unknown's avatar
unknown committed
890 891 892
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_STRING,      MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
893
    MYSQL_TYPE_STRING,
unknown's avatar
unknown committed
894 895
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_STRING,      MYSQL_TYPE_STRING,
896 897 898 899 900
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
    MYSQL_TYPE_STRING,      MYSQL_TYPE_TINY_BLOB,
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
901
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
902 903 904 905 906 907
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
    MYSQL_TYPE_STRING,      MYSQL_TYPE_STRING
  },
  /* MYSQL_TYPE_GEOMETRY -> */
  {
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
908
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
909
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
unknown's avatar
unknown committed
910
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
911
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
unknown's avatar
unknown committed
912
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
913
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
unknown's avatar
unknown committed
914
    MYSQL_TYPE_GEOMETRY,    MYSQL_TYPE_VARCHAR,
915
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
unknown's avatar
unknown committed
916
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
917
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
unknown's avatar
unknown committed
918
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
919
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
unknown's avatar
unknown committed
920 921 922 923 924 925 926
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_BIT          <16>-<245>
    MYSQL_TYPE_VARCHAR,
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_VARCHAR,
927
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
unknown's avatar
unknown committed
928
    MYSQL_TYPE_VARCHAR,     MYSQL_TYPE_TINY_BLOB,
929 930 931
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
    MYSQL_TYPE_MEDIUM_BLOB, MYSQL_TYPE_LONG_BLOB,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
unknown's avatar
unknown committed
932
    MYSQL_TYPE_BLOB,        MYSQL_TYPE_VARCHAR,
933 934 935 936 937
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
    MYSQL_TYPE_STRING,      MYSQL_TYPE_GEOMETRY
  }
};

938 939
/**
  Return type of which can carry value of both given types in UNION result.
940

941 942
  @param a  type for merging
  @param b  type for merging
943

944
  @return
945 946 947 948 949 950
    type of field
*/

enum_field_types Field::field_type_merge(enum_field_types a,
                                         enum_field_types b)
{
951 952 953 954
  DBUG_ASSERT(real_type_to_type(a) < FIELDTYPE_TEAR_FROM ||
              real_type_to_type(a) > FIELDTYPE_TEAR_TO);
  DBUG_ASSERT(real_type_to_type(b) < FIELDTYPE_TEAR_FROM ||
              real_type_to_type(b) > FIELDTYPE_TEAR_TO);
955 956 957 958 959 960 961 962
  return field_types_merge_rules[field_type2index(a)]
                                [field_type2index(b)];
}


static Item_result field_types_result_type [FIELDTYPE_NUM]=
{
  //MYSQL_TYPE_DECIMAL      MYSQL_TYPE_TINY
unknown's avatar
unknown committed
963
  DECIMAL_RESULT,           INT_RESULT,
964 965 966 967 968 969 970 971 972 973 974 975
  //MYSQL_TYPE_SHORT        MYSQL_TYPE_LONG
  INT_RESULT,               INT_RESULT,
  //MYSQL_TYPE_FLOAT        MYSQL_TYPE_DOUBLE
  REAL_RESULT,              REAL_RESULT,
  //MYSQL_TYPE_NULL         MYSQL_TYPE_TIMESTAMP
  STRING_RESULT,            STRING_RESULT,
  //MYSQL_TYPE_LONGLONG     MYSQL_TYPE_INT24
  INT_RESULT,               INT_RESULT,
  //MYSQL_TYPE_DATE         MYSQL_TYPE_TIME
  STRING_RESULT,            STRING_RESULT,
  //MYSQL_TYPE_DATETIME     MYSQL_TYPE_YEAR
  STRING_RESULT,            INT_RESULT,
unknown's avatar
unknown committed
976 977 978
  //MYSQL_TYPE_NEWDATE      MYSQL_TYPE_VARCHAR
  STRING_RESULT,            STRING_RESULT,
  //MYSQL_TYPE_BIT          <16>-<245>
979
  STRING_RESULT,
unknown's avatar
unknown committed
980 981
  //MYSQL_TYPE_NEWDECIMAL   MYSQL_TYPE_ENUM
  DECIMAL_RESULT,           STRING_RESULT,
982 983 984 985 986 987 988 989 990 991 992
  //MYSQL_TYPE_SET          MYSQL_TYPE_TINY_BLOB
  STRING_RESULT,            STRING_RESULT,
  //MYSQL_TYPE_MEDIUM_BLOB  MYSQL_TYPE_LONG_BLOB
  STRING_RESULT,            STRING_RESULT,
  //MYSQL_TYPE_BLOB         MYSQL_TYPE_VAR_STRING
  STRING_RESULT,            STRING_RESULT,
  //MYSQL_TYPE_STRING       MYSQL_TYPE_GEOMETRY
  STRING_RESULT,            STRING_RESULT
};


unknown's avatar
unknown committed
993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017
/*
  Test if the given string contains important data:
  not spaces for character string,
  or any data for binary string.

  SYNOPSIS
    test_if_important_data()
    cs          Character set
    str         String to test
    strend      String end

  RETURN
    FALSE - If string does not have important data
    TRUE  - If string has some important data
*/

static bool
test_if_important_data(CHARSET_INFO *cs, const char *str, const char *strend)
{
  if (cs != &my_charset_bin)
    str+= cs->cset->scan(cs, str, strend, MY_SEQ_SPACES);
  return (str < strend);
}


1018
/**
1019 1020 1021
   Function to compare two unsigned integers for their relative order.
   Used below. In an anonymous namespace to not clash with definitions
   in other files.
1022
 */
1023 1024 1025 1026 1027 1028 1029 1030 1031 1032

CPP_UNNAMED_NS_START

int compare(unsigned int a, unsigned int b)
{
  if (a < b)
    return -1;
  if (b < a)
    return 1;
  return 0;
1033 1034
}

1035 1036
CPP_UNNAMED_NS_END

1037 1038
/**
  Detect Item_result by given field type of UNION merge result.
1039

1040
  @param field_type  given field type
1041

1042
  @return
1043 1044 1045 1046 1047
    Item_result (type of internal MySQL expression result)
*/

Item_result Field::result_merge_type(enum_field_types field_type)
{
1048 1049
  DBUG_ASSERT(real_type_to_type(field_type) < FIELDTYPE_TEAR_FROM ||
              real_type_to_type(field_type) > FIELDTYPE_TEAR_TO);
1050 1051 1052
  return field_types_result_type[field_type2index(field_type)];
}

unknown's avatar
unknown committed
1053
/*****************************************************************************
1054
  Static help functions
unknown's avatar
unknown committed
1055 1056
*****************************************************************************/

1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075
/**
  Output a warning for erroneous conversion of strings to numerical 
  values. For use with ER_TRUNCATED_WRONG_VALUE[_FOR_FIELD] 
  
  @param thd         THD object
  @param str         pointer to string that failed to be converted
  @param length      length of string
  @param cs          charset for string
  @param typestr     string describing type converted to
  @param error       error value to output
  @param field_name  (for *_FOR_FIELD) name of field
  @param row_num     (for *_FOR_FIELD) row number
 */
static void push_numerical_conversion_warning(THD* thd, const char* str, 
                                              uint length, CHARSET_INFO* cs,
                                              const char* typestr, int error,
                                              const char* field_name="UNKNOWN",
                                              ulong row_num=0)
{
1076
    char buf[MY_MAX(MY_MAX(DOUBLE_TO_STRING_CONVERSION_BUFFER_SIZE,
1077 1078 1079 1080 1081
      LONGLONG_TO_STRING_CONVERSION_BUFFER_SIZE), 
      DECIMAL_TO_STRING_CONVERSION_BUFFER_SIZE)];

    String tmp(buf, sizeof(buf), cs);
    tmp.copy(str, length, cs);
1082
    push_warning_printf(thd, Sql_condition::WARN_LEVEL_WARN,
1083 1084 1085 1086
                        error, ER(error), typestr, tmp.c_ptr(),
                        field_name, row_num);
}

1087

1088 1089
/**
  Check whether a field type can be partially indexed by a key.
1090 1091 1092 1093

  This is a static method, rather than a virtual function, because we need
  to check the type of a non-Field in mysql_alter_table().

1094
  @param type  field type
1095

1096
  @retval
1097
    TRUE  Type can have a prefixed key
1098
  @retval
1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111
    FALSE Type can not have a prefixed key
*/

bool Field::type_can_have_key_part(enum enum_field_types type)
{
  switch (type) {
  case MYSQL_TYPE_VARCHAR:
  case MYSQL_TYPE_TINY_BLOB:
  case MYSQL_TYPE_MEDIUM_BLOB:
  case MYSQL_TYPE_LONG_BLOB:
  case MYSQL_TYPE_BLOB:
  case MYSQL_TYPE_VAR_STRING:
  case MYSQL_TYPE_STRING:
unknown's avatar
unknown committed
1112
  case MYSQL_TYPE_GEOMETRY:
1113 1114 1115 1116 1117 1118 1119
    return TRUE;
  default:
    return FALSE;
  }
}


1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134
void Field::make_sort_key(uchar *buff,uint length)
{
  if (maybe_null())
  {
    if (is_null())
    {
      bzero(buff, length + 1);
      return;
    }
    *buff++= 1;
  }
  sort_string(buff, length);
}


1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160
/**
  @brief
  Determine the relative position of the field value in a numeric interval

  @details
  The function returns a double number between 0.0 and 1.0 as the relative
  position of the value of the this field in the numeric interval of [min,max].
  If the value is not in the interval the the function returns 0.0 when
  the value is less than min, and, 1.0 when the value is greater than max.

  @param  min  value of the left end of the interval
  @param  max  value of the right end of the interval

  @return
  relative position of the field value in the numeric interval [min,max] 
*/

double Field::pos_in_interval_val_real(Field *min, Field *max)
{
  double n, d;
  n= val_real() - min->val_real();
  if (n < 0)
    return 0.0;
  d= max->val_real() - min->val_real();
  if (d <= 0)
    return 1.0;
Sergei Golubchik's avatar
Sergei Golubchik committed
1161
  return MY_MIN(n/d, 1.0);
1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177
}


static
inline ulonglong char_prefix_to_ulonglong(uchar *src)
{
  uint sz= sizeof(ulonglong);
  for (uint i= 0; i < sz/2; i++)
  {
    uchar tmp= src[i];
    src[i]= src[sz-1-i];
    src[sz-1-i]= tmp;
  }
  return uint8korr(src); 
}

1178 1179 1180 1181 1182 1183 1184 1185 1186
/*
  Compute res = a - b, without losing precision and taking care that these are
  unsigned numbers.
*/
static inline double safe_substract(ulonglong a, ulonglong b)
{
  return (a > b)? double(a - b) : -double(b - a);
}

1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238

/**
  @brief
  Determine the relative position of the field value in a string interval

  @details
  The function returns a double number between 0.0 and 1.0 as the relative
  position of the value of the this field in the string interval of [min,max].
  If the value is not in the interval the the function returns 0.0 when
  the value is less than min, and, 1.0 when the value is greater than max.

  @note
  To calculate the relative position of the string value v in the interval
  [min, max] the function first converts the beginning of these three
  strings v, min, max into the strings that are used for byte comparison.
  For each string not more sizeof(ulonglong) first bytes are taken
  from the result of conversion. Then these bytes are interpreted as the
  big-endian representation of an ulonglong integer. The values of these
  integer numbers obtained for the strings v, min, max are used to calculate
  the position of v in [min,max] in the same way is it's done for numeric
  fields (see Field::pos_in_interval_val_real).

  @todo
  Improve the procedure for the case when min and max have the same
  beginning
     
  @param  min  value of the left end of the interval
  @param  max  value of the right end of the interval

  @return
  relative position of the field value in the string interval [min,max] 
*/

double Field::pos_in_interval_val_str(Field *min, Field *max, uint data_offset)
{
  uchar mp_prefix[sizeof(ulonglong)];
  uchar minp_prefix[sizeof(ulonglong)];
  uchar maxp_prefix[sizeof(ulonglong)];
  ulonglong mp, minp, maxp;
  my_strnxfrm(charset(), mp_prefix, sizeof(mp),
              ptr + data_offset,
              data_length());
  my_strnxfrm(charset(), minp_prefix, sizeof(minp),
              min->ptr + data_offset,
              min->data_length());
  my_strnxfrm(charset(), maxp_prefix, sizeof(maxp),
              max->ptr + data_offset,
              max->data_length());
  mp= char_prefix_to_ulonglong(mp_prefix);
  minp= char_prefix_to_ulonglong(minp_prefix);
  maxp= char_prefix_to_ulonglong(maxp_prefix);
  double n, d;
1239
  n= safe_substract(mp, minp);
1240 1241
  if (n < 0)
    return 0.0;
1242
  d= safe_substract(maxp, minp);
1243 1244
  if (d <= 0)
    return 1.0;
Sergei Golubchik's avatar
Sergei Golubchik committed
1245
  return MY_MIN(n/d, 1.0);
1246 1247 1248
}


1249 1250
/**
  Numeric fields base class constructor.
unknown's avatar
unknown committed
1251
*/
1252
Field_num::Field_num(uchar *ptr_arg,uint32 len_arg, uchar *null_ptr_arg,
unknown's avatar
unknown committed
1253 1254 1255 1256
                     uchar null_bit_arg, utype unireg_check_arg,
                     const char *field_name_arg,
                     uint8 dec_arg, bool zero_arg, bool unsigned_arg)
  :Field(ptr_arg, len_arg, null_ptr_arg, null_bit_arg,
unknown's avatar
unknown committed
1257
         unireg_check_arg, field_name_arg),
unknown's avatar
unknown committed
1258 1259 1260 1261 1262 1263 1264 1265 1266
  dec(dec_arg),zerofill(zero_arg),unsigned_flag(unsigned_arg)
{
  if (zerofill)
    flags|=ZEROFILL_FLAG;
  if (unsigned_flag)
    flags|=UNSIGNED_FLAG;
}


unknown's avatar
unknown committed
1267 1268 1269 1270 1271
void Field_num::prepend_zeros(String *value)
{
  int diff;
  if ((diff= (int) (field_length - value->length())) > 0)
  {
1272 1273
    bmove_upp((uchar*) value->ptr()+field_length,
              (uchar*) value->ptr()+value->length(),
unknown's avatar
unknown committed
1274
	      value->length());
1275
    bfill((uchar*) value->ptr(),diff,'0');
unknown's avatar
unknown committed
1276 1277 1278 1279 1280
    value->length(field_length);
    (void) value->c_ptr_quick();		// Avoid warnings in purify
  }
}

1281
/**
unknown's avatar
unknown committed
1282
  Test if given number is a int.
1283

1284 1285
  @todo
    Make this multi-byte-character safe
1286

1287 1288 1289 1290 1291 1292
  @param str		String to test
  @param length        Length of 'str'
  @param int_end	Pointer to char after last used digit
  @param cs		Character set

  @note
unknown's avatar
unknown committed
1293
    This is called after one has called strntoull10rnd() function.
1294

1295 1296 1297
  @retval
    0	OK
  @retval
unknown's avatar
unknown committed
1298
    1	error: empty string or wrong integer.
1299
  @retval
unknown's avatar
unknown committed
1300
    2   error: garbage at the end of string.
unknown's avatar
unknown committed
1301 1302
*/

unknown's avatar
unknown committed
1303 1304
int Field_num::check_int(CHARSET_INFO *cs, const char *str, int length, 
                         const char *int_end, int error)
unknown's avatar
unknown committed
1305
{
unknown's avatar
unknown committed
1306 1307
  /* Test if we get an empty string or wrong integer */
  if (str == int_end || error == MY_ERRNO_EDOM)
unknown's avatar
unknown committed
1308
  {
1309
    ErrConvString err(str, length, cs);
1310
    push_warning_printf(get_thd(), Sql_condition::WARN_LEVEL_WARN,
unknown's avatar
unknown committed
1311 1312
                        ER_TRUNCATED_WRONG_VALUE_FOR_FIELD, 
                        ER(ER_TRUNCATED_WRONG_VALUE_FOR_FIELD),
1313
                        "integer", err.ptr(), field_name,
1314 1315
                        (ulong) table->in_use->get_stmt_da()->
                        current_row_for_warning());
unknown's avatar
unknown committed
1316
    return 1;
unknown's avatar
unknown committed
1317
  }
unknown's avatar
unknown committed
1318 1319 1320
  /* Test if we have garbage at the end of the given string. */
  if (test_if_important_data(cs, int_end, str + length))
  {
1321
    set_warning(Sql_condition::WARN_LEVEL_WARN, WARN_DATA_TRUNCATED, 1);
unknown's avatar
unknown committed
1322 1323 1324 1325
    return 2;
  }
  return 0;
}
unknown's avatar
unknown committed
1326

unknown's avatar
unknown committed
1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357

/*
  Conver a string to an integer then check bounds.
  
  SYNOPSIS
    Field_num::get_int
    cs            Character set
    from          String to convert
    len           Length of the string
    rnd           OUT longlong value
    unsigned_max  max unsigned value
    signed_min    min signed value
    signed_max    max signed value

  DESCRIPTION
    The function calls strntoull10rnd() to get an integer value then
    check bounds and errors returned. In case of any error a warning
    is raised.

  RETURN
    0   ok
    1   error
*/

bool Field_num::get_int(CHARSET_INFO *cs, const char *from, uint len,
                        longlong *rnd, ulonglong unsigned_max, 
                        longlong signed_min, longlong signed_max)
{
  char *end;
  int error;
  
1358 1359
  *rnd= (longlong) cs->cset->strntoull10rnd(cs, from, len,
                                            unsigned_flag, &end,
unknown's avatar
unknown committed
1360 1361
                                            &error);
  if (unsigned_flag)
unknown's avatar
unknown committed
1362
  {
unknown's avatar
unknown committed
1363

1364 1365
    if ((((ulonglong) *rnd > unsigned_max) &&
         (*rnd= (longlong) unsigned_max)) ||
unknown's avatar
unknown committed
1366 1367 1368 1369
        error == MY_ERRNO_ERANGE)
    {
      goto out_of_range;
    }
1370
  }
unknown's avatar
unknown committed
1371
  else
1372
  {
unknown's avatar
unknown committed
1373
    if (*rnd < signed_min)
unknown's avatar
unknown committed
1374
    {
unknown's avatar
unknown committed
1375 1376 1377 1378 1379 1380 1381
      *rnd= signed_min;
      goto out_of_range;
    }
    else if (*rnd > signed_max)
    {
      *rnd= signed_max;
      goto out_of_range;
unknown's avatar
unknown committed
1382
    }
unknown's avatar
unknown committed
1383
  }
1384
  if (get_thd()->count_cuted_fields &&
1385
      check_int(cs, from, len, end, error))
unknown's avatar
unknown committed
1386
    return 1;
unknown's avatar
unknown committed
1387
  return 0;
unknown's avatar
unknown committed
1388

unknown's avatar
unknown committed
1389
out_of_range:
1390
  set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
1391 1392
  return 1;
}
unknown's avatar
unknown committed
1393

Igor Babaev's avatar
Igor Babaev committed
1394

1395
/**
unknown's avatar
unknown committed
1396 1397 1398
  Process decimal library return codes and issue warnings for overflow and
  truncation.

1399
  @param op_result  decimal library return code (E_DEC_* see include/decimal.h)
unknown's avatar
unknown committed
1400

1401
  @retval
unknown's avatar
unknown committed
1402
    1  there was overflow
1403
  @retval
unknown's avatar
unknown committed
1404 1405 1406
    0  no error or some other errors except overflow
*/

unknown's avatar
unknown committed
1407
int Field::warn_if_overflow(int op_result)
unknown's avatar
unknown committed
1408 1409 1410
{
  if (op_result == E_DEC_OVERFLOW)
  {
1411
    set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
1412 1413
    return 1;
  }
unknown's avatar
unknown committed
1414 1415
  if (op_result == E_DEC_TRUNCATED)
  {
1416
    set_warning(Sql_condition::WARN_LEVEL_NOTE, WARN_DATA_TRUNCATED, 1);
unknown's avatar
unknown committed
1417 1418
    /* We return 0 here as this is not a critical issue */
  }
unknown's avatar
unknown committed
1419 1420 1421
  return 0;
}

unknown's avatar
unknown committed
1422

1423
/**
unknown's avatar
unknown committed
1424 1425
  Interpret field value as an integer but return the result as a string.

1426
  This is used for printing bit_fields as numbers while debugging.
unknown's avatar
unknown committed
1427 1428
*/

1429
String *Field::val_int_as_str(String *val_buffer, bool unsigned_val)
unknown's avatar
unknown committed
1430
{
1431
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
1432
  CHARSET_INFO *cs= &my_charset_bin;
1433
  uint length;
unknown's avatar
unknown committed
1434
  longlong value= val_int();
1435

1436
  if (val_buffer->alloc(MY_INT64_NUM_DECIMAL_DIGITS))
unknown's avatar
unknown committed
1437
    return 0;
unknown's avatar
unknown committed
1438
  length= (uint) (*cs->cset->longlong10_to_str)(cs, (char*) val_buffer->ptr(),
1439
                                                MY_INT64_NUM_DECIMAL_DIGITS,
1440
                                                unsigned_val ? 10 : -10,
unknown's avatar
unknown committed
1441
                                                value);
unknown's avatar
unknown committed
1442 1443 1444 1445 1446
  val_buffer->length(length);
  return val_buffer;
}


1447
/// This is used as a table name when the table structure is not set up
1448
Field::Field(uchar *ptr_arg,uint32 length_arg,uchar *null_ptr_arg,
unknown's avatar
unknown committed
1449
	     uchar null_bit_arg,
unknown's avatar
unknown committed
1450
	     utype unireg_check_arg, const char *field_name_arg)
1451 1452 1453 1454 1455
  :ptr(ptr_arg), null_ptr(null_ptr_arg), table(0), orig_table(0),
  table_name(0), field_name(field_name_arg), option_list(0),
  option_struct(0), key_start(0), part_of_key(0),
  part_of_key_not_clustered(0), part_of_sortkey(0),
  unireg_check(unireg_check_arg), field_length(length_arg),
1456 1457 1458
  null_bit(null_bit_arg), is_created_from_null_item(FALSE),
  read_stats(NULL), collected_stats(0),
  vcol_info(0),
1459
  stored_in_db(TRUE)
unknown's avatar
unknown committed
1460 1461
{
  flags=null_ptr ? 0: NOT_NULL_FLAG;
unknown's avatar
unknown committed
1462 1463
  comment.str= (char*) "";
  comment.length=0;
1464 1465
  field_index= 0;   
  is_stat_field= FALSE;
Igor Babaev's avatar
Igor Babaev committed
1466 1467
  cond_selectivity= 1.0;
  next_equal_field= NULL;
unknown's avatar
unknown committed
1468 1469
}

1470

1471 1472 1473 1474 1475 1476 1477 1478 1479
void Field::hash(ulong *nr, ulong *nr2)
{
  if (is_null())
  {
    *nr^= (*nr << 1) | 1;
  }
  else
  {
    uint len= pack_length();
1480
    CHARSET_INFO *cs= sort_charset();
1481
    cs->coll->hash_sort(cs, ptr, len, nr, nr2);
1482 1483 1484
  }
}

1485
size_t
1486 1487
Field::do_last_null_byte() const
{
1488
  DBUG_ASSERT(null_ptr == NULL || null_ptr >= table->record[0]);
1489
  if (null_ptr)
1490 1491
    return (size_t) (null_ptr - table->record[0]) + 1;
  return LAST_NULL_BYTE_UNDEF;
1492 1493 1494
}


unknown's avatar
unknown committed
1495 1496 1497 1498 1499
void Field::copy_from_tmp(int row_offset)
{
  memcpy(ptr,ptr+row_offset,pack_length());
  if (null_ptr)
  {
unknown's avatar
unknown committed
1500
    *null_ptr= (uchar) ((null_ptr[0] & (uchar) ~(uint) null_bit) |
1501
			(null_ptr[row_offset] & (uchar) null_bit));
unknown's avatar
unknown committed
1502 1503 1504 1505
  }
}


1506
bool Field::send_binary(Protocol *protocol)
unknown's avatar
unknown committed
1507 1508
{
  char buff[MAX_FIELD_WIDTH];
1509
  String tmp(buff,sizeof(buff),charset());
1510
  val_str(&tmp);
1511
  return protocol->store(tmp.ptr(), tmp.length(), tmp.charset());
unknown's avatar
unknown committed
1512 1513 1514
}


1515 1516 1517
/**
   Check to see if field size is compatible with destination.

1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538
   This method is used in row-based replication to verify that the
   slave's field size is less than or equal to the master's field
   size. The encoded field metadata (from the master or source) is
   decoded and compared to the size of this field (the slave or
   destination).

   @note

   The comparison is made so that if the source data (from the master)
   is less than the target data (on the slave), -1 is returned in @c
   <code>*order_var</code>. This implies that a conversion is
   necessary, but that it is lossy and can result in truncation of the
   value.

   If the source data is strictly greater than the target data, 1 is
   returned in <code>*order_var</code>. This implies that the source
   type can is contained in the target type and that a conversion is
   necessary but is non-lossy.

   If no conversion is required to fit the source type in the target
   type, 0 is returned in <code>*order_var</code>.
1539 1540

   @param   field_metadata   Encoded size in field metadata
1541
   @param   mflags           Flags from the table map event for the table.
1542 1543 1544
   @param   order_var        Pointer to variable where the order
                             between the source field and this field
                             will be returned.
1545

1546 1547
   @return @c true if this field's size is compatible with the
   master's field size, @c false otherwise.
1548
*/
1549 1550
bool Field::compatible_field_size(uint field_metadata,
                                  Relay_log_info *rli_arg __attribute__((unused)),
1551
                                  uint16 mflags __attribute__((unused)),
1552
                                  int *order_var)
1553 1554 1555
{
  uint const source_size= pack_length_from_metadata(field_metadata);
  uint const destination_size= row_pack_length();
1556 1557 1558 1559
  DBUG_PRINT("debug", ("real_type: %d, source_size: %u, destination_size: %u",
                       real_type(), source_size, destination_size));
  *order_var = compare(source_size, destination_size);
  return true;
1560 1561 1562
}


1563 1564 1565 1566
int Field::store(const char *to, uint length, CHARSET_INFO *cs,
                 enum_check_fields check_level)
{
  int res;
1567 1568 1569
  THD *thd= get_thd();
  enum_check_fields old_check_level= thd->count_cuted_fields;
  thd->count_cuted_fields= check_level;
1570
  res= store(to, length, cs);
1571
  thd->count_cuted_fields= old_check_level;
1572 1573 1574 1575
  return res;
}


1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601
/**
   Pack the field into a format suitable for storage and transfer.

   To implement packing functionality, only the virtual function
   should be overridden. The other functions are just convenience
   functions and hence should not be overridden.

   @note The default method for packing fields just copy the raw bytes
   of the record into the destination, but never more than
   <code>max_length</code> characters.

   @param to
   Pointer to memory area where representation of field should be put.

   @param from
   Pointer to memory area where record representation of field is
   stored.

   @param max_length
   Maximum length of the field, as given in the column definition. For
   example, for <code>CHAR(1000)</code>, the <code>max_length</code>
   is 1000. This information is sometimes needed to decide how to pack
   the data.

*/
uchar *
Sergei Golubchik's avatar
Sergei Golubchik committed
1602
Field::pack(uchar *to, const uchar *from, uint max_length)
1603 1604 1605 1606 1607 1608 1609
{
  uint32 length= pack_length();
  set_if_smaller(length, max_length);
  memcpy(to, from, length);
  return to+length;
}

1610 1611 1612
/**
   Unpack a field from row data.

1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627
   This method is used to unpack a field from a master whose size of
   the field is less than that of the slave.

   The <code>param_data</code> parameter is a two-byte integer (stored
   in the least significant 16 bits of the unsigned integer) usually
   consisting of two parts: the real type in the most significant byte
   and a original pack length in the least significant byte.

   The exact layout of the <code>param_data</code> field is given by
   the <code>Table_map_log_event::save_field_metadata()</code>.

   This is the default method for unpacking a field. It just copies
   the memory block in byte order (of original pack length bytes or
   length of field, whichever is smaller).

1628 1629
   @param   to         Destination of the data
   @param   from       Source of the data
1630 1631 1632
   @param   param_data Real type and original pack length of the field
                       data

1633
   @return  New pointer into memory based on from + length of the data
1634
   @return  0 if wrong data
1635
*/
1636
const uchar *
1637 1638
Field::unpack(uchar* to, const uchar *from, const uchar *from_end,
              uint param_data)
1639
{
1640
  uint length=pack_length(), len;
1641 1642 1643 1644 1645 1646 1647 1648 1649 1650
  int from_type= 0;
  /*
    If from length is > 255, it has encoded data in the upper bits. Need
    to mask it out.
  */
  if (param_data > 255)
  {
    from_type= (param_data & 0xff00) >> 8U;  // real_type.
    param_data= param_data & 0x00ff;        // length.
  }
1651 1652 1653 1654 1655

  if ((param_data == 0) ||
      (length == param_data) ||
      (from_type != real_type()))
  {
1656 1657 1658
    if (from + length > from_end)
      return 0;                                 // Error in data

1659 1660 1661 1662
    memcpy(to, from, length);
    return from+length;
  }

1663
  len= (param_data && (param_data < length)) ? param_data : length;
1664

1665 1666
  if (from + len > from_end)
    return 0;                                   // Error in data
1667

1668
  memcpy(to, from, len);
1669 1670 1671 1672
  return from+len;
}


unknown's avatar
unknown committed
1673 1674 1675 1676 1677 1678 1679 1680
my_decimal *Field::val_decimal(my_decimal *decimal)
{
  /* This never have to be called */
  DBUG_ASSERT(0);
  return 0;
}


unknown's avatar
unknown committed
1681 1682
void Field_num::add_zerofill_and_unsigned(String &res) const
{
1683
  if (unsigned_flag)
1684
    res.append(STRING_WITH_LEN(" unsigned"));
1685
  if (zerofill)
1686
    res.append(STRING_WITH_LEN(" zerofill"));
unknown's avatar
unknown committed
1687 1688
}

unknown's avatar
unknown committed
1689

1690
void Field::make_field(Send_field *field)
unknown's avatar
unknown committed
1691
{
unknown's avatar
unknown committed
1692
  if (orig_table && orig_table->s->db.str && *orig_table->s->db.str)
unknown's avatar
unknown committed
1693
  {
unknown's avatar
unknown committed
1694
    field->db_name= orig_table->s->db.str;
1695 1696 1697 1698 1699 1700
    if (orig_table->pos_in_table_list && 
        orig_table->pos_in_table_list->schema_table)
      field->org_table_name= (orig_table->pos_in_table_list->
                              schema_table->table_name);
    else
      field->org_table_name= orig_table->s->table_name.str;
1701 1702
  }
  else
unknown's avatar
unknown committed
1703
    field->org_table_name= field->db_name= "";
1704
  if (orig_table && orig_table->alias.ptr())
1705
  {
1706
    field->table_name= orig_table->alias.ptr();
1707 1708 1709 1710 1711 1712 1713 1714
    field->org_col_name= field_name;
  }
  else
  {
    field->table_name= "";
    field->org_col_name= "";
  }
  field->col_name= field_name;
1715
  field->charsetnr= charset()->number;
unknown's avatar
unknown committed
1716 1717 1718
  field->length=field_length;
  field->type=type();
  field->flags=table->maybe_null ? (flags & ~NOT_NULL_FLAG) : flags;
1719
  field->decimals= 0;
unknown's avatar
unknown committed
1720 1721 1722
}


1723
/**
unknown's avatar
unknown committed
1724
  Conversion from decimal to longlong with checking overflow and
1725
  setting correct value (min/max) in case of overflow.
unknown's avatar
unknown committed
1726

1727 1728 1729
  @param val             value which have to be converted
  @param unsigned_flag   type of integer in which we convert val
  @param err             variable to pass error code
unknown's avatar
unknown committed
1730

1731
  @return
unknown's avatar
unknown committed
1732 1733 1734 1735 1736 1737 1738 1739 1740 1741
    value converted from val
*/
longlong Field::convert_decimal2longlong(const my_decimal *val,
                                         bool unsigned_flag, int *err)
{
  longlong i;
  if (unsigned_flag)
  {
    if (val->sign())
    {
1742
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
1743 1744 1745
      i= 0;
      *err= 1;
    }
1746 1747 1748 1749
    else if (warn_if_overflow(my_decimal2int((E_DEC_ERROR &
                                              ~E_DEC_OVERFLOW &
                                              ~E_DEC_TRUNCATED),
                                             val, TRUE, &i)))
unknown's avatar
unknown committed
1750 1751 1752 1753 1754
    {
      i= ~(longlong) 0;
      *err= 1;
    }
  }
1755 1756 1757 1758
  else if (warn_if_overflow(my_decimal2int((E_DEC_ERROR &
                                            ~E_DEC_OVERFLOW &
                                            ~E_DEC_TRUNCATED),
                                           val, FALSE, &i)))
unknown's avatar
unknown committed
1759 1760 1761 1762 1763 1764 1765 1766
  {
    i= (val->sign() ? LONGLONG_MIN : LONGLONG_MAX);
    *err= 1;
  }
  return i;
}


1767
/**
unknown's avatar
unknown committed
1768 1769
  Storing decimal in integer fields.

1770
  @param val       value for storing
unknown's avatar
unknown committed
1771

1772
  @note
unknown's avatar
unknown committed
1773 1774
    This method is used by all integer fields, real/decimal redefine it

1775
  @retval
unknown's avatar
unknown committed
1776
    0     OK
1777 1778
  @retval
    !=0  error
unknown's avatar
unknown committed
1779 1780 1781 1782
*/

int Field_num::store_decimal(const my_decimal *val)
{
1783
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
1784 1785
  int err= 0;
  longlong i= convert_decimal2longlong(val, unsigned_flag, &err);
1786
  return MY_TEST(err | store(i, unsigned_flag));
unknown's avatar
unknown committed
1787 1788 1789
}


1790 1791
/**
  Return decimal value of integer field.
unknown's avatar
unknown committed
1792

1793
  @param decimal_value     buffer for storing decimal value
unknown's avatar
unknown committed
1794

1795 1796
  @note
    This method is used by all integer fields, real/decimal redefine it.
unknown's avatar
unknown committed
1797 1798 1799
    All longlong values fit in our decimal buffer which cal store 8*9=72
    digits of integer number

1800
  @return
unknown's avatar
unknown committed
1801 1802 1803 1804 1805
    pointer to decimal buffer with value of field
*/

my_decimal* Field_num::val_decimal(my_decimal *decimal_value)
{
1806
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
1807 1808
  DBUG_ASSERT(result_type() == INT_RESULT);
  longlong nr= val_int();
1809
  int2my_decimal(E_DEC_FATAL_ERROR, nr, unsigned_flag, decimal_value);
unknown's avatar
unknown committed
1810 1811 1812 1813
  return decimal_value;
}


1814
Field_str::Field_str(uchar *ptr_arg,uint32 len_arg, uchar *null_ptr_arg,
unknown's avatar
unknown committed
1815
                     uchar null_bit_arg, utype unireg_check_arg,
unknown's avatar
unknown committed
1816
                     const char *field_name_arg, CHARSET_INFO *charset_arg)
unknown's avatar
unknown committed
1817
  :Field(ptr_arg, len_arg, null_ptr_arg, null_bit_arg,
unknown's avatar
unknown committed
1818
         unireg_check_arg, field_name_arg)
unknown's avatar
unknown committed
1819
{
1820 1821
  field_charset= charset_arg;
  if (charset_arg->state & MY_CS_BINSORT)
unknown's avatar
unknown committed
1822
    flags|=BINARY_FLAG;
1823
  field_derivation= DERIVATION_IMPLICIT;
unknown's avatar
unknown committed
1824 1825 1826
}


1827
void Field_num::make_field(Send_field *field)
unknown's avatar
unknown committed
1828
{
1829 1830
  Field::make_field(field);
  field->decimals= dec;
unknown's avatar
unknown committed
1831 1832
}

1833 1834
/**
  Decimal representation of Field_str.
unknown's avatar
unknown committed
1835

1836
  @param d         value for storing
unknown's avatar
unknown committed
1837

1838 1839 1840 1841 1842
  @note
    Field_str is the base class for fields like Field_enum,
    Field_date and some similar. Some dates use fraction and also
    string value should be converted to floating point value according
    our rules, so we use double to store value of decimal in string.
unknown's avatar
unknown committed
1843

1844 1845 1846 1847
  @todo
    use decimal2string?

  @retval
unknown's avatar
unknown committed
1848
    0     OK
1849 1850
  @retval
    !=0  error
unknown's avatar
unknown committed
1851 1852 1853 1854
*/

int Field_str::store_decimal(const my_decimal *d)
{
1855
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
1856 1857
  double val;
  /* TODO: use decimal2string? */
unknown's avatar
unknown committed
1858
  int err= warn_if_overflow(my_decimal2double(E_DEC_FATAL_ERROR &
unknown's avatar
unknown committed
1859 1860 1861 1862 1863 1864 1865
                                            ~E_DEC_OVERFLOW, d, &val));
  return err | store(val);
}


my_decimal *Field_str::val_decimal(my_decimal *decimal_value)
{
1866
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
1867
  longlong nr= val_int();
1868
  int2my_decimal(E_DEC_FATAL_ERROR, nr, 0, decimal_value);
unknown's avatar
unknown committed
1869 1870 1871
  return decimal_value;
}

1872

unknown's avatar
unknown committed
1873 1874
uint Field::fill_cache_field(CACHE_FIELD *copy)
{
unknown's avatar
unknown committed
1875
  uint store_length;
1876 1877
  copy->str= ptr;
  copy->length= pack_length();
1878
  copy->field= this;
unknown's avatar
unknown committed
1879 1880
  if (flags & BLOB_FLAG)
  {
1881
    copy->type= CACHE_BLOB;
1882
    copy->length-= portable_sizeof_char_ptr;
unknown's avatar
unknown committed
1883 1884
    return copy->length;
  }
1885 1886 1887
  else if (!zero_pack() &&
           (type() == MYSQL_TYPE_STRING && copy->length >= 4 &&
            copy->length < 256))
unknown's avatar
unknown committed
1888
  {
1889
    copy->type= CACHE_STRIPPED;			    /* Remove end space */
unknown's avatar
unknown committed
1890 1891
    store_length= 2;
  }
1892 1893 1894 1895 1896 1897
  else if (type() ==  MYSQL_TYPE_VARCHAR)
  {
    copy->type= pack_length()-row_pack_length() == 1 ? CACHE_VARSTR1:
                                                      CACHE_VARSTR2;
    store_length= 0;
  }
unknown's avatar
unknown committed
1898
  else
unknown's avatar
unknown committed
1899
  {
1900
    copy->type= 0;
unknown's avatar
unknown committed
1901 1902
    store_length= 0;
  }
1903
  return copy->length + store_length;
unknown's avatar
unknown committed
1904 1905
}

1906

1907
bool Field::get_date(MYSQL_TIME *ltime,ulonglong fuzzydate)
unknown's avatar
unknown committed
1908 1909
{
  char buff[40];
1910 1911
  String tmp(buff,sizeof(buff),&my_charset_bin),*res;
  if (!(res=val_str(&tmp)) ||
1912
      str_to_datetime_with_warn(res->charset(), res->ptr(), res->length(),
1913
                                ltime, fuzzydate))
unknown's avatar
unknown committed
1914 1915 1916 1917
    return 1;
  return 0;
}

1918 1919
/**
  This is called when storing a date in a string.
1920

1921 1922
  @note
    Needs to be changed if/when we want to support different time formats.
1923
*/
unknown's avatar
unknown committed
1924

1925
int Field::store_time_dec(MYSQL_TIME *ltime, uint dec)
unknown's avatar
unknown committed
1926
{
1927
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
1928
  char buff[MAX_DATE_STRING_REP_LENGTH];
1929
  uint length= (uint) my_TIME_to_str(ltime, buff, dec);
1930 1931 1932
  /* Avoid conversion when field character set is ASCII compatible */
  return store(buff, length, (charset()->state & MY_CS_NONASCII) ?
                              &my_charset_latin1 : charset());
unknown's avatar
unknown committed
1933 1934 1935
}


1936
bool Field::optimize_range(uint idx, uint part)
unknown's avatar
unknown committed
1937
{
1938
  return MY_TEST(table->file->index_flags(idx, part, 1) & HA_READ_RANGE);
unknown's avatar
unknown committed
1939 1940
}

1941

Konstantin Osipov's avatar
Konstantin Osipov committed
1942
Field *Field::new_field(MEM_ROOT *root, TABLE *new_table,
1943
                        bool keep_type __attribute__((unused)))
1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954
{
  Field *tmp;
  if (!(tmp= (Field*) memdup_root(root,(char*) this,size_of())))
    return 0;

  if (tmp->table->maybe_null)
    tmp->flags&= ~NOT_NULL_FLAG;
  tmp->table= new_table;
  tmp->key_start.init(0);
  tmp->part_of_key.init(0);
  tmp->part_of_sortkey.init(0);
1955 1956 1957 1958
  /*
    TODO: it is not clear why this method needs to reset unireg_check.
    Try not to reset it, or explain why it needs to be reset.
  */
unknown's avatar
unknown committed
1959
  tmp->unireg_check= Field::NONE;
1960 1961 1962 1963 1964 1965
  tmp->flags&= (NOT_NULL_FLAG | BLOB_FLAG | UNSIGNED_FLAG |
                ZEROFILL_FLAG | BINARY_FLAG | ENUM_FLAG | SET_FLAG);
  tmp->reset_fields();
  return tmp;
}

unknown's avatar
unknown committed
1966

Konstantin Osipov's avatar
Konstantin Osipov committed
1967
Field *Field::new_key_field(MEM_ROOT *root, TABLE *new_table,
1968 1969
                            uchar *new_ptr, uint32 length,
                            uchar *new_null_ptr, uint new_null_bit)
unknown's avatar
unknown committed
1970 1971
{
  Field *tmp;
1972
  if ((tmp= new_field(root, new_table, table == new_table)))
unknown's avatar
unknown committed
1973 1974 1975 1976 1977 1978 1979 1980
  {
    tmp->ptr=      new_ptr;
    tmp->null_ptr= new_null_ptr;
    tmp->null_bit= new_null_bit;
  }
  return tmp;
}

1981

unknown's avatar
unknown committed
1982 1983
/* This is used to generate a field in TABLE from TABLE_SHARE */

Konstantin Osipov's avatar
Konstantin Osipov committed
1984
Field *Field::clone(MEM_ROOT *root, TABLE *new_table)
unknown's avatar
unknown committed
1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996
{
  Field *tmp;
  if ((tmp= (Field*) memdup_root(root,(char*) this,size_of())))
  {
    tmp->init(new_table);
    tmp->move_field_offset((my_ptrdiff_t) (new_table->record[0] -
                                           new_table->s->default_values));
  }
  return tmp;
}


1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011

Field *Field::clone(MEM_ROOT *root, TABLE *new_table, my_ptrdiff_t diff,
                    bool stat_flag)
{
  Field *tmp;
  if ((tmp= (Field*) memdup_root(root,(char*) this,size_of())))
  {
    tmp->init(new_table);
    tmp->move_field_offset(diff);
  }
  tmp->is_stat_field= stat_flag;
  return tmp;
}


2012
Field *Field::clone(MEM_ROOT *root, my_ptrdiff_t diff)
2013 2014 2015 2016 2017 2018 2019 2020 2021 2022
{
  Field *tmp;
  if ((tmp= (Field*) memdup_root(root,(char*) this,size_of())))
  {
    tmp->move_field_offset(diff);
  }
  return tmp;
}


2023
/****************************************************************************
2024
  Field_null, a field that always return NULL
2025 2026 2027 2028
****************************************************************************/

void Field_null::sql_type(String &res) const
{
2029
  res.set_ascii(STRING_WITH_LEN("null"));
2030 2031 2032
}


unknown's avatar
unknown committed
2033
/****************************************************************************
unknown's avatar
unknown committed
2034 2035
  Functions for the Field_decimal class
  This is an number stored as a pre-space (or pre-zero) string
unknown's avatar
unknown committed
2036 2037
****************************************************************************/

2038
int
unknown's avatar
unknown committed
2039 2040
Field_decimal::reset(void)
{
2041
  Field_decimal::store(STRING_WITH_LEN("0"),&my_charset_bin);
2042
  return 0;
unknown's avatar
unknown committed
2043 2044 2045 2046 2047
}

void Field_decimal::overflow(bool negative)
{
  uint len=field_length;
2048
  uchar *to=ptr, filler= '9';
unknown's avatar
unknown committed
2049

2050
  set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
2051
  if (negative)
unknown's avatar
unknown committed
2052
  {
2053 2054 2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 2066 2067 2068 2069 2070 2071 2072 2073 2074 2075
    if (!unsigned_flag)
    {
      /* Put - sign as a first digit so we'll have -999..999 or 999..999 */
      *to++ = '-';
      len--;
    }
    else
    {
      filler= '0';				// Fill up with 0
      if (!zerofill)
      {
	/*
	  Handle unsigned integer without zerofill, in which case
	  the number should be of format '   0' or '   0.000'
	*/
	uint whole_part=field_length- (dec ? dec+2 : 1);
	// Fill with spaces up to the first digit
	bfill(to, whole_part, ' ');
	to+=  whole_part;
	len-= whole_part;
	// The main code will also handle the 0 before the decimal point
      }
    }
unknown's avatar
unknown committed
2076
  }
2077
  bfill(to, len, filler);
unknown's avatar
unknown committed
2078 2079 2080 2081 2082 2083
  if (dec)
    ptr[field_length-dec-1]='.';
  return;
}


2084
int Field_decimal::store(const char *from_arg, uint len, CHARSET_INFO *cs)
unknown's avatar
unknown committed
2085
{
2086
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
2087
  char buff[STRING_BUFFER_USUAL_SIZE];
unknown's avatar
unknown committed
2088
  String tmp(buff,sizeof(buff), &my_charset_bin);
2089
  const uchar *from= (uchar*) from_arg;
2090

2091
  /* Convert character set if the old one is multi uchar */
2092 2093
  if (cs->mbmaxlen > 1)
  { 
2094
    uint dummy_errors;
2095 2096
    tmp.copy((char*) from, len, cs, &my_charset_bin, &dummy_errors);
    from= (uchar*) tmp.ptr();
2097 2098
    len=  tmp.length();
  }
2099

2100
  const uchar *end= from+len;
2101
  /* The pointer where the field value starts (i.e., "where to write") */
2102
  uchar *to= ptr;
2103 2104 2105 2106 2107
  uint tmp_dec, tmp_uint;
  /*
    The sign of the number : will be 0 (means positive but sign not
    specified), '+' or '-'
  */
2108
  uchar sign_char=0;
unknown's avatar
unknown committed
2109
  /* The pointers where prezeros start and stop */
2110
  const uchar *pre_zeros_from, *pre_zeros_end;
unknown's avatar
unknown committed
2111
  /* The pointers where digits at the left of '.' start and stop */
2112
  const uchar *int_digits_from, *int_digits_end;
unknown's avatar
unknown committed
2113
  /* The pointers where digits at the right of '.' start and stop */
2114
  const uchar *frac_digits_from, *frac_digits_end;
unknown's avatar
unknown committed
2115
  /* The sign of the exponent : will be 0 (means no exponent), '+' or '-' */
2116
  char expo_sign_char=0;
unknown's avatar
unknown committed
2117
  uint exponent=0;                                // value of the exponent
2118 2119 2120 2121
  /*
    Pointers used when digits move from the left of the '.' to the
    right of the '.' (explained below)
  */
Staale Smedseng's avatar
Staale Smedseng committed
2122
  const uchar *UNINIT_VAR(int_digits_tail_from);
2123
  /* Number of 0 that need to be added at the left of the '.' (1E3: 3 zeros) */
2124
  uint UNINIT_VAR(int_digits_added_zeros);
unknown's avatar
unknown committed
2125 2126 2127 2128
  /*
    Pointer used when digits move from the right of the '.' to the left
    of the '.'
  */
Staale Smedseng's avatar
Staale Smedseng committed
2129
  const uchar *UNINIT_VAR(frac_digits_head_end);
unknown's avatar
unknown committed
2130
  /* Number of 0 that need to be added at the right of the '.' (for 1E-3) */
2131
  uint UNINIT_VAR(frac_digits_added_zeros);
2132
  uchar *pos,*tmp_left_pos,*tmp_right_pos;
2133
  /* Pointers that are used as limits (begin and end of the field buffer) */
2134 2135
  uchar *left_wall,*right_wall;
  uchar tmp_char;
unknown's avatar
unknown committed
2136
  /*
2137
    To remember if get_thd()->cuted_fields has already been incremented,
unknown's avatar
unknown committed
2138 2139
    to do that only once
  */
2140 2141 2142 2143
  bool is_cuted_fields_incr=0;

  /*
    There are three steps in this function :
unknown's avatar
unknown committed
2144 2145
    - parse the input string
    - modify the position of digits around the decimal dot '.' 
2146
      according to the exponent value (if specified)
unknown's avatar
unknown committed
2147
    - write the formatted number
2148 2149 2150 2151 2152
  */

  if ((tmp_dec=dec))
    tmp_dec++;

unknown's avatar
unknown committed
2153
  /* skip pre-space */
unknown's avatar
unknown committed
2154
  while (from != end && my_isspace(&my_charset_bin,*from))
unknown's avatar
unknown committed
2155
    from++;
2156
  if (from == end)
unknown's avatar
unknown committed
2157
  {
2158
    set_warning(Sql_condition::WARN_LEVEL_WARN, WARN_DATA_TRUNCATED, 1);
2159
    is_cuted_fields_incr=1;
unknown's avatar
unknown committed
2160
  }
2161
  else if (*from == '+' || *from == '-')	// Found some sign ?
unknown's avatar
unknown committed
2162
  {
2163
    sign_char= *from++;
unknown's avatar
unknown committed
2164
    /*
2165 2166 2167
      We allow "+" for unsigned decimal unless defined different
      Both options allowed as one may wish not to have "+" for unsigned numbers
      because of data processing issues
2168 2169 2170 2171
    */ 
    if (unsigned_flag)  
    { 
      if (sign_char=='-')
2172
      {
2173
        Field_decimal::overflow(1);
unknown's avatar
unknown committed
2174
        return 1;
2175
      }
2176
      /* 
unknown's avatar
unknown committed
2177 2178
	 Defining this will not store "+" for unsigned decimal type even if
	 it is passed in numeric string. This will make some tests to fail
2179 2180
      */	 
#ifdef DONT_ALLOW_UNSIGNED_PLUS      
2181 2182
      else 
        sign_char=0;
2183
#endif 	
unknown's avatar
unknown committed
2184
    }
2185
  }
unknown's avatar
unknown committed
2186

2187 2188 2189 2190
  pre_zeros_from= from;
  for (; from!=end && *from == '0'; from++) ;	// Read prezeros
  pre_zeros_end=int_digits_from=from;      
  /* Read non zero digits at the left of '.'*/
unknown's avatar
unknown committed
2191
  for (; from != end && my_isdigit(&my_charset_bin, *from) ; from++) ;
2192 2193 2194 2195 2196
  int_digits_end=from;
  if (from!=end && *from == '.')		// Some '.' ?
    from++;
  frac_digits_from= from;
  /* Read digits at the right of '.' */
unknown's avatar
unknown committed
2197
  for (;from!=end && my_isdigit(&my_charset_bin, *from); from++) ;
2198 2199 2200 2201 2202 2203 2204 2205 2206 2207
  frac_digits_end=from;
  // Some exponentiation symbol ?
  if (from != end && (*from == 'e' || *from == 'E'))
  {   
    from++;
    if (from != end && (*from == '+' || *from == '-'))  // Some exponent sign ?
      expo_sign_char= *from++;
    else
      expo_sign_char= '+';
    /*
2208 2209 2210 2211
      Read digits of the exponent and compute its value.  We must care about
      'exponent' overflow, because as unsigned arithmetic is "modulo", big 
      exponents will become small (e.g. 1e4294967296 will become 1e0, and the 
      field will finally contain 1 instead of its max possible value).
2212
    */
unknown's avatar
unknown committed
2213
    for (;from!=end && my_isdigit(&my_charset_bin, *from); from++)
2214
    {
2215
      exponent=10*exponent+(*from-'0');
unknown's avatar
unknown committed
2216
      if (exponent>MAX_EXPONENT)
2217 2218
        break;
    }
unknown's avatar
unknown committed
2219
  }
2220
  
unknown's avatar
unknown committed
2221
  /*
2222 2223
    We only have to generate warnings if count_cuted_fields is set.
    This is to avoid extra checks of the number when they are not needed.
unknown's avatar
unknown committed
2224
    Even if this flag is not set, it's OK to increment warnings, if
2225
    it makes the code easer to read.
unknown's avatar
unknown committed
2226
  */
2227

2228
  if (get_thd()->count_cuted_fields)
unknown's avatar
unknown committed
2229
  {
2230
    // Skip end spaces
unknown's avatar
unknown committed
2231
    for (;from != end && my_isspace(&my_charset_bin, *from); from++) ;
2232
    if (from != end)                     // If still something left, warn
unknown's avatar
unknown committed
2233
    {
2234
      set_warning(Sql_condition::WARN_LEVEL_WARN, WARN_DATA_TRUNCATED, 1);
2235
      is_cuted_fields_incr=1;
unknown's avatar
unknown committed
2236
    }
2237 2238 2239 2240 2241 2242
  }
  
  /*
    Now "move" digits around the decimal dot according to the exponent value,
    and add necessary zeros.
    Examples :
unknown's avatar
unknown committed
2243 2244 2245
    - 1E+3 : needs 3 more zeros at the left of '.' (int_digits_added_zeros=3)
    - 1E-3 : '1' moves at the right of '.', and 2 more zeros are needed
    between '.' and '1'
2246
    - 1234.5E-3 : '234' moves at the right of '.'
unknown's avatar
unknown committed
2247 2248
    These moves are implemented with pointers which point at the begin
    and end of each moved segment. Examples :
2249
    - 1234.5E-3 : before the code below is executed, the int_digits part is
unknown's avatar
unknown committed
2250 2251 2252
    from '1' to '4' and the frac_digits part from '5' to '5'. After the code
    below, the int_digits part is from '1' to '1', the frac_digits_head
    part is from '2' to '4', and the frac_digits part from '5' to '5'.
2253
    - 1234.5E3 : before the code below is executed, the int_digits part is
unknown's avatar
unknown committed
2254 2255 2256 2257
    from '1' to '4' and the frac_digits part from '5' to '5'. After the code
    below, the int_digits part is from '1' to '4', the int_digits_tail
    part is from '5' to '5', the frac_digits part is empty, and
    int_digits_added_zeros=2 (to make 1234500).
2258 2259
  */
  
2260
  /* 
unknown's avatar
unknown committed
2261
     Below tmp_uint cannot overflow with small enough MAX_EXPONENT setting,
2262
     as int_digits_added_zeros<=exponent<4G and 
2263 2264
     (int_digits_end-int_digits_from)<=max_allowed_packet<=2G and
     (frac_digits_from-int_digits_tail_from)<=max_allowed_packet<=2G
2265 2266
  */

2267 2268 2269 2270
  if (!expo_sign_char)
    tmp_uint=tmp_dec+(uint)(int_digits_end-int_digits_from);
  else if (expo_sign_char == '-') 
  {
2271
    tmp_uint=MY_MIN(exponent,(uint)(int_digits_end-int_digits_from));
2272 2273 2274
    frac_digits_added_zeros=exponent-tmp_uint;
    int_digits_end -= tmp_uint;
    frac_digits_head_end=int_digits_end+tmp_uint;
unknown's avatar
unknown committed
2275
    tmp_uint=tmp_dec+(uint)(int_digits_end-int_digits_from);     
2276 2277 2278
  }
  else // (expo_sign_char=='+') 
  {
2279
    tmp_uint=MY_MIN(exponent,(uint)(frac_digits_end-frac_digits_from));
2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 2300
    int_digits_added_zeros=exponent-tmp_uint;
    int_digits_tail_from=frac_digits_from;
    frac_digits_from=frac_digits_from+tmp_uint;
    /*
      We "eat" the heading zeros of the 
      int_digits.int_digits_tail.int_digits_added_zeros concatenation
      (for example 0.003e3 must become 3 and not 0003)
    */
    if (int_digits_from == int_digits_end) 
    {
      /*
	There was nothing in the int_digits part, so continue
	eating int_digits_tail zeros
      */
      for (; int_digits_tail_from != frac_digits_from &&
	     *int_digits_tail_from == '0'; int_digits_tail_from++) ;
      if (int_digits_tail_from == frac_digits_from) 
      {
	// there were only zeros in int_digits_tail too
	int_digits_added_zeros=0;
      }
unknown's avatar
unknown committed
2301
    }
2302
    tmp_uint= (uint) (tmp_dec+(int_digits_end-int_digits_from)+
2303 2304
               (uint)(frac_digits_from-int_digits_tail_from)+
               int_digits_added_zeros);
2305 2306 2307 2308 2309 2310 2311 2312 2313 2314
  }
  
  /*
    Now write the formated number
    
    First the digits of the int_% parts.
    Do we have enough room to write these digits ?
    If the sign is defined and '-', we need one position for it
  */

2315
  if (field_length < tmp_uint + (int) (sign_char == '-')) 
2316
  {
unknown's avatar
unknown committed
2317
    // too big number, change to max or min number
2318
    Field_decimal::overflow(sign_char == '-');
2319
    return 1;
unknown's avatar
unknown committed
2320
  }
2321 2322 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332 2333 2334 2335 2336 2337
 
  /*
    Tmp_left_pos is the position where the leftmost digit of
    the int_% parts will be written
  */
  tmp_left_pos=pos=to+(uint)(field_length-tmp_uint);
  
  // Write all digits of the int_% parts
  while (int_digits_from != int_digits_end)
    *pos++ = *int_digits_from++ ;

  if (expo_sign_char == '+')
  {    
    while (int_digits_tail_from != frac_digits_from)
      *pos++= *int_digits_tail_from++;
    while (int_digits_added_zeros-- >0)
      *pos++= '0';  
unknown's avatar
unknown committed
2338
  }
2339 2340 2341 2342 2343 2344
  /*
    Note the position where the rightmost digit of the int_% parts has been
    written (this is to later check if the int_% parts contained nothing,
    meaning an extra 0 is needed).
  */
  tmp_right_pos=pos;
unknown's avatar
unknown committed
2345 2346

  /*
2347 2348
    Step back to the position of the leftmost digit of the int_% parts,
    to write sign and fill with zeros or blanks or prezeros.
unknown's avatar
unknown committed
2349
  */
2350 2351 2352 2353
  pos=tmp_left_pos-1;
  if (zerofill)
  {
    left_wall=to-1;
2354
    while (pos > left_wall)			// Fill with zeros
2355 2356 2357 2358
      *pos--='0';
  }
  else
  {
unknown's avatar
unknown committed
2359
    left_wall=to+(sign_char != 0)-1;
2360 2361
    if (!expo_sign_char)	// If exponent was specified, ignore prezeros
    {
2362
      for (;pos > left_wall && pre_zeros_from !=pre_zeros_end;
2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2373 2374 2375 2376 2377
	   pre_zeros_from++)
	*pos--= '0';
    }
    if (pos == tmp_right_pos-1)
      *pos--= '0';		// no 0 has ever been written, so write one
    left_wall= to-1;
    if (sign_char && pos != left_wall)
    {
      /* Write sign if possible (it is if sign is '-') */
      *pos--= sign_char;
    }
    while (pos != left_wall)
      *pos--=' ';  //fill with blanks
  }
  
2378 2379
  /*
    Write digits of the frac_% parts ;
2380
    Depending on get_thd()->count_cutted_fields, we may also want
2381 2382 2383 2384 2385
    to know if some non-zero tail of these parts will
    be truncated (for example, 0.002->0.00 will generate a warning,
    while 0.000->0.00 will not)
    (and 0E1000000000 will not, while 1E-1000000000 will)
  */
2386
      
2387 2388 2389
  pos=to+(uint)(field_length-tmp_dec);	// Calculate post to '.'
  right_wall=to+field_length;
  if (pos != right_wall) 
2390 2391
    *pos++='.';

2392 2393 2394
  if (expo_sign_char == '-')
  {
    while (frac_digits_added_zeros-- > 0)
unknown's avatar
unknown committed
2395
    {
2396
      if (pos == right_wall) 
2397
      {
2398
        if (get_thd()->count_cuted_fields && !is_cuted_fields_incr) 
2399
          break; // Go on below to see if we lose non zero digits
unknown's avatar
unknown committed
2400
        return 0;
2401
      }
2402 2403 2404 2405 2406 2407
      *pos++='0';
    }
    while (int_digits_end != frac_digits_head_end)
    {
      tmp_char= *int_digits_end++;
      if (pos == right_wall)
unknown's avatar
unknown committed
2408
      {
2409 2410 2411
        if (tmp_char != '0')			// Losing a non zero digit ?
        {
          if (!is_cuted_fields_incr)
2412
            set_warning(Sql_condition::WARN_LEVEL_WARN, 
2413
                        WARN_DATA_TRUNCATED, 1);
unknown's avatar
unknown committed
2414
          return 0;
2415 2416
        }
        continue;
unknown's avatar
unknown committed
2417
      }
2418
      *pos++= tmp_char;
unknown's avatar
unknown committed
2419
    }
2420
  }
2421

2422 2423 2424 2425
  for (;frac_digits_from!=frac_digits_end;) 
  {
    tmp_char= *frac_digits_from++;
    if (pos == right_wall)
2426
    {
2427
      if (tmp_char != '0')			// Losing a non zero digit ?
2428
      {
2429
        if (!is_cuted_fields_incr)
unknown's avatar
unknown committed
2430 2431 2432 2433 2434
        {
          /*
            This is a note, not a warning, as we don't want to abort
            when we cut decimals in strict mode
          */
2435
	  set_warning(Sql_condition::WARN_LEVEL_NOTE, WARN_DATA_TRUNCATED, 1);
unknown's avatar
unknown committed
2436
        }
unknown's avatar
unknown committed
2437
        return 0;
2438
      }
2439
      continue;
2440
    }
2441
    *pos++= tmp_char;
unknown's avatar
unknown committed
2442
  }
2443 2444 2445
      
  while (pos != right_wall)
   *pos++='0';			// Fill with zeros at right of '.'
unknown's avatar
unknown committed
2446
  return 0;
unknown's avatar
unknown committed
2447 2448 2449
}


unknown's avatar
unknown committed
2450
int Field_decimal::store(double nr)
unknown's avatar
unknown committed
2451
{
2452
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
2453 2454 2455
  if (unsigned_flag && nr < 0)
  {
    overflow(1);
2456
    return 1;
unknown's avatar
unknown committed
2457
  }
2458
  
2459
  if (!isfinite(nr)) // Handle infinity as special case
2460 2461
  {
    overflow(nr < 0.0);
unknown's avatar
unknown committed
2462
    return 1;
2463
  }
unknown's avatar
unknown committed
2464

2465 2466 2467
  reg4 uint i;
  size_t length;
  uchar fyllchar,*to;
2468
  char buff[DOUBLE_TO_STRING_CONVERSION_BUFFER_SIZE];
unknown's avatar
unknown committed
2469 2470

  fyllchar = zerofill ? (char) '0' : (char) ' ';
2471
  length= my_fcvt(nr, dec, buff, NULL);
unknown's avatar
unknown committed
2472 2473 2474 2475

  if (length > field_length)
  {
    overflow(nr < 0.0);
2476
    return 1;
unknown's avatar
unknown committed
2477 2478 2479 2480 2481 2482 2483
  }
  else
  {
    to=ptr;
    for (i=field_length-length ; i-- > 0 ;)
      *to++ = fyllchar;
    memcpy(to,buff,length);
2484
    return 0;
unknown's avatar
unknown committed
2485 2486 2487 2488
  }
}


2489
int Field_decimal::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
2490
{
2491
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
2492 2493
  char buff[22];
  uint length, int_part;
2494 2495
  char fyllchar;
  uchar *to;
2496 2497

  if (nr < 0 && unsigned_flag && !unsigned_val)
unknown's avatar
unknown committed
2498 2499
  {
    overflow(1);
2500
    return 1;
unknown's avatar
unknown committed
2501
  }
2502 2503
  length= (uint) (longlong10_to_str(nr,buff,unsigned_val ? 10 : -10) - buff);
  int_part= field_length- (dec  ? dec+1 : 0);
unknown's avatar
unknown committed
2504 2505 2506

  if (length > int_part)
  {
2507
    overflow(!unsigned_val && nr < 0L);		/* purecov: inspected */
2508
    return 1;
unknown's avatar
unknown committed
2509
  }
2510 2511 2512 2513 2514 2515 2516

  fyllchar = zerofill ? (char) '0' : (char) ' ';
  to= ptr;
  for (uint i=int_part-length ; i-- > 0 ;)
    *to++ = fyllchar;
  memcpy(to,buff,length);
  if (dec)
unknown's avatar
unknown committed
2517
  {
2518 2519
    to[length]='.';
    bfill(to+length+1,dec,'0');
unknown's avatar
unknown committed
2520
  }
2521
  return 0;
unknown's avatar
unknown committed
2522 2523 2524 2525 2526
}


double Field_decimal::val_real(void)
{
2527
  ASSERT_COLUMN_MARKED_FOR_READ;
2528
  int not_used;
2529
  char *end_not_used;
2530
  return my_strntod(&my_charset_bin, (char*) ptr, field_length, &end_not_used,
2531
                    &not_used);
unknown's avatar
unknown committed
2532 2533 2534 2535
}

longlong Field_decimal::val_int(void)
{
2536
  ASSERT_COLUMN_MARKED_FOR_READ;
2537
  int not_used;
unknown's avatar
unknown committed
2538
  if (unsigned_flag)
2539
    return my_strntoull(&my_charset_bin, (char*) ptr, field_length, 10, NULL,
2540
			&not_used);
2541 2542
  return my_strntoll(&my_charset_bin, (char*) ptr, field_length, 10, NULL,
                     &not_used);
unknown's avatar
unknown committed
2543 2544
}

2545

unknown's avatar
unknown committed
2546 2547 2548
String *Field_decimal::val_str(String *val_buffer __attribute__((unused)),
			       String *val_ptr)
{
2549
  ASSERT_COLUMN_MARKED_FOR_READ;
2550 2551 2552
  uchar *str;
  size_t tmp_length;

unknown's avatar
unknown committed
2553
  for (str=ptr ; *str == ' ' ; str++) ;
2554
  val_ptr->set_charset(&my_charset_numeric);
2555
  tmp_length= (size_t) (str-ptr);
unknown's avatar
unknown committed
2556 2557 2558
  if (field_length < tmp_length)		// Error in data
    val_ptr->length(0);
  else
2559
    val_ptr->set_ascii((const char*) str, field_length-tmp_length);
unknown's avatar
unknown committed
2560 2561 2562
  return val_ptr;
}

2563 2564 2565
/**
  Should be able to handle at least the following fixed decimal formats:
  5.00 , -1.0,  05,  -05, +5 with optional pre/end space
unknown's avatar
unknown committed
2566 2567
*/

2568
int Field_decimal::cmp(const uchar *a_ptr,const uchar *b_ptr)
unknown's avatar
unknown committed
2569
{
2570
  const uchar *end;
2571
  int swap=0;
unknown's avatar
unknown committed
2572 2573 2574 2575
  /* First remove prefixes '0', ' ', and '-' */
  for (end=a_ptr+field_length;
       a_ptr != end &&
	 (*a_ptr == *b_ptr ||
unknown's avatar
unknown committed
2576
	  ((my_isspace(&my_charset_bin,*a_ptr)  || *a_ptr == '+' || 
2577
            *a_ptr == '0') &&
unknown's avatar
unknown committed
2578
	   (my_isspace(&my_charset_bin,*b_ptr) || *b_ptr == '+' || 
2579
            *b_ptr == '0')));
2580 2581 2582 2583 2584
       a_ptr++,b_ptr++)
  {
    if (*a_ptr == '-')				// If both numbers are negative
      swap= -1 ^ 1;				// Swap result      
  }
unknown's avatar
unknown committed
2585 2586 2587
  if (a_ptr == end)
    return 0;
  if (*a_ptr == '-')
2588
    return -1;
2589
  if (*b_ptr == '-')
unknown's avatar
unknown committed
2590 2591 2592 2593 2594 2595 2596 2597 2598 2599 2600
    return 1;

  while (a_ptr != end)
  {
    if (*a_ptr++ != *b_ptr++)
      return swap ^ (a_ptr[-1] < b_ptr[-1] ? -1 : 1); // compare digits
  }
  return 0;
}


2601
void Field_decimal::sort_string(uchar *to,uint length)
unknown's avatar
unknown committed
2602
{
2603
  uchar *str,*end;
unknown's avatar
unknown committed
2604 2605
  for (str=ptr,end=ptr+length;
       str != end &&
unknown's avatar
unknown committed
2606
	 ((my_isspace(&my_charset_bin,*str) || *str == '+' ||
unknown's avatar
unknown committed
2607
	   *str == '0')) ;
unknown's avatar
unknown committed
2608 2609 2610 2611 2612 2613 2614 2615 2616 2617
       str++)
    *to++=' ';
  if (str == end)
    return;					/* purecov: inspected */

  if (*str == '-')
  {
    *to++=1;					// Smaller than any number
    str++;
    while (str != end)
unknown's avatar
unknown committed
2618
      if (my_isdigit(&my_charset_bin,*str))
unknown's avatar
unknown committed
2619 2620 2621 2622 2623 2624 2625
	*to++= (char) ('9' - *str++);
      else
	*to++= *str++;
  }
  else memcpy(to,str,(uint) (end-str));
}

unknown's avatar
unknown committed
2626

unknown's avatar
unknown committed
2627 2628
void Field_decimal::sql_type(String &res) const
{
unknown's avatar
unknown committed
2629
  CHARSET_INFO *cs=res.charset();
unknown's avatar
unknown committed
2630 2631 2632 2633 2634
  uint tmp=field_length;
  if (!unsigned_flag)
    tmp--;
  if (dec)
    tmp--;
2635
  res.length(cs->cset->snprintf(cs,(char*) res.ptr(),res.alloced_length(),
2636
			  "decimal(%d,%d)",tmp,dec));
unknown's avatar
unknown committed
2637 2638 2639 2640
  add_zerofill_and_unsigned(res);
}


unknown's avatar
unknown committed
2641 2642 2643 2644
/****************************************************************************
** Field_new_decimal
****************************************************************************/

2645
Field_new_decimal::Field_new_decimal(uchar *ptr_arg,
unknown's avatar
unknown committed
2646 2647 2648 2649 2650 2651
                                     uint32 len_arg, uchar *null_ptr_arg,
                                     uchar null_bit_arg,
                                     enum utype unireg_check_arg,
                                     const char *field_name_arg,
                                     uint8 dec_arg,bool zero_arg,
                                     bool unsigned_arg)
unknown's avatar
unknown committed
2652 2653
  :Field_num(ptr_arg, len_arg, null_ptr_arg, null_bit_arg,
             unireg_check_arg, field_name_arg, dec_arg, zero_arg, unsigned_arg)
unknown's avatar
unknown committed
2654
{
unknown's avatar
unknown committed
2655
  precision= my_decimal_length_to_precision(len_arg, dec_arg, unsigned_arg);
unknown's avatar
unknown committed
2656
  set_if_smaller(precision, DECIMAL_MAX_PRECISION);
unknown's avatar
unknown committed
2657 2658 2659
  DBUG_ASSERT((precision <= DECIMAL_MAX_PRECISION) &&
              (dec <= DECIMAL_MAX_SCALE));
  bin_size= my_decimal_get_binary_size(precision, dec);
unknown's avatar
unknown committed
2660 2661 2662 2663
}


Field_new_decimal::Field_new_decimal(uint32 len_arg,
2664
                                     bool maybe_null_arg,
unknown's avatar
unknown committed
2665
                                     const char *name,
unknown's avatar
unknown committed
2666 2667
                                     uint8 dec_arg,
                                     bool unsigned_arg)
2668
  :Field_num((uchar*) 0, len_arg,
2669
             maybe_null_arg ? (uchar*) "": 0, 0,
unknown's avatar
unknown committed
2670
             NONE, name, dec_arg, 0, unsigned_arg)
unknown's avatar
unknown committed
2671
{
unknown's avatar
unknown committed
2672
  precision= my_decimal_length_to_precision(len_arg, dec_arg, unsigned_arg);
unknown's avatar
unknown committed
2673
  set_if_smaller(precision, DECIMAL_MAX_PRECISION);
unknown's avatar
unknown committed
2674 2675 2676
  DBUG_ASSERT((precision <= DECIMAL_MAX_PRECISION) &&
              (dec <= DECIMAL_MAX_SCALE));
  bin_size= my_decimal_get_binary_size(precision, dec);
unknown's avatar
unknown committed
2677 2678 2679
}


2680 2681 2682 2683
Field *Field_new_decimal::create_from_item (Item *item)
{
  uint8 dec= item->decimals;
  uint8 intg= item->decimal_precision() - dec;
2684
  uint32 len= item->max_char_length();
2685 2686 2687 2688 2689 2690 2691 2692 2693 2694 2695 2696 2697

  DBUG_ASSERT (item->result_type() == DECIMAL_RESULT);

  /*
    Trying to put too many digits overall in a DECIMAL(prec,dec)
    will always throw a warning. We must limit dec to
    DECIMAL_MAX_SCALE however to prevent an assert() later.
  */

  if (dec > 0)
  {
    signed int overflow;

2698
    dec= MY_MIN(dec, DECIMAL_MAX_SCALE);
2699 2700 2701 2702 2703 2704 2705 2706 2707 2708 2709 2710 2711 2712 2713

    /*
      If the value still overflows the field with the corrected dec,
      we'll throw out decimals rather than integers. This is still
      bad and of course throws a truncation warning.
      +1: for decimal point
      */

    const int required_length=
      my_decimal_precision_to_length(intg + dec, dec,
                                     item->unsigned_flag);

    overflow= required_length - len;

    if (overflow > 0)
2714
      dec= MY_MAX(0, dec - overflow);            // too long, discard fract
2715 2716 2717 2718 2719 2720 2721 2722 2723
    else
      /* Corrected value fits. */
      len= required_length;
  }
  return new Field_new_decimal(len, item->maybe_null, item->name,
                               dec, item->unsigned_flag);
}


unknown's avatar
unknown committed
2724
int Field_new_decimal::reset(void)
unknown's avatar
unknown committed
2725 2726
{
  store_value(&decimal_zero);
unknown's avatar
unknown committed
2727
  return 0;
unknown's avatar
unknown committed
2728 2729 2730
}


2731
/**
unknown's avatar
unknown committed
2732 2733
  Generate max/min decimal value in case of overflow.

2734 2735
  @param decimal_value     buffer for value
  @param sign              sign of value which caused overflow
unknown's avatar
unknown committed
2736 2737 2738 2739 2740 2741
*/

void Field_new_decimal::set_value_on_overflow(my_decimal *decimal_value,
                                              bool sign)
{
  DBUG_ENTER("Field_new_decimal::set_value_on_overflow");
unknown's avatar
unknown committed
2742
  max_my_decimal(decimal_value, precision, decimals());
unknown's avatar
unknown committed
2743 2744 2745 2746 2747 2748 2749 2750 2751 2752 2753
  if (sign)
  {
    if (unsigned_flag)
      my_decimal_set_zero(decimal_value);
    else
      decimal_value->sign(TRUE);
  }
  DBUG_VOID_RETURN;
}


2754 2755
/**
  Store decimal value in the binary buffer.
unknown's avatar
unknown committed
2756

2757 2758 2759
  Checks if decimal_value fits into field size.
  If it does, stores the decimal in the buffer using binary format.
  Otherwise sets maximal number that can be stored in the field.
unknown's avatar
unknown committed
2760

2761
  @param decimal_value   my_decimal
unknown's avatar
unknown committed
2762

2763 2764 2765 2766
  @retval
    0 ok
  @retval
    1 error
unknown's avatar
unknown committed
2767 2768 2769 2770
*/

bool Field_new_decimal::store_value(const my_decimal *decimal_value)
{
2771
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
2772 2773
  int error= 0;
  DBUG_ENTER("Field_new_decimal::store_value");
unknown's avatar
unknown committed
2774 2775
#ifndef DBUG_OFF
  {
2776
    char dbug_buff[DECIMAL_MAX_STR_LENGTH+2];
unknown's avatar
unknown committed
2777 2778 2779
    DBUG_PRINT("enter", ("value: %s", dbug_decimal_as_string(dbug_buff, decimal_value)));
  }
#endif
unknown's avatar
unknown committed
2780 2781 2782 2783 2784

  /* check that we do not try to write negative value in unsigned field */
  if (unsigned_flag && decimal_value->sign())
  {
    DBUG_PRINT("info", ("unsigned overflow"));
2785
    set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
2786
    error= 1;
unknown's avatar
unknown committed
2787 2788 2789 2790
    decimal_value= &decimal_zero;
  }
#ifndef DBUG_OFF
  {
2791
    char dbug_buff[DECIMAL_MAX_STR_LENGTH+2];
2792
    DBUG_PRINT("info", ("saving with precision %d  scale: %d  value %s",
unknown's avatar
unknown committed
2793 2794
                        (int)precision, (int)dec,
                        dbug_decimal_as_string(dbug_buff, decimal_value)));
unknown's avatar
unknown committed
2795
  }
unknown's avatar
unknown committed
2796
#endif
unknown's avatar
unknown committed
2797

unknown's avatar
unknown committed
2798 2799
  if (warn_if_overflow(my_decimal2binary(E_DEC_FATAL_ERROR & ~E_DEC_OVERFLOW,
                                         decimal_value, ptr, precision, dec)))
unknown's avatar
unknown committed
2800 2801 2802
  {
    my_decimal buff;
    DBUG_PRINT("info", ("overflow"));
unknown's avatar
unknown committed
2803 2804
    set_value_on_overflow(&buff, decimal_value->sign());
    my_decimal2binary(E_DEC_FATAL_ERROR, &buff, ptr, precision, dec);
2805
    error= 1;
unknown's avatar
unknown committed
2806
  }
2807
  DBUG_EXECUTE("info", print_decimal_buff(decimal_value, (uchar *) ptr,
2808
                                          bin_size););
unknown's avatar
unknown committed
2809
  DBUG_RETURN(error);
unknown's avatar
unknown committed
2810 2811 2812 2813
}


int Field_new_decimal::store(const char *from, uint length,
2814
                             CHARSET_INFO *charset_arg)
unknown's avatar
unknown committed
2815
{
2816
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
2817 2818
  int err;
  my_decimal decimal_value;
2819
  THD *thd= get_thd();
unknown's avatar
unknown committed
2820 2821
  DBUG_ENTER("Field_new_decimal::store(char*)");

2822
  if ((err= str2my_decimal(E_DEC_FATAL_ERROR &
2823 2824 2825
                           ~(E_DEC_OVERFLOW | E_DEC_BAD_NUM),
                           from, length, charset_arg,
                           &decimal_value)) &&
2826
      thd->abort_on_warning)
2827
  {
2828
    ErrConvString errmsg(from, length, charset_arg);
2829
    push_warning_printf(thd, Sql_condition::WARN_LEVEL_WARN,
2830 2831
                        ER_TRUNCATED_WRONG_VALUE_FOR_FIELD,
                        ER(ER_TRUNCATED_WRONG_VALUE_FOR_FIELD),
2832
                        "decimal", errmsg.ptr(), field_name,
2833 2834
                        static_cast<ulong>(thd->get_stmt_da()->
                        current_row_for_warning()));
2835 2836 2837 2838
    DBUG_RETURN(err);
  }

  switch (err) {
unknown's avatar
unknown committed
2839
  case E_DEC_TRUNCATED:
2840
    set_warning(Sql_condition::WARN_LEVEL_NOTE, WARN_DATA_TRUNCATED, 1);
unknown's avatar
unknown committed
2841 2842
    break;
  case E_DEC_OVERFLOW:
2843
    set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
2844 2845 2846
    set_value_on_overflow(&decimal_value, decimal_value.sign());
    break;
  case E_DEC_BAD_NUM:
2847
    {
2848
      ErrConvString errmsg(from, length, charset_arg);
2849
      push_warning_printf(thd, Sql_condition::WARN_LEVEL_WARN,
2850 2851 2852
                          ER_TRUNCATED_WRONG_VALUE_FOR_FIELD,
                          ER(ER_TRUNCATED_WRONG_VALUE_FOR_FIELD),
                          "decimal", errmsg.ptr(), field_name,
2853 2854
                          static_cast<ulong>(thd->get_stmt_da()->
                          current_row_for_warning()));
2855 2856
      my_decimal_set_zero(&decimal_value);
      break;
2857
    }
unknown's avatar
unknown committed
2858 2859
  }

unknown's avatar
unknown committed
2860
#ifndef DBUG_OFF
2861
  char dbug_buff[DECIMAL_MAX_STR_LENGTH+2];
unknown's avatar
unknown committed
2862 2863 2864
  DBUG_PRINT("enter", ("value: %s",
                       dbug_decimal_as_string(dbug_buff, &decimal_value)));
#endif
unknown's avatar
unknown committed
2865 2866 2867 2868 2869
  store_value(&decimal_value);
  DBUG_RETURN(err);
}


2870 2871 2872 2873 2874 2875
/**
  @todo
  Fix following when double2my_decimal when double2decimal
  will return E_DEC_TRUNCATED always correctly
*/

unknown's avatar
unknown committed
2876 2877
int Field_new_decimal::store(double nr)
{
2878
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
2879
  my_decimal decimal_value;
unknown's avatar
unknown committed
2880
  int err;
2881
  THD *thd= get_thd();
unknown's avatar
unknown committed
2882 2883 2884 2885 2886 2887 2888 2889 2890
  DBUG_ENTER("Field_new_decimal::store(double)");

  err= double2my_decimal(E_DEC_FATAL_ERROR & ~E_DEC_OVERFLOW, nr,
                         &decimal_value);
  if (err)
  {
    if (check_overflow(err))
      set_value_on_overflow(&decimal_value, decimal_value.sign());
    /* Only issue a warning if store_value doesn't issue an warning */
2891
    thd->got_warning= 0;
unknown's avatar
unknown committed
2892 2893 2894
  }
  if (store_value(&decimal_value))
    err= 1;
2895
  else if (err && !thd->got_warning)
unknown's avatar
unknown committed
2896 2897
    err= warn_if_overflow(err);
  DBUG_RETURN(err);
unknown's avatar
unknown committed
2898 2899 2900
}


2901
int Field_new_decimal::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
2902
{
2903
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
2904 2905
  my_decimal decimal_value;
  int err;
unknown's avatar
unknown committed
2906 2907

  if ((err= int2my_decimal(E_DEC_FATAL_ERROR & ~E_DEC_OVERFLOW,
2908
                           nr, unsigned_val, &decimal_value)))
unknown's avatar
unknown committed
2909 2910 2911 2912
  {
    if (check_overflow(err))
      set_value_on_overflow(&decimal_value, decimal_value.sign());
    /* Only issue a warning if store_value doesn't issue an warning */
2913
    get_thd()->got_warning= 0;
unknown's avatar
unknown committed
2914 2915 2916
  }
  if (store_value(&decimal_value))
    err= 1;
2917
  else if (err && !get_thd()->got_warning)
unknown's avatar
unknown committed
2918
    err= warn_if_overflow(err);
unknown's avatar
unknown committed
2919 2920 2921 2922 2923 2924
  return err;
}


int Field_new_decimal::store_decimal(const my_decimal *decimal_value)
{
2925
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
2926 2927 2928 2929
  return store_value(decimal_value);
}


2930
int Field_new_decimal::store_time_dec(MYSQL_TIME *ltime, uint dec)
2931
{
2932 2933
  my_decimal decimal_value;
  return store_value(date2my_decimal(ltime, &decimal_value));
unknown's avatar
unknown committed
2934 2935 2936 2937 2938
}


double Field_new_decimal::val_real(void)
{
2939
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
2940 2941 2942 2943 2944 2945 2946 2947 2948
  double dbl;
  my_decimal decimal_value;
  my_decimal2double(E_DEC_FATAL_ERROR, val_decimal(&decimal_value), &dbl);
  return dbl;
}


longlong Field_new_decimal::val_int(void)
{
2949
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
2950 2951 2952 2953 2954 2955 2956 2957 2958 2959
  longlong i;
  my_decimal decimal_value;
  my_decimal2int(E_DEC_FATAL_ERROR, val_decimal(&decimal_value),
                 unsigned_flag, &i);
  return i;
}


my_decimal* Field_new_decimal::val_decimal(my_decimal *decimal_value)
{
2960
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
2961 2962
  DBUG_ENTER("Field_new_decimal::val_decimal");
  binary2my_decimal(E_DEC_FATAL_ERROR, ptr, decimal_value,
unknown's avatar
unknown committed
2963
                    precision, dec);
2964
  DBUG_EXECUTE("info", print_decimal_buff(decimal_value, (uchar *) ptr,
2965
                                          bin_size););
unknown's avatar
unknown committed
2966 2967 2968 2969 2970
  DBUG_RETURN(decimal_value);
}


String *Field_new_decimal::val_str(String *val_buffer,
unknown's avatar
unknown committed
2971
                                   String *val_ptr __attribute__((unused)))
unknown's avatar
unknown committed
2972
{
2973
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
2974
  my_decimal decimal_value;
unknown's avatar
unknown committed
2975
  uint fixed_precision= zerofill ? precision : 0;
unknown's avatar
unknown committed
2976
  my_decimal2string(E_DEC_FATAL_ERROR, val_decimal(&decimal_value),
unknown's avatar
unknown committed
2977
                    fixed_precision, dec, '0', val_buffer);
2978
  val_buffer->set_charset(&my_charset_numeric);
unknown's avatar
unknown committed
2979 2980 2981 2982
  return val_buffer;
}


2983
int Field_new_decimal::cmp(const uchar *a,const uchar*b)
unknown's avatar
unknown committed
2984 2985 2986 2987 2988
{
  return memcmp(a, b, bin_size);
}


2989
void Field_new_decimal::sort_string(uchar *buff,
unknown's avatar
unknown committed
2990 2991 2992 2993 2994 2995 2996 2997 2998 2999
                                    uint length __attribute__((unused)))
{
  memcpy(buff, ptr, bin_size);
}


void Field_new_decimal::sql_type(String &str) const
{
  CHARSET_INFO *cs= str.charset();
  str.length(cs->cset->snprintf(cs, (char*) str.ptr(), str.alloced_length(),
unknown's avatar
unknown committed
3000
                                "decimal(%d,%d)", precision, (int)dec));
unknown's avatar
unknown committed
3001 3002 3003
  add_zerofill_and_unsigned(str);
}

unknown's avatar
unknown committed
3004

3005 3006 3007 3008 3009 3010 3011 3012 3013 3014 3015 3016 3017 3018 3019 3020 3021 3022 3023 3024 3025 3026 3027 3028 3029 3030 3031 3032 3033 3034 3035 3036 3037 3038 3039 3040 3041 3042 3043 3044 3045
/**
   Save the field metadata for new decimal fields.

   Saves the precision in the first byte and decimals() in the second
   byte of the field metadata array at index of *metadata_ptr and 
   *(metadata_ptr + 1).

   @param   metadata_ptr   First byte of field metadata

   @returns number of bytes written to metadata_ptr
*/
int Field_new_decimal::do_save_field_metadata(uchar *metadata_ptr)
{
  *metadata_ptr= precision;
  *(metadata_ptr + 1)= decimals();
  return 2;
}


/**
   Returns the number of bytes field uses in row-based replication 
   row packed size.

   This method is used in row-based replication to determine the number
   of bytes that the field consumes in the row record format. This is
   used to skip fields in the master that do not exist on the slave.

   @param   field_metadata   Encoded size in field metadata

   @returns The size of the field based on the field metadata.
*/
uint Field_new_decimal::pack_length_from_metadata(uint field_metadata)
{
  uint const source_precision= (field_metadata >> 8U) & 0x00ff;
  uint const source_decimal= field_metadata & 0x00ff; 
  uint const source_size= my_decimal_get_binary_size(source_precision, 
                                                     source_decimal);
  return (source_size);
}


3046 3047
bool Field_new_decimal::compatible_field_size(uint field_metadata,
                                              Relay_log_info * __attribute__((unused)),
3048
                                              uint16 mflags __attribute__((unused)),
3049
                                              int *order_var)
3050 3051 3052
{
  uint const source_precision= (field_metadata >> 8U) & 0x00ff;
  uint const source_decimal= field_metadata & 0x00ff; 
3053 3054 3055
  int order= compare(source_precision, precision);
  *order_var= order != 0 ? order : compare(source_decimal, dec);
  return true;
3056 3057 3058
}


unknown's avatar
unknown committed
3059
uint Field_new_decimal::is_equal(Create_field *new_field)
3060 3061 3062 3063 3064 3065
{
  return ((new_field->sql_type == real_type()) &&
          ((new_field->flags & UNSIGNED_FLAG) == 
           (uint) (flags & UNSIGNED_FLAG)) &&
          ((new_field->flags & AUTO_INCREMENT_FLAG) ==
           (uint) (flags & AUTO_INCREMENT_FLAG)) &&
unknown's avatar
unknown committed
3066
          (new_field->length == max_display_length()) &&
3067 3068 3069 3070
          (new_field->decimals == dec));
}


3071 3072 3073 3074 3075 3076 3077 3078 3079 3080 3081 3082
/**
   Unpack a decimal field from row data.

   This method is used to unpack a decimal or numeric field from a master
   whose size of the field is less than that of the slave.
  
   @param   to         Destination of the data
   @param   from       Source of the data
   @param   param_data Precision (upper) and decimal (lower) values

   @return  New pointer into memory based on from + length of the data
*/
3083
const uchar *
3084 3085
Field_new_decimal::unpack(uchar* to, const uchar *from, const uchar *from_end,
                          uint param_data)
3086
{
3087
  if (param_data == 0)
3088
    return Field::unpack(to, from, from_end, param_data);
3089

3090 3091 3092 3093 3094 3095
  uint from_precision= (param_data & 0xff00) >> 8U;
  uint from_decimal= param_data & 0x00ff;
  uint length=pack_length();
  uint from_pack_len= my_decimal_get_binary_size(from_precision, from_decimal);
  uint len= (param_data && (from_pack_len < length)) ?
            from_pack_len : length;
3096 3097 3098
  if ((from_pack_len && (from_pack_len < length)) ||
      (from_precision < precision) ||
      (from_decimal < decimals()))
3099 3100 3101 3102 3103 3104 3105
  {
    /*
      If the master's data is smaller than the slave, we need to convert
      the binary to decimal then resize the decimal converting it back to
      a decimal and write that to the raw data buffer.
    */
    decimal_digit_t dec_buf[DECIMAL_MAX_PRECISION];
3106 3107 3108
    decimal_t dec_val;
    dec_val.len= from_precision;
    dec_val.buf= dec_buf;
3109 3110 3111 3112 3113
    /*
      Note: bin2decimal does not change the length of the field. So it is
      just the first step the resizing operation. The second step does the
      resizing using the precision and decimals from the slave.
    */
3114 3115
    bin2decimal((uchar *)from, &dec_val, from_precision, from_decimal);
    decimal2bin(&dec_val, to, precision, decimals());
3116 3117
  }
  else
3118 3119 3120
  {
    if (from + len > from_end)
      return 0;                                 // Wrong data
3121
    memcpy(to, from, len); // Sizes are the same, just copy the data.
3122
  }
3123 3124 3125
  return from+len;
}

3126 3127 3128 3129 3130 3131 3132 3133 3134
int Field_num::store_time_dec(MYSQL_TIME *ltime, uint dec)
{
  longlong v= TIME_to_ulonglong(ltime);
  if (ltime->neg == 0)
    return store(v, true);
  return store(-v, false);
}


unknown's avatar
unknown committed
3135 3136 3137 3138
/****************************************************************************
** tiny int
****************************************************************************/

unknown's avatar
unknown committed
3139
int Field_tiny::store(const char *from,uint len,CHARSET_INFO *cs)
unknown's avatar
unknown committed
3140
{
3141
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
3142
  int error;
unknown's avatar
unknown committed
3143 3144 3145 3146
  longlong rnd;
  
  error= get_int(cs, from, len, &rnd, 255, -128, 127);
  ptr[0]= unsigned_flag ? (char) (ulonglong) rnd : (char) rnd;
3147
  return error;
unknown's avatar
unknown committed
3148 3149 3150
}


unknown's avatar
unknown committed
3151
int Field_tiny::store(double nr)
unknown's avatar
unknown committed
3152
{
3153
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
3154
  int error= 0;
unknown's avatar
unknown committed
3155 3156 3157 3158 3159 3160
  nr=rint(nr);
  if (unsigned_flag)
  {
    if (nr < 0.0)
    {
      *ptr=0;
3161
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3162
      error= 1;
unknown's avatar
unknown committed
3163 3164 3165
    }
    else if (nr > 255.0)
    {
3166
      *ptr= (uchar) 255;
3167
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3168
      error= 1;
unknown's avatar
unknown committed
3169 3170
    }
    else
3171
      *ptr= (uchar) nr;
unknown's avatar
unknown committed
3172 3173 3174 3175 3176
  }
  else
  {
    if (nr < -128.0)
    {
3177
      *ptr= (uchar) -128;
3178
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3179
      error= 1;
unknown's avatar
unknown committed
3180 3181 3182 3183
    }
    else if (nr > 127.0)
    {
      *ptr=127;
3184
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3185
      error= 1;
unknown's avatar
unknown committed
3186 3187
    }
    else
3188
      *ptr=(uchar) (int) nr;
unknown's avatar
unknown committed
3189
  }
3190
  return error;
unknown's avatar
unknown committed
3191 3192
}

3193 3194

int Field_tiny::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
3195
{
3196
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
3197
  int error= 0;
3198

unknown's avatar
unknown committed
3199 3200
  if (unsigned_flag)
  {
3201
    if (nr < 0 && !unsigned_val)
unknown's avatar
unknown committed
3202
    {
3203
      *ptr= 0;
3204
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3205
      error= 1;
unknown's avatar
unknown committed
3206
    }
3207
    else if ((ulonglong) nr > (ulonglong) 255)
unknown's avatar
unknown committed
3208 3209
    {
      *ptr= (char) 255;
3210
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3211
      error= 1;
unknown's avatar
unknown committed
3212 3213 3214 3215 3216 3217
    }
    else
      *ptr=(char) nr;
  }
  else
  {
3218 3219 3220
    if (nr < 0 && unsigned_val)
      nr= 256;                                    // Generate overflow
    if (nr < -128)
unknown's avatar
unknown committed
3221 3222
    {
      *ptr= (char) -128;
3223
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3224
      error= 1;
unknown's avatar
unknown committed
3225
    }
3226
    else if (nr > 127)
unknown's avatar
unknown committed
3227 3228
    {
      *ptr=127;
3229
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3230
      error= 1;
unknown's avatar
unknown committed
3231 3232 3233 3234
    }
    else
      *ptr=(char) nr;
  }
3235
  return error;
unknown's avatar
unknown committed
3236 3237 3238 3239 3240
}


double Field_tiny::val_real(void)
{
3241
  ASSERT_COLUMN_MARKED_FOR_READ;
3242
  int tmp= unsigned_flag ? (int) ptr[0] :
unknown's avatar
unknown committed
3243 3244 3245 3246
    (int) ((signed char*) ptr)[0];
  return (double) tmp;
}

3247

unknown's avatar
unknown committed
3248 3249
longlong Field_tiny::val_int(void)
{
3250
  ASSERT_COLUMN_MARKED_FOR_READ;
3251
  int tmp= unsigned_flag ? (int) ptr[0] :
unknown's avatar
unknown committed
3252 3253 3254 3255
    (int) ((signed char*) ptr)[0];
  return (longlong) tmp;
}

3256

unknown's avatar
unknown committed
3257 3258 3259
String *Field_tiny::val_str(String *val_buffer,
			    String *val_ptr __attribute__((unused)))
{
3260
  ASSERT_COLUMN_MARKED_FOR_READ;
3261
  CHARSET_INFO *cs= &my_charset_numeric;
unknown's avatar
unknown committed
3262
  uint length;
3263
  uint mlength=MY_MAX(field_length+1,5*cs->mbmaxlen);
3264
  val_buffer->alloc(mlength);
unknown's avatar
unknown committed
3265
  char *to=(char*) val_buffer->ptr();
3266

unknown's avatar
unknown committed
3267
  if (unsigned_flag)
3268
    length= (uint) cs->cset->long10_to_str(cs,to,mlength, 10,
3269
					   (long) *ptr);
unknown's avatar
unknown committed
3270
  else
3271 3272
    length= (uint) cs->cset->long10_to_str(cs,to,mlength,-10,
					   (long) *((signed char*) ptr));
3273
  
unknown's avatar
unknown committed
3274 3275 3276
  val_buffer->length(length);
  if (zerofill)
    prepend_zeros(val_buffer);
3277
  val_buffer->set_charset(cs);
unknown's avatar
unknown committed
3278 3279 3280
  return val_buffer;
}

3281 3282 3283 3284
bool Field_tiny::send_binary(Protocol *protocol)
{
  return protocol->store_tiny((longlong) (int8) ptr[0]);
}
unknown's avatar
unknown committed
3285

3286
int Field_tiny::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
3287 3288 3289 3290 3291 3292 3293 3294
{
  signed char a,b;
  a=(signed char) a_ptr[0]; b= (signed char) b_ptr[0];
  if (unsigned_flag)
    return ((uchar) a < (uchar) b) ? -1 : ((uchar) a > (uchar) b) ? 1 : 0;
  return (a < b) ? -1 : (a > b) ? 1 : 0;
}

3295
void Field_tiny::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
3296 3297 3298 3299
{
  if (unsigned_flag)
    *to= *ptr;
  else
3300
    to[0] = (char) (ptr[0] ^ (uchar) 128);	/* Revers signbit */
unknown's avatar
unknown committed
3301 3302 3303 3304
}

void Field_tiny::sql_type(String &res) const
{
unknown's avatar
unknown committed
3305
  CHARSET_INFO *cs=res.charset();
3306
  res.length(cs->cset->snprintf(cs,(char*) res.ptr(),res.alloced_length(),
3307
			  "tinyint(%d)",(int) field_length));
unknown's avatar
unknown committed
3308 3309 3310 3311
  add_zerofill_and_unsigned(res);
}

/****************************************************************************
3312
 Field type short int (2 byte)
unknown's avatar
unknown committed
3313 3314
****************************************************************************/

unknown's avatar
unknown committed
3315
int Field_short::store(const char *from,uint len,CHARSET_INFO *cs)
unknown's avatar
unknown committed
3316
{
3317
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
3318
  int store_tmp;
3319
  int error;
unknown's avatar
unknown committed
3320 3321 3322 3323
  longlong rnd;
  
  error= get_int(cs, from, len, &rnd, UINT_MAX16, INT_MIN16, INT_MAX16);
  store_tmp= unsigned_flag ? (int) (ulonglong) rnd : (int) rnd;
Sergei Golubchik's avatar
Sergei Golubchik committed
3324
  int2store(ptr, store_tmp);
3325
  return error;
unknown's avatar
unknown committed
3326 3327 3328
}


unknown's avatar
unknown committed
3329
int Field_short::store(double nr)
unknown's avatar
unknown committed
3330
{
3331
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
3332
  int error= 0;
unknown's avatar
unknown committed
3333 3334 3335 3336 3337 3338 3339
  int16 res;
  nr=rint(nr);
  if (unsigned_flag)
  {
    if (nr < 0)
    {
      res=0;
3340
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3341
      error= 1;
unknown's avatar
unknown committed
3342
    }
unknown's avatar
unknown committed
3343
    else if (nr > (double) UINT_MAX16)
unknown's avatar
unknown committed
3344
    {
unknown's avatar
unknown committed
3345
      res=(int16) UINT_MAX16;
3346
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3347
      error= 1;
unknown's avatar
unknown committed
3348 3349 3350 3351 3352 3353 3354 3355 3356
    }
    else
      res=(int16) (uint16) nr;
  }
  else
  {
    if (nr < (double) INT_MIN16)
    {
      res=INT_MIN16;
3357
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3358
      error= 1;
unknown's avatar
unknown committed
3359 3360 3361 3362
    }
    else if (nr > (double) INT_MAX16)
    {
      res=INT_MAX16;
3363
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3364
      error= 1;
unknown's avatar
unknown committed
3365 3366
    }
    else
unknown's avatar
unknown committed
3367
      res=(int16) (int) nr;
unknown's avatar
unknown committed
3368
  }
Sergei Golubchik's avatar
Sergei Golubchik committed
3369
  int2store(ptr,res);
3370
  return error;
unknown's avatar
unknown committed
3371 3372
}

3373 3374

int Field_short::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
3375
{
3376
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
3377
  int error= 0;
unknown's avatar
unknown committed
3378
  int16 res;
3379

unknown's avatar
unknown committed
3380 3381
  if (unsigned_flag)
  {
3382
    if (nr < 0L && !unsigned_val)
unknown's avatar
unknown committed
3383 3384
    {
      res=0;
3385
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3386
      error= 1;
unknown's avatar
unknown committed
3387
    }
3388
    else if ((ulonglong) nr > (ulonglong) UINT_MAX16)
unknown's avatar
unknown committed
3389
    {
unknown's avatar
unknown committed
3390
      res=(int16) UINT_MAX16;
3391
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3392
      error= 1;
unknown's avatar
unknown committed
3393 3394 3395 3396 3397 3398
    }
    else
      res=(int16) (uint16) nr;
  }
  else
  {
3399 3400 3401
    if (nr < 0 && unsigned_val)
      nr= UINT_MAX16+1;                         // Generate overflow

unknown's avatar
unknown committed
3402 3403 3404
    if (nr < INT_MIN16)
    {
      res=INT_MIN16;
3405
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3406
      error= 1;
unknown's avatar
unknown committed
3407
    }
3408
    else if (nr > (longlong) INT_MAX16)
unknown's avatar
unknown committed
3409 3410
    {
      res=INT_MAX16;
3411
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3412
      error= 1;
unknown's avatar
unknown committed
3413 3414 3415 3416
    }
    else
      res=(int16) nr;
  }
Sergei Golubchik's avatar
Sergei Golubchik committed
3417
  int2store(ptr,res);
3418
  return error;
unknown's avatar
unknown committed
3419 3420 3421 3422 3423
}


double Field_short::val_real(void)
{
3424
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
3425
  short j;
Sergei Golubchik's avatar
Sergei Golubchik committed
3426
  j=sint2korr(ptr);
unknown's avatar
unknown committed
3427 3428 3429 3430 3431
  return unsigned_flag ? (double) (unsigned short) j : (double) j;
}

longlong Field_short::val_int(void)
{
3432
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
3433
  short j;
Sergei Golubchik's avatar
Sergei Golubchik committed
3434
  j=sint2korr(ptr);
unknown's avatar
unknown committed
3435 3436 3437
  return unsigned_flag ? (longlong) (unsigned short) j : (longlong) j;
}

3438

unknown's avatar
unknown committed
3439 3440 3441
String *Field_short::val_str(String *val_buffer,
			     String *val_ptr __attribute__((unused)))
{
3442
  ASSERT_COLUMN_MARKED_FOR_READ;
3443
  CHARSET_INFO *cs= &my_charset_numeric;
unknown's avatar
unknown committed
3444
  uint length;
3445
  uint mlength=MY_MAX(field_length+1,7*cs->mbmaxlen);
3446
  val_buffer->alloc(mlength);
unknown's avatar
unknown committed
3447 3448
  char *to=(char*) val_buffer->ptr();
  short j;
Sergei Golubchik's avatar
Sergei Golubchik committed
3449
  j=sint2korr(ptr);
unknown's avatar
unknown committed
3450 3451

  if (unsigned_flag)
3452 3453
    length=(uint) cs->cset->long10_to_str(cs, to, mlength, 10, 
					  (long) (uint16) j);
unknown's avatar
unknown committed
3454
  else
3455
    length=(uint) cs->cset->long10_to_str(cs, to, mlength,-10, (long) j);
unknown's avatar
unknown committed
3456 3457 3458
  val_buffer->length(length);
  if (zerofill)
    prepend_zeros(val_buffer);
3459
  val_buffer->set_charset(cs);
unknown's avatar
unknown committed
3460 3461 3462 3463
  return val_buffer;
}


3464 3465 3466 3467 3468 3469
bool Field_short::send_binary(Protocol *protocol)
{
  return protocol->store_short(Field_short::val_int());
}


3470
int Field_short::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
3471 3472
{
  short a,b;
Sergei Golubchik's avatar
Sergei Golubchik committed
3473 3474
  a=sint2korr(a_ptr);
  b=sint2korr(b_ptr);
unknown's avatar
unknown committed
3475 3476 3477 3478 3479 3480 3481

  if (unsigned_flag)
    return ((unsigned short) a < (unsigned short) b) ? -1 :
    ((unsigned short) a > (unsigned short) b) ? 1 : 0;
  return (a < b) ? -1 : (a > b) ? 1 : 0;
}

3482
void Field_short::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
3483
{
Sergei Golubchik's avatar
Sergei Golubchik committed
3484 3485
  if (unsigned_flag)
    to[0] = ptr[1];
unknown's avatar
unknown committed
3486
  else
Sergei Golubchik's avatar
Sergei Golubchik committed
3487 3488
    to[0] = (char) (ptr[1] ^ 128);              /* Revers signbit */
  to[1]   = ptr[0];
unknown's avatar
unknown committed
3489 3490 3491 3492
}

void Field_short::sql_type(String &res) const
{
unknown's avatar
unknown committed
3493
  CHARSET_INFO *cs=res.charset();
3494
  res.length(cs->cset->snprintf(cs,(char*) res.ptr(),res.alloced_length(),
3495
			  "smallint(%d)",(int) field_length));
unknown's avatar
unknown committed
3496 3497 3498 3499 3500
  add_zerofill_and_unsigned(res);
}


/****************************************************************************
3501
  Field type medium int (3 byte)
unknown's avatar
unknown committed
3502 3503
****************************************************************************/

unknown's avatar
unknown committed
3504
int Field_medium::store(const char *from,uint len,CHARSET_INFO *cs)
unknown's avatar
unknown committed
3505
{
3506
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
3507
  int store_tmp;
3508
  int error;
unknown's avatar
unknown committed
3509 3510 3511 3512 3513
  longlong rnd;
  
  error= get_int(cs, from, len, &rnd, UINT_MAX24, INT_MIN24, INT_MAX24);
  store_tmp= unsigned_flag ? (int) (ulonglong) rnd : (int) rnd;
  int3store(ptr, store_tmp);
3514
  return error;
unknown's avatar
unknown committed
3515 3516 3517
}


unknown's avatar
unknown committed
3518
int Field_medium::store(double nr)
unknown's avatar
unknown committed
3519
{
3520
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
3521
  int error= 0;
unknown's avatar
unknown committed
3522 3523 3524 3525 3526 3527
  nr=rint(nr);
  if (unsigned_flag)
  {
    if (nr < 0)
    {
      int3store(ptr,0);
3528
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3529
      error= 1;
unknown's avatar
unknown committed
3530 3531 3532
    }
    else if (nr >= (double) (long) (1L << 24))
    {
unknown's avatar
unknown committed
3533
      uint32 tmp=(uint32) (1L << 24)-1L;
unknown's avatar
unknown committed
3534
      int3store(ptr,tmp);
3535
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3536
      error= 1;
unknown's avatar
unknown committed
3537 3538
    }
    else
unknown's avatar
unknown committed
3539
      int3store(ptr,(uint32) nr);
unknown's avatar
unknown committed
3540 3541 3542 3543 3544 3545 3546
  }
  else
  {
    if (nr < (double) INT_MIN24)
    {
      long tmp=(long) INT_MIN24;
      int3store(ptr,tmp);
3547
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3548
      error= 1;
unknown's avatar
unknown committed
3549 3550 3551 3552 3553
    }
    else if (nr > (double) INT_MAX24)
    {
      long tmp=(long) INT_MAX24;
      int3store(ptr,tmp);
3554
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3555
      error= 1;
unknown's avatar
unknown committed
3556 3557 3558 3559
    }
    else
      int3store(ptr,(long) nr);
  }
3560
  return error;
unknown's avatar
unknown committed
3561 3562
}

3563 3564

int Field_medium::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
3565
{
3566
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
3567
  int error= 0;
3568

unknown's avatar
unknown committed
3569 3570
  if (unsigned_flag)
  {
3571
    if (nr < 0 && !unsigned_val)
unknown's avatar
unknown committed
3572 3573
    {
      int3store(ptr,0);
3574
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3575
      error= 1;
unknown's avatar
unknown committed
3576
    }
3577
    else if ((ulonglong) nr >= (ulonglong) (long) (1L << 24))
unknown's avatar
unknown committed
3578
    {
3579
      long tmp= (long) (1L << 24)-1L;
unknown's avatar
unknown committed
3580
      int3store(ptr,tmp);
3581
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3582
      error= 1;
unknown's avatar
unknown committed
3583 3584
    }
    else
unknown's avatar
unknown committed
3585
      int3store(ptr,(uint32) nr);
unknown's avatar
unknown committed
3586 3587 3588
  }
  else
  {
3589 3590 3591
    if (nr < 0 && unsigned_val)
      nr= (ulonglong) (long) (1L << 24);        // Generate overflow

unknown's avatar
unknown committed
3592 3593
    if (nr < (longlong) INT_MIN24)
    {
3594
      long tmp= (long) INT_MIN24;
unknown's avatar
unknown committed
3595
      int3store(ptr,tmp);
3596
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3597
      error= 1;
unknown's avatar
unknown committed
3598 3599 3600 3601 3602
    }
    else if (nr > (longlong) INT_MAX24)
    {
      long tmp=(long) INT_MAX24;
      int3store(ptr,tmp);
3603
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3604
      error= 1;
unknown's avatar
unknown committed
3605 3606 3607 3608
    }
    else
      int3store(ptr,(long) nr);
  }
3609
  return error;
unknown's avatar
unknown committed
3610 3611 3612 3613 3614
}


double Field_medium::val_real(void)
{
3615
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
3616 3617 3618 3619
  long j= unsigned_flag ? (long) uint3korr(ptr) : sint3korr(ptr);
  return (double) j;
}

3620

unknown's avatar
unknown committed
3621 3622
longlong Field_medium::val_int(void)
{
3623
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
3624 3625 3626 3627
  long j= unsigned_flag ? (long) uint3korr(ptr) : sint3korr(ptr);
  return (longlong) j;
}

3628

unknown's avatar
unknown committed
3629 3630 3631
String *Field_medium::val_str(String *val_buffer,
			      String *val_ptr __attribute__((unused)))
{
3632
  ASSERT_COLUMN_MARKED_FOR_READ;
3633
  CHARSET_INFO *cs= &my_charset_numeric;
unknown's avatar
unknown committed
3634
  uint length;
3635
  uint mlength=MY_MAX(field_length+1,10*cs->mbmaxlen);
3636
  val_buffer->alloc(mlength);
unknown's avatar
unknown committed
3637 3638 3639
  char *to=(char*) val_buffer->ptr();
  long j= unsigned_flag ? (long) uint3korr(ptr) : sint3korr(ptr);

3640
  length=(uint) cs->cset->long10_to_str(cs,to,mlength,-10,j);
unknown's avatar
unknown committed
3641 3642 3643
  val_buffer->length(length);
  if (zerofill)
    prepend_zeros(val_buffer); /* purecov: inspected */
3644
  val_buffer->set_charset(cs);
unknown's avatar
unknown committed
3645 3646 3647 3648
  return val_buffer;
}


3649 3650
bool Field_medium::send_binary(Protocol *protocol)
{
3651
  ASSERT_COLUMN_MARKED_FOR_READ;
3652 3653 3654 3655
  return protocol->store_long(Field_medium::val_int());
}


3656
int Field_medium::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
3657 3658 3659 3660 3661 3662 3663 3664 3665 3666 3667 3668 3669 3670 3671
{
  long a,b;
  if (unsigned_flag)
  {
    a=uint3korr(a_ptr);
    b=uint3korr(b_ptr);
  }
  else
  {
    a=sint3korr(a_ptr);
    b=sint3korr(b_ptr);
  }
  return (a < b) ? -1 : (a > b) ? 1 : 0;
}

3672
void Field_medium::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
3673 3674 3675 3676 3677 3678 3679 3680 3681 3682 3683 3684
{
  if (unsigned_flag)
    to[0] = ptr[2];
  else
    to[0] = (uchar) (ptr[2] ^ 128);		/* Revers signbit */
  to[1] = ptr[1];
  to[2] = ptr[0];
}


void Field_medium::sql_type(String &res) const
{
unknown's avatar
unknown committed
3685
  CHARSET_INFO *cs=res.charset();
3686
  res.length(cs->cset->snprintf(cs,(char*) res.ptr(),res.alloced_length(), 
3687
			  "mediumint(%d)",(int) field_length));
unknown's avatar
unknown committed
3688 3689 3690 3691 3692 3693 3694
  add_zerofill_and_unsigned(res);
}

/****************************************************************************
** long int
****************************************************************************/

unknown's avatar
unknown committed
3695
int Field_long::store(const char *from,uint len,CHARSET_INFO *cs)
unknown's avatar
unknown committed
3696
{
3697
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
3698 3699
  long store_tmp;
  int error;
unknown's avatar
unknown committed
3700 3701 3702 3703
  longlong rnd;
  
  error= get_int(cs, from, len, &rnd, UINT_MAX32, INT_MIN32, INT_MAX32);
  store_tmp= unsigned_flag ? (long) (ulonglong) rnd : (long) rnd;
Sergei Golubchik's avatar
Sergei Golubchik committed
3704
  int4store(ptr, store_tmp);
3705
  return error;
unknown's avatar
unknown committed
3706 3707 3708
}


unknown's avatar
unknown committed
3709
int Field_long::store(double nr)
unknown's avatar
unknown committed
3710
{
3711
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
3712
  int error= 0;
unknown's avatar
unknown committed
3713 3714 3715 3716 3717 3718 3719
  int32 res;
  nr=rint(nr);
  if (unsigned_flag)
  {
    if (nr < 0)
    {
      res=0;
unknown's avatar
unknown committed
3720
      error= 1;
unknown's avatar
unknown committed
3721
    }
3722
    else if (nr > (double) UINT_MAX32)
unknown's avatar
unknown committed
3723
    {
3724
      res= UINT_MAX32;
3725
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3726
      error= 1;
unknown's avatar
unknown committed
3727 3728 3729 3730 3731 3732 3733 3734 3735
    }
    else
      res=(int32) (ulong) nr;
  }
  else
  {
    if (nr < (double) INT_MIN32)
    {
      res=(int32) INT_MIN32;
unknown's avatar
unknown committed
3736
      error= 1;
unknown's avatar
unknown committed
3737 3738 3739 3740
    }
    else if (nr > (double) INT_MAX32)
    {
      res=(int32) INT_MAX32;
unknown's avatar
unknown committed
3741
      error= 1;
unknown's avatar
unknown committed
3742 3743
    }
    else
unknown's avatar
unknown committed
3744
      res=(int32) (longlong) nr;
unknown's avatar
unknown committed
3745
  }
unknown's avatar
unknown committed
3746
  if (error)
3747
    set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3748

Sergei Golubchik's avatar
Sergei Golubchik committed
3749
  int4store(ptr,res);
3750
  return error;
unknown's avatar
unknown committed
3751 3752 3753
}


3754
int Field_long::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
3755
{
3756
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
3757
  int error= 0;
unknown's avatar
unknown committed
3758
  int32 res;
unknown's avatar
unknown committed
3759

unknown's avatar
unknown committed
3760 3761
  if (unsigned_flag)
  {
3762
    if (nr < 0 && !unsigned_val)
unknown's avatar
unknown committed
3763 3764
    {
      res=0;
unknown's avatar
unknown committed
3765
      error= 1;
unknown's avatar
unknown committed
3766
    }
3767
    else if ((ulonglong) nr >= (1LL << 32))
unknown's avatar
unknown committed
3768 3769
    {
      res=(int32) (uint32) ~0L;
unknown's avatar
unknown committed
3770
      error= 1;
unknown's avatar
unknown committed
3771 3772 3773 3774 3775 3776
    }
    else
      res=(int32) (uint32) nr;
  }
  else
  {
3777
    if (nr < 0 && unsigned_val)
3778
      nr= ((longlong) INT_MAX32) + 1;           // Generate overflow
3779
    if (nr < (longlong) INT_MIN32) 
unknown's avatar
unknown committed
3780 3781
    {
      res=(int32) INT_MIN32;
unknown's avatar
unknown committed
3782
      error= 1;
unknown's avatar
unknown committed
3783 3784 3785 3786
    }
    else if (nr > (longlong) INT_MAX32)
    {
      res=(int32) INT_MAX32;
unknown's avatar
unknown committed
3787
      error= 1;
unknown's avatar
unknown committed
3788 3789 3790 3791
    }
    else
      res=(int32) nr;
  }
unknown's avatar
unknown committed
3792
  if (error)
3793
    set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3794

Sergei Golubchik's avatar
Sergei Golubchik committed
3795
  int4store(ptr,res);
3796
  return error;
unknown's avatar
unknown committed
3797 3798 3799 3800 3801
}


double Field_long::val_real(void)
{
3802
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
3803
  int32 j;
Sergei Golubchik's avatar
Sergei Golubchik committed
3804
  j=sint4korr(ptr);
unknown's avatar
unknown committed
3805 3806 3807 3808 3809
  return unsigned_flag ? (double) (uint32) j : (double) j;
}

longlong Field_long::val_int(void)
{
3810
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
3811
  int32 j;
3812
  /* See the comment in Field_long::store(long long) */
3813
  DBUG_ASSERT(!table || table->in_use == current_thd);
Sergei Golubchik's avatar
Sergei Golubchik committed
3814
  j=sint4korr(ptr);
unknown's avatar
unknown committed
3815 3816 3817 3818 3819 3820
  return unsigned_flag ? (longlong) (uint32) j : (longlong) j;
}

String *Field_long::val_str(String *val_buffer,
			    String *val_ptr __attribute__((unused)))
{
3821
  ASSERT_COLUMN_MARKED_FOR_READ;
3822
  CHARSET_INFO *cs= &my_charset_numeric;
unknown's avatar
unknown committed
3823
  uint length;
3824
  uint mlength=MY_MAX(field_length+1,12*cs->mbmaxlen);
3825
  val_buffer->alloc(mlength);
unknown's avatar
unknown committed
3826 3827
  char *to=(char*) val_buffer->ptr();
  int32 j;
Sergei Golubchik's avatar
Sergei Golubchik committed
3828
  j=sint4korr(ptr);
unknown's avatar
unknown committed
3829

3830
  if (unsigned_flag)
3831
    length=cs->cset->long10_to_str(cs,to,mlength, 10,(long) (uint32)j);
3832
  else
3833
    length=cs->cset->long10_to_str(cs,to,mlength,-10,(long) j);
unknown's avatar
unknown committed
3834 3835 3836
  val_buffer->length(length);
  if (zerofill)
    prepend_zeros(val_buffer);
3837
  val_buffer->set_charset(cs);
unknown's avatar
unknown committed
3838 3839 3840 3841
  return val_buffer;
}


3842 3843
bool Field_long::send_binary(Protocol *protocol)
{
3844
  ASSERT_COLUMN_MARKED_FOR_READ;
3845 3846 3847
  return protocol->store_long(Field_long::val_int());
}

3848
int Field_long::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
3849 3850
{
  int32 a,b;
Sergei Golubchik's avatar
Sergei Golubchik committed
3851 3852
  a=sint4korr(a_ptr);
  b=sint4korr(b_ptr);
unknown's avatar
unknown committed
3853
  if (unsigned_flag)
unknown's avatar
unknown committed
3854
    return ((uint32) a < (uint32) b) ? -1 : ((uint32) a > (uint32) b) ? 1 : 0;
unknown's avatar
unknown committed
3855 3856 3857
  return (a < b) ? -1 : (a > b) ? 1 : 0;
}

3858
void Field_long::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
3859
{
Sergei Golubchik's avatar
Sergei Golubchik committed
3860 3861
  if (unsigned_flag)
    to[0] = ptr[3];
unknown's avatar
unknown committed
3862
  else
Sergei Golubchik's avatar
Sergei Golubchik committed
3863 3864 3865 3866
    to[0] = (char) (ptr[3] ^ 128);              /* Revers signbit */
  to[1]   = ptr[2];
  to[2]   = ptr[1];
  to[3]   = ptr[0];
unknown's avatar
unknown committed
3867 3868 3869 3870 3871
}


void Field_long::sql_type(String &res) const
{
unknown's avatar
unknown committed
3872
  CHARSET_INFO *cs=res.charset();
3873
  res.length(cs->cset->snprintf(cs,(char*) res.ptr(),res.alloced_length(),
3874
			  "int(%d)",(int) field_length));
unknown's avatar
unknown committed
3875 3876 3877 3878
  add_zerofill_and_unsigned(res);
}

/****************************************************************************
3879
 Field type longlong int (8 bytes)
unknown's avatar
unknown committed
3880 3881
****************************************************************************/

unknown's avatar
unknown committed
3882
int Field_longlong::store(const char *from,uint len,CHARSET_INFO *cs)
unknown's avatar
unknown committed
3883
{
3884
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
3885
  int error= 0;
3886
  char *end;
3887
  ulonglong tmp;
3888

3889 3890
  tmp= cs->cset->strntoull10rnd(cs,from,len,unsigned_flag,&end,&error);
  if (error == MY_ERRNO_ERANGE)
3891
  {
3892
    set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
3893 3894
    error= 1;
  }
3895
  else if (get_thd()->count_cuted_fields && 
unknown's avatar
unknown committed
3896
           check_int(cs, from, len, end, error))
3897 3898 3899
    error= 1;
  else
    error= 0;
Sergei Golubchik's avatar
Sergei Golubchik committed
3900
  int8store(ptr,tmp);
3901
  return error;
unknown's avatar
unknown committed
3902 3903 3904
}


unknown's avatar
unknown committed
3905
int Field_longlong::store(double nr)
unknown's avatar
unknown committed
3906
{
3907
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
3908
  bool error;
unknown's avatar
unknown committed
3909
  longlong res;
unknown's avatar
unknown committed
3910

3911 3912
  res= double_to_longlong(nr, unsigned_flag, &error);

unknown's avatar
unknown committed
3913
  if (error)
3914
    set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
3915

Sergei Golubchik's avatar
Sergei Golubchik committed
3916
  int8store(ptr,res);
3917
  return error;
unknown's avatar
unknown committed
3918 3919 3920
}


3921
int Field_longlong::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
3922
{
3923
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
3924 3925 3926 3927 3928 3929 3930 3931 3932 3933 3934
  int error= 0;

  if (nr < 0)                                   // Only possible error
  {
    /*
      if field is unsigned and value is signed (< 0) or
      if field is signed and value is unsigned we have an overflow
    */
    if (unsigned_flag != unsigned_val)
    {
      nr= unsigned_flag ? (ulonglong) 0 : (ulonglong) LONGLONG_MAX;
3935
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
3936 3937 3938 3939
      error= 1;
    }
  }

Sergei Golubchik's avatar
Sergei Golubchik committed
3940
  int8store(ptr,nr);
3941
  return error;
unknown's avatar
unknown committed
3942 3943 3944 3945 3946
}


double Field_longlong::val_real(void)
{
3947
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
3948
  longlong j;
Sergei Golubchik's avatar
Sergei Golubchik committed
3949
  j=sint8korr(ptr);
3950 3951 3952 3953 3954 3955 3956
  /* The following is open coded to avoid a bug in gcc 3.3 */
  if (unsigned_flag)
  {
    ulonglong tmp= (ulonglong) j;
    return ulonglong2double(tmp);
  }
  return (double) j;
unknown's avatar
unknown committed
3957 3958
}

3959

unknown's avatar
unknown committed
3960 3961
longlong Field_longlong::val_int(void)
{
3962
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
3963
  longlong j;
Sergei Golubchik's avatar
Sergei Golubchik committed
3964
  j=sint8korr(ptr);
unknown's avatar
unknown committed
3965 3966 3967 3968 3969 3970 3971
  return j;
}


String *Field_longlong::val_str(String *val_buffer,
				String *val_ptr __attribute__((unused)))
{
3972
  CHARSET_INFO *cs= &my_charset_numeric;
unknown's avatar
unknown committed
3973
  uint length;
3974
  uint mlength=MY_MAX(field_length+1,22*cs->mbmaxlen);
3975
  val_buffer->alloc(mlength);
unknown's avatar
unknown committed
3976 3977
  char *to=(char*) val_buffer->ptr();
  longlong j;
Sergei Golubchik's avatar
Sergei Golubchik committed
3978
  j=sint8korr(ptr);
unknown's avatar
unknown committed
3979

3980
  length=(uint) (cs->cset->longlong10_to_str)(cs,to,mlength,
unknown's avatar
unknown committed
3981
					unsigned_flag ? 10 : -10, j);
unknown's avatar
unknown committed
3982 3983 3984
  val_buffer->length(length);
  if (zerofill)
    prepend_zeros(val_buffer);
3985
  val_buffer->set_charset(cs);
unknown's avatar
unknown committed
3986 3987 3988 3989
  return val_buffer;
}


3990 3991
bool Field_longlong::send_binary(Protocol *protocol)
{
3992
  ASSERT_COLUMN_MARKED_FOR_READ;
3993 3994 3995 3996
  return protocol->store_longlong(Field_longlong::val_int(), unsigned_flag);
}


3997
int Field_longlong::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
3998 3999
{
  longlong a,b;
Sergei Golubchik's avatar
Sergei Golubchik committed
4000 4001
  a=sint8korr(a_ptr);
  b=sint8korr(b_ptr);
unknown's avatar
unknown committed
4002 4003 4004 4005 4006 4007
  if (unsigned_flag)
    return ((ulonglong) a < (ulonglong) b) ? -1 :
    ((ulonglong) a > (ulonglong) b) ? 1 : 0;
  return (a < b) ? -1 : (a > b) ? 1 : 0;
}

4008
void Field_longlong::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
4009
{
Sergei Golubchik's avatar
Sergei Golubchik committed
4010 4011
  if (unsigned_flag)
    to[0] = ptr[7];
unknown's avatar
unknown committed
4012
  else
Sergei Golubchik's avatar
Sergei Golubchik committed
4013 4014 4015 4016 4017 4018 4019 4020
    to[0] = (char) (ptr[7] ^ 128);		/* Revers signbit */
  to[1]   = ptr[6];
  to[2]   = ptr[5];
  to[3]   = ptr[4];
  to[4]   = ptr[3];
  to[5]   = ptr[2];
  to[6]   = ptr[1];
  to[7]   = ptr[0];
unknown's avatar
unknown committed
4021 4022 4023 4024 4025
}


void Field_longlong::sql_type(String &res) const
{
unknown's avatar
unknown committed
4026
  CHARSET_INFO *cs=res.charset();
4027
  res.length(cs->cset->snprintf(cs,(char*) res.ptr(),res.alloced_length(),
4028
			  "bigint(%d)",(int) field_length));
unknown's avatar
unknown committed
4029 4030 4031
  add_zerofill_and_unsigned(res);
}

unknown's avatar
unknown committed
4032

4033 4034 4035 4036
/*
  Floating-point numbers
 */

unknown's avatar
unknown committed
4037
/****************************************************************************
unknown's avatar
unknown committed
4038
  single precision float
unknown's avatar
unknown committed
4039 4040
****************************************************************************/

unknown's avatar
unknown committed
4041
int Field_float::store(const char *from,uint len,CHARSET_INFO *cs)
unknown's avatar
unknown committed
4042
{
unknown's avatar
unknown committed
4043
  int error;
4044
  char *end;
unknown's avatar
unknown committed
4045
  double nr= my_strntod(cs,(char*) from,len,&end,&error);
4046
  if (error || (!len || ((uint) (end-from) != len &&
4047
                         get_thd()->count_cuted_fields)))
4048
  {
4049
    set_warning(Sql_condition::WARN_LEVEL_WARN,
4050
                (error ? ER_WARN_DATA_OUT_OF_RANGE : WARN_DATA_TRUNCATED), 1);
unknown's avatar
unknown committed
4051
    error= error ? 1 : 2;
4052
  }
unknown's avatar
unknown committed
4053 4054
  Field_float::store(nr);
  return error;
unknown's avatar
unknown committed
4055 4056 4057
}


unknown's avatar
unknown committed
4058
int Field_float::store(double nr)
unknown's avatar
unknown committed
4059
{
4060
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
4061 4062 4063 4064
  int error= truncate_double(&nr, field_length,
                             not_fixed ? NOT_FIXED_DEC : dec,
                             unsigned_flag, FLT_MAX);
  if (error)
unknown's avatar
unknown committed
4065
  {
4066
    set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
4067 4068 4069 4070 4071
    if (error < 0)                                // Wrong double value
    {
      error= 1;
      set_null();
    }
unknown's avatar
unknown committed
4072
  }
4073
  float j= (float)nr;
4074

Sergei Golubchik's avatar
Sergei Golubchik committed
4075
  float4store(ptr,j);
4076
  return error;
unknown's avatar
unknown committed
4077 4078 4079
}


4080
int Field_float::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
4081
{
4082 4083
  return Field_float::store(unsigned_val ? ulonglong2double((ulonglong) nr) :
                            (double) nr);
unknown's avatar
unknown committed
4084 4085
}

4086

unknown's avatar
unknown committed
4087 4088
double Field_float::val_real(void)
{
4089
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
4090
  float j;
Sergei Golubchik's avatar
Sergei Golubchik committed
4091
  float4get(j,ptr);
unknown's avatar
unknown committed
4092 4093 4094 4095 4096 4097
  return ((double) j);
}

longlong Field_float::val_int(void)
{
  float j;
Sergei Golubchik's avatar
Sergei Golubchik committed
4098
  float4get(j,ptr);
4099
  return (longlong) rint(j);
unknown's avatar
unknown committed
4100 4101 4102 4103 4104 4105
}


String *Field_float::val_str(String *val_buffer,
			     String *val_ptr __attribute__((unused)))
{
4106
  ASSERT_COLUMN_MARKED_FOR_READ;
4107
  DBUG_ASSERT(!zerofill || field_length <= MAX_FIELD_CHARLENGTH);
unknown's avatar
unknown committed
4108
  float nr;
Sergei Golubchik's avatar
Sergei Golubchik committed
4109
  float4get(nr,ptr);
unknown's avatar
unknown committed
4110

4111 4112 4113 4114 4115 4116 4117
  uint to_length= 70;
  if (val_buffer->alloc(to_length))
  {
    my_error(ER_OUT_OF_RESOURCES, MYF(0));
    return val_buffer;
  }

unknown's avatar
unknown committed
4118
  char *to=(char*) val_buffer->ptr();
4119
  size_t len;
unknown's avatar
unknown committed
4120 4121

  if (dec >= NOT_FIXED_DEC)
4122
    len= my_gcvt(nr, MY_GCVT_ARG_FLOAT, to_length - 1, to, NULL);
unknown's avatar
unknown committed
4123 4124
  else
  {
4125
    /*
4126
      We are safe here because the buffer length is 70, and
4127 4128 4129 4130
      fabs(float) < 10^39, dec < NOT_FIXED_DEC. So the resulting string
      will be not longer than 69 chars + terminating '\0'.
    */
    len= my_fcvt(nr, dec, to, NULL);
unknown's avatar
unknown committed
4131
  }
4132
  val_buffer->length((uint) len);
unknown's avatar
unknown committed
4133 4134
  if (zerofill)
    prepend_zeros(val_buffer);
4135
  val_buffer->set_charset(&my_charset_numeric);
unknown's avatar
unknown committed
4136 4137 4138 4139
  return val_buffer;
}


4140
int Field_float::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
4141 4142
{
  float a,b;
Sergei Golubchik's avatar
Sergei Golubchik committed
4143 4144
  float4get(a,a_ptr);
  float4get(b,b_ptr);
unknown's avatar
unknown committed
4145 4146 4147 4148 4149
  return (a < b) ? -1 : (a > b) ? 1 : 0;
}

#define FLT_EXP_DIG (sizeof(float)*8-FLT_MANT_DIG)

4150
void Field_float::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
4151 4152
{
  float nr;
Sergei Golubchik's avatar
Sergei Golubchik committed
4153
  float4get(nr,ptr);
unknown's avatar
unknown committed
4154

4155
  uchar *tmp= to;
unknown's avatar
unknown committed
4156 4157 4158 4159 4160 4161 4162 4163
  if (nr == (float) 0.0)
  {						/* Change to zero string */
    tmp[0]=(uchar) 128;
    bzero((char*) tmp+1,sizeof(nr)-1);
  }
  else
  {
#ifdef WORDS_BIGENDIAN
4164
    memcpy(tmp, &nr, sizeof(nr));
unknown's avatar
unknown committed
4165 4166 4167 4168 4169 4170 4171
#else
    tmp[0]= ptr[3]; tmp[1]=ptr[2]; tmp[2]= ptr[1]; tmp[3]=ptr[0];
#endif
    if (tmp[0] & 128)				/* Negative */
    {						/* make complement */
      uint i;
      for (i=0 ; i < sizeof(nr); i++)
unknown's avatar
unknown committed
4172
	tmp[i]= (uchar) (tmp[i] ^ (uchar) 255);
unknown's avatar
unknown committed
4173 4174 4175 4176 4177 4178 4179 4180 4181 4182 4183 4184 4185
    }
    else
    {
      ushort exp_part=(((ushort) tmp[0] << 8) | (ushort) tmp[1] |
		       (ushort) 32768);
      exp_part+= (ushort) 1 << (16-1-FLT_EXP_DIG);
      tmp[0]= (uchar) (exp_part >> 8);
      tmp[1]= (uchar) exp_part;
    }
  }
}


4186 4187
bool Field_float::send_binary(Protocol *protocol)
{
4188
  ASSERT_COLUMN_MARKED_FOR_READ;
4189 4190 4191 4192
  return protocol->store((float) Field_float::val_real(), dec, (String*) 0);
}


4193 4194 4195 4196 4197 4198 4199 4200 4201 4202 4203 4204 4205 4206 4207 4208
/**
   Save the field metadata for float fields.

   Saves the pack length in the first byte.

   @param   metadata_ptr   First byte of field metadata

   @returns number of bytes written to metadata_ptr
*/
int Field_float::do_save_field_metadata(uchar *metadata_ptr)
{
  *metadata_ptr= pack_length();
  return 1;
}


unknown's avatar
unknown committed
4209 4210 4211
void Field_float::sql_type(String &res) const
{
  if (dec == NOT_FIXED_DEC)
4212
  {
4213
    res.set_ascii(STRING_WITH_LEN("float"));
4214
  }
unknown's avatar
unknown committed
4215
  else
4216
  {
4217
    CHARSET_INFO *cs= res.charset();
4218
    res.length(cs->cset->snprintf(cs,(char*) res.ptr(),res.alloced_length(),
4219
			    "float(%d,%d)",(int) field_length,dec));
4220
  }
unknown's avatar
unknown committed
4221 4222 4223
  add_zerofill_and_unsigned(res);
}

unknown's avatar
unknown committed
4224

unknown's avatar
unknown committed
4225
/****************************************************************************
unknown's avatar
unknown committed
4226
  double precision floating point numbers
unknown's avatar
unknown committed
4227 4228
****************************************************************************/

unknown's avatar
unknown committed
4229
int Field_double::store(const char *from,uint len,CHARSET_INFO *cs)
unknown's avatar
unknown committed
4230
{
unknown's avatar
unknown committed
4231
  int error;
4232
  char *end;
unknown's avatar
unknown committed
4233
  double nr= my_strntod(cs,(char*) from, len, &end, &error);
4234
  if (error || (!len || ((uint) (end-from) != len &&
4235
                         get_thd()->count_cuted_fields)))
unknown's avatar
unknown committed
4236
  {
4237
    set_warning(Sql_condition::WARN_LEVEL_WARN,
4238
                (error ? ER_WARN_DATA_OUT_OF_RANGE : WARN_DATA_TRUNCATED), 1);
unknown's avatar
unknown committed
4239
    error= error ? 1 : 2;
unknown's avatar
unknown committed
4240
  }
unknown's avatar
unknown committed
4241 4242
  Field_double::store(nr);
  return error;
unknown's avatar
unknown committed
4243 4244 4245
}


unknown's avatar
unknown committed
4246
int Field_double::store(double nr)
unknown's avatar
unknown committed
4247
{
4248
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
4249 4250 4251 4252
  int error= truncate_double(&nr, field_length,
                             not_fixed ? NOT_FIXED_DEC : dec,
                             unsigned_flag, DBL_MAX);
  if (error)
unknown's avatar
unknown committed
4253
  {
4254
    set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
4255 4256 4257 4258 4259
    if (error < 0)                                // Wrong double value
    {
      error= 1;
      set_null();
    }
unknown's avatar
unknown committed
4260
  }
4261

Sergei Golubchik's avatar
Sergei Golubchik committed
4262
  float8store(ptr,nr);
4263
  return error;
unknown's avatar
unknown committed
4264 4265 4266
}


4267
int Field_double::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
4268
{
4269 4270
  return Field_double::store(unsigned_val ? ulonglong2double((ulonglong) nr) :
                             (double) nr);
unknown's avatar
unknown committed
4271 4272
}

4273 4274 4275 4276
/*
  If a field has fixed length, truncate the double argument pointed to by 'nr'
  appropriately.
  Also ensure that the argument is within [-max_value; max_value] range.
4277 4278 4279 4280 4281

  return
    0   ok
    -1  Illegal double value
    1   Value was truncated
4282 4283
*/

4284 4285
int truncate_double(double *nr, uint field_length, uint dec,
                    bool unsigned_flag, double max_value)
4286
{
4287
  int error= 0;
4288 4289 4290 4291
  double res= *nr;
  
  if (isnan(res))
  {
4292 4293
    *nr= 0;
    return -1;
4294 4295 4296
  }
  else if (unsigned_flag && res < 0)
  {
4297 4298
    *nr= 0;
    return 1;
4299 4300
  }

4301
  if (dec < NOT_FIXED_DEC)
4302 4303 4304 4305 4306 4307 4308 4309 4310
  {
    uint order= field_length - dec;
    uint step= array_elements(log_10) - 1;
    max_value= 1.0;
    for (; order > step; order-= step)
      max_value*= log_10[step];
    max_value*= log_10[order];
    max_value-= 1.0 / log_10[dec];

4311 4312 4313 4314 4315 4316
    /* Check for infinity so we don't get NaN in calculations */
    if (!my_isinf(res))
    {
      double tmp= rint((res - floor(res)) * log_10[dec]) / log_10[dec];
      res= floor(res) + tmp;
    }
4317 4318 4319 4320
  }
  
  if (res < -max_value)
  {
4321 4322
    res= -max_value;
    error= 1;
4323 4324 4325 4326
  }
  else if (res > max_value)
  {
    res= max_value;
4327
    error= 1;
4328 4329 4330 4331 4332 4333
  }

  *nr= res;
  return error;
}

4334 4335 4336 4337 4338 4339 4340 4341 4342 4343 4344 4345 4346 4347 4348 4349 4350 4351 4352 4353 4354 4355 4356 4357 4358 4359 4360 4361 4362 4363 4364 4365 4366 4367 4368 4369 4370 4371 4372 4373 4374 4375 4376 4377 4378 4379 4380 4381 4382 4383 4384
/*
  Convert double to longlong / ulonglong.
  If double is outside of range, adjust return value and set error.

  SYNOPSIS
  double_to_longlong()
  nr	  	 Number to convert
  unsigned_flag  1 if result is unsigned
  error		 Will be set to 1 in case of overflow.
*/

longlong double_to_longlong(double nr, bool unsigned_flag, bool *error)
{
  longlong res;

  *error= 0;

  nr= rint(nr);
  if (unsigned_flag)
  {
    if (nr < 0)
    {
      res= 0;
      *error= 1;
    }
    else if (nr >= (double) ULONGLONG_MAX)
    {
      res= ~(longlong) 0;
      *error= 1;
    }
    else
      res= (longlong) double2ulonglong(nr);
  }
  else
  {
    if (nr <= (double) LONGLONG_MIN)
    {
      res= LONGLONG_MIN;
      *error= (nr < (double) LONGLONG_MIN);
    }
    else if (nr >= (double) (ulonglong) LONGLONG_MAX)
    {
      res= LONGLONG_MAX;
      *error= (nr > (double) LONGLONG_MAX);
    }
    else
      res= (longlong) nr;
  }
  return res;
}

4385

unknown's avatar
unknown committed
4386 4387 4388 4389 4390 4391
int Field_real::store_decimal(const my_decimal *dm)
{
  double dbl;
  my_decimal2double(E_DEC_FATAL_ERROR, dm, &dbl);
  return store(dbl);
}
unknown's avatar
unknown committed
4392

4393 4394 4395 4396 4397 4398
int Field_real::store_time_dec(MYSQL_TIME *ltime, uint dec)
{
  return store(TIME_to_double(ltime));
}


unknown's avatar
unknown committed
4399 4400
double Field_double::val_real(void)
{
4401
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
4402
  double j;
Sergei Golubchik's avatar
Sergei Golubchik committed
4403
  float8get(j,ptr);
unknown's avatar
unknown committed
4404 4405 4406 4407 4408
  return j;
}

longlong Field_double::val_int(void)
{
4409
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
4410
  double j;
unknown's avatar
unknown committed
4411
  longlong res;
4412
  bool error;
Sergei Golubchik's avatar
Sergei Golubchik committed
4413
  float8get(j,ptr);
unknown's avatar
unknown committed
4414

4415 4416
  res= double_to_longlong(j, 0, &error);
  if (error)
unknown's avatar
unknown committed
4417
  {
Sergei Golubchik's avatar
Sergei Golubchik committed
4418
    ErrConvDouble err(j);
4419
    push_warning_printf(current_thd, Sql_condition::WARN_LEVEL_WARN,
unknown's avatar
unknown committed
4420 4421
                        ER_TRUNCATED_WRONG_VALUE,
                        ER(ER_TRUNCATED_WRONG_VALUE), "INTEGER",
4422
                        err.ptr());
unknown's avatar
unknown committed
4423 4424
  }
  return res;
unknown's avatar
unknown committed
4425 4426 4427
}


unknown's avatar
unknown committed
4428 4429
my_decimal *Field_real::val_decimal(my_decimal *decimal_value)
{
4430
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
4431 4432 4433 4434 4435
  double2my_decimal(E_DEC_FATAL_ERROR, val_real(), decimal_value);
  return decimal_value;
}


4436
bool Field_real::get_date(MYSQL_TIME *ltime,ulonglong fuzzydate)
4437 4438 4439
{
  ASSERT_COLUMN_MARKED_FOR_READ;
  double nr= val_real();
Sergei Golubchik's avatar
Sergei Golubchik committed
4440
  return double_to_datetime_with_warn(nr, ltime, fuzzydate, field_name);
4441 4442 4443
}


unknown's avatar
unknown committed
4444 4445 4446
String *Field_double::val_str(String *val_buffer,
			      String *val_ptr __attribute__((unused)))
{
4447
  ASSERT_COLUMN_MARKED_FOR_READ;
4448
  DBUG_ASSERT(!zerofill || field_length <= MAX_FIELD_CHARLENGTH);
unknown's avatar
unknown committed
4449
  double nr;
Sergei Golubchik's avatar
Sergei Golubchik committed
4450
  float8get(nr,ptr);
unknown's avatar
unknown committed
4451

4452 4453 4454 4455 4456 4457
  uint to_length= DOUBLE_TO_STRING_CONVERSION_BUFFER_SIZE;
  if (val_buffer->alloc(to_length))
  {
    my_error(ER_OUT_OF_RESOURCES, MYF(0));
    return val_buffer;
  }
unknown's avatar
unknown committed
4458 4459

  char *to=(char*) val_buffer->ptr();
4460
  size_t len;
unknown's avatar
unknown committed
4461 4462

  if (dec >= NOT_FIXED_DEC)
4463
    len= my_gcvt(nr, MY_GCVT_ARG_DOUBLE, to_length - 1, to, NULL);
unknown's avatar
unknown committed
4464
  else
4465
    len= my_fcvt(nr, dec, to, NULL);
unknown's avatar
unknown committed
4466

4467
  val_buffer->length((uint) len);
unknown's avatar
unknown committed
4468 4469
  if (zerofill)
    prepend_zeros(val_buffer);
4470
  val_buffer->set_charset(&my_charset_numeric);
unknown's avatar
unknown committed
4471 4472 4473
  return val_buffer;
}

4474 4475
bool Field_double::send_binary(Protocol *protocol)
{
unknown's avatar
unknown committed
4476
  return protocol->store((double) Field_double::val_real(), dec, (String*) 0);
4477 4478
}

unknown's avatar
unknown committed
4479

4480
int Field_double::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
4481 4482
{
  double a,b;
Sergei Golubchik's avatar
Sergei Golubchik committed
4483 4484
  float8get(a,a_ptr);
  float8get(b,b_ptr);
unknown's avatar
unknown committed
4485 4486 4487 4488 4489 4490 4491 4492
  return (a < b) ? -1 : (a > b) ? 1 : 0;
}


#define DBL_EXP_DIG (sizeof(double)*8-DBL_MANT_DIG)

/* The following should work for IEEE */

4493
void Field_double::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
4494 4495
{
  double nr;
Sergei Golubchik's avatar
Sergei Golubchik committed
4496
  float8get(nr,ptr);
4497
  change_double_for_sort(nr, to);
unknown's avatar
unknown committed
4498 4499 4500
}


4501 4502 4503 4504 4505 4506 4507 4508 4509 4510 4511 4512 4513 4514 4515 4516 4517
/**
   Save the field metadata for double fields.

   Saves the pack length in the first byte of the field metadata array
   at index of *metadata_ptr.

   @param   metadata_ptr   First byte of field metadata

   @returns number of bytes written to metadata_ptr
*/
int Field_double::do_save_field_metadata(uchar *metadata_ptr)
{
  *metadata_ptr= pack_length();
  return 1;
}


unknown's avatar
unknown committed
4518 4519
void Field_double::sql_type(String &res) const
{
unknown's avatar
unknown committed
4520
  CHARSET_INFO *cs=res.charset();
unknown's avatar
unknown committed
4521
  if (dec == NOT_FIXED_DEC)
4522
  {
4523
    res.set_ascii(STRING_WITH_LEN("double"));
4524
  }
unknown's avatar
unknown committed
4525
  else
4526
  {
4527
    res.length(cs->cset->snprintf(cs,(char*) res.ptr(),res.alloced_length(),
4528
			    "double(%d,%d)",(int) field_length,dec));
4529
  }
unknown's avatar
unknown committed
4530 4531 4532 4533
  add_zerofill_and_unsigned(res);
}


4534 4535
/**
  TIMESTAMP type holds datetime values in range from 1970-01-01 00:00:01 UTC to 
4536 4537 4538 4539
  2038-01-01 00:00:00 UTC stored as number of seconds since Unix 
  Epoch in UTC.
  
  Actually SQL-99 says that we should allow niladic functions (like NOW())
4540 4541 4542
  as defaults for any field. The current limitation (only NOW() and only 
  for TIMESTAMP and DATETIME fields) are because of restricted binary .frm
  format and should go away in the future.
4543 4544 4545 4546 4547 4548 4549 4550
  
  Also because of this limitation of binary .frm format we use 5 different
  unireg_check values with TIMESTAMP field to distinguish various cases of
  DEFAULT or ON UPDATE values. These values are:
  
  TIMESTAMP_OLD_FIELD - old timestamp, if there was not any fields with
    auto-set-on-update (or now() as default) in this table before, then this 
    field has NOW() as default and is updated when row changes, else it is 
unknown's avatar
unknown committed
4551
    field which has 0 as default value and is not automatically updated.
4552 4553 4554 4555 4556 4557 4558 4559 4560 4561
  TIMESTAMP_DN_FIELD - field with NOW() as default but not set on update
    automatically (TIMESTAMP DEFAULT NOW())
  TIMESTAMP_UN_FIELD - field which is set on update automatically but has not 
    NOW() as default (but it may has 0 or some other const timestamp as 
    default) (TIMESTAMP ON UPDATE NOW()).
  TIMESTAMP_DNUN_FIELD - field which has now() as default and is auto-set on 
    update. (TIMESTAMP DEFAULT NOW() ON UPDATE NOW())
  NONE - field which is not auto-set on update with some other than NOW() 
    default value (TIMESTAMP DEFAULT 0).

4562
  Note that TIMESTAMP_OLD_FIELDs are never created explicitly now, they are 
4563 4564 4565 4566 4567 4568 4569 4570
  left only for preserving ability to read old tables. Such fields replaced 
  with their newer analogs in CREATE TABLE and in SHOW CREATE TABLE. This is 
  because we want to prefer NONE unireg_check before TIMESTAMP_OLD_FIELD for 
  "TIMESTAMP DEFAULT 'Const'" field. (Old timestamps allowed such 
  specification too but ignored default value for first timestamp, which of 
  course is non-standard.) In most cases user won't notice any change, only
  exception is different behavior of old/new timestamps during ALTER TABLE.
 */
unknown's avatar
unknown committed
4571

4572
Field_timestamp::Field_timestamp(uchar *ptr_arg, uint32 len_arg,
4573
                                 uchar *null_ptr_arg, uchar null_bit_arg,
unknown's avatar
unknown committed
4574 4575
				 enum utype unireg_check_arg,
				 const char *field_name_arg,
4576 4577 4578
				 TABLE_SHARE *share)
  :Field_temporal(ptr_arg, len_arg, null_ptr_arg, null_bit_arg,
                  unireg_check_arg, field_name_arg)
unknown's avatar
unknown committed
4579
{
unknown's avatar
unknown committed
4580
  /* For 4.0 MYD and 4.0 InnoDB compatibility */
4581
  flags|= UNSIGNED_FLAG;
4582
  if (unireg_check != NONE)
unknown's avatar
unknown committed
4583
  {
4584
    /*
4585 4586
      We mark the flag with TIMESTAMP_FLAG to indicate to the client that
      this field will be automaticly updated on insert.
4587
    */
unknown's avatar
unknown committed
4588
    flags|= TIMESTAMP_FLAG;
4589 4590
    if (unireg_check != TIMESTAMP_DN_FIELD)
      flags|= ON_UPDATE_NOW_FLAG;
unknown's avatar
unknown committed
4591 4592 4593 4594
  }
}


Sergei Golubchik's avatar
Sergei Golubchik committed
4595
my_time_t Field_timestamp::get_timestamp(ulong *sec_part) const
4596 4597 4598
{
  ASSERT_COLUMN_MARKED_FOR_READ;
  *sec_part= 0;
Sergei Golubchik's avatar
Sergei Golubchik committed
4599
  return sint4korr(ptr);
4600
}
4601 4602


4603
int Field_timestamp::store_TIME_with_warning(THD *thd, MYSQL_TIME *l_time,
Sergei Golubchik's avatar
Sergei Golubchik committed
4604
                                             const ErrConv *str,
4605
                                             int was_cut,
4606
                                             bool have_smth_to_conv)
unknown's avatar
unknown committed
4607
{
4608
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
4609 4610
  uint error = 0;
  my_time_t timestamp;
4611

4612
  if (MYSQL_TIME_WARN_HAVE_WARNINGS(was_cut) || !have_smth_to_conv)
unknown's avatar
unknown committed
4613 4614
  {
    error= 1;
4615
    set_datetime_warning(Sql_condition::WARN_LEVEL_WARN, WARN_DATA_TRUNCATED,
4616
                         str, MYSQL_TIMESTAMP_DATETIME, 1);
unknown's avatar
unknown committed
4617
  }
4618 4619 4620 4621 4622 4623
  else if (MYSQL_TIME_WARN_HAVE_NOTES(was_cut))
  {
    error= 3;
    set_datetime_warning(Sql_condition::WARN_LEVEL_NOTE, WARN_DATA_TRUNCATED,
                         str, MYSQL_TIMESTAMP_DATETIME, 1);
  }
unknown's avatar
unknown committed
4624
  /* Only convert a correct date (not a zero date) */
4625
  if (have_smth_to_conv && l_time->month)
4626
  {
Sergei Golubchik's avatar
Sergei Golubchik committed
4627 4628
    uint conversion_error;
    timestamp= TIME_to_timestamp(thd, l_time, &conversion_error);
4629 4630
    if (timestamp == 0 && l_time->second_part == 0)
      conversion_error= ER_WARN_DATA_OUT_OF_RANGE;
Sergei Golubchik's avatar
Sergei Golubchik committed
4631
    if (conversion_error)
4632
    {
4633
      set_datetime_warning(Sql_condition::WARN_LEVEL_WARN, conversion_error,
4634
                           str, MYSQL_TIMESTAMP_DATETIME, !error);
4635 4636 4637
      error= 1;
    }
  }
4638 4639 4640 4641 4642 4643
  else
  {
    timestamp= 0;
    l_time->second_part= 0;
  }
  store_TIME(timestamp, l_time->second_part);
4644
  return error;
unknown's avatar
unknown committed
4645 4646
}

unknown's avatar
unknown committed
4647

4648 4649 4650 4651 4652 4653 4654 4655 4656 4657
static bool
copy_or_convert_to_datetime(THD *thd, const MYSQL_TIME *from, MYSQL_TIME *to)
{
  if (from->time_type == MYSQL_TIMESTAMP_TIME)
    return time_to_datetime(thd, from, to);
  *to= *from;
  return false;
}


4658
int Field_timestamp::store_time_dec(MYSQL_TIME *ltime, uint dec)
unknown's avatar
unknown committed
4659
{
4660
  int unused;
Sergei Golubchik's avatar
Sergei Golubchik committed
4661
  ErrConvTime str(ltime);
4662
  THD *thd= get_thd();
4663 4664 4665
  MYSQL_TIME l_time;
  bool valid= !copy_or_convert_to_datetime(thd, ltime, &l_time) &&
              !check_date(&l_time, pack_time(&l_time) != 0,
4666 4667 4668 4669
                          (thd->variables.sql_mode & MODE_NO_ZERO_DATE) |
                                       MODE_NO_ZERO_IN_DATE, &unused);

  return store_TIME_with_warning(thd, &l_time, &str, false, valid);
unknown's avatar
unknown committed
4670 4671 4672
}


4673
int Field_timestamp::store(const char *from,uint len,CHARSET_INFO *cs)
unknown's avatar
unknown committed
4674
{
4675
  MYSQL_TIME l_time;
4676 4677
  MYSQL_TIME_STATUS status;
  bool have_smth_to_conv;
Sergei Golubchik's avatar
Sergei Golubchik committed
4678
  ErrConvString str(from, len, cs);
4679
  THD *thd= get_thd();
unknown's avatar
unknown committed
4680

4681
  /* We don't want to store invalid or fuzzy datetime values in TIMESTAMP */
4682
  have_smth_to_conv= !str_to_datetime(cs, from, len, &l_time,
4683 4684
                                      (thd->variables.sql_mode &
                                       MODE_NO_ZERO_DATE) |
4685 4686 4687
                                       MODE_NO_ZERO_IN_DATE, &status);
  return store_TIME_with_warning(thd, &l_time, &str,
                                 status.warnings, have_smth_to_conv);
4688 4689
}

unknown's avatar
unknown committed
4690

unknown's avatar
unknown committed
4691
int Field_timestamp::store(double nr)
unknown's avatar
unknown committed
4692
{
4693 4694
  MYSQL_TIME l_time;
  int error;
Sergei Golubchik's avatar
Sergei Golubchik committed
4695
  ErrConvDouble str(nr);
4696
  THD *thd= get_thd();
4697

4698
  longlong tmp= double_to_datetime(nr, &l_time, (thd->variables.sql_mode &
4699 4700
                                                 MODE_NO_ZERO_DATE) |
                                   MODE_NO_ZERO_IN_DATE, &error);
Sergei Golubchik's avatar
Sergei Golubchik committed
4701
  return store_TIME_with_warning(thd, &l_time, &str, error, tmp != -1);
unknown's avatar
unknown committed
4702
}
4703

4704

4705
int Field_timestamp::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
4706
{
4707
  MYSQL_TIME l_time;
4708
  int error;
Alexander Barkov's avatar
Alexander Barkov committed
4709
  ErrConvInteger str(nr, unsigned_val);
4710
  THD *thd= get_thd();
unknown's avatar
unknown committed
4711

4712
  /* We don't want to store invalid or fuzzy datetime values in TIMESTAMP */
4713
  longlong tmp= number_to_datetime(nr, 0, &l_time, (thd->variables.sql_mode &
4714 4715
                                                 MODE_NO_ZERO_DATE) |
                                   MODE_NO_ZERO_IN_DATE, &error);
4716
  return store_TIME_with_warning(thd, &l_time, &str, error, tmp != -1);
unknown's avatar
unknown committed
4717 4718
}

4719

unknown's avatar
unknown committed
4720 4721 4722 4723 4724
double Field_timestamp::val_real(void)
{
  return (double) Field_timestamp::val_int();
}

4725

unknown's avatar
unknown committed
4726 4727
longlong Field_timestamp::val_int(void)
{
Sergei Golubchik's avatar
Sergei Golubchik committed
4728 4729 4730
  MYSQL_TIME ltime;
  if (get_date(&ltime, TIME_NO_ZERO_DATE))
    return 0;
unknown's avatar
unknown committed
4731

Sergei Golubchik's avatar
Sergei Golubchik committed
4732 4733 4734
  return ltime.year * 10000000000LL + ltime.month * 100000000LL +
         ltime.day * 1000000L + ltime.hour * 10000L +
         ltime.minute * 100 + ltime.second;
unknown's avatar
unknown committed
4735 4736 4737
}


unknown's avatar
unknown committed
4738
String *Field_timestamp::val_str(String *val_buffer, String *val_ptr)
unknown's avatar
unknown committed
4739
{
Sergei Golubchik's avatar
Sergei Golubchik committed
4740
  MYSQL_TIME ltime;
4741
  uint32 temp, temp2;
4742
  uint dec;
unknown's avatar
unknown committed
4743
  char *to;
unknown's avatar
unknown committed
4744 4745

  val_buffer->alloc(field_length+1);
unknown's avatar
unknown committed
4746
  to= (char*) val_buffer->ptr();
4747
  val_buffer->length(field_length);
unknown's avatar
unknown committed
4748

Sergei Golubchik's avatar
Sergei Golubchik committed
4749
  if (get_date(&ltime, TIME_NO_ZERO_DATE))
unknown's avatar
unknown committed
4750
  {				      /* Zero time is "000000" */
Sergei Golubchik's avatar
Sergei Golubchik committed
4751
    val_ptr->set(zero_timestamp, field_length, &my_charset_numeric);
4752
    return val_ptr;
unknown's avatar
unknown committed
4753
  }
4754
  val_buffer->set_charset(&my_charset_numeric);	// Safety
Sergei Golubchik's avatar
Sergei Golubchik committed
4755 4756
   
  temp= ltime.year % 100;
4757
  if (temp < YY_PART_YEAR - 1)
4758 4759 4760 4761 4762 4763 4764 4765 4766 4767 4768 4769 4770
  {
    *to++= '2';
    *to++= '0';
  }
  else
  {
    *to++= '1';
    *to++= '9';
  }
  temp2=temp/10; temp=temp-temp2*10;
  *to++= (char) ('0'+(char) (temp2));
  *to++= (char) ('0'+(char) (temp));
  *to++= '-';
Sergei Golubchik's avatar
Sergei Golubchik committed
4771
  temp=ltime.month;
4772 4773 4774 4775
  temp2=temp/10; temp=temp-temp2*10;
  *to++= (char) ('0'+(char) (temp2));
  *to++= (char) ('0'+(char) (temp));
  *to++= '-';
Sergei Golubchik's avatar
Sergei Golubchik committed
4776
  temp=ltime.day;
4777 4778 4779 4780
  temp2=temp/10; temp=temp-temp2*10;
  *to++= (char) ('0'+(char) (temp2));
  *to++= (char) ('0'+(char) (temp));
  *to++= ' ';
Sergei Golubchik's avatar
Sergei Golubchik committed
4781
  temp=ltime.hour;
4782 4783 4784 4785
  temp2=temp/10; temp=temp-temp2*10;
  *to++= (char) ('0'+(char) (temp2));
  *to++= (char) ('0'+(char) (temp));
  *to++= ':';
Sergei Golubchik's avatar
Sergei Golubchik committed
4786
  temp=ltime.minute;
4787 4788 4789 4790
  temp2=temp/10; temp=temp-temp2*10;
  *to++= (char) ('0'+(char) (temp2));
  *to++= (char) ('0'+(char) (temp));
  *to++= ':';
Sergei Golubchik's avatar
Sergei Golubchik committed
4791
  temp=ltime.second;
4792 4793 4794 4795
  temp2=temp/10; temp=temp-temp2*10;
  *to++= (char) ('0'+(char) (temp2));
  *to++= (char) ('0'+(char) (temp));
  *to= 0;
4796
  val_buffer->set_charset(&my_charset_numeric);
4797 4798 4799 4800 4801 4802 4803 4804 4805 4806

  if ((dec= decimals()))
  {
    ulong sec_part= (ulong) sec_part_shift(ltime.second_part, dec);
    char *buf= const_cast<char*>(val_buffer->ptr() + MAX_DATETIME_WIDTH);
    for (int i= dec; i > 0; i--, sec_part/= 10)
    buf[i]= (char)(sec_part % 10) + '0';
    buf[0]= '.';
    buf[dec + 1]= 0;
  }
unknown's avatar
unknown committed
4807 4808 4809
  return val_buffer;
}

4810

4811
bool Field_timestamp::get_date(MYSQL_TIME *ltime, ulonglong fuzzydate)
unknown's avatar
unknown committed
4812
{
4813
  THD *thd= get_thd();
4814
  thd->time_zone_used= 1;
4815
  ulong sec_part;
Sergei Golubchik's avatar
Sergei Golubchik committed
4816
  my_time_t temp= get_timestamp(&sec_part);
4817
  if (temp == 0 && sec_part == 0)
unknown's avatar
unknown committed
4818
  {				      /* Zero time is "000000" */
unknown's avatar
unknown committed
4819
    if (fuzzydate & TIME_NO_ZERO_DATE)
unknown's avatar
unknown committed
4820
      return 1;
unknown's avatar
unknown committed
4821 4822 4823 4824
    bzero((char*) ltime,sizeof(*ltime));
  }
  else
  {
4825
    thd->variables.time_zone->gmt_sec_to_TIME(ltime, (my_time_t)temp);
4826
    ltime->second_part= sec_part;
unknown's avatar
unknown committed
4827 4828 4829 4830
  }
  return 0;
}

4831 4832 4833

bool Field_timestamp::send_binary(Protocol *protocol)
{
4834 4835 4836
  MYSQL_TIME ltime;
  Field_timestamp::get_date(&ltime, 0);
  return protocol->store(&ltime, 0);
4837 4838 4839
}


4840
int Field_timestamp::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
4841 4842
{
  int32 a,b;
Sergei Golubchik's avatar
Sergei Golubchik committed
4843 4844
  a=sint4korr(a_ptr);
  b=sint4korr(b_ptr);
unknown's avatar
unknown committed
4845 4846 4847
  return ((uint32) a < (uint32) b) ? -1 : ((uint32) a > (uint32) b) ? 1 : 0;
}

4848

4849
void Field_timestamp::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
4850
{
Sergei Golubchik's avatar
Sergei Golubchik committed
4851 4852 4853 4854
  to[0] = ptr[3];
  to[1] = ptr[2];
  to[2] = ptr[1];
  to[3] = ptr[0];
unknown's avatar
unknown committed
4855 4856 4857 4858 4859
}


void Field_timestamp::sql_type(String &res) const
{
4860 4861 4862 4863 4864 4865 4866 4867
  if (!decimals())
  {
    res.set_ascii(STRING_WITH_LEN("timestamp"));
    return;
  }
  CHARSET_INFO *cs=res.charset();
  res.length(cs->cset->snprintf(cs, (char*) res.ptr(), res.alloced_length(),
                                "timestamp(%u)", decimals()));
unknown's avatar
unknown committed
4868 4869 4870
}


4871
int Field_timestamp::set_time()
unknown's avatar
unknown committed
4872
{
4873
  THD *thd= get_thd();
4874
  set_notnull();
4875 4876
  store_TIME(thd->query_start(), 0);
  return 0;
unknown's avatar
unknown committed
4877 4878
}

4879 4880 4881 4882 4883 4884 4885 4886 4887 4888 4889 4890
/**
  Mark the field as having an explicit default value.

  @param value  if available, the value that the field is being set to

  @note
    Fields that have an explicit default value should not be updated
    automatically via the DEFAULT or ON UPDATE functions. The functions
    that deal with data change functionality (INSERT/UPDATE/LOAD),
    determine if there is an explicit value for each field before performing
    the data change, and call this method to mark the field.

4891 4892 4893 4894 4895
    For timestamp columns, the only case where a column is not marked
    as been given a value are:
    - It's explicitly assigned with DEFAULT
    - We assign NULL to a timestamp field that is defined as NOT NULL.
      This is how MySQL has worked since it's start.
4896 4897
*/

4898 4899
void Field_timestamp::set_explicit_default(Item *value)
{
4900
  if (((value->type() == Item::DEFAULT_VALUE_ITEM &&
4901
        !((Item_default_value*)value)->arg) ||
4902
       (!maybe_null() && value->null_value)))
4903
    return;
4904
  set_has_explicit_value();
4905 4906
}

Sergei Golubchik's avatar
Sergei Golubchik committed
4907
#ifdef NOT_USED
4908
static void store_native(ulonglong num, uchar *to, uint bytes)
unknown's avatar
unknown committed
4909
{
4910 4911 4912 4913 4914 4915 4916
  switch(bytes) {
  case 1: *to= (uchar)num;              break;
  case 2: shortstore(to, (ushort)num);  break;
  case 3: int3store(to, num); /* Sic!*/ break;
  case 4: longstore(to, (ulong)num);    break;
  case 8: longlongstore(to, num);       break;
  default: DBUG_ASSERT(0);
4917
  }
4918
}
4919

4920 4921 4922 4923 4924 4925 4926 4927 4928
static longlong read_native(const uchar *from, uint bytes)
{
  switch(bytes) {
  case 1: return from[0];
  case 2: { uint16 tmp; shortget(tmp, from); return tmp; }
  case 3: return uint3korr(from);
  case 4: { uint32 tmp; longget(tmp, from); return tmp; }
  case 8: { longlong tmp; longlongget(tmp, from); return tmp; }
  default: DBUG_ASSERT(0); return 0;
unknown's avatar
unknown committed
4929 4930
  }
}
Sergei Golubchik's avatar
Sergei Golubchik committed
4931
#endif
unknown's avatar
unknown committed
4932

4933 4934 4935 4936 4937 4938 4939 4940 4941 4942 4943
static void store_lowendian(ulonglong num, uchar *to, uint bytes)
{
  switch(bytes) {
  case 1: *to= (uchar)num;    break;
  case 2: int2store(to, num); break;
  case 3: int3store(to, num); break;
  case 4: int4store(to, num); break;
  case 8: int8store(to, num); break;
  default: DBUG_ASSERT(0);
  }
}
unknown's avatar
unknown committed
4944

4945
static longlong read_lowendian(const uchar *from, uint bytes)
4946
{
4947 4948 4949 4950 4951 4952 4953 4954
  switch(bytes) {
  case 1: return from[0];
  case 2: return uint2korr(from);
  case 3: return uint3korr(from);
  case 4: return uint4korr(from);
  case 8: return sint8korr(from);
  default: DBUG_ASSERT(0); return 0;
  }
4955 4956
}

4957 4958 4959 4960 4961 4962 4963 4964 4965 4966 4967 4968
static void store_bigendian(ulonglong num, uchar *to, uint bytes)
{
  switch(bytes) {
  case 1: mi_int1store(to, num); break;
  case 2: mi_int2store(to, num); break;
  case 3: mi_int3store(to, num); break;
  case 4: mi_int4store(to, num); break;
  case 5: mi_int5store(to, num); break;
  case 6: mi_int6store(to, num); break;
  case 7: mi_int7store(to, num); break;
  case 8: mi_int8store(to, num); break;
  default: DBUG_ASSERT(0);
unknown's avatar
unknown committed
4969
  }
4970
}
4971

4972
static longlong read_bigendian(const uchar *from, uint bytes)
unknown's avatar
unknown committed
4973
{
4974 4975 4976 4977 4978 4979 4980 4981 4982 4983
  switch(bytes) {
  case 1: return mi_uint1korr(from);
  case 2: return mi_uint2korr(from);
  case 3: return mi_uint3korr(from);
  case 4: return mi_uint4korr(from);
  case 5: return mi_uint5korr(from);
  case 6: return mi_uint6korr(from);
  case 7: return mi_uint7korr(from);
  case 8: return mi_sint8korr(from);
  default: DBUG_ASSERT(0); return 0;
unknown's avatar
unknown committed
4984
  }
4985 4986 4987 4988 4989 4990 4991 4992
}

void Field_timestamp_hires::store_TIME(my_time_t timestamp, ulong sec_part)
{
  mi_int4store(ptr, timestamp);
  store_bigendian(sec_part_shift(sec_part, dec), ptr+4, sec_part_bytes[dec]);
}

Sergei Golubchik's avatar
Sergei Golubchik committed
4993
my_time_t Field_timestamp_hires::get_timestamp(ulong *sec_part) const
4994 4995
{
  ASSERT_COLUMN_MARKED_FOR_READ;
4996
  *sec_part= (long)sec_part_unshift(read_bigendian(ptr+4, sec_part_bytes[dec]), dec);
4997 4998 4999
  return mi_uint4korr(ptr);
}

5000
double Field_timestamp_with_dec::val_real(void)
5001
{
Sergei Golubchik's avatar
Sergei Golubchik committed
5002 5003 5004
  MYSQL_TIME ltime;
  if (get_date(&ltime, TIME_NO_ZERO_DATE))
    return 0;
5005
  
Sergei Golubchik's avatar
Sergei Golubchik committed
5006 5007 5008
  return ltime.year * 1e10 + ltime.month * 1e8 +
         ltime.day * 1e6 + ltime.hour * 1e4 +
         ltime.minute * 1e2 + ltime.second + ltime.second_part*1e-6;
unknown's avatar
unknown committed
5009 5010
}

5011
my_decimal *Field_timestamp_with_dec::val_decimal(my_decimal *d)
5012 5013 5014
{
  MYSQL_TIME ltime;
  get_date(&ltime, 0);
Sergei Golubchik's avatar
Sergei Golubchik committed
5015
  return TIME_to_my_decimal(&ltime, d);
5016 5017
}
 
5018
int Field_timestamp::store_decimal(const my_decimal *d)
5019
{
5020 5021 5022 5023 5024
  ulonglong nr;
  ulong sec_part;
  int error;
  MYSQL_TIME ltime;
  longlong tmp;
5025
  THD *thd= get_thd();
Sergei Golubchik's avatar
Sergei Golubchik committed
5026
  ErrConvDecimal str(d);
5027 5028

  if (my_decimal2seconds(d, &nr, &sec_part))
unknown's avatar
unknown committed
5029
  {
5030 5031
    tmp= -1;
    error= 2;
unknown's avatar
unknown committed
5032
  }
5033 5034 5035 5036 5037 5038
  else
    tmp= number_to_datetime(nr, sec_part, &ltime, TIME_NO_ZERO_IN_DATE |
                                                  (thd->variables.sql_mode &
                                                   MODE_NO_ZERO_DATE), &error);

  return store_TIME_with_warning(thd, &ltime, &str, error, tmp != -1);
5039 5040
}

5041
int Field_timestamp_with_dec::set_time()
5042
{
5043
  THD *thd= get_thd();
5044 5045 5046 5047
  set_notnull();
  store_TIME(thd->query_start(), thd->query_start_sec_part());
  return 0;
}
5048

5049
bool Field_timestamp_with_dec::send_binary(Protocol *protocol)
5050 5051 5052 5053
{
  MYSQL_TIME ltime;
  Field_timestamp::get_date(&ltime, 0);
  return protocol->store(&ltime, dec);
unknown's avatar
unknown committed
5054 5055 5056
}


5057 5058 5059 5060 5061
int Field_timestamp_hires::cmp(const uchar *a_ptr, const uchar *b_ptr)
{
  int32 a,b;
  ulong a_sec_part, b_sec_part;
  a= mi_uint4korr(a_ptr);
5062
  a_sec_part= (ulong)read_bigendian(a_ptr+4, sec_part_bytes[dec]);
5063
  b= mi_uint4korr(b_ptr);
5064
  b_sec_part= (ulong)read_bigendian(b_ptr+4, sec_part_bytes[dec]);
5065 5066 5067 5068 5069 5070 5071 5072 5073 5074
  return ((uint32) a < (uint32) b) ? -1 : ((uint32) a > (uint32) b) ? 1 :
          a_sec_part < b_sec_part  ? -1 :  a_sec_part > b_sec_part  ? 1 : 0;
}


uint32 Field_timestamp_hires::pack_length() const
{
  return 4 + sec_part_bytes[dec];
}

5075
void Field_timestamp_with_dec::make_field(Send_field *field)
5076 5077 5078 5079 5080
{
  Field::make_field(field);
  field->decimals= dec;
}

5081 5082 5083 5084 5085 5086 5087 5088 5089 5090 5091 5092 5093 5094 5095 5096 5097 5098 5099 5100 5101 5102 5103 5104 5105 5106 5107 5108 5109 5110 5111 5112

/*************************************************************
** MySQL-5.6 compatible TIMESTAMP(N)
**************************************************************/

void Field_timestampf::store_TIME(my_time_t timestamp, ulong sec_part)
{
  struct timeval tm;
  tm.tv_sec= timestamp;
  tm.tv_usec= sec_part;
  my_timeval_trunc(&tm, dec);
  my_timestamp_to_binary(&tm, ptr, dec);
}


my_time_t Field_timestampf::get_timestamp(ulong *sec_part) const
{
  struct timeval tm;
  my_timestamp_from_binary(&tm, ptr, dec);
  *sec_part= tm.tv_usec;
  return tm.tv_sec;
}


/*************************************************************/
uint Field_temporal::is_equal(Create_field *new_field)
{
  return new_field->sql_type == real_type() &&
         new_field->length == max_display_length();
}


Sergei Golubchik's avatar
Sergei Golubchik committed
5113
void Field_temporal::set_warnings(Sql_condition::enum_warning_level trunc_level,
5114 5115 5116 5117 5118 5119 5120 5121 5122 5123 5124 5125 5126 5127 5128 5129 5130
                                  const ErrConv *str, int was_cut,
                                  timestamp_type ts_type)
{
  /*
    error code logic:
    MYSQL_TIME_WARN_TRUNCATED means that the value was not a date/time at all.
      it will be stored as zero date/time.
    MYSQL_TIME_WARN_OUT_OF_RANGE means that the value was a date/time,
      that is, it was parsed as such, but the value was invalid.

    Also, MYSQL_TIME_WARN_TRUNCATED is used when storing a DATETIME in
    a DATE field and non-zero time part is thrown away.
  */
  if (was_cut & MYSQL_TIME_WARN_TRUNCATED)
    set_datetime_warning(trunc_level, WARN_DATA_TRUNCATED,
                         str, mysql_type_to_time_type(type()), 1);
  if (was_cut & MYSQL_TIME_WARN_OUT_OF_RANGE)
Sergei Golubchik's avatar
Sergei Golubchik committed
5131
    set_datetime_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE,
5132 5133 5134 5135
                         str, mysql_type_to_time_type(type()), 1);
}


5136 5137 5138 5139 5140 5141 5142 5143 5144 5145
/*
  Store string into a date/time field

  RETURN
    0  ok
    1  Value was cut during conversion
    2  value was out of range
    3  Datetime value that was cut (warning level NOTE)
       This is used by opt_range.cc:get_mm_leaf().
*/
5146 5147 5148 5149
int Field_temporal_with_date::store_TIME_with_warning(MYSQL_TIME *ltime,
                                                      const ErrConv *str,
                                                      int was_cut,
                                                      int have_smth_to_conv)
5150
{
5151
  Sql_condition::enum_warning_level trunc_level= Sql_condition::WARN_LEVEL_WARN;
5152 5153
  int ret= 2;
  
5154
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
5155

5156 5157
  if (was_cut == 0 && have_smth_to_conv == 0) // special case: zero date
  {
5158
    was_cut= MYSQL_TIME_WARN_OUT_OF_RANGE;
5159 5160
  }
  else if (!have_smth_to_conv)
unknown's avatar
unknown committed
5161
  {
5162 5163 5164
    bzero(ltime, sizeof(*ltime));
    was_cut=  MYSQL_TIME_WARN_TRUNCATED;
    ret= 1;
unknown's avatar
unknown committed
5165
  }
5166 5167 5168 5169
  else if (!MYSQL_TIME_WARN_HAVE_WARNINGS(was_cut) &&
           (MYSQL_TIME_WARN_HAVE_NOTES(was_cut) ||
            (mysql_type_to_time_type(type()) == MYSQL_TIMESTAMP_DATE &&
             (ltime->hour || ltime->minute || ltime->second || ltime->second_part))))
unknown's avatar
unknown committed
5170
  {
5171
    trunc_level= Sql_condition::WARN_LEVEL_NOTE;
5172 5173
    was_cut|=  MYSQL_TIME_WARN_TRUNCATED;
    ret= 3;
unknown's avatar
unknown committed
5174
  }
5175
  set_warnings(trunc_level, str, was_cut, mysql_type_to_time_type(type()));
5176 5177
  store_TIME(ltime);
  return was_cut ? ret : 0;
unknown's avatar
unknown committed
5178 5179 5180
}


5181
int Field_temporal_with_date::store(const char *from, uint len, CHARSET_INFO *cs)
5182 5183
{
  MYSQL_TIME ltime;
5184
  MYSQL_TIME_STATUS status;
5185
  THD *thd= get_thd();
Sergei Golubchik's avatar
Sergei Golubchik committed
5186
  ErrConvString str(from, len, cs);
5187
  bool func_res= !str_to_datetime(cs, from, len, &ltime,
Sergei Golubchik's avatar
Sergei Golubchik committed
5188
                                  sql_mode_for_dates(thd),
5189 5190
                                  &status);
  return store_TIME_with_warning(&ltime, &str, status.warnings, func_res);
5191 5192 5193
}


5194
int Field_temporal_with_date::store(double nr)
unknown's avatar
unknown committed
5195
{
unknown's avatar
unknown committed
5196
  int error= 0;
5197
  MYSQL_TIME ltime;
5198
  THD *thd= get_thd();
Sergei Golubchik's avatar
Sergei Golubchik committed
5199
  ErrConvDouble str(nr);
5200

5201
  longlong tmp= double_to_datetime(nr, &ltime,
Sergei Golubchik's avatar
Sergei Golubchik committed
5202
                                    sql_mode_for_dates(thd), &error);
5203 5204 5205 5206
  return store_TIME_with_warning(&ltime, &str, error, tmp != -1);
}


5207
int Field_temporal_with_date::store(longlong nr, bool unsigned_val)
5208 5209 5210 5211
{
  int error;
  MYSQL_TIME ltime;
  longlong tmp;
5212
  THD *thd= get_thd();
Alexander Barkov's avatar
Alexander Barkov committed
5213
  ErrConvInteger str(nr, unsigned_val);
5214

Sergei Golubchik's avatar
Sergei Golubchik committed
5215
  tmp= number_to_datetime(nr, 0, &ltime, sql_mode_for_dates(thd), &error);
5216 5217 5218 5219 5220

  return store_TIME_with_warning(&ltime, &str, error, tmp != -1);
}


5221
int Field_temporal_with_date::store_time_dec(MYSQL_TIME *ltime, uint dec)
5222
{
5223
  int error= 0, have_smth_to_conv= 1;
Sergei Golubchik's avatar
Sergei Golubchik committed
5224
  ErrConvTime str(ltime);
5225 5226 5227 5228 5229 5230 5231 5232 5233 5234 5235 5236 5237
  MYSQL_TIME l_time;

  if (copy_or_convert_to_datetime(get_thd(), ltime, &l_time))
  {
    /*
      Set have_smth_to_conv and error in a way to have
      store_TIME_with_warning do bzero().
    */
    have_smth_to_conv= false;
    error= MYSQL_TIME_WARN_OUT_OF_RANGE;
    goto store;
  }

5238 5239 5240 5241
  /*
    We don't perform range checking here since values stored in TIME
    structure always fit into DATETIME range.
  */
5242
  have_smth_to_conv= !check_date(&l_time, pack_time(&l_time) != 0,
Sergei Golubchik's avatar
Sergei Golubchik committed
5243
                                 sql_mode_for_dates(current_thd), &error);
5244
store:
5245 5246 5247 5248 5249 5250
  return store_TIME_with_warning(&l_time, &str, error, have_smth_to_conv);
}

my_decimal *Field_temporal::val_decimal(my_decimal *d)
{
  MYSQL_TIME ltime;
5251
  if (get_date(&ltime, 0))
unknown's avatar
unknown committed
5252
  {
5253 5254
    bzero(&ltime, sizeof(ltime));
    ltime.time_type= mysql_type_to_time_type(type());
unknown's avatar
unknown committed
5255
  }
Sergei Golubchik's avatar
Sergei Golubchik committed
5256
  return TIME_to_my_decimal(&ltime, d);
5257 5258 5259 5260 5261 5262 5263 5264
}

/****************************************************************************
** time type
** In string context: HH:MM:SS
** In number context: HHMMSS
** Stored as a 3 byte unsigned int
****************************************************************************/
5265 5266 5267 5268 5269
int Field_time::store_TIME_with_warning(MYSQL_TIME *ltime,
                                        const ErrConv *str,
                                        int was_cut,
                                        int have_smth_to_conv)
{
Sergei Golubchik's avatar
Sergei Golubchik committed
5270
  Sql_condition::enum_warning_level trunc_level= Sql_condition::WARN_LEVEL_WARN;
5271 5272 5273 5274 5275 5276 5277 5278 5279
  int ret= 2;
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;

  if (!have_smth_to_conv)
  {
    bzero(ltime, sizeof(*ltime));
    was_cut= MYSQL_TIME_WARN_TRUNCATED;
    ret= 1;
  }
5280 5281 5282
  else if (!MYSQL_TIME_WARN_HAVE_WARNINGS(was_cut) &&
           ((ltime->year || ltime->month) ||
            MYSQL_TIME_WARN_HAVE_NOTES(was_cut)))
5283
  {
5284 5285
    if (ltime->year || ltime->month)
      ltime->year= ltime->month= ltime->day= 0;
Sergei Golubchik's avatar
Sergei Golubchik committed
5286
    trunc_level= Sql_condition::WARN_LEVEL_NOTE;
5287 5288 5289 5290 5291 5292 5293 5294
    was_cut|=  MYSQL_TIME_WARN_TRUNCATED;
    ret= 3;
  }
  set_warnings(trunc_level, str, was_cut, MYSQL_TIMESTAMP_TIME);
  store_TIME(ltime);
  return was_cut ? ret : 0;
}

5295 5296 5297 5298 5299 5300 5301

void Field_time::store_TIME(MYSQL_TIME *ltime)
{
  long tmp= (ltime->day*24L+ltime->hour)*10000L +
            (ltime->minute*100+ltime->second);
  if (ltime->neg)
    tmp= -tmp;
unknown's avatar
unknown committed
5302 5303 5304
  int3store(ptr,tmp);
}

5305 5306 5307
int Field_time::store(const char *from,uint len,CHARSET_INFO *cs)
{
  MYSQL_TIME ltime;
5308
  MYSQL_TIME_STATUS status;
Sergei Golubchik's avatar
Sergei Golubchik committed
5309
  ErrConvString str(from, len, cs);
5310
  bool have_smth_to_conv= 
Sergei Golubchik's avatar
Sergei Golubchik committed
5311
   !str_to_time(cs, from, len, &ltime, sql_mode_for_dates(get_thd()),
5312
                &status);
Sergei Golubchik's avatar
Sergei Golubchik committed
5313

5314 5315
  return store_TIME_with_warning(&ltime, &str,
                                 status.warnings, have_smth_to_conv);
5316 5317 5318
}


5319 5320 5321 5322 5323 5324 5325 5326 5327 5328 5329 5330 5331 5332 5333 5334 5335 5336 5337 5338 5339 5340 5341 5342 5343 5344
/**
  subtract a given number of days from DATETIME, return TIME

  optimized version of calc_time_diff()

  @note it might generate TIME values outside of the valid TIME range!
*/
static void calc_datetime_days_diff(MYSQL_TIME *ltime, long days)
{
  long daydiff= calc_daynr(ltime->year, ltime->month, ltime->day) - days;
  ltime->year= ltime->month= 0;
  if (daydiff >=0 )
    ltime->day= daydiff;
  else
  {
    longlong timediff= ((((daydiff        * 24LL +
                           ltime->hour)   * 60LL +
                           ltime->minute) * 60LL +
                           ltime->second) * 1000000LL +
                           ltime->second_part);
    unpack_time(timediff, ltime);
  }
  ltime->time_type= MYSQL_TIMESTAMP_TIME;
}


5345
int Field_time::store_time_dec(MYSQL_TIME *ltime, uint dec)
5346 5347
{
  MYSQL_TIME l_time= *ltime;
Sergei Golubchik's avatar
Sergei Golubchik committed
5348
  ErrConvTime str(ltime);
5349 5350
  int was_cut= 0;

5351 5352 5353
  if (curdays && l_time.time_type != MYSQL_TIMESTAMP_TIME)
    calc_datetime_days_diff(&l_time, curdays);

5354
  int have_smth_to_conv= !check_time_range(&l_time, decimals(), &was_cut);
5355 5356 5357 5358 5359 5360 5361
  return store_TIME_with_warning(&l_time, &str, was_cut, have_smth_to_conv);
}


int Field_time::store(double nr)
{
  MYSQL_TIME ltime;
Sergei Golubchik's avatar
Sergei Golubchik committed
5362
  ErrConvDouble str(nr);
5363
  int was_cut;
5364 5365 5366
  bool neg= nr < 0;
  if (neg)
    nr= -nr;
5367
  int have_smth_to_conv= !number_to_time(neg, (ulonglong) nr,
5368
                                         (ulong)((nr - floor(nr)) * TIME_SECOND_PART_FACTOR),
5369
                                         &ltime, &was_cut);
unknown's avatar
unknown committed
5370

5371 5372 5373 5374 5375 5376 5377
  return store_TIME_with_warning(&ltime, &str, was_cut, have_smth_to_conv);
}


int Field_time::store(longlong nr, bool unsigned_val)
{
  MYSQL_TIME ltime;
Alexander Barkov's avatar
Alexander Barkov committed
5378
  ErrConvInteger str(nr, unsigned_val);
5379
  int was_cut;
5380 5381 5382 5383
  if (nr < 0 && unsigned_val)
    nr= 99991231235959LL + 1;
  int have_smth_to_conv= !number_to_time(nr < 0,
                                         (ulonglong) (nr < 0 ? -nr : nr),
5384
                                         0, &ltime, &was_cut);
unknown's avatar
unknown committed
5385

5386
  return store_TIME_with_warning(&ltime, &str, was_cut, have_smth_to_conv);
unknown's avatar
unknown committed
5387
}
5388 5389 5390 5391 5392 5393 5394 5395 5396 5397 5398 5399 5400 5401 5402 5403 5404 5405 5406 5407 5408 5409 5410 5411


void Field_time::set_curdays(THD *thd)
{
  MYSQL_TIME ltime;
  set_current_date(thd, &ltime);
  curdays= calc_daynr(ltime.year, ltime.month, ltime.day);
}


Field *Field_time::new_key_field(MEM_ROOT *root, TABLE *new_table,
                                 uchar *new_ptr, uint32 length,
                                 uchar *new_null_ptr, uint new_null_bit)
{
  THD *thd= get_thd();
  Field_time *res=
    (Field_time*) Field::new_key_field(root, new_table, new_ptr, length,
                                       new_null_ptr, new_null_bit);
  if (!(thd->variables.old_behavior & OLD_MODE_ZERO_DATE_TIME_CAST) && res)
    res->set_curdays(thd);
  return res;
}


unknown's avatar
unknown committed
5412 5413
double Field_time::val_real(void)
{
5414
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
5415
  uint32 j= (uint32) uint3korr(ptr);
unknown's avatar
unknown committed
5416 5417 5418 5419 5420
  return (double) j;
}

longlong Field_time::val_int(void)
{
5421
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
5422 5423 5424
  return (longlong) sint3korr(ptr);
}

5425

5426 5427
/**
  @note
5428 5429 5430 5431
  This function is multi-byte safe as the result string is always of type
  my_charset_bin
*/

5432 5433
String *Field_time::val_str(String *str,
			    String *unused __attribute__((unused)))
unknown's avatar
unknown committed
5434
{
5435
  ASSERT_COLUMN_MARKED_FOR_READ;
5436
  MYSQL_TIME ltime;
5437 5438 5439 5440 5441
  get_date(&ltime, TIME_TIME_ONLY);
  str->alloc(field_length + 1);
  str->length(my_time_to_str(&ltime, const_cast<char*>(str->ptr()), decimals()));
  str->set_charset(&my_charset_numeric);
  return str;
unknown's avatar
unknown committed
5442 5443
}

5444

5445 5446 5447 5448 5449 5450 5451 5452 5453 5454 5455 5456 5457 5458 5459
bool Field_time::check_zero_in_date_with_warn(ulonglong fuzzydate)
{
  if (!(fuzzydate & TIME_TIME_ONLY) && (fuzzydate & TIME_NO_ZERO_IN_DATE))
  {
    THD *thd= get_thd();
    push_warning_printf(thd, Sql_condition::WARN_LEVEL_WARN,
                        ER_WARN_DATA_OUT_OF_RANGE,
                        ER(ER_WARN_DATA_OUT_OF_RANGE), field_name,
                        thd->get_stmt_da()->current_row_for_warning());
    return true;
  }
  return false;
}


5460 5461
/**
  @note
unknown's avatar
unknown committed
5462
  Normally we would not consider 'time' as a valid date, but we allow
unknown's avatar
unknown committed
5463 5464 5465 5466
  get_date() here to be able to do things like
  DATE_FORMAT(time, "%l.%i %p")
*/
 
5467
bool Field_time::get_date(MYSQL_TIME *ltime, ulonglong fuzzydate)
5468
{
5469 5470
  if (check_zero_in_date_with_warn(fuzzydate))
    return true;
unknown's avatar
unknown committed
5471 5472 5473 5474 5475 5476 5477
  long tmp=(long) sint3korr(ptr);
  ltime->neg=0;
  if (tmp < 0)
  {
    ltime->neg= 1;
    tmp=-tmp;
  }
5478
  ltime->year= ltime->month= ltime->day= 0;
unknown's avatar
unknown committed
5479
  ltime->hour=   (int) (tmp/10000);
unknown's avatar
unknown committed
5480
  tmp-=ltime->hour*10000;
unknown's avatar
unknown committed
5481 5482
  ltime->minute= (int) tmp/100;
  ltime->second= (int) tmp % 100;
unknown's avatar
unknown committed
5483
  ltime->second_part=0;
5484
  ltime->time_type= MYSQL_TIMESTAMP_TIME;
unknown's avatar
unknown committed
5485 5486 5487
  return 0;
}

5488 5489 5490

bool Field_time::send_binary(Protocol *protocol)
{
5491
  MYSQL_TIME ltime;
5492 5493
  get_date(&ltime, TIME_TIME_ONLY);
  return protocol->store_time(&ltime, decimals());
5494 5495 5496
}


5497
int Field_time::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
5498
{
unknown's avatar
unknown committed
5499 5500 5501
  int32 a,b;
  a=(int32) sint3korr(a_ptr);
  b=(int32) sint3korr(b_ptr);
unknown's avatar
unknown committed
5502 5503 5504
  return (a < b) ? -1 : (a > b) ? 1 : 0;
}

5505
void Field_time::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
5506 5507 5508 5509 5510 5511 5512 5513
{
  to[0] = (uchar) (ptr[2] ^ 128);
  to[1] = ptr[1];
  to[2] = ptr[0];
}

void Field_time::sql_type(String &res) const
{
5514 5515 5516 5517 5518 5519 5520 5521
  if (decimals() == 0)
  {
    res.set_ascii(STRING_WITH_LEN("time"));
    return;
  }
  const CHARSET_INFO *cs= res.charset();
  res.length(cs->cset->snprintf(cs, (char*) res.ptr(), res.alloced_length(),
                               "time(%d)", decimals()));
unknown's avatar
unknown committed
5522 5523
}

5524 5525 5526 5527 5528 5529
int Field_time_hires::reset()
{
  store_bigendian(zero_point, ptr, Field_time_hires::pack_length());
  return 0;
}

Sergei Golubchik's avatar
Sergei Golubchik committed
5530

5531 5532
void Field_time_hires::store_TIME(MYSQL_TIME *ltime)
{
5533
  ulonglong packed= sec_part_shift(pack_time(ltime), dec) + zero_point;
5534 5535 5536
  store_bigendian(packed, ptr, Field_time_hires::pack_length());
}

5537
int Field_time::store_decimal(const my_decimal *d)
5538 5539 5540
{
  ulonglong nr;
  ulong sec_part;
Sergei Golubchik's avatar
Sergei Golubchik committed
5541
  ErrConvDecimal str(d);
5542 5543 5544 5545 5546 5547 5548 5549 5550
  MYSQL_TIME ltime;
  int was_cut;
  bool neg= my_decimal2seconds(d, &nr, &sec_part);

  int have_smth_to_conv= !number_to_time(neg, nr, sec_part, &ltime, &was_cut);

  return store_TIME_with_warning(&ltime, &str, was_cut, have_smth_to_conv);
}

5551 5552
uint32 Field_time_hires::pack_length() const
{
5553
  return time_hires_bytes[dec];
5554 5555
}

5556
longlong Field_time_with_dec::val_int(void)
5557 5558 5559
{
  ASSERT_COLUMN_MARKED_FOR_READ;
  MYSQL_TIME ltime;
5560
  get_date(&ltime, TIME_TIME_ONLY);
5561 5562 5563 5564
  longlong val= TIME_to_ulonglong_time(&ltime);
  return ltime.neg ? -val : val;
}

5565
double Field_time_with_dec::val_real(void)
5566 5567 5568
{
  ASSERT_COLUMN_MARKED_FOR_READ;
  MYSQL_TIME ltime;
5569
  get_date(&ltime, TIME_TIME_ONLY);
5570 5571 5572
  return TIME_to_double(&ltime);
}

5573
bool Field_time_hires::get_date(MYSQL_TIME *ltime, ulonglong fuzzydate)
5574
{
5575 5576
  if (check_zero_in_date_with_warn(fuzzydate))
    return true;
Sergei Golubchik's avatar
Sergei Golubchik committed
5577 5578 5579
  uint32 len= pack_length();
  longlong packed= read_bigendian(ptr, len);

5580
  packed= sec_part_unshift(packed - zero_point, dec);
Sergei Golubchik's avatar
Sergei Golubchik committed
5581

5582
  unpack_time(packed, ltime);
5583 5584
  /*
    unpack_time() returns MYSQL_TIMESTAMP_DATETIME.
Sergei Golubchik's avatar
Sergei Golubchik committed
5585
    To get MYSQL_TIMESTAMP_TIME we need few adjustments
5586 5587 5588 5589
  */
  ltime->time_type= MYSQL_TIMESTAMP_TIME;
  ltime->hour+= (ltime->month*32+ltime->day)*24;
  ltime->month= ltime->day= 0;
5590
  return false;
5591 5592 5593 5594
}


int Field_time_hires::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
5595
{
5596 5597
  ulonglong a=read_bigendian(a_ptr, Field_time_hires::pack_length());
  ulonglong b=read_bigendian(b_ptr, Field_time_hires::pack_length());
unknown's avatar
unknown committed
5598 5599 5600
  return (a < b) ? -1 : (a > b) ? 1 : 0;
}

5601
void Field_time_hires::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
5602
{
5603 5604 5605
  DBUG_ASSERT(length == Field_time_hires::pack_length());
  memcpy(to, ptr, length);
  to[0]^= 128;
unknown's avatar
unknown committed
5606 5607
}

5608
void Field_time_with_dec::make_field(Send_field *field)
unknown's avatar
unknown committed
5609
{
5610 5611
  Field::make_field(field);
  field->decimals= dec;
5612 5613
}

5614 5615 5616 5617 5618 5619 5620
/****************************************************************************
** time type with fsp (MySQL-5.6 version)
** In string context: HH:MM:SS.FFFFFF
** In number context: HHMMSS.FFFFFF
****************************************************************************/

int Field_timef::reset()
5621
{
5622 5623 5624 5625 5626 5627 5628 5629 5630 5631 5632 5633 5634
  my_time_packed_to_binary(0, ptr, dec);
  return 0;
}

void Field_timef::store_TIME(MYSQL_TIME *ltime)
{
  my_time_trunc(ltime, decimals());
  longlong tmp= TIME_to_longlong_time_packed(ltime);
  my_time_packed_to_binary(tmp, ptr, dec);
}

bool Field_timef::get_date(MYSQL_TIME *ltime, ulonglong fuzzydate)
{
5635 5636
  if (check_zero_in_date_with_warn(fuzzydate))
    return true;
5637 5638 5639
  longlong tmp= my_time_packed_from_binary(ptr, dec);
  TIME_from_longlong_time_packed(ltime, tmp);
  return false;
unknown's avatar
unknown committed
5640 5641 5642 5643 5644 5645 5646 5647
}

/****************************************************************************
** year type
** Save in a byte the year 0, 1901->2155
** Can handle 2 byte or 4 byte years!
****************************************************************************/

unknown's avatar
unknown committed
5648
int Field_year::store(const char *from, uint len,CHARSET_INFO *cs)
unknown's avatar
unknown committed
5649
{
5650
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
5651
  char *end;
unknown's avatar
unknown committed
5652
  int error;
unknown's avatar
unknown committed
5653
  longlong nr= cs->cset->strntoull10rnd(cs, from, len, 0, &end, &error);
unknown's avatar
unknown committed
5654

5655
  if (nr < 0 || (nr >= 100 && nr <= 1900) || nr > 2155 || 
unknown's avatar
unknown committed
5656
      error == MY_ERRNO_ERANGE)
unknown's avatar
unknown committed
5657 5658
  {
    *ptr=0;
5659
    set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
5660
    return 1;
unknown's avatar
unknown committed
5661
  }
5662
  if (get_thd()->count_cuted_fields && 
unknown's avatar
unknown committed
5663 5664 5665 5666 5667 5668 5669
      (error= check_int(cs, from, len, end, error)))
  {
    if (error == 1)  /* empty or incorrect string */
    {
      *ptr= 0;
      return 1;
    }
unknown's avatar
unknown committed
5670
    error= 1;
unknown's avatar
unknown committed
5671
  }
unknown's avatar
unknown committed
5672

unknown's avatar
unknown committed
5673 5674 5675 5676 5677 5678 5679
  if (nr != 0 || len != 4)
  {
    if (nr < YY_PART_YEAR)
      nr+=100;					// 2000 - 2069
    else if (nr > 1900)
      nr-= 1900;
  }
unknown's avatar
unknown committed
5680
  *ptr= (char) (uchar) nr;
unknown's avatar
unknown committed
5681
  return error;
unknown's avatar
unknown committed
5682 5683
}

unknown's avatar
unknown committed
5684

unknown's avatar
unknown committed
5685
int Field_year::store(double nr)
unknown's avatar
unknown committed
5686
{
5687
  if (nr < 0.0 || nr > 2155.0)
5688
  {
5689
    (void) Field_year::store((longlong) -1, FALSE);
5690 5691
    return 1;
  }
5692
  return Field_year::store((longlong) nr, FALSE);
unknown's avatar
unknown committed
5693 5694
}

5695 5696

int Field_year::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
5697
{
5698
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
5699
  if (nr < 0 || (nr >= 100 && nr <= 1900) || nr > 2155)
unknown's avatar
unknown committed
5700
  {
5701
    *ptr= 0;
5702
    set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
5703
    return 1;
unknown's avatar
unknown committed
5704 5705 5706 5707 5708 5709 5710 5711
  }
  if (nr != 0 || field_length != 4)		// 0000 -> 0; 00 -> 2000
  {
    if (nr < YY_PART_YEAR)
      nr+=100;					// 2000 - 2069
    else if (nr > 1900)
      nr-= 1900;
  }
unknown's avatar
unknown committed
5712
  *ptr= (char) (uchar) nr;
5713
  return 0;
unknown's avatar
unknown committed
5714 5715
}

5716

5717 5718
int Field_year::store_time_dec(MYSQL_TIME *ltime, uint dec)
{
Sergei Golubchik's avatar
Sergei Golubchik committed
5719
  ErrConvTime str(ltime);
5720 5721 5722
  if (Field_year::store(ltime->year, 0))
    return 1;

5723
  set_datetime_warning(Sql_condition::WARN_LEVEL_WARN, WARN_DATA_TRUNCATED,
5724 5725 5726 5727
                       &str, ltime->time_type, 1);
  return 0;
}

unknown's avatar
unknown committed
5728 5729
bool Field_year::send_binary(Protocol *protocol)
{
5730
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
5731
  ulonglong tmp= Field_year::val_int();
5732
  return protocol->store_short(tmp);
unknown's avatar
unknown committed
5733
}
unknown's avatar
unknown committed
5734

5735

unknown's avatar
unknown committed
5736 5737 5738 5739 5740
double Field_year::val_real(void)
{
  return (double) Field_year::val_int();
}

5741

unknown's avatar
unknown committed
5742 5743
longlong Field_year::val_int(void)
{
5744
  ASSERT_COLUMN_MARKED_FOR_READ;
5745
  DBUG_ASSERT(field_length == 2 || field_length == 4);
5746
  int tmp= (int) ptr[0];
unknown's avatar
unknown committed
5747 5748 5749 5750 5751 5752 5753
  if (field_length != 4)
    tmp%=100;					// Return last 2 char
  else if (tmp)
    tmp+=1900;
  return (longlong) tmp;
}

5754

unknown's avatar
unknown committed
5755 5756 5757
String *Field_year::val_str(String *val_buffer,
			    String *val_ptr __attribute__((unused)))
{
5758
  DBUG_ASSERT(field_length < 5);
unknown's avatar
unknown committed
5759 5760 5761 5762
  val_buffer->alloc(5);
  val_buffer->length(field_length);
  char *to=(char*) val_buffer->ptr();
  sprintf(to,field_length == 2 ? "%02d" : "%04d",(int) Field_year::val_int());
5763
  val_buffer->set_charset(&my_charset_numeric);
unknown's avatar
unknown committed
5764 5765 5766
  return val_buffer;
}

5767

5768
bool Field_year::get_date(MYSQL_TIME *ltime,ulonglong fuzzydate)
5769 5770 5771 5772
{
  int tmp= (int) ptr[0];
  if (tmp || field_length != 4)
    tmp+= 1900;
5773 5774
  return int_to_datetime_with_warn(false, tmp * 10000,
                                    ltime, fuzzydate, field_name);
5775 5776 5777
}


unknown's avatar
unknown committed
5778 5779
void Field_year::sql_type(String &res) const
{
unknown's avatar
unknown committed
5780
  CHARSET_INFO *cs=res.charset();
5781
  res.length(cs->cset->snprintf(cs,(char*)res.ptr(),res.alloced_length(),
5782
			  "year(%d)",(int) field_length));
unknown's avatar
unknown committed
5783 5784 5785 5786 5787 5788 5789 5790 5791 5792
}


/****************************************************************************
** date type
** In string context: YYYY-MM-DD
** In number context: YYYYMMDD
** Stored as a 4 byte unsigned int
****************************************************************************/

5793
void Field_date::store_TIME(MYSQL_TIME *ltime)
unknown's avatar
unknown committed
5794
{
5795
  uint tmp= ltime->year*10000L + ltime->month*100+ltime->day;
Sergei Golubchik's avatar
Sergei Golubchik committed
5796
  int4store(ptr,tmp);
unknown's avatar
unknown committed
5797 5798
}

unknown's avatar
unknown committed
5799 5800 5801
bool Field_date::send_binary(Protocol *protocol)
{
  longlong tmp= Field_date::val_int();
5802
  MYSQL_TIME tm;
unknown's avatar
unknown committed
5803 5804 5805 5806 5807 5808
  tm.year= (uint32) tmp/10000L % 10000;
  tm.month= (uint32) tmp/100 % 100;
  tm.day= (uint32) tmp % 100;
  return protocol->store_date(&tm);
}

unknown's avatar
unknown committed
5809 5810 5811

double Field_date::val_real(void)
{
5812
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
5813
  int32 j;
Sergei Golubchik's avatar
Sergei Golubchik committed
5814
  j=sint4korr(ptr);
unknown's avatar
unknown committed
5815 5816 5817
  return (double) (uint32) j;
}

5818

unknown's avatar
unknown committed
5819 5820
longlong Field_date::val_int(void)
{
5821
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
5822
  int32 j;
Sergei Golubchik's avatar
Sergei Golubchik committed
5823
  j=sint4korr(ptr);
unknown's avatar
unknown committed
5824 5825 5826
  return (longlong) (uint32) j;
}

5827

unknown's avatar
unknown committed
5828 5829 5830
String *Field_date::val_str(String *val_buffer,
			    String *val_ptr __attribute__((unused)))
{
5831
  ASSERT_COLUMN_MARKED_FOR_READ;
5832
  MYSQL_TIME ltime;
unknown's avatar
unknown committed
5833
  int32 tmp;
Sergei Golubchik's avatar
Sergei Golubchik committed
5834
  tmp=sint4korr(ptr);
5835 5836 5837 5838
  ltime.neg= 0;
  ltime.year= (int) ((uint32) tmp/10000L % 10000);
  ltime.month= (int) ((uint32) tmp/100 % 100);
  ltime.day= (int) ((uint32) tmp % 100);
unknown's avatar
unknown committed
5839

Sergei Golubchik's avatar
Sergei Golubchik committed
5840 5841 5842 5843
  val_buffer->alloc(MAX_DATE_STRING_REP_LENGTH);
  uint length= (uint) my_date_to_str(&ltime,
                                     const_cast<char*>(val_buffer->ptr()));
  val_buffer->length(length);
Sergei Golubchik's avatar
Sergei Golubchik committed
5844
  val_buffer->set_charset(&my_charset_numeric);
5845

unknown's avatar
unknown committed
5846
  return val_buffer;
5847 5848 5849
}


5850
int Field_date::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
5851 5852
{
  int32 a,b;
Sergei Golubchik's avatar
Sergei Golubchik committed
5853 5854
  a=sint4korr(a_ptr);
  b=sint4korr(b_ptr);
unknown's avatar
unknown committed
5855 5856 5857 5858
  return ((uint32) a < (uint32) b) ? -1 : ((uint32) a > (uint32) b) ? 1 : 0;
}


5859
void Field_date::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
5860
{
Sergei Golubchik's avatar
Sergei Golubchik committed
5861 5862 5863 5864
  to[0] = ptr[3];
  to[1] = ptr[2];
  to[2] = ptr[1];
  to[3] = ptr[0];
unknown's avatar
unknown committed
5865 5866 5867 5868
}

void Field_date::sql_type(String &res) const
{
5869
  res.set_ascii(STRING_WITH_LEN("date"));
unknown's avatar
unknown committed
5870 5871
}

5872

unknown's avatar
unknown committed
5873 5874 5875 5876 5877 5878
/****************************************************************************
** The new date type
** This is identical to the old date type, but stored on 3 bytes instead of 4
** In number context: YYYYMMDD
****************************************************************************/

5879
void Field_newdate::store_TIME(MYSQL_TIME *ltime)
unknown's avatar
unknown committed
5880
{
5881
  uint tmp= ltime->year*16*32 + ltime->month*32+ltime->day;
unknown's avatar
unknown committed
5882 5883 5884
  int3store(ptr,tmp);
}

5885

unknown's avatar
unknown committed
5886 5887
bool Field_newdate::send_binary(Protocol *protocol)
{
5888
  MYSQL_TIME tm;
unknown's avatar
unknown committed
5889 5890 5891
  Field_newdate::get_date(&tm,0);
  return protocol->store_date(&tm);
}
unknown's avatar
unknown committed
5892

5893

unknown's avatar
unknown committed
5894 5895
double Field_newdate::val_real(void)
{
5896
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
5897 5898 5899
  return (double) Field_newdate::val_int();
}

5900

unknown's avatar
unknown committed
5901 5902
longlong Field_newdate::val_int(void)
{
5903
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
5904
  ulong j= uint3korr(ptr);
unknown's avatar
unknown committed
5905 5906 5907 5908
  j= (j % 32L)+(j / 32L % 16L)*100L + (j/(16L*32L))*10000L;
  return (longlong) j;
}

5909

unknown's avatar
unknown committed
5910 5911 5912
String *Field_newdate::val_str(String *val_buffer,
			       String *val_ptr __attribute__((unused)))
{
5913
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
5914 5915
  val_buffer->alloc(field_length);
  val_buffer->length(field_length);
unknown's avatar
unknown committed
5916
  uint32 tmp=(uint32) uint3korr(ptr);
unknown's avatar
unknown committed
5917 5918 5919 5920
  int part;
  char *pos=(char*) val_buffer->ptr()+10;

  /* Open coded to get more speed */
unknown's avatar
unknown committed
5921
  *pos--=0;					// End NULL
unknown's avatar
unknown committed
5922
  part=(int) (tmp & 31);
unknown's avatar
unknown committed
5923 5924 5925
  *pos--= (char) ('0'+part%10);
  *pos--= (char) ('0'+part/10);
  *pos--= '-';
unknown's avatar
unknown committed
5926
  part=(int) (tmp >> 5 & 15);
unknown's avatar
unknown committed
5927 5928 5929
  *pos--= (char) ('0'+part%10);
  *pos--= (char) ('0'+part/10);
  *pos--= '-';
unknown's avatar
unknown committed
5930
  part=(int) (tmp >> 9);
unknown's avatar
unknown committed
5931 5932 5933 5934
  *pos--= (char) ('0'+part%10); part/=10;
  *pos--= (char) ('0'+part%10); part/=10;
  *pos--= (char) ('0'+part%10); part/=10;
  *pos=   (char) ('0'+part);
5935
  val_buffer->set_charset(&my_charset_numeric);
unknown's avatar
unknown committed
5936 5937 5938
  return val_buffer;
}

5939

5940
bool Field_newdate::get_date(MYSQL_TIME *ltime,ulonglong fuzzydate)
unknown's avatar
unknown committed
5941
{
unknown's avatar
unknown committed
5942
  uint32 tmp=(uint32) uint3korr(ptr);
unknown's avatar
unknown committed
5943 5944 5945
  ltime->day=   tmp & 31;
  ltime->month= (tmp >> 5) & 15;
  ltime->year=  (tmp >> 9);
5946
  ltime->time_type= MYSQL_TIMESTAMP_DATE;
5947
  ltime->hour= ltime->minute= ltime->second= ltime->second_part= ltime->neg= 0;
5948 5949 5950
  if (!tmp)
    return fuzzydate & TIME_NO_ZERO_DATE;
  if (!ltime->month || !ltime->day)
5951
    return fuzzydate & TIME_NO_ZERO_IN_DATE;
5952
  return 0;
unknown's avatar
unknown committed
5953 5954
}

5955

5956
int Field_newdate::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
5957
{
unknown's avatar
unknown committed
5958 5959 5960
  uint32 a,b;
  a=(uint32) uint3korr(a_ptr);
  b=(uint32) uint3korr(b_ptr);
unknown's avatar
unknown committed
5961 5962 5963
  return (a < b) ? -1 : (a > b) ? 1 : 0;
}

5964

5965
void Field_newdate::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
5966 5967 5968 5969 5970 5971
{
  to[0] = ptr[2];
  to[1] = ptr[1];
  to[2] = ptr[0];
}

5972

unknown's avatar
unknown committed
5973 5974
void Field_newdate::sql_type(String &res) const
{
5975
  res.set_ascii(STRING_WITH_LEN("date"));
unknown's avatar
unknown committed
5976 5977 5978 5979 5980 5981 5982 5983 5984 5985
}


/****************************************************************************
** datetime type
** In string context: YYYY-MM-DD HH:MM:DD
** In number context: YYYYMMDDHHMMDD
** Stored as a 8 byte unsigned int. Should sometimes be change to a 6 byte int.
****************************************************************************/

5986
void Field_datetime::store_TIME(MYSQL_TIME *ltime)
unknown's avatar
unknown committed
5987
{
5988
  ulonglong tmp= TIME_to_ulonglong_datetime(ltime);
Sergei Golubchik's avatar
Sergei Golubchik committed
5989
  int8store(ptr,tmp);
unknown's avatar
unknown committed
5990 5991
}

unknown's avatar
unknown committed
5992 5993
bool Field_datetime::send_binary(Protocol *protocol)
{
5994
  MYSQL_TIME tm;
5995
  Field_datetime::get_date(&tm, 0);
5996
  return protocol->store(&tm, 0);
unknown's avatar
unknown committed
5997
}
5998 5999


unknown's avatar
unknown committed
6000 6001 6002 6003 6004 6005 6006
double Field_datetime::val_real(void)
{
  return (double) Field_datetime::val_int();
}

longlong Field_datetime::val_int(void)
{
6007
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
6008
  longlong j;
Sergei Golubchik's avatar
Sergei Golubchik committed
6009
  j=sint8korr(ptr);
unknown's avatar
unknown committed
6010 6011 6012 6013 6014 6015 6016 6017 6018
  return j;
}


String *Field_datetime::val_str(String *val_buffer,
				String *val_ptr __attribute__((unused)))
{
  val_buffer->alloc(field_length);
  val_buffer->length(field_length);
6019 6020

  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
6021 6022 6023 6024 6025
  ulonglong tmp;
  long part1,part2;
  char *pos;
  int part3;

6026
  tmp= Field_datetime::val_int();
unknown's avatar
unknown committed
6027 6028

  /*
unknown's avatar
unknown committed
6029
    Avoid problem with slow longlong arithmetic and sprintf
unknown's avatar
unknown committed
6030 6031
  */

6032 6033
  part1=(long) (tmp/1000000LL);
  part2=(long) (tmp - (ulonglong) part1*1000000LL);
unknown's avatar
unknown committed
6034

6035
  pos=(char*) val_buffer->ptr() + MAX_DATETIME_WIDTH;
unknown's avatar
unknown committed
6036
  *pos--=0;
unknown's avatar
unknown committed
6037 6038 6039 6040 6041 6042 6043 6044 6045 6046 6047 6048 6049 6050 6051 6052 6053 6054 6055
  *pos--= (char) ('0'+(char) (part2%10)); part2/=10;
  *pos--= (char) ('0'+(char) (part2%10)); part3= (int) (part2 / 10);
  *pos--= ':';
  *pos--= (char) ('0'+(char) (part3%10)); part3/=10;
  *pos--= (char) ('0'+(char) (part3%10)); part3/=10;
  *pos--= ':';
  *pos--= (char) ('0'+(char) (part3%10)); part3/=10;
  *pos--= (char) ('0'+(char) part3);
  *pos--= ' ';
  *pos--= (char) ('0'+(char) (part1%10)); part1/=10;
  *pos--= (char) ('0'+(char) (part1%10)); part1/=10;
  *pos--= '-';
  *pos--= (char) ('0'+(char) (part1%10)); part1/=10;
  *pos--= (char) ('0'+(char) (part1%10)); part3= (int) (part1/10);
  *pos--= '-';
  *pos--= (char) ('0'+(char) (part3%10)); part3/=10;
  *pos--= (char) ('0'+(char) (part3%10)); part3/=10;
  *pos--= (char) ('0'+(char) (part3%10)); part3/=10;
  *pos=(char) ('0'+(char) part3);
6056
  val_buffer->set_charset(&my_charset_numeric);
unknown's avatar
unknown committed
6057 6058 6059
  return val_buffer;
}

6060
bool Field_datetime::get_date(MYSQL_TIME *ltime, ulonglong fuzzydate)
unknown's avatar
unknown committed
6061 6062
{
  longlong tmp=Field_datetime::val_int();
unknown's avatar
unknown committed
6063
  uint32 part1,part2;
6064 6065
  part1=(uint32) (tmp/1000000LL);
  part2=(uint32) (tmp - (ulonglong) part1*1000000LL);
unknown's avatar
unknown committed
6066

6067
  ltime->time_type=	MYSQL_TIMESTAMP_DATETIME;
unknown's avatar
unknown committed
6068 6069 6070 6071 6072 6073 6074 6075
  ltime->neg=		0;
  ltime->second_part=	0;
  ltime->second=	(int) (part2%100);
  ltime->minute=	(int) (part2/100%100);
  ltime->hour=		(int) (part2/10000);
  ltime->day=		(int) (part1%100);
  ltime->month= 	(int) (part1/100%100);
  ltime->year= 		(int) (part1/10000);
6076
  if (!tmp)
Sergei Golubchik's avatar
Sergei Golubchik committed
6077
    return fuzzydate & TIME_NO_ZERO_DATE;
6078
  if (!ltime->month || !ltime->day)
6079
    return fuzzydate & TIME_NO_ZERO_IN_DATE;
6080
  return 0;
unknown's avatar
unknown committed
6081 6082
}

6083
int Field_datetime::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
6084 6085
{
  longlong a,b;
Sergei Golubchik's avatar
Sergei Golubchik committed
6086 6087
  a=sint8korr(a_ptr);
  b=sint8korr(b_ptr);
unknown's avatar
unknown committed
6088 6089 6090 6091
  return ((ulonglong) a < (ulonglong) b) ? -1 :
    ((ulonglong) a > (ulonglong) b) ? 1 : 0;
}

6092
void Field_datetime::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
6093
{
Sergei Golubchik's avatar
Sergei Golubchik committed
6094 6095 6096 6097 6098 6099 6100 6101
  to[0] = ptr[7];
  to[1] = ptr[6];
  to[2] = ptr[5];
  to[3] = ptr[4];
  to[4] = ptr[3];
  to[5] = ptr[2];
  to[6] = ptr[1];
  to[7] = ptr[0];
unknown's avatar
unknown committed
6102 6103 6104 6105 6106
}


void Field_datetime::sql_type(String &res) const
{
6107 6108 6109 6110 6111 6112 6113 6114
  if (decimals() == 0)
  {
    res.set_ascii(STRING_WITH_LEN("datetime"));
    return;
  }
  CHARSET_INFO *cs= res.charset();
  res.length(cs->cset->snprintf(cs, (char*) res.ptr(), res.alloced_length(),
                                "datetime(%u)", decimals()));
unknown's avatar
unknown committed
6115 6116
}

6117 6118 6119

int Field_datetime::set_time()
{
6120
  THD *thd= table->in_use;
6121 6122 6123 6124 6125 6126 6127 6128 6129 6130
  MYSQL_TIME now_time;
  thd->variables.time_zone->gmt_sec_to_TIME(&now_time, thd->query_start());
  now_time.second_part= thd->query_start_sec_part();
  set_notnull();
  store_TIME(&now_time);
  thd->time_zone_used= 1;
  return 0;
}


6131 6132 6133
void Field_datetime_hires::store_TIME(MYSQL_TIME *ltime)
{
  ulonglong packed= sec_part_shift(pack_time(ltime), dec);
Sergei Golubchik's avatar
Sergei Golubchik committed
6134
  store_bigendian(packed, ptr, Field_datetime_hires::pack_length());
6135 6136
}

6137
int Field_temporal_with_date::store_decimal(const my_decimal *d)
6138
{
6139 6140 6141 6142 6143
  ulonglong nr;
  ulong sec_part;
  int error;
  MYSQL_TIME ltime;
  longlong tmp;
6144
  THD *thd= get_thd();
Sergei Golubchik's avatar
Sergei Golubchik committed
6145
  ErrConvDecimal str(d);
6146 6147

  if (my_decimal2seconds(d, &nr, &sec_part))
unknown's avatar
unknown committed
6148
  {
6149 6150
    tmp= -1;
    error= 2;
unknown's avatar
unknown committed
6151 6152
  }
  else
Sergei Golubchik's avatar
Sergei Golubchik committed
6153 6154
    tmp= number_to_datetime(nr, sec_part, &ltime, sql_mode_for_dates(thd),
                            &error);
6155 6156

  return store_TIME_with_warning(&ltime, &str, error, tmp != -1);
unknown's avatar
unknown committed
6157 6158
}

6159
bool Field_datetime_with_dec::send_binary(Protocol *protocol)
6160 6161
{
  MYSQL_TIME ltime;
Sergei Golubchik's avatar
Sergei Golubchik committed
6162
  get_date(&ltime, 0);
6163 6164
  return protocol->store(&ltime, dec);
}
unknown's avatar
unknown committed
6165

6166

6167
double Field_datetime_with_dec::val_real(void)
unknown's avatar
unknown committed
6168
{
6169
  MYSQL_TIME ltime;
Sergei Golubchik's avatar
Sergei Golubchik committed
6170
  get_date(&ltime, 0);
6171 6172 6173
  return TIME_to_double(&ltime);
}

6174
longlong Field_datetime_with_dec::val_int(void)
6175 6176
{
  MYSQL_TIME ltime;
Sergei Golubchik's avatar
Sergei Golubchik committed
6177
  get_date(&ltime, 0);
6178 6179 6180 6181
  return TIME_to_ulonglong_datetime(&ltime);
}


6182 6183
String *Field_datetime_with_dec::val_str(String *str,
                                         String *unused __attribute__((unused)))
6184 6185
{
  MYSQL_TIME ltime;
Sergei Golubchik's avatar
Sergei Golubchik committed
6186
  get_date(&ltime, 0);
6187 6188 6189
  str->alloc(field_length+1);
  str->length(field_length);
  my_datetime_to_str(&ltime, (char*) str->ptr(), dec);
6190
  str->set_charset(&my_charset_numeric);
6191 6192 6193
  return str;
}

6194
bool Field_datetime_hires::get_date(MYSQL_TIME *ltime, ulonglong fuzzydate)
6195
{
Sergei Golubchik's avatar
Sergei Golubchik committed
6196
  ulonglong packed= read_bigendian(ptr, Field_datetime_hires::pack_length());
6197
  unpack_time(sec_part_unshift(packed, dec), ltime);
6198 6199 6200
  if (!packed)
    return fuzzydate & TIME_NO_ZERO_DATE;
  if (!ltime->month || !ltime->day)
6201
    return fuzzydate & TIME_NO_ZERO_IN_DATE;
6202
  return 0;
6203 6204 6205 6206
}

uint32 Field_datetime_hires::pack_length() const
{
6207
  return datetime_hires_bytes[dec];
6208 6209 6210 6211
}

int Field_datetime_hires::cmp(const uchar *a_ptr, const uchar *b_ptr)
{
Sergei Golubchik's avatar
Sergei Golubchik committed
6212 6213
  ulonglong a=read_bigendian(a_ptr, Field_datetime_hires::pack_length());
  ulonglong b=read_bigendian(b_ptr, Field_datetime_hires::pack_length());
6214 6215 6216
  return a < b ? -1 : a > b ? 1 : 0;
}

6217
void Field_datetime_with_dec::make_field(Send_field *field)
6218
{
6219 6220
  Field::make_field(field);
  field->decimals= dec;
6221 6222 6223
}


6224 6225 6226 6227 6228
/****************************************************************************
** MySQL-5.6 compatible DATETIME(N)
**
****************************************************************************/
int Field_datetimef::reset()
6229
{
6230 6231
  my_datetime_packed_to_binary(0, ptr, dec);
  return 0;
6232 6233
}

6234
void Field_datetimef::store_TIME(MYSQL_TIME *ltime)
6235
{
6236 6237 6238 6239 6240 6241 6242 6243 6244 6245 6246 6247
  my_time_trunc(ltime, decimals());
  longlong tmp= TIME_to_longlong_datetime_packed(ltime);
  my_datetime_packed_to_binary(tmp, ptr, dec);
}

bool Field_datetimef::get_date(MYSQL_TIME *ltime, ulonglong fuzzydate)
{
  longlong tmp= my_datetime_packed_from_binary(ptr, dec);
  TIME_from_longlong_datetime_packed(ltime, tmp);
  if (!tmp)
    return fuzzydate & TIME_NO_ZERO_DATE;
  if (!ltime->month || !ltime->day)
Sergei Golubchik's avatar
Sergei Golubchik committed
6248
    return fuzzydate & TIME_NO_ZERO_IN_DATE;
6249
  return false;
unknown's avatar
unknown committed
6250 6251
}

6252

unknown's avatar
unknown committed
6253 6254 6255 6256 6257
/****************************************************************************
** string type
** A string may be varchar or binary
****************************************************************************/

6258 6259 6260 6261 6262 6263 6264 6265 6266 6267
/*
  Report "not well formed" or "cannot convert" error
  after storing a character string info a field.

  SYNOPSIS
    check_string_copy_error()
    field                    - Field
    well_formed_error_pos    - where not well formed data was first met
    cannot_convert_error_pos - where a not-convertable character was first met
    end                      - end of the string
6268
    cs                       - character set of the string
6269 6270 6271 6272 6273 6274 6275 6276 6277 6278 6279 6280 6281 6282 6283 6284 6285 6286 6287

  NOTES
    As of version 5.0 both cases return the same error:
  
      "Invalid string value: 'xxx' for column 't' at row 1"
  
  Future versions will possibly introduce a new error message:

      "Cannot convert character string: 'xxx' for column 't' at row 1"

  RETURN
    FALSE - If errors didn't happen
    TRUE  - If an error happened
*/

static bool
check_string_copy_error(Field_str *field,
                        const char *well_formed_error_pos,
                        const char *cannot_convert_error_pos,
6288 6289
                        const char *end,
                        CHARSET_INFO *cs)
6290
{
6291 6292
  const char *pos;
  char tmp[32];
6293 6294 6295
  THD *thd;

  thd= field->get_thd();
Marc Alff's avatar
Marc Alff committed
6296

6297 6298 6299 6300
  if (!(pos= well_formed_error_pos) &&
      !(pos= cannot_convert_error_pos))
    return FALSE;

6301
  convert_to_printable(tmp, sizeof(tmp), pos, (end - pos), cs, 6);
6302

Marc Alff's avatar
Marc Alff committed
6303
  push_warning_printf(thd,
6304
                      Sql_condition::WARN_LEVEL_WARN,
Marc Alff's avatar
Marc Alff committed
6305
                      ER_TRUNCATED_WRONG_VALUE_FOR_FIELD,
6306 6307
                      ER(ER_TRUNCATED_WRONG_VALUE_FOR_FIELD),
                      "string", tmp, field->field_name,
6308
                      thd->get_stmt_da()->current_row_for_warning());
6309 6310 6311 6312 6313
  return TRUE;
}


/*
unknown's avatar
unknown committed
6314
  Check if we lost any important data and send a truncation error/warning
6315 6316

  SYNOPSIS
unknown's avatar
unknown committed
6317
    Field_longstr::report_if_important_data()
6318
    pstr                     - Truncated rest of string
unknown's avatar
unknown committed
6319
    end                      - End of truncated string
6320
    count_spaces             - Treat traling spaces as important data
6321

unknown's avatar
unknown committed
6322 6323 6324 6325 6326 6327 6328 6329
  RETURN VALUES
    0   - None was truncated (or we don't count cut fields)
    2   - Some bytes was truncated

  NOTE
    Check if we lost any important data (anything in a binary string,
    or any non-space in others). If only trailing spaces was lost,
    send a truncation note, otherwise send a truncation error.
6330
    Silently ignore traling spaces if the count_space parameter is FALSE.
6331 6332
*/

unknown's avatar
unknown committed
6333
int
6334
Field_longstr::report_if_important_data(const char *pstr, const char *end,
6335
                                        bool count_spaces)
6336
{
6337 6338
  THD *thd= get_thd();
  if ((pstr < end) && thd->count_cuted_fields)
unknown's avatar
unknown committed
6339
  {
6340
    if (test_if_important_data(field_charset, pstr, end))
unknown's avatar
unknown committed
6341
    {
6342
      if (thd->abort_on_warning)
6343
        set_warning(Sql_condition::WARN_LEVEL_WARN, ER_DATA_TOO_LONG, 1);
unknown's avatar
unknown committed
6344
      else
6345
        set_warning(Sql_condition::WARN_LEVEL_WARN, WARN_DATA_TRUNCATED, 1);
6346
      return 2;
unknown's avatar
unknown committed
6347
    }
6348 6349
    else if (count_spaces)
    { /* If we lost only spaces then produce a NOTE, not a WARNING */
6350
      set_warning(Sql_condition::WARN_LEVEL_NOTE, WARN_DATA_TRUNCATED, 1);
6351 6352
      return 2;
    }
unknown's avatar
unknown committed
6353 6354
  }
  return 0;
6355 6356 6357
}


unknown's avatar
unknown committed
6358 6359
	/* Copy a string and fill with space */

unknown's avatar
unknown committed
6360
int Field_string::store(const char *from,uint length,CHARSET_INFO *cs)
unknown's avatar
unknown committed
6361
{
6362
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
6363
  uint copy_length;
6364 6365 6366
  const char *well_formed_error_pos;
  const char *cannot_convert_error_pos;
  const char *from_end_pos;
6367

6368
  /* See the comment for Field_long::store(long long) */
6369
  DBUG_ASSERT(!table || table->in_use == current_thd);
6370

6371
  copy_length= well_formed_copy_nchars(field_charset,
6372
                                       (char*) ptr, field_length,
6373 6374 6375 6376 6377
                                       cs, from, length,
                                       field_length / field_charset->mbmaxlen,
                                       &well_formed_error_pos,
                                       &cannot_convert_error_pos,
                                       &from_end_pos);
6378 6379 6380

  /* Append spaces if the string was shorter than the field. */
  if (copy_length < field_length)
6381
    field_charset->cset->fill(field_charset,(char*) ptr+copy_length,
6382
                              field_length-copy_length,
6383
                              field_charset->pad_char);
6384

6385
  if (check_string_copy_error(this, well_formed_error_pos,
6386
                              cannot_convert_error_pos, from + length, cs))
6387 6388
    return 2;

6389
  return report_if_important_data(from_end_pos, from + length, FALSE);
unknown's avatar
unknown committed
6390 6391 6392
}


6393
/**
6394 6395
  Store double value in Field_string or Field_varstring.

6396
  Pretty prints double number into field_length characters buffer.
6397

6398
  @param nr            number
6399 6400
*/

unknown's avatar
unknown committed
6401
int Field_str::store(double nr)
unknown's avatar
unknown committed
6402
{
6403
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
6404
  char buff[DOUBLE_TO_STRING_CONVERSION_BUFFER_SIZE];
6405
  uint local_char_length= field_length / charset()->mbmaxlen;
6406 6407 6408 6409 6410 6411
  size_t length= 0;
  my_bool error= (local_char_length == 0);

  // my_gcvt() requires width > 0, and we may have a CHAR(0) column.
  if (!error)
    length= my_gcvt(nr, MY_GCVT_ARG_DOUBLE, local_char_length, buff, &error);
6412

6413
  if (error)
6414
  {
6415
    if (get_thd()->abort_on_warning)
6416
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_DATA_TOO_LONG, 1);
6417
    else
6418
      set_warning(Sql_condition::WARN_LEVEL_WARN, WARN_DATA_TRUNCATED, 1);
6419
  }
6420
  return store(buff, length, &my_charset_numeric);
6421 6422
}

unknown's avatar
unknown committed
6423
uint Field::is_equal(Create_field *new_field)
unknown's avatar
unknown committed
6424
{
6425
  return (new_field->sql_type == real_type());
unknown's avatar
unknown committed
6426 6427 6428
}


unknown's avatar
unknown committed
6429
uint Field_str::is_equal(Create_field *new_field)
unknown's avatar
unknown committed
6430
{
6431
  if (field_flags_are_binary() != new_field->field_flags_are_binary())
6432
    return 0;
unknown's avatar
unknown committed
6433

6434
  return ((new_field->sql_type == real_type()) &&
unknown's avatar
unknown committed
6435
	  new_field->charset == field_charset &&
unknown's avatar
unknown committed
6436
	  new_field->length == max_display_length());
unknown's avatar
unknown committed
6437 6438 6439
}


6440
int Field_string::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
6441
{
unknown's avatar
unknown committed
6442 6443 6444
  char buff[64];
  int  l;
  CHARSET_INFO *cs=charset();
6445 6446
  l= (cs->cset->longlong10_to_str)(cs,buff,sizeof(buff),
                                   unsigned_val ? 10 : -10, nr);
unknown's avatar
unknown committed
6447
  return Field_string::store(buff,(uint)l,cs);
unknown's avatar
unknown committed
6448 6449
}

6450

unknown's avatar
unknown committed
6451 6452
int Field_longstr::store_decimal(const my_decimal *d)
{
6453
  char buff[DECIMAL_MAX_STR_LENGTH+1];
6454
  String str(buff, sizeof(buff), &my_charset_numeric);
unknown's avatar
unknown committed
6455
  my_decimal2string(E_DEC_FATAL_ERROR, d, 0, 0, 0, &str);
6456
  return store(str.ptr(), str.length(), str.charset());
unknown's avatar
unknown committed
6457
}
unknown's avatar
unknown committed
6458

6459 6460 6461 6462 6463
uint32 Field_longstr::max_data_length() const
{
  return field_length + (field_length > 255 ? 2 : 1);
}

6464

unknown's avatar
unknown committed
6465 6466
double Field_string::val_real(void)
{
6467
  ASSERT_COLUMN_MARKED_FOR_READ;
6468 6469
  int error;
  char *end;
6470
  CHARSET_INFO *cs= charset();
6471 6472
  double result;
  
6473
  result=  my_strntod(cs,(char*) ptr,field_length,&end,&error);
6474
  if (!get_thd()->no_errors &&
6475 6476 6477
      (error || (field_length != (uint32)(end - (char*) ptr) && 
                 !check_if_only_end_space(cs, end,
                                          (char*) ptr + field_length))))
6478
  {
6479
    ErrConvString err((char*) ptr, field_length, cs);
6480
    push_warning_printf(current_thd, Sql_condition::WARN_LEVEL_WARN,
6481 6482 6483
                        ER_TRUNCATED_WRONG_VALUE,
                        ER(ER_TRUNCATED_WRONG_VALUE), "DOUBLE",
                        err.ptr());
6484 6485
  }
  return result;
unknown's avatar
unknown committed
6486 6487 6488 6489 6490
}


longlong Field_string::val_int(void)
{
6491
  ASSERT_COLUMN_MARKED_FOR_READ;
6492 6493 6494 6495 6496
  int error;
  char *end;
  CHARSET_INFO *cs= charset();
  longlong result;

6497
  result= my_strntoll(cs, (char*) ptr,field_length,10,&end,&error);
6498
  if (!get_thd()->no_errors &&
6499 6500 6501
      (error || (field_length != (uint32)(end - (char*) ptr) && 
                 !check_if_only_end_space(cs, end,
                                          (char*) ptr + field_length))))
6502
  {
6503
    ErrConvString err((char*) ptr, field_length, cs);
6504
    push_warning_printf(current_thd, Sql_condition::WARN_LEVEL_WARN,
6505 6506
                        ER_TRUNCATED_WRONG_VALUE, 
                        ER(ER_TRUNCATED_WRONG_VALUE),
6507
                        "INTEGER", err.ptr());
6508 6509
  }
  return result;
unknown's avatar
unknown committed
6510 6511 6512 6513 6514 6515
}


String *Field_string::val_str(String *val_buffer __attribute__((unused)),
			      String *val_ptr)
{
6516
  ASSERT_COLUMN_MARKED_FOR_READ;
6517
  /* See the comment for Field_long::store(long long) */
6518
  DBUG_ASSERT(!table || table->in_use == current_thd);
6519
  uint length;
6520
  if (get_thd()->variables.sql_mode &
6521
      MODE_PAD_CHAR_TO_FULL_LENGTH)
6522 6523
    length= my_charpos(field_charset, ptr, ptr + field_length,
                       field_length / field_charset->mbmaxlen);
6524
  else
6525 6526
    length= field_charset->cset->lengthsp(field_charset, (const char*) ptr,
                                          field_length);
unknown's avatar
unknown committed
6527
  val_ptr->set((const char*) ptr, length, field_charset);
unknown's avatar
unknown committed
6528 6529 6530 6531
  return val_ptr;
}


unknown's avatar
unknown committed
6532 6533
my_decimal *Field_string::val_decimal(my_decimal *decimal_value)
{
6534
  ASSERT_COLUMN_MARKED_FOR_READ;
6535 6536
  int err= str2my_decimal(E_DEC_FATAL_ERROR, (char*) ptr, field_length,
                          charset(), decimal_value);
6537
  if (!get_thd()->no_errors && err)
6538
  {
6539
    ErrConvString errmsg((char*) ptr, field_length, charset());
6540
    push_warning_printf(current_thd, Sql_condition::WARN_LEVEL_WARN,
6541 6542
                        ER_TRUNCATED_WRONG_VALUE, 
                        ER(ER_TRUNCATED_WRONG_VALUE),
6543
                        "DECIMAL", errmsg.ptr());
6544 6545
  }

unknown's avatar
unknown committed
6546 6547 6548 6549
  return decimal_value;
}


6550 6551 6552 6553
struct Check_field_param {
  Field *field;
};

6554
#ifdef HAVE_REPLICATION
6555 6556 6557 6558 6559 6560 6561 6562 6563 6564 6565
static bool
check_field_for_37426(const void *param_arg)
{
  Check_field_param *param= (Check_field_param*) param_arg;
  DBUG_ASSERT(param->field->real_type() == MYSQL_TYPE_STRING);
  DBUG_PRINT("debug", ("Field %s - type: %d, size: %d",
                       param->field->field_name,
                       param->field->real_type(),
                       param->field->row_pack_length()));
  return param->field->row_pack_length() > 255;
}
6566
#endif
6567

6568 6569 6570
bool
Field_string::compatible_field_size(uint field_metadata,
                                    Relay_log_info *rli_arg,
6571
                                    uint16 mflags __attribute__((unused)),
6572
                                    int *order_var)
6573 6574 6575 6576 6577 6578 6579
{
#ifdef HAVE_REPLICATION
  const Check_field_param check_param = { this };
  if (rpl_master_has_bug(rli_arg, 37426, TRUE,
                         check_field_for_37426, &check_param))
    return FALSE;                        // Not compatible field sizes
#endif
6580
  return Field::compatible_field_size(field_metadata, rli_arg, mflags, order_var);
6581 6582 6583
}


6584
int Field_string::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
6585
{
unknown's avatar
unknown committed
6586 6587 6588 6589 6590 6591 6592 6593 6594 6595
  uint a_len, b_len;

  if (field_charset->mbmaxlen != 1)
  {
    uint char_len= field_length/field_charset->mbmaxlen;
    a_len= my_charpos(field_charset, a_ptr, a_ptr + field_length, char_len);
    b_len= my_charpos(field_charset, b_ptr, b_ptr + field_length, char_len);
  }
  else
    a_len= b_len= field_length;
unknown's avatar
unknown committed
6596 6597 6598 6599 6600
  /*
    We have to remove end space to be able to compare multi-byte-characters
    like in latin_de 'ae' and 0xe4
  */
  return field_charset->coll->strnncollsp(field_charset,
6601 6602
                                          a_ptr, a_len,
                                          b_ptr, b_len,
6603
                                          0);
unknown's avatar
unknown committed
6604 6605
}

6606

6607
void Field_string::sort_string(uchar *to,uint length)
unknown's avatar
unknown committed
6608
{
6609
  uint tmp __attribute__((unused))=
6610 6611 6612 6613 6614 6615 6616
    field_charset->coll->strnxfrm(field_charset,
                                  to, length,
                                  char_length() *
                                  field_charset->strxfrm_multiply,
                                  ptr, field_length,
                                  MY_STRXFRM_PAD_WITH_SPACE |
                                  MY_STRXFRM_PAD_TO_MAXLEN);
6617
  DBUG_ASSERT(tmp == length);
unknown's avatar
unknown committed
6618 6619 6620 6621 6622
}


void Field_string::sql_type(String &res) const
{
6623
  THD *thd= table->in_use;
unknown's avatar
unknown committed
6624
  CHARSET_INFO *cs=res.charset();
6625 6626 6627 6628
  ulong length;

  length= cs->cset->snprintf(cs,(char*) res.ptr(),
                             res.alloced_length(), "%s(%d)",
6629
                             (type() == MYSQL_TYPE_VAR_STRING ?
6630
                              (has_charset() ? "varchar" : "varbinary") :
6631
			      (has_charset() ? "char" : "binary")),
6632
                             (int) field_length / charset()->mbmaxlen);
6633
  res.length(length);
6634 6635
  if ((thd->variables.sql_mode & (MODE_MYSQL323 | MODE_MYSQL40)) &&
      has_charset() && (charset()->state & MY_CS_BINSORT))
6636
    res.append(STRING_WITH_LEN(" binary"));
unknown's avatar
unknown committed
6637 6638
}

6639

Sergei Golubchik's avatar
Sergei Golubchik committed
6640
uchar *Field_string::pack(uchar *to, const uchar *from, uint max_length)
6641
{
6642
  uint length=      MY_MIN(field_length,max_length);
6643
  uint local_char_length= max_length/field_charset->mbmaxlen;
6644 6645
  DBUG_PRINT("debug", ("Packing field '%s' - length: %u ", field_name, length));

6646 6647 6648 6649
  if (length > local_char_length)
    local_char_length= my_charpos(field_charset, from, from+length,
                                  local_char_length);
  set_if_smaller(length, local_char_length);
Luis Soares's avatar
Luis Soares committed
6650 6651 6652 6653 6654 6655 6656 6657 6658 6659 6660 6661 6662 6663
 
  /*
     TODO: change charset interface to add a new function that does 
           the following or add a flag to lengthsp to do it itself 
           (this is for not packing padding adding bytes in BINARY 
           fields).
  */
  if (field_charset->mbmaxlen == 1)
  {
    while (length && from[length-1] == field_charset->pad_char)
      length --;
  }
  else
    length= field_charset->cset->lengthsp(field_charset, (const char*) from, length);
6664 6665

  // Length always stored little-endian
6666
  *to++= (uchar) length;
6667
  if (field_length > 255)
6668
    *to++= (uchar) (length >> 8);
6669 6670

  // Store the actual bytes of the string
6671 6672
  memcpy(to, from, length);
  return to+length;
6673 6674 6675
}


6676 6677 6678 6679 6680 6681 6682 6683 6684 6685
/**
   Unpack a string field from row data.

   This method is used to unpack a string field from a master whose size 
   of the field is less than that of the slave. Note that there can be a
   variety of field types represented with this class. Certain types like
   ENUM or SET are processed differently. Hence, the upper byte of the 
   @c param_data argument contains the result of field->real_type() from
   the master.

6686 6687 6688
   @note For information about how the length is packed, see @c
   Field_string::do_save_field_metadata

6689 6690 6691 6692 6693 6694
   @param   to         Destination of the data
   @param   from       Source of the data
   @param   param_data Real type (upper) and length (lower) values

   @return  New pointer into memory based on from + length of the data
*/
6695
const uchar *
6696 6697
Field_string::unpack(uchar *to, const uchar *from, const uchar *from_end,
                     uint param_data)
6698
{
6699
  uint from_length, length;
6700

6701 6702 6703 6704 6705 6706 6707 6708 6709 6710 6711 6712 6713 6714 6715 6716
  /*
    Compute the declared length of the field on the master. This is
    used to decide if one or two bytes should be read as length.
   */
  if (param_data)
    from_length= (((param_data >> 4) & 0x300) ^ 0x300) + (param_data & 0x00ff);
  else
    from_length= field_length;

  DBUG_PRINT("debug",
             ("param_data: 0x%x, field_length: %u, from_length: %u",
              param_data, field_length, from_length));
  /*
    Compute the actual length of the data by reading one or two bits
    (depending on the declared field length on the master).
   */
6717
  if (from_length > 255)
6718
  {
6719 6720
    if (from + 2 > from_end)
      return 0;
6721 6722 6723 6724
    length= uint2korr(from);
    from+= 2;
  }
  else
6725 6726 6727
  {
    if (from + 1 > from_end)
      return 0;
6728
    length= (uint) *from++;
6729 6730 6731
  }
  if (from + length > from_end || length > field_length)
    return 0;
6732 6733 6734

  memcpy(to, from, length);
  // Pad the string with the pad character of the fields charset
6735
  field_charset->cset->fill(field_charset, (char*) to + length, field_length - length, field_charset->pad_char);
unknown's avatar
unknown committed
6736 6737 6738 6739
  return from+length;
}


6740 6741 6742 6743 6744 6745 6746
/**
   Save the field metadata for string fields.

   Saves the real type in the first byte and the field length in the 
   second byte of the field metadata array at index of *metadata_ptr and
   *(metadata_ptr + 1).

6747 6748 6749 6750 6751 6752 6753 6754 6755 6756 6757 6758 6759 6760 6761 6762 6763 6764 6765
   @note In order to be able to handle lengths exceeding 255 and be
   backwards-compatible with pre-5.1.26 servers, an extra two bits of
   the length has been added to the metadata in such a way that if
   they are set, a new unrecognized type is generated.  This will
   cause pre-5.1-26 servers to stop due to a field type mismatch,
   while new servers will be able to extract the extra bits. If the
   length is <256, there will be no difference and both a new and an
   old server will be able to handle it.

   @note The extra two bits are added to bits 13 and 14 of the
   parameter data (with 1 being the least siginficant bit and 16 the
   most significant bit of the word) by xoring the extra length bits
   with the real type.  Since all allowable types have 0xF as most
   significant bits of the metadata word, lengths <256 will not affect
   the real type at all, while all other values will result in a
   non-existant type in the range 17-244.

   @see Field_string::unpack

6766 6767 6768 6769 6770 6771
   @param   metadata_ptr   First byte of field metadata

   @returns number of bytes written to metadata_ptr
*/
int Field_string::do_save_field_metadata(uchar *metadata_ptr)
{
6772 6773 6774 6775 6776 6777
  DBUG_ASSERT(field_length < 1024);
  DBUG_ASSERT((real_type() & 0xF0) == 0xF0);
  DBUG_PRINT("debug", ("field_length: %u, real_type: %u",
                       field_length, real_type()));
  *metadata_ptr= (real_type() ^ ((field_length & 0x300) >> 4));
  *(metadata_ptr + 1)= field_length & 0xFF;
6778 6779 6780 6781
  return 2;
}


6782
uint Field_string::packed_col_length(const uchar *data_ptr, uint length)
unknown's avatar
unknown committed
6783
{
6784
  if (length > 255)
6785
    return uint2korr(data_ptr)+2;
6786
  return (uint) *data_ptr + 1;
unknown's avatar
unknown committed
6787 6788
}

6789

unknown's avatar
unknown committed
6790 6791
uint Field_string::max_packed_col_length(uint max_length)
{
6792
  return (max_length > 255 ? 2 : 1)+max_length;
unknown's avatar
unknown committed
6793 6794
}

6795 6796

uint Field_string::get_key_image(uchar *buff, uint length, imagetype type_arg)
unknown's avatar
unknown committed
6797
{
6798 6799
  uint bytes = my_charpos(field_charset, (char*) ptr,
                          (char*) ptr + field_length,
unknown's avatar
unknown committed
6800 6801 6802
                          length / field_charset->mbmaxlen);
  memcpy(buff, ptr, bytes);
  if (bytes < length)
6803 6804
    field_charset->cset->fill(field_charset, (char*) buff + bytes,
                              length - bytes, field_charset->pad_char);
unknown's avatar
unknown committed
6805 6806
  return bytes;
}
unknown's avatar
unknown committed
6807

6808

Konstantin Osipov's avatar
Konstantin Osipov committed
6809
Field *Field_string::new_field(MEM_ROOT *root, TABLE *new_table,
6810
                               bool keep_type)
6811
{
unknown's avatar
unknown committed
6812
  Field *field;
6813
  if (type() != MYSQL_TYPE_VAR_STRING || keep_type)
unknown's avatar
unknown committed
6814
    field= Field::new_field(root, new_table, keep_type);
6815 6816
  else if ((field= new Field_varstring(field_length, maybe_null(), field_name,
                                       new_table->s, charset())))
6817 6818 6819 6820 6821 6822
  {
    /*
      Old VARCHAR field which should be modified to a VARCHAR on copy
      This is done to ensure that ALTER TABLE will convert old VARCHAR fields
      to now VARCHAR fields.
    */
unknown's avatar
unknown committed
6823
    field->init(new_table);
6824 6825 6826 6827 6828 6829
    /*
      Normally orig_table is different from table only if field was created
      via ::new_field.  Here we alter the type of field, so ::new_field is
      not applicable. But we still need to preserve the original field
      metadata for the client-server protocol.
    */
unknown's avatar
unknown committed
6830
    field->orig_table= orig_table;
6831
  }
unknown's avatar
unknown committed
6832
  return field;
6833 6834
}

unknown's avatar
unknown committed
6835

unknown's avatar
unknown committed
6836
/****************************************************************************
6837 6838 6839 6840 6841 6842 6843 6844 6845 6846 6847 6848 6849
  VARCHAR type
  Data in field->ptr is stored as:
    1 or 2 bytes length-prefix-header  (from Field_varstring::length_bytes)
    data

  NOTE:
  When VARCHAR is stored in a key (for handler::index_read() etc) it's always
  stored with a 2 byte prefix. (Just like blob keys).

  Normally length_bytes is calculated as (field_length < 256 : 1 ? 2)
  The exception is if there is a prefix key field that is part of a long
  VARCHAR, in which case field_length for this may be 1 but the length_bytes
  is 2.
unknown's avatar
unknown committed
6850 6851
****************************************************************************/

unknown's avatar
unknown committed
6852
const uint Field_varstring::MAX_SIZE= UINT_MAX16;
unknown's avatar
unknown committed
6853

6854 6855 6856 6857 6858 6859 6860 6861 6862 6863 6864 6865 6866
/**
   Save the field metadata for varstring fields.

   Saves the field length in the first byte. Note: may consume
   2 bytes. Caller must ensure second byte is contiguous with
   first byte (e.g. array index 0,1).

   @param   metadata_ptr   First byte of field metadata

   @returns number of bytes written to metadata_ptr
*/
int Field_varstring::do_save_field_metadata(uchar *metadata_ptr)
{
6867
  DBUG_ASSERT(field_length <= 65535);
6868
  int2store((char*)metadata_ptr, field_length);
6869 6870 6871
  return 2;
}

unknown's avatar
unknown committed
6872
int Field_varstring::store(const char *from,uint length,CHARSET_INFO *cs)
unknown's avatar
unknown committed
6873
{
6874
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
6875 6876 6877 6878 6879 6880
  uint copy_length;
  const char *well_formed_error_pos;
  const char *cannot_convert_error_pos;
  const char *from_end_pos;

  copy_length= well_formed_copy_nchars(field_charset,
6881 6882
                                       (char*) ptr + length_bytes,
                                       field_length,
6883 6884 6885 6886 6887
                                       cs, from, length,
                                       field_length / field_charset->mbmaxlen,
                                       &well_formed_error_pos,
                                       &cannot_convert_error_pos,
                                       &from_end_pos);
unknown's avatar
unknown committed
6888

6889 6890 6891 6892
  if (length_bytes == 1)
    *ptr= (uchar) copy_length;
  else
    int2store(ptr, copy_length);
6893

6894
  if (check_string_copy_error(this, well_formed_error_pos,
6895
                              cannot_convert_error_pos, from + length, cs))
6896 6897
    return 2;

6898
  return report_if_important_data(from_end_pos, from + length, TRUE);
unknown's avatar
unknown committed
6899 6900 6901
}


6902
int Field_varstring::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
6903
{
unknown's avatar
unknown committed
6904
  char buff[64];
6905 6906 6907 6908
  uint  length;
  length= (uint) (field_charset->cset->longlong10_to_str)(field_charset,
                                                          buff,
                                                          sizeof(buff),
6909 6910 6911
                                                          (unsigned_val ? 10:
                                                           -10),
                                                           nr);
6912
  return Field_varstring::store(buff, length, field_charset);
unknown's avatar
unknown committed
6913 6914 6915 6916 6917
}


double Field_varstring::val_real(void)
{
6918
  ASSERT_COLUMN_MARKED_FOR_READ;
6919 6920 6921 6922 6923
  int error;
  char *end;
  double result;
  CHARSET_INFO* cs= charset();
  
6924
  uint length= length_bytes == 1 ? (uint) *ptr : uint2korr(ptr);
6925 6926
  result= my_strntod(cs, (char*)ptr+length_bytes, length, &end, &error);
  
6927
  if (!get_thd()->no_errors && 
6928 6929 6930 6931 6932 6933 6934 6935
       (error || (length != (uint)(end - (char*)ptr+length_bytes) && 
         !check_if_only_end_space(cs, end, (char*)ptr+length_bytes+length)))) 
  {
    push_numerical_conversion_warning(current_thd, (char*)ptr+length_bytes, 
                                      length, cs,"DOUBLE", 
                                      ER_TRUNCATED_WRONG_VALUE);
  }
  return result;
unknown's avatar
unknown committed
6936 6937 6938 6939 6940
}


longlong Field_varstring::val_int(void)
{
6941
  ASSERT_COLUMN_MARKED_FOR_READ;
6942 6943 6944 6945
  int error;
  char *end;
  CHARSET_INFO *cs= charset();
  
6946
  uint length= length_bytes == 1 ? (uint) *ptr : uint2korr(ptr);
6947 6948 6949
  longlong result= my_strntoll(cs, (char*) ptr+length_bytes, length, 10,
                     &end, &error);
		     
6950
  if (!get_thd()->no_errors && 
6951 6952 6953 6954 6955 6956 6957 6958
       (error || (length != (uint)(end - (char*)ptr+length_bytes) && 
         !check_if_only_end_space(cs, end, (char*)ptr+length_bytes+length)))) 
  {
    push_numerical_conversion_warning(current_thd, (char*)ptr+length_bytes, 
                                      length, cs, "INTEGER", 
                                      ER_TRUNCATED_WRONG_VALUE);  
  }
  return result;
unknown's avatar
unknown committed
6959 6960 6961 6962 6963
}

String *Field_varstring::val_str(String *val_buffer __attribute__((unused)),
				 String *val_ptr)
{
6964
  ASSERT_COLUMN_MARKED_FOR_READ;
6965
  uint length=  length_bytes == 1 ? (uint) *ptr : uint2korr(ptr);
6966
  val_ptr->set((const char*) ptr+length_bytes, length, field_charset);
unknown's avatar
unknown committed
6967 6968 6969 6970
  return val_ptr;
}


unknown's avatar
unknown committed
6971 6972
my_decimal *Field_varstring::val_decimal(my_decimal *decimal_value)
{
6973
  ASSERT_COLUMN_MARKED_FOR_READ;
6974
  CHARSET_INFO *cs= charset();
6975
  uint length= length_bytes == 1 ? (uint) *ptr : uint2korr(ptr);
6976 6977 6978
  int error= str2my_decimal(E_DEC_FATAL_ERROR, (char*) ptr+length_bytes, length,
                 cs, decimal_value);

6979
  if (!get_thd()->no_errors && error)
6980 6981 6982 6983 6984
  {
    push_numerical_conversion_warning(current_thd, (char*)ptr+length_bytes, 
                                      length, cs, "DECIMAL", 
                                      ER_TRUNCATED_WRONG_VALUE); 
  }
unknown's avatar
unknown committed
6985 6986 6987 6988
  return decimal_value;
}


6989
int Field_varstring::cmp_max(const uchar *a_ptr, const uchar *b_ptr,
6990
                             uint max_len)
unknown's avatar
unknown committed
6991
{
6992
  uint a_length, b_length;
unknown's avatar
unknown committed
6993
  int diff;
6994 6995 6996

  if (length_bytes == 1)
  {
6997 6998
    a_length= (uint) *a_ptr;
    b_length= (uint) *b_ptr;
6999 7000 7001 7002 7003 7004
  }
  else
  {
    a_length= uint2korr(a_ptr);
    b_length= uint2korr(b_ptr);
  }
7005 7006
  set_if_smaller(a_length, max_len);
  set_if_smaller(b_length, max_len);
7007
  diff= field_charset->coll->strnncollsp(field_charset,
7008
                                         a_ptr+
7009
                                         length_bytes,
7010
                                         a_length,
7011
                                         b_ptr+
7012
                                         length_bytes,
7013 7014
                                         b_length,0);
  return diff;
unknown's avatar
unknown committed
7015 7016
}

7017

7018 7019 7020
/**
  @note
    varstring and blob keys are ALWAYS stored with a 2 byte length prefix
7021 7022
*/

7023
int Field_varstring::key_cmp(const uchar *key_ptr, uint max_key_length)
7024
{
7025
  uint length=  length_bytes == 1 ? (uint) *ptr : uint2korr(ptr);
7026
  uint local_char_length= max_key_length / field_charset->mbmaxlen;
7027

7028 7029 7030
  local_char_length= my_charpos(field_charset, ptr + length_bytes,
                          ptr + length_bytes + length, local_char_length);
  set_if_smaller(length, local_char_length);
7031
  return field_charset->coll->strnncollsp(field_charset, 
7032
                                          ptr + length_bytes,
7033
                                          length,
7034
                                          key_ptr+
7035 7036
                                          HA_KEY_BLOB_LENGTH,
                                          uint2korr(key_ptr), 0);
unknown's avatar
unknown committed
7037 7038
}

7039

7040 7041
/**
  Compare to key segments (always 2 byte length prefix).
7042

7043
  @note
7044 7045 7046 7047
    This is used only to compare key segments created for index_read().
    (keys are created and compared in key.cc)
*/

7048
int Field_varstring::key_cmp(const uchar *a,const uchar *b)
7049
{
7050
  return field_charset->coll->strnncollsp(field_charset,
7051
                                          a + HA_KEY_BLOB_LENGTH,
7052
                                          uint2korr(a),
7053
                                          b + HA_KEY_BLOB_LENGTH,
7054 7055
                                          uint2korr(b),
                                          0);
7056 7057 7058
}


7059
void Field_varstring::sort_string(uchar *to,uint length)
unknown's avatar
unknown committed
7060
{
7061
  uint tot_length=  length_bytes == 1 ? (uint) *ptr : uint2korr(ptr);
7062 7063 7064 7065 7066 7067 7068 7069 7070 7071 7072

  if (field_charset == &my_charset_bin)
  {
    /* Store length last in high-byte order to sort longer strings first */
    if (length_bytes == 1)
      to[length-1]= tot_length;
    else
      mi_int2store(to+length-2, tot_length);
    length-= length_bytes;
  }
 
7073 7074 7075 7076 7077 7078 7079
  tot_length= field_charset->coll->strnxfrm(field_charset,
                                            to, length,
                                            char_length() *
                                            field_charset->strxfrm_multiply,
                                            ptr + length_bytes, tot_length,
                                            MY_STRXFRM_PAD_WITH_SPACE |
                                            MY_STRXFRM_PAD_TO_MAXLEN);
unknown's avatar
unknown committed
7080
  DBUG_ASSERT(tot_length == length);
unknown's avatar
unknown committed
7081 7082 7083
}


7084 7085 7086 7087 7088 7089 7090 7091 7092 7093 7094 7095
enum ha_base_keytype Field_varstring::key_type() const
{
  enum ha_base_keytype res;

  if (binary())
    res= length_bytes == 1 ? HA_KEYTYPE_VARBINARY1 : HA_KEYTYPE_VARBINARY2;
  else
    res= length_bytes == 1 ? HA_KEYTYPE_VARTEXT1 : HA_KEYTYPE_VARTEXT2;
  return res;
}


unknown's avatar
unknown committed
7096 7097
void Field_varstring::sql_type(String &res) const
{
7098
  THD *thd= table->in_use;
unknown's avatar
unknown committed
7099
  CHARSET_INFO *cs=res.charset();
7100 7101 7102 7103 7104 7105
  ulong length;

  length= cs->cset->snprintf(cs,(char*) res.ptr(),
                             res.alloced_length(), "%s(%d)",
                              (has_charset() ? "varchar" : "varbinary"),
                             (int) field_length / charset()->mbmaxlen);
7106
  res.length(length);
7107 7108
  if ((thd->variables.sql_mode & (MODE_MYSQL323 | MODE_MYSQL40)) &&
      has_charset() && (charset()->state & MY_CS_BINSORT))
7109
    res.append(STRING_WITH_LEN(" binary"));
unknown's avatar
unknown committed
7110 7111
}

7112

7113
uint32 Field_varstring::data_length()
7114
{
7115
  return length_bytes == 1 ? (uint32) *ptr : uint2korr(ptr);
7116 7117
}

7118 7119 7120 7121 7122
/*
  Functions to create a packed row.
  Here the number of length bytes are depending on the given max_length
*/

Sergei Golubchik's avatar
Sergei Golubchik committed
7123
uchar *Field_varstring::pack(uchar *to, const uchar *from, uint max_length)
unknown's avatar
unknown committed
7124
{
7125
  uint length= length_bytes == 1 ? (uint) *from : uint2korr(from);
7126
  set_if_smaller(max_length, field_length);
unknown's avatar
unknown committed
7127 7128
  if (length > max_length)
    length=max_length;
7129 7130 7131

  /* Length always stored little-endian */
  *to++= length & 0xFF;
unknown's avatar
unknown committed
7132
  if (max_length > 255)
7133 7134 7135 7136
    *to++= (length >> 8) & 0xFF;

  /* Store bytes of string */
  if (length > 0)
7137
    memcpy(to, from+length_bytes, length);
unknown's avatar
unknown committed
7138 7139 7140 7141
  return to+length;
}


7142 7143 7144 7145 7146
/**
   Unpack a varstring field from row data.

   This method is used to unpack a varstring field from a master
   whose size of the field is less than that of the slave.
7147 7148 7149

   @note
   The string length is always packed little-endian.
7150 7151 7152 7153 7154 7155 7156
  
   @param   to         Destination of the data
   @param   from       Source of the data
   @param   param_data Length bytes from the master's field data

   @return  New pointer into memory based on from + length of the data
*/
7157
const uchar *
7158 7159
Field_varstring::unpack(uchar *to, const uchar *from, const uchar *from_end,
                        uint param_data)
7160 7161 7162 7163
{
  uint length;
  uint l_bytes= (param_data && (param_data < field_length)) ? 
                (param_data <= 255) ? 1 : 2 : length_bytes;
7164 7165 7166 7167

  if (from + l_bytes > from_end)
    return 0;                                 // Error in data

7168 7169 7170 7171 7172 7173 7174
  if (l_bytes == 1)
  {
    to[0]= *from++;
    length= to[0];
    if (length_bytes == 2)
      to[1]= 0;
  }
7175
  else /* l_bytes == 2 */
unknown's avatar
unknown committed
7176
  {
7177 7178 7179
    length= uint2korr(from);
    to[0]= *from++;
    to[1]= *from++;
unknown's avatar
unknown committed
7180 7181
  }
  if (length)
7182 7183 7184
  {
    if (from + length > from_end || length > field_length)
      return 0;                                 // Error in data
7185
    memcpy(to+ length_bytes, from, length);
7186
  }
unknown's avatar
unknown committed
7187 7188 7189 7190
  return from+length;
}


7191
uint Field_varstring::packed_col_length(const uchar *data_ptr, uint length)
unknown's avatar
unknown committed
7192
{
7193
  if (length > 255)
7194
    return uint2korr(data_ptr)+2;
7195
  return (uint) *data_ptr + 1;
unknown's avatar
unknown committed
7196 7197
}

7198

unknown's avatar
unknown committed
7199 7200
uint Field_varstring::max_packed_col_length(uint max_length)
{
7201
  return (max_length > 255 ? 2 : 1)+max_length;
unknown's avatar
unknown committed
7202 7203
}

7204
uint Field_varstring::get_key_image(uchar *buff, uint length, imagetype type)
7205
{
7206
  uint f_length=  length_bytes == 1 ? (uint) *ptr : uint2korr(ptr);
7207
  uint local_char_length= length / field_charset->mbmaxlen;
7208
  uchar *pos= ptr+length_bytes;
7209 7210 7211
  local_char_length= my_charpos(field_charset, pos, pos + f_length,
                                local_char_length);
  set_if_smaller(f_length, local_char_length);
7212
  /* Key is always stored with 2 bytes */
7213
  int2store(buff,f_length);
7214
  memcpy(buff+HA_KEY_BLOB_LENGTH, pos, f_length);
7215
  if (f_length < length)
7216 7217 7218 7219 7220
  {
    /*
      Must clear this as we do a memcmp in opt_range.cc to detect
      identical keys
    */
7221
    bzero(buff+HA_KEY_BLOB_LENGTH+f_length, (length-f_length));
7222
  }
unknown's avatar
unknown committed
7223
  return HA_KEY_BLOB_LENGTH+f_length;
7224 7225
}

7226

7227
void Field_varstring::set_key_image(const uchar *buff,uint length)
7228
{
7229
  length= uint2korr(buff);			// Real length is here
7230
  (void) Field_varstring::store((const char*) buff+HA_KEY_BLOB_LENGTH, length,
7231
                                field_charset);
7232 7233 7234
}


7235
int Field_varstring::cmp_binary(const uchar *a_ptr, const uchar *b_ptr,
7236 7237 7238 7239
                                uint32 max_length)
{
  uint32 a_length,b_length;

7240 7241
  if (length_bytes == 1)
  {
7242 7243
    a_length= (uint) *a_ptr;
    b_length= (uint) *b_ptr;
7244 7245 7246 7247 7248 7249
  }
  else
  {
    a_length= uint2korr(a_ptr);
    b_length= uint2korr(b_ptr);
  }
7250 7251 7252 7253
  set_if_smaller(a_length, max_length);
  set_if_smaller(b_length, max_length);
  if (a_length != b_length)
    return 1;
7254 7255 7256 7257
  return memcmp(a_ptr+length_bytes, b_ptr+length_bytes, a_length);
}


Konstantin Osipov's avatar
Konstantin Osipov committed
7258
Field *Field_varstring::new_field(MEM_ROOT *root, TABLE *new_table,
7259
                                  bool keep_type)
7260
{
7261 7262
  Field_varstring *res= (Field_varstring*) Field::new_field(root, new_table,
                                                            keep_type);
7263 7264 7265 7266 7267 7268
  if (res)
    res->length_bytes= length_bytes;
  return res;
}


7269 7270 7271
Field *Field_varstring::new_key_field(MEM_ROOT *root, TABLE *new_table,
                                      uchar *new_ptr, uint32 length,
                                      uchar *new_null_ptr, uint new_null_bit)
unknown's avatar
unknown committed
7272 7273
{
  Field_varstring *res;
7274 7275 7276
  if ((res= (Field_varstring*) Field::new_key_field(root, new_table,
                                                    new_ptr, length,
                                                    new_null_ptr, new_null_bit)))
unknown's avatar
unknown committed
7277 7278
  {
    /* Keys length prefixes are always packed with 2 bytes */
7279
    res->length_bytes= 2;
unknown's avatar
unknown committed
7280
  }
7281
  return res;
7282 7283
}

unknown's avatar
unknown committed
7284
uint Field_varstring::is_equal(Create_field *new_field)
unknown's avatar
unknown committed
7285
{
7286
  if (new_field->sql_type == real_type() &&
unknown's avatar
unknown committed
7287 7288
      new_field->charset == field_charset)
  {
unknown's avatar
unknown committed
7289
    if (new_field->length == max_display_length())
unknown's avatar
unknown committed
7290
      return IS_EQUAL_YES;
unknown's avatar
unknown committed
7291 7292 7293
    if (new_field->length > max_display_length() &&
	((new_field->length <= 255 && max_display_length() <= 255) ||
	 (new_field->length > 255 && max_display_length() > 255)))
unknown's avatar
unknown committed
7294 7295 7296 7297 7298 7299
      return IS_EQUAL_PACK_LENGTH; // VARCHAR, longer variable length
  }
  return IS_EQUAL_NO;
}


7300 7301 7302 7303 7304 7305 7306 7307
void Field_varstring::hash(ulong *nr, ulong *nr2)
{
  if (is_null())
  {
    *nr^= (*nr << 1) | 1;
  }
  else
  {
7308
    uint len=  length_bytes == 1 ? (uint) *ptr : uint2korr(ptr);
7309
    CHARSET_INFO *cs= charset();
7310
    cs->coll->hash_sort(cs, ptr + length_bytes, len, nr, nr2);
7311 7312 7313 7314
  }
}


unknown's avatar
unknown committed
7315 7316 7317 7318 7319 7320
/****************************************************************************
** blob type
** A blob is saved as a length and a pointer. The length is stored in the
** packlength slot and may be from 1-4.
****************************************************************************/

7321
Field_blob::Field_blob(uchar *ptr_arg, uchar *null_ptr_arg, uchar null_bit_arg,
unknown's avatar
unknown committed
7322
		       enum utype unireg_check_arg, const char *field_name_arg,
unknown's avatar
unknown committed
7323
                       TABLE_SHARE *share, uint blob_pack_length,
7324
		       CHARSET_INFO *cs)
7325
  :Field_longstr(ptr_arg, BLOB_PACK_LENGTH_TO_MAX_LENGH(blob_pack_length),
unknown's avatar
unknown committed
7326 7327
                 null_ptr_arg, null_bit_arg, unireg_check_arg, field_name_arg,
                 cs),
unknown's avatar
unknown committed
7328
   packlength(blob_pack_length)
unknown's avatar
unknown committed
7329
{
7330
  DBUG_ASSERT(blob_pack_length <= 4); // Only pack lengths 1-4 supported currently
unknown's avatar
unknown committed
7331
  flags|= BLOB_FLAG;
unknown's avatar
unknown committed
7332
  share->blob_fields++;
7333
  /* TODO: why do not fill table->s->blob_field array here? */
unknown's avatar
unknown committed
7334 7335 7336
}


Sergei Golubchik's avatar
Sergei Golubchik committed
7337
void Field_blob::store_length(uchar *i_ptr, uint i_packlength, uint32 i_number)
unknown's avatar
unknown committed
7338
{
Sergei Golubchik's avatar
Sergei Golubchik committed
7339
  store_lowendian(i_number, i_ptr, i_packlength);
unknown's avatar
unknown committed
7340 7341 7342
}


Sergei Golubchik's avatar
Sergei Golubchik committed
7343
uint32 Field_blob::get_length(const uchar *pos, uint packlength_arg)
7344
{
Sergei Golubchik's avatar
Sergei Golubchik committed
7345
  return (uint32)read_lowendian(pos, packlength_arg);
7346 7347 7348
}


unknown's avatar
unknown committed
7349
int Field_blob::store(const char *from,uint length,CHARSET_INFO *cs)
unknown's avatar
unknown committed
7350
{
7351
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
7352 7353 7354 7355 7356 7357 7358
  uint copy_length, new_length;
  const char *well_formed_error_pos;
  const char *cannot_convert_error_pos;
  const char *from_end_pos, *tmp;
  char buff[STRING_BUFFER_USUAL_SIZE];
  String tmpstr(buff,sizeof(buff), &my_charset_bin);

unknown's avatar
unknown committed
7359
  if (!length)
unknown's avatar
unknown committed
7360 7361
  {
    bzero(ptr,Field_blob::pack_length());
7362
    return 0;
unknown's avatar
unknown committed
7363
  }
unknown's avatar
unknown committed
7364

7365 7366 7367 7368 7369 7370 7371
  /*
    If the 'from' address is in the range of the temporary 'value'-
    object we need to copy the content to a different location or it will be
    invalidated when the 'value'-object is reallocated to make room for
    the new character set.
  */
  if (from >= value.ptr() && from <= value.ptr()+value.length())
7372
  {
7373 7374 7375 7376
    /*
      If content of the 'from'-address is cached in the 'value'-object
      it is possible that the content needs a character conversion.
    */
7377
    if (!String::needs_conversion_on_storage(length, cs, field_charset))
7378 7379
    {
      Field_blob::store_length(length);
7380
      bmove(ptr + packlength, &from, sizeof(char*));
7381
      return 0;
unknown's avatar
unknown committed
7382
    }
7383 7384 7385
    if (tmpstr.copy(from, length, cs))
      goto oom_error;
    from= tmpstr.ptr();
unknown's avatar
unknown committed
7386
  }
7387

7388
  new_length= MY_MIN(max_data_length(), field_charset->mbmaxlen * length);
7389 7390 7391
  if (value.alloc(new_length))
    goto oom_error;

7392 7393 7394 7395 7396 7397 7398 7399 7400 7401 7402

  if (f_is_hex_escape(flags))
  {
    copy_length= my_copy_with_hex_escaping(field_charset,
                                           (char*) value.ptr(), new_length,
                                            from, length);
    Field_blob::store_length(copy_length);
    tmp= value.ptr();
    bmove(ptr + packlength, (uchar*) &tmp, sizeof(char*));
    return 0;
  }
7403 7404 7405 7406 7407 7408 7409 7410 7411 7412 7413 7414 7415 7416 7417
  /*
    "length" is OK as "nchars" argument to well_formed_copy_nchars as this
    is never used to limit the length of the data. The cut of long data
    is done with the new_length value.
  */
  copy_length= well_formed_copy_nchars(field_charset,
                                       (char*) value.ptr(), new_length,
                                       cs, from, length,
                                       length,
                                       &well_formed_error_pos,
                                       &cannot_convert_error_pos,
                                       &from_end_pos);

  Field_blob::store_length(copy_length);
  tmp= value.ptr();
7418
  bmove(ptr+packlength,(uchar*) &tmp,sizeof(char*));
7419 7420

  if (check_string_copy_error(this, well_formed_error_pos,
7421
                              cannot_convert_error_pos, from + length, cs))
7422 7423
    return 2;

7424
  return report_if_important_data(from_end_pos, from + length, TRUE);
7425 7426 7427 7428 7429

oom_error:
  /* Fatal OOM error */
  bzero(ptr,Field_blob::pack_length());
  return -1; 
unknown's avatar
unknown committed
7430 7431 7432
}


unknown's avatar
unknown committed
7433
int Field_blob::store(double nr)
unknown's avatar
unknown committed
7434
{
7435
  CHARSET_INFO *cs=charset();
7436
  value.set_real(nr, NOT_FIXED_DEC, cs);
7437
  return Field_blob::store(value.ptr(),(uint) value.length(), cs);
unknown's avatar
unknown committed
7438 7439 7440
}


7441
int Field_blob::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
7442
{
7443
  CHARSET_INFO *cs=charset();
7444
  value.set_int(nr, unsigned_val, cs);
7445
  return Field_blob::store(value.ptr(), (uint) value.length(), cs);
unknown's avatar
unknown committed
7446 7447
}

7448

unknown's avatar
unknown committed
7449 7450
double Field_blob::val_real(void)
{
7451
  ASSERT_COLUMN_MARKED_FOR_READ;
7452
  int not_used;
7453 7454 7455 7456
  char *end_not_used, *blob;
  uint32 length;
  CHARSET_INFO *cs;

7457
  memcpy(&blob, ptr+packlength, sizeof(char*));
unknown's avatar
unknown committed
7458 7459
  if (!blob)
    return 0.0;
7460 7461
  length= get_length(ptr);
  cs= charset();
unknown's avatar
unknown committed
7462
  return my_strntod(cs, blob, length, &end_not_used, &not_used);
unknown's avatar
unknown committed
7463 7464 7465 7466 7467
}


longlong Field_blob::val_int(void)
{
7468
  ASSERT_COLUMN_MARKED_FOR_READ;
7469
  int not_used;
unknown's avatar
unknown committed
7470
  char *blob;
7471
  memcpy(&blob, ptr+packlength, sizeof(char*));
unknown's avatar
unknown committed
7472 7473
  if (!blob)
    return 0;
unknown's avatar
unknown committed
7474
  uint32 length=get_length(ptr);
7475
  return my_strntoll(charset(),blob,length,10,NULL,&not_used);
unknown's avatar
unknown committed
7476 7477 7478 7479 7480
}

String *Field_blob::val_str(String *val_buffer __attribute__((unused)),
			    String *val_ptr)
{
7481
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
7482
  char *blob;
7483
  memcpy(&blob, ptr+packlength, sizeof(char*));
unknown's avatar
unknown committed
7484
  if (!blob)
7485
    val_ptr->set("",0,charset());	// A bit safer than ->length(0)
unknown's avatar
unknown committed
7486
  else
7487
    val_ptr->set((const char*) blob,get_length(ptr),charset());
unknown's avatar
unknown committed
7488 7489 7490 7491
  return val_ptr;
}


unknown's avatar
unknown committed
7492 7493
my_decimal *Field_blob::val_decimal(my_decimal *decimal_value)
{
7494
  ASSERT_COLUMN_MARKED_FOR_READ;
7495
  const char *blob;
7496
  size_t length;
7497
  memcpy(&blob, ptr+packlength, sizeof(const uchar*));
unknown's avatar
unknown committed
7498
  if (!blob)
7499
  {
unknown's avatar
unknown committed
7500
    blob= "";
7501 7502 7503 7504 7505 7506
    length= 0;
  }
  else
    length= get_length(ptr);

  str2my_decimal(E_DEC_FATAL_ERROR, blob, length, charset(),
unknown's avatar
unknown committed
7507 7508 7509 7510 7511
                 decimal_value);
  return decimal_value;
}


7512
int Field_blob::cmp(const uchar *a,uint32 a_length, const uchar *b,
unknown's avatar
unknown committed
7513
		    uint32 b_length)
unknown's avatar
unknown committed
7514
{
7515
  return field_charset->coll->strnncollsp(field_charset, 
7516
                                          a, a_length, b, b_length,
7517
                                          0);
unknown's avatar
unknown committed
7518 7519 7520
}


7521
int Field_blob::cmp_max(const uchar *a_ptr, const uchar *b_ptr,
7522
                        uint max_length)
unknown's avatar
unknown committed
7523
{
7524
  uchar *blob1,*blob2;
7525 7526
  memcpy(&blob1, a_ptr+packlength, sizeof(char*));
  memcpy(&blob2, b_ptr+packlength, sizeof(char*));
7527 7528 7529 7530
  uint a_len= get_length(a_ptr), b_len= get_length(b_ptr);
  set_if_smaller(a_len, max_length);
  set_if_smaller(b_len, max_length);
  return Field_blob::cmp(blob1,a_len,blob2,b_len);
unknown's avatar
unknown committed
7531 7532 7533
}


7534
int Field_blob::cmp_binary(const uchar *a_ptr, const uchar *b_ptr,
unknown's avatar
unknown committed
7535
			   uint32 max_length)
unknown's avatar
unknown committed
7536 7537 7538
{
  char *a,*b;
  uint diff;
unknown's avatar
unknown committed
7539
  uint32 a_length,b_length;
7540 7541
  memcpy(&a, a_ptr+packlength, sizeof(char*));
  memcpy(&b, b_ptr+packlength, sizeof(char*));
unknown's avatar
unknown committed
7542 7543 7544 7545 7546 7547
  a_length=get_length(a_ptr);
  if (a_length > max_length)
    a_length=max_length;
  b_length=get_length(b_ptr);
  if (b_length > max_length)
    b_length=max_length;
7548
  diff=memcmp(a,b,MY_MIN(a_length,b_length));
unknown's avatar
unknown committed
7549 7550 7551 7552 7553 7554
  return diff ? diff : (int) (a_length - b_length);
}


/* The following is used only when comparing a key */

7555
uint Field_blob::get_key_image(uchar *buff,uint length, imagetype type_arg)
unknown's avatar
unknown committed
7556
{
unknown's avatar
unknown committed
7557
  uint32 blob_length= get_length(ptr);
7558
  uchar *blob;
unknown's avatar
unknown committed
7559

unknown's avatar
unknown committed
7560
#ifdef HAVE_SPATIAL
7561
  if (type_arg == itMBR)
unknown's avatar
unknown committed
7562
  {
unknown's avatar
unknown committed
7563
    const char *dummy;
unknown's avatar
unknown committed
7564
    MBR mbr;
7565 7566
    Geometry_buffer buffer;
    Geometry *gobj;
unknown's avatar
unknown committed
7567
    const uint image_length= SIZEOF_STORED_DOUBLE*4;
unknown's avatar
unknown committed
7568 7569 7570

    if (blob_length < SRID_SIZE)
    {
unknown's avatar
unknown committed
7571 7572
      bzero(buff, image_length);
      return image_length;
unknown's avatar
unknown committed
7573 7574
    }
    get_ptr(&blob);
7575
    gobj= Geometry::construct(&buffer, (char*) blob, blob_length);
7576
    if (!gobj || gobj->get_mbr(&mbr, &dummy))
unknown's avatar
unknown committed
7577
      bzero(buff, image_length);
unknown's avatar
unknown committed
7578 7579 7580 7581 7582 7583 7584
    else
    {
      float8store(buff,    mbr.xmin);
      float8store(buff+8,  mbr.xmax);
      float8store(buff+16, mbr.ymin);
      float8store(buff+24, mbr.ymax);
    }
unknown's avatar
unknown committed
7585
    return image_length;
unknown's avatar
unknown committed
7586
  }
unknown's avatar
unknown committed
7587
#endif /*HAVE_SPATIAL*/
unknown's avatar
unknown committed
7588

7589
  get_ptr(&blob);
7590 7591 7592 7593
  uint local_char_length= length / field_charset->mbmaxlen;
  local_char_length= my_charpos(field_charset, blob, blob + blob_length,
                          local_char_length);
  set_if_smaller(blob_length, local_char_length);
7594

unknown's avatar
unknown committed
7595
  if ((uint32) length > blob_length)
unknown's avatar
unknown committed
7596
  {
7597 7598 7599 7600
    /*
      Must clear this as we do a memcmp in opt_range.cc to detect
      identical keys
    */
7601
    bzero(buff+HA_KEY_BLOB_LENGTH+blob_length, (length-blob_length));
unknown's avatar
unknown committed
7602
    length=(uint) blob_length;
unknown's avatar
unknown committed
7603
  }
unknown's avatar
unknown committed
7604
  int2store(buff,length);
7605
  memcpy(buff+HA_KEY_BLOB_LENGTH, blob, length);
unknown's avatar
unknown committed
7606
  return HA_KEY_BLOB_LENGTH+length;
unknown's avatar
unknown committed
7607 7608
}

7609

7610
void Field_blob::set_key_image(const uchar *buff,uint length)
unknown's avatar
unknown committed
7611
{
7612
  length= uint2korr(buff);
7613 7614
  (void) Field_blob::store((const char*) buff+HA_KEY_BLOB_LENGTH, length,
                           field_charset);
unknown's avatar
unknown committed
7615 7616
}

unknown's avatar
unknown committed
7617

7618
int Field_blob::key_cmp(const uchar *key_ptr, uint max_key_length)
unknown's avatar
unknown committed
7619
{
7620
  uchar *blob1;
unknown's avatar
unknown committed
7621
  uint blob_length=get_length(ptr);
7622
  memcpy(&blob1, ptr+packlength, sizeof(char*));
7623
  CHARSET_INFO *cs= charset();
7624 7625 7626 7627
  uint local_char_length= max_key_length / cs->mbmaxlen;
  local_char_length= my_charpos(cs, blob1, blob1+blob_length,
                                local_char_length);
  set_if_smaller(blob_length, local_char_length);
7628
  return Field_blob::cmp(blob1, blob_length,
7629
			 key_ptr+HA_KEY_BLOB_LENGTH,
7630
			 uint2korr(key_ptr));
unknown's avatar
unknown committed
7631 7632
}

7633
int Field_blob::key_cmp(const uchar *a,const uchar *b)
unknown's avatar
unknown committed
7634
{
7635 7636
  return Field_blob::cmp(a+HA_KEY_BLOB_LENGTH, uint2korr(a),
			 b+HA_KEY_BLOB_LENGTH, uint2korr(b));
unknown's avatar
unknown committed
7637 7638 7639
}


7640 7641 7642 7643 7644 7645 7646 7647 7648 7649 7650 7651
Field *Field_blob::new_key_field(MEM_ROOT *root, TABLE *new_table,
                                 uchar *new_ptr, uint32 length,
                                 uchar *new_null_ptr, uint new_null_bit)
{
  Field_varstring *res= new (root) Field_varstring(new_ptr, length, 2,
                                      new_null_ptr, new_null_bit, Field::NONE,
                                      field_name, table->s, charset());
  res->init(new_table);
  return res;
}


7652 7653 7654 7655 7656 7657 7658 7659 7660 7661 7662 7663
/**
   Save the field metadata for blob fields.

   Saves the pack length in the first byte of the field metadata array
   at index of *metadata_ptr.

   @param   metadata_ptr   First byte of field metadata

   @returns number of bytes written to metadata_ptr
*/
int Field_blob::do_save_field_metadata(uchar *metadata_ptr)
{
7664
  DBUG_ENTER("Field_blob::do_save_field_metadata");
7665
  *metadata_ptr= pack_length_no_ptr();
7666 7667
  DBUG_PRINT("debug", ("metadata: %u (pack_length_no_ptr)", *metadata_ptr));
  DBUG_RETURN(1);
7668 7669 7670
}


7671 7672 7673 7674 7675 7676 7677
uint32 Field_blob::sort_length() const
{
  return (uint32) (current_thd->variables.max_sort_length + 
                   (field_charset == &my_charset_bin ? 0 : packlength));
}


7678
void Field_blob::sort_string(uchar *to,uint length)
unknown's avatar
unknown committed
7679
{
7680
  uchar *blob;
unknown's avatar
unknown committed
7681
  uint blob_length=get_length();
unknown's avatar
unknown committed
7682

unknown's avatar
unknown committed
7683 7684 7685 7686
  if (!blob_length)
    bzero(to,length);
  else
  {
7687 7688
    if (field_charset == &my_charset_bin)
    {
7689
      uchar *pos;
7690 7691 7692 7693 7694 7695 7696

      /*
        Store length of blob last in blob to shorter blobs before longer blobs
      */
      length-= packlength;
      pos= to+length;

7697
      store_bigendian(blob_length, pos, packlength);
7698
    }
7699
    memcpy(&blob, ptr+packlength, sizeof(char*));
unknown's avatar
unknown committed
7700
    
7701 7702 7703 7704 7705
    blob_length= field_charset->coll->strnxfrm(field_charset,
                                               to, length, length,
                                               blob, blob_length,
                                               MY_STRXFRM_PAD_WITH_SPACE |
                                               MY_STRXFRM_PAD_TO_MAXLEN);
7706
    DBUG_ASSERT(blob_length == length);
unknown's avatar
unknown committed
7707 7708 7709 7710 7711 7712 7713
  }
}


void Field_blob::sql_type(String &res) const
{
  const char *str;
7714
  uint length;
unknown's avatar
unknown committed
7715
  switch (packlength) {
7716 7717 7718 7719 7720
  default: str="tiny"; length=4; break;
  case 2:  str="";     length=0; break;
  case 3:  str="medium"; length= 6; break;
  case 4:  str="long";  length=4; break;
  }
7721
  res.set_ascii(str,length);
7722
  if (charset() == &my_charset_bin)
7723
    res.append(STRING_WITH_LEN("blob"));
7724 7725
  else
  {
7726
    res.append(STRING_WITH_LEN("text"));
unknown's avatar
unknown committed
7727 7728 7729
  }
}

Sergei Golubchik's avatar
Sergei Golubchik committed
7730
uchar *Field_blob::pack(uchar *to, const uchar *from, uint max_length)
7731
{
7732 7733
  uchar *save= ptr;
  ptr= (uchar*) from;
unknown's avatar
unknown committed
7734
  uint32 length=get_length();			// Length of from string
7735 7736 7737 7738 7739 7740

  /*
    Store max length, which will occupy packlength bytes. If the max
    length given is smaller than the actual length of the blob, we
    just store the initial bytes of the blob.
  */
7741
  store_length(to, packlength, MY_MIN(length, max_length));
7742 7743 7744 7745 7746

  /*
    Store the actual blob data, which will occupy 'length' bytes.
   */
  if (length > 0)
7747
  {
7748
    get_ptr((uchar**) &from);
7749 7750 7751
    memcpy(to+packlength, from,length);
  }
  ptr=save;					// Restore org row pointer
7752
  return to+packlength+length;
7753 7754 7755
}


7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766
/**
   Unpack a blob field from row data.

   This method is used to unpack a blob field from a master whose size of 
   the field is less than that of the slave. Note: This method is included
   to satisfy inheritance rules, but is not needed for blob fields. It
   simply is used as a pass-through to the original unpack() method for
   blob fields.

   @param   to         Destination of the data
   @param   from       Source of the data
7767 7768 7769
   @param   param_data @c TRUE if base types should be stored in little-
                       endian format, @c FALSE if native format should
                       be used.
7770 7771 7772

   @return  New pointer into memory based on from + length of the data
*/
7773 7774
const uchar *Field_blob::unpack(uchar *to, const uchar *from,
                                const uchar *from_end, uint param_data)
7775 7776
{
  DBUG_ENTER("Field_blob::unpack");
Sergei Golubchik's avatar
Sergei Golubchik committed
7777 7778
  DBUG_PRINT("enter", ("to: 0x%lx; from: 0x%lx; param_data: %u",
                       (ulong) to, (ulong) from, param_data));
7779 7780
  uint const master_packlength=
    param_data > 0 ? param_data & 0xFF : packlength;
7781 7782
  if (from + master_packlength > from_end)
    DBUG_RETURN(0);                             // Error in data
Sergei Golubchik's avatar
Sergei Golubchik committed
7783
  uint32 const length= get_length(from, master_packlength);
7784
  DBUG_DUMP("packed", from, length + master_packlength);
7785
  bitmap_set_bit(table->write_set, field_index);
7786 7787
  if (from + master_packlength + length > from_end)
    DBUG_RETURN(0);
7788 7789 7790 7791
  store(reinterpret_cast<const char*>(from) + master_packlength,
        length, field_charset);
  DBUG_DUMP("record", to, table->s->reclength);
  DBUG_RETURN(from + master_packlength + length);
7792 7793
}

7794

7795
uint Field_blob::packed_col_length(const uchar *data_ptr, uint length)
7796 7797
{
  if (length > 255)
7798
    return uint2korr(data_ptr)+2;
7799
  return (uint) *data_ptr + 1;
7800 7801
}

7802

7803 7804 7805 7806
uint Field_blob::max_packed_col_length(uint max_length)
{
  return (max_length > 255 ? 2 : 1)+max_length;
}
7807

unknown's avatar
unknown committed
7808

unknown's avatar
unknown committed
7809
uint Field_blob::is_equal(Create_field *new_field)
7810
{
7811
  if (field_flags_are_binary() != new_field->field_flags_are_binary())
7812 7813 7814 7815
    return 0;

  return ((new_field->sql_type == get_blob_type_from_length(max_data_length()))
          && new_field->charset == field_charset &&
7816
          new_field->pack_length == pack_length());
7817 7818 7819
}


unknown's avatar
unknown committed
7820
#ifdef HAVE_SPATIAL
unknown's avatar
unknown committed
7821 7822 7823

void Field_geom::sql_type(String &res) const
{
unknown's avatar
unknown committed
7824 7825 7826 7827
  CHARSET_INFO *cs= &my_charset_latin1;
  switch (geom_type)
  {
    case GEOM_POINT:
7828
     res.set(STRING_WITH_LEN("point"), cs);
unknown's avatar
unknown committed
7829 7830
     break;
    case GEOM_LINESTRING:
7831
     res.set(STRING_WITH_LEN("linestring"), cs);
unknown's avatar
unknown committed
7832 7833
     break;
    case GEOM_POLYGON:
7834
     res.set(STRING_WITH_LEN("polygon"), cs);
unknown's avatar
unknown committed
7835 7836
     break;
    case GEOM_MULTIPOINT:
7837
     res.set(STRING_WITH_LEN("multipoint"), cs);
unknown's avatar
unknown committed
7838 7839
     break;
    case GEOM_MULTILINESTRING:
7840
     res.set(STRING_WITH_LEN("multilinestring"), cs);
unknown's avatar
unknown committed
7841 7842
     break;
    case GEOM_MULTIPOLYGON:
7843
     res.set(STRING_WITH_LEN("multipolygon"), cs);
unknown's avatar
unknown committed
7844 7845
     break;
    case GEOM_GEOMETRYCOLLECTION:
7846
     res.set(STRING_WITH_LEN("geometrycollection"), cs);
unknown's avatar
unknown committed
7847 7848
     break;
    default:
7849
     res.set(STRING_WITH_LEN("geometry"), cs);
unknown's avatar
unknown committed
7850
  }
unknown's avatar
unknown committed
7851 7852 7853
}


7854 7855 7856 7857 7858 7859 7860 7861
int Field_geom::store(double nr)
{
  my_message(ER_CANT_CREATE_GEOMETRY_OBJECT,
             ER(ER_CANT_CREATE_GEOMETRY_OBJECT), MYF(0));
  return -1;
}


7862
int Field_geom::store(longlong nr, bool unsigned_val)
7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877
{
  my_message(ER_CANT_CREATE_GEOMETRY_OBJECT,
             ER(ER_CANT_CREATE_GEOMETRY_OBJECT), MYF(0));
  return -1;
}


int Field_geom::store_decimal(const my_decimal *)
{
  my_message(ER_CANT_CREATE_GEOMETRY_OBJECT,
             ER(ER_CANT_CREATE_GEOMETRY_OBJECT), MYF(0));
  return -1;
}


unknown's avatar
unknown committed
7878 7879 7880 7881 7882 7883
int Field_geom::store(const char *from, uint length, CHARSET_INFO *cs)
{
  if (!length)
    bzero(ptr, Field_blob::pack_length());
  else
  {
7884 7885
    if (from == Geometry::bad_geometry_data.ptr())
      goto err;
unknown's avatar
unknown committed
7886 7887
    // Check given WKB
    uint32 wkb_type;
7888
    if (length < SRID_SIZE + WKB_HEADER_SIZE + 4)
unknown's avatar
unknown committed
7889
      goto err;
7890
    wkb_type= uint4korr(from + SRID_SIZE + 1);
7891
    if (wkb_type < (uint32) Geometry::wkb_point ||
7892
	wkb_type > (uint32) Geometry::wkb_last)
7893
      goto err;
7894 7895 7896 7897 7898 7899 7900 7901 7902

    if (geom_type != Field::GEOM_GEOMETRY && 
        geom_type != Field::GEOM_GEOMETRYCOLLECTION &&
        (uint32) geom_type != wkb_type)
    {
      my_printf_error(ER_TRUNCATED_WRONG_VALUE_FOR_FIELD, 
          ER(ER_TRUNCATED_WRONG_VALUE_FOR_FIELD), MYF(0),
          Geometry::ci_collection[geom_type]->m_name.str,
          Geometry::ci_collection[wkb_type]->m_name.str, field_name,
Sergei Golubchik's avatar
Sergei Golubchik committed
7903
          (ulong) table->in_use->get_stmt_da()->current_row_for_warning());
7904 7905 7906
      goto err_exit;
    }

unknown's avatar
unknown committed
7907
    Field_blob::store_length(length);
7908 7909
    if ((table->copy_blobs || length <= MAX_FIELD_WIDTH) &&
        from != value.ptr())
unknown's avatar
unknown committed
7910 7911 7912 7913
    {						// Must make a copy
      value.copy(from, length, cs);
      from= value.ptr();
    }
7914
    bmove(ptr + packlength, &from, sizeof(char*));
unknown's avatar
unknown committed
7915 7916
  }
  return 0;
unknown's avatar
unknown committed
7917 7918

err:
7919 7920
  my_message(ER_CANT_CREATE_GEOMETRY_OBJECT,
             ER(ER_CANT_CREATE_GEOMETRY_OBJECT), MYF(0));
7921 7922
err_exit:
  bzero(ptr, Field_blob::pack_length());  
unknown's avatar
unknown committed
7923
  return -1;
unknown's avatar
unknown committed
7924 7925
}

unknown's avatar
unknown committed
7926
#endif /*HAVE_SPATIAL*/
unknown's avatar
unknown committed
7927

unknown's avatar
unknown committed
7928 7929 7930 7931 7932 7933 7934 7935 7936 7937 7938 7939 7940 7941 7942 7943 7944 7945 7946
/****************************************************************************
** enum type.
** This is a string which only can have a selection of different values.
** If one uses this string in a number context one gets the type number.
****************************************************************************/

enum ha_base_keytype Field_enum::key_type() const
{
  switch (packlength) {
  default: return HA_KEYTYPE_BINARY;
  case 2: return HA_KEYTYPE_USHORT_INT;
  case 3: return HA_KEYTYPE_UINT24;
  case 4: return HA_KEYTYPE_ULONG_INT;
  case 8: return HA_KEYTYPE_ULONGLONG;
  }
}

void Field_enum::store_type(ulonglong value)
{
Sergei Golubchik's avatar
Sergei Golubchik committed
7947
  store_lowendian(value, ptr, packlength);
unknown's avatar
unknown committed
7948 7949 7950
}


7951 7952 7953 7954
/**
  @note
    Storing a empty string in a enum field gives a warning
    (if there isn't a empty value in the enum)
unknown's avatar
unknown committed
7955 7956
*/

unknown's avatar
unknown committed
7957
int Field_enum::store(const char *from,uint length,CHARSET_INFO *cs)
unknown's avatar
unknown committed
7958
{
7959
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
7960
  int err= 0;
unknown's avatar
unknown committed
7961
  char buff[STRING_BUFFER_USUAL_SIZE];
unknown's avatar
unknown committed
7962
  String tmpstr(buff,sizeof(buff), &my_charset_bin);
unknown's avatar
unknown committed
7963

unknown's avatar
unknown committed
7964
  /* Convert character set if necessary */
7965
  if (String::needs_conversion_on_storage(length, cs, field_charset))
unknown's avatar
unknown committed
7966
  { 
7967 7968
    uint dummy_errors;
    tmpstr.copy(from, length, cs, field_charset, &dummy_errors);
unknown's avatar
unknown committed
7969 7970 7971
    from= tmpstr.ptr();
    length=  tmpstr.length();
  }
7972 7973

  /* Remove end space */
7974
  length= field_charset->cset->lengthsp(field_charset, from, length);
7975
  uint tmp=find_type2(typelib, from, length, field_charset);
unknown's avatar
unknown committed
7976
  if (!tmp)
unknown's avatar
unknown committed
7977
  {
7978
    if (length < 6) // Can't be more than 99999 enums
unknown's avatar
unknown committed
7979
    {
unknown's avatar
unknown committed
7980
      /* This is for reading numbers with LOAD DATA INFILE */
7981
      char *end;
7982 7983
      tmp=(uint) my_strntoul(cs,from,length,10,&end,&err);
      if (err || end != from+length || tmp > typelib->count)
unknown's avatar
unknown committed
7984 7985
      {
	tmp=0;
7986
	set_warning(Sql_condition::WARN_LEVEL_WARN, WARN_DATA_TRUNCATED, 1);
unknown's avatar
unknown committed
7987
      }
7988
      if (!get_thd()->count_cuted_fields)
7989
        err= 0;
unknown's avatar
unknown committed
7990 7991
    }
    else
7992
      set_warning(Sql_condition::WARN_LEVEL_WARN, WARN_DATA_TRUNCATED, 1);
unknown's avatar
unknown committed
7993
  }
unknown's avatar
unknown committed
7994
  store_type((ulonglong) tmp);
7995
  return err;
unknown's avatar
unknown committed
7996 7997 7998
}


unknown's avatar
unknown committed
7999
int Field_enum::store(double nr)
unknown's avatar
unknown committed
8000
{
8001
  return Field_enum::store((longlong) nr, FALSE);
unknown's avatar
unknown committed
8002 8003 8004
}


8005
int Field_enum::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
8006
{
8007
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
8008
  int error= 0;
8009
  if ((ulonglong) nr > typelib->count || nr == 0)
unknown's avatar
unknown committed
8010
  {
8011
    set_warning(Sql_condition::WARN_LEVEL_WARN, WARN_DATA_TRUNCATED, 1);
8012
    if (nr != 0 || get_thd()->count_cuted_fields)
unknown's avatar
unknown committed
8013 8014 8015 8016
    {
      nr= 0;
      error= 1;
    }
unknown's avatar
unknown committed
8017 8018
  }
  store_type((ulonglong) (uint) nr);
8019
  return error;
unknown's avatar
unknown committed
8020 8021 8022 8023 8024 8025 8026 8027 8028 8029 8030
}


double Field_enum::val_real(void)
{
  return (double) Field_enum::val_int();
}


longlong Field_enum::val_int(void)
{
8031
  ASSERT_COLUMN_MARKED_FOR_READ;
Sergei Golubchik's avatar
Sergei Golubchik committed
8032
  return read_lowendian(ptr, packlength);
unknown's avatar
unknown committed
8033 8034 8035
}


8036 8037 8038 8039 8040 8041 8042 8043 8044 8045 8046 8047 8048 8049 8050 8051 8052 8053 8054
/**
   Save the field metadata for enum fields.

   Saves the real type in the first byte and the pack length in the 
   second byte of the field metadata array at index of *metadata_ptr and
   *(metadata_ptr + 1).

   @param   metadata_ptr   First byte of field metadata

   @returns number of bytes written to metadata_ptr
*/
int Field_enum::do_save_field_metadata(uchar *metadata_ptr)
{
  *metadata_ptr= real_type();
  *(metadata_ptr + 1)= pack_length();
  return 2;
}


unknown's avatar
unknown committed
8055 8056 8057 8058 8059
String *Field_enum::val_str(String *val_buffer __attribute__((unused)),
			    String *val_ptr)
{
  uint tmp=(uint) Field_enum::val_int();
  if (!tmp || tmp > typelib->count)
unknown's avatar
unknown committed
8060
    val_ptr->set("", 0, field_charset);
unknown's avatar
unknown committed
8061 8062
  else
    val_ptr->set((const char*) typelib->type_names[tmp-1],
8063
		 typelib->type_lengths[tmp-1],
8064
		 field_charset);
unknown's avatar
unknown committed
8065 8066 8067
  return val_ptr;
}

8068
int Field_enum::cmp(const uchar *a_ptr, const uchar *b_ptr)
unknown's avatar
unknown committed
8069
{
8070 8071
  uchar *old= ptr;
  ptr= (uchar*) a_ptr;
unknown's avatar
unknown committed
8072
  ulonglong a=Field_enum::val_int();
8073
  ptr= (uchar*) b_ptr;
unknown's avatar
unknown committed
8074
  ulonglong b=Field_enum::val_int();
8075
  ptr= old;
unknown's avatar
unknown committed
8076 8077 8078
  return (a < b) ? -1 : (a > b) ? 1 : 0;
}

8079
void Field_enum::sort_string(uchar *to,uint length __attribute__((unused)))
unknown's avatar
unknown committed
8080 8081 8082 8083 8084 8085 8086 8087 8088 8089 8090 8091 8092
{
  ulonglong value=Field_enum::val_int();
  to+=packlength-1;
  for (uint i=0 ; i < packlength ; i++)
  {
    *to-- = (uchar) (value & 255);
    value>>=8;
  }
}


void Field_enum::sql_type(String &res) const
{
8093 8094 8095
  char buffer[255];
  String enum_item(buffer, sizeof(buffer), res.charset());

unknown's avatar
unknown committed
8096
  res.length(0);
8097
  res.append(STRING_WITH_LEN("enum("));
unknown's avatar
unknown committed
8098 8099

  bool flag=0;
8100 8101
  uint *len= typelib->type_lengths;
  for (const char **pos= typelib->type_names; *pos; pos++, len++)
unknown's avatar
unknown committed
8102
  {
8103
    uint dummy_errors;
unknown's avatar
unknown committed
8104 8105
    if (flag)
      res.append(',');
8106
    /* convert to res.charset() == utf8, then quote */
8107
    enum_item.copy(*pos, *len, charset(), res.charset(), &dummy_errors);
8108 8109
    append_unescaped(&res, enum_item.ptr(), enum_item.length());
    flag= 1;
unknown's avatar
unknown committed
8110 8111 8112 8113 8114
  }
  res.append(')');
}


Konstantin Osipov's avatar
Konstantin Osipov committed
8115
Field *Field_enum::new_field(MEM_ROOT *root, TABLE *new_table,
8116 8117 8118 8119 8120 8121 8122 8123 8124
                             bool keep_type)
{
  Field_enum *res= (Field_enum*) Field::new_field(root, new_table, keep_type);
  if (res)
    res->typelib= copy_typelib(root, typelib);
  return res;
}


8125 8126 8127 8128 8129 8130 8131 8132
/*
   set type.
   This is a string which can have a collection of different values.
   Each string value is separated with a ','.
   For example "One,two,five"
   If one uses this string in a number context one gets the bits as a longlong
   number.
*/
unknown's avatar
unknown committed
8133 8134


unknown's avatar
unknown committed
8135
int Field_set::store(const char *from,uint length,CHARSET_INFO *cs)
unknown's avatar
unknown committed
8136
{
8137
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
8138
  bool got_warning= 0;
8139
  int err= 0;
8140 8141
  char *not_used;
  uint not_used2;
unknown's avatar
unknown committed
8142
  char buff[STRING_BUFFER_USUAL_SIZE];
unknown's avatar
unknown committed
8143
  String tmpstr(buff,sizeof(buff), &my_charset_bin);
unknown's avatar
unknown committed
8144

unknown's avatar
unknown committed
8145
  /* Convert character set if necessary */
8146
  if (String::needs_conversion_on_storage(length, cs, field_charset))
unknown's avatar
unknown committed
8147
  { 
8148 8149
    uint dummy_errors;
    tmpstr.copy(from, length, cs, field_charset, &dummy_errors);
unknown's avatar
unknown committed
8150 8151 8152
    from= tmpstr.ptr();
    length=  tmpstr.length();
  }
8153 8154
  ulonglong tmp= find_set(typelib, from, length, field_charset,
                          &not_used, &not_used2, &got_warning);
unknown's avatar
unknown committed
8155 8156 8157
  if (!tmp && length && length < 22)
  {
    /* This is for reading numbers with LOAD DATA INFILE */
8158
    char *end;
8159 8160
    tmp=my_strntoull(cs,from,length,10,&end,&err);
    if (err || end != from+length ||
unknown's avatar
unknown committed
8161
	tmp > (ulonglong) (((longlong) 1 << typelib->count) - (longlong) 1))
8162
    {
8163
      tmp=0;      
8164
      set_warning(Sql_condition::WARN_LEVEL_WARN, WARN_DATA_TRUNCATED, 1);
8165
    }
unknown's avatar
unknown committed
8166
  }
unknown's avatar
unknown committed
8167
  else if (got_warning)
8168
    set_warning(Sql_condition::WARN_LEVEL_WARN, WARN_DATA_TRUNCATED, 1);
unknown's avatar
unknown committed
8169
  store_type(tmp);
8170
  return err;
unknown's avatar
unknown committed
8171 8172 8173
}


8174
int Field_set::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
8175
{
8176
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
8177
  int error= 0;
8178 8179 8180 8181 8182
  ulonglong max_nr;

  if (sizeof(ulonglong)*8 <= typelib->count)
    max_nr= ULONGLONG_MAX;
  else
8183
    max_nr= (1ULL << typelib->count) - 1;
8184

8185
  if ((ulonglong) nr > max_nr)
unknown's avatar
unknown committed
8186
  {
8187
    nr&= max_nr;
8188
    set_warning(Sql_condition::WARN_LEVEL_WARN, WARN_DATA_TRUNCATED, 1);
8189
    error=1;
unknown's avatar
unknown committed
8190 8191
  }
  store_type((ulonglong) nr);
8192
  return error;
unknown's avatar
unknown committed
8193 8194 8195 8196 8197 8198 8199 8200 8201
}


String *Field_set::val_str(String *val_buffer,
			   String *val_ptr __attribute__((unused)))
{
  ulonglong tmp=(ulonglong) Field_enum::val_int();
  uint bitnr=0;

8202 8203 8204 8205 8206 8207 8208 8209 8210 8211 8212 8213 8214
  if (tmp == 0)
  {
    /*
      Some callers expect *val_buffer to contain the result,
      so we assign to it, rather than doing 'return &empty_set_string.
     */
    *val_buffer= empty_set_string;
    return val_buffer;
  }

  val_buffer->set_charset(field_charset);
  val_buffer->length(0);

unknown's avatar
unknown committed
8215 8216 8217 8218 8219
  while (tmp && bitnr < (uint) typelib->count)
  {
    if (tmp & 1)
    {
      if (val_buffer->length())
8220
	val_buffer->append(&field_separator, 1, &my_charset_latin1);
unknown's avatar
unknown committed
8221
      String str(typelib->type_names[bitnr],
8222
		 typelib->type_lengths[bitnr],
8223
		 field_charset);
unknown's avatar
unknown committed
8224 8225 8226 8227 8228 8229 8230 8231 8232 8233 8234
      val_buffer->append(str);
    }
    tmp>>=1;
    bitnr++;
  }
  return val_buffer;
}


void Field_set::sql_type(String &res) const
{
8235 8236 8237
  char buffer[255];
  String set_item(buffer, sizeof(buffer), res.charset());

unknown's avatar
unknown committed
8238
  res.length(0);
8239
  res.append(STRING_WITH_LEN("set("));
unknown's avatar
unknown committed
8240 8241

  bool flag=0;
8242 8243
  uint *len= typelib->type_lengths;
  for (const char **pos= typelib->type_names; *pos; pos++, len++)
unknown's avatar
unknown committed
8244
  {
8245
    uint dummy_errors;
unknown's avatar
unknown committed
8246 8247
    if (flag)
      res.append(',');
8248
    /* convert to res.charset() == utf8, then quote */
8249
    set_item.copy(*pos, *len, charset(), res.charset(), &dummy_errors);
8250 8251
    append_unescaped(&res, set_item.ptr(), set_item.length());
    flag= 1;
unknown's avatar
unknown committed
8252 8253 8254 8255
  }
  res.append(')');
}

8256 8257 8258 8259 8260 8261
/**
  @retval
    1  if the fields are equally defined
  @retval
    0  if the fields are unequally defined
*/
unknown's avatar
unknown committed
8262 8263 8264

bool Field::eq_def(Field *field)
{
8265
  if (real_type() != field->real_type() || charset() != field->charset() ||
unknown's avatar
unknown committed
8266 8267 8268 8269 8270
      pack_length() != field->pack_length())
    return 0;
  return 1;
}

8271

8272 8273 8274 8275 8276 8277 8278 8279 8280 8281 8282 8283 8284 8285 8286 8287 8288 8289
/**
  Compare the first t1::count type names.

  @return TRUE if the type names of t1 match those of t2. FALSE otherwise.
*/

static bool compare_type_names(CHARSET_INFO *charset, TYPELIB *t1, TYPELIB *t2)
{
  for (uint i= 0; i < t1->count; i++)
    if (my_strnncoll(charset,
                     (const uchar*) t1->type_names[i],
                     t1->type_lengths[i],
                     (const uchar*) t2->type_names[i],
                     t2->type_lengths[i]))
      return FALSE;
  return TRUE;
}

8290 8291 8292 8293
/**
  @return
  returns 1 if the fields are equally defined
*/
8294

unknown's avatar
unknown committed
8295 8296
bool Field_enum::eq_def(Field *field)
{
8297 8298
  TYPELIB *values;

unknown's avatar
unknown committed
8299
  if (!Field::eq_def(field))
8300
    return FALSE;
unknown's avatar
unknown committed
8301

8302
  values= ((Field_enum*) field)->typelib;
8303

8304
  /* Definition must be strictly equal. */
8305 8306
  if (typelib->count != values->count)
    return FALSE;
8307 8308

  return compare_type_names(field_charset, typelib, values);
8309 8310 8311
}


8312 8313 8314 8315 8316 8317 8318 8319 8320
/**
  Check whether two fields can be considered 'equal' for table
  alteration purposes. Fields are equal if they retain the same
  pack length and if new members are added to the end of the list.

  @return IS_EQUAL_YES if fields are compatible.
          IS_EQUAL_NO otherwise.
*/

8321 8322
uint Field_enum::is_equal(Create_field *new_field)
{
8323 8324 8325 8326 8327 8328
  TYPELIB *values= new_field->interval;

  /*
    The fields are compatible if they have the same flags,
    type, charset and have the same underlying length.
  */
8329
  if (new_field->field_flags_are_binary() != field_flags_are_binary() ||
8330 8331 8332 8333 8334 8335 8336 8337 8338 8339 8340 8341 8342 8343 8344 8345 8346 8347
      new_field->sql_type != real_type() ||
      new_field->charset != field_charset ||
      new_field->pack_length != pack_length())
    return IS_EQUAL_NO;

  /*
    Changing the definition of an ENUM or SET column by adding a new
    enumeration or set members to the end of the list of valid member
    values only alters table metadata and not table data.
  */
  if (typelib->count > values->count)
    return IS_EQUAL_NO;

  /* Check whether there are modification before the end. */
  if (! compare_type_names(field_charset, typelib, new_field->interval))
    return IS_EQUAL_NO;

  return IS_EQUAL_YES;
unknown's avatar
unknown committed
8348 8349
}

8350

Sergei Golubchik's avatar
Sergei Golubchik committed
8351
uchar *Field_enum::pack(uchar *to, const uchar *from, uint max_length)
8352 8353 8354 8355
{
  DBUG_ENTER("Field_enum::pack");
  DBUG_PRINT("debug", ("packlength: %d", packlength));
  DBUG_DUMP("from", from, packlength);
Sergei Golubchik's avatar
Sergei Golubchik committed
8356
  DBUG_RETURN(pack_int(to, from, packlength));
8357 8358
}

Igor Babaev's avatar
Igor Babaev committed
8359 8360
const uchar *Field_enum::unpack(uchar *to, const uchar *from, 
                                const uchar *from_end, uint param_data)
8361 8362 8363 8364
{
  DBUG_ENTER("Field_enum::unpack");
  DBUG_PRINT("debug", ("packlength: %d", packlength));
  DBUG_DUMP("from", from, packlength);
Igor Babaev's avatar
Igor Babaev committed
8365
  DBUG_RETURN(unpack_int(to, from, from_end, packlength));
8366 8367 8368
}


8369 8370 8371 8372
/**
  @return
  returns 1 if the fields are equally defined
*/
unknown's avatar
unknown committed
8373
bool Field_num::eq_def(Field *field)
unknown's avatar
unknown committed
8374
{
unknown's avatar
unknown committed
8375 8376 8377 8378 8379
  if (!Field::eq_def(field))
    return 0;
  Field_num *from_num= (Field_num*) field;

  if (unsigned_flag != from_num->unsigned_flag ||
8380
      (zerofill && !from_num->zerofill && !zero_pack()) ||
unknown's avatar
unknown committed
8381 8382 8383 8384 8385 8386
      dec != from_num->dec)
    return 0;
  return 1;
}


8387 8388 8389 8390 8391 8392
/**
  Check whether two numeric fields can be considered 'equal' for table
  alteration purposes. Fields are equal if they are of the same type
  and retain the same pack length.
*/

unknown's avatar
unknown committed
8393
uint Field_num::is_equal(Create_field *new_field)
unknown's avatar
unknown committed
8394
{
8395
  return ((new_field->sql_type == real_type()) &&
8396 8397
          ((new_field->flags & UNSIGNED_FLAG) == 
           (uint) (flags & UNSIGNED_FLAG)) &&
unknown's avatar
unknown committed
8398 8399
	  ((new_field->flags & AUTO_INCREMENT_FLAG) ==
	   (uint) (flags & AUTO_INCREMENT_FLAG)) &&
8400
          (new_field->pack_length == pack_length()));
unknown's avatar
unknown committed
8401 8402 8403
}


unknown's avatar
unknown committed
8404 8405 8406 8407 8408 8409 8410 8411 8412 8413 8414 8415 8416 8417 8418 8419 8420 8421 8422 8423 8424 8425 8426 8427 8428 8429 8430 8431 8432
/*
  Bit field.

  We store the first 0 - 6 uneven bits among the null bits 
  at the start of the record. The rest bytes are stored in 
  the record itself.

  For example:

  CREATE TABLE t1 (a int, b bit(17), c bit(21) not null, d bit(8));
  We would store data  as follows in the record:

  Byte        Bit
  1           7 - reserve for delete
              6 - null bit for 'a'
              5 - null bit for 'b'
              4 - first (high) bit of 'b'
              3 - first (high) bit of 'c'
              2 - second bit of 'c'
              1 - third bit of 'c'
              0 - forth bit of 'c'
  2           7 - firth bit of 'c'
              6 - null bit for 'd'
  3 - 6       four bytes for 'a'
  7 - 8       two bytes for 'b'
  9 - 10      two bytes for 'c'
  11          one byte for 'd'
*/

8433
Field_bit::Field_bit(uchar *ptr_arg, uint32 len_arg, uchar *null_ptr_arg,
unknown's avatar
unknown committed
8434
                     uchar null_bit_arg, uchar *bit_ptr_arg, uchar bit_ofs_arg,
unknown's avatar
unknown committed
8435
                     enum utype unireg_check_arg, const char *field_name_arg)
unknown's avatar
unknown committed
8436
  : Field(ptr_arg, len_arg, null_ptr_arg, null_bit_arg,
unknown's avatar
unknown committed
8437
          unireg_check_arg, field_name_arg),
unknown's avatar
unknown committed
8438 8439
    bit_ptr(bit_ptr_arg), bit_ofs(bit_ofs_arg), bit_len(len_arg & 7),
    bytes_in_rec(len_arg / 8)
unknown's avatar
unknown committed
8440
{
8441 8442 8443
  DBUG_ENTER("Field_bit::Field_bit");
  DBUG_PRINT("enter", ("ptr_arg: %p, null_ptr_arg: %p, len_arg: %u, bit_len: %u, bytes_in_rec: %u",
                       ptr_arg, null_ptr_arg, len_arg, bit_len, bytes_in_rec));
unknown's avatar
unknown committed
8444
  flags|= UNSIGNED_FLAG;
unknown's avatar
unknown committed
8445 8446 8447 8448 8449 8450
  /*
    Ensure that Field::eq() can distinguish between two different bit fields.
    (two bit fields that are not null, may have same ptr and null_ptr)
  */
  if (!null_ptr_arg)
    null_bit= bit_ofs_arg;
8451
  DBUG_VOID_RETURN;
unknown's avatar
unknown committed
8452 8453 8454
}


8455 8456 8457 8458 8459 8460 8461 8462 8463 8464 8465 8466 8467 8468 8469 8470 8471
void Field_bit::hash(ulong *nr, ulong *nr2)
{
  if (is_null())
  {
    *nr^= (*nr << 1) | 1;
  }
  else
  {
    CHARSET_INFO *cs= &my_charset_bin;
    longlong value= Field_bit::val_int();
    uchar tmp[8];
    mi_int8store(tmp,value);
    cs->coll->hash_sort(cs, tmp, 8, nr, nr2);
  }
}


8472
size_t
8473 8474 8475 8476 8477 8478 8479 8480 8481 8482
Field_bit::do_last_null_byte() const
{
  /*
    Code elsewhere is assuming that bytes are 8 bits, so I'm using
    that value instead of the correct one: CHAR_BIT.

    REFACTOR SUGGESTION (Matz): Change to use the correct number of
    bits. On systems with CHAR_BIT > 8 (not very common), the storage
    will lose the extra bits.
  */
unknown's avatar
unknown committed
8483 8484
  DBUG_PRINT("test", ("bit_ofs: %d, bit_len: %d  bit_ptr: 0x%lx",
                      bit_ofs, bit_len, (long) bit_ptr));
8485 8486 8487 8488 8489 8490 8491 8492
  uchar *result;
  if (bit_len == 0)
    result= null_ptr;
  else if (bit_ofs + bit_len > 8)
    result= bit_ptr + 1;
  else
    result= bit_ptr;

8493
  if (result)
8494 8495
    return (size_t) (result - table->record[0]) + 1;
  return LAST_NULL_BYTE_UNDEF;
8496 8497
}

8498

8499 8500 8501
Field *Field_bit::new_key_field(MEM_ROOT *root, TABLE *new_table,
                                uchar *new_ptr, uint32 length, 
                                uchar *new_null_ptr, uint new_null_bit)
unknown's avatar
unknown committed
8502 8503
{
  Field_bit *res;
8504 8505
  if ((res= (Field_bit*) Field::new_key_field(root, new_table, new_ptr, length,
                                              new_null_ptr, new_null_bit)))
unknown's avatar
unknown committed
8506 8507
  {
    /* Move bits normally stored in null_pointer to new_ptr */
8508
    res->bit_ptr= new_ptr;
unknown's avatar
unknown committed
8509 8510 8511 8512 8513 8514 8515 8516
    res->bit_ofs= 0;
    if (bit_len)
      res->ptr++;                               // Store rest of data here
  }
  return res;
}


unknown's avatar
unknown committed
8517
uint Field_bit::is_equal(Create_field *new_field) 
8518 8519 8520 8521 8522 8523
{
  return (new_field->sql_type == real_type() &&
          new_field->length == max_display_length());
}

                       
unknown's avatar
unknown committed
8524 8525
int Field_bit::store(const char *from, uint length, CHARSET_INFO *cs)
{
8526
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
unknown's avatar
unknown committed
8527 8528
  int delta;

8529 8530
  for (; length && !*from; from++, length--)          // skip left 0's
    ;
unknown's avatar
unknown committed
8531
  delta= bytes_in_rec - length;
unknown's avatar
unknown committed
8532 8533 8534 8535 8536

  if (delta < -1 ||
      (delta == -1 && (uchar) *from > ((1 << bit_len) - 1)) ||
      (!bit_len && delta < 0))
  {
8537
    set_rec_bits((1 << bit_len) - 1, bit_ptr, bit_ofs, bit_len);
unknown's avatar
unknown committed
8538
    memset(ptr, 0xff, bytes_in_rec);
8539
    if (get_thd()->really_abort_on_warning())
8540
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_DATA_TOO_LONG, 1);
8541
    else
8542
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
unknown's avatar
unknown committed
8543 8544 8545 8546 8547 8548 8549 8550 8551 8552 8553 8554 8555 8556 8557 8558 8559 8560 8561 8562 8563 8564 8565
    return 1;
  }
  /* delta is >= -1 here */
  if (delta > 0)
  {
    if (bit_len)
      clr_rec_bits(bit_ptr, bit_ofs, bit_len);
    bzero(ptr, delta);
    memcpy(ptr + delta, from, length);
  }
  else if (delta == 0)
  {
    if (bit_len)
      clr_rec_bits(bit_ptr, bit_ofs, bit_len);
    memcpy(ptr, from, length);
  }
  else
  {
    if (bit_len)
    {
      set_rec_bits((uchar) *from, bit_ptr, bit_ofs, bit_len);
      from++;
    }
unknown's avatar
unknown committed
8566
    memcpy(ptr, from, bytes_in_rec);
unknown's avatar
unknown committed
8567 8568 8569 8570 8571 8572 8573
  }
  return 0;
}


int Field_bit::store(double nr)
{
8574
  return Field_bit::store((longlong) nr, FALSE);
unknown's avatar
unknown committed
8575 8576 8577
}


8578
int Field_bit::store(longlong nr, bool unsigned_val)
unknown's avatar
unknown committed
8579 8580 8581 8582 8583 8584 8585 8586
{
  char buf[8];

  mi_int8store(buf, nr);
  return store(buf, 8, NULL);
}


unknown's avatar
unknown committed
8587 8588 8589 8590
int Field_bit::store_decimal(const my_decimal *val)
{
  int err= 0;
  longlong i= convert_decimal2longlong(val, 1, &err);
8591
  return MY_TEST(err | store(i, TRUE));
unknown's avatar
unknown committed
8592 8593 8594
}


unknown's avatar
unknown committed
8595 8596 8597 8598 8599 8600 8601 8602
double Field_bit::val_real(void)
{
  return (double) Field_bit::val_int();
}


longlong Field_bit::val_int(void)
{
8603
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
8604 8605
  ulonglong bits= 0;
  if (bit_len)
8606
  {
unknown's avatar
unknown committed
8607
    bits= get_rec_bits(bit_ptr, bit_ofs, bit_len);
unknown's avatar
unknown committed
8608
    bits<<= (bytes_in_rec * 8);
8609
  }
unknown's avatar
unknown committed
8610

unknown's avatar
unknown committed
8611
  switch (bytes_in_rec) {
unknown's avatar
unknown committed
8612
  case 0: return bits;
8613
  case 1: return bits | (ulonglong) ptr[0];
unknown's avatar
unknown committed
8614 8615 8616 8617 8618 8619
  case 2: return bits | mi_uint2korr(ptr);
  case 3: return bits | mi_uint3korr(ptr);
  case 4: return bits | mi_uint4korr(ptr);
  case 5: return bits | mi_uint5korr(ptr);
  case 6: return bits | mi_uint6korr(ptr);
  case 7: return bits | mi_uint7korr(ptr);
unknown's avatar
unknown committed
8620
  default: return mi_uint8korr(ptr + bytes_in_rec - sizeof(longlong));
unknown's avatar
unknown committed
8621 8622 8623 8624 8625 8626 8627
  }
}  


String *Field_bit::val_str(String *val_buffer,
                           String *val_ptr __attribute__((unused)))
{
8628
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
8629
  char buff[sizeof(longlong)];
8630
  uint length= MY_MIN(pack_length(), sizeof(longlong));
unknown's avatar
unknown committed
8631
  ulonglong bits= val_int();
unknown's avatar
unknown committed
8632
  mi_int8store(buff,bits);
unknown's avatar
unknown committed
8633 8634

  val_buffer->alloc(length);
8635
  memcpy((char *) val_buffer->ptr(), buff+8-length, length);
unknown's avatar
unknown committed
8636 8637 8638 8639 8640 8641
  val_buffer->length(length);
  val_buffer->set_charset(&my_charset_bin);
  return val_buffer;
}


unknown's avatar
unknown committed
8642 8643
my_decimal *Field_bit::val_decimal(my_decimal *deciaml_value)
{
8644
  ASSERT_COLUMN_MARKED_FOR_READ;
unknown's avatar
unknown committed
8645 8646 8647 8648 8649
  int2my_decimal(E_DEC_FATAL_ERROR, val_int(), 1, deciaml_value);
  return deciaml_value;
}


8650 8651 8652 8653 8654 8655 8656 8657 8658 8659 8660 8661 8662
/*
  Compare two bit fields using pointers within the record.
  SYNOPSIS
    cmp_max()
    a                 Pointer to field->ptr in first record
    b                 Pointer to field->ptr in second record
    max_len           Maximum length used in index
  DESCRIPTION
    This method is used from key_rec_cmp used by merge sorts used
    by partitioned index read and later other similar places.
    The a and b pointer must be pointers to the field in a record
    (not the table->record[0] necessarily)
*/
8663
int Field_bit::cmp_max(const uchar *a, const uchar *b, uint max_len)
8664 8665 8666 8667 8668 8669 8670 8671 8672 8673 8674
{
  my_ptrdiff_t a_diff= a - ptr;
  my_ptrdiff_t b_diff= b - ptr;
  if (bit_len)
  {
    int flag;
    uchar bits_a= get_rec_bits(bit_ptr+a_diff, bit_ofs, bit_len);
    uchar bits_b= get_rec_bits(bit_ptr+b_diff, bit_ofs, bit_len);
    if ((flag= (int) (bits_a - bits_b)))
      return flag;
  }
Igor Babaev's avatar
Igor Babaev committed
8675 8676 8677
  if (!bytes_in_rec)
    return 0;
  return memcmp(a, b, bytes_in_rec);
8678 8679 8680
}


8681
int Field_bit::key_cmp(const uchar *str, uint length)
unknown's avatar
unknown committed
8682 8683 8684 8685 8686
{
  if (bit_len)
  {
    int flag;
    uchar bits= get_rec_bits(bit_ptr, bit_ofs, bit_len);
8687
    if ((flag= (int) (bits - *str)))
unknown's avatar
unknown committed
8688 8689 8690 8691
      return flag;
    str++;
    length--;
  }
unknown's avatar
unknown committed
8692
  return memcmp(ptr, str, length);
unknown's avatar
unknown committed
8693 8694 8695 8696 8697 8698 8699 8700 8701 8702 8703 8704 8705
}


int Field_bit::cmp_offset(uint row_offset)
{
  if (bit_len)
  {
    int flag;
    uchar bits_a= get_rec_bits(bit_ptr, bit_ofs, bit_len);
    uchar bits_b= get_rec_bits(bit_ptr + row_offset, bit_ofs, bit_len);
    if ((flag= (int) (bits_a - bits_b)))
      return flag;
  }
unknown's avatar
unknown committed
8706
  return memcmp(ptr, ptr + row_offset, bytes_in_rec);
unknown's avatar
unknown committed
8707 8708 8709
}


8710
uint Field_bit::get_key_image(uchar *buff, uint length, imagetype type_arg)
unknown's avatar
unknown committed
8711 8712 8713 8714 8715 8716 8717
{
  if (bit_len)
  {
    uchar bits= get_rec_bits(bit_ptr, bit_ofs, bit_len);
    *buff++= bits;
    length--;
  }
8718
  uint data_length = MY_MIN(length, bytes_in_rec);
8719 8720
  memcpy(buff, ptr, data_length);
  return data_length + 1;
unknown's avatar
unknown committed
8721 8722 8723
}


8724 8725 8726 8727 8728 8729 8730 8731 8732 8733 8734 8735 8736
/**
   Save the field metadata for bit fields.

   Saves the bit length in the first byte and bytes in record in the
   second byte of the field metadata array at index of *metadata_ptr and
   *(metadata_ptr + 1).

   @param   metadata_ptr   First byte of field metadata

   @returns number of bytes written to metadata_ptr
*/
int Field_bit::do_save_field_metadata(uchar *metadata_ptr)
{
8737 8738 8739
  DBUG_ENTER("Field_bit::do_save_field_metadata");
  DBUG_PRINT("debug", ("bit_len: %d, bytes_in_rec: %d",
                       bit_len, bytes_in_rec));
8740 8741 8742 8743 8744 8745 8746
  /*
    Since this class and Field_bit_as_char have different ideas of
    what should be stored here, we compute the values of the metadata
    explicitly using the field_length.
   */
  metadata_ptr[0]= field_length % 8;
  metadata_ptr[1]= field_length / 8;
8747
  DBUG_RETURN(2);
8748 8749 8750 8751 8752 8753 8754 8755 8756 8757 8758 8759 8760 8761 8762 8763 8764 8765 8766 8767 8768 8769 8770 8771
}


/**
   Returns the number of bytes field uses in row-based replication 
   row packed size.

   This method is used in row-based replication to determine the number
   of bytes that the field consumes in the row record format. This is
   used to skip fields in the master that do not exist on the slave.

   @param   field_metadata   Encoded size in field metadata

   @returns The size of the field based on the field metadata.
*/
uint Field_bit::pack_length_from_metadata(uint field_metadata)
{
  uint const from_len= (field_metadata >> 8U) & 0x00ff;
  uint const from_bit_len= field_metadata & 0x00ff;
  uint const source_size= from_len + ((from_bit_len > 0) ? 1 : 0);
  return (source_size);
}


8772 8773 8774
bool
Field_bit::compatible_field_size(uint field_metadata,
                                 Relay_log_info * __attribute__((unused)),
8775
                                 uint16 mflags,
8776
                                 int *order_var)
8777
{
8778 8779
  DBUG_ENTER("Field_bit::compatible_field_size");
  DBUG_ASSERT((field_metadata >> 16) == 0);
8780
  uint from_bit_len=
8781
    8 * (field_metadata >> 8) + (field_metadata & 0xff);
8782
  uint to_bit_len= max_display_length();
8783 8784
  DBUG_PRINT("debug", ("from_bit_len: %u, to_bit_len: %u",
                       from_bit_len, to_bit_len));
8785 8786 8787 8788 8789 8790 8791 8792 8793 8794 8795 8796 8797
  /*
    If the bit length exact flag is clear, we are dealing with an old
    master, so we allow some less strict behaviour if replicating by
    moving both bit lengths to an even multiple of 8.

    We do this by computing the number of bytes to store the field
    instead, and then compare the result.
   */
  if (!(mflags & Table_map_log_event::TM_BIT_LEN_EXACT_F)) {
    from_bit_len= (from_bit_len + 7) / 8;
    to_bit_len= (to_bit_len + 7) / 8;
  }

8798 8799
  *order_var= compare(from_bit_len, to_bit_len);
  DBUG_RETURN(TRUE);
8800 8801 8802 8803
}



unknown's avatar
unknown committed
8804 8805 8806 8807
void Field_bit::sql_type(String &res) const
{
  CHARSET_INFO *cs= res.charset();
  ulong length= cs->cset->snprintf(cs, (char*) res.ptr(), res.alloced_length(),
unknown's avatar
unknown committed
8808
                                   "bit(%d)", (int) field_length);
unknown's avatar
unknown committed
8809 8810 8811 8812
  res.length((uint) length);
}


8813
uchar *
Sergei Golubchik's avatar
Sergei Golubchik committed
8814
Field_bit::pack(uchar *to, const uchar *from, uint max_length)
unknown's avatar
unknown committed
8815
{
8816
  DBUG_ASSERT(max_length > 0);
unknown's avatar
unknown committed
8817
  uint length;
unknown's avatar
unknown committed
8818
  if (bit_len > 0)
unknown's avatar
unknown committed
8819
  {
unknown's avatar
unknown committed
8820 8821 8822 8823 8824 8825 8826 8827 8828 8829 8830 8831 8832 8833 8834 8835 8836 8837 8838 8839
    /*
      We have the following:

      ptr        Points into a field in record R1
      from       Points to a field in a record R2
      bit_ptr    Points to the byte (in the null bytes) that holds the
                 odd bits of R1
      from_bitp  Points to the byte that holds the odd bits of R2

      We have the following:

          ptr - bit_ptr = from - from_bitp

      We want to isolate 'from_bitp', so this gives:

          ptr - bit_ptr - from = - from_bitp
          - ptr + bit_ptr + from = from_bitp
          bit_ptr + from - ptr = from_bitp
     */
    uchar bits= get_rec_bits(bit_ptr + (from - ptr), bit_ofs, bit_len);
unknown's avatar
unknown committed
8840 8841
    *to++= bits;
  }
8842
  length= MY_MIN(bytes_in_rec, max_length - (bit_len > 0));
unknown's avatar
unknown committed
8843
  memcpy(to, from, length);
unknown's avatar
unknown committed
8844 8845 8846 8847
  return to + length;
}


8848 8849 8850
/**
   Unpack a bit field from row data.

8851
   This method is used to unpack a bit field from a master whose size
8852
   of the field is less than that of the slave.
8853

8854 8855 8856 8857 8858 8859
   @param   to         Destination of the data
   @param   from       Source of the data
   @param   param_data Bit length (upper) and length (lower) values

   @return  New pointer into memory based on from + length of the data
*/
8860
const uchar *
8861 8862
Field_bit::unpack(uchar *to, const uchar *from, const uchar *from_end,
                  uint param_data)
8863
{
8864 8865 8866 8867 8868
  DBUG_ENTER("Field_bit::unpack");
  DBUG_PRINT("enter", ("to: %p, from: %p, param_data: 0x%x",
                       to, from, param_data));
  DBUG_PRINT("debug", ("bit_ptr: %p, bit_len: %u, bit_ofs: %u",
                       bit_ptr, bit_len, bit_ofs));
8869 8870
  uint const from_len= (param_data >> 8U) & 0x00ff;
  uint const from_bit_len= param_data & 0x00ff;
8871 8872
  DBUG_PRINT("debug", ("from_len: %u, from_bit_len: %u",
                       from_len, from_bit_len));
8873
  /*
8874 8875
    If the parameter data is zero (i.e., undefined), or if the master
    and slave have the same sizes, then use the old unpack() method.
8876
  */
8877
  if (param_data == 0 ||
8878
      ((from_bit_len == bit_len) && (from_len == bytes_in_rec)))
8879
  {
8880
    if (from + bytes_in_rec + MY_TEST(bit_len) > from_end)
8881 8882
      return 0;                                 // Error in data

8883 8884 8885 8886 8887 8888 8889 8890 8891 8892 8893 8894 8895
    if (bit_len > 0)
    {
      /*
        set_rec_bits is a macro, don't put the post-increment in the
        argument since that might cause strange side-effects.

        For the choice of the second argument, see the explanation for
        Field_bit::pack().
      */
      set_rec_bits(*from, bit_ptr + (to - ptr), bit_ofs, bit_len);
      from++;
    }
    memcpy(to, from, bytes_in_rec);
8896
    DBUG_RETURN(from + bytes_in_rec);
8897 8898
  }

8899 8900 8901 8902 8903 8904 8905 8906
  /*
    We are converting a smaller bit field to a larger one here.
    To do that, we first need to construct a raw value for the original
    bit value stored in the from buffer. Then that needs to be converted
    to the larger field then sent to store() for writing to the field.
    Lastly the odd bits need to be masked out if the bytes_in_rec > 0.
    Otherwise stray bits can cause spurious values.
  */
8907 8908

  uint len= from_len + ((from_bit_len > 0) ? 1 : 0);
8909
  uint new_len= (field_length + 7) / 8;
8910 8911 8912 8913

  if (from + len > from_end || new_len < len)
    return 0;                                 // Error in data

8914 8915
  char *value= (char *)my_alloca(new_len);
  bzero(value, new_len);
8916

8917 8918 8919 8920 8921 8922 8923 8924 8925 8926 8927
  memcpy(value + (new_len - len), from, len);
  /*
    Mask out the unused bits in the partial byte. 
    TODO: Add code to the master to always mask these bits and remove
          the following.
  */
  if ((from_bit_len > 0) && (from_len > 0))
    value[new_len - len]= value[new_len - len] & ((1U << from_bit_len) - 1);
  bitmap_set_bit(table->write_set,field_index);
  store(value, new_len, system_charset_info);
  my_afree(value);
8928
  DBUG_RETURN(from + len);
8929 8930 8931
}


8932 8933
void Field_bit::set_default()
{
8934 8935 8936 8937 8938 8939
  if (bit_len > 0)
  {
    my_ptrdiff_t const offset= table->s->default_values - table->record[0];
    uchar bits= get_rec_bits(bit_ptr + offset, bit_ofs, bit_len);
    set_rec_bits(bits, bit_ptr, bit_ofs, bit_len);
  }
8940 8941 8942
  Field::set_default();
}

8943 8944 8945 8946
/*
  Bit field support for non-MyISAM tables.
*/

8947
Field_bit_as_char::Field_bit_as_char(uchar *ptr_arg, uint32 len_arg,
8948 8949
                                     uchar *null_ptr_arg, uchar null_bit_arg,
                                     enum utype unireg_check_arg,
unknown's avatar
unknown committed
8950
                                     const char *field_name_arg)
8951
  :Field_bit(ptr_arg, len_arg, null_ptr_arg, null_bit_arg, 0, 0,
unknown's avatar
unknown committed
8952
             unireg_check_arg, field_name_arg)
8953
{
unknown's avatar
unknown committed
8954
  flags|= UNSIGNED_FLAG;
8955
  bit_len= 0;
unknown's avatar
unknown committed
8956
  bytes_in_rec= (len_arg + 7) / 8;
8957 8958 8959 8960 8961
}


int Field_bit_as_char::store(const char *from, uint length, CHARSET_INFO *cs)
{
8962
  ASSERT_COLUMN_MARKED_FOR_WRITE_OR_COMPUTED;
8963
  int delta;
8964
  uchar bits= (uchar) (field_length & 7);
8965

8966 8967
  for (; length && !*from; from++, length--)          // skip left 0's
    ;
unknown's avatar
unknown committed
8968
  delta= bytes_in_rec - length;
8969 8970 8971 8972

  if (delta < 0 ||
      (delta == 0 && bits && (uint) (uchar) *from >= (uint) (1 << bits)))
  {
unknown's avatar
unknown committed
8973
    memset(ptr, 0xff, bytes_in_rec);
8974
    if (bits)
8975
      *ptr&= ((1 << bits) - 1); /* set first uchar */
8976
    if (get_thd()->really_abort_on_warning())
8977
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_DATA_TOO_LONG, 1);
8978
    else
8979
      set_warning(Sql_condition::WARN_LEVEL_WARN, ER_WARN_DATA_OUT_OF_RANGE, 1);
8980 8981 8982 8983 8984 8985 8986 8987 8988 8989 8990 8991
    return 1;
  }
  bzero(ptr, delta);
  memcpy(ptr + delta, from, length);
  return 0;
}


void Field_bit_as_char::sql_type(String &res) const
{
  CHARSET_INFO *cs= res.charset();
  ulong length= cs->cset->snprintf(cs, (char*) res.ptr(), res.alloced_length(),
unknown's avatar
unknown committed
8992
                                   "bit(%d)", (int) field_length);
8993 8994 8995 8996
  res.length((uint) length);
}


unknown's avatar
unknown committed
8997
/*****************************************************************************
unknown's avatar
unknown committed
8998
  Handling of field and Create_field
unknown's avatar
unknown committed
8999 9000
*****************************************************************************/

9001 9002
/**
  Convert create_field::length from number of characters to number of bytes.
9003 9004
*/

unknown's avatar
unknown committed
9005
void Create_field::create_length_to_internal_length(void)
9006
{
unknown's avatar
unknown committed
9007 9008 9009 9010 9011
  switch (sql_type) {
  case MYSQL_TYPE_TINY_BLOB:
  case MYSQL_TYPE_MEDIUM_BLOB:
  case MYSQL_TYPE_LONG_BLOB:
  case MYSQL_TYPE_BLOB:
9012
  case MYSQL_TYPE_GEOMETRY:
unknown's avatar
unknown committed
9013 9014
  case MYSQL_TYPE_VAR_STRING:
  case MYSQL_TYPE_STRING:
9015
  case MYSQL_TYPE_VARCHAR:
unknown's avatar
unknown committed
9016
    length*= charset->mbmaxlen;
9017
    key_length= length;
9018
    pack_length= calc_pack_length(sql_type, length);
unknown's avatar
unknown committed
9019 9020 9021
    break;
  case MYSQL_TYPE_ENUM:
  case MYSQL_TYPE_SET:
9022
    /* Pack_length already calculated in sql_parse.cc */
unknown's avatar
unknown committed
9023
    length*= charset->mbmaxlen;
9024
    key_length= pack_length;
unknown's avatar
unknown committed
9025
    break;
unknown's avatar
unknown committed
9026
  case MYSQL_TYPE_BIT:
9027 9028 9029 9030 9031 9032 9033 9034
    if (f_bit_as_char(pack_flag))
    {
      key_length= pack_length= ((length + 7) & ~7) / 8;
    }
    else
    {
      pack_length= length / 8;
      /* We need one extra byte to store the bits we save among the null bits */
9035
      key_length= pack_length + MY_TEST(length & 7);
9036
    }
unknown's avatar
unknown committed
9037
    break;
unknown's avatar
unknown committed
9038
  case MYSQL_TYPE_NEWDECIMAL:
unknown's avatar
unknown committed
9039 9040 9041 9042 9043 9044
    key_length= pack_length=
      my_decimal_get_binary_size(my_decimal_length_to_precision(length,
								decimals,
								flags &
								UNSIGNED_FLAG),
				 decimals);
unknown's avatar
unknown committed
9045
    break;
unknown's avatar
unknown committed
9046
  default:
9047
    key_length= pack_length= calc_pack_length(sql_type, length);
unknown's avatar
unknown committed
9048
    break;
9049 9050 9051
  }
}

9052

9053 9054 9055
/**
  Init for a tmp table field. To be extended if need be.
*/
unknown's avatar
unknown committed
9056
void Create_field::init_for_tmp_table(enum_field_types sql_type_arg,
9057
                                      uint32 length_arg, uint32 decimals_arg,
9058
                                      bool maybe_null, bool is_unsigned,
9059
                                      uint pack_length_arg)
9060
{
9061 9062
  DBUG_ENTER("Create_field::init_for_tmp_table");

9063 9064
  field_name= "";
  sql_type= sql_type_arg;
unknown's avatar
unknown committed
9065
  char_length= length= length_arg;;
9066 9067 9068 9069
  unireg_check= Field::NONE;
  interval= 0;
  charset= &my_charset_bin;
  geom_type= Field::GEOM_GEOMETRY;
9070 9071

  DBUG_PRINT("enter", ("sql_type: %d, length: %u, pack_length: %u",
9072
                       sql_type_arg, length_arg, pack_length_arg));
9073 9074 9075 9076 9077 9078 9079 9080 9081 9082 9083 9084 9085 9086 9087 9088 9089 9090 9091 9092 9093 9094 9095

  /*
    These pack flags are crafted to get it correctly through the
    branches of make_field().
   */
  switch (sql_type_arg)
  {
  case MYSQL_TYPE_VARCHAR:
  case MYSQL_TYPE_VAR_STRING:
  case MYSQL_TYPE_STRING:
  case MYSQL_TYPE_SET:
    pack_flag= 0;
    break;

  case MYSQL_TYPE_GEOMETRY:
    pack_flag= FIELDFLAG_GEOM;
    break;

  case MYSQL_TYPE_ENUM:
    pack_flag= FIELDFLAG_INTERVAL;
    break;

  case MYSQL_TYPE_NEWDECIMAL:
Tor Didriksen's avatar
Tor Didriksen committed
9096 9097
    DBUG_ASSERT(decimals_arg <= DECIMAL_MAX_SCALE);
  case MYSQL_TYPE_DECIMAL:
9098 9099
  case MYSQL_TYPE_FLOAT:
  case MYSQL_TYPE_DOUBLE:
9100
    pack_flag= FIELDFLAG_NUMBER |
9101 9102 9103 9104 9105 9106 9107 9108 9109 9110 9111 9112 9113 9114 9115 9116 9117 9118 9119 9120 9121 9122 9123 9124 9125 9126 9127 9128 9129 9130 9131 9132 9133 9134 9135 9136
      (decimals_arg & FIELDFLAG_MAX_DEC) << FIELDFLAG_DEC_SHIFT;
    break;

  case MYSQL_TYPE_TINY_BLOB:
  case MYSQL_TYPE_MEDIUM_BLOB:
  case MYSQL_TYPE_LONG_BLOB:
  case MYSQL_TYPE_BLOB:
    pack_flag= FIELDFLAG_BLOB;
    break;

  case MYSQL_TYPE_BIT:
    pack_flag= FIELDFLAG_NUMBER | FIELDFLAG_TREAT_BIT_AS_CHAR;
    break;

  default:
    pack_flag= FIELDFLAG_NUMBER;
    break;
  }

  /*
    Set the pack flag correctly for the blob-like types. This sets the
    packtype to something that make_field can use. If the pack type is
    not set correctly, the packlength will be reeeeally wierd (like
    129 or so).
   */
  switch (sql_type_arg)
  {
  case MYSQL_TYPE_ENUM:
  case MYSQL_TYPE_SET:
  case MYSQL_TYPE_TINY_BLOB:
  case MYSQL_TYPE_MEDIUM_BLOB:
  case MYSQL_TYPE_LONG_BLOB:
  case MYSQL_TYPE_BLOB:
  case MYSQL_TYPE_GEOMETRY:
    // If you are going to use the above types, you have to pass a
    // pack_length as parameter. Assert that is really done.
9137 9138
    DBUG_ASSERT(pack_length_arg != ~0U);
    pack_flag|= pack_length_to_packflag(pack_length_arg);
9139 9140 9141 9142 9143 9144 9145 9146 9147 9148
    break;
  default:
    /* Nothing */
    break;
  }

  pack_flag|=
    (maybe_null ? FIELDFLAG_MAYBE_NULL : 0) |
    (is_unsigned ? 0 : FIELDFLAG_DECIMAL);

9149
  DBUG_PRINT("debug", ("pack_flag: %s%s%s%s%s%s, pack_type: %d",
9150 9151 9152 9153 9154
                       FLAGSTR(pack_flag, FIELDFLAG_BINARY),
                       FLAGSTR(pack_flag, FIELDFLAG_NUMBER),
                       FLAGSTR(pack_flag, FIELDFLAG_INTERVAL),
                       FLAGSTR(pack_flag, FIELDFLAG_GEOM),
                       FLAGSTR(pack_flag, FIELDFLAG_BLOB),
9155
                       FLAGSTR(pack_flag, FIELDFLAG_DECIMAL),
9156
                       f_packtype(pack_flag)));
9157
  vcol_info= 0;
9158
  create_if_not_exists= FALSE;
9159
  stored_in_db= TRUE;
Sergei Golubchik's avatar
Sergei Golubchik committed
9160

9161
  DBUG_VOID_RETURN;
9162 9163 9164
}


9165 9166 9167 9168 9169 9170 9171 9172 9173 9174 9175 9176 9177 9178 9179 9180
/**
  Initialize field definition for create.

  @param thd                   Thread handle
  @param fld_name              Field name
  @param fld_type              Field type
  @param fld_length            Field length
  @param fld_decimals          Decimal (if any)
  @param fld_type_modifier     Additional type information
  @param fld_default_value     Field default value (if any)
  @param fld_on_update_value   The value of ON UPDATE clause
  @param fld_comment           Field comment
  @param fld_change            Field change
  @param fld_interval_list     Interval list (if any)
  @param fld_charset           Field charset
  @param fld_geom_type         Field geometry type (if any)
9181
  @param fld_vcol_info         Virtual column data
9182 9183

  @retval
9184
    FALSE on success
9185
  @retval
9186 9187 9188
    TRUE  on error
*/

unknown's avatar
unknown committed
9189
bool Create_field::init(THD *thd, char *fld_name, enum_field_types fld_type,
9190 9191 9192 9193
                        char *fld_length, char *fld_decimals,
                        uint fld_type_modifier, Item *fld_default_value,
                        Item *fld_on_update_value, LEX_STRING *fld_comment,
                        char *fld_change, List<String> *fld_interval_list,
9194
                        CHARSET_INFO *fld_charset, uint fld_geom_type,
9195
			Virtual_column_info *fld_vcol_info,
9196
                        engine_option_value *create_opt, bool check_exists)
9197 9198 9199
{
  uint sign_len, allowed_type_modifier= 0;
  ulong max_field_charlength= MAX_FIELD_CHARLENGTH;
9200 9201 9202
  const bool on_update_is_function=
    (fld_on_update_value != NULL &&
     fld_on_update_value->type() == Item::FUNC_ITEM);
9203

unknown's avatar
unknown committed
9204
  DBUG_ENTER("Create_field::init()");
9205

9206 9207 9208
  field= 0;
  field_name= fld_name;
  flags= fld_type_modifier;
9209
  option_list= create_opt;
9210 9211 9212

  if (fld_default_value != NULL && fld_default_value->type() == Item::FUNC_ITEM)
  {
9213
    /* There is a function default for insertions. */
9214
    def= NULL;
9215 9216 9217
    unireg_check= (on_update_is_function ?
                   Field::TIMESTAMP_DNUN_FIELD : // for insertions and for updates.
                   Field::TIMESTAMP_DN_FIELD);   // only for insertions.
9218 9219 9220 9221 9222 9223 9224 9225
  }
  else
  {
    /* No function default for insertions. Either NULL or a constant. */
    def= fld_default_value;
    if (on_update_is_function)
      unireg_check= Field::TIMESTAMP_UN_FIELD; // function default for updates
    else
9226 9227 9228
      unireg_check= ((fld_type_modifier & AUTO_INCREMENT_FLAG) != 0 ?
                     Field::NEXT_NUMBER : // Automatic increment.
                     Field::NONE);
9229 9230
  }

9231 9232 9233 9234
  decimals= fld_decimals ? (uint)atoi(fld_decimals) : 0;
  if (decimals >= NOT_FIXED_DEC)
  {
    my_error(ER_TOO_BIG_SCALE, MYF(0), decimals, fld_name,
9235
             static_cast<ulong>(NOT_FIXED_DEC - 1));
9236 9237 9238 9239 9240 9241 9242 9243 9244 9245 9246 9247 9248
    DBUG_RETURN(TRUE);
  }

  sql_type= fld_type;
  length= 0;
  change= fld_change;
  interval= 0;
  pack_length= key_length= 0;
  charset= fld_charset;
  geom_type= (Field::geometry_type) fld_geom_type;
  interval_list.empty();

  comment= *fld_comment;
Igor Babaev's avatar
Igor Babaev committed
9249
  vcol_info= fld_vcol_info;
9250
  create_if_not_exists= check_exists;
9251 9252 9253 9254 9255 9256 9257 9258 9259 9260 9261 9262 9263 9264 9265 9266 9267 9268 9269 9270 9271 9272 9273 9274 9275 9276
  stored_in_db= TRUE;

  /* Initialize data for a computed field */
  if ((uchar)fld_type == (uchar)MYSQL_TYPE_VIRTUAL)
  {
    DBUG_ASSERT(vcol_info && vcol_info->expr_item);
    stored_in_db= vcol_info->is_stored();
    /*
      Walk through the Item tree checking if all items are valid
      to be part of the virtual column
    */
    if (vcol_info->expr_item->walk(&Item::check_vcol_func_processor, 0, NULL))
    {
      my_error(ER_VIRTUAL_COLUMN_FUNCTION_IS_NOT_ALLOWED, MYF(0), field_name);
      DBUG_RETURN(TRUE);
    }

    /*
      Make a field created for the real type.
      Note that regular and computed fields differ from each other only by
      Field::vcol_info. It is is always NULL for a column that is not
      computed.
    */
    sql_type= fld_type= vcol_info->get_real_type();
  }

9277
  /*
9278 9279
    Set NO_DEFAULT_VALUE_FLAG if this field doesn't have a default value and
    it is NOT NULL, not an AUTO_INCREMENT field and not a TIMESTAMP.
9280 9281
  */
  if (!fld_default_value && !(fld_type_modifier & AUTO_INCREMENT_FLAG) &&
9282
      (fld_type_modifier & NOT_NULL_FLAG) && !is_timestamp_type(fld_type))
9283 9284
    flags|= NO_DEFAULT_VALUE_FLAG;

9285
  if (fld_length != NULL)
9286 9287 9288
  {
    errno= 0;
    length= strtoul(fld_length, NULL, 10);
9289
    if ((errno != 0) || (length > MAX_FIELD_BLOBLENGTH))
9290 9291 9292 9293 9294 9295
    {
      my_error(ER_TOO_BIG_DISPLAYWIDTH, MYF(0), fld_name, MAX_FIELD_BLOBLENGTH);
      DBUG_RETURN(TRUE);
    }

    if (length == 0)
9296
      fld_length= NULL; /* purecov: inspected */
9297 9298
  }

9299 9300 9301
  sign_len= fld_type_modifier & UNSIGNED_FLAG ? 0 : 1;

  switch (fld_type) {
9302
  case MYSQL_TYPE_TINY:
9303 9304 9305 9306
    if (!fld_length)
      length= MAX_TINYINT_WIDTH+sign_len;
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
    break;
9307
  case MYSQL_TYPE_SHORT:
9308 9309 9310 9311
    if (!fld_length)
      length= MAX_SMALLINT_WIDTH+sign_len;
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
    break;
9312
  case MYSQL_TYPE_INT24:
9313 9314 9315 9316
    if (!fld_length)
      length= MAX_MEDIUMINT_WIDTH+sign_len;
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
    break;
9317
  case MYSQL_TYPE_LONG:
9318 9319 9320 9321
    if (!fld_length)
      length= MAX_INT_WIDTH+sign_len;
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
    break;
9322
  case MYSQL_TYPE_LONGLONG:
9323 9324 9325 9326
    if (!fld_length)
      length= MAX_BIGINT_WIDTH;
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
    break;
9327
  case MYSQL_TYPE_NULL:
9328
    break;
9329
  case MYSQL_TYPE_NEWDECIMAL:
9330
    my_decimal_trim(&length, &decimals);
9331 9332
    if (length > DECIMAL_MAX_PRECISION)
    {
9333 9334
      my_error(ER_TOO_BIG_PRECISION, MYF(0), static_cast<int>(length),
               fld_name, static_cast<ulong>(DECIMAL_MAX_PRECISION));
9335 9336 9337 9338 9339 9340 9341 9342 9343 9344 9345 9346 9347 9348 9349 9350 9351 9352 9353 9354 9355 9356
      DBUG_RETURN(TRUE);
    }
    if (length < decimals)
    {
      my_error(ER_M_BIGGER_THAN_D, MYF(0), fld_name);
      DBUG_RETURN(TRUE);
    }
    length=
      my_decimal_precision_to_length(length, decimals,
                                     fld_type_modifier & UNSIGNED_FLAG);
    pack_length=
      my_decimal_get_binary_size(length, decimals);
    break;
  case MYSQL_TYPE_VARCHAR:
    /*
      Long VARCHAR's are automaticly converted to blobs in mysql_prepare_table
      if they don't have a default value
    */
    max_field_charlength= MAX_FIELD_VARCHARLENGTH;
    break;
  case MYSQL_TYPE_STRING:
    break;
9357 9358 9359 9360 9361
  case MYSQL_TYPE_BLOB:
  case MYSQL_TYPE_TINY_BLOB:
  case MYSQL_TYPE_LONG_BLOB:
  case MYSQL_TYPE_MEDIUM_BLOB:
  case MYSQL_TYPE_GEOMETRY:
9362 9363 9364 9365 9366
    if (fld_default_value)
    {
      /* Allow empty as default value. */
      String str,*res;
      res= fld_default_value->val_str(&str);
9367 9368 9369 9370
      /*
        A default other than '' is always an error, and any non-NULL
        specified default is an error in strict mode.
      */
9371
      if (res->length() || thd->is_strict_mode())
9372 9373 9374 9375 9376
      {
        my_error(ER_BLOB_CANT_HAVE_DEFAULT, MYF(0),
                 fld_name); /* purecov: inspected */
        DBUG_RETURN(TRUE);
      }
9377 9378 9379 9380 9381
      else
      {
        /*
          Otherwise a default of '' is just a warning.
        */
9382
        push_warning_printf(thd, Sql_condition::WARN_LEVEL_WARN,
9383 9384 9385 9386
                            ER_BLOB_CANT_HAVE_DEFAULT,
                            ER(ER_BLOB_CANT_HAVE_DEFAULT),
                            fld_name);
      }
9387 9388 9389 9390
      def= 0;
    }
    flags|= BLOB_FLAG;
    break;
9391
  case MYSQL_TYPE_YEAR:
9392 9393 9394 9395
    if (!fld_length || length != 2)
      length= 4; /* Default length */
    flags|= ZEROFILL_FLAG | UNSIGNED_FLAG;
    break;
9396
  case MYSQL_TYPE_FLOAT:
9397 9398 9399 9400 9401 9402 9403 9404 9405 9406 9407 9408
    /* change FLOAT(precision) to FLOAT or DOUBLE */
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
    if (fld_length && !fld_decimals)
    {
      uint tmp_length= length;
      if (tmp_length > PRECISION_FOR_DOUBLE)
      {
        my_error(ER_WRONG_FIELD_SPEC, MYF(0), fld_name);
        DBUG_RETURN(TRUE);
      }
      else if (tmp_length > PRECISION_FOR_FLOAT)
      {
9409
        sql_type= MYSQL_TYPE_DOUBLE;
9410
        length= MAX_DOUBLE_STR_LENGTH; 
9411 9412
      }
      else
9413
        length= MAX_FLOAT_STR_LENGTH; 
9414 9415 9416 9417 9418
      decimals= NOT_FIXED_DEC;
      break;
    }
    if (!fld_length && !fld_decimals)
    {
9419
      length=  MAX_FLOAT_STR_LENGTH;
9420 9421 9422 9423 9424 9425 9426 9427 9428
      decimals= NOT_FIXED_DEC;
    }
    if (length < decimals &&
        decimals != NOT_FIXED_DEC)
    {
      my_error(ER_M_BIGGER_THAN_D, MYF(0), fld_name);
      DBUG_RETURN(TRUE);
    }
    break;
9429
  case MYSQL_TYPE_DOUBLE:
9430 9431 9432 9433 9434 9435 9436 9437 9438 9439 9440 9441 9442
    allowed_type_modifier= AUTO_INCREMENT_FLAG;
    if (!fld_length && !fld_decimals)
    {
      length= DBL_DIG+7;
      decimals= NOT_FIXED_DEC;
    }
    if (length < decimals &&
        decimals != NOT_FIXED_DEC)
    {
      my_error(ER_M_BIGGER_THAN_D, MYF(0), fld_name);
      DBUG_RETURN(TRUE);
    }
    break;
9443
  case MYSQL_TYPE_TIMESTAMP:
9444
  case MYSQL_TYPE_TIMESTAMP2:
9445
    if (length > MAX_DATETIME_PRECISION)
9446
    {
9447 9448 9449
      my_error(ER_TOO_BIG_PRECISION, MYF(0), length, fld_name,
               MAX_DATETIME_PRECISION);
      DBUG_RETURN(TRUE);
9450
    }
9451 9452
    length+= MAX_DATETIME_WIDTH + (length ? 1 : 0);
    flags|= UNSIGNED_FLAG;
9453
    break;
9454
  case MYSQL_TYPE_DATE:
Michael Widenius's avatar
Michael Widenius committed
9455
    /* We don't support creation of MYSQL_TYPE_DATE anymore */
9456
    sql_type= MYSQL_TYPE_NEWDATE;
9457
    /* fall trough */
9458
  case MYSQL_TYPE_NEWDATE:
9459
    length= MAX_DATE_WIDTH;
9460
    break;
9461
  case MYSQL_TYPE_TIME:
9462
  case MYSQL_TYPE_TIME2:
9463 9464 9465 9466 9467 9468 9469
    if (length > MAX_DATETIME_PRECISION)
    {
      my_error(ER_TOO_BIG_PRECISION, MYF(0), length, fld_name,
               MAX_DATETIME_PRECISION);
      DBUG_RETURN(TRUE);
    }
    length+= MIN_TIME_WIDTH + (length ? 1 : 0);
9470
    break;
9471
  case MYSQL_TYPE_DATETIME:
9472
  case MYSQL_TYPE_DATETIME2:
9473 9474 9475 9476 9477 9478 9479
    if (length > MAX_DATETIME_PRECISION)
    {
      my_error(ER_TOO_BIG_PRECISION, MYF(0), length, fld_name,
               MAX_DATETIME_PRECISION);
      DBUG_RETURN(TRUE);
    }
    length+= MAX_DATETIME_WIDTH + (length ? 1 : 0);
9480
    break;
9481
  case MYSQL_TYPE_SET:
9482 9483 9484 9485 9486 9487 9488 9489 9490 9491 9492 9493 9494 9495 9496
    {
      pack_length= get_set_pack_length(fld_interval_list->elements);

      List_iterator<String> it(*fld_interval_list);
      String *tmp;
      while ((tmp= it++))
        interval_list.push_back(tmp);
      /*
        Set fake length to 1 to pass the below conditions.
        Real length will be set in mysql_prepare_table()
        when we know the character set of the column
      */
      length= 1;
      break;
    }
9497
  case MYSQL_TYPE_ENUM:
9498 9499 9500 9501 9502 9503 9504 9505
    {
      /* Should be safe. */
      pack_length= get_enum_pack_length(fld_interval_list->elements);

      List_iterator<String> it(*fld_interval_list);
      String *tmp;
      while ((tmp= it++))
        interval_list.push_back(tmp);
9506
      length= 1; /* See comment for MYSQL_TYPE_SET above. */
9507 9508 9509 9510 9511 9512 9513 9514 9515 9516 9517 9518
      break;
   }
  case MYSQL_TYPE_VAR_STRING:
    DBUG_ASSERT(0);  /* Impossible. */
    break;
  case MYSQL_TYPE_BIT:
    {
      if (!fld_length)
        length= 1;
      if (length > MAX_BIT_FIELD_LENGTH)
      {
        my_error(ER_TOO_BIG_DISPLAYWIDTH, MYF(0), fld_name,
9519
                 static_cast<ulong>(MAX_BIT_FIELD_LENGTH));
9520 9521 9522 9523 9524
        DBUG_RETURN(TRUE);
      }
      pack_length= (length + 7) / 8;
      break;
    }
9525
  case MYSQL_TYPE_DECIMAL:
9526
    DBUG_ASSERT(0); /* Was obsolete */
9527
 }
unknown's avatar
unknown committed
9528 9529
  /* Remember the value of length */
  char_length= length;
9530 9531

  if (!(flags & BLOB_FLAG) &&
9532 9533
      ((length > max_field_charlength && fld_type != MYSQL_TYPE_SET &&
        fld_type != MYSQL_TYPE_ENUM &&
9534
        (fld_type != MYSQL_TYPE_VARCHAR || fld_default_value)) ||
9535
       ((length == 0) &&
9536
        fld_type != MYSQL_TYPE_STRING &&
9537
        fld_type != MYSQL_TYPE_VARCHAR && fld_type != MYSQL_TYPE_GEOMETRY)))
9538 9539 9540 9541 9542 9543 9544 9545 9546 9547 9548 9549 9550 9551 9552 9553 9554 9555 9556 9557
  {
    my_error((fld_type == MYSQL_TYPE_VAR_STRING ||
              fld_type == MYSQL_TYPE_VARCHAR ||
              fld_type == MYSQL_TYPE_STRING) ?  ER_TOO_BIG_FIELDLENGTH :
                                                ER_TOO_BIG_DISPLAYWIDTH,
              MYF(0),
              fld_name, max_field_charlength); /* purecov: inspected */
    DBUG_RETURN(TRUE);
  }
  fld_type_modifier&= AUTO_INCREMENT_FLAG;
  if ((~allowed_type_modifier) & fld_type_modifier)
  {
    my_error(ER_WRONG_FIELD_SPEC, MYF(0), fld_name);
    DBUG_RETURN(TRUE);
  }

  DBUG_RETURN(FALSE); /* success */
}


9558 9559 9560 9561
enum_field_types get_blob_type_from_length(ulong length)
{
  enum_field_types type;
  if (length < 256)
9562
    type= MYSQL_TYPE_TINY_BLOB;
9563
  else if (length < 65536)
9564
    type= MYSQL_TYPE_BLOB;
9565
  else if (length < 256L*256L*256L)
9566
    type= MYSQL_TYPE_MEDIUM_BLOB;
9567
  else
9568
    type= MYSQL_TYPE_LONG_BLOB;
9569 9570 9571 9572
  return type;
}


unknown's avatar
unknown committed
9573
/*
unknown's avatar
unknown committed
9574
  Make a field from the .frm file info
unknown's avatar
unknown committed
9575 9576 9577 9578 9579
*/

uint32 calc_pack_length(enum_field_types type,uint32 length)
{
  switch (type) {
9580
  case MYSQL_TYPE_VAR_STRING:
9581
  case MYSQL_TYPE_STRING:
9582
  case MYSQL_TYPE_DECIMAL:     return (length);
9583
  case MYSQL_TYPE_VARCHAR:     return (length + (length < 256 ? 1: 2));
9584 9585 9586 9587
  case MYSQL_TYPE_YEAR:
  case MYSQL_TYPE_TINY	: return 1;
  case MYSQL_TYPE_SHORT : return 2;
  case MYSQL_TYPE_INT24:
9588 9589
  case MYSQL_TYPE_NEWDATE: return 3;
  case MYSQL_TYPE_TIME:   return length > MIN_TIME_WIDTH
9590
                            ? time_hires_bytes[length - 1 - MIN_TIME_WIDTH]
9591
                            : 3;
9592 9593 9594
  case MYSQL_TYPE_TIME2:
    return length > MIN_TIME_WIDTH ?
           my_time_binary_length(length - MIN_TIME_WIDTH - 1) : 3;
9595
  case MYSQL_TYPE_TIMESTAMP:
9596 9597 9598
                          return length > MAX_DATETIME_WIDTH
                            ? 4 + sec_part_bytes[length - 1 - MAX_DATETIME_WIDTH]
                            : 4;
9599 9600 9601
  case MYSQL_TYPE_TIMESTAMP2:
    return length > MAX_DATETIME_WIDTH ?
           my_timestamp_binary_length(length - MAX_DATETIME_WIDTH - 1) : 4;
9602 9603 9604 9605 9606
  case MYSQL_TYPE_DATE:
  case MYSQL_TYPE_LONG	: return 4;
  case MYSQL_TYPE_FLOAT : return sizeof(float);
  case MYSQL_TYPE_DOUBLE: return sizeof(double);
  case MYSQL_TYPE_DATETIME:
9607
                          return length > MAX_DATETIME_WIDTH
9608
                            ? datetime_hires_bytes[length - 1 - MAX_DATETIME_WIDTH]
9609
                            : 8;
9610 9611 9612
  case MYSQL_TYPE_DATETIME2:
    return length > MAX_DATETIME_WIDTH ?
           my_datetime_binary_length(length - MAX_DATETIME_WIDTH - 1) : 5;
9613 9614 9615 9616 9617 9618 9619 9620 9621 9622
  case MYSQL_TYPE_LONGLONG: return 8;	/* Don't crash if no longlong */
  case MYSQL_TYPE_NULL	: return 0;
  case MYSQL_TYPE_TINY_BLOB:	return 1+portable_sizeof_char_ptr;
  case MYSQL_TYPE_BLOB:		return 2+portable_sizeof_char_ptr;
  case MYSQL_TYPE_MEDIUM_BLOB:	return 3+portable_sizeof_char_ptr;
  case MYSQL_TYPE_LONG_BLOB:	return 4+portable_sizeof_char_ptr;
  case MYSQL_TYPE_GEOMETRY:	return 4+portable_sizeof_char_ptr;
  case MYSQL_TYPE_SET:
  case MYSQL_TYPE_ENUM:
  case MYSQL_TYPE_NEWDECIMAL:
9623
    abort(); return 0;                          // This shouldn't happen
9624
  case MYSQL_TYPE_BIT: return length / 8;
9625 9626
  default:
    return 0;
unknown's avatar
unknown committed
9627 9628 9629 9630 9631 9632 9633
  }
}


uint pack_length_to_packflag(uint type)
{
  switch (type) {
9634 9635 9636 9637 9638
    case 1: return f_settype((uint) MYSQL_TYPE_TINY);
    case 2: return f_settype((uint) MYSQL_TYPE_SHORT);
    case 3: return f_settype((uint) MYSQL_TYPE_INT24);
    case 4: return f_settype((uint) MYSQL_TYPE_LONG);
    case 8: return f_settype((uint) MYSQL_TYPE_LONGLONG);
unknown's avatar
unknown committed
9639 9640 9641 9642
  }
  return 0;					// This shouldn't happen
}

Sergei Golubchik's avatar
Sergei Golubchik committed
9643

9644
Field *make_field(TABLE_SHARE *share, uchar *ptr, uint32 field_length,
unknown's avatar
unknown committed
9645
		  uchar *null_pos, uchar null_bit,
unknown's avatar
unknown committed
9646
		  uint pack_flag,
9647
		  enum_field_types field_type,
9648
		  CHARSET_INFO *field_charset,
unknown's avatar
unknown committed
9649
		  Field::geometry_type geom_type,
unknown's avatar
unknown committed
9650 9651
		  Field::utype unireg_check,
		  TYPELIB *interval,
unknown's avatar
unknown committed
9652
		  const char *field_name)
unknown's avatar
unknown committed
9653
{
9654 9655
  uchar *UNINIT_VAR(bit_ptr);
  uchar UNINIT_VAR(bit_offset);
9656
  if (field_type == MYSQL_TYPE_BIT && !f_bit_as_char(pack_flag))
unknown's avatar
unknown committed
9657 9658 9659 9660 9661 9662 9663 9664 9665 9666
  {
    bit_ptr= null_pos;
    bit_offset= null_bit;
    if (f_maybe_null(pack_flag))         // if null field
    {
       bit_ptr+= (null_bit == 7);        // shift bit_ptr and bit_offset
       bit_offset= (bit_offset + 1) & 7;
    }
  }

unknown's avatar
unknown committed
9667 9668 9669 9670 9671
  if (!f_maybe_null(pack_flag))
  {
    null_pos=0;
    null_bit=0;
  }
unknown's avatar
unknown committed
9672 9673 9674 9675
  else
  {
    null_bit= ((uchar) 1) << null_bit;
  }
unknown's avatar
unknown committed
9676

9677 9678 9679 9680 9681 9682 9683 9684
  DBUG_PRINT("debug", ("field_type: %d, field_length: %u, interval: %p, pack_flag: %s%s%s%s%s",
                       field_type, field_length, interval,
                       FLAGSTR(pack_flag, FIELDFLAG_BINARY),
                       FLAGSTR(pack_flag, FIELDFLAG_INTERVAL),
                       FLAGSTR(pack_flag, FIELDFLAG_NUMBER),
                       FLAGSTR(pack_flag, FIELDFLAG_PACK),
                       FLAGSTR(pack_flag, FIELDFLAG_BLOB)));

unknown's avatar
unknown committed
9685 9686 9687
  if (f_is_alpha(pack_flag))
  {
    if (!f_is_packed(pack_flag))
unknown's avatar
unknown committed
9688
    {
9689
      if (field_type == MYSQL_TYPE_STRING ||
9690
          field_type == MYSQL_TYPE_DECIMAL ||   // 3.23 or 4.0 string
9691
          field_type == MYSQL_TYPE_VAR_STRING)
unknown's avatar
unknown committed
9692
        return new Field_string(ptr,field_length,null_pos,null_bit,
unknown's avatar
unknown committed
9693
                                unireg_check, field_name,
unknown's avatar
unknown committed
9694
                                field_charset);
9695
      if (field_type == MYSQL_TYPE_VARCHAR)
9696 9697 9698
        return new Field_varstring(ptr,field_length,
                                   HA_VARCHAR_PACKLENGTH(field_length),
                                   null_pos,null_bit,
unknown's avatar
unknown committed
9699 9700
                                   unireg_check, field_name,
                                   share,
9701
                                   field_charset);
unknown's avatar
unknown committed
9702 9703
      return 0;                                 // Error
    }
unknown's avatar
unknown committed
9704 9705 9706 9707 9708

    uint pack_length=calc_pack_length((enum_field_types)
				      f_packtype(pack_flag),
				      field_length);

unknown's avatar
unknown committed
9709
#ifdef HAVE_SPATIAL
unknown's avatar
unknown committed
9710
    if (f_is_geom(pack_flag))
9711 9712
    {
      status_var_increment(current_thd->status_var.feature_gis);
unknown's avatar
unknown committed
9713
      return new Field_geom(ptr,null_pos,null_bit,
unknown's avatar
unknown committed
9714
			    unireg_check, field_name, share,
unknown's avatar
unknown committed
9715
			    pack_length, geom_type);
9716
    }
unknown's avatar
unknown committed
9717
#endif
unknown's avatar
unknown committed
9718 9719
    if (f_is_blob(pack_flag))
      return new Field_blob(ptr,null_pos,null_bit,
unknown's avatar
unknown committed
9720
			    unireg_check, field_name, share,
unknown's avatar
unknown committed
9721
			    pack_length, field_charset);
unknown's avatar
unknown committed
9722 9723 9724 9725
    if (interval)
    {
      if (f_is_enum(pack_flag))
	return new Field_enum(ptr,field_length,null_pos,null_bit,
unknown's avatar
unknown committed
9726
				  unireg_check, field_name,
9727
				  pack_length, interval, field_charset);
unknown's avatar
unknown committed
9728 9729
      else
	return new Field_set(ptr,field_length,null_pos,null_bit,
unknown's avatar
unknown committed
9730
			     unireg_check, field_name,
9731
			     pack_length, interval, field_charset);
unknown's avatar
unknown committed
9732 9733 9734
    }
  }

9735
  switch (field_type) {
9736
  case MYSQL_TYPE_DECIMAL:
unknown's avatar
unknown committed
9737
    return new Field_decimal(ptr,field_length,null_pos,null_bit,
unknown's avatar
unknown committed
9738
			     unireg_check, field_name,
unknown's avatar
unknown committed
9739 9740 9741
			     f_decimals(pack_flag),
			     f_is_zerofill(pack_flag) != 0,
			     f_is_dec(pack_flag) == 0);
9742
  case MYSQL_TYPE_NEWDECIMAL:
unknown's avatar
unknown committed
9743
    return new Field_new_decimal(ptr,field_length,null_pos,null_bit,
unknown's avatar
unknown committed
9744
                                 unireg_check, field_name,
unknown's avatar
unknown committed
9745 9746 9747
                                 f_decimals(pack_flag),
                                 f_is_zerofill(pack_flag) != 0,
                                 f_is_dec(pack_flag) == 0);
9748
  case MYSQL_TYPE_FLOAT:
unknown's avatar
unknown committed
9749
    return new Field_float(ptr,field_length,null_pos,null_bit,
unknown's avatar
unknown committed
9750
			   unireg_check, field_name,
unknown's avatar
unknown committed
9751 9752 9753
			   f_decimals(pack_flag),
			   f_is_zerofill(pack_flag) != 0,
			   f_is_dec(pack_flag)== 0);
9754
  case MYSQL_TYPE_DOUBLE:
unknown's avatar
unknown committed
9755
    return new Field_double(ptr,field_length,null_pos,null_bit,
unknown's avatar
unknown committed
9756
			    unireg_check, field_name,
unknown's avatar
unknown committed
9757 9758 9759
			    f_decimals(pack_flag),
			    f_is_zerofill(pack_flag) != 0,
			    f_is_dec(pack_flag)== 0);
9760
  case MYSQL_TYPE_TINY:
unknown's avatar
unknown committed
9761
    return new Field_tiny(ptr,field_length,null_pos,null_bit,
unknown's avatar
unknown committed
9762
			  unireg_check, field_name,
unknown's avatar
unknown committed
9763 9764
			  f_is_zerofill(pack_flag) != 0,
			  f_is_dec(pack_flag) == 0);
9765
  case MYSQL_TYPE_SHORT:
unknown's avatar
unknown committed
9766
    return new Field_short(ptr,field_length,null_pos,null_bit,
unknown's avatar
unknown committed
9767
			   unireg_check, field_name,
unknown's avatar
unknown committed
9768 9769
			   f_is_zerofill(pack_flag) != 0,
			   f_is_dec(pack_flag) == 0);
9770
  case MYSQL_TYPE_INT24:
unknown's avatar
unknown committed
9771
    return new Field_medium(ptr,field_length,null_pos,null_bit,
unknown's avatar
unknown committed
9772
			    unireg_check, field_name,
unknown's avatar
unknown committed
9773 9774
			    f_is_zerofill(pack_flag) != 0,
			    f_is_dec(pack_flag) == 0);
9775
  case MYSQL_TYPE_LONG:
unknown's avatar
unknown committed
9776
    return new Field_long(ptr,field_length,null_pos,null_bit,
unknown's avatar
unknown committed
9777
			   unireg_check, field_name,
unknown's avatar
unknown committed
9778 9779
			   f_is_zerofill(pack_flag) != 0,
			   f_is_dec(pack_flag) == 0);
9780
  case MYSQL_TYPE_LONGLONG:
unknown's avatar
unknown committed
9781
    return new Field_longlong(ptr,field_length,null_pos,null_bit,
unknown's avatar
unknown committed
9782
			      unireg_check, field_name,
unknown's avatar
unknown committed
9783 9784
			      f_is_zerofill(pack_flag) != 0,
			      f_is_dec(pack_flag) == 0);
9785
  case MYSQL_TYPE_TIMESTAMP:
9786 9787 9788 9789
  {
    uint dec= field_length > MAX_DATETIME_WIDTH ?
                       field_length - MAX_DATETIME_WIDTH - 1: 0;
    return new_Field_timestamp(ptr, null_pos, null_bit, unireg_check,
9790 9791 9792 9793 9794 9795 9796 9797
                               field_name, share, dec);
  }
  case MYSQL_TYPE_TIMESTAMP2:
  {
    uint dec= field_length > MAX_DATETIME_WIDTH ?
                       field_length - MAX_DATETIME_WIDTH - 1: 0;
    return new Field_timestampf(ptr, null_pos, null_bit, unireg_check,
                                field_name, share, dec);
9798
  }
9799
  case MYSQL_TYPE_YEAR:
unknown's avatar
unknown committed
9800
    return new Field_year(ptr,field_length,null_pos,null_bit,
unknown's avatar
unknown committed
9801
			  unireg_check, field_name);
9802
  case MYSQL_TYPE_DATE:
unknown's avatar
unknown committed
9803
    return new Field_date(ptr,null_pos,null_bit,
9804
                          unireg_check, field_name);
9805
  case MYSQL_TYPE_NEWDATE:
unknown's avatar
unknown committed
9806
    return new Field_newdate(ptr,null_pos,null_bit,
9807
                             unireg_check, field_name);
9808
  case MYSQL_TYPE_TIME:
9809 9810 9811 9812
  {
    uint dec= field_length > MIN_TIME_WIDTH ?
                       field_length - MIN_TIME_WIDTH - 1: 0;
    return new_Field_time(ptr, null_pos, null_bit, unireg_check,
9813 9814 9815 9816 9817 9818 9819 9820
                          field_name, dec);
  }
  case MYSQL_TYPE_TIME2:
  {
    uint dec= field_length > MIN_TIME_WIDTH ?
                       field_length - MIN_TIME_WIDTH - 1: 0;
    return new Field_timef(ptr, null_pos, null_bit, unireg_check,
                           field_name, dec);
9821
  }
9822
  case MYSQL_TYPE_DATETIME:
9823 9824 9825 9826
  {
    uint dec= field_length > MAX_DATETIME_WIDTH ?
                       field_length - MAX_DATETIME_WIDTH - 1: 0;
    return new_Field_datetime(ptr, null_pos, null_bit, unireg_check,
9827 9828 9829 9830 9831 9832 9833 9834
                              field_name, dec);
  }
  case MYSQL_TYPE_DATETIME2:
  {
    uint dec= field_length > MAX_DATETIME_WIDTH ?
                       field_length - MAX_DATETIME_WIDTH - 1: 0;
    return new Field_datetimef(ptr, null_pos, null_bit, unireg_check,
                              field_name, dec);
9835
  }
9836
  case MYSQL_TYPE_NULL:
unknown's avatar
unknown committed
9837 9838
    return new Field_null(ptr, field_length, unireg_check, field_name,
                          field_charset);
9839
  case MYSQL_TYPE_BIT:
9840
    return f_bit_as_char(pack_flag) ?
9841
           new Field_bit_as_char(ptr, field_length, null_pos, null_bit,
9842
                                 unireg_check, field_name) :
9843
           new Field_bit(ptr, field_length, null_pos, null_bit, bit_ptr,
9844
                         bit_offset, unireg_check, field_name);
unknown's avatar
unknown committed
9845

9846 9847
  default:					// Impossible (Wrong version)
    break;
unknown's avatar
unknown committed
9848
  }
unknown's avatar
unknown committed
9849
  return 0;
unknown's avatar
unknown committed
9850 9851 9852
}


9853
/** Create a field suitable for create of table. */
unknown's avatar
unknown committed
9854

unknown's avatar
unknown committed
9855
Create_field::Create_field(Field *old_field,Field *orig_field)
unknown's avatar
unknown committed
9856 9857 9858 9859 9860 9861 9862
{
  field=      old_field;
  field_name=change=old_field->field_name;
  length=     old_field->field_length;
  flags=      old_field->flags;
  unireg_check=old_field->unireg_check;
  pack_length=old_field->pack_length();
9863
  key_length= old_field->key_length();
unknown's avatar
unknown committed
9864
  sql_type=   old_field->real_type();
unknown's avatar
unknown committed
9865 9866
  charset=    old_field->charset();		// May be NULL ptr
  comment=    old_field->comment;
9867
  decimals=   old_field->decimals();
9868
  vcol_info=  old_field->vcol_info;
9869
  create_if_not_exists= FALSE;
9870
  stored_in_db= old_field->stored_in_db;
9871 9872
  option_list= old_field->option_list;
  option_struct= old_field->option_struct;
unknown's avatar
unknown committed
9873

9874
  switch (sql_type) {
9875
  case MYSQL_TYPE_BLOB:
9876
    switch (pack_length - portable_sizeof_char_ptr) {
9877 9878 9879 9880
    case  1: sql_type= MYSQL_TYPE_TINY_BLOB; break;
    case  2: sql_type= MYSQL_TYPE_BLOB; break;
    case  3: sql_type= MYSQL_TYPE_MEDIUM_BLOB; break;
    default: sql_type= MYSQL_TYPE_LONG_BLOB; break;
9881
    }
9882
    length/= charset->mbmaxlen;
9883 9884
    key_length/= charset->mbmaxlen;
    break;
9885
  case MYSQL_TYPE_STRING:
unknown's avatar
unknown committed
9886
    /* Change CHAR -> VARCHAR if dynamic record length */
9887 9888 9889 9890 9891 9892 9893 9894
    if (old_field->type() == MYSQL_TYPE_VAR_STRING)
      sql_type= MYSQL_TYPE_VARCHAR;
    /* fall through */

  case MYSQL_TYPE_ENUM:
  case MYSQL_TYPE_SET:
  case MYSQL_TYPE_VARCHAR:
  case MYSQL_TYPE_VAR_STRING:
9895
    /* This is corrected in create_length_to_internal_length */
9896 9897 9898
    length= (length+charset->mbmaxlen-1) / charset->mbmaxlen;
    break;
#ifdef HAVE_SPATIAL
9899
  case MYSQL_TYPE_GEOMETRY:
9900 9901 9902
    geom_type= ((Field_geom*)old_field)->geom_type;
    break;
#endif
9903 9904 9905 9906
  case MYSQL_TYPE_YEAR:
    if (length != 4)
    {
      char buff[sizeof("YEAR()") + MY_INT64_NUM_DECIMAL_DIGITS + 1];
9907
      my_snprintf(buff, sizeof(buff), "YEAR(%lu)", length);
9908
      push_warning_printf(current_thd, Sql_condition::WARN_LEVEL_NOTE,
9909 9910 9911 9912 9913
                          ER_WARN_DEPRECATED_SYNTAX,
                          ER(ER_WARN_DEPRECATED_SYNTAX),
                          buff, "YEAR(4)");
    }
    break;
9914 9915
  default:
    break;
unknown's avatar
unknown committed
9916
  }
9917

unknown's avatar
unknown committed
9918 9919 9920 9921
  if (flags & (ENUM_FLAG | SET_FLAG))
    interval= ((Field_enum*) old_field)->typelib;
  else
    interval=0;
9922
  def=0;
9923
  char_length= length;
9924

9925
  /*
9926 9927 9928 9929 9930 9931 9932 9933 9934
    Copy the default (constant/function) from the column object orig_field, if
    supplied. We do this if all these conditions are met:

    - The column allows a default.

    - The column type is not a BLOB type.

    - The original column (old_field) was properly initialized with a record
      buffer pointer.
9935
  */
9936 9937 9938 9939 9940 9941
  if (!(flags & (NO_DEFAULT_VALUE_FLAG | BLOB_FLAG)) &&
      old_field->ptr != NULL &&
      orig_field != NULL)
  {
    bool default_now= false;
    if (real_type_with_now_as_default(sql_type))
9942
    {
9943 9944 9945 9946 9947 9948 9949 9950 9951 9952 9953 9954 9955 9956 9957 9958 9959 9960 9961 9962 9963 9964 9965 9966 9967 9968 9969 9970
      // The SQL type of the new field allows a function default:
      default_now= orig_field->has_insert_default_function();
      bool update_now= orig_field->has_update_default_function();

      if (default_now && update_now)
        unireg_check= Field::TIMESTAMP_DNUN_FIELD;
      else if (default_now)
        unireg_check= Field::TIMESTAMP_DN_FIELD;
      else if (update_now)
        unireg_check= Field::TIMESTAMP_UN_FIELD;
    }
    if (!default_now)                           // Give a constant default
    {
      char buff[MAX_FIELD_WIDTH];
      String tmp(buff,sizeof(buff), charset);

      /* Get the value from default_values */
      my_ptrdiff_t diff= orig_field->table->default_values_offset();
      orig_field->move_field_offset(diff);	// Points now at default_values
      if (!orig_field->is_real_null())
      {
        char buff[MAX_FIELD_WIDTH], *pos;
        String tmp(buff, sizeof(buff), charset), *res;
        res= orig_field->val_str(&tmp);
        pos= (char*) sql_strmake(res->ptr(), res->length());
        def= new Item_string(pos, res->length(), charset);
      }
      orig_field->move_field_offset(-diff);	// Back to record[0]
9971
    }
unknown's avatar
unknown committed
9972 9973
  }
}
9974 9975


9976 9977 9978 9979 9980 9981 9982 9983 9984 9985 9986 9987 9988 9989 9990 9991 9992 9993 9994 9995 9996 9997 9998 9999 10000 10001 10002 10003 10004 10005 10006 10007 10008
/**
  maximum possible character length for blob.
  
  This method is used in Item_field::set_field to calculate
  max_length for Item.
  
  For example:
    CREATE TABLE t2 SELECT CONCAT(tinyblob_utf8_column) FROM t1;
  must create a "VARCHAR(255) CHARACTER SET utf8" column.
  
  @return
    length
*/

uint32 Field_blob::char_length()
{
  switch (packlength)
  {
  case 1:
    return 255;
  case 2:
    return 65535;
  case 3:
    return 16777215;
  case 4:
    return (uint32) 4294967295U;
  default:
    DBUG_ASSERT(0); // we should never go here
    return 0;
  }
}


10009 10010 10011 10012 10013 10014 10015 10016 10017 10018 10019 10020 10021
/**
  Makes a clone of this object for ALTER/CREATE TABLE

  @param mem_root        MEM_ROOT where to clone the field
*/

Create_field *Create_field::clone(MEM_ROOT *mem_root) const
{
  Create_field *res= new (mem_root) Create_field(*this);
  return res;
}


10022 10023
/**
  maximum possible display length for blob.
10024

10025
  @return
10026 10027
    length
*/
10028 10029

uint32 Field_blob::max_display_length()
10030 10031 10032 10033
{
  switch (packlength)
  {
  case 1:
10034
    return 255 * field_charset->mbmaxlen;
10035
  case 2:
10036
    return 65535 * field_charset->mbmaxlen;
10037
  case 3:
10038
    return 16777215 * field_charset->mbmaxlen;
10039 10040 10041 10042 10043 10044 10045 10046 10047 10048 10049 10050
  case 4:
    return (uint32) 4294967295U;
  default:
    DBUG_ASSERT(0); // we should never go here
    return 0;
  }
}


/*****************************************************************************
 Warning handling
*****************************************************************************/
10051

10052
/**
10053
*  Produce warning or note about data saved into field.
10054

10055 10056
  @param level            - level of message (Note/Warning/Error)
  @param code             - error code of message to be produced
10057
  @param cut_increment    - whenever we should increase cut fields count
10058

10059
  @note
10060
    This function won't produce warning and increase cut fields counter
10061 10062 10063 10064
    if count_cuted_fields == CHECK_FIELD_IGNORE for current thread.

    if count_cuted_fields == CHECK_FIELD_IGNORE then we ignore notes.
    This allows us to avoid notes in optimisation, like convert_constant_item().
10065 10066 10067 10068 10069

  @retval
    1 if count_cuted_fields == CHECK_FIELD_IGNORE and error level is not NOTE
  @retval
    0 otherwise
10070
*/
10071

10072 10073 10074
bool 
Field::set_warning(Sql_condition::enum_warning_level level, uint code,
                   int cut_increment) const
10075
{
10076 10077 10078 10079 10080
  /*
    If this field was created only for type conversion purposes it
    will have table == NULL.
  */
  THD *thd= table ? table->in_use : current_thd;
unknown's avatar
unknown committed
10081 10082
  if (thd->count_cuted_fields)
  {
10083
    thd->cuted_fields+= cut_increment;
10084
    push_warning_printf(thd, level, code, ER(code), field_name,
10085 10086
                        thd->get_stmt_da()->current_row_for_warning());
    return 0;
10087
  }
10088
  return level >= Sql_condition::WARN_LEVEL_WARN;
10089 10090 10091
}


10092 10093 10094 10095 10096 10097 10098 10099 10100 10101 10102 10103
/**
  Produce warning or note about datetime string data saved into field.

  @param level            level of message (Note/Warning/Error)
  @param code             error code of message to be produced
  @param str              string value which we tried to save
  @param ts_type          type of datetime value (datetime/date/time)
  @param cuted_increment  whenever we should increase cut fields count or not

  @note
    This function will always produce some warning but won't increase cut
    fields counter if count_cuted_fields ==FIELD_CHECK_IGNORE for current
10104 10105
    thread.

10106
    See also bug#2336
10107

10108
*/
10109

10110
void Field::set_datetime_warning(Sql_condition::enum_warning_level level,
Sergei Golubchik's avatar
Sergei Golubchik committed
10111
                                 uint code, const ErrConv *str,
10112
                                 timestamp_type ts_type, int cuted_increment)
10113
{
10114
  THD *thd= get_thd();
10115
  if (thd->really_abort_on_warning() && level >= Sql_condition::WARN_LEVEL_WARN)
10116
    make_truncated_value_warning(thd, level, str, ts_type, field_name);
10117 10118
  else
    set_warning(level, code, cuted_increment);
10119 10120 10121
}


10122 10123 10124 10125 10126 10127 10128 10129 10130 10131 10132 10133 10134 10135
/*
  @brief
  Return possible keys for a field

  @details
  Return bit map of keys over this field which can be used by the range
  optimizer. For a field of a generic table such keys are all keys that starts
  from this field. For a field of a materialized derived table/view such keys
  are all keys in which this field takes a part. This is less restrictive as
  keys for a materialized derived table/view are generated on the fly from
  present fields, thus the case when a field for the beginning of a key is
  absent is impossible.

  @return map of possible keys
10136
*/
10137

10138
key_map Field::get_possible_keys()
10139
{
10140 10141 10142
  DBUG_ASSERT(table->pos_in_table_list);
  return (table->pos_in_table_list->is_materialized_derived() ?
          part_of_key : key_start);
10143
}
10144 10145


10146 10147 10148 10149 10150 10151 10152 10153 10154 10155 10156 10157 10158 10159 10160 10161 10162
/**
  Mark the field as having an explicit default value.

  @param value  if available, the value that the field is being set to

  @note
    Fields that have an explicit default value should not be updated
    automatically via the DEFAULT or ON UPDATE functions. The functions
    that deal with data change functionality (INSERT/UPDATE/LOAD),
    determine if there is an explicit value for each field before performing
    the data change, and call this method to mark the field.

    If the 'value' parameter is NULL, then the field is marked unconditionally
    as having an explicit value. If 'value' is not NULL, then it can be further
    analyzed to check if it really should count as a value.
*/

10163 10164
void Field::set_explicit_default(Item *value)
{
10165
  if (value->type() == Item::DEFAULT_VALUE_ITEM &&
10166 10167
      !((Item_default_value*)value)->arg)
    return;
10168
  set_has_explicit_value();
10169
}