stack lang

stackr.rb

#!/usr/bin/env ruby

def push(element); $stack << element; end
def pop; $stack.pop end
$stack = []

$dictionary = {
  '.'     => -> { puts(pop) },
  '..'    => -> { puts($stack) },
  '.,'    => -> { pp($dictionary)},
  'words' => -> { p $dictionary.keys.sort },
}

def parse(expression)
  puts "=> #{expression}"
  begin
    expression.split.each do |statement| case; when $dictionary.has_key?(statement); $dictionary[statement].call; when statement == Integer; push statement.to_i; else push statement.to_str
      end; end; end; end

puts "stackr."
while ARGV.size > 0; open(ARGV.shift).each { |line| parse(line) }; end
while true; print "[>] "; break unless gets; parse $_; end