Started adding support for parsing 'class' and method calls (prelimin…

…ary only)

examples/class.rb

@@ -0,0 +1,10 @@
+
+class Foo
+
+  def bar
+    puts("test")
+  end
+end
+
+f = Foo.new
+f.bar

operators.rb

@@ -18,6 +18,8 @@
 
   "*"  => Oper.new(20, :mul,    :infix),
   "/"  => Oper.new(20, :div,    :infix),
+
+  "."  => Oper.new(90, :callm,  :infix),
 
   "["  => Oper.new(99, :index,  :infix),
   "]"  => Oper.new(99, nil,     :rp),

parser.rb

@@ -84,16 +84,27 @@ def parse_def
     exps = zero_or_more(:defexp)
     vars = deep_collect(exps,Array) {|node| node[0] == :assign ? node[1] : nil}
     exps = [:let,vars] + exps 
-    raise "Expected expression of 'end'" if !@s.expect("end")
+    raise "Expected expression or 'end'" if !@s.expect("end")
     return [:defun, name, args, exps]
   end
 
   def parse_sexp; @sexp.parse; end
 
-  # exp ::= ws* (def | sexp)
+  # class ::= "class" ws* name ws* exp* "end"
+  def parse_class
+    return nil if !@s.expect("class")
+    @s.ws
+    raise "Expected class name" if !(name = @s.expect(Atom))
+    @s.ws
+    exps = zero_or_more(:exp)
+    raise "Expected expression or 'end'" if !@s.expect("end")
+    return [:class,name,exps]
+  end
+
+  # exp ::= ws* (class | def | sexp)
   def parse_exp
     @s.ws
-    parse_def || parse_sexp || @shunting.parse
+    parse_class || parse_def || parse_sexp || @shunting.parse
   end
 
   # program ::= exp* ws*