157 lines
4.3 KiB
C++
157 lines
4.3 KiB
C++
/*
|
|
This file is part of SECONDO.
|
|
|
|
Copyright (C) 2011, University in Hagen, Department of Computer Science,
|
|
Database Systems for New Applications.
|
|
|
|
SECONDO 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.
|
|
|
|
SECONDO 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 SECONDO; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
*/
|
|
|
|
#include <sstream>
|
|
|
|
#include "atrange.h"
|
|
#include "../sint.h"
|
|
#include "../msint.h"
|
|
#include "../sreal.h"
|
|
#include "../msreal.h"
|
|
#include "../sbool.h"
|
|
#include "../msbool.h"
|
|
#include "../sstring.h"
|
|
#include "../msstring.h"
|
|
#include "../util/parse_error.h"
|
|
|
|
using namespace std;
|
|
|
|
namespace raster2
|
|
{
|
|
ValueMapping atrangeFuns[] =
|
|
{
|
|
atrangeFun<int, stype_helper<int> >,
|
|
atrangeFun<double, stype_helper<double> >,
|
|
atrangeFun<char, sbool_helper>,
|
|
atrangeFun<string, stype_helper<string> >,
|
|
atrangeMFun<msint>,
|
|
atrangeMFun<msreal>,
|
|
atrangeMFun<msbool>,
|
|
atrangeMFun<msstring>,
|
|
0
|
|
};
|
|
|
|
int atrangeSelectFun(ListExpr args)
|
|
{
|
|
NList type(args);
|
|
|
|
// The selection function should not have been called if the second
|
|
// argument does not meet the criteria in the type mapping
|
|
assert(type.second().isSymbol(Rect::BasicType()));
|
|
|
|
if(type.first().isSymbol(sint::BasicType()))
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
else if(type.first().isSymbol(sreal::BasicType()))
|
|
{
|
|
return 1;
|
|
}
|
|
|
|
else if(type.first().isSymbol(sbool::BasicType()))
|
|
{
|
|
return 2;
|
|
}
|
|
|
|
else if(type.first().isSymbol(sstring::BasicType()))
|
|
{
|
|
return 3;
|
|
}
|
|
|
|
else if(type.first().isSymbol(msint::BasicType()))
|
|
{
|
|
return 4;
|
|
}
|
|
|
|
else if (type.first().isSymbol(msreal::BasicType()))
|
|
{
|
|
return 5;
|
|
}
|
|
|
|
else if (type.first().isSymbol(msbool::BasicType()))
|
|
{
|
|
return 6;
|
|
}
|
|
|
|
else if (type.first().isSymbol(msstring::BasicType()))
|
|
{
|
|
return 7;
|
|
}
|
|
|
|
return 8;
|
|
}
|
|
|
|
ListExpr atrangeTypeMap(ListExpr args)
|
|
{
|
|
NList nlist(args);
|
|
|
|
std::ostringstream error;
|
|
|
|
try {
|
|
if ((nlist.length() != 4) && (nlist.length() != 2)) {
|
|
error << "Expected 2 or 4 arguments, got " << nlist.length() << ".";
|
|
throw util::parse_error(error.str());
|
|
}
|
|
if (nlist.second() != NList(Rect::BasicType())) {
|
|
error << "Expected " << Rect::BasicType()
|
|
<< " as argument 2, got " << nlist.second().str()
|
|
<< ".";
|
|
throw util::parse_error(error.str());
|
|
}
|
|
if (nlist.length() == 4) {
|
|
if (nlist.third() != NList(Instant::BasicType())) {
|
|
error << "Expected " << Instant::BasicType()
|
|
<< " as argument 3, got " << nlist.third().str()
|
|
<< ".";
|
|
throw util::parse_error(error.str());
|
|
}
|
|
if (nlist.fourth() != NList(Instant::BasicType())) {
|
|
error << "Expected " << Instant::BasicType()
|
|
<< " as argument 4, got " << nlist.fourth().str()
|
|
<< ".";
|
|
throw util::parse_error(error.str());
|
|
}
|
|
}
|
|
|
|
if( nlist.first() != NList(sint::BasicType()) &&
|
|
nlist.first() != NList(sreal::BasicType()) &&
|
|
nlist.first() != NList(sbool::BasicType()) &&
|
|
nlist.first() != NList(sstring::BasicType()) &&
|
|
nlist.first() != NList(msint::BasicType()) &&
|
|
nlist.first() != NList(msreal::BasicType()) &&
|
|
nlist.first() != NList(msbool::BasicType()) &&
|
|
nlist.first() != NList(msstring::BasicType()) )
|
|
{
|
|
error << "Expected sType or msType as argument 1, "
|
|
"got " << nlist.first().str() << ".";
|
|
throw util::parse_error(error.str());
|
|
}
|
|
}
|
|
catch (util::parse_error& e) {
|
|
return NList::typeError(e.what());
|
|
}
|
|
|
|
return nlist.first().listExpr();
|
|
}
|
|
}
|