Patch title: Release 85 bulk changes
Abstract:
File: /pliant/util/encoding/pack4.pli
Key:
    Removed line
    Added line
   
# a very efficient and fast compression method for encoding 
# at very high resolution (such as 2400 dpi)


# a very efficient and fast compression method for encoding 
# at very high resolution (such as 2400 dpi)


if false
  function pack4_undocumented_decode src dest unit count -> 
    arg Address src dest ; arg Int unit count ; arg Int csiz
    var Address s := src
    var Address d := dest ; var Address stop := dest transla
    var Address alt := null
    while d<>stop
      var Address old := d
      read_int s (var Int flag) (var Int step)
      if flag=0
        # n different
        while step>0
          d map uInt8 := 255-(s map uInt8) ; s := s translat
          step -= 1
      eif flag=64
        # n same
        var Int value := 255-(s map uInt8) ; s := s translat
        while step>0
          d map uInt8 := value ; d := d translate Byte unit
          step -= 1
      eif flag=128
        # copy previous
        d := d translate Byte step*unit
      else
        # n alternate
        var Int value := alt map uInt8
        while step>0
          d map uInt8 := value ; d := d translate Byte unit
          step -= 1
      if old<>dest and (old map uInt8 -unit)<>(old map uInt8
        alt := old translate Byte -unit
    csize := (cast s Int).-.(cast src Int)


export pack4_encode pack4_decode
export pack4_plan_encode pack4_plan_decode
export pack4_plans_encode pack4_plans_decode
export pack4_encode pack4_decode
export pack4_plan_encode pack4_plan_decode
export pack4_plans_encode pack4_plans_decode