clipsruby 0.0.7 → 0.0.9

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 75e4ce843f3549eb6b8508d4d97ab8193dc8434acab30659af50871953759991
-  data.tar.gz: 5372088f0743df5a5e3e94833bb7334608bfe85c0ede4879476e3a014eeb034d
+  metadata.gz: ede586e45827a7552e087b61a6f454a0d5c0c779e9d94b34deb2b13d1c7b5846
+  data.tar.gz: d46fdf1c8b9efd85600c976d414d4919ad8cd3c27171d15685f5dc059dd7c1e3
 SHA512:
-  metadata.gz: e3700fb8eb942640cd698985ecf00190ad447b89dfeed35df3125924e577de0be0f6b56695a1f0e2adfc078b2cdc7655bbdf08c22f40624eb305d4d539da2fd5
-  data.tar.gz: 7626b936453007c332c1cc1f191e449ce3c68f9447281a595fceef524a0cc9bc5a5c603d2afd5553887049d380c6297d0a8e27e9256f9fc54330722cdaaf8ba5
+  metadata.gz: 7a4ee2975ebcb75e69f6dd5efd2a3c4c3d9b1c31fdd27a1e3fcbc918342d894bcae35cacdfbfd7c3ecdd3535474ccefe456dcc7ff7fb571b7254c4baf78812e1
+  data.tar.gz: 689887738a961e056658085ef49b1aa52de1679a630db22f6ca8e5b57bd562a65e87574f4b1f5dd96a4caf957aad22311f434356d7a5ea59272674a790bd5d58

data/README.md

@@ -4,6 +4,17 @@
 
 Use the CLIPS programming language from within Ruby
 
+## Installation/Usage
+
+This is available as a Ruby gem:
+
+```
+gem install clipsruby
+```
+
+From there, you should be able to `require "clipsruby"` in your code
+and use the below API as described.
+
 ## API
 
 ### `CLIPS.create_environment`
@@ -113,6 +124,16 @@ CLIPS::Environment.facts(env)
 env.facts
 ```
 
+### `CLIPS::Environment::Fact.to_h`
+### `CLIPS::Environment::Fact#to_h`
+
+Returns a hash representing the fact slot names and their values
+
+```ruby
+CLIPS::Environment::Fact.to_h(fact)
+fact.to_h
+```
+
 ### `CLIPS::Environment::Fact.deftemplate_name`
 ### `CLIPS::Environment::Fact#deftemplate_name`
 
@@ -122,3 +143,7 @@ Returns the name of the Deftemplate for a fact as a symbol
 CLIPS::Environment::Fact.deftemplate_name(fact)
 fact.deftemplate_name
 ```
+
+## Running the tests
+
+Simply do `rake compile` and then `rake test` in order to run the tests.

data/ext/clipsruby/clipsruby.c

@@ -350,7 +350,7 @@ static void CLIPSValue_to_VALUE(CLIPSValue *from, VALUE *value, VALUE *rbEnviron
 			} else if (from->lexemeValue == FalseSymbol(env)) {
 				*value = Qfalse;
 			} else {
-				*value = rb_str_new2(from->lexemeValue->contents);
+				*value = ID2SYM(rb_intern(from->lexemeValue->contents));
 			}
 			break;
 		case INTEGER_TYPE:
@@ -402,7 +402,7 @@ static void UDFValue_to_VALUE(UDFValue *from, VALUE *value, VALUE *rbEnvironment
 			} else if (from->lexemeValue == FalseSymbol(env)) {
 				*value = Qfalse;
 			} else {
-				*value = rb_str_new2(from->lexemeValue->contents);
+				*value = ID2SYM(rb_intern(from->lexemeValue->contents));
 			}
 			break;
 		case INTEGER_TYPE:
@@ -657,6 +657,51 @@ static VALUE clips_environment_static_find_all_facts(int argc, VALUE *argv, VALU
 		rb_sprintf("(find-all-facts (%s) %s)", StringValueCStr(fact_set_template), StringValueCStr(query)));
 }
 
+static VALUE clips_environment_fact_to_h(VALUE self)
+{
+	Fact *fact;
+	CLIPSValue key, value;
+	VALUE rbEnvironment = rb_iv_get(self, "@environment");
+
+	TypedData_Get_Struct(self, Fact, &Fact_type, fact);
+
+	FactSlotNames(fact, &key);
+
+	VALUE hash = rb_hash_new();
+	for (size_t i = 0; i < key.multifieldValue->length; i++)
+	{
+		VALUE innerValue;
+		GetFactSlot(fact, key.multifieldValue->contents[i].lexemeValue->contents, &value);
+		CLIPSValue_to_VALUE(&value, &innerValue, &rbEnvironment);
+		rb_hash_aset(hash, ID2SYM(rb_intern(key.multifieldValue->contents[i].lexemeValue->contents)), innerValue);
+	}
+
+	return hash;
+}
+
+static VALUE clips_environment_fact_static_to_h(VALUE self, VALUE rbFact)
+{
+	return clips_environment_fact_to_h(rbFact);
+}
+
+static VALUE clips_environment_batch_star(VALUE self, VALUE path)
+{
+	Environment *env;
+
+	TypedData_Get_Struct(self, Environment, &Environment_type, env);
+
+	if (BatchStar(env, StringValueCStr(path))) {
+		return Qtrue;
+	} else {
+		return Qfalse;
+	}
+}
+
+static VALUE clips_environment_static_batch_star(VALUE self, VALUE rbEnvironment, VALUE path)
+{
+	return clips_environment_batch_star(rbEnvironment, path);
+}
+
 void Init_clipsruby(void)
 {
 	VALUE rbCLIPS = rb_define_module("CLIPS");
@@ -680,14 +725,14 @@ void Init_clipsruby(void)
 	rb_define_method(rbEnvironment, "_eval", clips_environment_eval, 1);
 	rb_define_singleton_method(rbEnvironment, "find_all_facts", clips_environment_static_find_all_facts, -1);
 	rb_define_method(rbEnvironment, "find_all_facts", clips_environment_find_all_facts, -1);
+	rb_define_singleton_method(rbEnvironment, "batch_star", clips_environment_static_batch_star, 2);
+	rb_define_method(rbEnvironment, "batch_star", clips_environment_batch_star, 1);
 
 	VALUE rbFact = rb_define_class_under(rbEnvironment, "Fact", rb_cObject);
 	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);
 	rb_define_method(rbFact, "to_h", clips_environment_fact_to_h, 0);
-	*/
 
 	VALUE rbInstance = rb_define_class_under(rbEnvironment, "Instance", rb_cObject);
 }

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: clipsruby
 version: !ruby/object:Gem::Version
-  version: 0.0.7
+  version: 0.0.9
 platform: ruby
 authors:
 - Ryan Johnston
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2024-09-05 00:00:00.000000000 Z
+date: 2024-09-06 00:00:00.000000000 Z
 dependencies: []
 description: Calling the CLIPS programming language from within Ruby
 email: mrryanjohnston@gmail.com
@@ -367,6 +367,7 @@ homepage: https://rubygems.org/gems/clipsruby
 licenses:
 - MIT
 metadata:
+  documentation_uri: https://github.com/mrryanjohnston/clipsruby/blob/main/README.md
   source_code_uri: https://github.com/mrryanjohnston/clipsruby
 post_install_message:
 rdoc_options: []