clipsruby 0.0.35 → 0.0.37

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: f9bdca59f142899fe858cb253d57ce0d1b2d3eae763a57cb91d7278196e77f88
-  data.tar.gz: 5c958baae6e99acde4729fb3755bbfa9d8ec613e1dfd53b18b970c3824767872
+  metadata.gz: 6bdf3718a68644b1772e951c9a1056581d95b53a0d63d691d7cd434076d8877a
+  data.tar.gz: d76e7156d421d9cb0db3bd73314f061377c2972ecdafcd3eef1c480c113d4d2f
 SHA512:
-  metadata.gz: 5c57ac8a0cbc763881cfa3275d6f2e3550222e8d575865ce79c9aa0cfebf9eb5d6b66ccc5cae98555d6ba16fe6dca92de1560540cd6252bf5c42353ebdcaf774
-  data.tar.gz: 7c8914796e684ce973ba1058122ed1b4390d1b6043b3086abf70160b5aca79a1ce4e83286daed19a84ea77ff9a7b095f5bd707773763b33bc12e4c205d16635e
+  metadata.gz: 4b4e7e0f16be94698e19d4b8d53bfbc07eeecbcb26e71eb9347ee2d36a9526c4a50708ca2b8cefc042b846fa81197500a1c03a46020f61ebe6111c6d715b574b
+  data.tar.gz: a29961896b77bd1cb0874bd51dc001d94b31c8b7000137b27fca0ef4820055895d69cc3302145514163a5b628791d625cb4208722feea618fb9488d25a5a049a

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

@@ -282,10 +282,16 @@ static VALUE clips_environment_defclass_static_defmodule_name(VALUE self, VALUE
 static VALUE clips_environment_defclass_pp_form(VALUE self)
 {
 	Defclass *defclass;
+	const char *pp_form;
 
 	TypedData_Get_Struct(self, Defclass, &Defclass_type, defclass);
 
-	return rb_str_new2(DefclassPPForm(defclass));
+	pp_form = DefclassPPForm(defclass);
+	if (pp_form == NULL) {
+		return Qnil;
+	} else {
+		return rb_str_new2(pp_form);
+	}
 }
 
 static VALUE clips_environment_defclass_static_pp_form(VALUE self, VALUE rbDefclass)
@@ -379,6 +385,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 +473,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 +493,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 +1121,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 +4295,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 +4306,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.37
 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