clipsruby 0.0.38 → 0.0.40

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 2d5b2eff6dfde994a41ed4226415ed61cc22f4a60164ca7f0adb14f2913ed831
-  data.tar.gz: 18f6b5748632239dac343f0b91b41620a2973699e27a9d52a2aef28bde921a0c
+  metadata.gz: f9f5ef0ebbc5224f3c9ee6ab3bc3a025e543ec210aea37062d6eb7a8389424e6
+  data.tar.gz: d850a5303be6baca4514d9ed7de5061efacad449666fa56e80a15c7c29dd6e67
 SHA512:
-  metadata.gz: 634dd08bc164e971d4484e18a2fadc51a56e7b7976994b3cfb3bad903445157da9b6bc1ef4dc424faacef0a68217f774c6c3ec9f9fd717c3d579df04d0e6525e
-  data.tar.gz: b31052a98c2238d3d97bf6938193202ca6b05333286e61500000da33dd4baaeddc915b5bd53c53cf989c366bcc51d5469428632766ad625e616249f9eb996655
+  metadata.gz: 282703a59de83937e2afafb3bf66b315cc5bf0175d87ffb7eba3f3e34e831fbc7ebd8f764f64b430062d1cec587c3e4ce12248d5e6417b24b139d126be9a90d0
+  data.tar.gz: afaaf02eca5132f0092cec3665e0a4820b4e9517f04bda680f8c15cef85f8cdbcc2fd80a3dc752a103f220c11d270a26299b4a6c8121356394dc284df81842cf

data/README.md

@@ -464,6 +464,19 @@ CLIPS::Environment::Instance.defclass(instance)
 instance.defclass
 ```
 
+### `CLIPS::Environment::Instance.to_h`
+### `CLIPS::Environment::Instance#to_h`
+
+Returns a hash representing the instance slot names and their values.
+Pass a `true` as an argument to get inhereted slots as well.
+
+```ruby
+CLIPS::Environment::Instance.to_h(instance)
+instance.to_h
+CLIPS::Environment::Instance.to_h(instance, true)
+instance.to_h(true)
+```
+
 ### `CLIPS::Environment::Defclass.name`
 ### `CLIPS::Environment::Defclass#name`
 
@@ -484,6 +497,19 @@ CLIPS::Environment::Defclass.pp_form(defclass)
 defclass.pp_form
 ```
 
+### `CLIPS::Environment::Defclass.slots`
+### `CLIPS::Environment::Defclass#slots`
+
+Returns an array representing the slot names of a Defclass.
+Pass `true` as an argument to get inherited slots, as well.
+
+```ruby
+CLIPS::Environment::Defclass.slots(defclass)
+defclass.slots
+CLIPS::Environment::Defclass.slots(defclass, true)
+defclass.slots(true)
+```
+
 ### `CLIPS::Environment::Defclass.defmodule_name`
 ### `CLIPS::Environment::Defclass#defmodule_name`
 

data/ext/clipsruby/clipsruby.c

@@ -1266,10 +1266,6 @@ static VALUE clips_environment_defclass_subclasses(int argc, VALUE *argv, VALUE
 
 	rb_scan_args(argc, argv, "01", &inherit);
 
-	if (NIL_P(inherit)) {
-		inherit = Qfalse;
-	}
-
 	TypedData_Get_Struct(rbDefclass, Defclass, &Defclass_type, defclass);
 
 	ClassSubclasses(defclass, &value, RTEST(inherit));
@@ -1299,6 +1295,46 @@ static VALUE clips_environment_defclass_static_subclasses(int argc, VALUE *argv,
 	return out;
 }
 
+static VALUE clips_environment_defclass_slots(int argc, VALUE *argv, VALUE rbDefclass)
+{
+	VALUE rbEnvironment, inherit;
+	Defclass *defclass;
+	CLIPSValue value;
+	VALUE out;
+
+	rbEnvironment = rb_iv_get(rbDefclass, "@environment");
+
+	rb_scan_args(argc, argv, "01", &inherit);
+
+	TypedData_Get_Struct(rbDefclass, Defclass, &Defclass_type, defclass);
+
+	ClassSlots(defclass, &value, RTEST(inherit));
+
+	CLIPSValue_to_VALUE(&value, &out, &rbEnvironment);
+
+	return out;
+}
+
+static VALUE clips_environment_defclass_static_slots(int argc, VALUE *argv, VALUE klass)
+{
+	VALUE rbEnvironment, inherit, rbDefclass;
+	Defclass *defclass;
+	CLIPSValue value;
+	VALUE out;
+
+	rb_scan_args(argc, argv, "11", &rbDefclass, &inherit);
+
+	TypedData_Get_Struct(rbDefclass, Defclass, &Defclass_type, defclass);
+
+	rbEnvironment = rb_iv_get(rbDefclass, "@environment");
+
+	ClassSlots(defclass, &value, RTEST(inherit));
+
+	CLIPSValue_to_VALUE(&value, &out, &rbEnvironment);
+
+	return out;
+}
+
 static VALUE clips_environment_run(int argc, VALUE *argv, VALUE environment) {
 	VALUE integer;
 	Environment *env;
@@ -1436,6 +1472,57 @@ static VALUE clips_environment_fact_static_to_h(VALUE self, VALUE rbFact)
 	return clips_environment_fact_to_h(rbFact);
 }
 
+static VALUE clips_environment_instance_to_h(int argc, VALUE *argv, VALUE rbInstance)
+{
+	VALUE rbEnvironment, inherit;
+	Instance *instance;
+	CLIPSValue key, value;
+	rbEnvironment = rb_iv_get(rbInstance, "@environment");
+
+	TypedData_Get_Struct(rbInstance, Instance, &Instance_type, instance);
+
+	rb_scan_args(argc, argv, "01", &inherit);
+
+	ClassSlots(InstanceClass(instance), &key, RTEST(inherit));
+
+	VALUE hash = rb_hash_new();
+	for (size_t i = 0; i < key.multifieldValue->length; i++)
+	{
+		VALUE innerValue;
+		DirectGetSlot(instance, key.multifieldValue->contents[i].lexemeValue->contents, &value);
+		CLIPSValue_to_VALUE(&value, &innerValue, &rbEnvironment);
+		rb_hash_aset(hash, ID2SYM(rb_intern(key.multifieldValue->contents[i].lexemeValue->contents)), innerValue);
+	}
+
+	return hash;
+}
+
+static VALUE clips_environment_instance_static_to_h(int argc, VALUE *argv, VALUE klass)
+{
+	VALUE rbInstance, rbEnvironment, inherit;
+	Instance *instance;
+	CLIPSValue key, value;
+
+	rb_scan_args(argc, argv, "11", &rbInstance, &inherit);
+
+	rbEnvironment = rb_iv_get(rbInstance, "@environment");
+
+	TypedData_Get_Struct(rbInstance, Instance, &Instance_type, instance);
+
+	ClassSlots(InstanceClass(instance), &key, RTEST(inherit));
+
+	VALUE hash = rb_hash_new();
+	for (size_t i = 0; i < key.multifieldValue->length; i++)
+	{
+		VALUE innerValue;
+		DirectGetSlot(instance, key.multifieldValue->contents[i].lexemeValue->contents, &value);
+		CLIPSValue_to_VALUE(&value, &innerValue, &rbEnvironment);
+		rb_hash_aset(hash, ID2SYM(rb_intern(key.multifieldValue->contents[i].lexemeValue->contents)), innerValue);
+	}
+
+	return hash;
+}
+
 static VALUE clips_environment_batch_star(VALUE self, VALUE path)
 {
 	Environment *env;
@@ -2122,10 +2209,16 @@ static VALUE clips_environment_deffacts_static_name(VALUE self, VALUE rbDeffacts
 static VALUE clips_environment_deffacts_pp_form(VALUE self)
 {
 	Deffacts *deffacts;
+	const char *pp_form;
 
 	TypedData_Get_Struct(self, Deffacts, &Deffacts_type, deffacts);
 
-	return rb_str_new2(DeffactsPPForm(deffacts));
+	pp_form = DeffactsPPForm(deffacts);
+	if (pp_form == NULL) {
+		return Qnil;
+	} else {
+		return rb_str_new2(pp_form);
+	}
 }
 
 static VALUE clips_environment_deffacts_static_pp_form(VALUE self, VALUE rbDeffacts)
@@ -2510,10 +2603,16 @@ static VALUE clips_environment_deftemplate_static_name(VALUE self, VALUE rbDefte
 static VALUE clips_environment_deftemplate_pp_form(VALUE self)
 {
 	Deftemplate *deftemplate;
+	const char *pp_form;
 
 	TypedData_Get_Struct(self, Deftemplate, &Deftemplate_type, deftemplate);
 
-	return rb_str_new2(DeftemplatePPForm(deftemplate));
+	pp_form = DeftemplatePPForm(deftemplate);
+	if (pp_form == NULL) {
+		return Qnil;
+	} else {
+		return rb_str_new2(pp_form);
+	}
 }
 
 static VALUE clips_environment_deftemplate_static_pp_form(VALUE self, VALUE rbDeftemplate)
@@ -3060,10 +3159,16 @@ static VALUE clips_environment_defmodule_static_name(VALUE self, VALUE rbDefmodu
 static VALUE clips_environment_defmodule_pp_form(VALUE self)
 {
 	Defmodule *defmodule;
+	const char *pp_form;
 
 	TypedData_Get_Struct(self, Defmodule, &Defmodule_type, defmodule);
 
-	return rb_str_new2(DefmodulePPForm(defmodule));
+	pp_form = DefmodulePPForm(defmodule);
+	if (pp_form == NULL) {
+		return Qnil;
+	} else {
+		return rb_str_new2(pp_form);
+	}
 }
 
 static VALUE clips_environment_defmodule_static_pp_form(VALUE self, VALUE rbDefmodule)
@@ -4398,6 +4503,8 @@ void Init_clipsruby(void)
 	rb_define_method(rbDefclass, "superclasses", clips_environment_defclass_superclasses, -1);
 	rb_define_singleton_method(rbDefclass, "subclasses", clips_environment_defclass_static_subclasses, -1);
 	rb_define_method(rbDefclass, "subclasses", clips_environment_defclass_subclasses, -1);
+	rb_define_singleton_method(rbDefclass, "slots", clips_environment_defclass_static_slots, -1);
+	rb_define_method(rbDefclass, "slots", clips_environment_defclass_slots, -1);
 
 	VALUE rbInstance = rb_define_class_under(rbEnvironment, "Instance", rb_cObject);
 	rb_define_alloc_func(rbInstance, instance_alloc);
@@ -4411,4 +4518,6 @@ void Init_clipsruby(void)
 	rb_define_method(rbInstance, "name", clips_environment_instance_name, 0);
 	rb_define_singleton_method(rbInstance, "pp_form", clips_environment_instance_static_pp_form, 1);
 	rb_define_method(rbInstance, "pp_form", clips_environment_instance_pp_form, 0);
+	rb_define_singleton_method(rbInstance, "to_h", clips_environment_instance_static_to_h, -1);
+	rb_define_method(rbInstance, "to_h", clips_environment_instance_to_h, -1);
 }

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: clipsruby
 version: !ruby/object:Gem::Version
-  version: 0.0.38
+  version: 0.0.40
 platform: ruby
 authors:
 - Ryan Johnston
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2024-09-29 00:00:00.000000000 Z
+date: 2024-09-30 00:00:00.000000000 Z
 dependencies: []
 description: Calling the CLIPS programming language from within Ruby
 email: mrryanjohnston@gmail.com