stepan
/
preprocessor
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

macroprocessor: introduce Cartesion product. #5

issue#70
Houtan Bastani 2018-08-08 14:52:38 +02:00
parent e24cabe3a5
commit d9c0568075
2 changed files with 63 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
src/macro/MacroValue.cc
View File

@ -428,6 +428,67 @@ ArrayMV::minus(const MacroValuePtr &mv) noexcept(false)
return make_shared<ArrayMV>(new_values);
}
MacroValuePtr
ArrayMV::times(const MacroValuePtr &mv) noexcept(false)
{
auto mv2 = dynamic_pointer_cast<ArrayMV>(mv);
if (!mv2)
throw TypeError("Type mismatch for operands of * operator");
vector<MacroValuePtr> new_values;
for (auto &itl : values)
for (auto &itr : mv2->values)
{
vector<MacroValuePtr> new_tuple;
auto lmvi = dynamic_pointer_cast<IntMV>(itl);
if (lmvi)
new_tuple.push_back(lmvi);
else
{
auto lmvs = dynamic_pointer_cast<StringMV>(itl);
if (lmvs)
new_tuple.push_back(lmvs);
else
{
auto lmvt = dynamic_pointer_cast<TupleMV>(itl);
if (lmvt)
new_tuple = lmvt->values;
else
{
cerr << "ArrayMV::times: unsupported type on lhs" << endl;
exit(EXIT_FAILURE);
}
}
}
auto rmvi = dynamic_pointer_cast<IntMV>(itr);
if (rmvi)
new_tuple.push_back(rmvi);
else
{
auto rmvs = dynamic_pointer_cast<StringMV>(itr);
if (rmvs)
new_tuple.push_back(rmvs);
else
{
auto rmvt = dynamic_pointer_cast<TupleMV>(itr);
if (rmvt)
for (auto &tit : rmvt->values)
new_tuple.push_back(tit);
else
{
cerr << "ArrayMV::times: unsupported type on rhs" << endl;
exit(EXIT_FAILURE);
}
}
}
new_values.push_back(make_shared<TupleMV>(new_tuple));
}
return make_shared<ArrayMV>(new_values);
}
shared_ptr<IntMV>
ArrayMV::is_equal(const MacroValuePtr &mv)
{

2
src/macro/MacroValue.hh
View File

@ -216,6 +216,8 @@ public:
static shared_ptr<ArrayMV> range(const MacroValuePtr &mv1, const MacroValuePtr &mv2) noexcept(false);
shared_ptr<ArrayMV> set_union(const MacroValuePtr &mvp) noexcept(false) override;
shared_ptr<ArrayMV> set_intersection(const MacroValuePtr &mvp) noexcept(false) override;
// Computes the Cartesian product of two sets
MacroValuePtr times(const MacroValuePtr &mv) noexcept(false) override;
};
//! Represents a tuple value in macro language