q-language 1.0.0

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

@@ -0,0 +1,345 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+class QImplicit < Q_Object
+  def all? (&block)
+    value.all? do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def any? (&block)
+    value.any? do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def array
+    []
+  end
+  
+  def arrays (*every_array)
+    every_array
+  end
+  
+  def block (&block)
+    block
+  end
+  
+  def blocks (*every_block)
+    every_block
+  end
+  
+  def break_if (&block)
+    if result = yield
+      env::break!
+      return nil
+    end
+    
+    result
+  end
+  
+  def break_unless (&block)
+    unless result = yield
+      env::break!
+      return nil
+    end
+    
+    result
+  end
+  
+  def class
+    klass = Class.new
+    klass.send(:define_method, :to_q) { QDynamic.new(self) }
+    klass
+  end
+  
+  def classes (*every_class)
+    every_class
+  end
+  
+  def compact
+    value.compact
+  end
+  
+  def compact!
+    value.compact!
+    value.dup
+  end
+  
+  def count (object)
+    value.count(object)
+  end
+  
+  def count_by (&block)
+    value.count do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def def (token, &block)
+    env_object = env::object
+    env = self.env::replicate
+    
+    env_object.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
+    
+    env_object.define_singleton_method(token) do |object = nil|
+      begin
+        env::frame(self) { block.call(object, env) }
+      rescue Q_Environment::TooManyNodes
+        nil
+      end
+    end
+    
+    env_object
+  end
+  
+  def e
+    Number.e
+  end
+  
+  def each (&block)
+    value.dup.each do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def elect (*every_object, object)
+    object
+  end
+  
+  def false
+    false
+  end
+  
+  def falses (*every_false)
+    every_false
+  end
+  
+  def hash
+    {}
+  end
+  
+  def hashes (*every_hash)
+    every_hash
+  end
+  
+  def i
+    Number.i
+  end
+  
+  def jump_if (&block)
+    if result = yield
+      env::jump!
+      return nil
+    end
+    
+    result
+  end
+  
+  def jump_unless (&block)
+    unless result = yield
+      env::jump!
+      return nil
+    end
+    
+    result
+  end
+  
+  def loop (&block)
+    begin
+      result = yield
+      return result if env::break?
+    end while true
+  end
+  
+  def map (&block)
+    value.collect do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end
+  end
+  
+  def many? (&block)
+    value.count do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end > 2
+  end
+  
+  def module
+    Module.new
+  end
+  
+  def modules (*every_module)
+    every_module
+  end
+  
+  def nan
+    Number.nan
+  end
+  
+  def neg_inf
+    Number.neg_inf
+  end
+  
+  def neg_one
+    -1
+  end
+  
+  def new
+    klass = Class.new
+    klass.send(:define_method, :to_q) { QDynamic.new(self) }
+    klass.new
+  end
+  
+  def newline
+    ?\n
+  end
+  
+  def nil
+    nil
+  end
+  
+  def nils (*every_nil)
+    every_nil
+  end
+  
+  def none? (&block)
+    value.none? do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def now
+    Time.now
+  end
+  
+  def numbers (*every_number)
+    every_number
+  end
+  
+  def objects (*every_object)
+    every_object
+  end
+  
+  def one
+    1
+  end
+  
+  def one? (&block)
+    value.one? do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def pi
+    Number.pi
+  end
+  
+  def pos_inf
+    Number.pos_inf
+  end
+  
+  def self
+    env::self
+  end
+  
+  def skip_a (object_1, object_2)
+    object_2
+  end
+  
+  def skip_b (object_1, object_2)
+    object_1
+  end
+  
+  def space
+    ' '
+  end
+  
+  def string
+    ''
+  end
+  
+  def strings (*every_string)
+    every_string
+  end
+  
+  def tab
+    ?\t
+  end
+  
+  def three
+    3
+  end
+  
+  def times (*every_time)
+    every_time
+  end
+  
+  def tokens (*every_token)
+    every_token
+  end
+  
+  def true
+    true
+  end
+  
+  def trues (*every_true)
+    every_true
+  end
+  
+  def two
+    2
+  end
+  
+  def uniq
+    value.uniq
+  end
+  
+  def uniq!
+    value.uniq!
+    value.dup
+  end
+  
+  def unset
+    env::unset(env::last_assigned_variable)
+  end
+  
+  def until (&block)
+    until result = yield
+      return result if env::break?
+    end
+  end
+  
+  def while (&block)
+    while result = yield
+      return result if env::break?
+    end
+  end
+  
+  def zero
+    0
+  end
+end

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

@@ -0,0 +1,39 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+class QModule < QObject
+  def def (token, &block)
+    env = self.env::replicate
+    
+    value.send(:define_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.send(:define_method, token) do |object = nil|
+      begin
+        env::frame(self) { block.call(object, env) }
+      rescue Q_Environment::TooManyNodes
+        nil
+      end
+    end
+    
+    value
+  end
+  
+  def include (module_1)
+    value.send(:include, module_1) if module_1.instance_of?(Module)
+    value
+  rescue ArgumentError
+    # Cyclic include
+    value
+  end
+  
+  def module?
+    value
+  end
+end

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

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

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

@@ -0,0 +1,118 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+class QNumber < QObject
+  def QNumber.from_s (string)
+    Number(string)
+  end
+  
+  def abs
+    value.abs
+  end
+  
+  def add (number)
+    value + number
+  end
+  
+  def area
+    value.area
+  end
+  
+  def ceil
+    value.ceil
+  end
+  
+  def complex?
+    value.complex?
+  end
+  
+  def conjugate
+    value.conjugate
+  end
+  
+  def cos
+  #  value.cos
+  end
+  
+  def diagonal
+    value.diagonal
+  end
+  
+  def divide (number)
+    value / number
+  end
+  
+  def exp
+  #  value.exp
+  end
+  
+  def floor
+    value.floor
+  end
+  
+  def imag
+    value.imag
+  end
+  
+  def join (number)
+  #  value.join(number)
+  end
+  
+  def log
+  #  value.log
+  end
+  
+  def modulo (number)
+  #  value.modulo(number)
+  end
+  
+  def multiply (number)
+    value * number
+  end
+  
+  def negate
+    -value
+  end
+  
+  def nominal
+    value.nominal
+  end
+  
+  def number?
+    value
+  end
+  
+  def real
+    value.real
+  end
+  
+  def real?
+    value.real?
+  end
+  
+  def reflect
+    value.reflect
+  end
+  
+  def round
+    value.round
+  end
+  
+  def sin
+  #  value.sin
+  end
+  
+  def sqrt
+    value.sqrt
+  end
+  
+  def square
+  #  value.square
+  end
+  
+  def subtract (number)
+    value - number
+  end
+end