Patch title: Release 94 bulk changes
Abstract:
File: /pliant/storage/database/convert.pli
Key:
    Removed line
    Added line
   
abstract
  [There was a bug in the previous database engine which is that the end tag was </pliant> instead of </pdata> so this small script will enable to convert database files.]

module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"

function convert_file filename
  arg Str filename
  (var Stream s) open filename in+safe
  (var Stream d) open filename+".tmp" out+safe
  while not s:atend
    d writeline (replace s:readline "</pliant>" "</pdata>")
  s close
  d close
  file_delete filename
  file_move filename+".tmp" filename

function convert_tree path
  arg Str path
  var Array:FileInfo files := file_list path standard+recursive
  for (var Int i) 0 files:size-1
    if files:i:extension=".pdb"
      convert_file files:i:name

export convert_file convert_tree