class RPStringScanner

# File lib/rp_stringscanner.rb, line 29
def d o
  STDERR.puts o.inspect
end

# File lib/rp_stringscanner.rb, line 5
def getch
  c = super
  where = caller.drop_while { |s| s =~ /(getch|nextc).$/ }.first
  where = where.split(/:/).first(2).join(":")
  if ENV["TALLY"] then
    d getch:where
  else
    d getch:[c, where]
  end
  c
end

# File lib/rp_stringscanner.rb, line 17
def scan re
  s = super
  where = caller.drop_while { |x| x =~ /scan.$/ }.first
  where = where.split(/:/).first(2).join(":")
  if ENV["TALLY"] then
    d scan:[where]
  else
    d scan:[s, where] if s
  end
  s
end