fancy 0.3.0

data/tests/set.fy

@@ -0,0 +1,10 @@
+FancySpec describe: Set with: {
+  it: "should only keep unique values" for: "[]" when: {
+    s = Set new
+    s << 'foo
+    s << 'foo
+    s size should == 1
+    s should == (Set[['foo]])
+    s should_not == ['foo] # Sets and Arrays differ
+  }
+}

data/tests/stack.fy

@@ -0,0 +1,22 @@
+FancySpec describe: Stack with: {
+  it: "should be empty when created" for: '<< when: {
+    s = Stack new
+    s empty? should == true
+  }
+
+  it: "should return the last inserted element" for: 'pop when: {
+    s = Stack new
+    s push: 1
+    s pop should == 1
+
+    objs = [1,2,3]
+    objs each: |x| {
+      s push: x
+    }
+
+    objs reverse each: |x| {
+      s pop should == x
+    }
+
+  }
+}

data/tests/string.fy

@@ -0,0 +1,102 @@
+FancySpec describe: String with: {
+  it: "should be the empty string on initialization" when: {
+    str = String new
+    str should == ""
+  }
+
+  it: "should be the concatination of the strings" for: '+ when: {
+    str1 = "hello "
+    str2 = "world"
+    str3 = "!"
+    str1 + str2 + str3 should == "hello world!"
+  }
+
+  it: "should concatenate the argument's string value with a string" for: '++ when: {
+    "I'm " ++ 21 ++ " years old!" should == "I'm 21 years old!"
+  }
+
+  it: "should return the correct substring" for: 'from:to: when: {
+    "hello, world" from: 2 to: 5 . should == "llo,"
+    "hello, world"[[2,5]] . should == "llo,"
+  }
+
+  it: "should return the upcased string" for: 'upcase when: {
+    "hello, world" upcase should == "HELLO, WORLD"
+  }
+
+  it: "should return the downcased string" for: 'downcase when: {
+    "HELLO, WORLD" downcase should == "hello, world"
+  }
+
+  it: "should return the same string by down- and upcasing in a row" when: {
+    "HELLO, WORLD" downcase upcase should == "HELLO, WORLD"
+  }
+
+  it: "should iterate over each character in a string" for: 'each: when: {
+    str = "Hello, World!"
+    i = 0
+    str each: |char| {
+      char should == (str at: i)
+      i = i + 1
+    }
+  }
+
+  it: "should behave like a collection/sequence via each:" for: 'uniq when: {
+    str = "Hello, World!"
+    str uniq join: "" . should == "Helo, Wrd!"
+  }
+
+  it: "should have all its characters as instances of String class" for: 'all?: when: {
+    str = "foo bar baz"
+    str all?: |c| { c is_a?: String } . should == true
+  }
+
+  # it: "should drop all characters upto a whitespace" for: 'drop_while: when: {
+  #   "hello world" drop_while: |c| { c != " " } . join: "" . should == " world"
+  # }
+
+  it: "should be empty" for: 'empty? when: {
+    "" empty? should == true
+    " " empty? should == false
+    String new empty? should == true
+  }
+
+  # it: "should be blank" for: 'blank? when: {
+  #   "" blank? should == true
+  #   " " blank? should == true
+  #   "-" blank? should == false
+  #   "       " blank? should == true
+  #   "hello world" blank? should == false
+  #   "hello world" at: 5 . blank? should == true
+  # }
+
+  # it: "should be evaled as fancy code and return the correct value" when: {
+  #   x = "'foo" eval
+  #   x should == 'foo
+  #   "3 + 4" eval should == 7
+  #   "'foo to_s upcase" eval should == "FOO"
+  #   "33.33" eval should == 33.33
+  # }
+
+  it: "should return itself times n" for: '* when: {
+    "foo" * 2 should == "foofoo"
+    "f" ++ ("o" * 2) ++ "bar" should == "foobar"
+  }
+
+  it: "should split a string at a given seperator string" for: 'split: when: {
+    str = "hello, world, how are you?"
+    str split: ", " . should == ["hello", "world", "how are you?"]
+    "1,2,3,,4,5" split: "," . should == ["1", "2", "3", "", "4", "5"]
+    ",1,2,3,4," split: "," . should == ["", "1", "2", "3", "4"]
+    "foo bar\n baz yo" split should == ["foo", "bar", "baz", "yo"]
+    "foo bar\n baz yo" words should == ["foo", "bar", "baz", "yo"]
+  }
+
+  it: "should support basic string interpolation" when: {
+    "hello, #{10 * 10} world!" should == "hello, 100 world!"
+    x = "world"
+    "hello, #{x}!!" should == "hello, world!!"
+
+    "hello, #{x}, Fancy #{'rocks to_s upcase}!!" should == "hello, world, Fancy ROCKS!!"
+  }
+}

data/tests/symbol.fy

@@ -0,0 +1,17 @@
+FancySpec describe: Symbol with: {
+  it: "should be usable like a block for Enumerable methods" when: {
+    [1,2,3,4,5] map: 'squared .
+      should == [1,4,9,16,25]
+
+    ["hello", "world"] map: 'upcase .
+      should == ["HELLO", "WORLD"]
+
+    [1,2,3,4,5] select: 'even? .
+      should == [2,4]
+  }
+
+  it: "should evaluate itself within the current scope" when: {
+    x = 10
+    'x eval should == x
+  }
+}

data/tests/true_class.fy

@@ -0,0 +1,63 @@
+FancySpec describe: TrueClass with: {
+  it: "should be true for calling and: with non-nil value" for: 'and: when: {
+    true and: true . should == true
+    true and: 'bar . should == true
+  }
+
+  it: "should be false for calling and: with a nil value" for: 'and: when: {
+    true and: nil . should == false
+  }
+
+  it: "should be true for calling && with non-nil value" for: '&& when: {
+    (true && true) should == true
+    (true && 'bar) should == true
+  }
+
+  it: "should be false for calling && with a nil value" for: '&& when: {
+    (true && nil) should == false
+  }
+
+  it: "should be true for calling or: with both non-nil values" for: 'or: when: {
+    true or: true . should == true
+  }
+
+  it: "should be true for calling or: with any values" for: 'or: when: {
+    true or: nil . should == true
+    true or: true . should == true
+    true or: 'foo . should == true
+  }
+
+  it: "should be true for calling || with both non-nil values" for: '|| when: {
+    (true || true) should == true
+  }
+
+  it: "should be true for calling || with any values" for: '|| when: {
+    (true || nil) should == true
+    (true || true) should == true
+    (true || 'foo) should == true
+  }
+
+  it: "should call the then-block" for: 'if_true:else: when: {
+    true if_true: { 'then } else: { 'else } . should == 'then
+  }
+
+  it: "should NOT call the block" for: 'if_false: when: {
+    true if_false: { 'false } . should == nil
+  }
+
+  it: "should NOT be nil" for: 'nil? when: {
+    true nil? should == false
+  }
+
+  it: "should NOT be false" for: 'false? when: {
+    true false? should == false
+  }
+
+  it: "should be true" for: 'true? when: {
+    true true? should == true
+  }
+
+  it: "should NOT call the block if true" for: 'if_nil: when: {
+    true if_nil: { 'is_nil } . should == nil
+  }
+}

data/tests/tuple.fy

@@ -0,0 +1,21 @@
+FancySpec describe: Tuple with: {
+  it: "have the correct amount of elements" for: 'size when: {
+    (1,2) size should == 2
+    (1,2,3) size should == 3
+    ('foo, "bar", 'baz, 123) size should == 4
+  }
+
+  it: "should have the correct items at a given index" for: 'at: when: {
+    tuple = ("foo", 'bar, "baz")
+    tuple at: 0 . should == "foo"
+    tuple at: 1 . should == 'bar
+    tuple at: 2 . should == "baz"
+  }
+
+  it: "should have the correct items at a given index" for: '[] when: {
+    tuple = ("foo", 'bar, "baz")
+    tuple[0] . should == "foo"
+    tuple[1] . should == 'bar
+    tuple[2] . should == "baz"
+  }
+}

data/tools/fancy-mode.el

@@ -0,0 +1,63 @@
+(require 'generic-x)
+
+(define-generic-mode
+  'fancy-mode
+  '("#")                              ;; comments
+  '("def" "class" "try" "catch"
+    "finally" "retry" "return"
+    "return_local" "require:"
+    "match" "case" "->" "=>")             ;; keywords
+
+  '(;; symbols
+    ("\\('\\(\\([^\s\n]+\\|\\]+\\)\\)\\)" 1 font-lock-reference-face)
+    ;; fixnums
+    ("[0-9]+" . 'font-lock-variable-name-face)
+    ;; floats
+    ("[0-9]+\.[0-9]+" 'font-lock-variable-name-face)
+    ;; variables & pseudo variables
+    ("\\(^\\|[^_:.@$]\\|\\.\\.\\)\\b\\(super\\|nil\\|self\\|true\\|false\\)\\>" 2 font-lock-variable-name-face)
+    ;; variable names
+    ("\\(\\$\\([^a-zA-Z0-9 \n]\\|[0-9]\\)\\)\\W" 1 font-lock-variable-name-face)
+    ;; instance & class vars
+    ("\\(\\$\\|@\\|@@\\)\\(\\w\\|_\\)+" 0 font-lock-variable-name-face)
+    ;; method definitions
+    ("^\\s *def\\s +\\([^( \t\n]+\\)" 1 font-lock-function-name-face)
+    ;; message selectors
+    (" \\<[A-z][A-z0-9_-+?!=*/^><%]*:" . font-lock-function-name-face)
+    ;; operators
+    ("\\([-+*/~,<>=&!?%^]+ \\)" 1 'font-lock-function-name-face)
+     ;; general delimited string
+    ("\\(^\\|[[ \t\n<+(,=]\\)\\(%[xrqQwW]?\\([^<[{(a-zA-Z0-9 \n]\\)[^\n\\\\]*\\(\\\\.[^\n\\\\]*\\)*\\(\\3\\)\\)" (2 font-lock-string-face))
+    ;; constants
+    ("\\(^\\|[^_]\\)\\b\\([A-Z]+\\(\\w\\|_\\)*\\)" 2 font-lock-type-face))
+
+  '("\\.fy$")                      ;; files for which to activate this mode
+   nil                             ;; other functions to call
+  "A mode for fancy files"         ;; doc string for this mode
+)
+
+(add-to-list 'auto-mode-alist '("\\.fy\\'" . fancy-mode))
+(add-to-list 'auto-mode-alist '("\\.fancypack\\'" . fancy-mode))
+
+;; Ignore .fyc (compiled fancy bytecode) files
+(add-to-list 'completion-ignored-extensions ".fyc")
+
+(setq-default indent-tabs-mode nil)
+(setq-default tab-width 2)
+(setq indent-line-function 'insert-tab)
+
+(setq do-indent nil)
+(defun fancy-indent-line ()
+  ;(indent-line-to (+ (current-indentation) 2)))
+  (progn
+    (if (= (current-indentation) 0)
+        (setq do-indent nil))
+    (if do-indent
+        (indent-line-to (+ (current-indentation) 2))
+      (progn
+        (indent-relative)
+        (setq do-indent t)))))
+
+(setq indent-line-function 'fancy-indent-line)
+
+(provide 'fancy-mode)

metadata

@@ -0,0 +1,321 @@
+--- !ruby/object:Gem::Specification 
+name: fancy
+version: !ruby/object:Gem::Version 
+  hash: 19
+  prerelease: 
+  segments: 
+  - 0
+  - 3
+  - 0
+  version: 0.3.0
+platform: ruby
+authors: 
+- Christopher Bertels
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-02-01 00:00:00 -08:00
+default_executable: 
+dependencies: []
+
+description: |
+  The Fancy Programming Language
+  
+  Fancy is a fully self-hosted, dynamic, pure class-based
+  object-oriented programming language heavily inspired by Smalltalk,
+  Ruby and Erlang. It supports dynamic code evaluation (as in Ruby &
+  Smalltalk), class-based mixins, generic pattern matching, runtime
+  introspection & reflection, "monkey patching" and much more. It runs
+  on Rubinius, the Ruby VM, and thus has first-class integration with
+  Ruby's core library and any additional Ruby libraries that run on
+  Rubinius, including most C-extensions.
+
+email: chris@fancy-lang.org
+executables: 
+- fancy
+- ifancy
+- fdoc
+- fyi
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- README
+- LICENSE
+- AUTHORS
+- Rakefile
+- lib/argv.fy
+- lib/array.fy
+- lib/block.fy
+- lib/boot.fy
+- lib/class.fy
+- lib/compiler/ast/assign.fy
+- lib/compiler/ast/block.fy
+- lib/compiler/ast/class_def.fy
+- lib/compiler/ast/expression_list.fy
+- lib/compiler/ast/identifier.fy
+- lib/compiler/ast/literals.fy
+- lib/compiler/ast/match.fy
+- lib/compiler/ast/message_send.fy
+- lib/compiler/ast/method_def.fy
+- lib/compiler/ast/node.fy
+- lib/compiler/ast/range.fy
+- lib/compiler/ast/require.fy
+- lib/compiler/ast/return.fy
+- lib/compiler/ast/script.fy
+- lib/compiler/ast/singleton_method_def.fy
+- lib/compiler/ast/super.fy
+- lib/compiler/ast/try_catch.fy
+- lib/compiler/ast/tuple_literal.fy
+- lib/compiler/ast.fy
+- lib/compiler/command.fy
+- lib/compiler/compiler.fy
+- lib/compiler/stages.fy
+- lib/compiler.fy
+- lib/directory.fy
+- lib/documentation.fy
+- lib/enumerable.fy
+- lib/eval.fy
+- lib/fancy_spec.fy
+- lib/fdoc.fy
+- lib/fdoc_hook.fy
+- lib/file.fy
+- lib/hash.fy
+- lib/main.fy
+- lib/method.fy
+- lib/nil_class.fy
+- lib/number.fy
+- lib/object.fy
+- lib/package/dependency.fy
+- lib/package/installer.fy
+- lib/package/specification.fy
+- lib/package/uninstaller.fy
+- lib/package.fy
+- lib/parser/methods.fy
+- lib/parser.fy
+- lib/rbx/array.fy
+- lib/rbx/bignum.fy
+- lib/rbx/block.fy
+- lib/rbx/class.fy
+- lib/rbx/code_loader.fy
+- lib/rbx/console.fy
+- lib/rbx/directory.fy
+- lib/rbx/documentation.fy
+- lib/rbx/environment_variables.fy
+- lib/rbx/exception.fy
+- lib/rbx/false_class.fy
+- lib/rbx/fiber.fy
+- lib/rbx/file.fy
+- lib/rbx/fixnum.fy
+- lib/rbx/float.fy
+- lib/rbx/hash.fy
+- lib/rbx/integer.fy
+- lib/rbx/io.fy
+- lib/rbx/match_data.fy
+- lib/rbx/method.fy
+- lib/rbx/name_error.fy
+- lib/rbx/no_method_error.fy
+- lib/rbx/object.fy
+- lib/rbx/range.fy
+- lib/rbx/regexp.fy
+- lib/rbx/string.fy
+- lib/rbx/symbol.fy
+- lib/rbx/system.fy
+- lib/rbx/tcp_server.fy
+- lib/rbx/tcp_socket.fy
+- lib/rbx/thread.fy
+- lib/rbx/tuple.fy
+- lib/rbx.fy
+- lib/set.fy
+- lib/stack.fy
+- lib/string.fy
+- lib/struct.fy
+- lib/symbol.fy
+- lib/true_class.fy
+- lib/tuple.fy
+- lib/version.fy
+- lib/parser/ext/ext.c
+- lib/parser/ext/ext.h
+- lib/parser/ext/extconf.rb
+- lib/parser/ext/lexer.lex
+- lib/parser/ext/parser.y
+- lib/parser/ext/README
+- tests/argv.fy
+- tests/array.fy
+- tests/assignment.fy
+- tests/block.fy
+- tests/class.fy
+- tests/control_flow.fy
+- tests/documentation.fy
+- tests/exception.fy
+- tests/file.fy
+- tests/hash.fy
+- tests/method.fy
+- tests/nil_class.fy
+- tests/number.fy
+- tests/object.fy
+- tests/parsing/sexp.fy
+- tests/pattern_matching.fy
+- tests/range.fy
+- tests/set.fy
+- tests/stack.fy
+- tests/string.fy
+- tests/symbol.fy
+- tests/true_class.fy
+- tests/tuple.fy
+- tools/fancy-mode.el
+- bin/fancy
+- bin/fdoc
+- bin/fyi
+- bin/ifancy
+- examples/argv.fy
+- examples/arithmetic.fy
+- examples/armstrong_numbers.fy
+- examples/array.fy
+- examples/blocks.fy
+- examples/boolean.fy
+- examples/call_with_receiver.fy
+- examples/class.fy
+- examples/closures.fy
+- examples/constant_access.fy
+- examples/default_args.fy
+- examples/define_methods.fy
+- examples/documentation.fy
+- examples/documentation_formatters.fy
+- examples/echo.fy
+- examples/empty_catch.fy
+- examples/exception.fy
+- examples/factorial.fy
+- examples/fibonacci.fy
+- examples/files.fy
+- examples/finally.fy
+- examples/game_of_life.fy
+- examples/hashes.fy
+- examples/hello_world.fy
+- examples/html_generator.fy
+- examples/implicit_return.fy
+- examples/matchers.fy
+- examples/methods.fy
+- examples/nested_classes.fy
+- examples/nested_try.fy
+- examples/numbers.fy
+- examples/pattern_matching.fy
+- examples/person.fy
+- examples/project-euler/01.fy
+- examples/project-euler/02.fy
+- examples/project-euler/28.fy
+- examples/rbx/and_or.fy
+- examples/rbx/blocks.fy
+- examples/rbx/classes.fy
+- examples/rbx/hello.fy
+- examples/rbx/include.fy
+- examples/rbx/inherit.fy
+- examples/rbx/methods.fy
+- examples/rbx/nested_classes.fy
+- examples/rbx/require.fy
+- examples/rbx/strings.fy
+- examples/regex.fy
+- examples/require.fy
+- examples/retry.fy
+- examples/return.fy
+- examples/ruby_require.fy
+- examples/ruby_send.fy
+- examples/singleton_methods.fy
+- examples/stupid_quicksort.fy
+- examples/threads.fy
+- examples/tuple.fy
+- examples/webserver/webserver.fy
+- doc/api/fancy.css
+- doc/api/fancy.jsonp
+- doc/api/fdoc.js
+- doc/api/index.html
+- doc/api/underscore-min.js
+- doc/features.md
+- boot/code_loader.rb
+- boot/compile.fy
+- boot/fancy_ext/block_env.rb
+- boot/fancy_ext/class.rb
+- boot/fancy_ext/kernel.rb
+- boot/fancy_ext/module.rb
+- boot/fancy_ext/object.rb
+- boot/fancy_ext/string_helper.rb
+- boot/fancy_ext.rb
+- boot/load.rb
+- boot/rbx-compiler/compiler/ast/array_literal.rb
+- boot/rbx-compiler/compiler/ast/assign.rb
+- boot/rbx-compiler/compiler/ast/block.rb
+- boot/rbx-compiler/compiler/ast/class_def.rb
+- boot/rbx-compiler/compiler/ast/expression_list.rb
+- boot/rbx-compiler/compiler/ast/hash_literal.rb
+- boot/rbx-compiler/compiler/ast/identifier.rb
+- boot/rbx-compiler/compiler/ast/match.rb
+- boot/rbx-compiler/compiler/ast/message_send.rb
+- boot/rbx-compiler/compiler/ast/method_def.rb
+- boot/rbx-compiler/compiler/ast/node.rb
+- boot/rbx-compiler/compiler/ast/range_literal.rb
+- boot/rbx-compiler/compiler/ast/README
+- boot/rbx-compiler/compiler/ast/require.rb
+- boot/rbx-compiler/compiler/ast/return.rb
+- boot/rbx-compiler/compiler/ast/ruby_args.rb
+- boot/rbx-compiler/compiler/ast/script.rb
+- boot/rbx-compiler/compiler/ast/singleton_method_def.rb
+- boot/rbx-compiler/compiler/ast/string_literal.rb
+- 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/rbx-compiler/compiler/ast.rb
+- boot/rbx-compiler/compiler/command.rb
+- boot/rbx-compiler/compiler/compiler.rb
+- boot/rbx-compiler/compiler/stages.rb
+- boot/rbx-compiler/compiler.rb
+- boot/rbx-compiler/parser/extconf.rb
+- 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.lex
+- boot/rbx-compiler/parser/parser.rb
+- boot/rbx-compiler/parser/parser.y
+- boot/rbx-compiler/parser/Rakefile
+- boot/rbx-compiler/parser/README
+- boot/rbx-compiler/parser.rb
+- boot/rbx-compiler/README
+- boot/README
+- boot/rsexp_pretty_printer.rb
+has_rdoc: true
+homepage: http://www.fancy-lang.org
+licenses: 
+- BSD
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: fancy
+rubygems_version: 1.5.0
+signing_key: 
+specification_version: 3
+summary: The Fancy Programming Language
+test_files: []
+