1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
#include <limits>
#include "mpOprtPostfixCommon.h"
MUP_NAMESPACE_START
//-----------------------------------------------------------
//
// class OprtFact
//
//-----------------------------------------------------------
OprtFact::OprtFact()
:IOprtPostfix(_T("!"))
{}
//-----------------------------------------------------------
void OprtFact::Eval(ptr_val_type& ret, const ptr_val_type *arg, int)
{
if (!arg[0]->IsInteger())
throw ParserError(ErrorContext(ecTYPE_CONFLICT_FUN, GetExprPos(), GetIdent(), arg[0]->GetType(), 'i', 1));
int_type input = arg[0]->GetInteger();
float_type input_long = float_type(input);
if (input < 0) {
throw ParserError(ErrorContext(ecDOMAIN_ERROR, GetExprPos(),
GetIdent()));
}
float_type result = 1;
for (float_type i = 1.0; i <= input_long; i += 1.0)
{
result *= i;
// <ibg 20130225/> Only throw exceptions if IEEE 754 is not supported. The
// Prefered way of dealing with overflows is relying on:
//
// http://en.wikipedia.org/wiki/IEEE_754-1985
//
// If the compiler does not support IEEE 754, chances are
// you are running on a pretty fucked up system.
//
if ( !std::numeric_limits<float_type>::is_iec559 &&
(result>std::numeric_limits<float_type>::max() || result < 1.0) )
{
throw ParserError(ErrorContext(ecOVERFLOW, GetExprPos(), GetIdent()));
}
// </ibg>
}
*ret = result;
}
//-----------------------------------------------------------
const char_type* OprtFact::GetDesc() const
{
return _T("x! - Returns factorial of a non-negative integer.");
}
//-----------------------------------------------------------
IToken* OprtFact::Clone() const
{
return new OprtFact(*this);
}
//-----------------------------------------------------------
//
// class OprtPercentage
//
//-----------------------------------------------------------
OprtPercentage::OprtPercentage()
:IOprtPostfix(_T("%"))
{}
//-----------------------------------------------------------
void OprtPercentage::Eval(ptr_val_type& ret, const ptr_val_type *arg, int)
{
switch (arg[0]->GetType()) {
case 'i':
case 'f': {
float_type input = arg[0]->GetFloat();
*ret = input / 100.0;
break;
}
default:
throw ParserError(ErrorContext(ecTYPE_CONFLICT_FUN, GetExprPos(), GetIdent(), arg[0]->GetType(), 'f', 1));
break;
}
}
//-----------------------------------------------------------
const char_type* OprtPercentage::GetDesc() const
{
return _T("x% - Returns percentage of integer/float.");
}
//-----------------------------------------------------------
IToken* OprtPercentage::Clone() const
{
return new OprtPercentage(*this);
}
}
|
