/*!
* \fn VCuentaCorriente::listadoDeudorPDF()
* Pasa a PDF el listado de cuentas corrientes deudoras
*/
void VCuentaCorriente::listadoDeudorPDF()
{
EReporte *rep = new EReporte( 0 );
rep->especial( "ListadoCtaCteSaldo", ParameterList() );
rep->hacerPDF( ParameterList(), QString( "Listado de Cuenta Corriente con saldo al %1" ).arg( QDate::currentDate().toString( Qt::SystemLocaleShortDate ) ) );
delete rep;
}
ParameterList& ParameterList::sublist(
const std::string& name_in, bool mustAlreadyExist,
const std::string& docString
)
{
typedef StringIndexedOrderedValueObjectContainerBase SIOVOCB;
const Ordinal param_idx = params_.getObjOrdinalIndex(name_in);
Ptr<ParameterEntry> sublist_entry_ptr;
if (param_idx != SIOVOCB::getInvalidOrdinal()) {
// Sublist parameter exists
sublist_entry_ptr = params_.getNonconstObjPtr(param_idx);
validateEntryIsList(name_in, *sublist_entry_ptr);
}
else {
// Sublist does not exist so we need to create a new one
validateMissingSublistMustExist(this->name(), name_in, mustAlreadyExist);
const Ordinal new_param_idx =
params_.setObj(
name_in,
ParameterEntry(
ParameterList(this->name()+std::string("->")+name_in),
false,
true,
docString
)
);
sublist_entry_ptr = params_.getNonconstObjPtr(new_param_idx);
}
return any_cast<ParameterList>(sublist_entry_ptr->getAny(false));
}
ParameterList orReportProto::getParamList()
{
orReport *item = qscriptvalue_cast<orReport*>(thisObject());
if (item)
return item->getParamList();
return ParameterList();
}
ParameterList XSqlTableModelProto::parameters()
{
XSqlTableModel *item = qscriptvalue_cast<XSqlTableModel*>(thisObject());
if (item)
return item->parameters();
return ParameterList();
}
/*!
* \fn VCuentaCorriente::listadoDeudor()
* Imprime el listado de cuentas corrientes deudoras
*/
void VCuentaCorriente::listadoDeudor()
{
EReporte *rep = new EReporte( 0 );
rep->especial( "ListadoCtaCteSaldo", ParameterList() );
rep->hacer();
delete rep;
}
/* <Opt Parameter List> ::= <Parameter List> | epsilon */
void SyntaxAnalyzer::OptParameterList()
{
paramList = false;
if(ParameterList())
{
logger.Log("<Opt Parameter List> ::= <Parameter List>");
}
else
{
// epsilon
logger.Log("<Opt Parameter List> ::= epsilon");
}
}
DCredencial::DCredencial(QWidget *parent) :
QDialog(parent), Ui::DCredencialBase()
{
setupUi(this);
this->setAttribute( Qt::WA_DeleteOnClose );
this->setObjectName( "agregarcredencial" );
this->setWindowTitle( "Crear Credencial" );
this->equipo = "";
this->id_equipo = -1;
this->reporte = new EReporte( this );
this->reporte->especial( "credencial-union", ParameterList() );
this->modelo = new MCredenciales( this, false );
}
bool syntaxparser::ParameterList(){
bool bParameterList= false, flag=false;
if (displayFlag){
cout << "<Parameter List> ::= <Parameter> , <Parameter List>"<< endl;
printproduction("<Parameter List> ::= <Parameter> , <Parameter List>");
}
Parameter();
if(lexeme ==","){
Lexer();
// if we have a comma then we recursively call for more additional parameters
ParameterList();
}
bParameterList= true;
return bParameterList;
}
/* <Parameter List Prime> ::= , <Parameter List> | epsilon */
void SyntaxAnalyzer::ParameterListPrime()
{
if(rrr == s_comma)
{
NextRecord();
paramList = false;
ParameterList();
logger.Log("<Parameter List Prime> ::= , <Parameter List>");
}
else
{
// epsilon
logger.Log("<Parameter List Prime> ::= epsilon");
}
}
RCP<const ParameterList> BraessSarazinSmoother<Scalar, LocalOrdinal, GlobalOrdinal, Node>::GetValidParameterList() const {
RCP<ParameterList> validParamList = rcp(new ParameterList());
SC one = Teuchos::ScalarTraits<SC>::one();
validParamList->set<RCP<const FactoryBase> >("A", null, "Generating factory of the matrix A");
validParamList->set<bool> ("lumping", false, "Use lumping to construct diag(A(0,0)), i.e. use row sum of the abs values on the diagonal "
"as approximation of A00 (and A00^{-1})");
validParamList->set<SC> ("Damping factor", one, "Damping/Scaling factor in BraessSarazin (usually has to be chosen > 1, default = 1.0)");
validParamList->set<LO> ("Sweeps", 1, "Number of BraessSarazin sweeps (default = 1)");
validParamList->set<ParameterList> ("block1", ParameterList(), "Sublist for parameters for SchurComplement block. At least has to contain some information about a smoother \"Smoother\" for variable \"A\" which is generated by a SchurComplementFactory.");
return validParamList;
}
vector<ParameterNode*> Parser::FunctionArguments()
{
if(currenttoken->type == OpenParenthesis)
{
ConsumeToken();
vector<ParameterNode*> list=ParameterList();
if(currenttoken->type != CloseParenthesis)
throw invalid_argument("Se esperaba ). Row:"+to_string(currenttoken->row)+"Column:"+to_string(currenttoken->column));
ConsumeToken();
return list;
}
else
{
vector<ParameterNode*>list;
return list;
}
}
bool syntaxparser::OptParameterList(){
bool OptParameterList = false;
//check to see if the optional parameter list is empty
if (lexeme != "]"){
if (displayFlag){
cout<<"<Opt Parameter List> ::= <Parameter List>"<<endl;
printproduction("<Opt Parameter List> ::= <Parameter List>");
}
ParameterList();
OptParameterList = true;
}else if(lexeme == "]"){
if (displayFlag){
cout<<"<Opt Parameter List> ::= <empty>"<<endl;
printproduction("<Opt Parameter List> ::= <empty>");
}
Empty();
OptParameterList = true;
}
return OptParameterList;
}
void ParameterListInterpreter<Scalar, LocalOrdinal, GlobalOrdinal, Node, LocalMatOps>::SetEasyParameterList(const Teuchos::ParameterList& constParamList) {
// Create a non const copy of the parameter list
// Working with a modifiable list is much much easier than with original one
ParameterList paramList = constParamList;
// Translate cycle type parameter
if (paramList.isParameter("cycle type")) {
std::map<std::string,CycleType> cycleMap;
cycleMap["V"] = VCYCLE;
cycleMap["W"] = WCYCLE;
std::string cycleType = paramList.get<std::string>("cycle type");
TEUCHOS_TEST_FOR_EXCEPTION(cycleMap.count(cycleType) == 0, Exceptions::RuntimeError, "Invalid cycle type: \"" << cycleType << "\"");
Cycle_ = cycleMap[cycleType];
}
this->maxCoarseSize_ = paramList.get<int> ("coarse: max size", Hierarchy::GetDefaultMaxCoarseSize());
this->numDesiredLevel_ = paramList.get<int> ("max levels", Hierarchy::GetDefaultMaxLevels());
this->graphOutputLevel_ = paramList.get<int> ("debug: graph level", -1);
blockSize_ = paramList.get<int> ("number of equations", 1);
// Save level data
if (paramList.isSublist("print")) {
ParameterList printList = paramList.sublist("print");
if (printList.isParameter("A"))
this->matricesToPrint_ = Teuchos::getArrayFromStringParameter<int>(printList, "A");
if (printList.isParameter("P"))
this->prolongatorsToPrint_ = Teuchos::getArrayFromStringParameter<int>(printList, "P");
if (printList.isParameter("R"))
this->restrictorsToPrint_ = Teuchos::getArrayFromStringParameter<int>(printList, "R");
}
// Translate verbosity parameter
this->verbosity_ = static_cast<MsgType>(Hierarchy::GetDefaultVerbLevel()); // cast int to enum
if (paramList.isParameter("verbosity")) {
std::map<std::string,MsgType> verbMap;
verbMap["none"] = None;
verbMap["low"] = Low;
verbMap["medium"] = Medium;
verbMap["high"] = High;
verbMap["extreme"] = Extreme;
verbMap["test"] = Test;
std::string verbosityLevel = paramList.get<std::string>("verbosity");
TEUCHOS_TEST_FOR_EXCEPTION(verbMap.count(verbosityLevel) == 0, Exceptions::RuntimeError, "Invalid verbosity level: \"" << verbosityLevel << "\"");
this->verbosity_ = verbMap[verbosityLevel];
this->SetVerbLevel(this->verbosity_);
}
// Detect if we need to transfer coordinates to coarse levels. We do that iff
// - we use "laplacian" dropping on some level, or
// - we use repartitioning on some level
// This is not ideal, as we may have "repartition: enable" turned on by default
// and not present in the list, but it is better than nothing.
useCoordinates_ = false;
if ((paramList.isParameter("repartition: enable") && paramList.get<bool>("repartition: enable") == true) ||
(paramList.isParameter("aggregation: drop scheme") && paramList.get<std::string>("aggregation: drop scheme") == "laplacian")) {
useCoordinates_ = true;
} else {
for (int levelID = 0; levelID < this->numDesiredLevel_; levelID++) {
std::string levelStr = "level" + toString(levelID);
if (paramList.isSublist(levelStr)) {
const ParameterList& levelList = paramList.sublist(levelStr);
if ((levelList.isParameter("repartition: enable") && levelList.get<bool>("repartition: enable") == true) ||
(levelList.isParameter("aggregation: drop scheme") && levelList.get<std::string>("aggregation: drop scheme") == "laplacian")) {
useCoordinates_ = true;
break;
}
}
}
}
// Detect if we do implicit P and R rebalance
if (paramList.isParameter("repartition: enable") && paramList.get<bool>("repartition: enable") == true)
this->doPRrebalance_ = paramList.get<bool>("repartition: rebalance P and R", Hierarchy::GetDefaultPRrebalance());
this->implicitTranspose_ = paramList.get<bool>("transpose: use implicit", Hierarchy::GetDefaultImplicitTranspose());
// Create default manager
RCP<FactoryManager> defaultManager = rcp(new FactoryManager());
defaultManager->SetVerbLevel(this->verbosity_);
UpdateFactoryManager(paramList, ParameterList(), *defaultManager);
defaultManager->Print();
for (int levelID = 0; levelID < this->numDesiredLevel_; levelID++) {
RCP<FactoryManager> levelManager;
if (paramList.isSublist("level " + toString(levelID))) {
// Some level specific parameters, update default manager
bool mustAlreadyExist = true;
ParameterList& levelList = paramList.sublist("level " + toString(levelID), mustAlreadyExist);
levelManager = rcp(new FactoryManager(*defaultManager));
levelManager->SetVerbLevel(defaultManager->GetVerbLevel());
UpdateFactoryManager(levelList, paramList, *levelManager);
} else {
// No level specific parameter, use default manager
levelManager = defaultManager;
}
this->AddFactoryManager(levelID, 1, levelManager);
}
if (paramList.isParameter("strict parameter checking") &&
paramList.get<bool> ("strict parameter checking")) {
ParameterList unusedParamList;
// Check for unused parameters that aren't lists
for (ParameterList::ConstIterator itr = paramList.begin(); itr != paramList.end(); ++itr) {
const ParameterEntry& entry = paramList.entry(itr);
if (!entry.isList() && !entry.isUsed())
unusedParamList.setEntry(paramList.name(itr), entry);
}
#if 0
// Check for unused parameters in level-specific sublists
for (int levelID = 0; levelID < this->numDesiredLevel_; levelID++) {
std::string levelStr = "level" + toString(levelID);
if (paramList.isSublist(levelStr)) {
const ParameterList& levelList = paramList.sublist(levelStr);
for (ParameterList::ConstIterator itr = levelList.begin(); itr != levelList.end(); ++itr) {
const ParameterEntry& entry = levelList.entry(itr);
if (!entry.isList() && !entry.isUsed())
unusedParamList.sublist(levelStr).setEntry(levelList.name(itr), entry);
}
}
}
#endif
if (unusedParamList.numParams() > 0) {
std::ostringstream unusedParamsStream;
int indent = 4;
unusedParamList.print(unusedParamsStream, indent);
TEUCHOS_TEST_FOR_EXCEPTION_PURE_MSG(true, Teuchos::Exceptions::InvalidParameter,
"WARNING: Unused parameters were detected. Please check spelling and type." << std::endl << unusedParamsStream.str());
}
}
// FIXME: parameters passed to packages, like Ifpack2, are not touched by us, resulting in "[unused]" flag
// being displayed. On the other hand, we don't want to simply iterate through them touching. I don't know
// what a good solution looks like
this->GetOStream(static_cast<MsgType>(Runtime1 | Test), 0) << paramList << std::endl;
}
void display::sFillList()
{
sFillList(ParameterList());
}
void display::sPreview()
{
sPreview(ParameterList());
}
void display::sPrint()
{
sPrint(ParameterList());
}
virtual RCP<const ParameterList> GetValidParameterList(const ParameterList& paramList = ParameterList()) const {
return Teuchos::null; // Teuchos::null == GetValidParameterList() not implemented == skip validation and no default values (dangerous)
}
BlockTriangularSolver(const LinearSolver<Scalar>& solver)
: LinearSolverBase<Scalar>(ParameterList()), solvers_(tuple(solver)) {;}
BlockTriangularSolver(const Array<LinearSolver<Scalar> >& solvers)
: LinearSolverBase<Scalar>(ParameterList()), solvers_(solvers) {;}
