1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
| | #ifndef ext_help_h
#define ext_help_h
#ifndef RSTRING_PTR
#define RSTRING_PTR(s) (RSTRING(s)->ptr)
#endif /* !defined(RSTRING_PTR) */
#ifndef RSTRING_LEN
#define RSTRING_LEN(s) (RSTRING(s)->len)
#endif /* !defined(RSTRING_LEN) */
#ifndef HAVE_RB_STR_SET_LEN
# ifdef RUBINIUS
# error we should never get here with current Rubinius (1.x)
# endif
/* this is taken from Ruby 1.8.7, 1.8.6 may not have it */
static void rb_18_str_set_len(VALUE str, long len)
{
RSTRING(str)->len = len;
RSTRING(str)->ptr[len] = '\0';
}
# define rb_str_set_len(str,len) rb_18_str_set_len(str,len)
#endif /* !defined(HAVE_RB_STR_SET_LEN) */
/* not all Ruby implementations support frozen objects (Rubinius does not) */
#if defined(OBJ_FROZEN)
# define assert_frozen(f) assert(OBJ_FROZEN(f) && "unfrozen object")
#else
# define assert_frozen(f) do {} while (0)
#endif /* !defined(OBJ_FROZEN) */
#if !defined(OFFT2NUM)
# if SIZEOF_OFF_T == SIZEOF_LONG
# define OFFT2NUM(n) LONG2NUM(n)
# else
# define OFFT2NUM(n) LL2NUM(n)
# endif
#endif /* ! defined(OFFT2NUM) */
#if !defined(SIZET2NUM)
# if SIZEOF_SIZE_T == SIZEOF_LONG
# define SIZET2NUM(n) ULONG2NUM(n)
# else
# define SIZET2NUM(n) ULL2NUM(n)
# endif
#endif /* ! defined(SIZET2NUM) */
#if !defined(NUM2SIZET)
# if SIZEOF_SIZE_T == SIZEOF_LONG
# define NUM2SIZET(n) ((size_t)NUM2ULONG(n))
# else
# define NUM2SIZET(n) ((size_t)NUM2ULL(n))
# endif
#endif /* ! defined(NUM2SIZET) */
static inline int str_cstr_eq(VALUE val, const char *ptr, long len)
{
return (RSTRING_LEN(val) == len && !memcmp(ptr, RSTRING_PTR(val), len));
}
#define STR_CSTR_EQ(val, const_str) \
str_cstr_eq(val, const_str, sizeof(const_str) - 1)
/* strcasecmp isn't locale independent */
static int str_cstr_case_eq(VALUE val, const char *ptr, long len)
{
if (RSTRING_LEN(val) == len) {
const char *v = RSTRING_PTR(val);
for (; len--; ++ptr, ++v) {
if ((*ptr == *v) || (*v >= 'A' && *v <= 'Z' && (*v | 0x20) == *ptr))
continue;
return 0;
}
return 1;
}
return 0;
}
#define STR_CSTR_CASE_EQ(val, const_str) \
str_cstr_case_eq(val, const_str, sizeof(const_str) - 1)
#ifdef HAVE_RUBY_ENCODING_H
/* Use default external encoding for strings for Ruby 1.9+,
* fall back to rb_str_new when unavailable */
#define rb_str_new rb_external_str_new
#endif
#endif /* ext_help_h */
|