clipsruby 0.0.41 → 0.0.42

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 78e7fd97fcf75571bb75e472d6275465c76a7d6cbed969624125850ec0c2cb6f
-  data.tar.gz: 79ce7ff30742b18bc75ac486c4499fbfb8473ae0e21c2f38f0b235dc7d444b25
+  metadata.gz: abe99d4312fdbfdef1029a782a1fba4300a125c4509da2d567de45beedcbd6b3
+  data.tar.gz: e97ad52abe0327927ac725d232abb2768ba0f19664f49045400b3be9697860a2
 SHA512:
-  metadata.gz: 1647880d18e55105b843376685b5cf675d6a790bd67b13aa7de26e1c6bc1066a0801a22459f975c952506441e555fb6eba0a2345803a129267f936b7cab86667
-  data.tar.gz: c2bfd4e51a6febef513acb84223f3439ed52ef24511683db9de341a349f523638daac48b932a30e291e73ae49b568b9f1d2f179e341c219a15fee768ec339281
+  metadata.gz: c95269f840906a2dbb7cc334b4a96e94d11ad88371bed342ae184ffec38e3496cd0a09407f0d2f1de18e340212592df2993bbe601e3acbe943345cc17ef569d8
+  data.tar.gz: c091dc218dd4becdcb69a8670339528ab5ab247b0c01256e6e1c796e827a65880743a3599113c55439e9c1afb63bc27705599c1ea965c82ab4baef83612d9310

data/README.md

@@ -152,6 +152,31 @@ CLIPS::Environment.load_facts(env, "./my-load-facts.clp")
 env.load_facts("./my-load-facts.clp")
 ```
 
+#### `CLIPS::Environment.save_instances` / `env.save_instances`
+
+Pass the path in which we'll save the environment instances.
+The third argument is optional, and determines whether to store the visible or local instances.
+By default, it'll store local.
+
+```ruby
+CLIPS::Environment.save_instances(env, "./my-save-instances.clp")
+env.save_instances("./my-save-instances.clp")
+CLIPS::Environment.save_instances(env, "./my-save-instances.clp", :local)
+env.save_instances("./my-save-instances.clp", :local)
+CLIPS::Environment.save_instances(env, "./my-save-instances.clp", :visible)
+env.save_instances("./my-save-instances.clp", :visible)
+```
+
+#### `CLIPS::Environment.load_instances` / `env.load_instances`
+
+Pass the path to a file that will load the instances stored in the file
+into the environment.
+
+```ruby
+CLIPS::Environment.load_instances(env, "./my-load-instances.clp")
+env.load_instances("./my-load-instances.clp")
+```
+
 #### `CLIPS::Environment.bsave` / `env.bsave`
 
 Pass the path in which we'll save the binary representation of the environment constructs.
@@ -196,6 +221,32 @@ CLIPS::Environment.bload_facts(env, "./my-bload-facts.bin")
 env.bload_facts("./my-bload-facts.bin")
 ```
 
+#### `CLIPS::Environment.bsave_instances` / `env.bsave_instances`
+
+Pass the path in which we'll save the binary representation of the environment instances.
+The third argument is optional, and determines whether to store the visible or local instances.
+By default, it'll store local.
+
+```ruby
+CLIPS::Environment.bsave_instances(env, "./my-bsave-instances.bin")
+env.bsave_instances("./my-bsave-instances.bin")
+CLIPS::Environment.bsave_instances(env, "./my-bsave-instances.bin", :local)
+env.bsave_instances("./my-bsave-instances.bin", :local)
+CLIPS::Environment.bsave_instances(env, "./my-bsave-instances.bin", :visible)
+env.bsave_instances("./my-bsave-instances.bin", :visible)
+```
+
+#### `CLIPS::Environment.bload_facts` / `env.bload_facts`
+
+Pass the path to a binary file that will load the facts stored in the file
+into the environment.
+
+```ruby
+CLIPS::Environment.bload_facts(env, "./my-bload-facts.bin")
+env.bload_facts("./my-bload-facts.bin")
+```
+
+
 #### `CLIPS::Environment.assert_string` / `CLIPS::Environment#assert_string`
 
 Assert a string as a Fact in the CLIPS environment.

data/ext/clipsruby/clipsruby.c

@@ -1984,6 +1984,74 @@ static VALUE clips_environment_static_load_facts(VALUE self, VALUE rbEnvironment
 	return clips_environment_load_facts(rbEnvironment, path);
 }
 
+static VALUE clips_environment_save_instances(int argc, VALUE *argv, VALUE rbEnvironment) {
+	VALUE path, scope;
+	Environment *env;
+
+	TypedData_Get_Struct(rbEnvironment, Environment, &Environment_type, env);
+
+	rb_scan_args(argc, argv, "11", &path, &scope);
+	if (NIL_P(scope)) {
+		scope = ID2SYM(rb_intern("local"));
+	}
+
+	int number_of_instances_saved;
+
+	if (scope == ID2SYM(rb_intern("visible"))) {
+		number_of_instances_saved = SaveInstances(env, StringValueCStr(path), VISIBLE_SAVE);
+	} else if (scope == ID2SYM(rb_intern("local"))) {
+		number_of_instances_saved = SaveInstances(env, StringValueCStr(path), LOCAL_SAVE);
+	} else {
+		rb_warn("could not save_instances: unsupported scope.");
+		return Qnil;
+	}
+	return INT2NUM(number_of_instances_saved);
+}
+
+static VALUE clips_environment_static_save_instances(int argc, VALUE *argv, VALUE klass) {
+	VALUE rbEnvironment, path, scope;
+	Environment *env;
+
+	rb_scan_args(argc, argv, "21", &rbEnvironment, &path, &scope);
+
+	TypedData_Get_Struct(rbEnvironment, Environment, &Environment_type, env);
+
+	if (NIL_P(scope)) {
+		scope = ID2SYM(rb_intern("local"));
+	}
+
+	int number_of_instances_saved;
+
+	if (scope == ID2SYM(rb_intern("visible"))) {
+		number_of_instances_saved = SaveInstances(env, StringValueCStr(path), VISIBLE_SAVE);
+	} else if (scope == ID2SYM(rb_intern("local"))) {
+		number_of_instances_saved = SaveInstances(env, StringValueCStr(path), LOCAL_SAVE);
+	} else {
+		rb_warn("could not save_instances: unsupported scope.");
+		return Qnil;
+	}
+	return INT2NUM(number_of_instances_saved);
+}
+
+static VALUE clips_environment_load_instances(VALUE self, VALUE path)
+{
+	Environment *env;
+
+	TypedData_Get_Struct(self, Environment, &Environment_type, env);
+	int number_of_instances_loaded = LoadInstances(env, StringValueCStr(path));
+
+	if (number_of_instances_loaded == -1) {
+		return Qnil;
+	} else {
+		return INT2NUM(number_of_instances_loaded);
+	}
+}
+
+static VALUE clips_environment_static_load_instances(VALUE self, VALUE rbEnvironment, VALUE path)
+{
+	return clips_environment_load_instances(rbEnvironment, path);
+}
+
 static VALUE clips_environment_bsave(VALUE self, VALUE path)
 {
 	Environment *env;
@@ -2089,6 +2157,76 @@ static VALUE clips_environment_static_bload_facts(VALUE self, VALUE rbEnvironmen
 	return clips_environment_bload_facts(rbEnvironment, path);
 }
 
+static VALUE clips_environment_bsave_instances(int argc, VALUE *argv, VALUE rbEnvironment) {
+	VALUE path, scope;
+	Environment *env;
+
+	TypedData_Get_Struct(rbEnvironment, Environment, &Environment_type, env);
+
+	rb_scan_args(argc, argv, "11", &path, &scope);
+	if (NIL_P(scope)) {
+		scope = ID2SYM(rb_intern("local"));
+	}
+
+	int number_of_instances_saved;
+
+	if (scope == ID2SYM(rb_intern("visible"))) {
+		number_of_instances_saved = BinarySaveInstances(env, StringValueCStr(path), VISIBLE_SAVE);
+	} else if (scope == ID2SYM(rb_intern("local"))) {
+		number_of_instances_saved = BinarySaveInstances(env, StringValueCStr(path), LOCAL_SAVE);
+	} else {
+		rb_warn("could not bsave_instances: unsupported scope.");
+		return Qnil;
+	}
+
+	return INT2NUM(number_of_instances_saved);
+}
+
+static VALUE clips_environment_static_bsave_instances(int argc, VALUE *argv, VALUE klass) {
+	VALUE rbEnvironment, path, scope;
+	Environment *env;
+
+	rb_scan_args(argc, argv, "21", &rbEnvironment, &path, &scope);
+
+	TypedData_Get_Struct(rbEnvironment, Environment, &Environment_type, env);
+
+	if (NIL_P(scope)) {
+		scope = ID2SYM(rb_intern("local"));
+	}
+
+	int number_of_instances_saved;
+
+	if (scope == ID2SYM(rb_intern("visible"))) {
+		number_of_instances_saved = BinarySaveInstances(env, StringValueCStr(path), VISIBLE_SAVE);
+	} else if (scope == ID2SYM(rb_intern("local"))) {
+		number_of_instances_saved = BinarySaveInstances(env, StringValueCStr(path), LOCAL_SAVE);
+	} else {
+		rb_warn("could not bsave_instances: unsupported scope.");
+		return Qnil;
+	}
+	return INT2NUM(number_of_instances_saved);
+}
+
+static VALUE clips_environment_bload_instances(VALUE self, VALUE path)
+{
+	Environment *env;
+
+	TypedData_Get_Struct(self, Environment, &Environment_type, env);
+	int number_of_instances_loaded = BinaryLoadInstances(env, StringValueCStr(path));
+
+	if (number_of_instances_loaded == -1) {
+		return Qnil;
+	} else {
+		return INT2NUM(number_of_instances_loaded);
+	}
+}
+
+static VALUE clips_environment_static_bload_instances(VALUE self, VALUE rbEnvironment, VALUE path)
+{
+	return clips_environment_bload_instances(rbEnvironment, path);
+}
+
+
 static VALUE clips_environment_fact_slot_names(VALUE self)
 {
 	Fact *fact;
@@ -4573,6 +4711,10 @@ void Init_clipsruby(void)
 	rb_define_method(rbEnvironment, "save_facts", clips_environment_save_facts, -1);
 	rb_define_singleton_method(rbEnvironment, "load_facts", clips_environment_static_load_facts, 2);
 	rb_define_method(rbEnvironment, "load_facts", clips_environment_load_facts, 1);
+	rb_define_singleton_method(rbEnvironment, "save_instances", clips_environment_static_save_instances, -1);
+	rb_define_method(rbEnvironment, "save_instances", clips_environment_save_instances, -1);
+	rb_define_singleton_method(rbEnvironment, "load_instances", clips_environment_static_load_instances, 2);
+	rb_define_method(rbEnvironment, "load_instances", clips_environment_load_instances, 1);
 	rb_define_singleton_method(rbEnvironment, "bsave", clips_environment_static_bsave, 2);
 	rb_define_method(rbEnvironment, "bsave", clips_environment_bsave, 1);
 	rb_define_singleton_method(rbEnvironment, "bload", clips_environment_static_bload, 2);
@@ -4581,6 +4723,10 @@ void Init_clipsruby(void)
 	rb_define_method(rbEnvironment, "bsave_facts", clips_environment_bsave_facts, -1);
 	rb_define_singleton_method(rbEnvironment, "bload_facts", clips_environment_static_bload_facts, 2);
 	rb_define_method(rbEnvironment, "bload_facts", clips_environment_bload_facts, 1);
+	rb_define_singleton_method(rbEnvironment, "bsave_instances", clips_environment_static_bsave_instances, -1);
+	rb_define_method(rbEnvironment, "bsave_instances", clips_environment_bsave_instances, -1);
+	rb_define_singleton_method(rbEnvironment, "bload_instances", clips_environment_static_bload_instances, 2);
+	rb_define_method(rbEnvironment, "bload_instances", clips_environment_bload_instances, 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);

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: clipsruby
 version: !ruby/object:Gem::Version
-  version: 0.0.41
+  version: 0.0.42
 platform: ruby
 authors:
 - Ryan Johnston
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2024-10-02 00:00:00.000000000 Z
+date: 2024-10-08 00:00:00.000000000 Z
 dependencies: []
 description: Calling the CLIPS programming language from within Ruby
 email: mrryanjohnston@gmail.com