q-language 1.0.0

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

@@ -0,0 +1,155 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+class QObject < Q_Object
+  def and (object)
+    object
+  end
+  
+  def array?
+    false
+  end
+  
+  def block?
+    false
+  end
+  
+  def break_if (&block)
+    if result = yield
+      env::break!
+      return value
+    end
+    
+    result
+  end
+  
+  def break_unless (&block)
+    unless result = yield
+      env::break!
+      return value
+    end
+    
+    result
+  end
+  
+  def choose (object_1, object_2)
+    object_1
+  end
+  
+  def class?
+    false
+  end
+  
+  def dup
+    value.dup
+  rescue TypeError
+    # Duplication is disallowed
+    value
+  end
+  
+  def dynamic?
+    false
+  end
+  
+  def eq? (object)
+    value == object
+  end
+  
+  def eqq? (object)
+    value === object
+  end
+  
+  def false?
+    false
+  end
+  
+  def hash?
+    false
+  end
+  
+  def if (&block)
+    env::jump! # skip the rest of the block
+    yield
+  end
+  
+  def jump_if (&block)
+    if result = yield
+      env::jump!
+      return value
+    end
+    
+    result
+  end
+  
+  def jump_unless (&block)
+    unless result = yield
+      env::jump!
+      return value
+    end
+    
+    result
+  end
+  
+  def module?
+    false
+  end
+  
+  def neq? (object)
+    value != object
+  end
+  
+  def nil?
+    false
+  end
+  
+  def not
+    false
+  end
+  
+  def number?
+    false
+  end
+  
+  def or (object)
+    value
+  end
+  
+  def same? (object)
+    value.object_id == object.object_id
+  end
+  
+  def string?
+    false
+  end
+  
+  def tally
+    1
+  end
+  
+  def time?
+    false
+  end
+  
+  def token?
+    false
+  end
+  
+  def true?
+    false
+  end
+  
+  def unless (&block)
+    nil
+  end
+  
+  def use (&block)
+    yield value
+    value
+  end
+  
+  def xor (object)
+    !object
+  end
+end

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

@@ -0,0 +1,157 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+class QString < QObject
+  def QString.from_s (string)
+    string
+  end
+  
+  def add (string)
+    value + string
+  end
+  
+  def add_all (*every_string)
+    value + every_string.join('')
+  end
+  
+  def at (number)
+    value.slice(number)
+  end
+  
+  def between? (string_1, string_2)
+    value.between?(string_1, string_2)
+  end
+  
+  def capitalize
+    value.capitalize
+  end
+  
+  def capitalize!
+    value.capitalize!
+  end
+  
+  def clear
+    value.clear
+  end
+  
+  def downcase
+    value.downcase
+  end
+  
+  def downcase!
+    value.downcase!
+  end
+  
+  def each (&block)
+    value.each_char do |obj|
+      result = yield obj
+      break result if env::break?
+    end
+  end
+  
+  def each_line (&block)
+    value.each_line do |obj|
+      result = yield obj
+      break result if env::break?
+    end
+  end
+  
+  def empty?
+    value.empty?
+  end
+  
+  def end_with? (string)
+    value.end_with? string
+  end
+  
+  def include? (string)
+    value.include? string
+  end
+  
+  def index (string)
+    value.index(string)
+  end
+  
+  def length
+    value.length
+  end
+  
+  def next
+    value.next
+  end
+  
+  def next!
+    value.next!
+  end
+  
+  def partition (string)
+    value.partition(string)
+  end
+  
+  def push (string)
+    value << string
+  end
+  
+  def push_all (*every_string)
+    value << every_string.join('')
+  end
+  
+  def replace (string)
+    value.replace(string)
+  end
+  
+  def reverse
+    value.reverse
+  end
+  
+  def reverse!
+    value.reverse!
+  end
+  
+  def split (string)
+    value.split(string)
+  end
+  
+  def start_with? (string)
+    value.start_with? string
+  end
+  
+  def string?
+    value
+  end
+  
+  def stringify
+    value.dup
+  end
+  
+  def strip
+    value.strip
+  end
+  
+  def strip!
+    value.strip!
+    value
+  end
+  
+  def swapcase
+    value.swapcase
+  end
+  
+  def swapcase!
+    value.swapcase!
+  end
+  
+  def tokenize
+    value.to_sym
+  end
+  
+  def upcase
+    value.upcase
+  end
+  
+  def upcase!
+    value.upcase!
+  end
+end

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

@@ -0,0 +1,110 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+class QTime < QObject
+  def add (number)
+    value + number
+  end
+  
+  def after? (time)
+    value > time
+  end
+  
+  def before? (time)
+    value < time
+  end
+  
+  def between? (time_1, time_2)
+    value.between?(*[time_1, time_2].sort)
+  end
+  
+  def difference (time)
+    value - time
+  end
+  
+  def friday?
+    value.friday?
+  end
+  
+  def hour
+    value.hour
+  end
+  
+  def minute
+    value.min
+  end
+  
+  def monday?
+    value.monday?
+  end
+  
+  def month
+    value.month
+  end
+  
+  def next
+    value + 1
+  end
+  
+  def round
+    value.round
+  end
+  
+  def saturday?
+    value.saturday?
+  end
+  
+  def second
+    value.sec
+  end
+  
+  def split
+    value.to_a.first(6).reverse
+  end
+  
+  def subtract (number)
+    value - number
+  end
+  
+  def sunday?
+    value.sunday?
+  end
+  
+  def thursday?
+    value.thursday?
+  end
+  
+  def time?
+    value
+  end
+  
+  def to_number
+    value.to_f
+  end
+  
+  def tuesday?
+    value.tuesday?
+  end
+  
+  def wednesday?
+    value.wednesday?
+  end
+  
+  def weekday
+    value.wday
+  end
+  
+  def year_day
+    value.yday
+  end
+  
+  def year
+    value.year
+  end
+  
+  def yesterday
+    value - 86400
+  end
+end

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

@@ -0,0 +1,72 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+class QToken < QObject
+  def QToken.from_s (string)
+    string.to_sym
+  end
+  
+  def at (number)
+    value[number]
+  end
+  
+  def capitalize
+    value.capitalize
+  end
+  
+  def downcase
+    value.downcase
+  end
+  
+  def empty?
+    value.empty?
+  end
+  
+  def get
+    env::get(value)
+  end
+  
+  def iget
+    env::self.instance_variable_get(:"@#{value}")
+  rescue NameError
+    # Illegal name for instance variable
+    nil
+  end
+  
+  def iset (object)
+    env::self.instance_variable_set(:"@#{value}", object)
+  rescue NameError
+    # Illegal name for instance variable
+    nil
+  end
+  
+  def length
+    value.length
+  end
+  
+  def next
+    value.next
+  end
+  
+  def set (object)
+    env::set(value, object)
+  end
+  
+  def stringify
+    value.to_s
+  end
+  
+  def swapcase
+    value.swapcase
+  end
+  
+  def token?
+    value
+  end
+  
+  def upcase
+    value.upcase
+  end
+end