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

added commands create cat & drop cat

Browse Source
This commit is contained in:
krangelov
2021-12-23 19:21:55 +01:00
parent f03779dfed
commit b000b80159
9 changed files with 155 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
src/runtime/c/pgf/expr.cxx
View File

@@ -1025,6 +1025,72 @@ exit:
return type;
}
PgfTypeHypo *PgfExprParser::parse_context(size_t *p_n_hypos)
{
size_t n_hypos = 0;
PgfTypeHypo *hypos = NULL;
for (;;) {
if (token_tag == PGF_TOKEN_LPAR) {
token();
size_t n_start = n_hypos;
if ((token_tag == PGF_TOKEN_IDENT &&
(lookahead(',') ||
lookahead(':'))) ||
(token_tag == PGF_TOKEN_LCURLY) ||
(token_tag == PGF_TOKEN_WILD)) {
if (!parse_hypos(&n_hypos, &hypos))
goto exit;
if (token_tag != PGF_TOKEN_COLON)
goto exit;
token();
} else {
hypos = (PgfTypeHypo*) realloc(hypos, sizeof(PgfTypeHypo)*(n_hypos+1));
PgfTypeHypo *bt = &hypos[n_hypos];
bt->bind_type = PGF_BIND_TYPE_EXPLICIT;
bt->cid = mk_wildcard();
bt->type = 0;
n_hypos++;
}
size_t n_end = n_hypos;
PgfType type = parse_type();
if (type == 0)
goto exit;
if (token_tag != PGF_TOKEN_RPAR)
goto exit;
token();
for (size_t i = n_start; i < n_end; i++) {
hypos[i].type = type;
}
} else if (token_tag == PGF_TOKEN_IDENT) {
hypos = (PgfTypeHypo*) realloc(hypos, sizeof(PgfTypeHypo)*(n_hypos+1));
PgfTypeHypo *bt = &hypos[n_hypos];
bt->bind_type = PGF_BIND_TYPE_EXPLICIT;
bt->cid = mk_wildcard();
bt->type = u->dtyp(0,NULL,token_value,0,NULL);
n_hypos++;
token();
} else {
goto exit;
}
}
exit:
*p_n_hypos = n_hypos;
return hypos;
}
PgfExpr PgfExprProbEstimator::eabs(PgfBindType bind_type, PgfText *name, PgfExpr body)
{
m->match_expr(this, body);

1
src/runtime/c/pgf/expr.h
View File

@@ -185,6 +185,7 @@ public:
bool parse_hypos(size_t *n_hypos, PgfTypeHypo **hypos);
PgfType parse_type();
PgfTypeHypo *parse_context(size_t *p_n_hypos);
bool eof();

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

@@ -718,6 +718,22 @@ PgfType pgf_read_type(PgfText *input, PgfUnmarshaller *u)
return res;
}
PGF_API
PgfTypeHypo *pgf_read_context(PgfText *input, PgfUnmarshaller *u, size_t *n_hypos)
{
PgfExprParser parser(input, u);
PgfTypeHypo *res = parser.parse_context(n_hypos);
if (!parser.eof()) {
for (size_t i = 0; i < *n_hypos; i++) {
free(res[i].cid);
u->free_ref(res[i].type);
}
*n_hypos = (size_t) -1;
return NULL;
}
return res;
}
PGF_API
PgfText *pgf_print_category_internal(object o)
{

5
src/runtime/c/pgf/pgf.h
View File

@@ -376,7 +376,10 @@ PgfText *pgf_print_context(size_t n_hypos, PgfTypeHypo *hypos,
PGF_API_DECL
PgfType pgf_read_type(PgfText *input, PgfUnmarshaller *u);
PGF_API
PGF_API_DECL
PgfTypeHypo *pgf_read_context(PgfText *input, PgfUnmarshaller *u, size_t *n_hypos);
PGF_API_DECL
PgfText *pgf_print_start_cat_internal(PgfDB *db, PgfRevision revision, PgfExn *err);
PGF_API_DECL