ruby-debian 0.3.8

data/lib/debian/ar.rb

@@ -0,0 +1,159 @@
+#
+# ar.rb - ar(1) ruby interface (for debian.rb)
+# Copyright (c) 2001 Fumitoshi UKAI <ukai@debian.or.jp>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# $Id: ar.rb,v 1.3 2003/10/07 17:07:02 ukai Exp $
+#
+
+# struct ar_hdr
+#  {
+#   char ar_name[16];           /* Member file name, sometimes / terminated. */
+#   char ar_date[12];           /* File date, decimal seconds since Epoch.  */
+#   char ar_uid[6], ar_gid[6];  /* User and group IDs, in ASCII decimal.  */
+#   char ar_mode[8];            /* File mode, in ASCII octal.  */
+#   char ar_size[10];           /* File size, in ASCII decimal.  */
+#   char ar_fmag[2];            /* Always contains ARFMAG.  */
+# };
+
+module Debian
+  class ArError < StandardError; end
+  class Ar
+    ARMAG = "!<arch>\n"
+    SARMAG = 8
+    ARFMAG = "`\n"
+    AR_HDR_SIZE = (16+12+6+6+8+10+2)
+    class ArFile
+      class Stat
+	def initialize(time,uid,gid,mode,size,dev)
+	  @time, @uid, @gid, @mode, @size, @dev = time,uid,gid,mode,size,dev
+	end
+	def <=>(s) @time <=> s.atime; end
+	def atime; @time; end
+	def blksize; 0; end
+	def blockdev?; false; end
+	def blocks; 0; end
+	def chardev?; false; end
+	def ctime; @time; end
+	def dev; @dev; end
+	def directory?; false; end
+	def executable?; false; end
+	def executable_real?; false; end
+	def file?; true; end
+	def ftype; 'file'; end
+	def gid; @gid; end
+	def grpowned?; false; end
+	def ino; @dev; end
+	def mode; @mode; end
+	def mtime; @time; end
+	def nlink; 1; end
+	def owned?; false; end
+	def pipe?; false; end
+	def rdev; @dev; end
+	def readable?; true; end
+	def readable_real?; true; end
+	def setgid?; false; end
+	def setuid?; false; end
+	def size; @size; end
+	def size?; @size == 0 ? nil : @size; end
+	def socket?; false; end
+	def sticky?; false; end
+	def symlink?; false; end
+	def uid; @uid; end
+	def writable?; false; end
+	def writable_real?; false; end
+	def zero?; @size == 0; end
+      end
+
+      def initialize(fp,name,date,uid,gid,mode,size,pos)
+	@fp,@name = fp,name
+	@stat = Stat.new(date,uid,gid,mode,size,pos)
+	@size = size
+	@pos = pos
+	@cur = 0
+      end
+      attr_reader :name, :size, :pos, :cur, :stat
+
+      def read(size = -1)
+	if size < 0
+	  size = @size - @cur
+	end
+	if @cur + size > @size
+	  size = @size - @cur
+	end
+	@fp.seek(@pos + @cur, IO::SEEK_SET)
+	r = @fp.read(size)
+	@cur += r.size
+	return r
+      end
+
+      def eof?; @cur == @size; end
+      def rewind; @cur = 0; end
+    end
+    
+    def initialize(file)
+      @fp = File.open(file)
+      magic = @fp.gets
+      unless magic == ARMAG
+	raise ArError, "archive broken: #{file}"
+      end
+      @ofs = []
+    end
+
+    def close
+      @fp.close
+    end
+
+    def list
+      @fp.seek(SARMAG, IO::SEEK_SET)
+      while ! @fp.eof?
+	hdr = @fp.read(AR_HDR_SIZE)
+	name,date,uid,gid,mode,size,fmag = hdr.unpack('a16a12a6a6a8a10a2')
+	unless fmag == ARFMAG
+	  raise ArError, "invalid archive field magic #{fmag} @ #{@fp.pos} [#{hdr}]"
+	end
+	name.strip!
+	size = size.to_i
+	@ofs.push(ArFile.new(@fp,
+			     name,Time.at(date.to_i), uid.to_i, gid.to_i,
+			     mode.oct, size, @fp.pos))
+	# puts "hdr=[#{hdr}] pos=#{@fp.pos}, size=#{size} #{(size + 1)&~1}"
+	@fp.seek((size + 1)&~1, IO::SEEK_CUR)
+      end
+      @ofs
+    end
+    def each_file
+      if @ofs.empty?; list; end
+      @ofs.each {|file|
+	yield file.name, file
+      }
+    end
+
+    def open(name)
+      if @ofs.empty?; list; end
+      @ofs.each {|file|
+	if file.name == name
+	  if block_given?
+	    return yield(file)
+	  else
+	    return file
+	  end
+	end
+      }
+    end
+  end
+
+end

data/lib/debian/utils.rb

@@ -0,0 +1,111 @@
+#
+# utils.rb - ruby utilities interface for debian.rb (gunzip, tar, ..)
+# Copyright (c) 2001 Fumitoshi UKAI <ukai@debian.or.jp>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# $Id: utils.rb,v 1.2 2003/10/07 17:07:02 ukai Exp $
+#
+
+module Debian
+  module Utils
+    GUNZIP = '/bin/gunzip'
+    TAR = '/bin/tar'
+    TAR_EXTRACT = '-x'
+    TAR_LIST = '-t'
+    
+    def Utils.pipeline(io,progs,stderr = false)
+      Signal.trap('CHLD', 'IGNORE')
+      # wr0 -> rd0 [gunzip] wr -> rd
+      rd,wr = IO.pipe
+      rde,wre = IO.pipe
+      pid = fork
+      if pid
+	# parent
+	wr.close
+	wre.close
+	if block_given?
+	  return yield(rd, rde)
+	else
+	  return rd, rde
+	end
+      else
+	# child
+	rd.close
+	rd0, wr0 = IO.pipe
+        pid2 = fork
+	if pid2
+	  # gunzip
+	  wr0.close
+          STDOUT.reopen(wr)
+          STDERR.reopen(wre) if stderr
+          STDIN.reopen(rd0)
+          ENV["LANG"] = "C"
+          ENV["LC_ALL"] = "C"
+	  exec(*progs)
+          # XXX: waitpid(pid2?)
+	else
+	  rd0.close
+	  while ! io.eof?
+	    wr0.write(io.read(4096))
+	  end
+	  exit 0
+	end
+      end
+      Process.waitpid(pid, 0)
+      Process.wait
+    end
+
+    def gunzip(io)
+      Utils.pipeline(io, [GUNZIP]) {|fp,fpe|
+        fpe.close
+	if block_given?
+	  return yield(fp)
+	else
+	  return fp
+	end
+      }
+    end
+    def tar(io,op,*pat)
+      progs = [TAR, op, '--wildcards', '-f', '-']
+      if pat[0]
+	progs += ['--to-stdout', *pat]
+      end
+      Utils.pipeline(io,progs,op == "-t") {|fp,fpe|
+        if op == "-t"
+          pid = fork
+          if pid
+            # parent
+          else
+            while !fpe.eof? && str = fpe.readline
+              unless str.match(/^\/bin\/tar: Record size = [0-9]+ blocks$/)
+                STDERR.puts str
+              end
+            end
+            exit
+          end
+        end
+        fpe.close
+	if block_given?
+	  return yield(fp)
+	else
+	  return fp
+	end
+      }
+    end
+
+    module_function :gunzip, :tar
+  end
+end

data/man/dpkg-checkdeps.1

@@ -0,0 +1,102 @@
+.TH DPKG-CHECKDEPS.RB 1 "Debian Utilities" "DEBIAN" \" -*- nroff -*-
+.SH NAME
+dpkg-checkdeps.rb \- Utility to check deb dependency
+.SH SYNOPSIS
+\fBdpkg-checkdeps.rb\fP [\fIopts\fP] \fIdebfile\fP ...
+.br
+\fBdpkg-checkdeps.rb\fP [\fIopts\fP] \fB\-\-from\fP \fIpackages\fP \fIpkgname\fP...
+.br
+\fBdpkg-checkdeps.rb\fP [\fIopts\fP] \fB\-\-from\fP \fB\-\-all\fP
+.br
+\fBdpkg-checkdeps.rb\fP [\fIopts\fP] \fB\-\-check\fP \fIpkgname\fP... 
+.br
+\fIopts\fP: \fB\-\-to\fP \fIpackages\fP
+       \fB\-\-arch\fP \fIarch\fP
+       \fB\-\-verbose\fP
+       \fB\-q\fP
+.br
+.SH DESCRIPTION
+.I dpkg-checkdeps.rb
+checks deb dependency problems when specified deb packages are
+installed in the target packages list.
+.SH OPTIONS
+.TP
+.PD 0
+.BI \-t " packages-file"
+.TP
+.BI \-\-to " packages-file"
+.PD
+Specify target \fIpackages-file\fP.  If this option is used multiple times,
+packages lists are appended.  If no \fB-t\fP option specified,
+default is current installed packages list, that is, /var/lib/dpkg/status.
+.TP
+.PD 0
+.BI \-f " packages-file"
+.TP
+.BI \-\-from " packages-file"
+.PD
+Specify source \fIpackages-file\fP.  If this option is used multiple times,
+packages lists are appended.  If you use this option, you can select packages
+by \fIpackage-name\fP, or all of them by \fB\-\-all\fP option.
+.TP
+.PD 0
+.B \-A
+.TP
+.B \-\-all
+.PD
+Select all packages in source \fIpackages-file\fP.  You must use this option
+with \fB\-\-from\fP option.
+.TP
+.PD 0
+.BI \-a " arch"
+.TP
+.BI \-\-arch " arch"
+.PD
+Specify acceptable \fIarch\fP in \fIpackages-file\fP.  Default is 
+installation_architecture of dpkg.
+.TP
+.PD 0
+.B \-c
+.TP
+.B \-\-check
+.PD
+Check selected packages are satisfied by all packages in target
+\fIpackages\fP.
+.TP
+.PD 0
+.B \-v
+.TP
+.B \-\-verbose
+.PD
+Verbose mode
+.TP
+.PD 0
+.BI \-h
+.TP
+.BI \-\-help
+.PD
+Display some help.
+.SH EXAMPLES
+
+  % dpkg-checkdeps.rb \-\-arch alpha \
+	\-\-to '*/binary-$ARCH/Packages' \
+	\-\-from ../proposed-updates/Packages' \-\-all
+
+  % dpkg-checkdeps.rb \-\-to '*/binary-$ARCH/Packages' \-\-check libc6
+
+.SH BUGS
+
+There are probably tons of bugs in this program.
+
+This checks only depends, recommends and suggests, doesn't check 
+pre-depends and conflicts, yet.
+
+This program comes with no warranties.  If running this program
+causes fire and brimstone to rain down upon the earth, you will be
+on our own.
+
+.SH AUTHOR
+Fumitoshi UKAI <ukai@debian.or.jp>.
+
+
+

data/man/dpkg-ruby.1

@@ -0,0 +1,99 @@
+.TH DPKG-RUBY 1 "Debian Utilities" "DEBIAN" \" -*- nroff -*-
+.SH NAME
+dpkg-ruby \- Utility to read a dpkg style db file, dpkg-awk clone
+.SH SYNOPSIS
+\fBdpkg-ruby\fP [\fB(\-f|\-\-file) \fIfilename\fP] [\fB(\-d|\-\-debug) \fI##\fP] [\fB(\-s|\-\-sort) \fIlist\fP] [\fB(\-n|\-\-numeric) \fIlist\fP] [\fB(\-rs|\-\-rec_sep) \fI??\fP] '\fI<fieldname>:<regex>\fP' ... \-\- \fI<out_fieldname>\fP ..
+.br
+.SH DESCRIPTION
+.I dpkg-ruby
+Parses a dpkg status file(or other similarly formated file) and
+outputs the resulting records.  It can use regex on the field
+values to limit the returned records, and it can also be told
+which fields to output.  As another option, it can sort the
+matched fields.
+.SH OPTIONS
+
+.TP
+.PD 0
+.BI \-f " filename"
+.TP
+.BI \-\-file " filename"
+.PD
+The file to parse.  The default is /var/lib/dpkg/status.
+.TP
+.PD 0
+.BI \-d " [#]"
+.TP
+.BI \-\-debug " [#]"
+.PD
+Each time this is specified, it increased the debug level.
+.TP
+.PD 0
+.BI \-s " field(s)"
+.TP
+.BI \-\-sort " field(s)"
+.PD
+A space or comma separated list of fields to sort on.
+.TP
+.PD 0
+.BI \-n " field(s)"
+.TP
+.BI \-\-numeric " field(s)"
+.PD
+A space or comma separated list of fields that should be
+interpreted as numeric in value.
+.TP
+.PD 0
+.BI \-rs " ??"
+.TP
+.BI \-\-rec_sep " ??"
+.PD
+Output this string at the end of each output paragraph.
+.\" .TP
+.\" .PD 0
+.\" .I -of ??
+.\" .TP
+.\" .I --outform ??
+.\" .PD
+.\" Specify the outform that dpkg-ruby should use.  Current
+.\" formats are normal(the old, tried and true style), and
+.\" xml.
+.TP
+.PD 0
+.B \-h
+.TP
+.B \-\-help
+.PD
+Display some help.
+.TP
+.I fieldname
+The fields from the file, that are matched with the regex given.
+The \fIfieldname\fPs are case insensitive.
+.TP
+.I out_fieldname
+The fields from the file, that are outputted for each record.
+If the first field listed is begins with
+.IR ^ ,
+then the list that follows are fields
+.I NOT
+to be outputted.
+.SH BUGS
+
+Be warned that the author has only a shallow understanding of the 
+dpkg packaging system, so there are probably tons of bugs in this
+program.
+
+This program comes with no warranties.  If running this program
+causes fire and brimstone to rain down upon the earth, you will be
+on our own.
+
+This program accesses the dpkg database directly in places, querying 
+for data that cannot be gotten via dpkg.
+
+.SH AUTHOR
+Fumitoshi UKAI <ukai@debian.or.jp>.
+This manual page are based on (or almost copy from :) dpkg-awk(1) manual
+written by Adam Heath <doogie@debian.org>
+
+
+