clipsruby 0.0.42 → 0.0.43

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: abe99d4312fdbfdef1029a782a1fba4300a125c4509da2d567de45beedcbd6b3
-  data.tar.gz: e97ad52abe0327927ac725d232abb2768ba0f19664f49045400b3be9697860a2
+  metadata.gz: 6fc073e3a6ed11b566b2aff954ff17fcb2874fa1cf83f8b4fbeba5b893d204bc
+  data.tar.gz: f9c000d65fae9a2140f43bf234e8b3360937f461df35e5b2e659dac942048063
 SHA512:
-  metadata.gz: c95269f840906a2dbb7cc334b4a96e94d11ad88371bed342ae184ffec38e3496cd0a09407f0d2f1de18e340212592df2993bbe601e3acbe943345cc17ef569d8
-  data.tar.gz: c091dc218dd4becdcb69a8670339528ab5ab247b0c01256e6e1c796e827a65880743a3599113c55439e9c1afb63bc27705599c1ea965c82ab4baef83612d9310
+  metadata.gz: 522fe0e9ca9ad792684bac67b24708897f68840586c180e5e8712fa9920561b1f9316e968d22bb7cf5371f1467705b2b6e739a649cff0d7fa22f76433164e60e
+  data.tar.gz: 630373e7297ac2945d7a560d4db06262b482b526591e7a7d685a6305ffbd6e5f2864ad58b49eea0e8481f7806515dba5d4cd29388685b7d2429cf79a18307097

data/README.md

@@ -401,6 +401,15 @@ CLIPS::Environment.find_defmodule(:a)
 env.find_defmodule("foo")
 ```
 
+#### `CLIPS::Environment.get_activation_list` / `CLIPS::Environment#get_activation_list`
+
+Return an array of Activation objects in the current demodule.
+
+```ruby
+CLIPS::Environment.get_activation_list
+env.get_activation_list
+```
+
 #### `CLIPS::Environment.get_defclass_list` / `CLIPS::Environment#get_defclass_list`
 
 Return an array of Defclass names as symbols in the environment. Pass an argument of a
@@ -850,6 +859,19 @@ CLIPS::Environment::Defrule.salience(defrule)
 defrule.salience
 ```
 
+#### `CLIPS::Environment::Defrule.matches` / `CLIPS::Environment::Defrule#matches`
+
+Returns an array holding the number of pattern matches, partial matches,
+and activations for a given rule. Pass a first argument of
+`:verbose`, `:succinct`, or `:terse` to determine the amount of information
+to print to `STDOUT` (`:verbose` by default).
+
+```ruby
+CLIPS::Environment::Defrule.matches(defrule, :succinct)
+defrule.matches(:terse)
+[pattern, partial, activations] = defrule.matches
+```
+
 ### Defmodule Methods
 
 #### `CLIPS::Environment::Defmodule.name` / `CLIPS::Environment::Defmodule#name`
@@ -1141,6 +1163,17 @@ CLIPS::Environment::Deffacts.pp_form(deffacts)
 deffacts.pp_form
 ```
 
+### Activation Methods
+
+#### `CLIPS::Environment::Activation.defule_name` / `CLIPS::Environment::Activation#defule_name`
+
+Returns the name of a defrule that triggered this activation.
+
+```ruby
+CLIPS::Environment::Activation.defrule_name
+activation.defrule_name
+```
+
 ## Running the tests
 
 Simply do `rake compile` and then `rake test` in order to run the tests.

data/ext/clipsruby/clipsruby.c

@@ -103,6 +103,18 @@ static const rb_data_type_t Instance_type = {
 	.flags = RUBY_TYPED_FREE_IMMEDIATELY
 };
 
+size_t activation_size(const void *data)
+{
+	return sizeof(Activation);
+}
+
+static const rb_data_type_t Activation_type = {
+	.function = {
+		.dsize = activation_size
+	},
+	.flags = RUBY_TYPED_FREE_IMMEDIATELY
+};
+
 static VALUE clips_environment_fact_deftemplate(VALUE self)
 {
 	VALUE rbDeftemplate, rbEnvironment;
@@ -276,6 +288,11 @@ VALUE instance_alloc(VALUE self)
 	return TypedData_Wrap_Struct(self, &Instance_type, NULL);
 }
 
+VALUE activation_alloc(VALUE self)
+{
+	return TypedData_Wrap_Struct(self, &Activation_type, NULL);
+}
+
 VALUE environment_alloc(VALUE self)
 {
 	return TypedData_Wrap_Struct(self, &Environment_type, CreateEnvironment());
@@ -1633,6 +1650,63 @@ static VALUE clips_environment_defclass_static_slots(int argc, VALUE *argv, VALU
 	return out;
 }
 
+static VALUE clips_environment_defrule_matches(int argc, VALUE *argv, VALUE rbDefrule)
+{
+	VALUE verbosity, rbEnvironment, out;
+	Defrule *defrule;
+	CLIPSValue value;
+
+	rb_scan_args(argc, argv, "01", &verbosity);
+
+	TypedData_Get_Struct(rbDefrule, Defrule, &Defrule_type, defrule);
+
+	rbEnvironment = rb_iv_get(rbDefrule, "@environment");
+
+	if (NIL_P(verbosity) || verbosity == ID2SYM(rb_intern("verbose"))) {
+		Matches(defrule, VERBOSE, &value);
+	} else if (verbosity == ID2SYM(rb_intern("succinct"))) {
+		Matches(defrule, SUCCINCT, &value);
+	} else if (verbosity == ID2SYM(rb_intern("terse"))) {
+		Matches(defrule, TERSE, &value);
+	} else {
+		rb_warn("could not find matches for defrule: unsupported verbosity.");
+		return Qnil;
+	}
+
+	CLIPSValue_to_VALUE(&value, &out, &rbEnvironment);
+
+	return out;
+}
+
+
+static VALUE clips_environment_defrule_static_matches(int argc, VALUE *argv, VALUE klass)
+{
+	VALUE rbDefrule, verbosity, rbEnvironment, out;
+	Defrule *defrule;
+	CLIPSValue value;
+
+	rb_scan_args(argc, argv, "11", &rbDefrule, &verbosity);
+
+	TypedData_Get_Struct(rbDefrule, Defrule, &Defrule_type, defrule);
+
+	rbEnvironment = rb_iv_get(rbDefrule, "@environment");
+
+	if (verbosity == ID2SYM(rb_intern("verbose"))) {
+		Matches(defrule, VERBOSE, &value);
+	} else if (verbosity == ID2SYM(rb_intern("succinct"))) {
+		Matches(defrule, SUCCINCT, &value);
+	} else if (verbosity == ID2SYM(rb_intern("terse"))) {
+		Matches(defrule, TERSE, &value);
+	} else {
+		rb_warn("could not find matches for defrule: unsupported verbosity.");
+		return Qnil;
+	}
+
+	CLIPSValue_to_VALUE(&value, &out, &rbEnvironment);
+
+	return out;
+}
+
 static VALUE clips_environment_run(int argc, VALUE *argv, VALUE environment) {
 	VALUE integer;
 	Environment *env;
@@ -3748,6 +3822,36 @@ static VALUE clips_environment_static_get_defmodule_list(VALUE self, VALUE rbEnv
 	return clips_environment_get_defmodule_list(rbEnvironment);
 }
 
+static VALUE clips_environment_get_activation_list(VALUE self)
+{
+	Activation *theActivation;
+	Environment *env;
+	VALUE rbActivation, returnArray;
+
+	returnArray = rb_ary_new2(0);
+
+	TypedData_Get_Struct(self, Environment, &Environment_type, env);
+
+	for (
+		theActivation = GetNextActivation(env,NULL);
+		theActivation != NULL;
+		theActivation = GetNextActivation(env,theActivation)
+	) {
+		rbActivation =
+			TypedData_Wrap_Struct(rb_const_get(CLASS_OF(self), rb_intern("Activation")), &Activation_type, theActivation);
+
+		rb_iv_set(rbActivation, "@environment", self);
+		rb_ary_push(returnArray, rbActivation);
+	}
+
+	return returnArray;
+}
+
+static VALUE clips_environment_static_get_activation_list(VALUE self, VALUE rbEnvironment)
+{
+	return clips_environment_get_activation_list(rbEnvironment);
+}
+
 static VALUE clips_environment_defrule_name(VALUE self)
 {
 	Defrule *defrule;
@@ -4672,6 +4776,21 @@ static VALUE clips_environment_static_get_watch_state(VALUE self, VALUE rbEnviro
 	return clips_environment_get_watch_state(rbEnvironment, item);
 }
 
+static VALUE clips_environment_activation_defrule_name(VALUE self)
+{
+	Activation *activation;
+
+	TypedData_Get_Struct(self, Activation, &Activation_type, activation);
+
+	return ID2SYM(rb_intern(ActivationRuleName(activation)));
+}
+
+static VALUE clips_environment_activation_static_defrule_name(VALUE self, VALUE rbActivation)
+{
+	return clips_environment_activation_defrule_name(rbActivation);
+}
+
+
 void Init_clipsruby(void)
 {
 	VALUE rbCLIPS = rb_define_module("CLIPS");
@@ -4753,6 +4872,8 @@ void Init_clipsruby(void)
 	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, "get_activation_list", clips_environment_static_get_activation_list, 1);
+	rb_define_method(rbEnvironment, "get_activation_list", clips_environment_get_activation_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);
@@ -4930,6 +5051,8 @@ void Init_clipsruby(void)
 	rb_define_method(rbDefrule, "defmodule_name", clips_environment_defrule_defmodule_name, 0);
 	rb_define_singleton_method(rbDefrule, "defmodule", clips_environment_defrule_static_defmodule, 1);
 	rb_define_method(rbDefrule, "defmodule", clips_environment_defrule_defmodule, 0);
+	rb_define_singleton_method(rbDefrule, "matches", clips_environment_defrule_static_matches, -1);
+	rb_define_method(rbDefrule, "matches", clips_environment_defrule_matches, -1);
 
 	VALUE rbDefclass = rb_define_class_under(rbEnvironment, "Defclass", rb_cObject);
 	rb_define_alloc_func(rbDefclass, defclass_alloc);
@@ -4964,4 +5087,9 @@ void Init_clipsruby(void)
 	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);
+
+	VALUE rbActivation = rb_define_class_under(rbEnvironment, "Activation", rb_cObject);
+	rb_define_alloc_func(rbActivation, activation_alloc);
+	rb_define_singleton_method(rbActivation, "defrule_name", clips_environment_activation_static_defrule_name, 1);
+	rb_define_method(rbActivation, "defrule_name", clips_environment_activation_defrule_name, 0);
 }

metadata

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