fastruby 0.0.20 → 0.0.21

data/lib/fastruby/corelib/integer.rb~

@@ -1,96 +0,0 @@
-=begin
-
-This file is part of the fastruby project, http://github.com/tario/fastruby
-
-Copyright (c) 2011 Roberto Dario Seminara <robertodarioseminara@gmail.com>
-
-fastruby is free software: you can redistribute it and/or modify
-it under the terms of the gnu general public license as published by
-the free software foundation, either version 3 of the license, or
-(at your option) any later version.
-
-fastruby is distributed in the hope that it will be useful,
-but without any warranty; without even the implied warranty of
-merchantability or fitness for a particular purpose.  see the
-gnu general public license for more details.
-
-you should have received a copy of the gnu general public license
-along with fastruby.  if not, see <http://www.gnu.org/licenses/>.
-
-=end
-class Integer
-  fastruby(:fastruby_only => true, :skip_reduce => true) do
-    def times
-      unless block_given?
-        return _static{rb_enumeratorize(self, _dynamic{:times}, inline_c("0"), inline_c("0") ) }
-      end
-      
-      if self._class == Fixnum
-        i = 0
-        while _static{FIX2LONG(i) < FIX2LONG(self)}
-          yield(i)
-          i = _static{LONG2FIX(FIX2LONG(i)+1)}
-        end
-      else
-        i = 0
-        while i < self
-          yield(i)
-          i = i + 1
-        end
-      end
-    end
-    
-    def uptox(x)
-      unless block_given?
-        return _static{rb_enumeratorize(self, _dynamic{:upto}, inline_c("1"), c_address_of(x)) }
-      end
-      
-      if self._class == Fixnum
-        if x._class == Fixnum
-          i = self
-          while _static{FIX2LONG(i) <= FIX2LONG(x)}
-            yield(i)
-            i = _static{LONG2FIX(FIX2LONG(i)+1)}
-          end
-      
-          return self  
-        end
-      end
-      
-      i = self
-      while i <= x
-        yield(i)
-        i = i + 1
-      end
-      
-      self
-    end
-
-    def downto(x)
-      unless block_given?
-        return _static{rb_enumeratorize(self, _dynamic{:downto}, inline_c("1"), c_address_of(x)) }
-      end
-      
-      if self._class == Fixnum
-        if x._class == Fixnum
-          i = self
-          while _static{FIX2LONG(i) >= FIX2LONG(x)}
-            yield(i)
-            i = _static{LONG2FIX(FIX2LONG(i)-1)}
-          end
-      
-          return self  
-        end
-      end
-      
-      i = self
-      while i >= x
-        yield(i)
-        i = i - 1
-      end
-      
-      self
-    end
-
-  end
-end

data/lib/fastruby/modules/inliner/defn.rb~

@@ -1,29 +0,0 @@
-=begin
-
-This file is part of the fastruby project, http://github.com/tario/fastruby
-
-Copyright (c) 2011 Roberto Dario Seminara <robertodarioseminara@gmail.com>
-
-fastruby is free software: you can redistribute it and/or modify
-it under the terms of the gnu general public license as published by
-the free software foundation, either version 3 of the license, or
-(at your option) any later version.
-
-fastruby is distributed in the hope that it will be useful,
-but without any warranty; without even the implied warranty of
-merchantability or fitness for a particular purpose.  see the
-gnu general public license for more details.
-
-you should have received a copy of the gnu general public license
-along with fastruby.  if not, see <http://www.gnu.org/licenses/>.
-
-=end
-require "set"
-require "sexp"
-require "define_method_handler"
- 
-module FastRuby
-  class Inliner
-
-  end
-end

data/lib/fastruby/modules/inliner/recursive.rb~

@@ -1,40 +0,0 @@
-=begin
-
-This file is part of the fastruby project, http://github.com/tario/fastruby
-
-Copyright (c) 2011 Roberto Dario Seminara <robertodarioseminara@gmail.com>
-
-fastruby is free software: you can redistribute it and/or modify
-it under the terms of the gnu general public license as published by
-the free software foundation, either version 3 of the license, or
-(at your option) any later version.
-
-fastruby is distributed in the hope that it will be useful,
-but without any warranty; without even the implied warranty of
-merchantability or fitness for a particular purpose.  see the
-gnu general public license for more details.
-
-you should have received a copy of the gnu general public license
-along with fastruby.  if not, see <http://www.gnu.org/licenses/>.
-
-=end
-require "set"
-require "sexp"
-require "define_method_handler"
-
-module FastRuby
-  class Inliner
-    
-    def recursive_inline(tree)
-      tree.map &method(:inline)
-    end
-    
-    define_method_handler(:inline, :priority => -100) {|tree|
-        tree.map{|subtree| inline subtree}
-      }.condition{|tree| tree.respond_to?(:node_type)}
-
-    define_method_handler(:inline, :priority => 1000) {|tree|
-        tree
-      }.condition{|tree| not tree.respond_to?(:node_type)}
-  end
-end

data/lib/fastruby/modules/lvar_type/call.rb~

@@ -1,36 +0,0 @@
-=begin
-
-This file is part of the fastruby project, http://github.com/tario/fastruby
-
-Copyright (c) 2011 Roberto Dario Seminara <robertodarioseminara@gmail.com>
-
-fastruby is free software: you can redistribute it and/or modify
-it under the terms of the gnu general public license as published by
-the free software foundation, either version 3 of the license, or
-(at your option) any later version.
-
-fastruby is distributed in the hope that it will be useful,
-but without any warranty; without even the implied warranty of
-merchantability or fitness for a particular purpose.  see the
-gnu general public license for more details.
-
-you should have received a copy of the gnu general public license
-along with fastruby.  if not, see <http://www.gnu.org/licenses/>.
-
-=end
-require "define_method_handler"
- 
-module FastRuby
-  class LvarType
-    define_method_handler(:process) {|tree|
-        args = tree[3]
-        lvar_name = args[1][1] || args[1][2]
-        lvar_type = eval(args[2][1].to_s)
-
-        @infer_lvar_map[lvar_name] = lvar_type
-        @inferencer.infer_lvar_map[lvar_name] = lvar_type
- 
-        tree
-      }.condition{|tree| tree && tree.node_type == :call && tree[2] == :lvar_type }
-  end
-end

data/lib/fastruby/modules/lvar_type/defn.rb~

@@ -1,42 +0,0 @@
-=begin
-
-This file is part of the fastruby project, http://github.com/tario/fastruby
-
-Copyright (c) 2011 Roberto Dario Seminara <robertodarioseminara@gmail.com>
-
-fastruby is free software: you can redistribute it and/or modify
-it under the terms of the gnu general public license as published by
-the free software foundation, either version 3 of the license, or
-(at your option) any later version.
-
-fastruby is distributed in the hope that it will be useful,
-but without any warranty; without even the implied warranty of
-merchantability or fitness for a particular purpose.  see the
-gnu general public license for more details.
-
-you should have received a copy of the gnu general public license
-along with fastruby.  if not, see <http://www.gnu.org/licenses/>.
-
-=end
-require "define_method_handler"
- 
-module FastRuby
-  class LvarType
-    define_method_handler(:process) {|tree|
-        if @process_defn_disabled
-          tree
-        else
-          old = @process_defn_disabled
-          @process_defn_disabled = true
-          begin
-            next tree.map &method(:process)
-          ensure
-            @process_defn_disabled = old
-          end
-        end
-        
-        tree
-      }.condition{|tree| tree.node_type == :defn or tree.node_type == :defs}
-      
-  end
-end

data/lib/fastruby/modules/lvar_type/lasgn.rb~

@@ -1,42 +0,0 @@
-=begin
-
-This file is part of the fastruby project, http://github.com/tario/fastruby
-
-Copyright (c) 2011 Roberto Dario Seminara <robertodarioseminara@gmail.com>
-
-fastruby is free software: you can redistribute it and/or modify
-it under the terms of the gnu general public license as published by
-the free software foundation, either version 3 of the license, or
-(at your option) any later version.
-
-fastruby is distributed in the hope that it will be useful,
-but without any warranty; without even the implied warranty of
-merchantability or fitness for a particular purpose.  see the
-gnu general public license for more details.
-
-you should have received a copy of the gnu general public license
-along with fastruby.  if not, see <http://www.gnu.org/licenses/>.
-
-=end
-require "define_method_handler"
- 
-module FastRuby
-  class LvarType
-    
-    if RUBY_VERSION =~ /^1\\.9/    
-      define_method_handler(:process) {|tree|
-        @current_index = (@current_index || 1) + 1
-        varname = "lvar_type_tmp_#{@current_index}".to_sym
-        class_condition = fs("_static{CLASS_OF(_a) == ::#{@infer_lvar_map[tree[1]].to_s}._invariant }", :_a => fs(:lvar,varname))
-
-        fs(:block,
-              fs(:lasgn, varname, tree[2]),
-              fs(:if, class_condition, fs(:lasgn, tree[1], fs(:lvar, varname.to_sym)), fs('_raise(FastRuby::TypeMismatchAssignmentException, "")') )
-              )
-        }.condition{|tree| tree && 
-          tree.node_type == :lasgn &&
-          tree.size == 3 &&
-          @infer_lvar_map[tree[1]] }
-    end
-  end
-end

data/lib/fastruby/modules/lvar_type/recursive.rb~

@@ -1,33 +0,0 @@
-=begin
-
-This file is part of the fastruby project, http://github.com/tario/fastruby
-
-Copyright (c) 2011 Roberto Dario Seminara <robertodarioseminara@gmail.com>
-
-fastruby is free software: you can redistribute it and/or modify
-it under the terms of the gnu general public license as published by
-the free software foundation, either version 3 of the license, or
-(at your option) any later version.
-
-fastruby is distributed in the hope that it will be useful,
-but without any warranty; without even the implied warranty of
-merchantability or fitness for a particular purpose.  see the
-gnu general public license for more details.
-
-you should have received a copy of the gnu general public license
-along with fastruby.  if not, see <http://www.gnu.org/licenses/>.
-
-=end
-require "define_method_handler"
-
-module FastRuby
-  class LvarType
-    define_method_handler(:process, :priority => -100) {|tree|
-        tree.map &method(:process)
-      }.condition{|tree| tree.respond_to?(:node_type)}
-      
-    define_method_handler(:process, :priority => 1000) {|tree|
-        tree
-      }.condition{|tree| not tree.respond_to?(:node_type)}
-  end
-end

data/lib/fastruby/modules/reductor/nontree.rb~

@@ -1,32 +0,0 @@
-=begin
-
-This file is part of the fastruby project, http://github.com/tario/fastruby
-
-Copyright (c) 2011 Roberto Dario Seminara <robertodarioseminara@gmail.com>
-
-fastruby is free software: you can redistribute it and/or modify
-it under the terms of the gnu general public license as published by
-the free software foundation, either version 3 of the license, or
-(at your option) any later version.
-
-fastruby is distributed in the hope that it will be useful,
-but without any warranty; without even the implied warranty of
-merchantability or fitness for a particular purpose.  see the
-gnu general public license for more details.
-
-you should have received a copy of the gnu general public license
-along with fastruby.  if not, see <http://www.gnu.org/licenses/>.
-
-=end
-require "set"
-require "sexp"
-require "define_method_handler"
-
-module FastRuby
-  class Reductor
-    define_method_handler(:reduce, :priority => -100) {|tree|
-        print caller.join("\n")
-        tree
-      }.condition{|tree| not tree.respond_to?(:node_type)}
-  end
-end

data/lib/fastruby/modules/reductor/recursive.rb~

@@ -1,31 +0,0 @@
-=begin
-
-This file is part of the fastruby project, http://github.com/tario/fastruby
-
-Copyright (c) 2011 Roberto Dario Seminara <robertodarioseminara@gmail.com>
-
-fastruby is free software: you can redistribute it and/or modify
-it under the terms of the gnu general public license as published by
-the free software foundation, either version 3 of the license, or
-(at your option) any later version.
-
-fastruby is distributed in the hope that it will be useful,
-but without any warranty; without even the implied warranty of
-merchantability or fitness for a particular purpose.  see the
-gnu general public license for more details.
-
-you should have received a copy of the gnu general public license
-along with fastruby.  if not, see <http://www.gnu.org/licenses/>.
-
-=end
-require "set"
-require "sexp"
-require "define_method_handler"
-
-module FastRuby
-  class Reductor
-    define_method_handler(:reduce, :priority => -100) {|*x| tree = x.first;
-        tree.map{|subtree| reduce subtree}
-      }.condition{|*x| tree = x.first; tree.respond_to?(:node_type)}
-  end
-end

data/lib/fastruby/modules/translator/defn.rb~

@@ -1,267 +0,0 @@
-=begin
-
-This file is part of the fastruby project, http://github.com/tario/fastruby
-
-Copyright (c) 2011 Roberto Dario Seminara <robertodarioseminara@gmail.com>
-
-fastruby is free software: you can redistribute it and/or modify
-it under the terms of the gnu general public license as published by
-the free software foundation, either version 3 of the license, or
-(at your option) any later version.
-
-fastruby is distributed in the hope that it will be useful,
-but without any warranty; without even the implied warranty of
-merchantability or fitness for a particular purpose.  see the
-gnu general public license for more details.
-
-you should have received a copy of the gnu general public license
-along with fastruby.  if not, see <http://www.gnu.org/licenses/>.
-
-=end
-module FastRuby
-  class Context
-    
-    define_translator_for(:defn, :method => :to_c_defn)
-    def to_c_defn(tree, result_var = nil)
-
-      method_name = tree[1]
-      args_tree = tree[2].select{|x| x.to_s[0] != ?&}
-      
-      global_klass_variable = add_global_name("VALUE", "Qnil");
-
-      hash = Hash.new
-      value_cast = ( ["VALUE"]*(args_tree.size+2) ).join(",")
-      
-      strmethodargs = "self,block,(VALUE)&frame"
-      
-      anonymous_method_name = anonymous_dispatcher(global_klass_variable, method_name)
-      alt_options = options.dup
-
-      alt_options.delete(:self)
-      alt_options.delete(:main)
-
-      code = "
-      
-      
-        if (rb_obj_is_kind_of(plocals->self, rb_cClass) || rb_obj_is_kind_of(plocals->self, rb_cModule)) {
-
-          #{unless options[:fastruby_only]
-           "rb_define_method(plocals->self, #{method_name.to_s.inspect}, #{anonymous_method_name}, -1);"
-          end
-          }
-          
-          #{global_klass_variable} = plocals->self;
-          // set tree
-          rb_funcall(#{literal_value FastRuby}, #{intern_num :set_tree}, 4,
-                  #{global_klass_variable},
-                  rb_str_new2(#{method_name.to_s.inspect}),
-                  #{literal_value tree},
-                  #{literal_value alt_options}
-  
-                  );
-          
-        } else {
-          VALUE obj = plocals->self;
-          rb_define_singleton_method(obj, #{method_name.to_s.inspect}, #{anonymous_method_name}, -1 );
-          
-          #{global_klass_variable} = CLASS_OF(obj);
-          // set tree
-          rb_funcall(#{literal_value FastRuby}, #{intern_num :set_tree}, 4,
-                  #{global_klass_variable},
-                  rb_str_new2(#{method_name.to_s.inspect}),
-                  #{literal_value tree},
-                  #{literal_value alt_options}
-  
-                  );
-        }
-        
-        "
-
-      if result_var
-        code + "\n#{result_var} = Qnil;"
-      else
-        inline_block code + "\nreturn Qnil;\n"
-      end
-    end
-
-    define_translator_for(:defs, :method => :to_c_defs)
-    def to_c_defs(tree, result_var = nil)
-      method_name = tree[2]
-      args_tree = tree[3].select{|x| x.to_s[0] != ?&}
-      
-      global_klass_variable = add_global_name("VALUE", "Qnil");
-
-      hash = Hash.new
-      value_cast = ( ["VALUE"]*(args_tree.size+2) ).join(",")
-      
-      strmethodargs = "self,block,(VALUE)&frame"
-      
-      anonymous_method_name = anonymous_dispatcher(global_klass_variable, method_name)
-
-      alt_options = options.dup
-
-      alt_options.delete(:self)
-      alt_options.delete(:main)
-
-      code = "
-      
-        VALUE obj = Qnil;
-        #{to_c tree[1], "obj"};
-        rb_define_singleton_method(obj, #{method_name.to_s.inspect}, #{anonymous_method_name}, -1 );
-        
-        #{global_klass_variable} = CLASS_OF(obj);
-        // set tree
-        rb_funcall(#{literal_value FastRuby}, #{intern_num :set_tree}, 4,
-                #{global_klass_variable},
-                rb_str_new2(#{method_name.to_s.inspect}),
-                #{literal_value tree},
-                #{literal_value alt_options}
-
-                );
-
-        "
-
-      if result_var
-        code + "\n#{result_var} = Qnil;"
-      else
-        inline_block code + "\nreturn Qnil;\n"
-      end
-        
-    end
-
-    define_translator_for(:scope, :method => :to_c_scope)
-    def to_c_scope(tree, result_var = nil)
-      if tree[1]
-        if result_var
-          to_c(tree[1], result_var)
-        else
-          to_c(tree[1])
-        end
-      else
-        "Qnil"
-      end
-    end
-    
-private
- 
-    def anonymous_dispatcher(global_klass_variable, method_name)
-      
-      strmethodargs = "self,block,(VALUE)&frame"
-      
-      anonymous_function{ |anonymous_method_name| "VALUE #{anonymous_method_name}(int argc_, VALUE* argv, VALUE self) {
-          VALUE klass = #{global_klass_variable};
-          char method_name[argc_*40+64];
-
-          method_name[0] = '_';
-          method_name[1] = 0;
-
-          sprintf(method_name+1, \"#{method_name}\");
-          sprintf(method_name+strlen(method_name), \"%l\", (long)NUM2PTR(rb_obj_id(CLASS_OF(self))));
-          
-                      int i;
-                      for (i=0; i<argc_; i++) {
-                        sprintf(method_name+strlen(method_name), \"%l\", (long)NUM2PTR(rb_obj_id(CLASS_OF(argv[i]))));
-                      }
-
-          void** address = 0;
-          void* fptr = 0;
-          ID id;
-          VALUE rb_method_hash;
-
-          id = rb_intern(method_name);
-          rb_method_hash = rb_funcall(klass, #{intern_num :method_hash},1,#{literal_value method_name});
-          
-          if (rb_method_hash != Qnil) {
-            VALUE tmp = rb_hash_aref(rb_method_hash, PTR2NUM(id));
-            if (tmp != Qnil) {
-                address = (void**)NUM2PTR(tmp);
-                fptr = *address;
-            }
-          }
-
-          if (fptr == 0) {
-                          VALUE argv_class[argc_+1];
-                          
-                          argv_class[0] = CLASS_OF(self); 
-                          for (i=0; i<argc_; i++) {
-                            argv_class[i+1] = CLASS_OF(argv[i]);
-                          }
-                          
-                          VALUE signature = rb_ary_new4(argc_+1,argv_class);
-            
-            rb_funcall(#{global_klass_variable}, #{intern_num :build}, 2, signature,rb_str_new2(#{method_name.to_s.inspect}));
-  
-            id = rb_intern(method_name);
-            rb_method_hash = rb_funcall(klass, #{intern_num :method_hash},1,#{literal_value method_name});
-            
-            if (rb_method_hash != Qnil) {
-              VALUE tmp = rb_hash_aref(rb_method_hash, PTR2NUM(id));
-              if (tmp != Qnil) {
-                  address = (void**)NUM2PTR(tmp);
-                  fptr = *address;
-              }
-            }
-            
-            if (fptr == 0) {
-              rb_raise(rb_eRuntimeError, \"Error: method not found after build\");
-            }
-
-          }
-
-              struct {
-                void* parent_frame;
-                void* plocals;
-                jmp_buf jmp;
-                VALUE return_value;
-                int rescue;
-                VALUE last_error;
-                VALUE next_recv;
-                int targetted;
-                struct FASTRUBYTHREADDATA* thread_data;
-              } frame;
-
-              frame.parent_frame = 0;
-              frame.rescue = 0;
-              frame.return_value = Qnil;
-              frame.thread_data = rb_current_thread_data();
-              frame.targetted = 0;
-
-              volatile VALUE block = Qfalse;
-
-              if (rb_block_given_p()) {
-                struct {
-                  void* block_function_address;
-                  void* block_function_param;
-                  VALUE proc;
-                } block_struct;
-
-                block_struct.block_function_address = re_yield;
-                block_struct.block_function_param = 0;
-                block_struct.proc = rb_block_proc();
-
-                block = (VALUE)&block_struct;
-              }
-
-              int aux = setjmp(frame.jmp);
-              if (aux != 0) {
-                if (aux == FASTRUBY_TAG_RAISE) {
-                  rb_funcall(self, #{intern_num :raise}, 1, frame.thread_data->exception);
-                }
-
-                if (frame.targetted == 0) {
-                    frb_jump_tag(aux);
-                }
-
-                return Qnil;
-              }
-              
-              VALUE tmp = Qnil;
-              if (argv == 0) argv = &tmp;
-
-              return ((VALUE(*)(VALUE,VALUE,VALUE,int,VALUE*))fptr)(#{strmethodargs}, argc_, argv);
-        }"
-      }
-      
-    end
-  end
-end

data/lib/fastruby/modules/translator/directive.rb~

@@ -1,44 +0,0 @@
-=begin
-
-This file is part of the fastruby project, http://github.com/tario/fastruby
-
-Copyright (c) 2011 Roberto Dario Seminara <robertodarioseminara@gmail.com>
-
-fastruby is free software: you can redistribute it and/or modify
-it under the terms of the gnu general public license as published by
-the free software foundation, either version 3 of the license, or
-(at your option) any later version.
-
-fastruby is distributed in the hope that it will be useful,
-but without any warranty; without even the implied warranty of
-merchantability or fitness for a particular purpose.  see the
-gnu general public license for more details.
-
-you should have received a copy of the gnu general public license
-along with fastruby.  if not, see <http://www.gnu.org/licenses/>.
-
-=end
-module FastRuby
-  class Context
-
-    define_translator_for(:call, :priority => 100){ |*x|
-      tree, result_var = x
-
-      directive_code = directive(tree)
-
-      if result_var
-        return "#{result_var} = #{directive_code};\n"
-      else
-        return directive_code
-      end
-      
-    }.condition{|*x|
-      tree = x.first; tree.node_type == :call && directive(tree)
-    }
-
-    define_translator_for(:call, :method => :to_c_attrasgn, :arity => 1)
-    def to_c_attrasgn(tree)
-      to_c_call(tree)
-    end
-  end
-end