lrb 0.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 95d432598099b498249adf215c114d4085422337
+  data.tar.gz: 8aae9bc76ed5963a18888b5947bf3be576cabda0
+SHA512:
+  metadata.gz: e7db38a8dfd2c6bd6fbd6bfb5ff7992a83e57be50b4571a46f4ce28b62d02b34d368cd2273e7c3dbc73b03bf08ece40879d6c22819d884512e85c196802af7dd
+  data.tar.gz: 9431a51e1921c0818aac68340cf90874e09a4405e18033489d8d682df16610dae2155d048b69b871e1b66c0808fb8b3070ca06606112f0f9543118c23915e7a5

data/bin/lrb

@@ -0,0 +1,31 @@
+#!/usr/bin/env ruby
+dir = File.expand_path(File.dirname(__FILE__))
+require dir + '/../lib/lrb.rb'
+
+require 'oyster'
+spec = Oyster.spec do
+  name "lrb -- Lisp to ruby transformation"#, v. #{Heist::VERSION}"
+  author 'The Trung <deulamco@mail.com>'
+  
+  synopsis <<-EOS
+    lrb -i [OPTIONS]
+    lrb FILE_NAME [OPTIONS]
+  EOS
+  
+  flag :interactive, :desc =>
+        'Start an interactive Scheme session'
+end
+
+
+begin
+  options = spec.parse
+  
+  if options[:interactive] or options[:unclaimed].empty?
+    puts "Not implemented yet"
+  else
+    lrb = Lrb.new
+    lrb.eval_file File.expand_path(options[:unclaimed].first)
+  end
+
+rescue Oyster::HelpRendered
+end

data/lib/lrb.rb

@@ -0,0 +1,152 @@
+require "colorize"
+require "bracer"
+require "pry"
+
+class Lrb
+  attr_accessor :parser, :debug
+
+  def initialize
+    @debug = false
+    @indent = 0
+    @stack = Array.new
+    @parser = Bracer.new
+    @parser.ruby_keyword_literals = true
+  end
+
+  def parse source
+    @parser.parse_string source 
+  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
+  end
+
+  def to_ruby source
+    ast = parse source 
+    puts "parsed: #{ast}".green if @debug
+    ast = ast.map do |sexp|
+      result = transform sexp
+      puts result if @debug
+      result
+    end
+    ast.join "\n\n"
+  end
+
+  def transform sexp
+    puts line if @debug
+    if sexp.class == Array
+      fun = sexp.first
+      args = wrap_string sexp.drop(1)
+      result = ""
+      if @debug
+        puts "function: #{fun}".yellow
+        puts "args: #{args}".yellow
+        puts line 
+      end
+
+      if KEYWORD.include? fun
+        result = self.instance_exec *args, &KEYWORD[fun]
+      else
+        result = compose_function fun, args
+      end
+
+      if @debug
+        puts result.light_green
+        puts line
+      end
+
+      indent + result
+    else
+      puts "#{sexp}".yellow if @debug
+      sexp.to_s
+    end
+  end
+
+  private
+  def wrap_string args
+    args.map do |arg| 
+      if arg.class == String 
+        "\"#{arg}\""
+      else
+        arg
+      end
+    end
+  end
+
+  def transform_exp exps
+    exps.map do |arg|
+      unless arg.class == String
+        transform arg 
+      else
+        arg
+      end
+    end
+  end
+
+  def compose_function fun, args
+    args = transform_exp args
+    "#{fun} #{args.join ', '}"
+  end
+
+  def indent
+    "  " * @indent
+  end
+
+  def line
+    "-" * 80
+  end
+
+  def push node
+    @stack.push node
+  end
+
+  def fetch
+    @stack.pop unless @stack.empty?
+  end
+
+  def operator op, args
+    args.join " #{op.to_s} " 
+  end
+
+  KEYWORD = {
+    :* => lambda {|*args| operator :*, args},
+    :/ => lambda {|*args| operator :/, args},
+    :- => lambda {|*args| operator :-, args},
+    :+ => lambda {|*args| operator :+, args},
+    :<< => lambda {|*args| operator :<<, args},
+    :'^' => lambda {|*args| operator :'^', args},
+    :'=' => lambda {|left, right| "#{left} = #{right}"},
+    :== => lambda {|left, right| "#{left} == #{right}"},
+
+    :def => lambda {|args, body| 
+      name = args.first
+      args = args.drop(1).join ", "
+      body = transform body
+      ["def #{name} #{args}",
+        "  #{body}",
+        "end"
+      ].join("\n")
+    },
+
+    :if => lambda {|cond, true_block, false_block|
+      op = cond.first
+      cond = cond.drop(1).join " #{op} "
+      true_block = transform true_block
+      false_block = transform false_block
+      ["if #{cond}",
+        "    #{true_block}",
+        "  else",
+        "    #{false_block}",
+        "  end"
+      ].join("\n")
+    }
+  }
+end

metadata

@@ -0,0 +1,103 @@
+--- !ruby/object:Gem::Specification
+name: lrb
+version: !ruby/object:Gem::Version
+  version: 0.0.0
+platform: ruby
+authors:
+- The Trung
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2015-05-24 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: pry
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: oyster
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: bracer
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: colorize
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+description: It transform Ruby to a Lisp with braces. Compile and run as ruby code.
+email: deulamco@gmail.com
+executables:
+- lrb
+extensions: []
+extra_rdoc_files: []
+files:
+- bin/lrb
+- lib/lrb.rb
+homepage: http://github.com/thetrung/lrb.git
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.4.5
+signing_key: 
+specification_version: 4
+summary: Ruby language in form of Lisp with braces
+test_files: []
+has_rdoc: