GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 11:19:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

bugfixes for showContext & showType

Browse Source
This commit is contained in:
krangelov
2021-09-14 19:54:38 +02:00
parent a7bf47cb87
commit 9fe6ee3cce
4 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/c/pgf/pgf.cxx
View File

@@ -476,7 +476,7 @@ PgfText *pgf_print_context(size_t n_hypos, PgfTypeHypo *hypos,
for (size_t i = 0; i < n_hypos; i++) {
if (i > 0)
printer.puts(" ");
printer.hypo(&hypos[i]);
printer.hypo(&hypos[i],4);
}
return printer.get_text();
}

13
src/runtime/c/pgf/printer.cxx
View File

@@ -380,23 +380,24 @@ PgfLiteral PgfPrinter::lstr(PgfText *v)
return 0;
}
void PgfPrinter::hypo(PgfTypeHypo *hypo)
void PgfPrinter::hypo(PgfTypeHypo *hypo, int prio)
{
if (textcmp(hypo->cid, &wildcard) == 0) {
prio = 1;
this->prio = prio;
m->match_type(this, hypo->type);
} else {
push_variable(hypo->cid);
puts("(");
if (hypo->bind_type == PGF_BIND_TYPE_IMPLICIT)
puts("{");
puts(&ctxt->name);
puts(hypo->cid);
if (hypo->bind_type == PGF_BIND_TYPE_IMPLICIT)
puts("}");
puts(" : ");
this->prio = 0;
m->match_type(this, hypo->type);
puts(")");
push_variable(hypo->cid);
}
}
@@ -411,7 +412,7 @@ PgfType PgfPrinter::dtyp(size_t n_hypos, PgfTypeHypo *hypos,
PgfPrintContext *save_ctxt = ctxt;
for (int i = 0; i < n_hypos; i++) {
hypo(&hypos[i]);
hypo(&hypos[i],1);
puts(" -> ");
}

2
src/runtime/c/pgf/printer.h
View File

@@ -50,7 +50,7 @@ public:
PgfText *get_text();
void hypo(PgfTypeHypo *hypo);
void hypo(PgfTypeHypo *hypo, int prio);
virtual PgfExpr eabs(PgfBindType btype, PgfText *name, PgfExpr body);
virtual PgfExpr eapp(PgfExpr fun, PgfExpr arg);