clipsruby 0.0.35 → 0.0.36

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: f9bdca59f142899fe858cb253d57ce0d1b2d3eae763a57cb91d7278196e77f88
-  data.tar.gz: 5c958baae6e99acde4729fb3755bbfa9d8ec613e1dfd53b18b970c3824767872
+  metadata.gz: 50cc209eb6a473cd3a980b8d551079a4db6632f86afbc43bff8a582a89efb2cf
+  data.tar.gz: 2e2dd6648850df2dc496111334e68aebb9048fb2f823a6b6ddd865449cb34254
 SHA512:
-  metadata.gz: 5c57ac8a0cbc763881cfa3275d6f2e3550222e8d575865ce79c9aa0cfebf9eb5d6b66ccc5cae98555d6ba16fe6dca92de1560540cd6252bf5c42353ebdcaf774
-  data.tar.gz: 7c8914796e684ce973ba1058122ed1b4390d1b6043b3086abf70160b5aca79a1ce4e83286daed19a84ea77ff9a7b095f5bd707773763b33bc12e4c205d16635e
+  metadata.gz: 9bf9b814174620c68ee826d8051f09bb4d3e989537f4dcce642ba84a651b9dcdfa5acb403378865e05429b1dd03019e07568163c121a58e05368bc664ebd96e4
+  data.tar.gz: e3690e9f5b2f28203366e75d845d06dc3ad22173db4ed0a0cdb0ff7246cb0b31f804fc60fde0b6e2be58b29b074f3692ade5f3da6c4f947a2acfc40b1ab1ae21

data/README.md

@@ -454,14 +454,14 @@ CLIPS::Environment::Instance.pp_form(instance)
 instance.pp_form
 ```
 
-### `CLIPS::Environment::Instance._class`
-### `CLIPS::Environment::Instance#_class`
+### `CLIPS::Environment::Instance.defclass`
+### `CLIPS::Environment::Instance#defclass`
 
 Returns the Defclass of an Instance
 
 ```ruby
-CLIPS::Environment::Instance._class(instance)
-instance._class
+CLIPS::Environment::Instance.defclass(instance)
+instance.defclass
 ```
 
 ### `CLIPS::Environment::Defclass.name`
@@ -498,7 +498,7 @@ defclass.defmodule_name
 ### `CLIPS::Environment::Defclass#get_instance_list`
 
 Return an array of Instances of the Defclass.
-Pass `true` as and argument to include instances of subclasses
+Pass `true` as an argument to include instances of subclasses
 of this Defclass.
 
 ```ruby
@@ -508,6 +508,32 @@ defclass.get_instance_list
 defclass.get_instance_list(true)
 ```
 
+### `CLIPS::Environment::Defclass.superclasses`
+### `CLIPS::Environment::Defclass#superclasses`
+
+Return an array of superclasses of the Defclass.
+Pass `true` as an argument to include inherited superclasses.
+
+```ruby
+CLIPS::Environment::Defclass.superclasses(defclass)
+CLIPS::Environment::Defclass.superclasses(defclass, true)
+defclass.superclasses
+defclass.superclasses(true)
+```
+
+### `CLIPS::Environment::Defclass.subclasses`
+### `CLIPS::Environment::Defclass#subclasses`
+
+Return an array of subclasses of the Defclass.
+Pass `true` as an argument to include inherited subclasses.
+
+```ruby
+CLIPS::Environment::Defclass.subclasses(defclass)
+CLIPS::Environment::Defclass.subclasses(defclass, true)
+defclass.subclasses
+defclass.subclasses(true)
+```
+
 ### `CLIPS::Environment.find_defrule`
 ### `CLIPS::Environment#find_defrule`
 

data/ext/clipsruby/clipsruby.c

@@ -379,6 +379,7 @@ static VALUE clips_environment_defclass_static_get_instance_list(int argc, VALUE
 	return returnArray;
 }
 
+
 static VALUE clips_environment_make_instance(VALUE self, VALUE string)
 {
 	Environment *env;
@@ -466,7 +467,7 @@ static VALUE clips_environment_instance_static_delete(VALUE self, VALUE rbInstan
 	return clips_environment_instance_delete(rbInstance);
 }
 
-static VALUE clips_environment_instance_class(VALUE self)
+static VALUE clips_environment_instance_defclass(VALUE self)
 {
 	Defclass *defclass;
 	Instance *instance;
@@ -486,9 +487,9 @@ static VALUE clips_environment_instance_class(VALUE self)
 	return rb_defclass;
 }
 
-static VALUE clips_environment_instance_static_class(VALUE self, VALUE rbInstance)
+static VALUE clips_environment_instance_static_defclass(VALUE self, VALUE rbInstance)
 {
-	return clips_environment_instance_class(rbInstance);
+	return clips_environment_instance_defclass(rbInstance);
 }
 
 static VALUE clips_environment_instance_name(VALUE self)
@@ -1114,6 +1115,93 @@ static VALUE clips_environment_deftemplate_static_slot_names(VALUE self, VALUE r
 	return clips_environment_deftemplate_slot_names(rbDeftemplate);
 }
 
+static VALUE clips_environment_defclass_superclasses(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);
+
+	if (NIL_P(inherit)) {
+		inherit = Qfalse;
+	}
+
+	TypedData_Get_Struct(rbDefclass, Defclass, &Defclass_type, defclass);
+
+	ClassSuperclasses(defclass, &value, RTEST(inherit));
+
+	CLIPSValue_to_VALUE(&value, &out, &rbEnvironment);
+
+	return out;
+}
+
+static VALUE clips_environment_defclass_static_superclasses(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");
+
+	ClassSuperclasses(defclass, &value, RTEST(inherit));
+
+	CLIPSValue_to_VALUE(&value, &out, &rbEnvironment);
+
+	return out;
+}
+
+static VALUE clips_environment_defclass_subclasses(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);
+
+	if (NIL_P(inherit)) {
+		inherit = Qfalse;
+	}
+
+	TypedData_Get_Struct(rbDefclass, Defclass, &Defclass_type, defclass);
+
+	ClassSubclasses(defclass, &value, RTEST(inherit));
+
+	CLIPSValue_to_VALUE(&value, &out, &rbEnvironment);
+
+	return out;
+}
+
+static VALUE clips_environment_defclass_static_subclasses(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");
+
+	ClassSubclasses(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;
@@ -4201,6 +4289,10 @@ void Init_clipsruby(void)
 	rb_define_method(rbDefclass, "pp_form", clips_environment_defclass_pp_form, 0);
 	rb_define_singleton_method(rbDefclass, "get_instance_list", clips_environment_defclass_static_get_instance_list, -1);
 	rb_define_method(rbDefclass, "get_instance_list", clips_environment_defclass_get_instance_list, -1);
+	rb_define_singleton_method(rbDefclass, "superclasses", clips_environment_defclass_static_superclasses, -1);
+	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);
 
 	VALUE rbInstance = rb_define_class_under(rbEnvironment, "Instance", rb_cObject);
 	rb_define_alloc_func(rbInstance, instance_alloc);
@@ -4208,8 +4300,8 @@ void Init_clipsruby(void)
 	rb_define_method(rbInstance, "unmake", clips_environment_instance_unmake, 0);
 	rb_define_singleton_method(rbInstance, "delete", clips_environment_instance_static_delete, 1);
 	rb_define_method(rbInstance, "delete", clips_environment_instance_delete, 0);
-	rb_define_singleton_method(rbInstance, "_class", clips_environment_instance_static_class, 1);
-	rb_define_method(rbInstance, "_class", clips_environment_instance_class, 0);
+	rb_define_singleton_method(rbInstance, "defclass", clips_environment_instance_static_defclass, 1);
+	rb_define_method(rbInstance, "defclass", clips_environment_instance_defclass, 0);
 	rb_define_singleton_method(rbInstance, "name", clips_environment_instance_static_name, 1);
 	rb_define_method(rbInstance, "name", clips_environment_instance_name, 0);
 	rb_define_singleton_method(rbInstance, "pp_form", clips_environment_instance_static_pp_form, 1);

metadata

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