2014-07-09 12:07:32 +04:00
|
|
|
/**********************************************************************
|
|
|
|
|
|
|
|
symbol.h -
|
|
|
|
|
|
|
|
$Author$
|
|
|
|
created at: Tue Jul 8 15:49:54 JST 2014
|
|
|
|
|
|
|
|
Copyright (C) 2014 Yukihiro Matsumoto
|
|
|
|
|
|
|
|
**********************************************************************/
|
|
|
|
|
|
|
|
#ifndef RUBY_SYMBOL_H
|
|
|
|
#define RUBY_SYMBOL_H 1
|
|
|
|
|
|
|
|
#include "id.h"
|
|
|
|
|
2014-10-27 09:16:16 +03:00
|
|
|
#define DYNAMIC_ID_P(id) (!(id&ID_STATIC_SYM)&&id>tLAST_OP_ID)
|
|
|
|
#define STATIC_ID2SYM(id) (((VALUE)(id)<<RUBY_SPECIAL_SHIFT)|SYMBOL_FLAG)
|
|
|
|
|
|
|
|
#ifdef __GNUC__
|
|
|
|
#define rb_id2sym(id) \
|
|
|
|
__extension__(__builtin_constant_p(id) && !DYNAMIC_ID_P(id) ? \
|
|
|
|
STATIC_ID2SYM(id) : rb_id2sym(id))
|
|
|
|
#endif
|
|
|
|
|
2014-10-06 17:36:45 +04:00
|
|
|
struct RSymbol {
|
|
|
|
struct RBasic basic;
|
2015-07-28 01:25:30 +03:00
|
|
|
st_index_t hashval;
|
2014-10-06 17:36:45 +04:00
|
|
|
VALUE fstr;
|
2014-10-14 11:23:08 +04:00
|
|
|
ID id;
|
2014-10-06 17:36:45 +04:00
|
|
|
};
|
|
|
|
|
2014-07-31 13:58:01 +04:00
|
|
|
#define RSYMBOL(obj) (R_CAST(RSymbol)(obj))
|
2014-07-09 12:07:32 +04:00
|
|
|
|
|
|
|
#define is_notop_id(id) ((id)>tLAST_OP_ID)
|
|
|
|
#define is_local_id(id) (id_type(id)==ID_LOCAL)
|
|
|
|
#define is_global_id(id) (id_type(id)==ID_GLOBAL)
|
|
|
|
#define is_instance_id(id) (id_type(id)==ID_INSTANCE)
|
|
|
|
#define is_attrset_id(id) (id_type(id)==ID_ATTRSET)
|
|
|
|
#define is_const_id(id) (id_type(id)==ID_CONST)
|
|
|
|
#define is_class_id(id) (id_type(id)==ID_CLASS)
|
|
|
|
#define is_junk_id(id) (id_type(id)==ID_JUNK)
|
|
|
|
|
2015-08-12 11:43:55 +03:00
|
|
|
static inline int
|
|
|
|
id_type(ID id)
|
|
|
|
{
|
|
|
|
if (is_notop_id(id)) {
|
|
|
|
return (int)(id&ID_SCOPE_MASK);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
typedef uint32_t rb_id_serial_t;
|
|
|
|
|
|
|
|
static inline rb_id_serial_t
|
|
|
|
rb_id_to_serial(ID id)
|
|
|
|
{
|
|
|
|
if (is_notop_id(id)) {
|
|
|
|
return (rb_id_serial_t)(id >> ID_SCOPE_SHIFT);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
return (rb_id_serial_t)id;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2014-10-14 11:23:08 +04:00
|
|
|
static inline int
|
|
|
|
sym_type(VALUE sym)
|
|
|
|
{
|
|
|
|
ID id;
|
|
|
|
if (STATIC_SYM_P(sym)) {
|
|
|
|
id = RSHIFT(sym, RUBY_SPECIAL_SHIFT);
|
|
|
|
if (id<=tLAST_OP_ID) {
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
id = RSYMBOL(sym)->id;
|
|
|
|
}
|
|
|
|
return (int)(id&ID_SCOPE_MASK);
|
|
|
|
}
|
|
|
|
|
2014-11-17 21:20:22 +03:00
|
|
|
#define is_local_sym(sym) (sym_type(sym)==ID_LOCAL)
|
|
|
|
#define is_global_sym(sym) (sym_type(sym)==ID_GLOBAL)
|
|
|
|
#define is_instance_sym(sym) (sym_type(sym)==ID_INSTANCE)
|
|
|
|
#define is_attrset_sym(sym) (sym_type(sym)==ID_ATTRSET)
|
|
|
|
#define is_const_sym(sym) (sym_type(sym)==ID_CONST)
|
|
|
|
#define is_class_sym(sym) (sym_type(sym)==ID_CLASS)
|
|
|
|
#define is_junk_sym(sym) (sym_type(sym)==ID_JUNK)
|
2014-10-14 11:23:08 +04:00
|
|
|
|
2014-07-09 12:07:32 +04:00
|
|
|
RUBY_FUNC_EXPORTED const unsigned int ruby_global_name_punct_bits[(0x7e - 0x20 + 31) / 32];
|
|
|
|
|
|
|
|
static inline int
|
|
|
|
is_global_name_punct(const int c)
|
|
|
|
{
|
|
|
|
if (c <= 0x20 || 0x7e < c) return 0;
|
|
|
|
return (ruby_global_name_punct_bits[(c - 0x20) / 32] >> (c % 32)) & 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
ID rb_intern_cstr_without_pindown(const char *, long, rb_encoding *);
|
|
|
|
|
2015-08-21 14:30:24 +03:00
|
|
|
RUBY_SYMBOL_EXPORT_BEGIN
|
|
|
|
|
|
|
|
size_t rb_sym_immortal_count(void);
|
|
|
|
|
|
|
|
RUBY_SYMBOL_EXPORT_END
|
2014-07-09 12:07:32 +04:00
|
|
|
#endif
|