14#include "ruby/internal/config.h"
25#include "internal/error.h"
26#include "internal/hash.h"
27#include "internal/numeric.h"
28#include "internal/object.h"
29#include "internal/sanitizers.h"
30#include "internal/symbol.h"
35#define BIT_DIGITS(N) (((N)*146)/485 + 1)
37static char *fmt_setup(
char*,
size_t,
int,
int,
int,
int);
38static char *ruby_ultoa(
unsigned long val,
char *endp,
int base,
int octzero);
41sign_bits(
int base,
const char *p)
47 if (*p ==
'X') c =
'F';
69 int cr = ENC_CODERANGE(result);\
70 RUBY_ASSERT(bsiz >= blen); \
71 while ((l) > bsiz - blen) {\
73 if (bsiz<0) rb_raise(rb_eArgError, "too big specifier");\
75 rb_str_resize(result, bsiz);\
76 ENC_CODERANGE_SET(result, cr);\
77 buf = RSTRING_PTR(result);\
80#define PUSH(s, l) do { \
85#define PUSH_(s, l) do { \
86 memcpy(&buf[blen], (s), (l));\
90#define FILL(c, l) do { \
96#define FILL_(c, l) do { \
97 memset(&buf[blen], (c), (l));\
101#define GETARG() (!UNDEF_P(nextvalue) ? nextvalue : \
104#define GETNEXTARG() ( \
105 check_next_arg(posarg, nextarg), \
106 (posarg = nextarg++, GETNTHARG(posarg)))
108#define GETPOSARG(n) ( \
109 check_pos_arg(posarg, (n)), \
110 (posarg = -1, GETNTHARG(n)))
112#define GETNTHARG(nth) \
113 (((nth) >= argc) ? (rb_raise(rb_eArgError, "too few arguments"), 0) : argv[(nth)])
115#define CHECKNAMEARG(name, len, enc) ( \
116 check_name_arg(posarg, name, len, enc), \
119#define GETNUM(n, val) \
120 (!(p = get_num(p, end, enc, &(n))) ? \
121 rb_raise(rb_eArgError, #val " too big") : (void)0)
123#define GETASTER(val) do { \
128 tmp = GETPOSARG(n); \
131 tmp = GETNEXTARG(); \
134 (val) = NUM2INT(tmp); \
138get_num(
const char *p,
const char *end,
rb_encoding *enc,
int *valp)
142 if (MUL_OVERFLOW_INT_P(10, next_n))
145 if (INT_MAX - (*p -
'0') < next_n)
150 rb_raise(rb_eArgError,
"malformed format string - %%*[0-9]");
157check_next_arg(
int posarg,
int nextarg)
161 rb_raise(rb_eArgError,
"unnumbered(%d) mixed with numbered", nextarg);
163 rb_raise(rb_eArgError,
"unnumbered(%d) mixed with named", nextarg);
168check_pos_arg(
int posarg,
int n)
171 rb_raise(rb_eArgError,
"numbered(%d) after unnumbered(%d)", n, posarg);
174 rb_raise(rb_eArgError,
"numbered(%d) after named", n);
177 rb_raise(rb_eArgError,
"invalid index - %d$", n);
182check_name_arg(
int posarg,
const char *name,
int len,
rb_encoding *enc)
185 rb_enc_raise(enc, rb_eArgError,
"named%.*s after unnumbered(%d)",
len, name, posarg);
188 rb_enc_raise(enc, rb_eArgError,
"named%.*s after numbered",
len, name);
193get_hash(
volatile VALUE *hash,
int argc,
const VALUE *argv)
197 if (!UNDEF_P(*hash))
return *hash;
199 rb_raise(rb_eArgError,
"one hash required");
201 tmp = rb_check_hash_type(argv[1]);
203 rb_raise(rb_eArgError,
"one hash required");
205 return (*hash = tmp);
217 enum {default_float_precision = 6};
226 int width, prec, flags = FNONE;
235#define CHECK_FOR_WIDTH(f) \
236 if ((f) & FWIDTH) { \
237 rb_raise(rb_eArgError, "width given twice"); \
239 if ((f) & FPREC0) { \
240 rb_raise(rb_eArgError, "width after precision"); \
242#define CHECK_FOR_FLAGS(f) \
243 if ((f) & FWIDTH) { \
244 rb_raise(rb_eArgError, "flag after width"); \
246 if ((f) & FPREC0) { \
247 rb_raise(rb_eArgError, "flag after precision"); \
250#define update_coderange(partial) do { \
251 if (coderange != ENC_CODERANGE_BROKEN && scanned < blen) { \
252 int cr = coderange; \
253 scanned += rb_str_coderange_scan_restartable(buf+scanned, buf+blen, enc, &cr); \
254 ENC_CODERANGE_SET(result, \
255 (partial && cr == ENC_CODERANGE_UNKNOWN ? \
256 ENC_CODERANGE_BROKEN : (coderange = cr))); \
262 enc = rb_enc_get(fmt);
265 fmt = rb_str_tmp_frozen_acquire(fmt);
266 p = RSTRING_PTR(fmt);
267 end = p + RSTRING_LEN(fmt);
271 rb_enc_associate(result, enc);
272 buf = RSTRING_PTR(result);
273 memset(buf, 0, bsiz);
276 for (; p < end; p++) {
281 for (t = p; t < end && *t !=
'%'; t++) ;
283 rb_raise(rb_eArgError,
"incomplete format specifier; use %%%% (double %%) instead");
286 update_coderange(FALSE);
299 rb_raise(rb_eArgError,
"malformed format string - %%%c", *p);
301 rb_raise(rb_eArgError,
"malformed format string");
305 CHECK_FOR_FLAGS(flags);
311 CHECK_FOR_FLAGS(flags);
317 CHECK_FOR_FLAGS(flags);
323 CHECK_FOR_FLAGS(flags);
329 CHECK_FOR_FLAGS(flags);
334 case '1':
case '2':
case '3':
case '4':
335 case '5':
case '6':
case '7':
case '8':
case '9':
339 if (!UNDEF_P(nextvalue)) {
340 rb_raise(rb_eArgError,
"value given twice - %d$", n);
342 nextvalue = GETPOSARG(n);
346 CHECK_FOR_WIDTH(flags);
354 const char *start = p;
355 char term = (*p ==
'<') ?
'>' :
'}';
358 for (; p < end && *p != term; ) {
359 p += rb_enc_mbclen(p, end, enc);
362 rb_raise(rb_eArgError,
"malformed name - unmatched parenthesis");
364#if SIZEOF_INT < SIZEOF_SIZE_T
365 if ((
size_t)(p - start) >= INT_MAX) {
366 const int message_limit = 20;
369 "too long name (%"PRIuSIZE
" bytes) - %.*s...%c",
370 (
size_t)(p - start - 2),
len, start, term);
373 len = (int)(p - start + 1);
375 rb_enc_raise(enc, rb_eArgError,
"named%.*s after <%"PRIsVALUE
">",
378 CHECKNAMEARG(start,
len, enc);
379 get_hash(&hash, argc, argv);
383 if (!
NIL_P(sym)) nextvalue = rb_hash_lookup2(hash, sym,
Qundef);
384 if (UNDEF_P(nextvalue)) {
386 sym = rb_sym_intern(start + 1,
390 nextvalue = rb_hash_default_value(hash, sym);
391 if (
NIL_P(nextvalue)) {
392 rb_key_err_raise(
rb_enc_sprintf(enc,
"key%.*s not found",
len, start), hash, sym);
395 if (term ==
'}')
goto format_s;
401 CHECK_FOR_WIDTH(flags);
407 if (width < 0) rb_raise(rb_eArgError,
"width too big");
413 if (flags & FPREC0) {
414 rb_raise(rb_eArgError,
"precision given twice");
416 flags |= FPREC|FPREC0;
429 GETNUM(prec, precision);
433 if (flags != FNONE) {
434 rb_raise(rb_eArgError,
"invalid format character - %%");
441 VALUE val = GETARG();
454 if (n >= 0) n = rb_enc_codelen((c = n), enc);
456 rb_raise(rb_eArgError,
"invalid character");
458 int encidx = rb_ascii8bit_appendable_encoding_index(enc, c);
459 if (encidx >= 0 && encidx != rb_enc_to_index(enc)) {
461 rb_enc_associate_index(result, encidx);
462 enc = rb_enc_from_index(encidx);
465 if (!(flags & FWIDTH)) {
467 rb_enc_mbcput(c, &buf[blen], enc);
470 else if ((flags & FMINUS)) {
472 CHECK(n + (width > 0 ? width : 0));
473 rb_enc_mbcput(c, &buf[blen], enc);
475 if (width > 0) FILL_(
' ', width);
479 CHECK(n + (width > 0 ? width : 0));
480 if (width > 0) FILL_(
' ', width);
481 rb_enc_mbcput(c, &buf[blen], enc);
491 VALUE arg = GETARG();
501 len = RSTRING_LEN(str);
503 update_coderange(TRUE);
504 enc = rb_enc_check(result, str);
505 if (flags&(FPREC|FWIDTH)) {
508 rb_raise(rb_eArgError,
"invalid mbstring sequence");
510 if ((flags&FPREC) && (prec < slen)) {
514 len = p - RSTRING_PTR(str);
517 if ((flags&FWIDTH) && (width > slen)) {
520 if (!(flags&FMINUS)) {
524 memcpy(&buf[blen], RSTRING_PTR(str),
len);
530 rb_enc_associate(result, enc);
534 PUSH(RSTRING_PTR(str),
len);
536 rb_enc_associate(result, enc);
549 volatile VALUE val = GETARG();
551 char nbuf[BIT_DIGITS(SIZEOF_LONG*CHAR_BIT)+2], *s;
552 const char *prefix = 0;
553 int sign = 0, dots = 0;
556 int base, bignum = 0;
569 if (flags&(FPLUS|FSPACE)) sign = 1;
572 if (flags & FSHARP) {
577 prefix =
"0x";
break;
579 prefix =
"0X";
break;
581 prefix =
"0b";
break;
583 prefix =
"0B";
break;
599 val = rb_str_to_inum(val, 0, TRUE);
629 int numbits = ffs(base)-1;
631 size_t numdigits = rb_absint_numwords(val, numbits, &abs_nlz_bits);
633 if (INT_MAX-1 < numdigits)
634 rb_raise(rb_eArgError,
"size too big");
639 valsign = rb_integer_pack(val, RSTRING_PTR(tmp), RSTRING_LEN(tmp),
641 for (i = 0; i < RSTRING_LEN(tmp); i++)
642 RSTRING_PTR(tmp)[i] = ruby_digitmap[((
unsigned char *)RSTRING_PTR(tmp))[i]];
643 s = RSTRING_PTR(tmp);
648 else if (flags & FPLUS) {
652 else if (flags & FSPACE) {
667 if (numdigits == 0 ||
668 ((abs_nlz_bits != (
size_t)(numbits-1) ||
669 !rb_absint_singlebit_p(val)) &&
670 (!bignum ? v < 0 : BIGNUM_NEGATIVE_P(val))))
673 valsign = rb_integer_pack(val, RSTRING_PTR(tmp), RSTRING_LEN(tmp),
675 for (i = 0; i < RSTRING_LEN(tmp); i++)
676 RSTRING_PTR(tmp)[i] = ruby_digitmap[((
unsigned char *)RSTRING_PTR(tmp))[i]];
677 s = RSTRING_PTR(tmp);
690 else if (flags & FPLUS) {
694 else if (flags & FSPACE) {
698 s = ruby_ultoa((
unsigned long)v, nbuf +
sizeof(nbuf), 10, 0);
699 len = (int)(nbuf +
sizeof(nbuf) - s);
702 tmp = rb_big2str(val, 10);
703 s = RSTRING_PTR(tmp);
711 else if (flags & FPLUS) {
715 else if (flags & FSPACE) {
730 while ((c = (
int)(
unsigned char)*pp) != 0) {
731 *pp = rb_enc_toupper(c, enc);
735 if (prefix && !prefix[1]) {
739 else if (
len == 1 && *s ==
'0') {
741 if (flags & FPREC) prec--;
743 else if ((flags & FPREC) && (prec >
len)) {
747 else if (
len == 1 && *s ==
'0') {
751 width -= (int)strlen(prefix);
753 if ((flags & (FZERO|FMINUS|FPREC)) == FZERO) {
759 if (!prefix && prec == 0 &&
len == 1 && *s ==
'0')
len = 0;
764 if (!(flags&FMINUS)) {
768 if (sc) PUSH(&sc, 1);
770 int plen = (int)strlen(prefix);
773 if (dots) PUSH(
"..", 2);
776 if (!sign && valsign < 0) {
777 char c = sign_bits(base, p);
778 FILL_(c, prec -
len);
780 else if ((flags & (FMINUS|FPREC)) != FMINUS) {
781 FILL_(
'0', prec -
len);
792 VALUE val = GETARG(), num, den;
793 int sign = (flags&FPLUS) ? 1 : 0, zero = 0;
807 if (!(flags&FPREC)) prec = default_float_precision;
815 else if (BIGNUM_NEGATIVE_P(num)) {
817 num = rb_big_uminus(num);
821 num = rb_int_plus(num, rb_int_idiv(den,
INT2FIX(2)));
822 num = rb_int_idiv(num, den);
824 else if (prec >= 0) {
827 val = rb_int2str(num, 10);
828 len = RSTRING_LEN(val) + zero;
829 if (prec >=
len)
len = prec + 1;
830 if (sign || (flags&FSPACE)) ++
len;
832 fill = width >
len ? width -
len : 0;
834 if (fill && !(flags&(FMINUS|FZERO))) {
837 if (sign || (flags&FSPACE)) {
838 buf[blen++] = sign > 0 ?
'+' : sign < 0 ?
'-' :
' ';
840 if (fill && (flags&(FMINUS|FZERO)) == FZERO) {
843 len = RSTRING_LEN(val) + zero;
844 t = RSTRING_PTR(val);
846 PUSH_(t,
len - prec);
857 else if (prec >
len) {
858 FILL_(
'0', prec -
len);
862 PUSH_(t +
len - prec, prec);
864 if (fill && (flags&FMINUS)) {
879 VALUE val = GETARG();
883 if (!isfinite(fval)) {
895 need = (int)strlen(expr);
897 if (!isnan(fval) && fval < 0.0)
899 else if (flags & (FPLUS|FSPACE))
900 sign = (flags & FPLUS) ?
'+' :
' ';
903 if ((flags & FWIDTH) && need < width)
907 if (flags & FMINUS) {
909 buf[blen - need--] = sign;
910 memcpy(&buf[blen - need], expr, elen);
914 buf[blen - elen - 1] = sign;
915 memcpy(&buf[blen - elen], expr, elen);
921 char fbuf[2*BIT_DIGITS(SIZEOF_INT*CHAR_BIT)+10];
922 char *fmt = fmt_setup(fbuf,
sizeof(fbuf), *p, flags, width, prec);
924 rb_str_catf(result, fmt, fval);
935 update_coderange(FALSE);
937 rb_str_tmp_frozen_release(orig, fmt);
940 if (posarg >= 0 && nextarg < argc && !(argc == 2 &&
RB_TYPE_P(argv[1],
T_HASH))) {
941 const char *mesg =
"too many arguments for format string";
945 rb_str_resize(result, blen);
951fmt_setup(
char *buf,
size_t size,
int c,
int flags,
int width,
int prec)
958 buf = ruby_ultoa(prec, buf, 10, 0);
962 if (flags & FWIDTH) {
963 buf = ruby_ultoa(width, buf, 10, 0);
966 if (flags & FSPACE) *--buf =
' ';
967 if (flags & FZERO) *--buf =
'0';
968 if (flags & FMINUS) *--buf =
'-';
969 if (flags & FPLUS) *--buf =
'+';
970 if (flags & FSHARP) *--buf =
'#';
976#define FILE rb_printf_buffer
977#define __sbuf rb_printf_sbuf
978#define __sFILE rb_printf_sfile
983#if SIZEOF_LONG < SIZEOF_LONG_LONG
984# if SIZEOF_LONG_LONG == SIZEOF_VOIDP
989# define _HAVE_SANE_QUAD_
990# define quad_t LONG_LONG
991# define u_quad_t unsigned LONG_LONG
993#define FLOATING_POINT 1
994#define BSD__dtoa ruby_dtoa
995#define BSD__hdtoa ruby_hdtoa
996#ifdef RUBY_PRI_VALUE_MARK
997# define PRI_EXTRA_MARK RUBY_PRI_VALUE_MARK
999#define lower_hexdigits (ruby_hexdigits+0)
1000#define upper_hexdigits (ruby_hexdigits+16)
1001#include "vsnprintf.c"
1004ruby_ultoa(
unsigned long val,
char *endp,
int base,
int flags)
1006 const char *xdigs = lower_hexdigits;
1007 int octzero = flags & FSHARP;
1008 return BSD__ultoa(val, endp, base, octzero, xdigs);
1011static int ruby_do_vsnprintf(
char *str,
size_t n,
const char *fmt, va_list ap);
1016 if (str && (ssize_t)n < 1)
1018 return ruby_do_vsnprintf(str, n, fmt, ap);
1022ruby_do_vsnprintf(
char *str,
size_t n,
const char *fmt, va_list ap)
1027 f._flags = __SWR | __SSTR;
1028 f._bf._base = f._p = (
unsigned char *)str;
1029 f._bf._size = f._w = str ? (n - 1) : 0;
1030 f.vwrite = BSD__sfvwrite;
1032 ret = BSD_vfprintf(&f, fmt, ap);
1034#if SIZEOF_SIZE_T > SIZEOF_INT
1035 if (n > INT_MAX)
return INT_MAX;
1046 if (str && (ssize_t)n < 1)
1050 ret = ruby_do_vsnprintf(str, n, fmt, ap);
1056 rb_printf_buffer base;
1057 volatile VALUE value;
1061ruby__sfvwrite(
register rb_printf_buffer *fp,
register struct __suio *uio)
1065 char *buf = (
char*)fp->_p;
1067 long blen = buf - RSTRING_PTR(result), bsiz = fp->_w;
1069 if (
RBASIC(result)->klass) {
1072 if (uio->uio_resid == 0)
1074#if SIZE_MAX > LONG_MAX
1075 if (uio->uio_resid >= LONG_MAX)
1078 len = (long)uio->uio_resid;
1082 for (iov = uio->uio_iov;
len > 0; ++iov) {
1083 MEMCPY(buf, iov->iov_base,
char, n = iov->iov_len);
1087 fp->_p = (
unsigned char *)buf;
1093ruby__sfvextra(rb_printf_buffer *fp,
size_t valsize,
void *valp,
long *sz,
int sign)
1099 if (valsize !=
sizeof(
VALUE))
return 0;
1100 value = *(
VALUE *)valp;
1101 if (
RBASIC(result)->klass) {
1105# define LITERAL(str) (*sz = rb_strlen_lit(str), str)
1108# define LITERAL_CASE(x) case Q##x: return LITERAL(#x)
1111 LITERAL_CASE(
false);
1119 if (sign ==
' ' && !rb_str_symname_p(value)) {
1120 value = rb_str_escape(value);
1125 if (sign ==
' ') value = QUOTE(value);
1127 enc = rb_enc_compatible(result, value);
1129 rb_enc_associate(result, enc);
1132 enc = rb_enc_get(result);
1136 *(
volatile VALUE *)valp = value;
1145ruby_vsprintf0(
VALUE result,
char *p,
const char *fmt, va_list ap)
1148#define f buffer.base
1155 f._flags = __SWR | __SSTR;
1158 f._bf._base = (
unsigned char *)result;
1159 f._p = (
unsigned char *)p;
1160 RBASIC_CLEAR_CLASS(result);
1161 f.vwrite = ruby__sfvwrite;
1162 f.vextra = ruby__sfvextra;
1164 BSD_vfprintf(&f, fmt, ap);
1165 RBASIC_SET_CLASS_RAW(result, klass);
1166 p = RSTRING_PTR(result);
1167 long blen = (
char *)f._p - p;
1174 rb_str_resize(result, blen);
1181 const int initial_len = 120;
1186 if (rb_enc_mbminlen(enc) > 1) {
1188 rb_raise(rb_eArgError,
"cannot construct wchar_t based encoding string: %s",
1191 rb_enc_associate(result, enc);
1193 ruby_vsprintf0(result, RSTRING_PTR(result), fmt, ap);
1203 va_start(ap, format);
1217rb_sprintf(
const char *format, ...)
1222 va_start(ap, format);
1230rb_str_vcatf(
VALUE str,
const char *fmt, va_list ap)
1240rb_str_catf(
VALUE str,
const char *format, ...)
1244 va_start(ap, format);
1245 str = rb_str_vcatf(str, format, ap);
ruby_coderange_type
What rb_enc_str_coderange() returns.
static bool rb_enc_isprint(OnigCodePoint c, rb_encoding *enc)
Identical to rb_isprint(), except it additionally takes an encoding.
static bool rb_enc_isdigit(OnigCodePoint c, rb_encoding *enc)
Identical to rb_isdigit(), except it additionally takes an encoding.
VALUE rb_enc_vsprintf(rb_encoding *enc, const char *fmt, va_list ap)
Identical to rb_enc_sprintf(), except it takes a va_list instead of variadic arguments.
VALUE rb_enc_sprintf(rb_encoding *enc, const char *fmt,...)
Identical to rb_sprintf(), except it additionally takes an encoding.
#define TYPE(_)
Old name of rb_type.
#define RB_INTEGER_TYPE_P
Old name of rb_integer_type_p.
#define ENC_CODERANGE_7BIT
Old name of RUBY_ENC_CODERANGE_7BIT.
#define ENC_CODERANGE_VALID
Old name of RUBY_ENC_CODERANGE_VALID.
#define RFLOAT_VALUE
Old name of rb_float_value.
#define T_STRING
Old name of RUBY_T_STRING.
#define Qundef
Old name of RUBY_Qundef.
#define INT2FIX
Old name of RB_INT2FIX.
#define T_FLOAT
Old name of RUBY_T_FLOAT.
#define T_BIGNUM
Old name of RUBY_T_BIGNUM.
#define ECONV_UNDEF_REPLACE
Old name of RUBY_ECONV_UNDEF_REPLACE.
#define T_FIXNUM
Old name of RUBY_T_FIXNUM.
#define ENC_CODERANGE(obj)
Old name of RB_ENC_CODERANGE.
#define ENC_CODERANGE_UNKNOWN
Old name of RUBY_ENC_CODERANGE_UNKNOWN.
#define FIXABLE
Old name of RB_FIXABLE.
#define LONG2FIX
Old name of RB_INT2FIX.
#define ECONV_INVALID_REPLACE
Old name of RUBY_ECONV_INVALID_REPLACE.
#define T_RATIONAL
Old name of RUBY_T_RATIONAL.
#define T_HASH
Old name of RUBY_T_HASH.
#define LONG2NUM
Old name of RB_LONG2NUM.
#define NUM2INT
Old name of RB_NUM2INT.
#define Qnil
Old name of RUBY_Qnil.
#define FIX2LONG
Old name of RB_FIX2LONG.
#define NIL_P
Old name of RB_NIL_P.
#define FIXNUM_P
Old name of RB_FIXNUM_P.
#define ENC_CODERANGE_SET(obj, cr)
Old name of RB_ENC_CODERANGE_SET.
#define SYMBOL_P
Old name of RB_SYMBOL_P.
#define ruby_debug
This variable controls whether the interpreter is in debug mode.
#define ruby_verbose
This variable controls whether the interpreter is in debug mode.
VALUE rb_eRuntimeError
RuntimeError exception.
void rb_warn(const char *fmt,...)
Identical to rb_warning(), except it reports unless $VERBOSE is nil.
void rb_enc_raise(rb_encoding *enc, VALUE exc, const char *fmt,...)
Identical to rb_raise(), except it additionally takes an encoding.
VALUE rb_Float(VALUE val)
This is the logic behind Kernel#Float.
VALUE rb_Integer(VALUE val)
This is the logic behind Kernel#Integer.
VALUE rb_inspect(VALUE obj)
Generates a human-readable textual representation of the given object.
static char * rb_enc_right_char_head(const char *s, const char *p, const char *e, rb_encoding *enc)
Queries the right boundary of a character.
char * rb_enc_nth(const char *head, const char *tail, long nth, rb_encoding *enc)
Queries the n-th character.
VALUE rb_str_conv_enc_opts(VALUE str, rb_encoding *from, rb_encoding *to, int ecflags, VALUE ecopts)
Identical to rb_str_conv_enc(), except it additionally takes IO encoder options.
long rb_enc_strlen(const char *head, const char *tail, rb_encoding *enc)
Counts the number of characters of the passed string, according to the passed encoding.
long rb_str_coderange_scan_restartable(const char *str, const char *end, rb_encoding *enc, int *cr)
Scans the passed string until it finds something odd.
VALUE rb_check_symbol_cstr(const char *ptr, long len, rb_encoding *enc)
Identical to rb_check_id_cstr(), except for the return type.
#define INTEGER_PACK_BIG_ENDIAN
Big endian combination.
#define INTEGER_PACK_2COMP
Uses 2's complement representation.
VALUE rb_int_positive_pow(long x, unsigned long y)
Raises the passed x to the power of y.
VALUE rb_rational_num(VALUE rat)
Queries the numerator of the passed Rational.
VALUE rb_rational_den(VALUE rat)
Queries the denominator of the passed Rational.
#define rb_str_new(str, len)
Allocates an instance of rb_cString.
size_t rb_str_capacity(VALUE str)
Queries the capacity of the given string.
void rb_str_set_len(VALUE str, long len)
Overwrites the length of the string.
void rb_must_asciicompat(VALUE obj)
Asserts that the given string's encoding is (Ruby's definition of) ASCII compatible.
VALUE rb_check_string_type(VALUE obj)
Try converting an object to its stringised representation using its to_str method,...
VALUE rb_str_buf_new(long capa)
Allocates a "string buffer".
VALUE rb_obj_as_string(VALUE obj)
Try converting an object to its stringised representation using its to_s method, if any.
VALUE rb_sym2str(VALUE symbol)
Obtain a frozen string representation of a symbol (not including the leading colon).
int len
Length of the buffer.
VALUE rb_str_format(int argc, const VALUE *argv, VALUE fmt)
Formats a string.
VALUE rb_f_sprintf(int argc, const VALUE *argv)
Identical to rb_str_format(), except how the arguments are arranged.
VALUE rb_vsprintf(const char *fmt, va_list ap)
Identical to rb_sprintf(), except it takes a va_list.
#define rb_long2int
Just another name of rb_long2int_inline.
#define MEMCPY(p1, p2, type, n)
Handy macro to call memcpy.
#define RB_GC_GUARD(v)
Prevents premature destruction of local objects.
#define RBASIC(obj)
Convenient casting macro.
#define StringValue(v)
Ensures that the parameter object is a String.
static char * RSTRING_END(VALUE str)
Queries the end of the contents pointer of the string.
#define RSTRING_GETMEM(str, ptrvar, lenvar)
Convenient macro to obtain the contents and length at once.
#define StringValueCStr(v)
Identical to StringValuePtr, except it additionally checks for the contents for viability as a C stri...
int ruby_vsnprintf(char *str, size_t n, char const *fmt, va_list ap)
Identical to ruby_snprintf(), except it takes a va_list.
int ruby_snprintf(char *str, size_t n, char const *fmt,...)
Our own locale-insensitive version of snprintf(3).
#define RTEST
This is an old name of RB_TEST.
intptr_t SIGNED_VALUE
A signed integer type that has the same width with VALUE.
uintptr_t VALUE
Type that represents a Ruby object.
static bool RB_TYPE_P(VALUE obj, enum ruby_value_type t)
Queries if the given object is of given type.