Patch title: Release 94 bulk changes
Abstract:
File: /pliant/protocol/lpr/embedded.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/fullpliant/this_computer.pli"
module "database.pli"


function lpr_embedded_configure root
  arg Str root
  (var Stream s) open root+"etc/printcap" out+safe
  each printer this_computer:env:"printer"
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/fullpliant/this_computer.pli"
module "database.pli"


function lpr_embedded_configure root
  arg Str root
  (var Stream s) open root+"etc/printcap" out+safe
  each printer this_computer:env:"printer"
    # FIXME: walk around Unix bug when keyof:printer=""
    file_tree_delete root+"var/spool/"+keyof:printer+"/"
    file_tree_create root+"var/spool/"+keyof:printer+"/"
    file_rights root+"var/spool/"+keyof:printer+"/" undefine
    s writeline (shunt printer:"default"="true" "lp|" "")+ke
    s writeline "  :sd=/var/spool/"+keyof:printer+"/:\"
    s writeline "  :mx#0:\"
    s writeline "  :sh:"
  s close



      
export lpr_embedded_configure lpr_embedded_convert lpr_embed
    file_tree_delete root+"var/spool/"+keyof:printer+"/"
    file_tree_create root+"var/spool/"+keyof:printer+"/"
    file_rights root+"var/spool/"+keyof:printer+"/" undefine
    s writeline (shunt printer:"default"="true" "lp|" "")+ke
    s writeline "  :sd=/var/spool/"+keyof:printer+"/:\"
    s writeline "  :mx#0:\"
    s writeline "  :sh:"
  s close



      
export lpr_embedded_configure lpr_embedded_convert lpr_embed