clipsruby 0.0.16 → 0.0.18

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 4d5b7a59f7219254864351b91605797ae234e16e608d59233703143c7abf54dc
-  data.tar.gz: fcb8917ac24d4bb0168c95b4349377d264a13683aeba0ab7fab6f319267da7a4
+  metadata.gz: 33891d80ffdc546c56d9cfa73c522f9b53ebbe666f21da00239aebb184d1f424
+  data.tar.gz: 10fae8b4acc60835743bbb301e936c21ed96a989fdc90d8119313494d406d3f1
 SHA512:
-  metadata.gz: 443bbd98d165934e83653355a59441aec19aab844a3d381ce604d1701ea3229215459112aa91e4704d6c4bc7a16d1df181c7a21b5f6539d4ef5b7f3bf531d0e0
-  data.tar.gz: '090a1fa0c36b3e13070d5bab7fd0f572342dc737c13fcf6d877aff2730bddd5166ed88b8f2f1894680b93b6620f2bec684f43c2187065b6da020dc5717b2334e'
+  metadata.gz: b212ee718009840bd627f666ec1cb16ea1732386dc3a3dc8bd12f39aac2ae24c9ccf207a0247e37298ba1411518c44bfb450cec70568c4db141bc0da6ddb8e28
+  data.tar.gz: ebc27064ab0edd3113683de4d6b75889b12ed4b2522b3d1e2de7598223526caf67dba7199c3520d22c712bb5e821981d99904b0ba228e9ded9b5cdfd5417d678

data/README.md

@@ -266,6 +266,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 +428,46 @@ 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`
+
+Returns the name of a defmodule as a symbol
+
+```ruby
+CLIPS::Environment::Defmodule.name(defmodule)
+defmodule.name
+```
+
+### `CLIPS::Environment::Defmodule.pp_form`
+### `CLIPS::Environment::Defmodule#pp_form`
+
+Returns a pretty printed string representation of the Defmodule
+
+```ruby
+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
+```
+
 ## 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,19 @@
 #include "clips.h"
 #include "ruby.h"
 
+size_t defmodule_size(const void *data)
+{
+	return sizeof(Defmodule);
+}
+
+static const rb_data_type_t Defmodule_type = {
+	.function = {
+		.dsize = defmodule_size
+	},
+	.flags = RUBY_TYPED_FREE_IMMEDIATELY
+};
+
+
 size_t defrule_size(const void *data)
 {
 	return sizeof(Defrule);
@@ -73,6 +86,21 @@ static VALUE clips_environment_static_facts(VALUE self, VALUE rbEnvironment)
 	return clips_environment_facts(rbEnvironment);
 }
 
+VALUE defmodule_alloc(VALUE self)
+{
+	return TypedData_Wrap_Struct(self, &Defmodule_type, NULL);
+}
+
+VALUE defrule_alloc(VALUE self)
+{
+	return TypedData_Wrap_Struct(self, &Defrule_type, NULL);
+}
+
+VALUE fact_alloc(VALUE self)
+{
+	return TypedData_Wrap_Struct(self, &Fact_type, NULL);
+}
+
 VALUE environment_alloc(VALUE self)
 {
 	return TypedData_Wrap_Struct(self, &Environment_type, CreateEnvironment());
@@ -1210,6 +1238,129 @@ 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;
+	Defmodule *module;
+
+	TypedData_Get_Struct(self, Environment, &Environment_type, env);
+
+	switch (TYPE(defmodule_name)) {
+		case T_STRING:
+			module = FindDefmodule(env, StringValueCStr(defmodule_name));
+			break;
+		case T_SYMBOL:
+			module = FindDefmodule(env, rb_id2name(SYM2ID(defmodule_name)));
+			break;
+                default:
+			rb_warn("defmodule name must be a symbol or string");
+			return Qnil;
+        }
+
+	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_find_defmodule(VALUE self, VALUE rbEnvironment, VALUE defmodule_name)
+{
+	return clips_environment_find_defmodule(rbEnvironment, defmodule_name);
+}
+
+static VALUE clips_environment_defmodule_name(VALUE self)
+{
+	Defmodule *defmodule;
+
+	TypedData_Get_Struct(self, Defmodule, &Defmodule_type, defmodule);
+
+	return ID2SYM(rb_intern(DefmoduleName(defmodule)));
+}
+
+static VALUE clips_environment_defmodule_static_name(VALUE self, VALUE rbDefmodule)
+{
+	return clips_environment_defmodule_name(rbDefmodule);
+}
+
+static VALUE clips_environment_defmodule_pp_form(VALUE self)
+{
+	Defmodule *defmodule;
+
+	TypedData_Get_Struct(self, Defmodule, &Defmodule_type, defmodule);
+
+	return rb_str_new2(DefmodulePPForm(defmodule));
+}
+
+static VALUE clips_environment_defmodule_static_pp_form(VALUE self, VALUE rbDefmodule)
+{
+	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_defrule_name(VALUE self)
 {
 	Defrule *defrule;
@@ -1357,8 +1508,24 @@ void Init_clipsruby(void)
 	rb_define_method(rbEnvironment, "bload_facts", clips_environment_bload_facts, 1);
 	rb_define_singleton_method(rbEnvironment, "find_defrule", clips_environment_static_find_defrule, 2);
 	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);
+
+	VALUE rbDefmodule = rb_define_class_under(rbEnvironment, "Defmodule", rb_cObject);
+	rb_define_alloc_func(rbDefmodule, defmodule_alloc);
+	rb_define_singleton_method(rbDefmodule, "name", clips_environment_defmodule_static_name, 1);
+	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);
 
 	VALUE rbFact = rb_define_class_under(rbEnvironment, "Fact", rb_cObject);
+	rb_define_alloc_func(rbFact, fact_alloc);
 	rb_define_singleton_method(rbFact, "deftemplate_name", clips_environment_fact_static_deftemplate_name, 1);
 	rb_define_method(rbFact, "deftemplate_name", clips_environment_fact_deftemplate_name, 0);
 	rb_define_singleton_method(rbFact, "to_h", clips_environment_fact_static_to_h, 1);
@@ -1375,6 +1542,7 @@ void Init_clipsruby(void)
 	rb_define_method(rbFact, "index", clips_environment_fact_index, 0);
 
 	VALUE rbDefrule = rb_define_class_under(rbEnvironment, "Defrule", rb_cObject);
+	rb_define_alloc_func(rbDefrule, defrule_alloc);
 	rb_define_singleton_method(rbDefrule, "name", clips_environment_defrule_static_name, 1);
 	rb_define_method(rbDefrule, "name", clips_environment_defrule_name, 0);
 	rb_define_singleton_method(rbDefrule, "pp_form", clips_environment_defrule_static_pp_form, 1);

metadata

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