From 3fefa204bc3b1d4c7f9e7b59d13d03d6da1598c4 Mon Sep 17 00:00:00 2001
From: Dan Hirsch <thequux@upstandinghackers.com>
Date: Fri, 1 Nov 2013 18:00:50 -0400
Subject: [PATCH] We declared some functions that were never implemented.
Implement them.
---
src/hammer.c | 4 ++++
src/hammer.h | 3 ++-
src/parsers/indirect.c | 4 ++++
3 files changed, 10 insertions(+), 1 deletion(-)
diff --git a/src/hammer.c b/src/hammer.c
index 7fc80dba..2456bdce 100644
--- a/src/hammer.c
+++ b/src/hammer.c
@@ -62,6 +62,10 @@ HParseResult* h_parse__m(HAllocator* mm__, const HParser* parser, const uint8_t*
return backends[parser->backend]->parse(mm__, parser, &input_stream);
}
+void h_parse_result_free__m(HAllocator *alloc, HParseResult *result) {
+ h_parse_result_free(result);
+}
+
void h_parse_result_free(HParseResult *result) {
if(result == NULL) return;
h_delete_arena(result->arena);
diff --git a/src/hammer.h b/src/hammer.h
index 0175142e..c70c7632 100644
--- a/src/hammer.h
+++ b/src/hammer.h
@@ -126,6 +126,7 @@ typedef struct HCFChoice_ HCFChoice;
typedef struct HRVMProg_ HRVMProg;
typedef struct HParserVtable_ HParserVtable;
+// TODO: Make this internal
typedef struct HParser_ {
const HParserVtable *vtable;
HParserBackend backend;
@@ -586,7 +587,7 @@ char* h_write_result_unamb(const HParsedToken* tok);
* Format token to the given output stream. Indent starting at
* [indent] spaces, with [delta] spaces between levels.
*/
-HAMMER_FN_DECL(void, h_pprint, FILE* stream, const HParsedToken* tok, int indent, int delta);
+void h_pprint(FILE* stream, const HParsedToken* tok, int indent, int delta);
/**
* Build parse tables for the given parser backend. See the
diff --git a/src/parsers/indirect.c b/src/parsers/indirect.c
index 2217a202..c91eaab5 100644
--- a/src/parsers/indirect.c
+++ b/src/parsers/indirect.c
@@ -21,6 +21,10 @@ static const HParserVtable indirect_vt = {
.compile_to_rvm = h_not_regular,
};
+void h_bind_indirect__m(HAllocator *mm__, HParser* indirect, const HParser* inner) {
+ h_bind_indirect(indirect, inner);
+}
+
void h_bind_indirect(HParser* indirect, const HParser* inner) {
assert_message(indirect->vtable == &indirect_vt, "You can only bind an indirect parser");
indirect->env = (void*)inner;
--
GitLab