path: root/src/runtime/c/pgf/graphviz.c

#include "data.h"
#include "graphviz.h"
#include "linearizer.h"

PgfGraphvizOptions pgf_default_graphviz_options[1] =
  { {0, 0, 0, 1, NULL, NULL, NULL, NULL, NULL, NULL} } ;

static int
pgf_graphviz_abstract_tree_(PgfPGF* pgf, PgfExpr expr, int *pid,
                            PgfGraphvizOptions* opts,
                            GuOut* out, GuExn* err)
{
	int id = -1;

	GuVariantInfo ei = gu_variant_open(expr);
	switch (ei.tag) {
	case PGF_EXPR_ABS:
		gu_impossible();
		break;
	case PGF_EXPR_APP: {
		PgfExprApp* app = ei.data;
		id = pgf_graphviz_abstract_tree_(pgf, app->fun, pid, opts, out, err);
		int arg_id = pgf_graphviz_abstract_tree_(pgf, app->arg, pid, opts, out, err);
		gu_printf(out, err, "n%d -- n%d", id, arg_id);
		if (opts->nodeEdgeStyle != NULL && *opts->nodeEdgeStyle && opts->nodeColor != NULL && *opts->nodeColor)
			gu_printf(out, err, " [style = \"%s\", color = \"%s\"]", opts->nodeEdgeStyle, opts->nodeColor);
		else if (opts->nodeEdgeStyle != NULL && *opts->nodeEdgeStyle)
				gu_printf(out, err, " [style = \"%s\"]", opts->nodeEdgeStyle);
		else if (opts->nodeColor != NULL && *opts->nodeColor)
				gu_printf(out, err, " [color = \"%s\"]", opts->nodeColor);
		gu_printf(out, err, "\n", id, arg_id);
		break;
	}
	case PGF_EXPR_LIT: {
		PgfExprLit* lit = ei.data;
		id = (*pid)++;
		gu_printf(out, err, "n%d[label = \"", id);
		
		GuVariantInfo ei = gu_variant_open(lit->lit);
		switch (ei.tag) {
		case PGF_LITERAL_STR: {
			PgfLiteralStr* lit = ei.data;
			gu_puts("\\\"", out, err);
			gu_string_write(lit->val, out, err);
			gu_puts("\\\"", out, err);
			break;
		}
		case PGF_LITERAL_INT: {
			PgfLiteralInt* lit = ei.data;
			gu_printf(out, err, "%d", lit->val);
			break;
		}
		case PGF_LITERAL_FLT: {
			PgfLiteralFlt* lit = ei.data;
			gu_printf(out, err, "%lf", lit->val);
			break;
		}
		default:
			gu_impossible();
		}

		gu_puts("\", style = \"solid\", shape = \"plaintext\"]\n", out, err);
		break;
	}
	case PGF_EXPR_META:
		id = (*pid)++;
		gu_printf(out, err, "n%d[label = \"?\", style = \"solid\", shape = \"plaintext\"]\n", id);
		break;
	case PGF_EXPR_FUN: {
		PgfExprFun* fun = ei.data;
		id = (*pid)++;
		if (opts->noFun && opts->noCat) {
			gu_printf(out, err, "n%d[shape = \"point\"]\n", id);
		} else {
			gu_printf(out, err, "n%d[label = \"", id);
			PgfType* ty = (opts->noCat) ? NULL : pgf_function_type(pgf, fun->fun);
			if (!opts->noFun)
				gu_string_write(fun->fun, out, err);
			if (!opts->noFun && ty != NULL)
				gu_puts(" : ", out,err);
			if (ty != NULL)
				gu_string_write(ty->cid, out, err);
			gu_puts("\", shape = \"plaintext\", style = \"solid\"", out, err);
			if (opts->nodeColor != NULL && *opts->nodeColor)
				gu_printf(out, err, ", fontcolor = \"%s\"", opts->nodeColor);
			if (opts->nodeFont != NULL && *opts->nodeFont)
				gu_printf(out, err, ", fontname = \"%s\"", opts->nodeFont);
			gu_puts("]\n", out, err);
		}
		break;
	}
	case PGF_EXPR_VAR:
		gu_impossible();
		break;
	case PGF_EXPR_TYPED: {
		PgfExprTyped* typed = ei.data;
		id = pgf_graphviz_abstract_tree_(pgf, typed->expr, pid, opts, out, err);
		break;
	}
	case PGF_EXPR_IMPL_ARG: {
		PgfExprImplArg* implarg = ei.data;
		id = pgf_graphviz_abstract_tree_(pgf, implarg->expr, pid, opts, out, err);
		break;
	}
	default:
		gu_impossible();
	}

	return id;
}

PGF_API void
pgf_graphviz_abstract_tree(PgfPGF* pgf, PgfExpr expr, PgfGraphvizOptions* opts, GuOut* out, GuExn* err)
{
	int id = 0;

	gu_puts("graph {\n", out, err);
	pgf_graphviz_abstract_tree_(pgf, expr, &id, opts, out, err);
	gu_puts("}", out, err);
}

typedef struct PgfParseNode PgfParseNode;
	
struct PgfParseNode {
	int id;
	PgfParseNode* parent;
	GuString fun;
	GuString label;
};

typedef struct {
	PgfLinFuncs* funcs;

	GuPool* pool;
	GuOut* out;
	GuExn* err;

	PgfParseNode* parent;
	size_t level;
	GuBuf* internals;
	GuBuf* leaves;
} PgfBracketLznState;

static void
pgf_bracket_lzn_symbol_token(PgfLinFuncs** funcs, PgfToken tok)
{
	PgfBracketLznState* state = gu_container(funcs, PgfBracketLznState, funcs);

	PgfParseNode* node = gu_new(PgfParseNode, state->pool);
	node->id     = 100000 + gu_buf_length(state->leaves);
	node->parent = state->parent;
	node->fun    = NULL;
	node->label  = tok;
	gu_buf_push(state->leaves, PgfParseNode*, node);
}

static void
pgf_bracket_lzn_begin_phrase(PgfLinFuncs** funcs, PgfCId cat, int fid, GuString ann, PgfCId fun)
{
	PgfBracketLznState* state = gu_container(funcs, PgfBracketLznState, funcs);

	if (strcmp(cat, "_") == 0)
		return;
	
	state->level++;

	GuBuf* level;
	if (state->level < gu_buf_length(state->internals))
		level = gu_buf_get(state->internals, GuBuf*, state->level);
	else {
		level = gu_new_buf(PgfParseNode*, state->pool);
		gu_buf_push(state->internals, GuBuf*, level);
	}

	size_t len = gu_buf_length(level);
	for (size_t i = 0; i < len; i++) {
		PgfParseNode* node = gu_buf_get(level, PgfParseNode*, i);
		if (node->id == fid) {
			state->parent = node;
			return;
		}
	}
	
	PgfParseNode* node = gu_new(PgfParseNode, state->pool);
	node->id     = fid;
	node->parent = state->parent;
	node->fun    = fun;
	node->label  = cat;
	gu_buf_push(level, PgfParseNode*, node);

	state->parent = node;
}

static void
pgf_bracket_lzn_end_phrase(PgfLinFuncs** funcs, PgfCId cat, int fid, GuString ann, PgfCId fun)
{
	PgfBracketLznState* state = gu_container(funcs, PgfBracketLznState, funcs);

	if (strcmp(cat, "_") == 0)
		return;

	state->level--;
	state->parent = state->parent->parent;
}

static void
pgf_bracket_lzn_symbol_meta(PgfLinFuncs** funcs, PgfMetaId meta_id)
{
	PgfBracketLznState* state = gu_container(funcs, PgfBracketLznState, funcs);

	PgfParseNode* node = gu_new(PgfParseNode, state->pool);
	node->id     = 100000 + gu_buf_length(state->leaves);
	node->parent = state->parent;
	node->fun    = NULL;
	node->label  = "?";
	gu_buf_push(state->leaves, PgfParseNode*, node);
}

static PgfLinFuncs pgf_bracket_lin_funcs = {
	.symbol_token  = pgf_bracket_lzn_symbol_token,
	.begin_phrase  = pgf_bracket_lzn_begin_phrase,
	.end_phrase    = pgf_bracket_lzn_end_phrase,
	.symbol_ne     = NULL,
	.symbol_bind   = NULL,
	.symbol_capit  = NULL,
	.symbol_meta   = pgf_bracket_lzn_symbol_meta
};

static void
pgf_graphviz_parse_level(GuBuf* level, PgfGraphvizOptions* opts, GuOut* out, GuExn* err)
{
	gu_puts("\n  subgraph {rank=same;\n", out, err);

	size_t len = gu_buf_length(level);
	
	if (len > 1)
		gu_puts("    edge[style=invis]\n", out, err);

	for (size_t i = 0; i < len; i++) {
		PgfParseNode* node = gu_buf_get(level, PgfParseNode*, i);
		if (node->fun != NULL) {
			gu_printf(out, err, "    n%d[label=\"", node->id);
			if (!opts->noFun)
				gu_string_write(node->fun, out, err);
			if (!opts->noFun && !opts->noCat)
				gu_puts(" : ", out, err);
			if (!opts->noCat)
				gu_string_write(node->label, out, err);
			gu_puts("\"", out, err);
			if (opts->nodeColor != NULL && *opts->nodeColor)
				gu_printf(out, err, ", fontcolor = \"%s\"", opts->nodeColor);
			if (opts->nodeFont != NULL && *opts->nodeFont)
				gu_printf(out, err, ", fontname = \"%s\"", opts->nodeFont);
			gu_puts("]\n", out, err);
		} else {
			if (opts->noLeaves)
				gu_printf(out, err, "    n%d[label=\"\"]\n", node->id);
			else {
				gu_printf(out, err, "    n%d[label=\"%s\"", node->id, node->label);
				if (opts->leafColor != NULL && *opts->leafColor)
					gu_printf(out, err, ", fontcolor = \"%s\"", opts->leafColor);
				if (opts->leafFont != NULL && *opts->leafFont)
					gu_printf(out, err, ", fontname = \"%s\"", opts->leafFont);
				gu_puts("]\n", out, err);
			}
		}
	}
	
	if (len > 1) {
		for (size_t i = 0; i < len; i++) {
			PgfParseNode* node = gu_buf_get(level, PgfParseNode*, i);		
		
			gu_puts((i == 0) ? "    " : " -- ", out, err);
			gu_printf(out, err, "n%d", node->id);
		}
		gu_puts("\n", out, err);
	}
	
	gu_puts("  }\n", out, err);

	for (size_t i = 0; i < len; i++) {
		PgfParseNode* node = gu_buf_get(level, PgfParseNode*, i);		
		if (node->parent != NULL) {
			gu_printf(out, err, "  n%d -- n%d", node->parent->id, node->id);

			GuString edgeStyle, color;
			if (node->fun == NULL) {
				edgeStyle = opts->leafEdgeStyle;
				color     = opts->leafColor;
			} else {
				edgeStyle = opts->nodeEdgeStyle;
				color     = opts->nodeColor;
			}

			if (edgeStyle != NULL && *edgeStyle && color != NULL && *color)
				gu_printf(out, err, " [style = \"%s\", color = \"%s\"]", edgeStyle, color);
			else if (edgeStyle != NULL && *edgeStyle)
				gu_printf(out, err, " [style = \"%s\"]", edgeStyle);
			else if (color != NULL && *color)
				gu_printf(out, err, " [color = \"%s\"]", color);

			gu_putc('\n', out, err);			
		}
	}
}

PGF_API void
pgf_graphviz_parse_tree(PgfConcr* concr, PgfExpr expr, PgfGraphvizOptions* opts, GuOut* out, GuExn* err)
{
	GuPool* tmp_pool = gu_local_pool();
	
	GuEnum* cts = 
		pgf_lzr_concretize(concr, expr, err, tmp_pool);
	if (!gu_ok(err)) {
		gu_pool_free(tmp_pool);
		return;
	}

	PgfCncTree ctree = gu_next(cts, PgfCncTree, tmp_pool);
	if (gu_variant_is_null(ctree)) {
		gu_pool_free(tmp_pool);
		return;
	}

	gu_puts("graph {\n", out, err);
	gu_puts("  node[shape=plaintext]\n", out, err);

	PgfBracketLznState state;
	state.funcs = &pgf_bracket_lin_funcs;
	state.pool = tmp_pool;
	state.out = out;
	state.err = err;

	state.parent    = NULL;
	state.level     = -1;
	state.internals = gu_new_buf(GuBuf*, tmp_pool);
	state.leaves    = gu_new_buf(PgfParseNode*, tmp_pool);
	pgf_lzr_linearize(concr, ctree, 0, &state.funcs, tmp_pool);

	size_t len = gu_buf_length(state.internals);
	for (size_t i = 0; i < len; i++) {
		GuBuf* level = gu_buf_get(state.internals, GuBuf*, i);
		pgf_graphviz_parse_level(level, opts, out, err);
	}
	pgf_graphviz_parse_level(state.leaves, opts, out, err);

	gu_puts("}", out, err);

	gu_pool_free(tmp_pool);
}


PGF_API_DECL void
pgf_graphviz_word_alignment(PgfConcr** concrs, size_t n_concrs, PgfExpr expr, PgfGraphvizOptions* opts, GuOut* out, GuExn* err)
{
	GuPool* tmp_pool = gu_local_pool();
	
	gu_puts("digraph {\n", out, err);
	gu_puts("rankdir=LR ;\n", out, err);
	gu_puts("node [shape = record", out, err);
	if (opts->leafFont != NULL && *opts->leafFont)
		gu_printf(out, err, ", fontname = \"%s\"", opts->leafFont);
	if (opts->leafColor != NULL && *opts->leafColor)
		gu_printf(out, err, ", fontcolor = \"%s\"", opts->leafColor);
	gu_puts("] ;\n\n", out, err);
	if (opts->leafEdgeStyle != NULL && *opts->leafEdgeStyle)
		gu_printf(out, err, "edge [style = %s];\n", opts->leafEdgeStyle);
	gu_puts("\n", out, err);

	GuSeq* alignment = NULL;
	GuSeq* last_alignment = NULL;
	for (size_t i = 0; i < n_concrs; i++) {
		alignment = pgf_align_words(concrs[i], expr, err, tmp_pool);
		gu_printf(out, err, "  struct%d[label=\"", i);

		size_t n_tokens = gu_seq_length(alignment);
		for (size_t j = 0; j < n_tokens; j++) {
			PgfAlignmentPhrase* phrase = gu_seq_get(alignment, PgfAlignmentPhrase*, j);
			if (j > 0)
				gu_puts(" | ", out, err);
			gu_printf(out, err, "<n%d> %s", j, phrase->phrase);
		}

		gu_puts("\"] ;\n", out, err);

		if (last_alignment != NULL) {
			size_t n_last_tokens = gu_seq_length(last_alignment);

			for (size_t j = 0; j < n_tokens; j++) {
				PgfAlignmentPhrase* phrase = gu_seq_get(alignment, PgfAlignmentPhrase*, j);

				for (size_t k = 0; k < phrase->n_fids; k++) {
					int fid = phrase->fids[k];

					for (size_t l = 0; l < n_last_tokens; l++) {
						PgfAlignmentPhrase* last_phrase = gu_seq_get(last_alignment, PgfAlignmentPhrase*, l);
						
						for (size_t r = 0; r < last_phrase->n_fids; r++) {
							int last_fid = last_phrase->fids[r];
							if (fid == last_fid) {
								gu_printf(out, err, "struct%d:n%d:e -> struct%d:n%d:w ;\n",i,j,i-1,l);
							}
						}
					}
				}
			}
		}

		last_alignment = alignment;
	}

	gu_puts("}", out, err);

	gu_pool_free(tmp_pool);
}