From: Nick Porter <nick@portercomputing.co.uk>
Date: Mon, 9 Jun 2025 15:14:15 +0000 (+0100)
Subject: Define mruby data types and functions for accessing C data pointers
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8c7d77fb1ec0b9f2d26407bf28e975d4a02c054a;p=thirdparty%2Ffreeradius-server.git

Define mruby data types and functions for accessing C data pointers
---

diff --git a/src/modules/rlm_mruby/mruby.c b/src/modules/rlm_mruby/mruby.c
index 99b63b77557..aac88873ce9 100644
--- a/src/modules/rlm_mruby/mruby.c
+++ b/src/modules/rlm_mruby/mruby.c
@@ -65,3 +65,60 @@ struct RClass *mruby_request_class(mrb_state *mrb, struct RClass *parent)
 
 	return request;
 }
+
+/*
+ *	Structures used to identify C data types in mruby pointers
+ */
+static const struct mrb_data_type mruby_inst_type = {
+	.struct_name = "Inst",
+	.dfree = NULL
+};
+
+static const struct mrb_data_type mruby_request_type = {
+	.struct_name = "Request",
+	.dfree = NULL
+};
+
+static const struct mrb_data_type mruby_dict_attr_type = {
+	.struct_name = "DictAttr",
+	.dfree = NULL
+};
+
+static const struct mrb_data_type mruby_value_pair_type = {
+	.struct_name = "ValuePair",
+	.dfree = NULL
+};
+
+static const struct mrb_data_type mruby_ruby_pair_type = {
+	.struct_name = "RubyPair",
+	.dfree = NULL
+};
+
+/*
+ *	Helper functions to return C data type pointers as mruby values
+ */
+mrb_value mruby_inst_object(mrb_state *mrb, struct RClass *klass, rlm_mruby_t const *inst)
+{
+	return mrb_obj_value(Data_Wrap_Struct(mrb, klass, &mruby_inst_type, UNCONST(void *, inst)));
+}
+
+mrb_value mruby_request_object(mrb_state *mrb, struct RClass *klass, request_t *request)
+{
+	return mrb_obj_value(Data_Wrap_Struct(mrb, klass, &mruby_request_type, (void *)request));
+}
+
+mrb_value mruby_dict_attr_object(mrb_state *mrb, struct RClass *klass, fr_dict_attr_t const *da)
+{
+	return mrb_obj_value(Data_Wrap_Struct(mrb, klass, &mruby_dict_attr_type, UNCONST(void *,da)));
+}
+
+mrb_value mruby_value_pair_object(mrb_state *mrb, struct RClass *klass, fr_pair_t *vp)
+{
+	return mrb_obj_value(Data_Wrap_Struct(mrb, klass, &mruby_value_pair_type, (void *)vp));
+}
+
+static mrb_value mruby_ruby_pair_object(mrb_state *mrb, struct RClass *klass, mruby_pair_t *pair)
+{
+	return mrb_obj_value(Data_Wrap_Struct(mrb, klass, &mruby_ruby_pair_type, (void *)pair));
+}
+
diff --git a/src/modules/rlm_mruby/rlm_mruby.h b/src/modules/rlm_mruby/rlm_mruby.h
index 9b78ce30cca..328724eb888 100644
--- a/src/modules/rlm_mruby/rlm_mruby.h
+++ b/src/modules/rlm_mruby/rlm_mruby.h
@@ -32,8 +32,11 @@ DIAG_OFF(documentation)
 #include <mruby/numeric.h>
 #include <mruby/string.h>
 #include <mruby/variable.h>
+#include <mruby/data.h>
 DIAG_ON(documentation)
 DIAG_ON(DIAG_UNKNOWN_PRAGMAS)
+#include <freeradius-devel/server/base.h>
+
 typedef struct {
 	char const *filename;
 	char const *module_name;
@@ -49,3 +52,7 @@ typedef struct {
 } rlm_mruby_t;
 
 struct RClass *mruby_request_class(mrb_state *mrb, struct RClass *parent);
+mrb_value mruby_inst_object(mrb_state *mrb, struct RClass *klass, rlm_mruby_t const *inst);
+mrb_value mruby_request_object(mrb_state *mrb, struct RClass *klass, request_t *request);
+mrb_value mruby_value_pair_object(mrb_state *mrb, struct RClass *klass, fr_pair_t *vp);
+mrb_value mruby_dict_attr_object(mrb_state *mrb, struct RClass *klass, fr_dict_attr_t const *da);