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

added startCat

Browse Source
This commit is contained in:
krangelov
2021-08-12 12:39:05 +02:00
parent 01db0224be
commit 39f38ed0e2
5 changed files with 59 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -161,13 +161,47 @@ PgfText *pgf_abstract_name(PgfPGF* pgf)
}
PGF_API
void pgf_iter_categories(PgfPGF* pgf, PgfItor* itor)
void pgf_iter_categories(PgfPGF *pgf, PgfItor *itor)
{
DB_scope scope(pgf, READER_SCOPE);
namespace_iter(pgf->get_root<PgfPGFRoot>()->abstract.cats, itor);
}
PGF_API
uintptr_t pgf_start_cat(PgfPGF *pgf)
{
DB_scope scope(pgf, READER_SCOPE);
PgfText *startcat = (PgfText *)
alloca(sizeof(PgfText)+9);
startcat->size = 8;
strcpy(startcat->text, "startcat");
ref<PgfFlag> flag =
namespace_lookup(pgf->get_root<PgfPGFRoot>()->abstract.aflags, startcat);
if (flag != 0) {
switch (ref<PgfLiteral>::get_tag(flag->value)) {
case PgfLiteralStr::tag: {
auto lstr = ref<PgfLiteralStr>::untagged(flag->value);
uintptr_t type = pgf_read_type(&lstr->val, pgf->u);
if (type == 0)
break;
return type;
}
}
}
PgfText *s = (PgfText *)
alloca(sizeof(PgfText)+2);
s->size = 1;
s->text[0] = 'S';
s->text[1] = 0;
return pgf->u->dtyp(0,NULL,s,0,NULL);
}
PGF_API
PgfTypeHypo *pgf_category_context(PgfPGF *pgf, PgfText *catname, size_t *n_hypos)
{

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

@@ -157,10 +157,13 @@ PGF_API_DECL
void pgf_free(PgfPGF *pgf);
PGF_API_DECL
PgfText *pgf_abstract_name(PgfPGF* pgf);
PgfText *pgf_abstract_name(PgfPGF *pgf);
PGF_API_DECL
void pgf_iter_categories(PgfPGF* pgf, PgfItor* itor);
void pgf_iter_categories(PgfPGF *pgf, PgfItor *itor);
PGF_API_DECL
uintptr_t pgf_start_cat(PgfPGF *pgf);
PGF_API_DECL PgfTypeHypo*
pgf_category_context(PgfPGF *pgf, PgfText *catname, size_t *n_hypos);