lrb 0.0.1 → 0.0.3

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: f1cd3e16d04456b052cdabcd6ad3fd3509d5f4bd
-  data.tar.gz: 7db9624b48b357c1bb23fe4b280018c70945d73f
+  metadata.gz: 91b1b3463d0a8c5618c45cfe15e829cdd7340ac6
+  data.tar.gz: 2318438a0a671cc8b1e7f12adb30e35e9a5f7bac
 SHA512:
-  metadata.gz: f9f53921407081952ac231180a3728a38ac2a612557e6d3a70ff8ce4948a5fbb44dcee6572cbf5110d6cf2184a6447f64df3f61744fd0f121f98fe284b5f0707
-  data.tar.gz: 5b068a2f5f1b8dfd166e12fae9dbca72ca2cd46b0976eaa90745fa7869b630f1a31c09fedabafa387200206ef3eedaf134f712863824918f7a36f31d459c3d86
+  metadata.gz: 180ec2126d1c55a186d55c7b6ac69fdabc3f7991098d88b5b27f5cbaa7e8d54299974e5ab3f8dc2a5553da37942342c9ca1ed9e9b94c0b33feaa9af5593412b6
+  data.tar.gz: 9839e93cc80d0cec69d4f40dcf0561d0954d3aa2e5b2aad884062b2630d2580cc222363d2f90cf6674ff6b20e17ea8ce28cb6bcf1db888b8621d4ce63fabdf64

data/README.md

@@ -5,6 +5,18 @@
 
     gem install lrb
 
+\* To Start REPL:
+
+    lrb
+
+\* for debug mode:
+
+    [debug] 
+
+\* To compile & run a source file:
+
+    lrb test.lrb
+
 \* LRB source look like lisp, but with braces:
 
     [require "colorize"]
@@ -168,19 +180,6 @@
     elsif true
       puts "as always"
     end
-    100
-    3628800
-    only block !
-    1st statement
-    2nd statement
-    true
-    Trung
-    Hello Trung !
-    [4]
-    Heello
-    1
-    2
-    3
 
 
 \* And evaluate everything:
@@ -199,14 +198,12 @@
     1
     2
     3
+    one is not lesser than zero
+    4
+    2
+    1 >= 0
 
 
-\* To run a source such as `test.lrb` in this repo:
-
-    lrb file_name.lrb
-
-It will compile and run just as above.
-
 Currently, it's only experiment toy, 
 not yet support `repl` or `macros`.
 

data/bin/lrb

@@ -16,13 +16,16 @@ spec = Oyster.spec do
         'Start an interactive Scheme session'
 end
 
+require "rubygems"
 
 begin
   options = spec.parse
   
   if options[:interactive] or options[:unclaimed].empty?
-    puts "Not implemented yet"
+    puts "lrb:repl".light_yellow
+    Lrb.new.repl
   else
+    puts "lrb:compile".light_yellow
     lrb = Lrb.new
     lrb.eval_file File.expand_path(options[:unclaimed].first)
   end

data/lib/lrb.rb

@@ -1,5 +1,7 @@
+require "readline"
 require "colorize"
 require "bracer"
+# require "sexpistol"
 require "pry"
 
 class Lrb
@@ -11,27 +13,65 @@ class Lrb
     @stack = Array.new
     @parser = Bracer.new
     @parser.ruby_keyword_literals = true
+    readline_autocompletion
   end
 
   def parse source
     @parser.parse_string source 
   end
 
+  def repl
+    begin
+      while line = readline_with_hist_management
+        @stack << line
+        if balanced?
+          e = eval_source @stack.join " "
+          puts e.to_s.blue
+          @stack.clear
+          @indent = 0
+        end
+      end
+    rescue Interrupt => e
+      puts "\nGoodbye !".light_yellow
+      exit
+    end
+  end
+
   def eval_file path
     source = File.read path
-    puts "[LRB]:".light_yellow
-    puts source.light_yellow
-        
-    e = to_ruby source
-    puts e.light_green
-    
-    puts "\n[evaluated]:".light_yellow
-    puts "#{eval e}".blue
+    eval_source source, mode = :compile
   end
 
-  def to_ruby source
-    ast = parse source 
-    puts "parsed: #{ast}".green if @debug
+  def eval_source source, mode = :repl
+    begin
+      e = to_ruby source
+      evaluated = eval e
+    rescue Exception => ex
+      if @debug
+        puts ex.backtrace.join("\n").red
+        binding.pry 
+      end
+      puts ex.message.red
+    end
+    if @debug
+      if mode == :compile
+        puts "[LRB]:".light_yellow
+        puts source.light_yellow
+      end  
+      puts e.light_green
+      if mode == :compile
+        puts "\n[evaluated]:".light_yellow
+        puts "#{evaluated}".blue
+      end
+    end
+    evaluated
+  end
+
+  def eval_list list
+    eval list_to_ruby(list)
+  end
+
+  def list_to_ruby ast
     ast = ast.map do |sexp|
       result = transform sexp
       puts result if @debug
@@ -40,6 +80,12 @@ class Lrb
     ast.join "\n\n"
   end
 
+  def to_ruby source
+    ast = parse source 
+    puts "parsed: #{ast}".green if @debug
+    list_to_ruby ast
+  end
+
   def transform sexp
     puts line if @debug
     if sexp.class == Array
@@ -69,11 +115,37 @@ class Lrb
       indent + result
     else
       puts "#{sexp}".yellow if @debug
-      sexp.to_s
+      sexp
     end
   end
 
   private
+  def balanced?
+    source = @stack.join " "
+    @left = source.count "["
+    @right = source.count "]"
+    @indent = @left - @right if (@left - @right) > 0
+    @left == @right
+  end
+  
+  def readline_autocompletion
+    @dict = KEYWORD.keys.sort
+
+    comp = proc { |s| @dict.grep( /^#{Regexp.escape(s)}/ ) }
+
+    Readline.completion_append_character = " "
+    Readline.completion_proc = comp
+  end
+
+  def readline_with_hist_management
+    line = Readline.readline('> ' + indent, true)
+    return nil if line.nil?
+    if line =~ /^\s*$/ or Readline::HISTORY.to_a[-2] == line
+      Readline::HISTORY.pop
+    end
+    line
+  end
+
   def class_method? function
     function[0] == "."
   end
@@ -87,11 +159,22 @@ class Lrb
       if arg.class == String 
         "\"#{arg}\""
       else
-        arg
+        replace_parenthese arg
       end
     end
   end
 
+  def replace_parenthese arg
+    if arg.to_s["("] && arg.to_s[")"]
+      old = arg
+      arg = arg.to_s.gsub(/\((.*)\)/, '[\1]').to_sym
+      puts "arg: #{old} => #{arg}".light_yellow if @debug
+      arg
+    else
+      arg
+    end
+  end
+
   def transform_exp exps
     exps.map do |arg|
       unless arg.class == String
@@ -124,7 +207,11 @@ class Lrb
   end
 
   def operator op, args
-    args.join " #{op.to_s} " 
+    args = args.map do |arg|
+      transform arg
+    end
+    e = args.join " #{op.to_s} "
+    "(#{e})"
   end
 
   def transform_body block
@@ -171,7 +258,9 @@ class Lrb
     :'=' => lambda {|left, right| "#{left} = #{transform right}"},
     :== => lambda {|left, right| "#{transform left} == #{transform right}"},
     
-
+    :quote => lambda {|*args|
+        "#{args.first}"
+      },
     :list => lambda {|*args|
         "[#{args.join ', '}]"
       },
@@ -184,6 +273,8 @@ class Lrb
         ].join("\n")  
       },
     :begin => lambda {|do_block, rescue_block| 
+        do_block = transform_body do_block
+        rescue_block = transform_body rescue_block
         ["begin",
           "  #{do_block}",
           "rescue Exception => e",
@@ -191,6 +282,11 @@ class Lrb
           "end"
         ].join("\n")
       },
+    :debug => lambda {
+        @debug = !@debug
+        puts "[DEBUG = #{@debug}]".light_yellow
+        ""
+        },
     :do => lambda {|fun, args, bodies|
         fun = transform fun
         args = args.join ", "
@@ -200,6 +296,13 @@ class Lrb
           "end"
         ].join("\n")  
       },
+    :class => lambda {|name, body|
+        body = transform_body body
+        ["class #{name}",
+          "  #{body}",
+          "end"
+        ].join("\n")
+      },
     :def => lambda {|args, body| 
         name = args.first
         args = args.drop(1).join ", "
@@ -234,8 +337,14 @@ class Lrb
   }
 end
 # @test = Lrb.new
-# #@test.debug = true
+# @test.debug = true
 # x = @test.to_ruby <<-REC
+# [= @a Hash.new]
+
+# [= @a(:test) 1]
+
+# [puts 
+#   [.blue "HELLO ROSE"]]
 # REC
-# puts x.blue
-# eval x
+# eval x
+# @test.repl

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: lrb
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.0.3
 platform: ruby
 authors:
 - The Trung
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2015-05-24 00:00:00.000000000 Z
+date: 2015-05-28 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: pry
@@ -66,7 +66,7 @@ dependencies:
     - - "~>"
       - !ruby/object:Gem::Version
         version: '0'
-description: It transform Ruby to a Lisp with braces. Compile and run as ruby code.
+description: It transform Ruby to a Lisp with braces, included REPL mode.
 email: deulamco@gmail.com
 executables:
 - lrb