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
|
/* $Id$
*
* Copyright (C) 2008-2009 FAUmachine Team <info@faumachine.org>.
* This program is free software. You can redistribute it and/or modify it
* under the terms of the GNU General Public License, either version 2 of
* the License, or (at your option) any later version. See COPYING.
*/
#include "frontend/ast/ConstInteger.hpp"
#include "frontend/ast/SimpleName.hpp"
#include "frontend/ast/PhysicalTypeUnit.hpp"
#include "frontend/misc/Symbol.hpp"
#include "frontend/reporting/SyntaxError.hpp"
#include "util/MiscUtil.hpp"
namespace ast {
ConstInteger::ConstInteger(
universal_integer val,
Name* unit,
Location loc
) : Expression(BASE_TYPE_INTEGER, loc),
physUnit(unit),
value(ConstInteger::makeValue(unit, val)) {}
ConstInteger::ConstInteger(
universal_real val,
Name* unit,
Location loc
) : Expression(BASE_TYPE_INTEGER, loc),
physUnit(unit),
value(ConstInteger::makeValue(unit, val)) {}
template<typename T>
universal_integer
ConstInteger::makeValue(Name *unit, T numericValue) {
assert(unit != NULL);
if (unit->candidates.size() != 1) {
std::string msg = util::MiscUtil::toString(unit->location);
msg += " Not a physical literal: <";
msg += util::MiscUtil::toString(unit);
msg += ">";
throw yy::SyntaxError(msg);
}
Symbol *sym = unit->candidates.front();
// FIXME? must this really be a simple name (expanded names are
// stored as SimpleName as well!).
const SimpleName *sn = dynamic_cast<const SimpleName*>(unit);
if ((sym->type != SYMBOL_UNIT) || (sn == NULL)) {
std::string msg = util::MiscUtil::toString(unit->location);
msg += " Not a physical literal: <";
msg += util::MiscUtil::toString(unit);
msg += ">";
throw yy::SyntaxError(msg);
}
const PhysicalTypeUnit *pu =
dynamic_cast<const PhysicalTypeUnit*>(&sym->declaration);
assert(pu != NULL);
return static_cast<universal_integer>(
static_cast<universal_real>(pu->factor) *
static_cast<universal_real>(numericValue));
}
}; /* namespace ast */
|
