GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-19 16:12:52 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix the order in which HOAS variables are shown in pgf_graphviz_abstract_tree

Browse Source
This commit is contained in:
krangelov
2021-12-04 18:09:08 +01:00
parent a3d680f317
commit 0b8a1a0de8
2 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -447,18 +447,15 @@ void PgfPrinter::parg(ref<PgfDTyp> ty, ref<PgfPArg> parg)
puts(")"); puts(")");
} }
void PgfPrinter::bindings(size_t n_vars) void PgfPrinter::bindings(PgfPrintContext *context, size_t n_vars)
{ {
bool first = true; if (context == NULL || n_vars == 0)
PgfPrintContext *context = ctxt; return;
while (context != NULL && n_vars > 0) {
if (!first) { bindings(context->next, n_vars-1);
puts(","); if (n_vars > 1)
first = false; puts(",");
} efun(&context->name);
efun(&context->name);
context = context->next;
}
} }
void PgfPrinter::lvar(size_t var) void PgfPrinter::lvar(size_t var)

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

@@ -27,6 +27,8 @@ class PGF_INTERNAL_DECL PgfPrinter : public PgfUnmarshaller {
// The marshaller for pattern matching // The marshaller for pattern matching
PgfMarshaller *m; PgfMarshaller *m;
void bindings(PgfPrintContext *context, size_t n_vars);
public: public:
PgfPrinter(PgfPrintContext *context, int priority, PgfPrinter(PgfPrintContext *context, int priority,
PgfMarshaller *marshaller); PgfMarshaller *marshaller);
@@ -73,7 +75,9 @@ public:
size_t n_exprs, PgfExpr *exprs); size_t n_exprs, PgfExpr *exprs);
virtual void free_ref(object x); virtual void free_ref(object x);
void bindings(size_t n_vars); void bindings(size_t n_vars) {
bindings(ctxt,n_vars);
}
}; };
#endif #endif