clipsruby 0.0.15 → 0.0.17

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 1c09bd00794b99f18db2f3e1a7e79add255696071f73192f1009d97f6bc6a222
-  data.tar.gz: e68259458eb14602e69184d82723518b3ad99bf082a4a23994f0fb6b54ffffa3
+  metadata.gz: de97045f9a1a8a525b3749c820e21addf2bdbf4edbfefc3fd6d02e4d611560bc
+  data.tar.gz: d364bf452cf66ca60d9acc12d794fdc25ed613ef2db5c5af194a982b9beff1e5
 SHA512:
-  metadata.gz: f147d8a530205d27de62750701a2359ed5e0fdc9b7e6d01f9d953878f9dbc501f742406f6199a27b57231e465c48e608c1df4514b758e524f12e5f40d4f6fac4
-  data.tar.gz: 7927273ee5ed8945f122032796c07cb44def5d597d6a07cc1e24d2aa7788b3b02477b134463d007a4f4db32339e8860ccfa91bf9225d1d685e3d5e931daf0f62
+  metadata.gz: 4ed356daccf5a65e12ee6ac3c516efcf6035852eb70a4aab2a2b619ffc7a78c7dfba99c7c5d49bc7127b76ff5c6432e2709bbcc7b196160d55329411abbd892e
+  data.tar.gz: 99712624df319cf372755ada70bf503d5bd99a8a4bb336d3da8968fae9669b4482065259ebf337dc43b8820b9207e3afb08e80c88f43cb62b6bc90077b64113c

data/README.md

@@ -378,6 +378,56 @@ CLIPS::Environment::Defrule.pp_form(defrule)
 defrule.pp_form
 ```
 
+### `CLIPS::Environment::Defrule.has_breakpoint`
+### `CLIPS::Environment::Defrule#has_breakpoint`
+
+Returns whether or not the rule has a breakpoint set
+
+```ruby
+CLIPS::Environment::Defrule.has_breakpoint(defrule)
+defrule.has_breakpoint
+```
+
+### `CLIPS::Environment::Defrule.set_break`
+### `CLIPS::Environment::Defrule#set_break`
+
+Sets a breakpoint on a rule
+
+```ruby
+CLIPS::Environment::Defrule.set_break(defrule)
+defrule.set_break
+```
+
+### `CLIPS::Environment::Defrule.remove_break`
+### `CLIPS::Environment::Defrule#remove_break`
+
+Returns whether or not it was able to remove a breakpoint from a rule
+
+```ruby
+CLIPS::Environment::Defrule.remove_break(defrule)
+defrule.remove_break
+```
+
+### `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
+```
+
 ## 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,65 @@ static VALUE clips_environment_static_find_defrule(VALUE self, VALUE rbEnvironme
 	return clips_environment_find_defrule(rbEnvironment, defrule_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 {
+		return TypedData_Wrap_Struct(rb_const_get(CLASS_OF(self), rb_intern("Defmodule")), &Defmodule_type, module);
+	}
+}
+
+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_defrule_name(VALUE self)
 {
 	Defrule *defrule;
@@ -1256,6 +1343,58 @@ static VALUE clips_environment_defrule_static_is_deletable(VALUE self, VALUE rbD
 	return clips_environment_defrule_is_deletable(rbDefrule);
 }
 
+static VALUE clips_environment_defrule_has_breakpoint(VALUE self)
+{
+	Defrule *defrule;
+
+	TypedData_Get_Struct(self, Defrule, &Defrule_type, defrule);
+
+	if (DefruleHasBreakpoint(defrule)) {
+		return Qtrue;
+	} else {
+		return Qfalse;
+	}
+}
+
+static VALUE clips_environment_defrule_static_has_breakpoint(VALUE self, VALUE rbDefrule)
+{
+	return clips_environment_defrule_has_breakpoint(rbDefrule);
+}
+
+static VALUE clips_environment_defrule_set_break(VALUE self)
+{
+	Defrule *defrule;
+
+	TypedData_Get_Struct(self, Defrule, &Defrule_type, defrule);
+
+	SetBreak(defrule);
+
+	return Qnil;
+}
+
+static VALUE clips_environment_defrule_static_set_break(VALUE self, VALUE rbDefrule)
+{
+	return clips_environment_defrule_set_break(rbDefrule);
+}
+
+static VALUE clips_environment_defrule_remove_break(VALUE self)
+{
+	Defrule *defrule;
+
+	TypedData_Get_Struct(self, Defrule, &Defrule_type, defrule);
+
+	if (RemoveBreak(defrule)) {
+		return Qtrue;
+	} else {
+		return Qfalse;
+	}
+}
+
+static VALUE clips_environment_defrule_static_remove_break(VALUE self, VALUE rbDefrule)
+{
+	return clips_environment_defrule_remove_break(rbDefrule);
+}
+
 void Init_clipsruby(void)
 {
 	VALUE rbCLIPS = rb_define_module("CLIPS");
@@ -1305,8 +1444,18 @@ 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);
+
+	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);
 
 	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);
@@ -1323,12 +1472,19 @@ 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);
 	rb_define_method(rbDefrule, "pp_form", clips_environment_defrule_pp_form, 0);
 	rb_define_singleton_method(rbDefrule, "is_deletable", clips_environment_defrule_static_is_deletable, 1);
 	rb_define_method(rbDefrule, "is_deletable", clips_environment_defrule_is_deletable, 0);
+	rb_define_singleton_method(rbDefrule, "has_breakpoint", clips_environment_defrule_static_has_breakpoint, 1);
+	rb_define_method(rbDefrule, "has_breakpoint", clips_environment_defrule_has_breakpoint, 0);
+	rb_define_singleton_method(rbDefrule, "set_break", clips_environment_defrule_static_set_break, 1);
+	rb_define_method(rbDefrule, "set_break", clips_environment_defrule_set_break, 0);
+	rb_define_singleton_method(rbDefrule, "remove_break", clips_environment_defrule_static_remove_break, 1);
+	rb_define_method(rbDefrule, "remove_break", clips_environment_defrule_remove_break, 0);
 
 	VALUE rbInstance = rb_define_class_under(rbEnvironment, "Instance", rb_cObject);
 }

metadata

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