parser_combinatorics.cpp

#include <iostream>
#include <limits>
#include <vector>
#include <string>
#include <ftl/prelude.h>
#include "parser_combinator/parser_combinator.h"

// Workaround because stoi is not unary
int string2int(const std::string& str) {
	return std::stoi(str);
}

template<typename T>
parser<T> option(parser<T> p, T&& t) {
	using ftl::operator|;

	return p | ftl::monad<parser<T>>::pure(std::forward<T>(t));
}

parser<int> parseNatural() {
	using ftl::operator%;

	return string2int % many1(oneOf("0123456789"));
}

parser<std::string> whitespace() {
	return many1(oneOf(" \t\r\n"));
}

std::vector<int> cons(int n, std::vector<int> v) {
	v.insert(v.begin(), n);
	return v;
}

parser<std::vector<int>> parseList() {
	using namespace ftl;

	return curry(cons)
		% (parseNatural())
		* option(
			whitespace() >> lazy(parseList),
			std::vector<int>());
}

parser<std::vector<int>> parseLispList() {
	using namespace ftl;
	return parseChar('(') >> parseList() << parseChar(')');
}

int main(int, char**) {

	using std::string;

	auto parser = parseLispList();
	auto res = run(parser, std::cin);

	while(res.isTypeAt<0>()) {
		std::cout << "expected " << ftl::get<0>(res)->message() << std::endl;

		std::cin.ignore(std::numeric_limits<std::streamsize>::max(), '\n');

		res = run(parser, std::cin);
	}

	for(auto e : *ftl::get<1>(res)) {
		std::cout << e << ", ";
	}

	std::cout << std::endl;

	return 0;
}