Patch title: Release 92 bulk changes
Abstract:
File: /graphic/vfilter/ascii85.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/stream/filesystembase.pli"
module "/pliant/language/stream/multi.pli"



method drv read buf mini maxi -> red
  oarg_rw Ascii85StreamDriver drv ; arg Address buf ; arg In
  var Link:Stream s :> drv s
  red := 0
  part read
    if drv:remain>0
      var Int step := min drv:remain maxi-red
      memory_copy ((addressof drv:clear) translate Byte uInt
      drv remain -= step
      red += step
    while red<mini and not s:atend and not drv:eof
      s raw_read addressof:(var uInt8 u8) 1
      var Int c := u8
      if c>="!":number and c<="u":number
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/stream/filesystembase.pli"
module "/pliant/language/stream/multi.pli"



method drv read buf mini maxi -> red
  oarg_rw Ascii85StreamDriver drv ; arg Address buf ; arg In
  var Link:Stream s :> drv s
  red := 0
  part read
    if drv:remain>0
      var Int step := min drv:remain maxi-red
      memory_copy ((addressof drv:clear) translate Byte uInt
      drv remain -= step
      red += step
    while red<mini and not s:atend and not drv:eof
      s raw_read addressof:(var uInt8 u8) 1
      var Int c := u8
      if c>="!":number and c<="u":number
        drv value := (drv:value .*. 85) .+. c-"!":number
        drv value := (drv:value .*. 85) .+. (cast c-"!":number uInt)
        drv count += 1
        if drv:count=5
          drv clear := drv value ; drv remain := 4
          drv value := 0 ; drv count := 0
          restart read
      eif c="z":number
        drv clear := 0 ; drv remain := 4
        restart read
      eif c="~":number
        if drv:count>1
          drv clear := drv:value .*. (cast 85^(5-drv:count) 
          drv remain := drv:count-1
        s raw_read addressof:(var uInt8 u8) 1 
        drv eof := true
        restart read


        drv count += 1
        if drv:count=5
          drv clear := drv value ; drv remain := 4
          drv value := 0 ; drv count := 0
          restart read
      eif c="z":number
        drv clear := 0 ; drv remain := 4
        restart read
      eif c="~":number
        if drv:count>1
          drv clear := drv:value .*. (cast 85^(5-drv:count) 
          drv remain := drv:count-1
        s raw_read addressof:(var uInt8 u8) 1 
        drv eof := true
        restart read