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

started on the Haskell binding

Browse Source
This commit is contained in:
krangelov
2021-08-05 17:01:49 +02:00
parent 54421492b2
commit 5e320943c9
9 changed files with 55 additions and 4339 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,11 +1,21 @@
#include "data.h"
#include "reader.h"
static void
pgf_exn_clear(PgfExn* err)
{
err->type = PGF_EXN_NONE;
err->code = 0;
err->msg = NULL;
}
PGF_API
PgfPGF *pgf_read(const char* fpath, PgfExn* err)
{
PgfPGF *pgf = NULL;
pgf_exn_clear(err);
try {
std::string fpath_n = fpath;
size_t len = fpath_n.length();
@@ -30,11 +40,11 @@ PgfPGF *pgf_read(const char* fpath, PgfExn* err)
return pgf;
} catch (std::system_error& e) {
err->type = "system_error";
err->msg = NULL;
err->type = PGF_EXN_SYSTEM_ERROR;
err->code = e.code().value();
} catch (pgf_error& e) {
err->type = "pgf_error";
err->msg = e.what();
err->type = PGF_EXN_PGF_ERROR;
err->msg = strdup(e.what());
}
if (pgf != NULL)
@@ -49,3 +59,9 @@ void PgfPGF::set_root() {
root->minor_version = minor_version;
DB::set_root(root);
}
PGF_API
void pgf_free(PgfPGF *pgf)
{
delete pgf;
}