eleetscript 0.0.17a → 0.0.18a

data/lib/lang/runtime/class.rb

@@ -100,10 +100,6 @@ module EleetScript
       to_s[0..-2] + " @methods(#{@methods.keys.join(", ")})>"
     end
 
-    def is_a?(value)
-      false
-    end
-
     private
 
     def has_super_class?

data/lib/lang/runtime/class_instance.rb

@@ -40,14 +40,17 @@ module EleetScript
       to_s
     end
 
-    def is_a?(value)
+    def is_a?(*values)
       names = ["Object", runtime_class.name]
       cur_class = runtime_class
       while cur_class.super_class.name != "Object"
         names << cur_class.super_class.name
         cur_class = cur_class.super_class
       end
-      names.include?(value)
+      values.each do |value|
+        return true if names.include?(value)
+      end
+      false
     end
 
     def class_name

data/lib/lang/runtime/class_skeleton.rb

@@ -31,7 +31,7 @@ module EleetScript
       false
     end
 
-    def is_a?(name)
+    def is_a?(*names)
       false
     end
 

data/lib/lang/runtime/context.rb

@@ -6,10 +6,11 @@ module EleetScript
     attr_accessor :current_self, :current_class
 
     class << self
-      attr_writer :init_funcs
+      attr_reader :init_funcs
 
       def init_with(*func_symbols)
-        self.init_funcs += func_symbols
+        (@init_funcs ||= [])
+        @init_funcs += func_symbols
       end
 
       def init_funcs
@@ -58,6 +59,10 @@ module EleetScript
       end
     end
 
+    def local_constant(name)
+      constants[name] || es_nil
+    end
+
     def [](key)
       store = fetch_var_store(key)
       if store[key]
@@ -196,7 +201,7 @@ module EleetScript
     private
 
     def init_namespace(root = nil)
-      if @root_ns == nil
+      if root.nil?
         @root_ns = self
         @global_vars = ProcessedKeyHash.new
         @global_vars.set_key_preprocessor do |key|

data/lib/lang/runtime/eleetscript/random.es

@@ -0,0 +1,57 @@
+class Random
+  @@d4 do
+    int(1, 4)
+  end
+
+  @@d6 do
+    int(1, 6)
+  end
+
+  @@d8 do
+    int(1, 8)
+  end
+
+  @@d10 do
+    int(1, 10)
+  end
+
+  @@d12 do
+    int(1, 12)
+  end
+
+  @@d20 do
+    int(1, 20)
+  end
+
+  @@d100 do
+    int
+  end
+
+  d4 do
+    int(1, 4)
+  end
+
+  d6 do
+    int(1, 6)
+  end
+
+  d8 do
+    int(1, 8)
+  end
+
+  d10 do
+    int(1, 10)
+  end
+
+  d12 do
+    int(1, 12)
+  end
+
+  d20 do
+    int(1, 20)
+  end
+
+  d100 do
+    int
+  end
+end

data/lib/lang/runtime/memory.rb

@@ -22,7 +22,8 @@ module EleetScript
       "Lambda" => nil,
       "TrueClass" => nil,
       "FalseClass" => nil,
-      "NilClass" => nil
+      "NilClass" => nil,
+      "Random" => nil
     }
 
     class << self

data/lib/lang/runtime/ruby/float_methods.rb

@@ -0,0 +1,23 @@
+module EleetScript
+  Memory.define_core_methods do
+    float = root_namespace["Float"]
+
+    float.def :to_float do |receiver, _|
+      receiver
+    end
+
+    float.def :to_integer do |receiver, _, context|
+      root_namespace["Integer"].new_with_value(receiver.ruby_value.to_i, context.namespace_context)
+    end
+
+    float.def :round do |receiver, arguments, context|
+      if arguments.length == 0
+        root_namespace["Integer"].new_with_value(receiver.ruby_value.round, context.namespace_context)
+      elsif arguments.length >= 1 && arguments.first.is_a?("String", "Number")
+        root_namespace["Float"].new_with_value(receiver.ruby_value.round(arguments.first.calL(:to_integer).ruby_value), context.namespace_context)
+      else
+        root_namespace["nil"]
+      end
+    end
+  end
+end

data/lib/lang/runtime/ruby/integer_methods.rb

@@ -0,0 +1,13 @@
+module EleetScript
+  Memory.define_core_methods do
+    integer = root_namespace["Integer"]
+
+    integer.def :to_float do |receiver, _, context|
+      root_namespace["Float"].new_with_value(receiver.ruby_value.to_f, context.namespace_context)
+    end
+
+    integer.def :to_integer do |receiver, _, context|
+      receiver
+    end
+  end
+end

data/lib/lang/runtime/ruby/random_methods.rb

@@ -0,0 +1,57 @@
+module EleetScript
+  Memory.define_core_methods do
+    random = root_namespace["Random"]
+
+    random.class_def :int do |_, arguments, context|
+      min, max = 1, 100
+      if arguments.length == 1 && arguments.first.is_a?("String", "Number")
+        min, max = 0, arguments.first.call(:to_integer).ruby_value
+      elsif arguments.length >= 2 && arguments.first.is_a?("String", "Number") && arguments[1].is_a?("String", "Number")
+        min, max = arguments.first.call(:to_integer).ruby_value, arguments[1].call(:to_integer).ruby_value
+      end
+      root_namespace["Integer"].new_with_value(rand(max - min) + min, context.namespace_context)
+    end
+
+    random.class_def :float do |_, _, context|
+      root_namespace["Float"].new_with_value(rand, context.namespace_context)
+    end
+
+    random.class_def :bool do |_, _, context|
+      t, f = root_namespace["True"], root_namespace["False"]
+      if rand > 0.5
+        t
+      else
+        f
+      end
+    end
+
+    random.class_def :new do |receiver, arguments, context|
+      first_arg = arguments.first
+      seed = first_arg.is_a?("String", "Number") ? first_arg.call(:to_integer).ruby_value : nil
+      random.new_with_value(Random.new(seed), context.namespace_context)
+    end
+
+    random.def :int do |receiver, arguments, context|
+      min, max = 1, 100
+      if arguments.length == 1 && arguments.first.is_a?("String", "Number")
+        min, max = 0, arguments.first.call(:to_integer).ruby_value
+      elsif arguments.length >= 2 && arguments.first.is_a?("String", "Number") && arguments[1].is_a?("String", "Number")
+        min, max = arguments.first.call(:to_integer).ruby_value, arguments[1].call(:to_integer).ruby_value
+      end
+      root_namespace["Integer"].new_with_value(receiver.ruby_value.rand(max - min) + min, context.namespace_context)
+    end
+
+    random.def :float do |receiver, _, context|
+      root_namespace["Float"].new_with_value(receiver.ruby_value.rand, context.namespace_context)
+    end
+
+    random.def :bool do |receiver, _, context|
+      t, f = root_namespace["True"], root_namespace["False"]
+      if receiver.ruby_value.rand > 0.5
+        t
+      else
+        f
+      end
+    end
+  end
+end

data/lib/lang/runtime/ruby/string_methods.rb

@@ -90,7 +90,15 @@ module EleetScript
     end
 
     string.def :to_symbol do |receiver, arguments, context|
-      root_namespace["Symbol"].new_with_value(receiver.ruby_value.to_sym, context.namespace_context)
+      root_namespace["Symbol"].new_with_value(receiver.ruby_value.gsub(/\s+/, "_").to_sym, context.namespace_context)
+    end
+
+    string.def :to_integer do |receiver, arguments, context|
+      root_namespace["Integer"].new_with_value(receiver.ruby_value.to_i, context.namespace_context)
+    end
+
+    string.def :to_float do |receiver, arguments, context|
+      root_namespace["Float"].new_with_value(receiver.ruby_value.to_f, context.namespace_context)
     end
 
     string.def :replace do |receiver, arguments, context|

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: eleetscript
 version: !ruby/object:Gem::Version
-  version: 0.0.17a
+  version: 0.0.18a
 platform: ruby
 authors:
 - Brandon Buck
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-02-15 00:00:00.000000000 Z
+date: 2014-03-05 00:00:00.000000000 Z
 dependencies: []
 description: EleetScript scripting engine for use in Ruby applications
 email: lordizuriel@gmail.com
@@ -47,6 +47,7 @@ files:
 - lib/lang/runtime/eleetscript/object.es
 - lib/lang/runtime/eleetscript/pair.es
 - lib/lang/runtime/eleetscript/que.es
+- lib/lang/runtime/eleetscript/random.es
 - lib/lang/runtime/eleetscript/regex.es
 - lib/lang/runtime/eleetscript/stack.es
 - lib/lang/runtime/eleetscript/string.es
@@ -56,12 +57,15 @@ files:
 - lib/lang/runtime/method.rb
 - lib/lang/runtime/method_hash.rb
 - lib/lang/runtime/ruby/boolean_methods.rb
+- lib/lang/runtime/ruby/float_methods.rb
+- lib/lang/runtime/ruby/integer_methods.rb
 - lib/lang/runtime/ruby/io_methods.rb
 - lib/lang/runtime/ruby/lambda_methods.rb
 - lib/lang/runtime/ruby/list_methods.rb
 - lib/lang/runtime/ruby/nil_methods.rb
 - lib/lang/runtime/ruby/number_methods.rb
 - lib/lang/runtime/ruby/object_methods.rb
+- lib/lang/runtime/ruby/random_methods.rb
 - lib/lang/runtime/ruby/regex_methods.rb
 - lib/lang/runtime/ruby/string_methods.rb
 - lib/lang/runtime/ruby/symbol_methods.rb