tests.cpp
No OneTemporary
Actions

Subscribers

None

File Metadata

	#include "Scanner.h"
	#include "Parser.h"
	#include "ast.h"
	#include <memory>
	#include <iostream>
	#include "cfgpass.h"
	#include "clasplayer.h"
	#include "functiontagspass.h"
	#include <sstream>

	using namespace std;

	void testParser_1()
	{
	shared_ptr<Scanner> scanner(new Scanner(L"scripts/input.xreate"));
	shared_ptr<Parser> parser(new Parser(scanner.get()));
	parser->Parse();
	flush(cout);

	AST& root = parser->root;
	LLVMLayer l;

	root.compile(l);
	root.run(l);
	}

	void testClasp2()
	{
	shared_ptr<Scanner> scanner(new Scanner(L"scripts/input.xreate"));
	shared_ptr<Parser> parser(new Parser(scanner.get()));
	parser->Parse();
	flush(cout);

	if (parser->errors->count)
	{
	cout << "Found " << parser->errors->count << " errors. Stop" << endl;
	exit(1);
	}

	AST& root = parser->root;
	ClaspLayer clasp;

	FunctionTagsPass(root).run(clasp);

	CFGPass(root).run(clasp);
	clasp.addRule(":- call(X, Y), tag(Y, unsafe), not tag(X, unsafe), function(X), function(Y).");

	clasp.run();
	}

	void tests_ListsMultiply()
	{

	}

	int main()
	{
	testClasp2();

	return 0;
	}