clipsruby 0.0.17 → 0.0.19

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: de97045f9a1a8a525b3749c820e21addf2bdbf4edbfefc3fd6d02e4d611560bc
-  data.tar.gz: d364bf452cf66ca60d9acc12d794fdc25ed613ef2db5c5af194a982b9beff1e5
+  metadata.gz: c06b3f9f05fc87da93b208ba7f77de5097f964a689e2a9d1cdc8d8e0d992c826
+  data.tar.gz: 151dd0c82d9213a7ce971935513cbd9c16ab76bc08b123c7321ecfe1fa5cf985
 SHA512:
-  metadata.gz: 4ed356daccf5a65e12ee6ac3c516efcf6035852eb70a4aab2a2b619ffc7a78c7dfba99c7c5d49bc7127b76ff5c6432e2709bbcc7b196160d55329411abbd892e
-  data.tar.gz: 99712624df319cf372755ada70bf503d5bd99a8a4bb336d3da8968fae9669b4482065259ebf337dc43b8820b9207e3afb08e80c88f43cb62b6bc90077b64113c
+  metadata.gz: d545c65c3587d29c3b0a4fa12ffa6ecc030c242c472bcb5eb607014de3a03bd465defbe34fa4753e2594e55b2f5685f4111d8ab1c38b2467a9fa38256e31458c
+  data.tar.gz: c49a1fa673d5f680ee9c6fc2a38ed4dd4708cc996b8624f620e97d5161a5f533077542d7b0a4e788c4a6a4b9be49ad1bbf4307e769fde4cc537dde92905b8b86

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`
 
@@ -266,6 +282,26 @@ CLIPS::Environment.facts(env)
 env.facts
 ```
 
+### `CLIPS::Environment.get_current_module`
+### `CLIPS::Environment#get_current_module`
+
+Get the current module in the CLIPS environment
+
+```ruby
+CLIPS::Environment.get_current_module(env)
+env.get_current_module
+```
+
+### `CLIPS::Environment.set_current_module`
+### `CLIPS::Environment#set_current_module`
+
+Set the current module in the CLIPS environment
+
+```ruby
+CLIPS::Environment.set_current_module(env, defmodule) 
+env.set_current_module(defmodule)
+```
+
 ### `CLIPS::Environment::Fact.to_h`
 ### `CLIPS::Environment::Fact#to_h`
 
@@ -408,6 +444,16 @@ CLIPS::Environment::Defrule.remove_break(defrule)
 defrule.remove_break
 ```
 
+### `CLIPS::Environment.find_defmodule`
+### `CLIPS::Environment#find_defmodule`
+
+Finds a defmodule by name and returns a CLIPS::Environment::Defmodule object
+
+```ruby
+CLIPS::Environment.find_defmodule(:a)
+env.find_defmodule("foo")
+```
+
 ### `CLIPS::Environment::Defmodule.name`
 ### `CLIPS::Environment::Defmodule#name`
 
@@ -428,6 +474,26 @@ CLIPS::Environment::Defmodule.pp_form(defmodule)
 defmodule.pp_form
 ```
 
+### `CLIPS::Environment::Defmodule.set_current`
+### `CLIPS::Environment::Defmodule#set_current`
+
+Sets the Defmodule as the current module of the environment
+
+```ruby
+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

@@ -1238,6 +1238,47 @@ static VALUE clips_environment_static_find_defrule(VALUE self, VALUE rbEnvironme
 	return clips_environment_find_defrule(rbEnvironment, defrule_name);
 }
 
+static VALUE clips_environment_get_current_module(VALUE self)
+{
+	Environment *env;
+	Defmodule *module;
+
+	TypedData_Get_Struct(self, Environment, &Environment_type, env);
+	module = GetCurrentModule(env);
+
+	if (module == NULL) {
+		return Qnil;
+	} else {
+		VALUE rbDefmodule;
+		rbDefmodule = TypedData_Wrap_Struct(rb_const_get(CLASS_OF(self), rb_intern("Defmodule")), &Defmodule_type, module);
+		rb_iv_set(rbDefmodule, "@environment", self);
+		return rbDefmodule;
+	}
+}
+
+static VALUE clips_environment_static_get_current_module(VALUE self, VALUE rbEnvironment)
+{
+	return clips_environment_get_current_module(rbEnvironment);
+}
+
+static VALUE clips_environment_set_current_module(VALUE self, VALUE rbDefmodule)
+{
+	Environment *env;
+	Defmodule *module;
+
+	TypedData_Get_Struct(self, Environment, &Environment_type, env);
+	TypedData_Get_Struct(rbDefmodule, Defmodule, &Defmodule_type, module);
+
+	SetCurrentModule(env, module);
+
+	return rbDefmodule;
+}
+
+static VALUE clips_environment_static_set_current_module(VALUE self, VALUE rbEnvironment, VALUE defmodule_name)
+{
+	return clips_environment_set_current_module(rbEnvironment, defmodule_name);
+}
+
 static VALUE clips_environment_find_defmodule(VALUE self, VALUE defmodule_name)
 {
 	Environment *env;
@@ -1260,7 +1301,10 @@ static VALUE clips_environment_find_defmodule(VALUE self, VALUE defmodule_name)
 	if (module == NULL) {
 		return Qnil;
 	} else {
-		return TypedData_Wrap_Struct(rb_const_get(CLASS_OF(self), rb_intern("Defmodule")), &Defmodule_type, module);
+		VALUE rbDefmodule;
+		rbDefmodule = TypedData_Wrap_Struct(rb_const_get(CLASS_OF(self), rb_intern("Defmodule")), &Defmodule_type, module);
+		rb_iv_set(rbDefmodule, "@environment", self);
+		return rbDefmodule;
 	}
 }
 
@@ -1269,6 +1313,75 @@ static VALUE clips_environment_static_find_defmodule(VALUE self, VALUE rbEnviron
 	return clips_environment_find_defmodule(rbEnvironment, defmodule_name);
 }
 
+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;
@@ -1297,6 +1410,50 @@ static VALUE clips_environment_defmodule_static_pp_form(VALUE self, VALUE rbDefm
 	return clips_environment_defmodule_pp_form(rbDefmodule);
 }
 
+static VALUE clips_environment_defmodule_set_current(VALUE self)
+{
+	Defmodule *module;
+	Environment *env;
+
+	VALUE rbEnvironment = rb_iv_get(self, "@environment");
+
+	TypedData_Get_Struct(self, Defmodule, &Defmodule_type, module);
+	TypedData_Get_Struct(rbEnvironment, Environment, &Environment_type, env);
+
+	SetCurrentModule(env, module);
+
+	return self;
+}
+
+static VALUE clips_environment_defmodule_static_set_current(VALUE self, VALUE rbDefmodule)
+{
+	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;
@@ -1446,6 +1603,12 @@ 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, "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 rbDefmodule = rb_define_class_under(rbEnvironment, "Defmodule", rb_cObject);
 	rb_define_alloc_func(rbDefmodule, defmodule_alloc);
@@ -1453,6 +1616,10 @@ void Init_clipsruby(void)
 	rb_define_method(rbDefmodule, "name", clips_environment_defmodule_name, 0);
 	rb_define_singleton_method(rbDefmodule, "pp_form", clips_environment_defmodule_static_pp_form, 1);
 	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.17
+  version: 0.0.19
 platform: ruby
 authors:
 - Ryan Johnston