opal 0.2.2 → 0.3.0

data/opals/opal/runtime/lib/io.rb

@@ -1,39 +0,0 @@
-# 
-# io.rb
-# vienna
-# 
-# Created by Adam Beynon.
-# Copyright 2010 Adam Beynon.
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-#
-
-class IO
-  
-  def puts(*objects)
-    if objects.length == 0
-      # print new line only
-    else
-      objects.each do |object|
-        # print each one on a new line
-      end
-    end
-    nil
-  end
-end

data/opals/opal/runtime/lib/kernel.rb

@@ -1,288 +0,0 @@
-# 
-# kernel.rb
-# vienna
-# 
-# Created by Adam Beynon.
-# Copyright 2010 Adam Beynon.
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-#
-
-# The kernel module is included directly into {Object}, making all of these 
-# methods globally accessible from any Object.
-module Kernel
-  
-  # Returns `true` if `yield` would execute a block in the current context, 
-  # `false` otherwise. 
-  # 
-  # @note In Opal this is kind of a fake method. The compiler treats 
-  # `block_given?` as a keyword to make its use easier to deal with in 
-  # javascript (keep things nice and efficient). Its use is the same to the end
-  # programmer, apart from it should not be overriden - it is never actually
-  # called.
-  # 
-  # @return [Boolean] was a block given
-  def block_given?
-    false
-  end
-  
-  def !=(other)
-    `return #{self == other}.r ? #{false} : #{true};`
-  end
-  
-  # Repeatedly executes the block.
-  # 
-  # @note Method does not return an enumerator if no block given(yet).
-  # 
-  # @example
-  #   loop do
-  #     puts "this will infinetly print"
-  #   end
-  # 
-  # @param [Proc] block
-  # @return [Object] returns the receiver
-  def loop(&block)
-    `try {
-      while (true) {
-        #{block}.apply(#{block}.__self__, []);
-      }
-    } catch (e) {
-      // capture break statements
-      if (e.__keyword__ == 'break') {
-        return e.opal_value;
-      }
-      
-      // rethrow everything else
-      throw e;
-    }`
-  end
-  
-  def is_a?(klass)
-    # `console.log("chjecking isa for:")
-    # console.log(#{self});
-    # console.log(#{klass});
-    # throw "";
-    # `
-    
-    `var search = #{self}.isa;
-    
-    while (search) {
-      if (search == #{klass})
-        return #{self}.t;
-      
-      search = search.super_class;
-    }
-    
-    return #{self}.f;`
-  end
-  
-  # alias_method :kind_of?, :is_a?
-  
-  def nil?
-    false
-  end
-  
-  def respond_to?(method)
-    `var method_id = #{method.to_s}.toString();
-    method_id = #{self}.mid2jsid(method_id);
-    if (#{self}[method_id]) {
-      return #{true};
-    }`
-    false
-  end
-  
-  def ===(other)
-    self == other
-  end
-  
-  def instance_variable_defined?(variable_name)
-    `return (#{self}[#{variable_name.to_s}.toString()]) ? #{true} : #{false};`
-  end
-  
-  def instance_variable_get(variable_name)
-    `return #{self}.ig(#{variable_name.to_s}.toString());`
-  end
-  
-  def instance_variable_set(variable_name, value)
-    `#{self}.is(#{variable_name.to_s}.toString(), #{value});`
-    value
-  end
-  
-  def __send__(method, *args)
-    `var res= #{self}['$' + #{method.to_s}].apply(#{self}, #{args});
-    return res;`
-  end
-  
-  def class
-    `return #{self}.isa;`
-  end
-  
-  def superclass
-    `return #{self}.super_class;`
-  end
-  
-  # Try to load the library or file named `require_path`. Causes an error to be
-  # thrown if required path cannot be found.
-  # 
-  # @todo Loading relative paths does not work. Paths need to be full. To load
-  # element from Browser, do require('browser/element/element'). The .rb
-  # extension can be ommited.
-  # 
-  # @param [String] require_path
-  # @return [Boolean] success
-  def require require_path
-    `opal.require(#{require_path});`
-    true
-  end
-  
-  # Simple equivalent to `Proc.new`. Returns a {Proc} instance.
-  # 
-  # @example
-  #   proc { puts "a" }
-  #   # => #<Proc 0x2828283>
-  # 
-  # @param [Proc] block
-  # @return [Proc]
-  def proc &block
-    if block_given?
-      block
-    else
-      raise "ArgumentError: tried to create Proc object without a block"
-    end
-  end
-  
-  # Prints each argument in turn to the browser console. Currently there is no
-  # use of `$stdout`, so it is hardcoded into this method to write to the 
-  # console directly.
-  # 
-  # @param [Object] args objects to print using `inspect`
-  # @return [nil]
-  def puts(args)
-    # args.each do |arg|
-      `console.log(#{args}.$to_s().toString());`
-    # end
-    nil
-  end
-  
-  # Returns a random number. If `max` is `nil` then the result is 0. Otherwise
-  # returns a random number from `0` to `max`.
-  # 
-  # @example
-  #   rand      # => 0.192272821917329
-  #   rand      # => 0.972628272363732
-  #   rand 10   # => 8
-  #   rand 10   # => 4
-  # 
-  # @param [Number] max max number to use
-  # @return [Number] random number
-  def rand(max = nil)
-    if max
-      `return Math.floor(Math.random() * #{max})`
-    else
-      `return Math.random();`
-    end
-  end
-  
-  def to_s
-    `return "#<" + #{self}.class_name + ":" + #{self}.id + ">";`
-  end
-  
-  def inspect
-    to_s
-  end
-  
-  def object_id
-    `return #{self}.id;`
-  end
-  
-  # Raises an exception. If given a {String} argument, this method will raise a
-  # {RuntimeError} with the given `string` as a message. Otherwise, if the first
-  # parameter is a subclass of {Exception}, then the method will raise a new 
-  # instance of the given `exception` class with the `string` as a method, if it
-  # exists, or a default message otherwise`
-  # 
-  # @example String message
-  #   raise "some error"
-  #   # => RuntimeError: some error
-  # 
-  # @example Exception subclass
-  #   raise StandardError, "something went wrong"
-  #   # => StandardError: something went wrong
-  # 
-  # @param [Exception, String] exception exception class or string to throw
-  # @param [String] string to pass as message for exception
-  # @return [nil]
-  def raise(exception, string)
-    # puts "need to raise"
-    msg = nil
-    if exception.is_a? String
-      msg = exception
-      exc = RuntimeError.new msg
-    elsif exception.is_a? Exception
-      exc = exception
-    else
-      `if (#{string}) { #{msg = string} }`
-      exc = exception.new msg
-    end
-    # puts "really about to raise"
-    `#{exc}.raise();`
-  end
-  
-  # An alias of {#raise}
-  # 
-  # @param [Exception, String] exception exception class or string to throw
-  # @param [String] string to pass as message for exception
-  # @return [nil]
-  def fail(exception = nil, string = nil)
-    raise exception, string
-  end
-  
-  def instance_eval(&block)
-    if block_given?
-      # `#{block}.__fun__.opal_self = true;`
-      `#{block}.apply(#{self});`
-    end
-  end
-  
-  def const_set(const_name, const_value)
-    `return #{self}.const_set(#{const_name}, #{const_value});`
-  end
-  
-end
-
-# ============================================================================
-# = Argh - these need to be here early for method in core lib that use alias =
-# ============================================================================
-
-class String
-  
-  def to_s
-    self
-  end
-  
-  def inspect
-    `return '"' + #{self} + '"';`
-  end
-end
-
-class Symbol
-  def to_s
-     `return #{self}.__ptr__;`
-  end
-end

data/opals/opal/runtime/lib/match_data.rb

@@ -1,36 +0,0 @@
-# 
-# match_data.rb
-# vienna
-# 
-# Created by Adam Beynon.
-# Copyright 2010 Adam Beynon.
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-#
-
-class MatchData
-  
-  def initialize(data)
-    @data = data
-  end
-  
-  def inspect
-    "#<MatchData '#{@data[0]}'>"
-  end
-end

data/opals/opal/runtime/lib/module.rb

@@ -1,109 +0,0 @@
-# 
-# module.rb
-# vienna
-# 
-# Created by Adam Beynon.
-# Copyright 2010 Adam Beynon.
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-#
-
-class Module
-  
-  def ===(object)
-    object.is_a? self
-  end
-  
-  def undef_method symbol
-    puts "need to undefine method: #{symbol}"
-  end
-  
-  def define_method(method, &implementation)
-    # we are defining a method, so always use opal_self to reclaim self
-    # `#{implementation}.__fun__.opal_self = true;
-    `var mid = #{method.to_s};
-    #{self}.dm(mid, #{implementation}, false);`
-    self
-  end
-  
-  def alias_method(new_name, old_name)
-    new_name = new_name.to_s
-    old_name = old_name.to_s
-    # puts "alias #{new_name} from #{old_name}"
-    # `console.log(#{self}.allocator.prototype);`
-    # `var body = function() {
-      # return #{self}['$' + #{old_name}].apply(this, arguments);
-    # };`
-  `#{self}.dm(#{new_name}, #{self}.allocator.prototype['$' + #{old_name}], false);`
-    self
-  end
-  
-  def attr_accessor(*attributes)
-    # puts "in attr_accessor"
-    `#{self}.$attr_reader.apply(#{self}, #{attributes});`
-    `#{self}.$attr_writer.apply(#{self}, #{attributes});`
-    self
-  end
-  
-  def to_s
-    `return #{self}.class_name;`
-  end
-  
-  
-  
-  def attr_reader(*attributes)
-    attributes.each do |attribute|
-      `var mid = #{attribute.to_s};
-      #{self}.dm(mid, function() {
-        return #{self}.ig('@' + mid);
-      }, false);`
-    end
-    
-    self
-  end
-  
-  def attr_writer(*attributes)
-    attributes.each do |attribute|
-      `var mid = #{attribute.to_s};
-      var mid2 = mid + "=";
-      #{self}.dm(mid2, function(val) {
-        return #{self}.is('@' + mid, val);
-      }, false);`
-    end
-    
-    self
-  end
-  
-  def const_set(id, value)
-    `return #{self}.const_set(#{id}, #{value});`
-  end
-  
-  def module_eval(&block)
-    # puts "about to module eval"
-    # `console.log(#{self});`
-    if block_given?
-      # puts "block was given.."
-      # `console.log(#{self});`
-      # `#{block}.__fun__.opal_self = true;`
-      `#{block}.apply(#{self});`
-    end
-  end
-  
-  # alias_method :class_eval, :module_eval
-end