1
1
/* -*- mode: c++; c-basic-offset: 2; indent-tabs-mode: nil; -*-
2
2
* vim:expandtab:shiftwidth=2:tabstop=2:smarttab:
4
* Copyright (C) 2008 Sun Microsystems, Inc.
4
* Copyright (C) 2008 Sun Microsystems
6
6
* This program is free software; you can redistribute it and/or modify
7
7
* it under the terms of the GNU General Public License as published by
17
17
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
20
#include <drizzled/server_includes.h>
22
25
#include <drizzled/function/numhybrid.h>
28
#if defined(CMATH_NAMESPACE)
29
using namespace CMATH_NAMESPACE;
27
32
void Item_func_numhybrid::fix_num_length_and_dec()
38
43
assert(fixed == 1);
39
44
switch (hybrid_type) {
40
45
case DECIMAL_RESULT:
42
type::Decimal decimal_value, *val;
43
if (!(val= decimal_op(&decimal_value)))
44
return 0; // null is set
45
class_decimal_round(E_DEC_FATAL_ERROR, val, decimals, false, val);
46
class_decimal2string(val, 0, str);
47
my_decimal decimal_value, *val;
48
if (!(val= decimal_op(&decimal_value)))
49
return 0; // null is set
50
my_decimal_round(E_DEC_FATAL_ERROR, val, decimals, false, val);
51
my_decimal2string(E_DEC_FATAL_ERROR, val, 0, 0, 0, str);
54
str->set_int(nr, unsigned_flag, &my_charset_bin);
58
return 0; /* purecov: inspected */
59
str->set_int(nr, unsigned_flag, &my_charset_bin);
62
str->set_real(nr,decimals,&my_charset_bin);
66
return 0; /* purecov: inspected */
67
str->set_real(nr,decimals,&my_charset_bin);
65
70
case STRING_RESULT:
66
71
return str_op(&str_value);
76
81
assert(fixed == 1);
77
82
switch (hybrid_type) {
78
83
case DECIMAL_RESULT:
80
type::Decimal decimal_value, *val;
82
if (!(val= decimal_op(&decimal_value)))
83
return 0.0; // null is set
84
class_decimal2double(E_DEC_FATAL_ERROR, val, &result);
85
my_decimal decimal_value, *val;
87
if (!(val= decimal_op(&decimal_value)))
88
return 0.0; // null is set
89
my_decimal2double(E_DEC_FATAL_ERROR, val, &result);
89
int64_t result= int_op();
90
return unsigned_flag ? (double) ((uint64_t) result) : (double) result;
94
int64_t result= int_op();
95
return unsigned_flag ? (double) ((uint64_t) result) : (double) result;
94
99
case STRING_RESULT:
98
String *res= str_op(&str_value);
99
return (res ? my_strntod(res->charset(), (char*) res->ptr(), res->length(),
100
&end_not_used, &err_not_used) : 0.0);
103
String *res= str_op(&str_value);
104
return (res ? my_strntod(res->charset(), (char*) res->ptr(), res->length(),
105
&end_not_used, &err_not_used) : 0.0);
112
116
assert(fixed == 1);
113
117
switch (hybrid_type) {
114
118
case DECIMAL_RESULT:
116
type::Decimal decimal_value, *val;
117
if (!(val= decimal_op(&decimal_value)))
118
return 0; // null is set
120
val->val_int32(E_DEC_FATAL_ERROR, unsigned_flag, &result);
120
my_decimal decimal_value, *val;
121
if (!(val= decimal_op(&decimal_value)))
122
return 0; // null is set
124
my_decimal2int(E_DEC_FATAL_ERROR, val, unsigned_flag, &result);
125
129
case REAL_RESULT:
126
130
return (int64_t) rint(real_op());
127
131
case STRING_RESULT:
131
if (!(res= str_op(&str_value)))
135
if (!(res= str_op(&str_value)))
134
char *end= (char*) res->ptr() + res->length();
135
const CHARSET_INFO * const cs= str_value.charset();
136
return (*(cs->cset->strtoll10))(cs, res->ptr(), &end, &err_not_used);
138
char *end= (char*) res->ptr() + res->length();
139
const CHARSET_INFO * const cs= str_value.charset();
140
return (*(cs->cset->strtoll10))(cs, res->ptr(), &end, &err_not_used);
145
type::Decimal *Item_func_numhybrid::val_decimal(type::Decimal *decimal_value)
149
my_decimal *Item_func_numhybrid::val_decimal(my_decimal *decimal_value)
147
type::Decimal *val= decimal_value;
151
my_decimal *val= decimal_value;
148
152
assert(fixed == 1);
150
153
switch (hybrid_type) {
151
154
case DECIMAL_RESULT:
152
155
val= decimal_op(decimal_value);
156
int64_t result= int_op();
157
int2_class_decimal(E_DEC_FATAL_ERROR, result, unsigned_flag, decimal_value);
159
int64_t result= int_op();
160
int2my_decimal(E_DEC_FATAL_ERROR, result, unsigned_flag, decimal_value);
160
163
case REAL_RESULT:
162
double result= (double)real_op();
163
double2_class_decimal(E_DEC_FATAL_ERROR, result, decimal_value);
165
double result= (double)real_op();
166
double2my_decimal(E_DEC_FATAL_ERROR, result, decimal_value);
166
169
case STRING_RESULT:
169
if (!(res= str_op(&str_value)))
172
if (!(res= str_op(&str_value)))
172
decimal_value->store(E_DEC_FATAL_ERROR, (char*) res->ptr(),
173
res->length(), res->charset());
175
str2my_decimal(E_DEC_FATAL_ERROR, (char*) res->ptr(),
176
res->length(), res->charset(), decimal_value);
183
} /* namespace drizzled */