class BrainFuck

# File lib/r-fxxk.rb, line 8
def self.bf_mapping
  @bf_operations ||= {nxt: '>', prv: '<', inc: '+', dec: '-', put: '.',  get: ',', opn: '[', cls: ']' }
end

# File lib/r-fxxk.rb, line 12
def self.default_mapping
  @default_mapping ||= bf_mapping.clone
end

# File lib/r-fxxk.rb, line 2
def initialize(options = {})
  self.class.default_mapping.each do |key, default|
    operations[key] = options.has_key?(key) ? options[key] : default
  end
end

# File lib/r-fxxk.rb, line 26
def compile(src)
  Brainfuck.new.translate(self, src)
end

# File lib/r-fxxk.rb, line 48
def fuck(src)
  src = compile(src)
  ptr = 0
  cur = 0
  cell = Array.new(3000) { 0 }
  output = []
  inv = self.class.bf_mapping.invert
  reg = Regexp.compile "(#{self.class.bf_mapping.values.map{|v| Regexp.quote(v) }.join('|')})"
  while matches = reg.match(src, cur)
    next_cur = nil
    case inv[matches[1]]
    when :nxt
      ptr += 1
    when :prv
      ptr -= 1
    when :inc
      cell[ptr] += 1
    when :dec
      cell[ptr] -= 1
    when :put
      output << cell[ptr].chr
    when :get
    when :opn
      if cell[ptr] == 0
        open_count = 1
        buf_cur = cur
        while open_count > 0
          open_count.times do
            next_cur = src.index(self.class.bf_mapping[:cls], buf_cur)
            open_count = src[buf_cur+1..next_cur].count(self.class.bf_mapping[:opn])
            buf_cur = next_cur
          end
        end
        next_cur = next_cur + 1
      end
    when :cls
      close_count = 1
      buf_cur = cur
      while close_count > 0
        close_count.times do
          next_cur = src.rindex(self.class.bf_mapping[:opn], buf_cur)
          close_count = src[next_cur..buf_cur-1].count(self.class.bf_mapping[:cls])
          buf_cur = next_cur
        end
      end
    end
    cur = next_cur || src.index(reg, cur) + matches[1].length
  end
  output.join
end

# File lib/r-fxxk.rb, line 44
def hello_world
  translate(Brainfuck, '>+++++++++[<++++++++>-]<.>+++++++[<++++>-]<+.+++++++..+++.[-]>++++++++[<++++>-]<.>+++++++++++[<+++++>-]<.>++++++++[<+++>-]<.+++.------.--------.[-]>++++++++[<++++>-]<+.[-]++++++++++.')
end

# File lib/r-fxxk.rb, line 16
def operations
  @operations ||= {}
end

# File lib/r-fxxk.rb, line 30
def translate(other, src)
  other = other.new if other.kind_of?(Class)
  cur = 0
  inv = other.operations.invert
  reg = Regexp.compile "(#{other.operations.values.map{|v| Regexp.quote(v) }.join('|')})"
  dst = ''
  while matches = reg.match(src, cur)
    op = inv[matches[1]]
    dst += operations[op]
    cur = src.index(reg, cur) + matches[1].length
  end
  dst
end