pkg_noisrev 0.0.1

data/lib/pkg_noisrev/trestle.rb

@@ -0,0 +1,222 @@
+# :erb:
+require 'yaml'
+require 'shellwords.rb'
+require 'optparse'
+require 'pp'
+require 'open4'
+
+require_relative 'meta'
+
+# :include: ../../README.rdoc
+module Pkg_noisrev
+
+  class Trestle
+
+    # Execute _cmd_ and return a list [exit_status, stderr,
+    # stdout]. Very handy.
+    def self.cmd_run(cmd)
+      so = sr = ''
+      status = Open4::popen4(cmd) { |pid, stdin, stdout, stderr|
+        so = stdout.read
+        sr = stderr.read
+      }
+      [status.exitstatus, sr, so]
+    end
+
+    # Return a directory with program libraries.
+    def self.gem_libdir
+      t = ["#{File.dirname(File.realpath($0))}/../lib/#{Pkg_noisrev::Meta::NAME}",
+           "#{Gem.dir}/gems/#{Pkg_noisrev::Meta::NAME}-#{Pkg_noisrev::Meta::VERSION}/lib/#{Pkg_noisrev::Meta::NAME}",
+           "lib/#{Pkg_noisrev::Meta::NAME}"]
+      t.each {|i| return i if File.readable?(i) }
+      fail "all paths are invalid: #{t}"
+    end
+
+    # Analogue to shell command +which+.
+    def self.in_path?(file)
+      return true if file =~ %r%\A/% and File.exist? file
+
+      ENV['PATH'].split(File::PATH_SEPARATOR).any? do |path|
+        File.exist? File.join(path, file)
+      end
+    end
+
+    # Print an error message _t_ and exit if _ec_ > 0.
+    def self.errx(ec, t)
+      $stderr.puts File.basename($0) + ' error: ' + t.to_s
+      exit ec if ec > 0
+    end
+
+    # Print a warning.
+    def self.warnx(t)
+      $stderr.puts File.basename($0) + ' warning: ' + t.to_s
+    end
+
+    # #veputs uses this to decide to put a newline or not to put.
+    NNL_MARK = '__NNL__'
+
+    # Use this in your CL options to check if modifying some variable is
+    # not an idempotent act.
+    attr_reader :cl_opt_protect
+
+    # [conf] Typically must be a reference to some global variable.
+    def initialize(conf)
+      @conf = conf
+      @conf[:verbose] = 0
+      @conf[:banner] = "Usage: #{File.basename($0)} [options]"
+      @conf[:config] =  Meta::NAME + '.yaml'
+      @conf[:config_dirs] =  [ENV['HOME']+'/.'+Meta::NAME,
+                              File.absolute_path("#{File.dirname(File.realpath($0))}/../etc"),
+                              '/usr/etc', '/usr/local/etc', '/etc',
+                              "#{Gem.dir}/gems/#{Meta::NAME}-#{Meta::VERSION}/etc"
+                             ]
+      @conf[:config_env] = [Meta::NAME.upcase + '_CONF']
+
+      @cl_parsing_times = 0 # not used
+      @cl_opt_protect = false
+    end
+
+    # [level] A verbose level.
+    # [t]     A string to print.
+    #
+    # Don't print _t_ with a newline if it contains NNL_MARK at the end.
+    def veputs(level, t)
+      t = t.dup
+      nnl = nil
+      if t.match(/#{NNL_MARK}$/)
+        t.sub!(/#{$&}/, '')
+        nnl = 1
+      end
+
+      if @conf[:verbose] >= level
+        nnl ? print(t) : print("#{t}\n")
+        $stdout.flush
+      end
+    end
+    
+    # Run all configuration parsing in a batch.
+    #
+    # [rvars] A list of variable names which must be in the
+    #         configuration file.
+    #
+    # If no block is given, only standard CL options will be analysed.
+    def config_parse(rvars, &block)
+      cb = ->(b, src) {
+        if b
+          block.call src
+        else
+          # very basic default options
+          cl_parse(src, nil, true)
+        end
+      }
+      
+      # 1. parse env
+      @conf[:config_env].each {|i|
+#        puts '0 run:'
+        cb.call(block_given?, ENV[i].shellsplit) if ENV.key?(i)
+      }
+
+      # 2. parse CL in case of '--config' option
+#      puts "\n1 run"
+      @cl_opt_protect = true
+      cb.call(block_given?, ARGV.dup)
+      @cl_opt_protect = false
+
+      # 3. load the configuration file & do the final CL parsing
+      begin
+#        puts "\n2 run"
+        r = config_flat_load(rvars)
+      rescue
+        Trestle.errx(1, "cannot load config: #{$!}")
+      end
+      veputs(1, "Loaded config: #{r}")
+      cb.call(block_given?, ARGV)
+    end
+
+    # Load a config file immediately if it contains '/' in its name,
+    # otherwise search through several dirs for it.
+    #
+    # [rvars] a list of requied variables in the config
+    #
+    # Return a loaded filename or nil on error.
+    def config_flat_load(rvars)
+      p = ->(f) {
+        if File.readable?(f)
+          begin
+            myconf = YAML.load_file(f)
+          rescue
+            abort("cannot parse #{f}: #{$!}")
+          end
+          rvars.each { |i|
+            fail "missing or nil '#{i}' in #{f}" if ! myconf.key?(i.to_sym) || ! myconf[i.to_sym]
+          }
+          @conf.merge!(myconf)
+          return @conf[:config]
+        end
+        return nil
+      }
+
+      if @conf[:config].index('/')
+        return p.call(@config[:config])
+      else
+        @conf[:config_dirs].each {|dir|
+          return dir+'/'+@conf[:config] if p.call(dir + '/' + @conf[:config])
+        }
+      end
+
+      return nil
+    end
+
+
+    # Parses CL-like options.
+    #
+    # [src] An array of options (usually +ARGV+).
+    #
+    # If _o_ is non nil function parses _src_ immediately, otherwise it
+    # only creates +OptionParser+ object and return it (if _simple_ is
+    # false).
+    def cl_parse(src, o = nil, simple = false)
+      if ! o then
+#        puts "NEW o (#{cl_opt_protect})" + src.to_s 
+        o = OptionParser.new
+        o.banner = @conf[:banner]
+        o.on('-v', 'Be more verbose.') { |i|
+#          puts "cl_parsing_times "+cl_parsing_times.to_s
+          @conf[:verbose] += 1 unless cl_opt_protect
+        }
+        o.on('-V', 'Show version & exit.') { |i|
+          puts Meta::VERSION
+          exit 0
+        }
+        o.on('--config NAME', "Set a config name (default is #{@conf[:config]}).") {|i|
+          @conf[:config] = i
+        }
+        o.on('--config-dirs', 'Show possible config locations.') {
+          @conf[:config_dirs].each { |j|
+            f = j + '/' + @conf[:config]
+            puts (File.readable?(f) ? '* ' : '  ') +  f
+          }
+          exit 0
+        }
+
+        return o if ! simple
+      end
+
+      begin
+        o.parse!(src)
+        @cl_parsing_times += 1
+      rescue
+        Trestle.errx(1, $!.to_s)
+      end
+    end
+
+    # A handy proc that return a nice formatted current global
+    # backtrace.
+    def self.get_backtrace
+      "#{$!}\n\nBacktrace:\n\n#{$!.backtrace.join("\n")}"
+    end
+    
+  end # trestle
+end
+
+# Don't remove this: falsework/0.2.7/naive/2011-07-17T01:52:43+03:00

data/test/helper.rb

@@ -0,0 +1,10 @@
+# This is supposed to be your helper for all your test. Feel free to
+# add staff here.
+
+require_relative 'helper_trestle'
+
+require 'pathname'
+require 'digest/md5'
+
+PKG_DIR = Pathname.new 'semis/package'
+PORTS_DIR = Pathname.new 'semis/ports'

data/test/helper_trestle.rb

@@ -0,0 +1,34 @@
+# :erb:
+# Various staff for minitest. Include this file into your 'helper.rb'.
+
+require 'fileutils'
+include FileUtils
+
+require_relative '../lib/pkg_noisrev/trestle'
+include Pkg_noisrev
+
+require 'minitest/autorun'
+
+# Return an absolute path of a _c_.
+def cmd(c)
+  case File.basename(Dir.pwd)
+  when Meta::NAME.downcase
+    # test probably is executed from the Rakefile
+    Dir.chdir('test')
+    STDERR.puts('*** chdir to ' + Dir.pwd)
+  when 'test'
+    # we are in the test directory, there is nothing special to do
+  else
+    # tests were invoked by 'gem check -t pkg_noisrev'
+    # (for a classic rubygems 1.3.7)
+    begin
+      Dir.chdir(Trestle.gem_libdir + '/../../test')
+    rescue
+      raise "running tests from '#{Dir.pwd}' isn't supported: #{$!}"
+    end
+  end
+
+  File.absolute_path('../bin/' + c)
+end
+
+# Don't remove this: falsework/0.2.7/naive/2011-07-17T01:52:43+03:00

data/test/rake_git.rb

@@ -0,0 +1,36 @@
+#!/usr/bin/env ruby
+# -*-ruby-*-
+# :erb:
+
+# This is a helper for your Rakefile. Read the comments for each
+# function.
+
+require 'git'
+require 'pp'
+
+# Return a list of files in a git repository _repdir_.
+#
+# Add this to your gem spec:
+#
+# spec = Gem::Specification.new {|i|
+#   i.files = git_ls('.')
+# }
+#
+# What it does is just collecting the list of the files from the git
+# repository. The idea is to use that list for the gem spec. No more
+# missing or redundant files in gems!
+def git_ls(repdir, ignore_some = true)
+  ignore = ['/?\.gitignore$']
+
+  r = []
+  g = Git.open repdir
+  g.ls_files.each {|i, v|
+    next if ignore_some && ignore.index {|ign| i.match(/#{ign}/) }
+    r << i
+  }
+  r
+end
+
+pp git_ls('.') if __FILE__ == $0
+
+# Don't remove this: falsework/0.2.7/naive/2011-07-17T01:52:43+03:00

data/test/semis/package/xmbdfed-4.7.1_2/+COMMENT

@@ -0,0 +1 @@
+A Motif tool for editing X11 bitmap fonts

data/test/semis/package/xmbdfed-4.7.1_2/+CONTENTS

@@ -0,0 +1,47 @@
+@comment PKG_FORMAT_REVISION:1.1
+@name xmbdfed-4.7.1_2
+@comment ORIGIN:x11-fonts/xmbdfed
+@cwd /usr/local
+@pkgdep xextproto-7.1.1
+@comment DEPORIGIN:x11/xextproto
+@pkgdep xbitmaps-1.1.0
+@comment DEPORIGIN:x11/xbitmaps
+@pkgdep printproto-1.0.4
+@comment DEPORIGIN:x11/printproto
+@pkgdep kbproto-1.0.5
+@comment DEPORIGIN:x11/kbproto
+@pkgdep pkg-config-0.25_1
+@comment DEPORIGIN:devel/pkg-config
+@pkgdep freetype2-2.4.4
+@comment DEPORIGIN:print/freetype2
+@pkgdep xproto-7.0.16
+@comment DEPORIGIN:x11/xproto
+@pkgdep libXdmcp-1.0.3
+@comment DEPORIGIN:x11/libXdmcp
+@pkgdep libXau-1.0.6
+@comment DEPORIGIN:x11/libXau
+@pkgdep libX11-1.3.6,1
+@comment DEPORIGIN:x11/libX11
+@pkgdep libXext-1.1.2,1
+@comment DEPORIGIN:x11/libXext
+@pkgdep libXp-1.0.0,1
+@comment DEPORIGIN:x11/libXp
+@pkgdep libICE-1.0.7,1
+@comment DEPORIGIN:x11/libICE
+@pkgdep libSM-1.1.1_3,1
+@comment DEPORIGIN:x11/libSM
+@pkgdep libXt-1.0.9
+@comment DEPORIGIN:x11-toolkits/libXt
+@pkgdep libXpm-3.5.7
+@comment DEPORIGIN:x11/libXpm
+@pkgdep libXmu-1.1.0,1
+@comment DEPORIGIN:x11-toolkits/libXmu
+@pkgdep libXaw-1.0.8,1
+@comment DEPORIGIN:x11-toolkits/libXaw
+@pkgdep open-motif-2.2.3_6
+@comment DEPORIGIN:x11-toolkits/open-motif
+bin/xmbdfed
+@comment MD5:70fe0a284a6ef3c16d89ce9343f3fa48
+man/man1/xmbdfed.1.gz
+@comment MD5:1fded0314bd85a5f8b97f721307867d4
+@unexec rm -f %D/man/cat1/xmbdfed.1.gz %D/man/cat1/xmbdfed.1 %D/man/cat1/xmbdfed.1.gz %D/man/cat1/xmbdfed.1.gz.gz %D/man/cat1/xmbdfed.1.gz.bz2

data/test/semis/package/zip-3.0/+COMMENT

@@ -0,0 +1 @@
+Create/update ZIP files compatible with pkzip

data/test/semis/package/zip-3.0/+CONTENTS

@@ -0,0 +1,35 @@
+@comment PKG_FORMAT_REVISION:1.1
+@name zip-3.0
+@comment ORIGIN:archivers/zip
+@cwd /usr/local
+bin/zip
+@comment MD5:3356288637a40b57a91a4d6aba569b8f
+bin/zipcloak
+@comment MD5:d25af327a58289224643a1f1e32c6c0f
+bin/zipnote
+@comment MD5:5ede5ea2b1b66ef6df0c4d7273cfcfde
+bin/zipsplit
+@comment MD5:66b8dcf4c82efb83d01ae69701802de3
+man/man1/zip.1.gz
+@comment MD5:ccd5f71cfb25c09e0d5a59e125f4cf5f
+man/man1/zipcloak.1.gz
+@comment MD5:a585a8020b0a0f030e59b0274299c497
+man/man1/zipnote.1.gz
+@comment MD5:f71924cc4f2cce23806f386984c2a3bc
+man/man1/zipsplit.1.gz
+@comment MD5:1720d6f12a3407bae4a319c16d322757
+@unexec rm -f %D/man/cat1/zip.1.gz %D/man/cat1/zip.1 %D/man/cat1/zip.1.gz %D/man/cat1/zip.1.gz.gz %D/man/cat1/zip.1.gz.bz2
+@unexec rm -f %D/man/cat1/zipcloak.1.gz %D/man/cat1/zipcloak.1 %D/man/cat1/zipcloak.1.gz %D/man/cat1/zipcloak.1.gz.gz %D/man/cat1/zipcloak.1.gz.bz2
+@unexec rm -f %D/man/cat1/zipnote.1.gz %D/man/cat1/zipnote.1 %D/man/cat1/zipnote.1.gz %D/man/cat1/zipnote.1.gz.gz %D/man/cat1/zipnote.1.gz.bz2
+@unexec rm -f %D/man/cat1/zipsplit.1.gz %D/man/cat1/zipsplit.1 %D/man/cat1/zipsplit.1.gz %D/man/cat1/zipsplit.1.gz.gz %D/man/cat1/zipsplit.1.gz.bz2
+@cwd .
+@ignore
++COMMENT
+@comment MD5:482c7883e97f4796b330265d21664958
+@ignore
++DESC
+@comment MD5:68ae0f4079192bc009133a979d1022c5
+@ignore
++MTREE_DIRS
+@comment MD5:219b9fb84bdcc9c6d574c11ea5a3efd9
+@mtree +MTREE_DIRS

data/test/semis/package/zip-3.0/+REQUIRED_BY

@@ -0,0 +1 @@
+firefox-4.0,1

data/test/semis/ports/MOVED

@@ -0,0 +1,23 @@
+# MOVED -- A list of (recently) moved or removed ports
+#
+# Each entry consists of a single line containing the following four
+# fields in the order named, separated with the pipe (`|') character:
+#
+#     Port:	A port that was moved (category/portname)
+#     Moved to:	Where the port was moved to, or which port users can
+#		and should migrate to (category/portname); no entry
+#		indicates that the port was deleted
+#     Date:	When the moving or the removal was done (YYYY-MM-DD,
+#		in PST/PDT)
+#     Why:	The reason why the port was moved or removed
+#
+# Port|Moved to|Date|Why
+
+mail/claws-mail-clamav||2009-02-03|Has expired: has been broken for more than 6 months
+x11-fonts/xmbdfed||2011-05-02|Has expired: Upstream disapear and distfile is no more available
+audio/dap||2011-05-02|Has expired: Upstream disapear and distfile is no more available
+audio/gdrdao||2011-05-02|Has expired: Upstream disapear and no more distfiles available
+
+databases/gmysql||2011-05-02|Has expired: Upstream disapear and distfile is no more available
+deskutils/kuake||2011-05-02|Has expired: Upstream disapear and distfile is no more available
+science/bblimage|science/pyvox|2011-07-28|track the upstream name change

data/test/semis/ports/archivers/zip/Makefile

@@ -0,0 +1,35 @@
+# New ports collection makefile for:    zip
+# Date created:		22 Dec 1994
+# Whom:			ache
+#
+# $FreeBSD: ports/archivers/zip/Makefile,v 1.39 2009/08/22 00:12:56 amdmi3 Exp $
+#
+
+PORTNAME=	zip
+PORTVERSION=	3.0
+CATEGORIES=	archivers
+MASTER_SITES=	SF/info${PORTNAME}/Zip%203.x%20%28latest%29/${PORTVERSION}
+DISTFILES=	${PORTNAME}30${EXTRACT_SUFX}
+USE_ZIP=	yes
+
+MAINTAINER=	ache@FreeBSD.org
+COMMENT=	Create/update ZIP files compatible with pkzip
+
+WRKSRC=		${WRKDIR}/${PORTNAME}30
+MAKEFILE=	unix/Makefile
+ALL_TARGET=	generic
+MAN1=		zip.1 zipcloak.1 zipnote.1 zipsplit.1
+
+PLIST_FILES=	\
+	bin/zip \
+	bin/zipcloak \
+	bin/zipnote \
+	bin/zipsplit
+
+do-install:
+.for file in zip zipcloak zipnote zipsplit
+	${INSTALL_PROGRAM} ${WRKSRC}/${file} ${PREFIX}/bin
+	${INSTALL_MAN} ${WRKSRC}/man/${file}.1 ${PREFIX}/man/man1
+.endfor
+
+.include <bsd.port.mk>