fancy 0.3.3 → 0.4.0

data/boot/rbx-compiler/compiler/ast/require.rb

@@ -1,20 +0,0 @@
-class Fancy
-  class AST
-
-    class Require < Node
-      def initialize(line, string)
-        super(line)
-        @string = string
-      end
-
-      def bytecode(g)
-        Rubinius::AST::Self.new(1).bytecode(g)
-        @string.bytecode(g)
-        pos(g)
-        g.allow_private
-        g.send :fancy_require, 1, false
-      end
-    end
-
-  end
-end

data/examples/actor.fy

@@ -1,37 +0,0 @@
-require("actor")
-class Actor {
-  alias_method: '! for_ruby: '<<
-}
-
-# Execute with Rubinius: rbx ex1.rb
-
-def error_loop: block{
-  try {
-    loop: block
-  } catch Exception => ex {
-    ex message println
-    ex backtrace join: "\n"
-  }
-}
-
-pong = nil
-ping = Actor spawn() {
-  error_loop: {
-    count = Actor receive()
-    "." print
-    { return count println } if: (count > 1000)
-    pong ! (count + 1)
-  }
-}
-pong = Actor.spawn() {
-  error_loop: {
-    count = Actor receive()
-    "-" print
-    { return count println } if: (count > 1000)
-    ping ! (count + 1)
-  }
-}
-ping ! 1
-
-# Let the actors process while the main thread sleeps...
-Thread sleep: 1

data/examples/curl_async.fy

@@ -1,37 +0,0 @@
-def async curl: url {
-  out = System pipe: "curl #{url}"
-  return out read # return string of html
-}
-
-def async curl_urls: urls {
-  results = []
-  urls each: |url| {
-    # await means it will suspend the current context until the curl: has finished
-    # and will resume with the line below
-    data = await curl: url
-    results << data
-  }
-  return results
-}
-
-URLS = ["http://www.backtype.com", "http://www.fancy-lang.org", "http://tech.backtype.com"]
-
-# usage (runs it asynchronously and returns a future that will hold the data when its done)
-f = curl_urls: URLS
-
-# do something else...
-# then after some time access the data:
-
-f value each: |html| {
-  html println
-}
-
-# or hook it up with something to do when its done:
-curl_urls: URLS && |data| {
-  data each: |html| { 
-    html println
-  }
-}
-
-# shorter version of above:
-curl_urls: URLS && @{each: 'println}

data/lib/compiler/ast/require.fy

@@ -1,15 +0,0 @@
-class Fancy AST {
-  class Require : Node {
-    def initialize: @line file: @string {
-    }
-
-    def bytecode: g {
-      pos(g)
-      ms = MessageSend new: @line \
-                       message: (Identifier from: "require:" line: @line)    \
-                       to: (Identifier from: "Fancy::CodeLoader" line: @line) \
-                       args: (MessageArgs new: @line args: [@string])
-      ms bytecode: g
-    }
-  }
-}

data/tests/number.fy

@@ -1,135 +0,0 @@
-FancySpec describe: Number with: {
-  it: "should add two numbers correctly" for: '+ when: {
-    n1 = 20
-    n2 = 22
-    n1 + n2 should == 42
-  }
-
-  it: "should subtract two numbers correctly" for: '- when: {
-    n1 = 20
-    n2 = 22
-    n1 - n2 should == -2
-  }
-
-  it: "should multiply two numbers correctly" for: '* when: {
-    n1 = 20
-    n2 = 22
-    n1 * n2 should == 440
-  }
-
-  it: "should divide two numbers correctly" for: '/ when: {
-    n1 = 20
-    n2 = 10
-    n1 / n2 should == 2
-  }
-
-  it: "should raise an exception when dividing by zero" when: {
-    { 10 / 0 } should raise: ZeroDivisionError
-  }
-
-  it: "should calculate the correct modulo value" for: 'modulo: when: {
-    9 % 4 should == 1
-    10 modulo: 2 . should == 0
-  }
-
-  it: "should do proper integer division" for: 'div: when: {
-    50 div: 10 . should == 5
-    55 div: 10 . should == 5
-    5 div: 10 . should == 0
-    ((55 div: 10) * 10) + (55 modulo: 10) should == 55
-  }
-
-  it: "should be the negation" for: 'negate when: {
-    42 negate should == -42
-  }
-
-  it: "should be odd" for: 'odd? when: {
-    1 odd? should == true
-    1 even? should == false
-  }
-
-  it: "should be even" for: 'even? when: {
-    2 odd? should == false
-    2 even? should == true
-  }
-
-  it: "should return an array from 0 upto 10" for: 'upto: when: {
-    0 upto: 10 . should == [0,1,2,3,4,5,6,7,8,9,10]
-  }
-
-  it: "should iterate from 1 upto 10" for: 'upto:do: when: {
-    sum = 0
-    1 upto: 10 do: |n| { sum = sum + n }
-    sum should == 55
-  }
-
-  it: "should return an array from 10 downto 0" for: 'downto: when: {
-    10 downto: 0 . should == [10,9,8,7,6,5,4,3,2,1,0]
-  }
-
-  it: "should iterate from 10 downto 1" for: 'downto:do: when: {
-    sum = 0
-    10 downto: 1 do: |n| { sum = sum + n }
-    sum should == 55
-  }
-
-  it: "should calculate the given power of itself" for: '** when: {
-    2 ** 3 should == 8
-    2 ** 0 should == 1
-    2 ** 1 should == 2
-    0 upto: 10 do: |i| {
-      i ** 0 should == 1
-      i ** 1 should == i
-      i ** 2 should == (i squared)
-    }
-  }
-
-  it: "should be the square of self" for: 'squared when: {
-    5 squared should == 25
-    10 squared should == 100
-    20 upto: 50 do: |i| {
-      i squared should == (i * i)
-    }
-  }
-
-  it: "should be the double value of self" for: 'doubled when: {
-    5 doubled should == 10
-    10 doubled should == 20
-    20 upto: 50 do: |i| {
-      i doubled should == (i + i)
-    }
-  }
-
-  it: "should be the same when using underscores within the literal" when: {
-    50000 should == 50_000
-    100_000 should == 100000
-    100_000 should == 100_000
-    100_000 should == 100000.0
-    100_000.0 should == 100000
-    100_999.999 should == 100999.999
-  }
-
-  it: "should evaluate octal literals correctly" when: {
-    0o00 should == 0
-    0o01 should == 1
-    0o07 should == 7
-    0o10 should == 8
-    0o70 should == 56
-  }
-
-  it: "should evaluate binary literals correctly" when: {
-    0b00 should == 0
-    0b01 should == 1
-    0b10 should == 2
-    0b11 should == 3
-    0b100 should == 4
-  }
-
-  it: "should evaluate hexadecimal literals correctly" when: {
-    0x00 should == 0
-    0x01 should == 1
-    0x0A should == 10
-    0xA0 should == 160
-    0xFF should == 255
-  }
-}

data/tests/parsing/sexp.fy

@@ -1,50 +0,0 @@
-FancySpec describe: "S-Expression" for: String with: {
-  it: "should be correct for assignment" for: 'to_sexp when: {
-    "x = 3" to_sexp should == ['exp_list, [['assign, ['ident, 'x], ['int_lit, 3]]]]
-    "foobar = nil" to_sexp should == ['exp_list, [['assign, ['ident, 'foobar], ['ident, 'nil]]]]
-  }
-
-  it: "should be correct for symbol literals" for: 'to_sexp when: {
-    "'foo" to_sexp should == ['exp_list, [['symbol_lit, 'foo]]]
-  }
-
-  it: "should be correct for string literals" for: 'to_sexp when: {
-    #    "\"foo\"" to_sexp should == ['exp_list, [['string_lit, "foo"]]
-  }
-
-  it: "should be correct for integer literals" for: 'to_sexp when: {
-    "3" to_sexp should == ['exp_list, [['int_lit, 3]]]
-    "-3" to_sexp should == ['exp_list, [['int_lit, -3]]]
-    "0" to_sexp should == ['exp_list, [['int_lit, 0]]]
-  }
-
-  it: "should be correct for double literals" for: 'to_sexp when: {
-    "3.5" to_sexp should == ['exp_list, [['double_lit, 3.5]]]
-    "-3.5" to_sexp should == ['exp_list, [['double_lit, -3.5]]]
-    "0.0" to_sexp should == ['exp_list, [['double_lit, 0.0]]]
-  }
-
-  it: "should be correct for array literals" for: 'to_sexp when: {
-    "[1,2,3]" to_sexp should == ['exp_list, [['array_lit, [['int_lit, 1], ['int_lit, 2], ['int_lit, 3]]]]]
-
-    "[[1,2],[3,4]]" to_sexp should == .
-    ['exp_list, [['array_lit, [['array_lit, [['int_lit, 1], ['int_lit, 2]]],
-                               ['array_lit, [['int_lit, 3], ['int_lit, 4]]]]]]]
-
-    "[]" to_sexp should == ['exp_list, [['array_lit, []]]]
-  }
-
-  it: "should be able to parse multiple expressions in one string" for: 'to_sexp when: {
-    "x = 1; y = 2" to_sexp should == ['exp_list, [['assign, ['ident, 'x], ['int_lit, 1]],
-                                                  ['assign, ['ident, 'y], ['int_lit, 2]]]]
-  }
-
-  it: "should parse an RubyArgsLiteral correctly" for: 'to_sexp when: {
-    "obj foo: ~[1,2]" to_sexp should == .
-    ['exp_list, [['message_send, ['ident, 'obj],
-                  ['ident, 'foo:],
-                  [['rb_args_lit, ['array_lit,
-                                   [['int_lit, 1],
-                                    ['int_lit, 2]]]]]]]]
-  }
-}