sexp2ruby 0.0.1 → 0.0.2

data/lib/sexp2ruby/node/splat.rb

@@ -0,0 +1,13 @@
+module Sexp2Ruby
+  module Node
+    class Splat < Base
+      def to_s(exp)
+        if exp.empty?
+          "*"
+        else
+          "*#{process(exp.shift)}"
+        end
+      end
+    end
+  end
+end

data/lib/sexp2ruby/node/str.rb

@@ -0,0 +1,9 @@
+module Sexp2Ruby
+  module Node
+    class Str < Base
+      def to_s(exp)
+        exp.shift.dump
+      end
+    end
+  end
+end

data/lib/sexp2ruby/node/super.rb

@@ -0,0 +1,10 @@
+module Sexp2Ruby
+  module Node
+    class Super < Base
+      def to_s(exp)
+        args = finish exp
+        "super(#{args.join(', ')})"
+      end
+    end
+  end
+end

data/lib/sexp2ruby/node/svalue.rb

@@ -0,0 +1,13 @@
+module Sexp2Ruby
+  module Node
+    class Svalue < Base
+      def to_s(exp)
+        code = []
+        until exp.empty? do
+          code << process(exp.shift)
+        end
+        code.join(", ")
+      end
+    end
+  end
+end

data/lib/sexp2ruby/node/to_ary.rb

@@ -0,0 +1,9 @@
+module Sexp2Ruby
+  module Node
+    class ToAry < Base
+      def to_s(exp)
+        process(exp.shift)
+      end
+    end
+  end
+end

data/lib/sexp2ruby/node/true.rb

@@ -0,0 +1,9 @@
+module Sexp2Ruby
+  module Node
+    class True < Base
+      def to_s(exp)
+        "true"
+      end
+    end
+  end
+end

data/lib/sexp2ruby/node/undef.rb

@@ -0,0 +1,9 @@
+module Sexp2Ruby
+  module Node
+    class Undef < Base
+      def to_s(exp)
+        "undef #{process(exp.shift)}"
+      end
+    end
+  end
+end

data/lib/sexp2ruby/node/until.rb

@@ -0,0 +1,9 @@
+module Sexp2Ruby
+  module Node
+    class Until < Base
+      def to_s(exp)
+        cond_loop(exp, 'until')
+      end
+    end
+  end
+end

data/lib/sexp2ruby/node/valias.rb

@@ -0,0 +1,9 @@
+module Sexp2Ruby
+  module Node
+    class Valias < Base
+      def to_s(exp)
+        "alias #{exp.shift} #{exp.shift}"
+      end
+    end
+  end
+end

data/lib/sexp2ruby/node/when.rb

@@ -0,0 +1,24 @@
+module Sexp2Ruby
+  module Node
+    class When < Base
+      def to_s(exp)
+        src = []
+
+        if self.context[1] == :array # ugh. matz! why not an argscat?!?
+          val = process(exp.shift)
+          exp.shift # empty body
+          return "*#{val}"
+        end
+
+        until exp.empty?
+          cond = process(exp.shift).to_s[1..-2]
+          code = indent(finish(exp).join(LF))
+          code = indent "# do nothing" if code =~ /\A\s*\Z/
+          src << "when #{cond} then\n#{code.chomp}"
+        end
+
+        src.join(LF)
+      end
+    end
+  end
+end

data/lib/sexp2ruby/node/while.rb

@@ -0,0 +1,9 @@
+module Sexp2Ruby
+  module Node
+    class While < Base
+      def to_s(exp)
+        cond_loop(exp, 'while')
+      end
+    end
+  end
+end

data/lib/sexp2ruby/node/xstr.rb

@@ -0,0 +1,9 @@
+module Sexp2Ruby
+  module Node
+    class Xstr < Base
+      def to_s(exp)
+        "`#{process_str(exp)[1..-2]}`"
+      end
+    end
+  end
+end

data/lib/sexp2ruby/node/yield.rb

@@ -0,0 +1,18 @@
+module Sexp2Ruby
+  module Node
+    class Yield < Base
+      def to_s(exp)
+        args = []
+        until exp.empty? do
+          args << process(exp.shift)
+        end
+
+        if args.empty?
+          "yield"
+        else
+          "yield(#{args.join(', ')})"
+        end
+      end
+    end
+  end
+end

data/lib/sexp2ruby/node/zsuper.rb

@@ -0,0 +1,9 @@
+module Sexp2Ruby
+  module Node
+    class Zsuper < Base
+      def to_s(exp)
+        "super"
+      end
+    end
+  end
+end