objecthandler-cvs Mailing List for ObjectHandler (Page 9)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/objecthandler/ObjectHandler/ohxl/Register
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv14291/ohxl/Register

Modified Files:
	.cvsignore 
Added Files:
	addin.cpp register_all.hpp 
Log Message:
cleaner processing to register functions with Excel

--- NEW FILE: addin.cpp ---

/* 
 Copyright (C) 2004, 2005, 2006 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.
*/

#include <xlsdk/xlsdkdefines.hpp>
#include <ohxl/objecthandlerxl.hpp>
#include <ohxl/Register/register.hpp>
#include <ohxl/export.hpp>
#include <ohxl/conversions.hpp>
#include <sstream>

// instantiate the object handler singleton
ObjHandler::ObjectHandlerXL objectHandler;

DLLEXPORT int xlAutoOpen() {
    static XLOPER xDll;
    try {
        Excel(xlGetName, &xDll, 0);

        registerOhFunctions(xDll);

        Excel(xlFree, 0, 1, &xDll);
        return 1;
    } catch (const std::exception &e) {
        std::ostringstream err;
        err << "Error loading ObjectHandler: " << e.what();
        Excel(xlcAlert, 0, 1, TempStrStl(err.str()));
        Excel(xlFree, 0, 1, &xDll);
        return 0;
    } catch (...) {
        Excel(xlFree, 0, 1, &xDll);
        return 0;
    }
}

DLLEXPORT int xlAutoClose() {
    static XLOPER xDll;
    try {
        // empty the ObjectHandler repository

        Excel(xlUDF, 0, 1, TempStrNoSize("\x12""ohDeleteAllObjects"));

        // unregister the addin functions

        Excel(xlGetName, &xDll, 0);

        unregisterOhFunctions(xDll);

        Excel(xlFree, 0, 1, &xDll);

        return 1;
    } catch (...) {
        Excel(xlFree, 0, 1, &xDll);
        return 0;
    }
}

DLLEXPORT void xlAutoFree(XLOPER *px) {
    if (px->xltype & xltypeStr && px->val.str)
        delete [] px->val.str;
    else if (px->xltype & xltypeMulti && px->val.array.lparray) {
        int size = px->val.array.rows * px->val.array.columns;
        for (int i=0; i<size; i++)
            if (px->val.array.lparray[i].xltype & xltypeStr
            &&  px->val.array.lparray[i].val.str)
                delete [] px->val.array.lparray[i].val.str;
        delete [] px->val.array.lparray;
    }
}

DLLEXPORT XLOPER *xlAddInManagerInfo(XLOPER *xlAction) {
    XLOPER xlReturn;
    static XLOPER xlLongName;

    // Coerce the argument XLOPER to an integer.
    Excel(xlCoerce, &xlReturn, 2, xlAction, TempInt(xltypeInt));

    // The only valid argument value is 1. In this case we return the
    // long name for the XLL. Any other value should result in the
    // return of a #VALUE! error.
    if (1 == xlReturn.val.w) {
        ObjHandler::scalarToXloper(xlLongName,
            std::string("ObjectHandler 0.1.4"));
    } else {
        xlLongName.xltype = xltypeErr;
        xlLongName.val.err = xlerrValue;
    }

    return &xlLongName;
}

Index: .cvsignore
===================================================================
RCS file: /cvsroot/objecthandler/ObjectHandler/ohxl/Register/.cvsignore,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** .cvsignore	3 Oct 2006 09:32:37 -0000	1.2
--- .cvsignore	3 Oct 2006 12:59:24 -0000	1.3
***************
*** 1,3 ****
! addin.cpp
! register_all.hpp
  register_functions.cpp
--- 1,2 ----
! register_all.cpp
  register_functions.cpp

--- NEW FILE: register_all.hpp ---

/* 
 Copyright (C) 2004, 2005, 2006 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.
*/

void registerOhFunctions(const XLOPER&);
void unregisterOhFunctions(const XLOPER&);

2006	Jan	Feb	Mar	Apr	May (115)	Jun (109)	Jul (85)	Aug (49)	Sep (19)	Oct (105)	Nov (16)	Dec (43)
2007	Jan (63)	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec

objecthandler-cvs Mailing List for ObjectHandler (Page 9)

objecthandler-cvs — List for automated CVS check-in messages.