From 102d9e2c8655cf4f940c0d7c6628db455cb2a8ea Mon Sep 17 00:00:00 2001
From: "Sven M. Hallberg" <pesco@khjk.org>
Date: Fri, 25 Jan 2013 19:24:04 +0100
Subject: [PATCH] add h_seq_elements accessor
---
examples/glue.c | 7 +++++++
examples/glue.h | 5 ++++-
2 files changed, 11 insertions(+), 1 deletion(-)
diff --git a/examples/glue.c b/examples/glue.c
index de5f1e7b..02087d4c 100644
--- a/examples/glue.c
+++ b/examples/glue.c
@@ -121,6 +121,13 @@ size_t h_seq_len(const HParsedToken *p)
return p->seq->used;
}
+HParsedToken **h_seq_elements(const HParsedToken *p)
+{
+ assert(p != NULL);
+ assert(p->token_type == TT_SEQUENCE);
+ return p->seq->elements;
+}
+
HParsedToken *h_seq_index(const HParsedToken *p, size_t i)
{
assert(p != NULL);
diff --git a/examples/glue.h b/examples/glue.h
index 568cbda0..b3866251 100644
--- a/examples/glue.h
+++ b/examples/glue.h
@@ -77,8 +77,11 @@ uint64_t h_cast_uint (const HParsedToken *p);
// Return the length of a sequence.
size_t h_seq_len(const HParsedToken *p);
+// Access a sequence's element array.
+HParsedToken **h_seq_elements(const HParsedToken *p);
+
// Access a sequence element by index.
-HParsedToken * h_seq_index(const HParsedToken *p, size_t i);
+HParsedToken *h_seq_index(const HParsedToken *p, size_t i);
// Convenience functions combining index access and h_cast_*.
HCountedArray *h_seq_index_seq (const HParsedToken *p, size_t i);
--
GitLab