build-tool 0.4.4 → 0.4.5

data/lib/build-tool/cfg/lexer.rb

@@ -0,0 +1,710 @@
+#--
+# DO NOT MODIFY!!!!
+# This file is automatically generated by rex 1.0.5
+# from lexical definition file "lib/build-tool/cfg/lexer.rex".
+#++
+
+require 'racc/parser'
+# vim:ft=ruby
+
+#
+### HEADER
+#
+require 'build-tool/cfg/lexer_base.rb'
+
+class BuildTool::Cfg::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
+    yield
+  end
+
+  def scan_str(str)
+    scan_setup(str)
+    do_parse
+  end
+  alias :scan :scan_str
+
+  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?
+    
+    # skips empty actions
+    until token = _next_token or @ss.eos?; end
+    token
+  end
+
+  def _next_token
+    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(/prepend/))
+         action { [:PREPEND, text]; }
+
+      when (text = @ss.scan(/append/))
+         action { [:APPEND,  text]; }
+
+      when (text = @ss.scan(/set/))
+         action { [:SET,     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 = :REPOSITORY; [: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 :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(/use\b/))
+         action { @states.push @state; @state = :USE;     [:USE,     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
+
+#
+### FOOTER
+#
+