add hg_dict_clear

2 files changed, 21 insertions, 1 deletions

diff --git a/hieroglyph/hgdict.c b/hieroglyph/hgdict.c
index 7115bb9..94e6281 100644
--- a/hieroglyph/hgdict.c
+++ b/hieroglyph/hgdict.c
@@ -1105,10 +1105,29 @@ hg_dict_remove(hg_dict_t  *dict,
 }
 
 /**
+ * hg_dict_clear:
+ * @dict:
+ *
+ * FIXME
+ *
+ * Returns:
+ */
+hg_bool_t
+hg_dict_clear(hg_dict_t *dict)
+{
+	hg_return_val_if_fail (dict != NULL, FALSE, HG_e_typecheck);
+	hg_return_val_if_fail (dict->o.type == HG_TYPE_DICT, FALSE, HG_e_typecheck);
+
+	dict->qroot = Qnil;
+	dict->length = 0;
+
+	return TRUE;
+}
+
+/**
  * hg_dict_lookup:
  * @dict:
  * @qkey:
- * @error:
  *
  * FIXME
  *
diff --git a/hieroglyph/hgdict.h b/hieroglyph/hgdict.h
index fff1597..a0acb28 100644
--- a/hieroglyph/hgdict.h
+++ b/hieroglyph/hgdict.h
@@ -72,6 +72,7 @@ hg_bool_t           hg_dict_add                   (hg_dict_t               *dict
                                                    hg_bool_t                force);
 hg_bool_t           hg_dict_remove                (hg_dict_t               *dict,
                                                    hg_quark_t               qkey);
+hg_bool_t           hg_dict_clear                 (hg_dict_t               *dict);
 hg_quark_t          hg_dict_lookup                (hg_dict_t               *dict,
                                                    hg_quark_t               qkey);
 hg_usize_t          hg_dict_length                (hg_dict_t               *dict);