fancy 0.4.0 → 0.5.0

data/tests/future.fy

@@ -25,6 +25,34 @@ FancySpec describe: FutureSend with: {
     f is_a?: FutureSend . is: true
     f value is_a?: Fixnum . is: true
   }
+
+  it: "accesses the same future from multiple threads and blocks them until the value is computed" when: {
+    def another_method {
+      Thread sleep: 0.25
+      42
+    }
+
+    future = self @ another_method
+
+    threads = (0..10) map: {
+      Thread new: {
+        future completed? is: false
+        future value is: 42
+      }
+    }
+
+    threads each: 'join
+  }
+
+  it: "deals as expected with failures" when: {
+    def a_failing_method {
+      "error!" raise!
+    }
+    f = self @ a_failing_method
+    f failed? is: false
+    f failure message is: "error!"
+    f failed? is: true
+  }
 }
 
 FancySpec describe: FutureCollection with: {

data/tests/set.fy

@@ -1,4 +1,24 @@
 FancySpec describe: Set with: {
+  it: "creates a new Set with a given list of values" with: 'initialize: when: {
+    s = Set new: [1,2,3]
+    s size is: 3
+    s values sort is: [1,2,3]
+  }
+
+  it: "creates a new empty Set" with: 'initialize when: {
+    s = Set new
+    s size is: 0
+    s values is: []
+  }
+
+  it: "returns the values as an Array" with: 'values when: {
+    s = Set new
+    s << "foo"
+    s << "bar"
+    s << "foo"
+    s values is: ["foo", "bar"]
+  }
+
   it: "only keeps unique values" with: '[] when: {
     s = Set new
     s << 'foo

data/tests/stack.fy

@@ -1,4 +1,20 @@
 FancySpec describe: Stack with: {
+
+  it: "creates an empty Stack" with: 'new when: {
+    s = Stack new
+    s size is: 0
+    s empty? is: true
+  }
+
+  it: "has a given amount of nil-initialized elements" with: 'new: when: {
+    s = Stack new: 5
+    s size is: 5
+    s each: |x| {
+      x nil? is: true
+    }
+    s empty? is: false
+  }
+
   it: "is empty when created" with: '<< when: {
     s = Stack new
     s empty? is: true
@@ -19,6 +35,36 @@ FancySpec describe: Stack with: {
     }
   }
 
+  it: "returns the top of stack element" with: 'top when: {
+    s = Stack new
+    s top is: nil
+    s push: 1
+    s top is: 1
+    0 upto: 10 do: |x| {
+      s push: x
+      s top is: x
+    }
+  }
+
+  it: "returns the amount of elements in the Stack" with: 'size when: {
+    s = Stack new
+    s size is: 0
+    10 times: { s push: 'foo }
+    s size is: 10
+  }
+
+  it: "returns true if the Stack is empty" with: 'empty? when: {
+    s = Stack new
+    s empty? is: true
+    s push: 1
+    s empty? is: false
+    s pop
+    s empty? is: true
+
+    s = Stack new: 1
+    s empty? is: false
+  }
+
   it: "calls a Block with each element, starting with the top of stack" with: 'each: when: {
     s = Stack new
     10 times: |i| { s << i }

data/tests/string.fy

@@ -126,7 +126,7 @@ FancySpec describe: String with: {
     "foo bar baz" includes?: "foobarbaz" . is: false
   }
 
-  it: "should remove any leading indentation" with: 'skip_leading_indentation when: {
+  it: "removes any leading indentation" with: 'skip_leading_indentation when: {
     """
     hello, world!
     how are you?

data/tests/tuple.fy

@@ -36,4 +36,26 @@ FancySpec describe: Tuple with: {
     { Tuple new: 1 } raises: ArgumentError
     { Tuple new: 2 } does_not raise: ArgumentError
   }
+
+  it: "runs a Block for each element" with: 'each: when: {
+    sum = 0
+    vals = []
+    (1,2,3) each: |x| {
+      sum = sum + x
+      vals << x
+    }
+    sum is: 6
+    vals is: [1,2,3]
+  }
+
+  it: "runs a Block for each element in reverse order" with: 'reverse_each: when: {
+    sum = 0
+    vals = []
+    (1,2,3) reverse_each: |x| {
+      sum = sum + x
+      vals << x
+    }
+    sum is: 6
+    vals is: [3,2,1]
+  }
 }

data/tools/fancy-mode.el

@@ -9,7 +9,7 @@
     "match" "case" "->" "=>")             ;; keywords
 
   '(;; symbols
-    ("\\('\\(\\([^\s\n\(\)\{\}]+\\|\\]+\\)\\)\\)" 1 font-lock-reference-face)
+    ("\\('\\(\\([^\s\n\(\)\{\}\,]+\\|\\]+\\)\\)\\)" 1 font-lock-reference-face)
     ;; fixnums
     ("[0-9]+" . 'font-lock-variable-name-face)
     ;; floats

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: fancy
 version: !ruby/object:Gem::Version 
-  hash: 15
+  hash: 1694540110752149318
   prerelease: 
   segments: 
   - 0
-  - 4
+  - 5
   - 0
-  version: 0.4.0
+  version: 0.5.0
 platform: ruby
 authors: 
 - Christopher Bertels
@@ -15,7 +15,7 @@ autorequire:
 bindir: ruby_lib
 cert_chain: []
 
-date: 2011-08-30 00:00:00 -07:00
+date: 2011-10-05 00:00:00 -07:00
 default_executable: 
 dependencies: []
 
@@ -77,7 +77,6 @@ files:
 - lib/integer.fy
 - lib/iteration.fy
 - lib/main.fy
-- lib/message.fy
 - lib/method.fy
 - lib/nil_class.fy
 - lib/number.fy
@@ -95,6 +94,7 @@ files:
 - lib/thread_pool.fy
 - lib/true_class.fy
 - lib/tuple.fy
+- lib/vars.fy
 - lib/version.fy
 - lib/compiler/ast.fy
 - lib/compiler/command.fy
@@ -129,9 +129,11 @@ files:
 - lib/rbx/io.fy
 - lib/rbx/match_data.fy
 - lib/rbx/method.fy
+- lib/rbx/mutex.fy
 - lib/rbx/name_error.fy
 - lib/rbx/no_method_error.fy
 - lib/rbx/object.fy
+- lib/rbx/process.fy
 - lib/rbx/range.fy
 - lib/rbx/regexp.fy
 - lib/rbx/string.fy
@@ -149,7 +151,6 @@ files:
 - lib/compiler/ast/class_def.fy
 - lib/compiler/ast/expression_list.fy
 - lib/compiler/ast/future_send.fy
-- lib/compiler/ast/goto.fy
 - lib/compiler/ast/identifier.fy
 - lib/compiler/ast/literals.fy
 - lib/compiler/ast/match.fy
@@ -167,7 +168,13 @@ files:
 - lib/parser/ext/ext.c
 - lib/parser/ext/ext.h
 - lib/parser/ext/extconf.rb
+- lib/parser/ext/fancy_parser.bundle
+- lib/parser/ext/lexer.c
+- lib/parser/ext/lexer.h
 - lib/parser/ext/lexer.lex
+- lib/parser/ext/Makefile
+- lib/parser/ext/parser.c
+- lib/parser/ext/parser.h
 - lib/parser/ext/parser.y
 - lib/parser/ext/README
 - tests/argv.fy
@@ -222,6 +229,8 @@ files:
 - examples/define_methods.fy
 - examples/documentation.fy
 - examples/documentation_formatters.fy
+- examples/dynamic.fy
+- examples/dynamic_output.fy
 - examples/echo.fy
 - examples/empty_catch.fy
 - examples/exception.fy
@@ -242,6 +251,7 @@ files:
 - examples/nested_classes.fy
 - examples/nested_try.fy
 - examples/numbers.fy
+- examples/parsing.fy
 - examples/pattern_matching.fy
 - examples/person.fy
 - examples/regex.fy
@@ -285,6 +295,7 @@ files:
 - boot/README
 - boot/rsexp_pretty_printer.rb
 - boot/fancy_ext/block_env.rb
+- boot/fancy_ext/bootstrap.rb
 - boot/fancy_ext/class.rb
 - boot/fancy_ext/console.rb
 - boot/fancy_ext/delegator.rb
@@ -292,6 +303,7 @@ files:
 - boot/fancy_ext/module.rb
 - boot/fancy_ext/object.rb
 - boot/fancy_ext/string_helper.rb
+- boot/fancy_ext/symbol.rb
 - boot/fancy_ext/thread.rb
 - boot/rbx-compiler/compiler.rb
 - boot/rbx-compiler/parser.rb
@@ -304,7 +316,12 @@ files:
 - boot/rbx-compiler/parser/fancy_parser.bundle
 - boot/rbx-compiler/parser/fancy_parser.c
 - boot/rbx-compiler/parser/fancy_parser.h
+- boot/rbx-compiler/parser/lexer.c
+- boot/rbx-compiler/parser/lexer.h
 - boot/rbx-compiler/parser/lexer.lex
+- boot/rbx-compiler/parser/Makefile
+- boot/rbx-compiler/parser/parser.c
+- boot/rbx-compiler/parser/parser.h
 - boot/rbx-compiler/parser/parser.rb
 - boot/rbx-compiler/parser/parser.y
 - boot/rbx-compiler/parser/Rakefile
@@ -330,6 +347,7 @@ files:
 - boot/rbx-compiler/compiler/ast/super.rb
 - boot/rbx-compiler/compiler/ast/try_catch_block.rb
 - boot/rbx-compiler/compiler/ast/tuple_literal.rb
+- boot/compiler/parser/ext/fancy_parser.bundle
 has_rdoc: true
 homepage: http://www.fancy-lang.org
 licenses: 
@@ -344,7 +362,7 @@ required_ruby_version: !ruby/object:Gem::Requirement
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
-      hash: 3
+      hash: 2002549777813010636
       segments: 
       - 0
       version: "0"
@@ -353,7 +371,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
-      hash: 3
+      hash: 2002549777813010636
       segments: 
       - 0
       version: "0"

data/lib/compiler/ast/goto.fy

@@ -1,46 +0,0 @@
-class Rubinius Generator {
-  def ip: @ip
-  def ip {
-    @ip
-  }
-}
-
-class Fancy AST {
-  class Label : Node {
-    @@registry = <[]>
-    def Label [name] {
-      @@registry[name]
-    }
-    def Label [name]: label {
-      @@registry[name]: label
-    }
-
-    def initialize: @line name: @name
-    def bytecode: g {
-      pos(g)
-      label = Label[@name]
-      unless: label do: {
-        label = g new_label()
-        Label[@name]: label
-      }
-      tmp = g ip
-      g ip: (tmp + 2)
-      label set!()
-      g ip: tmp
-      g push_nil()
-    }
-  }
-
-  class Goto : Node {
-    def initialize: @line label_name: @label_name
-    def bytecode: g {
-      pos(g)
-      label = Label[@label_name]
-      unless: label do: {
-        label = g new_label()
-        Label[@label_name]: label
-      }
-      g goto(label)
-    }
-  }
-}

data/lib/message.fy

@@ -1,6 +0,0 @@
-class Fancy {
-  class Message {
-    read_slots: ('selector, 'arguments)
-    def initialize: @selector arguments: @arguments
-  }
-}