clipsruby 0.0.26 → 0.0.28

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: fb3538a29ed740232a6a18314da3443bf632274e06fcb893cba9c70b0797353d
-  data.tar.gz: 49d5cf4c8e4435fb0b35cfe2434f2aeb12f0563e859c9b0fc93fb8d64b47ee29
+  metadata.gz: c3422d24e21cf31d89d413801a5804b91bdca8cfab4adc230bcdaeb6d4da3085
+  data.tar.gz: f34d498c8130445406058e05073abe0d48cc7c7a1c2fe5b4e2fb799bf4836f7a
 SHA512:
-  metadata.gz: 1bb0d0617bcf972ca6cbad967ff271e697920e21442d978ce9ee289c0f7e81f53b30fe1b722e334649ed274b62f10e2728683f8e5df84853f3ca6575f8a11444
-  data.tar.gz: 66b6617635f3ba892008749dee6645cbc6652e3815b19c37bea2eb752a231d342c0d0ab1873faae8bc14e07b238c2b298f3574907ef4fae7d7dae0a0cd0a30bd
+  metadata.gz: 9b22a805380544262da7bf544c163159a5b5846a8ce2c0da2754f2bcdabaea6c8209cf6c5b8154606bb14498a38e0fac9751e51926e03cddab7f120018905291
+  data.tar.gz: f13099a933300723e7e1062d6c4e144e286726476e942f172457cbc38c6e4957f982caf007cf0acbdb41b2a0c7713ce494712794670883a934580a4fd101b556

data/README.md

@@ -312,6 +312,16 @@ CLIPS::Environment::Fact.pp_form(fact)
 fact.pp_form
 ```
 
+### `CLIPS::Environment::Fact.existp`
+### `CLIPS::Environment::Fact#existp`
+
+Returns a boolean representing whether or not a Fact has been retracted
+
+```ruby
+CLIPS::Environment::Fact.existp(fact)
+fact.existp
+```
+
 ### `CLIPS::Environment::Fact.to_h`
 ### `CLIPS::Environment::Fact#to_h`
 
@@ -666,6 +676,56 @@ CLIPS::Environment::Deftemplate.slot_cardinality(deftemplate, :foo)
 deftemplate.slot_cardinality('bar')
 ```
 
+### `CLIPS::Environment::Deftemplate.slot_existp`
+### `CLIPS::Environment::Deftemplate#slot_existp`
+
+Returns a boolean for whether or not the slot with a given name
+exists on the Deftemplate.
+
+```ruby
+CLIPS::Environment::Deftemplate.slot_existp(deftemplate, :foo)
+deftemplate.slot_existp('bar')
+```
+
+### `CLIPS::Environment::Deftemplate.slot_singlep`
+### `CLIPS::Environment::Deftemplate#slot_singlep`
+
+Returns a boolean for whether or not the slot with a given name
+on the Deftemplate is a single slot.
+
+```ruby
+CLIPS::Environment::Deftemplate.slot_singlep(deftemplate, :foo)
+deftemplate.slot_singlep('bar')
+```
+
+### `CLIPS::Environment::Deftemplate.slot_multip`
+### `CLIPS::Environment::Deftemplate#slot_multip`
+
+Returns a boolean for whether or not the slot with a given name
+on the Deftemplate is a multislot.
+
+```ruby
+CLIPS::Environment::Deftemplate.slot_multip(deftemplate, :foo)
+deftemplate.slot_multip('bar')
+```
+
+### `CLIPS::Environment::Deftemplate.slot_defaultp`
+### `CLIPS::Environment::Deftemplate#slot_defaultp`
+
+Returns a symbol representing the type of default value a slot has
+on the Deftemplate. Possible return values are as follows:
+
+```ruby
+:NO_DEFAULT
+:STATIC_DEFAULT
+:DYNAMIC_DEFAULT
+```
+
+```ruby
+CLIPS::Environment::Deftemplate.slot_defaultp(deftemplate, :foo)
+deftemplate.slot_defaultp('bar')
+```
+
 ### `CLIPS::Environment::Defmodule.get_deftemplate_list`
 ### `CLIPS::Environment::Defmodule#get_deftemplate_list`
 

data/ext/clipsruby/clipsruby.c

@@ -1796,6 +1796,24 @@ static VALUE clips_environment_fact_static_pp_form(int argc, VALUE *argv, VALUE
 	return toReturn;
 }
 
+static VALUE clips_environment_fact_existp(VALUE self)
+{
+	Fact *fact;
+
+	TypedData_Get_Struct(self, Fact, &Fact_type, fact);
+
+	if (FactExistp(fact)) {
+		return Qtrue;
+	} else {
+		return Qfalse;
+	}
+}
+
+static VALUE clips_environment_fact_static_existp(VALUE self, VALUE rbFact)
+{
+	return clips_environment_fact_existp(rbFact);
+}
+
 static VALUE clips_environment_get_fact_list(int argc, VALUE *argv, VALUE rbEnvironment) {
 	VALUE defmodule_or_defmodule_name;
 	Environment *env;
@@ -2092,6 +2110,136 @@ static VALUE clips_environment_deftemplate_static_is_deletable(VALUE self, VALUE
 	return clips_environment_deftemplate_is_deletable(rbDeftemplate);
 }
 
+static VALUE clips_environment_deftemplate_slot_existp(VALUE self, VALUE slot_name)
+{
+	Deftemplate *deftemplate;
+	const char *cslot_name;
+	switch(TYPE(slot_name))
+	{
+		case T_SYMBOL:
+			cslot_name = rb_id2name(SYM2ID(slot_name));
+			break;
+		case T_STRING:
+			cslot_name = StringValueCStr(slot_name);
+			break;
+		default:
+			rb_raise(rb_eTypeError, "Slot name must be a String or a Symbol");
+			return ST_CONTINUE;
+	}
+
+	TypedData_Get_Struct(self, Deftemplate, &Deftemplate_type, deftemplate);
+
+	if (DeftemplateSlotExistP(deftemplate, cslot_name)) {
+		return Qtrue;
+	} else {
+		return Qfalse;
+	}
+}
+
+static VALUE clips_environment_deftemplate_static_slot_existp(VALUE self, VALUE rbDeftemplate, VALUE slot_name)
+{
+	return clips_environment_deftemplate_slot_existp(rbDeftemplate, slot_name);
+}
+
+static VALUE clips_environment_deftemplate_slot_singlep(VALUE self, VALUE slot_name)
+{
+	Deftemplate *deftemplate;
+	const char *cslot_name;
+	switch(TYPE(slot_name))
+	{
+		case T_SYMBOL:
+			cslot_name = rb_id2name(SYM2ID(slot_name));
+			break;
+		case T_STRING:
+			cslot_name = StringValueCStr(slot_name);
+			break;
+		default:
+			rb_raise(rb_eTypeError, "Slot name must be a String or a Symbol");
+			return ST_CONTINUE;
+	}
+
+	TypedData_Get_Struct(self, Deftemplate, &Deftemplate_type, deftemplate);
+
+	if (DeftemplateSlotSingleP(deftemplate, cslot_name)) {
+		return Qtrue;
+	} else {
+		return Qfalse;
+	}
+}
+
+static VALUE clips_environment_deftemplate_static_slot_singlep(VALUE self, VALUE rbDeftemplate, VALUE slot_name)
+{
+	return clips_environment_deftemplate_slot_singlep(rbDeftemplate, slot_name);
+}
+
+static VALUE clips_environment_deftemplate_slot_multip(VALUE self, VALUE slot_name)
+{
+	Deftemplate *deftemplate;
+	const char *cslot_name;
+	switch(TYPE(slot_name))
+	{
+		case T_SYMBOL:
+			cslot_name = rb_id2name(SYM2ID(slot_name));
+			break;
+		case T_STRING:
+			cslot_name = StringValueCStr(slot_name);
+			break;
+		default:
+			rb_raise(rb_eTypeError, "Slot name must be a String or a Symbol");
+			return ST_CONTINUE;
+	}
+
+	TypedData_Get_Struct(self, Deftemplate, &Deftemplate_type, deftemplate);
+
+	if (DeftemplateSlotMultiP(deftemplate, cslot_name)) {
+		return Qtrue;
+	} else {
+		return Qfalse;
+	}
+}
+
+static VALUE clips_environment_deftemplate_static_slot_multip(VALUE self, VALUE rbDeftemplate, VALUE slot_name)
+{
+	return clips_environment_deftemplate_slot_multip(rbDeftemplate, slot_name);
+}
+
+static VALUE clips_environment_deftemplate_slot_defaultp(VALUE self, VALUE slot_name)
+{
+	Deftemplate *deftemplate;
+	const char *cslot_name;
+	switch(TYPE(slot_name))
+	{
+		case T_SYMBOL:
+			cslot_name = rb_id2name(SYM2ID(slot_name));
+			break;
+		case T_STRING:
+			cslot_name = StringValueCStr(slot_name);
+			break;
+		default:
+			rb_warn("Slot name must be a String or a Symbol");
+			return Qnil;
+	}
+
+	TypedData_Get_Struct(self, Deftemplate, &Deftemplate_type, deftemplate);
+
+	switch (DeftemplateSlotDefaultP(deftemplate, cslot_name)) {
+		case NO_DEFAULT:
+			return ID2SYM(rb_intern("NO_DEFAULT"));
+		case STATIC_DEFAULT:
+			return ID2SYM(rb_intern("STATIC_DEFAULT"));
+		case DYNAMIC_DEFAULT:
+			return ID2SYM(rb_intern("DYNAMIC_DEFAULT"));
+		default:
+			rb_warn("CLIPS returned something we didn't expect for slot_defaultp...");
+			return Qnil;
+	}
+}
+
+static VALUE clips_environment_deftemplate_static_slot_defaultp(VALUE self, VALUE rbDeftemplate, VALUE slot_name)
+{
+	return clips_environment_deftemplate_slot_defaultp(rbDeftemplate, slot_name);
+}
+
 static VALUE clips_environment_defrule_has_breakpoint(VALUE self)
 {
 	Defrule *defrule;
@@ -2943,6 +3091,14 @@ void Init_clipsruby(void)
 	rb_define_method(rbDeftemplate, "slot_range", clips_environment_deftemplate_slot_range, 1);
 	rb_define_singleton_method(rbDeftemplate, "slot_cardinality", clips_environment_deftemplate_static_slot_cardinality, 2);
 	rb_define_method(rbDeftemplate, "slot_cardinality", clips_environment_deftemplate_slot_cardinality, 1);
+	rb_define_singleton_method(rbDeftemplate, "slot_existp", clips_environment_deftemplate_static_slot_existp, 2);
+	rb_define_method(rbDeftemplate, "slot_existp", clips_environment_deftemplate_slot_existp, 1);
+	rb_define_singleton_method(rbDeftemplate, "slot_singlep", clips_environment_deftemplate_static_slot_singlep, 2);
+	rb_define_method(rbDeftemplate, "slot_singlep", clips_environment_deftemplate_slot_singlep, 1);
+	rb_define_singleton_method(rbDeftemplate, "slot_multip", clips_environment_deftemplate_static_slot_multip, 2);
+	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);
 
 	VALUE rbDefmodule = rb_define_class_under(rbEnvironment, "Defmodule", rb_cObject);
 	rb_define_alloc_func(rbDefmodule, defmodule_alloc);
@@ -2977,6 +3133,8 @@ void Init_clipsruby(void)
 	rb_define_method(rbFact, "index", clips_environment_fact_index, 0);
 	rb_define_singleton_method(rbFact, "pp_form", clips_environment_fact_static_pp_form, -1);
 	rb_define_method(rbFact, "pp_form", clips_environment_fact_pp_form, -1);
+	rb_define_singleton_method(rbFact, "existp", clips_environment_fact_static_existp, 1);
+	rb_define_method(rbFact, "existp", clips_environment_fact_existp, 0);
 
 	VALUE rbDefrule = rb_define_class_under(rbEnvironment, "Defrule", rb_cObject);
 	rb_define_alloc_func(rbDefrule, defrule_alloc);

metadata

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