#--
# DO NOT MODIFY!!!!
# This file is automatically generated by rex 1.0.4
# from lexical definition file "lib/build-tool/cfg/lexer.rex".
#++

require 'racc/parser'
# vim:ft=ruby

#
### HEADER
#
require 'build-tool/cfg/lexer_base.rb'

module BuildTool::Cfg
class Lexer < Racc::Parser
  require 'strscan'

  class ScanError < StandardError ; end

  attr_reader   :lineno
  attr_reader   :filename
  attr_accessor :state

  def scan_setup(str)
    @ss = StringScanner.new(str)
    @lineno =  1
    @state  = nil
  end

  def action(&block)
    yield
  end

  def scan_str(str)
    scan_setup(str)
    do_parse
  end

  def load_file( filename )
    @filename = filename
    open(filename, "r") do |f|
      scan_setup(f.read)
    end
  end

  def scan_file( filename )
    load_file(filename)
    do_parse
  end


  def next_token
    return if @ss.eos?

    text = @ss.peek(1)
    @lineno  +=  1  if text == "\n"
    token = case @state
    when nil
      case
      when (text = @ss.scan(/log-directory\b/))
         action { [ :LOG_DIRECTORY, text ]; }

      when (text = @ss.scan(/include\b/))
         action { [ :INCLUDE, text ]; }

      when (text = @ss.scan(/feature\b/))
         action { [ :FEATURE,       text ]; }

      when (text = @ss.scan(/long\b/))
         action { [ :LONG,          text ]; }

      when (text = @ss.scan(/short\b/))
         action { [ :SHORT,         text ]; }

      when (text = @ss.scan(/description\b/))
         action { [ :DESCRIPTION,   text ]; }

      when (text = @ss.scan(/end\b/))
         action { [ :END,           text ]; }

      when (text = @ss.scan(/enable\b/))
         action { @states.push @state; @state = :ENABLE;       [:ENABLE,       text]; }

      when (text = @ss.scan(/disable\b/))
         action { @states.push @state; @state = :DISABLE;      [:DISABLE,      text]; }

      when (text = @ss.scan(/vcs\b/))
         action { @states.push @state; @state = :VCS;          [:VCS,          text]; }

      when (text = @ss.scan(/build-system\b/))
         action { @states.push @state; @state = :BUILD_SYSTEM; [:BUILD_SYSTEM, text]; }

      when (text = @ss.scan(/server\b/))
         action { @states.push @state; @state = :SERVER;       [:SERVER,       text]; }

      when (text = @ss.scan(/environment\b/))
         action { @states.push @state; @state = :ENVIRONMENT;  [:ENVIRONMENT,  text]; }

      when (text = @ss.scan(/module\b/))
         action { @states.push @state; @state = :MODULE;       [:MODULE,       text]; }

      when (text = @ss.scan(/repository\b/))
         action { @states.push @state; @state = :REPOSITORY;   [:REPOSITORY,   text]; }

      when (text = @ss.scan(/ssh-key\b/))
         action { @states.push @state; @state = :SSH_KEY;      [:SSH_KEY,      text]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :ARCHIVE
      case
      when (text = @ss.scan(/end\b/))
         action { @state = @states.pop; [ :END, text ]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :BUILD_SYSTEM
      case
      when (text = @ss.scan(/option/))
         action { [:OPTION, text]; }

      when (text = @ss.scan(/inplace/))
         action { [:INPLACE, text]; }

      when (text = @ss.scan(/end\b/))
         action { @state = @states.pop; [ :END, text ]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :DISABLE
      case
      when (text = @ss.scan(/feature\b/))
         action { @state = @states.pop; [:FEATURE, text]; }

      when (text = @ss.scan(/module\b/))
         action { @state = @states.pop; [:MODULE, text]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :ENABLE
      case
      when (text = @ss.scan(/feature\b/))
         action { @state = @states.pop; [:FEATURE, text]; }

      when (text = @ss.scan(/module\b/))
         action { @state = @states.pop; [:MODULE, text]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :ENVIRONMENT
      case
      when (text = @ss.scan(/var\b/))
         action { [:VAR,         text] }

      when (text = @ss.scan(/prepend\b/))
         action { [:PREPEND,     text] }

      when (text = @ss.scan(/append\b/))
         action { [:APPEND,      text] }

      when (text = @ss.scan(/set\b/))
         action { [:SET,         text] }

      when (text = @ss.scan(/</))
         action { [:INHERITANCE, text] }

      when (text = @ss.scan(/end\b/))
         action { @state = @states.pop; [:END, text] }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :GIT
      case
      when (text = @ss.scan(/external\b/))
         action { [:EXTERNAL, text]; }

      when (text = @ss.scan(/track-branch\b/))
         action { [:TRACK_BRANCH, text]; }

      when (text = @ss.scan(/remote\b/))
         action { @states.push @state; @state = :REMOTE; [:REMOTE, text]; }

      when (text = @ss.scan(/end\b/))
         action { @state = @states.pop; [ :END, text ]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :MODULE
      case
      when (text = @ss.scan(/build-prefix\b/))
         action { [:BUILD_PREFIX,   text]; }

      when (text = @ss.scan(/</))
         action { [:INHERITANCE,    text]; }

      when (text = @ss.scan(/apply\b/))
         action { [:APPLY,          text ]; }

      when (text = @ss.scan(/patch\b/))
         action { [:PATCH,          text ]; }

      when (text = @ss.scan(/long\b/))
         action { [:LONG,           text ]; }

      when (text = @ss.scan(/description\b/))
         action { [:DESCRIPTION,    text ]; }

      when (text = @ss.scan(/install-prefix\b/))
         action { [:INSTALL_PREFIX, text]; }

      when (text = @ss.scan(/local-path\b/))
         action { [:LOCAL_PATH,     text]; }

      when (text = @ss.scan(/remote-path\b/))
         action { [:REMOTE_PATH,    text]; }

      when (text = @ss.scan(/TEMPLATE\b/))
         action { [:TEMPLATE,       text]; }

      when (text = @ss.scan(/build-system\b/))
         action { @states.push @state; @state = :BUILD_SYSTEM; [:BUILD_SYSTEM, text]; }

      when (text = @ss.scan(/environment\b/))
         action { @states.push @state; @state = :ENVIRONMENT;  [:ENVIRONMENT,  text]; }

      when (text = @ss.scan(/repository\b/))
         action { @states.push @state; @state = :REPOSITORY;   [:REPOSITORY,   text]; }

      when (text = @ss.scan(/use\b/))
         action { @states.push @state; @state = :USE;          [:USE,          text]; }

      when (text = @ss.scan(/vcs\b/))
         action { @states.push @state; @state = :VCS;          [:VCS,          text]; }

      when (text = @ss.scan(/end\b/))
         action { @state = @states.pop; [:END, text]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :REMOTE
      case
      when (text = @ss.scan(/path\b/))
         action { [:PATH, text]; }

      when (text = @ss.scan(/server\b/))
         action { @states.push @state; @state = :SERVER; [:SERVER, text]; }

      when (text = @ss.scan(/use\b/))
         action { @states.push @state; @state = :USE;    [:USE,    text]; }

      when (text = @ss.scan(/end\b/))
         action { @state = @states.pop; [ :END, text ]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :REPOSITORY
      case
      when (text = @ss.scan(/path\b/))
         action { [:PATH, text]; }

      when (text = @ss.scan(/user\b/))
         action { [:USER, text]; }

      when (text = @ss.scan(/server\b/))
         action { @states.push @state; @state = :SERVER;  [:SERVER,  text]; }

      when (text = @ss.scan(/ssh-key\b/))
         action { @states.push @state; @state = :SSH_KEY; [:SSH_KEY, text]; }

      when (text = @ss.scan(/use\b/))
         action { @states.push @state; @state = :USE;     [:USE,     text]; }

      when (text = @ss.scan(/end\b/))
         action { @state = @states.pop; [:END, text]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :SERVER
      case
      when (text = @ss.scan(/protocol\b/))
         action { [:PROTOCOL, text]; }

      when (text = @ss.scan(/server\b/))
         action { [:SERVER,   text]; }

      when (text = @ss.scan(/path\b/))
         action { [:PATH,     text]; }

      when (text = @ss.scan(/host\b/))
         action { [:HOST,     text]; }

      when (text = @ss.scan(/end\b/))
         action { @state = @states.pop; [:END, text]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :SSH_KEY
      case
      when (text = @ss.scan(/file\b/))
         action { [:FILE, text]; }

      when (text = @ss.scan(/end\b/))
         action { @state = @states.pop; [:END, text]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :SVN
      case
      when (text = @ss.scan(/only\b/))
         action { [:ONLY, text]; }

      when (text = @ss.scan(/end\b/))
         action { @state = @states.pop; [ :END, text ]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :USE
      case
      when (text = @ss.scan(/build-system\b/))
         action { @state = @states.pop; [:BUILD_SYSTEM, text]; }

      when (text = @ss.scan(/environment\b/))
         action { @state = @states.pop; [:ENVIRONMENT,  text]; }

      when (text = @ss.scan(/repository\b/))
         action { @state = @states.pop; [:REPOSITORY,   text]; }

      when (text = @ss.scan(/server\b/))
         action { @state = @states.pop; [:SERVER,       text]; }

      when (text = @ss.scan(/ssh-key\b/))
         action { @state = @states.pop; [:SSH_KEY,      text]; }

      when (text = @ss.scan(/vcs\b/))
         action { @state = @states.pop; [:VCS,          text]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, text];   }

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

    when :VCS
      case
      when (text = @ss.scan(/git-svn\b/))
         action { @state = :GIT; [:GIT_SVN, text]; }

      when (text = @ss.scan(/git\b/))
         action { @state = :GIT; [:GIT, text]; }

      when (text = @ss.scan(/svn\b/))
         action { @state = :SVN; [:SVN, text]; }

      when (text = @ss.scan(/archive\b/))
         action { @state = :ARCHIVE; [:ARCHIVE, text]; }

      when (text = @ss.scan(/"([^\"\r\n]*)"/))
         action { [:STRING,  @ss[1]]; }

      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
         action { [:TOKEN,   text];   }

      when (text = @ss.scan(/\#[^\r\n]*/))
         action { [:COMMENT, text];   }

      when (text = @ss.scan(/[ \t]+/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/[\r\n]/))
         action { [:IGNORE,  text];   }

      when (text = @ss.scan(/"([^\"\r\n]*)$/))
         action { [:GARBAGE, text];   }

      when (text = @ss.scan(/./))
         action { [:GARBAGE, 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  # def next_token

    include LexerBase
    def do_parse
        @states = []
        super
    end
end # class
end # module

#
### FOOTER
#