class GameLanguage

# File lib/interpreter/gameLexer.rb, line 54
def _next_token
  text = @ss.peek(1)
  @lineno  +=  1  if text == "\n"
  token = case @state
  when nil
    case
    when (text = @ss.scan(/[ \t]+[a-z]+|[ \t]+[A-Z][a-z]+|[ \t]+[a-z]+\d+|[ \t]+[A-Z][a-z]+\d+/))
       action { [:WORD, text.gsub!(/[\ \t]+/,'')] }

    when (text = @ss.scan(/[ \t]+/))
      ;

    when (text = @ss.scan(/\d+|-\d+/))
       action {[:NUMBER, text.to_i]}

    when (text = @ss.scan(/\d+\.\d+|-\d+\.\d+/))
       action {[:FLOAT, test.to_f]}

    when (text = @ss.scan(/\w+/))
       action {[:FUNCTION, text]}

    else
      text = @ss.string[@ss.pos .. -1]
      raise  ScanError, "can not match: '" + text + "'"
    end  # if

  else
    raise  ScanError, "undefined state: '" + state.to_s + "'"
  end  # case state
  token
end

# File lib/interpreter/gameParser.rb, line 168
def _reduce_none(val, _values, result)
  val[0]
end

# File lib/interpreter/gameLexer.rb, line 23
def action
  yield
end

# File lib/interpreter/gameLexer.rb, line 33
def load_file( filename )
  @filename = filename
  open(filename, "r") do |f|
    scan_setup(f.read)
  end
end

# File lib/interpreter/gameLexer.rb, line 46
def next_token
  return if @ss.eos?
  
  # skips empty actions
  until token = _next_token or @ss.eos?; end
  token
end

# File lib/interpreter/gameLexer.rb, line 40
def scan_file( filename )
  load_file(filename)
  do_parse
end

# File lib/interpreter/gameLexer.rb, line 17
def scan_setup(str)
  @ss = StringScanner.new(str)
  @lineno =  1
  @state  = nil
end

# File lib/interpreter/gameLexer.rb, line 27
def scan_str(str)
  scan_setup(str)
  do_parse
end

# File lib/interpreter/gameLexer.rb, line 86
def tokenize(code)
  scan_setup(code)
  tokens = []
  while token = next_token
    tokens << token
  end
  tokens
end