fancy 0.6.0 → 0.7.0

data/tests/file.fy

@@ -102,4 +102,42 @@ FancySpec describe: File with: {
     File directory?: "README" . is: false
     File directory?: "src/bootstrap/Makefile" . is: false
   }
+
+  it: "evals a file" with: 'eval: when: {
+    "/tmp/test_#{Time now to_i}.fy" tap: |filename| {
+      File tap: @{
+        write: filename with: @{ print: "2 * 3 to_s inspect" }
+        eval: filename . is: $ 6 to_s inspect
+        delete: filename
+      }
+      # File write: filename with: @{ print: "2 * 3 to_s inspect" }
+      # File eval: filename . is: $ 6 to_s inspect
+      # File delete: filename
+    }
+  }
+
+  it: "reads a config file" with: 'read_config: when: {
+    contents = """
+    {
+      test: 'value
+      other: 123
+      more: {
+        again: 'foo
+        yup: [1,2,3]
+      }
+    }
+    """
+
+    filename = "/tmp/#{Time now to_i random}_fy_test.txt"
+    File write: filename with: @{ write: contents }
+    File read_config: filename . is: <[
+      'test => 'value,
+      'other => 123,
+      'more => <[
+        'again => 'foo,
+        'yup => [1,2,3]
+      ]>
+    ]>
+    File delete: filename
+  }
 }

data/tests/fixnum.fy

@@ -117,4 +117,26 @@ FancySpec describe: Fixnum with: {
     times_called is: 10
     sum is: ((10..19) sum)
   }
+
+  it: "tries to run a code block self amount of times or fails" with: 'try_times: when: {
+    { -2 times_try: { 2 / 0 } } does_not raise: Exception
+    { -1 times_try: { 2 / 0 } } does_not raise: Exception
+    { 0 times_try: { 2 / 0 } } does_not raise: Exception
+    { 1 times_try: { 2 / 0 } } raises: ZeroDivisionError
+    { 2 times_try: { 2 / 0 } } raises: ZeroDivisionError
+
+    tries = 0
+    {
+      2 times_try: {
+        tries = tries + 1
+        2 / 0
+      }
+    } raises: ZeroDivisionError
+    tries is: 2
+
+    2 times_try: { 2 } . is: 2
+
+    i = 0
+    2 times_try: { 2 / i } retry_with: { i = 1 } . is: 2
+  }
 }

data/tests/future.fy

@@ -53,4 +53,44 @@ FancySpec describe: FutureSend with: {
     f failure message is: "error!"
     f failed? is: true
   }
+
+  it: "calls a block when done" with: 'when_done: when: {
+    called? = false
+    failed? = false
+    val = 0
+    f = { Thread sleep: 0.01; 2 } @ call
+    f when_done: |v| {
+      val = v
+      called? = true
+    }
+    f when_failed: |err| {
+      val = err
+      failed? = true
+    }
+
+    f value
+    called? is: true
+    val is: 2
+  }
+
+  it: "calls a block when failed" with: 'when_failed: when: {
+    called? = false
+    failed? = false
+    val = 0
+    f = { Thread sleep: 0.01; "Fail!" raise! } @ call
+    f when_done: |v| {
+      val = v
+      called? = true
+    }
+    f when_failed: |err| {
+      val = err
+      failed? = true
+    }
+
+    f value
+    called? is: false
+    failed? is: true
+    val message is: "Fail!"
+    val is_a?: Exception
+  }
 }

data/tests/hash.fy

@@ -42,6 +42,14 @@ FancySpec describe: Hash with: {
     hash at: 'foo1 else: { "hello" } . is: "hello"
   }
 
+  it: "calls the block if it can't find the key and inserts the return value" with: 'at:else_put: when: {
+    hash = <['foo => "bar", 'bar => nil]>
+    hash at: 'foo else_put: { "hello" } . is: "bar"
+    hash at: 'bar else_put: { "hello" } . is: nil
+    hash at: 'foo1 else_put: { "hello" } . is: "hello"
+    hash['foo1] is: "hello"
+  }
+
   it: "returns all keys" with: 'keys when: {
     hash = <['foo => "bar", 'bar => "baz", 'foobar => 112.21]>
     hash keys is =? ['foo, 'bar, 'foobar]
@@ -123,13 +131,6 @@ FancySpec describe: Hash with: {
     h includes?: nil . is: false
   }
 
-  it: "fetches a value or calls a given alternative block" for: 'fetch:else: when: {
-    <['foo => 'bar]> fetch: 'foo else: { 42 } . is: 'bar
-    <['foo => 'bar]> fetch: 'unknown else: { 42 } . is: 42
-    <['nil => nil]> fetch: 'nil else: { 'not_found } . is: nil
-    <['nila => nil]> fetch: 'nil else: { 'not_found } . is: 'not_found
-  }
-
   it: "returns an object with slots based on key-value pairs in Hash" for: 'to_object when: {
     <[]> to_object slots empty? is: true
     <['name => "Chris"]> to_object tap: @{

data/tests/object.fy

@@ -171,9 +171,7 @@ FancySpec describe: Object with: {
     }
     MyClass new do_wacky_things is: false
 
-    {
-      true is: false
-    } call_with_receiver: (MyClass new)
+    @{ true is: false } call: [MyClass new]
   }
 
   it: "overrides nil" with: 'nil when: {
@@ -183,7 +181,7 @@ FancySpec describe: Object with: {
       }
     }
 
-    { nil is: true } call_with_receiver: (MyClass new)
+    @{ nil is: true } call: [MyClass new]
   }
 
   it: "overrides false" with: 'false when: {
@@ -193,7 +191,7 @@ FancySpec describe: Object with: {
       }
     }
 
-    { false is: true } call_with_receiver: (MyClass2 new)
+    @{ false is: true } call: [MyClass2 new]
   }
 
   it: "implicitly sends a message to self if no receiver is specified" when: {
@@ -278,4 +276,32 @@ FancySpec describe: Object with: {
     bar: [1,2,3] values: v . is: 1
     v is: [1]
   }
+
+  it: "provides temporarily mutable slots" with: 'with_mutable_slots: when: {
+    class Student {
+      read_slots: ('name, 'age, 'city)
+      def initialize: block {
+        with_mutable_slots: ('name, 'age, 'city) do: block
+      }
+    }
+
+    p = Student new: @{
+      name: "Chris"
+      age: 24
+      city: "Osnabrück"
+    }
+
+    p name is: "Chris"
+    p age is: 24
+    p city is: "Osnabrück"
+
+    { p name: "New Name" } raises: NoMethodError
+    { p age: 25 } raises: NoMethodError
+    { p city: "New City" } raises: NoMethodError
+
+    # no changes
+    p name is: "Chris"
+    p age is: 24
+    p city is: "Osnabrück"
+  }
 }

data/tests/set.fy

@@ -16,7 +16,7 @@ FancySpec describe: Set with: {
     s << "foo"
     s << "bar"
     s << "foo"
-    s values is: ["foo", "bar"]
+    s values =? ["foo", "bar"] . is: true
   }
 
   it: "only keeps unique values" with: '[] when: {

data/tests/string.fy

@@ -41,9 +41,9 @@ FancySpec describe: String with: {
     }
   }
 
-  it: "behaves like a collection/sequence via each:" with: 'uniq when: {
+  it: "behaves like a collection/sequence via each:" with: 'unique when: {
     str = "Hello, World!"
-    str uniq join: "" . is: "Helo, Wrd!"
+    str unique join: "" . is: "Helo, Wrd!"
   }
 
   it: "has all its characters as instances of String class" with: 'all?: when: {
@@ -126,6 +126,22 @@ FancySpec describe: String with: {
     s is: "Good day. Hello."
   }
 
+  it: "returns the character at a given index" with: '[] when: {
+    s = "hello"
+    s[0] is: "h"
+    s[1] is: "e"
+    s[2] is: "l"
+    s[3] is: "l"
+    s[4] is: "o"
+    # out of bounds yields nil:
+    s[5] is: nil
+    s[s size] is: nil
+    s[s size + 1] is: nil
+    "" at: 0 . is: nil
+    "" at: 1 . is: nil
+    "" at: -1 . is: nil
+  }
+
   it: "contains a substring" with: 'includes?: when: {
     "foo bar baz" includes?: "foo" . is: true
     "foo bar baz" includes?: "bar" . is: true

data/tests/tuple.fy

@@ -65,4 +65,11 @@ FancySpec describe: Tuple with: {
     sum is: 6
     vals is: [3,2,1]
   }
+
+  it: "returns an array of all elements between two indices" with: 'from:to: when: {
+    (1,2) from: 2 to: 3 . is: []
+    (1,2,3) from: 0 to: 2 . is: [1,2,3]
+    (4,5,6,7,8,9) from: 3 to: 5 . is: [7,8,9]
+    (1,2,3) from: 1 to: -1 . is: [2,3]
+  }
 }

data/tools/fancy-mode.el

@@ -1,3 +1,10 @@
+;;; fancy-mode.el --- Major mode for programming with the Fancy language.
+;;
+;; URL: http://www.fancy-lang.org
+;; Version: 0.1
+;; Author: Christopher Bertels <chris@fancy-lang.org>
+
+
 (require 'generic-x)
 
 (define-generic-mode
@@ -40,6 +47,7 @@
 
 (add-to-list 'auto-mode-alist '("\\.fy\\'" . fancy-mode))
 (add-to-list 'auto-mode-alist '("\\.fancypack\\'" . fancy-mode))
+(add-to-list 'auto-mode-alist '("\\Fakefile\\'" . fancy-mode))
 
 (add-to-list 'interpreter-mode-alist '("fancy" . fancy-mode))
 
@@ -65,3 +73,5 @@
 (setq indent-line-function 'fancy-indent-line)
 
 (provide 'fancy-mode)
+
+;;; fancy-mode.el ends here

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: fancy
 version: !ruby/object:Gem::Version 
-  hash: 2770122483358164876
+  hash: 3845972432426844170
   prerelease: 
   segments: 
   - 0
-  - 6
+  - 7
   - 0
-  version: 0.6.0
+  version: 0.7.0
 platform: ruby
 authors: 
 - Christopher Bertels
@@ -15,7 +15,7 @@ autorequire:
 bindir: ruby_lib
 cert_chain: []
 
-date: 2012-01-25 00:00:00 Z
+date: 2012-05-05 00:00:00 Z
 dependencies: []
 
 description: |
@@ -88,7 +88,6 @@ files:
 - lib/proxy.fy
 - lib/range.fy
 - lib/rbx.fy
-- lib/remote_object.fy
 - lib/set.fy
 - lib/stack.fy
 - lib/string.fy
@@ -107,6 +106,7 @@ files:
 - lib/compiler/stages.fy
 - lib/package/dependency.fy
 - lib/package/dependency_installer.fy
+- lib/package/handler.fy
 - lib/package/installer.fy
 - lib/package/list.fy
 - lib/package/specification.fy
@@ -140,7 +140,7 @@ files:
 - lib/rbx/name_error.fy
 - lib/rbx/no_method_error.fy
 - lib/rbx/object.fy
-- lib/rbx/process.fy
+- lib/rbx/proc.fy
 - lib/rbx/range.fy
 - lib/rbx/regexp.fy
 - lib/rbx/string.fy
@@ -185,6 +185,9 @@ files:
 - tests/class.fy
 - tests/control_flow.fy
 - tests/documentation.fy
+- tests/dynamic_key_hash.fy
+- tests/dynamic_slot_object.fy
+- tests/dynamic_value_array.fy
 - tests/enumerable.fy
 - tests/enumerator.fy
 - tests/exception.fy
@@ -214,7 +217,6 @@ files:
 - bin/fyi
 - bin/ifancy
 - bin/fspec
-- examples/99bottles.fy
 - examples/actor_bunnies.fy
 - examples/actors.fy
 - examples/actors_primitive.fy
@@ -229,14 +231,11 @@ files:
 - examples/call_with_receiver.fy
 - examples/class.fy
 - examples/closures.fy
-- examples/conditions_exceptions.fy
-- examples/conditions_parsing.fy
 - examples/constant_access.fy
 - examples/default_args.fy
 - 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
@@ -249,7 +248,6 @@ files:
 - examples/future_composition.fy
 - examples/futures.fy
 - examples/game_of_life.fy
-- examples/greeter.fy
 - examples/hashes.fy
 - examples/hello_world.fy
 - examples/html_generator.fy
@@ -259,7 +257,6 @@ 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

data/examples/99bottles.fy

@@ -1,5 +0,0 @@
-# see http://bottles.heroku.com/wall/99
-99 downto: 2 do: |i| {
-  "#{i} bottles of beer on the wall, #{i} bottles of beer." println
-  "Take one down and pass it around, #{i - 1} bottles of beer on the wall.\n" println
-}

data/examples/conditions_exceptions.fy

@@ -1,9 +0,0 @@
-with_handlers: @{
-  when: ZeroDivisionError do: { restart: 'default }
-} do: {
-with_restarts: {
-  default: { 1 }
-} do: {
-  10 / 0 inspect println println
-}
-}

data/examples/conditions_parsing.fy

@@ -1,68 +0,0 @@
-class MalformedLogEntry : Error {
-  read_slot: 'text
-  def initialize: @text
-}
-
-class LogEntry {
-  read_write_slots: ('word, 'number)
-
-  def LogEntry parse_entry: text {
-    word, number = text split: "|"
-    number = number to_i
-    if: (word && number) then: {
-      LogEntry new do: {
-        word: word
-        number: number
-      }
-    } else: {
-      MalformedLogEntry new: text signal!
-    }
-  }
-}
-
-class LogFile {
-  read_slots: ('filename, 'entries)
-  def initialize: @filename entries: @entries ([]);
-  def parse {
-    @text = File read: @filename
-    with_restarts: {
-      skip_entry: { nil }
-    } do: {
-      @text lines each: |line| {
-        @entries << (LogEntry parse_entry: line)
-      }
-    }
-  }
-}
-
-class LogAnalyzer {
-  read_slots: ('words, 'numbers)
-  def initialize: @logfiles {
-    @words = <[]>
-    @numbers = <[]>
-  }
-  def analyze_all {
-    @entries = @logfiles map: |f| {
-      LogFile new: f . do: { parse } . entries
-    } flatten
-
-    @entries each: |e| { analyze: e }
-  }
-  def analyze: entry {
-    if: (@words[entry word]) then: |val| {
-      @words[entry word]: (val + 1)
-    } else: {
-      @words[entry word]: 1
-    }
-    if: (@numbers[entry number]) then: |val| {
-      @numbers[entry number]: (val + 1)
-    } else: {
-      @numbers[entry number]: 1
-    }
-  }
-}
-
-l = LogAnalyzer new: ["examples/conditions_parsing_log.log"]
-l analyze_all
-"  words: #{l words to_a sort_by: 'second reverse inspect}" println
-"numbers: #{l numbers to_a sort_by: 'second reverse inspect}" println