From 8e677dc4436ea80e219c5962576231abededd114 Mon Sep 17 00:00:00 2001 From: nobu Date: Tue, 11 Nov 2014 09:09:14 +0000 Subject: template/prelude.c.tmpl * template/prelude.c.tmpl: move from tool/compile_prelude.rb and expand by generic_erb.rb. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@48373 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 5 ++ common.mk | 25 +++--- template/prelude.c.tmpl | 186 ++++++++++++++++++++++++++++++++++++++++++++ tool/compile_prelude.rb | 199 ------------------------------------------------ 4 files changed, 205 insertions(+), 210 deletions(-) create mode 100644 template/prelude.c.tmpl delete mode 100644 tool/compile_prelude.rb diff --git a/ChangeLog b/ChangeLog index 23440b8194..e65513e521 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +Tue Nov 11 18:09:11 2014 Nobuyoshi Nakada + + * template/prelude.c.tmpl: move from tool/compile_prelude.rb and + expand by generic_erb.rb. + Tue Nov 11 13:01:31 2014 NARUSE, Yui * lib/rubygems/commands/contents_command.rb (files_in_default_gem): diff --git a/common.mk b/common.mk index 29a01b63bb..d2bab7b94f 100644 --- a/common.mk +++ b/common.mk @@ -115,8 +115,8 @@ ALLOBJS = $(NORMALMAINOBJ) $(MINIOBJS) $(COMMONOBJS) $(DMYEXT) GOLFOBJS = goruby.$(OBJEXT) golf_prelude.$(OBJEXT) DEFAULT_PRELUDES = $(GEM_PRELUDE) -PRELUDE_SCRIPTS = $(srcdir)/prelude.rb $(srcdir)/enc/prelude.rb $(DEFAULT_PRELUDES) -GEM_PRELUDE = $(srcdir)/gem_prelude.rb +PRELUDE_SCRIPTS = prelude.rb enc/prelude.rb $(DEFAULT_PRELUDES) +GEM_PRELUDE = gem_prelude.rb PRELUDES = prelude.c miniprelude.c GOLFPRELUDES = golf_prelude.c @@ -146,7 +146,7 @@ TESTRUN_SCRIPT = $(srcdir)/test.rb BOOTSTRAPRUBY = $(BASERUBY) -COMPILE_PRELUDE = $(MINIRUBY) -I$(srcdir) $(srcdir)/tool/compile_prelude.rb +COMPILE_PRELUDE = $(srcdir)/tool/generic_erb.rb $(srcdir)/template/prelude.c.tmpl all: showflags main docs @@ -969,20 +969,23 @@ known_errors.inc: $(srcdir)/template/known_errors.inc.tmpl $(srcdir)/defs/known_ $(ECHO) generating $@ $(Q) $(BASERUBY) $(srcdir)/tool/generic_erb.rb -c -o $@ $(srcdir)/template/known_errors.inc.tmpl $(srcdir)/defs/known_errors.def -$(MINIPRELUDE_C): $(srcdir)/tool/compile_prelude.rb $(srcdir)/prelude.rb +$(MINIPRELUDE_C): $(COMPILE_PRELUDE) prelude.rb $(ECHO) generating $@ - $(Q) $(BASERUBY) -I$(srcdir) $(srcdir)/tool/compile_prelude.rb $(srcdir)/prelude.rb $@ + $(Q) $(BASERUBY) $(srcdir)/tool/generic_erb.rb -I$(srcdir) -o $@ \ + $(srcdir)/template/prelude.c.tmpl prelude.rb -prelude.c: $(srcdir)/tool/compile_prelude.rb $(RBCONFIG) \ - $(srcdir)/lib/rubygems/defaults.rb \ - $(srcdir)/lib/rubygems/core_ext/kernel_gem.rb \ +prelude.c: $(COMPILE_PRELUDE) $(RBCONFIG) \ + lib/rubygems/defaults.rb \ + lib/rubygems/core_ext/kernel_gem.rb \ $(PRELUDE_SCRIPTS) $(PREP) $(LIB_SRCS) $(ECHO) generating $@ - $(Q) $(COMPILE_PRELUDE) $(PRELUDE_SCRIPTS) $@ + $(Q) $(MINIRUBY) $(srcdir)/tool/generic_erb.rb -I$(srcdir) -c -o $@ \ + $(srcdir)/template/prelude.c.tmpl $(PRELUDE_SCRIPTS) -golf_prelude.c: $(srcdir)/tool/compile_prelude.rb $(RBCONFIG) $(srcdir)/prelude.rb $(srcdir)/golf_prelude.rb $(PREP) +golf_prelude.c: $(COMPILE_PRELUDE) $(RBCONFIG) golf_prelude.rb $(PREP) $(ECHO) generating $@ - $(Q) $(COMPILE_PRELUDE) $(srcdir)/golf_prelude.rb $@ + $(Q) $(MINIRUBY) $(srcdir)/tool/generic_erb.rb -I$(srcdir) -c -o $@ \ + $(srcdir)/template/prelude.c.tmpl golf_prelude.rb probes.dmyh: {$(srcdir)}probes.d $(srcdir)/tool/gen_dummy_probes.rb $(BASERUBY) $(srcdir)/tool/gen_dummy_probes.rb $(srcdir)/probes.d > $@ diff --git a/template/prelude.c.tmpl b/template/prelude.c.tmpl new file mode 100644 index 0000000000..e1859fd436 --- /dev/null +++ b/template/prelude.c.tmpl @@ -0,0 +1,186 @@ +<% +# This file is interpreted by $(BASERUBY) and miniruby. +# $(BASERUBY) is used for miniprelude.c. +# miniruby is used for prelude.c. +# Since $(BASERUBY) may be older than Ruby 1.9, +# Ruby 1.9 feature should not be used. + +class Prelude + C_ESC = { + "\\" => "\\\\", + '"' => '\"', + "\n" => '\n', + } + + 0x00.upto(0x1f) {|ch| C_ESC[[ch].pack("C")] ||= "\\%03o" % ch } + 0x7f.upto(0xff) {|ch| C_ESC[[ch].pack("C")] = "\\%03o" % ch } + C_ESC_PAT = Regexp.union(*C_ESC.keys) + + def c_esc(str) + '"' + str.gsub(C_ESC_PAT) { C_ESC[$&] } + '"' + end + def prelude_base(filename) + filename.chomp(".rb") + end + def prelude_name(filename) + "" + end + + def initialize(init_name, preludes, vpath) + @init_name = init_name + @mkconf = nil + @have_sublib = false + @need_ruby_prefix = false + @vpath = vpath + @preludes = {} + @mains = preludes.map {|filename| translate(filename)[0]} + @preludes.delete_if {|_, (_, _, lines, sub)| sub && lines.empty?} + end + + def translate(filename, sub = false) + idx = @preludes[filename] + return idx if idx + lines = [] + result = [@preludes.size, filename, lines, sub] + @vpath.foreach(filename) do |line| + @preludes[filename] ||= result + line.sub!(/(?:^|\s+)\#(?:$|\s.*)/, '') + line.gsub!(/RbConfig::CONFIG\["(\w+)"\]/) { + key = $1 + unless @mkconf + require './rbconfig' + @mkconf = RbConfig::MAKEFILE_CONFIG.merge('prefix'=>'#{TMP_RUBY_PREFIX}') + end + if RbConfig::MAKEFILE_CONFIG.has_key? key + val = RbConfig.expand("$(#{key})", @mkconf) + @need_ruby_prefix ||= /\A\#\{TMP_RUBY_PREFIX\}/ =~ val + c_esc(val) + else + "nil" + end + } + line.sub!(/require\s*\(?\s*(["'])(.*?)\1\)?/) do + orig, path = $&, $2 + path = translate(path, true) rescue nil + if path + @have_sublib = true + "TMP_RUBY_PREFIX.require(#{path[0]})" + else + orig + end + end + lines << c_esc(line) + end + result + end +end +Prelude.new(output && output[/\w+(?=_prelude.c\b)/] || 'prelude', ARGV, vpath).instance_eval do +-%> +/* -*-c-*- + THIS FILE WAS AUTOGENERATED BY template/prelude.c.tmpl. DO NOT EDIT. + + sources: <%= @preludes.map {|n,*| prelude_base(n)}.join(', ') %> +*/ +#include "ruby/ruby.h" +#include "internal.h" +#include "vm_core.h" + +% preludes = @preludes.values.sort +% preludes.each {|i, prelude, lines, sub| + +static const char prelude_name<%=i%>[] = <%=c_esc(prelude_name(*prelude))%>; +static const char prelude_code<%=i%>[] = +% lines.each {|line| +<%=line%> +% } +; +% } + +#define PRELUDE_COUNT <%=@have_sublib ? preludes.size : 0%> + +% if @have_sublib or @need_ruby_prefix +struct prelude_env { + volatile VALUE prefix_path; +#if PRELUDE_COUNT > 0 + char loaded[PRELUDE_COUNT]; +#endif +}; + +static VALUE +prelude_prefix_path(VALUE self) +{ + struct prelude_env *ptr = DATA_PTR(self); + return ptr->prefix_path; +} +% end + +% unless preludes.empty? +static void +prelude_eval(VALUE code, VALUE name, VALUE line) +{ + rb_iseq_eval(rb_iseq_compile_with_option(code, name, Qnil, line, 0, Qtrue)); +} +% end + +% if @have_sublib +static VALUE +prelude_require(VALUE self, VALUE nth) +{ + struct prelude_env *ptr = DATA_PTR(self); + VALUE code, name; + int n = FIX2INT(nth); + + if (n > PRELUDE_COUNT) return Qfalse; + if (ptr->loaded[n]) return Qfalse; + ptr->loaded[n] = 1; + switch (n) { +% @preludes.each_value do |i, prelude, lines, sub| +% if sub + case <%=i%>: + code = rb_usascii_str_new(prelude_code<%=i%>, sizeof(prelude_code<%=i%>) - 1); + name = rb_usascii_str_new(prelude_name<%=i%>, sizeof(prelude_name<%=i%>) - 1); + break; +% end +% end + default: + return Qfalse; + } + prelude_eval(code, name, INT2FIX(1)); + return Qtrue; +} + +% end +void +Init_<%=@init_name%>(void) +{ +% if @have_sublib or @need_ruby_prefix + struct prelude_env memo; + ID name = rb_intern("TMP_RUBY_PREFIX"); + VALUE prelude = Data_Wrap_Struct(rb_cData, 0, 0, &memo); + + memo.prefix_path = rb_const_remove(rb_cObject, name); + rb_const_set(rb_cObject, name, prelude); + rb_define_singleton_method(prelude, "to_s", prelude_prefix_path, 0); +% end +% if @have_sublib + memset(memo.loaded, 0, sizeof(memo.loaded)); + rb_define_singleton_method(prelude, "require", prelude_require, 1); +% end +% preludes.each do |i, prelude, lines, sub| +% next if sub + prelude_eval( + rb_usascii_str_new(prelude_code<%=i%>, sizeof(prelude_code<%=i%>) - 1), + rb_usascii_str_new(prelude_name<%=i%>, sizeof(prelude_name<%=i%>) - 1), + INT2FIX(1)); +% end +% if @have_sublib or @need_ruby_prefix + rb_gc_force_recycle(prelude); +% end + +#if 0 +% preludes.length.times {|i| + puts(prelude_code<%=i%>); +% } +#endif +} +<%end -%> diff --git a/tool/compile_prelude.rb b/tool/compile_prelude.rb deleted file mode 100644 index 9113fd9fe8..0000000000 --- a/tool/compile_prelude.rb +++ /dev/null @@ -1,199 +0,0 @@ -# This file is interpreted by $(BASERUBY) and miniruby. -# $(BASERUBY) is used for miniprelude.c. -# miniruby is used for prelude.c. -# Since $(BASERUBY) may be older than Ruby 1.9, -# Ruby 1.9 feature should not be used. - -require 'erb' - -class Prelude - SRCDIR = File.dirname(File.dirname(__FILE__)) - $:.unshift(SRCDIR) - - C_ESC = { - "\\" => "\\\\", - '"' => '\"', - "\n" => '\n', - } - - 0x00.upto(0x1f) {|ch| C_ESC[[ch].pack("C")] ||= "\\%03o" % ch } - 0x7f.upto(0xff) {|ch| C_ESC[[ch].pack("C")] = "\\%03o" % ch } - C_ESC_PAT = Regexp.union(*C_ESC.keys) - - def c_esc(str) - '"' + str.gsub(C_ESC_PAT) { C_ESC[$&] } + '"' - end - def prelude_base(filename) - filename[/\A#{Regexp.quote(SRCDIR)}\/(.*?)(\.rb)?\z/om, 1] - end - def prelude_name(filename) - "" - end - - def initialize(preludes) - @mkconf = nil - @have_sublib = false - @need_ruby_prefix = false - @preludes = {} - @mains = preludes.map {|filename| translate(filename)[0]} - @preludes.delete_if {|_, (_, _, lines, sub)| !sub && lines.empty?} - end - - def translate(filename, sub = false) - idx = @preludes[filename] - return idx if idx - lines = [] - @preludes[filename] = result = [@preludes.size, filename, lines, sub] - File.readlines(filename).each do |line| - line.sub!(/(?:^|\s+)\#(?:$|\s.*)/, '') - line.gsub!(/RbConfig::CONFIG\["(\w+)"\]/) { - key = $1 - unless @mkconf - require './rbconfig' - @mkconf = RbConfig::MAKEFILE_CONFIG.merge('prefix'=>'#{TMP_RUBY_PREFIX}') - end - if RbConfig::MAKEFILE_CONFIG.has_key? key - val = RbConfig.expand("$(#{key})", @mkconf) - @need_ruby_prefix ||= /\A\#\{TMP_RUBY_PREFIX\}/ =~ val - c_esc(val) - else - "nil" - end - } - line.sub!(/require\s*\(?\s*(["'])(.*?)\1\)?/) do - orig, path = $&, $2 - path = File.join(SRCDIR, path) - if File.exist?(path) - @have_sublib = true - "TMP_RUBY_PREFIX.require(#{translate(path, true)[0]})" - else - orig - end - end - lines << c_esc(line) - end - result - end - - def emit(outfile) - @init_name = outfile[/\w+(?=_prelude.c\b)/] || 'prelude' - erb = ERB.new(<<'EOS', nil, '%') -/* -*-c-*- - THIS FILE WAS AUTOGENERATED BY tool/compile_prelude.rb. DO NOT EDIT. - - sources: <%= @preludes.map {|n,*| prelude_base(n)}.join(', ') %> -*/ -#include "ruby/ruby.h" -#include "internal.h" -#include "vm_core.h" - -% preludes = @preludes.values.sort -% preludes.each {|i, prelude, lines, sub| - -static const char prelude_name<%=i%>[] = <%=c_esc(prelude_name(*prelude))%>; -static const char prelude_code<%=i%>[] = -% lines.each {|line| -<%=line%> -% } -; -% } - -#define PRELUDE_COUNT <%=@have_sublib ? preludes.size : 0%> - -% if @have_sublib or @need_ruby_prefix -struct prelude_env { - volatile VALUE prefix_path; -#if PRELUDE_COUNT > 0 - char loaded[PRELUDE_COUNT]; -#endif -}; - -static VALUE -prelude_prefix_path(VALUE self) -{ - struct prelude_env *ptr = DATA_PTR(self); - return ptr->prefix_path; -} -% end - -% unless preludes.empty? -static void -prelude_eval(VALUE code, VALUE name, VALUE line) -{ - rb_iseq_eval(rb_iseq_compile_with_option(code, name, Qnil, line, 0, Qtrue)); -} -% end - -% if @have_sublib -static VALUE -prelude_require(VALUE self, VALUE nth) -{ - struct prelude_env *ptr = DATA_PTR(self); - VALUE code, name; - int n = FIX2INT(nth); - - if (n > PRELUDE_COUNT) return Qfalse; - if (ptr->loaded[n]) return Qfalse; - ptr->loaded[n] = 1; - switch (n) { -% @preludes.each_value do |i, prelude, lines, sub| -% if sub - case <%=i%>: - code = rb_usascii_str_new(prelude_code<%=i%>, sizeof(prelude_code<%=i%>) - 1); - name = rb_usascii_str_new(prelude_name<%=i%>, sizeof(prelude_name<%=i%>) - 1); - break; -% end -% end - default: - return Qfalse; - } - prelude_eval(code, name, INT2FIX(1)); - return Qtrue; -} - -% end -void -Init_<%=@init_name%>(void) -{ -% if @have_sublib or @need_ruby_prefix - struct prelude_env memo; - ID name = rb_intern("TMP_RUBY_PREFIX"); - VALUE prelude = Data_Wrap_Struct(rb_cData, 0, 0, &memo); - - memo.prefix_path = rb_const_remove(rb_cObject, name); - rb_const_set(rb_cObject, name, prelude); - rb_define_singleton_method(prelude, "to_s", prelude_prefix_path, 0); -% end -% if @have_sublib - memset(memo.loaded, 0, sizeof(memo.loaded)); - rb_define_singleton_method(prelude, "require", prelude_require, 1); -% end -% preludes.each do |i, prelude, lines, sub| -% next if sub - prelude_eval( - rb_usascii_str_new(prelude_code<%=i%>, sizeof(prelude_code<%=i%>) - 1), - rb_usascii_str_new(prelude_name<%=i%>, sizeof(prelude_name<%=i%>) - 1), - INT2FIX(1)); -% end -% if @have_sublib or @need_ruby_prefix - rb_gc_force_recycle(prelude); -% end - -#if 0 -% preludes.length.times {|i| - puts(prelude_code<%=i%>); -% } -#endif -} -EOS - tmp = erb.result(binding) - open(outfile, 'w'){|f| - f << tmp - } - end -end - -preludes = ARGV.dup -outfile = preludes.pop -Prelude.new(preludes).emit(outfile) - -- cgit v1.2.3