00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031 #include "SundanceParamUtils.hpp"
00032
00033 using Teuchos::Array;
00034 using Teuchos::ParameterList;
00035
00036 using std::ifstream;
00037
00038 namespace Sundance
00039 {
00040 ParameterList mergeParamLists(const ParameterList& pDef,
00041 const ParameterList& pIn)
00042 {
00043 ParameterList rtn = pDef;
00044 using namespace Teuchos;
00045
00046
00047 ParameterList::ConstIterator i;
00048
00049 for (i=pDef.begin(); i!=pDef.end(); i++)
00050 {
00051 const ParameterEntry& eDef = pDef.entry(i);
00052
00053 const std::string& name = pDef.name(i);
00054 const ParameterEntry* eIn = pIn.getEntryPtr(name);
00055 if (eIn != NULL)
00056 {
00057 if (eIn->isList() && eDef.isList())
00058 {
00059 ParameterList sub = mergeParamLists(
00060 getValue<ParameterList>(eDef),
00061 getValue<ParameterList>(*eIn));
00062 rtn.set(name, sub);
00063
00064 }
00065 else if (eIn->isType<int>() && eDef.isType<int>())
00066 {
00067 rtn.set(name, Teuchos::any_cast<int>(eIn->getAny()));
00068 }
00069 else
00070 {
00071 TEUCHOS_TEST_FOR_EXCEPTION(eIn->isList() && !eDef.isList(),
00072 std::runtime_error, "mismatched parameters in mergeParams()");
00073 TEUCHOS_TEST_FOR_EXCEPTION(!eIn->isList() && eDef.isList(),
00074 std::runtime_error, "mismatched parameters in mergeParams()");
00075 TEUCHOS_TEST_FOR_EXCEPT(1);
00076 }
00077 }
00078 else
00079 {
00080 }
00081 }
00082 return rtn;
00083 }
00084 }