debase-ruby_core_source 3.3.6 → 3.4.0

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/builtin.h

@@ -1,119 +0,0 @@
-#ifndef BUILTIN_H_INCLUDED
-#define BUILTIN_H_INCLUDED
-
-// invoke
-
-struct rb_builtin_function {
-    // for invocation
-    const void * const func_ptr;
-    const int argc;
-
-    // for load
-    const int index;
-    const char * const name;
-};
-
-#define RB_BUILTIN_FUNCTION(_i, _name, _fname, _arity) {\
-  .name = _i < 0 ? NULL : #_name, \
-  .func_ptr = (void *)_fname, \
-  .argc = _arity, \
-  .index = _i, \
-}
-
-void rb_load_with_builtin_functions(const char *feature_name, const struct rb_builtin_function *table);
-
-#ifndef rb_execution_context_t
-typedef struct rb_execution_context_struct rb_execution_context_t;
-#define rb_execution_context_t rb_execution_context_t
-#endif
-
-/* The following code is generated by the following Ruby script:
-
-typedef = proc {|i, args|
-  "typedef VALUE (*rb_builtin_arity#{i}_function_type)(rb_execution_context_t *ec, VALUE self#{args});"
-}
-puts typedef[0, ""]
-(1..15).each {|i|
-  puts typedef[i, ",\n        " + (0...i).map{"VALUE"}.join(", ")]
-}
-16.times{|i|
-  puts "static inline void rb_builtin_function_check_arity#{i}(rb_builtin_arity#{i}_function_type f){}"
-}
-*/
-
-typedef VALUE (*rb_builtin_arity0_function_type)(rb_execution_context_t *ec, VALUE self);
-typedef VALUE (*rb_builtin_arity1_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE);
-typedef VALUE (*rb_builtin_arity2_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE);
-typedef VALUE (*rb_builtin_arity3_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE, VALUE);
-typedef VALUE (*rb_builtin_arity4_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE, VALUE, VALUE);
-typedef VALUE (*rb_builtin_arity5_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE, VALUE, VALUE, VALUE);
-typedef VALUE (*rb_builtin_arity6_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE, VALUE, VALUE, VALUE, VALUE);
-typedef VALUE (*rb_builtin_arity7_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE);
-typedef VALUE (*rb_builtin_arity8_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE);
-typedef VALUE (*rb_builtin_arity9_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE);
-typedef VALUE (*rb_builtin_arity10_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE);
-typedef VALUE (*rb_builtin_arity11_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE);
-typedef VALUE (*rb_builtin_arity12_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE);
-typedef VALUE (*rb_builtin_arity13_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE);
-typedef VALUE (*rb_builtin_arity14_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE);
-typedef VALUE (*rb_builtin_arity15_function_type)(rb_execution_context_t *ec, VALUE self,
-        VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE);
-static inline void rb_builtin_function_check_arity0(rb_builtin_arity0_function_type f){}
-static inline void rb_builtin_function_check_arity1(rb_builtin_arity1_function_type f){}
-static inline void rb_builtin_function_check_arity2(rb_builtin_arity2_function_type f){}
-static inline void rb_builtin_function_check_arity3(rb_builtin_arity3_function_type f){}
-static inline void rb_builtin_function_check_arity4(rb_builtin_arity4_function_type f){}
-static inline void rb_builtin_function_check_arity5(rb_builtin_arity5_function_type f){}
-static inline void rb_builtin_function_check_arity6(rb_builtin_arity6_function_type f){}
-static inline void rb_builtin_function_check_arity7(rb_builtin_arity7_function_type f){}
-static inline void rb_builtin_function_check_arity8(rb_builtin_arity8_function_type f){}
-static inline void rb_builtin_function_check_arity9(rb_builtin_arity9_function_type f){}
-static inline void rb_builtin_function_check_arity10(rb_builtin_arity10_function_type f){}
-static inline void rb_builtin_function_check_arity11(rb_builtin_arity11_function_type f){}
-static inline void rb_builtin_function_check_arity12(rb_builtin_arity12_function_type f){}
-static inline void rb_builtin_function_check_arity13(rb_builtin_arity13_function_type f){}
-static inline void rb_builtin_function_check_arity14(rb_builtin_arity14_function_type f){}
-static inline void rb_builtin_function_check_arity15(rb_builtin_arity15_function_type f){}
-
-PUREFUNC(VALUE rb_vm_lvar_exposed(rb_execution_context_t *ec, int index));
-VALUE rb_vm_lvar_exposed(rb_execution_context_t *ec, int index);
-
-// __builtin_inline!
-
-PUREFUNC(static inline VALUE rb_vm_lvar(rb_execution_context_t *ec, int index));
-
-static inline VALUE
-rb_vm_lvar(rb_execution_context_t *ec, int index)
-{
-#if defined(VM_CORE_H_EC_DEFINED) && VM_CORE_H_EC_DEFINED
-    return ec->cfp->ep[index];
-#else
-    return rb_vm_lvar_exposed(ec, index);
-#endif
-}
-
-#define LOCAL_PTR(local) local ## __ptr
-
-// dump/load
-
-struct builtin_binary {
-    const char *feature;          // feature name
-    const unsigned char *bin;     // binary by ISeq#to_binary
-    size_t bin_size;
-};
-
-#endif // BUILTIN_H_INCLUDED

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/ccan/build_assert/build_assert.h

@@ -1,40 +0,0 @@
-/* CC0 (Public domain) - see ccan/licenses/CC0 file for details */
-#ifndef CCAN_BUILD_ASSERT_H
-#define CCAN_BUILD_ASSERT_H
-
-/**
- * CCAN_BUILD_ASSERT - assert a build-time dependency.
- * @cond: the compile-time condition which must be true.
- *
- * Your compile will fail if the condition isn't true, or can't be evaluated
- * by the compiler.  This can only be used within a function.
- *
- * Example:
- *	#include <stddef.h>
- *	...
- *	static char *foo_to_char(struct foo *foo)
- *	{
- *		// This code needs string to be at start of foo.
- *		CCAN_BUILD_ASSERT(offsetof(struct foo, string) == 0);
- *		return (char *)foo;
- *	}
- */
-#define CCAN_BUILD_ASSERT(cond) \
-	do { (void) sizeof(char [1 - 2*!(cond)]); } while(0)
-
-/**
- * CCAN_BUILD_ASSERT_OR_ZERO - assert a build-time dependency, as an expression.
- * @cond: the compile-time condition which must be true.
- *
- * Your compile will fail if the condition isn't true, or can't be evaluated
- * by the compiler.  This can be used in an expression: its value is "0".
- *
- * Example:
- *	#define foo_to_char(foo)					\
- *		 ((char *)(foo)						\
- *		  + CCAN_BUILD_ASSERT_OR_ZERO(offsetof(struct foo, string) == 0))
- */
-#define CCAN_BUILD_ASSERT_OR_ZERO(cond) \
-	(sizeof(char [1 - 2*!(cond)]) - 1)
-
-#endif /* CCAN_BUILD_ASSERT_H */

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/ccan/check_type/check_type.h

@@ -1,63 +0,0 @@
-/* CC0 (Public domain) - see ccan/licenses/CC0 file for details */
-#ifndef CCAN_CHECK_TYPE_H
-#define CCAN_CHECK_TYPE_H
-
-/**
- * ccan_check_type - issue a warning or build failure if type is not correct.
- * @expr: the expression whose type we should check (not evaluated).
- * @type: the exact type we expect the expression to be.
- *
- * This macro is usually used within other macros to try to ensure that a macro
- * argument is of the expected type.  No type promotion of the expression is
- * done: an unsigned int is not the same as an int!
- *
- * ccan_check_type() always evaluates to 0.
- *
- * If your compiler does not support typeof, then the best we can do is fail
- * to compile if the sizes of the types are unequal (a less complete check).
- *
- * Example:
- *	// They should always pass a 64-bit value to _set_some_value!
- *	#define set_some_value(expr)			\
- *		_set_some_value((ccan_check_type((expr), uint64_t), (expr)))
- */
-
-/**
- * ccan_check_types_match - issue a warning or build failure if types are not same.
- * @expr1: the first expression (not evaluated).
- * @expr2: the second expression (not evaluated).
- *
- * This macro is usually used within other macros to try to ensure that
- * arguments are of identical types.  No type promotion of the expressions is
- * done: an unsigned int is not the same as an int!
- *
- * ccan_check_types_match() always evaluates to 0.
- *
- * If your compiler does not support typeof, then the best we can do is fail
- * to compile if the sizes of the types are unequal (a less complete check).
- *
- * Example:
- *	// Do subtraction to get to enclosing type, but make sure that
- *	// pointer is of correct type for that member.
- *	#define ccan_container_of(mbr_ptr, encl_type, mbr)			\
- *		(ccan_check_types_match((mbr_ptr), &((encl_type *)0)->mbr),	\
- *		 ((encl_type *)						\
- *		  ((char *)(mbr_ptr) - offsetof(enclosing_type, mbr))))
- */
-#if defined(HAVE_TYPEOF) && HAVE_TYPEOF
-#define ccan_check_type(expr, type)			\
-	((typeof(expr) *)0 != (type *)0)
-
-#define ccan_check_types_match(expr1, expr2)		\
-	((typeof(expr1) *)0 != (typeof(expr2) *)0)
-#else
-#include "ccan/build_assert/build_assert.h"
-/* Without typeof, we can only test the sizes. */
-#define ccan_check_type(expr, type)					\
-	CCAN_BUILD_ASSERT_OR_ZERO(sizeof(expr) == sizeof(type))
-
-#define ccan_check_types_match(expr1, expr2)				\
-	CCAN_BUILD_ASSERT_OR_ZERO(sizeof(expr1) == sizeof(expr2))
-#endif /* HAVE_TYPEOF */
-
-#endif /* CCAN_CHECK_TYPE_H */

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/ccan/container_of/container_of.h

@@ -1,142 +0,0 @@
-/* CC0 (Public domain) - see ccan/licenses/CC0 file for details */
-#ifndef CCAN_CONTAINER_OF_H
-#define CCAN_CONTAINER_OF_H
-#include "ccan/check_type/check_type.h"
-
-/**
- * ccan_container_of - get pointer to enclosing structure
- * @member_ptr: pointer to the structure member
- * @containing_type: the type this member is within
- * @member: the name of this member within the structure.
- *
- * Given a pointer to a member of a structure, this macro does pointer
- * subtraction to return the pointer to the enclosing type.
- *
- * Example:
- *	struct foo {
- *		int fielda, fieldb;
- *		// ...
- *	};
- *	struct info {
- *		int some_other_field;
- *		struct foo my_foo;
- *	};
- *
- *	static struct info *foo_to_info(struct foo *foo)
- *	{
- *		return ccan_container_of(foo, struct info, my_foo);
- *	}
- */
-#define ccan_container_of(member_ptr, containing_type, member)		\
-	 ((containing_type *)						\
-	  ((char *)(member_ptr)						\
-	   - ccan_container_off(containing_type, member))		\
-	  + ccan_check_types_match(*(member_ptr), ((containing_type *)0)->member))
-
-
-/**
- * ccan_container_of_or_null - get pointer to enclosing structure, or NULL
- * @member_ptr: pointer to the structure member
- * @containing_type: the type this member is within
- * @member: the name of this member within the structure.
- *
- * Given a pointer to a member of a structure, this macro does pointer
- * subtraction to return the pointer to the enclosing type, unless it
- * is given NULL, in which case it also returns NULL.
- *
- * Example:
- *	struct foo {
- *		int fielda, fieldb;
- *		// ...
- *	};
- *	struct info {
- *		int some_other_field;
- *		struct foo my_foo;
- *	};
- *
- *	static struct info *foo_to_info_allowing_null(struct foo *foo)
- *	{
- *		return ccan_container_of_or_null(foo, struct info, my_foo);
- *	}
- */
-static inline char *container_of_or_null_(void *member_ptr, size_t offset)
-{
-	return member_ptr ? (char *)member_ptr - offset : NULL;
-}
-#define ccan_container_of_or_null(member_ptr, containing_type, member)	\
-	((containing_type *)						\
-	 ccan_container_of_or_null_(member_ptr,				\
-			       ccan_container_off(containing_type, member))	\
-	 + ccan_check_types_match(*(member_ptr), ((containing_type *)0)->member))
-
-/**
- * ccan_container_off - get offset to enclosing structure
- * @containing_type: the type this member is within
- * @member: the name of this member within the structure.
- *
- * Given a pointer to a member of a structure, this macro does
- * typechecking and figures out the offset to the enclosing type.
- *
- * Example:
- *	struct foo {
- *		int fielda, fieldb;
- *		// ...
- *	};
- *	struct info {
- *		int some_other_field;
- *		struct foo my_foo;
- *	};
- *
- *	static struct info *foo_to_info(struct foo *foo)
- *	{
- *		size_t off = ccan_container_off(struct info, my_foo);
- *		return (void *)((char *)foo - off);
- *	}
- */
-#define ccan_container_off(containing_type, member)	\
-	offsetof(containing_type, member)
-
-/**
- * ccan_container_of_var - get pointer to enclosing structure using a variable
- * @member_ptr: pointer to the structure member
- * @container_var: a pointer of same type as this member's container
- * @member: the name of this member within the structure.
- *
- * Given a pointer to a member of a structure, this macro does pointer
- * subtraction to return the pointer to the enclosing type.
- *
- * Example:
- *	static struct info *foo_to_i(struct foo *foo)
- *	{
- *		struct info *i = ccan_container_of_var(foo, i, my_foo);
- *		return i;
- *	}
- */
-#if defined(HAVE_TYPEOF) && HAVE_TYPEOF
-#define ccan_container_of_var(member_ptr, container_var, member) \
-	ccan_container_of(member_ptr, typeof(*container_var), member)
-#else
-#define ccan_container_of_var(member_ptr, container_var, member)	\
-	((void *)((char *)(member_ptr)	-			\
-		  ccan_container_off_var(container_var, member)))
-#endif
-
-/**
- * ccan_container_off_var - get offset of a field in enclosing structure
- * @container_var: a pointer to a container structure
- * @member: the name of a member within the structure.
- *
- * Given (any) pointer to a structure and a its member name, this
- * macro does pointer subtraction to return offset of member in a
- * structure memory layout.
- *
- */
-#if defined(HAVE_TYPEOF) && HAVE_TYPEOF
-#define ccan_container_off_var(var, member)		\
-	ccan_container_off(typeof(*var), member)
-#else
-#define ccan_container_off_var(var, member)			\
-	((const char *)&(var)->member - (const char *)(var))
-#endif
-
-#endif /* CCAN_CONTAINER_OF_H */