GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-30 14:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added readTriple in libsg and its Haskell binding

Browse Source
This commit is contained in:
krasimir
2015-11-25 10:37:13 +00:00
parent 55cfea35eb
commit 79ea4af960
4 changed files with 39 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/runtime/c/pgf/expr.c
View File

@@ -840,7 +840,7 @@ pgf_read_expr(GuIn* in, GuPool* pool, GuExn* err)
int
pgf_read_expr_tuple(GuIn* in,
int n_exprs, PgfExpr exprs[],
size_t n_exprs, PgfExpr exprs[],
GuPool* pool, GuExn* err)
{
GuPool* tmp_pool = gu_new_pool();
@@ -1332,6 +1332,19 @@ pgf_print_type(PgfType *type, PgfPrintContext* ctxt, int prec,
}
}
void
pgf_print_expr_tuple(size_t n_exprs, PgfExpr exprs[], PgfPrintContext* ctxt,
GuOut* out, GuExn* err)
{
gu_putc('<', out, err);
for (size_t i = 0; i < n_exprs; i++) {
if (i > 0)
gu_putc(',', out, err);
pgf_print_expr(exprs[i], ctxt, 0, out, err);
}
gu_putc('>', out, err);
}
bool
pgf_type_eq(PgfType* t1, PgfType* t2)
{