Patch title: Release 84 bulk changes
Abstract:
File: /pliant/protocol/http/common/virtual_tree.page
Key:
    Removed line
    Added line
   
module "/pliant/language/context.pli"
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/graphic/image/prototype.pli"
module "/pliant/graphic/image/pixmap.pli"
module "/pliant/graphic/image/antialiasing.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/graphic/filter/io.pli"
module "/pliant/util/encoding/date.pli"
module "/pliant/protocol/http/style/common.pli"
module "cache.pli"


  corners_sem rd_request
  var Pointer:Arrow c :> corners first virtual_path
  var Link:Str bytes
  if c=null
    corners_sem rd_release
    corners_sem request
    if (corners first virtual_path)=null
      if corners:count>=256
        corners := var Dictionary empty_dictionary
      var Link:ImagePixmap img :> new ImagePixmap
      img setup (image_prototype 0 0 1 1 size*aa size*aa col
      img rectangle 0 0 size*aa-1 size*aa-1 (rgb_pixel gr gg
      img circle (shunt (corner .and. 1)<>0 -1 size*aa) (shu
      var Link:ImageAntiAliasing final :> new ImageAntiAlias
module "/pliant/language/context.pli"
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/graphic/image/prototype.pli"
module "/pliant/graphic/image/pixmap.pli"
module "/pliant/graphic/image/antialiasing.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/graphic/filter/io.pli"
module "/pliant/util/encoding/date.pli"
module "/pliant/protocol/http/style/common.pli"
module "cache.pli"


  corners_sem rd_request
  var Pointer:Arrow c :> corners first virtual_path
  var Link:Str bytes
  if c=null
    corners_sem rd_release
    corners_sem request
    if (corners first virtual_path)=null
      if corners:count>=256
        corners := var Dictionary empty_dictionary
      var Link:ImagePixmap img :> new ImagePixmap
      img setup (image_prototype 0 0 1 1 size*aa size*aa col
      img rectangle 0 0 size*aa-1 size*aa-1 (rgb_pixel gr gg
      img circle (shunt (corner .and. 1)<>0 -1 size*aa) (shu
      var Link:ImageAntiAliasing final :> new ImageAntiAlias
      final bind img aa
      final bind img aa aa
      var Str temp := file_temporary
      final save temp "filter [dq].png[dq]"
      var FileInfo info := file_query temp standard
      var Link:Str bytes :> new Str
      if info=defined
        var Int len := cast info:size Int
        bytes set (memory_allocate len addressof:bytes) len 
      (var Stream s) open temp in+safe
      s raw_read bytes:characters bytes:len
      s close
      file_delete temp
      corners insert virtual_path true addressof:bytes
    corners_sem release
  else
    bytes :> c map Str
    corners_sem rd_release


      var Str temp := file_temporary
      final save temp "filter [dq].png[dq]"
      var FileInfo info := file_query temp standard
      var Link:Str bytes :> new Str
      if info=defined
        var Int len := cast info:size Int
        bytes set (memory_allocate len addressof:bytes) len 
      (var Stream s) open temp in+safe
      s raw_read bytes:characters bytes:len
      s close
      file_delete temp
      corners insert virtual_path true addressof:bytes
    corners_sem release
  else
    bytes :> c map Str
    corners_sem rd_release