fancy 0.3.0 → 0.3.1

data/lib/rbx/block.fy

@@ -1,9 +1,43 @@
 # Block = BlockEnvironment
 
 class Block {
+  ruby_alias: 'arity
+
   def argcount {
-    "Returns the amount of arguments (arity) a Block takes."
+    """
+    @return Arity of a @Block@.
+
+    Returns the amount of arguments (arity) a Block takes.
+    """
 
     arity()
   }
+
+  def receiver {
+    """
+    @return Receiver object of a @Block@.
+
+    Returns the receiver of the @Block@ (value for @self)
+    """
+    @top_scope receiver
+  }
+
+  def receiver: recv {
+    """
+    @recv New receiver object for a @Block@.
+
+    Sets the receiver (value for @self) of a @Block@.
+    """
+    @top_scope receiver: recv
+  }
 }
+
+class Rubinius VariableScope {
+  def receiver {
+    @self
+  }
+
+  def receiver: recv {
+    @self = recv
+  }
+}

data/lib/rbx/class.fy

@@ -2,6 +2,8 @@ class Class {
   ruby_alias: 'superclass
   ruby_alias: '===
   ruby_alias: 'ancestors
+  ruby_alias: 'instance_methods
+  ruby_alias: 'methods
 
   def new {
     """
@@ -10,7 +12,7 @@ class Class {
     Creates a new @Class@ instance by subclassing @Object@.
     """
 
-    obj = self allocate()
+    obj = allocate()
     obj initialize
     obj
   }
@@ -24,7 +26,7 @@ class Class {
     Creates a new @Class@ instance by subclassing @superclass.
     """
 
-    obj = self allocate()
+    obj = allocate()
     obj initialize: superclass
     obj
   }
@@ -115,7 +117,7 @@ class Class {
     Returns an instance method for a @Class@ with a given name.
     """
 
-    self instance_method(message_name: name)
+    instance_method(message_name: name)
   }
 
   def alias_method_rbx: new_method_name for: old_method_name {

data/lib/rbx/code_loader.fy

@@ -91,7 +91,7 @@ class Fancy {
     # Returns the source filename for a given filename.
     # E.g. "foo.fyc" => "foo.fy"
     def self source_filename_for: file {
-      match file -> {
+      match file {
         case /.*\.compiled\.fyc$/ -> file from: 0 to: -14
         case /.*\.fyc$/ -> file from: 0 to: -2
         case /\.fy$/ -> file
@@ -102,7 +102,7 @@ class Fancy {
     # Returns the compiled filename for a given filename.
     # E.g. "foo.fy" => "foo.fyc", "foo" => "foo.compiled.rbc"
     def self compiled_filename_for: file {
-      match file -> {
+      match file {
         case /\.fyc$/ -> file
         case /\.fy$/ -> file + "c"
         case _ -> file + ".compiled.fyc"
@@ -184,9 +184,9 @@ class Fancy {
        load_compiled_file: file find_file: true
     }
 
-    self metaclass send('alias_method, "require:", "fancy_require:")
-    self metaclass send('alias_method, "load:", "load_compiled_file:")
-    self metaclass send('alias_method, "load_compiled_file", "load_compiled_file:")
-    self metaclass send('alias_method, "push_loadpath", "push_loadpath:")
+    metaclass send('alias_method, "require:", "fancy_require:")
+    metaclass send('alias_method, "load:", "load_compiled_file:")
+    metaclass send('alias_method, "load_compiled_file", "load_compiled_file:")
+    metaclass send('alias_method, "push_loadpath", "push_loadpath:")
   }
 }

data/lib/rbx/console.fy

@@ -58,6 +58,6 @@ class Console {
   def Console clear {
     "Clears the @Console@."
 
-    STDOUT print("\033[H\033[2J")
+    Console print: CLEAR_STR
   }
 }

data/lib/rbx/date.fy

@@ -0,0 +1,12 @@
+require("date")
+
+class Date {
+  metaclass ruby_alias: 'today
+  ruby_alias: '==
+  ruby_alias: '-
+  ruby_alias: '+
+
+  def != other {
+    self == other not
+  }
+}

data/lib/rbx/documentation.fy

@@ -34,16 +34,16 @@ class Fancy Documentation {
     fancy docs.
     """
 
-    doc = self allocate()
+    doc = allocate()
     doc send('initialize:, docstring to_s)
     obj instance_variable_set('@_fancy_documentation, doc)
 
-    self documentation_for: obj set_to: doc
+    documentation_for: obj set_to: doc
     doc
   }
 
-  self for: (instance_method('initialize:)) is: "Create a new documentation object."
-  self for: (method('for:is:)) is: "Sets the documentation for obj."
+  for: (instance_method('initialize:)) is: "Create a new documentation object."
+  for: (method('for:is:)) is: "Sets the documentation for obj."
 
   def self for: obj {
     "Obtains the Fancy Documentation for obj."
@@ -57,7 +57,7 @@ class Fancy Documentation {
 
   def self for: obj append: docstring {
     "Append docstring to docs."
-    self for: obj is: docstring
+    for: obj is: docstring
   }
 
 }

data/lib/rbx/exception.fy

@@ -14,7 +14,7 @@ class StandardError {
     Creates a new Exception with a given message.
     """
 
-    self initialize(msg)
+    initialize(msg)
   }
 
   def raise! {

data/lib/rbx/fiber.fy

@@ -3,22 +3,18 @@ require("fiber")
 Fiber = Rubinius Fiber
 
 class Fiber {
+   metaclass ruby_alias: 'yield
+   ruby_alias: 'resume
+   ruby_alias: 'alive?
+
    def self new: block {
      new(&block)
    }
 
-   def Fiber yield {
-     yield()
-   }
-
    def Fiber yield: vals {
      yield(*vals)
    }
 
-   def resume {
-     resume()
-   }
-
    def resume: vals {
      resume(*vals)
    }

data/lib/rbx/file.fy

@@ -2,7 +2,7 @@ class File {
   @@open_mode_conversions =
     <['read => "r",
       'write => "w",
-      'append => "+",
+      'append => "a",
       'at_end => "a",
       'binary => "b",
       'truncate => "w+"]>
@@ -10,6 +10,7 @@ class File {
   ruby_alias: 'eof?
   #ruby_alias: 'close
   ruby_alias: 'closed?
+  ruby_alias: 'flush
 
   def File open: filename modes: modes_arr with: block {
     """
@@ -160,7 +161,7 @@ class File {
     Indicates, if a @File@ is opened.
     """
 
-    self closed? not
+    closed? not
   }
 
   def write: str {
@@ -186,6 +187,6 @@ class File {
     Indicates, if a @File@ is a @Directory@.
     """
 
-    File directory?(self filename)
+    File directory?(filename)
   }
 }

data/lib/rbx/fixnum.fy

@@ -15,6 +15,7 @@ class Fixnum {
   ruby_alias: '===
   ruby_alias: 'chr
   ruby_alias: 'to_i
+  ruby_alias: 'to_f
   ruby_alias: '**
   ruby_alias: '&
 

data/lib/rbx/float.fy

@@ -10,5 +10,6 @@ class Float {
   ruby_alias: '<=
   ruby_alias: '<=>
   ruby_alias: 'to_i
+  ruby_alias: 'to_f
   ruby_alias: '**
 }

data/lib/rbx/hash.fy

@@ -6,12 +6,13 @@ class Hash {
   alias_method: 'at: for: '[]
   ruby_alias: 'keys
   ruby_alias: 'values
+  ruby_alias: '==
 
   def inspect {
     str = "<["
-    max = self size - 1
+    max = size - 1
     i = 0
-    self each: |key,val| {
+    each: |key,val| {
       str = str ++ (key inspect) ++ " => " ++ (val inspect)
       { str = str + ", " } if: (i < max)
       i = i + 1

data/lib/rbx/io.fy

@@ -6,23 +6,23 @@ class IO {
   ruby_alias: 'eof?
 
   def readln {
-    self readline
+    readline
   }
 
   def println {
-    self puts()
+    puts()
   }
 
   def print: obj {
-    self print(obj)
+    print(obj)
   }
 
   def println: obj {
-    self puts(obj)
+    puts(obj)
   }
 
   def printchar: char {
-    self printc(char)
+    printc(char)
   }
 
   alias_method: 'write: for: 'print:

data/lib/rbx/match_data.fy

@@ -1,4 +1,6 @@
 class MatchData {
+   ruby_alias: 'size
+
    def at: idx {
      ruby: '[] args: [idx]
    }
@@ -6,4 +8,12 @@ class MatchData {
    def [] idx {
      at: idx
    }
+
+   def to_a {
+     arr = []
+     self size times: |i| {
+       arr << (at: i)
+     }
+     arr
+   }
 }

data/lib/rbx/method.fy

@@ -1,21 +1,21 @@
 class Method {
   def documentation {
-    Fancy Documentation for: (self executable())
+    Fancy Documentation for: (executable())
   }
 
   def documentation: str {
-    Fancy Documentation for: (self executable()) is: str
+    Fancy Documentation for: (executable()) is: str
   }
 }
 
 class UnboundMethod {
 
   def documentation {
-    Fancy Documentation for: (self executable())
+    Fancy Documentation for: (executable())
   }
 
   def documentation: str {
-    Fancy Documentation for: (self executable()) is: str
+    Fancy Documentation for: (executable()) is: str
   }
 
 }

data/lib/rbx/no_method_error.fy

@@ -10,6 +10,6 @@ class NoMethodError {
     Returns the name of the method that was not found as a @String@.
     """
 
-    self name to_s from: 1 to: -1
+    name to_s from: 1 to: -1
   }
 }

data/lib/rbx/object.fy

@@ -17,26 +17,19 @@ class Object {
   ruby_alias: '==
   ruby_alias: '===
   ruby_alias: 'class
+  ruby_alias: 'inspect
 
   def initialize {
-    self initialize()
+    initialize()
   }
 
   def dclone {
     "Returns a deep clone of self using Ruby's Marshal class."
-    Marshal load: $ Marshal dump: self
-  }
-
-  def ++ other {
-    self to_s + (other to_s)
+    Marshal load(Marshal dump(self))
   }
 
   def to_s {
-    self to_s()
-  }
-
-  def inspect {
-    self inspect()
+    to_s()
   }
 
   def set_slot: slotname value: val {
@@ -77,11 +70,11 @@ class Object {
   }
 
   def define_singleton_method: name with: block {
-    self metaclass define_method: name with: block
+    metaclass define_method: name with: block
   }
 
   def undefine_singleton_method: name {
-    self metaclass undefine_method: name
+    metaclass undefine_method: name
   }
 
   def is_a?: class {
@@ -95,7 +88,7 @@ class Object {
   }
 
   def send: message {
-    self send(message_name: message)
+    send(message_name: message)
   }
 
   def send: message params: params {
@@ -112,6 +105,6 @@ class Object {
   }
 
   def responds_to?: message {
-    self respond_to?(message_name: message)
+    respond_to?(message_name: message)
   }
 }

data/lib/rbx/regexp.fy

@@ -2,6 +2,10 @@ class Regexp {
   def === string {
     ruby: 'match args: [string]
   }
+
+  def i {
+    Regexp new(source(), true)
+  }
 }
 
 class MatchData {

data/lib/rbx/string.fy

@@ -8,6 +8,7 @@ class String {
   ruby_alias: 'to_i
   ruby_alias: 'to_f
   ruby_alias: 'chomp
+  ruby_alias: 'inspect
 
   def [] index {
     """Given an Array of 2 Numbers, it returns the substring between the given indices.
@@ -22,26 +23,58 @@ class String {
   }
 
   def from: from to: to {
+    """
+    @from Start index.
+    @to End index.
+    @return Substring starting at index @from and ending at @to.
+
+    Returns a Substring from @from to @to.
+    """
     ruby: '[] args: [(from .. to)]
   }
 
   def each: block {
+    """
+    @block @Block to be called for each character in @self.
+
+    Calls a given @Block with each character in a @String.
+    """
     split("") each(&block)
   }
 
   def at: idx {
+    """
+    @idx Index of the character to retrieve.
+    @return Character in @self at position @idx.
+
+    Returns the character (as a @String) at index @idx.
+    """
     self[idx]
   }
 
   def split: str {
+    """
+    @str @String where @self should be split at.
+    @return An @Array of @String values in @self that are seperated by @str.
+    """
     split(str)
   }
 
   def split {
+    """
+    @return @Array of all non-whitespace Substrings in @self.
+
+    Splits a string by whitespace.
+    """
     split()
   }
 
   def eval {
+    """
+    @return Value of evaluating @self as Fancy code.
+
+    Evaluates a @String in the current @Binding and returns its value.
+    """
     binding = Binding setup(Rubinius VariableScope of_sender(),
                             Rubinius CompiledMethod of_sender(),
                             Rubinius StaticScope of_sender())
@@ -49,6 +82,7 @@ class String {
   }
 
   def eval_global {
+    "Same as @String#eval but evaluates @self in the global binding."
     Fancy eval: self
   }
 
@@ -57,7 +91,11 @@ class String {
   }
 
   def raise! {
-    "Raises a new StdError with self as the message."
+    "Raises a new StdError with @self as the message."
     StdError new: self . raise!
   }
+
+  def % values {
+    ruby: '% args: [values to_a]
+  }
 }