158 lines
4.0 KiB
C++
158 lines
4.0 KiB
C++
/*
|
|
----
|
|
This file is part of SECONDO.
|
|
|
|
Copyright (C) 2015,
|
|
Faculty of Mathematics and 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
|
|
----
|
|
|
|
|
|
//[$][\$]
|
|
|
|
|
|
|
|
1 Implementation of the secondo operator getBoundaryIndex
|
|
|
|
*/
|
|
//#define DRELDEBUG
|
|
|
|
#include <iostream>
|
|
|
|
#include "NestedList.h"
|
|
#include "ListUtils.h"
|
|
#include "QueryProcessor.h"
|
|
#include "StandardTypes.h"
|
|
#include "Stream.h"
|
|
|
|
#include "Algebras/FText/FTextAlgebra.h"
|
|
|
|
#include "Algebras/Distributed2/CommandLogger.h"
|
|
#include "Algebras/Distributed2/Distributed2Algebra.h"
|
|
#include "Algebras/Spatial/SpatialAlgebra.h"
|
|
#include "Algebras/Collection/CollectionAlgebra.h"
|
|
|
|
#include "DRelHelpers.h"
|
|
|
|
extern NestedList* nl;
|
|
extern QueryProcessor* qp;
|
|
|
|
namespace drel {
|
|
|
|
/*
|
|
1.1 Type Mapping
|
|
|
|
Except a boundary and an attribute with the same type as the bounary.
|
|
|
|
*/
|
|
ListExpr getBoundaryIndexTM( ListExpr args ) {
|
|
|
|
#ifdef DRELDEBUG
|
|
cout << "getBoundaryIndexTM" << endl;
|
|
cout << nl->ToString( args ) << endl;
|
|
#endif
|
|
|
|
std::string err = "vector(t), attr expected";
|
|
|
|
if( ! nl->HasLength( args, 2 ) ) {
|
|
return listutils::typeError( err +
|
|
": two arguments are expected" );
|
|
}
|
|
|
|
ListExpr arg1 = nl->First( args );
|
|
ListExpr arg2 = nl->Second( args );
|
|
|
|
if( ! nl->HasLength( arg1, 2 ) ) {
|
|
return listutils::typeError( err +
|
|
": first arguments is not a vector" );
|
|
}
|
|
|
|
ListExpr errorInfo;
|
|
if( !collection::Collection::KindCheck( arg1, errorInfo )
|
|
&& !Vector::checkType( nl->First( arg1 ) ) ) {
|
|
return listutils::typeError( err +
|
|
": first arguments is not a vector" );
|
|
}
|
|
|
|
if( !nl->IsAtom( arg2 )
|
|
|| nl->AtomType( arg2 ) != SymbolType ) {
|
|
return listutils::typeError( err +
|
|
": second arguments is not an attribute" );
|
|
}
|
|
|
|
if( !nl->Equal( nl->Second( arg1 ), arg2 ) ) {
|
|
return listutils::typeError( err +
|
|
": the attribute type does not fit to the vector type" );
|
|
}
|
|
|
|
return listutils::basicSymbol<CcInt>( );
|
|
}
|
|
|
|
/*
|
|
1.2 Value Mapping
|
|
|
|
Get for an attribute the indexnumber within a boundary type.
|
|
|
|
*/
|
|
int getBoundaryIndexVM( Word* args, Word& result, int message,
|
|
Word& local, Supplier s ) {
|
|
|
|
collection::Collection* vector =
|
|
static_cast<collection::Collection*>( args[ 0 ].addr );
|
|
Attribute* attr = static_cast<Attribute*>( args[ 1 ].addr );
|
|
|
|
result = qp->ResultStorage( s );
|
|
CcInt* res = ( CcInt* )result.addr;
|
|
|
|
if( !vector->IsDefined( ) ) {
|
|
res->SetDefined( false );
|
|
return 0;
|
|
}
|
|
|
|
int index = DRelHelpers::getIndex( vector, attr );
|
|
|
|
res->Set( true, index );
|
|
|
|
return 0;
|
|
}
|
|
|
|
/*
|
|
1.3 Specification of getboundaryindex
|
|
|
|
*/
|
|
OperatorSpec getBoundaryIndex(
|
|
" vector(X) x X , X in DATA -> int",
|
|
" getboundaryindex(_,_)",
|
|
"Returns the indexnumber within a "
|
|
"boundary vector for a value. The boundary is a sorted vector.",
|
|
"query getboundaryindex(boundary, 60000)"
|
|
);
|
|
|
|
/*
|
|
1.4 Operator instance of getboundaryindex operator
|
|
|
|
*/
|
|
Operator getBoundaryIndexOp(
|
|
"getboundaryindex",
|
|
getBoundaryIndex.getStr( ),
|
|
getBoundaryIndexVM,
|
|
Operator::SimpleSelect,
|
|
getBoundaryIndexTM
|
|
);
|
|
|
|
} // end of namespace drel
|