Reimplemented major parts of parsing preconditions.

lib/pddlparse/include/pddlparse/AST.h

@@ -114,7 +114,11 @@ struct PrimitiveTypeDeclaration
 
 struct Unsupported
 {
-	explicit Unsupported() = default;
+	explicit Unsupported(std::string &&type)
+	:	type{std::move(type)}
+	{
+	}
+
 	Unsupported(const Unsupported &other) = delete;
 	Unsupported &operator=(const Unsupported &&other) = delete;
 	Unsupported(Unsupported &&other) = default;
@@ -165,8 +169,11 @@ struct VariableDeclaration
 
 struct Predicate
 {
-	explicit Predicate(PredicateDeclaration *declaration)
-	:	declaration{declaration}
+	using Arguments = Terms;
+
+	explicit Predicate(Arguments &&arguments, PredicateDeclaration *declaration)
+	:	arguments{std::move(arguments)},
+		declaration{declaration}
 	{
 	}
 
@@ -175,7 +182,7 @@ struct Predicate
 	Predicate(Predicate &&other) = default;
 	Predicate &operator=(Predicate &&other) = default;
 
-	Terms arguments;
+	Arguments arguments;
 	PredicateDeclaration *declaration;
 };
 

lib/pddlparse/include/pddlparse/detail/ASTCopy.h

@@ -2,6 +2,7 @@
 #define __PDDL_PARSE__DETAIL__AST_COPY_H
 
 #include <pddlparse/AST.h>
+#include <pddlparse/Variant.h>
 
 namespace pddl
 {
@@ -27,11 +28,11 @@ inline Variable deepCopy(Variable &other);
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 
 template<class Derived, class ArgumentLeft, class ArgumentRight = ArgumentLeft>
-inline Binary<Derived, ArgumentLeft, ArgumentRight> deepCopy(Binary<Derived, ArgumentLeft, ArgumentRight> &other);
+inline Derived deepCopy(Binary<Derived, ArgumentLeft, ArgumentRight> &other);
 template<class Derived, class Argument>
-inline NAry<Derived, Argument> deepCopy(NAry<Derived, Argument> &other);
+inline Derived deepCopy(NAry<Derived, Argument> &other);
 template<class Derived, class Argument>
-inline Quantified<Derived, Argument> deepCopy(Quantified<Derived, Argument> &other);
+inline Derived deepCopy(Quantified<Derived, Argument> &other);
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 // Expressions
@@ -46,7 +47,14 @@ inline Not<Argument> deepCopy(Not<Argument> &other);
 // Variants
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 
-inline ast::Term deepCopy(ast::Term &other);
+inline ast::Type deepCopy(ast::Type &other);
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+// Unique Pointers
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+template<class T>
+std::unique_ptr<T> deepCopy(std::unique_ptr<T> &other);
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 // Primitives
@@ -76,10 +84,10 @@ Variable deepCopy(Variable &other)
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 
 template<class Derived, class ArgumentLeft, class ArgumentRight>
-Binary<Derived, ArgumentLeft, ArgumentRight> deepCopy(Binary<Derived, ArgumentLeft, ArgumentRight> &other)
+Derived deepCopy(Binary<Derived, ArgumentLeft, ArgumentRight> &other)
 {
-	auto argumentLeft = deepCopy(other.argumentLeft);
-	auto argumentRight = deepCopy(other.argumentRight);
+	auto argumentLeft{deepCopy(other.argumentLeft)};
+	auto argumentRight{deepCopy(other.argumentRight)};
 
 	return Binary<Derived, ArgumentLeft, ArgumentRight>(std::move(argumentLeft), std::move(argumentRight));
 }
@@ -87,23 +95,23 @@ Binary<Derived, ArgumentLeft, ArgumentRight> deepCopy(Binary<Derived, ArgumentLe
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 
 template<class Derived, class Argument>
-NAry<Derived, Argument> deepCopy(NAry<Derived, Argument> &other)
+Derived deepCopy(NAry<Derived, Argument> &other)
 {
-	typename NAry<Derived, Argument>::Arguments arguments;
+	typename Derived::Arguments arguments;
 	arguments.reserve(other.arguments.size());
 
 	for (auto &argument : other.arguments)
 		arguments.emplace_back(deepCopy(argument));
 
-	return NAry<Derived, Argument>(std::move(arguments));
+	return Derived(std::move(arguments));
 }
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 
 template<class Derived, class Argument>
-Quantified<Derived, Argument> deepCopy(Quantified<Derived, Argument> &other)
+Derived deepCopy(Quantified<Derived, Argument> &other)
 {
-	auto argument = deepCopy(other.argument);
+	auto argument{deepCopy(other.argument)};
 
 	return Quantified<Derived, Argument>(std::move(argument));
 }
@@ -115,17 +123,27 @@ Quantified<Derived, Argument> deepCopy(Quantified<Derived, Argument> &other)
 template<class Argument>
 At<Argument> deepCopy(At<Argument> &other)
 {
-	auto argument = deepCopy(other.argument);
+	auto argument{deepCopy(other.argument)};
 
 	return At<Argument>(other.timePoint, std::move(argument));
 }
 
+////////////////////////////////////////////////////////////////////////////////////////////////////
+/*
+template<class Argument>
+Either<Argument> deepCopy(Either<Argument> &other)
+{
+	auto argument{deepCopy(other.argument)};
+
+	return Not<Argument>(std::move(argument));
+}*/
+
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 
 template<class Argument>
 Not<Argument> deepCopy(Not<Argument> &other)
 {
-	auto argument = deepCopy(other.argument);
+	auto argument{deepCopy(other.argument)};
 
 	return Not<Argument>(std::move(argument));
 }
@@ -143,6 +161,13 @@ struct DeepCopyVisitor
 	}
 };
 
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+ast::Type deepCopy(ast::Type &other)
+{
+	return other.match([](auto &x){deepCopy(x); return std::make_unique<ast::PrimitiveType>(nullptr);});
+}
+
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 // Unique Pointers
 ////////////////////////////////////////////////////////////////////////////////////////////////////

lib/pddlparse/include/pddlparse/detail/VariableStack.h

@@ -17,11 +17,16 @@ namespace detail
 class VariableStack
 {
 	public:
-		void push(ast::VariableDeclarations *variables);
+		using Layer = ast::VariableDeclarations *;
+
+	public:
+		void push(Layer layer);
 		void pop();
 
+		std::experimental::optional<ast::VariableDeclaration *> findVariableDeclaration(const std::string &variableName);
+
 	private:
-		std::vector<ast::VariableDeclarations *> m_variableStack;
+		std::vector<Layer> m_layers;
 };
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////

lib/pddlparse/include/pddlparse/detail/parsing/Constant.h

@@ -3,6 +3,7 @@
 
 #include <pddlparse/ASTForward.h>
 #include <pddlparse/Context.h>
+#include <pddlparse/detail/ASTContext.h>
 
 namespace pddl
 {
@@ -15,8 +16,7 @@ namespace detail
 //
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 
-ast::ConstantPointer parseConstant(Context &context, ast::Domain &domain);
-ast::ConstantPointer parseConstant(Context &context, ast::Problem &problem);
+ast::ConstantPointer parseConstant(Context &context, ASTContext &astContext);
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 

lib/pddlparse/include/pddlparse/detail/parsing/Expressions.h

@@ -63,12 +63,12 @@ std::experimental::optional<std::unique_ptr<Derived>> parseBinary(Context &conte
 	auto argumentLeft = parseArgument(context, astContext, variableStack);
 
 	if (!argumentLeft)
-		throw ParserException(tokenizer.location(), "could not parse argument of “" + Derived::Identifier + "” expression");
+		throw ParserException(tokenizer.location(), "could not parse argument of “" + std::string(Derived::Identifier) + "” expression");
 
 	auto argumentRight = parseArgument(context, astContext, variableStack);
 
 	if (!argumentRight)
-		throw ParserException(tokenizer.location(), "could not parse argument of “" + Derived::Identifier + "” expression");
+		throw ParserException(tokenizer.location(), "could not parse argument of “" + std::string(Derived::Identifier) + "” expression");
 
 	tokenizer.expect<std::string>(")");
 
@@ -99,18 +99,18 @@ std::experimental::optional<std::unique_ptr<Derived>> parseNAry(Context &context
 	// Parse arguments of the expression
 	while (tokenizer.currentCharacter() != ')')
 	{
-		auto &argument = parseArgument(context, astContext, variableStack);
+		auto argument = parseArgument(context, astContext, variableStack);
 
 		if (!argument)
-			throw ParserException(tokenizer.location(), "could not parse argument of “" + Derived::Identifier + "” expression");
+			throw ParserException(tokenizer.location(), "could not parse argument of “" + std::string(Derived::Identifier) + "” expression");
 
-		arguments.emplace_back(std::move(argument.value));
+		arguments.emplace_back(std::move(argument.value()));
 
 		tokenizer.skipWhiteSpace();
 	}
 
 	if (arguments.empty())
-		context.warningCallback(tokenizer.location(), "“" + Derived::Identifier + "” expressions should not be empty");
+		context.warningCallback(tokenizer.location(), "“" + std::string(Derived::Identifier) + "” expressions should not be empty");
 
 	tokenizer.expect<std::string>(")");
 

lib/pddlparse/include/pddlparse/detail/parsing/Precondition.h

@@ -0,0 +1,27 @@
+#ifndef __PDDL_PARSE__DETAIL__PARSING__PRECONDITION_H
+#define __PDDL_PARSE__DETAIL__PARSING__PRECONDITION_H
+
+#include <pddlparse/ASTForward.h>
+#include <pddlparse/Context.h>
+#include <pddlparse/detail/ASTContext.h>
+#include <pddlparse/detail/VariableStack.h>
+
+namespace pddl
+{
+namespace detail
+{
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+//
+// Precondition
+//
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+std::experimental::optional<ast::Precondition> parsePrecondition(Context &context, ASTContext &astContext, VariableStack &variableStack);
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+}
+}
+
+#endif

lib/pddlparse/include/pddlparse/detail/parsing/Predicate.h

@@ -0,0 +1,27 @@
+#ifndef __PDDL_PARSE__DETAIL__PARSING__PREDICATE_H
+#define __PDDL_PARSE__DETAIL__PARSING__PREDICATE_H
+
+#include <pddlparse/ASTForward.h>
+#include <pddlparse/Context.h>
+#include <pddlparse/detail/ASTContext.h>
+#include <pddlparse/detail/VariableStack.h>
+
+namespace pddl
+{
+namespace detail
+{
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+//
+// Predicate
+//
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+std::experimental::optional<ast::PredicatePointer> parsePredicate(Context &context, ASTContext &astContext, VariableStack &variableStack);
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+}
+}
+
+#endif

lib/pddlparse/include/pddlparse/detail/parsing/Type.h

@@ -0,0 +1,25 @@
+#ifndef __PDDL_PARSE__DETAIL__PARSING__TYPE_H
+#define __PDDL_PARSE__DETAIL__PARSING__TYPE_H
+
+#include <pddlparse/ASTForward.h>
+#include <pddlparse/Context.h>
+
+namespace pddl
+{
+namespace detail
+{
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+//
+// Type
+//
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+ast::Type parseType(Context &context, ast::Domain &domain);
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+}
+}
+
+#endif

lib/pddlparse/include/pddlparse/detail/parsing/Unsupported.h

@@ -0,0 +1,25 @@
+#ifndef __PDDL_PARSE__DETAIL__PARSING__UNSUPPORTED_H
+#define __PDDL_PARSE__DETAIL__PARSING__UNSUPPORTED_H
+
+#include <pddlparse/ASTForward.h>
+#include <pddlparse/Context.h>
+
+namespace pddl
+{
+namespace detail
+{
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+//
+// Unsupported
+//
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+ast::UnsupportedPointer parseUnsupported(Context &context);
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+}
+}
+
+#endif

lib/pddlparse/include/pddlparse/detail/parsing/Variable.h

@@ -3,6 +3,7 @@
 
 #include <pddlparse/ASTForward.h>
 #include <pddlparse/Context.h>
+#include <pddlparse/detail/VariableStack.h>
 
 namespace pddl
 {
@@ -15,7 +16,7 @@ namespace detail
 //
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 
-ast::Variable parseVariable(Context &context, ast::Domain &domain);
+ast::VariablePointer parseVariable(Context &context, VariableStack &variableStack);
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 

lib/pddlparse/src/pddlparse/detail/VariableStack.cpp

@@ -1,5 +1,7 @@
 #include <pddlparse/detail/VariableStack.h>
 
+#include <algorithm>
+
 #include <pddlparse/AST.h>
 
 namespace pddl
@@ -13,16 +15,38 @@ namespace detail
 //
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 
-void VariableStack::push(ast::VariableDeclarations *variables)
+void VariableStack::push(ast::VariableDeclarations *layer)
 {
-	m_variableStack.push_back(variables);
+	m_layers.push_back(layer);
 }
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 
 void VariableStack::pop()
 {
-	m_variableStack.pop_back();
+	m_layers.pop_back();
+}
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+std::experimental::optional<ast::VariableDeclaration *> VariableStack::findVariableDeclaration(const std::string &variableName)
+{
+	const auto variableDeclarationMatches =
+		[&variableName](const auto &variableDeclaration)
+		{
+			return variableDeclaration->name == variableName;
+		};
+
+	for (auto i = m_layers.rbegin(); i != m_layers.rend(); i++)
+	{
+		auto &layer = **i;
+		const auto matchingVariableDeclaration = std::find_if(layer.begin(), layer.end(), variableDeclarationMatches);
+
+		if (matchingVariableDeclaration != layer.end())
+			return matchingVariableDeclaration->get();
+	}
+
+	return std::experimental::nullopt;
 }
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////

lib/pddlparse/src/pddlparse/detail/parsing/Constant.cpp

@@ -30,6 +30,7 @@ std::experimental::optional<ast::ConstantPointer> findConstant(const std::string
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 
+// TODO: remove if unneeded
 ast::ConstantPointer parseConstant(Context &context, ast::Domain &domain)
 {
 	auto &tokenizer = context.tokenizer;
@@ -45,6 +46,7 @@ ast::ConstantPointer parseConstant(Context &context, ast::Domain &domain)
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 
+// TODO: remove if unneeded
 ast::ConstantPointer parseConstant(Context &context, ast::Problem &problem)
 {
 	auto &tokenizer = context.tokenizer;
@@ -65,5 +67,25 @@ ast::ConstantPointer parseConstant(Context &context, ast::Problem &problem)
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////
 
+ast::ConstantPointer parseConstant(Context &context, ASTContext &astContext)
+{
+	auto &tokenizer = context.tokenizer;
+	const auto constantName = tokenizer.getIdentifier();
+
+	auto constant = findConstant(constantName, astContext.domain->constants);
+
+	if (constant)
+		return std::move(constant.value());
+
+	constant = findConstant(constantName, astContext.problem.value()->objects);
+
+	if (constant)
+		return std::move(constant.value());
+
+	throw ParserException(tokenizer.location(), "constant “" + constantName + "” used but never declared");
+}
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
 }
 }

lib/pddlparse/src/pddlparse/detail/parsing/Description.cpp

@@ -51,7 +51,7 @@ ast::Description DescriptionParser::parse()
 	// TODO: check consistency
 	// * check typing requirement
 	// * check that typing is used consistently
-	// * check that constants, variables, and predicates aren't declared twice
+	// * check that constants/objects, variables, and predicates aren't declared twice
 	// * check section order
 	// * check that preconditions and effects are well-formed
 	return {std::move(domain), std::move(problem)};

lib/pddlparse/src/pddlparse/detail/parsing/Precondition.cpp

@@ -0,0 +1,113 @@
+#include <pddlparse/detail/parsing/Precondition.h>
+
+#include <pddlparse/AST.h>
+#include <pddlparse/detail/parsing/Expressions.h>
+#include <pddlparse/detail/parsing/Predicate.h>
+#include <pddlparse/detail/parsing/Unsupported.h>
+
+namespace pddl
+{
+namespace detail
+{
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+//
+// Precondition
+//
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+std::experimental::optional<ast::Precondition> parsePreconditionBody(Context &context, ASTContext &astContext, VariableStack &variableStack);
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+std::experimental::optional<ast::Precondition> parsePrecondition(Context &context, ASTContext &astContext, VariableStack &variableStack)
+{
+	auto &tokenizer = context.tokenizer;
+
+	tokenizer.skipWhiteSpace();
+
+	std::experimental::optional<ast::Precondition> precondition;
+
+	if ((precondition = parseAnd<ast::Precondition>(context, astContext, variableStack, parsePrecondition))
+	    || (precondition = parseForAll<ast::Precondition>(context, astContext, variableStack, parsePrecondition)))
+	{
+		return std::move(precondition.value());
+	}
+
+	const auto position = tokenizer.position();
+
+	tokenizer.expect<std::string>("(");
+
+	const auto expressionIdentifierPosition = tokenizer.position();
+
+	if (tokenizer.testIdentifierAndSkip("preference"))
+	{
+		// TODO: refactor
+		tokenizer.seek(expressionIdentifierPosition);
+		const auto expressionIdentifier = tokenizer.getIdentifier();
+
+		tokenizer.seek(position);
+		return parseUnsupported(context);
+	}
+
+	tokenizer.seek(position);
+	return parsePreconditionBody(context, astContext, variableStack);
+}
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+std::experimental::optional<ast::Precondition> parsePreconditionBody(Context &context, ASTContext &astContext, VariableStack &variableStack)
+{
+	auto &tokenizer = context.tokenizer;
+
+	tokenizer.skipWhiteSpace();
+
+	std::experimental::optional<ast::Precondition> precondition;
+
+	if ((precondition = parseAnd<ast::Precondition>(context, astContext, variableStack, parsePrecondition))
+	    || (precondition = parseOr<ast::Precondition>(context, astContext, variableStack, parsePrecondition))
+	    || (precondition = parseExists<ast::Precondition>(context, astContext, variableStack, parsePrecondition))
+	    || (precondition = parseForAll<ast::Precondition>(context, astContext, variableStack, parsePrecondition))
+		|| (precondition = parseNot<ast::Precondition>(context, astContext, variableStack, parsePrecondition))
+	    || (precondition = parseImply<ast::Precondition>(context, astContext, variableStack, parsePrecondition))
+	    || (precondition = parsePredicate(context, astContext, variableStack)))
+	{
+		return std::move(precondition.value());
+	}
+
+	const auto position = tokenizer.position();
+
+	tokenizer.expect<std::string>("(");
+
+	const auto expressionIdentifierPosition = tokenizer.position();
+
+	if (tokenizer.testIdentifierAndSkip("-")
+		|| tokenizer.testIdentifierAndSkip("=")
+		|| tokenizer.testIdentifierAndSkip("*")
+		|| tokenizer.testIdentifierAndSkip("+")
+		|| tokenizer.testIdentifierAndSkip("-")
+		|| tokenizer.testIdentifierAndSkip("/")
+		|| tokenizer.testIdentifierAndSkip(">")
+		|| tokenizer.testIdentifierAndSkip("<")
+		|| tokenizer.testIdentifierAndSkip("=")
+		|| tokenizer.testIdentifierAndSkip(">=")
+		|| tokenizer.testIdentifierAndSkip("<="))
+	{
+		tokenizer.seek(expressionIdentifierPosition);
+		const auto expressionIdentifier = tokenizer.getIdentifier();
+
+		tokenizer.seek(position);
+		return parseUnsupported(context);
+	}
+
+	tokenizer.seek(expressionIdentifierPosition);
+	const auto expressionIdentifier = tokenizer.getIdentifier();
+
+	tokenizer.seek(position);
+	throw tokenize::TokenizerException(tokenizer.location(), "expression type “" + expressionIdentifier + "” unknown or not allowed in this context");
+}
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+}
+}

lib/pddlparse/src/pddlparse/detail/parsing/Predicate.cpp

@@ -0,0 +1,79 @@
+#include <pddlparse/detail/parsing/Predicate.h>
+
+#include <pddlparse/AST.h>
+#include <pddlparse/detail/parsing/Constant.h>
+#include <pddlparse/detail/parsing/Variable.h>
+#include <pddlparse/detail/parsing/VariableDeclaration.h>
+
+namespace pddl
+{
+namespace detail
+{
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+//
+// Predicate
+//
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+std::experimental::optional<ast::PredicatePointer> parsePredicate(Context &context, ASTContext &astContext, VariableStack &variableStack)
+{
+	auto &tokenizer = context.tokenizer;
+
+	const auto position = tokenizer.position();
+
+	if (!tokenizer.testAndSkip<std::string>("("))
+	{
+		tokenizer.seek(position);
+		return std::experimental::nullopt;
+	}
+
+	const auto predicateName = tokenizer.getIdentifier();
+
+	ast::Predicate::Arguments arguments;
+
+	/*const auto matchingPredicate = std::find_if(predicates.cbegin(), predicates.cend(),
+		[&](const auto &predicate)
+		{
+			return predicate->name() == predicateName;
+		});
+
+	if (matchingPredicate == predicates.cend())
+	{
+		tokenizer.seek(position);
+		return std::experimental::nullopt;
+	}
+
+	auto predicate = PredicatePointer(new Predicate);
+
+	predicate->m_name = predicateName;*/
+
+	tokenizer.skipWhiteSpace();
+
+	// Parse arguments
+	while (tokenizer.currentCharacter() != ')')
+	{
+		// Parse variables
+		if (tokenizer.currentCharacter() == '?')
+			arguments.emplace_back(parseVariable(context, variableStack));
+		// Parse constants
+		else
+			arguments.emplace_back(parseConstant(context, astContext));
+
+		tokenizer.skipWhiteSpace();
+	}
+
+	//const auto &predicates = astContext.domain->predicates;
+
+	// TODO: check that signature matches one of the declared ones
+
+	tokenizer.expect<std::string>(")");
+
+	// TODO: add matching predicate declaration
+	return std::make_unique<ast::Predicate>(std::move(arguments), nullptr);
+}
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+}
+}

lib/pddlparse/src/pddlparse/detail/parsing/Type.cpp

@@ -0,0 +1,53 @@
+#include <pddlparse/detail/parsing/Type.h>
+
+#include <pddlparse/ParserException.h>
+#include <pddlparse/detail/parsing/Expressions.h>
+#include <pddlparse/detail/parsing/PrimitiveType.h>
+
+namespace pddl
+{
+namespace detail
+{
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+//
+// Type
+//
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+ast::Type parseType(Context &context, ast::Domain &domain)
+{
+	auto &tokenizer = context.tokenizer;
+
+	tokenizer.skipWhiteSpace();
+
+	if (tokenizer.testAndReturn<char>('('))
+	{
+		// TODO: put into Type parsing unit
+		// TODO: refactor
+		auto p =
+			[](auto &context, auto &astContext, auto &) -> std::experimental::optional<ast::PrimitiveTypePointer>
+			{
+				return parsePrimitiveType(context, *astContext.domain);
+			};
+
+		// TODO: refactor
+		ASTContext astContext(domain);
+		VariableStack variableStack;
+
+		auto eitherType = parseEither<ast::PrimitiveTypePointer>(context, astContext, variableStack, p);
+
+		if (!eitherType)
+			throw ParserException(tokenizer.location(), "expected primitive type or “either” expression");
+
+		return std::move(eitherType.value());
+	}
+
+	// If existing, parse and store parent type
+	return parsePrimitiveType(context, domain);
+}
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+}
+}

lib/pddlparse/src/pddlparse/detail/parsing/Unsupported.cpp

@@ -0,0 +1,35 @@
+#include <pddlparse/detail/parsing/Unsupported.h>
+
+#include <pddlparse/AST.h>
+#include <pddlparse/detail/parsing/Utils.h>
+
+namespace pddl
+{
+namespace detail
+{
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+//
+// Unsupported
+//
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+ast::UnsupportedPointer parseUnsupported(Context &context)
+{
+	auto &tokenizer = context.tokenizer;
+
+	tokenizer.expect<std::string>("(");
+
+	auto expressionType = tokenizer.getIdentifier();
+
+	context.warningCallback(tokenizer.location(), "expression type “" + expressionType + "” currently unsupported in this context");
+
+	skipSection(tokenizer);
+
+	return std::make_unique<ast::Unsupported>(std::move(expressionType));
+}
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+}
+}

lib/pddlparse/src/pddlparse/detail/parsing/Variable.cpp

@@ -0,0 +1,36 @@
+#include <pddlparse/detail/parsing/Variable.h>
+
+#include <pddlparse/AST.h>
+#include <pddlparse/ParserException.h>
+
+namespace pddl
+{
+namespace detail
+{
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+//
+// Predicate
+//
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+ast::VariablePointer parseVariable(Context &context, VariableStack &variableStack)
+{
+	auto &tokenizer = context.tokenizer;
+
+	tokenizer.expect<std::string>("?");
+
+	const auto variableName = tokenizer.getIdentifier();
+
+	auto variableDeclaration = variableStack.findVariableDeclaration(variableName);
+
+	if (!variableDeclaration)
+		throw ParserException(tokenizer.location(), "undeclared variable “" + variableName + "”");
+
+	return std::make_unique<ast::Variable>(variableDeclaration.value());
+}
+
+////////////////////////////////////////////////////////////////////////////////////////////////////
+
+}
+}

lib/pddlparse/src/pddlparse/detail/parsing/VariableDeclaration.cpp

@@ -3,7 +3,7 @@
 #include <pddlparse/AST.h>
 #include <pddlparse/ParserException.h>
 #include <pddlparse/detail/ASTCopy.h>
-#include <pddlparse/detail/parsing/PrimitiveType.h>
+#include <pddlparse/detail/parsing/Type.h>
 
 namespace pddl
 {
@@ -48,10 +48,8 @@ ast::VariableDeclarations parseVariableDeclarations(Context &context, ast::Domai
 		if (!tokenizer.testAndSkip<char>('-'))
 			continue;
 
-		// TODO: reimplement parsing “either” types
-
-		// If existing, parse and store parent type
-		auto parentType = parsePrimitiveType(context, domain);
+		auto parentType = parseType(context, domain);
+		parentType = ast::deepCopy(parentType);
 
 		for (size_t i = inheritanceIndex; i < variableDeclarations.size(); i++)
 			variableDeclarations[i]->type = ast::deepCopy(parentType);