q-language 1.0.0

data/lib/q-language/methods/block.rb

@@ -0,0 +1,26 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+class QBlock < QObject
+  def block?
+    value
+  end
+  
+  def call
+    value.call
+  end
+  
+  def call_arg (object)
+    value.call(object)
+  end
+  
+  def eval (dynamic)
+    env::frame(dynamic) { value.call }
+  end
+  
+  def eval_arg (dynamic, object)
+    env::frame(dynamic) { value.call(object) }
+  end
+end

data/lib/q-language/methods/class.rb

@@ -0,0 +1,24 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+class QClass < QModule
+  def class?
+    value
+  end
+  
+  def init (object)
+    obj = value.new
+    obj.instance_variable_set(:"@init", object)
+    obj
+  end
+  
+  def module?
+    false
+  end
+  
+  def new
+    value.new
+  end
+end

data/lib/q-language/methods/dynamic.rb

@@ -0,0 +1,82 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+class QDynamic < QObject
+  def def (token, &block)
+    env = self.env::replicate
+    
+    value.define_singleton_method(:"__Q_#{token}__") do |object = nil|
+      env::frame(self) { block.call(object, env) }
+    end
+    
+    env = self.env::replicate
+    env.max_nodes = self.env.max_method_nodes
+    
+    value.define_singleton_method(token) do |object = nil|
+      begin
+        env::frame(self) { block.call(object, env) }
+      rescue Q_Environment::TooManyNodes
+        nil
+      end
+    end
+    
+    value
+  end
+  
+  def dynamic?
+    value
+  end
+  
+  def eval (&block)
+    env::frame(value) { block.call }
+  end
+  
+  def eval_arg (object, &block)
+    env::frame(value) { block.call(object) }
+  end
+  
+  def extend (module_1)
+    value.extend(module_1) if module_1.instance_of?(Module)
+    value
+  end
+  
+  def iget (token)
+    value.instance_variable_get(:"@#{token}")
+  rescue NameError
+    # Illegal name for instance variable
+    nil
+  end
+  
+  def init_value
+    value.instance_variable_get(:"@init")
+  end
+  
+  def instance? (class_1)
+    value.instance_of?(class_1)
+  end
+  
+  def is? (module_1)
+    value.is_a?(module_1)
+  end
+  
+  def iset (token, object)
+    value.instance_variable_set(:"@#{token}", object)
+  rescue NameError
+    # Illegal name for instance variable
+    nil
+  end
+  
+  def metaclass
+    value.class
+  end
+  
+  def send (token)
+    value.__send__(:"__Q_#{token}__", nil) rescue nil
+  end
+  
+  def send_arg (token, object)
+    value.__send__(:"__Q_#{token}__", object) rescue value
+  end
+end

data/lib/q-language/methods/false.rb

@@ -0,0 +1,47 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+class QFalse < QObject
+  def and (object)
+    false
+  end
+  
+  def choose (object_1, object_2)
+    object_2
+  end
+  
+  def false?
+    true
+  end
+  
+  def if (&block)
+    nil
+  end
+  
+  def not
+    true
+  end
+  
+  def or (object)
+    object
+  end
+  
+  def stringify
+    "false"
+  end
+  
+  def tally
+    -1
+  end
+  
+  def unless (&block)
+    env::jump!
+    yield
+  end
+  
+  def xor (object)
+    !!object
+  end
+end

data/lib/q-language/methods/hash.rb

@@ -0,0 +1,351 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+class QHash < QObject
+  def any? (&block)
+    value.any? do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def all? (&block)
+    value.all? do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def clear
+    value.clear
+  end
+  
+  def count_by (&block)
+    value.count do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def cycle (&block)
+    value.cycle do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def cycle_n (number, &block)
+    value.cycle(number) do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def delete (object)
+    value.delete(object)
+  end
+  
+  def delete_if (&block)
+    value.delete_if do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def drop (number)
+    return value.dup if number < 0
+    value.drop(number)
+  end
+  
+  def drop_while (&block)
+    value.drop_while do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def each (&block)
+    value.each do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def each_cons (&block)
+    return nil unless number > 0
+    
+    value.each_cons do |obj|
+      result = yield obj
+      break result if env::break?
+    end
+  end
+  
+  def each_key (&block)
+    value.each_key do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def each_slice (&block)
+    return nil unless number > 0
+    
+    value.each_slice do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def each_value (&block)
+    value.each_value do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def each_with_index (&block)
+    value.each_with_index do |(k,v), i|
+      result = yield [k,v,i]
+      break result if env::break?
+    end
+  end
+  
+  def each_with_object (object, &block)
+    value.each_with_object(object) do |(k,v), o|
+      result = yield [k,v,o]
+      break result if env::break?
+    end
+    
+    object
+  end
+  
+  def empty?
+    value.empty?
+  end
+  
+  def find (&block)
+    value.find do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def flatten
+    value.flatten
+  end
+  
+  def get (object)
+    value[object]
+  end
+  
+  def group_by (&block)
+    value.group_by do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def hash?
+    value
+  end
+  
+  def inject (object, &block)
+    value.inject(object) do |o,(k,v)|
+      result = yield [o,k,v]
+      break result if env::break?
+      result
+    end
+  end
+  
+  def invert
+    value.invert
+  end
+  
+  def key (object)
+    value.key(object)
+  end
+  
+  def key? (object)
+    value.has_key?(object)
+  end
+  
+  def keys
+    value.keys
+  end
+  
+  def length
+    value.length
+  end
+  
+  def many? (&block)
+    value.count do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end > 1
+  end
+  
+  def map (&block)
+    value.collect do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def max
+    value.max
+  rescue ArgumentError
+    # Hash values cannot be compared
+    nil
+  end
+  
+  def max_by (&object)
+    value.max_by do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end
+  rescue ArgumentError
+    # Hash values cannot be compared
+    nil
+  end
+  
+  def merge (hash)
+    value.merge(hash)
+  end
+  
+  def merge! (hash)
+    value.merge!(hash)
+  end
+  
+  def min
+    value.min
+  rescue ArgumentError
+    # Hash values cannot be compared
+    nil
+  end
+  
+  def min_by (&object)
+    value.min_by do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end
+  rescue ArgumentError
+    # Hash values cannot be compared
+    nil
+  end
+  
+  def minmax
+    value.minmax
+  rescue ArgumentError
+    # Hash values cannot be compared
+    nil
+  end
+  
+  def minmax_by (&object)
+    value.minmax_by do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end
+  rescue ArgumentError
+    # Hash values cannot be compared
+    nil
+  end
+  
+  def partition (&block)
+    value.partition do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end
+  end
+  
+  def reject (&block)
+    value.reject do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def reject! (&block)
+    value.reject! do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def replace (hash)
+    value.replace(hash)
+  end
+  
+  def select (&block)
+    value.select do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def select! (&block)
+    value.select! do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def set (object_1, object_2)
+    unless value.length >= env::max_hash_length && !value.has_key?(object_1)
+      value[object_1] = object_2
+    end
+  end
+  
+  def shift
+    value.shift
+  end
+  
+  def take (number)
+    return value.dup if number < 0
+    value.take(number)
+  end
+  
+  def take_while (&block)
+    value.take_while do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def value? (object)
+    value.has_value?(object)
+  end
+  
+  def values
+    value.values
+  end
+  
+  def values_at (*every_object)
+    value.values_at(*every_object)
+  end
+end