[ObjectHandler-cvs] ObjectHandler/ohxl loop.hpp, NONE, 1.1 Makefile.am, 1.4, 1.5

[Eric E. <eri...@us...>]

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 \