Permalink
Cannot retrieve contributors at this time
| #ifndef RUBY_SYMBOL_H | |
| #define RUBY_SYMBOL_H 1 | |
| /********************************************************************** | |
| symbol.h - | |
| $Author$ | |
| created at: Tue Jul 8 15:49:54 JST 2014 | |
| Copyright (C) 2014 Yukihiro Matsumoto | |
| **********************************************************************/ | |
| #include "id.h" | |
| #include "ruby/encoding.h" | |
| #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 HAVE_BUILTIN___BUILTIN_CONSTANT_P | |
| #define rb_id2sym(id) \ | |
| RB_GNUC_EXTENSION_BLOCK(__builtin_constant_p(id) && !DYNAMIC_ID_P(id) ? \ | |
| STATIC_ID2SYM(id) : rb_id2sym(id)) | |
| #endif | |
| struct RSymbol { | |
| struct RBasic basic; | |
| st_index_t hashval; | |
| VALUE fstr; | |
| ID id; | |
| }; | |
| #define RSYMBOL(obj) ((struct RSymbol *)(obj)) | |
| #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)==idASET||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) | |
| 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 const uint32_t RB_ID_SERIAL_MAX = /* 256M on LP32 */ | |
| UINT32_MAX >> | |
| ((sizeof(ID)-sizeof(rb_id_serial_t))*CHAR_BIT < RUBY_ID_SCOPE_SHIFT ? | |
| RUBY_ID_SCOPE_SHIFT : 0); | |
| typedef struct { | |
| rb_id_serial_t last_id; | |
| st_table *str_sym; | |
| VALUE ids; | |
| VALUE dsymbol_fstr_hash; | |
| } rb_symbols_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; | |
| } | |
| } | |
| 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); | |
| } | |
| #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) | |
| 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; | |
| } | |
| int rb_enc_symname_type(const char *name, long len, rb_encoding *enc, unsigned int allowed_attrset); | |
| RUBY_SYMBOL_EXPORT_BEGIN | |
| size_t rb_sym_immortal_count(void); | |
| RUBY_SYMBOL_EXPORT_END | |
| #endif |