gvars 0.1.0 → 0.1.3

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 4e3985d26424ff4d447445b3d10b132cb45a578272a14b0f9439a70a1da22030
-  data.tar.gz: e18ec85c05f64b05b22dd0623330bac0146376df4ec25daf3ba74d6157e9d93c
+  metadata.gz: 2ad79094c679e0044908f36687249abd41da98b4df01c1528a03c7832fd2fb6f
+  data.tar.gz: d49eaba2f5462f1d6cdd10610e8c27b1207b64258ff84a624ef936309db124e7
 SHA512:
-  metadata.gz: 3ee1ae6ceea846f070549ce145715d4091a012979f2830f5cd425e701dd493f9ca15eaf46a084099ee4964436e508f114fab4f274d350f522a08466a874b2156
-  data.tar.gz: 758bce3ec8a248e43ec6273b026aa4e384ee260575d05a2150fb3a72c0e815600080f77ea68d5a9fbe6fbf7d830820ccbad6453d7fd5b956841fff4e880bb83e
+  metadata.gz: 3350ee1b36efea744b2bb63c9b5da0dad533172348b998dc17a78fc7e2905de5703283390949cc7eb117d5bf727289f66c32ffc206987be7e61ee857b612696e
+  data.tar.gz: 356f099483a5bda93da5ae6da01a71887f86dcf81974818cb1fa225447a0c6f354eb0ab3bcc62754cc24140b5fbcf5ce57a054201aa00abc52f6e4586d4cd271

data/Rakefile

@@ -1,8 +1,25 @@
 # frozen_string_literal: true
 
-require "bundler/gem_tasks"
-require "minitest/test_task"
+require 'bundler/gem_tasks'
+require 'rake/extensiontask'
+require 'minitest/test_task'
 
-Minitest::TestTask.create
+task default: [:compile]
 
-task default: :test
+Rake::ExtensionTask.new('gvars') do |ext|
+  ext.lib_dir = 'lib/gvars'
+end
+
+# Minitest::TestTask.create
+
+# task default: :test
+
+desc 'clean compiled files'
+task :clean do
+  require 'fileutils'
+  FileUtils.rm_rf 'ext/gvars/Makefile'
+  FileUtils.rm_rf 'ext/gvars/gvars.so'
+  FileUtils.rm_rf 'ext/gvars/gvars.bundle'
+  FileUtils.rm_rf 'lib/gvars/gvars.so'
+  FileUtils.rm_rf 'lib/gvars/gvars.bundle'
+end

data/ext/gvars/extconf.rb

@@ -0,0 +1,5 @@
+require 'mkmf'
+
+$CFLAGS << ' -g -fsanitize=undefined'
+
+create_makefile 'gvars/gvars'

data/ext/gvars/gvars.c

@@ -0,0 +1,125 @@
+#include "ruby.h"
+
+static VALUE
+gvars_global_variable_get(VALUE self, VALUE name)
+{
+	if (RB_SYMBOL_P(name)) name = rb_sym2str(name);
+	return rb_gv_get(StringValueCStr(name));
+}
+
+static VALUE
+gvars_global_variable_set(VALUE self, VALUE name, VALUE value)
+{
+	if (RB_SYMBOL_P(name)) name = rb_sym2str(name);
+	return rb_gv_set(StringValueCStr(name), value);
+}
+
+static VALUE
+gvars_global_variable_defined_p(VALUE self, VALUE name)
+{
+	extern VALUE rb_gvar_defined(ID);
+	return rb_gvar_defined(rb_check_id(&name));
+}
+
+static VALUE
+gvars_global_variables(VALUE self)
+{
+	return rb_f_global_variables();
+}
+
+static VALUE
+gvars_alias_global_variable(VALUE self, VALUE new, VALUE old)
+{
+	if (RB_SYMBOL_P(new)) new = rb_sym2str(new);
+	if (RB_SYMBOL_P(old)) old = rb_sym2str(old);
+
+	// ID newid = rb_intern_str(new);
+	// ID newid = rb_check_id(&new);
+	// ID oldid = rb_check_id(&old);
+
+	rb_alias_variable(rb_intern_str(new), rb_intern_str(old));
+	return new;
+}
+
+struct hooked_var {
+	VALUE getter, setter;
+};
+
+static VALUE hooked_var_getter(ID id, VALUE *data) {
+	struct hooked_var *bv = (struct hooked_var *)data;
+	return rb_proc_call_kw(bv->getter, rb_ary_new3(1, rb_id2str(id)), RB_NO_KEYWORDS);
+}
+
+static void hooked_var_setter(VALUE val, ID id, VALUE *data) {
+	struct hooked_var *bv = (struct hooked_var *)data;
+	rb_proc_call_kw(bv->setter, rb_ary_new3(2, rb_id2str(id), val), RB_NO_KEYWORDS);
+}
+
+static VALUE
+gvars_define_virtual_global(int argc, VALUE *argv, VALUE self)
+{
+	VALUE name, getter, setter;
+
+	switch (rb_scan_args(argc, argv, "12", &name, &getter, &setter)) {
+	case 1: getter = (rb_need_block(), rb_block_proc());
+	case 2: setter = Qnil;
+	case 3: break;
+	default: rb_bug("oops");
+	}
+
+	const char *name_str = rb_id2name(rb_check_id(&name));
+
+	VALUE getter_proc, setter_proc;
+
+	getter_proc = rb_convert_type(getter, T_DATA, "Proc", "to_proc");
+	if (NIL_P(getter_proc) || !rb_obj_is_proc(getter_proc)) {
+		rb_raise(rb_eTypeError, "wrong getter type %s (expected Proc)", rb_obj_classname(getter_proc));
+	}
+
+	if (NIL_P(setter)) {
+		setter_proc = Qnil;
+	} else {
+		setter_proc = rb_convert_type(setter, T_DATA, "Proc", "to_proc");
+		if (NIL_P(setter_proc) || !rb_obj_is_proc(setter_proc)) {
+			rb_raise(rb_eTypeError, "wrong setter type %s (expected Proc)", rb_obj_classname(setter_proc));
+		}
+	}
+
+	// todo: not just leak memory here lol
+	struct hooked_var *hv = (struct hooked_var *)malloc(sizeof(struct hooked_var));
+	hv->getter = getter_proc;
+	hv->setter = setter_proc;
+
+	rb_define_hooked_variable(name_str, (VALUE *)hv, hooked_var_getter, setter_proc == Qnil ? rb_gvar_readonly_setter : hooked_var_setter);
+	return name;
+}
+
+VALUE gvars_module;
+
+void
+Init_gvars(void)
+{
+	gvars_module = rb_define_module("GVars");
+
+	// Define module-level functions that can be used as mixins
+	rb_define_module_function(gvars_module, "global_variable_get", gvars_global_variable_get, 1);
+	rb_define_module_function(gvars_module, "global_variable_set", gvars_global_variable_set, 2);
+	rb_define_module_function(gvars_module, "global_variable_defined?", gvars_global_variable_defined_p, 1);
+	rb_define_module_function(gvars_module, "alias_global_variable", gvars_alias_global_variable, 2);
+
+	// Don't make mixin, as it exists in Kernel
+	rb_define_singleton_method(gvars_module, "global_variables", gvars_global_variables, 0);
+
+	// aliases at top-level
+	rb_define_alias(rb_singleton_class(gvars_module), "get", "global_variable_get");
+	rb_define_alias(rb_singleton_class(gvars_module), "set", "global_variable_set");
+	rb_define_alias(rb_singleton_class(gvars_module), "defined?", "global_variable_defined?");
+	rb_define_alias(rb_singleton_class(gvars_module), "alias", "alias_global_variable");
+	rb_define_alias(rb_singleton_class(gvars_module), "list", "global_variables");
+	rb_define_alias(rb_singleton_class(gvars_module), "[]", "global_variable_get");
+	rb_define_alias(rb_singleton_class(gvars_module), "[]=", "global_variable_set");
+
+	rb_define_singleton_method(gvars_module, "define_virtual_global", gvars_define_virtual_global, -1);
+
+	// Virtual methods: TODO
+}

data/lib/gvars/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
-module Gvars
-  VERSION = "0.1.0"
+module GVars
+  VERSION = "0.1.3"
 end

data/lib/gvars.rb

@@ -1,8 +1,4 @@
 # frozen_string_literal: true
 
 require_relative "gvars/version"
-
-module Gvars
-  class Error < StandardError; end
-  # Your code goes here...
-end
+require_relative "gvars/gvars"

data/sig/gvars.rbs

@@ -1,4 +1,20 @@
-module Gvars
+module GVars
   VERSION: String
+
+  def self?.global_variable_get: (interned name) -> untyped
+  def self?.global_variable_set: [T] (interned name, T value) -> T
+  def self?.alias_global_variable: (interned to_set, interned original) -> __todo__
+  def self?.global_variables: () -> Array[Symbol]
+
+  alias self.get self.global_variable_get
+  alias self.[] self.global_variable_get
+  alias self.set self.global_variable_set
+  alias self.[]= self.global_variable_set
+  alias self.list self.global_variables
+  alias self.alias self.alias_global_variable
+
+  def self.define_virtual_global: (interned name) { (Symbol name) -> untyped } -> void
+                                | (interned name, proc getter, ?proc setter) -> void
+
   # See the writing guide of rbs: https://github.com/ruby/rbs#guides
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: gvars
 version: !ruby/object:Gem::Version
-  version: 0.1.0
+  version: 0.1.3
 platform: ruby
 authors:
 - SamW
@@ -13,12 +13,15 @@ description: 'TO DO: Write a longer description or delete this line.'
 email:
 - mail@sampersand.me
 executables: []
-extensions: []
+extensions:
+- ext/gvars/extconf.rb
 extra_rdoc_files: []
 files:
 - LICENSE.txt
 - README.md
 - Rakefile
+- ext/gvars/extconf.rb
+- ext/gvars/gvars.c
 - lib/gvars.rb
 - lib/gvars/version.rb
 - sig/gvars.rbs