xezat 0.0.1

data/lib/xezat/command/create.rb

@@ -0,0 +1,105 @@
+require 'erb'
+require 'facets/file/atomic_write'
+require 'json'
+require 'xezat/commands'
+require 'xezat/cygclasses'
+
+module Xezat
+  # 指定された repository が存在しない場合に投げられる例外
+  class NoSuchRepositoryError < StandardError
+  end
+
+  # cygport を上書き許可なしで上書きしようとした場合に投げられる例外
+  class UnoverwritableConfigurationError < StandardError
+  end
+
+  # 指定された cygclass が存在しない場合に投げられる例外
+  class NoSuchCygclassError < StandardError
+  end
+
+  # VCS が複数指定された場合に投げられる例外
+  class CygclassConflictError < StandardError
+  end
+
+  module Command
+    # 新しい cygport ファイルを生成する
+    class Create
+      def initialize(program)
+        program.command(:create) do |c|
+          c.syntax 'create [options] cygport'
+          c.description 'create new cygport'
+          c.option 'apponly', '-a', '--app-only', 'application only'
+          c.option 'category', '-c', '--category category', String, 'specify category'
+          c.option 'description', '--description description', String, 'specify description'
+          c.option 'inherit', '-i', '--inherit cygclass', Array, 'inherit cygclasses'
+          c.option 'overwrite', '-o', '--overwrite', 'overwrite cygport'
+          c.option 'repository', '--repository repository', String, 'specify repository (github, google, sourceforge)'
+          c.option 'summary', '-s', '--summary summary', String, 'specify summary'
+          c.action do |args, options|
+            execute(c, args, options)
+          end
+        end
+      end
+
+      CommandManager::register(:create, self)
+
+      def execute(c, args, options)
+        cygport = args.shift
+        raise ArgumentError, 'wrong number of arguments (0 for 1)' unless cygport
+        c.logger.info "ignore extra arguments: #{args.to_s}" unless args.empty?
+
+        repository_variables = self.get_repository_variables(options['repository'])
+
+        raise UnoverwritableConfigurationError, "#{cygport} already exists" if File::exist?(cygport) && !options['overwrite']
+
+        cygclasses = options['inherit'] || []
+        template_variables = get_template_variables(repository_variables, CygclassManager.new, cygclasses)
+        File::atomic_write(cygport) do |f|
+          f.write(get_cygport(template_variables, options['category'], options['summary'], options['description'], options['apponly'], cygclasses, cygport))
+        end
+      end
+
+      # repository からデフォルトのシェル変数群を取得する
+      def get_repository_variables(repository)
+        if repository
+          repository_file = File::expand_path(File::join(REPOSITORY_DIR, "#{repository}.json"))
+          if FileTest::exists?(repository_file) && FileTest::readable?(repository_file)
+            repository_variables = JSON.parse(File::read(repository_file), {:symbolize_names => true})
+          else
+            raise NoSuchRepositoryError, "No such repository: #{template}"
+          end
+        else
+          {
+            :HOMEPAGE => '',
+            :SRC_URI => ''
+          }
+        end
+      end
+
+      # 他のパラメータからテンプレートに埋め込むシェル変数群を取得する
+      def get_template_variables(original_template_variables, cygclass_manager, cygclasses)
+        vcs_class = nil
+        vcs_prefix = 'SRC'
+        cygclasses.each do |cygclass|
+          raise NoSuchCygclassError, "No such cygclass: #{cygclass}" unless cygclass_manager.include?(cygclass.intern)
+          if cygclass_manager.vcs?(cygclass.intern)
+            raise CygclassConflictError, "#{cygclass} conflict with #{vcs_class}" if vcs_class
+            vcs_class = cygclass
+          end
+        end
+        vcs_prefix = vcs_class.to_s.upcase if vcs_class
+        vcs_uri = "#{vcs_prefix}_URI".intern
+        {
+          :HOMEPAGE => original_template_variables[:HOMEPAGE],
+          vcs_uri => original_template_variables[vcs_uri]
+        }
+      end
+
+      # シェル変数群を埋め込まれたテンプレート文字列を返す
+      def get_cygport(template_variables, category, summary, description, apponly, cygclasses, cygport)
+        erb = File::expand_path(File::join(TEMPLATE_DIR, 'cygport.erb'))
+        ERB.new(File::readlines(erb).join(nil), nil, '%-').result(binding)
+      end
+    end
+  end
+end

data/lib/xezat/command/debug.rb

@@ -0,0 +1,30 @@
+require 'pp'
+require 'xezat/commands'
+require 'xezat/variables'
+
+module Xezat
+  module Command
+    # 変数を表示する
+    class Debug
+      def initialize(program)
+        program.command(:debug) do |c|
+          c.syntax 'debug cygport'
+          c.description 'show cygport variables'
+          c.action do |args, options|
+            execute(c, args, options)
+          end
+        end
+      end
+
+      CommandManager::register(:debug, self)
+
+      def execute(c, args, options)
+        cygport = args.shift
+        raise ArgumentError, 'wrong number of arguments (0 for 1)' unless cygport
+        c.logger.info "ignore extra arguments: #{args.to_s}" unless args.empty?
+
+        pp VariableManager::get_default_variables(cygport)
+      end
+    end
+  end
+end

data/lib/xezat/command/doctor.rb

@@ -0,0 +1,45 @@
+require 'xezat/commands'
+require 'zlib'
+
+module Xezat
+  module Command
+    # package tree が健全であるかどうかを診断する
+    class Doctor
+      def initialize(program)
+        program.command(:doctor) do |c|
+          c.syntax 'doctor'
+          c.description 'diagnose installed packages'
+          c.action do |args, options|
+            execute(c, args, options)
+          end
+        end
+      end
+
+      CommandManager::register(:doctor, self)
+
+      def execute(c, args, options)
+        get_contents_uniqueness.each do |path, pkg|
+          c.logger.warn "#{path} is in multiple packages: #{pkg}" if pkg.length > 1
+        end
+      end
+
+      def get_contents_uniqueness(path = '/etc/setup')
+        content2pkg = {}
+        Dir.glob(File.join(path, '*.lst.gz')) do |lst|
+          pkg = File.basename(lst, '.lst.gz').intern
+          Zlib::GzipReader.open(lst) do |gz|
+            gz.each_line do |line|
+              line.strip!
+              unless line.end_with?('/')
+                path = line.intern
+                content2pkg[path] = [] unless content2pkg.key?(path)
+                content2pkg[path] << pkg
+              end
+            end
+          end
+        end
+        content2pkg
+      end
+    end
+  end
+end

data/lib/xezat/command/generate.rb

@@ -0,0 +1,50 @@
+require 'xezat/commands'
+require 'xezat/variables'
+
+module Xezat
+  # 生成するファイルを上書き許可なしで上書きしようとした場合に投げられる例外
+  class UnregeneratableConfigurationError < StandardError
+  end
+
+  module Command
+    # 追加のファイルを生成する
+    class Generate
+      def initialize(program)
+        program.command(:generate) do |c|
+          c.syntax 'generate [options] cygport'
+          c.description 'generate additional files'
+          c.option 'cmake', '-c', '--cmake', 'generate *.cmake'
+          c.option 'overwrite', '-o', '--overwrite', 'overwrite file'
+          c.option 'pc', '-p', '--pkg-config', 'generate *.pc'
+          c.action do |args, options|
+            execute(c, args, options)
+          end
+        end
+      end
+
+      CommandManager::register(:generate, self)
+
+      def execute(c, args, options)
+        cygport = args.shift
+        raise ArgumentError, 'wrong number of arguments (0 for 1)' unless cygport
+        c.logger.info "ignore extra arguments: #{args.to_s}" unless args.empty?
+
+        variables = VariableManager::get_default_variables(cygport)
+
+        if options['pc']
+          pc = File::expand_path(File::join(variables[:S], "#{variables[:PN]}.pc.in"))
+          raise UnregeneratableConfigurationError, "#{variables[:PN]}.pc.in already exists" if File::exist?(pc) && !options['overwrite']
+          File::atomic_write(pc) do |f|
+            f.write(get_package_config(variables))
+          end
+        end
+      end
+
+      # シェル変数群を埋め込まれたテンプレート文字列を返す
+      def get_package_config(variables)
+        erb = File::expand_path(File::join(TEMPLATE_DIR, 'pkgconfig.erb'))
+        ERB.new(File::readlines(erb).join(nil), nil, '%-').result(binding)
+      end
+    end
+  end
+end

data/lib/xezat/command/validate.rb

@@ -0,0 +1,43 @@
+require 'xezat/commands'
+require 'xezat/validators'
+require 'xezat/variables'
+
+module Xezat
+  module Command
+    # package が妥当であるかを検証する
+    class Validate
+      def initialize(program)
+        program.command(:validate) do |c|
+          c.syntax 'validate [options] cygport'
+          c.description 'validate package contents'
+          c.action do |args, options|
+            execute(c, args, options)
+          end
+        end
+      end
+
+      CommandManager::register(:validate, self)
+
+      def execute(c, args, options)
+        cygport = args.shift
+        raise ArgumentError, 'wrong number of arguments (0 for 1)' unless cygport
+        c.logger.info "ignore extra arguments: #{args.to_s}" unless args.empty?
+        variables = VariableManager::get_default_variables(cygport)
+        ValidatorManager::load_default_validators
+        ValidatorManager::validate(variables).each do |name, result|
+          if result[:result].nil?
+            c.logger.info "Validate #{name} ... skip"
+          else
+            if result[:result]
+              c.logger.info "Validate #{name} ... OK"
+            else
+              c.logger.warn "Validate #{name} ... NG"
+              c.logger.warn result[:detail]
+            end
+          end
+        end
+
+      end
+    end
+  end
+end

data/lib/xezat/commands.rb

@@ -0,0 +1,32 @@
+module Xezat
+  # command が多重定義された場合に投げられる例外
+  class MultipleCommandDefinitionError < StandardError
+  end
+
+  # command を管理するクラス
+  class CommandManager
+    @@commands = {}
+
+    # command を登録する
+    def self.register(name, klass)
+      raise MultipleCommandDefinitionError, "'#{name}' already defined" if @@commands.key?(name)
+      @@commands[name] = klass.new(@@program)
+    end
+
+    # command をロードする
+    def self.load_default_commands(path = File::expand_path(File::join(File::dirname(__FILE__), 'command')))
+      Dir::glob(File::join(path, '*.rb')) do |rb|
+        require rb
+      end
+    end
+
+    def self.program=(program)
+      @@program = program
+    end
+    
+    def self.[](name)
+      @@commands[name]
+    end
+
+  end
+end

data/lib/xezat/cygchangelog.rb

@@ -0,0 +1,53 @@
+require 'rubygems'
+
+module Xezat
+  # package の changelog を管理するクラス
+  class Cygchangelog
+    def initialize(str = '')
+      @changelogs = str.empty? ? {} : nil
+      version = nil
+      str.each_line do |line|
+        line.rstrip!
+        if /^Port Notes:$/ === line
+          @changelogs = {}
+        else
+          unless @changelogs.nil?
+            if match_data = /^----- version (.+) -----$/.match(line)
+              version = match_data[1].intern
+            else
+              if match_data = /^(.+)$/.match(line)
+                raise ReadmeSyntaxException, "Version missing" if version.nil?
+                if @changelogs.key?(version)
+                  @changelogs[version] << $/ << match_data[1]
+                else
+                  @changelogs[version] = match_data[1]
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+
+    def [](key)
+      @changelogs[key]
+    end
+
+    def []=(key, value)
+      @changelogs[key] = value
+    end
+
+    def key?(key)
+      @changelogs.key?(key)
+    end
+
+    def each(&block)
+      @changelogs.sort do |a, b|
+        - (Gem::Version.new(a[0]) <=> Gem::Version.new(b[0]))
+      end.each do |k, v|
+        block.call(k, v)
+      end
+    end
+
+  end
+end

data/lib/xezat/cygclasses.rb

@@ -0,0 +1,33 @@
+require 'xezat'
+
+module Xezat
+  # cygclass を管理するクラス
+  class CygclassManager
+    def initialize(cygclass_dir = '/usr/share/cygport/cygclass')
+      @cygclasses = []
+      @vcs_cygclassess = []
+      if Dir.exists?(cygclass_dir)
+        Dir.glob(File.join(cygclass_dir, '*.cygclass')) do |filename|
+          cygclass = File::basename(filename, '.cygclass')
+          @cygclasses << cygclass.intern
+          File::foreach(filename) do |line|
+            @vcs_cygclassess << cygclass.intern if "readonly -f #{cygclass}_fetch" == line.strip
+          end
+        end
+      end
+    end
+
+    def include?(cygclass)
+      @cygclasses.include?(cygclass)
+    end
+
+    def vcs?(cygclass)
+      @vcs_cygclassess.include?(cygclass)
+    end
+
+    def vcs()
+      @vcs_cygclassess
+    end
+
+  end
+end

data/lib/xezat/detector/autoconf.rb

@@ -0,0 +1,16 @@
+require 'find'
+require 'xezat/detectors'
+
+module Xezat
+  module Detector
+    class Autoconf
+      DetectorManager::register(:autoconf, self)
+      def detect(variables)
+        Find::find(variables[:S]) do |file|
+          return true if file.end_with?(File::SEPARATOR + 'configure.ac') || file.end_with?(File::SEPARATOR + 'configure.in')
+        end
+        false
+      end
+    end
+  end
+end

data/lib/xezat/detector/automake.rb

@@ -0,0 +1,16 @@
+require 'find'
+require 'xezat/detectors'
+
+module Xezat
+  module Detector
+    class Automake
+      DetectorManager::register(:automake, self)
+      def detect(variables)
+        Find::find(variables[:S]) do |file|
+          return true if file.end_with?(File::SEPARATOR + 'Makefile.am')
+        end
+        false
+      end
+    end
+  end
+end

data/lib/xezat/detector/boost.m4.rb

@@ -0,0 +1,20 @@
+require 'find'
+require 'xezat/detectors'
+
+module Xezat
+  module Detector
+    class BoostM4
+      DetectorManager::register(:'boost.m4', self)
+      def detect(variables)
+        Find::find(variables[:S]) do |file|
+          if file.end_with?(File::SEPARATOR + 'configure.ac') || file.end_with?(File::SEPARATOR + 'configure.in')
+            File::foreach(file) do |line|
+              return true if line.lstrip.start_with?('BOOST_REQUIRE')
+            end
+          end
+        end
+        false
+      end
+    end
+  end
+end