summaryrefslogtreecommitdiff
path: root/dselect/checkunimp.pl
diff options
context:
space:
mode:
authorIan Jackson <ian@chiark.chu.cam.ac.uk>1996-04-04 01:58:40 +0100
committerIan Jackson <ian@chiark.chu.cam.ac.uk>1996-04-04 01:58:40 +0100
commit1b80fb16c22db72457d7a456ffbf1f70a8dfc0a5 (patch)
treec0ee53eba4e71f4c246ee9e45fbd90e931bbd1f9 /dselect/checkunimp.pl
downloaddpkg-1b80fb16c22db72457d7a456ffbf1f70a8dfc0a5.tar.gz
dpkg (1.1.4); priority=MEDIUM
* Allow overwriting of conflicting packages being removed. (Bug#2614.) * a.out control file says Pre-Depends: libc4 | libc. (Bug#2640.) * ELF control file and libc dependencies changed to use finalised scheme. * ELF control file and libc dependencies for i386 only. (Bug#2617.) * Guidelines say use only released libraries and compilers. * Install wishlist as /usr/doc/dpkg/WISHLIST. * Remove spurious entries for Guidelines in info dir file. * dpkg-deb --build checks permissions on control (DEBIAN) directory. * Spaces in control file fields not copied by dpkg-split. (Bug#2633.) * Spaces in split file part control data ignore. (Bug#2633.) * Portability fixes, including patch from Richard Kettlewell. * Fixed minor configure.in bug causing mangled GCC -W options. -- Ian Jackson <ian@chiark.chu.cam.ac.uk> Thu, 4 Apr 1996 01:58:40 +0100
Diffstat (limited to 'dselect/checkunimp.pl')
-rwxr-xr-xdselect/checkunimp.pl17
1 files changed, 17 insertions, 0 deletions
diff --git a/dselect/checkunimp.pl b/dselect/checkunimp.pl
new file mode 100755
index 000000000..c0b723bce
--- /dev/null
+++ b/dselect/checkunimp.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+while(<>) {
+ if (m/^\s+\{\s+\"(\w[^"]+)\",\s+0,\s+\w+list\:\:kd_\w+,\s+qa_\w+\s+\},\s*$/ ||
+ m/^\s+\{\s+\"(\w[^"]+)\",\s+\w+list\:\:kd_\w+,\s+0,\s+qa_\w+\s+\},\s*$/) {
+ $implem{$1}= 1;
+ } elsif (m/^\s+\{\s+(\S.{0,15}\S),\s+\"(\w[^"]+)\"\s+\},\s*$/) {
+ $bound{$2} .= $1.', ';
+ } elsif (m/^\s+\{\s+0,/ || m/^\s+\{\s+-1,/) {
+ } elsif (m/^\s+\{\s+/) {
+ print "huh ? $_";
+ }
+}
+for $f (sort keys %bound) {
+ next if defined($implem{$f});
+ $b=$bound{$f}; $b =~ s/, $//;
+ printf "unimplemented: %-20s (%s)\n", $f, $b;
+}