c_extensions/c_procs.rb

tests/_examples/c_extensions/c_procs.rb in the metorex repository.

# A C extension making a Proc around a C block function, asking a Proc its
# arity, and calling Procs with arguments, keywords and a block.
require "tmpdir"
require_relative "build_helper"

directory = Dir.mktmpdir
require(build_extension("c_procs.c", "c_procs", directory))
procs = CProcs.new

made = procs.make(:data)
p(made.call(1, 2))
p(made.call([1, 2]))
p(made.call { :given })
p(made[])
p([made.arity, made.lambda?, made.source_location])
p(made.inspect.match?(/\A#<Proc:0x\h+>\z/))
p(made == procs.make(:data))
reader = procs.make_block_reader
action = -> { :acted }
p(reader.call(&action).equal?(action))
p(reader.call)

p([procs.arity(proc { |a, b| }), procs.arity(->(a, *b) {}), procs.arity(made)])
p([procs.is_proc(made), procs.is_proc(-> {}), procs.is_proc(Class.new(Proc).new {}), procs.is_proc(:sym), procs.is_proc(nil)])
p(procs.call(proc { |a, b| a * b }, [6, 7]))
report { procs.call(proc {}, 5) }
taking = proc { |*rest, **keywords| [rest, keywords] }
p(procs.call_keywords(taking, [{}]))
p(procs.call_keywords(taking, [{ b: 2 }, { a: 1 }]))
p(procs.call_keywords(taking, []))
report { procs.call_keywords(taking, [1, 2]) }
doubling = proc { |a, b, &block| block ? block.call(a * b) : a * b }
p(procs.call_block(doubling, [6, 7], proc { |n| n * 2 }))
p(procs.call_block(doubling, [6, 7], nil))
with_block = proc { |*rest, **keywords, &block| [rest, keywords, block&.call] }
p(procs.call_block_keywords(with_block, [{ a: 1 }], proc { 42 }))
p(procs.call_block_keywords(with_block, [{}], nil))

FileUtils.rm_rf(directory)

Output:

[1, :data, 2, [1, 2], false]
[[1, 2], :data, 1, [[1, 2]], false]
[nil, :data, 0, [], false]
[nil, :data, 0, [], false]
[-1, false, nil]
true
false
true
nil
[2, -2, -1]
[true, true, true, false, false]
42
TypeError: wrong argument type Integer (expected Array)
[[], {}]
[[{b: 2}], {a: 1}]
[[], {}]
TypeError: no implicit conversion of Integer into Hash
84
42
[[], {a: 1}, 42]
[[], {}, nil]