fancy 0.4.0 → 0.5.0

data/lib/parser/ext/parser.h

@@ -0,0 +1,161 @@
+/* A Bison parser, made by GNU Bison 2.3.  */
+
+/* Skeleton interface for Bison's Yacc-like parsers in C
+
+   Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
+   Free Software Foundation, Inc.
+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2, or (at your option)
+   any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 51 Franklin Street, Fifth Floor,
+   Boston, MA 02110-1301, USA.  */
+
+/* As a special exception, you may create a larger work that contains
+   part or all of the Bison parser skeleton and distribute that work
+   under terms of your choice, so long as that work isn't itself a
+   parser generator using the skeleton or a modified version thereof
+   as a parser skeleton.  Alternatively, if you modify or redistribute
+   the parser skeleton itself, you may (at your option) remove this
+   special exception, which will cause the skeleton and the resulting
+   Bison output files to be licensed under the GNU General Public
+   License without this special exception.
+
+   This special exception was added by the Free Software Foundation in
+   version 2.2 of Bison.  */
+
+/* Tokens.  */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+   /* Put the tokens into the symbol table, so that GDB and other debuggers
+      know about them.  */
+   enum yytokentype {
+     LPAREN = 258,
+     RPAREN = 259,
+     FUTURE_SEND = 260,
+     ASYNC_SEND = 261,
+     AT_LCURLY = 262,
+     LCURLY = 263,
+     RCURLY = 264,
+     LBRACKET = 265,
+     RBRACKET = 266,
+     LEFTHASH = 267,
+     RIGHTHASH = 268,
+     STAB = 269,
+     ARROW = 270,
+     THIN_ARROW = 271,
+     COMMA = 272,
+     SEMI = 273,
+     NL = 274,
+     COLON = 275,
+     RETURN_LOCAL = 276,
+     RETURN = 277,
+     TRY = 278,
+     CATCH = 279,
+     FINALLY = 280,
+     RETRY = 281,
+     SUPER = 282,
+     CLASS = 283,
+     DEF = 284,
+     DOT = 285,
+     DOLLAR = 286,
+     EQUALS = 287,
+     MATCH = 288,
+     CASE = 289,
+     IDENTIFIER = 290,
+     SELECTOR = 291,
+     RUBY_SEND_OPEN = 292,
+     RUBY_OPER_OPEN = 293,
+     CONSTANT = 294,
+     INTEGER_LITERAL = 295,
+     HEX_LITERAL = 296,
+     OCT_LITERAL = 297,
+     BIN_LITERAL = 298,
+     DOUBLE_LITERAL = 299,
+     STRING_LITERAL = 300,
+     MULTI_STRING_LITERAL = 301,
+     SYMBOL_LITERAL = 302,
+     REGEX_LITERAL = 303,
+     OPERATOR = 304,
+     BACKTICK_LITERAL = 305
+   };
+#endif
+/* Tokens.  */
+#define LPAREN 258
+#define RPAREN 259
+#define FUTURE_SEND 260
+#define ASYNC_SEND 261
+#define AT_LCURLY 262
+#define LCURLY 263
+#define RCURLY 264
+#define LBRACKET 265
+#define RBRACKET 266
+#define LEFTHASH 267
+#define RIGHTHASH 268
+#define STAB 269
+#define ARROW 270
+#define THIN_ARROW 271
+#define COMMA 272
+#define SEMI 273
+#define NL 274
+#define COLON 275
+#define RETURN_LOCAL 276
+#define RETURN 277
+#define TRY 278
+#define CATCH 279
+#define FINALLY 280
+#define RETRY 281
+#define SUPER 282
+#define CLASS 283
+#define DEF 284
+#define DOT 285
+#define DOLLAR 286
+#define EQUALS 287
+#define MATCH 288
+#define CASE 289
+#define IDENTIFIER 290
+#define SELECTOR 291
+#define RUBY_SEND_OPEN 292
+#define RUBY_OPER_OPEN 293
+#define CONSTANT 294
+#define INTEGER_LITERAL 295
+#define HEX_LITERAL 296
+#define OCT_LITERAL 297
+#define BIN_LITERAL 298
+#define DOUBLE_LITERAL 299
+#define STRING_LITERAL 300
+#define MULTI_STRING_LITERAL 301
+#define SYMBOL_LITERAL 302
+#define REGEX_LITERAL 303
+#define OPERATOR 304
+#define BACKTICK_LITERAL 305
+
+
+
+
+#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
+typedef union YYSTYPE
+#line 18 "/Users/backtype/projects/fancy/lib/parser/ext/parser.y"
+{
+  VALUE object;
+  ID    symbol;
+}
+/* Line 1529 of yacc.c.  */
+#line 154 "/Users/backtype/projects/fancy/lib/parser/ext/parser.h"
+	YYSTYPE;
+# define yystype YYSTYPE /* obsolescent; will be withdrawn */
+# define YYSTYPE_IS_DECLARED 1
+# define YYSTYPE_IS_TRIVIAL 1
+#endif
+
+extern YYSTYPE yylval;
+

data/lib/parser/ext/parser.y

@@ -55,8 +55,6 @@ extern char *yytext;
 %token                  MATCH
 %token                  CASE
 %token                  IDENTIFIER
-%token                  GOTO
-%token                  LABEL
 %token                  SELECTOR
 %token                  RUBY_SEND_OPEN
 %token                  RUBY_OPER_OPEN
@@ -90,9 +88,6 @@ extern char *yytext;
 
 
 %type  <object>         identifier
-%type  <object>         goto_statement
-%type  <object>         label_literal
-%type  <object>         label_statement
 %type  <object>         any_identifier
 %type  <object>         constant
 %type  <object>         literal_value
@@ -219,23 +214,6 @@ partial_expression_block: AT_LCURLY space expression_list space RCURLY {
 statement:      assignment
                 | return_local_statement
                 | return_statement
-                | label_statement
-                | goto_statement
-                ;
-
-label_literal: LABEL {
-                  $$ = fy_terminal_node(self, "ast:string_value:");
-                }
-                ;
-
-label_statement: label_literal {
-                  $$ = rb_funcall(self, rb_intern("ast:label:"), 2, INT2NUM(yylineno), $1);
-                }
-                ;
-
-goto_statement: GOTO label_literal {
-                  $$ = rb_funcall(self, rb_intern("ast:goto:"), 2, INT2NUM(yylineno), $2);
-                }
                 ;
 
 primary:        any_identifier

data/lib/parser/methods.fy

@@ -337,20 +337,8 @@ class Fancy {
       AST RubyArgs new: line args: args block: block
     }
 
-    def ast: line string_value: string {
-      string
-    }
-
-    def ast: line goto: label_name {
-      AST Goto new: line label_name: label_name
-    }
-
-    def ast: line label: label {
-      AST Label new: line name: label
-    }
-
     def ast: line parse_error: text {
-      ParseError new: line message: text filename: @filename . raise!
+      ParseError new: (line - 1) message: text filename: @filename . raise!
     }
 
     def ast: line file_error: text {

data/lib/range.fy

@@ -3,9 +3,9 @@ class Range {
   Class of Range values. Are created by using Range literal syntax in Fancy.
 
   Example:
-      (10..100) # Range from 10 to 100
-      # the following code does the same as above:
-      Range new: 10 to: 100
+        (10..100) # Range from 10 to 100
+        # the following code does the same as above:
+        Range new: 10 to: 100
   """
 
   include: FancyEnumerable

data/lib/rbx.fy

@@ -39,3 +39,4 @@ require: "rbx/fiber"
 require: "rbx/date"
 require: "rbx/time"
 require: "rbx/actor"
+require: "rbx/mutex"

data/lib/rbx/actor.fy

@@ -41,11 +41,11 @@ class Actor {
 
     Example usage:
 
-        Actor spawn: {
-          loop: {
-            Actor receive println # print all incoming messages
+          Actor spawn: {
+            loop: {
+              Actor receive println # print all incoming messages
+            }
           }
-        }
     """
 
     Actor spawn(&block)

data/lib/rbx/alpha.fy

@@ -24,6 +24,12 @@ class Class {
   def ruby_alias: method_name {
     alias_method(":" + (method_name to_s), method_name)
   }
+
+  def ruby_aliases: method_names {
+    method_names each() |m| {
+      ruby_alias: m
+    }
+  }
 }
 
 class String {

data/lib/rbx/array.fy

@@ -1,9 +1,5 @@
 class Array {
-  ruby_alias: '==
-  ruby_alias: '<<
-  ruby_alias: 'pop
-  ruby_alias: 'last
-  ruby_alias: 'shift
+  ruby_aliases: [ '==, '<<, 'pop, 'last, 'shift ]
 
   forwards_unary_ruby_methods
 
@@ -61,6 +57,8 @@ class Array {
     at(idx)
   }
 
+  alias_method('at_put, '[]=)
+
   def [idx]: obj {
     """
     @idx Index to set a value for.
@@ -69,7 +67,8 @@ class Array {
 
     Inserts a given object at a given index (position) in the Array.
     """
-    ruby: '[]= args: [idx, obj]
+
+    at_put(idx, obj)
   }
 
   alias_method: 'at:put: for: '[]:
@@ -94,44 +93,6 @@ class Array {
     last(count)
   }
 
-  def any?: block {
-    """
-    @block Predicate @Block@ to be called for each element until it returns @true for any one of them.
-    @return @true if any element in @self yields @true for @block, @false otherwise.
-
-    Takes condition-block and returns @true if any element meets it.
-    """
-    any?(&block)
-  }
-
-  def all?: block {
-    """
-    @block Predicate @Block@ to be called for each element until it returns @false for any one of them.
-    @return @true if all elements in @self yield @true for @block, @false otherwise.
-
-    Takes condition-block and returns @true if all elements meet it.
-    """
-    all?(&block)
-  }
-
-  def reject: block {
-    """
-    Returns a new Array with all the elements which yield nil or false
-    when called with the given Block.
-    """
-
-    reject(&block)
-  }
-
-  def reject!: block {
-    """
-    Same as Array#reject: but doing so in-place (destructive).
-    """
-
-    reject!(&block)
-    return self
-  }
-
   def join: join_str {
     """
     @join_str @String@ by which to @join all elements in @self into a new @String@.

data/lib/rbx/bignum.fy

@@ -5,18 +5,7 @@ class Bignum {
 
   include: Number
 
-  ruby_alias: '==
-  ruby_alias: '-
-  ruby_alias: '+
-  ruby_alias: '*
-  ruby_alias: '/
-  ruby_alias: '<
-  ruby_alias: '>
-  ruby_alias: '<=
-  ruby_alias: '>=
-  ruby_alias: '===
-  ruby_alias: '**
-  ruby_alias: '&
+  ruby_aliases: [ '==, '-, '+, '*, '/, '<, '>, '<=, '>=, '===, '**, '& ]
 
   forwards_unary_ruby_methods
 

data/lib/rbx/block.fy

@@ -4,6 +4,31 @@ class Block {
   forwards_unary_ruby_methods
   metaclass forwards_unary_ruby_methods
 
+  # low level while_true: implementation
+  # use direct bytecode generation for speed purposes
+  # this gives us good speed in loops
+  dynamic_method('while_true_impl:) |g| {
+    start = g new_label()
+    end = g new_label()
+    g total_args=(1)
+
+    start set!()
+    g push_self()
+    g send('call, 0)
+    g set_local(1)
+    g gif(end)
+    g push_local(0)
+    g push_local(1)
+    g send('call, 1)
+    g pop()
+    g check_interrupts()
+    g goto(start)
+
+    end set!()
+    g push_nil()
+    g ret()
+  }
+
   def receiver {
     """
     @return Receiver object of a @Block@.

data/lib/rbx/class.fy

@@ -1,11 +1,5 @@
 class Class {
-  ruby_alias: 'superclass
-  ruby_alias: '===
-  ruby_alias: 'ancestors
-  ruby_alias: 'instance_methods
-  ruby_alias: 'methods
-  ruby_alias: 'inspect
-  ruby_alias: 'to_s
+  ruby_aliases: [ 'superclass, '===, 'ancestors, 'instance_methods, 'methods, 'inspect, 'to_s ]
 
   def new {
     """

data/lib/rbx/date.fy

@@ -9,11 +9,7 @@ class Date {
   metaclass forwards_unary_ruby_methods
 
   metaclass ruby_alias: 'today
-  ruby_alias: '==
-  ruby_alias: '-
-  ruby_alias: '+
-  ruby_alias: '<
-  ruby_alias: '>
+  ruby_aliases: [ '==, '-, '+, '<, '> ]
 
   def != other {
     self == other not

data/lib/rbx/file.fy

@@ -7,10 +7,7 @@ class File {
       'binary => "b",
       'truncate => "w+"]>
 
-  ruby_alias: 'eof?
-  #ruby_alias: 'close
-  ruby_alias: 'closed?
-  ruby_alias: 'flush
+  ruby_aliases: [ 'eof?, 'closed?, 'flush ]
 
   def File open: filename modes: modes_arr with: block {
     """