fancy 0.3.0

data/lib/rbx/documentation.fy

@@ -0,0 +1,64 @@
+# create the fancy namespace
+class Fancy {}
+
+class Fancy Documentation {
+
+  def initialize: docstring {
+    @docs = [docstring]
+  }
+
+  def meta: @meta { }
+  def meta { @meta }
+
+  # A list of handlers that would like to get adviced when
+  # an object has been set documentation.
+  @on_documentation_set = []
+
+  def self on_documentation_set: block {
+    @on_documentation_set unshift(block)
+  }
+
+  def self documentation_for: obj set_to: doc {
+    @on_documentation_set each() |block| { block call: [obj, doc] }
+  }
+
+  def self for: obj is: docstring {
+    """
+    Create a Fancy::Documentation instance.
+
+    Note: As we're bootstrapping, we cannot set documentation here as
+    an string literal.
+
+    We are the very first thing to load, so just create a new
+    Fancy::Documentation object without using new:, and set it as
+    fancy docs.
+    """
+
+    doc = self allocate()
+    doc send('initialize:, docstring to_s)
+    obj instance_variable_set('@_fancy_documentation, doc)
+
+    self 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."
+
+  def self for: obj {
+    "Obtains the Fancy Documentation for obj."
+    doc = obj instance_variable_get('@_fancy_documentation)
+  }
+
+  def self remove: obj {
+    "Removes the documentation for obj."
+    obj remove_instance_variable('@_fancy_documentation)
+  }
+
+  def self for: obj append: docstring {
+    "Append docstring to docs."
+    self for: obj is: docstring
+  }
+
+}
+

data/lib/rbx/environment_variables.fy

@@ -0,0 +1,3 @@
+class Rubinius EnvironmentVariables {
+  ruby_alias: '[]
+}

data/lib/rbx/exception.fy

@@ -0,0 +1,30 @@
+class StandardError {
+  ruby_alias: 'message
+
+  def initialize {
+    "Creates a new Exception with an empty message."
+
+    initialize()
+  }
+
+  def initialize: msg {
+    """
+    @msg Message (@String@) for the Exception.
+
+    Creates a new Exception with a given message.
+    """
+
+    self initialize(msg)
+  }
+
+  def raise! {
+    """
+    Raises (throws) an Exception to be caught somewhere up the
+    callstack.
+    """
+
+    raise(self)
+  }
+}
+
+StdError = StandardError

data/lib/rbx/false_class.fy

@@ -0,0 +1,58 @@
+class FalseClass {
+  """
+  FalseClass extensions for Fancy on rbx.
+  """
+
+  def if_true: then_block else: else_block {
+    "Calls else_block."
+    else_block call
+  }
+
+  def if_true: block {
+    "Returns nil."
+    nil
+  }
+
+  def if_false: block {
+    "Calls the block."
+    block call
+  }
+
+  def if_nil: block {
+    "Calls the block."
+    nil
+  }
+
+  def nil? {
+    "Returns true."
+    false
+  }
+
+  def false? {
+    "Returns true."
+    true
+  }
+
+  def true? {
+    "Returns nil."
+    false
+  }
+
+  def to_s {
+    "false"
+  }
+
+  def to_a {
+    []
+  }
+
+  def not {
+    """
+    @return @true
+
+    Boolean negation of @false => @true.
+    """
+
+    true
+  }
+}

data/lib/rbx/fiber.fy

@@ -0,0 +1,25 @@
+require("fiber")
+
+Fiber = Rubinius Fiber
+
+class Fiber {
+   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

@@ -0,0 +1,191 @@
+class File {
+  @@open_mode_conversions =
+    <['read => "r",
+      'write => "w",
+      'append => "+",
+      'at_end => "a",
+      'binary => "b",
+      'truncate => "w+"]>
+
+  ruby_alias: 'eof?
+  #ruby_alias: 'close
+  ruby_alias: 'closed?
+
+  def File open: filename modes: modes_arr with: block {
+    """
+    @filename Filename to open/create.
+    @modes_arr Array of symbols that describe the desired operations to perform.
+    @block @Block@ that gets called with the @File@ object that has been opened.
+
+    Opens a File with a given @filename, a @modes_arr (@Array@) and a @block.
+
+    E.g. to open a File with read access and read all lines and print them to STDOUT:
+
+      File open: \"foo.txt\" modes: [:read] with: |f| {
+        { f eof? } while_false: {
+          f readln println
+        }
+      }
+    """
+
+    modes_str = modes_str: modes_arr
+
+    try {
+      open(filename, modes_str, &block)
+    } catch Errno::ENOENT => e {
+      IOError new: (e message) . raise!
+    }
+  }
+
+  def File exists?: filename {
+    """
+    @filename Path to file to check for existance.
+    @return @true if @File@ exists, @false otherwise.
+
+    Indicates if the @File@ with the given @filename exists.
+    """
+
+    File exists?(filename)
+  }
+
+  def close {
+    """
+    Closes an opened @File@.
+    """
+
+    try {
+      close()
+    } catch Errno::ENOENT => e {
+      IOError new: (e message) . raise!
+    }
+  }
+
+  def File open: filename modes: modes_arr {
+    """
+    @filename Filename to open/create.
+    @modes_arr Array of symbols that describe the desired operations to perform.
+    @return A @File@ instance that represents the opened @File@.
+
+    Similar to open:modes:with: but takes no @Block@ argument to be
+    called with the @File@ instance.
+    Returns the opened @File@ instead and expects the caller to @close it manually.
+    """
+
+    modes_str = modes_str: modes_arr
+    f = nil
+    try {
+      f = open(filename, modes_str)
+      f modes: modes_arr
+    } catch Errno::ENOENT => e {
+      IOError new: (e message) . raise!
+    }
+    f
+  }
+
+  def File modes_str: modes_arr {
+    """
+    @modes_arr Array of symbols that describe the desired operations to perform.
+    @return @String@ that represents the @File@ access modifiers, as used by Ruby.
+
+    Returns the appropriate @String@ representation of the @modes_arr.
+    """
+
+    str = ""
+    modes_arr each: |m| {
+      str = str ++ (@@open_mode_conversions[m])
+    }
+    str uniq join: ""
+  }
+
+  def File delete: filename {
+    """
+    @filename Path to @File@ to be deleted.
+
+    Deletes a @File@ with a given @filename.
+    """
+
+    try {
+      delete(filename)
+    } catch Errno::ENOENT => e {
+      IOError new: (e message) . raise!
+    }
+  }
+
+  def File directory?: path {
+    """
+    @path Path to check if it's a @Directory@.
+    @return @true, if the @path refers to a @Directory@, @false otherwise.
+
+    Indicates, if a given @path refers to a @Directory@.
+    """
+
+    directory?(path)
+  }
+
+  def File rename: old_name to: new_name {
+    """
+    @old_name Path to @File@ to rename.
+    @new_name Path to new filename.
+
+    Renames a @File@ on the filesystem.
+    """
+
+    File rename(old_name, new_name)
+  }
+
+  def modes {
+    """
+    @return @File@ access modes @Array@.
+
+    Returns the @File@ access modes @Array@.
+    """
+
+    @modes
+  }
+
+  def modes: modes_arr {
+    """
+    @modes_arr New @File@ access modes @Array@.
+
+    Sets the @File@ access modes @Array@.
+    """
+
+    @modes = modes_arr
+  }
+
+  def open? {
+    """
+    @return @true, if @File@ opened, @false otherwise.
+
+    Indicates, if a @File@ is opened.
+    """
+
+    self closed? not
+  }
+
+  def write: str {
+    """
+    @str String to be written to a @File@.
+
+    Writes a given @String@ to a @File@.
+    """
+
+    print(str)
+  }
+
+  def newline {
+    "Writes a newline character to the @File@."
+
+    puts()
+  }
+
+  def directory? {
+    """
+    @return @true, if @File@ is a @Directory@, @false otherwise.
+
+    Indicates, if a @File@ is a @Directory@.
+    """
+
+    File directory?(self filename)
+  }
+}

data/lib/rbx/fixnum.fy

@@ -0,0 +1,25 @@
+require: "../number"
+
+class Fixnum {
+  include: Number
+
+  ruby_alias: '==
+  ruby_alias: '-
+  ruby_alias: '+
+  ruby_alias: '*
+  ruby_alias: '/
+  ruby_alias: '<
+  ruby_alias: '>
+  ruby_alias: '<=
+  ruby_alias: '>=
+  ruby_alias: '===
+  ruby_alias: 'chr
+  ruby_alias: 'to_i
+  ruby_alias: '**
+  ruby_alias: '&
+
+  alias_method: 'to_s: for: 'to_s
+  alias_method: 'modulo: for: 'modulo
+  alias_method: ":%" for: "modulo:" # use a : so we dont overwrite ruby's % operator
+  alias_method: 'div: for: 'div
+}

data/lib/rbx/float.fy

@@ -0,0 +1,14 @@
+class Float {
+  include: Number
+
+  ruby_alias: '+
+  ruby_alias: '-
+  ruby_alias: '*
+  ruby_alias: '/
+  ruby_alias: '==
+  ruby_alias: '>=
+  ruby_alias: '<=
+  ruby_alias: '<=>
+  ruby_alias: 'to_i
+  ruby_alias: '**
+}

data/lib/rbx/hash.fy

@@ -0,0 +1,38 @@
+class Hash {
+
+  alias_method: ":size" for: 'size
+  alias_method: ":[]" for: '[]
+  alias_method: 'at:put: for: "[]="
+  alias_method: 'at: for: '[]
+  ruby_alias: 'keys
+  ruby_alias: 'values
+
+  def inspect {
+    str = "<["
+    max = self size - 1
+    i = 0
+    self each: |key,val| {
+      str = str ++ (key inspect) ++ " => " ++ (val inspect)
+      { str = str + ", " } if: (i < max)
+      i = i + 1
+    }
+    str = str + "]>"
+    str
+  }
+
+  def each: block {
+    each(&block)
+  }
+
+  def each_key: block {
+    each_key(&block)
+  }
+
+  def each_value: block {
+    each_value(&block)
+  }
+
+  def map: block {
+    map(&block)
+  }
+}