Class: Printer

Inherits:

Object

• Object
• Printer

Defined in:

lib/nendo.rb

Instance Method Summary

• #__write(sexp, readable) ⇒ Object
• #_print(sexp) ⇒ Object
• #_write(sexp) ⇒ Object
• #initialize(debug = false) ⇒ Printer constructor

  A new instance of Printer.

Constructor Details

#initialize(debug = false) ⇒ Printer

Returns a new instance of Printer.

# File 'lib/nendo.rb', line 1142

def initialize( debug = false )
  @debug    = debug
end

Instance Method Details

#__write(sexp, readable) ⇒ Object

# File 'lib/nendo.rb', line 1146

def __write( sexp, readable )
  getQuoteKeyword = lambda { |x|
    case x
    when :quote
      "'"
    when :quasiquote
      "`"
    when :unquote
      ","
    when :unquote_splicing
      ",@"
    when :dot_operator
      "."
    else
      false
    end
  }
  case sexp
  when Cell
    arr = sexp.map { |x| __write( x.car, readable ) }
    lastAtom = sexp.lastAtom
    lastAtom = __write( lastAtom, readable )  if lastAtom
    keyword = getQuoteKeyword.call( sexp.car )
    if keyword
      keyword + arr[1..-1].join( " " ) + (lastAtom ? " . " + lastAtom : "")
    else
      "(" +  arr.join( " " ) + (lastAtom ? " . " + lastAtom : "") + ")"
    end
  when Symbol
    keyword = getQuoteKeyword.call( sexp )
    if keyword
      keyword
    else
      sprintf( "%s", sexp.to_s )
    end
  when String
    if readable
      sprintf( "\"%s\"", sexp.to_s )
    else
      sexp.to_s
    end
  when Nil
    "()"
  when nil
    "nil"
  else
    sprintf( "%s", sexp )
  end
end

#_print(sexp) ⇒ Object

# File 'lib/nendo.rb', line 1196

def _print( sexp )
  self.__write( sexp, false )
end

#_write(sexp) ⇒ Object

# File 'lib/nendo.rb', line 1199

def _write( sexp )
  self.__write( sexp, true  )
end