A fork of Crisp for HARP
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
 

41 linhas
1.2 KiB

require "./types"
module Crisp
class Printer
def initialize(@print_readably = true)
end
def print(value)
case value
when Nil then "nil"
when Bool then value.to_s
when Int32 then value.to_s
when Crisp::List then "(#{value.map{|v| print(v) as String}.join(" ")})"
when Crisp::Vector then "[#{value.map{|v| print(v) as String}.join(" ")}]"
when Crisp::Symbol then value.str.to_s
when Crisp::Func then "<function>"
when Crisp::Closure then "<closure>"
when Crisp::HashMap
# step1_read_print.cr requires specifying type
"{#{value.map{|k, v| "#{print(k)} #{print(v)}"}.join(" ")}}"
when String
case
when value.empty?()
@print_readably ? value.inspect : value
when value[0] == '\u029e'
":#{value[1..-1]}"
else
@print_readably ? value.inspect : value
end
when Crisp::Atom
"(atom #{print(value.val)})"
else
raise "invalid CrispType: #{value.to_s}"
end
end
def print(t : Crisp::Type)
print(t.unwrap) + (t.macro? ? " (macro)" : "")
end
end
end