* dpkg can install named pipes.
* dpkg-deb supports directory for destination, generates filename.
* dpkg-{source,gencontrol,genchanges,parsechangelog,buildpackage},
dpkg-distaddfile scripts to support new source package format.
* a.out build no longer supported.
* Changed to new source package format.
-- Ian Jackson <ian@chiark.chu.cam.ac.uk> Tue, 6 Aug 1996 02:31:52 +0100
libdir = $(prefix)/lib
dpkglibdir = $(libdir)/dpkg
methodsdir = $(dpkglibdir)/methods
+parsechangelogdir = $(dpkglibdir)/parsechangelog
datadir = /var/lib/dpkg
methodsdatadir = $(datadir)/methods
methodsmnt = $(datadir)/methods/mnt
install: all
$(BOURNESHELL) $(srcdir)/mkinstalldirs $(bindir) $(sbindir) \
- $(man1dir) $(man5dir) $(man8dir) $(devdocdir) \
- $(libdir) $(datadir) $(pinfodir) $(pupdatesdir) \
- $(dpkglibdir) $(methodsdir) $(methodsdatadir) $(methodsmnt) \
- $(altsdatadir) $(altsetcdir) $(partsdir) $(infodir)
+ $(man1dir) $(man5dir) $(man8dir) $(devdocdir) $(infodir) \
+ $(libdir) $(dpkglibdir) $(methodsdir) $(parsechangelogdir) \
+ $(datadir) $(pinfodir) $(pupdatesdir) $(methodsdatadir) \
+ $(methodsmnt) $(altsdatadir) $(altsetcdir) $(partsdir)
set -e; for d in $(SUBDIRS) ; do \
cd $$d ; \
$(MAKE) 'CC=$(CC)' 'LDFLAGS=$(LDFLAGS)' 'XLIBS=$(XLIBS)' \
+++ /dev/null
-#!/bin/sh
-set -e -x
-really ./debian.rules clean
-./debian.rules diff source
-
-./debian.rules build
-really ./debian.rules binary
-
-curd="`pwd`"
-newd="`basename \"$curd\"`"elf
-rm -rf ../"$newd"
-cp -dpR . ../"$newd"
-
-PATH=/usr/i486-linuxaout/bin:$PATH
-export PATH
-
-really ./debian.rules clean
-./debian.rules build
-really ./debian.rules binary
-cp doc/guidelines.texi ..
-
-version=`sed -n 's/^version=//p' debian.rules`
-perl debian.mkchanges "$version" <debian.changestemplate \
- | pgp-auto -fast >../dpkg-$version.`dpkg --print-architecture`.changes
-echo
+++ /dev/null
-Date: =d
-Format: 1.5
-Distribution: unstable
-Source: dpkg
-Binary: dpkg
-Architecture: source =a
-Version: =v
-Maintainer: Ian Jackson <ian@chiark.chu.cam.ac.uk>
-Description:
- dpkg: Package maintenance system for Debian Linux
-Changes:=c
-Files:
- =f:dpkg-=v.tar.gz base required
- =f:dpkg-=velf.=a.deb base required
- =f:dpkg-=v.=a.deb byhand -
- =f:dpkg-=velf.=a.nondebbin.tar.gz byhand -
- =f:dpkg-=v.=a.nondebbin.tar.gz byhand -
- =f:guidelines.texi byhand -
+++ /dev/null
-Package: dpkg
-Version: =elf
-Architecture: =
-Essential: yes
-Pre-Depends: libc5=, ncurses3.0
-Conflicts: dpkgname
-Replaces: dpkgname
-Maintainer: Ian Jackson <ian@chiark.chu.cam.ac.uk>
-Description: Package maintenance system for Debian Linux
- This package contains the programs which handle the installation and
- removal of packages on your system.
- .
- The primary interface for the dpkg suite is the `dselect' program;
- a more low-level and less user-friendly interface is available in
- the form of the `dpkg' command.
+++ /dev/null
-#!/usr/bin/perl
-# Usage:
-# perl debian.mkchanges <version> <debian.changestemplate >thing.changes
-
-$x=time; sub z { $_[1]+$_[2]*60; }; @l=localtime($x); $od=1440;
-$d=&z(@l)-&z(gmtime($x)); $d+=$od; $d%=$od; $s=$d>$od/2?($d=$od-$d,'-'):'+';
-$date=sprintf("%s, %d %s %d %02d:%02d:%02d %s%02d%02d",
- (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$l[6]], $l[3],
- (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$l[4]], $l[5]+1900,
- $l[2],$l[1],$l[0], $s,$d/60,$d%60);
-
-($version)=@ARGV;
-chop($arch=`dpkg --print-architecture`);
-
-open(Z,"debian.Changelog");
-while(<Z>) { $changes.=$_; last if m/^ --/; }
-close(Z); $changes =~ s/^/ /g; $changes =~ s/^/\n/; $changes =~ s/\n$//;
-
-chdir("..");
-
-while (<STDIN>) {
- s/=a/$arch/g;
- s/=v/$version/g;
- if (m/^ =f:(\S+) (\S+) (\S+)$/) {
- ($file,$sec,$pri)=($1,$2,$3);
- $!=0; chop($md5sum=`md5sum <$file`); $? && die "$file: $? $!";
- $!=0; $size=`ls -l $file`; $? && die "$file: $? $!";
- $size =~ m/^\S+\s+\d+\s+\S+\s+\S+\s+(\d+)\s/ || die "$file: `$size'";
- $size= $1;
- $_= " $md5sum $size $sec $pri $file\n";
- } else {
- s/=c/$changes/ || s/=d/$date/g;
- }
- print || die $!;
-}
-close(STDOUT) || die $!;
+++ /dev/null
-#!/usr/bin/make -f
-
-package=dpkg
-version=1.2.14
-
-archi=$(shell dpkg --print-architecture)
-DIR:=$(shell pwd)
-
-build:
- $(checkdir)
- ./configure --prefix=/usr
- $(MAKE)
- touch build
-
-clean:
- $(checkdir)
- -rm -f build
- -$(MAKE) -i distclean
- -rm -rf debian-tmp* *~ *.orig ./#*# tmp.*
- -rm -f config.cache config.status config.h install config.log
- find -name '*~' -print0 | xargs -r0 rm --
-
-binary:
-#checkroot build
- -rm -rf debian-tmp
- mkdir debian-tmp debian-tmp/DEBIAN
- install -d debian-tmp/usr/doc/{copyright,dpkg}
- cp debian.preinst debian-tmp/DEBIAN/preinst
- if file main/dpkg | grep -q ELF; then \
- if [ $(archi) = i386 ]; then \
- sed -e '5s/=/ (>= 5.2.18-2)/' <debian.control >tmp.control ; \
- sed -e 's/^# i386elf: //' <debian.preinst \
- >debian-tmp/DEBIAN/preinst ; \
- else \
- sed -e '5s/=//' <debian.control >tmp.control ; \
- fi ; \
- else \
- cp debian.controlaout tmp.control ; \
- fi
- sed -e '2s/=/$(version)/; 3s/=/$(archi)/' tmp.control >debian-tmp/DEBIAN/control
- cp debian.prerm debian-tmp/DEBIAN/prerm
- cp debian.postinst debian-tmp/DEBIAN/postinst
- chmod +x debian-tmp/DEBIAN/{postinst,prerm,preinst}
- $(MAKE) prefix=$(DIR)/debian-tmp/usr \
- datadir=$(DIR)/debian-tmp/var/lib/dpkg \
- etcdir=$(DIR)/debian-tmp/etc \
- install
- gzip -9 debian-tmp/usr/info/guidelines.info*
- cp debian.README debian-tmp/usr/doc/copyright/dpkg
- cp TODO debian-tmp/usr/doc/dpkg/WISHLIST
- touch debian-tmp/var/lib/dpkg/{status,available}
- chown -R root.root debian-tmp
- chmod -R g-ws debian-tmp
- cd debian-tmp && \
- tar cf ../../$(package)-$(version).$(archi).nondebbin.tar usr var && \
- gzip -9vf ../../$(package)-$(version).$(archi).nondebbin.tar
- mv debian-tmp/usr/bin/dpkg-deb{,.dist}
- rm debian-tmp/var/lib/dpkg/{status,available}
- set -e; if file main/dpkg | grep -q ELF; then \
- dpkg-deb --build --new debian-tmp ; \
- mv debian-tmp.deb ../dpkg-$(version)elf.$(archi).deb ; \
- mv ../dpkg-$(version).$(archi).nondebbin.tar.gz \
- ../dpkg-$(version)elf.$(archi).nondebbin.tar.gz ; \
- else \
- dpkg-deb --build --old debian-tmp ; \
- mv debian-tmp.deb ../dpkg-$(version).$(archi).deb ; \
- fi
-
-define checkdir
- test -f include/dpkg.h
-endef
-
-source: clean
- chmod +x debian.rules
- cd .. && \
- tar cf $(package)-$(version).tar $(package)-$(version) && \
- gzip -9vf $(package)-$(version).tar
-
-diff:
- @echo '((( no diff - this package is a Debian special )))'
-
-checkroot:
- $(checkdir)
- test root = "`whoami`"
-
-.PHONY: binary source diff clean checkroot
-dpkg (1.2.14) stable unstable; urgency=MEDIUM
+dpkg (1.3.0) experimental; urgency=LOW
- * dselect +/-/_/= on lines for all broken, new, local or whatever
- packages do not affect _all_ packages. (Bug#4129.)
+ * dpkg can install named pipes.
+ * dpkg-deb supports directory for destination, generates filename.
+ * dpkg-{source,gencontrol,genchanges,parsechangelog,buildpackage},
+ dpkg-distaddfile scripts to support new source package format.
+ * a.out build no longer supported.
+ * Changed to new source package format.
- -- Ian Jackson <ian@chiark.chu.cam.ac.uk> Thu, 22 Aug 1996 00:39:52 +0100
+ -- Ian Jackson <ian@chiark.chu.cam.ac.uk> Tue, 6 Aug 1996 02:31:52 +0100
dpkg (1.2.13) unstable; urgency=LOW
+Source: dpkg
+Section: base
+Priority: required
+Maintainer: Ian Jackson <ian@chiark.chu.cam.ac.uk>
+Standards-Version: 0.1
+
Package: dpkg
-Version: =
-Architecture: =
+Architecture: any
Essential: yes
+Pre-Depends: libc5${libcver}, ncurses3.0
Conflicts: dpkgname
Replaces: dpkgname
-Pre-Depends: libc4 | libc
-Maintainer: Ian Jackson <ian@chiark.chu.cam.ac.uk>
Description: Package maintenance system for Debian Linux
This package contains the programs which handle the installation and
removal of packages on your system.
--- /dev/null
+#!/usr/bin/make -f
+
+DIR:=$(shell pwd)
+
+arch=$(shell dpkg --print-architecture)
+cidir=debian/tmp/DEBIAN
+
+build:
+ $(checkdir)
+ ./configure --prefix=/usr
+ $(MAKE)
+ touch build
+
+clean:
+ $(checkdir)
+ -rm -f build
+ -$(MAKE) -i distclean || $(MAKE) -f Makefile.in -i distclean
+ -rm -rf debian/tmp* *~ *.orig ./#*# tmp.* debian/files*
+ -rm -f config.cache config.status config.h install config.log
+ find -name '*~' -print0 | xargs -r0 rm --
+
+binary: checkroot build
+ -rm -rf debian/tmp
+ mkdir debian/tmp debian/tmp/DEBIAN
+ install -d debian/tmp/usr/doc/{copyright,dpkg}
+ set -e; if [ $(arch) = i386 ]; then \
+ dpkg-gencontrol -Vlibcver=' (>= 5.2.18-2)' >$(cidir)/control ; \
+ sed -e 's/^# i386elf: //' <debian/preinst >$(cidir)/preinst ; \
+ else \
+ dpkg-gencontrol -Vlibcver='' >$(cidir)/control ; \
+ sed -e '/^# i386elf: /d' debian/preinst >$(cidir)/preinst ; \
+ fi
+ cp debian/{prerm,postinst} debian/tmp/DEBIAN/.
+ chmod +x debian/tmp/DEBIAN/{postinst,prerm,preinst}
+ $(MAKE) prefix=$(DIR)/debian/tmp/usr \
+ datadir=$(DIR)/debian/tmp/var/lib/dpkg \
+ etcdir=$(DIR)/debian/tmp/etc \
+ install
+ gzip -9 debian/tmp/usr/info/guidelines.info*
+ cp debian/copyright debian/tmp/usr/doc/copyright/dpkg
+ cp TODO debian/tmp/usr/doc/dpkg/WISHLIST
+ touch debian/tmp/var/lib/dpkg/{status,available}
+ chown -R root.root debian/tmp
+ chmod -R g-ws debian/tmp
+ set -e; cd debian/tmp; \
+ version=`sed -n 's/^Version: //p' DEBIAN/control`; \
+ file=dpkg_$${version}_$(arch).nondebbin.tar; \
+ tar cf ../../../$${file} usr var && gzip -9vf ../../../$${file}; \
+ cd ../..; dpkg-distaddfile $${file}.gz byhand -
+ mv debian/tmp/usr/bin/dpkg-deb{,.dist}
+ rm debian/tmp/var/lib/dpkg/{status,available}
+ dpkg-deb --build debian/tmp ..
+
+define checkdir
+ test -f include/dpkg.h
+endef
+
+checkroot:
+ $(checkdir)
+ test root = "`whoami`"
+
+.PHONY: binary source diff clean checkroot
};
char *m;
- const char *debar, *directory, *const *mscriptp;
+ const char *debar, *directory, *const *mscriptp, *versionstring, *arch;
char *controlfile;
struct pkginfo *checkedinfo;
struct arbitraryfield *field;
FILE *ar, *gz, *cf;
- int p1[2],p2[2], warns, errs, n, c;
+ int p1[2],p2[2], warns, errs, n, c, subdir;
pid_t c1,c2,c3,c4,c5;
- struct stat controlstab, datastab, mscriptstab;
+ struct stat controlstab, datastab, mscriptstab, debarstab;
char conffilename[MAXCONFFILENAME+1];
time_t thetime= 0;
directory= *argv++; if (!directory) badusage("--build needs a directory argument");
+ subdir= 0;
if ((debar= *argv++) !=0) {
if (*argv) badusage("--build takes at most two arguments");
+ if (debar) {
+ if (stat(debar,&debarstab)) {
+ if (errno != ENOENT)
+ ohshite("unable to check for existence of archive `%.250s'",debar);
+ } else if (S_ISDIR(debarstab.st_mode)) {
+ subdir= 1;
+ }
+ }
} else {
m= m_malloc(strlen(directory) + sizeof(DEBEXT));
strcpy(m,directory); strcat(m,DEBEXT);
debar= m;
}
-
+
if (nocheckflag) {
+ if (subdir)
+ ohshit("target is directory - cannot skip control file check");
printf(BACKEND ": warning, not checking contents of control area.\n"
BACKEND ": building an unknown package in `%s'.\n", debar);
} else {
checkversion(checkedinfo->available.version.version,"(upstream) version",&errs);
checkversion(checkedinfo->available.version.revision,"Debian revision",&errs);
if (errs) ohshit("%d errors in control file",errs);
+
+ if (subdir) {
+ versionstring= versiondescribe(&checkedinfo->available.version,vdew_never);
+ m= m_malloc(strlen(debar)+1+strlen(checkedinfo->name)+1+
+ strlen(versionstring)+sizeof(DEBEXT));
+ arch= checkedinfo->available.architecture; if (!arch) arch= "";
+ sprintf(m,"%s/%s_%s%s%s" DEBEXT,debar,checkedinfo->name,versionstring,
+ arch[0] ? "_" : "", arch);
+ debar= m;
+ }
printf(BACKEND ": building package `%s' in `%s'.\n", checkedinfo->name, debar);
strcpy(controlfile, directory);
.SH SYNOPSIS
.B dpkg-deb
.BR -b | --build
-.IR directory " [" archive ]
+.IR directory " [" archive | directory ]
.br
.B dpkg-deb
.BR -I | --info
.IR directory \fB.deb\fR.
If the archive to be created already exists it will be overwritten.
+
+If the second argument is a directory then
+.B dpkg\-deb
+will write to the file
+.IB package _ version _ arch .deb\fR,
+or
+.IB package _ version .deb
+if no
+.B Architecture
+field is present in the package control file. When a target directory
+is specified, rather than a file, the
+.B \-\-no\-check
+option may not be used (since
+.B dpkg\-deb
+needs to read and parse the package control file to determine which
+filename to use).
.TP
.BR \-\-info ", " -I
Provides information about a binary package archive.
#include "dselect.h"
#include "pkglist.h"
-int packagelist::affectedmatches(struct pkginfo *pkg, struct pkginfo *comparewith) {
- switch (statsortorder) {
- case sso_avail:
- if (comparewith->clientdata->ssavail != pkg->clientdata->ssavail) return 0;
- break;
- case sso_state:
- if (comparewith->clientdata->ssstate != pkg->clientdata->ssstate) return 0;
- break;
- case sso_unsorted:
- break;
- default:
- internerr("unknown statsortorder in affectedmatches");
- }
+static int matches(struct pkginfo *pkg, struct pkginfo *comparewith) {
if (comparewith->priority != pkginfo::pri_unset &&
(comparewith->priority != pkg->priority ||
comparewith->priority == pkginfo::pri_other &&
return;
}
*startp= index;
- while (index < nitems && affectedmatches(table[index]->pkg,table[cursorline]->pkg))
- index++;
+ while (index < nitems && matches(table[index]->pkg,table[cursorline]->pkg)) index++;
*endp= index;
}
void addheading(enum ssavailval, enum ssstateval,
pkginfo::pkgpriority, const char*, const char *section);
void sortinplace();
- int affectedmatches(struct pkginfo *pkg, struct pkginfo *comparewith);
void affectedrange(int *startp, int *endp);
void setwant(pkginfo::pkgwant nw);
void sethold(int hold);
}
break;
case NormalFile0: case NormalFile1:
- case CharacterDevice: case BlockDevice:
+ case CharacterDevice: case BlockDevice: case FIFO:
case HardLink:
break;
default:
ohshite("error closing/writing `%.255s'",ti->Name);
newtarobject_utime(fnamenewvb.buf,ti);
break;
+ case FIFO:
+ if (mkfifo(fnamenewvb.buf,ti->Mode & S_IFMT))
+ ohshite("error creating pipe `%.255s'",ti->Name);
+ debug(dbg_eachfiledetail,"tarobject FIFO");
+ newtarobject_allmodes(fnamenewvb.buf,ti);
+ break;
case CharacterDevice: case BlockDevice:
if (mknod(fnamenewvb.buf,ti->Mode & S_IFMT,ti->Device))
ohshite("error creating device `%.255s'",ti->Name);
man8 = 8
libdir = $(prefix)/lib
dpkglibdir = $(libdir)/dpkg
+parsechangelogdir = $(dpkglibdir)/parsechangelog
etcdir= /etc
altsetcdir = $(etcdir)/alternatives
perlpath = @perlpath@
MAN1 = dpkg-name
-EXC = dpkg-name
+EXC = dpkg-name dpkg-source dpkg-genchanges dpkg-gencontrol \
+ dpkg-buildpackage dpkg-parsechangelog dpkg-distaddfile
MAN8 = update-rc.d start-stop-daemon update-alternatives install-info \
dpkg-scanpackages
SBIN = update-rc.d start-stop-daemon update-alternatives install-info \
dpkg-scanpackages dpkg-divert cleanup-info
+LIB = controllib.pl
+CHGLGS = cl-dpkg
INSTALL = @INSTALL@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
.SUFFIXES: .pl .sh .gzuue
.pl:
- sed <$@.pl 's:^#!/usr/bin/perl:#!$(perlpath):' \
+ sed <$@.pl 's:^#!/usr/bin/perl:#!$(perlpath):; \
+ s:\$dpkglibdir= "\.":\$dpkglibdir= "$(dpkglibdir)":' \
| ../insert-version.pl >$@.new
chmod +x $@.new
mv $@.new $@
.sh:
sed <$@.sh 's:^dpkglibdir=/usr/lib/dpkg$$:dpkglibdir=$(dpkglibdir):' \
| ../insert-version.pl >$@.new
+ chmod +x $@.new
mv $@.new $@
.gzuue:
rm $@.gz
mv $@.new $@
-all: $(EXC) $(SBIN)
+all: $(EXC) $(SBIN) $(CHGLGS)
clean:
rm -f $(EXC) $(SBIN) core *.new
for f in $(MAN1) ; do $(INSTALL_DATA) $$f.1 $(man1dir)/$$f.$(man1) ; done
for f in $(SBIN) ; do $(INSTALL_PROGRAM) $$f $(sbindir)/$$f ; done
for f in $(MAN8) ; do $(INSTALL_DATA) $$f.8 $(man8dir)/$$f.$(man8) ; done
+ for f in $(LIB) ; do $(INSTALL_DATA) $$f $(dpkglibdir)/$$f; done
+ for f in $(CHGLGS) ; do $(INSTALL_PROGRAM) $$f \
+ $(dpkglibdir)/parsechangelog/`echo $$f | sed -e 's/^cl-//'` ; \
+ done
--- /dev/null
+#!/usr/bin/perl
+#
+# Options:
+# -v<version>
+# changes since <version>
+
+$dpkglibdir= "/usr/lib/dpkg";
+$version= '1.3.0'; # This line modified by Makefile
+
+$controlfile= 'debian/control';
+$changelogfile= 'debian/changelog';
+$fileslistfile= 'debian/files';
+$varlistfile= 'debian/substvars';
+
+push(@INC,$dpkglibdir);
+require 'controllib.pl';
+
+$progname= "parsechangelog/$progname";
+
+$since='';
+
+sub usageversion {
+ print STDERR
+"Debian GNU/Linux parsechangelog/dpkg $version. Copyright (C) 1996
+Ian Jackson. This is free software; see the GNU General Public Licence
+version 2 or later for copying conditions. There is NO warranty.
+
+Usage: parsechangelog/dpkg [-v<versionsince] | -h
+";
+}
+
+while (@ARGV) {
+ $_=shift(@ARGV);
+ if (m/^-v(.+)$/) {
+ $since= $1;
+ } elsif (m/^-h$/) {
+ &usageversion; exit(0);
+ } else {
+ &usageerr("unknown option or argument \`$_'");
+ }
+}
+
+%mapkv=(); # for future use
+$i=100;grep($fieldimps{$_}=$i--,
+ qw(Source Version Distribution Urgency Maintainer Date Changes));
+$i=1;grep($urgencies{$_}=$i++,
+ qw(low medium routine high urgent emergency));
+
+$expect='first heading';
+
+while (<STDIN>) {
+ s/\s*\n$//;
+# printf(STDERR "%-39.39s %-39.39s\n",$expect,$_);
+ if (m/^(\w[-+0-9a-z.]+) \(([^\(\) \t]+)\)((\s+[-0-9a-z]+)+)\;/i) {
+ if ($expect eq 'first heading') {
+ $f{'Source'}= $1;
+ $f{'Version'}= $2;
+ $f{'Distribution'}= $3;
+ &error("-v<since> option specifies most recent version") if
+ $2 eq $since;
+ $f{'Distribution'} =~ s/^\s+//;
+ } elsif ($expect eq 'next heading or eof') {
+ last if $2 eq $since;
+ $f{'Changes'}.= " .\n";
+ } else {
+ &clerror("found start of entry where expected $expect");
+ }
+ $rhs= $'; $rhs =~ s/^\s+//;
+ undef %kvdone;
+ for $kv (split(/\s*,\s*/,$rhs)) {
+ $kv =~ m/^([-0-9a-z]+)\=\s*(.*\S)$/i ||
+ &clerror("bad key-value after \`;': \`$kv'");
+ $k=(uc substr($1,0,1)).(lc substr($1,1)); $v=$2;
+ $kvdone{$k}++ && &clwarn("repeated key-value $k");
+ if ($k eq 'Urgency') {
+ $v =~ m/^([-0-9a-z]+)((\s+.*)?)$/i ||
+ &clerror("badly formatted urgency value, at changelog ");
+ $newurg= lc $1;
+ $newurgn= $urgencies{lc $1}; $newcomment= $2;
+ $newurgn ||
+ &clwarn("unknown urgency value $newurg - comparing very low");
+ if (defined($f{'Urgency'})) {
+ $f{'Urgency'} =~ m/^([-0-9a-z]+)((\s+.*)?)$/i ||
+ &internerr("urgency >$f{'Urgency'}<");
+ $oldurg= lc $1;
+ $oldurgn= $urgencies{lc $1}; $oldcomment= $2;
+ } else {
+ $oldurgn= -1;
+ $oldcomment= '';
+ }
+ $f{'Urgency'}=
+ (($newurgn > $oldurgn ? $newurg : $oldurg).
+ $oldcomment.
+ $newcomment);
+ } elsif (defined($mapkv{$k})) {
+ $f{$mapkv{$k}}= $v;
+ } elsif ($k =~ m/^X[BCS]+-/i) {
+ # Extensions - XB for putting in Binary,
+ # XC for putting in Control, XS for putting in Source
+ $f{$k}= $v;
+ } else {
+ &clwarn("unknown key-value key $k - copying to XS-$k");
+ $f{"XS-$k"}= $v;
+ }
+ }
+ $expect= 'start of change data'; $blanklines=0;
+ $f{'Changes'}.= " $_\n .\n";
+ } elsif (m/^\S/) {
+ &clerror("badly formatted heading line");
+ } elsif (m/^ \-\- (\S.*\S) ((\w+\,\s*)?\d{1,2}\s+\w+\s+\d{4}\s+\d{1,2}:\d\d:\d\d\s+[-+]\d{4}(\s+\([^\\\(\)]\))?)$/) {
+ $expect eq 'more change data or trailer' ||
+ &clerror("found trailer where expected $expect");
+ $f{'Maintainer'}= $1 unless defined($f{'Maintainer'});
+ $f{'Date'}= $2 unless defined($f{'Date'});
+# $f{'Changes'}.= " .\n $_\n";
+ $expect= 'next heading or eof';
+ last if $since eq '';
+ } elsif (m/^ \-\-/) {
+ &clerror("badly formatted trailer line");
+ } elsif (m/^\s{2,}\S/) {
+ $expect eq 'start of change data' || $expect eq 'more change data or trailer' ||
+ &clerror("found change data where expected $expect");
+ $f{'Changes'}.= (" .\n"x$blanklines)." $_\n"; $blanklines=0;
+ $expect= 'more change data or trailer';
+ } elsif (!m/\S/) {
+ next if $expect eq 'start of change data' || $expect eq 'next heading or eof';
+ $expect eq 'more change data or trailer' ||
+ &clerror("found blank line where expected $expect");
+ $blanklines++;
+ } else {
+ &clerror("unrecognised line");
+ }
+}
+
+$expect eq 'next heading or eof' || die "found eof where expected $expect";
+
+$f{'Changes'} =~ s/\n$//;
+$f{'Changes'} =~ s/^/\n/;
+
+&outputclose;
+
+sub clerror { &error("$_[0], at changelog line $."); }
+sub clwarn { &warn("$_[0], at changelog line $."); }
--- /dev/null
+#!/usr/bin/perl
+#
+# Options:
+# -v<version>
+# changes since <version>
+
+$dpkglibdir= ".";
+$version= '1.3.0'; # This line modified by Makefile
+
+$controlfile= 'debian/control';
+$changelogfile= 'debian/changelog';
+$fileslistfile= 'debian/files';
+$varlistfile= 'debian/substvars';
+
+push(@INC,$dpkglibdir);
+require 'controllib.pl';
+
+$progname= "parsechangelog/$progname";
+
+$since='';
+
+sub usageversion {
+ print STDERR
+"Debian GNU/Linux parsechangelog/dpkg $version. Copyright (C) 1996
+Ian Jackson. This is free software; see the GNU General Public Licence
+version 2 or later for copying conditions. There is NO warranty.
+
+Usage: parsechangelog/dpkg [-v<versionsince] | -h
+";
+}
+
+while (@ARGV) {
+ $_=shift(@ARGV);
+ if (m/^-v(.+)$/) {
+ $since= $1;
+ } elsif (m/^-h$/) {
+ &usageversion; exit(0);
+ } else {
+ &usageerr("unknown option or argument \`$_'");
+ }
+}
+
+%mapkv=(); # for future use
+$i=100;grep($fieldimps{$_}=$i--,
+ qw(Source Version Distribution Urgency Maintainer Date Changes));
+$i=1;grep($urgencies{$_}=$i++,
+ qw(low medium routine high urgent emergency));
+
+$expect='first heading';
+
+while (<STDIN>) {
+ s/\s*\n$//;
+# printf(STDERR "%-39.39s %-39.39s\n",$expect,$_);
+ if (m/^(\w[-+0-9a-z.]+) \(([^\(\) \t]+)\)((\s+[-0-9a-z]+)+)\;/i) {
+ if ($expect eq 'first heading') {
+ $f{'Source'}= $1;
+ $f{'Version'}= $2;
+ $f{'Distribution'}= $3;
+ &error("-v<since> option specifies most recent version") if
+ $2 eq $since;
+ $f{'Distribution'} =~ s/^\s+//;
+ } elsif ($expect eq 'next heading or eof') {
+ last if $2 eq $since;
+ $f{'Changes'}.= " .\n";
+ } else {
+ &clerror("found start of entry where expected $expect");
+ }
+ $rhs= $'; $rhs =~ s/^\s+//;
+ undef %kvdone;
+ for $kv (split(/\s*,\s*/,$rhs)) {
+ $kv =~ m/^([-0-9a-z]+)\=\s*(.*\S)$/i ||
+ &clerror("bad key-value after \`;': \`$kv'");
+ $k=(uc substr($1,0,1)).(lc substr($1,1)); $v=$2;
+ $kvdone{$k}++ && &clwarn("repeated key-value $k");
+ if ($k eq 'Urgency') {
+ $v =~ m/^([-0-9a-z]+)((\s+.*)?)$/i ||
+ &clerror("badly formatted urgency value, at changelog ");
+ $newurg= lc $1;
+ $newurgn= $urgencies{lc $1}; $newcomment= $2;
+ $newurgn ||
+ &clwarn("unknown urgency value $newurg - comparing very low");
+ if (defined($f{'Urgency'})) {
+ $f{'Urgency'} =~ m/^([-0-9a-z]+)((\s+.*)?)$/i ||
+ &internerr("urgency >$f{'Urgency'}<");
+ $oldurg= lc $1;
+ $oldurgn= $urgencies{lc $1}; $oldcomment= $2;
+ } else {
+ $oldurgn= -1;
+ $oldcomment= '';
+ }
+ $f{'Urgency'}=
+ (($newurgn > $oldurgn ? $newurg : $oldurg).
+ $oldcomment.
+ $newcomment);
+ } elsif (defined($mapkv{$k})) {
+ $f{$mapkv{$k}}= $v;
+ } elsif ($k =~ m/^X[BCS]+-/i) {
+ # Extensions - XB for putting in Binary,
+ # XC for putting in Control, XS for putting in Source
+ $f{$k}= $v;
+ } else {
+ &clwarn("unknown key-value key $k - copying to XS-$k");
+ $f{"XS-$k"}= $v;
+ }
+ }
+ $expect= 'start of change data'; $blanklines=0;
+ $f{'Changes'}.= " $_\n .\n";
+ } elsif (m/^\S/) {
+ &clerror("badly formatted heading line");
+ } elsif (m/^ \-\- (\S.*\S) ((\w+\,\s*)?\d{1,2}\s+\w+\s+\d{4}\s+\d{1,2}:\d\d:\d\d\s+[-+]\d{4}(\s+\([^\\\(\)]\))?)$/) {
+ $expect eq 'more change data or trailer' ||
+ &clerror("found trailer where expected $expect");
+ $f{'Maintainer'}= $1 unless defined($f{'Maintainer'});
+ $f{'Date'}= $2 unless defined($f{'Date'});
+# $f{'Changes'}.= " .\n $_\n";
+ $expect= 'next heading or eof';
+ last if $since eq '';
+ } elsif (m/^ \-\-/) {
+ &clerror("badly formatted trailer line");
+ } elsif (m/^\s{2,}\S/) {
+ $expect eq 'start of change data' || $expect eq 'more change data or trailer' ||
+ &clerror("found change data where expected $expect");
+ $f{'Changes'}.= (" .\n"x$blanklines)." $_\n"; $blanklines=0;
+ $expect= 'more change data or trailer';
+ } elsif (!m/\S/) {
+ next if $expect eq 'start of change data' || $expect eq 'next heading or eof';
+ $expect eq 'more change data or trailer' ||
+ &clerror("found blank line where expected $expect");
+ $blanklines++;
+ } else {
+ &clerror("unrecognised line");
+ }
+}
+
+$expect eq 'next heading or eof' || die "found eof where expected $expect";
+
+$f{'Changes'} =~ s/\n$//;
+$f{'Changes'} =~ s/^/\n/;
+
+&outputclose;
+
+sub clerror { &error("$_[0], at changelog line $."); }
+sub clwarn { &warn("$_[0], at changelog line $."); }
--- /dev/null
+$parsechangelog= 'dpkg-parsechangelog';
+
+grep($capit{lc $_}=$_, qw(Pre-Depends Standards-Version));
+
+$substvar{'Format'}= 1.5;
+$substvar{'newline'}= "\n";
+$substvar{'space'}= " ";
+$substvar{'tab'}= "\t";
+
+$progname= $0; $progname= $& if $progname =~ m,[^/]+$,;
+
+sub capit {
+ return defined($capit{lc $_[0]}) ? $capit{lc $_[0]} :
+ (uc substr($_[0],0,1)).(lc substr($_[0],1));
+}
+
+sub findarch {
+ $arch=`dpkg --print-architecture`;
+ $? && &subprocerr("dpkg --print-archictecture");
+ $arch =~ s/\n$//;
+ $substvar{'arch'}= $arch;
+}
+
+sub substvars {
+ my ($v) = @_;
+ my $lhs,$vn,$rhs;
+ while ($v =~ m/\$\{([-:0-9a-z]+)\}/i) {
+ $lhs=$`; $vn=$1; $rhs=$';
+ if (defined($substvar{$vn})) {
+ $v= $lhs.$substvar{$vn}.$rhs;
+ } else {
+ &warn("unknown substitution variable \${$vn}");
+ $v= $lhs.$rhs;
+ }
+ }
+ return $v;
+}
+
+sub outputclose {
+ for $f (keys %f) { $substvar{"f:$f"}= $f{$f}; }
+ if (length($varlistfile)) {
+ $varlistfile="./$varlistfile" if $varlistfile =~ m/\s/;
+ if (open(SV,"< $varlistfile")) {
+ while (<SV>) {
+ next if m/^\#/;
+ s/\s*\n$//;
+ m/^(\w+)\=/ ||
+ &error("bad line in substvars file $varlistfile at line $.");
+ $substvar{$1}= $';
+ }
+ close(SV);
+ } elsif ($! !~ m/no such file or directory/i) {
+ &error("unable to open substvars file $varlistvile: $!");
+ }
+ }
+ for $f (sort { $fieldimps{$b} <=> $fieldimps{$a} } keys %f) {
+ $v= $f{$f};
+ $v= &substvars($v);
+ $v =~ m/\n\S/ && &internerr("field $f has newline then non whitespace >$v<");
+ $v =~ m/\n[ \t]*\n/ && &internerr("field $f has blank lines >$v<");
+ $v =~ m/\n$/ && &internerr("field $f has trailing newline >$v<");
+ $v =~ s/\$\{\}/\$/g;
+ print("$f: $v\n") || &syserr("write error on control data");
+ }
+
+ close(STDOUT) || &syserr("write error on close control data");
+}
+
+sub parsecontrolfile {
+ $controlfile="./$controlfile" if $controlfile =~ m/^\s/;
+
+ open(CDATA,"< $controlfile") || &error("cannot read control file $controlfile: $!");
+ $indices= &parsecdata('C',1,"control file $controlfile");
+ $indices >= 2 || &error("control file must have at least one binary package part");
+
+ for ($i=1;$i<$indices;$i++) {
+ defined($fi{"C$i Package"}) ||
+ &error("per-package paragraph $i in control info file is ".
+ "missing Package line");
+ }
+}
+
+sub parsechangelog {
+ defined($c=open(CDATA,"-|")) || &syserr("fork for parse changelog");
+ if (!$c) {
+ @al=($parsechangelog);
+ push(@al,"-F$changelogformat") if length($changelogformat);
+ push(@al,"-v$since") if length($since);
+ push(@al,"-l$changelogfile");
+ exec(@al) || &syserr("exec parsechangelog $parsechangelog");
+ }
+ &parsecdata('L',0,"parsed version of changelog");
+ close(CDATA); $? && &subprocerr("parse changelog");
+ $substvar{'sourceversion'}= $fi{"L Version"};
+}
+
+
+sub setsourcepackage {
+ if (length($sourcepackage)) {
+ $v eq $sourcepackage ||
+ &error("source package has two conflicting values - $sourcepackage and $v");
+ } else {
+ $sourcepackage= $v;
+ }
+}
+
+sub parsecdata {
+ local ($source,$many,$whatmsg) = @_;
+ # many=0: ordinary control data like output from dpkg-parsechangelog
+ # many=1: many paragraphs like in source control file
+ # many=-1: single paragraph of control data optionally signed
+ local ($index,$cf);
+ $index=''; $cf='';
+ while (<CDATA>) {
+ s/\s*\n$//;
+ if (m/^(\S+)\s*:\s*(.*)$/) {
+ $cf=$1; $v=$2;
+ $cf= &capit($cf);
+ $fi{"$source$index $cf"}= $v;
+ if (lc $cf eq 'package') { $p2i{"$source $v"}= $index; }
+ } elsif (m/^\s+\S/) {
+ length($cf) || &syntax("continued value line not in field");
+ $fi{"$source$index $cf"}.= "\n$_";
+ } elsif (m/^-----BEGIN PGP/ && $many<0) {
+ while (<CDATA>) { last if m/^$/; }
+ $many= -2;
+ } elsif (m/^$/) {
+ if ($many>0) {
+ $index++; $cf='';
+ } elsif ($many == -2) {
+ $_= <CDATA>;
+ length($_) ||
+ &syntax("expected PGP signature, found EOF after blank line");
+ s/\n$//;
+ m/^-----BEGIN PGP/ ||
+ &syntax("expected PGP signature, found something else \`$_'");
+ $many= -3; last;
+ } else {
+ &syntax("found several \`paragraphs' where only one expected");
+ }
+ } else {
+ &syntax("line with unknown format (not field-colon-value)");
+ }
+ }
+ $many == -2 && &syntax("found start of PGP body but no signature");
+ if (length($cf)) { $index++; }
+ $index || &syntax("empty file");
+ return $index;
+}
+
+sub unknown {
+ &warn("unknown information field $_ in input data in $_[0]");
+}
+
+sub syntax {
+ &error("syntax error in $whatmsg at line $.: $_[0]");
+}
+
+sub failure { die "$progname: failure: $_[0]\n"; }
+sub syserr { die "$progname: failure: $_[0]: $!\n"; }
+sub error { die "$progname: error: $_[0]\n"; }
+sub internerr { die "$progname: internal error: $_[0]\n"; }
+sub warn { warn "$progname: warning: $_[0]\n"; }
+sub usageerr { print(STDERR "$progname: @_\n\n"); &usageversion; exit(2); }
+
+sub subprocerr {
+ local ($p) = @_;
+ if (WIFEXITED($?)) {
+ die "$progname: failure: $p gave error exit status ".WEXITSTATUS($?)."\n";
+ } elsif (WIFSIGNALED($?)) {
+ die "$progname: failure: $p died from signal ".WTERMSIG($?)."\n";
+ } else {
+ die "$progname: failure: $p failed with unknown exit code $?\n";
+ }
+}
+
+1;
--- /dev/null
+#!/bin/sh
+
+set -e
+
+version="1.3.0"; # This line modified by Makefile
+
+progname="`basename \"$0\"`"
+usageversion () {
+ cat >&2 <<END
+Debian GNU/Linux dpkg-buildpackage $version. Copyright (C) 1996
+Ian Jackson. This is free software; see the GNU General Public Licence
+version 2 or later for copying conditions. There is NO warranty.
+
+Usage: dpkg-buildpackage [options]
+Options: -r<gain-root-command>
+ -p<pgp-command>
+ -b (binary-only)
+ -B (binary-only, no arch-indep files)
+ -us (unsigned source)
+ -uc (unsigned changes)
+END
+}
+
+rootcommand=''
+pgpcommand=pgp
+signsource=signfile
+signchanges=signfile
+
+while [ $# != 0 ]
+do
+ value="`echo x\"$1\" | sed -e 's/^x-.//'`"
+ case "$1" in
+ -h) usageversion; exit 0 ;;
+ -r*) rootcommand="$value" ;;
+ -p*) pgpcommand="$value" ;;
+ -us) signsource=: ;;
+ -uc) signchanges=: ;;
+ -b|-B) binaryonly=$1 ;;
+ *) echo >&2 "$progname: unknown option or argument $1"; exit 2 ;;
+ esac
+ shift
+done
+
+mustsetvar () {
+ if [ "x$2" = x ]; then
+ echo >&2 "$progname: unable to determine $3"
+ exit 1
+ else
+ echo "$progname: $3 is $2"
+ eval "$1=\"\$2\""
+ fi
+}
+
+curd="`pwd`"
+dirn="`basename \"$curd\"`"
+mustsetvar package "`dpkg-parsechangelog | sed -n 's/^Source: //p'`" "source package"
+mustsetvar version "`dpkg-parsechangelog | sed -n 's/^Version: //p'`" "source version"
+mustsetvar arch "`dpkg --print-architecture`" "build architecture"
+pv="${package}_${version}"
+pva="${package}_${version}_${arch}"
+
+signfile () {
+ $pgpcommand -fast <"../$1" >"../$1.asc"
+ mv -- "../$1.asc" "../$1"
+}
+
+set -x -e
+
+$rootcommand debian/rules clean
+if [ x$binaryonly = x ]; then
+ cd ..; dpkg-source -b "$dirn"; cd "$dirn"
+fi
+debian/rules build
+$rootcommand debian/rules binary
+$signsource "$pv.dsc"
+dpkg-genchanges $binaryonly >../"$pva.changes"
+$signchanges "$pva.changes"
--- /dev/null
+#!/usr/bin/perl
+
+$dpkglibdir= ".";
+$version= '1.3.0'; # This line modified by Makefile
+
+use POSIX;
+use POSIX qw(:errno_h :signal_h);
+
+$fileslistfile= 'debian/files';
+
+push(@INC,$dpkglibdir);
+require 'controllib.pl';
+
+sub usageversion {
+ print STDERR
+"Debian GNU/Linux dpkg-distaddfile $version. Copyright (C) 1996
+Ian Jackson. This is free software; see the GNU General Public Licence
+version 2 or later for copying conditions. There is NO warranty.
+
+Usage:
+ dpkg-addfile <filename> <section> <priority>
+Options: -f<fileslistfile> get files list from this file
+";
+}
+
+while (@ARGV && $ARGV[0] =~ m/^-/) {
+ $_=shift(@ARGV);
+ if (m/^-f/) {
+ $fileslistfile= $';
+ } elsif (m/^-h$/) {
+ &usageversion; exit(0);
+ } elsif (m/^--$/) {
+ last;
+ } else {
+ &usageerr("unknown option $_");
+ }
+}
+
+@ARGV==3 || &usageerr("need exactly a filename, section and priority");
+($file,$section,$priority)= @ARGV;
+
+($file =~ m/\s/ || $section =~ m/\s/ || $priority =~ m/\s/) &&
+ &error("filename, section and priority may contain no whitespace");
+
+$fileslistfile="./$fileslistfile" if $fileslistfile =~ m/^\s/;
+open(Y,"> $fileslistfile.new") || &syserr("open new files list file");
+if (open(X,"< $fileslistfile")) {
+ while (<X>) {
+ s/\n$//;
+ next if m/^(\S+) / && $1 eq $file;
+ print(Y "$_\n") || &syserr("copy old entry to new files list file");
+ }
+} elsif ($! != ENOENT) {
+ &syserr("read old files list file");
+}
+print(Y "$file $section $priority\n")
+ || &syserr("write new entry to new files list file");
+close(Y) || &syserr("close new files list file");
+rename("$fileslistfile.new",$fileslistfile) || &syserr("install new files list file");
--- /dev/null
+#!/usr/bin/perl
+
+$dpkglibdir= ".";
+$version= '1.3.0'; # This line modified by Makefile
+
+$controlfile= 'debian/control';
+$changelogfile= 'debian/changelog';
+$fileslistfile= 'debian/files';
+$varlistfile= 'debian/substvars';
+$uploadfilesdir= '..';
+
+use POSIX;
+use POSIX qw(:errno_h :signal_h);
+
+push(@INC,$dpkglibdir);
+require 'controllib.pl';
+
+sub usageversion {
+ print STDERR
+"Debian GNU/Linux dpkg-genchanges $version. Copyright (C) 1996
+Ian Jackson. This is free software; see the GNU General Public Licence
+version 2 or later for copying conditions. There is NO warranty.
+
+Usage: dpkg-genchanges [options ...]
+
+Options: -b binary-only build - no source files
+ -B architecture-only build - no src or \`all'
+ -c<controlfile> get control info from this file
+ -l<changelogfile> get per-version info from this file
+ -f<fileslistfile> get .deb files list from this file
+ -v<sinceversion> include all changes later than version
+ -d<changesdescription> use change description from this file
+ -m<maintaineraddress> override changelog's maintainer value
+ -u<uploadfilesdir> directory with files (default is \`..'
+ -F<changelogformat> force change log format
+ -D<field>=<value> override or add a field and value
+ -U<field> remove a field
+ -V<name>=<value> set a substitution variable
+ -T<varlistfile> read variables here, not debian/substvars
+";
+}
+
+$i=100;grep($fieldimps{$_}=$i--,
+ qw(Format Date Source Binary Architecture Version
+ Distribution Urgency Maintainer Description Changes Files));
+
+while (@ARGV) {
+ $_=shift(@ARGV);
+ if (m/^-b$/) {
+ $binaryonly= 1;
+ } elsif (m/^-B$/) {
+ $binaryonly= 2;
+ } elsif (m/^-c/) {
+ $controlfile= $';
+ } elsif (m/^-l/) {
+ $changelogfile= $';
+ } elsif (m/^-d/) {
+ $changesdescription= $';
+ } elsif (m/^-f/) {
+ $fileslistfile= $';
+ } elsif (m/^-v/) {
+ $since= $';
+ } elsif (m/^-T/) {
+ $varlistfile= $';
+ } elsif (m/^-m/) {
+ $forcemaint= $';
+ } elsif (m/^-F([0-9a-z]+)$/) {
+ $changelogformat=$1;
+ } elsif (m/^-D([^\=:]+)[=:]/) {
+ $override{$1}= $';
+ } elsif (m/^-U([^\=:]+)$/) {
+ $remove{$1}= 1;
+ } elsif (m/^-V(\w+)[=:]/) {
+ $substvar{$1}= $';
+ } elsif (m/^-h$/) {
+ &usageversion; exit(0);
+ } else {
+ &usageerr("unknown option \`$_'");
+ }
+}
+
+&findarch;
+&parsechangelog;
+&parsecontrolfile;
+
+$fileslistfile="./$fileslistfile" if $fileslistfile =~ m/^\s/;
+open(FL,"< $fileslistfile") || &syserr("cannot read files list file");
+while(<FL>) {
+ if (m/^(([-+.0-9a-z]+)_([^_]+)_(\w+)\.deb) (\S+) (\S+)$/) {
+ defined($p2f{$2}) &&
+ &warn("duplicate files list entry for package $2 (line $.)");
+ $p2f{$2}= $1;
+ $p2ver{$2}= $3;
+ defined($f2sec{$1}) &&
+ &warn("duplicate files list entry for file $1 (line $.)");
+ $f2sec{$1}= $5;
+ $f2pri{$1}= $6;
+ next if $4 eq 'all' && $binaryonly>=2;
+ push(@fileslistfiles,$1);
+ } elsif (m/^([-+.,_0-9a-zA-Z]+) (\S+) (\S+)$/) {
+ defined($f2sec{$1}) &&
+ &warn("duplicate files list entry for file $1 (line $.)");
+ $f2sec{$1}= $2;
+ $f2pri{$1}= $3;
+ push(@fileslistfiles,$1);
+ } else {
+ &error("badly formed line in files list file, line $.");
+ }
+}
+close(FL);
+
+$archspecific=0;
+for $_ (keys %fi) {
+ $v= $fi{$_};
+ if (s/^C //) {
+#print STDERR "G key >$_< value >$v<\n";
+ if (m/^Source$/) { &setsourcepackage; }
+ elsif (m/^Section$|^Priority$/) { $sourcedefault{$_}= $v; }
+ elsif (s/^X[BS]*C[BS]*-//i) { $f{$_}= $v; }
+ elsif (m/|^X[BS]+-|^Standards-Version$|^Maintainer$/i) { }
+ else { &unknown('general section of control info file'); }
+ } elsif (s/^C(\d+) //) {
+#print STDERR "P key >$_< value >$v<\n";
+ $i=$1; $p=$fi{"C$i Package"};
+ defined($p2f{$p}) || &error("package $p in control file but not in files list");
+ $f= $p2f{$p};
+ if (m/^Description$/) {
+ $v=$` if $v =~ m/\n/;
+ push(@descriptions,sprintf("%-10s - %-.65s",$p,$v));
+ } elsif (m/^Section$/) {
+ $f2seccf{$f}= $v;
+ } elsif (m/^Priority$/) {
+ $f2pricf{$f}= $v;
+ } elsif (s/^X[BS]*C[BS]*-//i) {
+ $f{$_}= $v;
+ } elsif (m/^Architecture$/) {
+ next if $v eq 'all' && $binaryonly>=2;
+ $v= $arch if $v eq 'any';
+ push(@archvalues,$v) unless $archadded{$v}++;
+ } elsif (m/^(Package|Essential|Pre-Depends|Depends|Provides)$/ ||
+ m/^(Recommends|Suggests|Optional|Conflicts|Replaces)$/ ||
+ m/^X[CS]+-/i) {
+ } else {
+ &unknown("package's section of control info file");
+ }
+ } elsif (s/^L //) {
+#print STDERR "L key >$_< value >$v<\n";
+ if (m/^Source$/) {
+ &setsourcepackage;
+ } elsif (m/^(Version|Maintainer|Changes|Urgency|Distribution|Date)$/) {
+ $f{$_}= $v;
+ } elsif (s/^X[BS]*C[BS]*-//i) {
+ $f{$_}= $v;
+ } elsif (!m/^X[BS]+-/i) {
+ &unknown("parsed version of changelog");
+ }
+ } else {
+ &internerr("value from nowhere, with key >$_< and value >$v<");
+ }
+}
+
+if ($changesdescription) {
+ $changesdescription="./$changesdescription" if $changesdescription =~ m/^\s/;
+ $f{'Changes'}= '';
+ open(X,"< $changesdescription") || &syserr("read changesdescription");
+ while(<X>) {
+ s/\s*\n$//;
+ $_= '.' unless m/\S/;
+ $f{'Changes'}.= "\n $_";
+ }
+}
+
+for $p (keys %p2f) {
+ defined($p2i{"C $p"}) ||
+ &warn("package $p listed in files list but not in control info");
+}
+
+for $p (keys %p2f) {
+ $f= $p2f{$p};
+ $sec= $f2seccf{$f}; $sec= $sourcedefault{'Section'} if !length($sec);
+ $sec eq $f2sec{$f} || &error("package $p has section $sec in control file".
+ " but $f2sec{$f} in files list");
+ $pri= $f2pricf{$f}; $pri= $sourcedefault{'Priority'} if !length($pri);
+ $pri eq $f2pri{$f} || &error("package $p has priority $pri in control".
+ " file but $f2pri{$f} in files list");
+}
+
+if (!$binaryonly) {
+ $version= $f{'Version'};
+ $origversion= $version; $origversion =~ s/-[^-]+$//;
+ $sec= $sourcedefault{'Section'};
+ if (!length($sec)) { $sec='-'; &warn("missing Section for source files"); }
+ $pri= $sourcedefault{'Priority'};
+ if (!length($pri)) { $pri='-'; &warn("missing Priority for source files"); }
+
+ $dsc= "$uploadfilesdir/${sourcepackage}_${version}.dsc";
+ open(CDATA,"< $dsc") || &error("cannot open .dsc file $dsc: $!");
+ push(@sourcefiles,"${sourcepackage}_${version}.dsc");
+
+ &parsecdata('S',-1,"source control file $dsc");
+ $files= $fi{'S Files'};
+ for $file (split(/\n /,$files)) {
+ next if $file eq '';
+ $file =~ m/^([0-9a-f]{32})[ \t]+\d+[ \t]+([0-9a-zA-Z][-+:.,=0-9a-zA-Z_]+)$/
+ || &error("Files field contains bad line \`$file'");
+ ($md5sum{$2},$file) = ($1,$2);
+ push(@sourcefiles,$file);
+ }
+ for $f (@sourcefiles) { $f2sec{$f}= $sec; $f2pri{$f}= $pri; }
+}
+
+$f{'Format'}= $substvar{'Format'};
+
+if (!length($f{'Date'})) {
+ chop($date822=`822-date`); $? && subprocerr("822-date");
+ $f{'Date'}= $date822;
+}
+
+$f{'Binary'}= join(' ',grep(s/C //,keys %p2i));
+
+unshift(@archvalues,'source') unless $binaryonly;
+$f{'Architecture'}= join(' ',@archvalues);
+
+$f{'Description'}= "\n ".join("\n ",sort @descriptions);
+
+$f{'Files'}= '';
+for $f (@sourcefiles,@fileslistfiles) {
+ next if $filedone{$f}++;
+ $uf= "$uploadfilesdir/$f";
+ open(STDIN,"< $uf") || &syserr("cannot open upload file $uf for reading");
+ (@s=stat(STDIN)) || &syserr("cannot fstat upload file $uf");
+ $size= $s[7]; $size || &warn("upload file $uf is empty");
+ $md5sum=`md5sum`; $? && subprocerr("md5sum upload file $uf");
+ $md5sum =~ m/^([0-9a-f]{32})\s*$/i ||
+ &failure("md5sum upload file $uf gave strange output \`$md5sum'");
+ $md5sum= $1;
+ defined($md5sum{$f}) && $md5sum{$f} ne $md5sum &&
+ &error("md5sum of source file $uf ($md5sum) is different from md5sum in $dsc".
+ " ($md5sum{$f})");
+ $f{'Files'}.= "\n $md5sum $size $f2sec{$f} $f2pri{$f} $f";
+}
+
+$f{'Source'}= $sourcepackage;
+
+$f{'Maintainer'}= $forcemaint if length($forcemaint);
+
+for $f (qw(Version Distribution Maintainer Changes)) {
+ defined($f{$f}) || &error("missing information for critical output field $f");
+}
+
+for $f (qw(Urgency)) {
+ defined($f{$f}) || &warn("missing information for output field $f");
+}
+
+for $f (keys %override) { $f{&capit($f)}= $override{$f}; }
+for $f (keys %remove) { delete $f{&capit($f)}; }
+
+&outputclose;
--- /dev/null
+#!/usr/bin/perl
+
+$dpkglibdir= ".";
+$version= '1.3.0'; # This line modified by Makefile
+
+$controlfile= 'debian/control';
+$changelogfile= 'debian/changelog';
+$fileslistfile= 'debian/files';
+$varlistfile= 'debian/substvars';
+
+use POSIX;
+use POSIX qw(:errno_h);
+
+push(@INC,$dpkglibdir);
+require 'controllib.pl';
+
+sub usage {
+ print STDERR
+"Debian GNU/Linux dpkg-gencontrol $version. Copyright (C) 1996
+Ian Jackson. This is free software; see the GNU General Public Licence
+version 2 or later for copying conditions. There is NO warranty.
+
+Usage: dpkg-gencontrol [options ...]
+
+Options: -p<package> print control file for package
+ -c<controlfile> get control info from this file
+ -l<changelogfile> get per-version info from this file
+ -F<changelogformat> force change log format
+ -v<forceversion> set version of binary package
+ -f<fileslistfile> write files here instead of debian/files
+ -is include section field
+ -ip include priority field
+ -isp|-ips include both section and priority
+ -D<field>=<value> override or add a field and value
+ -U<field> remove a field
+ -V<name>=<value> set a substitution variable
+ -T<varlistfile> read variables here, not debian/substvars
+";
+}
+
+$i=100;grep($fieldimps{$_}=$i--,
+ qw(Package Version Section Priority Architecture Essential
+ Pre-Depends Depends Recommends Suggests Optional Conflicts Replaces
+ Provides Maintainer Source Description));
+
+while (@ARGV) {
+ $_=shift(@ARGV);
+ if (m/^-p([-+0-9a-z.]+)$/) {
+ $oppackage= $1;
+ } elsif (m/^-c/) {
+ $controlfile= $';
+ } elsif (m/^-l/) {
+ $changelogfile= $';
+ } elsif (m/^-f/) {
+ $fileslistfile= $';
+ } elsif (m/^-v(.+)$/) {
+ $forceversion= $1;
+ } elsif (m/^-is$/) {
+ $spinclude{'Section'}=1;
+ } elsif (m/^-ip$/) {
+ $spinclude{'Priority'}=1;
+ } elsif (m/^-isp$/ || m/^-ips$/) {
+ $spinclude{'Section'}=1;
+ $spinclude{'Priority'}=1;
+ } elsif (m/^-F([0-9a-z]+)$/) {
+ $changelogformat=$1;
+ } elsif (m/^-D([^\=:]+)[=:]/) {
+ $override{$1}= $';
+ } elsif (m/^-U([^\=:]+)$/) {
+ $remove{$1}= 1;
+ } elsif (m/^-V(\w+)[=:]/) {
+ $substvar{$1}= $';
+ } elsif (m/^-T/) {
+ $varlistfile= $';
+ } elsif (m/^-h$/) {
+ &usageversion; exit(0);
+ } else {
+ &usageerr("unknown option \`$_'");
+ }
+}
+
+$arch=`dpkg --print-architecture`;
+$? && &subprocerr("dpkg --print-architecture");
+$arch =~ s/\n$//;
+
+&parsechangelog;
+&parsecontrolfile;
+
+if (length($oppackage)) {
+ defined($p2i{"C $oppackage"}) || &error("package $oppackage not in control info");
+ $myindex= $p2i{"C $oppackage"};
+} else {
+ @packages= grep(m/^C /,keys %p2i);
+ @packages==1 ||
+ &error("must specify package since control info has many (@packages)");
+ $myindex=1;
+}
+
+#print STDERR "myindex $myindex\n";
+
+for $_ (keys %fi) {
+ $v= $fi{$_};
+ if (s/^C //) {
+#print STDERR "G key >$_< value >$v<\n";
+ if (m/^Maintainer$/) { $f{$_}=$v; }
+ elsif (m/^Source$/) { &setsourcepackage; }
+ elsif (s/^X[CS]*B[CS]*-//i) { $f{$_}= $v; }
+ elsif (m/^X[CS]+-|^Standards-Version$/i) { }
+ elsif (m/^Section$|^Priority$/) { $spdefault{$_}= $v; }
+ else { &unknown('general section of control info file'); }
+ } elsif (s/^C$myindex //) {
+#print STDERR "P key >$_< value >$v<\n";
+ if (m/^(Package|Description|Essential|Pre-Depends|Depends)$/ ||
+ m/^(Recommends|Suggests|Optional|Conflicts|Provides|Replaces)$/) {
+ $f{$_}= $v;
+ } elsif (m/^Section$|^Priority$/) {
+ $spvalue{$_}= $v;
+ } elsif (m/^Architecture$/) {
+ if ($v eq 'all') {
+ $f{$_}= $v;
+ } elsif ($v eq 'any') {
+ $f{$_}= $arch;
+ } else {
+ @archlist= split(/\s+/,$v);
+ grep($arch eq $_, @archlist) ||
+ &error("current build architecture $arch does not".
+ " appear in package's list (@archlist)");
+ $f{$_}= $arch;
+ }
+ } elsif (s/^X[CS]*B[CS]*-//i) {
+ $f{$_}= $v;
+ } elsif (!m/^X[CS]+-/i) {
+ &unknown("package's section of control info file");
+ }
+ } elsif (m/^C\d+ /) {
+#print STDERR "X key >$_< value not shown<\n";
+ } elsif (s/^L //) {
+#print STDERR "L key >$_< value >$v<\n";
+ if (m/^Source$/) {
+ &setsourcepackage;
+ } elsif (m/^Version$/) {
+ $sourceversion= $v;
+ $f{$_}= $v unless length($forceversion);
+ } elsif (m/^(Maintainer|Changes|Urgency|Distribution|Date)$/) {
+ } elsif (s/^X[CS]*B[CS]*-//i) {
+ $f{$_}= $v;
+ } elsif (!m/^X[CS]+-/i) {
+ &unknown("parsed version of changelog");
+ }
+ } else {
+ &internerr("value from nowhere, with key >$_< and value >$v<");
+ }
+}
+
+$f{'Version'}= $forceversion if length($forceversion);
+
+for $f (qw(Section Priority)) {
+ $spvalue{$f}= $spdefault{$f} unless length($spvalue{$f});
+ $f{$f}= $spvalue{$f} if $spinclude{$f} && length($spvalue{$f});
+}
+
+for $f (qw(Package Version)) {
+ defined($f{$f}) || &error("missing information for output field $f");
+}
+for $f (qw(Maintainer Description Architecture)) {
+ defined($f{$f}) || &warn("missing information for output field $f");
+}
+$oppackage= $f{'Package'};
+
+$verdiff= $f{'Version'} ne $sourceversion;
+if ($oppackage ne $sourcepackage || $verdiff) {
+ $f{'Source'}= $sourcepackage;
+ $f{'Source'}.= " ($sourceversion)" if $verdiff;
+}
+
+$fileslistfile="./$fileslistfile" if $fileslistfile =~ m/^\s/;
+open(Y,"> $fileslistfile.new") || &syserr("open new files list file");
+if (open(X,"< $fileslistfile")) {
+ while (<X>) {
+ s/\n$//;
+ next if m/^([-+0-9a-z.]+)_[^_]+_\w+\.deb / && $1 eq $oppackage;
+ print(Y "$_\n") || &syserr("copy old entry to new files list file");
+ }
+} elsif ($! != ENOENT) {
+ &syserr("read old files list file");
+}
+print(Y &substvars(sprintf("%s_%s_%s.deb %s %s\n",
+ $oppackage,$f{'Version'},$f{'Architecture'},
+ &spfileslistvalue('Section'), &spfileslistvalue('Priority'))))
+ || &syserr("write new entry to new files list file");
+close(Y) || &syserr("close new files list file");
+rename("$fileslistfile.new",$fileslistfile) || &syserr("install new files list file");
+
+for $f (keys %override) { $f{&capit($f)}= $override{$f}; }
+for $f (keys %remove) { delete $f{&capit($f)}; }
+
+&outputclose;
+
+sub spfileslistvalue {
+ $r= $spvalue{$_[0]};
+ $r= '-' if !length($r);
+ return $r;
+}
--- /dev/null
+#!/usr/bin/perl
+
+$dpkglibdir= ".";
+$version= '1.3.0'; # This line modified by Makefile
+
+$format='dpkg';
+$changelogfile='debian/changelog';
+@parserpath= ("/usr/local/lib/dpkg/parsechangelog",
+ "$dpkglibdir/parsechangelog");
+
+use POSIX;
+use POSIX qw(:errno_h);
+
+push(@INC,$dpkglibdir);
+require 'controllib.pl';
+
+sub usageversion {
+ print STDERR
+"Debian GNU/Linux dpkg-source $version. Copyright (C) 1996
+Ian Jackson. This is free software; see the GNU General Public Licence
+version 2 or later for copying conditions. There is NO warranty.
+
+Usage: dpkg-parsechangelog [-L<libdir>] [-F<format>] [-v<version>]
+ [-lchangelogfile]
+";
+}
+
+@ap=();
+while (@ARGV) {
+ last unless $ARGV[0] =~ m/^-/;
+ $_= shift(@ARGV);
+ if (m/^-L/ && length($_)>2) { $libdir=$'; next; }
+ if (m/^-F([0-9a-z]+)$/) { $force=1; $format=$1; next; }
+ if (m/^-l/ && length($_)>2) { $changelogfile=$'; next; }
+ push(@ap,$_);
+ m/^--$/ && last;
+ m/^-v/ && next;
+ &usageerr("unknown option \`$_'");
+}
+
+@ARGV && &usageerr("$progname takes no non-option arguments");
+$changelogfile= "./$changelogfile" if $changelogfile =~ m/^\s/;
+
+if (!$force) {
+ open(STDIN,"< $changelogfile") ||
+ &error("cannot open $changelogfile to find format: $!");
+ open(P,"tail -40 |") || die "cannot fork: $!\n";
+ while(<P>) {
+ next unless m/\schangelog-format:\s+([0-9a-z]+)\W/;
+ $format=$1;
+ }
+ close(P); $? && &subprocerr("tail of $changelogfile");
+}
+
+for $pd (@parserpath) {
+ $pa= "$pd/$format";
+ if (!stat("$pa")) {
+ $! == ENOENT || &syserr("failed to check for format parser $pa");
+ } elsif (!-x _) {
+ &warn("format parser $pa not executable");
+ } else {
+ $pf= $pa;
+ }
+}
+
+defined($pf) || &error("format $pa unknown");
+
+open(STDIN,"< $changelogfile") || die "cannot open $changelogfile: $!\n";
+exec($pf,@ap); die "cannot exec format parser: $!\n";
--- /dev/null
+#!/usr/bin/perl
+
+use POSIX;
+use POSIX qw(:errno_h :signal_h);
+
+$dpkglibdir= ".";
+$version= '1.3.0'; # This line modified by Makefile
+
+push(@INC,$dpkglibdir);
+require 'controllib.pl';
+
+sub usageversion {
+ print STDERR
+"Debian GNU/Linux dpkg-source $version. Copyright (C) 1996
+Ian Jackson. This is free software; see the GNU General Public Licence
+version 2 or later for copying conditions. There is NO warranty.
+
+Usage:
+ dpkg-source -x <filename>.dsc
+ dpkg-source -b <directory> [<orig-directory>|\'\']
+Options: -c<controlfile> get control info from this file\n".
+"(for -b) -l<changelogfile> get per-version info from this file
+ -F<changelogformat> force change log format
+ -D<field>=<value> override or add a .dsc field and value
+ -U<field> remove a field
+ -V<name>=<value> set a substitution variable
+ -h print this message
+Relative filenames for -c and -l are interpreted starting at the
+source tree's top level directory. If <orig-directory> is omitted then
+it defaults to <directory>.orig if that exists or to \'\' (indicating a
+Debian-special package without a diff) if <directory>.orig doesn\`t.
+";
+}
+
+$i=100;grep($fieldimps{$_}=$i--,
+ qw(Source Version Binary Maintainer Architecture Standards-Version));
+
+while (@ARGV && $ARGV[0] =~ m/^-/) {
+ $_=shift(@ARGV);
+ if (m/^-b$/) {
+ &setopmode('build');
+ } elsif (m/^-x$/) {
+ &setopmode('extract');
+ } elsif (m/^-c/) {
+ $controlfile= $';
+ } elsif (m/^-l/) {
+ $changelogfile= $';
+ } elsif (m/^-F([0-9a-z]+)$/) {
+ $changelogformat=$1;
+ } elsif (m/^-D([^\=:]+)[=:]/) {
+ $override{$1}= $';
+ } elsif (m/^-U([^\=:]+)$/) {
+ $remove{$1}= 1;
+ } elsif (m/^-V(\w+)[=:]/) {
+ $substvar{$1}= $';
+ } elsif (m/^-h$/) {
+ &usageversion; exit(0);
+ } elsif (m/^--$/) {
+ last;
+ } else {
+ &usageerr("unknown option $_");
+ }
+}
+
+defined($opmode) || &usageerr("need -x or -b");
+
+if ($opmode eq 'build') {
+
+ @ARGV || &usageerr("-b needs a directory");
+ @ARGV<=2 || &usageerr("-b takes at most a directory and an orig directory");
+ $dir= shift(@ARGV);
+ $dir= "./$dir" unless $dir =~ m:^/:;
+ stat($dir) || &error("cannot stat directory $dir: $!");
+ -d $dir || &error("directory argument $dir is not a directory");
+
+ $!=0; if (@ARGV) {
+ $origdir= shift(@ARGV);
+ if (length($origdir)) {
+ stat($origdir) || &error("cannot find orig directory $origdir: $!");
+ -d $origdir || &error("orig directory argument $origdir is not a directory");
+ }
+ } elsif (!stat("$dir.orig")) {
+ $! == ENOENT || &error("cannot stat tentative orig dir $dir.orig: $!");
+ $origdir= '';
+ } elsif (-d _) {
+ $origdir= "$dir.orig";
+ } else {
+ &error("tentative orig directory $dir.orig is not a directory");
+ }
+
+ $changelogfile= "$dir/debian/changelog" unless defined($changelogfile);
+ $controlfile= "$dir/debian/control" unless defined($controlfile);
+
+ &parsechangelog;
+ &parsecontrolfile;
+
+ $archspecific=0;
+ for $_ (keys %fi) {
+ $v= $fi{$_};
+ if (s/^C //) {
+#print STDERR "G key >$_< value >$v<\n";
+ if (m/^Source$/) { &setsourcepackage; }
+ elsif (m/^Standards-Version$|^Maintainer$/) { $f{$_}= $v; }
+ elsif (s/^X[BC]*S[BC]*-//i) { $f{$_}= $v; }
+ elsif (m/^(Section|Priority|Files)$/ || m/^X[BC]+-/i) { }
+ else { &unknown('general section of control info file'); }
+ } elsif (s/^C(\d+) //) {
+#print STDERR "P key >$_< value >$v<\n";
+ $i=$1; $p=$fi{"C$i Package"};
+ push(@binarypackages,$p) unless $packageadded{$p}++;
+ if (m/^Architecture$/) {
+#print STDERR "$p >$v< >".join(' ',@sourcearch)."<\n";
+ if ($v eq 'any') {
+ @sourcearch= ('any');
+ } elsif ($v eq 'all') {
+ if (!@sourcearch || $sourcearch[0] eq 'all') {
+ @sourcearch= ('all');
+ } else {
+ @sourcearch= ('any');
+ }
+ } else {
+ if (grep($sourcearch[0] eq $_, 'any','all')) {
+ @sourcearch= ('any');
+ } else {
+ for $a (split(/\s+/,$v)) {
+ &error("architecture $a only allowed on its own".
+ " (list for package $p is \`$a')")
+ if grep($a eq $_, 'any','all');
+ push(@sourcearch,$a) unless $archadded{$a}++;
+ }
+ }
+ }
+ $f{'Architecture'}= join(' ',@sourcearch);
+ } elsif (s/^X[BC]*S[BC]*-//i) {
+ $f{$_}= $v;
+ } elsif (m/^(Package|Essential|Pre-Depends|Depends|Provides)$/ ||
+ m/^(Recommends|Suggests|Optional|Conflicts|Replaces)$/ ||
+ m/^(Description|Section|Priority)$/ ||
+ m/^X[CS]+-/i) {
+ } else {
+ &unknown("package's section of control info file");
+ }
+ } elsif (s/^L //) {
+#print STDERR "L key >$_< value >$v<\n";
+ if (m/^Source$/) {
+ &setsourcepackage;
+ } elsif (m/^Version$/) {
+ $f{$_}= $v;
+ } elsif (s/^X[BS]*C[BS]*-//i) {
+ $f{$_}= $v;
+ } elsif (m/^(Maintainer|Changes|Urgency|Distribution|Date)$/ ||
+ m/^X[BS]+-/i) {
+ } else {
+ &unknown("parsed version of changelog");
+ }
+ } else {
+ &internerr("value from nowhere, with key >$_< and value >$v<");
+ }
+ }
+
+ $f{'Binary'}= join(', ',@binarypackages);
+ for $f (keys %override) { $f{&capit($f)}= $override{$f}; }
+
+ for $f (qw(Version)) {
+ defined($f{$f}) || &error("missing information for critical output field $f");
+ }
+ for $f (qw(Maintainer Architecture Standards-Version)) {
+ defined($f{$f}) || &warn("missing information for output field $f");
+ }
+ defined($sourcepackage) || &error("unable to determine source package name !");
+ $f{'Source'}= $sourcepackage;
+ for $f (keys %remove) { delete $f{&capit($f)}; }
+
+ $version= $f{'Version'}; $version =~ s/^\d+://;
+ $basenamerev= $basename= $sourcepackage.'_'.$version;
+ $basename =~ s/-[^_]+$//;
+ $basedirname= $basename;
+#print STDERR ">$basedirname<\n";
+ $basedirname =~ s/_/-/;
+#print STDERR ">$basedirname<\n";
+
+ $dirbase= $dir; $dirbase =~ s,/?$,,; $dirbase =~ s,[^/]+$,,; $dirname= $&;
+ if (length($origdir)) {
+ $origdirbase= $origdir; $origdirbase =~ s,/?$,,;
+ $origdirbase =~ s,[^/]+$,,; $origdirname= $&;
+
+ $origdirname eq "$basedirname.orig" ||
+ &warn(".orig directory name $origdirname is not package-origversion".
+ " (wanted $basedirname.orig)");
+ $tardirbase= $origdirbase; $tardirname= $origdirname;
+ $tarname= "$basename.orig.tar.gz";
+ } else {
+ $tardirbase= $dirbase; $tardirname= $dirname;
+ $tarname= "$basename.tar.gz";
+ }
+
+ print("$progname: building $sourcepackage in $tarname\n")
+ || &syserr("write building tar message");
+ &forkgzipwrite($tarname);
+ defined($c2= fork) || &syserr("fork for tar");
+ if (!$c2) {
+ chdir($tardirbase) || &syserr("chdir to above (orig) source $tardirbase");
+ open(STDOUT,">&GZIP") || &syserr("reopen gzip for tar");
+ exec('tar','-cO','--',$tardirname); &syserr("exec tar");
+ }
+ close(GZIP);
+ &reapgzip;
+ $c2 == waitpid($c2,0) || &syserr("wait for tar");
+ $? && !(WIFSIGNALED($c2) && WTERMSIG($c2) == SIGPIPE) && subprocerr("tar");
+ addfile("$tarname");
+
+ if (length($origdir)) {
+ print("$progname: building $sourcepackage in $basenamerev.diff.gz\n")
+ || &syserr("write building diff message");
+ &forkgzipwrite("$basenamerev.diff.gz");
+
+ defined($c2= open(FIND,"-|")) || &syserr("fork for find");
+ if (!$c2) {
+ chdir($dirname) || &syserr("chdir to $dirname for find");
+ exec('find','.','-print0'); &syserr("exec find");
+ }
+ $/= "\0";
+
+ file:
+ while (defined($fn= <FIND>)) {
+ $fn =~ s/\0$//; $fn =~ s,^\./,,;
+ lstat("$dir/$fn") || &syserr("cannot stat file $dir/$fn");
+ if (-l _) {
+ $type{$fn}= 'symlink';
+ &checktype('-l') || next;
+ defined($n= readlink("$dir/$fn")) ||
+ &syserr("cannot read link $dir/$fn");
+ defined($n2= readlink("$origdir/$fn")) ||
+ &syserr("cannot read orig link $origdir/$fn");
+ $n eq $nw || &unrepdiff2("symlink to $n2","symlink to $n");
+ } elsif (-f _) {
+ $type{$fn}= 'plain file';
+ if (!lstat("$origdir/$fn")) {
+ $! == ENOENT || &syserr("cannot stat orig file $origdir/$fn");
+ $ofnread= '/dev/null';
+ } elsif (-f _) {
+ $ofnread= "$origdir/$fn";
+ } else {
+ &unrepdiff2("something else","plain file");
+ next;
+ }
+ defined($c3= open(DIFFGEN,"-|")) || &syserr("fork for diff");
+ if (!$c3) {
+ exec('diff','-u',
+ '-L',"$basedirname.orig/$fn",
+ '-L',"$basedirname/$fn",
+ '--',"$ofnread","$dir/$fn"); &syserr("exec diff");
+ }
+ $difflinefound= 0;
+ $/= "\n";
+ while (<DIFFGEN>) {
+ if (m/^binary/i) {
+ close(DIFFGEN); $/= "\0";
+ &unrepdiff("binary file contents changed");
+ next file;
+ } elsif (m/^[-+\@ ]/) {
+ $difflinefound=1;
+ } else {
+ s/\n$//;
+ &internerr("unknown line from diff -u on $dirname/$fn: \`$_'");
+ }
+ print(GZIP $_) || &syserr("failed to write to gzip");
+ }
+ close(DIFFGEN); $/= "\0";
+ if (WIFEXITED($?) && (($es=WEXITSTATUS($?))==0 || $es==1)) {
+ if ($es==1 && !$difflinefound) {
+ &unrepdiff("diff gave 1 but no diff lines found");
+ }
+ } else {
+ subprocerr("diff on $dirname/$fn");
+ }
+ } elsif (-p _) {
+ $type{$fn}= 'pipe';
+ &checktype('-p');
+ } elsif (-b _ || -c _ || -S _) {
+ &unrepdiff("device or socket is not allowed");
+ } elsif (-d _) {
+ $type{$fn}= 'directory';
+ } else {
+ &unrepdiff("unknown file type ($!)");
+ }
+ }
+ close(FIND); $? && subprocerr("find on $dirname");
+ close(GZIP) || &syserr("finish write to gzip pipe");
+ &reapgzip;
+
+ defined($c2= open(FIND,"-|")) || &syserr("fork for 2nd find");
+ if (!$c2) {
+ chdir($origdirname) || &syserr("chdir to $origdirname for 2nd find");
+ exec('find','.','-print0'); &syserr("exec 2nd find");
+ }
+ $/= "\0";
+ while (defined($fn= <FIND>)) {
+ $fn =~ s/\0$//; $fn =~ s,^\./,,;
+ next if defined($type{$fn});
+ lstat("$origdir/$fn") || &syserr("cannot check orig file $origdir/$fn");
+ if (-f _) {
+ &warn("ignoring deletion of file $fn");
+ } elsif (-d _) {
+ &warn("ignoring deletion of directory $fn");
+ } elsif (-l _) {
+ &warn("ignoring deletion of symlink $fn");
+ } else {
+ &unrepdiff2('not a file, directory or link','nonexistent');
+ }
+ }
+ close(FIND); $? && subprocerr("find on $dirname");
+
+ &addfile("$basenamerev.diff.gz");
+ }
+
+ print("$progname: building $sourcepackage in $basenamerev.dsc\n")
+ || &syserr("write building message");
+ open(STDOUT,"> $basenamerev.dsc") || &syserr("create $basenamerev.dsc");
+ &outputclose;
+
+ exit($ur ? 1 : 0);
+
+} else {
+
+ @ARGV==1 || &usageerr("-x needs exactly one argument, the .dsc");
+ $dsc= shift(@ARGV);
+ $dsc= "./$dsc" unless $dsc =~ m:^/:;
+ $dscdir= $dsc; $dscdir= "./$dscdir" unless $dsc =~ m,^/|^\./,;
+ $dscdir =~ s,/[^/]+$,,;
+
+ open(CDATA,"< $dsc") || &error("cannot open .dsc file $dsc: $!");
+ &parsecdata('S',-1,"source control file $dsc");
+
+ for $f (qw(Source Version Files)) {
+ defined($fi{"S $f"}) ||
+ &error("missing critical source control field $f");
+ }
+
+ $sourcepackage= $fi{'S Source'};
+ $sourcepackage =~ m/[^-+.0-9a-z]/ &&
+ &error("source package name contains illegal character \`$&'");
+ $sourcepackage =~ m/^[0-9a-z]./ ||
+ &error("source package name is too short or starts with non-alphanum");
+
+ $version= $fi{'S Version'};
+ $version =~ m/[^-+:.0-9a-zA-Z]/ &&
+ &error("version number contains illegal character \`$&'");
+ $version =~ s/^\d+://;
+ if ($version =~ m/-([^-]+)$/) {
+ $baseversion= $`; $revision= $1;
+ } else {
+ $baseversion= $version; $revision= '';
+ }
+
+ $files= $fi{'S Files'};
+ for $file (split(/\n /,$files)) {
+ next if $file eq '';
+ $file =~ m/^([0-9a-f]{32})[ \t]+(\d+)[ \t]+([0-9a-zA-Z][-+:.,=0-9a-zA-Z_]+)$/
+ || &error("Files field contains bad line \`$file'");
+ ($md5sum{$3},$size{$3},$file) = ($1,$2,$3);
+ &setfile(\$tarfile) if $file =~ m/\.tar\.gz$/;
+ &setfile(\$difffile) if $file =~ m/\.diff\.gz$/;
+ }
+
+ $newdirectory= $sourcepackage.'-'.$baseversion;
+ $expectprefix= $newdirectory; $expectprefix.= '.orig' if length($difffile);
+
+ length($tarfile) || &error("no tarfile in Files field");
+ checkstats($tarfile);
+ checkstats($difffile) if length($difffile);
+
+ &forkgzipread("$dscdir/$tarfile");
+ defined($c2= open(CPIO,"-|")) || &syserr("fork for cpio");
+ if (!$c2) {
+ open(STDIN,"<&GZIP") || &syserr("reopen gzip for cpio");
+ open(STDERR,"| egrep -v '^[0-9]+ blocks\$' >&2") ||
+ &syserr("reopen stderr for cpio to grep out blocks message");
+ exec('cpio','-0t'); &syserr("exec cpio");
+ }
+ $/= "\0";
+ close(GZIP);
+ file:
+ while (defined($fn= <CPIO>)) {
+ $fn =~ s/\0$//; $pname= $fn; $pname =~ y/ -~/?/c;
+ $fn =~ m/\n/ &&
+ &error("tarfile contains object with newline in its name ($pname)");
+ $slash= substr($fn,length($expectprefix),1);
+ (($slash || '/' || $slash eq '') &&
+ substr($fn,0,length($expectprefix)) eq $expectprefix) ||
+ &error("tarfile contains object ($pname) not in expected directory".
+ " ($expectprefix)");
+ $fn =~ m,/\.\./, &&
+ &error("tarfile contains object with /../ in its name ($pname)");
+ }
+ close(CPIO); $? && subprocerr("cpio");
+ $/= "\n";
+ &reapgzip;
+
+ &forkgzipread("$dscdir/$tarfile");
+ defined($c2= open(TAR,"-|")) || &syserr("fork for tar -t");
+ if (!$c2) {
+ $ENV{'LANG'}= 'C';
+ open(STDIN,"<&GZIP") || &syserr("reopen gzip for tar -t");
+ exec('tar','-vvtf','-'); &syserr("exec tar -vvtf -");
+ }
+ close(GZIP);
+ file:
+ while (defined($fn= <TAR>)) {
+ $fn =~ s/\n$//;
+ $fn =~ m,^(\S{10})\s+\S+/\S+\s+\d+\s+\w+\s+\d+\s+\d+:\d\d\s+\d+ (.*)$, ||
+ &error("tarfile contains unknown object listed by tar as \`$_'");
+ $_= $1; $fn= $2;
+ s/^([-dpsl])// ||
+ &error("tarfile contains object \`$fn' with unknown or forbidden type \`".
+ substr($_,0,1)."'");
+ $fn =~ m/\.dpkg-orig$/ &&
+ &error("tarfile contains file with name ending .dpkg-orig");
+ $type= $&;
+ m/[sStT]/ && $type ne 'd' &&
+ &error("tarfile contains setuid, setgid or sticky object \`$fn'");
+ $fn eq "$expectprefix/debian" && $type ne 'd' &&
+ &error("tarfile contains object `debian' that isn't a directory");
+ $fn =~ s,/$,, if $type eq 'd';
+ $dirname= $fn;
+ $dirname =~ s,/[^/]+$,, && !defined($dirincluded{$dirname}) &&
+ &error("tarfile contains object \`$fn' but its containing ".
+ "directory \`$dirname' does not precede it");
+ $dirincluded{$fn}= 1 if $type eq 'd';
+ $notfileobject{$fn}= 1 if $type ne '-';
+ }
+ close(TAR); $? && subprocerr("tar -t");
+ &reapgzip;
+
+ if (length($difffile)) {
+ if (!$dirincluded{"$expectprefix/debian"}) {
+ $mkdebian=1; $dirincluded{"$expectprefix/debian"}= 1;
+ }
+
+ &forkgzipread("$dscdir/$difffile");
+ $/="\n";
+ while (length($_=<GZIP>)) {
+ s/\n$// || &error("diff is missing trailing newline");
+ if (m/^--- /) {
+ $fn= $';
+ substr($fn,0,length($expectprefix)+1) eq "$expectprefix/" ||
+ &error("diff patches file ($fn) not in expected subdirectory");
+ $fn =~ m/\.dpkg-orig$/ &&
+ &error("diff patches file with name ending .dpkg-orig");
+ $dirname= $fn;
+ $dirname =~ s,/[^/]+$,, && defined($dirincluded{$dirname}) ||
+ &error("diff patches file ($fn) whose directory does not appear".
+ " in tarfile");
+ defined($notfileobject{$fn}) &&
+ &error("diff patches something which is not a plain file");
+ $_= <GZIP>; s/\n$// ||
+ &error("diff finishes in middle of ---/+++ (line $.)");
+ $_ eq '+++ '.$newdirectory.substr($fn,length($expectprefix)) ||
+ &error("line after --- for file $fn isn't as expected");
+ $filepatched{$fn}++ && &error("diff patches file $fn twice");
+ } elsif (!m/^[-+ \@]/) {
+ &error("diff contains unknown line \`$_'");
+ }
+ }
+ close(GZIP);
+
+ &reapgzip;
+ }
+
+ print("$progname: extracting $sourcepackage in $newdirectory".
+ ($difffile ? " and $expectprefix" : '')."\n")
+ || &syserr("write extracting message");
+
+ &erasedir($newdirectory);
+ &erasedir("$newdirectory.orig");
+
+ &extracttar;
+
+ if (length($difffile)) {
+ rename($expectprefix,$newdirectory) ||
+ &syserr("failed to rename newly-extracted $expectprefix to $newdirectory");
+
+ &extracttar;
+
+ if ($mkdebian) {
+ mkdir("$newdirectory/debian",0777) ||
+ &syserr("failed to create $newdirectory/debian subdirectory");
+ }
+ &forkgzipread("$dscdir/$difffile");
+ defined($c2= fork) || &syserr("fork for patch");
+ if (!$c2) {
+ open(STDIN,"<&GZIP") || &syserr("reopen gzip for patch");
+ chdir($newdirectory) || &syserr("chdir to $newdirectory for patch");
+ exec('patch','-b','.dpkg-orig','-s','-t','-F','0','-N','-p1','-u');
+ &syserr("exec patch");
+ }
+ close(GZIP);
+ $c2 == waitpid($c2,0) || &syserr("wait for patch");
+ $? && subprocerr("patch");
+ &reapgzip;
+
+ for $fn (keys %filepatched) {
+ $ftr= "$newdirectory/".substr($fn,length($expectprefix)+1).".dpkg-orig";
+ unlink($ftr) || &syserr("remove patch backup file $ftr");
+ }
+
+ if (!(@s= lstat("$newdirectory/debian/rules"))) {
+ $! == ENOENT || &syserr("cannot stat $newdirectory/debian/rules");
+ &warn("$newdirectory/debian/rules does not exist");
+ } elsif (-f _) {
+ chmod($s[2] | 0111, "$newdirectory/debian/rules") ||
+ &syserr("cannot make $newdirectory/debian/rules executable");
+ } else {
+ &warn("$newdirectory/debian/rules is not a plain file");
+ }
+ }
+
+ exit(0);
+}
+
+sub checkstats {
+ my ($f)= @_;
+ my @s,$m;
+ open(STDIN,"< $dscdir/$f") || &syserr("cannot read $dscdir/$f");
+ (@s= stat(STDIN)) || &syserr("cannot fstat $dscdir/$f");
+ $s[7] == $size{$f} || &error("file $f has size $s[7] instead of expected $size{$f}");
+ $m= `md5sum`; $? && subprocerr("md5sum $f"); $m =~ s/\n$//;
+ $m =~ m/^[0-9a-f]{32}$/ || &failure("md5sum of $f gave bad output \`$m'");
+ $m eq $md5sum{$f} || &error("file $f has md5sum $m instead of expected $md5sum{$f}");
+ open(STDIN,"</dev/null") || &syserr("reopen stdin from /dev/null");
+}
+
+sub erasedir {
+ my ($dir) = @_;
+ if (!lstat($dir)) {
+ $! == ENOENT || &syserr("cannot stat output directory $dir (before removal)");
+ } else {
+ system 'rm','-r','--',$dir;
+ $? && subprocerr("rm -r $dir");
+ }
+}
+
+sub extracttar {
+ &forkgzipread("$dscdir/$tarfile");
+ defined($c2= fork) || &syserr("fork for tar -x");
+ if (!$c2) {
+ open(STDIN,"<&GZIP") || &syserr("reopen gzip for tar -x");
+ exec('tar','-xf','-'); &syserr("exec tar -x");
+ }
+ close(GZIP);
+ $c2 == waitpid($c2,0) || &syserr("wait for tar -x");
+ $? && subprocerr("tar -x");
+ &reapgzip;
+}
+
+sub setfile {
+ my ($varref)= @_;
+ &error("repeated file type - files ".$$varref." and $file") if length($$varref);
+ $$varref= $file;
+}
+
+sub checktype {
+ if (!lstat("$origdir/$fn")) {
+ &unrepdiff2("nonexistent",$type{$fn});
+ } else {
+ $v= eval("$_[0] _ ? 2 : 1"); $v || &internerr("checktype $@ ($_[0])");
+ return 1 if $v == 2;
+ &unrepdiff2("something else",$type{$fn});
+ }
+ return 0;
+}
+
+sub setopmode {
+ defined($opmode) && &usageerr("only one of -x or -b allowed, and only once");
+ $opmode= $_[0];
+}
+
+sub unrepdiff {
+ print(STDERR "$progname: cannot represent change to $fn: $_[0]\n")
+ || &syserr("write syserr unrep");
+ $ur++;
+}
+
+sub unrepdiff2 {
+ print(STDERR "$progname: cannot represent change to $fn:\n".
+ "$progname: new version is $_[1]\n".
+ "$progname: old version is $_[0]\n")
+ || &syserr("write syserr unrep");
+ $ur++;
+}
+
+sub forkgzipwrite {
+#print STDERR "forkgzipwrite $_[0]\n";
+ open(GZIPFILE,"> $_[0]") || &syserr("create file $_[0]");
+ pipe(GZIPREAD,GZIP) || &syserr("pipe for gzip");
+ defined($cgz= fork) || &syserr("fork for gzip");
+ if (!$cgz) {
+ open(STDIN,"<&GZIPREAD") || &syserr("reopen gzip pipe"); close(GZIPREAD);
+ close(GZIP); open(STDOUT,">&GZIPFILE") || &syserr("reopen tar.gz");
+ exec('gzip','-9'); &syserr("exec gzip");
+ }
+ close(GZIPREAD);
+ $gzipsigpipeok= 0;
+}
+
+sub forkgzipread {
+#print STDERR "forkgzipread $_[0]\n";
+ open(GZIPFILE,"< $_[0]") || &syserr("read file $_[0]");
+ pipe(GZIP,GZIPWRITE) || &syserr("pipe for gunzip");
+ defined($cgz= fork) || &syserr("fork for gunzip");
+ if (!$cgz) {
+ open(STDOUT,">&GZIPWRITE") || &syserr("reopen gunzip pipe"); close(GZIPWRITE);
+ close(GZIP); open(STDIN,"<&GZIPFILE") || &syserr("reopen input file");
+ exec('gunzip'); &syserr("exec gunzip");
+ }
+ close(GZIPWRITE);
+ $gzipsigpipeok= 1;
+}
+
+sub reapgzip {
+#print STDERR "reapgzip $_[0]\n";
+ $cgz == waitpid($cgz,0) || &syserr("wait for gzip");
+ !$? || ($gzipsigpipeok && WIFSIGNALED($?) && WTERMSIG($?)==SIGPIPE) ||
+ subprocerr("gzip");
+ (@stat= stat(GZIPFILE)) || &syserr("cannot stat file after run gzip");
+ $size= $stat[7];
+ close(GZIPFILE);
+}
+
+sub addfile {
+ my ($filename)= @_;
+ my $md5sum= `md5sum <$filename`;
+ $? && &subprocerr("md5sum $filename");
+ $md5sum =~ s/^([0-9a-f]{32})\n$/$1/ ||
+ die "$progname: failure: md5sum gave bogus output \`$_'\n";
+ $f{'Files'}.= "\n $md5sum $size $filename";
+}
The parts' filenames are not significant for the reassembly process.
By default the output file is called
-.IB package - version .deb
-\&.
+.IB package - version .deb\fR.
+
.TP
.BR --info ", " -I
Prints information, in a human-readable format, about the part file(s)
-#define DPKG_VERSION "1.2.14" /* This line modified by Makefile */
+#define DPKG_VERSION "1.3.0" /* This line modified by Makefile */
projects / dpkg / commitdiff