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 }