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