miniinit.c

   1 /**********************************************************************
   2
   3   miniinit.c -
   4
   5   $Author$
   6   created at: Thu Jul 11 22:09:57 JST 2013
   7
   8   Copyright (C) 2013 Yukihiro Matsumoto
   9
  10 **********************************************************************/
  11
  12 #include "ruby/ruby.h"
  13 #include "ruby/encoding.h"
  14
  15 /* loadpath.c */
  16 const char ruby_exec_prefix[] = "";
  17 const char ruby_initial_load_paths[] = "";
  18
  19 /* localeinit.c */
  20 VALUE
  21 rb_locale_charmap(VALUE klass)
  22 {
  23     /* never used */
  24     return Qnil;
  25 }
  26
  27 int
  28 rb_locale_charmap_index(void)
  29 {
  30     return -1;
  31 }
  32
  33 int
  34 Init_enc_set_filesystem_encoding(void)
  35 {
  36     return rb_enc_to_index(rb_default_external_encoding());
  37 }
  38
  39 void rb_encdb_declare(const char *name);
  40 int rb_encdb_alias(const char *alias, const char *orig);
  41 void
  42 Init_enc(void)
  43 {
  44     rb_encdb_declare("ASCII-8BIT");
  45     rb_encdb_declare("US-ASCII");
  46     rb_encdb_declare("UTF-8");
  47     rb_encdb_alias("BINARY", "ASCII-8BIT");
  48     rb_encdb_alias("ASCII", "US-ASCII");
  49 }
  50
  51 /* miniruby does not support dynamic loading. */
  52 void
  53 Init_ext(void)
  54 {
  55 }
  56
  57 static void builtin_loaded(const char *feature_name, VALUE iseq);
  58 #define BUILTIN_LOADED(feature_name, iseq) builtin_loaded(feature_name, (VALUE)(iseq))
  59
  60 #include "mini_builtin.c"
  61
  62 static struct st_table *loaded_builtin_table;
  63
  64 static void
  65 builtin_loaded(const char *feature_name, VALUE iseq)
  66 {
  67     st_insert(loaded_builtin_table, (st_data_t)feature_name, (st_data_t)iseq);
  68     rb_vm_register_global_object(iseq);
  69 }
  70
  71 static int
  72 each_builtin_i(st_data_t key, st_data_t val, st_data_t dmy)
  73 {
  74     const char *feature = (const char *)key;
  75     const rb_iseq_t *iseq = (const rb_iseq_t *)val;
  76
  77     rb_yield_values(2, rb_str_new2(feature), rb_iseqw_new(iseq));
  78
  79     return ST_CONTINUE;
  80 }
  81
  82 /* :nodoc: */
  83 static VALUE
  84 each_builtin(VALUE self)
  85 {
  86     st_foreach(loaded_builtin_table, each_builtin_i, 0);
  87     return Qnil;
  88 }
  89
  90 void
  91 Init_builtin(void)
  92 {
  93     rb_define_singleton_method(rb_cRubyVM, "each_builtin", each_builtin, 0);
  94     loaded_builtin_table = st_init_strtable();
  95 }
  96
  97 void
  98 Init_builtin_features(void)
  99 {
 100     // register for ruby
 101     builtin_iseq_load("gem_prelude", NULL);
 102 }
 103
 104 void
 105 rb_free_loaded_builtin_table(void)
 106 {
 107     if (loaded_builtin_table)
 108         st_free_table(loaded_builtin_table);
 109 }