Update of /cvsroot/objecthandler/ObjectHandler/ohxl
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv10361/ohxl
Modified Files:
Makefile.am
Added Files:
loop.hpp
Log Message:
- transfer from QLXL to OHXL the infrastructure for looping behavior
- supplement ohThing() with additional member functions for testing loops
--- NEW FILE: loop.hpp ---
/*
Copyright (C) 2006, 2007 Eric Ehlers
This file is part of QuantLib, a free-software/open-source library
for financial quantitative analysts and developers - http://quantlib.org/
QuantLib is free software: you can redistribute it and/or modify it under the
terms of the QuantLib license. You should have received a copy of the
license along with this program; if not, please email qua...@li...
The license is also available online at http://quantlib.org/html/license.html
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 license for more details.
*/
#ifndef ohxl_loop_hpp
#define ohxl_loop_hpp
#include <ohxl/objhandlerxl.hpp>
namespace ObjHandler {
template<class LoopFunction, class InputType, class OutputType>
void loopIteration(
LoopFunction &loopFunction,
XLOPER &xIn,
XLOPER &xOut) {
InputType inputItem;
operToScalar(xIn, inputItem);
OutputType returnItem = loopFunction(inputItem);
scalarToOper(returnItem, xOut);
}
template<class LoopFunction, class InputType, class OutputType>
void loop(FunctionCall &functionCall,
LoopFunction &loopFunction,
OPER *xIn,
XLOPER &xOut) {
OPER xTemp, *xMulti;
bool needToFree = false;
bool errorInitialized = false;
// if the input is an array then take its address & carry on
if (xIn->xltype == xltypeMulti) {
xMulti = xIn;
// if the input is a scalar then just call the function once & return
} else if (xIn->xltype == xltypeNum
|| xIn->xltype == xltypeStr
|| xIn->xltype == xltypeBool) {
loopIteration<LoopFunction, InputType, OutputType>(
loopFunction, *xIn, xOut);
return;
// some other input (e.g. a reference) - try to convert to an array
} else {
Excel(xlCoerce, &xTemp, 2, xIn, TempInt(xltypeMulti));
xMulti = &xTemp;
needToFree = true;
}
xOut.val.array.rows = xMulti->val.array.rows;
xOut.val.array.columns = xMulti->val.array.columns;
int numCells = xMulti->val.array.rows * xMulti->val.array.columns;
xOut.val.array.lparray = new XLOPER[numCells];
if (!xOut.val.array.lparray) {
if (needToFree)
Excel(xlFree, 0, 1, &xTemp);
throw Exception("error on call to new");
}
xOut.xltype = xltypeMulti | xlbitDLLFree;
for (int i=0; i<numCells; i++) {
try {
loopIteration<LoopFunction, InputType, OutputType>(
loopFunction,
xMulti->val.array.lparray[i],
xOut.val.array.lparray[i]);
} catch(const std::exception &e) {
std::ostringstream err;
if (!errorInitialized) {
ObjectHandlerXL::instance().clearError();
err << functionCall.getFunctionName() << " - "
<< functionCall.getAddressString()
<< std::endl << std::endl;
errorInitialized = true;
}
err << "iteration #" << i << " - " << e.what();
ObjectHandlerXL::instance().logError(err.str(), true);
xOut.val.array.lparray[i].xltype = xltypeErr;
xOut.val.array.lparray[i].val.err = xlerrNum;
}
}
// free memory
if (needToFree)
Excel(xlFree, 0, 1, &xTemp);
}
}
#endif
Index: Makefile.am
===================================================================
RCS file: /cvsroot/objecthandler/ObjectHandler/ohxl/Makefile.am,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Makefile.am 3 Oct 2006 18:29:33 -0000 1.4
--- Makefile.am 12 Jan 2007 08:33:43 -0000 1.5
***************
*** 9,12 ****
--- 9,13 ----
functioncall.hpp \
functioncount.hpp \
+ loop.hpp \
objecthandlerxl.cpp \
objecthandlerxl.hpp \
|
