#include <stdio.h>
#include <lyn/ast.h>

#define dump(depth, fmt, ...)                   \
	do {                                    \
		printf("//%*s", 2 * depth, ""); \
		printf(fmt,##__VA_ARGS__);      \
	} while (0)

void ast_dump(int depth, struct lyn_value val)
{
	switch (val.kind) {
	case LYN_ID: dump(depth, "%s\n", val.s); return;
	case LYN_STR: dump(depth, "\"%s\"\n", val.s); return;
	case LYN_INT: dump(depth, "%lld\n", val.i); return;
	case LYN_FLOAT: dump(depth, "%f\n", val.d); return;
	case LYN_CMD:
			dump(depth, "CMD\n");
			foreach_vec(ci, val.args) {
				struct lyn_value v = vect_at(struct lyn_value, val.args, ci);
				ast_dump(depth + 1, v);
			}

			return;

	case LYN_APPLY:
			dump(depth, "APPLY\n");
			foreach_vec(ai, val.args) {
				struct lyn_value v = vect_at(struct lyn_value, val.args, ai);
				ast_dump(depth + 1, v);
			}
			return;

	case LYN_GROUP:
			dump(depth, "GROUP\n");
			foreach_vec(gi, val.args) {
				struct lyn_value v = vect_at(struct lyn_value, val.args, gi);
				ast_dump(depth + 1, v);
			}
			return;

	default: abort();
	}
}