clipsruby 0.0.18 → 0.0.20

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 33891d80ffdc546c56d9cfa73c522f9b53ebbe666f21da00239aebb184d1f424
-  data.tar.gz: 10fae8b4acc60835743bbb301e936c21ed96a989fdc90d8119313494d406d3f1
+  metadata.gz: ed56e2c48e4ab0971ac56242518c127aa04368c3e2d6d1102f734ce577d89a54
+  data.tar.gz: ca7df6a8e9eb6711ed51b14e3db1ee799e887fe0d5b90755705b14672c57bd57
 SHA512:
-  metadata.gz: b212ee718009840bd627f666ec1cb16ea1732386dc3a3dc8bd12f39aac2ae24c9ccf207a0247e37298ba1411518c44bfb450cec70568c4db141bc0da6ddb8e28
-  data.tar.gz: ebc27064ab0edd3113683de4d6b75889b12ed4b2522b3d1e2de7598223526caf67dba7199c3520d22c712bb5e821981d99904b0ba228e9ded9b5cdfd5417d678
+  metadata.gz: 2017fc2246a1869a5971e3cd6c9471e8903c1435e71cb0735c729d2e3165be97a6bc6d48373a2b9e4b3d1343854a5ebd681a70934b81a78c7a8654c65db9bbfd
+  data.tar.gz: 59734c2c151c11125d8c114f9aaae1b62f869969e272f3b97de7d37ba1c908b577c091fffe000c161484d5536795f20eab66f19cf53842c90bb969c58aa266cb

data/README.md

@@ -168,6 +168,22 @@ CLIPS::Environment.find_fact(env, "(?f my_deftemplate)", "(eq ?f:b \"asdf\")")
 env.find_fact("(?f my_deftemplate)", "(= ?f:a 1)")
 ```
 
+### `CLIPS::Environment.get_fact_list`
+### `CLIPS::Environment#get_fact_list`
+
+Return an array of Facts in the environment. Pass an argument of a
+symbol, string, or Defmodule object in order to only get Facts with deftemplates
+in that Defmodule. If you do not, it will return all Facts in all modules.
+
+```ruby
+CLIPS::Environment.get_fact_list
+env.get_fact_list
+CLIPS::Environment.get_fact_list(:MAIN)
+env.get_fact_list(:MAIN)
+CLIPS::Environment.get_fact_list(defmodule)
+env.get_fact_list(defmodule)
+```
+
 ### `CLIPS::Environment.find_all_facts`
 ### `CLIPS::Environment#find_all_facts`
 
@@ -468,6 +484,16 @@ CLIPS::Environment::Defmodule.set_current(defmodule)
 defmodule.set_current
 ```
 
+### `CLIPS::Environment::Defmodule.get_fact_list`
+### `CLIPS::Environment::Defmodule#get_fact_list`
+
+Return an array of Facts with deftemplates in the Defmodule
+
+```ruby
+CLIPS::Environment::Defmodule.get_fact_list(defmodule)
+defmodule.get_fact_list
+```
+
 ## Running the tests
 
 Simply do `rake compile` and then `rake test` in order to run the tests.

data/ext/clipsruby/clipsruby.c

@@ -1,6 +1,18 @@
 #include "clips.h"
 #include "ruby.h"
 
+size_t deftemplate_size(const void *data)
+{
+	return sizeof(Deftemplate);
+}
+
+static const rb_data_type_t Deftemplate_type = {
+	.function = {
+		.dsize = deftemplate_size
+	},
+	.flags = RUBY_TYPED_FREE_IMMEDIATELY
+};
+
 size_t defmodule_size(const void *data)
 {
 	return sizeof(Defmodule);
@@ -91,6 +103,11 @@ VALUE defmodule_alloc(VALUE self)
 	return TypedData_Wrap_Struct(self, &Defmodule_type, NULL);
 }
 
+VALUE deftemplate_alloc(VALUE self)
+{
+	return TypedData_Wrap_Struct(self, &Deftemplate_type, NULL);
+}
+
 VALUE defrule_alloc(VALUE self)
 {
 	return TypedData_Wrap_Struct(self, &Defrule_type, NULL);
@@ -1313,6 +1330,137 @@ static VALUE clips_environment_static_find_defmodule(VALUE self, VALUE rbEnviron
 	return clips_environment_find_defmodule(rbEnvironment, defmodule_name);
 }
 
+static VALUE clips_environment_find_deftemplate(VALUE self, VALUE deftemplate_name)
+{
+	Environment *env;
+	Deftemplate *template;
+
+	TypedData_Get_Struct(self, Environment, &Environment_type, env);
+
+	switch (TYPE(deftemplate_name)) {
+		case T_STRING:
+			template = FindDeftemplate(env, StringValueCStr(deftemplate_name));
+			break;
+		case T_SYMBOL:
+			template = FindDeftemplate(env, rb_id2name(SYM2ID(deftemplate_name)));
+			break;
+                default:
+			rb_warn("deftemplate name must be a symbol or string");
+			return Qnil;
+        }
+
+	if (template == NULL) {
+		return Qnil;
+	} else {
+		VALUE rbDeftemplate;
+		rbDeftemplate = TypedData_Wrap_Struct(rb_const_get(CLASS_OF(self), rb_intern("Deftemplate")), &Deftemplate_type, template);
+		rb_iv_set(rbDeftemplate, "@environment", self);
+		return rbDeftemplate;
+	}
+}
+
+static VALUE clips_environment_static_find_deftemplate(VALUE self, VALUE rbEnvironment, VALUE deftemplate_name)
+{
+	return clips_environment_find_deftemplate(rbEnvironment, deftemplate_name);
+}
+
+static VALUE clips_environment_deftemplate_name(VALUE self)
+{
+	Deftemplate *deftemplate;
+
+	TypedData_Get_Struct(self, Deftemplate, &Deftemplate_type, deftemplate);
+
+	return ID2SYM(rb_intern(DeftemplateName(deftemplate)));
+}
+
+static VALUE clips_environment_deftemplate_static_name(VALUE self, VALUE rbDeftemplate)
+{
+	return clips_environment_deftemplate_name(rbDeftemplate);
+}
+
+static VALUE clips_environment_deftemplate_pp_form(VALUE self)
+{
+	Deftemplate *deftemplate;
+
+	TypedData_Get_Struct(self, Deftemplate, &Deftemplate_type, deftemplate);
+
+	return rb_str_new2(DeftemplatePPForm(deftemplate));
+}
+
+static VALUE clips_environment_deftemplate_static_pp_form(VALUE self, VALUE rbDeftemplate)
+{
+	return clips_environment_deftemplate_pp_form(rbDeftemplate);
+}
+
+static VALUE clips_environment_get_fact_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;
+        }
+	GetFactList(env, &value, module);
+
+	CLIPSValue_to_VALUE(&value, &out, &rbEnvironment);
+
+	return out;
+}
+
+static VALUE clips_environment_static_get_fact_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;
+        }
+	GetFactList(env, &value, module);
+
+	CLIPSValue_to_VALUE(&value, &out, &rbEnvironment);
+
+	return out;
+
+}
+
 static VALUE clips_environment_defmodule_name(VALUE self)
 {
 	Defmodule *defmodule;
@@ -1361,6 +1509,30 @@ static VALUE clips_environment_defmodule_static_set_current(VALUE self, VALUE rb
 	return clips_environment_defmodule_set_current(rbDefmodule);
 }
 
+static VALUE clips_environment_defmodule_get_fact_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);
+
+	GetFactList(env, &value, module);
+
+	CLIPSValue_to_VALUE(&value, &out, &rbEnvironment);
+
+	return out;
+}
+
+static VALUE clips_environment_defmodule_static_get_fact_list(VALUE self, VALUE rbDefmodule)
+{
+	return clips_environment_defmodule_get_fact_list(rbDefmodule);
+}
+
 static VALUE clips_environment_defrule_name(VALUE self)
 {
 	Defrule *defrule;
@@ -1510,10 +1682,21 @@ void Init_clipsruby(void)
 	rb_define_method(rbEnvironment, "find_defrule", clips_environment_find_defrule, 1);
 	rb_define_singleton_method(rbEnvironment, "find_defmodule", clips_environment_static_find_defmodule, 2);
 	rb_define_method(rbEnvironment, "find_defmodule", clips_environment_find_defmodule, 1);
+	rb_define_singleton_method(rbEnvironment, "find_deftemplate", clips_environment_static_find_deftemplate, 2);
+	rb_define_method(rbEnvironment, "find_deftemplate", clips_environment_find_deftemplate, 1);
 	rb_define_singleton_method(rbEnvironment, "get_current_module", clips_environment_static_get_current_module, 1);
 	rb_define_method(rbEnvironment, "get_current_module", clips_environment_get_current_module, 0);
 	rb_define_singleton_method(rbEnvironment, "set_current_module", clips_environment_static_set_current_module, 2);
 	rb_define_method(rbEnvironment, "set_current_module", clips_environment_set_current_module, 1);
+	rb_define_singleton_method(rbEnvironment, "get_fact_list", clips_environment_static_get_fact_list, -1);
+	rb_define_method(rbEnvironment, "get_fact_list", clips_environment_get_fact_list, -1);
+
+	VALUE rbDeftemplate = rb_define_class_under(rbEnvironment, "Deftemplate", rb_cObject);
+	rb_define_alloc_func(rbDeftemplate, deftemplate_alloc);
+	rb_define_singleton_method(rbDeftemplate, "name", clips_environment_deftemplate_static_name, 1);
+	rb_define_method(rbDeftemplate, "name", clips_environment_deftemplate_name, 0);
+	rb_define_singleton_method(rbDeftemplate, "pp_form", clips_environment_deftemplate_static_pp_form, 1);
+	rb_define_method(rbDeftemplate, "pp_form", clips_environment_deftemplate_pp_form, 0);
 
 	VALUE rbDefmodule = rb_define_class_under(rbEnvironment, "Defmodule", rb_cObject);
 	rb_define_alloc_func(rbDefmodule, defmodule_alloc);
@@ -1523,6 +1706,8 @@ void Init_clipsruby(void)
 	rb_define_method(rbDefmodule, "pp_form", clips_environment_defmodule_pp_form, 0);
 	rb_define_singleton_method(rbDefmodule, "set_current", clips_environment_defmodule_static_set_current, 1);
 	rb_define_method(rbDefmodule, "set_current", clips_environment_defmodule_set_current, 0);
+	rb_define_singleton_method(rbDefmodule, "get_fact_list", clips_environment_defmodule_static_get_fact_list, 1);
+	rb_define_method(rbDefmodule, "get_fact_list", clips_environment_defmodule_get_fact_list, 0);
 
 	VALUE rbFact = rb_define_class_under(rbEnvironment, "Fact", rb_cObject);
 	rb_define_alloc_func(rbFact, fact_alloc);

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: clipsruby
 version: !ruby/object:Gem::Version
-  version: 0.0.18
+  version: 0.0.20
 platform: ruby
 authors:
 - Ryan Johnston