Patch title: Release 94 bulk changes
Abstract:
File: /pliant/fullpliant/debian.pli
Key:
    Removed line
    Added line
   
abstract
  [This modules implements direct handling of Debian package
doc
  [You can think about it as a replacement of 'dpkg' and 'ap


method debian bind c
  arg_rw DebianDistribution debian ; arg Data:Computer c
  debian computer :> c
  debian ftp_server := c:env:"debian":"download":"ftp_server
  if debian:ftp_server=""
    debian ftp_server := "ftp.uk.debian.org"
abstract
  [This modules implements direct handling of Debian package
doc
  [You can think about it as a replacement of 'dpkg' and 'ap


method debian bind c
  arg_rw DebianDistribution debian ; arg Data:Computer c
  debian computer :> c
  debian ftp_server := c:env:"debian":"download":"ftp_server
  if debian:ftp_server=""
    debian ftp_server := "ftp.uk.debian.org"
  var Str prefered := c:env:"debian":"download":"prefered_repository"
  each rep c:env:"debian":"repository"
    if rep<>""
  each rep c:env:"debian":"repository"
    if rep<>""
      debian load keyof:rep (shunt (rep search "unstable" -1
      if prefered="unstable"
        debian load keyof:rep (shunt (rep search "unstable" -1)<>(-1) 0 (rep search "testing" -1)<>(-1) 1 2) rep
      eif prefered="testing"
        debian load keyof:rep (shunt (rep search "unstable" -1)<>(-1) 1 (rep search "testing" -1)<>(-1) 0 2) rep
      else
        debian load keyof:rep (shunt (rep search "unstable" -1)<>(-1) 2 (rep search "testing" -1)<>(-1) 1 0) rep



export DebianDistribution '. bind' '. unpack1' '. unpack'



export DebianDistribution '. bind' '. unpack1' '. unpack'