Checking whether variables have types before accessing them in the PDDL translator.
This commit is contained in:
parent
2b55d156ae
commit
da85e5dd9b
@ -40,6 +40,9 @@ void TranslatorASP::checkSupport() const
|
||||
std::for_each(arguments.cbegin(), arguments.cend(),
|
||||
[&](const auto ¶meter)
|
||||
{
|
||||
if (parameter->type() == nullptr)
|
||||
return;
|
||||
|
||||
if (parameter->type()->expressionType() != Expression::Type::PrimitiveType)
|
||||
throw utils::TranslatorException("Only primitive types supported currently");
|
||||
});
|
||||
@ -56,6 +59,9 @@ void TranslatorASP::checkSupport() const
|
||||
std::for_each(parameters.cbegin(), parameters.cend(),
|
||||
[&](const auto ¶meter)
|
||||
{
|
||||
if (parameter->type() == nullptr)
|
||||
return;
|
||||
|
||||
if (parameter->type()->expressionType() != Expression::Type::PrimitiveType)
|
||||
throw utils::TranslatorException("Only primitive types supported currently");
|
||||
});
|
||||
@ -391,10 +397,15 @@ void TranslatorASP::translateVariablesBody(const expressions::Variables &variabl
|
||||
m_ostream << ", ";
|
||||
|
||||
const auto &variable = *dynamic_cast<const expressions::Variable *>(i->get());
|
||||
|
||||
if (variable.type() != nullptr)
|
||||
{
|
||||
const auto &type = *dynamic_cast<const expressions::PrimitiveType *>(variable.type());
|
||||
|
||||
m_ostream << "hasType(" << utils::escapeASPVariable(variable.name()) << ", type(" << type.name() << "))";
|
||||
}
|
||||
// TODO: handle untyped variables
|
||||
}
|
||||
}
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
11
tests/data/issues/issue-4.pddl
Normal file
11
tests/data/issues/issue-4.pddl
Normal file
@ -0,0 +1,11 @@
|
||||
(define (domain tsp)
|
||||
(:requirements :negative-preconditions)
|
||||
(:predicates
|
||||
(at ?x)
|
||||
(visited ?x)
|
||||
(connected ?x ?y))
|
||||
|
||||
(:action move
|
||||
:parameters (?x ?y)
|
||||
:precondition (and (at ?x) (not (visited ?y)) (connected ?x ?y))
|
||||
:effect (and (at ?y) (visited ?y) (not (at ?x)))))
|
Reference in New Issue
Block a user