#!/usr/bin/ruby -w
# HQ9+ Interpreter written in Ruby, by cypher

$accumulator = 0

def hq9plus( source )
    source.downcase.each_byte do |command|
        case command
        when ?h
            puts "Hello World!"
        when ?q
            puts source
        when ?9
            99.downto 1 do |num|
                puts <<BEER
#{num} bottle#{num>1?'s':''} of beer on the wall
#{num} bottle#{num>1?'s':''} of beer
take one down, pass it around,
#{num-1!=0?num-1:"no more"} bottle#{num!=2?'s':''} of beer on the wall

BEER
            end
        when ?+
            $accumulator += 1
        else
            raise "#{command} is not a valid HQ9+-Command!"
        end
    end
end

if __FILE__ == $0
    source = IO.read(ARGV[0]).chomp
    hq9plus( source.gsub( /[^hq9\+]/i, '' ) )
end

kosh:~/devel/hq9+/ cat test.hq
HHQ+HQ++
kosh:~/devel/hq9+/ ./hq9+.rb test.hq
Hello World!
Hello World!
HHQ+HQ++
Hello World!
HHQ+HQ++

#!/usr/bin/ruby -w
s=IO.read($*[0]).chomp.gsub(/[^hq9\+]/i,'');a=0;s.downcase.each_byte{|c|
c==?h? ($><< "Hello World!\n"):();c==?q? ($><< s+10.chr):();c==?+? (a+=1):();c==?9 ?(99.downto(1){|n|$><<<<BEER}):()}
#{n} bottle#{n>1?'s':''} of beer on the wall
#{n} bottle#{n>1?'s':''} of beer
take one down, pass it around,
#{n-1!=0?n-1:"no more"} bottle#{n!=2?'s':''} of beer on the wall

BEER

class Ook
@@i = 0;@@m = Array.new(30000){0};@@mp = 0
@@symbols = {'.?' => [:inc_ptr,lambda{|i,mem| i + 1}],
 '?.' => [:dec_ptr,lambda{|i,mem| i - 1}],
'..' => [:inc_val,lambda{|i,mem| mem[i] +=1; i }],
'!!' => [:dec_val,lambda{|i,mem| mem[i] -=1; i }],
'!.' => [:out,lambda{|i,mem| $><< mem[i].chr;
        $>.flush; i }],
'.!' => [:in,lambda{|i,mem| mem[i] = $<.getc; i}],
'!?' => [:jz,lambda{|i,mem| mem[i] == 0 }],
'?!' => [:jnz,lambda{|i,mem| mem[i] != 0}]
}.freeze  
def self.[](file)
c=IO.read(file).chomp.scan(/Ook([\.\?!]) +Ook([\.\?!])/).
compact.collect{|i|@@symbols[i.join][0]}
until @@i >= c.size
if c[@@i] == :jz
if @@symbols.values.assoc(c[@@i])[1].call(@@mp,@@m)
@@i+=1;s=1
begin(s += 1 and next) if c[@@i] == :jz;
(s -= 1 and next) if c[@@i] == :jnz
@@i += 1 end until @@i > c.size || s == 0
end; @@i +=1 and next elsif c[@@i] == :jnz
if @@symbols.values.assoc(c[@@i])[1].call(@@mp,@@m)
@@i -= 1;s = 1
begin(s -= 1 and next) if c[@@i] == :jz
(s += 1 and next) if c[@@i] == :jnz
@@i -= 1 end until @@i < 0 || s == 0
end; @@i+=1 and next else
@@mp = @@symbols.values.assoc(c[@@i])[1].call(@@mp,@@m)
@@i += 1 end end end end

require 'Ook'
Ook['dateiname']

s = {'.?' => 'i+=1;',
        '?.' => 'i-=1;',
        '..' => 'm[i]+=1;',
        '!!' => 'm[i]-=1;',
        '!.' => '$><<m[i].chr;',
        '.!' => 'm[i]=$<.getc;',
        '!?' => 'while(m[i]!=0);',
        '?!' => 'end;'
     }
eval 'm=[0]*30000;i=0;' << IO.read($*[0]).scan(/Ook([\.\?!]) *Ook([\.\?!])/).collect{|i| s[i.join]}.join

#!/usr/bin/env ruby  
s={'.?'=>'i+=1;','?.'=>'i-=1;','..'=>'m[i]+=1;','!!'=>'m[i]-=1;',
'!.'=>'$><<m[i].chr;','.!'=>'m[i]=$<.getc;','!?'=>'while(m[i]!=0);','?!'=>'end;'}
eval'm=[0]*30000;i=0;'<<IO.read($*[0]).scan(/Ook([\.\?!]) *Ook([\.\?!])/).
map{|i|s[i.join]}.join

#!/usr/bin/ruby -w
# HQ9++ Interpreter written in Ruby, by cypher

class HelloWorld
    def execute
        puts "Hello World!"
    end
end

class Quine
    attr_reader :source

    def initialize source
        @source = source
    end

    def execute
        puts source
    end
end

class BeerSong
    def execute
        99.downto 1 do |num|
            puts <<BEER
#{num} bottle#{num>1?'s':''} of beer on the wall
#{num} bottle#{num>1?'s':''} of beer
take one down, pass it around,
#{num-1!=0?num-1:"no more"} bottle#{num!=2?'s':''} of beer on the wall

BEER
            puts "No more bottles of beer on the wall\nOh noes!"
        end
    end
end

$accumulator = 0

class IncreaseAccumulator
    def execute
        $accumulator += 1
    end
end

class IncreaseAccumulatorAndCreateANewObject
    def execute
        $accumulator += 1
        (@@objects ||= []) << Object.new
    end
end

class HQNinePlusPlus
    def initialize source
        @source = source
        @hello_worlds = []
        @quines = []
        @beer_songs = []
        @increase_accumulators = []
        @increase_accumulator_and_create_new_objects = []
    end

    def parse
        accumulator_flag = false
        @source.downcase.each_byte do |command|
            case command
            when ?h
                @hello_worlds << HelloWorld.new
                @hello_worlds.last.execute
            when ?q
                @quines << Quine.new( @source )
                @quines.last.execute
            when ?9
                @beer_songs << BeerSong.new
                @beer_songs.last.execute
            when ?+
                if accumulator_flag == true
                    @increase_accumulator_and_create_new_objects << IncreaseAccumulatorAndCreateANewObject.new
                    @increase_accumulator_and_create_new_objects.last.execute
                else
                    @increase_accumulators << IncreaseAccumulator.new
                    @increase_accumulators.last.execute
                    accumulator_flag = true
                    next
                end
            else
                raise "#{command} is not a valid HQ9++-Command!"
            end
            accumulator_flag = false
        end
    end
end

if __FILE__ == $0
    source = IO.read(ARGV[0]).chomp
    parser = HQNinePlusPlus.new( source.gsub( /[^hq9\+]/i, '' ) )
    parser.parse
end

#!/usr/bin/env ruby


INPUT = 'Factor:_ ?a%
Until:_ ?u%
 {a _*_ i(1..u) _=_ (a * i)}'


$vars = {}
$out = ""

class Var
        def initialize(val)
                @val = val
        end
        def to_i
                Int.new(@val.to_i)
        end
        def to_s
                Str.new(@val.to_s)
        end
        attr_accessor :val
end

class Str < Var
        def +(v)
                @val + v.to_s
        end
        def *(v)
                @val * v.to_i
        end
end

class Int < Var
        def +(v)
                @val + v.to_i
        end
        def *(v)
                @val * v.to_i
        end
        def /(v)
                @val / v.to_i
        end
        def -(v)
                @val - v.to_i
        end
end



def out_err err
        puts err
        exit
end

def read_str(str)
        nstr = str.gsub(/\((\w+)\s*([+\-*\/])\s*(\w+)\)/) {
                if (t=$vars.fetch($1, $1.to_i)).kind_of?(Integer) or t.kind_of?(Int)
                        v1 = t
                else
                        out_err "Wrong type of variable!"
                end
                if (t=$vars.fetch($3, $3.to_i)).kind_of?(Integer) or t.kind_of?(Int)
                        v2 = t
                else
                        out_err "Wrong type of variable!"
                end
                case $2
                        when '+' then result = v1 + v2
                        when '-' then result = v1 - v2
                        when '*' then result = v1 * v2
                        when '/' then result = v1 / v2
                end
        }
        nstr.split(" ").each { |p|
                if p =~ /\A\?([A-Za-z])(\%?)/
                        $vars[$1] = STDIN.gets.chomp
                        $vars[$1] = $vars[$1].to_i if $2 == '%'
                        return
                end
                print $vars.fetch(p, p).to_s.gsub("_", " ")
        }
        puts
end



INPUT.each_line { |code|
        if code =~ /\A\s(.*)/        # code
                block = $1
                if block =~ /\A\{(.*?([A-Za-z]+))\((\w+)(\.\.\.?)(\w+)\)(.*)\}\z/
                        string = $1 + $6
                        counter = $2
                        rstart = $vars.fetch($3, $3.to_i)
                        rend = $vars.fetch($5, $5.to_i)
                        rtype = $4
                        # analyse range
                        $vars[counter] = Int.new(0)
                        range = (rtype == ".." ? (rstart..rend) : (rstart...rend))
                        for i in range
                                $vars[counter] += 1
                                read_str(string)
                        end
                end
        else
                read_str(code)
        end
}