dpkg (1.2.1); priority=MEDIUM

  * `=' key in dselect really does `hold' rather than `unhold'.
  * dselect dependency processing now interacts better with `hold'.
  * dselect `I' key (not `i') modifies display of the info window.
  * dselect shows unavailable packages as being unavailable.
  * dselect main menu headings and many other strings changed to try to
    discourage people from deselecting every package and using [R]emove.
    Notably, `select' changed to `mark' throughout.

  * dselect disk methods now print a few fewer double slashes.
  * dselect disk access methods will offer to use dpkg --record-avail
    to scan the available packages, if no Packages file is found.

  * New dpkg --compare-versions option, for the benefit of scripts &c.
  * New dpkg --clear-avail option forgets all available packages info.
  * New dpkg --print-avail option, prints `available' data (from Packages, &c).
  * dpkg usage message is more informative, but no longer fits on screen.
  * dpkg --avail option renamed --record-avail.

  * Latest dpkg-name from Erick Branderhorst.
  * dpkg-scanpackages has more sensible problem reporting.
  * postinst configure now gets null argument (not <unknown> or <none>)
    when there is no previously configured version.

  * Guidelines say that postinst configure is given previous version.
  * Guidelines don't refer to maintainer-script-args.txt in main text.
  * Guidelines (Texinfo source) uploaded separately.

  * Own version of strcpy (used for debugging) removed.
  * Interface to access methods document in source (doc/dselect-methods.txt).
  * debian.buildscript moves changes file into parent directory.

 -- Ian Jackson <ian@chiark.chu.cam.ac.uk>  Wed, 22 May 1996 01:26:31 +0100

TODO

@@ -4,9 +4,6 @@ urgent
  * Conflicts << installation ordering
  * Version numbers in pre-depends stuff
  * Search for all pre-depends things at once, bomb out if any not found
-
-bugs that need to be fixed quickly
- * version numbers not starting digit early.
  * check description in dpkg-deb
  * field overflow in dpkg --list
  * _always_ show section in --yet-to-unpack
@@ -16,7 +13,6 @@ bugs that need to be fixed quickly
  * Several things ought to be configurable but aren't.
  * Filenames containing newlines.  Conffile names containing spaces.
  * dpkg --status for virtual packages
- * dselect bottom window too large, and/or resize
  * update-alternatives prompting.
  * logging, both transcript logs (kept briefly)
    and action logs (kept forever?)  957
@@ -24,10 +20,10 @@ bugs that need to be fixed quickly
  * remove old docs from /usr/doc/dpkg.
 
 other stuff unlikely to get done soon
+ * understand Replaces in dselect
  * provide way for package to declare ownership of files for dpkg -S
    and -L without having dpkg act on this
  * md5sum component in new .deb files
- * version number comparison option
  * diversions list as control archive entry
  * single maintainer script, and new package getting there first
  * dpkg -s show something for virtual packages
@@ -43,16 +39,17 @@ other stuff unlikely to get done soon
  * start-stop-daemon in C. 1670
  * dselect per-half focus and keybindings improvements. 1555
  * floppy map (where are the files)
- * highlight or pre-sort or something new or changed packages,
-   during upgrade selection.
  * how to change case of package names
  * support for adding files to dpkg's file lists
- * side-by-side version display
  * `fake' or `null' packages
  * --purge remove empty directories which used too contain conffiles
  * conffiles handling options, including `replace removed files'
 
 done
+ * highlight or pre-sort or something new or changed packages,
+   during upgrade selection.
+ * side-by-side version display
+ * version number comparison option
  * Pre-Depends installation ordering
  * a.out version
  * uncomment ELF preinst modification
@@ -63,3 +60,7 @@ done
  * Architecture field check
  * symlink rename change
  * dpkg --listfiles should do better for multi-package files  (pkg, pkg: ...)
+
+obsoleted so not done
+ * version numbers not starting digit early.
+ * dselect bottom window too large, and/or resize

debian.Changelog

@@ -1,3 +1,38 @@
+dpkg (1.2.1); priority=MEDIUM
+
+  * `=' key in dselect really does `hold' rather than `unhold'.
+  * dselect dependency processing now interacts better with `hold'.
+  * dselect `I' key (not `i') modifies display of the info window.
+  * dselect shows unavailable packages as being unavailable.
+  * dselect main menu headings and many other strings changed to try to
+    discourage people from deselecting every package and using [R]emove.
+    Notably, `select' changed to `mark' throughout.
+
+  * dselect disk methods now print a few fewer double slashes.
+  * dselect disk access methods will offer to use dpkg --record-avail
+    to scan the available packages, if no Packages file is found.
+
+  * New dpkg --compare-versions option, for the benefit of scripts &c.
+  * New dpkg --clear-avail option forgets all available packages info.
+  * New dpkg --print-avail option, prints `available' data (from Packages, &c).
+  * dpkg usage message is more informative, but no longer fits on screen.
+  * dpkg --avail option renamed --record-avail.
+
+  * Latest dpkg-name from Erick Branderhorst.
+  * dpkg-scanpackages has more sensible problem reporting.
+  * postinst configure now gets null argument (not <unknown> or <none>)
+    when there is no previously configured version.
+
+  * Guidelines say that postinst configure is given previous version.
+  * Guidelines don't refer to maintainer-script-args.txt in main text.
+  * Guidelines (Texinfo source) uploaded separately.
+
+  * Own version of strcpy (used for debugging) removed.
+  * Interface to access methods document in source (doc/dselect-methods.txt).
+  * debian.buildscript moves changes file into parent directory.
+
+ -- Ian Jackson <ian@chiark.chu.cam.ac.uk>  Wed, 22 May 1996 01:26:31 +0100
+
 dpkg (1.2.0); priority=MEDIUM
 
   * dselect can sort packages by available and installed states, and

debian.buildscript

@@ -17,7 +17,9 @@ 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
+ | pgp-auto -fast >../dpkg-$version.`dpkg --print-architecture`.changes
+echo

debian.changestemplate

@@ -15,3 +15,4 @@ Files:
  =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 -

debian.rules

@@ -1,7 +1,7 @@
 #!/usr/bin/make -f
 
 package=dpkg
-version=1.2.0
+version=1.2.1
 
 archi=$(shell dpkg --print-architecture)
 DIR:=$(shell pwd)

doc/dselect-methods.txt

@@ -0,0 +1,124 @@
+From ian Sun May 14 18:21:53 +0100 1995
+To: Debian developers list <debian-devel@pixar.com>
+Subject: dselect installation method scripts
+
+Below is a (somewhat amended) repost of the posting I made a little
+while ago about the interface between dselect and the installation
+scripts it can run to extract packages.
+
+Carl Streeter has some hard disk scripts that look fairly good (I
+haven't tested them).  Anyone else looking to write such scripts
+should see his code (Carl, can you upload them please ?).
+
+Howevever, there are a few points to note:
+ * Each set of scripts can support several `options' as they're called
+- this saves having different code for the CD-ROM, hard disk, &c
+methods.
+ * You have to supply a /usr/[local]/lib/dpkg/methods/<method>/names
+file listing the options - see below.
+
+dselect *will* look in /usr/local/lib/dpkg/methods as well as
+/usr/lib.  Put your scripts there until you send them to me for
+inclusion in dpkg.
+
+Details if the installation method handling is below, and in
+method-scripts.txt; an example `test' method that just shows you how
+to write a `names' file and how dselect reacts is available as:
+
+ab2022c57a1198838034c5f87ea501b1  dselect-example-test-method.tar
+-rw-rw-r--   1 ian      ian         10240 May 14 18:19 dselect-example-test-method.tar
+
+NB that the code in dselect to select and call installation scripts is
+ALPHA !
+
+Ian.
+
+Each `installation method' will have three scripts:
+
+ * Setup installation parameters.
+ * Update list of available packages.
+ * Unpack.
+
+Which set of scripts is to be used is selectable by the user, from the
+`[S]etup' menu option.  Basically, the user hits `Setup', gets
+presented with a menu of choices and picks one.
+
+This (a) sets that `choice' to be the default installation method and
+(b) runs the `setup' script for that choice.
+
+The setup script should prompt the user for parameters like the site
+to NFS-mount or FTP from, the directory to use, or the directory or
+filesystem where the .deb files can be found, or the tape or floppy
+device to install from.  It should store the responses under
+/var/lib/dpkg/methods - see below.
+
+The update script should obtain a list of available packages if
+possible (this is the Packages file from the FTP sites), and copy it
+to /var/lib/dpkg/available.  Be careful not to overwrite the available
+file if something goes wrong - I'd suggest copying to `available.new'
+and renaming.  If no available list is available :-) it should print a
+message saying so.
+
+The unpack script should feed all the available .deb files to
+  dpkg --unpack --no-also-select
+(the --auto option may also be useful here).  In the future there will
+be a mechanism to allow (for example) a floppy-based installation
+scheme to tell the user which packages are still to be processed; in
+the meantime you should just keep going until the user says `stop'.
+
+If any of these scripts needs to display a message for the user, it
+should wait for the user to hit `return' before exiting so that
+dselect doesn't immediately rewrite the screen.
+
+If a script gives a non-zero exit status dselect will print a message
+about it and prompt the user for an acknowledgement.  If it exits with
+a zero exit status then dselect will immediately go back into curses
+and any message that the script printed just before exiting will not
+be visible.
+
+The scripts will be kept in /usr/lib/dpkg/methods/.  Each method
+should have a directory under methods, containing:
+  `names'  - a list of `user-visible options', see below.
+  `setup', `update', `unpack'  - executable programs.
+  `desc.<option>' - description file.
+
+A method may provide several options on the `main menu' with different
+behaviour.  For example, there might be a generic get-packages-by-FTP
+method which might provide entries in the main menu for installation
+directly from one of the Debian mirror sites as well as for
+installation from a user-specified site.
+
+The `setup', `update' and `unpack' will be invoked with three
+arguments.
+
+The first argument is the directory with the dpkg status information,
+usually /var/lib/dpkg.  They should $1/methods/<method-name> to store
+their data (remember that the user can give a --admindir option to
+dselect).
+
+The second and third argument are the name of the method and the
+option within that method, respectively.  This information is provided
+by dselect (from the user's choice of installation option).
+
+`names' will be formatted as a list of lines, each containing:
+ <sequence> <option> <summary>
+
+<sequence> is a two-digit number that will be used much like rc.d
+prefixes to control the order in the main menu.  If in doubt use 50.
+
+<option> is a name which will be passed to `setup', `update' and
+`unpack' as their third argument (see above).
+
+<summary> is the menu entry string.
+
+Each option may have an extended description in `desc.<option>'.  This
+should be formatted like a Description: field entry *shifted one
+character to the left*.
+
+/var/lib/dpkg/methods will exist, and a method may use a
+/var/lib/dpkg/methods/<method> directory or file (or <method>.* files)
+to store its state.
+
+<method> and <option> must follow the rules for C identifiers.
+
+-- Ian Jackson 14th May 1995

doc/guidelines.texi

@@ -904,7 +904,8 @@ installing the package, after installation, before package removal,
 and after removal, respectively.
 
    They are given arguments which indicate the precise situation and
-action being performed---see @file{maintainer-script-args.txt} for
+action being performed---see
+@pxref{Maintainer script arguments and how dpkg does things} for
 details of exactly when each of the scripts is invoked and what its
 arguments are.  Extra arguments and situations may be added later, so
 you should not test the number of arguments to your script to determine
@@ -1092,7 +1093,7 @@ field.
 * configuration files -- /etc/skel vs /usr/doc/examples::
 * How to write the Description control file field::
 * Configuration of init::
-* Maintainer script arguments and how @file{dpkg} does things::
+* Maintainer script arguments and how dpkg does things::
 * Mail processing packages::
 * Virtual dependencies::
 @end menu
@@ -1338,7 +1339,7 @@ Description: Electronic mail transport system.
  networking support, in the form of IP or UUCP.
 @end smallexample
 
-@node Configuration of init, Maintainer script arguments and how @file{dpkg} does things, How to write the Description control file field, Appendix
+@node Configuration of init, Maintainer script arguments and how dpkg does things, How to write the Description control file field, Appendix
 @unnumberedsec Configuration of init
 
 The @file{/etc/init.d} directory contains the scripts executed by
@@ -1535,15 +1536,17 @@ update-rc.d acct remove >/dev/null
 Otherwise, the @file{/etc/rc?.d} symbolic links will remain on the system
 along with @file{/etc/init.d/acct} script.
 
-@node Maintainer script arguments and how @file{dpkg} does things, Mail processing packages, Configuration of init, Appendix
-@unnumberedsec Maintainer script arguments and how @file{dpkg} does things
+@node Maintainer script arguments and how dpkg does things, Mail processing packages, Configuration of init, Appendix
+@unnumberedsec Maintainer script arguments and how dpkg does things
 
 This appendix describes exactly how maintainer scripts are called, with
 what arguments, in what order, and what @file{dpkg} does in between.
 
 In all cases version numbers are <version>-<revision>, if the package
 has both, or just <version>.  @code{upgrade} is used even when the new
-version number looks lower than the old.
+version number looks lower than the old.  If there is no appropriate
+version then the argument may be the empty string (or, in versions of
+dpkg before 1.2.1, @code{<unknown>}).
 
 
 @unnumberedsubsec Summary
@@ -1554,7 +1557,7 @@ version number looks lower than the old.
 <new preinst> upgrade <old-version>
 <old preinst> abort-upgrade <new-version>
 
-<postinst> configure
+<postinst> configure <most-recently-configured-version>
 <old postinst> abort-upgrade <new version>
 <conflictor's postinst> abort-remove in-favour <package> <new version>
 <deconfigured's postinst> abort-deconfigure \
@@ -1774,7 +1777,7 @@ The package's file list is removed.
 @end enumerate
 No attempt is made to unwind after errors during removal.
 
-@node Mail processing packages, Virtual dependencies, Maintainer script arguments and how @file{dpkg} does things, Appendix
+@node Mail processing packages, Virtual dependencies, Maintainer script arguments and how dpkg does things, Appendix
 @unnumberedsec Mail processing packages
 
 Debian packages which process electronic mail (whether mail-user-agents

dselect/basecmds.cc

@@ -184,7 +184,7 @@ void baselist::setcursor(int index) {
   cursorline= index;
   if (listpad) {
     redrawitemsrange(cursorline,cursorline+1);
-    redraw1itemsel(cursorline,1);
+    redraw1itemsel(cursorline, showinfo != 2);
     refreshlist();
     redrawthisstate();
   }

dselect/baselist.cc

@@ -81,6 +81,29 @@ void baselist::setupsigwinch() {
   if (sigaction(SIGWINCH,&nsigact,0)) ohshite("failed to set new SIGWINCH sigact");
 }
 
+void baselist::setheights() {
+  int y= ymax - (title_height + colheads_height + thisstate_height);
+  assert(y>=1);
+  if (showinfo==2 && y>=3) {
+    list_height= 1;
+    whatinfo_height= 1;
+    info_height= y-2;
+  } else if (showinfo==1 && y>=10) {
+    list_height= y/2;
+    info_height= (y-1)/2;
+    whatinfo_height= 1;
+  } else {
+    list_height= y;
+    info_height= 0;
+    whatinfo_height= 0;
+  }
+  colheads_row= title_height;
+  list_row= colheads_row + colheads_height;
+  thisstate_row= list_row + list_height;
+  info_row= thisstate_row + thisstate_height;
+  whatinfo_row= ymax - 1;
+}
+
 void baselist::startdisplay() {
   if (debug) fprintf(debug,"baselist[%p]::startdisplay()\n",this);
   cbreak(); noecho(); nonl(); keypad(stdscr,TRUE);
@@ -112,29 +135,12 @@ void baselist::startdisplay() {
   whatinfo_attr= thisstate_attr;
 
   // set up windows and pads, based on screen size
-  int y;  
   getmaxyx(stdscr,ymax,xmax);
   title_height= ymax>=6;
   colheads_height= ymax>=5;
   thisstate_height= ymax>=3;
-  whatinfo_height= ymax>=2;
-  y= ymax - (title_height + colheads_height +
-               thisstate_height + whatinfo_height);
-  assert(y>=1);
-  y-= list_height + info_height;
-  if (y>0) {
-    list_height += (y+1)/2;
-    info_height += y/2;
-  } else if (y<0) {
-    list_height -= (-y)/2;
-    info_height -= (-y+1)/2;
-  }
-  colheads_row= title_height;
-  list_row= colheads_row + colheads_height;
-  thisstate_row= list_row + list_height;
-  info_row= thisstate_row + thisstate_height;
-  whatinfo_row= info_row + info_height;
 
+  setheights();
   setwidths();
   
   titlewin= newwin(1,xmax, 0,0);
@@ -209,7 +215,7 @@ void baselist::redrawall() {
 }
 
 void baselist::redraw1item(int index) {
-  redraw1itemsel(index, index == cursorline);
+  redraw1itemsel(index, showinfo == 2 ? 0 : index == cursorline);
 }
 
 baselist::baselist(keybindings *kb) {
@@ -223,6 +229,7 @@ baselist::baselist(keybindings *kb) {
   list_height=0; info_height=0;
   topofscreen= 0; leftofscreen= 0;
   listpad= 0; cursorline= -1;
+  showinfo= 1;
 
   searchstring[0]= 0;
 }  

dselect/bindings.cc

@@ -143,8 +143,8 @@ const keybindings::description keybindings::descriptions[]= {
   { "scrollback",      "Scroll backwards through list"                         },
 
   // Actions which apply only to lists of packages.
-  { "select",          "Select package(s) for installation"                    },
-  { "deselect",        "Mark package(s) for deinstallation"                    },
+  { "install",         "Mark package(s) for installation"                      },
+  { "remove",          "Mark package(s) for deinstallation"                    },
   { "purge",           "Mark package(s) for deinstall and purge"               },
   { "morespecific",    "Make highlight more specific"                          },
   { "lessspecific",    "Make highlight less specific"                          },

dselect/dselect.h

@@ -60,12 +60,13 @@ protected:
   static baselist *signallist;
   static void sigwinchhandler(int);
 
-  int nitems, ldrawnstart, ldrawnend;
+  int nitems, ldrawnstart, ldrawnend, showinfo;
   int topofscreen, leftofscreen, cursorline;
   int infotopofscreen, infolines;
   varbuf whatinfovb;
   char searchstring[50];
 
+  void setheights();
   void unsizes();
   void dosearch();
   void displayhelp(const struct helpmenuentry *menu, int key);

dselect/helpmsgs.src

@@ -10,18 +10,18 @@ Motion keys: Next/Previous, Top/End, Up/Down, Backwards/Forwards:
   B, Left-arrow         F, Right-arrow          pan display by 1/3 screen
   ^b                    ^f                      pan display by 1 character
 
-Selection for later processing:
+Mark packages for later processing:
  +, Insert  install or upgrade      =, H  hold in present state
  -, Delete  remove                  :, G  unhold: upgrade or leave uninstalled
  _          remove & purge config
                                              Miscellaneous:
 Quit, exit, overwrite (note capitals!):       ?, F1 request help (also Help)
- Return  Confirm, quit (check dependencies)     i   toggle/cycle info displays
+ Return  Confirm, quit (check dependencies)   i, I  toggle/cycle info displays
    Q     Confirm, quit (override dep.s)       o, O  cycle through sort options
  X, Esc  eXit, abandoning any changes made    v, V  change status display opts
    R     Revert to state before this list      ^l   redraw display
    U     set all to sUggested state             /   search (Return to cancel)
-   D     set all to Directly selected state )   \\   repeat last search
+   D     set all to Directly requested state    \\   repeat last search
 
 @@@ mainintro Introduction to package list
 
@@ -29,14 +29,14 @@ Welcome to the main package listing.  Please read the help that is available !
 
 You will be presented with a list of packages which are installed or available
 for installation.  You can navigate around the list using the cursor keys,
-selecting packages for installation (using `+') or deinstallation (using `-').
+mark packages for installation (using `+') or deinstallation (using `-').
 
-Packages can be selected either singly or in groups; initially you will see
-that the line `All packages' is highlighted.  (De)selecting will affect all the
+Packages can be marked either singly or in groups; initially you will see that
+the line `All packages' is selected.  `+', `-' and so on will affect all the
 packages described by the highlighted line.  Use `o' to change the order of the
 list (this also changes which kinds of group selections are possible).
 
-(Mainly for new installations:) Standard packages will be selected by default.
+(Mainly for new installations:) Standard packages will be requested by default.
 Use capital `D' or `R' key to override this - see the keybindings help screen.
 
 Some of your choices will cause conflicts or dependency problems; you will be
@@ -51,7 +51,7 @@ Press Space to leave help and enter the list; press `?' at any time for help.
 @@@ readonlyintro Introduction to package list browser (read-only)
 
 Welcome to dselect's main package listing.  Since you do not have the
-privilege necessary to update package selections you are in read-only mode.
+privilege necessary to update package states you are in read-only mode.
 
 Much on-line help is available, please make use of it !  Press `?' for help.
 You should read the list of keys and the explanations of the display.
@@ -77,24 +77,24 @@ You will see a sub-list containing the packages involved.  The bottom half of
 the display shows relevant conflicts and dependencies; use `i' to cycle between
 that, the package descriptions and the internal control information.
 
-A set of `suggested' selections has been calculated, and the initial selections
-in this sub-list have been set to match those, so you can just hit Return to
+A set of `suggested' packages has been calculated, and the initial markings in
+this sub-list have been set to match those, so you can just hit Return to
 accept the suggestions if you wish.  You may abort the change(s) which caused
 the problem(s), and go back to the main list, by pressing capital `X'.
 
-You can also move around the list and change the selections so that they are
-more like what you want, and you can `reject' my suggestions by using the
-capital `D' or `R' keys (see the keybindings help screen).  You can use capital
-`Q' to force me to accept the current selections, in case you want to override
-a recommendation or think that the program is mistaken.
+You can also move around the list and change the markings so that they are more
+like what you want, and you can `reject' my suggestions by using the capital
+`D' or `R' keys (see the keybindings help screen).  You can use capital `Q' to
+force me to accept the situation currently displayed, in case you want to
+override a recommendation or think that the program is mistaken.
 
 Press Space to leave help and enter the sub-list; remember: press `?' for help.
 
 @@@ displayexplain1 Display, part 1: package listing and status chars
 
 The top half of the screen shows a list of packages.  For each package you see
-four columns for its current status and selected-ness.  In terse mode (use `v'
-to toggle verbose display) these are single characters, from left to right:
+four columns for its current status on the system and mark.  In terse mode (use
+`v' to toggle verbose display) these are single characters, from left to right:
 
  Hold/error flag: h - you have put the package on Hold - it won't be processed
                   R - serious error during installation, needs reinstallation;
@@ -105,12 +105,12 @@ to toggle verbose display) these are single characters, from left to right:
                    `u'  - unpacked but not yet configured;
                    `C'  - half-configured (an error happened);
                    `I'  - half-installed (an error happened).
- Old selection: whether this package was selected before presenting this list;
- Selection: whether this package is selected for installation:
-  `*': selected for installation;
-  `-': deselected (selected for removal, but configuration files will remain);
-  `_': deselected (purge completely, even remove configuration);
-  `n': package is new to this system (appears under `Old selection').
+ Old mark: what was requested for this package before presenting this list;
+ Mark: what is requested for this package:
+  `*': marked for installation;
+  `-': marked for removal, but configuration files will remain;
+  `_': marked for purge completely - even remove configuration;
+  `n': package is new to this system (appears under `Old mark').
 
 Following those four columns are the Priority and Section of the package,
 its name (possibly truncated to fit) and the summary description.
@@ -118,7 +118,7 @@ its name (possibly truncated to fit) and the summary description.
 @@@ displayexplain2 Display, part 2: list highlight; information display
 
 * Highlight: One line in the package list will be highlighted.  It indicates
-  which package(s) will be selected/deselected by presses of `+', '-' and `_'.
+  which package(s) will be affected by presses of `+', '-' and `_'.
 
 * The dividing line in the middle of the screen shows a brief explanation of
   the status of the currently-highlighted package, or a description of which

dselect/main.cc

@@ -63,15 +63,15 @@ struct menuentry {
 };
 
 static const menuentry menuentries[]= {
-  { "access",  "Choose the access method to use.",                 &urq_setup   },
-  { "update",  "Update list of available packages, if possible.",  &urq_update  },
-  { "select",  "Select which packages to install (or deinstall).", &urq_list    },
-  { "install", "Install selected software.",                       &urq_install },
-  { "config",  "Configure packages that are unconfigured.",        &urq_config  },
-  { "remove",  "Remove software selected for deinstallation.",     &urq_remove  },
-  { "quit",    "Quit dselect.",                                    &urq_quit    },
-  { "menu",     0,                                                 &urq_menu    },
-  {  0                                                                          }
+  { "access",  "Choose the access method to use.",                &urq_setup   },
+  { "update",  "Update list of available packages, if possible.", &urq_update  },
+  { "select",  "Request which packages you want on your system.", &urq_list    },
+  { "install", "Install and upgrade wanted packages.",            &urq_install },
+  { "config",  "Configure any packages that are unconfigured.",   &urq_config  },
+  { "remove",  "Remove unwanted software.",                       &urq_remove  },
+  { "quit",    "Quit dselect.",                                   &urq_quit    },
+  { "menu",     0,                                                &urq_menu    },
+  {  0                                                                         }
 };
 
 static const char programdesc[]=

dselect/pkgcmds.cc

@@ -90,8 +90,6 @@ void packagelist::setwant(pkginfo::pkgwant nwarg) {
 
   if (recursive) {
     redrawitemsrange(cursorline,cursorline+1);
-    nw= reallywant(nwarg,table[cursorline]);
-    nw= nwarg != pkginfo::want_sentinel ? nwarg :
     table[cursorline]->selected= reallywant(nwarg,table[cursorline]);
     redraw1item(cursorline);
     top= cursorline;
@@ -118,13 +116,16 @@ void packagelist::setwant(pkginfo::pkgwant nwarg) {
 }
 
 void packagelist::kd_select()   { setwant(pkginfo::want_install);   }
-void packagelist::kd_hold() { setwant(pkginfo::want_hold); }
+void packagelist::kd_hold()     { setwant(pkginfo::want_hold);      }
 void packagelist::kd_deselect() { setwant(pkginfo::want_deinstall); }
-void packagelist::kd_unhold() { setwant(pkginfo::want_sentinel); }
+void packagelist::kd_unhold()   { setwant(pkginfo::want_sentinel);  }
 void packagelist::kd_purge()    { setwant(pkginfo::want_purge);     }
 
 int would_like_to_install(pkginfo::pkgwant wantvalue, pkginfo *pkg) {
   /* Returns: 1 for yes, 0 for no, -1 for if they want to preserve an error condition. */
+  if (debug) fprintf(debug,"would_like_to_install(%d, %s) status %d\n",
+                     wantvalue,pkg->name,pkg->status);
+  
   if (wantvalue == pkginfo::want_install) return 1;
   if (wantvalue != pkginfo::want_hold) return 0;
   if (pkg->status == pkginfo::stat_installed) return 1;
@@ -246,8 +247,25 @@ void packagelist::kd_revertsuggest() {
 
 /* fixme: configurable purge/deselect */
 
-void packagelist::kd_info() {
-  currentinfo++;
-  infotopofscreen=0;
+void packagelist::kd_toggleinfo() {
+  showinfo= (showinfo+2) % 3;
+  setheights();
+  if (cursorline >= topofscreen+list_height) topofscreen += list_height;
+  if (topofscreen > nitems - list_height) topofscreen= nitems-list_height;
+  if (topofscreen < 0) topofscreen= 0;
+  infotopofscreen= 0;
+  redraw1item(cursorline);
+  refreshlist();
+  redrawthisstate();
   redrawinfo();
 }
+
+void packagelist::kd_info() {
+  if (!showinfo) {
+    showinfo= 2; kd_toggleinfo();
+  } else {
+    currentinfo++;
+    infotopofscreen=0;
+    redrawinfo();
+  }
+}

dselect/pkgdepcon.cc

@@ -34,6 +34,41 @@ extern "C" {
 
 static const int depdebug= 1;
 
+int packagelist::useavailable(pkginfo *pkg) {
+  if (informative(pkg,&pkg->available) &&
+      pkg->clientdata->selected == pkginfo::want_install &&
+      (pkg->status != pkginfo::stat_installed ||
+       versioncompare(&pkg->available.version,&pkg->installed.version) > 1))
+    return 1;
+  else
+    return 0;
+}
+
+pkginfoperfile *packagelist::findinfo(pkginfo *pkg) {
+  pkginfoperfile *r;
+  r= useavailable(pkg) ? &pkg->available : &pkg->installed;
+  if (!r->valid) blankpackageperfile(r);
+  return r;
+}
+  
+int packagelist::checkdependers(pkginfo *pkg, int changemade) {
+  struct deppossi *possi;
+  
+  if (pkg->available.valid) {
+    for (possi= pkg->available.depended; possi; possi= possi->nextrev) {
+      if (!useavailable(possi->up->up)) continue;
+      changemade= greaterint(changemade,resolvedepcon(possi->up));
+    }
+  }
+  if (pkg->installed.valid) {
+    for (possi= pkg->installed.depended; possi; possi= possi->nextrev) {
+      if (useavailable(possi->up->up)) continue;
+      changemade= greaterint(changemade,resolvedepcon(possi->up));
+    }
+  }
+  return changemade;
+}
+
 int packagelist::resolvesuggest() {
   // We continually go around looking for things to change, but we may
   // only change the `suggested' value if we also increase the `priority'
@@ -52,24 +87,18 @@ int packagelist::resolvesuggest() {
         fprintf(debug,"packagelist[%p]::resolvesuggest() loop[%i] %s / %d\n",
                 this, index, table[index]->pkg->name, changemade);
       dependency *depends;
-      for (depends= table[index]->pkg->available.depends;
+      for (depends= findinfo(table[index]->pkg)->depends;
            depends;
-           depends= depends->next)
-        changemade= greaterint(changemade, resolvedepcon(depends));
-      deppossi *possi;
-      for (possi= table[index]->pkg->available.depended;
-           possi;
-           possi= possi->nextrev) 
-        changemade= greaterint(changemade, resolvedepcon(possi->up));
-      for (depends= table[index]->pkg->available.depends;
+           depends= depends->next) {
+        changemade= greaterint(changemade,resolvedepcon(depends));
+      }
+      changemade= checkdependers(table[index]->pkg,changemade);
+      for (depends= findinfo(table[index]->pkg)->depends;
            depends;
-           depends= depends->next)
-        if (depends->type == dep_provides)
-          for (possi= depends->list->ed->available.valid
-                      ? depends->list->ed->available.depended : 0;
-               possi;
-               possi= possi->nextrev)
-            changemade= greaterint(changemade, resolvedepcon(possi->up));
+           depends= depends->next) {
+        if (depends->type != dep_provides) continue;
+        changemade= checkdependers(depends->list->ed,changemade);
+      }
       if (depdebug)
         fprintf(debug,"packagelist[%p]::resolvesuggest() loop[%i] %s / -> %d\n",
                 this, index, table[index]->pkg->name, changemade);
@@ -98,6 +127,12 @@ static int dep_update_best_to_change_stop(perpackagestate *& best, pkginfo *tryt
 
   // If we haven't found anything yet then this is our best so far.
   if (!best) goto yes;
+
+  // If only one of the packages is available, use that one
+  if (!informative(trythis,&trythis->available) &&
+      informative(best->pkg,&best->pkg->available)) return 0;
+  if (informative(trythis,&trythis->available) &&
+      !informative(best->pkg,&best->pkg->available)) goto yes;
   
   // Select the package with the lowest priority (ie, the one of whom
   // we were least sure we wanted it deselected).
@@ -161,7 +196,7 @@ int packagelist::deselect_one_of(pkginfo *per, pkginfo *ped, dependency *display
 }
 
 int packagelist::resolvedepcon(dependency *depends) {
-  perpackagestate *best;
+  perpackagestate *best, *fixbyupgrade;
   deppossi *possi, *provider;
   int r, foundany;
 
@@ -177,8 +212,6 @@ int packagelist::resolvedepcon(dependency *depends) {
   }
   
   if (!depends->up->clientdata) return 0;
-  
-  if (depends->up->clientdata->selected != pkginfo::want_install) return 0;
 
   switch (depends->type) {
 
@@ -192,12 +225,19 @@ int packagelist::resolvedepcon(dependency *depends) {
   case dep_recommends:
   case dep_depends:
   case dep_predepends:
+
+    if (would_like_to_install(depends->up->clientdata->selected,depends->up) <= 0)
+      return 0;
+
+    fixbyupgrade= 0;
+    
     for (possi= depends->list;
-         possi && !deppossatisfied(possi);
+         possi && !deppossatisfied(possi,&fixbyupgrade);
          possi= possi->next);
     if (depdebug)
       fprintf(debug,"packagelist[%p]::resolvedepcon([%p]): depends found %s\n",
-              this,depends, possi ? possi->ed->name : "[none]");
+              this,depends,
+              possi ? possi->ed->name : "[none]");
     if (possi) return 0;
 
     // Ensures all in the recursive list; adds info strings; ups priorities
@@ -205,27 +245,32 @@ int packagelist::resolvedepcon(dependency *depends) {
 
     if (depends->type == dep_suggests) return r;
 
-    best= 0;
-    for (possi= depends->list;
-         possi;
-         possi= possi->next) {
-      foundany= 0;
-      if (possi->ed->clientdata) foundany= 1;
-      if (dep_update_best_to_change_stop(best, possi->ed)) goto mustdeselect;
-      for (provider= possi->ed->available.valid ? possi->ed->available.depended : 0;
-           provider;
-           provider= provider->nextrev) {
-        if (provider->up->type != dep_provides) continue;
-        if (provider->up->up->clientdata) foundany= 1;
-        if (dep_update_best_to_change_stop(best, provider->up->up)) goto mustdeselect;
-      }
-      if (!foundany) addunavailable(possi);
-    }
-
-    if (!best) {
+    if (fixbyupgrade) {
       if (depdebug) fprintf(debug,"packagelist[%p]::resolvedepcon([%p]): "
-                            "mustdeselect nobest\n", this,depends);
-      return r;
+                            "fixbyupgrade %s\n", this,depends,fixbyupgrade->pkg->name);
+      best= fixbyupgrade;
+    } else {
+      best= 0;
+      for (possi= depends->list;
+           possi;
+           possi= possi->next) {
+        foundany= 0;
+        if (possi->ed->clientdata) foundany= 1;
+        if (dep_update_best_to_change_stop(best, possi->ed)) goto mustdeselect;
+        for (provider= possi->ed->available.valid ? possi->ed->available.depended : 0;
+             provider;
+             provider= provider->nextrev) {
+          if (provider->up->type != dep_provides) continue;
+          if (provider->up->up->clientdata) foundany= 1;
+          if (dep_update_best_to_change_stop(best, provider->up->up)) goto mustdeselect;
+        }
+        if (!foundany) addunavailable(possi);
+      }
+      if (!best) {
+        if (depdebug) fprintf(debug,"packagelist[%p]::resolvedepcon([%p]): "
+                              "mustdeselect nobest\n", this,depends);
+        return r;
+      }
     }
     if (depdebug)
       fprintf(debug,"packagelist[%p]::resolvedepcon([%p]): select best=%s{%d}\n",
@@ -249,7 +294,24 @@ int packagelist::resolvedepcon(dependency *depends) {
     return 2;
     
   case dep_conflicts:
-    if (!deppossatisfied(depends->list)) return 0;
+
+    if (depdebug)
+      fprintf(debug,"packagelist[%p]::resolvedepcon([%p]): conflict\n",
+              this,depends);
+    
+    if (would_like_to_install(depends->up->clientdata->selected,depends->up) == 0)
+      return 0;
+
+    if (depdebug)
+      fprintf(debug,"packagelist[%p]::resolvedepcon([%p]): conflict installing 1\n",
+              this,depends);
+
+    if (!deppossatisfied(depends->list,0)) return 0;
+
+    if (depdebug)
+      fprintf(debug,"packagelist[%p]::resolvedepcon([%p]): conflict satisfied - ouch\n",
+              this,depends);
+
     if (depends->up != depends->list->ed) {
       r= deselect_one_of(depends->up, depends->list->ed, depends);  if (r) return r;
     }
@@ -270,34 +332,67 @@ int packagelist::resolvedepcon(dependency *depends) {
   }
 }
 
-int deppossatisfied(deppossi *possi) {
-  if (possi->ed->clientdata &&
-      possi->ed->clientdata->selected == pkginfo::want_install &&
-      !(possi->up->type == dep_conflicts && possi->up->up == possi->ed)) {
-    // If it's installed, then either it's of the right version,
-    // and therefore OK, or a version must have been specified,
-    // in which case we don't need to look at the rest anyway.
-    if (possi->verrel == deppossi::dvr_none) return 1;
-    int r= versioncompare(&possi->ed->available.version,&possi->version);
-    switch (possi->verrel) {
-    case deppossi::dvr_earlierequal:   return r <= 0;
-    case deppossi::dvr_laterequal:     return r >= 0;
-    case deppossi::dvr_earlierstrict:  return r < 0;
-    case deppossi::dvr_laterstrict:    return r > 0;
-    case deppossi::dvr_exact:          return r == 0;
-    default:                           internerr("unknown verrel");
+int packagelist::deppossatisfied(deppossi *possi, perpackagestate **fixbyupgrade) {
+  int would;
+  pkginfo::pkgwant want= pkginfo::want_purge;
+  
+  if (possi->ed->clientdata) {
+    want= possi->ed->clientdata->selected;
+    would= would_like_to_install(want,possi->ed);
+  } else {
+    would= 0;
+  }
+  
+  if (!(possi->up->type == dep_conflicts && possi->up->up == possi->ed) &&
+      possi->up->type == dep_conflicts ? (would != 0) : (would > 0)) {
+    // If it's to be installed or left installed, then either it's of
+    // the right version, and therefore OK, or a version must have
+    // been specified, in which case we don't need to look at the rest
+    // anyway.
+    if (want == pkginfo::want_hold) {
+      if (versionsatisfied(&possi->ed->installed,possi)) return 1;
+      if (fixbyupgrade && !*fixbyupgrade &&
+          versionsatisfied(&possi->ed->available,possi) &&
+          versioncompare(&possi->ed->available.version,
+                         &possi->ed->installed.version) > 1)
+        *fixbyupgrade= possi->ed->clientdata;
+      return 0;
+    } else {
+      assert(want == pkginfo::want_install);
+      return versionsatisfied(&possi->ed->available,possi);
     }
   }
   if (possi->verrel != deppossi::dvr_none) return 0;
   deppossi *provider;
-  for (provider= possi->ed->available.valid ? possi->ed->available.depended : 0;
-       provider;
-       provider= provider->nextrev) {
-    if (provider->up->type != dep_provides) continue;
-    if (provider->up->up->clientdata &&
-        would_like_to_install(provider->up->up->clientdata->selected,
-                              provider->up->up) == 1)
-      return 1;
+  if (possi->ed->installed.valid) {
+    for (provider= possi->ed->installed.depended;
+         provider;
+         provider= provider->nextrev) {
+      if (provider->up->type == dep_provides &&
+          provider->up->up->clientdata &&
+          !useavailable(provider->up->up) &&
+          would_like_to_install(provider->up->up->clientdata->selected,
+                                provider->up->up))
+        return 1;
+    }
+  }
+  if (possi->ed->available.valid) {
+    for (provider= possi->ed->available.depended;
+         provider;
+         provider= provider->nextrev) {
+      if (provider->up->type != dep_provides ||
+          !provider->up->up->clientdata ||
+          !would_like_to_install(provider->up->up->clientdata->selected,
+                                 provider->up->up))
+        continue;
+      if (useavailable(provider->up->up))
+        return 1;
+      if (fixbyupgrade && !*fixbyupgrade &&
+          (provider->up->up->status != pkginfo::stat_installed ||
+           versioncompare(&provider->up->up->available.version,
+                          &provider->up->up->installed.version) > 1))
+        *fixbyupgrade= provider->up->up->clientdata;
+    }
   }
   return 0;
 }

dselect/pkgdisplay.cc

@@ -35,7 +35,7 @@ extern "C" {
 
 /* These MUST be in the same order as the corresponding enums in dpkg-db.h */
 const char
-  *const wantstrings[]=   { "new package", "selected", "hold", "remove", "purge", 0 },
+  *const wantstrings[]=   { "new package", "install", "hold", "remove", "purge", 0 },
   *const eflagstrings[]=   { "", "REINSTALL", 0 },
   *const statusstrings[]= { "not installed", "unpacked (not set up)",
                             "failed config", "installed", "half installed",
@@ -213,10 +213,10 @@ void packagelist::redrawtitle() {
         internerr("bad sort in redrawtitle");
       }
     }
-    const char *helpstring= readwrite ? (verbose ? " +/-=select v=terse ?=help"
-                                                 : " +/-=select v=verbose ?=help")
-                                      : (verbose ? " v=terse ?=help"
-                                                 : " v=verbose ?=help");
+    const char *helpstring= readwrite ? (verbose ? " mark:+/=/- terse:v help:?"
+                                                 : " mark:+/=/- verbose:v help:?")
+                                      : (verbose ? " terse:v help:?"
+                                                 : " verbose:v help:?");
     int l= strlen(helpstring);
     getyx(titlewin,y,x);
     if (xmax-l > 0) {

dselect/pkginfo.cc

@@ -66,10 +66,11 @@ const struct helpmenuentry *packagelist::helpmenulist() {
 int packagelist::itr_recursive() { return recursive; }
 
 const packagelist::infotype packagelist::infoinfos[]= {
-  { itr_recursive,     itd_relations    },
-  { 0,                 itd_description  },
-  { 0,                 itd_controlfile  },
-  { 0,                 0                }
+  { itr_recursive,     itd_relations         },
+  { 0,                 itd_description       },
+  { 0,                 itd_statuscontrol     },
+  { 0,                 itd_availablecontrol  },
+  { 0,                 0                     }
 };
 
 const packagelist::infotype *const packagelist::baseinfo= infoinfos;
@@ -78,11 +79,14 @@ void packagelist::severalinfoblurb(const char *whatinfoline) {
   whatinfovb(whatinfoline);
   varbuf vb;
   vb("The line you have highlighted represents many packages; "
-     "if you ask to select or deselect it you will affect all the "
-     "packages which match the criterion shown.\n"
+     "if you ask to install, remove, hold, &c it you will affect all "
+     "the packages which match the criterion shown.\n"
      "\n"
      "If you move the highlight to a line for a particular package "
-     "you will see information about that package displayed here.");
+     "you will see information about that package displayed here."
+     "\n"
+     "You can use `o' and `O' to change the sort order and give yourself "
+     "the opportunity to mark packages in different kinds of groups.");
   wordwrapinfo(0,vb.string());
 }
 
@@ -121,18 +125,34 @@ void packagelist::itd_description() {
   }
 }
 
-void packagelist::itd_controlfile() {
+void packagelist::itd_statuscontrol() {
+  werase(infopad);
+  if (!table[cursorline]->pkg->name) {
+    severalinfoblurb("currently installed control info");
+  } else {
+    whatinfovb("installed control info for ");
+    whatinfovb(table[cursorline]->pkg->name);
+    varbuf vb;
+    varbufrecord(&vb,table[cursorline]->pkg,&table[cursorline]->pkg->installed);
+    vb.terminate();
+    if (debug)
+      fprintf(debug,"packagelist[%p]::idt_statuscontrol(); `%s'\n",this,vb.string());
+    waddstr(infopad,vb.string());
+  }
+}
+
+void packagelist::itd_availablecontrol() {
   werase(infopad);
   if (!table[cursorline]->pkg->name) {
-    severalinfoblurb("control file information");
+    severalinfoblurb("available version of control file info");
   } else {
-    whatinfovb("control file information for ");
+    whatinfovb("available version of control info for ");
     whatinfovb(table[cursorline]->pkg->name);
     varbuf vb;
     varbufrecord(&vb,table[cursorline]->pkg,&table[cursorline]->pkg->available);
     vb.terminate();
     if (debug)
-      fprintf(debug,"packagelist[%p]::idt_controlfile(); `%s'\n",this,vb.string());
+      fprintf(debug,"packagelist[%p]::idt_availablecontrol(); `%s'\n",this,vb.string());
     waddstr(infopad,vb.string());
   }
 }

dselect/pkgkeys.cc

@@ -50,12 +50,13 @@ const keybindings::interpretation packagelist_kinterps[] = {
   { "panback",          0,  packagelist::kd_panback,          qa_noquit           },
   { "panon1",           0,  packagelist::kd_panon1,           qa_noquit           },
   { "panback1",         0,  packagelist::kd_panback1,         qa_noquit           },
-  { "select",           0,  packagelist::kd_select,           qa_noquit           },
-  { "deselect",         0,  packagelist::kd_deselect,         qa_noquit           },
+  { "install",          0,  packagelist::kd_select,           qa_noquit           },
+  { "remove",           0,  packagelist::kd_deselect,         qa_noquit           },
   { "purge",            0,  packagelist::kd_purge,            qa_noquit           },
   { "hold",             0,  packagelist::kd_hold,             qa_noquit           },
   { "unhold",           0,  packagelist::kd_unhold,           qa_noquit           },
   { "info",             0,  packagelist::kd_info,             qa_noquit           },
+  { "toggleinfo",       0,  packagelist::kd_toggleinfo,       qa_noquit           },
   { "verbose",          0,  packagelist::kd_verbose,          qa_noquit           },
   { "versiondisplay",   0,  packagelist::kd_versiondisplay,   qa_noquit           },
   { "help",             0,  packagelist::kd_help,             qa_noquit           },
@@ -113,19 +114,20 @@ const keybindings::orgbinding packagelist_korgbindings[]= {
   { C('b'),         "panback1"         },
   { C('f'),         "panon1"           },
                                        
-  { '+',            "select"           },
-  { KEY_IC,         "select"           },
-  { '-',            "deselect"         },
-  { KEY_DC,         "deselect"         },
+  { '+',            "install"          },
+  { KEY_IC,         "install"          },
+  { '-',            "remove"           },
+  { KEY_DC,         "remove"           },
   { '_',            "purge"            },
   { 'H',            "hold"             },
-  { '=',            "unhold"           },
+  { '=',            "hold"             },
   { 'G',            "unhold"           },
                                        
   { '?',            "help"             },
   { KEY_HELP,       "help"             },
   { KEY_F(1),       "help"             },
   { 'i',            "info"             },
+  { 'I',            "toggleinfo"       },
   { 'o',            "swaporder"        },
   { 'O',            "swapstatorder"    },
   { 'v',            "verbose"          },

dselect/pkglist.cc

@@ -300,7 +300,9 @@ void packagelist::sortmakeheads() {
                        thispkg->clientdata->ssstate,
                        ssdiff ? "*diff" : "same",
                        thispkg->priority,
-                       thispkg->otherpriority ? thispkg->otherpriority : "<null>",
+                       thispkg->priority != pkginfo::pri_other ? "<none>"
+                       : thispkg->otherpriority ? thispkg->otherpriority
+                       : "<null>",
                        prioritydiff ? "*diff*" : "same",
                        thispkg->section ? thispkg->section : "<null>",
                        sectiondiff ? "*diff*" : "same");
@@ -400,7 +402,7 @@ packagelist::packagelist(keybindings *kb) : baselist(kb) {
     table[nitems]= state;
     nitems++;
   }
-  if (!nitems) ohshit("There are no packages to select.");
+  if (!nitems) ohshit("There are no packages.");
   recursive= 0;
   sortorder= so_priority;
   statsortorder= sso_avail;

dselect/pkglist.h

@@ -117,12 +117,14 @@ class packagelist : public baselist {
   void itd_recurwelcome();
   void itd_relations();
   void itd_description();
-  void itd_controlfile();
+  void itd_statuscontrol();
+  void itd_availablecontrol();
   
   // Dependency and sublist processing
   struct doneent { doneent *next; void *dep; } *depsdone, *unavdone;
   int alreadydone(doneent**, void*);
   int resolvedepcon(dependency*);
+  int checkdependers(pkginfo*, int changemade); // returns new changemade
   int deselect_one_of(pkginfo *er, pkginfo *ed, dependency *display);
   
   // Define these virtuals
@@ -143,6 +145,7 @@ class packagelist : public baselist {
   pkginfo::pkgwant reallywant(pkginfo::pkgwant, struct perpackagestate*);
   int describemany(char buf[], const char *prioritystring, const char *section,
                    const struct perpackagestate *pps);
+  int deppossatisfied(deppossi *possi, perpackagestate **fixbyupgrade);
 
   void sortmakeheads();
   void resortredisplay();
@@ -177,6 +180,7 @@ class packagelist : public baselist {
   void kd_hold();
   void kd_unhold();
   void kd_info();
+  void kd_toggleinfo();
   void kd_verbose();
   void kd_versiondisplay();
   
@@ -188,6 +192,8 @@ class packagelist : public baselist {
   void add(pkginfo*, const char *extrainfo, showpriority displayimportance);
   int add(dependency*, showpriority displayimportance);
   void addunavailable(deppossi*);
+  int useavailable(pkginfo*);
+  pkginfoperfile *findinfo(pkginfo*);
 
   int resolvesuggest();
   int deletelessimp_anyleft(showpriority than);
@@ -211,7 +217,6 @@ extern const char eflagchars[];
 extern const char wantchars[];
 
 const struct pkginfoperfile *i2info(struct pkginfo *pkg);
-int deppossatisfied(deppossi *possi);
 
 extern modstatdb_rw readwrite;
 

dselect/pkgtop.cc

@@ -273,14 +273,14 @@ void packagelist::redrawcolheads() {
                  status_status_width);
       mvwaddnstr(colheadspad,0,
                  status_hold_width+status_status_width+2,
-                 "Old sel.",
+                 "Old mark",
                  status_want_width);
       mvwaddnstr(colheadspad,0,
                  status_hold_width+status_status_width+status_want_width+3,
-                 "Selection",
+                 "Marked for",
                  status_want_width);
     } else {
-      mvwaddstr(colheadspad,0,0, "HIOS");
+      mvwaddstr(colheadspad,0,0, "HIOM");
     }
     mvwaddnstr(colheadspad,0,section_column, "Section", section_width);
     mvwaddnstr(colheadspad,0,priority_column, "Priority", priority_width);

include/dpkg-db.h

@@ -282,6 +282,10 @@ void varbufprintf(struct varbuf *v, const char *fmt, ...) PRINTFFORMAT(2,3);
 
 /*** from vercmp.c ***/
 
+int versionsatisfied(struct pkginfoperfile *it, struct deppossi *against);
+int versionsatisfied3(const struct versionrevision *it,
+                      const struct versionrevision *ref,
+                      enum depverrel verrel);
 int versioncompare(const struct versionrevision *version,
                    const struct versionrevision *refversion);
 int epochsdiffer(const struct versionrevision *a,

include/myopt.h

@@ -22,6 +22,8 @@
 #ifndef MYOPT_H
 #define MYOPT_H
 
+typedef void (*voidfnp)(void);
+
 struct cmdinfo {
   const char *olong;
   char oshort;
@@ -31,6 +33,7 @@ struct cmdinfo {
   void (*call)(const struct cmdinfo*, const char *value);
   int arg;
   void *parg;
+  voidfnp farg;
 };
 
 void myopt(const char *const **argvp, const struct cmdinfo *cmdinfos);

lib/compat.c

@@ -33,12 +33,6 @@
 #include "config.h"
 #include "dpkg.h"
 
-char *strcpy(char *to, const char *from) {
-  char *oto= to;
-  while ((*to++ = *from++) != 0);
-  return oto;
-}
-
 #ifndef HAVE_VSNPRINTF
 int vsnprintf (char *buf, size_t maxsize, const char *fmt, va_list al) {
   static FILE *file= 0;

lib/database.c

@@ -144,15 +144,13 @@ int informative(struct pkginfo *pkg, struct pkginfoperfile *info) {
    * whether to display things, and by dump to decide whether to write them
    * out.
    */
-  if (info == &pkg->installed ?
+  if (info == &pkg->installed &&
       ((pkg->want != want_unknown && pkg->want != want_purge) ||
        pkg->eflag != eflagv_ok ||
        pkg->status != stat_notinstalled ||
        informativeversion(&pkg->configversion) ||
-       pkg->files)
-      :
-      (nes(pkg->section) ||
-       pkg->priority != pri_unknown))
+       pkg->files))
+    /* We ignore Section and Priority, as these tend to hang around. */
     return 1;
   if (!info->valid) return 0;
   if (info->depends ||

lib/dbmodify.c

@@ -178,7 +178,6 @@ enum modstatdb_rw modstatdb_init(const char *adir, enum modstatdb_rw readwritere
 
   if (cstatus != msdbrw_needsuperuserlockonly) {
     parsedb(statusfile, pdb_weakclassification, 0,0,0);
-    parsedb(statusfile, pdb_recordavailable, 0,0,0);
     parsedb(availablefile,
             pdb_recordavailable|pdb_rejectstatus|
             (cflags & msdbrw_availablepreferversion ? pdb_preferversion : 0),

lib/vercmp.c

@@ -70,3 +70,23 @@ int versioncompare(const struct versionrevision *version,
   r= verrevcmp(version->version,refversion->version);  if (r) return r;
   return verrevcmp(version->revision,refversion->revision);
 }
+
+int versionsatisfied3(const struct versionrevision *it,
+                      const struct versionrevision *ref,
+                      enum depverrel verrel) {
+  int r;
+  if (verrel == dvr_none) return 1;
+  r= versioncompare(it,ref);
+  switch (verrel) {
+  case dvr_earlierequal:   return r <= 0;
+  case dvr_laterequal:     return r >= 0;
+  case dvr_earlierstrict:  return r < 0;
+  case dvr_laterstrict:    return r > 0;
+  case dvr_exact:          return r == 0;
+  default:                 internerr("unknown verrel");
+  }
+}
+
+int versionsatisfied(struct pkginfoperfile *it, struct deppossi *against) {
+  return versionsatisfied3(&it->version,&against->version,against->verrel);
+}

main/archives.c

@@ -666,6 +666,8 @@ void archivefiles(const char *const *argv) {
   const char **arglist;
   char *p;
 
+  checkpath();
+  
   if (f_recursive) {
     
     if (!*argv)

main/configure.c

@@ -378,8 +378,10 @@ void deferred_configure(struct pkginfo *pkg) {
 
   if (maintainer_script_installed(pkg, POSTINSTFILE, "post-installation",
                                   "configure",
-                                  versiondescribe(&pkg->configversion,
-                                                  vdew_nonambig),
+                                  informativeversion(&pkg->configversion)
+                                  ? versiondescribe(&pkg->configversion,
+                                                  vdew_nonambig)
+                                  : "",
                                   (char*)0))
     putchar('\n');
 

main/depcon.c

@@ -30,26 +30,6 @@
 
 #include "main.h"
 
-int versionsatisfied3(const struct versionrevision *it,
-                      const struct versionrevision *ref,
-                      enum depverrel verrel) {
-  int r;
-  if (verrel == dvr_none) return 1;
-  r= versioncompare(it,ref);
-  switch (verrel) {
-  case dvr_earlierequal:   return r <= 0;
-  case dvr_laterequal:     return r >= 0;
-  case dvr_earlierstrict:  return r < 0;
-  case dvr_laterstrict:    return r > 0;
-  case dvr_exact:          return r == 0;
-  default:                 internerr("unknown verrel");
-  }
-}
-
-int versionsatisfied(struct pkginfoperfile *it, struct deppossi *against) {
-  return versionsatisfied3(&it->version,&against->version,against->verrel);
-}
-
 struct cyclesofarlink {
   struct cyclesofarlink *back;
   struct pkginfo *pkg;

main/enquiry.c

@@ -393,6 +393,15 @@ void enqperpackage(const char *const *argv) {
       }
       break;
 
+    case act_printavail:
+      if (!informative(pkg,&pkg->available)) {
+        printf("Package `%s' is not available.\n",pkg->name);
+        failures++;
+      } else {
+        writerecord(stdout, "<stdout>", pkg, &pkg->available);
+      }
+      break;
+      
     case act_listfiles:
       switch (pkg->status) {
       case stat_notinstalled: 
@@ -430,7 +439,7 @@ void enqperpackage(const char *const *argv) {
   }
 }
 
-void assertsupportpredepends(const char *const *argv) {
+void assertpredep(const char *const *argv) {
   static struct versionrevision predepversion = {~0UL,0,0};
   struct pkginfo *pkg;
   
@@ -555,7 +564,14 @@ static void badlgccfn(const char *compiler, const char *output, const char *why)
   ohshit("compiler libgcc filename not understood: %.250s",why);
 }
 
-void printarchitecture(const char *const *argv) {
+void printinstarch(const char *const *argv) {
+  if (*argv) badusage("--print-installation-architecture does not take any argument");
+
+  if (printf("%s\n",architecture) == EOF) werr("stdout");
+  if (fflush(stdout)) werr("stdout");
+}
+
+void printarch(const char *const *argv) {
   static const struct { const char *from, *to; } archtable[]= {
 #include "archtable.inc"
     { 0,0 }
@@ -569,6 +585,8 @@ void printarchitecture(const char *const *argv) {
   ptrdiff_t ll;
   char *p, *q;
 
+  if (*argv) badusage("--print-architecture does not take any argument");
+
   ccompiler= getenv("CC");
   if (!ccompiler) ccompiler= "gcc";
   varbufinit(&vb);
@@ -603,3 +621,81 @@ void printarchitecture(const char *const *argv) {
   if (printf("%s\n",arch) == EOF) werr("stdout");
   if (fflush(stdout)) werr("stdout");
 }
+
+void cmpversions(const char *const *argv) {
+  struct relationinfo {
+    const char *string;
+    /* These values are exit status codes, so 0=true, 1=false */
+    int if_lesser, if_equal, if_greater;
+    int if_none_a, if_none_b, if_none_both;
+  };
+
+  static const struct relationinfo relationinfos[]= {
+   /*              < = > !a!2!b  */
+    { "le",        0,0,1, 0,0,1  },
+    { "lt",        0,1,1, 0,1,1  },
+    { "eq",        1,0,1, 1,0,1  },
+    { "ne",        0,1,0, 0,1,0  },
+    { "ge",        1,0,0, 1,0,0  },
+    { "gt",        1,1,0, 1,1,0  },
+    { "le-nl",     0,0,1, 1,0,0  }, /* Here none
+    { "lt-nl",     0,1,1, 1,1,0  },  * is counted
+    { "ge-nl",     1,0,0, 0,0,1  },  * than any version.
+    { "gt-nl",     1,1,0, 0,1,1  },  */
+    { "<",         0,0,1, 0,0,1  }, /* For compatibility
+    { "<=",        0,0,1, 0,0,1  },  * with dpkg
+    { "<<",        0,1,1, 0,1,1  },  * control file
+    { "=",         1,0,1, 1,0,1  },  * syntax
+    { ">",         1,0,0, 1,0,0  },  */
+    { ">=",        1,0,0, 1,0,0  },
+    { ">>",        1,1,0, 1,1,0  },
+    {  0                         }
+  };
+
+  const struct relationinfo *rip;
+  const char *emsg;
+  struct versionrevision a, b;
+  int r;
+  
+  if (!argv[0] || !argv[1] || !argv[2] || argv[3])
+    badusage("--cmpversions takes three arguments:"
+             " <version> <relation> <version>");
+
+  for (rip=relationinfos; rip->string && strcmp(rip->string,argv[1]); rip++);
+
+  if (!rip->string) badusage("--cmpversions bad relation");
+
+  if (*argv[0] && strcmp(argv[0],"<unknown>")) {
+    emsg= parseversion(&a,argv[0]);
+    if (emsg) {
+      if (printf("version a has bad syntax: %s\n",emsg) == EOF) werr("stdout");
+      if (fflush(stdout)) werr("stdout");
+      exit(1);
+    }
+  } else {
+    blankversion(&a);
+  }
+  if (*argv[2] && strcmp(argv[2],"<unknown>")) {
+    emsg= parseversion(&b,argv[2]);
+    if (emsg) {
+      if (printf("version b has bad syntax: %s\n",emsg) == EOF) werr("stdout");
+      if (fflush(stdout)) werr("stdout");
+      exit(1);
+    }
+  } else {
+    blankversion(&b);
+  }
+  if (!informativeversion(&a)) {
+    exit(informativeversion(&b) ? rip->if_none_a : rip->if_none_both);
+  } else if (!informativeversion(&b)) {
+    exit(rip->if_none_b);
+  }
+  r= versioncompare(&a,&b);
+  debug(dbg_general,"cmpversions a=`%s' b=`%s' r=%d",
+        versiondescribe(&a,vdew_always),
+        versiondescribe(&b,vdew_always),
+        r);
+  if (r>0) exit(rip->if_greater);
+  else if (r<0) exit(rip->if_lesser);
+  else exit(rip->if_equal);
+}

main/main.c

@@ -48,30 +48,58 @@ static void printversion(void) {
              "conditions.  There is NO warranty.  See dpkg --licence for details.\n",
              stdout)) werr("stdout");
 }
-
+/*
+   options that need fixing:
+  " DPKG " --yet-to-unpack                 \n\
+  */
 static void usage(void) {
   if (!fputs("\
-Usage: " DPKG " -i|--install    <.deb file name> ... | -R|--recursive <dir> ...\n\
-       " DPKG " --unpack        <.deb file name> ... | -R|--recursive <dir> ...\n\
-       " DPKG " -A|--avail      <.deb file name> ... | -R|--recursive <dir> ...\n\
-       " DPKG " --configure     <package name> ... | -a|--pending\n\
-       " DPKG " -r|--remove | --purge <package name> ... | -a|--pending\n\
-       " DPKG " -s|--status       <package-name> ...\n\
-       " DPKG " -L|--listfiles    <package-name> ...\n\
-       " DPKG " -l|--list         [<package-name-pattern> ...]\n\
-       " DPKG " -S|--search       <filename-search-pattern> ...\n\
-       " DPKG " -C|--audit | --yet-to-unpack\n\
-       " DPKG " --merge-avail | --update-avail <Packages-file>\n\
+Usage: \n\
+  " DPKG " -i|--install      <.deb file name> ... | -R|--recursive <dir> ...\n\
+  " DPKG " --unpack          <.deb file name> ... | -R|--recursive <dir> ...\n\
+  " DPKG " -A|--record-avail <.deb file name> ... | -R|--recursive <dir> ...\n\
+  " DPKG " --configure           <package name> ... | -a|--pending\n\
+  " DPKG " -r|--remove | --purge <package name> ... | -a|--pending\n\
+  " DPKG " --update-avail <Packages-file>     replace available packages info\n\
+  " DPKG " --merge-avail <Packages-file>      merge with info from file\n\
+  " DPKG " --clear-avail                      erase existing available info\n\
+  " DPKG " -s|--status <package-name> ...     display package status details\n\
+  " DPKG " --print-avail <package-name> ...   display available version details\n\
+  " DPKG " -L|--listfiles <package-name> ...  list files `owned' by package(s)\n\
+  " DPKG " -l|--list [<pattern> ...]          list packages concisely\n\
+  " DPKG " -S|--search <pattern> ...          find package(s) owning file(s)\n\
+  " DPKG " -C|--audit                         check for broken package(s)\n\
+  " DPKG " --print-architecture               print target architecture (uses GCC)\n\
+  " DPKG " --print-installation-architecture  print host architecture (for inst'n)\n\
+  " DPKG " --compare-versions <a> <rel> <b>   compare version numbers - see below\n\
+  " DPKG " --help | --version                 show this help / version number\n\
+  " DPKG " --force-help | -Dh|--debug=help    help on forcing resp. debugging\n\
+  " DPKG " --licence                          print copyright licencing terms\n\
+\n\
 Use " DPKG " -b|--build|-c|--contents|-e|--control|-I|--info|-f|--field|\n\
  -x|--extract|-X|--vextract|--fsys-tarfile  on archives (type " BACKEND " --help.)\n\
+\n\
 For internal use: " DPKG " --assert-support-predepends | --predep-package\n\
 \n\
-Options: --help --version --licence   --force-help  -Dh|--debug=help\n\
-         --root=<directory>   --admindir=<directory>   --instdir=<directory>\n\
-         -O|--selected-only   -E|--skip-same-version   -G=--refuse-downgrade\n\
-         -B|--auto-deconfigure   --ignore-depends=<package>,...\n\
-         -D|--debug=<octal>   --force-...  --no-force-...|--refuse-...\n\
-         --largemem|--smallmem   --no-act\n\
+Options:
+  --admindir=<directory>     Use <directory> instead of " ADMINDIR "\n\
+  --root=<directory>         Install on alternative system rooted elsewhere\n\
+  --instdir=<directory>      Change inst'n root without changing admin dir\n\
+  -O|--selected-only         Skip packages not selected for install/upgrade\n\
+  -E|--skip-same-version     Skip packages whose same version is installed\n\
+  -G=--refuse-downgrade      Skip packages with earlier version than installed\n\
+  -B|--auto-deconfigure      Install even if it would break some other package\n\
+  --largemem | --smallmem    Optimise for large (>4Mb) or small (<4Mb) RAM use\n\
+  --no-act                   Just say what we would do - don't do it\n\
+  -D|--debug=<octal>         Enable debugging - see -Dhelp or --debug=help
+  --ignore-depends=<package>,... Ignore dependencies involving <package>\n\
+  --force-...                    Override problems - see --force-help\n\
+  --no-force-...|--refuse-...    Stop when problems encountered\n\
+\n\
+Comparison operators for --compare-versions are:\n\
+ lt le eq ne ge gt       (treat no version as earlier than any version);\n\
+ lt-nl le-nl ge-nl gt-nl (tread no version as later than any version);\n\
+ < << <= = >= >> >       (only for compatibility with control file syntax).\n\
 \n\
 Use `" DSELECT "' for user-friendly package management.\n",
              stdout)) werr("stdout");
@@ -79,12 +107,15 @@ Use `" DSELECT "' for user-friendly package management.\n",
 
 const char thisname[]= DPKG;
 const char architecture[]= ARCHITECTURE;
-const char printforhelp[]=
- "Type " DPKG " --help for help about installing and deinstalling packages;\n"
- "Use " DSELECT " for user-friendly package management;\n"
- "Type " DPKG " -Dhelp for a list of " DPKG " debug flag values;\n"
- "Type " DPKG " --force-help for a list of forcing options;\n"
- "Type " BACKEND " --help for help about manipulating *.deb files.";
+const char printforhelp[]= "\
+Type " DPKG " --help for help about installing and deinstalling packages [*];\n\
+Use " DSELECT " for user-friendly package management;\n\
+Type " DPKG " -Dhelp for a list of " DPKG " debug flag values;\n\
+Type " DPKG " --force-help for a list of forcing options;\n\
+Type " BACKEND " --help for help about manipulating *.deb files;\n\
+Type " DPKG " --licence for copyright licence and lack of warranty (GNU GPL) [*].\n\
+\n\
+Options marked [*] produce a lot of output - pipe it through `less' or `more' !";
 
 const struct cmdinfo *cipaction= 0;
 int f_pending=0, f_recursive=0, f_alsoselect=1, f_skipsame=0, f_noact=0;
@@ -240,7 +271,7 @@ Forcing options marked [*] are enabled by default.\n",
 }
 
 static const char *const passlongopts[]= {
-  "build", "contents", "control", "info", "field", "extract",
+  "build", "contents", "control", "info", "field", "extract", "new", "old",
   "vextract", "fsys-tarfile", 0
 };
 
@@ -248,30 +279,40 @@ static const char passshortopts[]= "bceIfxX";
 static const char okpassshortopts[]= "D";
 
 static const struct cmdinfo cmdinfos[]= {
-  { "install",           'i',  0,  0, 0,               setaction,     act_install    },
-  { "unpack",             0,   0,  0, 0,               setaction,     act_unpack     },
-  { "avail",             'A',  0,  0, 0,               setaction,     act_avail      },
-  { "configure",          0,   0,  0, 0,               setaction,     act_configure  },
-  { "remove",            'r',  0,  0, 0,               setaction,     act_remove     },
-  { "purge",              0,   0,  0, 0,               setaction,     act_purge      },
-  { "list",              'l',  0,  0, 0,               setaction,     act_list       },
-  { "status",            's',  0,  0, 0,               setaction,     act_status     },
-  { "search",            'S',  0,  0, 0,               setaction,     act_search     },
-  { "audit",             'C',  0,  0, 0,               setaction,     act_audit      },
-  { "listfiles",         'L',  0,  0, 0,               setaction,     act_listfiles  },
-  { "update-avail",       0,   0,  0, 0,               setaction,     act_avreplace  },
-  { "merge-avail",        0,   0,  0, 0,               setaction,     act_avmerge    },
-  { "yet-to-unpack",      0,   0,  0, 0,               setaction,     act_unpackchk  },
-  { "assert-support-predepends", 0, 0,  0, 0,          setaction,    act_assuppredep },
-  { "print-architecture", 0,   0,  0, 0,               setaction,     act_printarch  },
-  { "print-installation-architecture", 0,0,  0,0,      setaction,  act_printinstarch },
-  { "predep-package",     0,   0,  0, 0,               setaction,  act_predeppackage },
+  /* This table has both the action entries in it and the normal options.
+   * The action entries are made with the ACTION macro, as they all
+   * have a very similar structure.
+   */
+#define ACTION(longopt,shortopt,code,function) \
+ { longopt, shortopt, 0,0,0, setaction, code, 0, (voidfnp)function }
+  ACTION( "install",                        'i', act_install,       archivefiles    ),
+  ACTION( "unpack",                          0,  act_unpack,        archivefiles    ),
+  ACTION( "record-avail",                   'A', act_avail,         archivefiles    ),
+  ACTION( "configure",                       0,  act_configure,     packages        ),
+  ACTION( "remove",                         'r', act_remove,        packages        ),
+  ACTION( "purge",                           0,  act_purge,         packages        ),
+  ACTION( "listfiles",                      'L', act_listfiles,     enqperpackage   ),
+  ACTION( "status",                         's', act_status,        enqperpackage   ),
+  ACTION( "print-avail",                     0,  act_printavail,    enqperpackage   ),
+  ACTION( "update-avail",                    0,  act_avreplace,     updateavailable ),
+  ACTION( "merge-avail",                     0,  act_avmerge,       updateavailable ),
+  ACTION( "clear-avail",                     0,  act_avclear,       updateavailable ),
+  ACTION( "audit",                          'C', act_audit,         audit           ),
+  ACTION( "yet-to-unpack",                   0,  act_unpackchk,     unpackchk       ),
+  ACTION( "list",                           'l', act_listpackages,  listpackages    ),
+  ACTION( "search",                         'S', act_searchfiles,   searchfiles     ),
+  ACTION( "print-architecture",              0,  act_printarch,     printarch       ),
+  ACTION( "assert-support-predepends",       0,  act_assertpredep,  assertpredep    ),
+  ACTION( "print-installation-architecture", 0,  act_printinstarch, printinstarch   ),
+  ACTION( "predep-package",                  0,  act_predeppackage, predeppackage   ),
+  ACTION( "compare-versions",                0,  act_cmpversions,   cmpversions     ),
+  
   { "pending",           'a',  0,  &f_pending,     0,  0,             1              },
   { "recursive",         'R',  0,  &f_recursive,   0,  0,             1              },
   { "no-act",             0,   0,  &f_noact,       0,  0,             1              },
   {  0,                  'G',  0,  &fc_downgrade,  0,  0, /* alias for --refuse */ 0 },
   { "selected-only",     'O',  0,  &f_alsoselect,  0,  0,             0              },
-  { "no-also-select",  'N', 0, &f_alsoselect, 0, 0, 0 /* fixme: remove eventually */ },
+  { "no-also-select",    'N',  0,  &f_alsoselect,  0,0,0 /* fixme: remove sometime */ },
   { "skip-same-version", 'E',  0,  &f_skipsame,    0,  0,             1              },
   { "auto-deconfigure",  'B',  0,  &f_autodeconf,  0,  0,             1              },
   { "largemem",           0,   0,  &f_largemem,    0,  0,             1              },
@@ -300,6 +341,7 @@ int main(int argc, const char *const *argv) {
   jmp_buf ejbuf;
   int c;
   const char *argp, *const *blongopts, *const *argvs;
+  static void (*actionfunction)(const char *const *argv);
 
   if (setjmp(ejbuf)) { /* expect warning about possible clobbering of argv */
     error_unwind(ehflag_bombout); exit(2);
@@ -328,53 +370,10 @@ int main(int argc, const char *const *argv) {
 
   setvbuf(stdout,0,_IONBF,0);
   filesdbinit();
-  
-  switch (cipaction->arg) {
-  case act_install: case act_unpack: case act_avail:
-    checkpath();
-    archivefiles(argv);
-    break;
-  case act_configure: case act_remove: case act_purge:
-    checkpath();
-    packages(argv);
-    break;
-  case act_listfiles: case act_status:
-    enqperpackage(argv);
-    break;
-  case act_avreplace: 
-    availablefrompackages(argv,1);
-    break;
-  case act_avmerge:
-    availablefrompackages(argv,0);
-    break;
-  case act_audit:
-    audit(argv);
-    break;
-  case act_unpackchk:
-    unpackchk(argv);
-    break;
-  case act_list:
-    listpackages(argv);
-    break;
-  case act_search:
-    searchfiles(argv);
-    break;
-  case act_assuppredep:
-    assertsupportpredepends(argv);
-    break;
-  case act_predeppackage:
-    predeppackage(argv);
-    break;
-  case act_printinstarch:
-    if (printf("%s\n",architecture) == EOF) werr("stdout");
-    if (fflush(stdout)) werr("stdout");
-    break;
-  case act_printarch:
-    printarchitecture(argv);
-    break;
-  default:
-    internerr("unknown action");
-  }
+
+  actionfunction= (void (*)(const char* const*))cipaction->farg;
+
+  actionfunction(argv);
 
   set_error_display(0,0);
   error_unwind(ehflag_normaltidy);

main/main.h

@@ -49,10 +49,10 @@ struct packageinlist {
 };
 
 enum action { act_unset, act_install, act_unpack, act_avail, act_configure,
-              act_remove, act_purge, act_list, act_avreplace, act_avmerge,
-              act_unpackchk, act_status, act_search, act_audit, act_listfiles,
-              act_assuppredep, act_printarch, act_predeppackage,
-              act_printinstarch };
+              act_remove, act_purge, act_listpackages, act_avreplace, act_avmerge,
+              act_unpackchk, act_status, act_searchfiles, act_audit, act_listfiles,
+              act_assertpredep, act_printarch, act_predeppackage, act_cmpversions,
+              act_printinstarch, act_compareversions, act_printavail, act_avclear };
 
 enum conffopt {
   cfof_prompt        =     001,
@@ -98,7 +98,7 @@ void process_archive(const char *filename);
 
 /* from update.c */
 
-void availablefrompackages(const char *const *argv, int replace);
+void updateavailable(const char *const *argv);
 
 /* from enquiry.c */
 
@@ -107,9 +107,11 @@ void audit(const char *const *argv);
 void unpackchk(const char *const *argv);
 void searchfiles(const char *const *argv);
 void enqperpackage(const char *const *argv);
-void assertsupportpredepends(const char *const *argv);
+void assertpredep(const char *const *argv);
 void predeppackage(const char *const *argv);
-void printarchitecture(const char *const *argv);
+void printarch(const char *const *argv);
+void printinstarch(const char *const *argv);
+void cmpversions(const char *const *argv);
 
 /* from packages.c, remove.c and configure.c */
 
@@ -189,9 +191,4 @@ struct cyclesofarlink;
 int findbreakcycle(struct pkginfo *pkg, struct cyclesofarlink *sofar);
 void describedepcon(struct varbuf *addto, struct dependency *dep);
 
-int versionsatisfied(struct pkginfoperfile *it, struct deppossi *against);
-int versionsatisfied3(const struct versionrevision *it,
-                      const struct versionrevision *ref,
-                      enum depverrel verrel);
-
 #endif /* MAIN_H */

main/packages.c

@@ -67,6 +67,7 @@ void packages(const char *const *argv) {
   const char *thisarg;
   int l;
   
+  checkpath();
   modstatdb_init(admindir, f_noact ? msdbrw_readonly : msdbrw_needsuperuser);
 
   if (f_pending) {

main/processarc.c

@@ -66,7 +66,7 @@ void process_archive(const char *filename) {
   struct pkgiterator *it;
   struct pkginfo *pkg, *conflictor, *otherpkg, *divpkg;
   char *cidir, *cidirrest, *p;
-  char pfilenamebuf[50], conffilenamebuf[MAXCONFFILENAME];
+  char pfilenamebuf[35], conffilenamebuf[MAXCONFFILENAME];
   const char *pfilename, *newinfofilename;
   struct fileinlist *newconff, **newconffileslastp, *newfileslist;
   struct fileinlist *cfile;
@@ -169,7 +169,7 @@ void process_archive(const char *filename) {
           &pkg,0,0);
 
   if (cipaction->arg == act_avail) {
-    printf("Read updated information about %s from %s.\n",pkg->name,pfilename);
+    printf("Recorded info about %s from %s.\n",pkg->name,pfilename);
     pop_cleanup(ehflag_normaltidy);
     return;
   }

main/update.c

@@ -33,13 +33,17 @@
 
 #include "main.h"
 
-void availablefrompackages(const char *const *argv, int replace) {
+void updateavailable(const char *const *argv) {
   const char *sourcefile= argv[0];
-  int count;
+  int count= 0;
   static struct varbuf vb;
-  
-  if (!sourcefile || argv[1])
+
+  if (cipaction->arg == act_avclear) {
+    if (sourcefile)
+      badusage("--clear-avail takes no arguments");
+  } else if (!sourcefile || argv[1]) {
     badusage("--%s needs exactly one Packages file argument", cipaction->olong);
+  }
   
   if (!f_noact) {
     if (access(admindir,W_OK)) {
@@ -51,25 +55,34 @@ void availablefrompackages(const char *const *argv, int replace) {
     lockdatabase(admindir);
   }
   
-  if (replace) {
+  switch (cipaction->arg) {
+  case act_avreplace:
     printf("Replacing available packages info, using %s.\n",sourcefile);
-  } else {
+    break;
+  case act_avmerge:
     printf("Updating available packages info, using %s.\n",sourcefile);
+    break;
+  case act_avclear:
+    break;
+  default:
+    internerr("bad cipaction->arg in update available");
   }
 
   varbufaddstr(&vb,admindir);
   varbufaddstr(&vb,"/" AVAILFILE);
   varbufaddc(&vb,0);
-  
-  if (!replace)
+
+  if (cipaction->arg == act_avmerge)
     parsedb(vb.buf, pdb_recordavailable|pdb_rejectstatus, 0,0,0);
 
-  count= parsedb(sourcefile, pdb_recordavailable|pdb_rejectstatus, 0,0,0);
+  if (cipaction->arg != act_avclear)
+    count+= parsedb(sourcefile, pdb_recordavailable|pdb_rejectstatus, 0,0,0);
 
   if (!f_noact) {
     writedb(vb.buf,1,0);
     unlockdatabase(admindir);
   }
-  
-  printf("Information about %d package(s) was updated.\n",count);
+
+  if (cipaction->arg != act_avclear)
+    printf("Information about %d package(s) was updated.\n",count);
 }

methods/disk.install

@@ -30,12 +30,6 @@ then
 	mount -rt nfs "$p_nfs" -o nosuid,nodev "$p_mountpoint"
 fi
 
-case "$p_mountpoint" in
-*/ )	binaryprefix="$p_mountpoint" ;;
-'' )	binaryprefix="" ;;
-* )	binaryprefix="$p_mountpoint/" ;;
-esac
-
 predep="$vardir/predep-package"
 while true
 do

methods/disk.setup

@@ -416,14 +416,20 @@ experts who like to live dangerously and want to help with testing) ?'
 	echo
 fi
 
+case "$hierbase" in
+/* )	;;
+'' )	;;
+* )	hierbase="/$hierbase" ;;
+esac
+
 check_binary () {
 	# args: area-in-messages directory
-	if ! [ -d "$mountpoint/$2" ]
+	if ! [ -d "$mountpoint$2" ]
 	then
 		echo "\`$2' does not exist."
 		return
 	fi
-	if ! find "$mountpoint/$2" -follow -name '*.deb' -print \
+	if ! find "$mountpoint$2" -follow -name '*.deb' -print \
 		2>/dev/null | head -1 | grep . >/dev/null
 	then
 		echo "\`$2' does not contain any *.deb packages.  Hmmpf."
@@ -457,15 +463,11 @@ alternative source.'
 		defaultbinary="$4"
 		echo "
 Which directory contains the *.deb packages from the $1 distribution
-area (this directory is named \`$3/binary' on the distribution site) ?"
-		if [ $2 != main ]
+area (this directory is named \`$3/binary' on the distribution site) ?
+Say \`none' if this area is not available."
+		if [ $2 != main -a -z "$defaultbinary" ]
 		then
-			if [ -z "$defaultbinary" ]
-			then
-				defaultbinary=none
-			fi
-			echo \
-"Say \`none' if this area is not available."
+			defaultbinary=none
 		fi
 		echo -n \
 "Enter _$1_ binary dir. [$4]
@@ -475,7 +477,7 @@ area (this directory is named \`$3/binary' on the distribution site) ?"
 		then
 			response="$defaultbinary"
 		fi
-		if [ none = "$response" -a $2 != main ]
+		if [ none = "$response" ]
 		then
 			break
 		fi
@@ -506,12 +508,13 @@ If you overlooked it when downloading you should do get it now and
 return to this installation procedure when you have done so: you will
 find one Packages file and one Packages.gz file -- either will do --
 in the \`binary' subdirectory of each area on the FTP sites and
-CD-ROMs.
+CD-ROMs.  Alternatively (and this will be rather slow) I can scan the
+packages in the distribution area - say \`scan' if you want me to do so.
 
 You need a separate Packages file from each of the distribution areas
 you wish to install.
 
-Where is the _$1_ \`Packages' file (if none is available, say\`none')
+Where is the _$1_ \`Packages' file (if none is available, say \`none')
 [$5]
  ?  "
 			read response
@@ -522,6 +525,7 @@ Where is the _$1_ \`Packages' file (if none is available, say\`none')
 			case "$response" in
 			'')		continue			;;
 			none)		break				;;
+			scan)		this_packages=scan		;;
 			/*)		this_packages="$response"	;;
 			*)		this_packages="/$response"	;;
 			esac

methods/disk.update

@@ -41,28 +41,45 @@ then
 	mount -rt nfs "$p_nfs" -o nosuid,nodev "$p_mountpoint"
 fi
 
+updatetype=update
+
 for f in main ctb nf lcl
 do
 	eval 'this_packages=$p_'$f'_packages'
-	if [ -z "$this_packages" ]; then continue; fi
-	case "$p_mountpoint" in
-	*/ )	packagesfile="$p_mountpoint$this_packages" ;;
-	'' )	packagesfile="$this_packages" ;;
-	* )	packagesfile="$p_mountpoint/$this_packages" ;;
-	esac
-	case "$packagesfile" in
-	*.gz | *.Z | *.GZ | *.z)
-		echo -n "Uncompressing $packagesfile ... "
-		zcat <"$packagesfile" >packages-$f
-		echo done.
-		dpkg --merge-avail packages-$f
-		;;
+	case "$this_packages" in
 	'')
+		continue
+		;;
+	scan)
+		eval 'this_binary=$p_'$f'_binary'
+		if [ -z "$this_binary" ]; then continue; fi
+		if [ "$updatetype" = update ]
+		then
+			dpkg --clear-avail
+			updatetype=merge
+		fi
+		echo Running dpkg --record-avail -R "$p_mountpoint$this_binary"
+		dpkg --record-avail -R "$p_mountpoint$this_binary"
 		;;
 	*)
-		dpkg --merge-avail "$packagesfile"
+		packagesfile="$p_mountpoint$this_packages"
+		case "$packagesfile" in
+		*.gz | *.Z | *.GZ | *.z)
+			echo -n "Uncompressing $packagesfile ... "
+			zcat <"$packagesfile" >packages-$f
+			echo done.
+			dpkg --$updatetype-avail packages-$f
+			updatetype=merge
+			;;
+		'')
+			;;
+		*)
+			dpkg --$updatetype-avail "$packagesfile"
+			updatetype=merge
+			;;
+		esac
 		;;
-	esac
+	esac	
 done
 
 echo -n 'Update OK.  Hit RETURN.  '

scripts/dpkg-name.sh

@@ -2,8 +2,9 @@
 
 set -e
 
+# Time-stamp: <96/05/03 13:59:41 root>
 prog="`basename \"${0}\"`"
-version="1.1.5"; # This line modified by Makefile
+version="1.1.6"; # This line modified by Makefile
 purpose="rename Debian packages to full package names"
 
 license () {
@@ -33,63 +34,153 @@ usage () {
 	echo "Usage: ${prog} file[s]
   ${purpose}
   file.deb changes to <package>-<version>.<architecture>.deb
+  <package> is y/-/_/ aware
+  -a|--no-architecture  No architecture part in filename
+  -o|--overwrite        Overwrite if file exists
+  -s|--subdir [dir]     Move file into subdir (Use with care)
+  -c|--create-dir       Create target dir if not there (Use with care)
   -h|--help|-v|--version|-l|--license  Show help/version/license"
 }
 
-rename () {
+fileexists () {
 	if [ -f "$1" ];
 	then
-		if p=`dpkg-deb -f -- "$1" package`;
+		return 0;
+	else
+		stderr "can't find \`"$1"'";
+		return 1;
+	fi
+}
+
+getname () {
+	if p=`dpkg-deb -f -- "$1" package`;
+	then
+		p=`echo $p|sed -e 'y/-/_/'`;
+		v=`dpkg-deb -f -- "$1" version`;
+		r=`dpkg-deb -f -- "$1" revision`;
+		if [ -z "$r" ];
+		then
+			r=`dpkg-deb -f -- "$1" package_revision`;
+		fi
+
+		if [ -n "$r" ];
+		then
+			v=$v-$r;
+		fi
+
+		a=`dpkg-deb -f -- "$1" architecture`;
+		a=`echo $a|sed -e 's/ *//g'`;
+		if [ -z "$a" ]; # architecture field empty
+		then
+			a=`dpkg --print-architecture`;
+			stderr "assuming architecture \`"$a"' for \`"$1"'";
+		fi
+		if [ -z "$noarchitecture" ];
+		then
+			tname=$p-$v.$a.deb;
+		else
+			tname=$p-$v.deb
+		fi
+	
+		name=`echo $tname|sed -e 's/ //g'`
+		if [ "$tname" != "$name" ]; # control fields have spaces 
+		then
+			stderr "bad package control information for \`"$1"'"
+		fi
+		return 0;
+	fi
+}
+
+getdir () {
+	if [ -z "$destinationdir" ];
+	then
+		dir=`dirname "$1"`;
+		if [ -n "$subdir" ];
 		then
-			p="$p-"`dpkg-deb -f -- "$1" version`;
-			r=`dpkg-deb -f -- "$1" revision`;
-			if [ -z "$r" ];
+			s=`dpkg-deb -f -- "$1" section`;
+			if [ -z "$s" ];
 			then
-				r=`dpkg-deb -f -- "$1" package_revision`;
+				s="no-section";
+				stderr "assuming section \`"no-section"' for \`"$1"'";
 			fi
-			if [ -n "$r" ];
+			if [ "$s" != "non-free" -a "$s" != "contrib" -a "$s" != "no-section" ];
 			then
-				p=$p-$r;
+				dir=`echo unstable/binary-$a/$s`;
+			else
+				dir=`echo $s/binary-$a`;
 			fi
-			a=`dpkg-deb -f -- "$1" architecture`;
-			if [ -z "$a" ];
-			then
-				a=`dpkg --print-architecture`;
-				stderr "assuming "$a" architecture for \`"$1"'";
-			fi				
-			p=`echo \"$p\"|tr -ds -- '- ' _`
-			p=`dirname "$1"`"/"$p.$a.deb
-			if [ $p -ef "$1" ];									# same device and inode numbers
-			then
-				stderr "skipping \`"$1"'";
-			elif [ -f $p ];
-			then
-				stderr "can't move \`"$1"' to existing file";
-			elif `mv -- "$1" $p`;
+		fi
+	else
+		dir=$destinationdir;
+	fi
+}
+
+move () {
+	if fileexists "$arg"; 
+	then
+		getname "$arg";
+		getdir "$arg";
+		if [ ! -d "$dir" ];
+		then
+			if [ -n "$createdir" ];
 			then
-				echo "moved \``basename "$1"`' to \`${p}'";
+  			if `mkdir -p $dir`;
+	  		then
+		  		stderr "created directory \`$dir'";
+			  else
+		  		stderr "failed creating directory \`$dir'";
+					exit 1;
+				fi
 			else
-				stderr "hmm how did this happen?";
+				stderr "no such dir \`$dir'";
+				stderr "try --create-dir (-c) option";
+				exit 1;
 			fi
 		fi
-	else
-		stderr "can't deal with \`"$1"'";
+		newname=`echo $dir/$name`;
+		if [ $newname -ef "$1" ]; # same device and inode numbers
+		then
+			stderr "skipping \`"$1"'";
+		elif [ -f $newname -a -z "$overwrite" ];
+		then
+			stderr "can't move \`"$1"' to existing file";
+		elif `mv -- "$1" $newname`;
+		then
+			echo "moved \``basename "$1"`' to \`$newname'";
+		else
+			stderr "mkdir can be used to create directory";
+			exit 1;
+		fi
   fi
 }
 
 if [ $# = 0 ]; then usage; exit 0; fi	
 for arg
 do
+	if [ -n "$subdirset" ];
+	then
+		subdirset=0;
+		subdir=1;
+		if [ -d $arg ];
+		then
+			destinationdir=$arg;
+			continue
+		fi
+	fi
 	case "$arg" in
 		--version|-v) show_version; exit 0;;
 		--help|-[h?]) usage; exit 0;;
 		--licen[cs]e|-l) license; exit 0;;
+		--create-dir|-c) createdir=1;;
+		--subdir|-s) subdirset=1;;
+		--overwrite|-o) overwrite=1 ;;
+		--no-architecture|-a) noarchitecture=1 ;;
 		--) shift; 
 			for arg 
 			do 
-				rename "$arg"; 
+				move "$arg";
 			done; exit 0;;
-		*) rename "$arg";;
+		*) move "$arg";;
 	esac
 done
 exit 0;
@@ -97,3 +188,106 @@ exit 0;
 # Local variables:
 # tab-width: 2
 # End:
+
+dpkg-name.1:
+.\" This is an -*- nroff -*- source file.
+.\" dpkg-name and this manpage are Copyright 1995,1996 by Erick Branderhorst.
+.\"
+.\" This is free software; see the GNU General Public Licence version 2
+.\" or later for copying conditions.  There is NO warranty.
+.\" Time-stamp: <96/05/03 14:00:06 root>
+.TH dpkg-name 1 "April 1996" "Debian Project" "Debian Linux"
+.SH NAME
+dpkg\-name \- rename Debian packages to full package names
+.SH SYNOPSIS
+.B dpkg\-name 
+[\-a|\-\-no\-architecture] [\-o|\-\-overwrite] [\-s|\-\-subdir [dir]]
+[\-c|\-\-create\-dir] [\-h|\-\-help] [\-v|\-\-version]
+[\-l|\-\-license] [\-[--] [files]
+.SH DESCRIPTION
+.PP
+This manual page documents the
+.B dpkg\-name 
+sh script which provides an easy way to rename
+.B Debian
+packages into their full package names. A full package name consists
+of <package>-<version>.<architecture>.deb as specified in the control
+file of the package. The <package> part of the filename will have
+hyphens "-" replaced by underscores "_". The <version> part of the
+filename consists of the mainstream version information optionally
+followed by a hyphen and the revision information.
+.SH EXAMPLES
+.TP
+.B dpkg-name bar-foo.deb
+The file `bar-foo.deb' will be renamed to bar_foo-1.0-2.i386.deb or
+something similar (depending on whatever information is in the control
+part of `bar-foo.deb').
+.TP
+.B find /root/debian/ \-name '*.deb' | xargs \-n 1 dpkg\-name -a
+All files with the extension `deb' in the directory /root/debian and its
+subdirectory's will be renamed by dpkg\-name if required into names with no
+architecture information.
+.TP
+.B find -name '*.deb' | xargs \-n 1 dpkg-name -a -o -s -c
+.B Don't do this.
+Your archive will be messed up completely because a lot of packages
+don't come with section information.
+.B Don't do this.
+.TP
+.B dpkg --build debian-tmp && dpkg-name -s .. debian-tmp.deb
+This can be used when building new packages.
+.SS OPTIONS
+.TP
+.B "\-a, \-\-no\-architecture"
+The destination filename will not have the architecture information. 
+.TP 
+.B "\-o, \-\-overwrite"
+Existing files will be overwritten if they have the same name as the
+destination filename.
+.TP 
+.B "\-s, \-\-subdir [dir]"
+Files will be moved into subdir. If directory given as argument exists
+the files will be moved into that direcotory otherswise the name of
+the target directory is extracted from the section field in the
+control part of the package. The target directory will be
+`unstable/binary-<architecture>/<section>'. If the section is
+`non-free', `contrib' or no section information is found in the
+control file the target directory is
+`<section>/binary-<architecture>'. The section field isn't required so
+a lot of packages will find their way to the `no-section' area. Use
+this option with care, it's messy.
+.TP
+.B "\-c, \-\-create\-dir"
+This option can used together with the \-s option. If a target
+directory isn't found it will be created automatically. 
+.B Use this option with care.
+.TP
+.B "\-h, \-\-help"
+Print a usage message and exit successfully.
+.TP
+.B "\-v, \-\-version"
+Print version information and exit successfully.
+.TP
+.B "\-l, \-\-license"
+Print copyright information and (a reference to GNU) license
+information and exit successfully.
+.SH BUGS?
+Successfully tested on
+.B Debian Linux 
+systems only. Some packages don't follow the name structure
+<package>-<version>.<architecture>.deb. Packages renamed by dpkg-name
+will follow this structure. Generally this will have no impact on how
+packages are installed by dselect/dpkg.
+.SH SEE ALSO
+.BR deb (5),
+.BR deb-control (5),
+.BR dpkg (5),
+.BR dpkg (8),
+.BR dpkg-deb (8).
+.SH COPYRIGHT
+Copyright 1995,1996 Erick Branderhorst.
+.B dpkg-name
+is free software; see the GNU General Public Licence version 2 or
+later for copying conditions. There is
+.B no
+warranty.

scripts/dpkg-scanpackages.pl

@@ -15,9 +15,10 @@
 # The noverride file is a series of lines of the form
 # <package> <priority> <section> <maintainer>
 # where the <maintainer> field is optional.  Fields are separated by
-# whitespace.
+# whitespace.  The <maintainer> field may be <old-maintainer> => <new-maintainer>
+# (this is recommended).
 
-$version= '1.0.10'; # This line modified by Makefile
+$version= '1.0.12'; # This line modified by Makefile
 
 %kmap= ('optional','suggests',
         'recommended','recommends',
@@ -112,19 +113,23 @@ sub writelist {
     print(STDERR "\n") || die $!;
 }
 
-@inover=();
 @samemaint=();
 
 open(O,"<$override") || die $!;
 while(<O>) {
     s/\s+$//;
     ($p,$priority,$section,$maintainer)= split(/\s+/,$_,4);
-    if (!defined($p1{$p})) {
-        push(@inover,$p);
-        next;
-    }
+    next unless defined($p1{$p});
     if (length($maintainer)) {
-        if ($pv{$p,'maintainer'} eq $maintainer) {
+        if ($maintainer =~ m/\s*=\>\s*/) {
+            $oldmaint= $`; $newmaint= $';
+            if ($pv{$p,'maintainer'} ne $oldmaint) {
+                push(@changedmaint,
+                     "  $p (package says $pv{$p,'maintainer'}, not $oldmaint)\n");
+            } else {
+                $pv{$p,'maintainer'}= $newmaint;
+            }
+        } elsif ($pv{$p,'maintainer'} eq $maintainer) {
             push(@samemaint,"  $p ($maintainer)\n");
         } else {
             $pv{$p,'maintainer'}= $maintainer;
@@ -166,8 +171,12 @@ close(STDOUT) || die $!;
 
 &writelist("** Packages in archive but missing from override file: **",
            @missingover);
-&writelist("++ Packages appearing in override file but not in archive: ++",
-           @inover);
+if (@changedmaint) {
+    print(STDERR
+          " ++ Packages in override file with incorrect old maintainer value: ++\n",
+          @changedmaint,
+          "\n") || die $!;
+}
 if (@samemaint) {
     print(STDERR
           " -- Packages specifying same maintainer as override file: --\n",

scripts/t

@@ -0,0 +1,194 @@
+#!/usr/bin/perl --
+# usage:
+#  dpkg-scanpackages .../binary .../noverride pathprefix >.../Packages.new
+#  mv .../Packages.new .../Packages
+#
+# This is the core script that generates Packages files (as found
+# on the Debian FTP site and CD-ROMs).
+#
+# The first argument should preferably be a relative filename, so that
+# the Filename field has good information.
+#
+# Any desired string can be prepended to each Filename value by
+# passing it as the third argument.
+#
+# The noverride file is a series of lines of the form
+# <package> <priority> <section> <maintainer>
+# where the <maintainer> field is optional.  Fields are separated by
+# whitespace.  The <maintainer> field may be <old-maintainer> => <new-maintainer>
+# (this is recommended).
+
+$version= '1.0.12'; # This line modified by Makefile
+
+%kmap= ('optional','suggests',
+        'recommended','recommends',
+        'class','priority',
+        'package_revision','revision');
+
+%pri= ('priority',300,
+       'section',290,
+       'maintainer',280,
+       'version',270,
+       'depends',250,
+       'recommends',240,
+       'suggests',230,
+       'conflicts',220,
+       'provides',210,
+       'filename',200,
+       'size',180,
+       'md5sum',170,
+       'description',160);
+
+@ARGV==3 || die;
+
+$binarydir= shift(@ARGV);
+-d $binarydir || die $!;
+
+$override= shift(@ARGV);
+-e $override || die $!;
+
+$pathprefix= shift(@ARGV);
+
+open(F,"find $binarydir -name '*.deb' -print |") || die $!;
+while (<F>) {
+    chop($fn=$_);
+    substr($fn,0,length($binarydir)) eq $binarydir || die $fn;
+    open(C,"dpkg-deb -I $fn control |") || die "$fn $!";
+    $t=''; while (<C>) { $t.=$_; }
+    $!=0; close(C); $? && die "$fn $? $!";
+    undef %tv;
+    $o= $t;
+    while ($t =~ s/^\n*(\S+):[ \t]*(.*(\n[ \t].*)*)\n//) {
+        $k= $1; $v= $2;
+        $k =~ y/A-Z/a-z/;
+        if (defined($kmap{$k})) { $k= $kmap{$k}; }
+        $v =~ s/\s+$//;
+        $tv{$k}= $v;
+#print STDERR "K>$k V>$v<\n";
+    }
+    $t =~ m/^\n*$/ || die "$fn $o / $t ?";
+    defined($tv{'package'}) || die "$fn $o ?";
+    $p= $tv{'package'}; delete $tv{'package'};
+    defined($p1{$p}) && die "$fn $p repeat";
+    if (defined($tv{'filename'})) {
+        print(STDERR " ! Package $p (filename $fn) has Filename field !\n") || die $!;
+    }
+    $tv{'filename'}= "$pathprefix$fn";
+    open(C,"md5sum <$fn |") || die "$fn $!";
+    chop($_=<C>); m/^[0-9a-f]{32}$/ || die "$fn \`$_' $!";
+    $!=0; close(C); $? && die "$fn $? $!";
+    $tv{'md5sum'}= $_;
+    defined(@stat= stat($fn)) || die "$fn $!";
+    $stat[7] || die "$fn $stat[7]";
+    $tv{'size'}= $stat[7];
+    if (length($tv{'revision'})) {
+        $tv{'version'}.= '-'.$tv{'revision'};
+        delete $tv{'revision'};
+    }
+    for $k (keys %tv) {
+        $pv{$p,$k}= $tv{$k};
+        $k1{$k}= 1;
+        $p1{$p}= 1;
+    }
+    $_= substr($fn,length($binarydir));
+    s#/[^/]+$##; s#^/*##;
+    $psubdir{$p}= $_;
+    $pfilename{$p}= $fn;
+}
+$!=0; close(F); $? && die "$? $!";
+
+select(STDERR); $= = 1000; select(STDOUT);
+
+format STDERR =
+  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+$packages
+.
+
+sub writelist {
+    $title= shift(@_);
+    return unless @_;
+    print(STDERR " $title\n") || die $!;
+    $packages= join(' ',sort @_);
+    while (length($packages)) { write(STDERR) || die $!; }
+    print(STDERR "\n") || die $!;
+}
+
+@samemaint=();
+
+open(O,"<$override") || die $!;
+while(<O>) {
+    s/\s+$//;
+    ($p,$priority,$section,$maintainer)= split(/\s+/,$_,4);
+    next unless defined($p1{$p});
+    if (length($maintainer)) {
+        if ($maintainer =~ m/\s*=\>\s*/) {
+            $oldmaint= $`; $newmaint= $';
+            if ($pv{$p,'maintainer'} ne $oldmaint) {
+                push(@changedmaint,"  $p ($pv{$p,'maintainer'}, not $oldmaint)\n");
+            } else {
+                $pv{$p,'maintainer'}= $newmaint;
+            }
+        } elsif ($pv{$p,'maintainer'} eq $maintainer) {
+            push(@samemaint,"  $p ($maintainer)\n");
+        } else {
+            $pv{$p,'maintainer'}= $maintainer;
+        }
+    }
+    $pv{$p,'priority'}= $priority;
+    $pv{$p,'section'}= $section;
+    if (length($psubdir{$p}) && $section ne $psubdir{$p}) {
+        print(STDERR " !! Package $p has \`Section: $section',".
+                     " but file is in \`$psubdir{$p}' !!\n") || die $!;
+        $ouches++;
+    }
+    $o1{$p}= 1;
+}
+close(O);
+
+if ($ouches) { print(STDERR "\n") || die $!; }
+
+$k1{'maintainer'}= 1;
+$k1{'priority'}= 1;
+$k1{'section'}= 1;
+
+@missingover=();
+
+for $p (sort keys %p1) {
+    if (!defined($o1{$p})) {
+        push(@missingover,$p);
+    }
+    $r= "Package: $p\n";
+    for $k (sort { $pri{$b} <=> $pri{$a} } keys %k1) {
+        next unless length($pv{$p,$k});
+        $r.= "$k: $pv{$p,$k}\n";
+    }
+    $r.= "\n";
+    $written++;
+    print(STDOUT $r) || die $!;
+}
+close(STDOUT) || die $!;
+
+&writelist("** Packages in archive but missing from override file: **",
+           @missingover);
+<<<<<<< dpkg-scanpackages.pl
+||||||| /usr/ian-home/junk/u
+&writelist("++ Packages appearing in override file but not in archive: ++",
+           @inover);
+=======
+&writelist("++ Packages appearing in override file but not in archive: ++",
+           @inover);
+if (@changedmaint) {
+    print(STDERR
+          " ++ Packages in override file with incorrect old maintainer value: ++\n",
+          @changedmaint,
+          "\n") || die $!;
+}
+>>>>>>> /usr/ian-home/junk/t
+if (@samemaint) {
+    print(STDERR
+          " -- Packages specifying same maintainer as override file: --\n",
+          @samemaint,
+          "\n") || die $!;
+}
+
+print(STDERR " Wrote $written entries to output Packages file.\n") || die $!;

version.h

@@ -1 +1 @@
-#define DPKG_VERSION "1.2.0" /* This line modified by Makefile */
+#define DPKG_VERSION "1.2.1" /* This line modified by Makefile */