Class: Sexp2Ruby::Node::Case

Inherits:
Base
  • Object
show all
Defined in:
lib/sexp2ruby/node/case.rb

Constant Summary

Constants inherited from Base

Base::ASSIGN_NODES, Base::LF, Base::LINE_LENGTH

Instance Attribute Summary

Attributes inherited from Base

#processor

Instance Method Summary collapse

Methods inherited from Base

#initialize

Constructor Details

This class inherits a constructor from Sexp2Ruby::Node::Base

Instance Method Details

#to_s(exp) ⇒ Object 



4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
# File 'lib/sexp2ruby/node/case.rb', line 4

def to_s(exp)
  result = []
  expr = process exp.shift
  if expr
    result << "case #{expr}"
  else
    result << "case"
  end
  until exp.empty?
    pt = exp.shift
    if pt and pt.first == :when
      result << "#{process(pt)}"
    else
      code = indent(process(pt))
      code = indent("# do nothing") if code =~ /^\s*$/
      result << "else\n#{code}"
    end
  end
  result << "end"
  result.join(LF)
end