phaad 0.0.1 → 0.0.2

data/README.md

@@ -0,0 +1,44 @@
+# Phaad
+
+Phaad is a little language, written in Ruby, implementing a subset of Ruby's syntax, and compiling it down to PHP.
+
+## Status
+
+Phaad is a work in progress. I made it to save myself from typing dollar signs, and brackets everywhere, when developing in PHP, while teaching myself a little about Lexers and Parsers.
+
+The following features are currently implemented
+
+- Unary operators ~, +, -, !
+- Binary operators 
+  - Arithmetic: +, -, \*, /, %, \*\* (converted to `pow`)
+  - Logical: &&, ||, and, or
+  - Bitwise: |, &, ^
+  - Comparison: ==, !=, >, <, >=, <=, ===
+  - Regex match: =~, !~ (converted to `preg_match`)
+- Assigning variables, both single and multiple at once (`a, b = 1, 2` => `$a = 1;\n$b=2;`)  
+- if, unless, while, and until statements, both in the long and one line form of Ruby
+- Function definitions
+- Arrays, both linear and associative
+
+## Getting Started
+
+### Installing
+
+It's best to install the latest revision from the repository.
+
+    git clone https://github.com/utkarshkukreti/phaad.git
+    cd phaad
+    bundle install
+    rake spec # optional
+    rake install
+
+Installing the gem will provide you with a `phaad` command. Invoking it without any parameters brings up an interactive REPL, similar to IRB. You can type in code, and get the generated PHP code back instantly.
+
+## Examples
+
+It's best to checkout the [spec](https://github.com/utkarshkukreti/phaad/tree/master/spec) directory for a list of features with examples for now.
+
+## License
+
+MIT License. (c) 2011 Utkarsh Kukreti.
+

data/lib/phaad/cli.rb

@@ -1,24 +1,87 @@
 module Phaad
   class CLI
     def initialize(argv)
-      repl
+      @options = Slop.parse! argv, :help => true  do
+        banner "Usage: phaad [options] [file]"
+        on :c, :compile,      "Compile to PHP, and save as .php files"
+        on :i, :interactive,  "Run an interactive Phaad REPL"
+        on :s, :stdio,        "Fetch, compile, and print a Phaad script over stdio"
+        on :e, :eval,         "Compile a string from command line", true
+        on :w, :watch,        "Watch a Phaad file for changes, and autocompile"
+        on :v, :version,      "Print Phaad version" do
+          puts Phaad::VERSION
+          exit
+        end
+      end
+
+      if @options.interactive?
+        repl
+      elsif @options.eval?
+        puts compile(@options[:eval])
+      elsif @options.stdio?
+        puts "<?php\n"
+        puts compile(STDIN.readlines.join("\n"))
+      elsif @options.compile?
+        input_file = argv.shift
+        output_file = input_file.sub(/\..*?$/, '.php')
+        File.open(output_file, 'w') do |f|
+          f << "<?php\n"
+          f << compile(File.read(input_file))
+        end
+      elsif @options.watch?
+        require 'fssm'
+
+        input_file = argv.shift
+        output_file = input_file.sub(/\..*?$/, '.php')
+        FSSM.monitor(File.dirname(input_file), File.basename(input_file)) do
+          update do
+            puts ">>> Detected changes in #{input_file}"
+            File.open(output_file, 'w') do |f|
+              f << "<?php\n"
+              f << Phaad::Generator.new(File.read(input_file)).emitted
+            end
+            puts ">>> Compiled!"
+          end
+        end
+      else
+        repl
+      end
+    end
+
+    def compile(input)
+      Phaad::Generator.new(input).emitted
     end
 
-    ##
-    # A very primitive repl. Only handles one lines.
     def repl
-      puts "Type exit to exit."
-      print "> "
-      while (input = gets.chomp) != "exit"
-        begin
-          puts Phaad::Generator.new(input).emitted
-        rescue Exception => e
-          puts e
-          p e.message
-          puts e.backtrace
+      require 'readline'
+
+      puts "Type exit or press Ctrl-D to exit."
+      lines = ""
+      loop do
+        prompt = lines.size == 0 ? '> ' : '>> '
+        line = Readline::readline(prompt)
+
+        exit if line.nil? || line == "exit" && lines.size == 0
+
+        lines << line + "\n"
+        Readline::HISTORY.push line
+
+        if valid_expression?(lines)
+          begin
+            puts Phaad::Generator.new(lines).emitted
+          rescue Exception => e
+            puts e
+            p e.message
+            puts e.backtrace
+          ensure
+            lines = ""
+          end
         end
-        print "> "
       end
     end
+
+    def valid_expression?(lines)
+      !!Ripper.sexp(lines)
+    end
   end
 end

data/lib/phaad/generator.rb

@@ -14,44 +14,404 @@ module Phaad
       end
 
       @emitted = ""
-      @sexp.last.each(&method(:process))
+      @indent_level = 0
+      @indent_with = "  "
+      process_statements @sexp.last, :indent => false
+      @emitted.chomp!
     end
 
-    def emit(str)
-      @emitted << str
+    def process_statements(array, options = {})
+      indent unless options[:indent] == false
+      array.each do |sexp|
+        process(sexp)
+        should_not_be = [ [:bodystmt, [[:void_stmt]], nil, nil, nil] ]
+        first_should_not_be = [:void_stmt, :def, :bodystmt, :if, :else, :elsif,
+          :unless, :while, :until, :while_mod, :until_mod, :if_mod, :unless_mod,
+          :massign, :class, :for]
+        emit ";\n" if !should_not_be.include?(sexp) && !first_should_not_be.include?(sexp.first)
+      end
+      outdent unless options[:indent] == false
+    end
+
+    def indent
+      @indent_level += 1
+    end
+
+    def outdent
+      @indent_level -= 1
+    end
+
+    def emit(*strings)
+      strings.each do |string|
+        @emitted << @indent_with * @indent_level if @emitted[-1] == "\n"
+        @emitted << string
+      end
     end
 
     def process(sexp)
       case sexp.first
+      when :void_stmt
       when :@int, :@float
         emit sexp[1]
       when :@tstring_content
-        "\"#{sexp[1]}\""
+        emit "\"#{sexp[1].gsub('"', '\"')}\""
       when :string_content 
-        process sexp[1]
+        if sexp.size > 1
+          sexp[1..-1].each_with_index do |exp, i|
+            unless exp[0] == :string_embexpr && exp[1][0][0] == :void_stmt
+              process exp
+              emit " . " if i < sexp.size - 2
+            end
+          end
+        else
+          emit '""'
+        end
       when :string_literal
-        emit process(sexp[1])
+        process(sexp[1])
+      when :string_embexpr
+        process sexp[1][0]
       when :regexp_literal
-        emit "\"/#{sexp[1][0][1]}#{process(sexp[2])}\""
+        emit '"/'
+        emit sexp[1][0][1]
+        process sexp[2]
+        emit '"'
       when :@regexp_end
-        sexp[1]
+        emit sexp[1]
       when :symbol_literal
         emit sexp[1][1][1].inspect
       when :dyna_symbol
-        emit process(sexp[1][0])
+        process(sexp[1][0])
+      when :assign
+        process(sexp[1])
+        emit " = "
+        process(sexp[2])
+      when :massign
+        lhs = sexp[1]
+        rhs = sexp[2]
+
+        # hack, no idea why is the sexp like this.
+        rhs.shift if rhs.first == :mrhs_new_from_args
+        rhs = rhs[0] + [rhs[1]]
+        unless lhs.size == rhs.size
+          raise NotImplementedError, sexp.inspect
+        end
+
+        lhs.zip(rhs).each do |l, r|
+          process l
+          emit " = "
+          process r
+          emit ";\n"
+        end
+      when :return
+        emit "return "
+        process sexp[1]
+      when :var_field
+        process(sexp[1])
+      when :@ident
+        no_dollar = ["__NAMESPACE__", "__DIR__", "__METHOD__", "__CLASS__", "__FUNCTION__"]
+        emit "$" unless no_dollar.include?(sexp[1])
+        emit sexp[1]
+      when :@ivar
+        emit "$this->"
+        emit sexp[1][1..-1]
+      when :@const
+        emit sexp[1]
+      when :method_add_arg
+        if sexp[1][0] == :fcall && sexp[1][1][0] == :@ident
+          emit sexp[1][1][1]
+          emit "("
+          process sexp[2][1] if sexp[2][1]
+          emit ")"
+        elsif sexp[1][0] == :call 
+          process sexp[1]
+          emit "("
+          process sexp[2][1] if sexp[2][1]
+          emit ")"
+        else
+          raise NotImplementedError, sexp.inspect
+        end
+      when :ifop
+        process sexp[1]
+        emit " ? "
+        process sexp[2]
+        emit " : "
+        process sexp[3]
+      when :command
+        if sexp[1][0] == :@ident
+          no_brackets = %w{global echo}
+          emit sexp[1][1]
+          emit no_brackets.include?(sexp[1][1]) ? " " : "("
+          if sexp[2][0] == :args_add_block
+            process sexp[2]
+          else
+            sexp[2].each(&method(:process))
+          end
+          emit ")" unless no_brackets.include?(sexp[1][1])
+        else
+          raise NotImplementedError, sexp.inspect
+        end
+      when :args_add_block
+        sexp[1].each do |s|
+          process s
+          emit ", " unless s == sexp[1].last
+        end
+      when :call
+        process sexp[1]
+        emit "->"
+        emit sexp[3][1]
+      when :command_call
+        if sexp[1][0] == :var_ref && sexp[1][1][0] == :@ident && sexp[2] == :"." && 
+          sexp[3][0] == :@ident && sexp[4][0] == :args_add_block
+          process sexp[1]
+          emit "->"
+          emit sexp[3][1]
+          emit "("
+          process sexp[4]
+          emit ")"
+        else
+          raise NotImplementedError, sexp.inspect
+        end
+      when :if, :elsif, :unless
+        if sexp.first == :if
+          emit "if("
+        elsif sexp.first == :unless
+          emit "if(!("
+        else
+          emit "elseif("
+        end
+        process sexp[1]
+        emit ")" if sexp.first == :unless
+        emit ") {\n"
+        process_statements(sexp[2])
+        emit "}"
+        if sexp[3]
+          emit " "
+          process sexp[3]
+        else
+          emit "\n"
+        end
+      when :else
+        emit "else {\n"
+        process_statements(sexp[1]) if sexp[1]
+        emit "}\n"
+        process sexp[3] if sexp[3]
+      when :if_mod, :unless_mod
+        emit "if("
+        emit "!(" if sexp.first == :unless_mod
+        process sexp[1]
+        emit ")" if sexp.first == :unless_mod
+        emit ") {\n"
+        process_statements [sexp[2]]
+        emit "}\n"
+      when :while, :until
+        emit "while("
+        emit "!(" if sexp.first == :until
+        process sexp[1]
+        emit ")" if sexp.first == :until
+        emit ") {\n"
+        process_statements sexp[2]
+        emit "}\n"
+      when :while_mod, :until_mod
+        emit "while("
+        emit "!(" if sexp.first == :until_mod
+        process sexp[1]
+        emit ")" if sexp.first == :until_mod
+        emit ") {\n"
+        process_statements [sexp[2]]
+        emit "}\n"
+      when :for
+        if !sexp[1][0].is_a?(Array) && sexp[2][0] == :dot2 || sexp[2][0] == :dot3
+          emit "for("
+          process sexp[1]
+          emit " = "
+          process sexp[2][1]
+          emit "; "
+          process sexp[1]
+          emit sexp[2][0] == :dot2 ? " <= " : " < "
+          process sexp[2][2]
+          emit "; "
+          process sexp[1]
+          emit "++"
+        else
+          emit "foreach("
+          process sexp[2]
+          emit " as "
+          if !sexp[1][0].is_a?(Array)
+            process sexp[1]
+          elsif sexp[1][0].is_a?(Array) && sexp[1].size == 2
+            process sexp[1][0]
+            emit " => "
+            process sexp[1][1]
+          else
+            raise NotImplementedError, sexp.inspect
+          end
+        end
+        emit ") {\n"
+        process_statements sexp[3]
+        emit "}\n"
+      when :def
+        raise NotImplementedError, sexp.inspect unless sexp[1][0] == :@ident
+        emit "function "
+        emit sexp[1][1]
+        emit "("
+        if sexp[2][0] == :params
+          process sexp[2] # params
+        elsif sexp[2][0] == :paren && sexp[2][1][0] == :params
+          process sexp[2][1]
+        else
+          raise NotImplementedError, sexp.inspect
+        end
+        emit ") {\n"
+        process_statements [sexp[3]]
+        emit "}\n"
+      when :class
+        if sexp[1][1][0] != :@const || (sexp[2] && sexp[2][1][0] != :@const)
+          raise NotImplementedError, sexp.inspect
+        end
+        emit "class "
+        emit sexp[1][1][1]
+        emit " extends #{sexp[2][1][1]}" if sexp[2]
+        emit " {\n"
+        process_statements [sexp[3]]
+        emit "}\n"
+      when :params
+        first = true
+        if sexp[1]
+          sexp[1].each do |param|
+            emit ", " unless first
+            first = false
+
+            process param
+          end
+        end
+
+        if sexp[2]
+          sexp[2].each do |param|
+            emit ", " unless first
+            first = false
+
+            process param[0]
+            emit " = "
+            process param[1]
+          end
+        end
+      when :array, :hash
+        emit "array("
+        if sexp[1]
+          if sexp[1][0] == :assoclist_from_args
+            process sexp[1]
+          else
+            sexp[1].each_with_index do |param, i|
+              process param
+              emit ", " if i < sexp[1].size - 1
+            end
+          end
+        end
+        emit ")"
+      when :assoclist_from_args
+        sexp[1].each_with_index do |param, i|
+          process param
+          emit ", " if i < sexp[1].size - 1
+        end
+      when :assoc_new
+        process sexp[1]
+        emit " => "
+        process sexp[2]
+      when :bodystmt
+        process_statements(sexp[1], :indent => false)
+        # skip rescue and ensure
+      when :paren
+        emit "("
+        if sexp[1].size == 1
+          process sexp[1][0]
+        else
+          raise NotImplementedError, sexp.inspect
+        end
+        emit ")"
+      when :aref_field
+        process sexp[1]
+        emit "["
+        process sexp[2] if sexp[2]
+        emit "]"
+      when :aref
+        process sexp[1]
+        emit "["
+        if sexp[2][1].size == 1
+          process sexp[2] if sexp[2][1][0]
+        else
+          raise NotImplementedError, sexp.inspect
+        end
+        emit "]"
+      when :unary
+        case sexp[1]
+        when :+@, :-@, :~, :'!'
+          emit sexp[1].to_s[0]
+          process sexp[2]
+        else
+          raise NotImplementedError, sexp.inspect
+        end
+      when :binary
+        case sexp[2]
+        when :+, :-, :*, :/, :%, :|, :&, :^, :'&&', :'||', :==, :'!=', :>, :<,
+            :>=, :<=, :===
+          process(sexp[1])
+          emit " #{sexp[2]} "
+          process(sexp[3])
+        when :and
+          process(sexp[1])
+          emit " && "
+          process(sexp[3])
+        when :or
+          process(sexp[1])
+          emit " || "
+          process(sexp[3])
+        when :<<
+          process(sexp[1])
+          emit " . "
+          process(sexp[3])
+        when :**
+          emit "pow("
+          process(sexp[1])
+          emit ", "
+          process(sexp[3])
+          emit ")"
+        when :=~
+          emit "preg_match("
+          process(sexp[3])
+          emit ", "
+          process(sexp[1])
+          emit ")"
+        when :'!~'
+          emit "!preg_match("
+          process(sexp[3])
+          emit ", "
+          process(sexp[1])
+          emit ")"
+        else
+          raise NotImplementedError, sexp.inspect
+        end
       when :var_ref
+        # probably need to remove this
         if sexp[1][0] == :@kw
-           case sexp[1][1]
-           when 'false', 'true'
-             emit sexp[1][1].upcase
-           when 'nil'
-             emit 'NULL'
-           else
-             raise NotImplementedError, sexp
-           end
+          case sexp[1][1]
+          when 'false', 'true'
+            emit sexp[1][1].upcase
+          when 'nil'
+            emit 'NULL'
+          when '__FILE__', '__LINE__'
+            emit sexp[1][1]
+          else
+            raise NotImplementedError, sexp.inspect
+          end
+        elsif sexp[1][0] == :@ident
+          process sexp[1]
+        elsif sexp[1][0] == :@ivar
+          process sexp[1]
+        elsif sexp[1][0] == :@const
+          process sexp[1]
         else
           # later
-          raise NotImplementedError, sexp
+          raise NotImplementedError, sexp.inspect
         end
       else
         raise NotImplementedError, sexp.inspect

data/lib/phaad/version.rb

@@ -1,3 +1,3 @@
 module Phaad
-  VERSION = "0.0.1"
+  VERSION = "0.0.2"
 end

data/lib/phaad.rb

@@ -1,3 +1,6 @@
+require 'slop'
+
 require 'ripper'
 require 'phaad/cli'
 require 'phaad/generator'
+require 'phaad/version'

data/phaad.gemspec

@@ -8,7 +8,7 @@ Gem::Specification.new do |s|
   s.platform    = Gem::Platform::RUBY
   s.authors     = ["Utkarsh Kukreti"]
   s.email       = ["utkarshkukreti@gmail.com"]
-  s.homepage    = ""
+  s.homepage    = "https://github.com/utkarshkukreti/phaad/"
   s.summary     = %q{A beautiful way to write PHP}
   s.description = %q{A beautiful way to write PHP}
 
@@ -19,5 +19,7 @@ Gem::Specification.new do |s|
   s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
   s.require_paths = ["lib"]
 
+  s.add_dependency 'slop', '~>1.6.0'
+  s.add_dependency 'fssm', '~>0.2.7'
   s.add_development_dependency 'rspec', '~>2.6.0'
 end

data/spec/generator/array_spec.rb

@@ -0,0 +1,54 @@
+require 'spec_helper'
+
+describe Phaad::Generator, 'array creation' do
+  context "linear arrays" do
+    it "should create blank array" do
+      compile("[]").should == "array();"
+    end
+
+    it "should create simple arrays" do
+      compile("[1, 'a', /b/, true]").should == 'array(1, "a", "/b/", TRUE);'
+    end
+
+    it "should create nested arrays" do
+      compile("[1, [1, [2, [3, [5, [8, 13]]]]]]").should == 
+        "array(1, array(1, array(2, array(3, array(5, array(8, 13))))));"
+    end
+  end
+
+  context "associative arrays" do
+    it "should create blank array" do
+      compile("{}").should == "array();"
+    end
+
+    it "should create simple arrays" do
+      compile("{a => :b, 1 => 2, /foo/ => /bar/}").should ==
+        'array($a => "b", 1 => 2, "/foo/" => "/bar/");'
+    end
+
+    it "should create nested arrays" do
+      compile("{1 => {2 => {3 => {4 => {5 => 6}}}}}").should ==
+        "array(1 => array(2 => array(3 => array(4 => array(5 => 6)))));"
+    end
+  end
+
+  it "should parse a mix of linear and associative arrays" do
+    compile("[{}, [], {foo => [1, 2, 3, {}]}]").should ==
+      "array(array(), array(), array($foo => array(1, 2, 3, array())));"
+  end
+end
+
+describe Phaad::Generator, 'array access' do
+  context "linear arrays" do
+    it "should allow access" do
+      compile("a[0]") == "$a[0];"
+    end
+  end
+
+  context "associative arrays" do
+    it "should allow access" do
+      compile("a['foo']") == '$a["foo"];'
+      compile("a[:foo]") == '$a["foo"];'
+    end
+  end
+end

data/spec/generator/assign_spec.rb

@@ -0,0 +1,15 @@
+require 'spec_helper'
+
+describe Phaad::Generator, 'assign' do
+  it "should assign simple variables" do
+    compile("a = 1").should == "$a = 1;"
+    compile('a = "foo"').should == '$a = "foo";'
+    compile("a = /foo/").should == '$a = "/foo/";'
+  end
+
+  it "should assign array fields" do
+    compile("a[] = 1").should == "$a[] = 1;"
+    compile("a[0] = 1").should == "$a[0] = 1;"
+    compile("a['foo'] = 1").should == '$a["foo"] = 1;'
+  end
+end

data/spec/generator/binary_spec.rb

@@ -0,0 +1,55 @@
+require 'spec_helper'
+
+describe Phaad::Generator, "binary" do
+  it "should parse +, -, *, /, %" do
+    compile("1 + 2").should == "1 + 2;"
+    compile("1 - 2").should == "1 - 2;"
+    compile("1 * 2").should == "1 * 2;"
+    compile("1 / 2").should == "1 / 2;"
+    compile("1 % 2").should == "1 % 2;"
+  end
+
+  it "should parse | & ^" do
+    compile("1 | 2").should == "1 | 2;"
+    compile("1 & 2").should == "1 & 2;"
+    compile("1 ^ 2").should == "1 ^ 2;"
+  end
+
+  it "should parse ** to pow" do
+    compile("1 ** 2").should == "pow(1, 2);"
+  end
+
+  it "should parse && ||" do
+    compile("true && false").should == "TRUE && FALSE;"
+    compile("true || false").should == "TRUE || FALSE;"
+  end
+
+  it "should parse 'and' and 'or'" do
+    compile("true and false").should == "TRUE && FALSE;"
+    compile("true or false").should == "TRUE || FALSE;"
+  end
+
+  it "should parse chain of binary statements" do
+    compile("1 + 2 - 3 + 4").should == "1 + 2 - 3 + 4;"
+    compile("1 + 2 ** 3 ** 4").should == "1 + pow(2, pow(3, 4));"
+  end
+
+  it "should parse == != > < >= <= ===" do
+    compile("1 == 2").should == "1 == 2;"
+    compile("1 != 2").should == "1 != 2;"
+    compile("1 > 2").should == "1 > 2;"
+    compile("1 < 2").should == "1 < 2;"
+    compile("1 >= 2").should == "1 >= 2;"
+    compile("1 <= 2").should == "1 <= 2;"
+    compile("1 === 2").should == "1 === 2;"
+  end
+
+  it "should parse =~ and !~ to preg_match statements" do
+    compile("a =~ b").should == "preg_match($b, $a);"
+    compile("a !~ b").should == "!preg_match($b, $a);"
+  end
+
+  it "should parse << as ." do
+    compile("'foo' << 'bar'").should == '"foo" . "bar";'
+  end
+end

data/spec/generator/class_spec.rb

@@ -0,0 +1,45 @@
+require 'spec_helper'
+
+describe Phaad::Generator, 'class' do
+  context 'define a class' do
+    it "should define a bare class" do
+      compile("class A; end").should == "class A {\n}"
+    end
+
+    it "should define a class which inherits" do
+      compile("class A < B; end").should == "class A extends B {\n}"
+    end
+  end
+
+  context 'access object variables' do
+    it "should allow accessing a.b" do
+      compile("a.b").should == "$a->b;"
+    end
+
+    it "should allow accessing a.b.c.d.e" do
+      compile("a.b.c.d.e").should == "$a->b->c->d->e;"
+    end
+  end
+
+  context "access object functions" do
+    it "should allow calling a.b()" do
+      compile("a.b()").should == "$a->b();"
+    end
+
+    it "should allow calling a.b c" do
+      compile("a.b c").should == "$a->b($c);"
+      compile("a.b(c)").should == "$a->b($c);"
+    end
+
+    it "should allow calling a.b c, d" do
+      compile("a.b c, d").should == "$a->b($c, $d);"
+      compile("a.b(c, d)").should == "$a->b($c, $d);"
+    end
+  end
+
+  context "chained access" do
+    it "mix of chained variable and function calls" do
+      compile("a.b(c, d).e(f, g).h().i").should == "$a->b($c, $d)->e($f, $g)->h()->i;"
+    end
+  end
+end

data/spec/generator/constants_spec.rb

@@ -0,0 +1,39 @@
+require 'spec_helper'
+
+describe Phaad::Generator, 'constants' do
+  it "should allow referring to constants" do
+    compile("FOO").should == "FOO;"
+  end
+
+  # http://php.net/manual/en/language.constants.predefined.php
+  context "magic constants" do
+    it "should parse __LINE__" do
+      compile("__LINE__").should == "__LINE__;"
+    end
+
+    it "should parse __FILE__" do
+      compile("__FILE__").should == "__FILE__;"
+    end
+
+    it "should parse __DIR__" do
+      compile("__DIR__").should == "__DIR__;"
+    end
+
+    it "should parse __FUNCTION__" do
+      compile("__FUNCTION__").should == "__FUNCTION__;"
+    end
+
+    it "should parse __CLASS__" do
+      compile("__CLASS__").should == "__CLASS__;"
+    end
+
+    it "should parse __METHOD__" do
+      compile("__METHOD__").should == "__METHOD__;"
+    end
+
+    it "should parse __NAMESPACE__" do
+      compile("__NAMESPACE__").should == "__NAMESPACE__;"
+    end
+  end
+
+end

data/spec/generator/for_spec.rb

@@ -0,0 +1,39 @@
+require 'spec_helper'
+
+describe Phaad::Generator, "for" do
+  context "over linear or associative arrays" do
+    it "should parse one variable for statements" do
+      compile("for a in b\nend").should == "foreach($b as $a) {\n}"
+    end
+
+    it "should parse two variable for statements" do
+      compile("for a, b in c\nend").should == "foreach($c as $a => $b) {\n}"
+    end
+
+    it "should parse the body" do
+      compile("for a, b in c\na\nb\nend").should == "foreach($c as $a => $b) {\n  $a;\n  $b;\n}"
+    end
+  end
+
+  context "over ranges" do
+    it "should loop over a simple range" do
+      compile("for a in 1..10\nend").should == "for($a = 1; $a <= 10; $a++) {\n}"
+      compile("for a in 1...10\nend").should == "for($a = 1; $a < 10; $a++) {\n}"
+    end
+
+    it "should loop over a dynamic range" do
+      compile("for a in 1..b\nend").should == "for($a = 1; $a <= $b; $a++) {\n}"
+      compile("for a in 1...b\nend").should == "for($a = 1; $a < $b; $a++) {\n}"
+      compile("for a in b..10\nend").should == "for($a = $b; $a <= 10; $a++) {\n}"
+      compile("for a in b...10\nend").should == "for($a = $b; $a < 10; $a++) {\n}"
+      compile("for a in b..c\nend").should == "for($a = $b; $a <= $c; $a++) {\n}"
+      compile("for a in b...c\nend").should == "for($a = $b; $a < $c; $a++) {\n}"
+    end
+
+    it "should parse the body" do
+      compile("for a in 1...10\na\nend").should == "for($a = 1; $a < 10; $a++) {\n  $a;\n}"
+      compile("for a in b...c\na\nb\nc\nend").should ==
+        "for($a = $b; $a < $c; $a++) {\n  $a;\n  $b;\n  $c;\n}"
+    end
+  end
+end

data/spec/generator/function_spec.rb

@@ -0,0 +1,37 @@
+require 'spec_helper' 
+
+describe Phaad::Generator, 'call a function' do
+  it "should parse various function calls" do
+    compile("f()").should == "f();"
+    compile("f a").should == "f($a);"
+    compile("f(a)").should == "f($a);"
+    compile("f g a").should == "f(g($a));"
+    compile("f g(a)").should == "f(g($a));"
+    compile("a b c d, e, f()").should == "a(b(c($d, $e, f())));"
+  end
+
+  it "should not add brackets when calling global and echo" do
+    compile("echo a").should == "echo $a;"
+    compile("echo a, b").should == "echo $a, $b;"
+    compile("global a").should == "global $a;"
+    compile("global a, b").should == "global $a, $b;"
+  end
+end
+
+describe Phaad::Generator, 'define a function' do
+  it "should define a function without params" do
+    compile("def f\nend").should start_with("function f()")
+  end
+
+  it "should define a function with basic params" do
+    compile("def f a\nend").should start_with("function f($a)")
+    compile("def f(a)\nend").should start_with("function f($a)")
+    compile("def f a, b\nend").should start_with("function f($a, $b)")
+    compile("def f(a, b)\nend").should start_with("function f($a, $b)")
+  end
+
+  it "should define a function with params with default values" do
+    compile("def f a = 4\nend").should start_with("function f($a = 4)")
+    compile("def f a, b = 4\nend").should start_with("function f($a, $b = 4)")
+  end
+end

data/spec/generator/if_spec.rb

@@ -0,0 +1,49 @@
+require 'spec_helper'
+
+describe Phaad::Generator, "if" do
+  it "should parse if statements" do
+    compile("if a\nb\nend").should == "if($a) {\n  $b;\n}"
+    compile("if a\nb\nc\nend").should == "if($a) {\n  $b;\n  $c;\n}"
+  end
+
+  it "should parse if else statements" do
+    compile("if a\nb\nelse\nc\nend").should == "if($a) {\n  $b;\n} else {\n  $c;\n}"
+  end
+
+  it "should parse if elsif statements" do
+    compile("if a\nb\nelsif c\nd\nend").should == 
+      "if($a) {\n  $b;\n} elseif($c) {\n  $d;\n}"
+  end
+
+  it "should parse if elsif else statements" do
+    compile("if a\nb\nelsif c\nd\nelse\n e\nend").should == 
+      "if($a) {\n  $b;\n} elseif($c) {\n  $d;\n} else {\n  $e;\n}"
+  end
+
+  it "should parse if then end statements" do
+    compile("if a then b end").should == "if($a) {\n  $b;\n}"
+  end
+
+  it "should parse if then else end statements" do
+    compile("if a then b else c end").should == "if($a) {\n  $b;\n} else {\n  $c;\n}"
+  end
+
+  it "should parse if then elsif else end statements" do
+    compile("if a then b elsif c then d else e end").should == 
+      "if($a) {\n  $b;\n} elseif($c) {\n  $d;\n} else {\n  $e;\n}"
+  end
+
+  it "should parse one line if statements" do
+    compile("b if a").should == "if($a) {\n  $b;\n}"
+  end
+
+  it "should parse unless statements" do
+    compile("unless a\nb\nend").should == "if(!($a)) {\n  $b;\n}"
+    compile("unless a\nb\nc\nend").should == "if(!($a)) {\n  $b;\n  $c;\n}"
+    compile("unless a + b\nc\nend").should == "if(!($a + $b)) {\n  $c;\n}"
+  end
+
+  it "should parse one line if statements" do
+    compile("b unless a").should == "if(!($a)) {\n  $b;\n}"
+  end
+end

data/spec/generator/ivar_spec.rb

@@ -0,0 +1,8 @@
+require 'spec_helper'
+
+describe Phaad::Generator, "instance variables" do
+  it "should parse instance variable correctly" do
+    compile("@a").should == "$this->a;"
+    compile("@a = 1").should == "$this->a = 1;"
+  end
+end

data/spec/generator/literal_spec.rb

@@ -2,36 +2,36 @@ require 'spec_helper'
 
 describe Phaad::Generator, "Literals" do
   it "should parse integers" do
-    compile("1").should == "1"
+    compile("1").should == "1;"
   end
 
   it "should parse floats" do
-    compile("1.0").should == "1.0"
+    compile("1.0").should == "1.0;"
   end
 
   it "should parse strings" do
-    compile('"foo bar"').should == '"foo bar"'
-    compile("'foo bar'").should == '"foo bar"'
-    compile('"foo\nbar"').should == '"foo\nbar"'
+    compile('"foo bar"').should == '"foo bar";'
+    compile("'foo bar'").should == '"foo bar";'
+    compile('"foo\nbar"').should == '"foo\nbar";'
   end
 
   it "should parse regexes" do
-    compile("/ab/").should == '"/ab/"'
-    compile("/ab/i").should == '"/ab/i"'
-    compile('/a\b/i').should == '"/a\\b/i"'
+    compile("/ab/").should == '"/ab/";'
+    compile("/ab/i").should == '"/ab/i";'
+    compile('/a\b/i').should == '"/a\\b/i";'
   end
 
   it "should parse booleans" do
-    compile("true").should == "TRUE"
-    compile("false").should == "FALSE"
+    compile("true").should == "TRUE;"
+    compile("false").should == "FALSE;"
   end
 
   it "should parse nil" do
-    compile("nil").should == "NULL"
+    compile("nil").should == "NULL;"
   end
 
   it "should parse symbols as strings" do
-    compile(":foo").should == '"foo"'
-    compile(':"foo"').should == '"foo"'
+    compile(":foo").should == '"foo";'
+    compile(':"foo"').should == '"foo";'
   end
 end

data/spec/generator/massign_spec.rb

@@ -0,0 +1,11 @@
+describe Phaad::Generator, 'massign' do
+  it "should multi-assign variables" do
+    compile("a, b = 1, 2").should == "$a = 1;\n$b = 2;"
+    compile('a, b = "foo", /foo/').should == "$a = \"foo\";\n$b = \"/foo/\";"
+    compile("a, b, c = 1, 2, 3").should == "$a = 1;\n$b = 2;\n$c = 3;"
+    compile("a, b, c, d = 1, 2, 3, 4").should == "$a = 1;\n$b = 2;\n$c = 3;\n$d = 4;"
+    compile("a, b, c, d, e, f, g, h, i, j = 1, 1, 2, 3, 5, 8, 13, 21, 34, 55").should ==
+      "$a = 1;\n$b = 1;\n$c = 2;\n$d = 3;\n$e = 5;\n$f = 8;\n$g = 13;\n$h = 21;\n" +
+      "$i = 34;\n$j = 55;"
+  end
+end

data/spec/generator/paren_spec.rb

@@ -0,0 +1,9 @@
+require 'spec_helper'
+
+describe Phaad::Generator, 'paren' do
+  it "should parse statements with parentheses" do
+    compile("(1)").should == "(1);"
+    compile("a + (b c)").should == "$a + (b($c));"
+    compile("a * (b + c * (d + e))").should == "$a * ($b + $c * ($d + $e));"
+  end
+end

data/spec/generator/return_spec.rb

@@ -0,0 +1,8 @@
+require 'spec_helper'
+
+describe Phaad::Generator, 'return' do
+  it "should parse return statements" do
+    compile("return a").should == "return $a;"
+    #TODO: allow return a, b -> return array($a, $b);
+  end
+end

data/spec/generator/string_spec.rb

@@ -0,0 +1,39 @@
+require 'spec_helper'
+
+describe Phaad::Generator, 'string' do
+  it "should parse empty strings" do
+    compile("''").should == '"";'
+    compile('""').should == '"";'
+  end
+  context "escaping" do
+    it "should parse double quotes" do
+      compile(%q{'"'}).should == %q{"\"";}
+      compile(%q{'\"'}).should == %q{"\\\"";}
+      compile(%q{'\\"'}).should == %q{"\\\"";}
+    end
+
+    ##
+    # Ripper parses single quotes the same as double quotes. There's no way to
+    # know if a single quote was used or a double quote was.
+    # it "should respect escape sequences in single and double quotes" do
+    #   compile(%q{"\n"}).should == %q{"\\n";}
+    #   compile(%q{'\n'}).should == %q{"\\\\n";}
+    # end
+  end
+  context "string interpolation" do
+    it "should parse simple interpolation" do
+      compile('"a #{b}"').should == '"a " . $b;'
+      compile('"a #{b c}"').should == '"a " . b($c);'
+    end
+
+    it "should parse complex interpolation" do
+      compile('"a #{b} #{foo("bar", :baz)} "').should ==
+        '"a " . $b . " " . foo("bar", "baz") . " ";'
+    end
+
+    it "should handle empty \#{} properly" do
+      compile('"a #{b} #{} "').should == '"a " . $b . " " . " ";'
+    end
+  end
+end
+

data/spec/generator/ternary_spec.rb

@@ -0,0 +1,7 @@
+require 'spec_helper'
+
+describe Phaad::Generator, 'ternary' do
+  it "should parse simple ternary operations" do
+    compile("a ? b : c").should == "$a ? $b : $c;"
+  end
+end

data/spec/generator/unary_spec.rb

@@ -0,0 +1,14 @@
+describe Phaad::Generator, 'Unary' do
+  it "should parse +" do
+    compile("+a").should == "+$a;"
+  end
+  it "should parse -" do
+    compile("-a").should == "-$a;"
+  end
+  it "should parse ~" do
+    compile("~a").should == "~$a;"
+  end
+  it "should parse !" do
+    compile("!a").should == "!$a;"
+  end
+end

data/spec/generator/while_spec.rb

@@ -0,0 +1,20 @@
+require 'spec_helper'
+
+describe Phaad::Generator, "while" do
+  it "should parse while statements" do
+    compile("while a\nb\nend").should == "while($a) {\n  $b;\n}"
+  end
+
+  it "should parse one line while statements" do
+    compile("b while a").should == "while($a) {\n  $b;\n}"
+  end
+
+  it "should parse until statements" do
+    compile("until a\nb\nend").should == "while(!($a)) {\n  $b;\n}"
+    compile("until a + b\nc\nend").should == "while(!($a + $b)) {\n  $c;\n}"
+  end
+
+  it "should parse one line until statements" do
+    compile("b until a").should == "while(!($a)) {\n  $b;\n}"
+  end
+end

data/spec/generator/whitespace_spec.rb

@@ -0,0 +1,101 @@
+require 'spec_helper'
+
+describe Phaad::Generator, "Whitespace" do
+  it "should correctly parse this huge program" do
+    input = <<EOT
+def complex_hello_world(name = "Foo Bar", greeting = "Howdy")
+  print_greeting greeting
+  print_name name
+  echo "Howdy is cooler!" if greeting != "Howdy"
+  echo "Impossible" unless 1 == 1
+end
+
+def print_name(name)
+  if name == "Foo Bar"
+    i = 0
+    while i < 10
+      echo "Your name is not 'Foo Bar'"
+      i = i + 1
+    end
+  elsif name == "1337"
+    echo "l33t" while true
+  else
+    echo name
+  end
+end
+
+def print_greeting(greeting)
+  if greeting == "Howdy"
+    complex_hello_world "Foo Bar", "Bug"
+    echo greeting until true
+  else
+    echo greeting
+  end
+end
+
+complex_hello_world "Utkarsh"
+EOT
+
+  expected_output = <<EOT
+function complex_hello_world($name = "Foo Bar", $greeting = "Howdy") {
+  print_greeting($greeting);
+  print_name($name);
+  if($greeting != "Howdy") {
+    echo "Howdy is cooler!";
+  }
+  if(!(1 == 1)) {
+    echo "Impossible";
+  }
+}
+function print_name($name) {
+  if($name == "Foo Bar") {
+    $i = 0;
+    while($i < 10) {
+      echo "Your name is not 'Foo Bar'";
+      $i = $i + 1;
+    }
+  } elseif($name == "1337") {
+    while(TRUE) {
+      echo "l33t";
+    }
+  } else {
+    echo $name;
+  }
+}
+function print_greeting($greeting) {
+  if($greeting == "Howdy") {
+    complex_hello_world("Foo Bar", "Bug");
+    while(!(TRUE)) {
+      echo $greeting;
+    }
+  } else {
+    echo $greeting;
+  }
+}
+complex_hello_world("Utkarsh");
+EOT
+
+    compile(input).should == expected_output.chomp
+  end
+
+  it "should parse this class program" do
+input = <<EOT
+class Foo
+  def bar
+    @came = 1
+    return true
+  end
+end
+EOT
+
+expected_output = <<EOT
+class Foo {
+  function bar() {
+    $this->came = 1;
+    return TRUE;
+  }
+}
+EOT
+    compile(input).should == expected_output.chomp
+  end
+end

data/spec/phaad_spec.rb

@@ -4,4 +4,8 @@ describe Phaad do
   it "should have a version" do
     Phaad::VERSION.should be_a(String)
   end
+
+  it "should parse a blank string" do
+    compile("").should == ""
+  end
 end

data/spec/spec_helper.rb

@@ -5,4 +5,10 @@ RSpec.configure do |c|
   def compile(string)
     Phaad::Generator.new(string).emitted
   end
+
+  RSpec::Matchers.define :start_with do |substring|
+    match do |string|
+      string.start_with?(substring)
+    end
+  end
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: phaad
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.0.2
   prerelease: 
 platform: ruby
 authors:
@@ -9,11 +9,33 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2011-05-26 00:00:00.000000000Z
+date: 2011-06-01 00:00:00.000000000Z
 dependencies:
+- !ruby/object:Gem::Dependency
+  name: slop
+  requirement: &75976660 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.6.0
+  type: :runtime
+  prerelease: false
+  version_requirements: *75976660
+- !ruby/object:Gem::Dependency
+  name: fssm
+  requirement: &76004900 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.2.7
+  type: :runtime
+  prerelease: false
+  version_requirements: *76004900
 - !ruby/object:Gem::Dependency
   name: rspec
-  requirement: &78725830 !ruby/object:Gem::Requirement
+  requirement: &76018460 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ~>
@@ -21,7 +43,7 @@ dependencies:
         version: 2.6.0
   type: :development
   prerelease: false
-  version_requirements: *78725830
+  version_requirements: *76018460
 description: A beautiful way to write PHP
 email:
 - utkarshkukreti@gmail.com
@@ -33,6 +55,7 @@ files:
 - .gitignore
 - .rspec
 - Gemfile
+- README.md
 - Rakefile
 - bin/phaad
 - lib/phaad.rb
@@ -40,10 +63,27 @@ files:
 - lib/phaad/generator.rb
 - lib/phaad/version.rb
 - phaad.gemspec
+- spec/generator/array_spec.rb
+- spec/generator/assign_spec.rb
+- spec/generator/binary_spec.rb
+- spec/generator/class_spec.rb
+- spec/generator/constants_spec.rb
+- spec/generator/for_spec.rb
+- spec/generator/function_spec.rb
+- spec/generator/if_spec.rb
+- spec/generator/ivar_spec.rb
 - spec/generator/literal_spec.rb
+- spec/generator/massign_spec.rb
+- spec/generator/paren_spec.rb
+- spec/generator/return_spec.rb
+- spec/generator/string_spec.rb
+- spec/generator/ternary_spec.rb
+- spec/generator/unary_spec.rb
+- spec/generator/while_spec.rb
+- spec/generator/whitespace_spec.rb
 - spec/phaad_spec.rb
 - spec/spec_helper.rb
-homepage: ''
+homepage: https://github.com/utkarshkukreti/phaad/
 licenses: []
 post_install_message: 
 rdoc_options: []