Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 17 lines (14 sloc) 282 Bytes
#!/usr/bin/env ruby
def evalify(c)
o = File.read('eval.l').sub(/; TEST.*/ms, '')
o.sub!(/;.*/, '')
c.lines.each do |line|
line.sub!(/;.*/, '')
next if line =~ /^$/
o += "(eval (quote #{line.chomp}))\n"
end
o
end
if $0 == __FILE__
puts evalify($<.read)
end