IO_Utils.hpp

#ifndef IO_UTILS_hpp
#define IO_UTILS_hpp
 
#include <Teuchos_ParameterList.hpp>
#include <Teuchos_XMLParameterListCoreHelpers.hpp>
#include <Teuchos_YamlParameterListCoreHelpers.hpp>
 
namespace FEDD{
    
    namespace IO {

        Teuchos::RCP<Teuchos::ParameterList> parseParameterList(const std::string &fileName,
                                                                const std::string &type         = "yaml")
        {
            using std::logic_error;
            using namespace Teuchos;
 
            RCP<ParameterList> parameterList;
 
            if (!type.compare("yaml"))
            {
                parameterList = getParametersFromYamlFile(fileName);
            }
            else if (!type.compare("xml"))
            {
                parameterList = getParametersFromXmlFile(fileName);
            }
            else
            {
                TEUCHOS_TEST_FOR_EXCEPTION(true,logic_error,"File type not supported.");
            }
 
            return parameterList;
        };
 

        Teuchos::RCP<Teuchos::ParameterList> parseParameterListFiles(Teuchos::RCP<Teuchos::ParameterList>   &parameterList,
                                                                     const std::string                      &nameName       = "ParameterLists File Names",
                                                                     const std::string                      &pathName       = "ParameterLists File Paths",
                                                                     const std::string                      &typeName       = "ParameterLists File Types")
        {        
            using std::string;
            using std::logic_error;
            using Teuchos::Array;
            
            Array<string> names(1,""), filePaths(1,""), fileTypes(1,"");
            if (parameterList->isParameter(pathName))
            {
                filePaths = parameterList->get(pathName,filePaths);
                
                if (parameterList->isParameter(nameName))
                {
                    names = parameterList->get(nameName,names);
                    TEUCHOS_TEST_FOR_EXCEPTION(names.size()!=filePaths.size(),logic_error,"names.size()!=filePaths.size()");
                } else {
                    TEUCHOS_TEST_FOR_EXCEPTION(true,logic_error,"ParameterLists File Names are not specified.");
                }
 
                if (parameterList->isParameter(typeName))
                {
                    fileTypes = parameterList->get(typeName,fileTypes);
                    TEUCHOS_TEST_FOR_EXCEPTION(fileTypes.size()!=filePaths.size(),logic_error,"fileTypes.size()!=filePaths.size()");
                } else {
                    TEUCHOS_TEST_FOR_EXCEPTION(true,logic_error,"ParameterLists File Types are not specified.");
                }
 
                int i = 0;
                for (auto it = filePaths.begin(); it != filePaths.end(); it++, i++)
                {
                    Teuchos::RCP<Teuchos::ParameterList> parameterListTmp = parseParameterList(filePaths[i],fileTypes[i]);
                    parameterList->set(names[i],*parameterListTmp);
                }
            }
            return parameterList;
        };
 
    }
 
}
 
#endif