clipsruby 0.0.28 → 0.0.30

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: c3422d24e21cf31d89d413801a5804b91bdca8cfab4adc230bcdaeb6d4da3085
-  data.tar.gz: f34d498c8130445406058e05073abe0d48cc7c7a1c2fe5b4e2fb799bf4836f7a
+  metadata.gz: 4dca72773ba370d57fd7c96a94820ce857f550ca792c78958885919234c0e03b
+  data.tar.gz: 055b1e80563bfeb02135a9cad90fee07dac3dd85c13ba90f9771c7af388b4457
 SHA512:
-  metadata.gz: 9b22a805380544262da7bf544c163159a5b5846a8ce2c0da2754f2bcdabaea6c8209cf6c5b8154606bb14498a38e0fac9751e51926e03cddab7f120018905291
-  data.tar.gz: f13099a933300723e7e1062d6c4e144e286726476e942f172457cbc38c6e4957f982caf007cf0acbdb41b2a0c7713ce494712794670883a934580a4fd101b556
+  metadata.gz: 3f8e69b183b21759ebd410cc064901c99fb6de71f8a13e656dc133238be095e8b2d9c9bb4cb78db79efeb25cd3e68d386bac3df07a96045793f73259360fb2f1
+  data.tar.gz: 66930baf77b505500e1879db1c8cb83d5104c048b37a13e328331063fd4e55573f2d8ac917837b76cdea547b37a5798e4de0f704ef3a0524c91c8928c33f76ea

data/README.md

@@ -474,6 +474,16 @@ CLIPS::Environment::Defrule.remove_break(defrule)
 defrule.remove_break
 ```
 
+### `CLIPS::Environment::Defrule.salience`
+### `CLIPS::Environment::Defrule#salience`
+
+Returns the salience of a defrule
+
+```ruby
+CLIPS::Environment::Defrule.salience(defrule)
+defrule.salience
+```
+
 ### `CLIPS::Environment.find_defmodule`
 ### `CLIPS::Environment#find_defmodule`
 
@@ -540,6 +550,22 @@ CLIPS::Environment.get_deftemplate_list(defmodule)
 env.get_deftemplate_list(defmodule)
 ```
 
+### `CLIPS::Environment.get_defrule_list`
+### `CLIPS::Environment#get_defrule_list`
+
+Return an array of Defrule names as symbols in the environment. Pass an argument of a
+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
+env.get_defrule_list
+CLIPS::Environment.get_defrule_list(:MAIN)
+env.get_defrule_list(:MAIN)
+CLIPS::Environment.get_defrule_list(defmodule)
+env.get_defrule_list(defmodule)
+```
+
 ### `CLIPS::Environment.find_deftemplate`
 ### `CLIPS::Environment#find_deftemplate`
 
@@ -611,6 +637,18 @@ CLIPS::Environment::Deftemplate.is_deletable(deftemplate)
 deftemplate.is_deletable
 ```
 
+### `CLIPS::Environment::Deftemplate.is_implied`
+### `CLIPS::Environment::Deftemplate#is_implied`
+
+Returns a boolean whether the Deftemplate is implied or not.
+If the fact is an ordered fact, the Deftemplate is implied.
+Otherwise, the Deftemplate is considered explicitly defined.
+
+```ruby
+CLIPS::Environment::Deftemplate.is_implied(deftemplate)
+deftemplate.is_implied
+```
+
 ### `CLIPS::Environment::Deftemplate.slot_allowed_values`
 ### `CLIPS::Environment::Deftemplate#slot_allowed_values`
 
@@ -729,13 +767,23 @@ deftemplate.slot_defaultp('bar')
 ### `CLIPS::Environment::Defmodule.get_deftemplate_list`
 ### `CLIPS::Environment::Defmodule#get_deftemplate_list`
 
-Return an array of Deftemplate names as symboles in the Defmodule
+Return an array of Deftemplate names as symbols in the Defmodule
 
 ```ruby
 CLIPS::Environment::Defmodule.get_deftemplate_list(defmodule)
 defmodule.get_deftemplate_list
 ```
 
+### `CLIPS::Environment::Defmodule.get_defrule_list`
+### `CLIPS::Environment::Defmodule#get_defrule_list`
+
+Return an array of Defrule names as symbols in the Defmodule
+
+```ruby
+CLIPS::Environment::Defmodule.get_defrule_list(defmodule)
+defmodule.get_defrule_list
+```
+
 ### `CLIPS::Environment.find_deffacts`
 ### `CLIPS::Environment#find_deffacts`
 

data/ext/clipsruby/clipsruby.c

@@ -188,6 +188,10 @@ static VALUE clips_environment_assert_string(VALUE self, VALUE string)
 
 	Fact *fact = AssertString(env, StringValueCStr(string));
 
+	if (fact == NULL) {
+		return Qnil;
+	}
+
 	VALUE rb_fact =
 		TypedData_Wrap_Struct(rb_const_get(CLASS_OF(self), rb_intern("Fact")), &Fact_type, fact);
 
@@ -1950,6 +1954,74 @@ static VALUE clips_environment_static_get_deftemplate_list(int argc, VALUE *argv
 	return out;
 }
 
+static VALUE clips_environment_get_defrule_list(int argc, VALUE *argv, VALUE rbEnvironment) {
+	VALUE defmodule_or_defmodule_name;
+	Environment *env;
+	Defmodule *module;
+	CLIPSValue value;
+	VALUE out;
+
+	TypedData_Get_Struct(rbEnvironment, Environment, &Environment_type, env);
+
+	rb_scan_args(argc, argv, "01", &defmodule_or_defmodule_name);
+	switch (TYPE(defmodule_or_defmodule_name)) {
+		case T_NIL:
+			module = NULL;
+			break;
+		case T_STRING:
+		case T_SYMBOL:
+			TypedData_Get_Struct(
+				clips_environment_find_defmodule(rbEnvironment, defmodule_or_defmodule_name),
+				Defmodule, &Defmodule_type, module);
+			break;
+		case T_DATA:
+			TypedData_Get_Struct(defmodule_or_defmodule_name, Defmodule, &Defmodule_type, module);
+			break;
+                default:
+			rb_warn("defmodule name must be a symbol or string");
+			return Qnil;
+        }
+	GetDefruleList(env, &value, module);
+
+	CLIPSValue_to_VALUE(&value, &out, &rbEnvironment);
+
+	return out;
+}
+
+static VALUE clips_environment_static_get_defrule_list(int argc, VALUE *argv, VALUE klass) {
+	VALUE rbEnvironment, defmodule_or_defmodule_name;
+	Environment *env;
+	Defmodule *module;
+	CLIPSValue value;
+	VALUE out;
+
+	rb_scan_args(argc, argv, "11", &rbEnvironment, &defmodule_or_defmodule_name);
+
+	TypedData_Get_Struct(rbEnvironment, Environment, &Environment_type, env);
+	switch (TYPE(defmodule_or_defmodule_name)) {
+		case T_NIL:
+			module = NULL;
+			break;
+		case T_STRING:
+		case T_SYMBOL:
+			TypedData_Get_Struct(
+				clips_environment_find_defmodule(rbEnvironment, defmodule_or_defmodule_name),
+				Defmodule, &Defmodule_type, module);
+			break;
+		case T_DATA:
+			TypedData_Get_Struct(defmodule_or_defmodule_name, Defmodule, &Defmodule_type, module);
+			break;
+                default:
+			rb_warn("defmodule name must be a symbol or string");
+			return Qnil;
+        }
+	GetDefruleList(env, &value, module);
+
+	CLIPSValue_to_VALUE(&value, &out, &rbEnvironment);
+
+	return out;
+}
+
 static VALUE clips_environment_defmodule_name(VALUE self)
 {
 	Defmodule *defmodule;
@@ -2046,6 +2118,30 @@ static VALUE clips_environment_defmodule_static_get_deftemplate_list(VALUE self,
 	return clips_environment_defmodule_get_deftemplate_list(rbDefmodule);
 }
 
+static VALUE clips_environment_defmodule_get_defrule_list(VALUE self)
+{
+	Defmodule *module;
+	Environment *env;
+	CLIPSValue value;
+	VALUE out;
+
+	VALUE rbEnvironment = rb_iv_get(self, "@environment");
+
+	TypedData_Get_Struct(self, Defmodule, &Defmodule_type, module);
+	TypedData_Get_Struct(rbEnvironment, Environment, &Environment_type, env);
+
+	GetDefruleList(env, &value, module);
+
+	CLIPSValue_to_VALUE(&value, &out, &rbEnvironment);
+
+	return out;
+}
+
+static VALUE clips_environment_defmodule_static_get_defrule_list(VALUE self, VALUE rbDefmodule)
+{
+	return clips_environment_defmodule_get_defrule_list(rbDefmodule);
+}
+
 static VALUE clips_environment_defrule_name(VALUE self)
 {
 	Defrule *defrule;
@@ -2110,6 +2206,24 @@ static VALUE clips_environment_deftemplate_static_is_deletable(VALUE self, VALUE
 	return clips_environment_deftemplate_is_deletable(rbDeftemplate);
 }
 
+static VALUE clips_environment_deftemplate_is_implied(VALUE self)
+{
+	Deftemplate *deftemplate;
+
+	TypedData_Get_Struct(self, Deftemplate, &Deftemplate_type, deftemplate);
+
+	if (deftemplate->implied) {
+		return Qtrue;
+	} else {
+		return Qfalse;
+	}
+}
+
+static VALUE clips_environment_deftemplate_static_is_implied(VALUE self, VALUE rbDeftemplate)
+{
+	return clips_environment_deftemplate_is_implied(rbDeftemplate);
+}
+
 static VALUE clips_environment_deftemplate_slot_existp(VALUE self, VALUE slot_name)
 {
 	Deftemplate *deftemplate;
@@ -2292,6 +2406,20 @@ static VALUE clips_environment_defrule_static_remove_break(VALUE self, VALUE rbD
 	return clips_environment_defrule_remove_break(rbDefrule);
 }
 
+static VALUE clips_environment_defrule_salience(VALUE self)
+{
+	Defrule *defrule;
+
+	TypedData_Get_Struct(self, Defrule, &Defrule_type, defrule);
+
+	return INT2NUM(defrule->salience);
+}
+
+static VALUE clips_environment_defrule_static_salience(VALUE self, VALUE rbDefrule)
+{
+	return clips_environment_defrule_salience(rbDefrule);
+}
+
 static VALUE clips_environment_watch(VALUE self, VALUE item)
 {
 	Environment *env;
@@ -2991,6 +3119,8 @@ void Init_clipsruby(void)
 	rb_define_method(rbEnvironment, "get_fact_list", clips_environment_get_fact_list, -1);
 	rb_define_singleton_method(rbEnvironment, "get_deftemplate_list", clips_environment_static_get_deftemplate_list, -1);
 	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, "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);
@@ -3099,6 +3229,8 @@ void Init_clipsruby(void)
 	rb_define_method(rbDeftemplate, "slot_multip", clips_environment_deftemplate_slot_multip, 1);
 	rb_define_singleton_method(rbDeftemplate, "slot_defaultp", clips_environment_deftemplate_static_slot_defaultp, 2);
 	rb_define_method(rbDeftemplate, "slot_defaultp", clips_environment_deftemplate_slot_defaultp, 1);
+	rb_define_singleton_method(rbDeftemplate, "is_implied", clips_environment_deftemplate_static_is_implied, 1);
+	rb_define_method(rbDeftemplate, "is_implied", clips_environment_deftemplate_is_implied, 0);
 
 	VALUE rbDefmodule = rb_define_class_under(rbEnvironment, "Defmodule", rb_cObject);
 	rb_define_alloc_func(rbDefmodule, defmodule_alloc);
@@ -3112,6 +3244,8 @@ void Init_clipsruby(void)
 	rb_define_method(rbDefmodule, "get_fact_list", clips_environment_defmodule_get_fact_list, 0);
 	rb_define_singleton_method(rbDefmodule, "get_deftemplate_list", clips_environment_defmodule_static_get_deftemplate_list, 1);
 	rb_define_method(rbDefmodule, "get_deftemplate_list", clips_environment_defmodule_get_deftemplate_list, 0);
+	rb_define_singleton_method(rbDefmodule, "get_defrule_list", clips_environment_defmodule_static_get_defrule_list, 1);
+	rb_define_method(rbDefmodule, "get_defrule_list", clips_environment_defmodule_get_defrule_list, 0);
 
 	VALUE rbFact = rb_define_class_under(rbEnvironment, "Fact", rb_cObject);
 	rb_define_alloc_func(rbFact, fact_alloc);
@@ -3150,6 +3284,8 @@ void Init_clipsruby(void)
 	rb_define_method(rbDefrule, "set_break", clips_environment_defrule_set_break, 0);
 	rb_define_singleton_method(rbDefrule, "remove_break", clips_environment_defrule_static_remove_break, 1);
 	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);
 
 	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.28
+  version: 0.0.30
 platform: ruby
 authors:
 - Ryan Johnston
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2024-09-19 00:00:00.000000000 Z
+date: 2024-09-23 00:00:00.000000000 Z
 dependencies: []
 description: Calling the CLIPS programming language from within Ruby
 email: mrryanjohnston@gmail.com
@@ -385,7 +385,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubygems_version: 3.5.11
+rubygems_version: 3.5.16
 signing_key:
 specification_version: 4
 summary: Calling CLIPS from within Ruby