ext/unicorn_http/ext_help.h

   1 #ifndef ext_help_h
   2 #define ext_help_h
   3
   4 #ifndef RSTRING_PTR
   5 #define RSTRING_PTR(s) (RSTRING(s)->ptr)
   6 #endif
   7 #ifndef RSTRING_LEN
   8 #define RSTRING_LEN(s) (RSTRING(s)->len)
   9 #endif
  10
  11 #ifndef RUBINIUS
  12 #  define rb_str_update(x) do {} while (0)
  13 #  define rb_str_flush(x) do {} while (0)
  14 #endif /* !RUBINIUS */
  15
  16 #ifndef HAVE_RB_STR_SET_LEN
  17 /* this is taken from Ruby 1.8.7, 1.8.6 may not have it */
  18 static void rb_18_str_set_len(VALUE str, long len)
  19 {
  20   RSTRING(str)->len = len;
  21   RSTRING(str)->ptr[len] = '\0';
  22   rb_str_flush(str);
  23 }
  24 #  define rb_str_set_len(str,len) rb_18_str_set_len(str,len)
  25 #endif
  26
  27 /* not all Ruby implementations support frozen objects (Rubinius does not) */
  28 #if defined(OBJ_FROZEN)
  29 #  define assert_frozen(f) assert(OBJ_FROZEN(f) && "unfrozen object")
  30 #else
  31 #  define assert_frozen(f) do {} while (0)
  32 #endif
  33
  34 #if !defined(OFFT2NUM)
  35 #  if SIZEOF_OFF_T == SIZEOF_LONG
  36 #    define OFFT2NUM(n) LONG2NUM(n)
  37 #  else
  38 #    define OFFT2NUM(n) LL2NUM(n)
  39 #  endif
  40 #endif /* ! defined(OFFT2NUM) */
  41
  42 #ifndef HAVE_RB_STR_MODIFY
  43 #  define rb_str_modify(x) do {} while (0)
  44 #endif
  45
  46 static inline int str_cstr_eq(VALUE val, const char *ptr, size_t len)
  47 {
  48   return (RSTRING_LEN(val) == len && !memcmp(ptr, RSTRING_PTR(val), len));
  49 }
  50
  51 #define STR_CSTR_EQ(val, const_str) \
  52   str_cstr_eq(val, const_str, sizeof(const_str) - 1)
  53
  54 /* strcasecmp isn't locale independent */
  55 static int str_cstr_case_eq(VALUE val, const char *ptr, size_t len)
  56 {
  57   if (RSTRING_LEN(val) == len) {
  58     const char *v = RSTRING_PTR(val);
  59
  60     for (; len--; ++ptr, ++v) {
  61       if ((*ptr == *v) || (*v >= 'A' && *v <= 'Z' && (*v | 0x20) == *ptr))
  62         continue;
  63       return 0;
  64     }
  65     return 1;
  66   }
  67   return 0;
  68 }
  69
  70 #define STR_CSTR_CASE_EQ(val, const_str) \
  71   str_cstr_case_eq(val, const_str, sizeof(const_str) - 1)
  72
  73 #endif