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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
/* This file was part of the SpeedCrunch project
Copyright (C) 2004 Ariya Hidayat <[email protected]>
And is now part of abakus.
Copyright (c) 2005 Michael Pyne <[email protected]>
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 the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
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.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*/
#ifndef ABAKUS_EVALUATOR_H
#define ABAKUS_EVALUATOR_H
#include <tqstring.h>
#include <tqvaluevector.h>
#include "numerictypes.h"
class Token
{
public:
typedef enum
{
Unknown,
Number,
Operator,
Identifier
} Type;
typedef enum
{
InvalidOp = 0,
Plus, // + (addition)
Minus, // - (substraction, negation)
Asterisk, // * (multiplication)
Slash, // / (division)
Caret, // ^ (power) or **.
LeftPar, // (
RightPar, // )
Comma, // argument separator
Percent,
Equal // variable assignment
} Op;
Token( Type type = Unknown, const TQString& text = TQString(), int pos = -1 );
Token( const Token& );
Token& operator=( const Token& );
Type type() const { return m_type; }
TQString text() const { return m_text; }
int pos() const { return m_pos; };
bool isNumber() const { return m_type == Number; }
bool isOperator() const { return m_type == Operator; }
bool isIdentifier() const { return m_type == Identifier; }
Abakus::number_t asNumber() const;
Op asOperator() const;
TQString description() const;
static const Token null;
protected:
Type m_type;
TQString m_text;
int m_pos;
};
class Tokens: public TQValueVector<Token>
{
public:
Tokens(): TQValueVector<Token>(), m_valid(true) {};
bool valid() const { return m_valid; }
void setValid( bool v ) { m_valid = v; }
protected:
bool m_valid;
};
class Variable
{
public:
TQString name;
Abakus::number_t value;
};
class Evaluator
{
public:
Evaluator();
~Evaluator();
void setExpression( const TQString& expr );
TQString expression() const;
void clear();
bool isValid() const;
Tokens tokens() const;
static Tokens scan( const TQString& expr );
TQString error() const;
// Abakus::number_t eval();
static TQString autoFix( const TQString& expr );
private:
Evaluator( const Evaluator& );
Evaluator& operator=( const Evaluator& );
};
#endif // EVALUATOR
// vim: set et ts=8 sw=4:
|
