clipsruby 0.0.30 → 0.0.32

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 4dca72773ba370d57fd7c96a94820ce857f550ca792c78958885919234c0e03b
-  data.tar.gz: 055b1e80563bfeb02135a9cad90fee07dac3dd85c13ba90f9771c7af388b4457
+  metadata.gz: d63c4466f611752b18eac8e195f3614784dd64b80ac007457fb550bc88847ee5
+  data.tar.gz: 353a3eb4fe11406b0b2b704a669b1933b0a3ec4c6c10c4b288cd0bf7b5a1fe58
 SHA512:
-  metadata.gz: 3f8e69b183b21759ebd410cc064901c99fb6de71f8a13e656dc133238be095e8b2d9c9bb4cb78db79efeb25cd3e68d386bac3df07a96045793f73259360fb2f1
-  data.tar.gz: 66930baf77b505500e1879db1c8cb83d5104c048b37a13e328331063fd4e55573f2d8ac917837b76cdea547b37a5798e4de0f704ef3a0524c91c8928c33f76ea
+  metadata.gz: 88e76e4afa90cf21db3718ed033a2463c8f38f5f9c17d3e643b901d4f9d83b36ec0c8d904d311db96cdaf6935b9694982508eebb5326c1eb43977c80660b40d5
+  data.tar.gz: 48665d09ede14f7707abaf1ad38c8202c12ee0fe655402d257399379e074e367b2bd18b3e3bec704bc5cfdfb280286890f325360384eb5e1d2a93d5ae3c57b0e

data/README.md

@@ -424,6 +424,16 @@ CLIPS::Environment::Defrule.name(defrule)
 defrule.name
 ```
 
+### `CLIPS::Environment::Defrule.defmodule_name`
+### `CLIPS::Environment::Defrule#defmodule_name`
+
+Returns the name of the defmodule in which the defrule is defined
+
+```ruby
+CLIPS::Environment::Defrule.defmodule_name(defrule)
+defrule.defmodule_name
+```
+
 ### `CLIPS::Environment::Defrule.is_deletable`
 ### `CLIPS::Environment::Defrule#is_deletable`
 
@@ -542,11 +552,11 @@ symbol, string, or Defmodule object in order to only get Deftemplates
 in that Defmodule. If you do not, it will return all Deftemplate names in all modules.
 
 ```ruby
-CLIPS::Environment.get_deftemplate_list
+CLIPS::Environment.get_deftemplate_list(env)
 env.get_deftemplate_list
-CLIPS::Environment.get_deftemplate_list(:MAIN)
+CLIPS::Environment.get_deftemplate_list(env, :MAIN)
 env.get_deftemplate_list(:MAIN)
-CLIPS::Environment.get_deftemplate_list(defmodule)
+CLIPS::Environment.get_deftemplate_list(env, defmodule)
 env.get_deftemplate_list(defmodule)
 ```
 
@@ -558,14 +568,24 @@ symbol, string, or Defmodule object in order to only get Defrules
 in that Defmodule. If you do not, it will return all Defrule names in all modules.
 
 ```ruby
-CLIPS::Environment.get_defrule_list
+CLIPS::Environment.get_defrule_list(env)
 env.get_defrule_list
-CLIPS::Environment.get_defrule_list(:MAIN)
+CLIPS::Environment.get_defrule_list(env, :MAIN)
 env.get_defrule_list(:MAIN)
-CLIPS::Environment.get_defrule_list(defmodule)
+CLIPS::Environment.get_defrule_list(env, defmodule)
 env.get_defrule_list(defmodule)
 ```
 
+### `CLIPS::Environment.get_defmodule_list`
+### `CLIPS::Environment#get_defmodule_list`
+
+Return an array of Defmodule names as symbols in the environment.
+
+```ruby
+CLIPS::Environment.get_defmodule_list(env)
+env.get_defmodule_list
+```
+
 ### `CLIPS::Environment.find_deftemplate`
 ### `CLIPS::Environment#find_deftemplate`
 

data/ext/clipsruby/clipsruby.c

@@ -110,6 +110,19 @@ static VALUE clips_environment_deftemplate_static_defmodule_name(VALUE self, VAL
 	return clips_environment_deftemplate_defmodule_name(rbDeftemplate);
 }
 
+static VALUE clips_environment_defrule_defmodule_name(VALUE self)
+{
+	Defrule *rule;
+
+	TypedData_Get_Struct(self, Defrule, &Defrule_type, rule);
+
+	return ID2SYM(rb_intern(DefruleModule(rule)));
+}
+
+static VALUE clips_environment_defrule_static_defmodule_name(VALUE self, VALUE rbDefrule)
+{
+	return clips_environment_defrule_defmodule_name(rbDefrule);
+}
 
 void environment_free(void *data)
 {
@@ -2142,6 +2155,26 @@ static VALUE clips_environment_defmodule_static_get_defrule_list(VALUE self, VAL
 	return clips_environment_defmodule_get_defrule_list(rbDefmodule);
 }
 
+static VALUE clips_environment_get_defmodule_list(VALUE self)
+{
+	Environment *env;
+	CLIPSValue value;
+	VALUE out;
+
+	TypedData_Get_Struct(self, Environment, &Environment_type, env);
+
+	GetDefmoduleList(env, &value);
+
+	CLIPSValue_to_VALUE(&value, &out, &self);
+
+	return out;
+}
+
+static VALUE clips_environment_static_get_defmodule_list(VALUE self, VALUE rbEnvironment)
+{
+	return clips_environment_get_defmodule_list(rbEnvironment);
+}
+
 static VALUE clips_environment_defrule_name(VALUE self)
 {
 	Defrule *defrule;
@@ -2159,10 +2192,18 @@ static VALUE clips_environment_defrule_static_name(VALUE self, VALUE rbDefrule)
 static VALUE clips_environment_defrule_pp_form(VALUE self)
 {
 	Defrule *defrule;
+	const char *pp_form;
 
 	TypedData_Get_Struct(self, Defrule, &Defrule_type, defrule);
 
-	return rb_str_new2(DefrulePPForm(defrule));
+	pp_form = DefrulePPForm(defrule);
+
+	if (pp_form == NULL) {
+		rb_warn("defrule did not have pp_form. This can happen if the defrule was loaded from a binary file.");
+		return Qnil;
+	} else {
+		return rb_str_new2(pp_form);
+	}
 }
 
 static VALUE clips_environment_defrule_static_pp_form(VALUE self, VALUE rbDefrule)
@@ -3121,6 +3162,8 @@ void Init_clipsruby(void)
 	rb_define_method(rbEnvironment, "get_deftemplate_list", clips_environment_get_deftemplate_list, -1);
 	rb_define_singleton_method(rbEnvironment, "get_defrule_list", clips_environment_static_get_defrule_list, -1);
 	rb_define_method(rbEnvironment, "get_defrule_list", clips_environment_get_defrule_list, -1);
+	rb_define_singleton_method(rbEnvironment, "get_defmodule_list", clips_environment_static_get_defmodule_list, 1);
+	rb_define_method(rbEnvironment, "get_defmodule_list", clips_environment_get_defmodule_list, 0);
 	rb_define_singleton_method(rbEnvironment, "find_deffacts", clips_environment_static_find_deffacts, 2);
 	rb_define_method(rbEnvironment, "find_deffacts", clips_environment_find_deffacts, 1);
 	rb_define_singleton_method(rbEnvironment, "watch", clips_environment_static_watch, 2);
@@ -3286,6 +3329,8 @@ void Init_clipsruby(void)
 	rb_define_method(rbDefrule, "remove_break", clips_environment_defrule_remove_break, 0);
 	rb_define_singleton_method(rbDefrule, "salience", clips_environment_defrule_static_salience, 1);
 	rb_define_method(rbDefrule, "salience", clips_environment_defrule_salience, 0);
+	rb_define_singleton_method(rbDefrule, "defmodule_name", clips_environment_defrule_static_defmodule_name, 1);
+	rb_define_method(rbDefrule, "defmodule_name", clips_environment_defrule_defmodule_name, 0);
 
 	VALUE rbInstance = rb_define_class_under(rbEnvironment, "Instance", rb_cObject);
 }

metadata

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